KKFI11 G 1 ;OVERZICHT PRODUKTEN ;KKFI1; Quit naar KKFI4 [ 09/29/93  3:10 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 K @("^"_Q_"HULP($J)")
11 S PR=0
13 S PR=$N(@("^"_Q_"STKL(KC,PR)")) G 46:PR=-1 S BP=$J(DJ-1_"."_DM-.01,0,2)_" ",X=^(PR,0)
14 G 13:$N(^(BP))=-1,13:$P(X,D,7),13:'$D(@("^"_Q_"PR(PR)"))
15 S X=^(PR,0),PC=$P(X,D,1),X=^(2),PID=$P(X,D,25) D SC
30 S X=$N(@("^"_Q_"PR(PR,""I"")")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=^(X) S HG=$P(X,D,1),GR=$P(X,D,2),SG=$P(X,D,3)
43 S X=@("^"_Q_"STKL(KC,PR,0)"),DLP=$P(X,D,1),(TPA,TPL)=0
45 S BP=$N(^(BP)) G 450:BP=-1 S X=^(BP),TPA=TPA+$P(X,D,1),TPL=TPL+$P(X,D,2) G 45
450 S @("^"_Q_"HULP($J,HG,GR,SG,PCC)")=PID_D_PC_D_TPA_D_TPL_D_DLP_D G 13
46 K BP,HG,GR,SG,PCC,PR,PID,PC,TPA,TPL,DLP I $D(@("^"_Q_"HULP($J)")) G ^KKFI12
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.02.89 - 11 u 25