Class TbsRSP_K25_25

Unit

BSHL725

Declaration

type TbsRSP_K25_25 = 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_25

Overview

Methods

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

Properties

	property MSH : TbsMSH_25 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_25 read GetSFT write SetSFT;
	property MSA : TbsMSA_25 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_25 read GetERR write SetERR;
	property QAK : TbsQAK_25 read GetQAK write SetQAK;
	property QPD : TbsQPD_25 read GetQPD write SetQPD;
	property RCP : TbsRCP_25 read GetRCP write SetRCP;
	property STAFF[RepCount:Integer]: TbsRSP_K25_STAFF_25 read GetSTAFF write SetSTAFF;
	property DSC : TbsDSC_25 read GetDSC write SetDSC;

Description

Methods

	function SFTRepCount : Integer ;

	function ERRRepCount : Integer ;

	function STAFFRepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

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

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

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

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