pears.NetGetWebReferences

CREATE PROCEDURE "pears"."NetGetWebReferences"( 
  IN "pWebUserID" CHAR(20),
  IN "pPersonID" CHAR(20) ) 
RESULT( 
  "ReferenceRequestID" CHAR(20),
  "RefereeAddressName" CHAR(60),
  "RefereePosition" CHAR(40),
  "CompanyName" CHAR(60),
  "Email" CHAR(250) ) 
BEGIN
  SELECT "ReferenceRequestID",
    "RefereeAddressName",
    "RefereePosition",
    "CompanyName",
    "Email"
    FROM "ReferenceRequest"
    WHERE "PersonID" = "pPersonID"
    AND "WhenSent" IS NULL
    ORDER BY "WhenCreated" ASC
END /* DOC
2020-07-06 GJ Created
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetGetWebReferences" IS 
{CREATE PROCEDURE pears."NetGetWebReferences"( 
    IN pWebUserID CHAR(20),
	IN pPersonID CHAR(20)
) 
RESULT( 
    ReferenceRequestID CHAR(20),
    RefereeAddressName CHAR(60),
    RefereePosition CHAR(40),
    CompanyName CHAR(60),
    Email CHAR(250)
) 
BEGIN
    SELECT
        ReferenceRequestID,
        RefereeAddressName,
        RefereePosition,
        CompanyName,
        Email
    FROM
        ReferenceRequest
    WHERE
        PersonID = pPersonID
        AND WhenSent IS NULL
    ORDER BY
        WhenCreated
END
 
/* DOC
2020-07-06 GJ Created
*/
}