[Home] [Help]
1: PACKAGE BODY fa_xla_extract_util_pkg AS
2: /* $Header: FAXLAXUB.pls 120.25.12010000.2 2009/01/05 07:12:37 anujain ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2: /* $Header: FAXLAXUB.pls 120.25.12010000.2 2009/01/05 07:12:37 anujain ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_util_pkg.';
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_util_pkg.';
14:
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_util_pkg.';
14:
15: ----------------------------------------------------------------------------------
41: begin
42:
43: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
44:
45: fnd_log.string(G_LEVEL_PROCEDURE,
46: G_MODULE_NAME||l_procedure_name||'.begin',
47: 'Beginning of procedure');
48:
49: END IF;
88:
89: end if;
90:
91: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
92: fnd_log.string(G_LEVEL_STATEMENT,
93: G_MODULE_NAME||l_procedure_name,
94: 't_entity_code(i): ' || t_entity_code(i));
95: END IF;
96:
106: null;
107: end if;
108:
109: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
110: fnd_log.string(G_LEVEL_STATEMENT,
111: G_MODULE_NAME||l_procedure_name,
112: 't_event_type_code(i): ' || t_event_type_code(i));
113: END IF;
114:
140: end loop;
141:
142: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
143:
144: fnd_log.string(G_LEVEL_PROCEDURE,
145: G_MODULE_NAME||l_procedure_name||'.end',
146: 'End of procedure');
147:
148: END IF;
151: WHEN others THEN
152: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
153: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
154: fnd_message.set_token('ORACLE_ERR',SQLERRM);
155: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
156: END IF;
157: raise;
158:
159: end check_events;
181: BEGIN
182:
183: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
184:
185: fnd_log.string(G_LEVEL_PROCEDURE,
186: G_MODULE_NAME||l_procedure_name||'.begin',
187: 'Beginning of procedure');
188:
189: END IF;
195: commit;
196:
197: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
198:
199: fnd_log.string(G_LEVEL_PROCEDURE,
200: G_MODULE_NAME||l_procedure_name||'.end',
201: 'End of procedure');
202:
203: END IF;
208: WHEN OTHERS THEN
209: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
210: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
211: fnd_message.set_token('ORACLE_ERR',SQLERRM);
212: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
213: END IF;
214: RAISE;
215:
216: END lock_assets;
235: BEGIN
236:
237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
238:
239: fnd_log.string(G_LEVEL_PROCEDURE,
240: G_MODULE_NAME||l_procedure_name||'.begin',
241: 'Beginning of procedure');
242:
243: END IF;
249: commit;
250:
251: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
252:
253: fnd_log.string(G_LEVEL_PROCEDURE,
254: G_MODULE_NAME||l_procedure_name||'.end',
255: 'End of procedure');
256:
257: END IF;
262: WHEN OTHERS THEN
263: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
264: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
265: fnd_message.set_token('ORACLE_ERR',SQLERRM);
266: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
267: END IF;
268: RAISE;
269:
270: END unlock_assets;
294: BEGIN
295:
296: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
297:
298: fnd_log.string(G_LEVEL_PROCEDURE,
299: G_MODULE_NAME||l_procedure_name||'.begin',
300: 'Beginning of procedure');
301:
302: END IF;
302: END IF;
303:
304: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
305:
306: fnd_log.string(G_LEVEL_STATEMENT,
307: G_MODULE_NAME||l_procedure_name,
308: 'p_book_type_code: ' || p_book_type_code);
309:
310: fnd_log.string(G_LEVEL_STATEMENT,
306: fnd_log.string(G_LEVEL_STATEMENT,
307: G_MODULE_NAME||l_procedure_name,
308: 'p_book_type_code: ' || p_book_type_code);
309:
310: fnd_log.string(G_LEVEL_STATEMENT,
311: G_MODULE_NAME||l_procedure_name,
312: 'p_process_category: ' || p_process_category);
313:
314:
409:
410: l_trx_count := SQL%ROWCOUNT;
411:
412: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
413: fnd_log.string(G_LEVEL_STATEMENT,
414: G_MODULE_NAME||l_procedure_name,
415: 'Rows inserted into gt for non-accountable - trx: ' || to_char(l_trx_count));
416: END IF;
417: /*--------------------------------------------------------*/
473:
474: l_inter_trx_count := SQL%ROWCOUNT;
475:
476: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
477: fnd_log.string(G_LEVEL_STATEMENT,
478: G_MODULE_NAME||l_procedure_name,
479: 'Rows inserted into gt for non-accountable - intertrx: ' || to_char(l_inter_trx_count));
480: END IF;
481:
482:
483: if (l_trx_count <> 0 or
484: l_inter_trx_count <> 0) then
485: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
486: fnd_log.string(G_LEVEL_STATEMENT,
487: G_MODULE_NAME||l_procedure_name,
488: 'calling: ' || 'xla_events_pub_pkg.update_bulk_event_statuses');
489: END IF;
490:
497: commit;
498:
499: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
500:
501: fnd_log.string(G_LEVEL_PROCEDURE,
502: G_MODULE_NAME||l_procedure_name||'.end',
503: 'End of procedure');
504:
505: END IF;
510: WHEN OTHERS THEN
511: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
512: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
513: fnd_message.set_token('ORACLE_ERR',SQLERRM);
514: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
515: END IF;
516: RAISE;
517:
518: END update_nonaccountable_events;
544: BEGIN
545:
546: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
547:
548: fnd_log.string(G_LEVEL_PROCEDURE,
549: G_MODULE_NAME||l_procedure_name||'.begin',
550: 'Beginning of procedure');
551:
552: END IF;
556:
557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
558:
559: if (G_trx_exists) then
560: fnd_log.string(G_LEVEL_STATEMENT,
561: G_MODULE_NAME||l_procedure_name,
562: 'G_trx_exists: true' );
563: else
564: fnd_log.string(G_LEVEL_STATEMENT,
560: fnd_log.string(G_LEVEL_STATEMENT,
561: G_MODULE_NAME||l_procedure_name,
562: 'G_trx_exists: true' );
563: else
564: fnd_log.string(G_LEVEL_STATEMENT,
565: G_MODULE_NAME||l_procedure_name,
566: 'G_trx_exists: false' );
567:
568: end if;
567:
568: end if;
569:
570: if (G_inter_trx_exists) then
571: fnd_log.string(G_LEVEL_STATEMENT,
572: G_MODULE_NAME||l_procedure_name,
573: 'G_inter_trx_exists: true' );
574: else
575: fnd_log.string(G_LEVEL_STATEMENT,
571: fnd_log.string(G_LEVEL_STATEMENT,
572: G_MODULE_NAME||l_procedure_name,
573: 'G_inter_trx_exists: true' );
574: else
575: fnd_log.string(G_LEVEL_STATEMENT,
576: G_MODULE_NAME||l_procedure_name,
577: 'G_inter_trx_exists: false' );
578:
579: end if;
578:
579: end if;
580:
581: if (G_dep_exists) then
582: fnd_log.string(G_LEVEL_STATEMENT,
583: G_MODULE_NAME||l_procedure_name,
584: 'G_dep_exists: true' );
585: else
586: fnd_log.string(G_LEVEL_STATEMENT,
582: fnd_log.string(G_LEVEL_STATEMENT,
583: G_MODULE_NAME||l_procedure_name,
584: 'G_dep_exists: true' );
585: else
586: fnd_log.string(G_LEVEL_STATEMENT,
587: G_MODULE_NAME||l_procedure_name,
588: 'G_dep_exists: false' );
589:
590: end if;
589:
590: end if;
591:
592: if (G_def_exists) then
593: fnd_log.string(G_LEVEL_STATEMENT,
594: G_MODULE_NAME||l_procedure_name,
595: 'G_def_exists: true' );
596: else
597: fnd_log.string(G_LEVEL_STATEMENT,
593: fnd_log.string(G_LEVEL_STATEMENT,
594: G_MODULE_NAME||l_procedure_name,
595: 'G_def_exists: true' );
596: else
597: fnd_log.string(G_LEVEL_STATEMENT,
598: G_MODULE_NAME||l_procedure_name,
599: 'G_def_exists: false' );
600:
601: end if;
600:
601: end if;
602:
603: if (G_fin_trx_exists) then
604: fnd_log.string(G_LEVEL_STATEMENT,
605: G_MODULE_NAME||l_procedure_name,
606: 'G_fin_trx_exists: true' );
607: else
608: fnd_log.string(G_LEVEL_STATEMENT,
604: fnd_log.string(G_LEVEL_STATEMENT,
605: G_MODULE_NAME||l_procedure_name,
606: 'G_fin_trx_exists: true' );
607: else
608: fnd_log.string(G_LEVEL_STATEMENT,
609: G_MODULE_NAME||l_procedure_name,
610: 'G_fin_trx_exists: false' );
611: end if;
612:
610: 'G_fin_trx_exists: false' );
611: end if;
612:
613: if (G_xfr_trx_exists) then
614: fnd_log.string(G_LEVEL_STATEMENT,
615: G_MODULE_NAME||l_procedure_name,
616: 'G_xfr_trx_exists: true' );
617: else
618: fnd_log.string(G_LEVEL_STATEMENT,
614: fnd_log.string(G_LEVEL_STATEMENT,
615: G_MODULE_NAME||l_procedure_name,
616: 'G_xfr_trx_exists: true' );
617: else
618: fnd_log.string(G_LEVEL_STATEMENT,
619: G_MODULE_NAME||l_procedure_name,
620: 'G_xfr_trx_exists: false' );
621: end if;
622:
620: 'G_xfr_trx_exists: false' );
621: end if;
622:
623: if (G_dist_trx_exists) then
624: fnd_log.string(G_LEVEL_STATEMENT,
625: G_MODULE_NAME||l_procedure_name,
626: 'G_dist_trx_exists: true' );
627: else
628: fnd_log.string(G_LEVEL_STATEMENT,
624: fnd_log.string(G_LEVEL_STATEMENT,
625: G_MODULE_NAME||l_procedure_name,
626: 'G_dist_trx_exists: true' );
627: else
628: fnd_log.string(G_LEVEL_STATEMENT,
629: G_MODULE_NAME||l_procedure_name,
630: 'G_dist_trx_exists: false' );
631: end if;
632:
630: 'G_dist_trx_exists: false' );
631: end if;
632:
633: if (G_ret_trx_exists) then
634: fnd_log.string(G_LEVEL_STATEMENT,
635: G_MODULE_NAME||l_procedure_name,
636: 'G_ret_trx_exists: true' );
637: else
638: fnd_log.string(G_LEVEL_STATEMENT,
634: fnd_log.string(G_LEVEL_STATEMENT,
635: G_MODULE_NAME||l_procedure_name,
636: 'G_ret_trx_exists: true' );
637: else
638: fnd_log.string(G_LEVEL_STATEMENT,
639: G_MODULE_NAME||l_procedure_name,
640: 'G_ret_trx_exists: false' );
641: end if;
642:
640: 'G_ret_trx_exists: false' );
641: end if;
642:
643: if (G_res_trx_exists) then
644: fnd_log.string(G_LEVEL_STATEMENT,
645: G_MODULE_NAME||l_procedure_name,
646: 'G_res_trx_exists: true' );
647: else
648: fnd_log.string(G_LEVEL_STATEMENT,
644: fnd_log.string(G_LEVEL_STATEMENT,
645: G_MODULE_NAME||l_procedure_name,
646: 'G_res_trx_exists: true' );
647: else
648: fnd_log.string(G_LEVEL_STATEMENT,
649: G_MODULE_NAME||l_procedure_name,
650: 'G_res_trx_exists: false' );
651: end if;
652:
650: 'G_res_trx_exists: false' );
651: end if;
652:
653: if (G_deprn_exists) then
654: fnd_log.string(G_LEVEL_STATEMENT,
655: G_MODULE_NAME||l_procedure_name,
656: 'G_deprn_exists: true' );
657: else
658: fnd_log.string(G_LEVEL_STATEMENT,
654: fnd_log.string(G_LEVEL_STATEMENT,
655: G_MODULE_NAME||l_procedure_name,
656: 'G_deprn_exists: true' );
657: else
658: fnd_log.string(G_LEVEL_STATEMENT,
659: G_MODULE_NAME||l_procedure_name,
660: 'G_deprn_exists: false' );
661: end if;
662:
660: 'G_deprn_exists: false' );
661: end if;
662:
663: if (G_rollback_deprn_exists) then
664: fnd_log.string(G_LEVEL_STATEMENT,
665: G_MODULE_NAME||l_procedure_name,
666: 'G_rollback_deprn_exists: true' );
667: else
668: fnd_log.string(G_LEVEL_STATEMENT,
664: fnd_log.string(G_LEVEL_STATEMENT,
665: G_MODULE_NAME||l_procedure_name,
666: 'G_rollback_deprn_exists: true' );
667: else
668: fnd_log.string(G_LEVEL_STATEMENT,
669: G_MODULE_NAME||l_procedure_name,
670: 'G_rollback_deprn_exists: false' );
671: end if;
672:
670: 'G_rollback_deprn_exists: false' );
671: end if;
672:
673: if (G_alc_enabled) then
674: fnd_log.string(G_LEVEL_STATEMENT,
675: G_MODULE_NAME||l_procedure_name,
676: 'G_alc_enabled: true' );
677: else
678: fnd_log.string(G_LEVEL_STATEMENT,
674: fnd_log.string(G_LEVEL_STATEMENT,
675: G_MODULE_NAME||l_procedure_name,
676: 'G_alc_enabled: true' );
677: else
678: fnd_log.string(G_LEVEL_STATEMENT,
679: G_MODULE_NAME||l_procedure_name,
680: 'G_alc_enabled: false' );
681: end if;
682:
697: end if;
698:
699: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
700:
701: fnd_log.string(G_LEVEL_PROCEDURE,
702: G_MODULE_NAME||l_procedure_name||'.end',
703: 'End of procedure');
704:
705: END IF;
708: WHEN OTHERS THEN
709: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
710: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
711: fnd_message.set_token('ORACLE_ERR',SQLERRM);
712: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
713: END IF;
714: RAISE;
715: END;
716: