Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure cboProductExit(Sender: TObject);

Calls Hierarchy

TfrmODDiet.cboProductExit
 └TfrmODDiet.cboProductMouseClick
   ├TResponses.SetQuickOrder
   │ ├TResponses.Clear
   │ └LoadResponses
   │   └ExtractToResponses
   │     └ExpandOrderObjects
   │       ├TdmodShared.BoilerplateOK
   │       │ ├ErrCount
   │       │ ├AddErr
   │       │ └TdmodShared.LoadTIUObjects
   │       │   └GetObjectList
   │       └GetTemplateText
   │         └TEncounter.GetVisitStr
   │           └TEncounter.GetVisitCategory
   ├TfrmODDiet.SetValuesFromResponsesTF
   │ ├TfrmODDiet.ResetControlsTF
   │ │ └TfrmODDiet.TFClearGrid
   │ ├TResponses.NextInstance
   │ ├TResponses.FindResponseByName
   │ ├TfrmODDiet.TFSetAmountForRow
   │ │ ├TfrmODDiet.TFStrengthCode
   │ │ └ExpandedQuantity
   │ ├TfrmODBase.OrderForInpatient
   │ │ ├OrderEventTypeOnCreate
   │ │ └IsPassEvt1
   │ ├TResponses.SetControl
   │ │ ├TResponses.FindResponseByName
   │ │ └AssignBPText
   │ │   ├DisplayGroupToLinkType
   │ │   │ └DisplayGroupByName
   │ │   ├TResponses.EValueFor
   │ │   ├GetServiceIEN
   │ │   ├TResponses.IValueFor
   │ │   ├GetProcedureIEN
   │ │   ├ExpandOrderObjects...
   │ │   ├SetTemplateDialogCanceled
   │ │   ├CheckBoilerplate4Fields
   │ │   ├ExecuteTemplateOrBoilerPlate
   │ │   └WasTemplateDialogCanceled
   │ └TfrmODDiet.TFChange
   │   ├TResponses.Clear
   │   ├TResponses.Update
   │   │ ├TResponses.FindResponseByName
   │   │ └TResponses.IENForPrompt
   │   ├TfrmODDiet.TFStrengthCode
   │   ├TfrmODBase.OrderForInpatient...
   │   └TResponses.GetOrderText
   │     ├TResponses.NextInstance
   │     ├TResponses.FindResponseByName
   │     ├TResponses.FormatResponse
   │     │ └TResponses.FindResponseByIEN
   │     └TResponses.AppendChildren
   │       ├TResponses.FindPromptByIEN
   │       ├TResponses.FindResponseByIEN
   │       └TResponses.FormatResponse...
   ├TfrmODBase.OrderMessage
   │ └TfrmODBase.ShowOrderMessage
   ├OIMessage
   └TfrmODDiet.TFChange...

Calls

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

Source

1267  procedure TfrmODDiet.cboProductExit(Sender: TObject);
1268  begin
1269    inherited;
1270    if (cboProduct.ItemIEN > 0) or (CharAt(cboProduct.ItemID, 1) = 'Q') then
1271      cboProductMouseClick(Self);
1272  end;