ListVendors

Object Method - ListVendors()

Parent Object - HL7Vendor

Returns - String

Name: ListVendors()

Parameters: None

Description: Returns a delimited string with information for all of the vendors in an installation.  Essentially a non-XML version of the VendorsXML() method.  Will return an empty string ("") if the vendor path does not point to a valid installation folder.

Programming Note: The return value of this method will be a string delimited with a line feed (vbLF or Asc(10) or Hex(0A)).  Parsing that string will produce an array of strings each delimited with a "|" character containing 2 elements.  The first element is the the VendorName and VendorVersion concatenated (Ex: "Default (Version 2.3)"), the second element will be the GUID VendorID of the vendor.

Example:

Private Sub VendorTest()

  Dim myVendorObj As New EasyHL7MC40.HL7Vendor

  Dim strVendorID As String

  Dim strVendors As String

  Dim v1() As String

  Dim v2() As String

  Dim i As Long

  myVendorObj.VendorPath = "C:\EasyHL7"

  strVendors = myVendorObj.ListVendors()

  v1 = Split(strVendors,vbLF)

  For i = 0 To UBound(v1)

    v2 = Split(v1(i),"|")

    MessageBox.Show("Vendor: " & v2(0) & " has a GUID of: " & v2(1))

  Next

End Sub