cA407 ;FOUTBEHANDELING 'JOB'-PROGRAMMA'S ;%A407 ;do naar %A400 ; [ 01/05/01  11:55 AM ]
 ;
T0 ;Foutbehandeling 'job'-programma's ;
T1 ;Uw programma is afgebroken door een fout.;
T2 ;U kan verder werken met de ANDERE programma's.;
T3 ; - error in errortrap : ;
 ;
T0F ;Traitement erreurs 'job'-programma's ;
T1F ;Votre programme est interrompu par une faute.;
T2F ;Vous pouvez continuer avec les AUTRES programmes.;
T3F ; - error in errortrap : ;
 ;
T0E ;Errortrap 'job'-programs ;
T1E ;Your program is interrupted by an error.; 
T2E ;You can continue working with OTHER programs.; 
T3E ;Error in errortrap : ;
 ;
 ; opvangen van de fout
1 B 0 I $ZV'["MSM" S %ZTRAP=$T(+0)
 S %=$ZE,%ZR=$ZR,%UCI=$ZU(5),$ZT="ERR^"_$T(+0)
 ;
 ; loggen van de fout
 I '$D(%1) S %1="1 IN JOB-ERRORTRAP" I $D(%Q1),$D(@%Q1) S %1=^($I)
 S Q=$G(Q),QT=$G(QT),Q=$E(Q,1,$S(Q["[":10,1:3)),%2=$S($D(QN):QN,1:"ERROR") D ^cA400
 I %'["<DSCON>",$D(F80) W !!!,$P($T(@("T1"_QT)),";",2),!!,$P($T(@("T2"_QT)),";",2),$$FF^cA334
 I %'["<DSCON>" D
 . I $D(F71) X F71
 . D ALERT(%1)
 I '%1,%["<DSCON>" D ALERT(%1)
 ;
 D MASTER^cQ5 I $G(^cLOG(cs,"STAND-ALONE")) G YZ
 ;
YZ H
 ;
ALERT(%1)        ; verzenden alert
 I %1 D D1004^cANEM0($T(+0),$P($T(@("T0"_$G(QT))),";",2)) Q
 D D1005^cANEM0($T(+0),$P($T(@("T0"_$G(QT))),";",2)) Q
 Q
 ;
ERR S %=%_$P($T(T3),";",2)_$ZE D ^cA400 G YZ
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84