Class TbsRSP_K31_27

Unit

BSHL727

Declaration

type TbsRSP_K31_27 = 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_27

Overview

Methods

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

Properties

	property MSH : TbsMSH_27 read GetMSH write SetMSH;
	property MSA : TbsMSA_27 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_27 read GetERR write SetERR;
	property SFT[RepCount:Integer]: TbsSFT_27 read GetSFT write SetSFT;
	property UAC : TbsUAC_27 read GetUAC write SetUAC;
	property QAK : TbsQAK_27 read GetQAK write SetQAK;
	property QPD : TbsQPD_27 read GetQPD write SetQPD;
	property RCP : TbsRCP_27 read GetRCP write SetRCP;
	property RESPONSE[RepCount:Integer]: TbsRSP_K31_RESPONSE_27 read GetRESPONSE write SetRESPONSE;
	property DSC : TbsDSC_27 read GetDSC write SetDSC;

Description

Methods

	function ERRRepCount : Integer ;

	function SFTRepCount : Integer ;

	function RESPONSERepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

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

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

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

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

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