PACKAGE BODY: APPS.PO_POXAGLST_XMLP_PKG

Source

1 PACKAGE BODY PO_POXAGLST_XMLP_PKG AS
2 /* $Header: POXAGLSTB.pls 120.2 2008/01/05 12:52:37 dwkrishn noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 
9 declare
10 l_active_inactive    po_lookup_codes.displayed_field%type ;
11 l_sort     po_lookup_codes.displayed_field%type ;
12 begin
13 
14 if P_active_inactive is not null then
15 
16     select displayed_field
17     into l_active_inactive
18     from po_lookup_codes
19     where lookup_code = P_active_inactive
20     and lookup_type = 'ACTIVE_INACTIVE';
21 
22     P_active_inactive_disp := l_active_inactive ;
23 
24 else
25 
26     P_active_inactive_disp := '' ;
27 
28 end if;
29 
30 
31 if P_orderby is not null then
32 
33     select displayed_field
34     into l_sort
35     from po_lookup_codes
36     where lookup_code = P_orderby
37     and lookup_type = 'SRS ORDER BY';
38 
39     P_orderby_displayed := l_sort ;
40 
41 else
42 
43     P_orderby_displayed := '' ;
44 
45 end if;
46 
47   /*SRW.USER_EXIT('FND SRWINIT');*/null;
48 
49 
50   if (get_p_struct_num <> TRUE )
51     then /*SRW.MESSAGE('1','Init failed');*/null;
52 
53   end if;
54 LP_ORDERBY_DISPLAYED:=P_orderby_displayed;
55  null;
56 
57  null;
58 
59  null;
60 
61   RETURN TRUE;
62 END;  return (TRUE);
63 end;
64 
65 function AfterReport return boolean is
66 begin
67 
68 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
69   return (TRUE);
70 end;
71 
72 function orderby_clauseFormula return VARCHAR2 is
73 begin
74 
75 if      P_orderby = 'BUYER' then
76         return('hre.full_name');
77 elsif   P_orderby = 'LOCATION' then
78         return('hrl.location_code');
79 elsif   P_orderby = 'CATEGORY' then
80         return(P_ORDERBY_CAT);
81 end if;
82 
83 --RETURN NULL; end;
84 RETURN('hre.full_name'); end;
85 
86 function get_p_struct_num return boolean is
87 
88 l_p_struct_num number;
89 
90 begin
91         select structure_id
92         into l_p_struct_num
93         from mtl_default_sets_view
94         where functional_area_id = 2 ;
95 
96         P_STRUCT_NUM := l_p_struct_num ;
97 
98         return(TRUE) ;
99 
100         RETURN NULL; exception
101         when others then return(FALSE) ;
102 end;
103 
104 --Functions to refer Oracle report placeholders--
105 
106 END PO_POXAGLST_XMLP_PKG ;
107