GetHL7TableID()

Object: EHL7.EHL7Message

FileName: EHL7.dll

METHOD

Name: GetHL7TableID()

Parameters:

1) Object (Segment Object)

2) nFieldNumber (Long) index of the data field in the segment (1-xxx).

Returns: Long

Description: Returns the HL7 Table ID defined in the vendor's HL7 definition for Element #nFieldNumber, or 0 if the element does not reference an HL7 Table.

See Also: HL7Vendors.HL7TablesXML(),HL7Vendors.GetHL7Table()

Example:

Private Sub MessageTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim myMsg As New EHL7.EHL7Message

Dim strVendorID As String

Dim oSegment As Object

Dim oMSH As Object

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

With myMsg

   Set oMSH = .CreateMessage(myVendorObj)

   If .IsError Then

     MsgBox .LastError

     .ClearErrors

     Exit Sub

   End If

   Set oSegment = .AddSegment("EVN")

   If .IsError Then

     MsgBox .LastError

     .ClearErrors

     Exit Sub

   End If

   i = .GetHL7TableID(oSegment,2)

   If i > 0 Then

   Msgbox "Field 2 of the EVN segment references HL7 Table #" & i

   Else

   Msgbox "Field 2 of the EVN segment does not reference an HL7 Table"

   End If

End With

End Sub