Procedure

TfrmODDiet.cboDietAvailExit

Module

fODDiet

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODDiet

Declaration

procedure cboDietAvailExit(Sender: TObject);

Calls Hierarchy


TfrmODDiet.cboDietAvailExit
 └TfrmODDiet.cboDietAvailMouseClick
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TfrmODDiet.SetValuesFromResponsesDO
   │ ├TfrmODDiet.ResetControlsDO
   │ ├TResponses.NextInstance
   │ ├TResponses.FindResponseByName
   │ ├DietAttributes
   │ ├TResponses.SetControl
   │ │ ├TResponses.FindResponseByName
   │ │ └AssignBPText
   │ │   ├DisplayGroupToLinkType
   │ │   │ └DisplayGroupByName
   │ │   ├TResponses.EValueFor
   │ │   ├GetServiceIEN
   │ │   ├TResponses.IValueFor
   │ │   ├GetProcedureIEN
   │ │   ├ExpandOrderObjects...
   │ │   ├SetTemplateDialogCanceled
   │ │   ├CheckBoilerplate4Fields
   │ │   ├ExecuteTemplateOrBoilerPlate
   │ │   └WasTemplateDialogCanceled
   │ ├TfrmODDiet.DietCheckForNPO
   │ ├TfrmODDiet.DietCheckForTF
   │ │ └TextForOrder
   │ └TfrmODDiet.DietChange
   │   ├TResponses.Clear
   │   ├TResponses.Update
   │   │ ├TResponses.FindResponseByName
   │   │ └TResponses.IENForPrompt
   │   └TResponses.GetOrderText
   │     ├TResponses.NextInstance
   │     ├TResponses.FindResponseByName
   │     ├TResponses.FormatResponse
   │     │ └TResponses.FindResponseByIEN
   │     └TResponses.AppendChildren
   │       ├TResponses.FindPromptByIEN
   │       ├TResponses.FindResponseByIEN
   │       └TResponses.FormatResponse...
   ├SetError
   ├DietAttributes
   ├TfrmODDiet.DietCheckForNPO
   ├TfrmODDiet.DietCheckForTF...
   ├TfrmODBase.OrderMessage
   │ └TfrmODBase.ShowOrderMessage
   ├OIMessage
   └TfrmODDiet.DietChange...

Calls

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


Source

1122  procedure TfrmODDiet.cboDietAvailExit(Sender: TObject);
1123  begin
1124    inherited;
1125    if (cboDietAvail.ItemIEN > 0) or (CharAt(cboDietAvail.ItemID, 1) = 'Q') then
1126      cboDietAvailMouseClick(Self);
1127  end;