Procedure

TfrmODDiet.cboOPDietAvailExit

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cboOPDietAvailExit(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cboOPDietAvailExit
 └TfrmODDiet.cboOPDietAvailMouseClick
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TfrmODDiet.SetValuesFromResponsesOP
   │ ├TfrmODDiet.ResetControlsOP
   │ ├TResponses.FindResponseByName
   │ ├DietAttributes
   │ ├TResponses.SetControl
   │ │ ├TResponses.FindResponseByName
   │ │ └AssignBPText
   │ │   ├DisplayGroupToLinkType
   │ │   │ └DisplayGroupByName
   │ │   ├TResponses.EValueFor
   │ │   ├GetServiceIEN
   │ │   ├TResponses.IValueFor
   │ │   ├GetProcedureIEN
   │ │   ├ExpandOrderObjects...
   │ │   ├SetTemplateDialogCanceled
   │ │   ├CheckBoilerplate4Fields
   │ │   ├ExecuteTemplateOrBoilerPlate
   │ │   └WasTemplateDialogCanceled
   │ ├TfrmODDiet.calOPStopChange
   │ │ ├TfrmODDiet.SetEnableOPDOW
   │ │ ├TfrmODDiet.FMDOW
   │ │ ├TfrmODDiet.FMDays
   │ │ └TfrmODDiet.OPChange
   │ │   ├TResponses.Clear
   │ │   ├TResponses.Update
   │ │   │ ├TResponses.FindResponseByName
   │ │   │ └TResponses.IENForPrompt
   │ │   ├TfrmODDiet.GetOPDaysOfWeek
   │ │   └TResponses.GetOrderText
   │ │     ├TResponses.NextInstance
   │ │     ├TResponses.FindResponseByName
   │ │     ├TResponses.FormatResponse
   │ │     │ └TResponses.FindResponseByIEN
   │ │     └TResponses.AppendChildren
   │ │       ├TResponses.FindPromptByIEN
   │ │       ├TResponses.FindResponseByIEN
   │ │       └TResponses.FormatResponse...
   │ ├TfrmODDiet.OPDietCheckForNPO
   │ ├TfrmODDiet.OPDietCheckForTF
   │ │ └TextForOrder
   │ └TfrmODDiet.OPChange...
   ├DietAttributes
   ├TfrmODDiet.OPDietCheckForNPO
   ├TfrmODDiet.OPDietCheckForTF...
   ├TfrmODBase.OrderMessage
   │ └TfrmODBase.ShowOrderMessage
   ├OIMessage
   └TfrmODDiet.OPChange...

Calls

Name Declaration Comments
TfrmODDiet.cboOPDietAvailMouseClick procedure cboOPDietAvailMouseClick(Sender: TObject); -


Source

1898  procedure TfrmODDiet.cboOPDietAvailExit(Sender: TObject);
1899  begin
1900    inherited;
1901    if (cboOPDietAvail.ItemIEN > 0) or (CharAt(cboOPDietAvail.ItemID, 1) = 'Q') then
1902      cboOPDietAvailMouseClick(Self);
1903  end;