SetVendorObject()

Object: EHL7.EHL7Message

FileName: EHL7.dll

METHOD

Name: SetVendorObject()

Parameters: objVendor (Vendor Object) must be open.

Returns: Boolean

Description: The EHL7Message object requires an opened vendor object to perform many tasks.

Example:

Private Sub MessageTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim myMsg As New EHL7.EHL7Message

Dim strVendorID As String

Dim oSegment As Object

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

With myMsg

   If Not .SetVendorObject(myVendorObj) Then

      MsgBox .LastError

      Exit Sub

   End If        

End With

End Sub