PACKAGE BODY: APPS.PO_POXQTQAR_XMLP_PKG

Source

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