InsertSegmentBefore

Object Method - InsertSegmentBefore()

Parent Object - EasyHL7Message

Returns - Object

Name: InsertSegmentBefore(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 BEFORE oSegmentRef or NOTHING on failure. NOTE: An error will also occur if you pass an MSH segment in oSegmentRef.

Example:

Dim oSegment1, oSegmentClone

With MyMessage1

'MyMessage1 is an open EasyHL7Message object

 oSegment1 = .GetSegment("EVN")

oSegmentClone = .CloneSegment(oSegment1)

End With

With MyMessage2

'MyMessage2 is an open EasyHL7Message object

oSegment1 = .GetSegment("PID")

oSegmentClone = .InsertSegment(oSegmentClone,oSegment1)

'oSegmentClone was added to MyMessage2 BEFORE the first PID segment

End With

See Also: InsertSegment, InsertSegmentAfter, CloneSegment