pears.IQXNetHasPermission

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetHasPermission" IS 
{CREATE FUNCTION 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
}