CreateVendor()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: CreateVendor()

Parameters:    1) strNewVendorName (String) the name of the new vendor.

2) strVersion (String) a string representing the HL7 version EX: "2.3","2.4","2.3.1".

3) strCopyFromID (String) the GUID of the existing vendor to use as the basis for the new vendor.

4) bDeleteIfExists (Boolean) Overwrite an existing vendor definition with this name and version.

Returns: String - The GUID of the new vendorid

Description: Creates a new vendor definition for the installation in VendorPath.  New vendors are always created as copies of existing vendors.

*NOTE* Development license required to call this method successfully

*Programming Note: The VendorName and  VendorVersionare used by the objects to create and access data files on the hard disk, so these properties cannot contain invalid (i.e. wildcard chars etc.) characters for the generation of file names.

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strNewVendorID 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

strNewVendorID = MyVendorObj.CreateVendor("LabCorp","2.3.1",strVendorID,True)

If strNewVendorID = "" Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

End If

myVendorObj.OpenVendor(strNewVendorID)

End Sub

See Also: VendorPath, OpenVendor()