====== pears.NetAgencyCompanyStatusSelect ======
<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"."NetAgencyCompanyStatusSelect"( 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" order by "sortorder" asc
  end if
end /* DOC
2016-10-04 PC
Ref:IW4 
provide filter dropdown for Company status select box
2018-04-20 PC revise tests

tests:
valid pWebUserID
add test status with sort order 0
*/
/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetAgencyCompanyStatusSelect('test.owner');
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetAgencyCompanyStatusSelect" IS 
{create PROCEDURE pears."NetAgencyCompanyStatusSelect"(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 order by sortorder
    end if;
END

/* DOC
2016-10-04 PC
Ref:IW4 
provide filter dropdown for Company status select box
2018-04-20 PC revise tests

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

/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetAgencyCompanyStatusSelect('test.owner');
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
}
</code>