HL7TablesXML()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: HL7TablesXML()

Parameters: None

Returns: XML String

Description: Returns an XML string with information for all of the HL7 Tables (refer to HL7 documentation on HL7 Tables).  The XML returned by this method is a list (sorted by the HL7 Table_ID) for all HL7 tables defined in the open vendor's definition files.  This is only a list of Table Names and ID's (see the GetHL7Table() method for how to retrieve the items in a specific table).

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strXML As String

myVendorObj.VendorPath = "C:\EasyHL7"

'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

strXML = myVendorObj.HL7TablesXML()

End Sub

Example XML String:

<HL7TABLES COUNT="307">

<TABLE ID="8732C6DF-21D2-49F3-A742-CD9748D087A2" TABLEID="1" TABLENAME="Sex" SYSUSER="User" />

<TABLE ID="207B9EB2-9225-4C78-95EE-D252854286A0" TABLEID="2" TABLENAME="Marital status" SYSUSER="User" />

<TABLE ID="FD3184DA-D2DC-4414-B5A9-194E42068375" TABLEID="3" TABLENAME="Event type" SYSUSER="HL7" />

<TABLE ID="B82D8E12-0F60-4E37-9BE5-CAEAE62D096C" TABLEID="4" TABLENAME="Patient class" SYSUSER="User" />

<TABLE ID="DCA6400C-3913-42E4-A6BF-7F143D5C1441" TABLEID="5" TABLENAME="Race" SYSUSER="User" />

<TABLE ID="28F70B0B-05F2-4E7D-AC76-E7807E7C6B2F" TABLEID="6" TABLENAME="Religion" SYSUSER="User" />

....More

</HL7TABLES>

*Notes: The ID attribute is the GUID assigned to the table by EasyHL7.  The TABLEID attribute is the HL7 Table ID.