Class TbsVH_24

Unit

BSHL7DT24

Declaration

type TbsVH_24 = class(TbsHL7Object)

Description

Visiting Hours

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TbsVH_24

Overview

Methods

procedure Init; override;

Properties

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

Description

Methods

	procedure Init; override;

Properties

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

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

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

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