TECH.Error 1 WS.WebService 0 Name of the WebService. VisiDotService http://www.imageid.zetes.com/OperatorWS/V1 APPS.VisiDot.Controleur 1 1 When the Operator starts communicating with the WS, it first checks that this function returns some value. The returned value is not validated, but it is written in the Log file of the Operator. %Integer 1 %Integer 1 "_CaptureString) Set XMLReader = ##class(%XML.Reader).%New() Do XMLReader.OpenStream(CaptureInfo) Do XMLReader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") Set CorrelatedCaptureInfo = "" Do XMLReader.Next(.CorrelatedCaptureInfo,.sc) If $$$ISERR(sc) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon Capture_Info niet lezen (Correlate gefaald) : "_$$ParseStatus^vhLib(sc))) If ('$IsObject(CorrelatedCaptureInfo)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon Capture_Info niet omzetten naar een object : "_$$ParseStatus^vhLib(sc))) Set ProcessedDataObject = ##class(APPS.VisiDot.dto.CaptureInfo).%New() Do ..GeefControleur(ActionType,CorrelatedCaptureInfo) Do ..Controleur.UpdateData(.ResultDesc,.ProcessedDataObject) /// XML-object omzetten naar Stream Set ProcessedData = ##class(%GlobalCharacterStream).%New() Set ProcessedDataStream = ##class(%GlobalCharacterStream).%New() Set Status = ProcessedDataObject.XMLExportToStream(ProcessedDataStream,,"literal,indent") /// In stream HTML Entities omzetten van de ToolTip /// 
 omzetten naar While (ProcessedDataStream.AtEnd = 0) { Set Data = ProcessedDataStream.Read(10000) Set Data = ##class(TECH.StringUtils).HTMLEntitiesDecode(Data) Do ProcessedData.Write(Data) } Do ProcessedData.Flush() Set ProcesseDataString = ProcessedData.Read(300) Do ProcessedData.Rewind() Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("ProcessedData OUT", "["_ComputerNaam_"] "_ActionType_" -> "_ProcesseDataString) Kill CorrelatedCaptureInfo $$$TECHErrorTrapOff Quit 0 ]]> ActionType:APPS.VisiDot.enu.ActionCodes,Data:APPS.VisiDot.dto.CaptureInfo 1 APPS.VisiDot.Controleur