cT99(Q,BPC)        ;Job controle boekhouding ;%T99 ; [ 05/28/01  10:47 AM ]
 ;
T0 ;Job controle boekhouding ;
 ;
T0F ;Job contrôle comptabilité ;
 ;
T0E ;Job controle boekhouding ;
 ;
 ; algemene initialisatie
1 S $ZT="TRAP^cAN000" 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=$$INFO^cQ5 O DEV:("WNS"):2 E  G YZ ; Caché
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 S JOB=1 D 3^cT181
37 C DEV
39 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))
 ;
YZ Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87