SegmentValue

<----------New In Version 4.x---------->

Object: EHL7.EHL7Message

FileName: EHL7.dll

PROPERTY

Name: SegmentValue(oSegment)

Parameter: oSegment (Segment Object)

DataType: String

Mode: Readonly

Description: Returns the segment passed in oSegment in XML format, on failure an empty string ("") is returned and IsError is set to True.

Example:

Dim oPID As Object 

Dim sPID As String 

With oMSG   'oMSG is a loaded EHL7Message Object

   MsgBox .SegmentValue(.MSHObject)

   If Not .SegmentExists("PID") Then 

       MsgBox "No PID Segment"

   Else

       Set oPID = .GetSegment("PID")

       sPID = .SegmentValue(oPID)

       MsgBox sPID

   End If

End With

See Also: SegmentValue(), InsertSegment(), ReplaceSegment()