Procedure

TfrmODMeds.lblAdminSchSetText

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

procedure lblAdminSchSetText(str: string);

Called-By Hierarchy


           TfrmODMeds.lblAdminSchSetText
                TfrmODMeds.SetupDialog┤ 
           TfrmODMeds.ResetOnTabChange┤ 
            TfrmODMeds.tabDoseChange┘ │ 
            TfrmODMeds.FormKeyDown┘   │ 
             TfrmODMeds.SetOnMedSelect┤ 
              TfrmODMeds.SetupDialog┤ │ 
           TfrmODMeds.btnSelectClick┤ │ 
           TfrmODMeds.UMDelayClick┘ │ │ 
         TfrmODMeds.CheckFormAltDose┘ │ 
         TfrmODMeds.cboDosageClick┘   │ 
       TfrmODMeds.cboDosageKeyUp┘     │ 
        TfrmODMeds.ShowControlsComplex┤ 
            TfrmODMeds.ShowMedFields┤ │ 
            TfrmODMeds.SetupDialog┤ │ │ 
      TfrmODMeds.btnSelectClick...┘ │ │ 
         TfrmODMeds.tabDoseChange...┘ │ 
         TfrmODMeds.UpdateStartExpires┤ 
              TfrmODMeds.SetupDialog┤ │ 
          TfrmODMeds.SetOnQuickOrder┤ │ 
            TfrmODMeds.SetupDialog┤ │ │ 
      TfrmODMeds.btnSelectClick...┘ │ │ 
         TfrmODMeds.tabDoseChange...┤ │ 
       TfrmODMeds.cboXScheduleChange┤ │ 
            TfrmODMeds.txtNSSClick┘ │ │ 
        TfrmODMeds.cboXScheduleClick┤ │ 
           TfrmODMeds.chkXPRNClick┤ │ │ 
       TfrmODMeds.pnlXScheduleExit┘ │ │ 
     TfrmODMeds.timCheckChangesTimer┤ │ 
          TfrmODMeds.UpdateRelated┘ │ │ 
          TfrmODMeds.SetupDialog┤   │ │ 
    TfrmODMeds.btnSelectClick...┤   │ │ 
    TfrmODMeds.cboDosageClick...┤   │ │ 
      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┘ │ 
                 TfrmODMeds.FormResize┘ 

Called-By

Name Declaration Comments
TfrmODMeds.FormResize procedure FormResize(Sender: TObject); -
TfrmODMeds.ResetOnTabChange procedure ResetOnTabChange; -
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMeds.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMeds.ShowControlsComplex procedure ShowControlsComplex; -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -


Source

2409  procedure TfrmODMeds.lblAdminSchSetText(str: string);
2410  var
2411  cutoff: integer;
2412  begin
2413    cutoff := lblAdminSch.width div MainFontWidth;
2414    if Length(str) > cutoff then self.lblAdminSch.Text := Copy(str, 1, cutoff) + CRLF +
2415                                                Copy(str, cutoff + 1, Length(str))
2416    else self.lblAdminSch.Text := str;
2417  end;