Procedure

TfrmODMedIn.cboDispenseMouseClick

Module

fODMedIn

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIn

Declaration

procedure cboDispenseMouseClick(Sender: TObject);

Calls Hierarchy


TfrmODMedIn.cboDispenseMouseClick
 ├TfrmODMedIn.CheckFormAlt
 │ ├SelectFormularyAlt
 │ │ ├LoadFormularyAlt
 │ │ └TfrmBase508Form.Create
 │ │   ├TfrmBase508Form.UpdateAccessibilityActions
 │ │   ├UnfocusableControlEnter
 │ │   └AdjustControls
 │ │     ├TfrmBase508Form.ModifyUnfocusableControl
 │ │     └..(rec)..
 │ └TfrmODMedIn.cboMedicationSelect
 │   ├TResponses.Clear
 │   ├TfrmODMedIn.ResetOnMedChange
 │   │ ├ClearControl
 │   │ └ResetControl
 │   ├TResponses.SetQuickOrder
 │   │ ├TResponses.Clear
 │   │ └LoadResponses
 │   │   └ExtractToResponses
 │   │     └ExpandOrderObjects
 │   │       ├TdmodShared.BoilerplateOK
 │   │       │ ├ErrCount
 │   │       │ ├AddErr
 │   │       │ └TdmodShared.LoadTIUObjects
 │   │       │   └GetObjectList
 │   │       └GetTemplateText
 │   │         └TEncounter.GetVisitStr
 │   │           └TEncounter.GetVisitCategory
 │   ├TResponses.SetControl
 │   │ ├TResponses.FindResponseByName
 │   │ └AssignBPText
 │   │   ├DisplayGroupToLinkType
 │   │   │ └DisplayGroupByName
 │   │   ├TResponses.EValueFor
 │   │   ├GetServiceIEN
 │   │   ├TResponses.IValueFor
 │   │   ├GetProcedureIEN
 │   │   ├ExpandOrderObjects...
 │   │   ├SetTemplateDialogCanceled
 │   │   ├CheckBoilerplate4Fields
 │   │   ├ExecuteTemplateOrBoilerPlate
 │   │   └WasTemplateDialogCanceled
 │   ├TfrmODMedIn.SetOnOISelect
 │   │ ├TCtrlInits.LoadOrderItem
 │   │ │ ├TCtrlInits.ClearOI
 │   │ │ └TCtrlInits.ExtractInits
 │   │ │   └TCtrlInit.Create
 │   │ ├OIForMedIn
 │   │ ├TCtrlInits.SetControl
 │   │ │ ├ClearControl
 │   │ │ └TCtrlInits.FindInitByName
 │   │ ├TCtrlInits.DefaultText
 │   │ │ └TCtrlInits.FindInitByName
 │   │ ├TfrmODBase.OrderMessage
 │   │ │ └TfrmODBase.ShowOrderMessage
 │   │ └TCtrlInits.TextOf
 │   │   └TCtrlInits.FindInitByName
 │   ├TfrmODMedIn.ControlChange
 │   │ ├TResponses.Update
 │   │ │ ├TResponses.FindResponseByName
 │   │ │ └TResponses.IENForPrompt
 │   │ └TResponses.GetOrderText
 │   │   ├TResponses.NextInstance
 │   │   ├TResponses.FindResponseByName
 │   │   ├TResponses.FormatResponse
 │   │   │ └TResponses.FindResponseByIEN
 │   │   └TResponses.AppendChildren
 │   │     ├TResponses.FindPromptByIEN
 │   │     ├TResponses.FindResponseByIEN
 │   │     └TResponses.FormatResponse...
 │   ├TfrmODMedIn.SetAltCombo
 │   │ └TCtrlInits.SetListOnly
 │   │   └TCtrlInits.FindInitByName
 │   └TfrmODMedIn.cboDispenseMouseClick...
 ├TfrmODBase.OrderMessage...
 └DispenseMessage

Called-By Hierarchy


         TfrmODMedIn.cboDispenseMouseClick
         TfrmODMedIn.cboMedicationSelect┘ 
              TfrmODMedIn.CheckFormAlt┘   
         TfrmODMedIn.cboDispenseExit┤     
TfrmODMedIn.cboDispenseMouseClick...┘     

Calls

Name Declaration Comments
TfrmODMedIn.CheckFormAlt procedure CheckFormAlt; -
DispenseMessage function DispenseMessage(AnIEN: Integer): string; -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -

Called-By

Name Declaration Comments
TfrmODMedIn.cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); -


Source

327   procedure TfrmODMedIn.cboDispenseMouseClick(Sender: TObject);
328   begin
329     inherited;
330     with cboDispense do
331     begin
332       if ItemIEN <> FLastDrug then CheckFormAlt;
333       if ItemIEN > 0 then OrderMessage(DispenseMessage(ItemIEN));
334       FLastDrug := ItemIEN;
335     end;
336   end;