Procedure

TfrmODMedIn.cboDispenseExit

Module

fODMedIn

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIn

Declaration

procedure cboDispenseExit(Sender: TObject);

Calls Hierarchy


TfrmODMedIn.cboDispenseExit
 ├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
 │     ├TfrmODMedIn.CheckFormAlt...
 │     ├TfrmODBase.OrderMessage...
 │     └DispenseMessage
 ├DispenseMessage
 └TfrmODBase.OrderMessage...

Calls

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


Source

310   procedure TfrmODMedIn.cboDispenseExit(Sender: TObject);
311   var
312     AMsg: string;
313   begin
314     inherited;
315     with cboDispense do
316     begin
317       if ItemIEN <> FLastDrug then CheckFormAlt;
318       if ItemIEN > 0 then
319       begin
320         AMsg := DispenseMessage(ItemIEN);
321         if memMessage.Text <> AMsg then OrderMessage(AMsg);
322       end;
323       FLastDrug := ItemIEN;
324     end;
325   end;