KPEDSV(KS) ;TONEN VERDEELDE SUBGROEPEN ; [ 02/28/92  1:11 PM ]
 G 1
 ;
T1 ;    Hoofdgroep    | Groep         | Subgroep
T2 ;"";C;C;4;;\1;C;L;14;;| \2;C;L;14;;| \3;C;L;14;;
T3 ;Ontvangt omzet van
 ;
1 N HG,GR,SG K VD,VDL,KPED
 S SG="" F  S SG=$O(^KPSG1(SG)) Q:SG=""  D
 .S HG="" F  S HG=$O(^KPSG1(SG,HG)) Q:HG=""  D
 ..S GR="" F  S GR=$O(^KPSG1(SG,HG,GR)) Q:GR=""  D
 ...I $D(^(GR,KS)) S VD(HG_D_GR_D_SG)=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" D RL^PROC1
 S 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="SV"
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 15.12.88 - 16 u 59