Class TbsVH_27

Unit

BSHL7DT27

Declaration

type TbsVH_27 = class(TbsHL7Object)

Description

Visiting Hours

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TbsVH_27

Overview

Methods

procedure Init; override;

Properties

	property StartDayRange: TbsID_27 read GetStartDayRange write SetStartDayRange;
	property EndDayRange: TbsID_27 read GetEndDayRange write SetEndDayRange;
	property StartHourRange: TbsTM_27 read GetStartHourRange write SetStartHourRange;
	property EndHourRange: TbsTM_27 read GetEndHourRange write SetEndHourRange;

Description

Methods

	procedure Init; override;

Properties

	property StartDayRange: TbsID_27 read GetStartDayRange write SetStartDayRange;
Start Day Range, Min : 0, Max : 1

	property EndDayRange: TbsID_27 read GetEndDayRange write SetEndDayRange;
End Day Range, Min : 0, Max : 1

	property StartHourRange: TbsTM_27 read GetStartHourRange write SetStartHourRange;
Start Hour Range, Min : 0, Max : 1

	property EndHourRange: TbsTM_27 read GetEndHourRange write SetEndHourRange;
End Hour Range, Min : 0, Max : 1