Class TbsADT_A09_231

Unit

BSHL7231

Declaration

type TbsADT_A09_231 = class(TbsHL7Message)

Description

Represents a ADT_A09(Patient departing - tracking) message structure. This structure contains the following elements:

1. MSH, required

2. EVN, required

3. PID, required

4. PD1, optional

5. PV1, required

6. PV2, optional

7. DB1, optional repeating

8. OBX, optional repeating

9. DG1, optional repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsADT_A09_231

Overview

Methods

	function DB1RepCount : Integer ;
	function OBXRepCount : Integer ;
	function DG1RepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_231 read GetMSH write SetMSH;
	property EVN : TbsEVN_231 read GetEVN write SetEVN;
	property PID : TbsPID_231 read GetPID write SetPID;
	property PD1 : TbsPD1_231 read GetPD1 write SetPD1;
	property PV1 : TbsPV1_231 read GetPV1 write SetPV1;
	property PV2 : TbsPV2_231 read GetPV2 write SetPV2;
	property DB1[RepCount:Integer]: TbsDB1_231 read GetDB1 write SetDB1;
	property OBX[RepCount:Integer]: TbsOBX_231 read GetOBX write SetOBX;
	property DG1[RepCount:Integer]: TbsDG1_231 read GetDG1 write SetDG1;

Description

Methods

	function DB1RepCount : Integer ;

	function OBXRepCount : Integer ;

	function DG1RepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

	property PV2 : TbsPV2_231 read GetPV2 write SetPV2;
PV2, Min : 0, Max : 1

	property DB1[RepCount:Integer]: TbsDB1_231 read GetDB1 write SetDB1;
DB1, Usage : O, Min : 0, Max : *

	property OBX[RepCount:Integer]: TbsOBX_231 read GetOBX write SetOBX;
OBX, Usage : O, Min : 0, Max : *

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