Class TbsRSP_K25_28

Unit

BSHL728

Declaration

type TbsRSP_K25_28 = class(TbsHL7Message)

Description

Represents a RSP_K25(Personnel Information by Segment Response) message structure. This structure contains the following elements:

1. MSH, required

2. SFT, optional repeating

3. UAC, optional

4. MSA, required

5. ERR, optional repeating

6. QAK, required

7. QPD, required

8. RCP, required

9. STAFF, required repeating

10. DSC, optional

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsRSP_K25_28

Overview

Methods

	function SFTRepCount : Integer ;
	function ERRRepCount : Integer ;
	function STAFFRepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_28 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_28 read GetSFT write SetSFT;
	property UAC : TbsUAC_28 read GetUAC write SetUAC;
	property MSA : TbsMSA_28 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_28 read GetERR write SetERR;
	property QAK : TbsQAK_28 read GetQAK write SetQAK;
	property QPD : TbsQPD_28 read GetQPD write SetQPD;
	property RCP : TbsRCP_28 read GetRCP write SetRCP;
	property STAFF[RepCount:Integer]: TbsRSP_K25_STAFF_28 read GetSTAFF write SetSTAFF;
	property DSC : TbsDSC_28 read GetDSC write SetDSC;

Description

Methods

	function SFTRepCount : Integer ;

	function ERRRepCount : Integer ;

	function STAFFRepCount : Integer ;

	procedure Init; override;

Properties

	property MSH : TbsMSH_28 read GetMSH write SetMSH;
MSH, Min : 1, Max : 1

	property SFT[RepCount:Integer]: TbsSFT_28 read GetSFT write SetSFT;
SFT, Usage : O, Min : 0, Max : *

	property UAC : TbsUAC_28 read GetUAC write SetUAC;
UAC, Min : 0, Max : 1

	property MSA : TbsMSA_28 read GetMSA write SetMSA;
MSA, Min : 1, Max : 1

	property ERR[RepCount:Integer]: TbsERR_28 read GetERR write SetERR;
ERR, Usage : O, Min : 0, Max : *

	property QAK : TbsQAK_28 read GetQAK write SetQAK;
QAK, Min : 1, Max : 1

	property QPD : TbsQPD_28 read GetQPD write SetQPD;
QPD, Min : 1, Max : 1

	property RCP : TbsRCP_28 read GetRCP write SetRCP;
RCP, Min : 1, Max : 1

	property STAFF[RepCount:Integer]: TbsRSP_K25_STAFF_28 read GetSTAFF write SetSTAFF;
STAFF, Usage : R, Min : 1, Max : *

	property DSC : TbsDSC_28 read GetDSC write SetDSC;
DSC, Min : 0, Max : 1