pears.NetOwnerRequirementStatusFilter

CREATE PROCEDURE "pears"."NetOwnerRequirementStatusFilter"( IN "pWebUserID" CHAR(20) ) 
RESULT( "value" CHAR(20),"descrip" CHAR(50) ) 
// IQXNet
BEGIN
  SELECT "status","name" FROM "status" WHERE "type" = 'v' AND "publishtoweb" = 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 skip values ('V','~','test','test',1);
select * from NetOwnerRequirementStatusFilter(null) order by Value;
expect value=C,descrip=Current;
select * from NetOwnerRequirementStatusFilter('test.client');
expect value=C,descrip=Current;
 
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerRequirementStatusFilter" IS 
{CREATE PROCEDURE pears."NetOwnerRequirementStatusFilter"(IN pWebUserID CHAR(20))
RESULT(VALUE CHAR(20),descrip CHAR(50))
// IQXNet
BEGIN
	SELECT STATUS,name FROM STATUS WHERE TYPE='v' AND publishtoweb=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 skip values ('V','~','test','test',1);
select * from NetOwnerRequirementStatusFilter(null) order by Value;
expect value=C,descrip=Current;
select * from NetOwnerRequirementStatusFilter('test.client');
expect value=C,descrip=Current;
 
*/
}