KKAA22 ;REGIO/OMZET ANALYSE ;KKAA22; [ 05/26/99  4:22 PM ]
 G 1
 ;
T1 ;REGIO   OMZ LIJSTPR   REELE OMZET        KORTING   KRT % 
T2 ;DATUM ONBEKEND  [] = ok 
T3 ;ONB
T4 ;TOT
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=502 W @F,@F4,$P($T(T1),U,2),@F5,@F7 S FP=401 W @F,@$P(FG,D,1) F I=1:1:54 W @$P(FG,D,9) W:"\7\20\33\47\"[(D_I_D) @$P(FG,D,5)
13 W @$P(FG,D,2) F L=5:1:15 F I=1,9,23,37,52,60 S FP=L*100+I W @F,@$P(FG,D,10)
15 S FP=1601 W @F,@$P(FG,D,7) F I=1:1:54 W @$P(FG,D,9) W:"\7\20\33\47\"[(D_I_D) @$P(FG,D,11)
17 W @$P(FG,D,6) F I=1,9,23,37,52,60 S FP=1700+I W @F,@$P(FG,D,10)
18 S FP=1801 W @F,@$P(FG,D,3) F I=1:1:54 W @$P(FG,D,9) W:"\7\20\33\47\"[(D_I_D) @$P(FG,D,8)
19 W @$P(FG,D,4),@F8
 ;
2 D S6 S R="K\21\3\DATUM\""onder de vorm dd.mm.jj   [] = "_DAT_"""\8\DCTR\\\" D R0 G YZ:K="-"
21 S:K="" K=DAT S FP=352 W @F,K
 S DAT=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(K),"DS"),D,"")
23 I '$D(@("^"_Q_"KAAR(DAT)")) S FP=2403 W @F,@F4,$P($T(T2),U,2),@F5,@F0 R K G 2
 ;
3 S REG=-1,L=6,T=0
31 S REG=$N(@("^"_Q_"KAAR(DAT,REG)")) G 4:REG=-1 S K=^(REG) F I=1,2 S $P(K,D,I)=$J($P(K,D,I),0,0),$P(T,D,I)=$P(T,D,I)+$P(K,D,I)
33 S L=L+1,FP=L*100+3 W @F,$S($D(^KSEKT(REG_" ")):$E(^(REG_" "),1,5),1:$P($T(T3),U,2))
35 S FP=L*100+11,R=$P(K,D,2)_"\11" W @F D R3 S FP=L*100+25,R=$P(K,D,1)_"\11" W @F D R3
37 S FP=L*100+39,KRT=$P(K,D,2)-$P(K,D,1),R=KRT_"\12" W @F D R3 S FP=L*100+53,R="0\6\\2" S:$P(K,D,2) R=KRT/$P(K,D,2)*100_"\6\\2" W @F D R3
39 G 31
 ;
4 F L=L+1:1:15 F I=1:1:5 S FP=L*100+$P("2\10\24\38\53",D,I) W @F,$J("",$P("7\13\13\14\7",D,I))
41 S FP=1703 W @F,$P($T(T4),U,2) S FP=1711,R=$P(T,D,2)_"\11" W @F D R3 S FP=1725,R=$P(T,D,1)_"\11" W @F D R3
43 S FP=1739,KRT=$P(T,D,2)-$P(T,D,1),R=KRT_"\12" W @F D R3 S FP=1753,R="0\6\\2" S:$P(T,D,2) R=KRT/$P(T,D,2)*100_"\6\\2" W @F D R3
45 G 2
 ;
YZ Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
S6 S DAT=$$EXTDATE^vhDTyp($H-1,"DKP")
 Q
 ;
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K)
 ;
Z X ^cZ Q
ZZ ; 02.01.90 -  8 u 39