KKOV4 G 1 ;REGISTRATIE KONKURENTIEOVERZICHT (SELEKTIE MODULES);KKOV1;Quit naar KKOV1 [ 09/27/95  11:13 AM ]
 ;
K1 F I=1:1:3 W:$L($P(USC,U,I)) !,?2,$P(USC,U,I)
K1Z Q
 ;
S0 S SW12=1
S0Z Q
 ;
1 K A,B,U7 G YZ:K="," S @%Q1=1,UZ=@("^"_Q_UGL_"(KC,0)")-100,SW12=0,FP=$P(UD,D,2)+1*100+1,UUV=""
3 S FP=+USM*100+3 W @F,@F1,$P(USM,U,3)," : ." D K1
4 S DL(1)="L" D SL^PROC S:R="ENTER" R="" S K=R G YZ:K="-"!(K=",") X "S R="_$P(USM,D,2) G 4:'R S UMM=K
9 S UMM=$P(USM,D,(K?1N.N1"D")*4+($L(K)'=1&(K'?1N.N1"D")!(K?1N)*3)+$F($P(USM,"""",2),K)),FP=$P(UD,D,2)+1*100+1 W @F,@F1 D @UMM G YZ:K=",",1:K="-"!(SW12),15:UUV'=""
10 I UL>$P(UD,D,2) S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=UD*100+1 W @F,@FDL
11 S X=0,FP=UL*100+1 W @F,@F1 I $D(UC),$D(@("^"_Q_"PR(UC,0)")) S UC=$P(^(0),D,1)
12 S X=X+1,UP=$P(UUM,D,X) G 14:UP="",12:'$D(@$P(UP,U,1)) I $L($P(UP,U,4)) X "S @$P(UP,U,1)="_$P(UP,U,4)
120 S FP=UL*100+1+$P(UVV,",",$P(UP,U,2)) W @F I $P(UP,U,3)="L" W @$P(UP,U,1) K @$P(UP,U,1) G 12
13 W $J(@$P(UP,U,1),$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1) K @$P(UP,U,1) G 12
14 X UV S UVN=@("^"_Q_UGL_"(KC,0)"),UL=UL+1
15 S (T,@%Q1)=0
16 S T=T+100 G 1:$N(B(T))=-1 S UVN=@("^"_Q_UGL_"(KC,0)"),^(0)=UVN+1 S:T>100 B(T+19)=UVN-1 S:$N(B(T+100))'=-1 B(T+18)=UVN+1
17 S U7="" F I=1:1:25 S:$D(B(T+I)) U7=U7_B(T+I) S U7=U7_D
18 S @("^"_Q_UGL_"(KC,UVN)")=U7 G 16
 ;
YZ Q
 ;
RPLKL 
 New R
 Set SW12=1
 Do STORE^vhTERMINA()
 Set R=$$RAADPL^KLANT(KC,"Q")
 Do REFRESH^vhTERMINA()
 Quit
 ;
 Q
Z X ^cZ Q
ZZ ; 16.09.91 - 13 u 09