KKOV6 G 1 ;BEHEER KONKURENTIEOVERZICHT (MODULE VERWIJDEREN LIJN);KKOV1;Quit naar KKOV4
 ;
T1 ;  [] = ok 
T2 ; Lijn niet verwijderbaar
 ;
O1 S K=$P($T(T2),U,2) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,$P($T(T1),U,2),@FMTi,@F0 K IK D IK^PROC1
OZ Q
 ;
1 S SW12=1 I L(6),'$D(LN(L(6))) G YZ
11 I $L($P(LN(L(6)),D,8)) D O1 G YZ
13 S FP=2303 W @F,@F1,"V = verwijderen   - = hernemen : ."
15 K IK D IK^PROC1 S K=R G 15:"-V"'[K,YZ:K="-"
 ;
2 S K=LN(L(6)),HG=$P(K,D,26),GR=$P(K,D,27),FAC=$P(K,D,14),VEC=$P(K,D,15) K ^KKOV(KC,HG,GR,+VEC,+FAC)
21 G 3:HG'=" " I $D(^KKOV(KC,HG)) S GR=$N(^(HG,GR)) S:GR=-1 GR=$N(^(GR)) S K=" \"_GR_"\0\0" G 51
23 S K="" G 51
 ;
3 G 4:GR=0 S R=^KKOV(KC,HG,0,0,0) I '$L($P(R,D,8)) S K=HG G 5
31 G 4:$N(^KKOV(KC,HG,0))=-1
33 F I=3,12,16 S $P(R,D,I)=$P(R,D,I)-$P(K,D,I)
35 S $P(R,D,6)=$J($P(R,D,16)/$S($P(R,D,3):$P(R,D,3),1:1),0,2),^KKOV(KC,HG,0,0,0)=R,K=HG G 5
 ;
4 K ^KKOV(KC,HG) S K=$N(^(HG)) I K=-1 S K=$N(^(100))
 ;
5 I K'=-1 S K=K_"\0\0\0"
51 D ^KKOV5
 ;
YZ K HG,GR,VEC,FAC Q
 ;
 Q
Z X ^cZ Q
ZZ ; 09.01.92 - 10 u 02