PreviousSegment()

Object: EHL7.EHL7Message

FileName: EHL7.dll

METHOD

Name: PreviousSegment()

Parameters:

Returns: Object (Segment Object) - The 'prior' segment object in the HL7 message or Nothing on failure.

Description: Retrieve a segment object from the current message. 

XML Programming Note: Since the segment object is actually a DOMNODE (MS XML object) this method is the functional equivalent of 'Set oNode = oSegment.previousSibling'

See Also: AddSegment(), SegmentExists(), SegmentCount(), GetSegment(), PreviousSegment(), SegmentName()

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 i As Long, j 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 oSegment = .CreateMessage(myVendorObj)

   'oSegment is the MSH segment

   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")

   j = .SegmentCount()

   MsgBox .SegmentName(oSegment)

   For i = 2 To j

       Set oSegment = .NextSegment(oSegment)

      MsgBox .SegmentName(oSegMent)

   Next

  For i = j To 1 Step -1

     MsgBox .SegmentName(oSegMent)

       Set oSegment = .PreviousSegment(oSegment)

  Next

End With

End Sub