Report problem with PL/sql

Question

function BeforeReport return boolean is
begin
declare
l_sort po_lookup_codes.displayed_field % type;
begin
if :P_orderby is not null then
select displayed_field
into l_sort
from po_lookup_codes
where lookup_code = :P_orderby
and lookup_type = 'SRS ORDER BY';
:P_orderby_displayed := l_sort ;
else
:P_orderby_displayed := '' ;
end if;
SRW.USER_EXIT('FND SRWINIT');
if (get_p_struct_num != TRUE )
then SRW.MESSAGE('1','Init failed');
end if;
if (get_chart_of_accounts_id != TRUE )
then SRW.MESSAGE('1','Init failed');
end if;
SRW.USER_EXIT('FND FLEXSQL CODE ="GL#"
OUTPUT =":P_FLEX_ACC1"
APPL_SHORT_NAME="SQLGL"
MODE ="SELECT"
DISPLAY ="ALL"
NUM =":P_chart_of_accounts_id"
TABLEALIAS ="GCC1"');
SRW.USER_EXIT('FND FLEXSQL CODE ="GL#"
OUTPUT =":P_FLEX_ACC2"
APPL_SHORT_NAME="SQLGL"
MODE ="SELECT"
DISPLAY ="ALL"
NUM =":P_chart_of_accounts_id"
TABLEALIAS ="GCC2"');
SRW.USER_EXIT('FND FLEXSQL CODE ="MCAT"
OUTPUT =":P_FLEX_CAT"
APPL_SHORT_NAME="INV"
MODE ="SELECT"
DISPLAY ="ALL"
NUM =":P_STRUCT_NUM"
TABLEALIAS ="MCA"');
SRW.USER_EXIT('FND FLEXSQL CODE ="MCAT"
OUTPUT =":P_WHERE_CAT"
APPL_SHORT_NAME="INV"
MODE ="WHERE"
DISPLAY ="ALL"
NUM =":P_STRUCT_NUM"
TABLEALIAS ="MCA"
OPERATOR ="BETWEEN"
OPERAND1 =":P_CATEGORY_FROM"
OPERAND2 =":P_CATEGORY_TO"');
SRW.USER_EXIT('FND FLEXSQL CODE ="MCAT"
OUTPUT =":P_ORDERBY_CAT"
APPL_SHORT_NAME="INV"
MODE ="ORDER BY"
DISPLAY ="ALL"
NUM =":P_STRUCT_NUM"
TABLEALIAS ="MCA"');
SRW.USER_EXIT('FND FLEXSQL CODE ="MSTK"
OUTPUT =":P_FLEX_ITEM"
APPL_SHORT_NAME="INV"
MODE ="SELECT"
DISPLAY ="ALL"
NUM =":P_ITEM_STRUCT_NUM"
TABLEALIAS ="MSI"');
/* Assign parameter P_Accrued_receipts to parameter P_yes_no
:P_yes_no := :P_Accrued_Receipts;
return(true);
exception
when others then return(false);
END;
return (TRUE);
end;

Answer 1

I think you should post it -
Forms
Regards.
Satyaki De.