HL7ComponentsXML()

 Top  Previous  Next

Object: EHL7.HL7Vendors

FileName: EHL7.dll

 

METHOD

 

Name: HL7ComponentsXML()

Parameters: 1) strDataType (String) The name of the HL7 Datatype

Returns: XML String

Description: Returns an XML string with information for all of the components of the HL7DataType passed in strDataType.  In HL7 each datatype is made up of 1 or more components.  In compound datatypes (those with more than one component) each component will also be assigned an HL7 datatype.

 

Example XML String:

 

<COMPONENTS COUNT="3">

<ITEM ID="22F9D571F73AF44E83A6C2168A5ED622" HL7TYPE="TST" COMPONENT="1" DESCRIPTION="Code Value" COMPONENTTYPE="CE" />

<ITEM ID="22F9D571F73AF44E83A6C2168A5ED622" HL7TYPE="TST" COMPONENT="2" DESCRIPTION="Alpha Value" COMPONENTTYPE="ST" />

<ITEM ID="9A56A6513D28A24B9B80AE3196D51DD6" HL7TYPE="TST" COMPONENT="3" DESCRIPTION="Numeric Value" COMPONENTTYPE="NM" />

</COMPONENTS>

 

*Notes:

•The ID attribute is the GUID assigned to the component by EasyHL7.
•The HL7TYPE attribute is the parent HL7 datatype
•The COMPONENT attribute is the sequential number of the component within the datatype
•The DESCRIPTION attribute is a short description of what the component is or contains
•The COMPONENTTYPE attribute is the HL7 datatype of that specific component

 

 

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strXML As String

Dim domNode As Object

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.HL7ComponentsXML("TST")

End Sub