Class TbsBAR_P12_26

Unit

BSHL726

Declaration

type TbsBAR_P12_26 = class(TbsHL7Message)

Description

Represents a BAR_P12(Update diagnose/procedure) message structure. This structure contains the following elements:

1. MSH, required

2. SFT, optional repeating

3. UAC, optional

4. EVN, required

5. PID, required

6. PV1, required

7. DG1, optional repeating

8. DRG, optional

9. PROCEDURE, optional repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsBAR_P12_26

Overview

Methods

	function SFTRepCount : Integer ;
	function DG1RepCount : Integer ;
	function PROCEDURE_RepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_26 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_26 read GetSFT write SetSFT;
	property UAC : TbsUAC_26 read GetUAC write SetUAC;
	property EVN : TbsEVN_26 read GetEVN write SetEVN;
	property PID : TbsPID_26 read GetPID write SetPID;
	property PV1 : TbsPV1_26 read GetPV1 write SetPV1;
	property DG1[RepCount:Integer]: TbsDG1_26 read GetDG1 write SetDG1;
	property DRG : TbsDRG_26 read GetDRG write SetDRG;
	property PROCEDURE_[RepCount:Integer]: TbsBAR_P12_PROCEDURE_26 read GetPROCEDURE_ write SetPROCEDURE_;

Description

Methods

	function SFTRepCount : Integer ;

	function DG1RepCount : Integer ;

	function PROCEDURE_RepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

	property EVN : TbsEVN_26 read GetEVN write SetEVN;
EVN, Min : 1, Max : 1

	property PID : TbsPID_26 read GetPID write SetPID;
PID, Min : 1, Max : 1

	property PV1 : TbsPV1_26 read GetPV1 write SetPV1;
PV1, Min : 1, Max : 1

	property DG1[RepCount:Integer]: TbsDG1_26 read GetDG1 write SetDG1;
DG1, Usage : O, Min : 0, Max : *

	property DRG : TbsDRG_26 read GetDRG write SetDRG;
DRG, Min : 0, Max : 1

	property PROCEDURE_[RepCount:Integer]: TbsBAR_P12_PROCEDURE_26 read GetPROCEDURE_ write SetPROCEDURE_;
PROCEDURE, Usage : O, Min : 0, Max : *