[Home] [Help]
1: PACKAGE BODY xla_extract_objects_f_pkg AS
2: /* $Header: xlatbexo.pkb 120.7 2005/04/28 18:45:42 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_extract_objects |
10: | |
11: | DESCRIPTION |
12: | Forms PL/SQL Wrapper for xla_extract_objects |
13: | |
8: | PACKAGE NAME |
9: | xla_extract_objects |
10: | |
11: | DESCRIPTION |
12: | Forms PL/SQL Wrapper for xla_extract_objects |
13: | |
14: | HISTORY |
15: | Generated from XLAUTB. |
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_extract_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_extract_objects_f_pkg.trace');
59: END trace;
60:
61:
62:
82: IS
83:
84: CURSOR c IS
85: SELECT rowid
86: FROM xla_extract_objects
87: WHERE application_id = x_application_id
88: AND entity_code = x_entity_code
89: AND event_class_code = x_event_class_code
90: AND object_name = x_object_name
102: p_module => l_log_module,
103: p_level => C_LEVEL_PROCEDURE);
104: END IF;
105:
106: INSERT INTO xla_extract_objects
107: (creation_date
108: ,created_by
109: ,application_id
110: ,entity_code
167: ,event_class_code
168: ,object_name
169: ,object_type_code
170: ,always_populated_flag
171: FROM xla_extract_objects
172: WHERE application_id = x_application_id
173: AND entity_code = x_entity_code
174: AND event_class_code = x_event_class_code
175: AND object_name = x_object_name
251: p_module => l_log_module,
252: p_level => C_LEVEL_PROCEDURE);
253: END IF;
254:
255: UPDATE xla_extract_objects
256: SET
257: last_update_date = x_last_update_date
258: ,object_type_code = x_object_type_code
259: ,always_populated_flag = x_always_populated_flag
302: p_module => l_log_module,
303: p_level => C_LEVEL_PROCEDURE);
304: END IF;
305:
306: DELETE FROM xla_extract_objects
307: WHERE application_id = x_application_id
308: AND entity_code = x_entity_code
309: AND event_class_code = x_event_class_code
310: AND object_name = x_object_name
377: BEGIN
378:
379: SELECT last_updated_by, last_update_date
380: INTO db_luby, db_ludate
381: FROM xla_extract_objects
382: WHERE application_id = l_application_id
383: AND entity_code = p_entity_code
384: AND event_class_code = p_event_class_code
385: AND object_name = p_object_name;
384: AND event_class_code = p_event_class_code
385: AND object_name = p_object_name;
386:
387: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, NULL)) THEN
388: xla_extract_objects_f_pkg.update_row
389: (x_application_id => l_application_id
390: ,x_entity_code => p_entity_code
391: ,x_event_class_code => p_event_class_code
392: ,x_object_name => p_object_name
399: END IF;
400:
401: EXCEPTION
402: WHEN NO_DATA_FOUND THEN
403: xla_extract_objects_f_pkg.insert_row
404: (x_rowid => l_rowid
405: ,x_application_id => l_application_id
406: ,x_entity_code => p_entity_code
407: ,x_event_class_code => p_event_class_code
426: WHEN NO_DATA_FOUND THEN
427: null;
428: WHEN OTHERS THEN
429: xla_exceptions_pkg.raise_message
430: (p_location => 'xla_extract_objects_f_pkg.load_row');
431:
432: END load_row;
433:
434: --=============================================================================
447: g_log_level := C_LEVEL_LOG_DISABLED;
448: END IF;
449:
450:
451: end xla_extract_objects_f_pkg;