Index: cA400.mac.rou
===================================================================
diff -u -r1864 -r1868
--- cA400.mac.rou	(.../cA400.mac.rou)	(revision 1864)
+++ cA400.mac.rou	(.../cA400.mac.rou)	(revision 1868)
@@ -19,11 +19,11 @@
  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()
+ new ErrorNr,Info
+ set ErrorNr = $QS($ZR,1)
+ 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)
  ;
 2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500