Function

TfrmODMeds.lblAdminSchGetText

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

function lblAdminSchGetText: string;

Called-By Hierarchy


           TfrmODMeds.lblAdminSchGetText
              TfrmODMeds.tabDoseChange┤ 
              TfrmODMeds.FormKeyDown┘ │ 
              TfrmODMeds.ControlChange┤ 
              TfrmODMeds.SetupDialog┤ │ 
                 TfrmODMeds.Validate┤ │ 
           TfrmODMeds.btnSelectClick┤ │ 
           TfrmODMeds.UMDelayClick┘ │ │ 
         TfrmODMeds.tabDoseChange...┤ │ 
           TfrmODMeds.cboRouteChange┤ │ 
         TfrmODMeds.SetOnMedSelect┘ │ │ 
          TfrmODMeds.SetupDialog┤   │ │ 
    TfrmODMeds.btnSelectClick...┤   │ │ 
     TfrmODMeds.CheckFormAltDose┘   │ │ 
     TfrmODMeds.cboDosageClick┘     │ │ 
   TfrmODMeds.cboDosageKeyUp┘       │ │ 
         TfrmODMeds.popDurationClick┤ │ 
          TfrmODMeds.cboXRouteChange┤ │ 
           TfrmODMeds.cboXRouteClick┤ │ 
          TfrmODMeds.cboXRouteExit┘ │ │ 
       TfrmODMeds.txtXDurationChange┤ │ 
       TfrmODMeds.popDurationClick┘ │ │ 
          TfrmODMeds.btnXRemoveClick┤ │ 
        TfrmODMeds.grdDosesKeyDown┘ │ │ 
     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.txtNSSClick┘ │   │ │ 
    TfrmODMeds.cboXScheduleClick┤   │ │ 
       TfrmODMeds.chkXPRNClick┤ │   │ │ 
   TfrmODMeds.pnlXScheduleExit┘ │   │ │ 
     TfrmODMeds.pnlXScheduleExit┤   │ │ 
TfrmODMeds.txtXDurationChange...┤   │ │ 
     TfrmODMeds.pnlXDurationExit┤   │ │ 
          TfrmODMeds.chkPRNClick┤   │ │ 
      TfrmODMeds.cboScheduleExit┤   │ │ 
       TfrmODMeds.cboDosageKeyUp┤   │ │ 
      TfrmODMeds.cboXDosageKeyUp┘   │ │ 
       TfrmODMeds.chkPtInstructClick┤ │ 
          TfrmODMeds.chkDoseNowClick┤ │ 
        TfrmODMeds.SetOnQuickOrder┘ │ │ 
          TfrmODMeds.SetupDialog┤   │ │ 
    TfrmODMeds.btnSelectClick...┘   │ │ 
              TfrmODMeds.chkPRNClick┤ │ 
       TfrmODMeds.cboXSequenceChange┤ │ 
         TfrmODMeds.txtRefillsChange┘ │ 
         TfrmODMeds.UpdateStartExpires┤ 
              TfrmODMeds.SetupDialog┤ │ 
       TfrmODMeds.SetOnQuickOrder...┤ │ 
         TfrmODMeds.tabDoseChange...┤ │ 
    TfrmODMeds.cboXScheduleChange...┤ │ 
     TfrmODMeds.cboXScheduleClick...┤ │ 
  TfrmODMeds.timCheckChangesTimer...┤ │ 
              TfrmODMeds.chkPRNClick┤ │ 
       TfrmODMeds.cboXSequenceChange┘ │ 
                 TfrmODMeds.FormResize┘ 

Called-By

Name Declaration Comments
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMeds.FormResize procedure FormResize(Sender: TObject); -
TfrmODMeds.tabDoseChange procedure tabDoseChange(Sender: TObject); -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -


Source

2388  function TfrmODMeds.lblAdminSchGetText: string;
2389  var
2390  tempstr: string;
2391  i: integer;
2392  begin
2393    result := '';
2394    if self.lblAdminSch.Text = '' then exit;
2395    tempstr := '';
2396    if self.lblAdminSch.Lines.Count > 1 then
2397      begin
2398        for i := 0 to self.lblAdminSch.Lines.Count - 1 do
2399          tempstr := tempStr + self.lblAdminSch.Lines.Strings[i];
2400      end
2401    else if self.lblAdminSch.Lines.Count = 1 then
2402         begin
2403           tempstr := self.lblAdminSch.Text;
2404         end;
2405    Result := Piece(tempStr,':',2);
2406    Result := Copy(Result,2,Length(Result));
2407  end;