EnsHL7 Ens.InboundAdapter 62997,34324.7265 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 EnsHL7 EnsHL7 1 Ens.OutboundAdapter 63008,47350.563731 62942,27311.051119 Facility number. %String Logical Link between the two systems (i.e. Den-RPMS) %String %String SiteID, LLink InboundMsg:EnsLib.HL7.Message %Status 2) { set tERRsegment=InboundMsg.GetValueAt(3) set $p(^HLB(tIEN,0),U,21)= $E(tERRsegment,5,34) } else { set $p(^HLB(tIEN,0),U,21)= tIncomingMessageControlId } // If the link field (5) of the zero node and the transmission date // field (16) of the zero node are not blank then we need to create an // ERROR entry in the HLB global. If ($p(^HLB(tIEN,0),U,5)'="")&&($p(^HLB(tIEN,0),U,16)'="") { set ^HLB("ERRORS","AE",$p(^HLB(tIEN,0),U,5),$p(^HLB(tIEN,0),U,16),tIEN)="" } set tText="Alert: The HLOGlobalOutound adapter received message "_tIncomingMessageId_" (an ACK message) that did not contain an 'AA' or 'CA' Acknowledgment Code: The MessageControl ID is "_tMessageControlId } } // -----------------End of updating the HLB entries for an ACK // If the message code is of type ACK or MFN, we have a message that needs // to be added to the HLA/HLB global nodes if ((tMessageCode="ACK") || (tMessageCode="MFN")) { set tIENB=..GetNewIENB() // If the HLB index returned is zero , we do not have an index to use // for the HLB global node. set the error text and exit the loop if 'tIENB { set tError=1 set tText="Failure: The HLOGlobalOutbound adapter was unable to obtain an unused IEN for ^HLB" quit } set tIENA=..GetNewIENA() // if the HLA index returned is zero, we do not have an index to use // for the HLA global node . set the error text and exit the loop if 'tIENA { set tError=1 set tText="Failure: The HLOGlobalOutbound adapter was unable to obtain an unused IEN for ^HLA" quit } // save the information into the HLB global. // set the Control ID (SitID parameter_Space_HLB IEN). set tControlId=..SiteID_" "_tIENB // set the tIENB.zero node to the the null string. set ^HLB(tIENB,0)="" // set the MessageID field (1) of the tIENB.zero node. set $p(^HLB(tIENB,0),U,1)=tControlId // set the MessageBody Pointer field (2) of the tIENB.zero node. set $p(^HLB(tIENB,0),U,2)=tIENA // set the Direction field (4) of the tIENB.zero node, to Inbound. set $p(^HLB(tIENB,0),U,4)="I" // set the Logical Link field (5) of the tIENB.zero node, // to the Sending Application. set $p(^HLB(tIENB,0),U,5)=tSendingApplication // set the Queue field (6) of the tIENB.zero node, to // the ReceivingApplication. set $p(^HLB(tIENB,0),U,6)=tReceivingApplication // If the AcknowledgmentCode is CA for commit acknowledgment, we set // the node information to purge the entry after 7 days. if ((tMessageCode="ACK") && (tAcknowledgmentCode="CA")) { // set the Final Status field (20) of the tIENB.zero node, // to complete. set $p(^HLB(tIENB,0),U,20)="SU" // set the purge Date/Time to 7 days in the future. set tPurgeDate = ..GetFilemanDateTime(7) // set the Scheduled Purge Date field (7) of the tIENB.zero node. set $P(^HLB(tIENB,0),U,9)=tPurgeDate // set the "AD" cross reference set ^HLB("AD","OUT",tPurgeDate,tIENB)="" } // set the Date/Time we received the message. set tCurrentDate = ..GetFilemanDateTime(0) // set the Transmission Date/Time field (16) of the tIENB.zero node set $p(^HLB(tIENB,0),U,16)=tCurrentDate // set the tIENB.first node to the first 6 fields of the MSH segment. // set the tIENB.second node to the remaining fields of the MSH segment set ^HLB(tIENB,1)=$P(tMSHsegment,tFieldSeparator,1,6) set ^HLB(tIENB,2)=tFieldSeparator_$P(tMSHsegment,tFieldSeparator,7,99) // set the tIENA.zero node information. // Date Time Entered set $P(^HLA(tIENA,0),U,1)=tCurrentDate // Batch set $P(^HLA(tIENA,0),U,2)=0 // MessageType set $P(^HLA(tIENA,0),U,3)=tMessageCode // Event set $P(^HLA(tIENA,0),U,4)=tTriggerEvent // HL7 Version set $P(^HLA(tIENA,0),U,5)=$P(tMSHsegment,tFieldSeparator,12) // HL7 Encoding Characters set $P(^HLA(tIENA,0),U,20)= tMessageSeparators //set B cross reference information. set ^HLA("B",tCurrentDate,tIENA)="" // The node sub-index to use in setting the HLA entries. set tNodeIndex=1 for tSegmentIndex=2:1:tSegmentCount { // Get the segment at tSI index from the message. set tSegmentData=InboundMsg.GetValueAt(tSegmentIndex) // Place the segment information into the tIENA.1.index.zero node set ^HLA(tIENA,1,tNodeIndex,0)=tSegmentData // If we have more segments to add we place a blank in the next // tIENA.1.index+1.zero node. if '(tSegmentIndex = tSegmentCount) { set ^HLA(tIENA,1,tNodeIndex+1,0)="" // Increment the node sub-index by two so that the sub-index is // always odd. set tNodeIndex=tNodeIndex+2 } } // End of the for loop adding the message to the HLA node. // Add the 'B', 'C' and 'SEARCH' nodes and their information. set ^HLB("B",tControlId,tIENB)="" set ^HLB("AC",$p(tMSHsegment,tFieldSeparator,4)_$p(tMSHsegment,tFieldSeparator,3)_tControlId,tIENB)="" // If this is a commit ACK, we don't need to process it further, // so add this message to the queue only if the Acknowledgment Code // is not CA. if '((tMessageCode="ACK") && (tAcknowledgmentCode="CA")) { set ^HLB("QUEUE","IN",tCurrentDate,..LLink,tMessageCode,tTriggerEvent,tIENB)="" } } // End of the If MessageCode is an ACK or MFN }While (0) // If the tError field equals zero, then we commit // the session changes, if it is not zero we rollback the changes. if '(tError) { TCommit } else { TRollback } // If there is information within the tText variable we send an alert if '(tText = "") { do ..SendAlert(tText) } quit $$$OK Trap // We erred out, set the error information and roll back the last transaction. set $ZT="" TRollback set tSC=$$$EnsSystemError do ..SendAlert("Failure: The HLOGlobalOutound adapter failed: Error= "_tSC_"::") quit $$$OK ]]> Returns the next available IEN for the HLA global 1 %Integer Returns the next available IEN for the HLB global 1 pNode:%String="" %Integer Returns the date/time in FileManFormat 1 pDays:%Integer=0 %String Sends an alert using the BusinessHost pText:%String=""