[Home] [Help]
1: PACKAGE BODY xla_compile_pad_pkg AS
2: /* $Header: xlacpcmp.pkb 120.9 2005/04/28 18:43:40 masada ship $ */
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_compile_pad_pkg |
10: | |
11: | DESCRIPTION |
12: | This is a XLA private package, which contains all the APIs required |
13: | for compilation of Product Accounting definition |
16: | HISTORY |
17: | 15-JUL-2002 K.Boussema Created |
18: | 19-MAR-2003 K.Boussema Added amb_context_code column |
19: | 27-MAR-2003 K.Boussema changed package name xla_compile_pkg by |
20: | xla_compile_pad_pkg |
21: | 22-APR-2003 K.Boussema Included error messages |
22: | 23-FEB-2004 K.Boussema Made changes for the FND_LOG. |
23: | 22-MAR-2004 K.Boussema Added a parameter p_module to the TRACE calls|
24: | and the procedure. |
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
40:
41: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
42: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_compile_pad_pkg';
43:
44: g_log_level NUMBER;
45: g_log_enabled BOOLEAN;
46:
63: WHEN xla_exceptions_pkg.application_exception THEN
64: RAISE;
65: WHEN OTHERS THEN
66: xla_exceptions_pkg.raise_message
67: (p_location => 'xla_compile_pad_pkg.trace');
68: END trace;
69:
70:
71: --+==========================================================================+
172: WHEN xla_exceptions_pkg.application_exception THEN
173: RAISE;
174: WHEN OTHERS THEN
175: xla_exceptions_pkg.raise_message
176: (p_location => 'xla_compile_pad_pkg.get_compile_status');
177: END get_compile_status;
178: --
179: --
180: /*======================================================================+
246: xla_exceptions_pkg.raise_message
247: ('XLA'
248: ,'XLA_CMP_COMPILER_ERROR'
249: ,'PROCEDURE'
250: ,'xla_compile_pad_pkg.set_compile_status'
251: ,'ERROR'
252: ,'INVALID COMPILER STATUS'
253: );
254:
256: --
257: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
258:
259: trace
260: (p_msg => '< END xla_compile_pad_pkg.set_compile_status'
261: ,p_level => C_LEVEL_PROCEDURE
262: ,p_module => l_log_module);
263:
264: END IF;
267: WHEN xla_exceptions_pkg.application_exception THEN
268: RAISE;
269: WHEN OTHERS THEN
270: xla_exceptions_pkg.raise_message
271: (p_location => 'xla_compile_pad_pkg.set_compile_status');
272: END set_compile_status;
273: --
274: --
275: /*======================================================================+
360: xla_exceptions_pkg.raise_message
361: ('XLA'
362: ,'XLA_CMP_COMPILER_ERROR'
363: ,'PROCEDURE'
364: ,'xla_compile_pad_pkg.CompileProductRule'
365: ,'ERROR'
366: ,'INVALID COMPILER STATUS'
367: );
368:
384: l_compile_flag:= FALSE;
385: RETURN l_compile_flag;
386: WHEN OTHERS THEN
387: xla_exceptions_pkg.raise_message
388: (p_location => 'xla_compile_pad_pkg.CompileProductRule');
389: END CompileProductRule;
390: --
391: --
392: /*======================================================================+
446: WHEN xla_exceptions_pkg.application_exception THEN
447: RAISE;
448: WHEN OTHERS THEN
449: xla_exceptions_pkg.raise_message
450: (p_location => 'xla_compile_pad_pkg.Compile');
451: END Compile;
452: --=============================================================================
453: --
454: --
487: IF NOT g_log_enabled THEN
488: g_log_level := C_LEVEL_LOG_DISABLED;
489: END IF;
490: --
491: END xla_compile_pad_pkg; -- end of package spec