pears.TempGetWeekAgo

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."TempGetWeekAgo" IS 
{CREATE FUNCTION TempGetWeekAgo 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN StartYear INTEGER,IN StartWeek INTEGER,IN WeeksAgo SMALLINT)
RETURNS INTEGER
/* Function returns year and week in format: yyyyww */
BEGIN
  DECLARE MaxWeek SMALLINT;
  IF WeeksAgo>52 THEN
    RETURN NULL
  END IF
  ;
  IF WeeksAgo<StartWeek THEN
    RETURN(StartYear*100+(StartWeek-WeeksAgo))
  END IF
  ;
  SELECT numberofweeks INTO MaxWeek FROM payrollyear WHERE yearnumber=StartYear-1;
  IF maxweek IS NULL THEN
    SET maxweek=52
  END IF
  ;
  RETURN(StartYear-1)*100+(MaxWeek-(WeeksAgo-StartWeek))
END
}