KKAA21 ;NACHTELIJKE VOORBEREIDEN REGIO/OMZET ANALYSE ;KKAA20; Go van KKAA20 [ 09/28/92  5:01 PM ]
 G 1
 ;
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
11 S BP=$J(FBP-.01,0,2)_" ",PR=0 S:'$D(REG(KRE)) REG(KRE)=""
13 S BP=$N(@Q4) G 1:BP=-1!(BP]LBP) S K=^(BP)
15 S $P(REG(KRE),D,1)=$P(REG(KRE),D,1)+$P(K,D,3),$P(REG(KRE),D,2)=$P(REG(KRE),D,2)+$P(K,D,6)
19 G 13
 ;
2 S KRE=-1,DAT=DJ_DM_DD
21 S KRE=$N(REG(KRE)) I KRE'=-1 S @("^"_Q_"KAAR(DAT,KRE)")=REG(KRE) G 21
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 04.01.90 - 10 u 07