(if p(v1) then 
if v1^K=''  
then 
  if s(v1^E,v1^D,v1^C,v1^B,v1^A)<>'' 
  then 
     '<tr><td colspan="5" align="center" bgcolor="#d4d4d4" >',,,&uf('S0'),,
/*----------заголовок
  if v1^E<>'' and v1^E<>' ' 
  then 
/*----Дисциплина	
     '<b>Дисциплина:  ',V1^E,,,,'</b>',,
  else 
     if v1^D<>'' and v1^D<>' ' 
     then 
        '<b>Специальность:  ',v1^D,,,'</b>',,
     else 
        if v1^C<>'' and v1^C<>' ' 
        then 
           '<b>Кафедра:  ',,v1^C,,if &uf('KKAFCH.mnu!',v1^C)<>'' then ' - ',&uf('KKAFCH.mnu!',v1^C) fi,,,'</b>',,
        else 
           if v1^B<>'' and v1^B<>' ' 
           then 
              '<b>Факультет:  ',,,,v1^B,,,if &uf('KFAK.mnu!',v1^B)<>'' then ' - ',,&uf('KFAK.mnu!',v1^B) fi,,,,'</b>',,
           else 
              if v1^A<>'' and v1^A<>' ' 
              then 
                 '<b>Форма обучения:  ',,,,v1^A,,,if &uf('KFO.mnu!',v1^A)<>'' then ' - ',,&uf('KFO.mnu!',v1^A) fi,,,,,'</b>',,
  fi fi fi fi fi 
  '</td></tr>',,
  fi ,,,,,,,,,
else 
/*------------------------------------------------- БО
  '<tr bgcolor="#f2f2f2" >',,
  '<td width=4% >',,
  &uf('S1A'),,,
  '</td>',,,
/*                               '<td width=66% >',,,,,ref(val(v1^M),&uf('6KoListBrief') ),,,,,,,'</td>',,
  '<td width=66% >',,,,,ref(val(v1^M),&uf('6!!kk1bo_W') ),,,,,,,'</td>',,
  '<td width=10%>',,,
/*----------экземпляры, если есть беру из 693, нет - из 910
  if p(v693) 
  then '&nbsp',,
     ref(val(v1^M),
            (if p(v693) 
            then 
              if v693^L='' and v693^A='' and v693^X='!NOFOND' or  v693^L='' and v693^A='' and v693^X='' 
              then 
                if v693^K<>'' then v693^K else v693^D fi,,,,  
              fi,,,
            fi/),,  
        ),,,,,,,,,,,,,,,,,
  else '&nbsp',,
    ref(val(v1^M),
            f(rsum((if p(v910) 
             then 
                if v910^a:'U' 
                then  f(val(v910^1,|1|n910^1)*val(v910^=,|1|n910^=),0,0),,,';'  
                else  if '2 4 6 7 C': v910^a  then  else f(val(v910^=,|1|n910^=),0,0),,';' ,,fi fi 
              fi)),0,0),,,,,,,,,,,,
        ),,,,,,,,,,,,,,,,,
  fi,,
  '</td>',,
/*-------число студентов из поля 693^E
  '<td width=10%>',,,,'&nbsp',,
  ref(val(v1^M),
           (if p(v693) 
            then 
              if v693^L='' and v693^A='' and v693^X='!NOFOND' or  v693^L='' and v693^A='' and v693^X='' 
              then v693^E fi,,,
            fi/)   ),,
  '</td>',,
/*-------ККО из поля 693
  '<td width=10%>',,,,,,
   if val(ref(val(v1^M),&uf('6KoElectro') ) )=1 then '1 (ЭУ)'    
   else '&nbsp',, 
   ref(val(v1^M),
           (if p(v693) 
            then 
              if v693^L='' and v693^A='' and v693^X='!NOFOND' or  v693^L='' and v693^A='' and v693^X='' 
              then 
                  if val(g991^=)=1 
                  then 
                      if v693^P<>'' then v693^P break else 
                      if v693^N<>''  then v693^N,,break else 
                      if v693^F<>'' then v693^F,,break fi fi fi,,
                  else 
                      if v693^S<>''  then v693^S break else 
                      if v693^N<>''  then v693^N,,break else 
                      if v693^F<>'' then v693^F,,break fi fi fi,,   
                  fi,, 
                fi,,
            fi/) ),,,
   fi,,,,,
  '</td>',,
  '</tr>',,
fi,,
fi/)