GetHL7Message

Object Method - GetHL7Message()

Parent Object - HL7FileAnalyzer

Returns - Object - HL7MsgFilePointer

Name: GetHL7Message(ByVal nIndex)

Parameters: 1. nIndex (Long - Ordinal message to retrieve from the file)

Returns: A populated HL7MsgFilePointer object

Description: Use GetHL7Message to retrieve HL7 messages from a file that has been analyzed.

Example:

Dim nResult As EasyHL7MC40.HL7FileAnalyzer.EHFA_ErrorType

Dim myAnalyzer As EasyHL7MC40.HL7FileAnalyzer

Dim oHL7 As EasyHL7MC40.HL7MsgFilePointer

Dim Idx As Long

MyAnalyzer = oVendor.NewFileAnalyzer()

With MyAnalyzer

nResult = .AnalyzeHL7File("C:\HL7\Sample.hl7")

If nResult <> EHFA_NoError Then

  'Note - Check the result for more info

  Exit Sub

End If

For Idx = 1 To .FileMessageCount

  oHL7 = .GetHL7Message(Idx)

  Msgbox(oHL7.MessageText)

Next

End With