VendorsXML()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: VendorsXML()

Parameters: None

Returns: XML String

Description: Returns an XML string with information for all of the vendors in an installation. 

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strXML As String

myVendorObj.VendorPath = "C:\EasyHL7"

strXML = myVendorObj.VendorsXML()

'Process the XML        

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

End Sub

See also: XML Programming Example

Example XML String:

<VENDORS COUNT="3">

<VENDOR ID="63578DEA-9541-4663-B484-111919054FBC" NAME="Default"

DESCRIPTION="EasyHL7 default vendor for version 2.3" VERSION="2.3" FIELDSEPARATOR="|"

ENCODINGCHARS="^~\&" PARSINGCHARS="0B|1C,0D|0D" />

<VENDOR ID="10D80A28-6A2C-4AD3-8080-32924F02F0CE" NAME="Default"

DESCRIPTION="" VERSION="2.4" FIELDSEPARATOR="|"

ENCODINGCHARS="^~\&" PARSINGCHARS="0B|1C,0D|0D" />

<VENDOR ID="5ABE45FC963631449F077FA15F28E69B" NAME="Labcorp"

DESCRIPTION="Labcorp vendor created by me" VERSION="2.3" FIELDSEPARATOR="|"

ENCODINGCHARS="^~\&" PARSINGCHARS="0B|1C,0D|0D" />

</VENDORS>

*Notes: The ID attribute is the GUID assigned to the vendor, this ID number is used frequently throughout the system.  In the EasyHL7.exe program, this method is used to populate dropdown listboxes for the user to select which vendor definition to use.