Class TbsVH_28

Unit

BSHL7DT28

Declaration

type TbsVH_28 = class(TbsHL7Object)

Description

Visiting Hours

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TbsVH_28

Overview

Methods

procedure Init; override;

Properties

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

Description

Methods

	procedure Init; override;

Properties

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

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

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

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