Procedure

TfrmVisitType.btnDeleteClick

Module

fVisitType

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmVisitType

Declaration

procedure btnDeleteClick(Sender: TObject);

Calls Hierarchy


TfrmVisitType.btnDeleteClick
 ├TPCEProviderList.IndexOfProvider
 ├TPCEProviderList.Delete
 └TfrmVisitType.RefreshProviders
   ├TPCEProviderList.GetProviderData
   └TfrmVisitType.UpdateProviderButtons

Called-By Hierarchy


       TfrmVisitType.btnDeleteClick
TfrmVisitType.lbProvidersDblClick┘ 

Calls

Name Declaration Comments
TPCEProviderList.Delete procedure Delete(Index: Integer); override; -
TPCEProviderList.IndexOfProvider function IndexOfProvider(AIEN: string): integer; -
TfrmVisitType.RefreshProviders procedure RefreshProviders; -

Called-By

Name Declaration Comments
TfrmVisitType.lbProvidersDblClick procedure lbProvidersDblClick(Sender: TObject); -


Source

267   procedure TfrmVisitType.btnDeleteClick(Sender: TObject);
268   var
269     idx: integer;
270   
271   begin
272     inherited;
273     If lbProviders.ItemIndex = -1 then exit;
274     idx := uProviders.IndexOfProvider(lbProviders.ItemID);
275     if(idx >= 0) then
276       uProviders.Delete(idx);
277     RefreshProviders;
278   end;