KKAA2PV ;Nachtelijk VOORBEREIDEN REGIO/OMZET ANALYSE ;KKAA20A; Go van KKAA20A [ 10/31/2001  8:15 AM ]
 G 1
 ;
T1 ;31;28;31;30;31;30;31;31;30;31;30;31
 ;
1 S KL=$N(@Q0) G 2:KL=-1 S K=^(KL,0),KC=$P(K,D,1),KRE=$P(K,D,20) S:KRE="" KRE=0
 S KTYP=$P(^(1),D,25),KTYP=$S(KTYP=""!(KTYP=0):"Z",KTYP?1N:"H",KTYP="D":"C",1:KTYP)
11 S BP=$J(FBP-.01,0,2)_" ",PR=0
13 S BP=$N(@Q4) G 1:BP=-1!(BP]LBP) S K=^(BP) I BP=LBP S:'$D(RE(KRE)) RE(KRE)=""
15 S:'$D(@("^"_Q_"KAAM(BP,KRE)")) ^(KRE)=D S R=^(KRE),$P(R,D,1)=$P(R,D,1)+$P(K,D,3),$P(R,D,2)=$P(R,D,2)+$P(K,D,6),^(KRE)=R
 S:'$D(@("^"_Q_"KAAMA(BP,KTYP)")) ^(KTYP)=D S R=^(KTYP),$P(R,D,1)=$P(R,D,1)+$P(K,D,3),$P(R,D,2)=$P(R,D,2)+$P(K,D,6),^(KTYP)=R
19 G 13
 ;
2 S BP=-1 K TA
21 S BP=$N(@("^"_Q_"KAAM(BP)")) G YZ:BP=-1,25:BP#1*100'=7 S KRE=-1
23 S KRE=$N(TA(KRE)) I KRE'=-1 S TA(KRE)=D G 23
25 S KRE=$N(@("^"_Q_"KAAM(BP,KRE)")) G 3:KRE=-1 S K=^(KRE)
27 S:'$D(TA(KRE)) TA(KRE)=D S $P(TA(KRE),D,1)=$P(TA(KRE),D,1)+$P(K,D,1),$P(TA(KRE),D,2)=$P(TA(KRE),D,2)+$P(K,D,2) G 25
 ;
3 S DAT=$E(BP,1,4)_$E(BP,6,7)_$P($T(T1),U,BP#1*100+1) G 21:'$D(@("^"_Q_"KAAR(DAT)")) K ^(DAT)
31 S KRE=$N(TA(KRE)) G 21:KRE=-1 S @("^"_Q_"KAAR(DAT,KRE)")=TA(KRE) G 31
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 04.07.90 - 11 u 05