pears.NetClientShiftOrderReasons

CREATE PROCEDURE "pears"."NetClientShiftOrderReasons"( IN "pWebUserID" CHAR(20) ) 
RESULT( "value" CHAR(20),"descrip" CHAR(50) ) 
//IQXNet
BEGIN
  SELECT "TempShiftOrderReasonID" AS "value",
    "Description" AS "descrip"
    FROM "tempshiftorderreason"
    ORDER BY "SortOrder" ASC
END /* DOC
2016-10-20 PC modify to include doc and test
 
inputs:
pWebUserID
 
outputs:
OrderReasonList
 
tests:
test delegated through NetOrderReasonList
invalid pWebUserID
valid pWebUserID
 
*/
/* TEST
call NetTestSetup('');
insert into tempshiftorderreason (tempshiftorderreasonid,description) on existing update values ('TEST','test');
select descrip from NetClientShiftOrderReasons(null) where value='TEST';
expect descrip=test;
 
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetClientShiftOrderReasons" IS 
{CREATE PROCEDURE pears."NetClientShiftOrderReasons"( IN "pWebUserID" CHAR(20) ) 
RESULT(VALUE CHAR(20),descrip CHAR(50))
//IQXNet
BEGIN
    SELECT
        TempShiftOrderReasonID AS VALUE,
        Description AS descrip
    FROM
        tempshiftorderreason
    ORDER BY
        SortOrder ASC
END
 
/* DOC
2016-10-20 PC modify to include doc and test
 
inputs:
    pWebUserID
 
outputs:
    OrderReasonList
 
tests:
    test delegated through NetOrderReasonList
    invalid pWebUserID
    valid pWebUserID
 
*/
 
/* TEST
call NetTestSetup('');
insert into tempshiftorderreason (tempshiftorderreasonid,description) on existing update values ('TEST','test');
select descrip from NetClientShiftOrderReasons(null) where value='TEST';
expect descrip=test;
 
*/
}