Refresh()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: Refresh()

Parameters:   None

Returns: Boolean

Description: Reinitializes an open vendor object.  Useful to call after calling update methods if unsure whether the changes have been applied.

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim myInterfaceObj As New EHL7Interface.eUtilities

Dim strVendorID As String

myVendorObj.VendorPath = "C:\EasyHL7"

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

If strVendorID = "" Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

End If

If Not MyVendorObj.OpenVendor(strVendorID) Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

End If

'Call the showtables method

myInterfaceObj.ShowTables(1,strVendorID)

'Now, we don't know what the user did in the tables window, SO

'we refresh our already open vendor just in case they added or updated

'the table definitions

If Not MyVendorObj.Refresh() Then

   MsgBox myVendorObj.LastError

   Set myVendorObj = Nothing

   Exit Sub

End If

End Sub

See Also: VendorPath, GetVendorID(), GetVendorXML()