Procedure

TfrmODDiet.SetValuesFromResponsesAO

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODDiet

Declaration

procedure SetValuesFromResponsesAO;

Calls Hierarchy


TfrmODDiet.SetValuesFromResponsesAO
 ├TfrmODDiet.ResetControlsAO
 ├TResponses.SetControl
 │ ├TResponses.FindResponseByName
 │ └AssignBPText
 │   ├DisplayGroupToLinkType
 │   │ └DisplayGroupByName
 │   ├TResponses.EValueFor
 │   ├GetServiceIEN
 │   ├TResponses.IValueFor
 │   ├GetProcedureIEN
 │   ├ExpandOrderObjects
 │   │ ├TdmodShared.BoilerplateOK
 │   │ │ ├ErrCount
 │   │ │ ├AddErr
 │   │ │ └TdmodShared.LoadTIUObjects
 │   │ │   └GetObjectList
 │   │ └GetTemplateText
 │   │   └TEncounter.GetVisitStr
 │   │     └TEncounter.GetVisitCategory
 │   ├SetTemplateDialogCanceled
 │   ├CheckBoilerplate4Fields
 │   ├ExecuteTemplateOrBoilerPlate
 │   └WasTemplateDialogCanceled
 └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.SetValuesFromResponsesAO
           TfrmODDiet.SetupDialog┘ 

Calls

Name Declaration Comments
TfrmODDiet.AOChange procedure AOChange(Sender: TObject); -
TfrmODDiet.ResetControlsAO procedure ResetControlsAO; -
TResponses.SetControl procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); -

Called-By

Name Declaration Comments
TfrmODDiet.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

1822  procedure TfrmODDiet.SetValuesFromResponsesAO;
1823  begin
1824    Changing := True;
1825    ResetControlsAO;
1826    Responses.SetControl(txtAOComment, 'COMMENT', 1);
1827    //Responses.SetControl(calOPAOStart, 'DATETIME', 1);
1828    Responses.SetControl(cboOPAORecurringMeals, 'DATETIME', 1);
1829    Changing := False;
1830    AOChange(Self);
1831  end;