Class TbsBAR_P01_28

Unit

BSHL728

Declaration

type TbsBAR_P01_28 = class(TbsHL7Message)

Description

Represents a BAR_P01(Add patient accounts) 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. PD1, optional

7. PRT, required repeating

8. ROL, required repeating

9. VISIT, required repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsBAR_P01_28

Overview

Methods

	function SFTRepCount : Integer ;
	function PRTRepCount : Integer ;
	function ROLRepCount : Integer ;
	function VISITRepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_28 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_28 read GetSFT write SetSFT;
	property UAC : TbsUAC_28 read GetUAC write SetUAC;
	property EVN : TbsEVN_28 read GetEVN write SetEVN;
	property PID : TbsPID_28 read GetPID write SetPID;
	property PD1 : TbsPD1_28 read GetPD1 write SetPD1;
	property PRT[RepCount:Integer]: TbsPRT_28 read GetPRT write SetPRT;
	property ROL[RepCount:Integer]: TbsROL_28 read GetROL write SetROL;
	property VISIT[RepCount:Integer]: TbsBAR_P01_VISIT_28 read GetVISIT write SetVISIT;

Description

Methods

	function SFTRepCount : Integer ;

	function PRTRepCount : Integer ;

	function ROLRepCount : Integer ;

	function VISITRepCount : Integer ;

	procedure Init; override;

Properties

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

	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 EVN : TbsEVN_28 read GetEVN write SetEVN;
EVN, Min : 1, Max : 1

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

	property PD1 : TbsPD1_28 read GetPD1 write SetPD1;
PD1, Min : 0, Max : 1

	property PRT[RepCount:Integer]: TbsPRT_28 read GetPRT write SetPRT;
PRT, Usage : B, Min : 0, Max : *

	property ROL[RepCount:Integer]: TbsROL_28 read GetROL write SetROL;
ROL, Usage : B, Min : 0, Max : *

	property VISIT[RepCount:Integer]: TbsBAR_P01_VISIT_28 read GetVISIT write SetVISIT;
VISIT, Usage : R, Min : 1, Max : *