1: PACKAGE BODY xla_control_accounts_pkg AS
2: /* $Header: xlabacta.pkb 120.13 2006/07/17 16:41:13 weshen 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_control_accounts_pkg |
10: | |
11: | DESCRIPTION |
12: | XLA Control Accounts Package |
13: | |
81: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
82: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
83:
84: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
85: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_control_accounts_pkg';
86:
87: g_log_level NUMBER;
88: g_log_enabled BOOLEAN;
89:
105: WHEN xla_exceptions_pkg.application_exception THEN
106: RAISE;
107: WHEN OTHERS THEN
108: xla_exceptions_pkg.raise_message
109: (p_location => 'xla_control_accounts_pkg.trace');
110: END trace;
111:
112:
113:
185: ,'ERROR'
186: ,'Code combination id '||p_code_combination_id || ' not found.'
187: || ' in the table gl_code_combinations'
188: ,'LOCATION'
189: ,'xla_control_accounts_pkg.is_control_account');
190: WHEN OTHERS THEN
191: xla_exceptions_pkg.raise_message
192: (p_location => 'xla_control_accounts_pkg.is_control_account');
193: END;
188: ,'LOCATION'
189: ,'xla_control_accounts_pkg.is_control_account');
190: WHEN OTHERS THEN
191: xla_exceptions_pkg.raise_message
192: (p_location => 'xla_control_accounts_pkg.is_control_account');
193: END;
194:
195: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
196: trace
234: ,'ERROR'
235: ,'Application id '||p_application_id || ' not found.'
236: || ' in the table xla_subledgers'
237: ,'LOCATION'
238: ,'xla_control_accounts_pkg.is_control_account');
239: WHEN OTHERS THEN
240: xla_exceptions_pkg.raise_message
241: (p_location => 'xla_control_accounts_pkg.is_control_account');
242: END;
237: ,'LOCATION'
238: ,'xla_control_accounts_pkg.is_control_account');
239: WHEN OTHERS THEN
240: xla_exceptions_pkg.raise_message
241: (p_location => 'xla_control_accounts_pkg.is_control_account');
242: END;
243:
244: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
245: trace
287: ,'XLA_COMMON_ERROR'
288: ,'ERROR'
289: ,'p_natural_account NOT NULL: functionality not implemented'
290: ,'LOCATION'
291: ,'xla_control_accounts_pkg.is_control_account');
292: END IF;
293:
294: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
295: trace
302: WHEN xla_exceptions_pkg.application_exception THEN
303: RAISE;
304: WHEN OTHERS THEN
305: xla_exceptions_pkg.raise_message
306: (p_location => 'xla_control_accounts_pkg.is_control_account');
307: END is_control_account;
308:
309:
310: FUNCTION update_balance_flag ( p_application_id IN INTEGER
350: ,p_level => C_LEVEL_EXCEPTION
351: );
352: END IF;
353: xla_exceptions_pkg.raise_message
354: (p_location => 'xla_control_accounts_pkg.update_balance_flag');
355: END IF;
356:
357: IF p_ae_line_num IS NULL
358: THEN
428: WHEN xla_exceptions_pkg.application_exception THEN
429: RAISE;
430: WHEN OTHERS THEN
431: xla_exceptions_pkg.raise_message
432: (p_location => 'xla_control_accounts_pkg.update_balance_flag');
433: END update_balance_flag;
434:
435:
436: FUNCTION update_balance_flag ( p_event_id IN INTEGER
483: ,p_level => C_LEVEL_EXCEPTION
484: );
485: END IF;
486: xla_exceptions_pkg.raise_message
487: (p_location => 'xla_control_accounts_pkg.update_balance_flag');
488: END IF;
489:
490: --WARNING: This is 3 of 3 similar update statements
491: -- Ensure changes are propagated
529: WHEN xla_exceptions_pkg.application_exception THEN
530: RAISE;
531: WHEN OTHERS THEN
532: xla_exceptions_pkg.raise_message
533: (p_location => 'xla_control_accounts_pkg.update_balance_flag');
534: END update_balance_flag;
535:
536: BEGIN
537: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
542: IF NOT g_log_enabled THEN
543: g_log_level := C_LEVEL_LOG_DISABLED;
544: END IF;
545:
546: END xla_control_accounts_pkg;