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 String = CaptureInfo Set Prefix = "&" Set Suffix = ";" Set Aantal = $Length(String,Prefix) Set Find = 1 For i = 1:1:Aantal-1 { Set Gevonden = $Piece($Piece($Extract(String,Find,$Length(String)),Prefix,2),Suffix) Set Find = $Find(String,Prefix,Find) If ($Extract(String,Find+$Length(Gevonden),Find+$Length(Gevonden)) = Suffix) { Set Found = $Extract(String,Find,Find+$Length(Gevonden)-1) Set $Extract(String,Find,Find+$Length(Gevonden)-1) = ##class(TECH.StringUtils).HTMLEntities(Found) } } */ 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 Status = ProcessedDataObject.XMLExportToStream(ProcessedData,,"literal,indent") /* /// In stream HTML Entities omzetten While (ProcessedDataStream.AtEnd = 0) { Set Data = ProcessedDataStream.Read(10000) Set Data = ##class(TECH.StringUtils).HTMLEntities(Data) Do ProcessedData.Write(Data) } Do ProcessedData.Flush() */ Set ProcesseDataString = ProcessedData.Read(32000) 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