Class TbsRSP_K31_271

Unit

BSHL7271

Declaration

type TbsRSP_K31_271 = class(TbsHL7Message)

Description

Represents a RSP_K31(Dispense History Response) message structure. This structure contains the following elements:

1. MSH, required

2. MSA, required

3. ERR, optional repeating

4. SFT, optional repeating

5. UAC, optional

6. QAK, required

7. QPD, required

8. RCP, required

9. RESPONSE, required repeating

10. DSC, optional

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsRSP_K31_271

Overview

Methods

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

Properties

	property MSH : TbsMSH_271 read GetMSH write SetMSH;
	property MSA : TbsMSA_271 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_271 read GetERR write SetERR;
	property SFT[RepCount:Integer]: TbsSFT_271 read GetSFT write SetSFT;
	property UAC : TbsUAC_271 read GetUAC write SetUAC;
	property QAK : TbsQAK_271 read GetQAK write SetQAK;
	property QPD : TbsQPD_271 read GetQPD write SetQPD;
	property RCP : TbsRCP_271 read GetRCP write SetRCP;
	property RESPONSE[RepCount:Integer]: TbsRSP_K31_RESPONSE_271 read GetRESPONSE write SetRESPONSE;
	property DSC : TbsDSC_271 read GetDSC write SetDSC;

Description

Methods

	function ERRRepCount : Integer ;

	function SFTRepCount : Integer ;

	function RESPONSERepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

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

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

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

	property RESPONSE[RepCount:Integer]: TbsRSP_K31_RESPONSE_271 read GetRESPONSE write SetRESPONSE;
RESPONSE, Usage : R, Min : 1, Max : *

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