Function

TfrmODMeds.FindDoseFields

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMeds

Declaration

function FindDoseFields(const Drug, ADose: string): string;

Called-By Hierarchy


                 TfrmODMeds.FindDoseFields
               TfrmODMeds.FindCommonDrug┘ 
              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┘     

Called-By

Name Declaration Comments
TfrmODMeds.FindCommonDrug function FindCommonDrug(DoseList: TStringList): string; -


Source

2936  function TfrmODMeds.FindDoseFields(const Drug, ADose: string): string;
2937  var
2938    i: Integer;
2939    x: string;
2940  begin
2941    Result := '';
2942    x := ADose + U + Drug + U;
2943    for i := 0 to Pred(FAllDoses.Count) do
2944    begin
2945      if AnsiSameText(x, Copy(FAllDoses[i], 1, Length(x))) then
2946      begin
2947        Result := Piece(FAllDoses[i], U, 3);
2948        Break;
2949      end;
2950    end;
2951  end;