Deze class doet de eigenlijke error afhandeling. Bouwt het ErrorInfo dataobject, stuurt een email of logged de fout. De erroinfo is toegankelijk na afhandeling van de de fout via %ErrorObject TECH.Error 1 TECH.RegisteredObject 1 Label:%String,Options:%String 1 Label:%String,Options:%String 1 Label:%String,Options:%String 1 In deze versie wordt er altijd gelogd. Mailen is optioneel (via Options parameter). 1 Label:%String,Options:%String 1 1 Label:%String 1 " { set Error.ErrorCode2=$ECODE } Set Error.StackTrace = ##class(TECH.Process).GeefStackTrace(1) Set Error.ErrorCode=$ZERROR Set Error.LogLevel = ##class(vhLib.enu.LogNiveau).Error() } Set Error.Device=$I Set Error.Job=$J Set Error.Server=##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam() Set Error.NameSpace=$ZU(5) Do ..SetRemoteIP(Error) Do ..UserText(Error) Quit Error ]]> [Previously private] 1 Error:TECH.Error.dto.ErrorInfo 1 Error:TECH.Error.dto.ErrorInfo 1 1 Error:TECH.Error.dto.ErrorInfo,blnSendMail:%Boolean=0 1 Error:TECH.Error.dto.ErrorInfo 1 Exceptie:TECH.IException vhLib.enu.LogNiveau 1 Exceptie:TECH.Exceptions.Exception 1 %Boolean 1 Error:TECH.Error.dto.ErrorInfo 1 1 WebServiceRequestStream:%Stream 1 %Boolean 1 Error:TECH.Error.dto.ErrorInfo %String 1 Boodschap:%String="" 1