Procedure

TfrmGAF.AllowTabChange

Directives

Override

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Overrides

TfrmPCEBase.AllowTabChange

Owner

TfrmGAF

Declaration

procedure AllowTabChange(var AllowChange: boolean); override;

Calls Hierarchy


TfrmGAF.AllowTabChange
 └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.BADData function BADData(ShowMessage: boolean): boolean; -


Source

156   procedure TfrmGAF.AllowTabChange(var AllowChange: boolean);
157   begin
158     AllowChange := (not BADData(TRUE));
159   end;