Index: vhRES.mac.rou
===================================================================
diff -u -r2051 -r2162
--- vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 2051)
+++ vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 2162)
@@ -104,9 +104,10 @@
  Quit
  
 ExecTrap
- New msg
- Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)
- do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail("ExecTrap^vhRES",msg)
+ New msg,Exception
+ set Exception = ##class(TECH.ExceptionHandler).Catch()
+ Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)_$char(13,10)_Exception.ToString()
+ do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail("ExecTrap^vhRES : "_Exception.GeefOmschrijving(),msg)
  Do:($D(MApplication)) MApplication.MessageBox(msg)   ; Foutmelding voor Makova
  Set:$L(sRet) @sRet=""
  Quit 1   ; Doorgeven errormelding