====== pears.NetOwnerIsFav ======
<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"."NetOwnerIsFav"( in "pWebUserID" char(20),in "pLinkID" char(20) ) 
result( "favid" char(100) ) 
begin
  if((select "count"() from "iqxnetuser" where "iqxnetuserid" = "pWebUserID") = 0) then
    select '99:~invalid user';
    return
  end if;
  select "FavouritesID" as "favid"
    from "Favourites"
    where "ID" = "pLinkID"
end /* DOC
2016-12-01 PC test and doc
added favid as result, previously undefined

Inputs:
pWebUserID
pLinkID

Outputs:
undefined

Tests:
invalid pWebUserID
valid pWebUserID invalid pLinkID
valid pWebUserID, pLinkID

*/
/* TEST
call NetTestSetup('');
update iqxnetuserlink set employmentid=null where IQXNetUserLinkID in ('test.client','test.agency','test.candidate','test.owner');
update iqxnetuserlink set employmentid='TEST' where IQXNetUserLinkID='test.owner';
insert into Favourites (FavouritesID, Parent, ID, Staffid, Description, Type) on existing skip values ('TEST', null, null, 'TEST', '', 'H');
insert into Favourites (FavouritesID, Parent, ID, Staffid, Description, Type) on existing skip values ('TEST2', 'TEST', 'TEST', 'TEST', 'test', 'P');
select * from NetOwnerIsFav(null,null);
expect 99*;
select * from NetOwnerIsFav('test.owner',null);
expect EOF;
select * from NetOwnerIsFav('test.owner','TEST');
expect favid=TEST2;
expect EOF;
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerIsFav" IS 
{create PROCEDURE pears."NetOwnerIsFav"( in "pWebUserID" char(20),in "pLinkID" char(20) )
RESULT(favid char(100))
BEGIN
    if ((select count(*) from iqxnetuser where iqxnetuserid=pWebUserID)=0) then
        select '99:~invalid user';
        return;
    end if;
    SELECT FavouritesID as favid
    FROM Favourites 
    where ID=pLinkID
END

/* DOC
2016-12-01 PC test and doc
    added favid as result, previously undefined

Inputs:
    pWebUserID
    pLinkID
     
Outputs:
    undefined

Tests:
    invalid pWebUserID
    valid pWebUserID invalid pLinkID
    valid pWebUserID, pLinkID

*/

/* TEST
call NetTestSetup('');
update iqxnetuserlink set employmentid=null where IQXNetUserLinkID in ('test.client','test.agency','test.candidate','test.owner');
update iqxnetuserlink set employmentid='TEST' where IQXNetUserLinkID='test.owner';
insert into Favourites (FavouritesID, Parent, ID, Staffid, Description, Type) on existing skip values ('TEST', null, null, 'TEST', '', 'H');
insert into Favourites (FavouritesID, Parent, ID, Staffid, Description, Type) on existing skip values ('TEST2', 'TEST', 'TEST', 'TEST', 'test', 'P');
select * from NetOwnerIsFav(null,null);
expect 99*;
select * from NetOwnerIsFav('test.owner',null);
expect EOF;
select * from NetOwnerIsFav('test.owner','TEST');
expect favid=TEST2;
expect EOF;
*/
}
</code>