pears.NetReferenceSet

Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
Original 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
*/
}