pears.IQXNetHasPermission

CREATE FUNCTION "pears"."IQXNetHasPermission"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pWebUserID" CHAR(20),IN "pRightID" CHAR(20) ) 
RETURNS SMALLINT
NOT deterministic
BEGIN
  DECLARE "rv" SMALLINT;
  SET "rv" = 0;
  IF(SELECT FIRST "isnull"((SELECT FIRST "Assigned" FROM "IQXNetRightAssigned" WHERE "IQXNetRightID" = "a"."IQXNetRightID" AND "IQXNetUserID" = "u"."IQXNetUserID"),0)
      +"isnull"((SELECT FIRST 1 FROM "IQXNetRightDefault" WHERE "IQXNetRightID" = "a"."IQXNetRightID" AND "IQXNetUserClassID" = "a"."IQXNetUserClassID" AND "ID" = "a"."ID"),0)
      FROM "IQXNetRightAllowed" AS "a" JOIN "IQXNetUser" AS "u" ON "a"."IQXNetUserClassID" = "u"."IQXNetUserClassID" AND "a"."ID" = '*'
      WHERE "u"."IQXNetUserID" = "pWebUserID" AND "a"."IQXNetRightID" = "pRightID") > 0 THEN
    SET "rv" = 1
  END IF;
  RETURN "rv"
END