pears.NetPersonProfile

CREATE PROCEDURE "pears"."NetPersonProfile"( IN "pWebUserID" CHAR(20),IN "pPersonID" CHAR(20) DEFAULT NULL ) 
RESULT( "personid" CHAR(20),"dob" DATE,"homephone" CHAR(250),"email" CHAR(250) ) 
BEGIN
  SELECT FIRST "person"."personid","person"."dob","getphone"('P','Home Telephone',"person"."personid"),"getphone"('P','E-mail',"person"."personid")
    FROM "person"
    WHERE "personid" = "NetCandidateValidPersonID"("pWebUserID","pPersonID")
END /* DOC
2018-10-22 MHS IW-456 multi-cand fix and basic tests
*/
/* TEST
call nettestsetup('');
select * from NetPersonProfile(null);
expect eof;
select * from NetPersonProfile('test.candidate');
expect row;
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetPersonProfile" IS 
{CREATE PROCEDURE pears."NetPersonProfile"( IN "pWebUserID" CHAR(20), IN pPersonID CHAR(20)DEFAULT NULL ) 
RESULT( "personid" CHAR(20),"dob" DATE,"homephone" CHAR(250),"email" CHAR(250) ) 
BEGIN
  SELECT FIRST "person"."personid","person"."dob","getphone"('P','Home Telephone',"person"."personid"),"getphone"('P','E-mail',"person"."personid")
    FROM "person" 
    WHERE personid=NetCandidateValidPersonID(pWebUserID,pPersonID);
END
 
 
/* DOC
2018-10-22 MHS IW-456 multi-cand fix and basic tests
*/
 
/* TEST
call nettestsetup('');
select * from NetPersonProfile(null);
expect eof;
select * from NetPersonProfile('test.candidate');
expect row;
*/
}