OpenVendor

Object Method - OpenVendor()

Parent Object - HL7Vendor

Returns - Boolean

Overloaded Method x2

Method 1

Name: OpenVendor(ByVal sVendorID)

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

Method 2

Name: OpenVendor(ByVal sVendorName, ByVal sVendorVersion)

Parameters: 1. sVendorName (String - The Vendor Name to open)

Parameters: 2. sVendorVersion (String - The HL7 Version)

Example: OpenVendor("Default", "2.5.1")

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 EasyHL7MC40.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

Private Sub OpenAVendor()

Dim oVendor As New EasyHL7MC40.HL7Vendor

With oVendor

.VendorPath = "C:\MyVendors"

If Not .OpenVendor("Default", "2.3") Then

Msgbox(.LastError)

Exit Sub

End If

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

oVendor = Nothing

End With

End Sub