[Home] [Help]
1: PACKAGE BODY xla_cmp_tad_pkg AS
2: /* $Header: xlacptad.pkb 120.25.12010000.2 2008/09/05 22:07:33 vkasina ship $ */
3: /*======================================================================+
4: | Copyright (c) 1995-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +=======================================================================+
8: | PACKAGE NAME |
9: | xla_cmp_tad_pkg |
10: | |
11: | DESCRIPTION |
12: | Transaction Account Builder Engine Compiler |
13: | |
258: ,p_gl_account_segment_name OUT NOCOPY VARCHAR2
259: ,p_gl_intercompany_segment_name OUT NOCOPY VARCHAR2
260: ,p_gl_management_segment_name OUT NOCOPY VARCHAR2
261: ,p_fa_cost_ctr_segment_name OUT NOCOPY VARCHAR2
262: ,p_table_segment_qualifiers OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30_V30
263: ,p_table_segment_column_names OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30
264: )
265: RETURN BOOLEAN;
266:
259: ,p_gl_intercompany_segment_name OUT NOCOPY VARCHAR2
260: ,p_gl_management_segment_name OUT NOCOPY VARCHAR2
261: ,p_fa_cost_ctr_segment_name OUT NOCOPY VARCHAR2
262: ,p_table_segment_qualifiers OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30_V30
263: ,p_table_segment_column_names OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30
264: )
265: RETURN BOOLEAN;
266:
267:
364:
365: FUNCTION g_batch_build_ccid_stmts RETURN CLOB
366: IS
367: BEGIN
368: return REPLACE(xla_cmp_tad_pkg.C_TMPL_BATCH_BUILD_CCID_STMTS, '''''''', '''''''''''');
369: END g_batch_build_ccid_stmts;
370:
371: PROCEDURE trace
372: ( p_module IN VARCHAR2
376: BEGIN
377: ----------------------------------------------------------------------------
378: -- Following is for FND log.
379: ----------------------------------------------------------------------------
380: IF (p_msg IS NULL AND p_level >= xla_cmp_tad_pkg.g_log_level) THEN
381: fnd_log.message(p_level, p_module);
382: ELSIF p_level >= xla_cmp_tad_pkg.g_log_level THEN
383: fnd_log.string(p_level, p_module, p_msg);
384: END IF;
378: -- Following is for FND log.
379: ----------------------------------------------------------------------------
380: IF (p_msg IS NULL AND p_level >= xla_cmp_tad_pkg.g_log_level) THEN
381: fnd_log.message(p_level, p_module);
382: ELSIF p_level >= xla_cmp_tad_pkg.g_log_level THEN
383: fnd_log.string(p_level, p_module, p_msg);
384: END IF;
385:
386: EXCEPTION
404: l_encoded_message VARCHAR2(2000);
405: l_log_module VARCHAR2(2000);
406: BEGIN
407:
408: IF xla_cmp_tad_pkg.g_log_enabled THEN
409: l_log_module := g_default_module||''.log_error'';
410: END IF;
411:
412: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
408: IF xla_cmp_tad_pkg.g_log_enabled THEN
409: l_log_module := g_default_module||''.log_error'';
410: END IF;
411:
412: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
413: trace
414: ( p_module => l_log_module
415: ,p_msg => ''BEGIN '' || l_log_module
416: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
412: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
413: trace
414: ( p_module => l_log_module
415: ,p_msg => ''BEGIN '' || l_log_module
416: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
417: END IF;
418:
419: IF p_encoded_message IS NULL
420: THEN
448: THEN
449: NULL;
450: END IF;
451:
452: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
453: trace
454: ( p_module => l_log_module
455: ,p_msg => ''END '' || l_log_module
456: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
452: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
453: trace
454: ( p_module => l_log_module
455: ,p_msg => ''END '' || l_log_module
456: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
457: END IF;
458:
459: END log_error;
460:
469: l_encoded_message VARCHAR2(2000);
470: l_log_module VARCHAR2(2000);
471: BEGIN
472:
473: IF xla_cmp_tad_pkg.g_log_enabled THEN
474: l_log_module := g_default_module||''.log_error'';
475: END IF;
476:
477: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
473: IF xla_cmp_tad_pkg.g_log_enabled THEN
474: l_log_module := g_default_module||''.log_error'';
475: END IF;
476:
477: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
478: trace
479: ( p_module => l_log_module
480: ,p_msg => ''BEGIN '' || l_log_module
481: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
477: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
478: trace
479: ( p_module => l_log_module
480: ,p_msg => ''BEGIN '' || l_log_module
481: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
482: END IF;
483:
484: log_error (
485: p_mode => p_mode
487: ,p_line_index => p_line_index
488: ,p_encoded_message => p_encoded_message
489: );
490:
491: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
492: trace
493: ( p_module => l_log_module
494: ,p_msg => ''END '' || l_log_module
495: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
491: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
492: trace
493: ( p_module => l_log_module
494: ,p_msg => ''END '' || l_log_module
495: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
496: END IF;
497:
498: RETURN NULL;
499:
520: l_encoded_message VARCHAR2(2000);
521: l_log_module VARCHAR2(2000);
522: BEGIN
523:
524: IF xla_cmp_tad_pkg.g_log_enabled THEN
525: l_log_module := g_default_module||''.log_error'';
526: END IF;
527:
528: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
524: IF xla_cmp_tad_pkg.g_log_enabled THEN
525: l_log_module := g_default_module||''.log_error'';
526: END IF;
527:
528: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
529: trace
530: ( p_module => l_log_module
531: ,p_msg => ''BEGIN '' || l_log_module
532: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
528: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
529: trace
530: ( p_module => l_log_module
531: ,p_msg => ''BEGIN '' || l_log_module
532: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
533: END IF;
534:
535: --Set the message onto the message stack
536: FND_MESSAGE.SET_NAME
576: ,p_line_index => p_line_index
577: ,p_encoded_message => NULL
578: );
579:
580: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
581: trace
582: ( p_module => l_log_module
583: ,p_msg => ''END '' || l_log_module
584: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
580: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
581: trace
582: ( p_module => l_log_module
583: ,p_msg => ''END '' || l_log_module
584: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
585: END IF;
586:
587: END log_error;
588:
601: l_account_type_name VARCHAR2(80);
602: l_log_module VARCHAR2(2000);
603: BEGIN
604:
605: IF xla_cmp_tad_pkg.g_log_enabled THEN
606: l_log_module := g_default_module||''.log_null_segments_error'';
607: END IF;
608:
609: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
605: IF xla_cmp_tad_pkg.g_log_enabled THEN
606: l_log_module := g_default_module||''.log_null_segments_error'';
607: END IF;
608:
609: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
610: trace
611: ( p_module => l_log_module
612: ,p_msg => ''BEGIN '' || l_log_module
613: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
609: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
610: trace
611: ( p_module => l_log_module
612: ,p_msg => ''BEGIN '' || l_log_module
613: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
614: END IF;
615:
616: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level)
617: THEN
612: ,p_msg => ''BEGIN '' || l_log_module
613: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
614: END IF;
615:
616: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level)
617: THEN
618: trace
619: ( p_module => l_log_module
620: ,p_msg => ''p_mode: '' || p_mode
617: THEN
618: trace
619: ( p_module => l_log_module
620: ,p_msg => ''p_mode: '' || p_mode
621: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
622: trace
623: ( p_module => l_log_module
624: ,p_msg => ''p_rowid: '' || p_rowid
625: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
621: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
622: trace
623: ( p_module => l_log_module
624: ,p_msg => ''p_rowid: '' || p_rowid
625: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
626: trace
627: ( p_module => l_log_module
628: ,p_msg => ''p_ccid: '' || p_ccid
629: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
625: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
626: trace
627: ( p_module => l_log_module
628: ,p_msg => ''p_ccid: '' || p_ccid
629: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
630: trace
631: ( p_module => l_log_module
632: ,p_msg => ''p_chart_of_accounts_name: ''||p_chart_of_accounts_name
633: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
629: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
630: trace
631: ( p_module => l_log_module
632: ,p_msg => ''p_chart_of_accounts_name: ''||p_chart_of_accounts_name
633: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
634: END IF;
635:
636: --Try to get the account type name
637: BEGIN
676: END IF;
677:
678: RETURN NULL;
679:
680: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
681: trace
682: ( p_module => l_log_module
683: ,p_msg => ''END '' || l_log_module
684: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
680: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
681: trace
682: ( p_module => l_log_module
683: ,p_msg => ''END '' || l_log_module
684: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
685: END IF;
686:
687: END log_null_segments_error;
688:
700: l_account_type_name VARCHAR2(80);
701: l_log_module VARCHAR2(2000);
702: BEGIN
703:
704: IF xla_cmp_tad_pkg.g_log_enabled THEN
705: l_log_module := g_default_module||''.log_ccid_disabled_error'';
706: END IF;
707:
708: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
704: IF xla_cmp_tad_pkg.g_log_enabled THEN
705: l_log_module := g_default_module||''.log_ccid_disabled_error'';
706: END IF;
707:
708: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
709: trace
710: ( p_module => l_log_module
711: ,p_msg => ''BEGIN '' || l_log_module
712: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
708: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
709: trace
710: ( p_module => l_log_module
711: ,p_msg => ''BEGIN '' || l_log_module
712: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
713: END IF;
714:
715: --Try to get the account type name
716: BEGIN
741: );
742:
743: RETURN NULL;
744:
745: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
746: trace
747: ( p_module => l_log_module
748: ,p_msg => ''END '' || l_log_module
749: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
745: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
746: trace
747: ( p_module => l_log_module
748: ,p_msg => ''END '' || l_log_module
749: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
750: END IF;
751:
752: END log_ccid_disabled_error;
753:
765: l_account_type_name VARCHAR2(80);
766: l_log_module VARCHAR2(2000);
767: BEGIN
768:
769: IF xla_cmp_tad_pkg.g_log_enabled THEN
770: l_log_module := g_default_module||''.log_ccid_not_found_error'';
771: END IF;
772:
773: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
769: IF xla_cmp_tad_pkg.g_log_enabled THEN
770: l_log_module := g_default_module||''.log_ccid_not_found_error'';
771: END IF;
772:
773: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
774: trace
775: ( p_module => l_log_module
776: ,p_msg => ''BEGIN '' || l_log_module
777: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
773: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
774: trace
775: ( p_module => l_log_module
776: ,p_msg => ''BEGIN '' || l_log_module
777: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
778: END IF;
779:
780: --Try to get the account type name
781: BEGIN
806: );
807:
808: RETURN NULL;
809:
810: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
811: trace
812: ( p_module => l_log_module
813: ,p_msg => ''END '' || l_log_module
814: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
810: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
811: trace
812: ( p_module => l_log_module
813: ,p_msg => ''END '' || l_log_module
814: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
815: END IF;
816:
817: END log_ccid_not_found_error;
818: '
836:
837: l_log_module VARCHAR2(2000);
838: BEGIN
839:
840: IF xla_cmp_tad_pkg.g_log_enabled THEN
841: l_log_module := g_default_module||''.create_ccid'';
842: END IF;
843:
844: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
840: IF xla_cmp_tad_pkg.g_log_enabled THEN
841: l_log_module := g_default_module||''.create_ccid'';
842: END IF;
843:
844: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
845: trace
846: ( p_module => l_log_module
847: ,p_msg => ''BEGIN '' || l_log_module
848: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
844: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
845: trace
846: ( p_module => l_log_module
847: ,p_msg => ''BEGIN '' || l_log_module
848: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
849: END IF;
850:
851: l_code_combination_id := fnd_flex_ext.get_ccid
852: (
926:
927: --Assign return values
928: RETURN l_code_combination_id;
929:
930: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
931: trace
932: ( p_module => l_log_module
933: ,p_msg => ''END '' || l_log_module
934: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
930: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
931: trace
932: ( p_module => l_log_module
933: ,p_msg => ''END '' || l_log_module
934: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
935: END IF;
936:
937: END create_ccid;
938:
947: ,p_gl_account_segment_name OUT NOCOPY VARCHAR2
948: ,p_gl_intercompany_segment_name OUT NOCOPY VARCHAR2
949: ,p_gl_management_segment_name OUT NOCOPY VARCHAR2
950: ,p_fa_cost_ctr_segment_name OUT NOCOPY VARCHAR2
951: ,p_table_segment_qualifiers OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30_V30
952: ,p_table_segment_column_names OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30
953: )
954: RETURN BOOLEAN
955: IS
948: ,p_gl_intercompany_segment_name OUT NOCOPY VARCHAR2
949: ,p_gl_management_segment_name OUT NOCOPY VARCHAR2
950: ,p_fa_cost_ctr_segment_name OUT NOCOPY VARCHAR2
951: ,p_table_segment_qualifiers OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30_V30
952: ,p_table_segment_column_names OUT NOCOPY xla_cmp_tad_pkg.gt_table_V30
953: )
954: RETURN BOOLEAN
955: IS
956: le_fatal_error EXCEPTION;
965: l_gl_account_segment_name VARCHAR2(30);
966: l_gl_intercompany_segment_name VARCHAR2(30);
967: l_gl_management_segment_name VARCHAR2(30);
968: l_fa_cost_ctr_segment_name VARCHAR2(30);
969: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
970: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_v30;
971:
972: --Ancillary local vars
973: l_table_qualifier_names lt_table_v30;
966: l_gl_intercompany_segment_name VARCHAR2(30);
967: l_gl_management_segment_name VARCHAR2(30);
968: l_fa_cost_ctr_segment_name VARCHAR2(30);
969: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
970: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_v30;
971:
972: --Ancillary local vars
973: l_table_qualifier_names lt_table_v30;
974: l_account_segment_column VARCHAR2(30);
975: l_return_value BOOLEAN;
976: l_fatal_error_message VARCHAR2(2000);
977: l_log_module VARCHAR2(2000);
978: BEGIN
979: IF xla_cmp_tad_pkg.g_log_enabled THEN
980: l_log_module := g_default_module||''.get_coa_info'';
981: END IF;
982:
983: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
979: IF xla_cmp_tad_pkg.g_log_enabled THEN
980: l_log_module := g_default_module||''.get_coa_info'';
981: END IF;
982:
983: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
984: trace
985: ( p_module => l_log_module
986: ,p_msg => ''BEGIN '' || l_log_module
987: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
983: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
984: trace
985: ( p_module => l_log_module
986: ,p_msg => ''BEGIN '' || l_log_module
987: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
988: END IF;
989:
990: l_return_value := TRUE;
991:
1027: l_gl_balancing_segment_name := l_table_segment_qualifiers(''GL_BALANCING'');
1028: EXCEPTION
1029: WHEN NO_DATA_FOUND
1030: THEN
1031: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
1032: THEN
1033: trace
1034: ( p_module => l_log_module
1035: ,p_msg => ''No balancing segment qualifier for COA:''
1033: trace
1034: ( p_module => l_log_module
1035: ,p_msg => ''No balancing segment qualifier for COA:''
1036: || p_chart_of_accounts_id
1037: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1038: END IF;
1039: fnd_message.set_name
1040: (
1041: application => ''XLA''
1060: l_gl_account_segment_name := l_table_segment_qualifiers(''GL_ACCOUNT'');
1061: EXCEPTION
1062: WHEN NO_DATA_FOUND
1063: THEN
1064: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
1065: THEN
1066: trace
1067: ( p_module => l_log_module
1068: ,p_msg => ''No account segment qualifier for COA:''
1066: trace
1067: ( p_module => l_log_module
1068: ,p_msg => ''No account segment qualifier for COA:''
1069: || p_chart_of_accounts_id
1070: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1071: END IF;
1072: fnd_message.set_name
1073: (
1074: application => ''XLA''
1123: ,structure_number => p_chart_of_accounts_id
1124: );
1125: IF l_flex_delimiter IS NULL
1126: THEN
1127: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1128: trace
1129: ( p_module => l_log_module
1130: ,p_msg => ''EXCEPTION:''
1131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1127: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1128: trace
1129: ( p_module => l_log_module
1130: ,p_msg => ''EXCEPTION:''
1131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1132: trace
1133: ( p_module => l_log_module
1134: ,p_msg => ''get_delimiter failed''
1135: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1132: trace
1133: ( p_module => l_log_module
1134: ,p_msg => ''get_delimiter failed''
1135: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1136: END IF;
1137: --The error has been placed on the stack
1138: RAISE le_fatal_error;
1139: END IF;
1175: p_fa_cost_ctr_segment_name := l_fa_cost_ctr_segment_name;
1176: p_table_segment_qualifiers := l_table_segment_qualifiers;
1177: p_table_segment_column_names := l_table_segment_column_names;
1178:
1179: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1180: trace
1181: ( p_module => l_log_module
1182: ,p_msg => ''END '' || l_log_module
1183: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1179: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1180: trace
1181: ( p_module => l_log_module
1182: ,p_msg => ''END '' || l_log_module
1183: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1184: END IF;
1185:
1186: RETURN l_return_value;
1187:
1187:
1188: EXCEPTION
1189: WHEN le_fatal_error
1190: THEN
1191: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1192: trace
1193: ( p_module => l_log_module
1194: ,p_msg => ''EXCEPTION:''
1195: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1191: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1192: trace
1193: ( p_module => l_log_module
1194: ,p_msg => ''EXCEPTION:''
1195: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1196: trace
1197: ( p_module => l_log_module
1198: ,p_msg => ''Fatal error: '' || l_fatal_error_message
1199: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1195: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1196: trace
1197: ( p_module => l_log_module
1198: ,p_msg => ''Fatal error: '' || l_fatal_error_message
1199: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1200: END IF;
1201: RETURN FALSE;
1202: WHEN OTHERS
1203: THEN
1200: END IF;
1201: RETURN FALSE;
1202: WHEN OTHERS
1203: THEN
1204: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1205: trace
1206: ( p_module => l_log_module
1207: ,p_msg => ''EXCEPTION:''
1208: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1204: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1205: trace
1206: ( p_module => l_log_module
1207: ,p_msg => ''EXCEPTION:''
1208: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1209: trace
1210: ( p_module => l_log_module
1211: ,p_msg => ''Error: '' || SQLERRM
1212: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1208: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1209: trace
1210: ( p_module => l_log_module
1211: ,p_msg => ''Error: '' || SQLERRM
1212: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1213: END IF;
1214: RETURN FALSE;
1215: END get_coa_info;
1216:
1274: l_source_name VARCHAR2(80);
1275: l_fatal_error_message VARCHAR2(2000);
1276: l_log_module VARCHAR2(2000);
1277: BEGIN
1278: IF xla_cmp_tad_pkg.g_log_enabled THEN
1279: l_log_module := g_default_module||''.get_flexfield_segment'';
1280: END IF;
1281:
1282: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1278: IF xla_cmp_tad_pkg.g_log_enabled THEN
1279: l_log_module := g_default_module||''.get_flexfield_segment'';
1280: END IF;
1281:
1282: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1283: trace
1284: ( p_module => l_log_module
1285: ,p_msg => ''BEGIN '' || l_log_module
1286: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1282: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1283: trace
1284: ( p_module => l_log_module
1285: ,p_msg => ''BEGIN '' || l_log_module
1286: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1287: END IF;
1288:
1289: IF p_ccid IS NULL
1290: THEN
1505: END CASE;
1506:
1507: RETURN l_return_value;
1508:
1509: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1510: trace
1511: ( p_module => l_log_module
1512: ,p_msg => ''END '' || l_log_module
1513: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1509: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1510: trace
1511: ( p_module => l_log_module
1512: ,p_msg => ''END '' || l_log_module
1513: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1514: END IF;
1515:
1516: EXCEPTION
1517: WHEN le_fatal_error
1515:
1516: EXCEPTION
1517: WHEN le_fatal_error
1518: THEN
1519: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1520: trace
1521: ( p_module => l_log_module
1522: ,p_msg => ''EXCEPTION:''
1523: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1519: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
1520: trace
1521: ( p_module => l_log_module
1522: ,p_msg => ''EXCEPTION:''
1523: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1524: trace
1525: ( p_module => l_log_module
1526: ,p_msg => ''Fatal error: '' || l_fatal_error_message
1527: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1523: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1524: trace
1525: ( p_module => l_log_module
1526: ,p_msg => ''Fatal error: '' || l_fatal_error_message
1527: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1528: END IF;
1529: RAISE;
1530: WHEN OTHERS THEN
1531: log_error (
1554: p_chart_of_accounts_id IN NUMBER
1555: ,p_chart_of_accounts_name IN VARCHAR2
1556: ,p_flex_delimiter IN VARCHAR2
1557: ,p_concat_segments_template IN VARCHAR2
1558: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
1559: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
1560: ,p_gl_balancing_segment_name IN VARCHAR2
1561: ,p_gl_account_segment_name IN VARCHAR2
1562: ,p_gl_intercompany_segment_name IN VARCHAR2
1555: ,p_chart_of_accounts_name IN VARCHAR2
1556: ,p_flex_delimiter IN VARCHAR2
1557: ,p_concat_segments_template IN VARCHAR2
1558: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
1559: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
1560: ,p_gl_balancing_segment_name IN VARCHAR2
1561: ,p_gl_account_segment_name IN VARCHAR2
1562: ,p_gl_intercompany_segment_name IN VARCHAR2
1563: ,p_gl_management_segment_name IN VARCHAR2
1572: l_return_value BOOLEAN;
1573: l_fatal_error_message VARCHAR2(2000);
1574: l_log_module VARCHAR2(2000);
1575: BEGIN
1576: IF xla_cmp_tad_pkg.g_log_enabled THEN
1577: l_log_module := g_default_module||''.apply_adr_rules'';
1578: END IF;
1579:
1580: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1576: IF xla_cmp_tad_pkg.g_log_enabled THEN
1577: l_log_module := g_default_module||''.apply_adr_rules'';
1578: END IF;
1579:
1580: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1581: trace
1582: ( p_module => l_log_module
1583: ,p_msg => ''BEGIN '' || l_log_module
1584: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1580: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1581: trace
1582: ( p_module => l_log_module
1583: ,p_msg => ''BEGIN '' || l_log_module
1584: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1585: END IF;
1586:
1587: $C_TMPL_BATCH_CCID_SEG_UPD_STMTS$
1588:
1587: $C_TMPL_BATCH_CCID_SEG_UPD_STMTS$
1588:
1589: l_return_value := TRUE;
1590:
1591: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1592: trace
1593: ( p_module => l_log_module
1594: ,p_msg => ''END '' || l_log_module
1595: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1591: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1592: trace
1593: ( p_module => l_log_module
1594: ,p_msg => ''END '' || l_log_module
1595: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1596: END IF;
1597:
1598: RETURN l_return_value;
1599:
1599:
1600: EXCEPTION
1601: WHEN OTHERS
1602: THEN
1603: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
1604: THEN
1605: trace
1606: ( p_module => l_log_module
1607: ,p_msg => ''apply_adr_rules failed with the error:''
1604: THEN
1605: trace
1606: ( p_module => l_log_module
1607: ,p_msg => ''apply_adr_rules failed with the error:''
1608: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1609: trace
1610: ( p_module => l_log_module
1611: ,p_msg => SQLERRM
1612: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1608: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1609: trace
1610: ( p_module => l_log_module
1611: ,p_msg => SQLERRM
1612: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
1613: END IF;
1614: fnd_message.set_name
1615: (
1616: application => ''XLA''
1635: p_chart_of_accounts_id IN NUMBER
1636: ,p_chart_of_accounts_name IN VARCHAR2
1637: ,p_flex_delimiter IN VARCHAR2
1638: ,p_concat_segments_template IN VARCHAR2
1639: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
1640: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
1641: ,p_gl_balancing_segment_name IN VARCHAR2
1642: ,p_gl_account_segment_name IN VARCHAR2
1643: ,p_gl_intercompany_segment_name IN VARCHAR2
1636: ,p_chart_of_accounts_name IN VARCHAR2
1637: ,p_flex_delimiter IN VARCHAR2
1638: ,p_concat_segments_template IN VARCHAR2
1639: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
1640: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
1641: ,p_gl_balancing_segment_name IN VARCHAR2
1642: ,p_gl_account_segment_name IN VARCHAR2
1643: ,p_gl_intercompany_segment_name IN VARCHAR2
1644: ,p_gl_management_segment_name IN VARCHAR2
1692: l_return_value BOOLEAN;
1693: l_fatal_error_message VARCHAR2(2000);
1694: l_log_module VARCHAR2(2000);
1695: BEGIN
1696: IF xla_cmp_tad_pkg.g_log_enabled THEN
1697: l_log_module := g_default_module||''.build_code_combinations_dyn'';
1698: END IF;
1699:
1700: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1696: IF xla_cmp_tad_pkg.g_log_enabled THEN
1697: l_log_module := g_default_module||''.build_code_combinations_dyn'';
1698: END IF;
1699:
1700: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1701: trace
1702: ( p_module => l_log_module
1703: ,p_msg => ''BEGIN '' || l_log_module
1704: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1700: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
1701: trace
1702: ( p_module => l_log_module
1703: ,p_msg => ''BEGIN '' || l_log_module
1704: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
1705: END IF;
1706:
1707: IF p_chart_of_accounts_id IS NULL
1708: THEN
1976:
1977:
1978:
1979: --Dump the dynamic statement
1980: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level)
1981: THEN
1982: xla_cmp_common_pkg.dump_text
1983: (
1984: p_text => l_update_stmts_wrapper_text
1988: --Execute the dynamic statement
1989: IF NOT xla_cmp_create_pkg.execute_dml
1990: (
1991: p_dml_text => l_update_stmts_wrapper_text
1992: ,p_msg_mode => xla_cmp_tad_pkg.G_OA_MESSAGE
1993: )
1994: THEN
1995: l_fatal_error_message := ''xla_cmp_create_pkg.execute_dml failed'';
1996: RAISE le_fatal_error;
1997: END IF;
1998:
1999: l_return_value := TRUE;
2000:
2001: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2002: trace
2003: ( p_module => l_log_module
2004: ,p_msg => ''END '' || l_log_module
2005: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2001: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2002: trace
2003: ( p_module => l_log_module
2004: ,p_msg => ''END '' || l_log_module
2005: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2006: END IF;
2007:
2008: RETURN l_return_value;
2009:
2009:
2010: EXCEPTION
2011: WHEN le_fatal_error
2012: THEN
2013: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2014: THEN
2015: trace
2016: ( p_module => l_log_module
2017: ,p_msg => ''build_code_combinations_dyn failed with the error:''
2014: THEN
2015: trace
2016: ( p_module => l_log_module
2017: ,p_msg => ''build_code_combinations_dyn failed with the error:''
2018: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2019: trace
2020: ( p_module => l_log_module
2021: ,p_msg => SQLERRM
2022: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2018: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2019: trace
2020: ( p_module => l_log_module
2021: ,p_msg => SQLERRM
2022: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2023: END IF;
2024: fnd_message.set_name
2025: (
2026: application => ''XLA''
2039: fnd_msg_pub.add;
2040: RETURN FALSE;
2041: WHEN OTHERS
2042: THEN
2043: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2044: THEN
2045: trace
2046: ( p_module => l_log_module
2047: ,p_msg => ''build_code_combinations_dyn failed with the error:''
2044: THEN
2045: trace
2046: ( p_module => l_log_module
2047: ,p_msg => ''build_code_combinations_dyn failed with the error:''
2048: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2049: trace
2050: ( p_module => l_log_module
2051: ,p_msg => SQLERRM
2052: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2048: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2049: trace
2050: ( p_module => l_log_module
2051: ,p_msg => SQLERRM
2052: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2053: END IF;
2054: fnd_message.set_name
2055: (
2056: application => ''XLA''
2078: p_chart_of_accounts_id IN NUMBER
2079: ,p_chart_of_accounts_name IN VARCHAR2
2080: ,p_flex_delimiter IN VARCHAR2
2081: ,p_concat_segments_template IN VARCHAR2
2082: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
2083: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
2084: ,p_gl_balancing_segment_name IN VARCHAR2
2085: ,p_gl_account_segment_name IN VARCHAR2
2086: ,p_gl_intercompany_segment_name IN VARCHAR2
2079: ,p_chart_of_accounts_name IN VARCHAR2
2080: ,p_flex_delimiter IN VARCHAR2
2081: ,p_concat_segments_template IN VARCHAR2
2082: ,p_table_segment_qualifiers IN xla_cmp_tad_pkg.gt_table_V30_V30
2083: ,p_table_segment_column_names IN xla_cmp_tad_pkg.gt_table_V30
2084: ,p_gl_balancing_segment_name IN VARCHAR2
2085: ,p_gl_account_segment_name IN VARCHAR2
2086: ,p_gl_intercompany_segment_name IN VARCHAR2
2087: ,p_gl_management_segment_name IN VARCHAR2
2096: l_return_value BOOLEAN;
2097: l_fatal_error_message VARCHAR2(2000);
2098: l_log_module VARCHAR2(2000);
2099: BEGIN
2100: IF xla_cmp_tad_pkg.g_log_enabled THEN
2101: l_log_module := g_default_module||''.build_code_combinations'';
2102: END IF;
2103:
2104: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2100: IF xla_cmp_tad_pkg.g_log_enabled THEN
2101: l_log_module := g_default_module||''.build_code_combinations'';
2102: END IF;
2103:
2104: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2105: trace
2106: ( p_module => l_log_module
2107: ,p_msg => ''BEGIN '' || l_log_module
2108: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2104: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2105: trace
2106: ( p_module => l_log_module
2107: ,p_msg => ''BEGIN '' || l_log_module
2108: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2109: END IF;
2110:
2111: $C_TMPL_BATCH_BUILD_CCID_STMTS$
2112:
2111: $C_TMPL_BATCH_BUILD_CCID_STMTS$
2112:
2113: l_return_value := TRUE;
2114:
2115: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2116: trace
2117: ( p_module => l_log_module
2118: ,p_msg => ''END '' || l_log_module
2119: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2115: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2116: trace
2117: ( p_module => l_log_module
2118: ,p_msg => ''END '' || l_log_module
2119: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2120: END IF;
2121:
2122: RETURN l_return_value;
2123:
2123:
2124: EXCEPTION
2125: WHEN le_fatal_error
2126: THEN
2127: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
2128: trace
2129: ( p_module => l_log_module
2130: ,p_msg => ''EXCEPTION:''
2131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2127: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level) THEN
2128: trace
2129: ( p_module => l_log_module
2130: ,p_msg => ''EXCEPTION:''
2131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2132: trace
2133: ( p_module => l_log_module
2134: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2135: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2131: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2132: trace
2133: ( p_module => l_log_module
2134: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2135: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2136: END IF;
2137: RETURN FALSE;
2138: WHEN OTHERS
2139: THEN
2136: END IF;
2137: RETURN FALSE;
2138: WHEN OTHERS
2139: THEN
2140: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2141: THEN
2142: trace
2143: ( p_module => l_log_module
2144: ,p_msg => ''build_code_combinations failed with the error:''
2141: THEN
2142: trace
2143: ( p_module => l_log_module
2144: ,p_msg => ''build_code_combinations failed with the error:''
2145: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2146: trace
2147: ( p_module => l_log_module
2148: ,p_msg => SQLERRM
2149: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2145: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2146: trace
2147: ( p_module => l_log_module
2148: ,p_msg => SQLERRM
2149: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2150: END IF;
2151: fnd_message.set_name
2152: (
2153: application => ''XLA''
2176: l_return_value BOOLEAN;
2177: l_fatal_error_message VARCHAR2(2000);
2178: l_log_module VARCHAR2(2000);
2179: BEGIN
2180: IF xla_cmp_tad_pkg.g_log_enabled THEN
2181: l_log_module := g_default_module||''.push_interface_data'';
2182: END IF;
2183:
2184: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2180: IF xla_cmp_tad_pkg.g_log_enabled THEN
2181: l_log_module := g_default_module||''.push_interface_data'';
2182: END IF;
2183:
2184: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2185: trace
2186: ( p_module => l_log_module
2187: ,p_msg => ''BEGIN '' || l_log_module
2188: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2184: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2185: trace
2186: ( p_module => l_log_module
2187: ,p_msg => ''BEGIN '' || l_log_module
2188: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2189: END IF;
2190:
2191: l_total_rows_moved := 0;
2192:
2196:
2197: --Assign out parameters
2198: x_total_rows_moved := l_total_rows_moved;
2199:
2200: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2201: trace
2202: ( p_module => l_log_module
2203: ,p_msg => ''END '' || l_log_module
2204: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2200: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2201: trace
2202: ( p_module => l_log_module
2203: ,p_msg => ''END '' || l_log_module
2204: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2205: END IF;
2206:
2207: RETURN l_return_value;
2208:
2208:
2209: EXCEPTION
2210: WHEN OTHERS
2211: THEN
2212: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2213: THEN
2214: trace
2215: ( p_module => l_log_module
2216: ,p_msg => ''push_interface_data failed with the error:''
2213: THEN
2214: trace
2215: ( p_module => l_log_module
2216: ,p_msg => ''push_interface_data failed with the error:''
2217: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2218: trace
2219: ( p_module => l_log_module
2220: ,p_msg => SQLERRM
2221: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2217: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2218: trace
2219: ( p_module => l_log_module
2220: ,p_msg => SQLERRM
2221: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2222: END IF;
2223: fnd_message.set_name
2224: (
2225: application => ''XLA''
2247: l_return_value BOOLEAN;
2248: l_fatal_error_message VARCHAR2(2000);
2249: l_log_module VARCHAR2(2000);
2250: BEGIN
2251: IF xla_cmp_tad_pkg.g_log_enabled THEN
2252: l_log_module := g_default_module||''.pop_interface_data'';
2253: END IF;
2254:
2255: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2251: IF xla_cmp_tad_pkg.g_log_enabled THEN
2252: l_log_module := g_default_module||''.pop_interface_data'';
2253: END IF;
2254:
2255: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2256: trace
2257: ( p_module => l_log_module
2258: ,p_msg => ''BEGIN '' || l_log_module
2259: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2255: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2256: trace
2257: ( p_module => l_log_module
2258: ,p_msg => ''BEGIN '' || l_log_module
2259: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2260: END IF;
2261:
2262: l_total_rows_moved := 0;
2263:
2267:
2268: --Assign out parameters
2269: x_total_rows_moved := l_total_rows_moved;
2270:
2271: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2272: trace
2273: ( p_module => l_log_module
2274: ,p_msg => ''END '' || l_log_module
2275: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2271: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2272: trace
2273: ( p_module => l_log_module
2274: ,p_msg => ''END '' || l_log_module
2275: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2276: END IF;
2277:
2278: RETURN l_return_value;
2279:
2279:
2280: EXCEPTION
2281: WHEN OTHERS
2282: THEN
2283: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2284: THEN
2285: trace
2286: ( p_module => l_log_module
2287: ,p_msg => ''pop_interface_data failed with the error:''
2284: THEN
2285: trace
2286: ( p_module => l_log_module
2287: ,p_msg => ''pop_interface_data failed with the error:''
2288: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2289: trace
2290: ( p_module => l_log_module
2291: ,p_msg => SQLERRM
2292: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2288: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2289: trace
2290: ( p_module => l_log_module
2291: ,p_msg => SQLERRM
2292: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2293: END IF;
2294: fnd_message.set_name
2295: (
2296: application => ''XLA''
2324: IS
2325: le_fatal_error EXCEPTION;
2326: l_return_msg_name VARCHAR2(30);
2327:
2328: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
2329: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_V30;
2330: l_flex_delimiter VARCHAR2(1);
2331: l_concat_segments_template VARCHAR2(1000);
2332:
2325: le_fatal_error EXCEPTION;
2326: l_return_msg_name VARCHAR2(30);
2327:
2328: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
2329: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_V30;
2330: l_flex_delimiter VARCHAR2(1);
2331: l_concat_segments_template VARCHAR2(1000);
2332:
2333: l_gl_balancing_segment_name VARCHAR2(30);
2346: l_fatal_error_message VARCHAR2(2000);
2347: l_log_module VARCHAR2(2000);
2348:
2349: BEGIN
2350: IF xla_cmp_tad_pkg.g_log_enabled THEN
2351: l_log_module := g_default_module||''.trans_account_def_online'';
2352: END IF;
2353:
2354: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2350: IF xla_cmp_tad_pkg.g_log_enabled THEN
2351: l_log_module := g_default_module||''.trans_account_def_online'';
2352: END IF;
2353:
2354: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2355: trace
2356: ( p_module => l_log_module
2357: ,p_msg => ''BEGIN '' || l_log_module
2358: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2354: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2355: trace
2356: ( p_module => l_log_module
2357: ,p_msg => ''BEGIN '' || l_log_module
2358: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2359: END IF;
2360:
2361: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2362:
2357: ,p_msg => ''BEGIN '' || l_log_module
2358: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2359: END IF;
2360:
2361: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2362:
2363: trace( p_module => l_log_module
2364: ,p_msg => ''p_transaction_coa_id : '' || p_transaction_coa_id
2365: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2361: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2362:
2363: trace( p_module => l_log_module
2364: ,p_msg => ''p_transaction_coa_id : '' || p_transaction_coa_id
2365: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2366:
2367: trace( p_module => l_log_module
2368: ,p_msg => ''p_accounting_coa_id : '' || p_accounting_coa_id
2369: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2365: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2366:
2367: trace( p_module => l_log_module
2368: ,p_msg => ''p_accounting_coa_id : '' || p_accounting_coa_id
2369: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2370:
2371: END IF;
2372:
2373:
2390: l_fatal_error_message := ''get_coa_info failed'';
2391: RAISE le_fatal_error;
2392: END IF;
2393:
2394: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2395:
2396: trace( p_module => l_log_module
2397: ,p_msg => ''l_gl_balancing_segment_name: '' || l_gl_balancing_segment_name
2398: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2394: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2395:
2396: trace( p_module => l_log_module
2397: ,p_msg => ''l_gl_balancing_segment_name: '' || l_gl_balancing_segment_name
2398: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2399:
2400: trace( p_module => l_log_module
2401: ,p_msg => ''l_gl_account_segment_name: '' || l_gl_account_segment_name
2402: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2398: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2399:
2400: trace( p_module => l_log_module
2401: ,p_msg => ''l_gl_account_segment_name: '' || l_gl_account_segment_name
2402: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2403:
2404: END IF;
2405:
2406:
2422: l_fatal_error_message := ''push_interface_data failed'';
2423: RAISE le_fatal_error;
2424: END IF;
2425:
2426: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level)
2427: THEN
2428: trace
2429: ( p_module => l_log_module
2430: ,p_msg => ''Number of rows pushed: '' || l_total_rows_pushed
2427: THEN
2428: trace
2429: ( p_module => l_log_module
2430: ,p_msg => ''Number of rows pushed: '' || l_total_rows_pushed
2431: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2432: END IF;
2433:
2434: --If no rows could be pushed then raise an error
2435: IF l_total_rows_pushed = 0
2528: --Move the data from the the global temporary tables back
2529: --into the global temp tables
2530: IF NOT pop_interface_data(x_total_rows_moved => l_total_rows_popped)
2531: THEN
2532: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2533: THEN
2534: trace
2535: ( p_module => l_log_module
2536: ,p_msg => ''push_interface_data failed''
2533: THEN
2534: trace
2535: ( p_module => l_log_module
2536: ,p_msg => ''push_interface_data failed''
2537: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2538: END IF;
2539: fnd_message.set_name
2540: (
2541: application => ''XLA''
2550: l_fatal_error_message := ''pop_interface_data failed'';
2551: RAISE le_fatal_error;
2552: END IF;
2553:
2554: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level)
2555: THEN
2556: trace
2557: ( p_module => l_log_module
2558: ,p_msg => ''Number of rows retrieved: '' || l_total_rows_popped
2555: THEN
2556: trace
2557: ( p_module => l_log_module
2558: ,p_msg => ''Number of rows retrieved: '' || l_total_rows_popped
2559: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2560: END IF;
2561:
2562: IF l_total_rows_pushed <> l_total_rows_popped
2563: THEN
2590:
2591: END IF;
2592:
2593: --Assign return status
2594: x_return_status := xla_cmp_tad_pkg.C_RET_STS_SUCCESS;
2595:
2596: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2597: trace
2598: ( p_module => l_log_module
2592:
2593: --Assign return status
2594: x_return_status := xla_cmp_tad_pkg.C_RET_STS_SUCCESS;
2595:
2596: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2597: trace
2598: ( p_module => l_log_module
2599: ,p_msg => ''END '' || l_log_module
2600: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2596: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2597: trace
2598: ( p_module => l_log_module
2599: ,p_msg => ''END '' || l_log_module
2600: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2601: END IF;
2602:
2603: EXCEPTION
2604: WHEN le_fatal_error
2602:
2603: EXCEPTION
2604: WHEN le_fatal_error
2605: THEN
2606: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2607: THEN
2608: trace
2609: ( p_module => l_log_module
2610: ,p_msg => ''EXCEPTION:''
2607: THEN
2608: trace
2609: ( p_module => l_log_module
2610: ,p_msg => ''EXCEPTION:''
2611: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2612: trace
2613: ( p_module => l_log_module
2614: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2615: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2611: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2612: trace
2613: ( p_module => l_log_module
2614: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2615: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2616: END IF;
2617: IF x_return_status IS NULL
2618: THEN
2619: x_return_status := xla_cmp_tad_pkg.C_RET_STS_UNEXP_ERROR;
2615: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2616: END IF;
2617: IF x_return_status IS NULL
2618: THEN
2619: x_return_status := xla_cmp_tad_pkg.C_RET_STS_UNEXP_ERROR;
2620: END IF;
2621: IF l_return_msg_name IS NOT NULL
2622: THEN
2623: --There is a detailed message to push
2637: fnd_message.set_encoded
2638: (
2639: encoded_message => x_msg_data
2640: );
2641: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2642: trace
2643: (p_module => l_log_module
2644: ,p_msg => ''END '' || l_log_module
2645: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2641: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2642: trace
2643: (p_module => l_log_module
2644: ,p_msg => ''END '' || l_log_module
2645: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2646: END IF;
2647: WHEN OTHERS
2648: THEN
2649: fnd_message.set_name(''XLA'', ''XLA_TAB_UNHANDLED_EXCEPTION'');
2664: IS
2665: le_fatal_error EXCEPTION;
2666: l_return_msg_name VARCHAR2(30);
2667:
2668: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
2669: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_V30;
2670: l_flex_delimiter VARCHAR2(1);
2671: l_concat_segments_template VARCHAR2(1000);
2672:
2665: le_fatal_error EXCEPTION;
2666: l_return_msg_name VARCHAR2(30);
2667:
2668: l_table_segment_qualifiers xla_cmp_tad_pkg.gt_table_V30_V30;
2669: l_table_segment_column_names xla_cmp_tad_pkg.gt_table_V30;
2670: l_flex_delimiter VARCHAR2(1);
2671: l_concat_segments_template VARCHAR2(1000);
2672:
2673: l_gl_balancing_segment_name VARCHAR2(30);
2683: l_fatal_error_message VARCHAR2(2000);
2684: l_log_module VARCHAR2(2000);
2685:
2686: BEGIN
2687: IF xla_cmp_tad_pkg.g_log_enabled THEN
2688: l_log_module := g_default_module||''.trans_account_def_batch'';
2689: END IF;
2690:
2691: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2687: IF xla_cmp_tad_pkg.g_log_enabled THEN
2688: l_log_module := g_default_module||''.trans_account_def_batch'';
2689: END IF;
2690:
2691: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2692: trace
2693: ( p_module => l_log_module
2694: ,p_msg => ''BEGIN '' || l_log_module
2695: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2691: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2692: trace
2693: ( p_module => l_log_module
2694: ,p_msg => ''BEGIN '' || l_log_module
2695: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2696: END IF;
2697:
2698: --Retrieve the Chart Of Accounts information
2699: IF NOT get_coa_info
2730: ,p_gl_management_segment_name => l_gl_management_segment_name
2731: ,p_fa_cost_ctr_segment_name => l_fa_cost_ctr_segment_name
2732: )
2733: THEN
2734: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2735: THEN
2736: trace
2737: ( p_module => l_log_module
2738: ,p_msg => ''apply_adr_rules failed''
2735: THEN
2736: trace
2737: ( p_module => l_log_module
2738: ,p_msg => ''apply_adr_rules failed''
2739: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2740: END IF;
2741: fnd_message.set_name
2742: (
2743: application => ''XLA''
2767: ,p_gl_management_segment_name => l_gl_management_segment_name
2768: ,p_fa_cost_ctr_segment_name => l_fa_cost_ctr_segment_name
2769: )
2770: THEN
2771: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2772: THEN
2773: trace
2774: ( p_module => l_log_module
2775: ,p_msg => ''build_code_combinations failed''
2772: THEN
2773: trace
2774: ( p_module => l_log_module
2775: ,p_msg => ''build_code_combinations failed''
2776: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2777: END IF;
2778: fnd_message.set_name
2779: (
2780: application => ''XLA''
2789: RAISE le_fatal_error;
2790: END IF;
2791:
2792: --Assign return status
2793: x_return_status := xla_cmp_tad_pkg.C_RET_STS_SUCCESS;
2794:
2795: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2796: trace
2797: ( p_module => l_log_module
2791:
2792: --Assign return status
2793: x_return_status := xla_cmp_tad_pkg.C_RET_STS_SUCCESS;
2794:
2795: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2796: trace
2797: ( p_module => l_log_module
2798: ,p_msg => ''END '' || l_log_module
2799: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2795: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2796: trace
2797: ( p_module => l_log_module
2798: ,p_msg => ''END '' || l_log_module
2799: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2800: END IF;
2801:
2802: EXCEPTION
2803: WHEN le_fatal_error
2801:
2802: EXCEPTION
2803: WHEN le_fatal_error
2804: THEN
2805: IF (xla_cmp_tad_pkg.C_LEVEL_EXCEPTION >= xla_cmp_tad_pkg.g_log_level)
2806: THEN
2807: trace
2808: ( p_module => l_log_module
2809: ,p_msg => ''EXCEPTION:''
2806: THEN
2807: trace
2808: ( p_module => l_log_module
2809: ,p_msg => ''EXCEPTION:''
2810: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2811: trace
2812: ( p_module => l_log_module
2813: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2814: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2810: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2811: trace
2812: ( p_module => l_log_module
2813: ,p_msg => ''Fatal error: '' || l_fatal_error_message
2814: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2815: END IF;
2816: IF x_return_status IS NULL
2817: THEN
2818: x_return_status := xla_cmp_tad_pkg.C_RET_STS_UNEXP_ERROR;
2814: ,p_level => xla_cmp_tad_pkg.C_LEVEL_EXCEPTION);
2815: END IF;
2816: IF x_return_status IS NULL
2817: THEN
2818: x_return_status := xla_cmp_tad_pkg.C_RET_STS_UNEXP_ERROR;
2819: END IF;
2820: IF l_return_msg_name IS NOT NULL
2821: THEN
2822: --There is a detailed message to push
2836: fnd_message.set_encoded
2837: (
2838: encoded_message => x_msg_data
2839: );
2840: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2841: trace
2842: (p_module => l_log_module
2843: ,p_msg => ''END '' || l_log_module
2844: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2840: IF (xla_cmp_tad_pkg.C_LEVEL_PROCEDURE >= xla_cmp_tad_pkg.g_log_level) THEN
2841: trace
2842: (p_module => l_log_module
2843: ,p_msg => ''END '' || l_log_module
2844: ,p_level => xla_cmp_tad_pkg.C_LEVEL_PROCEDURE);
2845: END IF;
2846: WHEN OTHERS
2847: THEN
2848: fnd_message.set_name(''XLA'', ''XLA_TAB_UNHANDLED_EXCEPTION'');
2854:
2855:
2856: --Trace initialization
2857: BEGIN
2858: xla_cmp_tad_pkg.g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2859: xla_cmp_tad_pkg.g_log_enabled := fnd_log.test
2860: (log_level => xla_cmp_tad_pkg.g_log_level
2861: ,module => g_default_module);
2862:
2855:
2856: --Trace initialization
2857: BEGIN
2858: xla_cmp_tad_pkg.g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2859: xla_cmp_tad_pkg.g_log_enabled := fnd_log.test
2860: (log_level => xla_cmp_tad_pkg.g_log_level
2861: ,module => g_default_module);
2862:
2863: IF NOT xla_cmp_tad_pkg.g_log_enabled THEN
2856: --Trace initialization
2857: BEGIN
2858: xla_cmp_tad_pkg.g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2859: xla_cmp_tad_pkg.g_log_enabled := fnd_log.test
2860: (log_level => xla_cmp_tad_pkg.g_log_level
2861: ,module => g_default_module);
2862:
2863: IF NOT xla_cmp_tad_pkg.g_log_enabled THEN
2864: xla_cmp_tad_pkg.g_log_level := xla_cmp_tad_pkg.C_LEVEL_LOG_DISABLED;
2859: xla_cmp_tad_pkg.g_log_enabled := fnd_log.test
2860: (log_level => xla_cmp_tad_pkg.g_log_level
2861: ,module => g_default_module);
2862:
2863: IF NOT xla_cmp_tad_pkg.g_log_enabled THEN
2864: xla_cmp_tad_pkg.g_log_level := xla_cmp_tad_pkg.C_LEVEL_LOG_DISABLED;
2865: END IF;
2866:
2867:
2860: (log_level => xla_cmp_tad_pkg.g_log_level
2861: ,module => g_default_module);
2862:
2863: IF NOT xla_cmp_tad_pkg.g_log_enabled THEN
2864: xla_cmp_tad_pkg.g_log_level := xla_cmp_tad_pkg.C_LEVEL_LOG_DISABLED;
2865: END IF;
2866:
2867:
2868: END $TAD_PACKAGE_NAME_1$;
2884: IF $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$ IS NOT NULL
2885: AND $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.count > 0
2886: THEN
2887: --Dump the content of the PL/SQL table
2888: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2889:
2890: trace
2891: ( p_module => l_log_module
2892: ,p_msg =>
2890: trace
2891: ( p_module => l_log_module
2892: ,p_msg =>
2893: ''Dumping content of PL/SQL table $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$''
2894: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2895:
2896: trace
2897: ( p_module => l_log_module
2898: ,p_msg =>
2896: trace
2897: ( p_module => l_log_module
2898: ,p_msg =>
2899: ''src_distr1, src_distr2, src_distr3, src_distr4, src_distr5, account_type_code, target_ccid''
2900: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2901:
2902:
2903: FOR i IN $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.FIRST..$TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.COUNT
2904: LOOP
2912: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).source_distribution_id_num_4
2913: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).source_distribution_id_num_5
2914: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).account_type_code
2915: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).target_ccid
2916: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2917:
2918: END LOOP;
2919: END IF; --Trace statement
2920:
2952: $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i);
2953:
2954: l_total_rows_moved := l_total_rows_moved + SQL%ROWCOUNT;
2955:
2956: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2957: trace
2958: ( p_module => l_log_module
2959: ,p_msg => SQL%ROWCOUNT
2960: || '' row(s) inserted into $TABLE_NAME$''
2957: trace
2958: ( p_module => l_log_module
2959: ,p_msg => SQL%ROWCOUNT
2960: || '' row(s) inserted into $TABLE_NAME$''
2961: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
2962: END IF;
2963:
2964: --Delete all the elements of the PLSQL table
2965: $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.DELETE;
2994: FROM $TABLE_NAME$ gt;
2995:
2996: l_total_rows_moved := l_total_rows_moved + SQL%ROWCOUNT;
2997:
2998: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
2999: trace
3000: (p_module => l_log_module
3001: ,p_msg => SQL%ROWCOUNT
3002: || '' row(s) read from $TABLE_NAME$''
2999: trace
3000: (p_module => l_log_module
3001: ,p_msg => SQL%ROWCOUNT
3002: || '' row(s) read from $TABLE_NAME$''
3003: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3004: END IF;
3005:
3006: --Dump the content of the PL/SQL table
3007: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
3003: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3004: END IF;
3005:
3006: --Dump the content of the PL/SQL table
3007: IF (xla_cmp_tad_pkg.C_LEVEL_STATEMENT >= xla_cmp_tad_pkg.g_log_level) THEN
3008:
3009: trace
3010: ( p_module => l_log_module
3011: ,p_msg =>
3009: trace
3010: ( p_module => l_log_module
3011: ,p_msg =>
3012: ''Dumping content of PL/SQL table $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$''
3013: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3014:
3015: trace
3016: ( p_module => l_log_module
3017: ,p_msg =>
3016: ( p_module => l_log_module
3017: ,p_msg =>
3018: ''src_distr1, src_distr2, src_distr3, src_distr4, ''
3019: ||''src_distr5, account_type_code, target_ccid, msg_count, msg_data, ''
3020: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3021:
3022: trace
3023: ( p_module => l_log_module
3024: ,p_msg => ''concatenated segments''
3021:
3022: trace
3023: ( p_module => l_log_module
3024: ,p_msg => ''concatenated segments''
3025: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3026:
3027: FOR i IN $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.FIRST..$TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$.COUNT
3028: LOOP
3029:
3038: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).account_type_code
3039: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).target_ccid
3040: ||'','' || $TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).msg_count
3041: ||'','' || SUBSTR($TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).msg_data, 1, 20)
3042: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3043: trace
3044: ( p_module => l_log_module
3045: ,p_msg =>
3046: SUBSTR($TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).concatenated_segments, 1, 25)
3043: trace
3044: ( p_module => l_log_module
3045: ,p_msg =>
3046: SUBSTR($TAB_API_PACKAGE_NAME$.$PLSQL_TABLE_NAME$(i).concatenated_segments, 1, 25)
3047: ,p_level => xla_cmp_tad_pkg.C_LEVEL_STATEMENT);
3048:
3049: END LOOP;
3050: END IF; --Trace statement
3051:
3135:
3136: --=============================================================================
3137: -- *********** Local Trace Routine **********
3138: --=============================================================================
3139: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_cmp_tad_pkg';
3140:
3141: PROCEDURE trace
3142: ( p_module IN VARCHAR2
3143: ,p_msg IN VARCHAR2
3154: WHEN xla_exceptions_pkg.application_exception THEN
3155: RAISE;
3156: WHEN OTHERS THEN
3157: xla_exceptions_pkg.raise_message
3158: ( p_location => 'xla_cmp_tad_pkg.trace'
3159: ,p_msg_mode => g_msg_mode
3160: );
3161: END trace;
3162:
3385: RAISE;
3386: WHEN OTHERS
3387: THEN
3388: xla_exceptions_pkg.raise_message
3389: ( p_location => 'xla_cmp_tad_pkg.init_global_variables'
3390: ,p_msg_mode => g_msg_mode
3391: );
3392: RETURN FALSE;
3393: END init_global_variables;
3456: EXCEPTION
3457: WHEN xla_exceptions_pkg.application_exception
3458: THEN
3459: xla_exceptions_pkg.raise_message
3460: ( p_location => 'xla_cmp_tad_pkg.update_tad_compilation_status'
3461: );
3462: WHEN OTHERS THEN
3463: xla_exceptions_pkg.raise_message
3464: ( p_location => 'xla_cmp_tad_pkg.update_tad_compilation_status'
3460: ( p_location => 'xla_cmp_tad_pkg.update_tad_compilation_status'
3461: );
3462: WHEN OTHERS THEN
3463: xla_exceptions_pkg.raise_message
3464: ( p_location => 'xla_cmp_tad_pkg.update_tad_compilation_status'
3465: ,p_msg_mode => g_msg_mode
3466: );
3467: RETURN FALSE;
3468: END update_tad_compilation_status;
3486: ,p_msg => 'BEGIN ' || l_log_module
3487: ,p_level => C_LEVEL_PROCEDURE);
3488: END IF;
3489:
3490: IF xla_cmp_tad_pkg.compile_application_tads
3491: (
3492: p_application_id => p_application_id
3493: )
3494: THEN
3529: RAISE;
3530: WHEN OTHERS
3531: THEN
3532: xla_exceptions_pkg.raise_message
3533: (p_location => 'xla_cmp_tad_pkg.compile_application_tads_srs'
3534: );
3535:
3536: END compile_application_tads_srs;
3537:
3691: RAISE;
3692: WHEN OTHERS
3693: THEN
3694: xla_exceptions_pkg.raise_message
3695: (p_location => 'xla_cmp_tad_pkg.compile_application_tads'
3696: ,p_msg_mode => g_msg_mode
3697: );
3698: RETURN FALSE;
3699: END compile_application_tads;
4114:
4115: l_adr_bodies := xla_cmp_string_pkg.replace_token
4116: ( l_adr_bodies
4117: ,'G_LOG_ENABLED'
4118: ,'xla_cmp_tad_pkg.G_LOG_ENABLED'
4119: );
4120:
4121: l_adr_bodies := xla_cmp_string_pkg.replace_token
4122: ( l_adr_bodies
4120:
4121: l_adr_bodies := xla_cmp_string_pkg.replace_token
4122: ( l_adr_bodies
4123: ,'g_log_enabled'
4124: ,'xla_cmp_tad_pkg.G_LOG_ENABLED'
4125: );
4126: l_adr_bodies := xla_cmp_string_pkg.replace_token
4127: ( l_adr_bodies
4128: ,'G_LOG_LEVEL'
4125: );
4126: l_adr_bodies := xla_cmp_string_pkg.replace_token
4127: ( l_adr_bodies
4128: ,'G_LOG_LEVEL'
4129: ,'xla_cmp_tad_pkg.G_LOG_LEVEL'
4130: );
4131: l_adr_bodies := xla_cmp_string_pkg.replace_token
4132: ( l_adr_bodies
4133: ,'g_log_level'
4130: );
4131: l_adr_bodies := xla_cmp_string_pkg.replace_token
4132: ( l_adr_bodies
4133: ,'g_log_level'
4134: ,'xla_cmp_tad_pkg.G_LOG_LEVEL'
4135: );
4136:
4137: l_adr_bodies := xla_cmp_string_pkg.replace_token
4138: ( l_adr_bodies
4141: );
4142: l_adr_bodies := xla_cmp_string_pkg.replace_token
4143: ( l_adr_bodies
4144: ,'C_LEVEL_PROCEDURE'
4145: ,'xla_cmp_tad_pkg.C_LEVEL_PROCEDURE'
4146: );
4147:
4148: --Create Package Body
4149: IF NOT create_package_body
4288: RETURN FALSE;
4289: WHEN xla_exceptions_pkg.application_exception
4290: THEN
4291: xla_exceptions_pkg.raise_message
4292: ( p_location => 'xla_cmp_tad_pkg.compile_tad'
4293: );
4294: WHEN OTHERS THEN
4295: xla_exceptions_pkg.raise_message
4296: ( p_location => 'xla_cmp_tad_pkg.compile_tad'
4292: ( p_location => 'xla_cmp_tad_pkg.compile_tad'
4293: );
4294: WHEN OTHERS THEN
4295: xla_exceptions_pkg.raise_message
4296: ( p_location => 'xla_cmp_tad_pkg.compile_tad'
4297: ,p_msg_mode => g_msg_mode
4298: );
4299: RETURN FALSE;
4300: END compile_tad;
4357: RAISE;
4358: WHEN OTHERS
4359: THEN
4360: xla_exceptions_pkg.raise_message
4361: (p_location => 'xla_cmp_tad_pkg.compile_tad_AUTONOMOUS'
4362: ,p_msg_mode => g_msg_mode
4363: );
4364: RETURN FALSE;
4365: END compile_tad_AUTONOMOUS;
4480: RAISE;
4481: WHEN OTHERS
4482: THEN
4483: xla_exceptions_pkg.raise_message
4484: (p_location => 'xla_cmp_tad_pkg.create_package_spec'
4485: ,p_msg_mode => g_msg_mode
4486: );
4487: RETURN FALSE;
4488:
4668: RAISE;
4669: WHEN OTHERS
4670: THEN
4671: xla_exceptions_pkg.raise_message
4672: (p_location => 'xla_cmp_tad_pkg.build_package_spec'
4673: ,p_msg_mode => g_msg_mode
4674: );
4675: RETURN FALSE;
4676:
4723: RAISE;
4724: WHEN OTHERS
4725: THEN
4726: xla_exceptions_pkg.raise_message
4727: (p_location => 'xla_cmp_tad_pkg.build_package_history'
4728: ,p_msg_mode => g_msg_mode
4729: );
4730: RETURN FALSE;
4731: END build_package_history;
4852: RETURN FALSE;
4853: WHEN xla_exceptions_pkg.application_exception
4854: THEN
4855: xla_exceptions_pkg.raise_message
4856: (p_location => 'xla_cmp_tad_pkg.create_package_body'
4857: ,p_msg_mode => 'NON_STANDARD'
4858: );
4859: RETURN FALSE;
4860: WHEN OTHERS
4859: RETURN FALSE;
4860: WHEN OTHERS
4861: THEN
4862: xla_exceptions_pkg.raise_message
4863: (p_location => 'xla_cmp_tad_pkg.create_package_body'
4864: ,p_msg_mode => g_msg_mode
4865: );
4866: RETURN FALSE;
4867: END create_package_body;
5169: RAISE;
5170: WHEN OTHERS
5171: THEN
5172: xla_exceptions_pkg.raise_message
5173: (p_location => 'xla_cmp_tad_pkg.build_package_body'
5174: ,p_msg_mode => g_msg_mode
5175: );
5176: RETURN FALSE;
5177: END build_package_body;
5519: RAISE;
5520: WHEN OTHERS
5521: THEN
5522: xla_exceptions_pkg.raise_message
5523: (p_location => 'xla_cmp_tad_pkg.build_batch_update_statements'
5524: ,p_msg_mode => g_msg_mode
5525: );
5526: RETURN FALSE;
5527: END build_batch_update_statements;
5827: RAISE;
5828: WHEN OTHERS
5829: THEN
5830: xla_exceptions_pkg.raise_message
5831: (p_location => 'xla_cmp_tad_pkg.build_static_ccid_prc_stmts'
5832: ,p_msg_mode => g_msg_mode
5833: );
5834: RETURN FALSE;
5835: END build_static_ccid_prc_stmts;
6086: RETURN FALSE;
6087: WHEN xla_exceptions_pkg.application_exception
6088: THEN
6089: xla_exceptions_pkg.raise_message
6090: ( p_location => 'xla_cmp_tad_pkg.build_move_interf_data_stmts'
6091: ,p_msg_mode => 'NON_STANDARD'
6092: );
6093: RETURN FALSE;
6094: WHEN OTHERS
6093: RETURN FALSE;
6094: WHEN OTHERS
6095: THEN
6096: xla_exceptions_pkg.raise_message
6097: ( p_location => 'xla_cmp_tad_pkg.build_move_interf_data_stmts'
6098: ,p_msg_mode => g_msg_mode
6099: );
6100: RETURN FALSE;
6101: END build_move_interf_data_stmts;
6203: RAISE;
6204: WHEN OTHERS
6205: THEN
6206: xla_exceptions_pkg.raise_message
6207: (p_location => 'xla_cmp_tad_pkg.get_tad_package_name'
6208: ,p_msg_mode => g_msg_mode
6209: );
6210: RETURN FALSE;
6211: END get_tad_package_name;
6416: RAISE;
6417: WHEN OTHERS
6418: THEN
6419: xla_exceptions_pkg.raise_message
6420: (p_location => 'xla_cmp_tad_pkg.get_tad_package_name'
6421: ,p_msg_mode => g_msg_mode
6422: );
6423: RETURN FALSE;
6424: END get_tad_package_name;
6574: RAISE;
6575: WHEN OTHERS
6576: THEN
6577: xla_exceptions_pkg.raise_message
6578: (p_location => 'xla_cmp_tad_pkg.get_coa_info'
6579: ,p_msg_mode => g_msg_mode
6580: );
6581: RETURN FALSE;
6582: END get_coa_info;
6597: IF NOT g_log_enabled THEN
6598: g_log_level := C_LEVEL_LOG_DISABLED;
6599: END IF;
6600:
6601: END xla_cmp_tad_pkg;