PACKAGE BODY: APPS.PO_POXRVRSR_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRVRSR_XMLP_PKG AS
2 /* $Header: POXRVRSRB.pls 120.1 2007/12/25 12:18:07 krreddy noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 
9 declare
10 l_org_displayed	org_organization_definitions.organization_name%type;
11 begin
12 if P_org_id is not null then
13 select organization_name
14     into l_org_displayed
15     from org_organization_definitions
16     where organization_id = P_org_id ;
17 
18     P_org_displayed := l_org_displayed ;
19 
20 else
21 
22     P_org_displayed := '' ;
23 
24 end if;
25  FORMAT_MASK := PO_COMMON_xmlp_pkg.GET_PRECISION(P_QTY_PRECISION);
26 end;
27 
28 BEGIN
29   /*SRW.USER_EXIT('FND SRWINIT');*/null;
30 
31   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
32             /*SRW.MESSAGE(1,'srw_init');*/null;
33 
34 END;
35 BEGIN
36   if (get_p_struct_num <> TRUE )
37     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
38 
39   end if;
40 END;
41 BEGIN
42 
43  null;
44   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
45             /*SRW.MESSAGE(1,'Before Item Flex');*/null;
46 
47 END;
48 BEGIN
49 
50  null;
51   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
52             /*SRW.MESSAGE(1,'Before Item Sub');*/null;
53 
54 END;
55 RETURN TRUE;  return (TRUE);
56 end;
57 
58 function AfterReport return boolean is
59 begin
60 
61 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
62   return (TRUE);
63 end;
64 
65 procedure get_precision is
66 begin
67 /*srw.attr.mask        :=  SRW.FORMATMASK_ATTR;*/null;
68 
69 if P_qty_precision = 0 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0';*/null;
70 
71 else
72 if P_qty_precision = 1 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0.0';*/null;
73 
74 else
75 if P_qty_precision = 3 then /*srw.attr.formatmask  :=  '-NN,NNN,NNN,NN0.000';*/null;
76 
77 else
78 if P_qty_precision = 4 then /*srw.attr.formatmask  :=   '-N,NNN,NNN,NN0.0000';*/null;
79 
80 else
81 if P_qty_precision = 5 then /*srw.attr.formatmask  :=     '-NNN,NNN,NN0.00000';*/null;
82 
83 else
84 if P_qty_precision = 6 then /*srw.attr.formatmask  :=      '-NN,NNN,NN0.000000';*/null;
85 
86 else /*srw.attr.formatmask  :=  '-NNN,NNN,NNN,NN0.00';*/null;
87 
88 end if; end if; end if; end if; end if; end if;
89 /*srw.set_attr(0,srw.attr);*/null;
90 
91 end;
92 
93 function get_p_struct_num return boolean is
94 
95 l_p_struct_num number;
96 
97 begin
98         select structure_id
99         into l_p_struct_num
100         from mtl_default_sets_view
101         where functional_area_id = 2 ;
102 
103         P_STRUCT_NUM := l_p_struct_num ;
104 
105         return(TRUE) ;
106 
107         RETURN NULL; exception
108         when others then return(FALSE) ;
109 end;
110 
111 --Functions to refer Oracle report placeholders--
112 
113 END PO_POXRVRSR_XMLP_PKG ;
114