====== pears.WeekContaining ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
</code>