Class TbsADT_A17_22

Unit

BSHL722

Declaration

type TbsADT_A17_22 = class(TbsHL7Message)

Description

Represents a ADT_A17(Swap Patients) message structure. This structure contains the following elements:

1. MSH, required

2. EVN, required

3. PID, required

4. PV1, required

5. PV2, optional

6. OBX, optional repeating

7. PID, required

8. PV1, required

9. PV2, optional

10. OBX, optional repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsADT_A17_22

Overview

Methods

	function OBXRepCount : Integer ;
	function OBX2RepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_22 read GetMSH write SetMSH;
	property EVN : TbsEVN_22 read GetEVN write SetEVN;
	property PID : TbsPID_22 read GetPID write SetPID;
	property PV1 : TbsPV1_22 read GetPV1 write SetPV1;
	property PV2 : TbsPV2_22 read GetPV2 write SetPV2;
	property OBX[RepCount:Integer]: TbsOBX_22 read GetOBX write SetOBX;
	property PID2 : TbsPID_22 read GetPID2 write SetPID2;
	property PV12 : TbsPV1_22 read GetPV12 write SetPV12;
	property PV22 : TbsPV2_22 read GetPV22 write SetPV22;
	property OBX2[RepCount:Integer]: TbsOBX_22 read GetOBX2 write SetOBX2;

Description

Methods

	function OBXRepCount : Integer ;

	function OBX2RepCount : Integer ;

	procedure Init; override;

Properties

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

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

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

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

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

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

	property PID2 : TbsPID_22 read GetPID2 write SetPID2;
PID, Min : 1, Max : 1

	property PV12 : TbsPV1_22 read GetPV12 write SetPV12;
PV1, Min : 1, Max : 1

	property PV22 : TbsPV2_22 read GetPV22 write SetPV22;
PV2, Min : 0, Max : 1

	property OBX2[RepCount:Integer]: TbsOBX_22 read GetOBX2 write SetOBX2;
OBX, Usage : O, Min : 0, Max : *