KF42 G F ;NUMMER OPNIEUW OPNEMEN VOOR AFDRUK ; [ 11/05/2001  2:01 PM ]
 ;
T1 ;GEEF HET GEWENSTE ;NUMMER
T2 ;[] = ok
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
F S US="F",UGL="UL",UG1="U1",UGB="UB" G 1
F2 S US="F",UGL="OD",UG1="O1",UGB="OB" G 1
F4 S US="F",UGL="OFF",UG1="OFF1",UGB="OFFB" G 1
F5 S US="F",UGL="OFKL",UG1="OFKL1",UGB="OFKLB" G 1
 ;
1 S LT=303,UOU=@("^"_Q_UGL_"(0,US,""UOU"")"),K=UOU_$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S R="ZNR\21\3\"_$P($T(T1),U,2)_UOU_$P($T(T1),U,3)_"\\6\\K?1N.N!(K=""-"")\" D R0 G YZ:K="-"
12 I $D(@("^"_Q_UGB_"(ZNR,US)")) D M1 R *K G 10
14 I '$D(@("^"_Q_UG1_"(ZNR)")) D M2 R *K G 10
16 I $P(^(ZNR,US),D,2)'="" D M3 R *K G 10
18 S KC=$P(^(US),D,1)
2 S R="K\22\3\"_$P($T(T2),U,2)_"\\1\\""-""[K\" D R0 G 10:K="-"
20 S @%Q1=0,@("^"_Q_UGB_"(ZNR,US)")=KC_D,@%Q1=1
22 S LT=LT+100 I LT<2003 S FP=LT W @F,ZNR G 10
24 I LT<2023 S LT=323 G 22
26 I LT<2043 S LT=343 G 22
28 I LT<2063 S LT=363 G 22
3 S FP=303 W @F,@F1 S LT=303 G 20
 ;
YZ Q
 ;
M1 S FP=2403+F60 W @F,@F4,UOU_" REEDS KLAAR VOOR AFDRUK  [] = ok ",@F5,@F2,@F0 Q
M2 S FP=2403+F60 W @F,@F4,UOU_" ONBEKEND  [] = ok ",@F5,@F2,@F0 Q
M3 S FP=2403+F60 W @F,@F4,UOU_" REEDS GEFAKTUREERD  [] = ok ",@F5,@F2,@F0 Q
 ;