Function

GetScheduleEX

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

ValueOf

Declaration

function GetScheduleEX: string;

Called-By Hierarchy


                              GetScheduleEX
                     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

1788  function GetScheduleEX: string;
1789  begin
1790    Result := '';
1791    with cboSchedule do
1792      if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2);
1793    if (Length(Result) > 0) and chkPRN.Checked then Result := Result + ' AS NEEDED';
1794    if UpperCase(Copy(Result, Length(Result) - 18, Length(Result))) = 'AS NEEDED AS NEEDED'
1795      then Result := Copy(Result, 1, Length(Result) - 10);
1796  end;