cA406	;FOUTBEHANDELING 'JOB'-PROGRAMMA'S ;%A406; Do van %A400 [ 01/04/01  2:20 PM ]
	;
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 d'erreurs des 'job'-programmes ;
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)
	; I '$D(%1) S %1="1 IN JOB-ERRORTRAP" I $D(%Q1),$D(@%Q1) S %1=^($I)
	; KU : 14.01.03
10	I '$D(%1) S %1="1 IN JOB-ERRORTRAP" I $D(%Q1),$D(@%Q1) S %1=@%Q1
11	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
12	I %'["<DSCON>" D
	. W !!!,$P($T(@("T1"_QT)),";",2),!!,$P($T(@("T2"_QT)),";",2),$$FF^cA334
	. I $D(F71) X F71
	. D ALERT(%1)
13	I '%1,%["<DSCON>" D ALERT(%1)
	;
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	W !!?2,$P($T(@("T3"_QT)),";",2),$ZE,$$FF^cA334 S %=%_" + "_$ZE,%1=0 D ^cA400 G 13
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94