Procedure

TfrmODDiet.AOChange

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure AOChange(Sender: TObject);

Calls Hierarchy


TfrmODDiet.AOChange
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 ├TfrmODBase.OrderForInpatient
 │ ├OrderEventTypeOnCreate
 │ └IsPassEvt1
 └TResponses.GetOrderText
   ├TResponses.NextInstance
   ├TResponses.FindResponseByName
   ├TResponses.FormatResponse
   │ └TResponses.FindResponseByIEN
   └TResponses.AppendChildren
     ├TResponses.FindPromptByIEN
     ├TResponses.FindResponseByIEN
     └TResponses.FormatResponse...

Called-By Hierarchy


                  TfrmODDiet.AOChange
TfrmODDiet.SetValuesFromResponsesAO┘ 
           TfrmODDiet.SetupDialog┘   

Calls

Name Declaration Comments
TResponses.GetOrderText function GetOrderText: string; -
TfrmODBase.OrderForInpatient function OrderForInpatient: Boolean; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -

Called-By

Name Declaration Comments
TfrmODDiet.SetValuesFromResponsesAO procedure SetValuesFromResponsesAO; -


Source

1833  procedure TfrmODDiet.AOChange(Sender: TObject);
1834  begin
1835    inherited;
1836    if Changing then Exit;
1837    with txtAOComment do if Text <> ''
1838      then Responses.Update('COMMENT', 1, Text, Text);
1839    if not OrderForInpatient then
1840      begin
1841        calOPAOStart.FMDateTime := StrToFloatDef(cboOPAORecurringMeals.ItemID, 0);
1842        Responses.Update('DATETIME', 1, FloatToStr(calOPAOStart.FMDateTime), calOPAOStart.Text);
1843      end;
1844    memOrder.Text := Responses.OrderText;
1845  end;