Procedure

TfrmODMedIV.DisplayDoseNow

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedIV

Declaration

procedure DisplayDoseNow(Status: boolean);

Called-By Hierarchy


                 TfrmODMedIV.DisplayDoseNow
          TfrmODMedIV.loadExpectFirstDose┘ 
     TfrmODMedIV.SetValuesFromResponses┤   
              TfrmODMedIV.SetupDialog┤ │   
    TfrmODMedIV.cboSolutionMouseClick┘ │   
        TfrmODMedIV.cboSolutionExit┘   │   
              TfrmODMedIV.ControlChange┘   
TfrmODMedIV.SetValuesFromResponses...┤     
            TfrmODMedIV.cboTypeChange┤     
         TfrmODMedIV.ClearAllFields┘ │     
           TfrmODMedIV.InitDialog┤   │     
         TfrmODMedIV.FormCreate┘ │   │     
       TfrmODMedIV.cmdRemoveClick┘   │     
          TfrmODMedIV.chkDoseNowClick┤     
              TfrmODMedIV.chkPRNClick┤     
 TfrmODMedIV.cboSolutionMouseClick...┤     
        TfrmODMedIV.cboAddFreqCloseUp┤     
      TfrmODMedIV.cboAddFreqKeyDown┘ │     
        TfrmODMedIV.cboDurationChange┤     
    TfrmODMedIV.cboInfusionTimeChange┤     
        TfrmODMedIV.cboPriorityChange┤     
           TfrmODMedIV.cboRouteChange┤     
    TfrmODMedIV.txtAllIVRoutesClick┘ │     
      TfrmODMedIV.cboRouteKeyDown┘   │     
    TfrmODMedIV.cboAdditiveMouseClick┤     
        TfrmODMedIV.cboAdditiveExit┘ │     
        TfrmODMedIV.txtSelectedChange┤     
        TfrmODMedIV.cboScheduleChange┤     
            TfrmODMedIV.txtNSSClick┘ │     
   TfrmODMedIV.cboScheduleKeyDown┘   │     
       TfrmODMedIV.cboSelectedCloseUp┤     
     TfrmODMedIV.cboSelectedKeyDown┘ │     
           TfrmODMedIV.cmdRemoveClick┤     
       TfrmODMedIV.txtXDurationChange┤     
         TfrmODMedIV.txtXDurationExit┤     
            TfrmODMedIV.txtRateChange┘     

Called-By

Name Declaration Comments
TfrmODMedIV.loadExpectFirstDose procedure loadExpectFirstDose; -


Source

2135  procedure TfrmODMedIV.DisplayDoseNow(Status: boolean);
2136  begin
2137    if self.EvtID > 0 then Status := false;
2138    if status = false then
2139      begin
2140        if (self.chkDoseNow.Visible = true) and (self.chkDoseNow.Checked = true) then self.chkDoseNow.Checked := false;
2141        self.chkDoseNow.Visible := false;
2142      end;
2143    if status = true then self.chkDoseNow.Visible := true;
2144  end;