KPSELG G 1 ;BEPALEN SELEKTIE VOOR LISTINGS (tonen op het scherm) ;KPSEL;Quit naar KPSELF [ 10/26/2001  11:17 AM ]
 ;
S2 S SWX=1,U2=A(U1) K K,U3 G S2B:'$D(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16))) S (K,U3)=$P(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16)),D,1),KT=$P(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16)),D,2)
S2A S KD=$P(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$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)
S2B S FP=$P(U2,U,5)*100+$P(U2,U,6) I '$P(U2,U,23) S FP=FP-3 W @F,@F9,": "
S2C 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
S2D S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2E W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13))
S2F S:$D(U3) FP=FP-2 W @F W:$D(U3) $P("> \>=\= \< \<=\<>\x=\x=",D,$P(B($S(SW2>SW4:$P("I\J",D,(SW2=SWL)+1),1:"")_$P(U2,U,16)),D,2)),U3 W:'$D(U3) $E(PNT,1,$P(U2,U,9))
S2Z K SWX Q
 ;
1 I SW5 S U1=101 D S2 S U1=102 D S2
11 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=601 W @F,@F1 D S3,S1
13 S U1=SW2*100+2 D:SW5 S4
 ;
YZ 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
 ;