%{
%One time create EZsgdInfo .mat file
[SGDnum SGDtext SGDraw]=xlsread('GnOrfDesc.xls');
 save('EZsgdInfo','SGDnum','SGDtext','SGDraw')
%load 'EZsgdInfo'
%}
text=Exp(4).SGDtext;
destPerMP= Exp(zoneSel).Dexp(DexpN).destPerMP;  %length(gS.DM1.drug); 
pertSel=Exp(zoneSel).Dexp(DexpN).pertSel;  %floor(get(handles.DMsldr1,'value'));
plateNum=(LBmp-1)*destPerMP + pertSel;
indx=((LBr-1)*24) +LBc
MP=Exp(zoneSel).Dexp(DexpN).MP;
a=[];            
if get(handles.GeneOrfTog,'value')==0
  gene=MP(1,LBmp).genename{1,1}(indx);
  gnLength=length(char(gene));
  a=find(strncmpi(text(:,6,:),gene,gnLength));
  if ~isempty(a)
    desc=char(text(a,32,:));
    proc=char(text(a,18,:));
    func=char(text(a,19,:));
    loc=char(text(a,20,:));
    orfXref=char(text(a,2,:));
    gnXref=char(text(a,6,:));
    if strcmpi(gnXref,'HO'), gene=strcat(gene,',',gnXref);end
    name=strcat(char(gene),'->',char(orfXref));
  end
elseif get(handles.GeneOrfTog,'value')==1
  orf=MP(1,LBmp).orf{1,1}(indx); 
  orfLength=length(char(orf));
  a=find(strncmpi(text(:,2,:),orf,orfLength));
  if ~isempty(a)
    desc=char(text(a,32,:));
    proc=char(text(a,18,:));
    func=char(text(a,19,:));
    loc=char(text(a,20,:));
    gnXref=char(text(a,6,:));
    if strcmpi(gnXref,'HO'), gnXref=strcat('RF_,',gnXref);end
    name=strcat(char(gnXref),'->',char(orf));
  end
end
if isempty(a)
  name='Not Found';
  desc=[]; proc=[]; func=[]; loc=[];
end

%{
if get(handles.listboxGnOrf,'value')&& ~isempty(a)
  desc=char(text(a,32,:));
  proc=char(text(a,18,:));
  func=char(text(a,19,:));
  loc=char(text(a,20,:));
  name=strcat(char(gene),'->',char(orf));
elseif get(handles.listboxGnOrf,'value') && ~isempty(a)
  desc=char(text(b,32,:));
  proc=char(text(b,18,:));
  func=char(text(b,19,:));
  loc=char(text(b,20,:));
  name=strcat(char(gene),'->',char(orf));
elseif isempty(b)
  name='Not Found';
  desc=[]; proc=[]; func=[]; loc=[];
end
%}
hh=msgbox(sprintf('%s\n%s\n%s%s\n%s%s\n%s%s\n',name,desc,'P->',proc,'F->',func,'C->',loc),'SGD Ontology Info','replace')