Index: cA400.mac.rou
===================================================================
diff -u -r1869 -r1873
--- cA400.mac.rou	(.../cA400.mac.rou)	(revision 1869)
+++ cA400.mac.rou	(.../cA400.mac.rou)	(revision 1873)
@@ -18,19 +18,20 @@
  S ^(.998)=$G(%ZM)
  S ^(.997)=$G(%ZI)
  S ^(.996)=$ECODE
- 
+  
+2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500
+ ;
+ ;D %A400^vhLVHERR
+ ;
  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(Error,Info)
- ;
-2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500
- ;
- ;D %A400^vhLVHERR
- ;
+ 
+ 
 YZ K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
  ;
 S1 S %(1)=%(1)+1,^(%(1))=%(2)