Class TbsAL1_231

Unit

BSHL7DT231

Declaration

type TbsAL1_231 = class(TbsHL7Segment)

Description

Patient allergy information segment The AL1 segment contains patient allergy information of various types. Most of this information will be derived from user-defined tables. Each AL1 segment describes a single patient allergy.

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Segment
• TbsAL1_231

Overview

Methods

function AllergyReactionRepCount : Integer;

Properties

	property SetIDAL1 : TbsSI_231 read GetSetIDAL1 write SetSetIDAL1;
	property AllergyType : TbsIS_231 read GetAllergyType write SetAllergyType;
	property AllergyCodeMnemonicDescription : TbsCE_231 read GetAllergyCodeMnemonicDescription write SetAllergyCodeMnemonicDescription;
	property AllergySeverity : TbsIS_231 read GetAllergySeverity write SetAllergySeverity;
	property AllergyReaction[RepCount:Integer]: TbsST_231 read GetAllergyReaction write SetAllergyReaction;
	property IdentificationDate : TbsDT_231 read GetIdentificationDate write SetIdentificationDate;

Description

Methods

	function AllergyReactionRepCount : Integer;

Properties

	property SetIDAL1 : TbsSI_231 read GetSetIDAL1 write SetSetIDAL1;
Set ID - AL1, Min : 1, Max : 1

	property AllergyType : TbsIS_231 read GetAllergyType write SetAllergyType;
Allergy Type, Min : 0, Max : 1

	property AllergyCodeMnemonicDescription : TbsCE_231 read GetAllergyCodeMnemonicDescription write SetAllergyCodeMnemonicDescription;
Allergy Code/Mnemonic/Description, Min : 1, Max : 1

	property AllergySeverity : TbsIS_231 read GetAllergySeverity write SetAllergySeverity;
Allergy Severity, Min : 0, Max : 1

	property AllergyReaction[RepCount:Integer]: TbsST_231 read GetAllergyReaction write SetAllergyReaction;
Allergy Reaction, Min : 0, Max : *

	property IdentificationDate : TbsDT_231 read GetIdentificationDate write SetIdentificationDate;
Identification Date, Min : 0, Max : 1