cPE72 G 1 ;BEHEER VERVANGINGSNUMMERS ;%PE71; Go naar %PE73 ; [ 11/08/2003  3:53 PM ]
 ;
T1 ;R=R_"GEEF HET VERVANGINGSPRODUKTNUMMER\"
T2 ;R=R_"ONBEKEND PRODUKT\"
T3 ;R=R_"[] = hernemen     .[] = openen"
T4 ;R=R_"OPENING PRODUKTNR. "_PRV_" OK\"
T5 ;R=R_"[] = hernemen     .[] = ok"
T6 ;R=R_"TRANSFERT VAN NR. "_$P(@("^"_Q_"PR(PR,0)"),D,1)_" NAAR NR. "_$P(@("^"_Q_"PR(PR2,0)"),D,1)_"\"
T7 ;R=R_".[] = ok     ,[] = hernemen"
T8 ;OK
T9 ;EEN OGENBLIKJE A.U.B.
T16 ;I[] = zelfde periode
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@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  ;V4 03.10.84
 ;
S1 S U1=$N(C(U1)) Q:U1<0  S U2=C(U1),X=$P(U2,U,16),U3=$P(B(X\100),D,X#100),K=U3 S:$L($P(U2,U,8)) U3="U3="_$P(U2,U,8),@U3
S1A S FP=$P(U2,U,5)*100+$P(U2,U,6)+V W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G S1
 ;
S2 S U1=$N(C(U1)) Q:U1<0  S FP=$P(C(U1),U,5)*100+$P(C(U1),U,6)+V W @F,@F2 G S2
 ;
 ;
1 S R="PRV\22\3\",@$P($T(T1),U,2),R=R_D_$P(C(101),U,9)_D_D_$P(C(101),U,11)_D D R0 S V=30,KV="" I K="-"!(K=",") S V=0 D S2 G 3^cPE71
40 I PRV=PR X ^cTXT(0,"N",111) R K G 1
400 S PR2="" F I=1:1:$L(PRV) S:$E(PRV,I)'?1P PR2=PR2_$E(PRV,I)
401 S (PR2,PR2)=PR2_" " S:$D(@Q4) PR2=+@Q4
41 G 45:$D(@Q1) S R="KV\22\3\",@$P($T(T2),U,2),R=R_"""",@$P($T(T3),U,2),R=R_"""\1\\"".-,""[K\" D R0 I "-"[K S U1=100,V=30 D S2 G 1
410 I K="," S U1=100,V=0 D S2 G 3^cPE71
42 S B(1)=@Q2,B(2)=^(1),B(1)=PRV_D_$P(B(1),D,2,11)_D_0_D_DT_D_$P(B(1),D,14,99),U1=100 S:$D(^(2)) B(3)=^(2) S:$D(^(3)) B(4)=^(3) D S1
43 S R="K\22\3\",@$P($T(T4),U,2),R=R_"""",@$P($T(T5),U,2),R=R_"""\1\\"".-,""[K\" D R0 I "-"[K S V=30,U1=100 D S2 G 1
44 I K="," S V=0,U1=100 D S2 G 3^cPE71
45 S K="("_Q0_","_Q1_"):2" L @K E  X ^cTXT(0,"N",77) R K G 1
46 G 47:KV'="." S PR2=@("^"_Q_"PR(0,1)"),^(1)=^(1)+1,@("^"_Q_"PR1(PRV_"" "")")=PR2_D_PRV,PRV=PR2
460 S @%Q1=0,@Q3=$P(B(1),D,1,13)_"\0\"_$P(B(1),D,15,99),^(1)=B(2) S:$D(B(3)) ^(2)=B(3) S:$D(B(4)) ^(3)=B(4) S @%Q1=1 G 5
47 S B(1)=^(PR2,0),B(2)=^(1),U1=100 S:$D(^(2)) B(3)=^(2) S:$D(^(3)) B(4)=^(3) D S1 S K=$P(B(1),D,23)
49 I $L(K) X ^cTXT(0,"N",112) R K S V=30,U1=100 D S2 G 1
 ;
5 S R="K\22\3\",@$P($T(T6),U,2),R=R_"""",@$P($T(T7),U,2),R=R_"""\1\\"".,-""[K&$L(K)\" D R0
51 I "-,"[K&$L(K) S V=K="-"*30 D S2 G 1:V,3^cPE71
57 S FP=2234+$L(PR)+$L(PRV) W @F,$P($T(T8),U,2),!,@F2,$C(13),?2,$P($T(T9),U,2) S @%Q1=0 G ^cPE73
59 S U1=100,V=0 D S2 G 3^cPE71
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 02.05.86 - 11 u 53