VendorExists

Object Method - VendorExists()

Parent Object - HL7Vendor

Returns - Boolean

Calling Convention 1

Name: VendorExists(ByVal strVendorID As String)

Parameter 1: strVendorID (String - The Internal GUID assigned to the EasyHL7 Vendor)

Calling Convention 2

Name: VendorExists(ByVal strVendorName As String, ByVal strVendorVersion As String)

Parameter 1: strVendorName (String - The name of the EasyHL7 Vendor)

Parameter 2: strVendorName (String - HL7 Version)

Description: Returns TRUE if the named vendor exists in the .VendorPath.

Example:

'A very simple example

Dim oVendor As New EasyHL7MC40.HL7Vendor

With oVendor

  'Obviously this folder would have to exist.

  .VendorPath = "C:\HL7Definitions"

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

      .InstallSingleDefaultVendor("2.3", .VendorPath)

  End If

  'Check for my custom vendor

  If Not .VendorExists("Custom Vendor", "2.5") Then

    'Obviously this file would have to exist.

    Dim fn As String = .EasyInstallationFolder & "CustomVendor.vDef"

    .ImportVendor(fn)

  End If

End With