30 0 &uf('+7W998#'&uf('3')),if v997:'Z' then else if val(v30^a) >= val(g998) then "DO="v30^a,| (|v31^a,|-|v31^b,|)|d31^a fi fi/
30 0 if v997:'Z' or v972^a:'???' or val(v30^a) > val(g998) then else if v30^b<>'' then if v30^b >= g998 then if v30^a.4=v30^b.4 and val(v30^b*4.2)>=val(&uf('31')) then 'DF=' if &uf('3C'v30^b/g998)='0' then 'Завершается сегодня' else &uf('3C'v30^b'/'g998) fi fi fi else if v30^b='' then if v900^c:'R' then if &uf('3C'v30^a/g998)='0' then 'DF=Завершается сегодня' fi else if v900^C:'P' then 'DF=' if v30^a.4=&uf('30') then &uf('3C's(v30^a.4'1212')/g998) else 'Не определено (постоянное мероприятие)' fi fi fi fi fi fi/
30 0 if v997:'Z' or v972^a:'???' then else if v30^b='' and v900^c:'P' or val(v30^b) > val(g998) and v900^c:'D' then &uf('+7W1#'),&uf('+7W1#'&uf('Kgmd.mnu\'g998*4.2)),&uf('+7W2#'),&uf('+7W2#'(&uf('1*R,?g1#1')/)),&uf('+7W3#'(if p(g2) then &uf('Ag998.6#1'),g2 fi/)),&uf('+7W5#'),(if g3<>'' then if val(g3)>=val(&uf('Ag998#1')) then &uf('+7U5#'g3/) fi fi),(if g5<>'' then |DTM=|g5 fi/)/if g5<>'' then 'VTM=Всего в текущем месяце' fi fi fi/
30 0 if v997:'Z' or v972^a:'???' or v900^c:'P' or v900^c:'D' then else if v30^b.6 = s(&uf('30'),&uf('31')) then &uf('+7W1#'),&uf('+7W1#'&uf('Kgmd.mnu\'v30^b*4.2)/),&uf('+7W2#'),&uf('+7W2#'(&uf('1*R,?g1#1')/)),&uf('+7W3#'(if p(g2) then &uf('Av30^b.6#1'),g2 fi/)),&uf('+7W4#'),&uf('+7W4#'if val(v30^a)>val(g998) then v30^a else g998 fi),&uf('+7W5#'),(if g3<>'' then if val(g3)>=val(&uf('Ag4#1')) and val(g3)<=val(&uf('Av30^b#1')) then &uf('+7U5#'g3/) fi fi),(if g5<>'' then |DTM=|g5 fi/)/if g5<>'' then 'VTM=Всего в текущем месяце' fi fi fi/
30 0 if v997:'Z' then 'DZ='v30^b,if v30^b='' then v30^a fi else if v30^a<>'' then if v30^b='' and (not(v900^c:'P')) or v30^b<>'' and val(v30^b)>= val(g998) then 'DZ='v30^b,if v30^b='' then v30^a fi fi fi fi/
30 0 if v997:'Z' or v972^a:'???' then else if v30<>'' then if val(v30^a)> val(g998) then "DP="v30^a/"DP="v30^a.6 fi fi fi/
972 0 if v997:'Z' or v972^a:'???' then else if val(v30^b)=val(g998) or v30^b='' and v30^a=g998 then "TFS="v972^a," ("v972^b")" fi fi/
972 0 if v997:'Z' or v972^a:'???' then else if v30^a<>'' then if v30^a > g998 then else if v30^b='' and v900^c:'P' or v30^b<>'' and val(v30^b) >= val(g998) then "T="d972,&uf('9'v972^a," ("v972^b")") fi fi fi fi/
972 0 if v997:'Z' then "TZ="d972,&uf('9'v972^a," ("v972^b")")  else if v30^a<>'' then if v30^b='' and (not(v900^c:'P')) or v30^b<>'' and val(v30^b)< val(g998) then "TZ="d972,&uf('9'v972^a," ("v972^b")") fi fi fi/
972 0 "TO="d972,&uf("9"v972^a," ("v972^b")")
972 0 if v997:'Z' or v972^a:'???' then else if v30<>'' then if val(v30^a)> val(g998) then "TP="d972,&uf("9"v972^a," ("v972^b")")  fi fi fi/
972 8 if v972^a:'???' then else '/K=/',v972^a fi/
972 0 if v972^a:'???' then 'TN='v972^a fi/
331 6 '/K=/',v331/
330 8 mhl,'/K=/',v330^c/
610 0 (|K=|v610/)/
60 0 mhl,'/|K=/v60^x/
330 0 mhl,if v920:'Plan' then else (if p(v330) then'ND=',&uf('9'v330^c) fi,|%|d330/) fi/
711 0 mhl,(if p(v711) then'C=',&uf('9'v711^a) fi,|%|d711/)/
7001 0 MHL,(|P=|v700^a,| |v700^b,|%|d700/)/ 
7002 0 MHL,(|A=|v700^r,|%|d700/)/ 
7022 0 MHL,(|A=|v702^r,|%|d702/)/
60 0 mhl,(|TE=|d60^a,&uf('KTema.mnu\'v60^a),|%|d60/)/
702 0 MHL,(|A=|v702^a,| |v702^d,|, |v702^g,if a(v702^g) then |, |d702^b,if v702^b:'. 'or (not(v702^b:'.')) then v702^b else &uf('G0.'v702^b),'. '&uf('G2.'v702^b) fi fi,if s(v702^1,v702^c,v702^f)<>''then' (',v702^1,if s(v702^1)<>''then|; |d702^c fi,v702^c,if s(v702^1,v702^c)<>''then|; |d702^f fi,v702^f,')' fi,|%|d702/)/
700 0 MHL,(|A=|v700^a,| |v700^d,|, |v700^g,if a(v700^g) then |, |d700^b,if v700^b:'. 'or (not(v700^b:'.')) then v700^b else &uf('G0.'v700^b),'. '&uf('G2.'v700^b) fi fi,if s(v700^1,v700^c,v700^f)<>''then' (',v700^1,if s(v700^1)<>''then|; |d700^c fi,v700^c,if s(v700^1,v700^c)<>''then|; |d700^f fi,v700^f,')' fi,|%|d700/)/
903 0 "I="v903/
900 0 mhl,"KM="d900^a,&uf("K900aKat.mnu\"v900^a),if &uf("K900aKat.mnu\"v900^a)='' then v900^a fi/
900 0 mhl,"VM="v900^b/
900 0 mhl,if v900^c:',' then &uf('+7W1#'(&uf('1*R,?v900^c#1')/)/),(if p(g1) then 'HM='&uf(|K900cHr.mnu\|g1)/|HMK=|g1 fi/),else "HM="d900^c,&uf("K900cHr.mnu\"v900^c)/"HMK="v900^c/fi
900 0 mhl,"VO="v900^z/
997 0 mhl,"SM="v997,/
239 0 (|ST=|v239|%|/)/
230 0 if p(v230) then if a(v239) then (if &unifor('1*R; ?v230^d#1')<>''then/'ST='&unifor('1*R; ?v230^d#1') fi,|%|d230)/(if &unifor('1*R; ?v230^d#2')<>''then/'ST='&unifor('1*R; ?v230^d#2') fi,|%|d230)/(if &unifor('1*R; ?v230^d#3')<>''then/'ST='&unifor('1*R; ?v230^d#3') fi,|%|d230) fi fi/
200 0 if v920:'Plan' then "PL="v200^a," "v200^b, if a(v200^b)then " "v200^c fi/
488 0 (if p(v488) then if v488^1:'2' then |II=|v488^w/if &uf('Av972^0#1')<>'' then 'III='v488^w'/'&uf('Av972^0#1')/if &uf('Av972^0#1'):'.' then 'III='v488^w'/'&uf('G0.'&uf('Av972^0#1'))fi fi fi fi/)
90 0 &uf('+7W900#',|,|+v90^h),&uf('+7W90#'(&uf('1*R,?g900#1')/)),&uf('+7G90'),(|R=|g90/)
40 0 &uf('+7W400#',|;|+v40^b),&uf('+7W40#'(&uf('1*R;?g400#1')/)),&uf('+7G40'),(|R=|g40/)