Class TbsVH_23

Unit

BSHL7DT23

Declaration

type TbsVH_23 = class(TbsHL7Object)

Description

Visiting Hours

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TbsVH_23

Overview

Methods

procedure Init; override;

Properties

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

Description

Methods

	procedure Init; override;

Properties

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

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

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

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