Procedure

TfrmODMedOut.cboDispenseMouseClick

Module

fODMedOut

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedOut

Declaration

procedure cboDispenseMouseClick(Sender: TObject);

Calls Hierarchy


TfrmODMedOut.cboDispenseMouseClick
 ├TfrmODMedOut.SetMaxRefills
 ├TfrmODMedOut.CheckFormAlt
 │ ├SelectFormularyAlt
 │ │ ├LoadFormularyAlt
 │ │ └TfrmBase508Form.Create
 │ │   ├TfrmBase508Form.UpdateAccessibilityActions
 │ │   ├UnfocusableControlEnter
 │ │   └AdjustControls
 │ │     ├TfrmBase508Form.ModifyUnfocusableControl
 │ │     └..(rec)..
 │ ├TfrmODMedOut.cboMedicationSelect
 │ │ ├TResponses.Clear
 │ │ ├TfrmODMedOut.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
 │ │ ├TfrmODMedOut.SetOnOISelect
 │ │ │ ├TCtrlInits.LoadOrderItem
 │ │ │ │ ├TCtrlInits.ClearOI
 │ │ │ │ └TCtrlInits.ExtractInits
 │ │ │ │   └TCtrlInit.Create
 │ │ │ ├OIForMedOut
 │ │ │ ├TCtrlInits.SetControl
 │ │ │ │ ├ClearControl
 │ │ │ │ └TCtrlInits.FindInitByName
 │ │ │ ├TCtrlInits.DefaultText
 │ │ │ │ └TCtrlInits.FindInitByName
 │ │ │ ├TfrmODMedOut.SetupNouns
 │ │ │ │ ├TCtrlInits.SetPopupMenu
 │ │ │ │ │ └TCtrlInits.FindInitByName
 │ │ │ │ └TfrmODMedOut.UnitClick
 │ │ │ ├TfrmODBase.OrderMessage
 │ │ │ │ └TfrmODBase.ShowOrderMessage
 │ │ │ └TCtrlInits.TextOf
 │ │ │   └TCtrlInits.FindInitByName
 │ │ ├TfrmODMedOut.SetInstructions
 │ │ │ ├TResponses.InstanceCount
 │ │ │ ├TResponses.EValueFor
 │ │ │ ├TResponses.SetControl...
 │ │ │ ├TfrmODMedOut.SetSimple
 │ │ │ ├TResponses.NextInstance
 │ │ │ ├TResponses.IValueFor
 │ │ │ ├TfrmODMedOut.SetComplex
 │ │ │ └TResponses.GetOrderText
 │ │ │   ├TResponses.NextInstance
 │ │ │   ├TResponses.FindResponseByName
 │ │ │   ├TResponses.FormatResponse
 │ │ │   │ └TResponses.FindResponseByIEN
 │ │ │   └TResponses.AppendChildren
 │ │ │     ├TResponses.FindPromptByIEN
 │ │ │     ├TResponses.FindResponseByIEN
 │ │ │     └TResponses.FormatResponse...
 │ │ ├TfrmODMedOut.ControlChange
 │ │ │ ├TResponses.Update
 │ │ │ │ ├TResponses.FindResponseByName
 │ │ │ │ └TResponses.IENForPrompt
 │ │ │ └TResponses.GetOrderText...
 │ │ ├TfrmODMedOut.SetAltCombo
 │ │ │ └TCtrlInits.SetListOnly
 │ │ │   └TCtrlInits.FindInitByName
 │ │ └TfrmODMedOut.cboDispenseMouseClick...
 │ └TfrmODMedOut.SetAskSC
 │   └RequiresCopay
 ├TfrmODBase.OrderMessage...
 └DispenseMessage

Called-By Hierarchy


         TfrmODMedOut.cboDispenseMouseClick
         TfrmODMedOut.cboMedicationSelect┘ 
              TfrmODMedOut.CheckFormAlt┘   
         TfrmODMedOut.cboDispenseExit┤     
TfrmODMedOut.cboDispenseMouseClick...┘     

Calls

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

Called-By

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


Source

407   procedure TfrmODMedOut.cboDispenseMouseClick(Sender: TObject);
408   begin
409     inherited;
410     SetMaxRefills;
411     with cboDispense do
412     begin
413       if ItemIEN <> FLastDrug then CheckFormAlt;
414       if ItemIEN > 0 then OrderMessage(DispenseMessage(ItemIEN));
415       FLastDrug := ItemIEN;
416     end;
417   end;