Procedure

RecentGAFScores

Module

rPCE

Last Modified

10/7/2014 12:48:38 PM

Scope

Interfaced

Declaration

procedure RecentGAFScores(const Limit: integer);

Calls Hierarchy


RecentGAFScores
 └GAFOK

Called-By Hierarchy


         RecentGAFScores
    TfrmGAF.LoadScores┘ 
TfrmGAF.FormActivate┘   
  TfrmGAF.FormShow┤     
TfrmGAF.FormCreate┘     

Calls

Name Declaration Comments
GAFOK function GAFOK: boolean; -

Called-By

Name Declaration Comments
TfrmGAF.LoadScores procedure LoadScores; -


Source

1353  procedure RecentGAFScores(const Limit: integer);
1354  begin
1355    if(GAFOK) then
1356    begin
1357      with RPCBrokerV do
1358      begin
1359        ClearParameters := True;
1360        RemoteProcedure := 'ORWPCE LOADGAF';
1361        Param[0].PType := list;
1362        with Param[0] do
1363        begin
1364          Mult['"DFN"'] := Patient.DFN;
1365          Mult['"LIMIT"'] := IntToStr(Limit);
1366        end;
1367        CallBroker;
1368      end;
1369    end;
1370  end;