pears.WeekContaining

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."WeekContaining" IS 
{CREATE FUNCTION WeekContaining 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN d DATE)
RETURNS INTEGER
BEGIN
  DECLARE yr INTEGER;
  DECLARE wk INTEGER;
  DECLARE dt DATE;
  SELECT MAX(yearnumber) INTO yr FROM payrollyear WHERE(week1friday-7) < d;
  SELECT week1friday INTO dt FROM payrollyear WHERE yearnumber = yr;
  SET wk=truncnum((d-(dt-6))/7,0)+1;
  RETURN(yr*100+wk)
END
}