pears.WPKUserPerformsRole

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
}