[Home] [Help]
1: PACKAGE BODY xla_reference_objects_f_pkg AS
2: /* $Header: xlatbrfo.pkb 120.4 2006/08/25 20:53:16 weshen noship $ */
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_reference_objects_f_pkg |
10: | |
11: | DESCRIPTION |
12: | Forms PL/SQL Wrapper for xla_reference_objects |
13: | |
8: | PACKAGE NAME |
9: | xla_reference_objects_f_pkg |
10: | |
11: | DESCRIPTION |
12: | Forms PL/SQL Wrapper for xla_reference_objects |
13: | |
14: | HISTORY |
15: | 2005/03/20 M. Asada Created. |
16: | |
26: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
28:
29: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
30: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_reference_objects_f_pkg';
31:
32: g_debug_flag VARCHAR2(1) :=
33: NVL(fnd_profile.value('XLA_DEBUG_TRACE'),'N');
34:
54: RAISE;
55:
56: WHEN OTHERS THEN
57: xla_exceptions_pkg.raise_message
58: (p_location => 'xla_reference_objects_f_pkg.trace');
59: END trace;
60:
61:
62:
86: IS
87:
88: CURSOR c IS
89: SELECT rowid
90: FROM xla_reference_objects
91: WHERE application_id = x_application_id
92: AND entity_code = x_entity_code
93: AND event_class_code = x_event_class_code
94: AND object_name = x_object_name
108: p_module => l_log_module,
109: p_level => C_LEVEL_PROCEDURE);
110: END IF;
111:
112: INSERT INTO xla_reference_objects
113: (creation_date
114: ,created_by
115: ,application_id
116: ,entity_code
189: ,linked_to_ref_obj_appl_id
190: ,linked_to_ref_obj_name
191: ,join_condition
192: ,always_populated_flag
193: FROM xla_reference_objects
194: WHERE application_id = x_application_id
195: AND entity_code = x_entity_code
196: AND event_class_code = x_event_class_code
197: AND object_name = x_object_name
285: p_module => l_log_module,
286: p_level => C_LEVEL_PROCEDURE);
287: END IF;
288:
289: UPDATE xla_reference_objects
290: SET
291: last_update_date = x_last_update_date
292: ,join_condition = x_join_condition
293: ,always_populated_flag = x_always_populated_flag
341: p_level => C_LEVEL_PROCEDURE);
342: END IF;
343:
344: DELETE
345: FROM xla_reference_objects
346: WHERE application_id = x_application_id
347: AND entity_code = x_entity_code
348: AND event_class_code = x_event_class_code
349: AND object_name = x_object_name
421: BEGIN
422:
423: SELECT last_updated_by, last_update_date
424: INTO db_luby, db_ludate
425: FROM xla_reference_objects
426: WHERE application_id = l_application_id
427: AND entity_code = p_entity_code
428: AND event_class_code = p_event_class_code
429: AND object_name = p_object_name
430: AND reference_object_appl_id = p_reference_object_appl_id
431: AND reference_object_name = p_reference_object_name;
432:
433: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, NULL)) THEN
434: xla_reference_objects_f_pkg.update_row
435: (x_application_id => l_application_id
436: ,x_entity_code => p_entity_code
437: ,x_event_class_code => p_event_class_code
438: ,x_object_name => p_object_name
447: END IF;
448:
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: xla_reference_objects_f_pkg.insert_row
452: (x_rowid => l_rowid
453: ,x_application_id => l_application_id
454: ,x_entity_code => p_entity_code
455: ,x_event_class_code => p_event_class_code
478: WHEN NO_DATA_FOUND THEN
479: null;
480: WHEN OTHERS THEN
481: xla_exceptions_pkg.raise_message
482: (p_location => 'xla_reference_objects_f_pkg.load_row');
483:
484: END load_row;
485:
486: --=============================================================================
499: g_log_level := C_LEVEL_LOG_DISABLED;
500: END IF;
501:
502:
503: END xla_reference_objects_f_pkg;