KPEWVS(KS) ;WIJZIGEN VERDEELBARE SUBGROEPEN ; [ 02/17/92  9:31 AM ]
 G 1
 ;
T1 ;    Hoofdgroep    | Groep         | Subgroep            | V
T2 ;"";C;C;4;;\1;C;L;14;;| \2;C;L;14;;| \3;C;L;20;;| \4;C;L;1;;
T3 ; Geen opnemende subgroepen voor 
T4 ;* = geeft omzet aan
 ;
O1 S K=$P($T(T3),U,2)_KS G OY
OY S FP=2404 W @F,@F1,@FMTI,K,@FMTi,@F0
OZ Q
 ;
DELETE S $P(VD(VDL(6)),D,4)="",R=VD(VDL(6)),HG=$P(R,D,1),GR=$P(R,D,2),SG=$P(R,D,3)
 D EL^PROC
 K ^KPSG1(KS,HG,GR,SG)
 Q
 ;
ADD S $P(VD(VDL(6)),D,4)="*",R=VD(VDL(6)),HG=$P(R,D,1),GR=$P(R,D,2),SG=$P(R,D,3)
 D EL^PROC
 S ^KPSG1(KS,HG,GR,SG)=""
 Q
 ;
1 N HG,GR,SG K VD,VDL
 S HG="" F  S HG=$O(HL(HG)) Q:HG=""  I $D(HL(HG,KS)) D
 .S SG="" F  S SG=$O(HL(HG,SG)) Q:SG=""  I SG'=KS,$D(^KPSG1(SG)),'$P(^(SG),D,5) D
 ..S GR="" F  S GR=$O(SL(SG,GR)) Q:GR=""  D
 ...S VD(HG_D_GR_D_SG)=HG_D_GR_D_SG_D_$S($D(^KPSG1(KS,HG,GR,SG)):"*",1:"")
 ;
 S DL(1)="VDL",VDL(1)="VD" D RL^PROC1
 S VDL(2)=$P($T(T2),U,2,999),VDL(3)=12,(VDL(6),VDL(7))=1,VDL(8)=$P($T(T1),U,2)
 S FP=1021 W @F,@F2 I $D(VD) W $P($T(T4),U,2)
 D WL^PROC
 I '$D(VD) D O1,IK^PROC1 Q
2 D SL^PROC
 I R="ENTER",$D(VD(VDL(6))) D @$S($P(VD(VDL(6)),D,4)="":"ADD",1:"DELETE")
 G 2:R'="-"
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 15.12.88 - 16 u 59