Procedure

TfrmGAF.FormCreate

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGAF

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmGAF.FormCreate
 ├GAFURL
 └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

Calls

Name Declaration Comments
TfrmGAF.FormActivate procedure FormActivate(Sender: TObject); -
GAFURL function GAFURL: string; -


Source

199   procedure TfrmGAF.FormCreate(Sender: TObject);
200   begin
201     inherited;
202     FTabName := CT_GAFNm;
203     btnURL.Visible := (User.WebAccess and (GAFURL <> ''));
204     FormActivate(Sender);
205   end;