Function

TfrmODMeds.InpatientSig

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

function InpatientSig: string;

Calls Hierarchy


TfrmODMeds.InpatientSig
 ├TfrmODMeds.ValueOf
 │ ├GetSingleDoseSchedule
 │ ├GetSingleDoseScheduleEX
 │ ├TfrmODMeds.FieldsForDose
 │ │ └TfrmODMeds.ConstructedDoseFields
 │ ├TfrmODMeds.FieldsForDrug
 │ ├GetComplexDoseSchedule
 │ │ └TfrmODMeds.ValFor
 │ └GetComplexDoseScheduleEX
 │   └TfrmODMeds.ValFor
 └TfrmODMeds.CheckDecimal
   └TfrmODMeds.TextDosage

Called-By Hierarchy


                 TfrmODMeds.InpatientSig
              TfrmODMeds.ControlChange┘ 
              TfrmODMeds.SetupDialog┤   
                 TfrmODMeds.Validate┤   
           TfrmODMeds.btnSelectClick┤   
           TfrmODMeds.UMDelayClick┘ │   
            TfrmODMeds.tabDoseChange┤   
            TfrmODMeds.FormKeyDown┘ │   
           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┘   

Calls

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

Called-By

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


Source

2823  function TfrmODMeds.InpatientSig: string;
2824  var
2825    Dose, Route, Schedule, Duration, x: string;
2826    i: Integer;
2827  begin
2828    case tabDose.TabIndex of
2829    TI_DOSE:
2830      begin
2831        Dose  := ValueOf(FLD_LOCALDOSE);
2832        CheckDecimal(Dose);
2833        Route := ValueOf(FLD_ROUTE_AB);
2834        if Route = '' then Route := ValueOf(FLD_ROUTE_NM);
2835        Schedule := ValueOf(FLD_SCHEDULE);
2836        Result := Dose + ' ' + Route + ' ' + Schedule;
2837      end;
2838    TI_COMPLEX:
2839      begin
2840        with grdDoses do for i := 1 to Pred(RowCount) do
2841        begin
2842          if Length(ValueOf(FLD_LOCALDOSE, i)) = 0 then Continue;
2843          if FDrugID = ''
2844            then Dose := ValueOf(FLD_DOSETEXT,  i)
2845            else Dose := ValueOf(FLD_LOCALDOSE, i);
2846          CheckDecimal(Dose);
2847          Route := ValueOf(FLD_ROUTE_AB, i);
2848          if Route = '' then Route := ValueOf(FLD_ROUTE_NM, i);
2849          Schedule := ValueOf(FLD_SCHEDULE, i);
2850          Duration := ValueOf(FLD_DURATION, i);
2851          if Length(Duration) > 0 then Duration := 'FOR ' + Duration;
2852          x := Dose + ' ' + Route + ' ' + Schedule + ' ' + Duration;
2853          if i > 1
2854            then Result := Result + ' ' + ValueOf(FLD_SEQUENCE, i-1) + ' ' + x
2855            else Result := x;
2856        end; {with grdDoses}
2857      end; {TI__COMPLEX}
2858    end; {case}
2859  end;