KPSELV G 1 ;BEPALEN SELEKTIE VOOR LISTINGS (bepalen selektiekode) ;KPSEL;Do van KPSELD, KPSELH, KPSELI, KPSELN [ 01/28/2003  4:21 PM ]
 ;
T1 ;SELEKTIE 
T2 ;ER BESTAAN ;SCHERMEN.
T3 ;WELK SCHERM : ;x[] = Scherm 1-7    ;.[] = einde;6[] = klassifikatie   ;5[] = leverancier   
T4 ;AANPASSEN SCHERM ;.[] = einde
T5 ;VOLGENS SELEKTIE : ;-[] = einde programma   .[] = eenmalige selektie   [] = standaardselektie
T6 ;KLASSIF.;LEVERANC.
T7 ;EENMALIGE SELEKTIE
 ;
1 S FP=155 W @F,$J("",5),@FMTB,$P($T(T7),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:KSL="-" I SW4,$D(A) G 17
13 S X=$P(@("^"_Q_Q1_"(0,0)"),D,1),Y=100
14 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 14
15 S SWK=$N(^(SW4+1*100))\100,SWL=0 I SWK S SWL=$N(^(SWK+1*100))\100
16 S A(101)=^(101),A(102)=^(102)
17 I SW4=1 S U1=100 D S1^KPSELG
19 G 23:KSL="."
 ;
2 S R="K\2000\DE SELEKTIE\SL\SL1" D S4^KPSELI 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,$P($T(T1),U,2),X1 S FP=555 W @F,@F2,$E(X2,1,25)
25 I KSL="." F I=1:1:SW3 S B(I)="\\\\\\\\\\\\\\\\\\\\\\\\\"
26 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 33
 I $D(DefScr) K DefScr I U4="K"!(U4="L") S:U4="K" U4=SWK S:U4="L" U4=SWL G 33
 S FP=2103+F60,K=$P($T(T3),U,2) W @F,@F1,!?2,K,!?2,$P($T(T3),U,3) W:SWK $P($T(T3),U,5) W:SWK!(SWL) !?2 W:SWL $P($T(T3),U,6) W $P($T(T3),U,4) S FP=FP+100+$L(K)
31 W @F,".",@F2,@F,@F0 R U4 S U4=$S(U4=5:"L",U4=6:"K",1:U4)
 G 37:U4=".",12:U4="-" S:U4="K" U4=SWK S:U4="L" U4=SWL
32 G 33:U4=SWK,33:U4=SWL,31:U4'?1N,31:'U4!(U4>SW4)
33 S FP=355 W @F,$P($T(T4),U,2),@F2 W:U4'>SW4 U4 W:U4>SW4 $P($T(T6),U,(U4=SWL)+2)
36 D ^KPSELG,@("^KPSEL"_$S(SW2>SW4:"N",1:"D")) G 3
37 K A S FP=255 S:SW4=1 FP=301 W @F,@F1
 ;
YZ K I2,Q2,Q3,SW2,SW4,SW5,X3,KSL 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
 ;