pears.WeekContaining

CREATE FUNCTION "pears"."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