Procedure

TfrmODMeds.DisplayDoseNow

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure DisplayDoseNow(Status: boolean);

Called-By Hierarchy


               TfrmODMeds.DisplayDoseNow
                TfrmODMeds.SetupDialog┤ 
         TfrmODMeds.UpdateStartExpires┘ 
              TfrmODMeds.SetupDialog┤   
          TfrmODMeds.SetOnQuickOrder┤   
            TfrmODMeds.SetupDialog┤ │   
         TfrmODMeds.btnSelectClick┘ │   
         TfrmODMeds.UMDelayClick┘   │   
            TfrmODMeds.tabDoseChange┤   
            TfrmODMeds.FormKeyDown┘ │   
       TfrmODMeds.cboXScheduleChange┤   
            TfrmODMeds.txtNSSClick┘ │   
        TfrmODMeds.cboXScheduleClick┤   
           TfrmODMeds.chkXPRNClick┤ │   
       TfrmODMeds.pnlXScheduleExit┘ │   
     TfrmODMeds.timCheckChangesTimer┤   
          TfrmODMeds.UpdateRelated┘ │   
          TfrmODMeds.SetupDialog┤   │   
    TfrmODMeds.btnSelectClick...┤   │   
       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.cboXScheduleClick...┤   │   
     TfrmODMeds.pnlXScheduleExit┤   │   
   TfrmODMeds.txtXDurationChange┤   │   
   TfrmODMeds.popDurationClick┘ │   │   
     TfrmODMeds.pnlXDurationExit┤   │   
          TfrmODMeds.chkPRNClick┤   │   
      TfrmODMeds.cboScheduleExit┤   │   
       TfrmODMeds.cboDosageKeyUp┤   │   
      TfrmODMeds.cboXDosageKeyUp┘   │   
              TfrmODMeds.chkPRNClick┤   
       TfrmODMeds.cboXSequenceChange┘   

Called-By

Name Declaration Comments
TfrmODMeds.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -


Source

5366  procedure TfrmODMeds.DisplayDoseNow(Status: boolean);
5367  begin
5368    if not FinptDlg then Status := False;
5369    if Status = false then
5370      begin
5371        if (self.chkDoseNow.Visible = true) and (self.chkDoseNow.Checked = true) then self.chkDoseNow.Checked := false;
5372        self.chkDoseNow.Visible := false;
5373      end;
5374    if status = true then self.chkDoseNow.Visible := true;  
5375  end;