Index: vhRES.mac.rou
===================================================================
diff -u -r734 -r2051
--- vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 734)
+++ vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 2051)
@@ -89,7 +89,7 @@
 EXEC(sTyp,sExecTxt,sRet,sParList,RtnErrHandler)
 EXEC2 Set:sExecTxt="" sExecTxt=$P(sTyp,"`",2,999),sTyp=$P(sTyp,"`")
  ;Set $ZTRAP=$S($D(RtnErrHandler):RtnErrHandler, 1:"ExecTrap^vhRES")
- Set $ZTRAP=$S($D(RtnErrHandler):RtnErrHandler, 1:$S($ZU(110)="CACHE01":"ExecTrap^"_$ZN,1:""))
+ Set $ZTRAP=$S($D(RtnErrHandler):RtnErrHandler, 1:"ExecTrap^"_$ZN)
  If sTyp="" Set:$L(sRet) @sRet="" Quit
  If sTyp="T" Set:$L(sRet) @sRet=sExecTxt Quit
  If sTyp="@" X "S "_sRet_"="_sExecTxt Quit
@@ -106,7 +106,7 @@
 ExecTrap
  New msg
  Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)
- Do WL^vhDBG(msg)
+ do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail("ExecTrap^vhRES",msg)
  Do:($D(MApplication)) MApplication.MessageBox(msg)   ; Foutmelding voor Makova
  Set:$L(sRet) @sRet=""
  Quit 1   ; Doorgeven errormelding