====== pears.NetOwnerCompanySelect ======
<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"."NetOwnerCompanySelect"( in "pWebUserID" char(20) ) 
result( "value" char(5),"name" char(25) ) 
begin
  if(select "count"() from "iqxnetuser" where "iqxnetuserid" = "pWebUserID") = 0 then
    select '',''
  else
    select "companystatusid","name" from "companystatus" union select '%','All' as "name" order by "name" asc
  end if
end /* DOC
2016-09-22 PC
Ref:IW4 
provide filter dropdown for Company status select box

inputs:
pWebUserID

outputs:
value - select code
name - text for dropdown box

tests:
null pWebUserID
invalid pWebUserID
valid pWebUserID
add test status with sort order 0
*/
/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect(null);
expect !!,!!;
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect('z99');
expect !!,!!;
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetOwnerCompanySelect('test.owner');
expect %,All;
expect .,Archived;
expect C,Client;
expect I,Invoice*;
expect N,Previously*;
expect P,Prospect;
expect A,Secondary*;
expect S,Supplier;
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerCompanySelect" IS 
{create PROCEDURE pears."NetOwnerCompanySelect"(in pWebUserID char(20))
RESULT(value char(5),name char(25))
BEGIN
    if (select count(*) from iqxnetuser where iqxnetuserid=pWebUserID) = 0 then
        select '','';
    else
        select companystatusid,name from companystatus union select '%','All' as name order by name
    end if;
END

/* DOC
2016-09-22 PC
Ref:IW4 
provide filter dropdown for Company status select box

inputs:
    pWebUserID

outputs:
    value - select code
    name - text for dropdown box

tests:
    null pWebUserID
    invalid pWebUserID
    valid pWebUserID
    add test status with sort order 0
*/

/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect(null);
expect !!,!!;
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect('z99');
expect !!,!!;
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetOwnerCompanySelect('test.owner');
expect %,All;
expect .,Archived;
expect C,Client;
expect I,Invoice*;
expect N,Previously*;
expect P,Prospect;
expect A,Secondary*;
expect S,Supplier;
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
}
</code>