1: PACKAGE BODY xla_cmp_common_pkg AS
2: /* $Header: xlacpcom.pkb 120.3 2006/06/16 00:55:17 jlarre ship $ */
3: /*======================================================================+
4: | Copyright (c) 1995-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
71: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
72: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
73:
74: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
75: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_cmp_common_pkg';
76:
77: g_log_level NUMBER;
78: g_log_enabled BOOLEAN;
79:
96: WHEN xla_exceptions_pkg.application_exception THEN
97: RAISE;
98: WHEN OTHERS THEN
99: xla_exceptions_pkg.raise_message
100: (p_location => 'xla_cmp_common_pkg.trace');
101: END trace;
102:
103:
104: FUNCTION get_application_info
214: WHEN xla_exceptions_pkg.application_exception THEN
215: RAISE;
216: WHEN OTHERS THEN
217: xla_exceptions_pkg.raise_message
218: (p_location => 'xla_cmp_common_pkg.get_application_info');
219:
220: END get_application_info;
221:
222:
273: WHEN xla_exceptions_pkg.application_exception THEN
274: RAISE;
275: WHEN OTHERS THEN
276: xla_exceptions_pkg.raise_message
277: (p_location => 'xla_cmp_common_pkg.get_user_name');
278:
279: END get_user_name;
280:
281:
527: WHEN xla_exceptions_pkg.application_exception THEN
528: RAISE;
529: WHEN OTHERS THEN
530: xla_exceptions_pkg.raise_message
531: (p_location => 'xla_cmp_common_pkg.clob_to_varchar2s');
532: END clob_to_varchar2s;
533:
534:
535:
577: WHEN xla_exceptions_pkg.application_exception THEN
578: RAISE;
579: WHEN OTHERS THEN
580: xla_exceptions_pkg.raise_message
581: (p_location => 'xla_cmp_common_pkg.varchar2s_to_clob');
582: END varchar2s_to_clob;
583:
584:
585:
648: WHEN xla_exceptions_pkg.application_exception THEN
649: RAISE;
650: WHEN OTHERS THEN
651: xla_exceptions_pkg.raise_message
652: (p_location => 'xla_cmp_common_pkg.dump_text');
653: END dump_text;
654:
655: PROCEDURE dump_text
656: (
694: WHEN xla_exceptions_pkg.application_exception THEN
695: RAISE;
696: WHEN OTHERS THEN
697: xla_exceptions_pkg.raise_message
698: (p_location => 'xla_cmp_common_pkg.dump_text');
699: END dump_text;
700:
701: PROCEDURE dump_text
702: (
763: WHEN xla_exceptions_pkg.application_exception THEN
764: RAISE;
765: WHEN OTHERS THEN
766: xla_exceptions_pkg.raise_message
767: (p_location => 'xla_cmp_common_pkg.dump_text');
768: END dump_text;
769:
770:
771: FUNCTION bool_to_char(p_boolean IN BOOLEAN)
795: WHEN xla_exceptions_pkg.application_exception THEN
796: RAISE;
797: WHEN OTHERS THEN
798: xla_exceptions_pkg.raise_message
799: (p_location => 'xla_cmp_common_pkg.bool_to_char');
800: END bool_to_char;
801:
802:
803: FUNCTION replace_token
862: WHEN xla_exceptions_pkg.application_exception THEN
863: RAISE;
864: WHEN OTHERS THEN
865: xla_exceptions_pkg.raise_message
866: (p_location => 'xla_cmp_common_pkg.replace_token');
867: END replace_token;
868:
869:
870: --Trace initialization
877: IF NOT g_log_enabled THEN
878: g_log_level := C_LEVEL_LOG_DISABLED;
879: END IF;
880:
881: END xla_cmp_common_pkg;