cA403	;INTERNE FOUTBEHANDELING ;%A403;[ 05/17/01  10:46 AM ]
	;
T0	;Interne foutbehandeling ;
T1	;.[] = continue   -[] = end: .;Error: ;
	;
T0F	;Traitement des erreurs intern ;
T1F	;.[] = continue   -[] = end: .;Error: ;
	;
T0E	;Interne foutbehandeling ;
T1E	;.[] = continue   -[] = end: .;Error: ;
	;
1	S $ZT="ERR^"_$T(+0)
	I $ZV["MSM" U $P:(:::::1)
	I $ZV'["MSM" U $P:(:"")
	;
	I $ZE["<EDITED>",$ZE["^cA508" G ^cA508
	;
11	S %ZR=$ZR D E^cA612 I $D(F71) X F71
13	B 1 I '$D(F8) W !!!,$ZE G YZ
15  S %ZE=##class(TECH.ExceptionHandler).Catch().GeefOmschrijving()  I $ZV["MSM" S FP=124 W @FS
17	W /CUP(23,2),@F8,@F4,$P($T(@("T1"_QT)),";",3),%ZE," ",@F5
18	;I %ZE'["<INTERRUPT>" G YZ
19	W /CUP(24,2),$P($T(@("T1"_QT)),";",2),@F2,$C(8) R K G YZ:K="-"
	;
2	I K="." S:$L($G(MEMQMENU)) Q=MEMQMENU G ^cA508
21	G 19
	;
YZ	Q
	;
	; error in errortrap
ERR	S $ZT="ERRZ^"_$T(+0),%=$ZE D ^cA400
ERRZ	Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86