KKFI10 G 1 ;OVERZICHT UITZONDERINGEN ;KKFI1; Quit naar KKFI4 [ 06/25/2002  10:58 AM ]
 ;
T1 ;BLZ:
T2 ;UITZONDERINGEN
T3 ;:---------------------------------------:----:----:------:---:--------:--------:
T4 ;:Klassificatie:korttekst                :K1 %:K2 %:M aant: Lt:Geld van:Geld tot:
T16 ;INFO
 ;
1 D HD S HG=-1
11 S (HG,HGX)=$N(^KLPUTZ("N",KC,HG)) G 3:HG=-1 S GR=-1
13 S (GR,GRX)=$N(^KLPUTZ("N",KC,HG,GR)) G 11:GR=-1 S SG=-1
15 S (SG,SGX)=$N(^KLPUTZ("N",KC,HG,GR,SG)) G 13:SG=-1 S PR=-1
17 S (PR,PRX)=$N(^KLPUTZ("N",KC,HG,GR,SG,PR)) G 15:PR=-1 S NXT=-1
 I PR,$D(@("^"_Q_"PR(PR,0)")) S PRX=$P(^(0),D,1)
19 S NXT=$N(^KLPUTZ("N",KC,HG,GR,SG,PR,NXT)) G 17:NXT=-1
 S X=^(NXT),PK1=$P(X,D,1),PK2=$P(X,D,2),MAANT=$P(X,D,5),LEVWK=$P(X,D,6),GVAN=$P(X,D,7),GTOT=$P(X,D,8)
 ;
2 S LN=LN+1 I LN>56 W !?3,$P($T(T3),U,2),# D HD G 2
21 S:GRX=0 GRX="" S:SGX=0 SGX="" S:PRX=0 PRX=""
23 W !?3,":",$E(HGX,3,4),?7,$E(GRX,7,9),?11,$E(SGX,12,17),?17,":",PRX,?43,":"
25 W $J($$EXTNUM^vhDTyp(PK1,4,"",1),4),":",$J($$EXTNUM^vhDTyp(PK2,4,"",1),4),":",$J(MAANT,6),":",$J(LEVWK,3),":"
 W $J($$EXTDATE^vhDTyp(GVAN),8),":",$J($$EXTDATE^vhDTyp(GTOT),8),":"
 S (HGX,GRX,SGX,PRX)="" G 19
 ;
3 W !?3,$P($T(T3),U,2),#
 ;
YZ K HG,HGX,EXH,GR,GRX,EXG,SG,SGX,EXS,PR,PRX,PK1,PK2,X,I Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,$P(B(1),D,1)," ",$P(B(1),D,2)
HDA W !?3,TD F X=1:1:3 W $C(13),?30,$P($T(T16),U,2)
HDB W !!!
HDC F I=1:1:3 W $C(13),?30,$P($T(T2),U,2)
HDD W !?3,$P($T(T3),U,2),!?3,$P($T(T4),U,2),!?3,$P($T(T3),U,2)
HDZ Q
 ;