Function

GetSchedule

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Comments

The following functions were created to get rid of a compile warning saying the
 return value may be undefined - too much branching logic in the case statements
 for the compiler to handle

Scope

Local

Local subprogram to

ValueOf

Declaration

function GetSchedule: string;

Called-By Hierarchy


                                GetSchedule
                     TfrmODMedNVA.ValueOf┘ 
                TfrmODMedNVA.InitDialog┤   
              TfrmODMedNVA.FormCreate┘ │   
            TfrmODMedNVA.SetOnMedSelect┤   
             TfrmODMedNVA.SetupDialog┤ │   
          TfrmODMedNVA.btnSelectClick┤ │   
          TfrmODMedNVA.UMDelayClick┘ │ │   
        TfrmODMedNVA.CheckFormAltDose┘ │   
        TfrmODMedNVA.cboDosageClick┘   │   
       TfrmODMedNVA.cboDosageExit┘     │   
           TfrmODMedNVA.SetOnQuickOrder┤   
             TfrmODMedNVA.SetupDialog┤ │   
       TfrmODMedNVA.btnSelectClick...┘ │   
         TfrmODMedNVA.cboDosageClick...┤   
             TfrmODMedNVA.OutpatientSig┤   
           TfrmODMedNVA.ControlChange┘ │   
           TfrmODMedNVA.SetupDialog┤   │   
              TfrmODMedNVA.Validate┤   │   
     TfrmODMedNVA.btnSelectClick...┤   │   
         TfrmODMedNVA.tabDoseChange┤   │   
        TfrmODMedNVA.cboRouteChange┤   │   
   TfrmODMedNVA.SetOnMedSelect...┘ │   │   
  TfrmODMedNVA.timCheckChangesTimer┤   │   
       TfrmODMedNVA.UpdateRelated┘ │   │   
       TfrmODMedNVA.SetupDialog┤   │   │   
 TfrmODMedNVA.btnSelectClick...┤   │   │   
 TfrmODMedNVA.cboDosageClick...┤   │   │   
   TfrmODMedNVA.cboDosageChange┤   │   │   
  TfrmODMedNVA.cboScheduleClick┤   │   │   
 TfrmODMedNVA.cboScheduleChange┤   │   │   
      TfrmODMedNVA.grdDosesExit┘   │   │   
           TfrmODMedNVA.chkPRNClick┤   │   
TfrmODMedNVA.lbStatementsClickCheck┘   │   
          TfrmODMedNVA.ControlChange...┤   
   TfrmODMedNVA.timCheckChangesTimer...┘   

Called-By

Name Declaration Comments
TfrmODMedNVA.ValueOf function ValueOf(FieldID: Integer; ARow: Integer = -1): string; -


Source

1780  function GetSchedule: string;
1781  begin
1782    Result := UpperCase(cboSchedule.Text);
1783    if chkPRN.Checked then Result := Result + ' PRN';
1784    if UpperCase(Copy(Result, Length(Result) - 6, Length(Result))) = 'PRN PRN'
1785      then Result := Copy(Result, 1, Length(Result) - 4);
1786  end;