Index: cA400.mac.rou
===================================================================
diff -u -r734 -r1864
--- cA400.mac.rou	(.../cA400.mac.rou)	(revision 734)
+++ cA400.mac.rou	(.../cA400.mac.rou)	(revision 1864)
@@ -6,7 +6,9 @@
  ;
 T0E ;Lokale variabelen -> ^error ;
  ;
-1 D ^cA105,^cA106
+1 
+ 
+ D ^cA105,^cA106
  S %(0)=DT_"\"_TD_"\Job "_$G(%("$J"),$J)_" Dev "_$G(%("$I"),$I)_"\"_$S($D(%)#10:%,1:$ZE)_"\"_$S($D(Q)#10:Q,1:"")_"\"_$G(%time)_";"_$H
  S %ZD=$S($ZV["MSM":$ZDEV($I),1:$I),%ZI=$I_"="_$G(io)_"="_$P(%ZD,"~")
  I '$G(%ZL) S %ZL=$ST-1 F %(3)=0:1:%ZL S %ZL(%(3))=$S($ST(%(3),"PLACE")="@":"*XECUTE*:",1:$ST(%(3),"PLACE"))_" "_$ST(%(3),"MCODE")
@@ -16,6 +18,13 @@
  S ^(.998)=$G(%ZM)
  S ^(.997)=$G(%ZI)
  S ^(.996)=$ECODE
+ 
+ new Info Set Info = ""
+ new ErrorNr set ErrorNr = $QS($ZR,1)
+ new ErrorGlobalRef set ErrorGlobalRef="^ERROR("_ErrorNr_")"
+ for  set ErrorGlobalRef=$Q(@ErrorGlobalRef) Quit:ErrorGlobalRef=""  Quit:$QS(ErrorGlobalRef,1)'=ErrorNr  Set Info = Info_$C(13,10)_$G(@ErrorGlobalRef)
+ set Info = Info_$C(13,10)_$C(13,10)_$$GetJobInfo^vhLib.System()
+ do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail($ZE,Info)
  ;
 2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500
  ;