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.3" + 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

Example OnMessage Event


	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.

iNTERFACEWARE™ Inc.

Parse Method