Looking for Iguana v.5 or v.6? Learn More or see the Help Center.
Parse Method |
The Parse method for a message should be invoked to parse a message. If it successfully recognizes and parses a message, it will invoke one of the OnMessage events. If a parsing error occurs, the OnParseError event will be invoked by the engine, if you created this event.
Dim ResultAck As String Dim Message As String Message = "MSH|^~\&|REGADT|MCM|RSP1P8|MCM|199601051530|SEC|ADT^A44|00000007|P|2.5" + Chr(13) Message = Message + "EVN|A44|199601051530" + Chr(13) Message = Message + "PID|||MR2^^^XYZ||JONES^WILLIAM^A^JR||19501010|M|||123 EAST STREET^^NY^NY^10021||(212)111-3333|||S||ACCT1" + Chr(13) Message = Message + "MRG|MR1^^^XYZ||ACCT1" + Chr(13) ResultAck = Engine.Parse Message |
If the message fails to parse, the OnParseError event is invoked. If it does parse correctly, the appropriate OnMessage event will be invoked. An example is provided below:
Private Sub Engine_OnMessagePatientUpdate(Message As HL7MsgPatientUpdate, ResultMessage As String)
On Error GoTo ErrorHandler
' The next line shows a useful diagnostic function for outputting
' the contents of a message as a formatted table string.
DisplayOutput (Message.Dump)
DisplayOutput ("Received PatientUpdate")
DisplayOutput ("With data:")
DisplayOutput ("ID: " & Message.Patient(1).ID)
DisplayOutput ("Title: " & Message.Patient(1).Title)
DisplayOutput ("GivenName: " & Message.Patient(1).GivenName)
DisplayOutput ("FamilyName: " & Message.Patient(1).FamilyName)
DisplayOutput ("Religion: " & Message.Patient(1).Religion)
DisplayOutput ("AcctNumber: " & Message.Patient(1).AcctNumber)
DisplayOutput ("DriversLicenseNo: " & Message.Patient(1).DriversLicenseNo)
DisplayOutput ("MaidenName: " & Message.Patient(1).MaidenName)
' This line shows the syntax for accessing a group.
DisplayOutput ("Insurance ID: " & Message.InsGrp(1).Guarantor(1).ID)
' You can loop through the items in a table with many items
' using this syntax.
Dim PatientIndex As Long
For PatientIndex = 1 To Message.Patient.Count
DisplayOutput (Message.Patient(PatientIndex).ID)
Next
' The ResultMessage is a string variable which allows this code
' to return a string as a result of the Engine.Parse operation.
' Typically this would be used to generate an ACK message to send
' back from this message.
ResultMessage = SendReturnAck
Exit Sub
ErrorHandler:
HandleError "Engine_OnMessagePatientUpdate"
End Sub
|
 | ||
|
There is no guarantee that a table will have any rows of data; in fact, they will often not contain data. For example, if a table is mapped to an optional segment that is not present. In this case, your code should check the Count property of each table before even accessing row number 1. | ||
 |