cA405VRC	;FOUTBEHANDELING ;%A405; Do van %A400,%Q6, Go naar %A501VRC [ 02/07/02  10:10 AM ]
	;
T0	;Foutbehandeling ;
T1	;Fout in programma! ;
T2	;[] = verder werken ;Code>;
T3	;<DBOVF><DKRES><FILEFULL><SYSTEM>;
T4	;Fout in fout-prog: ;
T5	;Gestopt door ... ;
T6	;<DDPER><NETWORK><NOSYS><NAMESPACE>;
T7	;De computer in ; is niet bereikbaar.;
	;
T0F	;Traitement des erreurs ;
T1F	;Erreur de programme;
T2F	;[] = continuer     ;Code>;
T3F	;<DBOVF><DKRES><FILEFULL><SYSTEM>;
T4F	;Error dans erreur :;
T5F	;Arrêté par ... ;
T6F	;<DDPER><NETWORK><NOSYS><NAMESPACE>;
T7F	;L'ordinateur à ; n'est pas accesible.;
	;
T0E	;Errortrap ;
T1E	;Error in program! ;
T2E	;[] = continue ;Code>;
T3E	;<DBOVF><DKRES><FILEFULL><SYSTEM>;
T4E	;Error in errortrap: ;
T5E	;Stopped by ... ;
T6E	;<DDPER><NETWORK><NOSYS><NAMESPACE>;
T7E	;The computer in ; is not accessible.;
	;
	; opvangen van de fout
1	B 0 I $ZV["MSM" U $P:(:::::1)
	I $ZV'["MSM" U $P:(0:"") S %ZTRAP=$T(+0)
	S %=$ZE,%ZR=$ZR,%UCI=$ZU(5),$ZT="ERR^"_$T(+0)
	;
	; terug naar menu?
	I $ZE["<EDITED>",$ZE["^cA501" G 4
	I %["<INTERRUPT>" W $$FF^cA334 X F71 U $P H 2 G 4
	;
	; loggen van de fout
	F %2=1:1 S %3=$P("F\F1\F4\F5\F71\F8\FS","\",%2) Q:'$L(%3)  I '$D(@%3) S @%3=$S($D(^cDEV(" V"_%3)):^(" V"_%3),1:"")
	I $G(QW) D E^cA612
	S (%Q,Q)=$G(Q),QT=$G(QT) S:'$D(%1) %1="0 in errortrap"
	I $D(%Q1),$D(@%Q1) S %1=@%Q1
	; I %'["<NETWORK>",%'["<NOSYS>",$D(%Q1),$D(@%Q1) S %1=^($I)
	; KU : 14.01.03
	I %'["<NETWORK>",%'["<NOSYS>",$D(%Q1),$D(@%Q1) S %1=@%Q1
	I %'["<DSCON>" D
	. W $$CR^cA334 X F71 U $P:20 W /CUP(4,1),@F4
	. I $P($T(@("T6"_QT)),";",2)[$P(%,">") D
	.. W $P($T(@("T7"_QT)),";",2) S %2=$NA(@%ZR,0),%2=$TR(%2,"[]","||")
	.. S %2=$TR($S(%ZR["|":$P(%ZR,"|",2),1:$E(%ZR,3,11)),"""")
	.. W $G(^LOGTAB(0,"location",%2),%2),$P($T(@("T7"_QT)),";",3)
	. E  W "Job ",$J,", Dev ",$I,!,$P($T(@("T1"_QT)),";",2),!,%,!
	. W @F5
	. D ALERT(%1)
	I '%1,%["<DSCON>" D ALERT(%1)
	I $P($T(@("T3"_QT)),";",2)[$P(%,">") S %1=0 G 2
	D ^cA400 H:%["<DSCON>"  I QS["|" S QS="" K Q("QS")
	;
2	S %2=$S($D(QN):QN,1:"ERROR")
	W !,@F4,$$CR^cA334,$P($T(@("T2"_QT)),";",3-%1),@F5
	;
3	U $P R %2 D ^cA106 G 4:%2=(DD_DM_DJ#$H) I %2=(DD_DM_DJ#$H\2) B 1 S $ZT="" X ^c G YZ
	G 3:'%1,4:%2="",3
	;
4	D OUT S K=0 I '$D(F) D QQM^cQ6,^cA500SC
	G ^cA501VRC:'K
	;
YZ	D OUT Q
	;
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
	;
	; back to the roots
OUT	I $L($G(QRVG)),QRVG'=$ZU(5) D IN^cQMSMSW(QRVG)
	I $L($G(MEMQMENU)) S Q=MEMQMENU
	S QRVG="",QN=$G(@("^"_Q_"BA(99,1)"))
	Q
	;
	; error in errortrap
ERR	S %Z0=$S($D(%):%,1:""),%=$ZE I $ZV'["MSM" S %ZTRAP="ERR^"_$T(+0) I $ZU(5)="%SYS" Q
ERRA	I %["<INTERRUPT>" S %="Stopped in "_$P($P(%Z0,"^",2),":") D ^cA400 U $P W !!?2,$P($T(@("T5"_QT)),";",2),! H
	I %["<DSCON>" S %="Disconnected in "_$P($P(%Z0,"^",2),":") D ^cA400 H
ERRB	U $P W !!?2,"Job ",$J,", Dev ",$I,", ",$P($T(@("T4"_QT)),";",2),%
ERRZ	D KON^cQ4 W " ",$C(7) D ^cA400 S %1=0 G 3
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08