====== pears.IQXNetHasPermission ======
<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"."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
}
</code>