4: ---------------------------------------------------
5: -- Declaration of global variables --
6: ---------------------------------------------------
7:
8: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9:
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
6: ---------------------------------------------------
7:
8: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9:
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7:
8: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9:
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9:
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
9:
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_deferred_deprn_pkg.';
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_deferred_deprn_pkg.';
18:
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_deferred_deprn_pkg.';
18:
19: TYPE number_tbl_type IS TABLE OF number INDEX BY BINARY_INTEGER;
180:
181: begin
182:
183: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
184: fnd_log.string(G_LEVEL_PROCEDURE,
185: G_MODULE_NAME||l_procedure_name||'.begin',
186: 'Beginning of procedure');
187: END IF;
188:
201: where book_type_code = p_tax_book;
202:
203:
204: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
205: fnd_log.string(G_LEVEL_STATEMENT,
206: G_MODULE_NAME||l_procedure_name,
207: 'opening ' || p_mrc_sob_type_code || ' cursor');
208: END IF;
209:
216:
217: while (TRUE) loop
218:
219: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
220: fnd_log.string(G_LEVEL_STATEMENT,
221: G_MODULE_NAME||l_procedure_name,
222: 'fetching ' || p_mrc_sob_type_code || ' cursor');
223: END IF;
224:
250: LIMIT l_batch_size;
251: end if;
252:
253: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
254: fnd_log.string(G_LEVEL_STATEMENT,
255: G_MODULE_NAME||l_procedure_name,
256: 'rows fetched: ' || to_char(l_asset_id.count));
257: END IF;
258:
258:
259: if (l_asset_id.count = 0) then
260:
261: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
262: fnd_log.string(G_LEVEL_STATEMENT,
263: G_MODULE_NAME||l_procedure_name,
264: 'exiting loop');
265: END IF;
266:
270: -- BUG# 4605332
271: -- backing out fix for 2259461
272:
273: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
274: fnd_log.string(G_LEVEL_STATEMENT,
275: G_MODULE_NAME||l_procedure_name,
276: 'bulk inserting into fa_deferred_deprn*' || p_mrc_sob_type_code);
277: END IF;
278:
356:
357: end loop;
358:
359: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
360: fnd_log.string(G_LEVEL_STATEMENT,
361: G_MODULE_NAME||l_procedure_name,
362: 'closing ' || p_mrc_sob_type_code || ' cursor');
363: END IF;
364:
368: CLOSE C_DEFERRED;
369: end if;
370:
371: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
372: fnd_log.string(G_LEVEL_PROCEDURE,
373: G_MODULE_NAME||l_procedure_name||'.end',
374: 'End of procedure');
375: END IF;
376:
376:
377: EXCEPTION
378: WHEN error_found THEN
379: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
380: FND_LOG.STRING(G_LEVEL_EXCEPTION,
381: G_MODULE_NAME || l_procedure_name,
382: 'errored');
383: END IF;
384: raise;
387: WHEN others THEN
388: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
389: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
390: fnd_message.set_token('ORACLE_ERR',SQLERRM);
391: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME || l_procedure_name,TRUE);
392: END IF;
393: raise;
394:
395: end deferred_deprn;
446:
447: begin
448:
449: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
450: fnd_log.string(G_LEVEL_PROCEDURE,
451: G_MODULE_NAME||l_procedure_name||'.begin',
452: 'Beginning of procedure');
453: END IF;
454:
462: raise error_found;
463: end if;
464:
465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
466: fnd_log.string(G_LEVEL_STATEMENT,
467: G_MODULE_NAME||l_procedure_name,
468: 'opening c_deferred_events');
469: END IF;
470:
472:
473: loop -- Loop for c_deferred_events
474:
475: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
476: fnd_log.string(G_LEVEL_STATEMENT,
477: G_MODULE_NAME||l_procedure_name,
478: 'bulk fetching c_deferred_events cursor');
479: END IF;
480:
483: l_rowid_tbl
484: LIMIT l_batch_size;
485:
486: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
487: fnd_log.string(G_LEVEL_STATEMENT,
488: G_MODULE_NAME||l_procedure_name,
489: 'rows fetched: ' || to_char(l_asset_id_tbl.count));
490: END IF;
491:
490: END IF;
491:
492: if l_asset_id_tbl.count = 0 then
493: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
494: fnd_log.string(G_LEVEL_STATEMENT,
495: G_MODULE_NAME||l_procedure_name,
496: 'exiting loop...');
497: END IF;
498:
499: exit;
500: end if;
501:
502: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
503: fnd_log.string(G_LEVEL_STATEMENT,
504: G_MODULE_NAME||l_procedure_name,
505: 'calling FA_XLA_EVENTS_PVT.create_bulk_deferred_event for primary');
506: END IF;
507:
519: p_calling_fn => l_calling_fn
520: );
521:
522: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
523: fnd_log.string(G_LEVEL_STATEMENT,
524: G_MODULE_NAME||l_procedure_name,
525: 'bulk inserting into fa_deferred_deprn_events');
526: END IF;
527:
542: p_tax_period_counter,
543: l_event_id_tbl(l_count));
544:
545: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
546: fnd_log.string(G_LEVEL_STATEMENT,
547: G_MODULE_NAME||l_procedure_name,
548: 'bulk updating fa_deferred_deprn with event ids');
549: END IF;
550:
557: AND corp_period_counter = p_corp_period_counter
558: AND tax_period_counter = p_tax_period_counter;
559:
560: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
561: fnd_log.string(G_LEVEL_STATEMENT,
562: G_MODULE_NAME||l_procedure_name,
563: 'bulk updating fa_mc_deferred_deprn with event ids');
564: END IF;
565:
575:
576: end loop; --End of loop for c_deferred_events
577:
578: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
579: fnd_log.string(G_LEVEL_STATEMENT,
580: G_MODULE_NAME||l_procedure_name,
581: 'closing c_deferred_events');
582: END IF;
583:
593: -- begin at index of 1 not 0 as in apis
594: FOR l_sob_index in 1..l_sob_tbl.count LOOP
595:
596: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
597: fnd_log.string(G_LEVEL_STATEMENT,
598: G_MODULE_NAME||l_procedure_name,
599: 'opening c_mc_deferred_events cursor');
600: END IF;
601:
603:
604: loop -- Loop for c_mc_deferred_events
605:
606: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
607: fnd_log.string(G_LEVEL_STATEMENT,
608: G_MODULE_NAME||l_procedure_name,
609: 'fetching c_mc_deferred_events cursor');
610: END IF;
611:
614: l_rowid_tbl
615: LIMIT l_batch_size;
616:
617: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
618: fnd_log.string(G_LEVEL_STATEMENT,
619: G_MODULE_NAME||l_procedure_name,
620: 'rows fetched: ' || to_char(l_asset_id_tbl.count));
621: END IF;
622:
621: END IF;
622:
623: if (l_asset_id_tbl.count = 0) then
624: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
625: fnd_log.string(G_LEVEL_STATEMENT,
626: G_MODULE_NAME||l_procedure_name,
627: 'exiting loop...');
628: END IF;
629:
630: exit;
631: end if;
632:
633: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
634: fnd_log.string(G_LEVEL_STATEMENT,
635: G_MODULE_NAME||l_procedure_name,
636: 'calling FA_XLA_EVENTS_PVT.create_bulk_deferred_event for reporting');
637: END IF;
638:
650: p_calling_fn => l_calling_fn
651: );
652:
653: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
654: fnd_log.string(G_LEVEL_STATEMENT,
655: G_MODULE_NAME||l_procedure_name,
656: 'bulk inserting into fa_deferred_deprn_events');
657: END IF;
658:
673: p_tax_period_counter,
674: l_event_id_tbl(l_count));
675:
676: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
677: fnd_log.string(G_LEVEL_STATEMENT,
678: G_MODULE_NAME||l_procedure_name,
679: 'bulk updating fa_mc_deferred_deprn with event ids');
680: END IF;
681:
690:
691: end loop; --End of loop for c_mc_deferred_events
692:
693: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
694: fnd_log.string(G_LEVEL_STATEMENT,
695: G_MODULE_NAME||l_procedure_name,
696: 'closing c_mc_deferred_events');
697: END IF;
698:
703:
704: commit;
705:
706: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
707: fnd_log.string(G_LEVEL_PROCEDURE,
708: G_MODULE_NAME||l_procedure_name||'.end',
709: 'End of procedure');
710: END IF;
711:
712: EXCEPTION
713: when error_found then
714: rollback;
715: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
716: FND_LOG.STRING(G_LEVEL_EXCEPTION,
717: G_MODULE_NAME || l_procedure_name,
718: 'errored');
719: END IF;
720: raise;
723: rollback;
724: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
725: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
726: fnd_message.set_token('ORACLE_ERR',SQLERRM);
727: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME || l_procedure_name,TRUE);
728: END IF;
729:
730: raise;
731:
766:
767: BEGIN
768:
769: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
770: fnd_log.string(G_LEVEL_PROCEDURE,
771: G_MODULE_NAME||l_procedure_name||'.begin',
772: 'Beginning of procedure');
773: END IF;
774:
776: raise error_found;
777: end if;
778:
779: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
780: fnd_log.string(G_LEVEL_STATEMENT,
781: G_MODULE_NAME||l_procedure_name,
782: 'fetching period information');
783: END IF;
784:
814: raise error_found;
815: end if;
816:
817: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
818: fnd_log.string(G_LEVEL_STATEMENT,
819: G_MODULE_NAME||l_procedure_name,
820: 'calling deferred_deprn');
821: END IF;
822:
829:
830: end loop;
831:
832: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
833: fnd_log.string(G_LEVEL_STATEMENT,
834: G_MODULE_NAME||l_procedure_name,
835: 'calling create_bulk_deferred_events');
836: END IF;
837:
842: p_tax_period_counter => l_tax_period_counter,
843: p_corp_period_counter => l_corp_period_counter);
844:
845: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
846: fnd_log.string(G_LEVEL_PROCEDURE,
847: G_MODULE_NAME||l_procedure_name||'.end',
848: 'End of procedure');
849: END IF;
850:
852:
853: EXCEPTION
854: WHEN error_found THEN
855: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
856: FND_LOG.STRING(G_LEVEL_EXCEPTION,
857: G_MODULE_NAME || l_procedure_name,
858: 'errored');
859: END IF;
860: retcode := 2;
862: WHEN others THEN
863: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
864: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
865: fnd_message.set_token('ORACLE_ERR',SQLERRM);
866: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME || l_procedure_name,TRUE);
867: END IF;
868: retcode := 2;
869:
870: end do_deferred;