Class TbsRSP_K31_28

Unit

BSHL728

Declaration

type TbsRSP_K31_28 = 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_28

Overview

Methods

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

Properties

	property MSH : TbsMSH_28 read GetMSH write SetMSH;
	property MSA : TbsMSA_28 read GetMSA write SetMSA;
	property ERR[RepCount:Integer]: TbsERR_28 read GetERR write SetERR;
	property SFT[RepCount:Integer]: TbsSFT_28 read GetSFT write SetSFT;
	property UAC : TbsUAC_28 read GetUAC write SetUAC;
	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 RESPONSE[RepCount:Integer]: TbsRSP_K31_RESPONSE_28 read GetRESPONSE write SetRESPONSE;
	property DSC : TbsDSC_28 read GetDSC write SetDSC;

Description

Methods

	function ERRRepCount : Integer ;

	function SFTRepCount : Integer ;

	function RESPONSERepCount : Integer ;

	procedure Init; override;

Properties

	property MSH : TbsMSH_28 read GetMSH write SetMSH;
MSH, Min : 1, 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 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 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 RESPONSE[RepCount:Integer]: TbsRSP_K31_RESPONSE_28 read GetRESPONSE write SetRESPONSE;
RESPONSE, Usage : R, Min : 1, Max : *

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