Procedure

TfrmODMedIn.CheckFormAlt

Module

fODMedIn

Last Modified

7/15/2014 3:26:42 PM

Comments

CboDispense methods

Visibility

Private

Owner

TfrmODMedIn

Declaration

procedure CheckFormAlt;

Calls Hierarchy


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

Called-By Hierarchy


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

Calls

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

Called-By

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


Source

289   procedure TfrmODMedIn.CheckFormAlt;
290   var
291     DrugName, OIName: string;
292     Drug, OI: Integer;
293   begin
294     with cboDispense do if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 4) = 'NF') then
295     begin
296       SelectFormularyAlt(ItemIEN, Drug, OI, DrugName, OIName, PST_UNIT_DOSE);
297       if Drug > 0 then
298       begin
299         if FMedCombo.ItemIEN <> OI then
300         begin
301           FMedCombo.InitLongList(OIName);
302           FMedCombo.SelectByIEN(OI);
303           cboMedicationSelect(Self);
304         end;
305         cboDispense.SelectByIEN(Drug);
306       end; {if FormAlt}
307     end; {if ItemIndex}
308   end;