[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_SUBMIT_RXI_ASSET_BAL
Source
1 PACKAGE BODY igi_iac_submit_rxi_asset_bal AS
2 -- $Header: igiiaxab.pls 120.1.12000000.1 2007/08/01 16:19:52 npandya noship $
3
4 --===========================FND_LOG.START=====================================
5
6 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_path VARCHAR2(100) := 'IGI.PLSQL.igiiaxab.igi_iac_submit_rxi_asset_bal.';
13
14 --===========================FND_LOG.END=======================================
15
16 /****** Start Forward Declarations *****
17 !!!!THIS IS NO LONGER USED _ SEE COMMENTS AT END OF PROGRAM!!!!!!!
18 FUNCTION publish_report ( p_parent_req_id in NUMBER
19 ,p_report_id in VARCHAR2
20 ,p_attrib_set in VARCHAR2
21 ,p_out_format in VARCHAR2)
22 RETURN NUMBER;
23
24 ****** End Forward Declarations *****/
25
26
27 PROCEDURE submit_report ( errbuf OUT NOCOPY VARCHAR2
28 ,retcode OUT NOCOPY NUMBER
29 ,p_request_type VARCHAR2
30 ,p_app_name VARCHAR2
31 ,p_report_name_1 VARCHAR2 DEFAULT NULL
32 ,p_report_id_1 NUMBER
33 ,p_rep1_attrib_set VARCHAR2 DEFAULT NULL
34 ,p_report_name_2 VARCHAR2 DEFAULT NULL
35 ,p_report_id_2 VARCHAR2
36 ,p_rep2_attrib_set VARCHAR2 DEFAULT NULL
37 ,p_report_name_3 VARCHAR2 DEFAULT NULL
38 ,p_report_id_3 NUMBER
39 ,p_rep3_attrib_set VARCHAR2 DEFAULT NULL
40 ,p_report_name_4 VARCHAR2 DEFAULT NULL
41 ,p_report_id_4 NUMBER
42 ,p_rep4_attrib_set VARCHAR2 DEFAULT NULL
43 ,p_report_name_5 VARCHAR2 DEFAULT NULL
44 ,p_report_id_5 NUMBER
45 ,p_rep5_attrib_set VARCHAR2 DEFAULT NULL
46 ,p_report_name_6 VARCHAR2 DEFAULT NULL
47 ,p_report_id_6 VARCHAR2
48 ,p_rep6_attrib_set VARCHAR2 DEFAULT NULL
49 ,p_report_name_7 VARCHAR2 DEFAULT NULL
50 ,p_report_id_7 NUMBER
51 ,p_rep7_attrib_set VARCHAR2 DEFAULT NULL
52 ,p_report_name_8 VARCHAR2 DEFAULT NULL
53 ,p_report_id_8 NUMBER
54 ,p_rep8_attrib_set VARCHAR2 DEFAULT NULL
55 ,p_out_format VARCHAR2
56 ,p_book_type_code VARCHAR2
57 ,p_period_ctr VARCHAR2
58 ,p_cat_struct_id VARCHAR2
59 ,p_cat_id VARCHAR2
60 ,p_chart_of_acct VARCHAR2 DEFAULT NULL
61 --,p_from_company VARCHAR2 -- No longer required!!
62 --,p_to_company VARCHAR2 -- No longer required!!
63 ,p_from_cost_center VARCHAR2 DEFAULT NULL
64 ,p_to_cost_center VARCHAR2 DEFAULT NULL
65 ,p_from_asset VARCHAR2 DEFAULT NULL
66 ,p_to_asset VARCHAR2 DEFAULT NULL)
67 IS
68
69 CURSOR c_get_report_desc (p_rep_short_name VARCHAR2) IS
70 SELECT user_concurrent_program_name
71 FROM fnd_concurrent_programs_vl
72 WHERE application_id = 8400
73 AND concurrent_program_name = p_rep_short_name;
74
75 l_report_request_id NUMBER ;
76 l_publish_req NUMBER;
77 l_report_desc VARCHAR2(240);
78 l_ret BOOLEAN;
79
80 l_path varchar2(150) := g_path||'submit_report';
81 BEGIN
82
83 --fa_rx_util_pkg.enable_debug; -- Does not fit within debug code standards!!!
84
85
86 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_1 ' || p_report_name_1);
87 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_1 ' || p_report_id_1);
88 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep1_attrib_set ' || p_rep1_attrib_set);
89 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_2 ' || p_report_name_2);
90 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_2 ' || p_report_id_2);
91 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep2_attrib_set ' || p_rep2_attrib_set);
92 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_3 ' || p_report_name_3);
93 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_3 ' || p_report_id_3);
94 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep3_attrib_set ' || p_rep3_attrib_set);
95 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_4 ' || p_report_name_4);
96 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_4 ' || p_report_id_4);
97 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep4_attrib_set ' || p_rep4_attrib_set);
98 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_5 ' || p_report_name_5);
99 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_5 ' || p_report_id_5);
100 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep5_attrib_set ' || p_rep5_attrib_set);
101 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_6 ' || p_report_name_6);
102 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_6 ' || p_report_id_6);
103 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep6_attrib_set ' || p_rep6_attrib_set);
104 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_7 ' || p_report_name_7);
105 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_7 ' || p_report_id_7);
106 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep7_attrib_set ' || p_rep7_attrib_set);
107 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_name_8 ' || p_report_name_8);
108 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_report_id_8 ' || p_report_id_8);
109 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'p_rep8_attrib_set ' || p_rep8_attrib_set);
110
111
112 -- ****** Start the first report *****
113 IF p_report_id_1 IS NOT NULL THEN
114
115 OPEN c_get_report_desc (p_report_name_1);
116 FETCH c_get_report_desc INTO l_report_desc;
117
118 IF (c_get_report_desc%NOTFOUND) THEN
119 l_report_desc := p_report_name_1; -- Forget it - use report short name instead!!
120 END IF;
121 CLOSE c_get_report_desc;
122
123 --fa_rx_util_pkg.debug('fa_rx_util_pkg1'); -- Does not fit within debug code standards!!!
124
125
126 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
127 || l_report_desc || '"');
128 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
129
130 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
131 ( 'IGI'
132 , 'IGIIARIQ'
133 , null
134 , SYSDATE
135 , FALSE -- Is a sub request
136 ,p_request_type
137 ,p_app_name
138 ,p_report_name_1
139 ,p_report_id_1
140 ,p_rep1_attrib_set
141 ,p_out_format
142 ,p_report_name_1
143 ,p_book_type_code
144 ,p_period_ctr
145 ,p_cat_struct_id
146 ,p_cat_id
147 ,p_chart_of_acct
148 --,p_from_company
149 --,p_to_company
150 ,p_from_cost_center
151 ,p_to_cost_center
152 ,p_from_asset
153 ,p_to_asset
154 );
155
156 IF l_report_request_id = 0 THEN
157 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
158 || l_report_desc || '"');
159 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
160
161 ELSE
162 COMMIT;
163 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
164 l_report_desc || '"');
165 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path, '" is available at "Request ID" ' ||
166 l_report_request_id);
167
168 END IF;
169 l_report_request_id := 0;
170 END IF;
171
172
173 -- ****** Start the second report *****
174 IF p_report_id_2 IS NOT NULL THEN
175
176 OPEN c_get_report_desc (p_report_name_2);
177 FETCH c_get_report_desc INTO l_report_desc;
178
179 IF (c_get_report_desc%NOTFOUND) THEN
180 l_report_desc := p_report_name_2; -- Forget it - use report short name instead!!
181 END IF;
182 CLOSE c_get_report_desc;
183
184 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
185 || l_report_desc || '"');
186 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
187
188 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
189 ( 'IGI'
190 , 'IGIIARIQ'
191 , null
192 , SYSDATE
193 , FALSE -- Is a sub request
194 ,p_request_type
195 ,p_app_name
196 ,p_report_name_2
197 ,p_report_id_2
198 ,p_rep2_attrib_set
199 ,p_out_format
200 ,p_report_name_2
201 ,p_book_type_code
202 ,p_period_ctr
203 ,p_cat_struct_id
204 ,p_cat_id
205 ,p_chart_of_acct
206 --,p_from_company
207 --,p_to_company
208 ,p_from_cost_center
209 ,p_to_cost_center
210 ,p_from_asset
211 ,p_to_asset
212 );
213
214 IF l_report_request_id = 0 THEN
215 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
216 || l_report_desc || '"');
217 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
218 ELSE
219 COMMIT;
220 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
221 l_report_desc || '"');
222 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
223 l_report_request_id);
224
225 END IF;
226 l_report_request_id := 0;
227 END IF;
228
229
230 -- ****** Start the third report *****
231 IF p_report_id_3 IS NOT NULL THEN
232
233 OPEN c_get_report_desc (p_report_name_3);
234 FETCH c_get_report_desc INTO l_report_desc;
235
236 IF (c_get_report_desc%NOTFOUND) THEN
237 l_report_desc := p_report_name_3; -- Forget it - use report short name instead!!
238 END IF;
239 CLOSE c_get_report_desc;
240
241 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
242 || l_report_desc || '"');
243 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
244
245 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
246 ( 'IGI'
247 , 'IGIIARIQ'
248 , null
249 , SYSDATE
250 , FALSE -- Is a sub request
251 ,p_request_type
252 ,p_app_name
253 ,p_report_name_3
254 ,p_report_id_3
255 ,p_rep3_attrib_set
256 ,p_out_format
257 ,p_report_name_3
258 ,p_book_type_code
259 ,p_period_ctr
260 ,p_cat_struct_id
261 ,p_cat_id
262 ,p_chart_of_acct
263 --,p_from_company
264 --,p_to_company
265 ,p_from_cost_center
266 ,p_to_cost_center
267 ,p_from_asset
268 ,p_to_asset
269 );
270
271 IF l_report_request_id = 0 THEN
272 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
273 || l_report_desc || '"');
274 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
275 ELSE
276 COMMIT;
277 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
278 l_report_desc || '"');
279 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
280 l_report_request_id);
281 END IF;
282 l_report_request_id := 0;
283 END IF;
284
285
286
287
288 -- ****** Start the fourth report *****
289 IF p_report_id_4 IS NOT NULL THEN
290
291 OPEN c_get_report_desc (p_report_name_4);
292 FETCH c_get_report_desc INTO l_report_desc;
293
294 IF (c_get_report_desc%NOTFOUND) THEN
295 l_report_desc := p_report_name_4; -- Forget it - use report short name instead!!
296 END IF;
297 CLOSE c_get_report_desc;
298
299 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
300 || l_report_desc || '"');
301 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
302
303 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
304 ( 'IGI'
305 , 'IGIIARIQ'
306 , null
307 , SYSDATE
308 , FALSE -- Is a sub request
309 ,p_request_type
310 ,p_app_name
311 ,p_report_name_4
312 ,p_report_id_4
313 ,p_rep4_attrib_set
314 ,p_out_format
315 ,p_report_name_4
316 ,p_book_type_code
317 ,p_period_ctr
318 ,p_cat_struct_id
319 ,p_cat_id
320 ,p_chart_of_acct
321 --,p_from_company
322 --,p_to_company
323 ,p_from_cost_center
324 ,p_to_cost_center
325 ,p_from_asset
326 ,p_to_asset
327 );
328
329 IF l_report_request_id = 0 THEN
330 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
331 || l_report_desc || '"');
332 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
333
334 ELSE
335 COMMIT;
336 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
337 l_report_desc || '"');
338 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
339 l_report_request_id);
340
341 END IF;
342 l_report_request_id := 0;
343 END IF;
344
345
346 -- ****** Start the fifth report *****
347 IF p_report_id_5 IS NOT NULL THEN
348
349 OPEN c_get_report_desc (p_report_name_5);
350 FETCH c_get_report_desc INTO l_report_desc;
351
352 IF (c_get_report_desc%NOTFOUND) THEN
353 l_report_desc := p_report_name_5; -- Forget it - use report short name instead!!
354 END IF;
355 CLOSE c_get_report_desc;
356
357 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
358 || l_report_desc || '"');
359 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
360
361 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
362 ( 'IGI'
363 , 'IGIIARIQ'
364 , null
365 , SYSDATE
366 , FALSE -- Is a sub request
367 ,p_request_type
368 ,p_app_name
369 ,p_report_name_5
370 ,p_report_id_5
371 ,p_rep5_attrib_set
372 ,p_out_format
373 ,p_report_name_5
374 ,p_book_type_code
375 ,p_period_ctr
376 ,p_cat_struct_id
377 ,p_cat_id
378 ,p_chart_of_acct
379 --,p_from_company
380 --,p_to_company
381 ,p_from_cost_center
382 ,p_to_cost_center
383 ,p_from_asset
384 ,p_to_asset
385 );
386
387 IF l_report_request_id = 0 THEN
388 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
389 || l_report_desc || '"');
390 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
391 ELSE
392 COMMIT;
393 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
394 l_report_desc || '"');
395 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
396 l_report_request_id);
397
398 END IF;
399 l_report_request_id := 0;
400 END IF;
401
402
403 -- ****** Start the sixth report *****
404 IF p_report_id_6 IS NOT NULL THEN
405
406 OPEN c_get_report_desc (p_report_name_6);
407 FETCH c_get_report_desc INTO l_report_desc;
408
409 IF (c_get_report_desc%NOTFOUND) THEN
410 l_report_desc := p_report_name_6; -- Forget it - use report short name instead!!
411 END IF;
412 CLOSE c_get_report_desc;
413
414 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
415 || l_report_desc || '"');
416 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
417
418 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
419 ( 'IGI'
420 , 'IGIIARIQ'
421 , null
422 , SYSDATE
423 , FALSE -- Is a sub request
424 ,p_request_type
425 ,p_app_name
426 ,p_report_name_6
427 ,p_report_id_6
428 ,p_rep6_attrib_set
429 ,p_out_format
430 ,p_report_name_6
431 ,p_book_type_code
432 ,p_period_ctr
433 ,p_cat_struct_id
434 ,p_cat_id
435 ,p_chart_of_acct
436 --,p_from_company
437 --,p_to_company
438 ,p_from_cost_center
439 ,p_to_cost_center
440 ,p_from_asset
441 ,p_to_asset
442 );
443
444 IF l_report_request_id = 0 THEN
445 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
446 || l_report_desc || '"');
447 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
448 ELSE
449 COMMIT;
450 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
451 l_report_desc || '"');
452 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
453 l_report_request_id);
454
455 END IF;
456 l_report_request_id := 0;
457 END IF;
458
459
460
461 -- ****** Start the seventh report *****
462 IF p_report_id_7 IS NOT NULL THEN
463
464 OPEN c_get_report_desc (p_report_name_7);
465 FETCH c_get_report_desc INTO l_report_desc;
466
467 IF (c_get_report_desc%NOTFOUND) THEN
468 l_report_desc := p_report_name_7; -- Forget it - use report short name instead!!
469 END IF;
470 CLOSE c_get_report_desc;
471
472 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "'
473 || l_report_desc || '"');
474 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'has been Submitted .... ');
475
476 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
477 ( 'IGI'
478 , 'IGIIARIQ'
479 , null
480 , SYSDATE
481 , FALSE -- Is a sub request
482 ,p_request_type
483 ,p_app_name
484 ,p_report_name_7
485 ,p_report_id_7
486 ,p_rep7_attrib_set
487 ,p_out_format
488 ,p_report_name_7
489 ,p_book_type_code
490 ,p_period_ctr
491 ,p_cat_struct_id
492 ,p_cat_id
493 ,p_chart_of_acct
494 --,p_from_company
495 --,p_to_company
496 ,p_from_cost_center
497 ,p_to_cost_center
498 ,p_from_asset
499 ,p_to_asset
500 );
501
502 IF l_report_request_id = 0 THEN
503 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
504 || l_report_desc || '"');
505 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
506 ELSE
507 COMMIT;
508 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
509 l_report_desc || '"');
510 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
511 l_report_request_id);
512
513 END IF;
514 l_report_request_id := 0;
515 END IF;
516
517
518
519 -- ****** Start the eigth report *****
520 IF p_report_id_8 IS NOT NULL THEN
521
522 OPEN c_get_report_desc (p_report_name_8);
523 FETCH c_get_report_desc INTO l_report_desc;
524
525 IF (c_get_report_desc%NOTFOUND) THEN
526 l_report_desc := p_report_name_8; -- Forget it - use report short name instead!!
527 END IF;
528 CLOSE c_get_report_desc;
529
530 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'Asset Balance Report "'
531 || l_report_desc || '"');
532 igi_iac_debug_pkg.debug_other_string(g_event_level,l_path,'has been Submitted .... ');
533
534 l_report_request_id := FND_REQUEST.SUBMIT_REQUEST
535 ( 'IGI'
536 , 'IGIIARIQ'
537 , null
538 , SYSDATE
539 , FALSE -- Is a sub request
540 ,p_request_type
541 ,p_app_name
542 ,p_report_name_8
543 ,p_report_id_8
544 ,p_rep8_attrib_set
545 ,p_out_format
546 ,p_report_name_8
547 ,p_book_type_code
548 ,p_period_ctr
549 ,p_cat_struct_id
550 ,p_cat_id
551 ,p_chart_of_acct
552 --,p_from_company
553 --,p_to_company
554 ,p_from_cost_center
555 ,p_to_cost_center
556 ,p_from_asset
557 ,p_to_asset
558 );
559
560 IF l_report_request_id = 0 THEN
561 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Asset Balance Report "'
562 || l_report_desc || '"');
563 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'did not complete ');
564 ELSE
565 COMMIT;
566 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Asset Balance Report "' ||
567 l_report_desc || '"');
568 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'" is available at "Request ID" ' ||
569 l_report_request_id);
570
571 END IF;
572 l_report_request_id := 0;
573 END IF;
574
575
576 EXCEPTION
577 WHEN OTHERS THEN
578 igi_iac_debug_pkg.debug_unexpected_msg(l_path);
579 END submit_report;
580
581
582
583 /**********
584 This function has now been removed It was originally added to accomodate
585 the data capture into the RXi interface table of 4 detail reports, as the
586 queries were identical for summary/detail; The only difference was the grouping.
587 The grouping was going to be handled within the RXi designer attribute sets.
588 However it has been found that the rollup grouping is not achievable within Rxi,
589 so 8 seperate queries are required for data capture and storage.
590
591 ***********/
592
593 /*****
594 --Do we need to run summary/detail report for this data?
595 IF p_rep4_attrib_set_2 IS NOT NULL THEN
596
597 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Printing report "'
598 || l_report_desc || '"');
599 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'for SUMMARY/DETAIL, using '
600 || p_rep4_attrib_set_2 || ' attribute set');
601
602 l_publish_req := publish_report
603 ( l_report_request_id
604 ,p_report_id_4
605 ,p_rep4_attrib_set_2
606 ,p_out_format );
607
608 IF l_publish_req = 0 THEN
609 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'Warning: Unable to print ' ||
610 'Asset Balance Report ');
611 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'"' || l_report_desc || '"');
612 ELSE
613 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path, 'Successfully printed Asset ' ||
614 'Balance Report');
615 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'"' || l_report_desc || '"');
616 igi_iac_debug_pkg.debug_other_string(g_state_level,l_path,'at "Request ID" ' ||
617 l_publish_req);
618 END IF;
619 END IF;
620 END IF;
621 l_publish_req := 0;
622 l_report_request_id := 0;
623 END IF;
624
625
626 FUNCTION publish_report ( p_parent_req_id in NUMBER
627 ,p_report_id in VARCHAR2
628 ,p_attrib_set in VARCHAR2
629 ,p_out_format in VARCHAR2)
630 RETURN NUMBER IS
631
632 l_child_req_id NUMBER;
633 l_report_req_id NUMBER;
634 l_message VARCHAR2(1000);
635 l_phase VARCHAR2(100);
636 l_status VARCHAR2(100);
637 l_dev_phase VARCHAR2(100);
638 l_dev_status VARCHAR2(100);
639
640 e_request_submit_error EXCEPTION;
641 e_request_wait_error EXCEPTION;
642
643 CURSOR c_child_request(p_p_request_id NUMBER) IS
644 SELECT request_id
645 FROM fnd_concurrent_requests
646 WHERE parent_request_id = p_p_request_id;
647
648 l_path varchar2(150) := g_path||'publish_report';
649 BEGIN
650
651 -- Ensure the parent process has completed before launching child
652 -- to re-publish RXI report
653
654 -- *** NOTE THE INTERVAL, AND MAX WAIT PERIOD FOR FUNCTION CAN BE ***
655 -- *** ADJUSTED FOR PERFORMANCE ***
656 IF NOT FND_CONCURRENT.Wait_For_Request (p_parent_req_id,
657 30, -- interval seconds
658 0, -- max wait seconds
659 l_phase,
660 l_status,
661 l_dev_phase,
662 l_dev_status,
663 l_message)
664 THEN
665 RETURN 0;
666 END IF;
667
668 -- Check request completion status
669 IF l_dev_phase <> 'COMPLETE' OR
670 l_dev_status <> 'NORMAL' THEN
671 RETURN 0;
672 END IF;
673
674 OPEN c_child_request (p_parent_req_id);
675 FETCH c_child_request INTO l_child_req_id;
676
677 IF (c_child_request%FOUND) THEN
678 l_report_req_id := FND_REQUEST.SUBMIT_REQUEST
679 ( 'OFA'
680 , 'FARXPBSH'
681 , null
682 , null
683 , FALSE
684 ,'PUBLISH'
685 ,l_child_req_id
686 ,p_report_id
687 ,p_attrib_set
688 ,p_out_format
689 );
690
691
692 IF l_report_req_id = 0 THEN
693 CLOSE c_child_request;
694 RETURN 0;
695 ELSE
696 COMMIT;
697 CLOSE c_child_request;
698 RETURN l_report_req_id;
699 END IF;
700 ELSE
701 CLOSE c_child_request;
702 RETURN 0;
703 END IF;
704 CLOSE c_child_request;
705
706 RETURN l_report_req_id;
707
708 EXCEPTION
709 WHEN OTHERS THEN
710 igi_iac_debug_pkg.debug_unexpected_msg(l_path);
711 RETURN 0;
712
713 END publish_report;
714
715 *******/
716
717
718 END igi_iac_submit_rxi_asset_bal;