%soap TECH.RegisteredObject TECH.IO 1 ClassName:%String,ThisWebService:%SOAP.WebService fault:%SOAP.Fault,status:%Status,Classname:%String,Namespace:%String "_$$$CRLF Set detail=detail_" "_$$$cvtHTML(%ErrorObject.Label)_""_$$$CRLF Set detail=detail_" "_$$$cvtHTML(%ErrorObject.ErrorCode)_""_$$$CRLF Set:($L(%ErrorObject.UserText)) detail=detail_" "_$$$cvtHTML(%ErrorObject.UserText)_""_$$$CRLF Set detail=detail_" "_$$$cvtHTML(%ErrorObject.ErrorCode2)_""_$$$CRLF Set:%ErrorObject.Data'="" detail = detail_" "_%ErrorObject.Data_""_$$$CRLF Set detail=detail_" "_$$$cvtHTML(%ErrorObject.RemoteIP)_""_$$$CRLF Set detail=detail_" "_$$$cvtHTML("device: "_%ErrorObject.Device_" job: "_%ErrorObject.Job)_""_$$$CRLF Set detail=detail_" "_$$$CRLF Set fault.detail=detail } Do ##class(vhLib.Logger).%New("").Error("OnInternalFault", ..GeefSoapFaultInfo(fault, $Get(status), $Get(Classname))) ]]> fault:%SOAP.Fault,status:%Status,Classname:%String 1 %Stream