KPEDVS(KS) ;TONEN VERDEELBARE SUBGROEPEN ; [ 02/28/92  1:10 PM ]
 G 1
 ;
T1 ;    Hoofdgroep    | Groep         | Subgroep
T2 ;"";C;C;4;;\1;C;L;14;;| \2;C;L;14;;| \3;C;L;14;;
T3 ;Geeft omzet aan
 ;
1 N HG,GR,SG K VD,VDL,KPED
 S (T,HG)="" F  S HG=$O(^KPSG1(KS,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^KPSG1(KS,HG,GR)) Q:GR=""  D
 ..S SG="" F  S SG=$O(^KPSG1(KS,HG,GR,SG)) Q:SG=""  S T=T+1,VD(T)=HG_D_GR_D_SG
 G YZ:'$D(VD)
 ;
2 S FP=1021 W @F,@F2,$P($T(T3),U,2)
 S DL(1)="VDL",VDL(1)="VD",VDL(2)=$P($T(T2),U,2,999),VDL(3)=12,VDL(4)=8,VDL(8)=$P($T(T1),U,2)
 D WL^PROC
 S KPED="VS"
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 15.12.88 - 16 u 59