[Home] [Help]
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