Class TbsRSP_K25_251

Unit

BSHL7251

Declaration

type TbsRSP_K25_251 = class(TbsHL7Message)

Description

Represents a RSP_K25(Segment pattern response) message structure. This structure contains the following elements:

1. MSH, required

2. SFT, optional repeating

3. MSA, required

4. ERR, optional repeating

5. QAK, required

6. QPD, required

7. RCP, required

8. STAFF, required repeating

9. DSC, optional

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsRSP_K25_251

Overview

Methods

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

Properties

	property MSH : TbsMSH_251 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_251 read GetSFT write SetSFT;
	property MSA : TbsMSA_251 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_251 read GetERR write SetERR;
	property QAK : TbsQAK_251 read GetQAK write SetQAK;
	property QPD : TbsQPD_251 read GetQPD write SetQPD;
	property RCP : TbsRCP_251 read GetRCP write SetRCP;
	property STAFF[RepCount:Integer]: TbsRSP_K25_STAFF_251 read GetSTAFF write SetSTAFF;
	property DSC : TbsDSC_251 read GetDSC write SetDSC;

Description

Methods

	function SFTRepCount : Integer ;

	function ERRRepCount : Integer ;

	function STAFFRepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

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

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

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

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