[Home] [Help]
PACKAGE BODY: APPS.PO_POXRVRTN_XMLP_PKG
Source
1 PACKAGE BODY PO_POXRVRTN_XMLP_PKG AS
2 /* $Header: POXRVRTNB.pls 120.1 2007/12/25 12:19:35 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 QTY_PRECISION:=po_common_xmlp_pkg.GET_PRECISION(P_QTY_PRECISION);
15 LP_TRANS_DATE_FROM := to_char(P_TRANS_DATE_FROM,'DD-MON-YY') ;
16 LP_TRANS_DATE_TO := to_char(P_TRANS_DATE_TO,'DD-MON-YY') ;
17 P_TRANS_DATE_FROM_date:= P_TRANS_DATE_FROM;
18 P_TRANS_DATE_TO_date:= P_TRANS_DATE_TO;
19
20 if P_sort is not null then
21
22 select displayed_field
23 into l_sort
24 from po_lookup_codes
25 where lookup_code = P_sort
26 and lookup_type = 'SRS ORDER BY';
27
28 P_sort_disp := l_sort ;
29
30 else
31
32 P_sort_disp := '' ;
33
34 end if;
35
36 if P_org_id is not null then
37
38 select organization_name
39 into l_org_displayed
40 from org_organization_definitions
41 where organization_id = P_org_id ;
42
43 P_org_displayed := l_org_displayed ;
44
45 else
46
47 P_org_displayed := '' ;
48
49 end if;
50
51
52 end;
53 BEGIN
54 /*SRW.USER_EXIT('FND SRWINIT');*/null;
55
56 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
57 /*SRW.MESSAGE(1,'srw_init');*/null;
58
59 END;
60 BEGIN
61 if (get_p_struct_num <> TRUE )
62 then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
63
64 end if; END;
65 BEGIN
66
67 null;
68 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
69 /*SRW.MESSAGE(1,'Before Cat Flex');*/null;
70
71 END;
72 BEGIN
73
74 null;
75 EXCEPTION WHEN USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
76 /*SRW.MESSAGE(1,'Before Item Flex');*/null;
77
78 END;
79 RETURN TRUE; return (TRUE);
80 end;
81
82 procedure get_precision is
83 begin
84 /*srw.attr.mask := SRW.FORMATMASK_ATTR;*/null;
85
86 if P_qty_precision = 0 then /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0';*/null;
87
88 else
89 if P_qty_precision = 1 then /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0.0';*/null;
90
91 else
92 if P_qty_precision = 3 then /*srw.attr.formatmask := '-NN,NNN,NNN,NN0.000';*/null;
93
94 else
95 if P_qty_precision = 4 then /*srw.attr.formatmask := '-N,NNN,NNN,NN0.0000';*/null;
96
97 else
98 if P_qty_precision = 5 then /*srw.attr.formatmask := '-NNN,NNN,NN0.00000';*/null;
99
100 else
101 if P_qty_precision = 6 then /*srw.attr.formatmask := '-NN,NNN,NN0.000000';*/null;
102
103 else /*srw.attr.formatmask := '-NNN,NNN,NNN,NN0.00';*/null;
104
105 end if; end if; end if; end if; end if; end if;
106 /*srw.set_attr(0,srw.attr);*/null;
107
108 end;
109
110 function orderby_clauseFormula return VARCHAR2 is
111 begin
112
113 if P_SORT = 'VENDOR' then
114 return('5,8,9');
115 else
116 return('8,9');
117 end if;
118 RETURN NULL; end;
119
120 function get_p_struct_num return boolean is
121
122 l_p_struct_num number;
123
124 begin
125 select structure_id
126 into l_p_struct_num
127 from mtl_default_sets_view
128 where functional_area_id = 2 ;
129
130 P_STRUCT_NUM := l_p_struct_num ;
131
132 return(TRUE) ;
133
134 RETURN NULL; exception
135 when others then return(FALSE) ;
136 end;
137
138 function document_numberformula(release_number in number, PO_Number in varchar2) return varchar2 is
139 begin
140
141 if (release_number is null ) then return PO_Number ;
142 else return ( PO_Number || '-' || to_char(release_number) ) ;
143 end if;
144 RETURN NULL; end;
145
146 function c_qty_net_rcvdformula(C_qty_received in varchar2, C_qty_corrected in varchar2, C_qty_rtv in varchar2, C_qty_corrected_rtv in varchar2) return number is
147 begin
148
149 /*srw.reference(C_qty_received) ;*/null;
150
151 /*srw.reference(C_qty_corrected) ;*/null;
152
153 /*srw.reference(C_qty_rtv) ;*/null;
154
155 /*srw.reference(C_qty_corrected_rtv) ;*/null;
156
157 return ( C_qty_received + C_qty_corrected - C_qty_rtv - C_qty_corrected_rtv ) ;
158 end;
159
160 function c_qty_rtv_and_correctedformula(C_qty_rtv in varchar2, C_qty_corrected_rtv in varchar2) return number is
161 begin
162
163 /*srw.reference(C_qty_rtv) ;*/null;
164
165 /*srw.reference(C_qty_corrected_rtv ) ;*/null;
166
167 return ( C_qty_rtv + C_qty_corrected_rtv ) ;
168 end;
169
170 function AfterPForm return boolean is
171 begin
172
173 return (TRUE);
174 end;
175
176 function BeforePForm return boolean is
177 begin
178
179 return (TRUE);
180 end;
181
182 function BetweenPage return boolean is
183 begin
184
185 return (TRUE);
186 end;
187
188 function AfterReport return boolean is
189 begin
190
191
192 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
193
194
195 return (TRUE);
196 end;
197
198 --Functions to refer Oracle report placeholders--
199
200 END PO_POXRVRTN_XMLP_PKG ;
201