GetFieldValue

Object Method - GetFieldValue()

Parent Object - EasyHL7Message

Returns - String

Name: GetFieldValue(byVal oSegment, ByVal lngFieldNumber, Optional ByVal lngComponent = 1)

Parameters: 1. oSegment (Segment Object)

2. lngFieldNumber (Long -The Field Number within the Segment

3. lngComponent (Optional Long - Which component of the field)

Returns: String - The value of the field

Programming Note: You can pass 0 in lngComponent to retrieve the entire field value at once (see Example 2 below)

Example:

Dim MyMessage As EasyHL7MC40.EasyHL7Message

Dim oSegment

MyMessage = oVendor.NewHL7Message()

With MyMessage

'Create a Blank Message

.CreateMessage

oSegment = .MSH_Object

'Build the MSH Segment

.SetFieldValue("ADT",oSegment,9,1)

.SetFieldValue("A08",oSegment,9,2)

'Should display "ADT"

Msgbox(.GetFieldValue(oSegment,9,1))

'Should display "A08"

Msgbox(.GetFieldValue(oSegment,9,2))

End With

Example 2: Passing 0 in lngComponent

Dim MyMessage As EasyHL7MC40.EasyHL7Message

Dim oSegment

MyMessage = oVendor.NewHL7Message()

With MyMessage

'Create a Blank Message

.CreateMessage

oSegment = .MSH_Object

'Build the MSH Segment

.SetFieldValue("ADT",oSegment,9,1)

.SetFieldValue("A08",oSegment,9,2)

'Should display "ADT^A08"

Msgbox(.GetFieldValue(oSegment,9,0))

End With