[Home] [Help]
PACKAGE BODY: APPS.ARRX_C_COGS_REP_OUTER
Source
1 PACKAGE BODY arrx_c_cogs_rep_outer AS
2 /* $Header: ARRXCWRB.pls 120.1 2005/10/30 04:45:52 appldev noship $ */
3
4 /*=======================================================================+
5 | Package Global Constants
6 +=======================================================================*/
7 g_variable1 VARCHAR2(10);
8 g_variable2 NUMBER ;
9
10 /*========================================================================
11 | Prototype Declarations Procedures
12 *=======================================================================*/
13
14 pg_debug varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
15
16 PROCEDURE wrapper (
17 errbuf OUT NOCOPY VARCHAR2,
18 retcode OUT NOCOPY VARCHAR2,
19 argument1 IN VARCHAR2 DEFAULT NULL, -- gl date low
20 argument2 IN VARCHAR2 DEFAULT NULL, -- gl date high
21 argument3 IN VARCHAR2 DEFAULT NULL, -- sales order low
22 argument4 IN VARCHAR2 DEFAULT NULL, -- sales order high
23 argument5 IN VARCHAR2 DEFAULT NULL, -- posted line only?
24 argument6 IN VARCHAR2 DEFAULT NULL,
25 argument7 IN VARCHAR2 DEFAULT NULL,
26 argument8 IN VARCHAR2 DEFAULT NULL,
27 argument9 IN VARCHAR2 DEFAULT NULL,
28 argument10 IN VARCHAR2 DEFAULT NULL,
29 argument11 IN VARCHAR2 DEFAULT NULL,
30 argument12 IN VARCHAR2 DEFAULT NULL,
31 argument13 IN VARCHAR2 DEFAULT NULL,
32 argument14 IN VARCHAR2 DEFAULT NULL,
33 argument15 IN VARCHAR2 DEFAULT NULL,
34 argument16 IN VARCHAR2 DEFAULT NULL,
35 argument17 IN VARCHAR2 DEFAULT NULL,
36 argument18 IN VARCHAR2 DEFAULT NULL,
37 argument19 IN VARCHAR2 DEFAULT NULL,
38 argument20 IN VARCHAR2 DEFAULT NULL,
39 argument21 IN VARCHAR2 DEFAULT NULL,
40 argument22 IN VARCHAR2 DEFAULT NULL,
41 argument23 IN VARCHAR2 DEFAULT NULL,
42 argument24 IN VARCHAR2 DEFAULT NULL,
43 argument25 IN VARCHAR2 DEFAULT NULL,
44 argument26 IN VARCHAR2 DEFAULT NULL,
45 argument27 IN VARCHAR2 DEFAULT NULL,
46 argument28 IN VARCHAR2 DEFAULT NULL,
47 argument29 IN VARCHAR2 DEFAULT NULL,
48 argument30 IN VARCHAR2 DEFAULT NULL,
49 argument31 IN VARCHAR2 DEFAULT NULL,
50 argument32 IN VARCHAR2 DEFAULT NULL,
51 argument33 IN VARCHAR2 DEFAULT NULL,
52 argument34 IN VARCHAR2 DEFAULT NULL,
53 argument35 IN VARCHAR2 DEFAULT NULL,
54 argument36 IN VARCHAR2 DEFAULT NULL,
55 argument37 IN VARCHAR2 DEFAULT NULL,
56 argument38 IN VARCHAR2 DEFAULT NULL,
57 argument39 IN VARCHAR2 DEFAULT NULL,
58 argument40 IN VARCHAR2 DEFAULT NULL,
59 argument41 IN VARCHAR2 DEFAULT NULL,
60 argument42 IN VARCHAR2 DEFAULT NULL,
61 argument43 IN VARCHAR2 DEFAULT NULL,
62 argument44 IN VARCHAR2 DEFAULT NULL,
63 argument45 IN VARCHAR2 DEFAULT NULL,
64 argument46 IN VARCHAR2 DEFAULT NULL,
65 argument47 IN VARCHAR2 DEFAULT NULL,
66 argument48 IN VARCHAR2 DEFAULT NULL,
67 argument49 IN VARCHAR2 DEFAULT NULL,
68 argument50 IN VARCHAR2 DEFAULT NULL,
69 argument51 IN VARCHAR2 DEFAULT NULL,
70 argument52 IN VARCHAR2 DEFAULT NULL,
71 argument53 IN VARCHAR2 DEFAULT NULL,
72 argument54 IN VARCHAR2 DEFAULT NULL,
73 argument55 IN VARCHAR2 DEFAULT NULL,
74 argument56 IN VARCHAR2 DEFAULT NULL,
75 argument57 IN VARCHAR2 DEFAULT NULL,
76 argument58 IN VARCHAR2 DEFAULT NULL,
77 argument59 IN VARCHAR2 DEFAULT NULL,
78 argument60 IN VARCHAR2 DEFAULT NULL,
79 argument61 IN VARCHAR2 DEFAULT NULL,
80 argument62 IN VARCHAR2 DEFAULT NULL,
81 argument63 IN VARCHAR2 DEFAULT NULL,
82 argument64 IN VARCHAR2 DEFAULT NULL,
83 argument65 IN VARCHAR2 DEFAULT NULL,
84 argument66 IN VARCHAR2 DEFAULT NULL,
85 argument67 IN VARCHAR2 DEFAULT NULL,
86 argument68 IN VARCHAR2 DEFAULT NULL,
87 argument69 IN VARCHAR2 DEFAULT NULL,
88 argument70 IN VARCHAR2 DEFAULT NULL,
89 argument71 IN VARCHAR2 DEFAULT NULL,
90 argument72 IN VARCHAR2 DEFAULT NULL,
91 argument73 IN VARCHAR2 DEFAULT NULL,
92 argument74 IN VARCHAR2 DEFAULT NULL,
93 argument75 IN VARCHAR2 DEFAULT NULL,
94 argument76 IN VARCHAR2 DEFAULT NULL,
95 argument77 IN VARCHAR2 DEFAULT NULL,
96 argument78 IN VARCHAR2 DEFAULT NULL,
97 argument79 IN VARCHAR2 DEFAULT NULL,
98 argument80 IN VARCHAR2 DEFAULT NULL,
99 argument81 IN VARCHAR2 DEFAULT NULL,
100 argument82 IN VARCHAR2 DEFAULT NULL,
101 argument83 IN VARCHAR2 DEFAULT NULL,
102 argument84 IN VARCHAR2 DEFAULT NULL,
103 argument85 IN VARCHAR2 DEFAULT NULL,
104 argument86 IN VARCHAR2 DEFAULT NULL,
105 argument87 IN VARCHAR2 DEFAULT NULL,
106 argument88 IN VARCHAR2 DEFAULT NULL,
107 argument89 IN VARCHAR2 DEFAULT NULL,
108 argument90 IN VARCHAR2 DEFAULT NULL,
109 argument91 IN VARCHAR2 DEFAULT NULL,
110 argument92 IN VARCHAR2 DEFAULT NULL,
111 argument93 IN VARCHAR2 DEFAULT NULL,
112 argument94 IN VARCHAR2 DEFAULT NULL,
113 argument95 IN VARCHAR2 DEFAULT NULL,
114 argument96 IN VARCHAR2 DEFAULT NULL,
115 argument97 IN VARCHAR2 DEFAULT NULL,
116 argument98 IN VARCHAR2 DEFAULT NULL,
117 argument99 IN VARCHAR2 DEFAULT NULL,
118 argument100 IN VARCHAR2 DEFAULT NULL) IS
119
120 l_gl_date_low DATE;
121 l_gl_date_high DATE;
122 l_sales_order_low VARCHAR2(30);
123 l_sales_order_high VARCHAR2(30);
124 l_posted_lines_only VARCHAR2(1);
125 l_unmatched_items_only VARCHAR2(1);
126 l_request_id NUMBER;
127 l_user_id NUMBER;
128
129 BEGIN
130
131 -- call the inner report passing mandatory parameters
132 -- and report specific parameters
133
134 IF pg_debug in ('Y', 'C') THEN
135 fnd_file.put_line(fnd_file.log, 'ARRX_C_COGS_REP_OUTER.WRAPPER()+');
136 fnd_file.put_line(fnd_file.log, 'argument1 : ' || argument1);
137 fnd_file.put_line(fnd_file.log, 'argument2 : ' || argument2);
138 fnd_file.put_line(fnd_file.log, 'argument3 : ' || argument3);
139 fnd_file.put_line(fnd_file.log, 'argument4 : ' || argument4);
140 fnd_file.put_line(fnd_file.log, 'argument5 : ' || argument5);
141 fnd_file.put_line(fnd_file.log, 'argument6 : ' || argument6);
142 END IF;
143
144 -- Populate mandatory parameters for request_id and user_id
145
146 l_user_id := NVL(fnd_global.user_id, -1);
147 l_request_id := NVL(fnd_global.conc_request_id, -1);
148
149 -- Assign parameters to local variables doing any necessary mappings
150 -- e.g. Date/Number conversions
151
152 l_gl_date_low := fnd_date.canonical_to_date(argument1);
153 l_gl_date_high := fnd_date.canonical_to_date(argument2);
154 l_sales_order_low := argument3;
155 l_sales_order_high := argument4;
156 l_posted_lines_only := argument5;
157 l_unmatched_items_only := argument6;
158
159 fnd_file.put_line(fnd_file.log, 'request id: ' || l_request_id);
160 fnd_file.put_line(fnd_file.log, 'user id : ' || l_user_id);
161 fnd_file.put_line(fnd_file.log, 'low gl date: ' || l_gl_date_low);
162 fnd_file.put_line(fnd_file.log, 'high gl date: ' || l_gl_date_high);
163 fnd_file.put_line(fnd_file.log, 'low sales order: ' || l_sales_order_low);
164 fnd_file.put_line(fnd_file.log, 'high sales order: ' || l_sales_order_high);
165 fnd_file.put_line(fnd_file.log, 'posted lines only: ' ||
166 l_posted_lines_only);
167 fnd_file.put_line(fnd_file.log, 'unmatched items only: ' ||
168 l_unmatched_items_only);
169
170 arrx_cogs_rep_inner.populate_rows
171 (
172 p_gl_date_low => l_gl_date_low,
173 p_gl_date_high => l_gl_date_high,
174 p_sales_order_low => l_sales_order_low,
175 p_sales_order_high => l_sales_order_high,
176 p_posted_lines_only => l_posted_lines_only,
177 p_unmatched_items_only => l_unmatched_items_only,
178 p_user_id => l_user_id,
179 p_request_id => l_request_id,
180 x_retcode => retcode,
181 x_errbuf => errbuf
182 );
183
184 fnd_file.put_line(fnd_file.log, 'after arrx_cogs_rep_inner.populate_rows');
185
186 IF PG_DEBUG in ('Y', 'C') THEN
187 fnd_file.put_line(fnd_file.log, 'ARRX_C_COGS_REP_OUTER.WRAPPER()-');
188 END IF;
189
190 EXCEPTION
191 WHEN NO_DATA_FOUND THEN
192 IF PG_DEBUG in ('Y', 'C') THEN
193 fnd_file.put_line(fnd_file.log,
194 'EXCEPTION: arrx_c_cogs_rep_outer.wrapper()');
195 END IF;
196 RAISE;
197
198 WHEN OTHERS THEN
199 IF PG_DEBUG in ('Y', 'C') THEN
200 fnd_file.put_line(fnd_file.log, sqlcode);
201 fnd_file.put_line(fnd_file.log, sqlerrm);
202 retcode := 2;
203 fnd_file.put_line(fnd_file.log,
204 'EXCEPTION: arrx_c_cogs_rep_outer.wrapper()');
205 END IF;
206 RAISE;
207
208 END wrapper;
209
210
211 PROCEDURE summary (
212 errbuf OUT NOCOPY VARCHAR2,
213 retcode OUT NOCOPY VARCHAR2,
214 argument1 IN VARCHAR2 DEFAULT NULL, -- gl date low
215 argument2 IN VARCHAR2 DEFAULT NULL, -- gl date high
216 argument3 IN VARCHAR2 DEFAULT NULL, -- chart of accounts id
217 argument4 IN VARCHAR2 DEFAULT NULL, -- cogs gl account low
218 argument5 IN VARCHAR2 DEFAULT NULL, -- cogs gl account high
219 argument6 IN VARCHAR2 DEFAULT NULL, -- posted line only?
220 argument7 IN VARCHAR2 DEFAULT NULL,
221 argument8 IN VARCHAR2 DEFAULT NULL,
222 argument9 IN VARCHAR2 DEFAULT NULL,
223 argument10 IN VARCHAR2 DEFAULT NULL,
224 argument11 IN VARCHAR2 DEFAULT NULL,
225 argument12 IN VARCHAR2 DEFAULT NULL,
226 argument13 IN VARCHAR2 DEFAULT NULL,
227 argument14 IN VARCHAR2 DEFAULT NULL,
228 argument15 IN VARCHAR2 DEFAULT NULL,
229 argument16 IN VARCHAR2 DEFAULT NULL,
230 argument17 IN VARCHAR2 DEFAULT NULL,
231 argument18 IN VARCHAR2 DEFAULT NULL,
232 argument19 IN VARCHAR2 DEFAULT NULL,
233 argument20 IN VARCHAR2 DEFAULT NULL,
234 argument21 IN VARCHAR2 DEFAULT NULL,
235 argument22 IN VARCHAR2 DEFAULT NULL,
236 argument23 IN VARCHAR2 DEFAULT NULL,
237 argument24 IN VARCHAR2 DEFAULT NULL,
238 argument25 IN VARCHAR2 DEFAULT NULL,
239 argument26 IN VARCHAR2 DEFAULT NULL,
240 argument27 IN VARCHAR2 DEFAULT NULL,
241 argument28 IN VARCHAR2 DEFAULT NULL,
242 argument29 IN VARCHAR2 DEFAULT NULL,
243 argument30 IN VARCHAR2 DEFAULT NULL,
244 argument31 IN VARCHAR2 DEFAULT NULL,
245 argument32 IN VARCHAR2 DEFAULT NULL,
246 argument33 IN VARCHAR2 DEFAULT NULL,
247 argument34 IN VARCHAR2 DEFAULT NULL,
248 argument35 IN VARCHAR2 DEFAULT NULL,
249 argument36 IN VARCHAR2 DEFAULT NULL,
250 argument37 IN VARCHAR2 DEFAULT NULL,
251 argument38 IN VARCHAR2 DEFAULT NULL,
252 argument39 IN VARCHAR2 DEFAULT NULL,
253 argument40 IN VARCHAR2 DEFAULT NULL,
254 argument41 IN VARCHAR2 DEFAULT NULL,
255 argument42 IN VARCHAR2 DEFAULT NULL,
256 argument43 IN VARCHAR2 DEFAULT NULL,
257 argument44 IN VARCHAR2 DEFAULT NULL,
258 argument45 IN VARCHAR2 DEFAULT NULL,
259 argument46 IN VARCHAR2 DEFAULT NULL,
260 argument47 IN VARCHAR2 DEFAULT NULL,
261 argument48 IN VARCHAR2 DEFAULT NULL,
262 argument49 IN VARCHAR2 DEFAULT NULL,
263 argument50 IN VARCHAR2 DEFAULT NULL,
264 argument51 IN VARCHAR2 DEFAULT NULL,
265 argument52 IN VARCHAR2 DEFAULT NULL,
266 argument53 IN VARCHAR2 DEFAULT NULL,
267 argument54 IN VARCHAR2 DEFAULT NULL,
268 argument55 IN VARCHAR2 DEFAULT NULL,
269 argument56 IN VARCHAR2 DEFAULT NULL,
270 argument57 IN VARCHAR2 DEFAULT NULL,
271 argument58 IN VARCHAR2 DEFAULT NULL,
272 argument59 IN VARCHAR2 DEFAULT NULL,
273 argument60 IN VARCHAR2 DEFAULT NULL,
274 argument61 IN VARCHAR2 DEFAULT NULL,
275 argument62 IN VARCHAR2 DEFAULT NULL,
276 argument63 IN VARCHAR2 DEFAULT NULL,
277 argument64 IN VARCHAR2 DEFAULT NULL,
278 argument65 IN VARCHAR2 DEFAULT NULL,
279 argument66 IN VARCHAR2 DEFAULT NULL,
280 argument67 IN VARCHAR2 DEFAULT NULL,
281 argument68 IN VARCHAR2 DEFAULT NULL,
282 argument69 IN VARCHAR2 DEFAULT NULL,
283 argument70 IN VARCHAR2 DEFAULT NULL,
284 argument71 IN VARCHAR2 DEFAULT NULL,
285 argument72 IN VARCHAR2 DEFAULT NULL,
286 argument73 IN VARCHAR2 DEFAULT NULL,
287 argument74 IN VARCHAR2 DEFAULT NULL,
288 argument75 IN VARCHAR2 DEFAULT NULL,
289 argument76 IN VARCHAR2 DEFAULT NULL,
290 argument77 IN VARCHAR2 DEFAULT NULL,
291 argument78 IN VARCHAR2 DEFAULT NULL,
292 argument79 IN VARCHAR2 DEFAULT NULL,
293 argument80 IN VARCHAR2 DEFAULT NULL,
294 argument81 IN VARCHAR2 DEFAULT NULL,
295 argument82 IN VARCHAR2 DEFAULT NULL,
296 argument83 IN VARCHAR2 DEFAULT NULL,
297 argument84 IN VARCHAR2 DEFAULT NULL,
298 argument85 IN VARCHAR2 DEFAULT NULL,
299 argument86 IN VARCHAR2 DEFAULT NULL,
300 argument87 IN VARCHAR2 DEFAULT NULL,
301 argument88 IN VARCHAR2 DEFAULT NULL,
302 argument89 IN VARCHAR2 DEFAULT NULL,
303 argument90 IN VARCHAR2 DEFAULT NULL,
304 argument91 IN VARCHAR2 DEFAULT NULL,
305 argument92 IN VARCHAR2 DEFAULT NULL,
306 argument93 IN VARCHAR2 DEFAULT NULL,
307 argument94 IN VARCHAR2 DEFAULT NULL,
308 argument95 IN VARCHAR2 DEFAULT NULL,
309 argument96 IN VARCHAR2 DEFAULT NULL,
310 argument97 IN VARCHAR2 DEFAULT NULL,
311 argument98 IN VARCHAR2 DEFAULT NULL,
312 argument99 IN VARCHAR2 DEFAULT NULL,
313 argument100 IN VARCHAR2 DEFAULT NULL) IS
314
315 l_gl_date_low DATE;
316 l_gl_date_high DATE;
317 l_chart_of_accounts_id NUMBER;
318 l_gl_account_low VARCHAR2(240);
319 l_gl_account_high VARCHAR2(240);
320 l_posted_lines_only VARCHAR2(1);
321 l_request_id NUMBER;
322 l_user_id NUMBER;
323
324 BEGIN
325
326 -- call the inner report passing mandatory parameters
327 -- and report specific parameters
328
329 fnd_file.put_line(fnd_file.log, 'ARRX_C_COGS_REP_OUTER.SUMMARY()+');
330
331 IF pg_debug in ('Y', 'C') THEN
332 fnd_file.put_line(fnd_file.log, 'ARRX_C_COGS_REP_OUTER.SUMMARY()+');
333 fnd_file.put_line(fnd_file.log, 'argument1 : ' || argument1);
334 fnd_file.put_line(fnd_file.log, 'argument2 : ' || argument2);
335 fnd_file.put_line(fnd_file.log, 'argument3 : ' || argument3);
336 fnd_file.put_line(fnd_file.log, 'argument4 : ' || argument4);
337 fnd_file.put_line(fnd_file.log, 'argument5 : ' || argument5);
338 fnd_file.put_line(fnd_file.log, 'argument6 : ' || argument6);
339 END IF;
340
341 -- Populate mandatory parameters for request_id and user_id
342
343 l_user_id := NVL(fnd_global.user_id, -1);
344 l_request_id := NVL(fnd_global.conc_request_id, -1);
345
346 -- Assign parameters to local variables doing any necessary mappings
347 -- e.g. Date/Number conversions
348
349 l_gl_date_low := fnd_date.canonical_to_date(argument1);
350 l_gl_date_high := fnd_date.canonical_to_date(argument2);
351 l_chart_of_accounts_id := argument3;
352 l_gl_account_low := argument4;
353 l_gl_account_high := argument5;
354 l_posted_lines_only := argument6;
355
356 fnd_file.put_line(fnd_file.log, 'request id: ' || l_request_id);
357 fnd_file.put_line(fnd_file.log, 'user id: ' || l_user_id);
358 fnd_file.put_line(fnd_file.log, 'chart of account: ' ||
359 l_chart_of_accounts_id);
360 fnd_file.put_line(fnd_file.log, 'low gl account: ' || l_gl_date_low);
361 fnd_file.put_line(fnd_file.log, 'high gl account: ' || l_gl_date_high);
362 fnd_file.put_line(fnd_file.log, 'posted lines only: ' ||
363 l_posted_lines_only);
364
365 -- call the inner routine to actually populate the interface table.
366 arrx_cogs_rep_inner.populate_summary
367 (
368 p_gl_date_low => l_gl_date_low,
369 p_gl_date_high => l_gl_date_high,
370 p_chart_of_accounts_id => l_chart_of_accounts_id,
371 p_gl_account_low => l_gl_account_low,
372 p_gl_account_high => l_gl_account_high,
373 p_posted_lines_only => l_posted_lines_only,
374 p_user_id => l_user_id,
375 p_request_id => l_request_id,
376 x_retcode => retcode,
377 x_errbuf => errbuf
378 );
379
380 fnd_file.put_line(fnd_file.log, 'after arrx_cogs_rep_inner.populate_rows');
381
382 IF PG_DEBUG in ('Y', 'C') THEN
383 fnd_file.put_line(fnd_file.log, 'ARRX_C_COGS_REP_OUTER.WRAPPER()-');
384 END IF;
385
386 EXCEPTION
387 WHEN NO_DATA_FOUND THEN
388 IF PG_DEBUG in ('Y', 'C') THEN
389 fnd_file.put_line(fnd_file.log,
390 'EXCEPTION: arrx_c_cogs_rep_outer.wrapper()');
391 END IF;
392 RAISE;
393
394 WHEN OTHERS THEN
395 IF PG_DEBUG in ('Y', 'C') THEN
396 fnd_file.put_line(fnd_file.log, sqlcode);
397 fnd_file.put_line(fnd_file.log, sqlerrm);
398 retcode := 2;
399 fnd_file.put_line(fnd_file.log,
400 'EXCEPTION: arrx_c_cogs_rep_outer.wrapper()');
401 END IF;
402 RAISE;
403
404 END summary;
405
406
407 /*========================================================================
408 | INITIALIZATION SECTION
409 |
410 | DESCRIPTION
411 |
412 *=======================================================================*/
413
414 BEGIN
415
416 NULL;
417
418 EXCEPTION
419 WHEN NO_DATA_FOUND THEN
420 fnd_file.put_line(fnd_file.log,
421 'EXCEPTION: arrx_c_cogs_rep_outer.initialize()');
422 RAISE;
423
424 WHEN OTHERS THEN
425 fnd_file.put_line(fnd_file.log,
426 'EXCEPTION: arrx_c_cogs_rep_outer.initialize()');
427 RAISE;
428
429 END arrx_c_cogs_rep_outer;