cT816	;Fin & div: k/l boeken ;%T80 ; [ 01/04/01  2:05 PM ]
	G 1
	;
T0	;Fin & div: k/l boeken ;
	;
T0F	;Fin + div: c/f comptabiliser ;
	;
T0E	;Financial & miscellaneous transactions: c/s register ;
	;
S1	S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A	F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B	S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C	S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D	S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E	I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z	K S1,S2 S (BC(0),BC(1))=0 Q
	;
S2	S K=K_OM_D_BPE_D_HBE_D_ADA1_D_FNR_D_SRT_D_OM1_D_D_D_ADA2_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_VM_D_BEF_D_PARF_D
S2A	S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
	;
	; GM 21.05.04 Extra cumuls
	D ECUM^cTA180("FI",BP,RB,BNR)
	;
S2Z	Q
	;
1	S X=$D(@Q3),N=^(I1,FNR),CO=$E("CDDC",K1="L"*2+1+(FC="C")) S:FC="W" FC="F",OB=BE
11	S:CO="D" UX=UX+BE,HUX=HUX+HBE S:CO="C" UX=UX-BE,HUX=HUX-HBE S BC(K1_FC="KF"!(K1_FC="LC"))=BE
15	S S1=OBF-BEF,S2=OB-BE,$P(N,D,5)=S1,$P(N,D,10)=$$BEDR^cAFE1(Q,S2,BF,$P(MNTO,D),"F")
16	I K1="L",$P(N,D,12) S $P(N,D,12)=$P(N,D,12)-BEF,$P(N,D,13)=$P(N,D,13)-$$BEDR^cAFE1(Q,BE,BF,$P(MNTO,D),"F")
17	I S1!S2 S ^(FNR)=N G 2
19	K ^(FNR),@Q6
	;
2	S (ADA1,ADA2,R)="" I K1="K" S R=DAT_D_$P(N,D,2) D ^cA326 S ADA1=R,R=DAT_D_$P(N,D,3) D ^cA326 S ADA2=R
21	S BNR=@Q93,@Q93=BNR+1 G 21:$D(@Q95),3:$L($P(N,D,14))
23	S X=$D(@Q3),X=$D(^(I1,0)),HIS=1 D S1 X:$D(KAS) KAS
25	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_K1_D_KC_"#"_KN_D D S2
27	S T(K1="L"*2+(CO="C"))=T(K1="L"*2+(CO="C"))+BE G 4
	;
3	S BR=$P(N,D,14),HIS=0,NMA=$P(@("^"_Q_"AR(BR,0)"),D,2) D S1 X:$D(KAS) KAS
31	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D D S2
33	K NMA S $P(@("^"_Q_"WI(FNR,0)"),D)=1
	;
4	D S6^cT809
	;
YZ	K ADA1,ADA2,CO,N Q
	;
ZZ	; 24.06.04 - 10 u 48 * V8