PACKAGE BODY: APPS.PO_POXSUMIT_XMLP_PKG

Source

1 PACKAGE BODY PO_POXSUMIT_XMLP_PKG AS
2 /* $Header: POXSUMITB.pls 120.1 2007/12/25 12:28:38 krreddy 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_sort is not null then
32 
33     select displayed_field
34     into l_sort
35     from po_lookup_codes
36     where lookup_code = P_sort
37     and lookup_type = 'SRS ORDER BY';
38 
39     P_sort_displayed := l_sort ;
40 
41 else
42 
43     P_sort_displayed := '' ;
44 
45 end if;
46 
47 
48 end;
49 
50 BEGIN
51   /*SRW.USER_EXIT('FND SRWINIT');*/null;
52 
53   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
54             /*SRW.MESSAGE(1,'srw_init');*/null;
55 
56 END;
57 BEGIN
58   if (get_p_struct_num <> TRUE )
59     then /*SRW.MESSAGE('1','Init failed');*/null;
60 
61   end if;
62 END;
63 BEGIN
64 
65  null;
66   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
67             /*SRW.MESSAGE(1,'Before Item Flex');*/null;
68 
69 END;
70 BEGIN
71 
72  null;
73   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
74             /*SRW.MESSAGE(1,'Before Acc Flex');*/null;
75 
76 END;
77 BEGIN
78 
79  null;
80   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
81             /*SRW.MESSAGE(1,'Before Cat Flex');*/null;
82 
83 END;
84 BEGIN
85 
86  null;
87   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
88             /*SRW.MESSAGE(1,'Before Item Orderby');*/null;
89 
90 END;
91 BEGIN
92 
93  null;
94   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
95             /*SRW.MESSAGE(1,'Before Categroy Orderby');*/null;
96 
97 END;
98 RETURN TRUE;  return (TRUE);
99 end;
100 
101 function AfterReport return boolean is
102 begin
103 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
104 
105 RETURN TRUE;  return (TRUE);
106 end;
107 
108 function get_p_struct_num return boolean is
109 
110 l_p_struct_num number;
111 
112 begin
113         select structure_id
114         into l_p_struct_num
115         from mtl_default_sets_view
116         where functional_area_id = 2 ;
117 
118         P_STRUCT_NUM := l_p_struct_num ;
119 
120         return(TRUE) ;
121 
122         RETURN NULL; exception
123         when others then return(FALSE) ;
124 end;
125 
126 --Functions to refer Oracle report placeholders--
127 
128 END PO_POXSUMIT_XMLP_PKG ;
129