Procedure

TfrmODDiet.calELStopChange

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure calELStopChange(Sender: TObject);

Calls Hierarchy


TfrmODDiet.calELStopChange
 ├TfrmODDiet.SetEnableDOW
 └TfrmODDiet.ELChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODDiet.GetMealTime
   ├TfrmODDiet.IsEarlyTray
   ├TfrmODBase.OrderForInpatient
   │ ├OrderEventTypeOnCreate
   │ └IsPassEvt1
   ├TfrmODDiet.GetDaysOfWeek
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


           TfrmODDiet.calELStopChange
TfrmODDiet.SetValuesFromResponsesEL┘ 
           TfrmODDiet.SetupDialog┘   

Calls

Name Declaration Comments
TfrmODDiet.ELChange procedure ELChange(Sender: TObject); -
TfrmODDiet.SetEnableDOW procedure SetEnableDOW(AllowUse: Boolean); -

Called-By

Name Declaration Comments
TfrmODDiet.SetValuesFromResponsesEL procedure SetValuesFromResponsesEL; -


Source

1739  procedure TfrmODDiet.calELStopChange(Sender: TObject);
1740  begin
1741    inherited;
1742    if (Length(calELStop.Text) > 0) and (calELStop.FMDateTime = calELStart.FMDateTime)
1743      then SetEnableDOW(False)
1744      else SetEnableDOW(True);
1745    ELChange(Sender);
1746  end;