Procedure

TfrmODMedNVA.CheckFormAltDose

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Comments

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

Visibility

Private

Owner

TfrmODMedNVA

Declaration

procedure CheckFormAltDose(DispDrug: Integer);

Calls Hierarchy


TfrmODMedNVA.CheckFormAltDose
 ├CheckFormularyDose
 │ ├LoadFormularyAltDose
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 ├TfrmODMedNVA.ResetOnMedChange
 │ ├ResetControl
 │ └TResponses.Clear
 └TfrmODMedNVA.SetOnMedSelect
   ├GetPKISite
   ├TCtrlInits.LoadOrderItem
   │ ├TCtrlInits.ClearOI
   │ └TCtrlInits.ExtractInits
   │   └TCtrlInit.Create
   ├OIForNVA
   ├TCtrlInits.SetControl
   │ ├ClearControl
   │ └TCtrlInits.FindInitByName
   ├TfrmODMedNVA.cboRouteChange
   │ └TfrmODMedNVA.ControlChange
   │   ├TResponses.Clear
   │   ├TResponses.Update
   │   │ ├TResponses.FindResponseByName
   │   │ └TResponses.IENForPrompt
   │   ├TfrmODMedNVA.FindCommonDrug
   │   │ ├TfrmODMedNVA.FindDoseFields
   │   │ ├SaveDrug
   │   │ └KillDrug
   │   ├TfrmODMedNVA.ConstructedDoseFields
   │   ├TfrmODMedNVA.ValueOf
   │   │ ├GetSchedule
   │   │ └GetScheduleEX
   │   ├TfrmODMedNVA.OutpatientSig
   │   │ ├TfrmODMedNVA.ValueOf...
   │   │ └TfrmODMedNVA.CheckDecimal
   │   └TResponses.GetOrderText
   │     ├TResponses.NextInstance
   │     ├TResponses.FindResponseByName
   │     ├TResponses.FormatResponse
   │     │ └TResponses.FindResponseByIEN
   │     └TResponses.AppendChildren
   │       ├TResponses.FindPromptByIEN
   │       ├TResponses.FindResponseByIEN
   │       └TResponses.FormatResponse...
   ├TCtrlInits.DefaultText
   │ └TCtrlInits.FindInitByName
   ├TfrmODMedNVA.ValueOf...
   └TCtrlInits.TextOf
     └TCtrlInits.FindInitByName

Called-By Hierarchy


 TfrmODMedNVA.CheckFormAltDose
 TfrmODMedNVA.cboDosageClick┘ 
TfrmODMedNVA.cboDosageExit┘   

Calls

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

Called-By

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


Source

1320  procedure TfrmODMedNVA.CheckFormAltDose(DispDrug: Integer);
1321  var
1322    OI: Integer;
1323    OIName: string;
1324  begin
1325    if FAltChecked or (DispDrug = 0) then Exit;
1326    OI := txtMed.Tag;
1327    OIName := txtMed.Text;
1328    CheckFormularyDose(DispDrug, OI, OIName, FNonVADlg);
1329    if OI <> txtMed.Tag then
1330    begin
1331      ResetOnMedChange;
1332      txtMed.Tag  := OI;
1333      txtMed.Text := OIName;
1334      SetOnMedSelect;
1335    end;
1336  end;