====== pears.NetReports ======
<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>
create procedure "pears"."NetReports"( in "pWebUserID" char(20) ) 
result( "ReportTitle" char(200),"ReportSource" char(100),"ReportParams" long varchar ) 
begin
  select "r"."Description" as "ReportTitle","r"."DBProcedure" as "ReportSource",
    (select "list"("parm_name" order by "parm_id" asc) from "sysprocparm" key join "sysprocedure"
      where "proc_name" = "r"."DBProcedure" and "parm_mode_in" = 'Y' and "parm_name" <> 'pWebUserID') as "ReportParams"
    from "iqxnetreport" as "r" key join "iqxnetuserclass" key join "iqxnetuser"
    where "iqxnetuser"."iqxnetuserid" = "pWebUserID" and("r"."IQXNetRightID" is null or "iqxnethaspermission"("pWebUserID","r"."IQXNetRightID") > 0)
    order by "r"."sortorder" asc,"r"."iqxnetreportid" asc
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetReports" IS 
{create procedure pears.NetReports(in pWebUserID char(20))
result(ReportTitle char(200),ReportSource char(100),ReportParams long varchar)
begin
  select r.Description as ReportTitle,r.DBProcedure as ReportSource,
    (select list(parm_name order by parm_id asc) from sysprocparm key join sysprocedure
      where proc_name = r.DBProcedure and parm_mode_in = 'Y' and parm_name <> 'pWebUserID') as ReportParams
    from iqxnetreport as r key join iqxnetuserclass key join iqxnetuser
    where iqxnetuser.iqxnetuserid = pWebUserID and(r.IQXNetRightID is null or iqxnethaspermission(pWebUserID,r.IQXNetRightID) > 0) order by
    r.sortorder asc,r.iqxnetreportid asc
end
}
</code>