pears.NetClientContact

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 protected],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 protected],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
*/
}