Index: cA400.mac.rou
===================================================================
diff -u -r1873 -r2018
--- cA400.mac.rou	(.../cA400.mac.rou)	(revision 1873)
+++ cA400.mac.rou	(.../cA400.mac.rou)	(revision 2018)
@@ -4,6 +4,8 @@
  ;
 T0F ;Variables locales -> ^error ;
  ;
+#include vhLib.Macro
+ 
 T0E ;Lokale variabelen -> ^error ;
  ;
 1 
@@ -23,6 +25,8 @@
  ;
  ;D %A400^vhLVHERR
  ;
+ set $ztrap="TRAP"
+ 
  new ErrorNr,Error,Info
  set ErrorNr = $QS($ZR,1)
  set Error = $ZE
@@ -31,8 +35,14 @@
  set Info=Info_$C(13,10)_$C(13,10)_"Device = "_$I
  do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail(Error,Info)
  
- 
 YZ K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
+ 
+TRAP
+	set $zt=""
+	set Info="Error in trap : "_$ZE_$$$CRLF_$$$CRLF_"Oorspronkelijke foutmelding :"_$$$CRLF_$G(Info)
+	do SendMiniMail^vhLib($$$SystemMail("cA400"),$lb("ICT_SysOp@vanhoecke.be"),"Error in error handling",$G(Info))
+	K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
+	quit
  ;
 S1 S %(1)=%(1)+1,^(%(1))=%(2)
  F %(3)=1:1:99 S %(4)=$E(@%(2),%(3)-1*250+1,%(3)*250) Q:(%(3)>1)&'$L(%(4))  S ^(%(3)/100+%(1))=%(4)