Function

TfrmODMedNVA.FindDoseFields

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedNVA

Declaration

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

Called-By Hierarchy


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

Called-By

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


Source

1509  function TfrmODMedNVA.FindDoseFields(const Drug, ADose: string): string;
1510  var
1511    i: Integer;
1512    x: string;
1513  begin
1514    Result := '';
1515    x := ADose + U + Drug + U;
1516    for i := 0 to Pred(FAllDoses.Count) do
1517    begin
1518      if AnsiSameText(x, Copy(FAllDoses[i], 1, Length(x))) then
1519      begin
1520        Result := Piece(FAllDoses[i], U, 3);
1521        Break;
1522      end;
1523    end;
1524  end;