Procedure

TfrmGAF.FormActivate

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGAF

Declaration

procedure FormActivate(Sender: TObject);

Calls Hierarchy


TfrmGAF.FormActivate
 ├TfrmGAF.LoadScores
 │ ├RecentGAFScores
 │ │ └GAFOK
 │ └TfrmPCEBaseGrid.SyncGridData
 │   ├TfrmPCEBaseGrid.SaveGridSelected
 │   ├TfrmPCEBaseGrid.RestoreGridSelected
 │   └TfrmPCEBaseGrid.SyncGridHeader
 └TfrmGAF.BADData
   ├ValidateGAFDate
   │ ├TPatient.GetDateDied
   │ │ └DateOfDeath
   │ └FMToday
   │   └FMNow
   ├TPCEProviderList.PCEProvider
   │ ├Check
   │ │ └TPCEProviderList.IndexOfProvider
   │ └TPCEProviderList.PrimaryIEN
   │   └TPCEProviderList.GetPrimaryIdx
   └TPCEProviderList.PCEProviderName
     ├TPCEProviderList.PCEProvider...
     └ExternalName

Called-By Hierarchy


TfrmGAF.FormActivate
  TfrmGAF.FormShow┤ 
TfrmGAF.FormCreate┘ 

Calls

Name Declaration Comments
TfrmGAF.BADData function BADData(ShowMessage: boolean): boolean; -
TfrmGAF.LoadScores procedure LoadScores; -

Called-By

Name Declaration Comments
TfrmGAF.FormCreate procedure FormCreate(Sender: TObject); -
TfrmGAF.FormShow procedure FormShow(Sender: TObject); -


Source

175   procedure TfrmGAF.FormActivate(Sender: TObject);
176   begin
177     inherited;
178     if(not FDataLoaded) then
179     begin
180       FDataLoaded := TRUE;
181       LoadScores;
182       cboGAFProvider.InitLongList(Encounter.ProviderName);
183       BADData(FALSE);
184     end;
185   end;