GetElementProperties()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: GetElementProperties()

Parameters:

Returns: String (ElementProperties String See UpdateElementProperties)

Description: Returns the Extended Element Properties for the given element of strSegment.  If properties have not been set it returns an empty string ("").  If an error occurs, it returns an empty string ("") and IsError is set to true.

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strProps 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

strProps = myVendorObj.GetElementProperties("MSH",10)

Msgbox strProps

End Sub