Procedure

LoadFormularyAltDose

Module

rODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LoadFormularyAltDose(AList: TStringList; DispDrug, OI: Integer; ForInpatient: Boolean);

Called-By Hierarchy


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

Called-By

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


Source

173   procedure LoadFormularyAltDose(AList: TStringList; DispDrug, OI: Integer; ForInpatient: Boolean);
174   var
175     PtType: Char;
176   begin
177     if ForInpatient then PtType := 'I' else PtType := 'O';
178     CallV('ORWDPS1 DOSEALT', [DispDrug, OI, PtType]);
179     FastAssign(RPCBrokerV.Results, AList);
180   end;