Function

SaveGAFScore

Module

rPCE

Last Modified

10/7/2014 12:48:38 PM

Scope

Interfaced

Declaration

function SaveGAFScore(const Score: integer; GAFDate: TFMDateTime; Staff: Int64): boolean;

Calls Hierarchy


SaveGAFScore
 └GAFOK

Called-By Hierarchy


                         SaveGAFScore
          TfrmRemDlg.btnFinishClick┤ 
        TfrmEncounterFrame.SendData┘ 
TfrmEncounterFrame.FormCloseQuery┘   

Calls

Name Declaration Comments
GAFOK function GAFOK: boolean; -

Called-By

Name Declaration Comments
TfrmRemDlg.btnFinishClick procedure btnFinishClick(Sender: TObject); -
TfrmEncounterFrame.SendData procedure SendData; -


Source

1372  function SaveGAFScore(const Score: integer; GAFDate: TFMDateTime; Staff: Int64): boolean;
1373  begin
1374    Result := FALSE;
1375    if(GAFOK) then
1376    begin
1377      with RPCBrokerV do
1378      begin
1379        ClearParameters := True;
1380        RemoteProcedure := 'ORWPCE SAVEGAF';
1381        Param[0].PType := list;
1382        with Param[0] do
1383        begin
1384          Mult['"DFN"'] := Patient.DFN;
1385          Mult['"GAF"'] := IntToStr(Score);
1386          Mult['"DATE"'] := FloatToStr(GAFDate);
1387          Mult['"STAFF"'] := IntToStr(Staff);
1388        end;
1389        CallBroker;
1390      end;
1391      if(RPCBrokerV.Results.Count > 0) and
1392        (RPCBrokerV.Results[0] = '1') then
1393        Result := TRUE;
1394    end;
1395  end;