KSELE G 1 ;VERWIJDEREN SELEKTIES VOOR LISTINGS (bepalen scherm + tonen rubrieken) ;KSEL; [ 08/06/2002   8:43 AM ]
 ;
T1 ;SELEKTIE 
T2 ;,[] = hernemen   V[] = verwijderen : 
T3 ;,[] = hernemen   V[] = DEFINITIEF verwijderen : 
 ;
 ;
S2 S U2=A(U1) K K,U3 I $L($P(U2,U,16)),$D(B($P(U2,U,16))) S (K,U3)=$P(B($P(U2,U,16)),D,1),KT=$P(B($P(U2,U,16)),D,2),KD=$P(B($P(U2,U,16)),D,3) S:KT>6 U3=$E(PNT,1,$P(KD,",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P(KD,",",2)) I $L($P(U2,U,8)),KT<7 X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) I '$P(U2,U,23) S FP=FP-3 W @F,@F9,": "
S2B I SW5 S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2D W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13))
S2E S:$D(U3) FP=FP-2 W @F W:$D(U3) $P("> \>=\= \< \<=\<>\x=\x=",D,$P(B($P(U2,U,16)),D,2)),U3 W:'$D(U3) $E(PNT,1,$P(U2,U,9))
S2Z Q
 ;
1 S U=";",SW5=1,PNT="........................................",U1=100 D S1
11 G 23
 ;
21 S SW5=0
23 S R="K\2000\DE SELEKTIE\SL\SL1" D S4 G YZ:K="-"
25 S I2=K,X1=$P(^(I2,0),D,1),X2=$P(^(0),D,2),FP=455 W @F,@F2,$P($T(T1),U,2),X1 S FP=555 W @F,@F2,$E(X2,1,25)
26 K B S I=0 F X=1:1 S I=$N(^(I)) Q:I=-1  S B(I)=^(I)
28 L @("^"_Q_"SL1(Q1,X1)"):2 E  S FP=2403+F60 W @F,@F4,$P($T(T1),U,2),X1," IS IN GEBRUIK  [] = ok ",@F5,@F2,@F0 R K G 23
29 S U1=$N(A(U1)) I U1>0 D S2 G 29
 ;
3 S FP=2203+F60 W @F,$P($T(T2),U,2),@F1,@F0 R K G 21:K="-"!(K=","),3:K'="V"
35 S FP=2303+F60 W @F,$P($T(T3),U,2),@F2,@F0 R K G 21:K="-"!(K=","),35:K'="V"
37 S @%Q1=0 K @("^"_Q_"SL(Q1,I2)"),@("^"_Q_"SL1(Q1,X1)") S @%Q1=1
39 S K=$P($T(T1),U,2)_X1 X ^cTXT(0,"N",76) R K G 21
 ;
YZ Q
 ;
S4 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
S4A X ^cTXT(0,"N",15)
S4B R K G S4A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G S4Z:K="-" I K="" S R1=R4 G S4H:R0,S4D
S4C G S4D:K'?.N,S4K:'$D(@(R9_"(Q1,K)")) S R3=^(K) I $D(@(R8_"(Q1,R3)")) G S4M
S4D S R6=$$UPTRIMAN^vhRtn1(K)
S4E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(Q1,R2)")) G S4K:R2=-1 S R2=$N(^(R2))
S4F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G S4M
S4G S R2=R5
S4H S R2=$N(@(R8_"(Q1,R2)")) G S4K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G S4L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G S4A
S4I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$P(^(0),D,2)
S4J S R1=R1+100 G S4H:R1<(2300+F60) S R0=1 G S4A
S4K X ^cTXT(0,"N",8) R K
S4L S (R2,R0)=0 G S4A
S4M S (@$P(R,D,1),K)=R3
S4Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 23.05.85
 ;
S1 S Y=$D(@("^"_Q_Q1_"(0,0)")),Y=200,(X,K)=100
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;