GetHL7MessageObject

Object Method - GetHL7MessageObject()

Parent Object - HL7FileAnalyzer

Returns - Object - EasyHL7Message

Name: GetHL7MessageObject(ByVal nIndex)

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

Returns: A populated EasyHL7Message 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.EasyHL7Message

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 = .GetHL7MessageObject(Idx)

  Msgbox("Message " & Idx & " contains " & oHL7.SegmentCount() & " segments")

Next

End With