pears.NetShiftTypes

CREATE PROCEDURE "pears"."NetShiftTypes"( IN "pWebUserID" CHAR(20) ) 
RESULT( "TempShiftTypeID" CHAR(2),"Description" CHAR(50) ) 
// IQXWeb
BEGIN
  SELECT "TempShiftTypeID","Description" FROM "TempShiftType" WHERE "PublishToWeb" = 1 ORDER BY "SortOrder" ASC
END /* DOC
2018-09-13 PC test routines
 
*/
/* TEST
update tempshifttype set publishtoweb=1 where tempshifttypeid='~~';
select * from netshifttypes('');
expect TempShiftTypeID=~~,Description=test;
update tempshifttype set publishtoweb=0 where tempshifttypeid='~~';
 
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetShiftTypes" IS 
{CREATE PROCEDURE pears."NetShiftTypes"(IN pWebUserID CHAR(20))
RESULT(TempShiftTypeID CHAR(2), Description CHAR(50))
// IQXWeb
BEGIN
  SELECT TempShiftTypeID, Description FROM TempShiftType WHERE PublishToWeb=1 ORDER BY SortOrder
END
 
/* DOC
2018-09-13 PC test routines
 
*/
 
/* TEST
update tempshifttype set publishtoweb=1 where tempshifttypeid='~~';
select * from netshifttypes('');
expect TempShiftTypeID=~~,Description=test;
update tempshifttype set publishtoweb=0 where tempshifttypeid='~~';
 
*/
}