Procedure

TfrmODMeds.UpdateRefills

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure UpdateRefills(const CurDispDrug: string; CurSupply: Integer);

Calls Hierarchy


TfrmODMeds.UpdateRefills
 └CalcMaxRefills

Called-By Hierarchy


           TfrmODMeds.UpdateRefills
              TfrmODMeds.Validate┤ 
  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┘     

Calls

Name Declaration Comments
CalcMaxRefills function CalcMaxRefills(const Drug: string; Days, OrdItem: Integer; Discharge: Boolean): Integer; -

Called-By

Name Declaration Comments
TfrmODMeds.timCheckChangesTimer procedure timCheckChangesTimer(Sender: TObject); -
TfrmODMeds.Validate procedure Validate(var AnErrMsg: string); override; -


Source

4678  procedure TfrmODMeds.UpdateRefills(const CurDispDrug: string; CurSupply: Integer);
4679  begin
4680    if EvtForPassDischarge = 'D' then
4681      spnRefills.Max := CalcMaxRefills(CurDispDrug, CurSupply, txtMed.Tag, True)
4682    else
4683      spnRefills.Max := CalcMaxRefills(CurDispDrug, CurSupply, txtMed.Tag, Responses.EventType = 'D');
4684    if (StrToIntDef(txtRefills.Text, 0) > spnRefills.Max) then
4685    begin
4686      txtRefills.Text := IntToStr(spnRefills.Max);
4687      spnRefills.Position := spnRefills.Max;
4688      FUpdated := True;
4689    end;
4690  end;