Procedure

KillDrug

Module

fODMedNVA

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
            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

1551  procedure KillDrug(const ADrug: string);
1552  var
1553    i, DrugIndex: Integer;
1554  begin
1555    DrugIndex := -1;
1556    for i := 0 to Pred(FoundDrugs.Count) do
1557      if AnsiSameText(Piece(FoundDrugs[i], U, 1), ADrug) then DrugIndex := i;
1558    if DrugIndex > -1 then FoundDrugs.Delete(DrugIndex);
1559  end;