pears.WPKUserPerformsRole

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