pears.NetReports

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
}