Procedure

TfrmODMeds.CheckFormAltDose

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Comments

CboDosage -------------------------------------

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure CheckFormAltDose(DispDrug: Integer);

Calls Hierarchy


TfrmODMeds.CheckFormAltDose
 ├CheckFormularyDose
 │ ├LoadFormularyAltDose
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 ├TfrmODMeds.ResetOnMedChange
 │ └TResponses.Clear
 └TfrmODMeds.SetOnMedSelect
   ├GetPKISite
   ├TCtrlInits.LoadOrderItem
   │ ├TCtrlInits.ClearOI
   │ └TCtrlInits.ExtractInits
   │   └TCtrlInit.Create
   ├OIForMed
   ├TCtrlInits.SetControl
   │ ├ClearControl
   │ └TCtrlInits.FindInitByName
   ├TfrmODMeds.cboRouteChange
   │ └TfrmODMeds.ControlChange
   │   ├TResponses.Clear
   │   ├TResponses.Update
   │   │ ├TResponses.FindResponseByName
   │   │ └TResponses.IENForPrompt
   │   ├TfrmODMeds.FindCommonDrug
   │   │ ├TfrmODMeds.FindDoseFields
   │   │ ├SaveDrug
   │   │ └KillDrug
   │   ├TfrmODMeds.ConstructedDoseFields
   │   ├TfrmODMeds.ValueOf
   │   │ ├GetSingleDoseSchedule
   │   │ ├GetSingleDoseScheduleEX
   │   │ ├TfrmODMeds.FieldsForDose
   │   │ │ └TfrmODMeds.ConstructedDoseFields
   │   │ ├TfrmODMeds.FieldsForDrug
   │   │ ├GetComplexDoseSchedule
   │   │ │ └TfrmODMeds.ValFor
   │   │ └GetComplexDoseScheduleEX
   │   │   └TfrmODMeds.ValFor
   │   ├TfrmODMeds.lblAdminSchGetText
   │   ├TfrmODMeds.ValFor
   │   ├TfrmODMeds.InpatientSig
   │   │ ├TfrmODMeds.ValueOf...
   │   │ └TfrmODMeds.CheckDecimal
   │   │   └TfrmODMeds.TextDosage
   │   ├TfrmODMeds.OutpatientSig
   │   │ ├TfrmODMeds.ValueOf...
   │   │ └TfrmODMeds.CheckDecimal...
   │   └TResponses.GetOrderText
   │     ├TResponses.NextInstance
   │     ├TResponses.FindResponseByName
   │     ├TResponses.FormatResponse
   │     │ └TResponses.FindResponseByIEN
   │     └TResponses.AppendChildren
   │       ├TResponses.FindPromptByIEN
   │       ├TResponses.FindResponseByIEN
   │       └TResponses.FormatResponse...
   ├TCtrlInits.DefaultText
   │ └TCtrlInits.FindInitByName
   ├TResponses.FindResponseByName
   ├TfrmODMeds.SetSchedule
   ├TfrmODMeds.ValueOf...
   ├TCtrlInits.TextOf
   │ └TCtrlInits.FindInitByName
   ├TfrmODMeds.lblAdminSchSetText
   ├TfrmODMeds.SetPickup
   └TfrmODMeds.DispOrderMessage

Called-By Hierarchy


  TfrmODMeds.CheckFormAltDose
  TfrmODMeds.cboDosageClick┘ 
TfrmODMeds.cboDosageKeyUp┘   

Calls

Name Declaration Comments
CheckFormularyDose procedure CheckFormularyDose(DispDrug: Integer; var OI: Integer; var OIName: string; ForInpatient: Boolean); -
TfrmODMeds.ResetOnMedChange procedure ResetOnMedChange; -
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -

Called-By

Name Declaration Comments
TfrmODMeds.cboDosageClick procedure cboDosageClick(Sender: TObject); -


Source

2436  procedure TfrmODMeds.CheckFormAltDose(DispDrug: Integer);
2437  var
2438    OI: Integer;
2439    OIName: string;
2440  begin
2441    if FAltChecked or (DispDrug = 0) then Exit;
2442    OI := txtMed.Tag;
2443    OIName := txtMed.Text;
2444    CheckFormularyDose(DispDrug, OI, OIName, FInptDlg);
2445    if OI <> txtMed.Tag then
2446    begin
2447      ResetOnMedChange;
2448      txtMed.Tag  := OI;
2449      txtMed.Text := OIName;
2450      SetOnMedSelect;
2451    end;
2452  end;