KT209 G 1 ;TRANSFERT LISTINGS ;KT209;Do naar %A101, Go naar KT210 [ 12/10/92  2:29 PM ]
 ;
T1 ;DE LISTING
T2 ;DE SELECTIE
T3 ;INGAVE SELECTIE\"[] = ok   .[] = zonder bepaalde selectie "
T4 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE 
T5 ;VANAF\"-[] = hernemen   .[] = vanaf het begin   [] = specifieke ingave"
T6 ;TOT\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke ingave"
 ;
1 B 1 S U=";" I 'QP G YZ:'$D(@("^"_Q_"LIL1(PP(1))")) S I1=^(PP(1)),NR="." S:$D(@("^"_Q_"LIS1(PP(2))")) NR=PP(2) G 32
11 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="I1\2000\"_$P($T(T1),U,2)_"\LIL\LIL1" D ^cA101 G YZ:K="-"
21 S FP=403,K=^(K,0),PP(1)=+K,Q1=$P(K,D,3) W @F,$P(K,D,2),@F1 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D,1),35) S SN=$P(^(0),D,3,99)
22 S I1=0,I1X="~",R="NR\22\3\"_$P($T(T3),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" I K="." D 7:$L(SN) G 22:K="-",3
25 S R="K\2000\"_$P($T(T2),U,2)_"\LIS\LIS1" D ^cA101 G 22:K="-"
26 S FP=903,K=^(K,0),NR=+K G 25:$P(K,D,3)'=Q1 W @F,$P(K,D,2),@F1 G 25:'$P(K,D,11)
27 S I=$T(T4),FP=1103 W @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10) S FP=1303 W @F,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12) S FP=1503 W @F,$P(I,U,5),$P(K,D,8)
28 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(Q1,K)"),FP=1803 W @F,$P(K,D,1)
 ;
3 S PP(3)=I1,PP(4)=I1X,PP(2)=NR
32 S I1X=PP(4),J2=@("^"_Q_"LIL1(PP(1))"),K=@("^"_Q_"LIL(J2,0)"),Q1=$P(K,D,3),TIT=$P(K,D,2),I1=99,MAX=0
33 S I1=$N(^(I1)) I I1'=-1 S:I1\100'=MAX MAX=I1\100,A(MAX)="" S K=^(I1),R=$P(K,U,2) S:$L($P(K,U,5)) R=$J(R,+K) S A(MAX)=A(MAX)_R_D G 33
34 I NR S K=$P(@("^"_Q_"LIS(^"_Q_"LIS1(NR),0)"),D,3) S:K'=Q1 NR=D
35 S K="L (^"_Q_"LIL1(PP(1))" S:NR K=K_",^"_Q_"LIS1(NR)" S K=K_"):2" X K E  G YZ:'QP X ^cTXT(0,"N",14) R K G 2
 ;
4 S FP=2203 W @F,@F1 D OUT^IO("HT","^KT210") G YZ
 ;
7 F K=1,2 S FP=K*200+703 W @F,$P($P($T(@("T"_(K+4))),U,2),D,1),@F1 S FP=FP+10 W @F,":"
71 S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-.""[K" D R0 Q:K="-"
72 I K="." S I1=0,K=$P($T(T5),".[] = ",2),K=$P(K,"   ",1)
73 E  X $P(SN,U,1) G 71:K="-" S I1=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2)
74 S FP=920 W @F,K,@F2
75 S R="K\22\3\"_$P($T(T6),U,2)_"\1\\""-.""[K!(K=""I""&(I1'=0))" D R0 G 71:K="-"
76 I K="." S I1X="~",K=$P($T(T6),".[] = ",2),K=$P(K,"   ",1) G 79
77 I K="I" S I1X=I1,K=@("^"_Q_Q1_"(I1,0)"),K=$P(K,D,1)_" "_$P(K,D,2) G 79 
78 X $P(SN,U,1) G 75:K="-",78:I1]K S I1X=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2)
79 S FP=1120 W @F,K,@F2 Q
 ;
YZ Q
 ;
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
 ;
Z X ^cZ Q
ZZ ; 26.03.91 -  9 u 33