KPSELM G YZ ;BEPALEN SELEKTIE VOOR LISTINGS (verwijderen test + bepalen test op welk deel) ;KPSEL;Quit naar KPSELB, KPSELD, KPSELN [ 10/26/2001  11:18 AM ]
 ;
T6 ;VERWIJDEREN TEST VOOR ; : ;V[] = verwijderen definitief   -[] = hernemen
T7 ;WELK DEEL  : ;x[] = vanaf positie x   ,y[] = tot positie y
 ;
4 S FP=2203+F60,K=$P($T(T6),U,2)_$P(U2,U,1)_$P($T(T6),U,3) W @F,@F1,K,!?2,$P($T(T6),U,4) S FP=FP+$L(K)
41 W @F,".",@F2,@F,@F0 R K G YZ:K="-",41:K'="V" K B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16)) S:SW2'>SW4 $P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)=""
42 I $D(WIJZ),WIJZ K @("^"_Q_"SL(Q1,I2,$S(U4>SW4:$P(""I\J"",D,(U4=SWL)+1),1:"""")_$P(U2,U,16))")
43 S FP=$P(U2,U,5)*100+$P(U2,U,6)-2 W @F,": ",$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) S FP=FP+2 W @F,$E(PNT,1,$P(U2,U,9))
45 S FP=2403+F60 W @F,@F4,"TEST VOOR ",$P(U2,U,1)," IS VERWIJDERD  [] = ok ",@F5,@F0 R K G YZ
 ;
5 I '$L(K) S KD="-" G YZ
50 S KD=1 G 53:KT=7 S FP=2303+F60,KD=$P($T(T7),U,2) W @F,@F1,KD,!?2,$P($T(T7),U,3) S FP=FP+$L(KD)
51 W @F,"...",@F2,@F,@F0 R KD G YZ:KD="-",53:KD?1N!(KD?2N)!(KD?1","1N)!(KD?1","2N),51
53 S:'$P(KD,",",1) KD=($P(KD,",",2)+1-$L(K))_KD S:'$P(KD,",",2) KD=KD_","_(KD-1+$L(K))
55 G 51:$P(KD,",",2)<$P(KD,",",1)!($P(KD,",",1)<1)!($P(KD,",",2)>$P(U2,U,9))!($P(KD,",",2)-$P(KD,",",1)+1'=$L(K))
57 S U3=$E(PNT,1,$P(KD,",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P(KD,",",2)) G YZ
 ;
YZ Q
 ;