cPE119 ;AFDRUKKEN TOELEV. ;SYNONIEMENROUTINES [ 11/08/2003  3:28 PM ]
 ;
ER X F71 S %1="1" G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
R1 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R1A S FP=2403+F60 W @F,@F1,"NAAM OF NUMMER VAN ",RA W:R0 "   [] = VERVOLG" W " : ",@F0
R1B R K G R1A:K?.E1C.E S:$L(K) R0=0 S FP=R4 W @F,@F1 G R1Z:K="-" I K="" S R1=R4 G R1H:R0,R1D
R1C G R1D:K'?.N,R1K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R1M
R1D S R6="" F R7=1:1:99 I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R1E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G R1K:R2=-1 S R2=$N(^(R2))
R1F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G R1M
R1G S R2=R5
R1H S R2=$N(@(R8_"(R2)")) G R1K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R1L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R1A
R1I S FP=R1 W @F,$C(13),?1,$P(^(R2,0),D,1),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R1J S R1=R1+100 G R1H:R1<(2300+F60) S R0=1 G R1A
R1K S FP=2403+F60 W @F,@F2,@F4,RA," IS ONBEKEND [] = OK ",@F5,@F0 R K
R1L S (R2,R0)=0 G R1A
R1M S (@$P(R,D,1),K)=R3
R1Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V2.1 22.06.84
 ;
S2 S S4=$P(R,D,1)+1,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),K="",FP=S4 W @F,@F1 G S2B
S2A S FP=2403+F60 W @F,@F1,"NUMMER ",SA W:S0 "   [] = VERVOLG" W " : ",@F0 R K G S2A:K?.E1C.E
S2B S:$L(K) S0=0 S FP=S4 W @F,@F1 G S2Z:K="-"!(K=".") I K="" S S1=S4 G S2H:S0,S2D
S2C G S2D:K'?.N S S3=K G S2M:$D(@(S8_"(LC,S3)"))
S2D S S6="" F S7=1:1:99 I $E(K,S7)'?1P S S6=S6_$E(K,S7)
S2E S S5=$E(S6,1,24) S:S6="" S5=0 S S1=S4,S2=S5,(S2,S3)=$N(@(S8_"(LC,S2)")) G S2K:S2=-1 S S2=$N(^(S2))
S2F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) S S3=$P(S3," ",2)_" ",S7=$D(@(S8_"("""_S3_""")")) G S2M
S2G S S2=S5
S2H S S2=$N(@(S8_"(LC,S2)")) G S2K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S2L:S2=-1
S2I S FP=S1 W @F,$C(13),?1,S2,?9,$P(^(S2,1),D,2),?21,$P(^(1),D,3)
S2J S S1=S1+100 G S2H:S1<(2300+F60) S S0=1 G S2A
S2K S FP=2403+F60 W @F,@F2,@F4,SA," IS ONBEKEND [] = OK ",@F5,@F0 R K G S2:$N(^(-1))'=-1 S K="-" G S2Z
S2L S (S2,S0)=0 G S2A
S2M S R=S3
S2Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,SA Q  ;V2 06.06.84
 ;
 Q
Z X ^cZ Q
ZZ ; 14.11.85 - 17 u 19