cT370	;FINANCIEEL VIA ^HULPF(HULPF) ;%T37 ; [ 03/23/94  10:13 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
	;
S5	S R2=$P(VERBOT,D,R1+2),RLOCK=HLOCK_",^"_Q_"AR(R2)" D S3
S5A	S K=$O(@("^"_Q_"AR(R2,0)")),R=RFIN,RBC(0)=RZ(R1,0),RBC(1)=RZ(R1,1),RHIS=0 D S1,S2
S5Z	Q
	;
1	S:'$D(HLOCK) HLOCK="" D S2 S (RLLLL,RLOCK)=HLOCK S:$L(RLOCK) RLOCK=RLOCK_","
11	S RLOCK=RLOCK_"^"_Q_"BA(4,RFIN),^"_Q_"FI(BP,RFIN)" D S3 S HLOCK=RLOCK D S2
13	S @%Q1=0 I 'RUIT S RUIT=$S($D(@("^"_Q_"BA(4,RFIN,DJ)")):+^(DJ),1:0)+1,$P(^(DJ),D)=RUIT
15	S K=$E(RDAT,7,8) S:K<50 K=K+100 S RI3=1900+K_$E(RDAT,4,5)_$E(RDAT,1,2) I '$D(@("^"_Q_"BA(4,RFIN,RI3)")) S ^(RI3)=RI3_"0001"
17	S (RBC(0),RBC(1))=0 G 2:$E(RFIN)="D" S RLOCK=HLOCK_",^"_Q_"AR(RFINS)" D S3
19	S K=$O(@("^"_Q_"AR(RFINS,0)")),R=RFIN,RBC(RCD="C")=RTB,RHIS=0 D S1,S2
	;
2	S RHULP=0 F R1=0:1:3 F R2=0,1 S RZ(R1,R2)=0
21	S RHULP=$O(^HULPF(HULPF,RHULP)) G 3:RHULP="" S R0=^(RHULP),RVW=$P(R0,D),RBB=$P(R0,D,5),RXX=$P(R0,D,6),RFNR=$P(R0,D,13)
23	S R1=$P(R0,D,7),R2=$P(R0,D,8),R3=$P(";AR;KL;LE",U,$F("AKL",R1)),R4=$P(";R1;K1;L1",U,$F("AKL",R1))
25	S RI1=$S(R3="AR":$P(R2," ")_" ",1:@("^"_Q_R4_"(R2)")),RNAM=$P(@("^"_Q_R3_"(RI1,0)"),D,2)
27	S RBNR=@("^"_Q_"BA(4,RFIN,RI3)"),^(RI3)=RBNR+1 I $D(@("^"_Q_"FI(BP,RFIN,RBNR)")) G 27
28	S ^(RBNR)=D_RDAT_D_RUIT_D_RAFK_D_$P(R0,D,5,8)_"#"_RNAM_D_$P(R0,D,9,13)_D_RSRT_D_$P(R0,D,15)_D
29	D @("^cT37"_RVW) K ^HULPF(HULPF,RHULP) 
	;
	; GM 21.05.04 Extra cumuls
	D ECUM^cTA180("FI",BP,RFIN,RBNR)
	;
	G 21
	;
3	F R1=0:1:3 I RZ(R1,0)!RZ(R1,1) D S5
	;
4	S RLOCK=HLOCK_",^HULPF(0)" D S3 K ^HULPF(HULPF)
41	I $O(^(HULPF))="" S ^(0)=HULPF
43	I $O(^(0))="" S ^(0)=1
45	S HLOCK=RLLLL D S2
47	S OK=1,@("^"_Q_"BA(BP,112)")=$H,^(RFINS)=$H
	;
5	K R,R0,R1,R2,R3,R4,RZ,RBF,RDAT,RUIT,RFIN,RFINS,RSRT,RTB,RCD,RVW,RBB,RXX,RFNR,RLOCK,RLLLL,RBC,RHIS,RAFK,RNAM,RHULP
51	K RI1,RI3,RBNR,BP,BJ,BM,BH,BX,VERBOT
	;
YZ	S @%Q1=1 Q
	;
Z	X ^cZ Q
ZZ	; 19.03.07 - 15 u 31 * V8.08