Procedure

TfrmODDiet.calELStartExit

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure calELStartExit(Sender: TObject);

Calls Hierarchy


TfrmODDiet.calELStartExit
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 └TfrmODDiet.SetEnableDOW

Calls

Name Declaration Comments
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -
TfrmODDiet.SetEnableDOW procedure SetEnableDOW(AllowUse: Boolean); -


Source

1730  procedure TfrmODDiet.calELStartExit(Sender: TObject);
1731  begin
1732    inherited;
1733    if not OrderForInpatient then SetEnableDOW(False)
1734    else if (Length(calELStop.Text) > 0) and (calELStop.Text = calELStart.Text)
1735      then SetEnableDOW(False)
1736      else SetEnableDOW(True);
1737  end;