GetVendorID()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: GetVendorID()

Parameters:    1) strVendorName (String) the name of the vendor to open.

2) strVersion (String) a string representing which HL7 version to open.

Returns: String 

Description: This method returns the GUID ID of the Vendor on success or an empty string ("") on failure.

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

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

End Sub

See Also: VendorPath, OpenVendor()