pears.NetReportMetadata

CREATE PROCEDURE "pears"."NetReportMetadata"( 
  /* DOC
*/
  IN "pWebUserID" CHAR(20),IN "pReport" CHAR(100) ) 
RESULT( "ReportTitle" CHAR(200),"FieldName" CHAR(128),"FieldType" CHAR(128) ) 
BEGIN
  SELECT "r"."Description" AS "ReportTitle","p"."parm_name" AS "FieldName","d"."domain_name" AS "FieldType"
    FROM "iqxnetreport" AS "r" KEY JOIN "iqxnetuserclass" KEY JOIN "iqxnetuser"
      ,"iqxnetreport" AS "r" JOIN "sys"."sysprocedure" AS "pr" ON "r"."DBProcedure" = "pr"."proc_name" KEY JOIN "sys"."sysprocparm" AS "p" KEY JOIN "sys"."sysdomain" AS "d"
    WHERE "r"."DBProcedure" = "pReport"
    AND("r"."IQXNetRightID" IS NULL OR "iqxnethaspermission"("pWebUserID","r"."IQXNetRightID") > 0)
    AND "p"."parm_type" = 1 AND "iqxnetuser"."iqxnetuserid" = "pWebUserID"
    ORDER BY "p"."parm_id" ASC
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetReportMetadata" IS 
{CREATE PROCEDURE pears.NetReportMetadata
/* DOC
*/
( IN pWebUserID CHAR(20), IN pReport CHAR(100) ) 
RESULT( ReportTitle CHAR(200), FieldName CHAR(128), FieldType CHAR(128) ) 
BEGIN
  SELECT r.Description AS ReportTitle,p.parm_name AS FieldName,d.domain_name AS FieldType
 
  FROM 
   iqxnetreport r KEY JOIN iqxnetuserclass KEY JOIN iqxnetuser,
   iqxnetreport r JOIN sys.sysprocedure AS pr ON r.DBProcedure=pr.proc_name KEY JOIN sys.sysprocparm p KEY JOIN sys.sysdomain d
    WHERE 
      r.DBProcedure=pReport 
      AND (r.IQXNetRightID IS NULL OR iqxnethaspermission(pWebUserID,r.IQXNetRightID) > 0) 
      AND p.parm_type=1 AND iqxnetuser.iqxnetuserid = pWebUserID
  ORDER BY p.parm_id
 
END
}