InstallDefaultVendors()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

Method

Name: InstallDefaultVendors()

Parameters:   

1) strVendorPath (String) the folder to install the files to

Returns: Boolean 

Description: This method will install the default vendor definitions that shipped with EasyHL7 to the folder specified in parameter 1.  The folder must exist and there can be no vendor definition files currently installed in the folder.

NOTE: Functionally equivalent to the same function in the EHL7Interface DLL.

Example:

Private Sub VendorTest()

Dim MyInterfaceObj As New EHL7.HL7Vendors

Dim strVendorPath As String

strVendorPath = "C:\EasyHL7"

If Not MyInterfaceObj.InstallDefaultVendors(strVendorPath)

    MsgBox MyInterfaceObj.LastError

    Set MyInterfaceObj = Nothing

    Exit Sub

Else

    MyInterfaceObj.VendorPath = strVendorPath

End If

End Sub

[****]