KSELJ G S4 ;BEPALEN SELEKTIE VOOR LISTINGS (synoniemenroutine voor openen selekties) ;KSEL;Quit naar KSELC [ 08/06/2002   8:43 AM ]
 ;
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 S FP=2403+F60 W @F,@F1,"NAAM VAN ",RA W:R0 "  [] = vervolg" W " : ",@F0
S4B R K G S4A:K?.E1C.E!(K?20N.N),S4A:K?.N&$L(K),S4Z:K="-" S:$L(K) R0=0 S FP=R4 W @F,@F1 I K="" S R1=R4 G S4H:R0,S4D
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))
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<(2100+F60) S R0=1 G S4A
S4K X ^cTXT(0,"N",8) R K
S4L S (R2,R0)=0 G S4A
S4Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 15.05.86
 ;