dmERROR	; Errortrapping methods called from VB ;dmERROR ; [ 12/17/01  11:00 AM ]
	G 1
	;
LOG	; only log the var. in ^ERROR + generates an alert + quit
	n %dmQUIT
	S %dmQUIT=1
	G 1
	;
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 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=@%Q1
	D ^cA400
	S Q=$G(Q),QT=$G(QT),Q=$E(Q,1,$S(Q["[":10,1:3)),%2=$S($D(QN):QN,1:"ERROR")
	D MASTER^cQ5
	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)
	;
	I $G(%dmQUIT) Q
	;
YZ	ZQ 1 I $ZT'="" G @$ZT    ; to previous errortrap
	ZQ  Q                    ; no previous errortrap
	;
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
	S $ZT="ERRZ^"_$T(+0) D ALERT($G(%1,0))  ; VJ 17.12.01
ERRZ	H
	;
ZZ	; 18.05.04 - 15 u 49 * V8