Procedure

TfrmVisitType.btnAddClick

Module

fVisitType

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmVisitType

Declaration

procedure btnAddClick(Sender: TObject);

Calls Hierarchy


TfrmVisitType.btnAddClick
 ├TPCEProviderList.AddProvider
 │ └TPCEProviderList.Add
 │   ├TPCEProviderList.GetPrimaryIdx
 │   ├TPCEProviderList.IndexOfProvider
 │   └TPCEProviderList.SetPrimaryIdx
 │     ├TPCEProviderList.GetPrimaryIdx
 │     └TPCEProviderList.SetPrimary
 └TfrmVisitType.RefreshProviders
   ├TPCEProviderList.GetProviderData
   └TfrmVisitType.UpdateProviderButtons

Called-By Hierarchy


            TfrmVisitType.btnAddClick
TfrmVisitType.cboPtProviderDblClick┘ 

Calls

Name Declaration Comments
TPCEProviderList.AddProvider function AddProvider(AIEN, AName: string; APrimary: boolean): integer; -
TfrmVisitType.RefreshProviders procedure RefreshProviders; -

Called-By

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


Source

259   procedure TfrmVisitType.btnAddClick(Sender: TObject);
260   begin
261     inherited;
262     uProviders.AddProvider(IntToStr(cboPTProvider.ItemIEN), cboPTProvider.Text, FALSE);
263     RefreshProviders;
264     lbProviders.SelectByIEN(cboPTProvider.ItemIEN);
265   end;