0
IF
if p(v200) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if v200^R:'1' then '0' else '1' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
400
XXXXXXXXXXXXXXXXXXX
if p(v200) then '^G'v200^g,"IBIS"n200^g,'^W'v200^a,if p(v200^!)then else'-'&unifor('R') fi,"^B"v200^b,"^H"v200^k,'^K'v200^m,if a(v200^m) then &unifor('IREQUEST,MaskStore,') fi,'^D'v200^d,if a(v200^d) then &unifor('3') fi,'^E'v200^e,if a(v200^e) then &unifor('3'),'^!' fi,'^V'v200^w,if a(v200^w) then &unifor('IREQUEST,MaskMrg,') fi,'^F******',"^C"d200,v200^f" ",v200^c,". "v200^h,": "v200^i,|. -|v200^j,'^I'&unifor('IMAIN,OtvFace,'),if &unifor('IMAIN,OtvFace,')='' then v200^l fi fi/
XXXXXXXXXXXXXXXXXXX
REP
400^e
F
(if p(v400) then if p(v400^!) then if '01 03 05 07 08 10 12':v400^e*4.2 then if (val(v400^e*6)+20)>31 then if v400^e*4.2:'12'then f((val(v400^e.4)+1),0,0),'01'else v400^e.4,if v400^e*4.2:'10'then else'0'fi,f((val(v400^e*4.2)+1),0,0) fi,if val(v400^e*6)>=21 then else'0'fi,f((val(v400^e*6)+20-31),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if v400^e*4.2:'02' then if (val(v400^e*6)+20)>28 then v400^e.4,'03',if val(v400^e*6)>=18 then else'0'fi,f((val(v400^e*6)+20-28),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi else if (val(v400^e*6)+20)>30 then v400^e.4,if val(v400^e*4.2)>=9 then else'0'fi,f((val(v400^e*4.2)+1),0,0),if val(v400^e*6)>=20 then else'0'fi,f((val(v400^e*6)+20-30),0,0) else v400^e.6,f((val(v400^e*6)+20),0,0) fi fi fi else v400^e fi fi/)
XXXXXXXXXXXXXXXXXXX
CHA
400
*
'^!'
''
ADD
40
XXXXXXXXXXXXXXXXXXX
(v400/)
XXXXXXXXXXXXXXXXXXX
DEL
400
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
if p(v200) and a(v200^!) then v200^g,"IBIS"n200^g fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
700
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^f,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
700
F
if v700^a:', 'then', 'else if v700^a:','then',' else if v700^a:' 'then' ' fi fi fi
if v700^a:', 'then'^G'else if v700^a:','then'^G'else if v700^a:' 'then'^B'fi fi fi
ADD
701
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^2,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
ADD
701
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^3,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
701
F
(if v701^a:', 'then', 'else if v701^a:','then',' else if v701^a:' 'then' ' fi fi fi/)
(if v701^a:', 'then'^G'else if v701^a:','then'^G'else if v701^a:' 'then'^B'fi fi fi/)
ADD
200
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then "^A"v200^c else "^V"v200^h,"^A"v200^i fi
XXXXXXXXXXXXXXXXXXX
ADD
923
XXXXXXXXXXXXXXXXXXX
if (v200^v:'05' or a(v200^v)) and s(v200^h,v200^i)<>'' then "^H"v200^h,"^I"v200^i fi
XXXXXXXXXXXXXXXXXXX
ADD
461
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^X"v200^f,"^9"v200^x,"^C"v200^c fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^f,"^X"v200^x,'^ZДА' fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^2,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
ADD
961
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then else "^A"v200^3,"^X"v200^x fi
XXXXXXXXXXXXXXXXXXX
CHA
961
F
(if v961^a:', 'then', 'else if v961^a:','then',' else if v961^a:' 'then' ' fi fi fi/)
(if v961^a:', 'then'^G'else if v961^a:','then'^G'else if v961^a:' 'then'^B'fi fi fi/)
ADD
920
XXXXXXXXXXXXXXXXXXX
if v200^v:'05' or '04 07':v200^v and a(v200^h) or a(v200^v) then 'PAZK'else'SPEC' fi
XXXXXXXXXXXXXXXXXXX
ADD
210
XXXXXXXXXXXXXXXXXXX
"^D"v200^j
XXXXXXXXXXXXXXXXXXX
ADD
215
XXXXXXXXXXXXXXXXXXX
"^A"v200^s
XXXXXXXXXXXXXXXXXXX
ADD
903
XXXXXXXXXXXXXXXXXXX
if v200^r:'1' then v200^a,if p(v200^!)then else'-'&unifor('R') fi else v40^w fi
XXXXXXXXXXXXXXXXXXX
ADD
906
XXXXXXXXXXXXXXXXXXX
v200^a
XXXXXXXXXXXXXXXXXXX
ADD
905
XXXXXXXXXXXXXXXXXXX
"^0"v200^9
XXXXXXXXXXXXXXXXXXX
ADD
900
XXXXXXXXXXXXXXXXXXX
"^B!!!"v200^v,"^B!!!05"n200^v
XXXXXXXXXXXXXXXXXXX
ADD
905
XXXXXXXXXXXXXXXXXXX
"^0"v200^9
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v200^1)then'^AU^1'v200^1,'^21'else '^A' if v200^r:'1' then '9' else '1' fi fi,"^B"v200^b,'^C',v200^p,if a(v200^p) then &unifor('3') fi,"^D"v200^m,"^H"v200^k
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
'^C!!! из RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v200^l fi
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if p(v200^!) then v200^g,"IBIS"n200^g fi
v200
"I="v200^a
XXXXXXXXXXXXXXXXXXX
ADD
910
XXXXXXXXXXXXXXXXXXX
if p(v1001^1)then'^AU^1'v1001^1,'^21'else'^A1'fi,"^B"v1001^b,'^C',v1001^p,if a(v1001^p) then &unifor('3') fi,"^D"v1001^m,"^H"v1001^k
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
'^C!!! из RDR','^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,'),if &unifor('IPRIVATE,FIO,')=''then v1001^l fi
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CHA
40
*
'^W'
'^A'
DEL
200
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
907
F
(if p(v907) then if v907^a.8 = &unifor(|3|d907) and v907^b = &unifor('IMAIN,OTVFACE,') and v907^C='В' and v907^D=&unifor('IMAIN,BIBSIGLA,') then '1'else'0'fi fi/)
XXXXXXXXXXXXXXXXXXX
REP
50
1
if val(&UF('3C'&uf('3')'/'V21.4'0601'))< 2555 then 'До 7 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 2555 and val(&UF('3C'&uf('3')'/'V21.4'0601'))< 5475 then '7-14 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 5475 and val(&UF('3C'&uf('3')'/'V21.4'0601'))< 9125 then '15-24 лет' else if val(&UF('3C'&uf('3')'/'V21.4'0601'))>= 9125  then '25 лет и старше' else  fi fi fi fi
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
'^A',&unifor('3'),' '&unifor('39'),'^B',&unifor('IMAIN,OTVFACE,'),'^CВ^D',&unifor('IMAIN,BIBSIGLA,')
XXXXXXXXXXXXXXXXXXX
//
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
Удаляем повторения 907 поля более старые, чем 2 года (730) дней, если их больше одного

IF
if rsum ((if p(v907) then '1;' else '0;' fi))>1 then '1'  else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
907
F
(if p(v907) then if val(&uf('3C'&uf('3')'/'v907^A.8))>730 then '1' else '0' fi fi/)
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
REP
40
F
(if p(v40) then if v40^A<>'' and v40^Y<>'1' then v40,'^Y1',&uf('D',v40^g,|,!I=|v40^a|!,if p(v60) then '^Z'v60 fi,if p(v900) then '^T',v900^T,if p(v900^B) then '^0'V900^B fi,if p(v900^C) then '^1'v900^C fi,if p(v900^2) then '^2'v900^2 fi,if p(v900^3) then '^3'v900^3 fi, if p(v900^4) then '^4'v900^4 fi,if p(v900^5) then '^5'v900^5 fi,if p(v900^6) then '^6'v900^6 fi,if p(v900^X) then '^7'v900^X fi,if p(v900^Y) then '^8'v900^Y fi,if p(v900^9) then '^9'v900^9 fi else '' fi,if p(v920) then '^X'v920 else '' fi|) else v40 fi fi/ )
XXXXXXXXXXXXXXXXXXX
REP
12001
1
&unifor('3'),' '&unifor('39')
XXXXXXXXXXXXXXXXXXX
NEWMFN
'RDR_BKP'
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ALL
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
10000
XXXXXXXXXXXXXXXXXXX
&unifor('3'),' ',&unifor('39')
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX