Procedure

TfrmGAF.GetGAFScore

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGAF

Declaration

procedure GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64);

Calls Hierarchy


TfrmGAF.GetGAFScore
 ├TfrmGAF.BADData
 │ ├ValidateGAFDate
 │ │ ├TPatient.GetDateDied
 │ │ │ └DateOfDeath
 │ │ └FMToday
 │ │   └FMNow
 │ ├TPCEProviderList.PCEProvider
 │ │ ├Check
 │ │ │ └TPCEProviderList.IndexOfProvider
 │ │ └TPCEProviderList.PrimaryIEN
 │ │   └TPCEProviderList.GetPrimaryIdx
 │ └TPCEProviderList.PCEProviderName
 │   ├TPCEProviderList.PCEProvider...
 │   └ExternalName
 └ValidGAFData
   └TPatient.GetDateDied...

Called-By Hierarchy


                  TfrmGAF.GetGAFScore
        TfrmEncounterFrame.SendData┘ 
TfrmEncounterFrame.FormCloseQuery┘   

Calls

Name Declaration Comments
TfrmGAF.BADData function BADData(ShowMessage: boolean): boolean; -
ValidGAFData function ValidGAFData(Score: integer; Date: TFMDateTime; Staff: Int64): boolean; -

Called-By

Name Declaration Comments
TfrmEncounterFrame.SendData procedure SendData; -


Source

161   procedure TfrmGAF.GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64);
162   begin
163     Score := udScore.Position;
164     if(Score > 0) then BADData(TRUE);
165     Date := dteGAF.FMDateTime;
166     Staff := cboGAFProvider.ItemIEN;
167     if(not ValidGAFData(Score, Date, Staff)) then
168     begin
169       Score := 0;
170       Date := 0;
171       Staff := 0
172     end;
173   end;