pears.NetPersonProfile [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.NetPersonProfile ======
<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"."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;
*/
}
</code>