cT377 ;FINANCIEEL VIA ^HULPF(HULPF) ;%T37 ; [ 03/23/94  10:55 AM ]
 G 1
 ;
T0 ;Financieel via ^hulpf(hulpf) ;
T1 ;De bestanden zijn in gebruik ... even geduld ... ;
 ;
T0F ;Financier par ^hulpf(hulpf) ;
T1F ;Les fichiers sont en usage ... veuillez patienter ... ;
 ;
T0E ;Financieel via ^hulpf(hulpf) ;
T1E ;De bestanden zijn in gebruik ... even geduld ... ;
 ;
S1 S RS2=D,$P(RS2,D,23)=D F RS1=BJ:.01:BJ+.02 I '$D(^(RS1)) S ^(RS1)=RS2
S1A F RS2=0,1 I $D(RBC(RS2)),RBC(RS2) S RS1=RS2*.02+BJ,$P(^(RS1),D,BX)=$P(^(RS1),D,BX)+RBC(RS2)
S1B S BH=BH\1 D:BPE @BPEC I RHIS S RS1="B"_R_"#"_RBNR_D G S1D
S1C S RS1=BH_"B"_R,RS2=$S($D(^(RS1)):^(RS1),1:D),^(RS1)=RUIT_D_RDAT_D_($P(RS2,D,3)+RBC(0))_D_($P(RS2,D,4)+RBC(1))_D_$P(RS2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 RHIS=0,BH=BH-1 D ^cT00:'RHIS G S1C:'RHIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[RS1 G S1D:$L(^(BH))+$L(RS1)>255 S ^(BH)=^(BH)_RS1
S1Z K RS1,RS2 S (RBC(0),RBC(1))=0 Q
 ;
S2 I $L(HLOCK) L @("("_HLOCK_"):2") E  D S4 G S2
S2A S FP=2401+F60 W @F,@F1 I '$L(HLOCK) L
S2Z Q
 ;
S3 L @("("_RLOCK_"):2") E  D S2,S4 H 2 W @F,@F1 G S3
S3Z Q
 ;
S4 S FP=2402+F60 W @F,@F4,$P($T(@("T1"_QT)),U,2),@F5,@F1
S4Z Q
 ;
 ; RVW=7 : BOEKEN OP REKENING
 ;
1 S RLOCK=HLOCK_",^"_Q_R3_"(RI1)" D S3
11 S RHIS=+$P(@("^"_Q_R3_"(RI1,0)"),D,3)
15 S R=RFIN,RBC(RXX="C")=RBB D S1,S2
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84