GetMessagePointer |
Object Method - GetMessagePointer() Parent Object - HL7FileAnalyzer Returns - Object - HL7MsgFilePointer Name: GetMessagePointer(ByVal nIndex) Parameters: 1. nIndex (Long - Ordinal message to retrieve from the file) Returns: A populated HL7MsgFilePointer object WITHOUT the MessageText property set. Description: Use GetMessagePointer to retrieve mapping information about an HL7 message file.
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 = .GetMessagePointer(Idx) Next End With
|