pears.NetClientRequirementStatusFilter

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;
 
*/
}