Procedure

TfrmGAF.cboGAFProviderExit

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGAF

Declaration

procedure cboGAFProviderExit(Sender: TObject);

Calls Hierarchy


TfrmGAF.cboGAFProviderExit
 └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

150   procedure TfrmGAF.cboGAFProviderExit(Sender: TObject);
151   begin
152     inherited;
153     BADData(TRUE);
154   end;