====== 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>
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
}
</code>