cPE17 ;OPENEN PRODUKTEN - KLASS. LEV.(SYNONIEMENROUTINE) ;OVERLAY VAN %P15 [ 11/08/2003  3:30 PM ]
 G S7
 ;
T1 ;VOLGNUMMER OF 
T2 ;   [] = vervolg
T3 ;  ,[] = zonder
 ;
S7 S S4=$P(R,D,2)+1+F60,S0=0,SA=$P(R,D,3),S8="^"_Q_$P(R,D,4),S9="^"_Q_$P(R,D,5),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) $P($T(T1),U,2) W SA W:'SW!($P(R,D,4)="PMK") $P($T(T3),U,2) W:S0 $P($T(T2),U,2) W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K="-",S7D:K=""&('S0),S7Z:K=","&('SW!($P(R,D,4)="PMK")) I K="" K ST S S1=S4 G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6="" F S7=1:1:99 I $E(K,S7)'?1P S S6=S6_$E(K,S7)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"(S2_"" "")")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"(S5)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) S S7=$D(@(S8_"(S3)")) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"(S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S10=S10+1,ST(S10)=S2 W @F,$C(13),?2,S10,". ",?6,$P(^(S2),D,2)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1 G S7A
S7K X ^cTXT(0,"N",156) R K
S7L S (S2,S0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S (@$P(R,D,1),K)=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,SA,ST Q
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
 Q
Z X ^cZ Q
ZZ ; 31.05.85 - 16 u 30