Function

IsClozapineOrder

Module

rODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function IsClozapineOrder: boolean;

Called-By Hierarchy


                     IsClozapineOrder
     TfrmODMeds.UpdateDefaultSupply┤ 
  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┘     │ 
 TfrmODMeds.timCheckChangesTimer...┘ 

Called-By

Name Declaration Comments
TfrmODMeds.timCheckChangesTimer procedure timCheckChangesTimer(Sender: TObject); -
TfrmODMeds.UpdateDefaultSupply procedure UpdateDefaultSupply(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; var CurSupply: Integer; var CurQuantity: double; var SkipQtyCheck: Boolean); -


Source

477   function IsClozapineOrder: boolean;
478   begin
479      if uDrugHasMaxData.CaptureMaxData = true then result := true
480      else result := false;
481   end;