PACKAGE BODY: APPS.PO_POXRFRAR_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRFRAR_XMLP_PKG AS
2 /* $Header: POXRFRARB.pls 120.2 2008/01/05 17:10:06 dwkrishn noship $ */
3 
4 function AfterReport return boolean is
5 begin
6 
7 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
8   return (TRUE);
9 end;
10 
11 function BeforeReport return boolean is
12 begin
13 
14 declare
15 l_sort     po_lookup_codes.displayed_field%type ;
16 begin
17 
18 if P_ORDERBY is not null then
19 
20     select displayed_field
21     into l_sort
22     from po_lookup_codes
23     where lookup_code = P_orderby
24     and lookup_type = 'SRS ORDER BY';
25 
26     P_ORDERBY_DISP := l_sort ;
27 
28 else
29 
30     P_ORDERBY_DISP := '' ;
31 
32 end if;
33 
34   /*SRW.USER_EXIT('FND SRWINIT');*/null;
35 
36   if (get_p_struct_num <> TRUE )
37     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
38 
39   end if;
40 
41  null;
42 RETURN TRUE;
43 END;  return (TRUE);
44 end;
45 
46 function get_p_struct_num return boolean is
47 
48 l_p_struct_num number;
49 
50 begin
51         select structure_id
52         into l_p_struct_num
53         from mtl_default_sets_view
54         where functional_area_id = 2 ;
55 
56         P_STRUCT_NUM := l_p_struct_num ;
57 
58         return(TRUE) ;
59 
60         RETURN NULL; exception
61         when others then return(FALSE) ;
62 end;
63 
64 --Functions to refer Oracle report placeholders--
65 
66 END PO_POXRFRAR_XMLP_PKG ;
67