cT99(Q,BPC,SWANA,JOB)	       ;Job controle boekhouding ;%T99 ; [ 05/28/01  10:47 AM ]
	;
T0	;Job controle boekhouding ;
T1	;Job controle analytische boekhouding ;
	;
T0F	;Job contrôle comptabilité ;
T1F	;Job contrôle comptabilité analytique ;
	;
T0E	;Job controle boekhouding ;
T1E	;Job controle analytische boekhouding ;
	;
	; algemene initialisatie
1	S $ZT="TRAP^cAN000" I $G(JOB) S $ZT="^cA407" 
	I Q'?1.3U G YZ
11	I '$D(@("^"_Q_"BA(99,1)")) G YZ
13	S QN=^(1),D="\",U=";" D ^cA106,^cA105,QT^cQ5
15	L @("^"_Q_"CNTRL"):2 E  G YZ
	;
	; output to dummy file
2	S DEV=$$HFS^cQ9 I DEV<51!(DEV>54) G YZ:$ZV["MSM",27
21	S I=Q_"CNTRL.TXT"
23	O DEV:(I:"W"):2 E  G YZ
25	U DEV:(I:"W") G 3
27	S DEV="\\.\nul" O DEV::2 E  G YZ ; Caché = null device
29	U DEV
	;
	; benodigde variabelen
3	S I="CO" I $E($O(^cDEV(I)),1,2)'=I S I=" V"
31	S J=I F  S J=$O(^(J)) Q:$E(J,1,2)'=I  S @$E(J,3,9)=^(J)
33	D ^cT489 S BPA(0)=BPB,BPH=J3
35	I '$G(SWANA)!($G(SWANA)=2) S JOB=1 D 3^cT181
36	I $G(SWANA) S JOB=1 D 3^cT181A
37	C DEV
39	I '$G(SWANA)!($G(SWANA)=2) I $P($G(@("^"_Q_"CNTRL")),D,5)>0 D
	. S R="DVDW\"_DT D ^cA121
	. I DVDW=7 D D1006^cANEM0($T(+0),$P($T(@("T0"_QT)),U,2))
	;
4	I $G(SWANA) I $P($G(@("^"_Q_"CNTRLA")),D,5)>0 D
	. S R="DVDW\"_DT D ^cA121
	. I DVDW=7 D D1023^cANEM0($T(+0),$P($T(@("T1"_QT)),U,2))
	;
YZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08