SetFieldValue

Object Method - SetFieldValue()

Parent Object - HL7MessageSegment

Returns - Boolean

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

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

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

3. 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 As EasyHL7MC40.HL7MessageSegment

MyMessage = oVendor.NewHL7Message()

With MyMessage

'Create a Blank Message

.CreateMessage

oSegment = .MSH_Object

'Build the MSH Segment

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

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

'Etc. etc.

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

oSegment = .AddSegment("PID")

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

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

Msgbox(.HL7)

End With

Example 2: Passing 0 in lngComponent

Dim MyMessage As EasyHL7MC40.EasyHL7Message

Dim oSegment As EasyHL7MC40.HL7MessageSegment

MyMessage = oVendor.NewHL7Message()

With MyMessage

'Create a Blank Message

.CreateMessage

oSegment = .MSH_Object

'Build the MSH Segment and use the message object

.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")

'Use the Segment Object 

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

Msgbox(.HL7)

End With