DataTypeComponents()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: DataTypeComponents()

Parameters: strDataType (String) The HL7 Data Type

Returns: Long - Returns the number of Components for the data type.

Description: HL7 Data Types are made up of one or more components.

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim i As Long

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

i = DataTypeComponents("CE")

MsgBox "The HL7 Data type 'CE' has " & i & " components"

End Sub