1: PACKAGE BODY xla_security_pkg AS
2: -- $Header: xlacmsec.pkb 120.24 2006/08/11 17:53:46 wychan ship $
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
8: | FILENAME |
9: | xlacmsec.pkb |
10: | |
11: | PACKAGE NAME |
12: | xla_security_pkg |
13: | |
14: | DESCRIPTION |
15: | XLA security package that contains code related to implementation of |
16: | 'Transaction Security' on accounting events. |
53: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
54: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
55:
56: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
57: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_security_pkg';
58:
59: g_log_level NUMBER;
60: g_log_enabled BOOLEAN;
61:
74: WHEN xla_exceptions_pkg.application_exception THEN
75: RAISE;
76: WHEN OTHERS THEN
77: xla_exceptions_pkg.raise_message
78: (p_location => 'xla_security_pkg.trace');
79: END trace;
80:
81: --=============================================================================
82: -- *********** public procedures and functions **********
333: xla_exceptions_pkg.raise_message
334: (p_appli_s_name => 'XLA'
335: ,p_msg_name => 'XLA_COMMON_ERROR'
336: ,p_token_1 => 'LOCATION'
337: ,p_value_1 => 'xla_security_pkgset_security_context'
338: ,p_token_2 => 'APPLICATION_NAME'
339: ,p_value_2 => l_appl_name);
340: EXCEPTION
341: WHEN NO_DATA_FOUND THEN
342: xla_exceptions_pkg.raise_message
343: (p_appli_s_name => 'XLA'
344: ,p_msg_name => 'XLA_COMMON_ERROR'
345: ,p_token_1 => 'LOCATION'
346: ,p_value_1 => 'xla_security_pkgset_security_context'
347: ,p_token_2 => 'APPLICATION_ID'
348: ,p_value_2 => TO_CHAR(p_application_id));
349: END;
350: WHEN OTHERS THEN
348: ,p_value_2 => TO_CHAR(p_application_id));
349: END;
350: WHEN OTHERS THEN
351: xla_exceptions_pkg.raise_message
352: (p_location => 'xla_security_pkgset_security_context');
353: END set_security_context;
354:
355:
356: --=============================================================================
550: xla_exceptions_pkg.raise_message
551: (p_appli_s_name => 'XLA'
552: ,p_msg_name => 'XLA_COMMON_ERROR'
553: ,p_token_1 => 'LOCATION'
554: ,p_value_1 => 'xla_security_pkgset_subledger_security'
555: ,p_token_2 => 'APPLICATION_ID'
556: ,p_value_2 => TO_CHAR(p_application_id));
557: WHEN OTHERS THEN
558: xla_exceptions_pkg.raise_message
555: ,p_token_2 => 'APPLICATION_ID'
556: ,p_value_2 => TO_CHAR(p_application_id));
557: WHEN OTHERS THEN
558: xla_exceptions_pkg.raise_message
559: (p_location => 'xla_security_pkgset_subledger_security');
560: END set_subledger_security;
561:
562:
563: --=============================================================================
600: IF NOT g_log_enabled THEN
601: g_log_level := C_LEVEL_LOG_DISABLED;
602: END IF;
603:
604: END xla_security_pkg;