Class TbsAL1_26

Unit

BSHL7DT26

Declaration

type TbsAL1_26 = class(TbsHL7Segment)

Description

Patient Allergy Information 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_26

Overview

Methods

function AllergyReactionCodeRepCount : Integer;

Properties

	property SetIDAL1 : TbsSI_26 read GetSetIDAL1 write SetSetIDAL1;
	property AllergenTypeCode : TbsCWE_26 read GetAllergenTypeCode write SetAllergenTypeCode;
	property AllergenCodeMnemonicDescription : TbsCWE_26 read GetAllergenCodeMnemonicDescription write SetAllergenCodeMnemonicDescription;
	property AllergySeverityCode : TbsCWE_26 read GetAllergySeverityCode write SetAllergySeverityCode;
	property AllergyReactionCode[RepCount:Integer]: TbsST_26 read GetAllergyReactionCode write SetAllergyReactionCode;
	property IdentificationDate : TbsDT_26 read GetIdentificationDate write SetIdentificationDate;

Description

Methods

	function AllergyReactionCodeRepCount : Integer;

Properties

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

	property AllergenTypeCode : TbsCWE_26 read GetAllergenTypeCode write SetAllergenTypeCode;
Allergen Type Code, Min : 0, Max : 1

	property AllergenCodeMnemonicDescription : TbsCWE_26 read GetAllergenCodeMnemonicDescription write SetAllergenCodeMnemonicDescription;
Allergen Code/Mnemonic/Description, Min : 1, Max : 1

	property AllergySeverityCode : TbsCWE_26 read GetAllergySeverityCode write SetAllergySeverityCode;
Allergy Severity Code, Min : 0, Max : 1

	property AllergyReactionCode[RepCount:Integer]: TbsST_26 read GetAllergyReactionCode write SetAllergyReactionCode;
Allergy Reaction Code, Min : 0, Max : *

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