Procedure

TfrmODMedOut.CheckFormAlt

Module

fODMedOut

Last Modified

7/15/2014 3:26:42 PM

Comments

CboDispense methods

Visibility

Private

Owner

TfrmODMedOut

Declaration

procedure CheckFormAlt;

Calls Hierarchy


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.SetMaxRefills
 │   ├TfrmODMedOut.CheckFormAlt...
 │   ├TfrmODBase.OrderMessage...
 │   └DispenseMessage
 └TfrmODMedOut.SetAskSC
   └RequiresCopay

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmODMedOut.cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); -
SelectFormularyAlt procedure SelectFormularyAlt(AnIEN: Integer; var ADrug, AnOI: Integer; var ADrugName, AnOIName: string; PSType: Char); -
TfrmODMedOut.SetAskSC procedure SetAskSC; -

Called-By

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


Source

354   procedure TfrmODMedOut.CheckFormAlt;
355   var
356     DrugName, OIName: string;
357     Drug, OI: Integer;
358   begin
359     with cboDispense do if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 4) = 'NF') then
360     begin
361       SelectFormularyAlt(ItemIEN, Drug, OI, DrugName, OIName, PST_OUTPATIENT);
362       if Drug > 0 then
363       begin
364         if FMedCombo.ItemIEN <> OI then
365         begin
366           FMedCombo.InitLongList(OIName);
367           FMedCombo.SelectByIEN(OI);
368           cboMedicationSelect(Self);
369         end;
370         cboDispense.SelectByIEN(Drug);
371       end; {if FormAlt}
372     end; {if ItemIndex}
373     SetAskSC;  // now check enabled for the service connected prompt
374   end;