Procedure

CheckFormularyDose

Module

fODMedOIFA

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure CheckFormularyDose(DispDrug: Integer; var OI: Integer; var OIName: string;
  ForInpatient: Boolean);

Calls Hierarchy


CheckFormularyDose
 ├LoadFormularyAltDose
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


              CheckFormularyDose
 TfrmODMedNVA.CheckFormAltDose┤ 
 TfrmODMedNVA.cboDosageClick┘ │ 
TfrmODMedNVA.cboDosageExit┘   │ 
   TfrmODMeds.CheckFormAltDose┘ 
   TfrmODMeds.cboDosageClick┘   
 TfrmODMeds.cboDosageKeyUp┘     

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
LoadFormularyAltDose procedure LoadFormularyAltDose(AList: TStringList; DispDrug, OI: Integer; ForInpatient: Boolean); -

Called-By

Name Declaration Comments
TfrmODMedNVA.CheckFormAltDose procedure CheckFormAltDose(DispDrug: Integer); -
TfrmODMeds.CheckFormAltDose procedure CheckFormAltDose(DispDrug: Integer); -


Source

77    procedure CheckFormularyDose(DispDrug: Integer; var OI: Integer; var OIName: string;
78      ForInpatient: Boolean);
79    var
80      frmODMedOIFA: TfrmODMedOIFA;
81      FormAltList: TStringList;
82    begin
83      FormAltList := TStringList.Create;
84      try
85        LoadFormularyAltDose(FormAltList, DispDrug, OI, ForInpatient);
86        if FormAltList.Count > 0 then
87        begin
88          frmODMedOIFA := TfrmODMedOIFA.Create(Application);
89          try
90            ResizeFormToFont(TForm(frmODMedOIFA));
91            with frmODMedOIFA do
92            begin
93              FastAssign(FormAltList, lstFormAlt.Items);
94              ShowModal;
95              if Length(FSelected) > 0 then
96              begin
97                OI     := StrToIntDef(Piece(FSelected, U, 1), 0);
98                OIName := Piece(FSelected, U, 2);
99              end;
100           end; {with frmODMedOIFA}
101         finally
102           frmODMedOIFA.Release;
103         end; {frmODMedOIFA}
104       end; {if FormAltList}
105     finally
106       FormAltList.Free;
107     end; {FormAltList}
108   end;