Procedure

TfrmVisitType.RefreshProviders

Module

fVisitType

Last Modified

7/15/2014 3:26:36 PM

Comments

Function ExposureAnswered: Boolean;
begin
  result := false;
  //if SC answered set result = true
end;

Visibility

Private

Owner

TfrmVisitType

Declaration

procedure RefreshProviders;

Calls Hierarchy


TfrmVisitType.RefreshProviders
 ├TPCEProviderList.GetProviderData
 └TfrmVisitType.UpdateProviderButtons

Called-By Hierarchy


         TfrmVisitType.RefreshProviders
             TfrmVisitType.FormCreate┤ 
            TfrmVisitType.btnAddClick┤ 
TfrmVisitType.cboPtProviderDblClick┘ │ 
         TfrmVisitType.btnDeleteClick┤ 
  TfrmVisitType.lbProvidersDblClick┘ │ 
        TfrmVisitType.btnPrimaryClick┘ 

Calls

Name Declaration Comments
TPCEProviderList.GetProviderData function GetProviderData(Index: integer): TPCEProviderRec; -
TfrmVisitType.UpdateProviderButtons procedure UpdateProviderButtons; -

Called-By

Name Declaration Comments
TfrmVisitType.btnAddClick procedure btnAddClick(Sender: TObject); -
TfrmVisitType.btnDeleteClick procedure btnDeleteClick(Sender: TObject); -
TfrmVisitType.btnPrimaryClick procedure btnPrimaryClick(Sender: TObject); -
TfrmVisitType.FormCreate procedure FormCreate(Sender: TObject); -


Source

159   procedure TfrmVisitType.RefreshProviders;
160   var
161     i: integer;
162     ProvData: TPCEProviderRec;
163     ProvEntry: string;
164   
165   begin
166     lbProviders.Clear;
167     for i := 0 to uProviders.count-1 do
168     begin
169       ProvData := uProviders[i];
170       ProvEntry := IntToStr(ProvData.IEN) + U + ProvData.Name;
171       if(ProvData.Primary) then
172         ProvEntry := ProvEntry + ' (Primary)';
173       lbProviders.Items.Add(ProvEntry);
174     end;
175     UpdateProviderButtons;
176   end;