cT841 ;Fin & div: autom. reeks ;%T80 ; [ 01/04/01  2:08 PM ]
 G 1
 ;
T0 ;Fin & div: autom. reeks ;
T1 ;Rekening : ;
 ;
T0F ;Fin + div: serie autom. ;
T1F ;Compte : ;
 ;
T0E ;Financial & miscellaneous transactions: autom. serie ;
T1E ;Account : ;
 ;
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
 ;
S4 S S3=2_$E(R5_$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 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
 ;
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,".") 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
 ;
1 S I2=0
11 S I2=$O(@("^"_Q_"FIA(I1,I2)")) G YZ:I2="" S R1=^(I2),BR=$P(R1,D),BRA=$P(R1,D,4),HBE=$P(R1,D,2) I 'HBE G 11
13 S FP=2103 W @F,@F1,$P($T(@("T1"_QT)),U,2),BR S NMA=$P(@Q41,D,2) W NMA
15 S CO="D" I HBE["-" S CO="C"
17 S FP=2160 W @F," " S R=HBE_D_13_D_D_HQD D R3 W CO
 ;
2 S HBE=$J(HBE,0,HQD),BE=$J(HBE*PAR,0,QD) X:$D(KAS) KAS
21 I CO="C" S UX=UX-BE,HUX=HUX-HBE
22 I CO="D" S UX=UX+BE,HUX=HUX+HBE
 ;
3 S BNR=@Q93,@Q93=BNR+1 I $D(@Q95) G 3
31 S RL="^"_Q_"AR(BR)" D S3
32 S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1 I '$L(BRA) G 39
33 S BC(CO="C")=BE,HIS=$P(@Q41,D,3),R5=BRA,HIS=1 D S4
34 S RL="^"_Q_"ARA(BRA)" D S3
25 S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(BRA,0)"),D,3) D S1
36 S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(BRA,0)"),D,3),R5=BR,HIS=1 D S4
39 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_D_SRT_D_OM1_D_BRA_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_PAR_D
 ;
4 S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K D S2,S6^cT809 G 11
 ;
YZ K I2,NMA,HBE,OM,OM1,BE,CO,R1,R2,R5,RSAL,RL Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84