KSELV ;BEPALEN SELEKTIE VOOR LISTINGS (bepalen selektiekode) ;KSEL;Do van KSELD, KSELH, KSELI [ 10/26/2001  11:10 AM ]
 G 1
 ;
T1 ;SELEKTIE 
T2 ;ER BESTAAN ;SCHERMEN.
T3 ;WELK SCHERM : ;.[] = einde
T4 ;AANPASSEN SCHERM ;.[] = einde
T5 ;VOLGENS SELEKTIE : ;-[] = einde programma   .[] = eenmalige selektie   [] = standaardselektie
T6 ;EENMALIGE SELEKTIE
 ;
 ;
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 FP=155 W @F,$J("",5),@FMTB,$P($T(T6),U,2),@FMTb
 S X=$P(@("^"_Q_Q1_"(0,0)"),D,1),Y=100,SW3=0,K="" S:'$D(SELK) SELK=1
10 S Y=$N(^(Y)) I Y>0 S X=$P(^(Y),U,16)\100 S:X>SW3 SW3=X G 10
11 S SW4=0,PNT="........................................"
12 D S6 S KSL=K G YZ:K="-" I SW4,$D(A) G 17
13 S X=$P(@("^"_Q_Q1_"(0,0)"),D,1),Y=100
15 S X=SW4+'($N(^(SW4+1*100))=-1) G 16:X=SW4 S SW4=X G 15
16 S A(101)=^(101),A(102)=^(102)
17 I SW4=1 S U1=100 D S1
19 G 23:KSL="."
 ;
2 S R="K\2000\DE SELEKTIE\SL\SL1" D S4^KSELI G 12:K="-"
21 S I2=K,X1=$P(^(I2,0),D,1),X2=$P(^(0),D,2)
23 I SW4>1 S FP=270 W @F,@F1,@F5 S FP=254,K=$T(T2) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3)
24 S FP=455 W @F,@F2 W:$L(X1) $P($T(T1),U,2),X1 S FP=555 W @F,@F2 W:$L(X2) $E(X2,1,25)
25 I KSL'="." S I=0 F X=1:1 S I=$N(^(I)) Q:I=-1  S B(I)=^(I)
 ;
3 I $D(DefScr) S U4=DefScr I U4?1N,U4,U4'>SW4 K DefScr G 34
 S FP=2103+F60,K=$P($T(T3),U,2) W @F,@F1,!?2,K,!?2,$P($T(T3),U,3) S FP=FP+100+$L(K)
31 W @F,".",@F2,@F,@F0 R U4 G 37:U4=".",12:U4="-"
32 G 31:U4'?1N,31:'U4!(U4>SW4)
34 I SW5 S U1=101 D S2 S U1=102 D S2
35 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=601 W @F,@F1 D S3,S1 S FP=355 W @F,$P($T(T4),U,2),U4
36 S U1=SW2*100+2 D:SW5 S4 D ^KSELD G 3
37 K A S FP=255 S:SW4=1 FP=301 W @F,@F1
 ;
YZ K A,I2,Q2,Q3,SW2,SW4,SW5,X3,KSL,KSEL Q
 ;
S6 S SW2=0,SW5=1,FP=254 W @F,@F1 G S6B S FP=2203+F60,X=$P($T(T5),U,2) W @F,X,!?2,$P($T(T5),U,3),!?2,$P($T(T5),U,4) S FP=FP+$L(X)
S6A W @F,".",@F2,@F,@F0 R K G S6A:K?.E1C.E,S6A:$L(K)>1,S6A:"-."'[K
S6B S K="." I K="." S X1="",X2=""
S6Z Q
 ;
S1 S Y=$D(@("^"_Q_Q1_"(0,0)")),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K
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
 ;
S4 S FP=601 S:SW4=1 FP=2203+F60 W @F,@F1
S4A S U1=$N(A(U1)) I U1>0 D S2 G S4A
S4Z Q
 ;