GetRequiredFieldNumbers()

Object: EHL7.EHL7Message

FileName: EHL7.dll

METHOD

Name: GetRequiredFieldNumbers()

Parameters:

1) Object (Segment Object)

Returns: String

Description: Returns a comma-delimited string containing field numbers that have been defined as being required for that segment.  If no field elements have been designated as required an empty string is returned.

Example Value for a common MSH segment: "1,2,7,9,10,12,13"

See Also: HL7ElementsXML(), ShowSegments()

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

   MsgBox "These MSH field elements are required: " & .GetRequiredFieldNumbers(oMSH)

   Set oSegment = .AddSegment("EVN")

   If .IsError Then

     MsgBox .LastError

     .ClearErrors

     Exit Sub

   End If

   MsgBox "These field elements are required: " & .GetFieldDescription(oSegment)

End With

End Sub