KKAA24 ;REGIO/OMZET ANALYSE PER MAAND ;KKAA23; Go van KKAA23
 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 W !,KL
11 S BP=$J(FBP-.01,0,2)_" ",PR=0
13 S BP=$N(@Q4) G 1:BP=-1!(BP]LBP) S K=^(BP) S:'$D(REG(BP,KRE)) REG(BP,KRE)=""
15 S $P(REG(BP,KRE),D,1)=$P(REG(BP,KRE),D,1)+$P(K,D,3),$P(REG(BP,KRE),D,2)=$P(REG(BP,KRE),D,2)+$P(K,D,6) G 13
 ;
2 S BP=-1
21 S BP=$N(REG(BP)) G YZ:BP=-1 S KRE=-1
23 S KRE=$N(REG(BP,KRE)) G 21:KRE=-1 S @("^"_Q_"KAAM(BP,KRE)")=REG(BP,KRE) G 23
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 13.01.90 -  9 u 10