SegmentExists()

Object: EHL7.EHL7Message

FileName: EHL7.dll

METHOD

Name: SegmentExists()

Parameters: strSegment (String) the name of the HL7 Segment to retrieve from the message.

Returns: Boolean

Description: Returns true if a segment named strSegment exists in the current message

See Also: AddSegment(), SegmentCount()

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

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

   Call .AddSegment("EVN")

   Call .AddSegment("SCH")

   Call .AddSegment("NTE")

   Call .AddSegment("PID")

   Call .AddSegment("IN1")

   If Not .SegmentExists("PID") Then

     MsgBox "Error adding PID Segment"

     .ClearErrors

     Exit Sub

   End If

End With

End Sub