[Home] [Help]
PACKAGE BODY: APPS.PO_POXRVOVS_XMLP_PKG
Source
1 PACKAGE BODY PO_POXRVOVS_XMLP_PKG AS
2 /* $Header: POXRVOVSB.pls 120.1 2007/12/25 12:13:34 krreddy noship $ */
3
4 USER_EXIT_FAILURE EXCEPTION;
5
6 function BeforeReport return boolean is
7 begin
8
9 declare
10 l_sort po_lookup_codes.displayed_field%type ;
11 l_org_displayed org_organization_definitions.organization_name%type ;
12 begin
13
14 if P_sort is not null then
15
16 select displayed_field
17 into l_sort
18 from po_lookup_codes
19 where lookup_code = P_sort
20 and lookup_type = 'SRS ORDER BY';
21
22 P_sort_disp := l_sort ;
23
24 else
25
26 P_sort_disp := '' ;
27
28 end if;
29
30 if P_org_id is not null then
31
32 select organization_name
33 into l_org_displayed
34 from org_organization_definitions
35 where organization_id = P_org_id ;
36
37 P_org_displayed := l_org_displayed ;
38
39 else
40
41 P_org_displayed := '' ;
42
43 end if;
44
45 FORMAT_MASK := PO_COMMON_XMLP_PKG.GET_PRECISION(P_QTY_PRECISION);
46 end;
47 BEGIN
48 /*SRW.USER_EXIT('FND SRWINIT');*/null;
49
50 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
51 /*SRW.MESSAGE(1,'srw_init');*/null;
52
53 END;
54 BEGIN
55 if (get_p_struct_num <> TRUE )
56 then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
57
58 end if;
59 END;
60 BEGIN
61
62 null;
63 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
64 /*SRW.MESSAGE(1,'Before Cat Flex');*/null;
65
66 END;
67 BEGIN
68
69 null;
70 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
71 /*SRW.MESSAGE(1,'Before Item Flex');*/null;
72
73 END;
74 RETURN TRUE; return (TRUE);
75 end;
76
77 procedure get_precision is
78 begin
79 /*srw.attr.mask := SRW.FORMATMASK_ATTR;*/null;
80
81 if P_qty_precision = 0 then /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0';*/null;
82
83 else
84 if P_qty_precision = 1 then /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0.0';*/null;
85
86 else
87 if P_qty_precision = 3 then /*srw.attr.formatmask := '-NN,NNN,NNN,NN0.000';*/null;
88
89 else
90 if P_qty_precision = 4 then /*srw.attr.formatmask := '-N,NNN,NNN,NN0.0000';*/null;
91
92 else
93 if P_qty_precision = 5 then /*srw.attr.formatmask := '-NNN,NNN,NN0.00000';*/null;
94
95 else
96 if P_qty_precision = 6 then /*srw.attr.formatmask := '-NN,NNN,NN0.000000';*/null;
97
98 else /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0.00';*/null;
99
100 end if; end if; end if; end if; end if; end if;
101 /*srw.set_attr(0,srw.attr);*/null;
102
103 end;
104
105 function orderby_clauseFormula return VARCHAR2 is
106 begin
107
108 if P_SORT = 'VENDOR' then
109 return('3');
110 else
111 return('20,21');
112 end if;
113 RETURN NULL; end;
114
115 function get_p_struct_num return boolean is
116
117 l_p_struct_num number;
118
119 begin
120 select structure_id
121 into l_p_struct_num
122 from mtl_default_sets_view
123 where functional_area_id = 2 ;
124
125 P_STRUCT_NUM := l_p_struct_num ;
126
127 return(TRUE) ;
128
129 RETURN NULL; exception
130 when others then return(FALSE) ;
131 end;
132
133 function AfterReport return boolean is
134 begin
135
136
137 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
138
139
140 return (TRUE);
141 end;
142
143 --Functions to refer Oracle report placeholders--
144
145 END PO_POXRVOVS_XMLP_PKG ;
146