PACKAGE BODY: APPS.PO_POXRQEXP_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRQEXP_XMLP_PKG AS
2 /* $Header: POXRQEXPB.pls 120.1 2008/01/06 07:11:27 dwkrishn noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 
9 BEGIN
10   /*SRW.USER_EXIT('FND SRWINIT');*/null;
11 
12   if (get_p_struct_num <> TRUE )
13     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
14 
15   end if;
16 
17  null;
18 
19 
20  null;
21   RETURN TRUE;
22 END;
23   return (TRUE);
24 end;
25 
26 function get_p_struct_num return boolean is
27 
28 l_p_struct_num number;
29 
30 begin
31         select structure_id
32         into l_p_struct_num
33         from mtl_default_sets_view
34         where functional_area_id = 2 ;
35 
36         P_STRUCT_NUM := l_p_struct_num ;
37 
38         return(TRUE) ;
39 
40         RETURN NULL; exception
41         when others then return(FALSE) ;
42 end;
43 
44 function AfterReport return boolean is
45 begin
46   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
47 
48   return (TRUE);
49 end;
50 
51 --Functions to refer Oracle report placeholders--
52 
53 END PO_POXRQEXP_XMLP_PKG ;
54