SetFieldComponent

SetFieldComponent

Sets the HL7 field contents within the message structure specified by the field number and component
number. The field number and component number is defined in the segment definition layout.

Syntax

[ Boolean] = object.SetFieldComponent [ nMsgId = Integer], [sValue = String], [ nFieldNbr = Integer]
[ nComponentNbr = Integer]

The SetFieldComponent method syntax has these parts:

Part	Description
object	An object expression that evaluates to the HL7 control.
nMsgId	A integer expression that specifies the message Id.
sValue	A string expression that specifies the field value.
nFieldNbr	A integer expression that specifies the field number within the segment.
nComponentNbr	A integer expression that specifies the component number within the field.

Returns

Value	Description
Boolean	A boolean expression that is true if set successfully else false.

Remarks

SetFieldComponent of an object is initiated at runtime. The SetFieldComponent is called to set field
contents to a field within an HL7Message. If nComponentNbr does not exists an error will error, Its
assumed that the programmer understands the outcoming message structure.

Example

Private Sub ShowMessage()
    Dim nSendMsgId As Integer
    Dim nRecvMsgId As Integer
    Dim sSeg As String
    Dim nCount As Integer
    Dim nFieldCount As Integer
    Dim sMsg As String
    Dim bSuccess As Boolean

    Hl7cntl1.EnvelopSupport = False

    nSendMsgId = Hl7cntl1.InitMessage

    Hl7cntl1.SetSegment nSendMsgId, "MSH"
    Hl7cntl1.SetField nSendMsgId, "|", 1
    Hl7cntl1.SetField nSendMsgId, "^~\&", 2
    Hl7cntl1.SetField nSendMsgId, "GPMS", 3
    Hl7cntl1.SetField nSendMsgId, "DEMO", 4
    Hl7cntl1.SetField nSendMsgId, "HL7DEMO", 6
    Hl7cntl1.SetField nSendMsgId, "19911030140014865", 7
    Hl7cntl1.SetField nSendMsgId, "ADT", 9
    Hl7cntl1.SetFieldComponent nSendMsgId, "A28", 9, 0
    Hl7cntl1.SetField nSendMsgId, "14001U090", 10
    Hl7cntl1.SetField nSendMsgId, "D", 11
    Hl7cntl1.SetField nSendMsgId, "2.2", 12

    Hl7cntl1.SetSegment nSendMsgId, "EVN"
    Hl7cntl1.SetField nSendMsgId, "A28", 1
    Hl7cntl1.SetField nSendMsgId, "19911030140014865", 2

    Hl7cntl1.SetSegment nSendMsgId, "PID"
    Hl7cntl1.SetField nSendMsgId, "1", 1
    Hl7cntl1.SetField nSendMsgId, "123", 3
    Hl7cntl1.SetField nSendMsgId, "Bill" & "^" & "Gates" & "^" & """", 5
    Hl7cntl1.SetField nSendMsgId, "01/01/1956", 7
    Hl7cntl1.SetField nSendMsgId, "M", 8
    Hl7cntl1.SetField nSendMsgId, "100 Microsoft Rd" & "^" & "Suite 100" & "^" & "Seattle" & "^" & "WA" & "^" &          "10010", 11
    Hl7cntl1.SetField nSendMsgId, "M", 16
    Hl7cntl1.SetField nSendMsgId, "111-11-1111", 19
    Hl7cntl1.SetSegment nSendMsgId, "PV1"
    Hl7cntl1.SetField nSendMsgId, "1", 1
    Hl7cntl1.SetField nSendMsgId, "PCP01", 7

    Hl7cntl1.SetSegment nSendMsgId, "GT1"

    sMsg = Hl7cntl1.GetMessage(nSendMsgId)

    Hl7cntl1.DeInitMessage nSendMsgId

    nRecvMsgId = Hl7cntl1.InitMessage
    bSuccess = Hl7cntl1.SetMessage(nRecvMsgId, sMsg)
    If bSuccess = True Then
        sSeg = Hl7cntl1.GetNextSegment(nRecvMsgId)
        While sSeg <> ""
            MsgBox sSeg
            nFieldCount = Hl7cntl1.GetFieldCount(nRecvMsgId)
            For nCount = 1 To nFieldCount
                MsgBox Hl7cntl1.GetFieldComponent(nRecvMsgId, nCount, 1, 1)
            Next nCount
            sSeg = Hl7cntl1.GetNextSegment(nRecvMsgId)
        Wend
    End If
    Hl7cntl1.DeInitMessage nRecvMsgId
End Sub
.
..
...

Back to Home Page.