KPSELS G 1 ;SELEKTIES PRODUKTEN;KPSELS; [ 01/28/2003  4:26 PM ]
 ;
T1 ;SELEKTIE OP VOLGENDE VELDEN :
 ;
1 W !!!!?2,$P($T(T1),U,2),! S X="",SWX=1 F I=1:1:SW3 S B(I)=""
3 S I=$N(@("^"_Q_"PR(0,I)")) G 17:I=-1!(I'?.N) S U2=^(I) G 3:U2=""
5 I $N(^(I))\100'=(I\100) G 7:$N(^(I))-I<100&(X=""),9:$D(B(X_$P(U2,U,16))) S X=$S(X="":"I",1:"J") G 3
7 G 3:'$D(B(X_$P(U2,U,16)))
9 S (K,U3)=$P(B(X_$P(U2,U,16)),D,1) I $P(B(X_$P(U2,U,16)),D,2)<7,$L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
11 I $P(B(X_$P(U2,U,16)),D,2)>6 S U3=$E(PNT,1,$P($P(B(X_$P(U2,U,16)),D,3),",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P($P(B(X_$P(U2,U,16)),D,3),",",2))
13 W !?2,$P(U2,U,1),?20,$P("> \>=\= \< \<=\<>\x=\x=",D,$P(B(X_$P(U2,U,16)),D,2))," ",U3
15 G 3:$N(^(I))\100=(I\100),3:$N(^(I))-I<100&(X="") S X=$S(X="":"I",1:"J") G 3
17 W # K SWX F I=1:1:SW3 K B(I)
 ;
YZ K U2 Q
 ;