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