Class TbsADT_A60_28

Unit

BSHL728

Declaration

type TbsADT_A60_28 = class(TbsHL7Message)

Description

Represents a ADT_A60(Update allergy information) 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. ARV, optional repeating

7. PV1, optional

8. PV2, optional

9. ARV, optional repeating

10. ADVERSE_REACTION_GROUP, optional repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsADT_A60_28

Overview

Methods

	function SFTRepCount : Integer ;
	function ARVRepCount : Integer ;
	function ARV2RepCount : Integer ;
	function ADVERSE_REACTION_GROUPRepCount : 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 ARV[RepCount:Integer]: TbsARV_28 read GetARV write SetARV;
	property PV1 : TbsPV1_28 read GetPV1 write SetPV1;
	property PV2 : TbsPV2_28 read GetPV2 write SetPV2;
	property ARV2[RepCount:Integer]: TbsARV_28 read GetARV2 write SetARV2;
	property ADVERSE_REACTION_GROUP[RepCount:Integer]: TbsADT_A60_ADVERSE_REACTION_GROUP_28 read GetADVERSE_REACTION_GROUP write SetADVERSE_REACTION_GROUP;

Description

Methods

	function SFTRepCount : Integer ;

	function ARVRepCount : Integer ;

	function ARV2RepCount : Integer ;

	function ADVERSE_REACTION_GROUPRepCount : 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 ARV[RepCount:Integer]: TbsARV_28 read GetARV write SetARV;
ARV, Usage : O, Min : 0, Max : *

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

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

	property ARV2[RepCount:Integer]: TbsARV_28 read GetARV2 write SetARV2;
ARV, Usage : O, Min : 0, Max : *

	property ADVERSE_REACTION_GROUP[RepCount:Integer]: TbsADT_A60_ADVERSE_REACTION_GROUP_28 read GetADVERSE_REACTION_GROUP write SetADVERSE_REACTION_GROUP;
ADVERSE_REACTION_GROUP, Usage : O, Min : 0, Max : *