OpenVendor

Object Method - OpenVendor()

Parent Object - HL7Vendor

Returns - Boolean

Name: OpenVendor(ByVal sVendorID)

Parameters: 1. sVendorID (String - The VendorID to open)

Description: Opens a vendor definition for use. Should be successfully called BEFORE creating or using any child objects (EasyHL7Message, HL7FileAnalyzer or HL7FolderProcessor). See the GetVendorID() method for more info.

Important Note: This method will not work unless the objects are properly registered (IsRegistered = True AND LicenseExpired = False)

Further: The VendorID used must exist in the VendorPath.

Example:

Private Sub OpenAVendor()

Dim oVendor As New EHL7_MC2005.HL7Vendor

Dim strVendorID As String

With oVendor

.VendorPath = "C:\MyVendors"

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

If strVendorID.Length = 0 Then

Msgbox("Default 2.3 not installed in " & .VendorPath)

Exit Sub

End If

If Not .OpenVendor(strVendorID) Then

Msgbox(.LastError)

Exit Sub

End If

Msgbox("Successfully Opened Vendor ID: " & .VendorID)

oVendor = Nothing

End With

End Sub