pears.NetReferenceSet [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.NetReferenceSet ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."NetReferenceSet"( 
  in "pWebUserID" char(20),
  in "pReferenceRequestID" char(20),
  in "qanswers" long varchar default null,
  in "pDepartmentID" char(2),
  in "pPosition" char(100),
  in "pRefereeAddressName" char(60),
  in "ppersonName" char(30),
  in "pCompleted" smallint default 0,
  in "pReferenceConfirmationRequired" smallint default 0,
  in "pWithdrawn" smallint default 0 ) 
result( "pResult" char(250) ) 
begin
  if "pCompleted" = 1 then
    update
      "ReferenceRequest"
      set "WhenCompleted" = current timestamp,
      "ReferenceConfirmationRequired" = "pReferenceConfirmationRequired"
      where "ReferenceRequestID" = "pReferenceRequestID"
  end if;
  if "pWithdrawn" = 1 then
    update
      "ReferenceRequest"
      set "ReferenceRefused" = current timestamp
      where "ReferenceRequestID" = "pReferenceRequestID"
  end if;
  call "IQXNetSaveQuestionnaire"("pReferenceRequestID","qanswers");
  select '0:~Success'
end /* DOC
Details: Updates the reference questionnaire items and sets the summary box if needed.
Author: Gareth

24-09-2015 GJ Created
2020-07-06 GJ IW-1194 - Updated to allow withdrawl of reference
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetReferenceSet" IS 
{create PROCEDURE pears."NetReferenceSet"( 
  in pWebUserID char(20), 
  in pReferenceRequestID char(20), 
  in qanswers long varchar default null, 
  in pDepartmentID char(2), 
  in pPosition char(100), 
  in pRefereeAddressName char(60), 
  in ppersonName char(30), 
  in pCompleted smallint default 0, 
  in pReferenceConfirmationRequired smallint DEFAULT 0, 
  in pWithdrawn smallint DEFAULT 0
) 
result( "pResult" char(250) ) 
BEGIN
  IF pCompleted = 1 THEN
    UPDATE 
      ReferenceRequest 
    SET 
      WhenCompleted = CURRENT TIMESTAMP, 
      ReferenceConfirmationRequired = pReferenceConfirmationRequired 
    WHERE 
      ReferenceRequestID = pReferenceRequestID;
  END IF;

  IF pWithdrawn = 1 THEN
    UPDATE 
      ReferenceRequest
    SET
      ReferenceRefused = CURRENT TIMESTAMP
    WHERE 
      ReferenceRequestID = pReferenceRequestID
  END IF;


  CALL "IQXNetSaveQuestionnaire"("pReferenceRequestID","qanswers");
  SELECT '0:~Success'
END

/* DOC
Details: Updates the reference questionnaire items and sets the summary box if needed.
Author: Gareth

24-09-2015 GJ Created
2020-07-06 GJ IW-1194 - Updated to allow withdrawl of reference
*/
}
</code>