KPSELK G 1 ;KONTROLELIJST SELEKTIES VOOR LISTINGS ;KPSEL;overlay naar KPSELL [ 10/26/2001  11:18 AM ]
 ;
T1 ;IN ALFABETISCHE ORDE ;VANAF ;TOT ;SELEKTIE
T2 ;EERSTE AF TE DRUKKEN SELEKTIE \"-[] = einde programma   .[] = vanaf het begin   [] = specifieke selektiekode
T3 ;LAATSTE AF TE DRUKKEN SELEKTIE \"I[] = idem als de vorige   .[] = tot het einde  [] = specifieke selektiekode
T5 ;VANAF HET BEGIN
T6 ;TOT HET EINDE
T7 ;DE SELEKTIE
 ;
1 B 1 S U=";",NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) I 'QP S KL=PP(1),KLX=PP(2),Q1=PP(3),X2=PP(4) K PP
11 S (MAX,I1,BLZ,K,LN)=0,Q0="^"_Q_"SL(Q1,KL)",PNT="........................................"
18 S U4=0,FP=903,K=$P($T(T1),U,2)_$P($T(T1),U,3)_$P($T(T1),U,5)_" " W @F,K,":",@F2
19 S FP=1103 W @F,$P($T(T1),U,2),$P($T(T1),U,4),$P($T(T1),U,5) S FP=FP+$L(K),X4=FP+2 W @F,":",@F2
 ;
2 S K=$T(T2),R="K\23\3\"_$P(K,U,2)_"""\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S KL=0,K=$P($T(T5),U,2)
22 E  S R="KL\2000\"_$P($T(T7),U,2)_"\SL\SL1" D S4^KPSELI G 2:K="-" S K=^(KL,0),K=$P(K,D,1)_" "_$P(K,D,2)
23 S FP=X4-200 W @F,K,@F2
25 S K=$T(T3),R="K\23\3\"_$P(K,U,2)_"""\1\\"".-""[K!(K=""I""&(KL'=0))" D R0 G 2:K="-"
26 I K="." S KLX="ZZZ",K=$P($T(T6),U,2)
27 E  S KLX=KL,R="KLX\2000\"_$P($T(T7),U,2)_"\SL\SL1" D:K="" S4^KPSELI G 25:K="-" S K=@("^"_Q_"SL(Q1,KLX,0)"),K=$P(K,D,1)_" "_$P(K,D,2) I KL]KLX S K="" G 26
28 S FP=X4 W @F,K,@F2
29 D INIT^vhPRINTER(132) G 2:'$D(Print)
31 S X=@("^"_Q_Q1_"(0,0)"),X=100
32 S X=$N(^(X)) G 35:X=-1 S K=K+1,A(K)=$E($P(^(X),U,1),1,20),P(K)=$P(^(X),U,8)
33 S R=$L(A(K)) S:R>MAX MAX=R S I(K)=$P(^(X),U,16),J(K)=$P(^(X),U,9) G 32
35 S:K#2 K=K+1,(A(K),P(K))="",I(K)=1,J(K)=0 S TR=K,TS=K\2,MAX=MAX+1
36 K X4 G ^KPSELL
 ;
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
 ;
R9 S R1=$P($T(+1)," ",1) F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9Z S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1 K R1,R2,R3 L  Q  ; V2  26.11.84
 ;