====== pears.NetClientRequirementStatusFilter ======
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
===== Original SQL =====
create procedure "pears"."NetClientRequirementStatusFilter"( in "pWebUserID" char(20) )
result( "value" char(20),"descrip" char(50) )
// IQXNet
begin
select "status","name" from "status" where "type" = 'v' and "allowsetonweb" = 1 order by "gridsortorder" asc
end /* DOC
2016-12-08 PC supply a reason for filtering the Requirement List
Inputs:
pWebUserID
Outputs:
value
descrip
Tests:
invalid pWebUserID
valid pWebUserID
*/
/* TEST
call NetTestSetup('');
insert into status (type,status,name,help,allowsetonweb) on existing update values ('V','~','test','test',1);
select * from NetClientRequirementStatusFilter(null);
expect value=~,descrip=test;
select * from NetClientRequirementStatusFilter('test.client');
expect value=~,descrip=test;
*/
go
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetClientRequirementStatusFilter" IS
{create PROCEDURE pears."NetClientRequirementStatusFilter"(in pWebUserID char(20))
RESULT(value char(20),descrip char(50))
// IQXNet
BEGIN
select status,name from status where type='v' and allowsetonweb=1 order by gridsortorder;
END
/* DOC
2016-12-08 PC supply a reason for filtering the Requirement List
Inputs:
pWebUserID
Outputs:
value
descrip
Tests:
invalid pWebUserID
valid pWebUserID
*/
/* TEST
call NetTestSetup('');
insert into status (type,status,name,help,allowsetonweb) on existing update values ('V','~','test','test',1);
select * from NetClientRequirementStatusFilter(null);
expect value=~,descrip=test;
select * from NetClientRequirementStatusFilter('test.client');
expect value=~,descrip=test;
*/
}