SetFieldValue

Object Method - SetFieldValue()

Parent Object - EasyHL7Message

Returns - Boolean

Name: SetFieldValue(ByVal strValue, byRef oSegment, ByVal lngFieldNumber, Optional ByVal lngComponent = 1)

Parameters: 1. strValue (String - The value you wish to set)

2. oSegment (Segment Object)

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

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

Returns: Boolean

Programming Note: You can pass 0 in lngComponent to set 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)

'Etc. etc.

'Add a PID segment to a message and set the Patients Name

oSegment = .AddSegment("PID")

.SetFieldValue("Smith",oSegment,5,1)

.SetFieldValue("John",oSegment,5,2)

Msgbox(.HL7)

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^A08",oSegment,9,0)

'Etc. etc.

'Add a PID segment to a message and set the Patients Name

'This time using an 'All at once' call to SetFieldValue

oSegment = .AddSegment("PID")

.SetFieldValue("Smith^John^Q",oSegment,5,0)

Msgbox(.HL7)

End With