HL7FileError

Object: EHL7.HL7File

FileName: EHL7.dll

EVENT

Name: HL7FileError

Parameters:

Description: When the OpenFile() or OpenXMLFile() methods are called, this event is fired if there is something wrong with the file in question.

Example:

'At Class or Form Declaration Level

Private WithEvents myFileObj As EHL7.HL7File

'On Initialize or Load

Set myFileObj = New EHL7.HL7File

myFileObj.VendorPath = "C:\EasyHL7"

'On Terminate or Unload

Set myFileObj = Nothing

'Command Button

Private Sub Command1_Click()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim iCnt As Long, i As Long

Dim strMsg As String

myFileObj.KeepMessagesInMemory = True

myVendorObj.VendorPath = "C:\EasyHL7"

strVendorID = myVendorObj.GetVendorID("Default","2.3")

'Now open a file

If Not MyFileObj.OpenFile("C:\Test.hl7", strVendorID, -1)

       MsgBox myFileObj.LastError

      myFileObj.ClearErrors

      Exit Sub

End If

iCnt = myFileObj.MessageCount

MsgBox "File contains " & iCnt & " hl7 messages"

For i = 1 To iCnt

   strMsg = myVendorObj.GetMessageXML(i)

   Call ProcessXMLMessageFunction(strMsg)

Next

End Sub

Private Sub ProcessXMLMessage(strXML As String)

'Code to Process XML

End Sub

'Event Handlers

Private Sub myFileObj_HL7FileError(strFileName As String)

Label1.Caption = "File Error:" & strFileName

Label2.Caption = myFileObj.LastError

DoEvents

End Sub

Private Sub myFileObj_Process(nFunction As Long, nFunctionCount As Long, nPct As Long, strMessage As String)

Label1.Caption = "Process " & nFunction & " of " & nFunctionCount & " is " & nPct & "% complete"

Label2.Caption = strMessage

DoEvents

End Sub

Private Sub myFileObj_ProcessCompleted()

If myFileObj.Cancel Then

  MsgBox "Process Canceled"

Else

MsgBox "Process Completed"

End If

End Sub

Related Items: EasyHL7 Events in VB, IsError, LastError