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 ;
 ;
#include vhLib.Macro
 
T0E ;Lokale variabelen -> ^error ;
 ;
1 
 set $ztrap="TRAP"
 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
  
2 F  S %(2)=$O(@%(2)) Q:%(2)=""  D S1:$D(@%(2))#10=1,S2:$D(@%(2))>9 Q:%(1)>1500
 
 Do ##class(BL.Legacy.cA400).%New().Trap()
 
YZ K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
 
TRAP
	set $zt=""
	set Info="Error in trap : "_$ZE_$$$CRLF_$$$CRLF_"Oorspronkelijke foutmelding :"_$$$CRLF_$G(Info) _ $$$CRLF_$$GetJobInfo()
	do SendMiniMail^vhLib($$$SystemMail("cA400"),$lb("ICT_SysOp@vanhoecke.be"),"Error in error handling",$G(Info))
	K %(1),%(2),%(3),%(4),%(5),%("$J"),%("$I"),%ZL Q
	quit

	// Deze effe lokaal toegevoegd, om te weten op welke server.
GetJobInfo()
	Quit $$$CRLF_"Device: "_$I_"  Job: "_$J _ $$$CRLF_"Server: "_$$$Server_"  NameSpace: "_$$$NSpace

 ;
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