Function

QtyToDays

Module

rODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function QtyToDays(Quantity: Double;   const UnitsPerDose, Schedule, Duration, Drug: string): Integer;

Called-By Hierarchy


                            QtyToDays
    TfrmODMeds.UpdateSupplyQuantity┘ 
  TfrmODMeds.timCheckChangesTimer┘   
       TfrmODMeds.UpdateRelated┘     
       TfrmODMeds.SetupDialog┤       
    TfrmODMeds.btnSelectClick┤       
    TfrmODMeds.UMDelayClick┘ │       
    TfrmODMeds.cboDosageClick┤       
  TfrmODMeds.cboDosageKeyUp┘ │       
   TfrmODMeds.cboDosageChange┤       
     TfrmODMeds.cboDosageExit┤       
  TfrmODMeds.cboScheduleClick┤       
  TfrmODMeds.cmdAcceptClick┤ │       
     TfrmODMeds.chkPRNClick┤ │       
     TfrmODMeds.txtNSSClick┤ │       
TfrmODMeds.cboScheduleEnter┤ │       
TfrmODMeds.UMShowNSSBuilder┘ │       
 TfrmODMeds.cboScheduleChange┤       
   TfrmODMeds.txtSupplyChange┤       
 TfrmODMeds.txtQuantityChange┤       
      TfrmODMeds.grdDosesExit┤       
  TfrmODMeds.cboXDosageChange┤       
   TfrmODMeds.cboXDosageClick┤       
  TfrmODMeds.cboXDosageExit┤ │       
 TfrmODMeds.cboXDosageKeyUp┘ │       
    TfrmODMeds.cboXDosageExit┤       
TfrmODMeds.cboXScheduleChange┤       
     TfrmODMeds.txtNSSClick┘ │       
 TfrmODMeds.cboXScheduleClick┤       
    TfrmODMeds.chkXPRNClick┤ │       
TfrmODMeds.pnlXScheduleExit┘ │       
  TfrmODMeds.pnlXScheduleExit┤       
TfrmODMeds.txtXDurationChange┤       
TfrmODMeds.popDurationClick┘ │       
  TfrmODMeds.pnlXDurationExit┤       
       TfrmODMeds.chkPRNClick┤       
   TfrmODMeds.cboScheduleExit┤       
    TfrmODMeds.cboDosageKeyUp┤       
   TfrmODMeds.cboXDosageKeyUp┘       

Called-By

Name Declaration Comments
TfrmODMeds.UpdateSupplyQuantity procedure UpdateSupplyQuantity(const CurUnits, CurSchedule, CurDuration, CurDispDrug, CurInstruct: string; var CurSupply: Integer; var CurQuantity: double); -


Source

234   function QtyToDays(Quantity: Double;   const UnitsPerDose, Schedule, Duration, Drug: string): Integer;
235   begin
236     Result := StrToIntDef(sCallV('ORWDPS2 QTY2DAY',
237       [Quantity,   UnitsPerDose, Schedule, Duration, Patient.DFN, Drug]), 0);
238   end;