KPSELB G 1 ;WIJZIGEN SELEKTIES VOOR LISTINGS (aanduiden rubrieken) ;KPSEL;Quit naar KPSELA [ 10/26/2001  11:14 AM ]
 ;
T1 ;KEUZE TEST : ;1[] = groter dan      2[] = groter of gelijk aan    3[] = gelijk aan
T2 ;4[] = kleiner dan     5[] = kleiner of gelijk aan   6[] = verschillend van
T3 ;7[] = beginnend met   8[] = bevat                   V[] = verwijderen test
T4 ;VERWIJDEREN TEST;GROTER DAN;GROTER DAN OF GELIJK AAN;GELIJK AAN;KLEINER DAN;KLEINER DAN OF GELIJK AAN;VERSCHILLEND VAN;BEGINNEND MET;BEVAT
T5 ;SELEKTIE ELEMENT : 
T6 ;   ;# = positie met vrije inhoud
 ;
 ;
1 K SWX S SW5=0,FP=2103+F60,KT=$P($T(T1),U,2) W @F,@F1,KT,!?2,$P($T(T1),U,3),!?2,$P($T(T2),U,2),!?2,$P($T(T3),U,2) S FP=FP+$L(KT)
11 W @F,".",@F2,@F,@F0 R KT G 6:KT="-",13:KT="V",11:KT'?1N.N!(KT>8)!(KT<1)
13 W @F,@F1,$P($T(T4),U,KT+2)
2 S FP=2203+F60,K=$P($T(T5),U,2) W @F,@F1,K,!?2,$P($T(T5),U,3) S FP=FP+$L(K)
21 W @F,"..",@F2,@F,@F0 R K G 1:K="-",21:K'?1N.N!($L(K)>2),21:'$D(A(SW2*100+K))
23 S SWX=1,U2=A(SW2*100+K) G 1:KT>6&($P(U2,U,9)<2) I KT="V" G 1:'$D(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16))),4
25 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 1:K="-"!(K=","),37:KT<7,5
27 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : " S FP=FP+100 W @F,$P(U2,U,10) I KT>6 W:$L($P(U2,U,10)) $P($T(T6),U,2) W $P($T(T6),U,3)
29 S FP=2206+F60+$L($P(U2,U,1)) W @F,$E(PNT,1,$P(U2,U,9)),@F2,@F,@F0 R K G 29:K?.E1C.E,2:K="-"
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")"
33 G 29:$P(X,",",1)="K'="""""&(K=""),5:KT>6 I @X G 37
35 G 29
 ;
37 S KD="",U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
38 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) S FP=FP-2 W @F,$P("> \>=\= \< \<=\<>\x=\x=",D,KT),U3
39 S B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16))=K_D_KT_D_KD S:SW2'>SW4 $P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)=K G 1
 ;
4 D 4^KPSELM G 1
 ;
5 D 5^KPSELM G 27:KD="-",38
 ;
6 K U2,U3,KT S @%Q1=0,I=$N(@("^"_Q_"SL(Q1,I2,0)")),I=0 F X=1:1 S I=$N(B(I)) Q:I=-1  S ^(I)=B(I)
61 S @%Q1=1
 ;
YZ Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;
BRCTR ;($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=0!($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=-97)&(K?12N))!(K="")!'($P(B(1),D,6)?4N!(Q1="AR"))
 ;
BNCTR ;(97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N))!(K="")!(K="000000000")!'($P(B(1),D,6)?4N)
 ;