====== pears.WPKUserPerformsRole ======
<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"."WPKUserPerformsRole" IS 
{create function WPKUserPerformsRole 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in sStaffID char(20),in sRole char(31))
returns integer
begin
  if sRole = any(select WPKRoleID from WPKAssignedRole where OwnerID = sStaffID and isnull(Expires,current date) >= current date) then
    return 1
  end if;
  if "left"(sRole,1) = '#' and length(sRole) > 1 then
    if stuff(sRole,1,1,'') = any(select distinct r.RoleGroup from WPKAssignedRole as a join WPKRole as r on a.wpkroleid = r.wpkroleid
        where a.OwnerID = sStaffID and isnull(a.Expires,current date) >= current date) then
      return 1
    end if
  end if;
  return 0
end
}
</code>