Procedure

TfrmVisitType.btnPrimaryClick

Module

fVisitType

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmVisitType

Declaration

procedure btnPrimaryClick(Sender: TObject);

Calls Hierarchy


TfrmVisitType.btnPrimaryClick
 ├TPCEProviderList.IndexOfProvider
 ├TPCEProviderList.SetPrimaryIdx
 │ ├TPCEProviderList.GetPrimaryIdx
 │ └TPCEProviderList.SetPrimary
 └TfrmVisitType.RefreshProviders
   ├TPCEProviderList.GetProviderData
   └TfrmVisitType.UpdateProviderButtons

Calls

Name Declaration Comments
TPCEProviderList.IndexOfProvider function IndexOfProvider(AIEN: string): integer; -
TfrmVisitType.RefreshProviders procedure RefreshProviders; -
TPCEProviderList.SetPrimaryIdx procedure SetPrimaryIdx(const Value: integer); -


Source

280   procedure TfrmVisitType.btnPrimaryClick(Sender: TObject);
281   var
282     idx: integer;
283     AIEN: Int64;
284   
285   begin
286     inherited;
287     if lbProviders.ItemIndex = -1 then exit;
288     AIEN := lbProviders.ItemIEN;
289     idx := uProviders.IndexOfProvider(IntToStr(AIEN));
290     if(idx >= 0) then
291       uProviders.PrimaryIdx := idx;
292     RefreshProviders;
293     lbProviders.SelectByIEN(AIEN);
294   end;