Class TbsVH_25

Unit

BSHL7DT25

Declaration

type TbsVH_25 = class(TbsHL7Object)

Description

Visiting Hours

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TbsVH_25

Overview

Methods

procedure Init; override;

Properties

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

Description

Methods

	procedure Init; override;

Properties

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

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

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

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