cT845 ;Fin & div: vwerk anal. ;%T80 ; [ 01/04/01  2:09 PM ]
 G 1
 ;
T0 ;Fin & div: vwerk anal. ;
 ;
T0F ;Fin & div: trait.anal. ;
 ;
T0E ;Financial & miscellaneous transactions: proc. anal. ;
 ;
 ; gewone historieken
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 L @Q93
S2Z Q
 ;
S3 L +@RL:2 E  S R=14 D F2 W @F,@F1 G S3
S3Z Q
 ;
 ; analytische historieken
S4 S S3=2_$E(RR5_$J("",7),1,7)_(BP*100),S4=0 I HIS S S1="B"_RB_"#"_BNR_D G S4B
S4A S S1=S3_"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 S4Z
S4B S S4=S4+.01,S2=S3_S4 S:S4=1 HIS=0 D ^cTA00:'HIS G S4A:'HIS,S4B:$D(^(S3_(S4+.01))) S:'$D(^(S2)) ^(S2)=""
S4C I ^(S2)'[S1 G S4B:$L(^(S2))+$L(S1)>255 S ^(S2)=^(S2)_S1
S4Z K S1,S2,S3,S4 S (BC(0),BC(1))=0 Q
 ;
1 S RR2="",(BC(0),BC(1))=0,RR3=BE,RR4=HBE
11 S RR2=$O(^HULPE(HULPE,RR2)) G YZ:RR2="" S RR1=^(RR2),BE=$P(RR1,D),HBE=$P(RR1,D,2)
13 S BNR=@Q93,@Q93=BNR+1 I $D(@Q95) G 13
 ;
2 S RL="^"_Q_"AR(BR)" D S3
21 S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1
23 S BC(CO="C")=BE,HIS=$P(@Q41,D,3),RR5=RR2,HIS=1 D S4
25 S RL="^"_Q_"ARA(RR2)" D S3
27 S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(RR2,0)"),D,3) D S1
29 S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(RR2,0)"),D,3),RR5=BR,HIS=1 D S4
 ;
3 I CO="C" S UX=UX-BE,HUX=HUX-HBE I $D(SW) S KX=KX+HBE
31 I CO="D" S UX=UX+BE,HUX=HUX+HBE I $D(SW) S KX=KX-HBE
33 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HBE_D_D S:$D(SW) K=K_FNR
 S K=K_D_SRT_D_OM1_D_RR2_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_PAR_D,$P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
 ;
4 I '$G(NOTSHOW) D S6^cT809     ; NOTSHOW vanuit %T892
41 G 11
 ;
YZ S BE=RR3,HBE=RR4 D S2 G Y^cT844
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84