Function

TfrmODMedNVA.OutpatientSig

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Comments

Values changing

Visibility

Private

Owner

TfrmODMedNVA

Declaration

function OutpatientSig: string;

Calls Hierarchy


TfrmODMedNVA.OutpatientSig
 ├TfrmODMedNVA.ValueOf
 │ ├GetSchedule
 │ └GetScheduleEX
 └TfrmODMedNVA.CheckDecimal

Called-By Hierarchy


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

Calls

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

Called-By

Name Declaration Comments
TfrmODMedNVA.ControlChange procedure ControlChange(Sender: TObject); -


Source

1456  function TfrmODMedNVA.OutpatientSig: string;
1457  var
1458    Dose, Route, Schedule: string;
1459  begin
1460    case tabDose.TabIndex of
1461    TI_DOSE:
1462      begin
1463        if ValueOf(FLD_TOTALDOSE) = ''
1464          then Dose := ValueOf(FLD_LOCALDOSE)
1465          else Dose := ValueOf(FLD_UNITNOUN);
1466        CheckDecimal(Dose);
1467        Route := ValueOf(FLD_ROUTE_EX);
1468        if (Length(Route) > 0) and (Length(FSigPrep) > 0) then Route := FSigPrep + ' ' + Route;
1469        if Length(Route) = 0 then Route := ValueOf(FLD_ROUTE_NM);
1470        Schedule := ValueOf(FLD_SCHED_EX);
1471        if Length(Schedule) = 0 then Schedule := ValueOf(FLD_SCHEDULE);
1472        Result := FSIGVerb + ' ' + Dose + ' ' + Route + ' ' + Schedule;
1473      end;
1474    end; {case}
1475  end;