InsertSegmentAfter

Object Method - InsertSegmentAfter()

Parent Object - EasyHL7Message

Returns - Object

Name: InsertSegmentAfter(ByVal oSegment, ByVal oSegmentRef)

Parameters: 1. oSegment (Fully Formed Segment Object - See CloneSegment)

2. oSegmentRef (Segment Object)

Returns: A NEW object that has been inserted into the message AFTER oSegmentRef or NOTHING on failure.

Example:

Dim oSegment1, oSegmentClone

With MyMessage1

'MyMessage1 is an open EasyHL7Message object

 oSegment1 = .GetSegment("PID")

oSegmentClone = .CloneSegment(oSegment1)

End With

With MyMessage2

'MyMessage2 is an open EasyHL7Message object

oSegment1 = .GetSegment("MSH")

oSegmentClone = .InsertSegment(oSegmentClone,oSegment1)

'oSegmentClone was added to MyMessage2 immediately AFTER the MSH segment

End With

See Also: InsertSegment, InsertSegmentBefore, InsertSegmentAfter, CloneSegment