cPE71 G 1 ;BEHEER VERVANGINGSNUMMERS ;%PE71; Go naar %PE73, %PE72 ;
 ;
T1 ;.........................
T3 ; TE VERVANGEN PRODUKT
T4 ; VERVANGINGSPRODUKT
T5 ;R=R_"GEEF HET TE VERVANGEN PRODUKT\"
T6 ;R=R_"-[] = einde programma"
T7 ;R=R_"DIT PRODUKTNUMMER WERD REEDS VERVANGEN\"
T8 ;R=R_"[] = hernemen     .[] = wijzigen vervangingsnr."
 ;
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
 ;
SC I $L(PR2) S:$D(@Q1) PRV=$P(@Q3,D,1)
SC1 Q
 ;
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 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X 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 U=";",X=@("^"_Q_"PR(0,0)"),K=100,X=100,PNT=$P($T(T1),U,2),Y=" ",UL=19,UD=D_19
4 S Y=$N(^(Y)) G 10:Y=-1 S @Y=^(Y) G 4
10 S Q0="^"_Q_"PR(PR)",Q1="^"_Q_"PR(PR2)",Q2="^"_Q_"PR(PR,0)",Q3="^"_Q_"PR(PR2,0)",Q4="^"_Q_"PR1(PR2)"
11 S X=$N(^(X)) G 13:X<0!(X>199),13:$P(^(X),U,3)>40 S K=K+1,C(K)=^(X) G 11
13 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 S U1=100,U2=0,X=$D(@("^"_Q_"BA(18)"))
15 S X=$N(^(18,-1)) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
17 S FP=349 W @F,@F1,@F93 S FP=321 W @F,@F92,$P($T(T3),U,2) S FP=379 W @F,@F93 S FP=351 W @F,@F92,$P($T(T4),U,2)
2 S U1=$N(C(U1)) G 3:U1=-1 S FP=$P(C(U1),U,5)*100+$P(C(U1),U,6)-3 W @F,@F5 W:'$P(C(U1),U,23) ":" S FP=$P(C(U1),U,2)*100+$P(C(U1),U,3)
21 W @F S U2=U2+1 W:U2<10 " " W:$P(C(U1),U,22) U2 W:'$P(C(U1),U,23) @F6,$P(C(U1),U,1),@F5 G 2
 ;
3 D ^cPE120 G YZ:PR="-" S V=0,FP=UL*100+1 W @F,@F1
31 I '$D(@Q0) X ^cTXT(0,"N",88) R K G 3
33 L @Q0:2 E  X ^cTXT(0,"N",77) R K G 3
35 S B(1)=@(Q2),B(2)=^(1),U1=100 S:$D(^(2)) B(3)=^(2) S:$D(^(3)) B(4)=^(3) D S1 S PR2=$P(B(1),D,23) D SC I $L(PR2),$D(@Q1) S B(1)=^(PR2,0),B(2)=^(1),U1=100,V=30 S:$D(^(2)) B(3)=^(2) S:$D(^(3)) B(4)=^(3) D S1 G 39
37 E  G ^cPE72
39 S R="K\22\3\",@$P($T(T7),U,2),R=R_"""",@$P($T(T8),U,2),R=R_"""\1\\"".-,""[K\" D R0 S X=$D(@Q3) I ",-"[K S V=0 D S2 G 3
392 S @%Q1=0 S X=$D(@Q1) K ^(PR2,"V"_PR) S X=$D(@Q0) S ^(0)=$P(^(PR,0),D,1,22)_D_D_$P(^(0),D,24,99),@%Q1=1,U1=100,V=0 D S2 G 35
 ;
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 02.05.86 - 15 u 40