Ens.InboundAdapter 64204,48429.622735 64204,48429.622735 %Status 1 { set req.AlertText=req.AlertText_"Sample alert: " } set req.AlertText=req.AlertText_alerts(cat,0)_nl_nl } set tSC=..BusinessHost.ProcessInput(req) } while 0 quit tSC ]]> EnsHL7 Ens.InboundAdapter 64203,49383.484811 61592,31859.341221 Name of the Receiving Facility to filter HL7 messages. %String Maximum number of messages to retrieve/send per poll/task. %Integer Time to hang before processing another message, used to manage the throughput. %Integer The number of messages retrieved. %Integer Information to send an alert from the business service if populated. %String Site ID. This is the STATION NUMBER %String %String ReceivingFacilityName, MaxNmbrMsgs, Throttle, SiteID %Status tCurrentTime { set tProcessingTime = tStartTime - tCurrentTime } else { set tProcessingTime = tCurrentTime - tStartTime } // If the processing time is greater than the Call Interval // return control to the Service that called the adapter. if (tProcessingTime > ..CallInterval) { set tQuitAll=1 quit } HANG (..Throttle/1000) if (tQuitAll) {quit} } // Close the IEN loop if tQuitAll {quit} } // Close the tQueue loop }While '(tQuitAll) // Close the tLink loop quit $$$OK Trap // We erred out, set the error information and roll back the last transaction. set $ZT="" TRollback set tSC=$$$EnsSystemError do ..BusinessHost.SendAlert(##Class(Ens.AlertRequest).%New($LB(..BusinessHost.%ConfigName,"There was an error in the HLOGlobalInbound Adapter: ", tSC))) quit $$$OK ]]> Returns the date/time in FileManFormat 1 pDays:%Integer=0 %String %Persistent 64244,54447 64203,52817.445651 %String %String %TimeStamp %String %TimeStamp ReportedTimestamp CreatedTimestamp %Library.CacheStorage ^AGMPI.Alerts.AlertItemD AlertItemDefaultData ^AGMPI.Alerts.AlertItemD ^AGMPI.Alerts.AlertItemI ^AGMPI.Alerts.AlertItemS 100000 listnode %%CLASSNAME SourceConfigName AlertText CreatedTimestamp Category ReportedTimestamp persistent Ens.BusinessProcessBPL 64244,54447 61592,35734.428636 BPL Definition http://www.intersystems.com/bpl ]]> %Library.CacheStorage Ens.BusinessService 64204,55168.307721 64204,54739.900937 AGMPI.Adapters.AlertInbound pInput:Ens.AlertRequest,pOutput:%RegisteredObject %Status