Procedure

KillDrug

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

FindCommonDrug

Declaration

procedure KillDrug(const ADrug: string);

Called-By Hierarchy


                                  KillDrug
               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

2978  procedure KillDrug(const ADrug: string);
2979  var
2980    i, DrugIndex: Integer;
2981  begin
2982    DrugIndex := -1;
2983    for i := 0 to Pred(FoundDrugs.Count) do
2984      if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i;
2985    if DrugIndex > -1 then FoundDrugs.Delete(DrugIndex);
2986  end;