DefinedFieldCount

PROPERTY - ReadOnly

Parent Object - HL7MessageSegment

Name: DefinedFieldCount

Data Type: Long

Description: Returns total number of field elements defined for the segment in the Vendor Definition.

Example:

Dim oMessage As EasyHL7MC40.EasyHL7Message

Dim oSegment As EasyHL7MC40.HL7MessageSegment

Dim sValue As String = ""

'MyVendorObj is an open HL7Vendor object

oMessage = MyVendorObject.NewHL7Message()

oSegment = oMessage.CreateMessage()

'oSegment is Now the MSH segment of a blank message

oSegment = oMessage.AddSegment("PID")

'oSegment is Now a blank PID segment.

sValue = CStr(oSegment.DefinedFieldCount) & " Fields Defined"

MsgBox(sValue)

'DefinedFieldCount Returns however many fields are in the vendor definition for the PID segment

'30 for Version 2.3

sValue = CStr(oSegment.FieldCount) & " Fields Currently in the message"

'FieldCount would return 1 because the segment was just added and has 

'only the segment name.

MsgBox(sValue)

sValue = "PID|1|xxx|yyy||Smith^John^M|"

oSegment.Value = sValue

sValue = CStr(oSegment.FieldCount) & " Fields Currently in the message"

'FieldCount would return 5

MsgBox(sValue)