pears.NetCandidatePublicProfile

CREATE PROCEDURE "pears"."NetCandidatePublicProfile"( IN "pWebUserID" CHAR(20),IN "pPersonID" CHAR(20) ) 
RESULT( "Name" CHAR(100),"DOB" CHAR(20),"hasPhoto" SMALLINT ) 
BEGIN
  SELECT FIRST "person"."name","dateformat"("person"."dob",'dd/mm/yyyy') AS "DOB",
    IF EXISTS(SELECT "id" FROM "blobstore" WHERE "class" = 'J' AND "id" = "person"."personid")
    AND "iqxnethaspermission"("pWebUserID",'DOCCANDDOWNLOAD') = 1 THEN 1 ELSE 0 endif AS "hasPhoto"
    FROM "person"
    WHERE "person"."personid" = "pPersonID"
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetCandidatePublicProfile" IS 
{CREATE PROCEDURE pears."NetCandidatePublicProfile"( IN "pWebUserID" CHAR(20),IN "pPersonID" CHAR(20) ) 
RESULT( "Name" CHAR(100),"DOB" CHAR(20),"hasPhoto" SMALLINT ) 
BEGIN
  SELECT FIRST "person"."name","dateformat"("person"."dob",'dd/mm/yyyy') AS "DOB",
    IF EXISTS(SELECT "id" FROM "blobstore" WHERE "class" = 'J' AND "id" = "person"."personid")
    AND "iqxnethaspermission"("pWebUserID",'DOCCANDDOWNLOAD') = 1 THEN 1 ELSE 0 endif AS "hasPhoto"
    FROM "person"
    WHERE "person"."personid" = "pPersonID"
END
}