[Home] [Help]
1: PACKAGE BODY xla_event_classes_f_pkg AS
2: /* $Header: xlathevc.pkb 120.18.12010000.1 2008/07/29 10:09:35 appldev ship $ */
3: /*======================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
27: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
29:
30: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
31: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_event_classes_f_pkg';
32:
33: g_debug_flag VARCHAR2(1) :=
34: NVL(fnd_profile.value('XLA_DEBUG_TRACE'),'N');
35:
55: RAISE;
56:
57: WHEN OTHERS THEN
58: xla_exceptions_pkg.raise_message
59: (p_location => 'xla_event_classes_f_pkg.trace');
60: END trace;
61:
62: /*======================================================================+
63: | |
561: AND entity_code = p_entity_code
562: AND event_class_code = p_event_class_code;
563:
564: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, NULL)) THEN
565: xla_event_classes_f_pkg.update_row
566: (x_application_id => l_application_id
567: ,x_entity_code => p_entity_code
568: ,x_event_class_code => p_event_class_code
569: ,x_enabled_flag => p_enabled_flag
576: END IF;
577:
578: EXCEPTION
579: WHEN NO_DATA_FOUND THEN
580: xla_event_classes_f_pkg.insert_row
581: (x_rowid => l_rowid
582: ,x_application_id => l_application_id
583: ,x_entity_code => p_entity_code
584: ,x_event_class_code => p_event_class_code
602: WHEN NO_DATA_FOUND THEN
603: null;
604: WHEN OTHERS THEN
605: xla_exceptions_pkg.raise_message
606: (p_location => 'xla_event_classes_f_pkg.load_row');
607:
608: END load_row;
609:
610: --=============================================================================
713: IF NOT g_log_enabled THEN
714: g_log_level := C_LEVEL_LOG_DISABLED;
715: END IF;
716:
717: end xla_event_classes_f_PKG;