====== pears.NetGetEmail ======
<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>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetGetEmail" IS 
{create FUNCTION pears."NetGetEmail"( in cpe char(2),in recid char(20) )
RETURNS char(250)
//IQXWeb
BEGIN
  declare rv char(250);
  select first replace(phone.number,'*','') into rv from phone key join phonetype where phone.whoid = recid and phone.who = (if cpe = 'E' then 'CP' else cpe endif)  and
    phonetype.name = 'E-mail' order by 1;
  return(rv)
END

/* TEST
call NetTestSetup('');
delete from phone where phoneid like 'test%';
insert into phone (phoneid, phonetypeid, who, whoid, number) values ('Test1',(select top 1 phonetypeid from phonetype where name like 'E-Mail' and contact=1),'CP','TEST','test@test.com');
insert into phone (phoneid, phonetypeid, who, whoid, number) values ('Test2',(select top 1 phonetypeid from phonetype where name like 'E-Mail' and company=1),'C','TEST','test2@test.com');
select NetGetEmail(null,null);
expect;
select NetGetEmail('x','f99');
expect;
select isnull(NetGetEmail('x','TEST'),'empty');
expect empty;
select NetGetEmail('C','x');
expect;
select NetGetEmail('C','TEST');
expect test2@test.com;
select NetGetEmail('E','TEST');
expect test@test.com;
delete from phone where phoneid like 'test%';
*/

/* DOC
2016-08-25 PC tests and document
2020-04-21 JW Rewritten for inlining.

inputs:
    cpe - phone.who
    recid - phone.whoid

outputs:
    rv - return value

tests:
    null cpe and null recid
    incorrect cpe incorrect recid
    incorrect cpe correct recid
    correct cpe (not E) incorrect recid
    correct cpe (not E) correct recid
    correct cpe (E) correct recid
*/
}
</code>