/* в запись кладутся поля:
/* 1001 - признак полугодия 0 или 9
/* 1002 - признак отбора
/* 1003 - код филиала
/* 1004 - код выделенного фонда вместе с идентификатором подполя 
/* 1005 - код выделенного фонда вместе с идентификатором подполя для остальных-общих
/* 1006 - признак = 1 НЕЗАОЧНИКИ
/* 1007 - признак 3 - точное совпадение специальностей
/*                2  - совпадение 4-х цифр, если 5-я и 6-я 00
/*                1 или пусто - совпадение 6-ти цифр
/* 1008 - признак НЕ учитывания вида обучения (0 - не учитывать)
/* 1009 - признак НЕ учитывания форму обучения (0 или пусто- не учитывать)
/* 1010 - признак НЕ учитывания семестр (0 или пусто - не учитывать)
/* 1011 - признак НЕ учитывания специальность (0 - не учитывать)
/* 1012 - признак НЕ учитывания направление (0 - не учитывать)
/* 1013 - признак НЕ учитывания факультет (0 - не учитывать)

&uf('+7W1008#',v1008),,,
&uf('+7W1009#',v1009),,,
&uf('+7W1010#',v1010),,,
&uf('+7W1011#',v1011),,,
&uf('+7W1012#',v1012),,,
&uf('+7W1013#',v1013),,,
&uf('+7W5#',
(if p(v691) and a(v691^U) 
 then 
/* учет языка 
   if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, 
   if &uf('AG7#1')<>'' then '"JZ=',&uf('AG7#1'),'"',,,,,,' * ' fi,   
   if &uf('Av1004#1')='' and &uf('Av1005#1')='' 
   then  
     if &uf('Av1003#1')='' and a(v691^L) 
     then 
/* не филиал
       if &uf('Av1002#1')='' or 
s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!')  
       then 
/*  отбор пройден
         if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s(  if val(v691^F)=0 or f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi  )=&uf('Av1001#1') 
         then 
/*  семестр пройден
/* студенты НЕ филиала НЕ выделенной кат 
           if &uf('Av1006#1')='' 
           then 
/* студенты вместе с заочниками
             if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
             if p(v691^C) 
             then 
                if ( &uf('Ag1011#1')='1' ) 
                then 
                   if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 
                   then 
                      if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,,
                   fi,
                   if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi,
                   if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi,               
                   if s(v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi 
                fi,,,,
             fi,
             if ( &uf('Ag1012#1')='1' ) then if a(v691^C) and p(v691^n) then |"NAPR=|v691^N|"|,if s(v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,,,
             if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|  if s(v691^v,,v691^f)<>'' then ' (F) ' fi fi fi,,
             if ( &uf('Ag1008#1')='1' ) then if p(v691^v)  then '"VO=',,v691^v,,'"',if s(v691^f)<>'' then ' (F) ' fi fi fi,
             if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi,
           else 
             if &uf('+97',v691^O)='З/О' 
             then 
             else 
/* студенты незаочники
               if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
               if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
               if p(v691^C) 
               then 
                  if ( &uf('Ag1011#1')='1' ) 
                  then 
                     if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 
                     then 
                        if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,,
                     fi,
                     if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi,
                     if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi 
                  fi,,,,
               fi,
               if ( &uf('Ag1012#1')='1' )  then if a(v691^C) and p(v691^n) then |"NAPR=|v691^N|"|,if s(v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,,
               if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(v691^v,v691^f)<>'' then ' (F) ' fi fi fi,
               if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(v691^f)<>'' then ' (F) ' fi fi fi,
               if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi,
             fi,
           fi,
         fi 
       fi 
     else 
       if &uf('Av1003#1')<>'' 
       then 
         if &uf('+97',v691^L)=&uf('Av1003#1') 
         then 
/* для филиала
           if &uf('Av1002#1')='' or 
s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!')   
           then 
             if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s( if f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi )=&uf('Av1001#1') then 
/* студенты филиала НЕ фонда             
               if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
               if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
               if p(v691^C) 
               then 
                  if ( &uf('Ag1011#1')='1' ) 
                  then 
                     if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 
                     then 
                       if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,,
                     fi,
                     if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi,
                     if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi,
                     if s(v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi 
                  fi,,,
               fi,
               if ( &uf('Ag1012#1')='1' ) then if a(v691^C) and p(v691^n) then |"NAPR=|v691^N|"|,if s(v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,,
               if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(v691^v,v691^f)<>'' then ' (F) ' fi fi fi,
               if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(v691^f)<>'' then ' (F) ' fi fi fi,   
               if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi,
             fi,
           fi,
         fi,  
       fi,
     fi,  
   else 
/* студенты выделенной категории    
     if &uf('Av1003#1')='' 
     then 
       if &uf('Av1002#1')='' or 
s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!')   
       then 
         if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s( if f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi )=&uf('Av1001#1') 
         then 
           if &uf('Av1004#1')<>'' and v691: &uf('Av1004#1') 
           then 
/* студенты фонда НЕ филиала   
             if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
             if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
             if p(v691^C) 
             then 
                 if ( &uf('Ag1011#1')='1' ) 
                 then 
                    if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 
                    then 
                       if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,,
                    fi,
                    if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi,
                    if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi,             
                    if s(v691^n,v691^o,,v691^f)<>'' then ' (F) ' fi 
                 fi,,
             fi,
             if ( &uf('Ag1012#1')='1' ) then if a(v691^C) and p(v691^n) then |"NAPR=|v691^N|"|,if s(v691^o,,v691^f)<>'' then ' (F) ' fi fi fi,,,
             if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(,v691^f)<>'' then ' (F) ' fi fi fi,
             if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(v691^f)<>'' then ' (F) ' fi fi fi,,
             if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi,
           else 
             if &uf('Av1004#1')='' 
             then 
               if &uf('Av1005#1')<>'' and v691: &uf('Av1005#1') 
               then 
               else 
/* студенты НЕ фонда остальные или общие
                 if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
                 if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
                 if p(v691^C) 
                 then 
                     if ( &uf('Ag1011#1')='1' ) 
                     then 
                         if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 
                         then 
                            if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,,
                         fi,
                         if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi,
                         if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi,            
                         if s(v691^n,v691^o,v691^v,v691^f)<>'' then ' (F) ' fi 
                     fi,,,
                 fi,
                 if ( &uf('Ag1012#1')='1' ) then if a(v691^C) and p(v691^n) then |"NAPR=|v691^N|"|,if s(v691^o,v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,,
                 if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(v691^v,v691^f)<>'' then ' (F) ' fi fi fi,,
                 if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(v691^f)<>'' then ' (F) ' fi fi fi,
                 if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi,
               fi,
             fi,
           fi,
         fi, 
       fi,    
     fi,  
   fi,
 fi/)),
&uf('+7G5'),,,,,,,
(if g5<>'' then if g5<>s('"JZ=',&uf('AG7#1'),'"',,,,,,' * ') then G5 fi fi/)