KPSELL G 1 ;KONTROLELIJST SELEKTIES VOOR ;LIJSTEN;KPSEL;Go uit KPSELK [ 08/05/2002  10:20 AM ]
 ;
T1 ;BLZ :
T2 ;NUMMER SELEKTE
T3 ;NAAM SELEKTIE
 ;
S0 W ! S LN=LN+1 K R0,R1
S0Z Q
 ;
S1 S KT=$P(B(I(J)),D,2),KD=$P(B(I(J)),D,3) I $L(P(J)),KT<7 S K=R0,U3="S U3="_P(J) X U3 S R0=U3
S1A I KT>6 S R0=$E(PNT,1,$P(KD,",",1)-1)_R0_$E(PNT,1,J(J)-$P(KD,",",2))
S1B S R0=$P("> \>=\= \< \<=\<>\x=\x=",D,$P(B(I(J)),D,2))_R0
S1Z Q
 ;
S2 S KT=$P(B(I(J+TS)),D,2),KD=$P(B(I(J+TS)),D,3) I $L(P(J+TS)),KT<7 S K=R1,U3="S U3="_P(J+TS) X U3 S R1=U3
S2A I KT>6 S R1=$E(PNT,1,$P(KD,",",1)-1)_R1_$E(PNT,1,J(J+TS)-$P(KD,",",2))
S2B S R1=$P("> \>=\= \< \<=\<>\x=\x=",D,$P(B(I(J+TS)),D,2))_R1
S2Z Q
 ;
S3 F I=1:1:13 W "=========="
S3Z Q
 ;
S4 F I=1:1:13 W "----------"
S4Z Q
 ;
1 D 8 I KL'=0 S X=$D(@Q0) G 3:X
2 S KL=$N(@Q0) I (KL=-1)!(KL]KLX) K A G Y
3 K B S B(0)=^(KL,0),B(1)="",X=100 F I=1:1 S X=$N(^(X)) Q:X=-1  S B(X)=^(X)
4 W ! D S3 S LN=LN+1 I 58-(TS+3)<LN W # D 8 G 4
5 S LN=LN+3 W !,$P($T(T2),U,2),?MAX,": ",$P(B(0),D,1),!,$P($T(T3),U,2),?MAX,": ",$P(B(0),D,2) W ! D S4
6 F J=1:1:TS D S0 S:$D(B(I(J))) R0=$P(B(I(J)),D,1) S:$D(B(I(J+TS))) R1=$P(B(I(J+TS)),D,1) D S1:$D(R0),S2:$D(R1) W A(J),?MAX,$S($D(R0):R0,1:": "_$E(PNT,1,J(J))) W ?65,A(J+TS),?65+MAX,$S($D(R1):R1,1:": "_$E(PNT,1,J(J+TS)))
7 G 2
 ;
8 S BLZ=BLZ+1,LN=0 W !,QN,?122,$P($T(T1),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),X2,$P($T(+1),U,3),@F83,$C(13),?122,DT,!,NM3,?123,TD,! Q
 ;
Y W ! D S3 W # D CLOSE^vhPRINTER
YZ Q
 ;