====== pears.NetClientContact ======
<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"."NetClientContact"( in "pWebUserID" char(20) ) 
result( "employmentid" char(20),"directphone" char(250),"mobile" char(250),"email" char(250),"directfax" char(250),"position" char(100),"department" char(100) ) 
//IQXWeb
begin
  select first "employment"."employmentid",
    "getphone"('CP','Direct Telephone',"employment"."employmentid"),
    "getphone"('CP','Mobile',"employment"."employmentid"),
    "netgetemail"('CP',"employment"."employmentid"),
    "getphone"('CP','Direct Fax',"employment"."employmentid"),
    "employment"."position",
    "employment"."department"
    from "employment" key join "iqxnetuserlink"
    where "iqxnetuserlink"."iqxnetuserid" = "pWebUserID"
end /* TEST
call NetTestSetup('');
update iqxnetuserlink set employmentid=null where IQXNetUserLinkID like 'test%';
update iqxnetuserlink set employmentid='TEST' where IQXNetUserLinkID='test.client';
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('test.client');
expect DP=0499!999!995,mob=0999!999!994,email=test70@test.com,df=0999!999!993,position=TestPosition,department=TestDept2;
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('test.owner');
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('T9');
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact(null);
expect EOF;

*/
/* DOC
2016-08-23 PC Test routines added

test:
select all values for owner
select all values for Webuser with no employment
select all values for invalid web user
select all values for null web user
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetClientContact" IS 
{create PROCEDURE pears."NetClientContact"(in pWebUserID char(20))
result(employmentid char(20),directphone char(250),mobile char(250),email char(250),directfax char(250),position char(100),department char(100))
//IQXWeb
begin
  select first employment.employmentid,
    getphone('CP','Direct Telephone',employment.employmentid),
    getphone('CP','Mobile',employment.employmentid),
    netgetemail('CP',employment.employmentid),
    getphone('CP','Direct Fax',employment.employmentid),
    employment.position,
    employment.department
    from employment key join iqxnetuserlink
    where iqxnetuserlink.iqxnetuserid = pWebUserID
end

/* TEST
call NetTestSetup('');
update iqxnetuserlink set employmentid=null where IQXNetUserLinkID like 'test%';
update iqxnetuserlink set employmentid='TEST' where IQXNetUserLinkID='test.client';
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('test.client');
expect DP=0499!999!995,mob=0999!999!994,email=test70@test.com,df=0999!999!993,position=TestPosition,department=TestDept2;
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('test.owner');
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact('T9');
expect EOF;
select replace(directphone,' ','!') as DP,replace(mobile,' ','!') as mob,email,replace(directfax,' ','!') as df,position,department from NetClientContact(null);
expect EOF;

*/

/* DOC
2016-08-23 PC Test routines added

test:
    select all values for owner
    select all values for Webuser with no employment
    select all values for invalid web user
    select all values for null web user
*/
}
</code>