Function

GetSingleDoseScheduleEX

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

ValueOf

Declaration

function GetSingleDoseScheduleEX: string;

Called-By Hierarchy


                     GetSingleDoseScheduleEX
                        TfrmODMeds.ValueOf┘ 
                   TfrmODMeds.InitDialog┤   
                 TfrmODMeds.FormCreate┘ │   
               TfrmODMeds.SetOnMedSelect┤   
                TfrmODMeds.SetupDialog┤ │   
             TfrmODMeds.btnSelectClick┤ │   
             TfrmODMeds.UMDelayClick┘ │ │   
           TfrmODMeds.CheckFormAltDose┘ │   
           TfrmODMeds.cboDosageClick┘   │   
         TfrmODMeds.cboDosageKeyUp┘     │   
              TfrmODMeds.SetOnQuickOrder┤   
                TfrmODMeds.SetupDialog┤ │   
          TfrmODMeds.btnSelectClick...┘ │   
            TfrmODMeds.cboDosageClick...┤   
         TfrmODMeds.QuantityMessageCheck┤   
            TfrmODMeds.cboXDosageEnter┤ │   
    TfrmODMeds.pnlXDurationButtonEnter┤ │   
             TfrmODMeds.cboXRouteEnter┤ │   
          TfrmODMeds.cboXSequenceEnter┤ │   
          TfrmODMeds.cboXScheduleEnter┘ │   
                TfrmODMeds.OutpatientSig┤   
              TfrmODMeds.ControlChange┘ │   
              TfrmODMeds.SetupDialog┤   │   
                 TfrmODMeds.Validate┤   │   
        TfrmODMeds.btnSelectClick...┤   │   
            TfrmODMeds.tabDoseChange┤   │   
            TfrmODMeds.FormKeyDown┘ │   │   
           TfrmODMeds.cboRouteChange┤   │   
      TfrmODMeds.SetOnMedSelect...┘ │   │   
         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.chkPRNClick┤   │   
       TfrmODMeds.cboXSequenceChange┤   │   
         TfrmODMeds.txtRefillsChange┘   │   
                 TfrmODMeds.InpatientSig┤   
           TfrmODMeds.ControlChange...┘ │   
             TfrmODMeds.ControlChange...┤   
           TfrmODMeds.cboXDosageClick...┤   
      TfrmODMeds.timCheckChangesTimer...┘   

Called-By

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


Source

4079    function GetSingleDoseScheduleEX: string;
4080    begin
4081      Result := '';
4082      with cboSchedule do
4083      begin
4084        if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 2);
4085  (*     if (Length(Result)=0) and (ItemIndex > -1) then
4086          begin
4087            Result := Piece(Items[ItemIndex], U, 1);
4088            if Piece(Items[ItemIndex], U, 3) = 'P' then
4089            begin
4090              if RightStr(Result,3) = 'PRN' then
4091                begin
4092                  Result := Copy(Result,1,Length(Result)-3); //Remove the Trailing PRN
4093                  if (RightStr(Result,1) = ' ') or (RightStr(Result,1) = '-') then
4094                  Result := Copy(Result,1,Length(Result)-1);
4095                end;
4096             Result := Result + ' AS NEEDED';
4097            end;
4098          end;
4099      end; *)
4100        if RightStr(Result,3) = 'PRN' then
4101        begin
4102          Result := Copy(Result,1,Length(Result)-3); //Remove the Trailing PRN
4103          if (RightStr(Result,1) = ' ') or (RightStr(Result,1) = '-') then
4104            Result := Copy(Result,1,Length(Result)-1);
4105          Result := Result + ' AS NEEDED'
4106        end;
4107        if (Length(Result) > 0) and chkPRN.Checked then
4108          Result := Result + ' AS NEEDED';
4109        if UpperCase(Copy(Result, Length(Result) - 18, Length(Result))) = 'AS NEEDED AS NEEDED' then
4110          Result := Copy(Result, 1, Length(Result) - 10);
4111        if UpperCase(Copy(Result, Length(Result) - 12, Length(Result))) = 'PRN AS NEEDED' then
4112        begin
4113          Result := Copy(Result, 1, Length(Result) - 13);
4114          if RightStr(Result,1)=' ' then
4115            Result := Result + 'AS NEEDED'
4116          else
4117            Result := Result + ' AS NEEDED';
4118        end;
4119      end;
4120    end;