cA400 ;LOKALE VARIABELEN -> ^ERROR ;%A400; Do uit %A220,%A405, Do van %A105,%A106 [ 07/30/01  10:51 AM ]
 ;
T0 ;Lokale variabelen -> ^error ;
 ;
T0F ;Variables locales -> ^error ;
 ;
T0E ;Lokale variabelen -> ^error ;
 ;
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")
 S:'$D(^ERROR(0)) ^ERROR(0)=1 S %(1)=^(0),^(0)=%(1)+1 K ^ERROR(%(1))
 S ^ERROR(%(1),0)=%(0),%(1)=0,%(2)="%"
 S ^(.999)=$G(%ZL) F %(3)=0:1:$G(%ZL) S ^(%(3)+1/1000)=$E($G(%ZL(%(3))),1,252)
 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
 ;
 ;D %A400^vhLVHERR
 ;
YZ K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
 ;
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)
S1Z Q
 ;
S2 S %(5)=%(2),%(2)=%(2)_"("""")" F  S %(2)=$Q(@%(2)) Q:%(2)=""  D S1
S2Z S %(2)=%(5) Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87