Index: cA400.mac.rou
===================================================================
diff -u -r1868 -r1869
--- cA400.mac.rou	(.../cA400.mac.rou)	(revision 1868)
+++ cA400.mac.rou	(.../cA400.mac.rou)	(revision 1869)
@@ -19,12 +19,13 @@
  S ^(.997)=$G(%ZI)
  S ^(.996)=$ECODE
  
- new ErrorNr,Info
+ new ErrorNr,Error,Info
  set ErrorNr = $QS($ZR,1)
+ set Error = $ZE
  set Info = $$ArrayToText^vhLib($Na(^ERROR(ErrorNr)))
  set:$L(Info)>32000 Info=$E(Info,1,32000)_" <AFGEKAPT>"
  set Info=Info_$C(13,10)_$C(13,10)_"Device = "_$I
- do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail($ZE,Info)
+ do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail(Error,Info)
  ;
 2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500
  ;