KSELO G 1 ;SELEKTIES VOOR LISTINGS;KSELO; [ 10/26/2001  11:09 AM ]
 ;
T1 ;SELEKTIE OP VOLGENDE VELDEN :
 ;
1 W !!!!?2,$P($T(T1),U,2),!
3 S I=$N(@("^"_Q_"KL(0,I)")) G 11:I=-1 S U2=^(I) G 3:'$D(B($P(U2,U,16))) S (K,U3)=$P(B($P(U2,U,16)),D,1)
5 I $P(B($P(U2,U,16)),D,2)<7,$L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
7 I $P(B($P(U2,U,16)),D,2)>6 S U3=$E(PNT,1,$P($P(B($P(U2,U,16)),D,3),",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P($P(B($P(U2,U,16)),D,3),",",2))
9 W !?2,$P(U2,U,1),?20,$P("> \>=\= \< \<=\<>\x=\x=",D,$P(B($P(U2,U,16)),D,2))," ",U3 G 3
11 W #
 ;
YZ K U2 Q
 ;