1: PACKAGE BODY GCS_CREATE_LEVELS_PKG AS
2: /* $Header: gcslevelb.pls 120.2 2005/09/15 18:25:05 skamdar noship $ */
3: -- Store the log level
4: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
1: PACKAGE BODY GCS_CREATE_LEVELS_PKG AS
2: /* $Header: gcslevelb.pls 120.2 2005/09/15 18:25:05 skamdar noship $ */
3: -- Store the log level
4: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
9: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
2: /* $Header: gcslevelb.pls 120.2 2005/09/15 18:25:05 skamdar noship $ */
3: -- Store the log level
4: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
9: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
10:
3: -- Store the log level
4: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
9: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
10:
11: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
4: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
9: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
10:
11: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
12:
5: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
6: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
7: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
8: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
9: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
10:
11: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
12:
13:
56: NO_VALUE_SET_FOUND EXCEPTION;
57:
58: BEGIN
59:
60: runtimeLogLevel := FND_LOG.g_current_runtime_level;
61:
62: IF (procedureloglevel >= runtimeloglevel ) THEN
63: FND_LOG.STRING(procedureloglevel, 'gcs.plsql.gcs_create_levels_pkg.gcs_create_level.begin' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, 'DD-MON-YYYY HH:MI:SS'));
64: END IF;
59:
60: runtimeLogLevel := FND_LOG.g_current_runtime_level;
61:
62: IF (procedureloglevel >= runtimeloglevel ) THEN
63: FND_LOG.STRING(procedureloglevel, 'gcs.plsql.gcs_create_levels_pkg.gcs_create_level.begin' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, 'DD-MON-YYYY HH:MI:SS'));
64: END IF;
65: IF (statementloglevel >= runtimeloglevel ) THEN
66: FND_LOG.STRING(statementloglevel, 'gcs.plsql.gcs_create_levels_pkg.gcs_create_level', 'p_dimension = ' || p_dimension);
67: END IF;
62: IF (procedureloglevel >= runtimeloglevel ) THEN
63: FND_LOG.STRING(procedureloglevel, 'gcs.plsql.gcs_create_levels_pkg.gcs_create_level.begin' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, 'DD-MON-YYYY HH:MI:SS'));
64: END IF;
65: IF (statementloglevel >= runtimeloglevel ) THEN
66: FND_LOG.STRING(statementloglevel, 'gcs.plsql.gcs_create_levels_pkg.gcs_create_level', 'p_dimension = ' || p_dimension);
67: END IF;
68:
69: FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter || 'Gcs_Create_Levels' || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
70:
280: --A logString call is made at the exception raise point
281: errbuf := FND_MESSAGE.get;
282: retcode := '0';
283: IF (unexpectedloglevel >= runtimeloglevel ) THEN
284: FND_LOG.STRING(unexpectedloglevel, 'gcs.plsql.GCS_EPB_CREATE_LEVELS_PKG.GCS_EPB_CREATE_LEVEL', 'SUBMISSION_FAILED');
285: END IF;
286: RAISE;
287: WHEN REQUEST_ERROR THEN
288: --An error msg is placed on the stack at the exception raise point
289: --A logString call is made at the exception raise point
290: errbuf := FND_MESSAGE.get;
291: retcode := '0';
292: IF (unexpectedloglevel >= runtimeloglevel ) THEN
293: FND_LOG.STRING(unexpectedloglevel, 'gcs.plsql.GCS_EPB_CREATE_LEVELS_PKG.GCS_EPB_CREATE_LEVEL', 'REQUEST_ERROR');
294: END IF;
295: RAISE;
296:
297: WHEN NO_DATA_FOUND THEN
295: RAISE;
296:
297: WHEN NO_DATA_FOUND THEN
298: IF (unexpectedloglevel >= runtimeloglevel ) THEN
299: FND_LOG.STRING(unexpectedloglevel, 'gcs.plsql.GCS_EPB_CREATE_LEVELS_PKG.GCS_EPB_CREATE_LEVEL', 'GCS_NO_DATA_FOUND');
300: END IF;
301: retcode := '0';
302: errbuf := 'GCS_NO_DATA_FOUND';
303: RAISE NO_DATA_FOUND;
304:
305: WHEN OTHERS THEN
306: errbuf := substr( SQLERRM, 1, 2000);
307: IF (unexpectedloglevel >= runtimeloglevel ) THEN
308: FND_LOG.STRING(unexpectedloglevel, 'gcs.plsql.GCS_EPB_CREATE_LEVELS_PKG.GCS_EPB_CREATE_LEVEL', errbuf);
309: END IF;
310: retcode := '0';
311: RAISE;
312: