1: PACKAGE BODY XLA_EXTRACT_INTEGRITY_PKG AS
2: /* $Header: xlaamext.pkb 120.46.12020000.3 2013/03/29 14:36:52 sragadde 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_integrity_pkg |
10: | |
11: | DESCRIPTION |
12: | This is the body of the package that checks the extract integrity |
13: | for an event class and creates sources and source assignments for the |
89: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
90: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
91: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
92:
93: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_extract_integrity_pkg';
94:
95: g_trace_label VARCHAR2(240);
96: g_log_level NUMBER;
97: g_log_enabled BOOLEAN;
124: WHEN xla_exceptions_pkg.application_exception THEN
125: RAISE;
126: WHEN OTHERS THEN
127: xla_exceptions_pkg.raise_message
128: (p_location => 'xla_extract_integrity_pkg.trace');
129: END trace;
130:
131: --=============================================================================
132: -- *********** public procedures and functions **********
225: -- Initialize the error package
226: Xla_amb_setup_err_pkg.initialize;
227:
228: -- Get the extract object owner and store in GT table.
229: xla_extract_integrity_pkg.set_extract_object_owner
230: (p_application_id => l_application_id
231: ,p_entity_code => l_entity_code
232: ,p_event_class_code => l_event_class_code
233: );
232: ,p_event_class_code => l_event_class_code
233: );
234:
235: -- Validate extract objects
236: IF NOT Xla_extract_integrity_pkg.validate_extract_objects
237: (p_application_id => l_application_id
238: ,p_entity_code => l_entity_code
239: ,p_event_class_code => l_event_class_code) THEN
240:
267:
268: ELSIF p_processing_mode = 'VALIDATE' THEN
269:
270: -- Validate sources with the extract objects
271: IF NOT Xla_extract_integrity_pkg.Validate_sources
272: (p_application_id => l_application_id
273: ,p_entity_code => l_entity_code
274: ,p_event_class_code => l_event_class_code) THEN
275: l_return := FALSE;
300: WHEN xla_exceptions_pkg.application_exception THEN
301: RAISE;
302: WHEN OTHERS THEN
303: xla_exceptions_pkg.raise_message
304: (p_location => 'xla_extract_integrity_pkg.check_extract_integrity');
305: END Check_extract_integrity; -- end of function
306:
307: /*======================================================================+
308: | |
617: WHEN xla_exceptions_pkg.application_exception THEN
618: RAISE;
619: WHEN OTHERS THEN
620: xla_exceptions_pkg.raise_message
621: (p_location => 'xla_extract_integrity_pkg.validate_extract_objects');
622: END validate_extract_objects; -- end of function
623:
624: /*======================================================================+
625: | |
724: INTO l_exist;
725: IF c_gt_sources%found THEN
726:
727: -- Call the function to validate all sources in the GT table
728: IF NOT Xla_extract_integrity_pkg.validate_sources_with_extract
729: (p_application_id => l_application_id
730: ,p_entity_code => l_entity_code
731: ,p_event_class_code => l_event_class_code) THEN
732: l_return := FALSE;
747: WHEN xla_exceptions_pkg.application_exception THEN
748: RAISE;
749: WHEN OTHERS THEN
750: xla_exceptions_pkg.raise_message
751: (p_location => 'xla_extract_integrity_pkg.validate_sources');
752: END Validate_sources; -- end of function
753:
754: /*======================================================================+
755: | |
1760: WHEN xla_exceptions_pkg.application_exception THEN
1761: RAISE;
1762: WHEN OTHERS THEN
1763: xla_exceptions_pkg.raise_message
1764: (p_location => 'xla_extract_integrity_pkg.validate_sources_with_extract');
1765: END validate_sources_with_extract; -- end of function
1766:
1767: /*======================================================================+
1768: | |
2100: WHEN xla_exceptions_pkg.application_exception THEN
2101: RAISE;
2102: WHEN OTHERS THEN
2103: xla_exceptions_pkg.raise_message
2104: (p_location => 'xla_extract_integrity_pkg.set_extract_object_owner');
2105: END Set_extract_object_owner; -- end of procedure
2106:
2107:
2108: --=============================================================================
2985: WHEN xla_exceptions_pkg.application_exception THEN
2986: RAISE;
2987: WHEN OTHERS THEN
2988: xla_exceptions_pkg.raise_message
2989: (p_location => 'xla_extract_integrity_pkg.Chk_primary_keys_exist');
2990: END Chk_primary_keys_exist; -- end of function
2991:
2992: /*======================================================================+
2993: | |
3555: WHEN xla_exceptions_pkg.application_exception THEN
3556: RAISE;
3557: WHEN OTHERS THEN
3558: xla_exceptions_pkg.raise_message
3559: (p_location => 'xla_extract_integrity_pkg.validate_accounting_sources');
3560: END Validate_accounting_sources; -- end of function
3561:
3562: /*======================================================================+
3563: | |
4237: WHEN xla_exceptions_pkg.application_exception THEN
4238: RAISE;
4239: WHEN OTHERS THEN
4240: xla_exceptions_pkg.raise_message
4241: (p_location => 'xla_extract_integrity_pkg.Create_sources');
4242: END Create_sources; -- end of procedure
4243:
4244: /*======================================================================+
4245: | |
5403: WHEN xla_exceptions_pkg.application_exception THEN
5404: RAISE;
5405: WHEN OTHERS THEN
5406: xla_exceptions_pkg.raise_message
5407: (p_location => 'xla_extract_integrity_pkg.Assign_sources');
5408: END Assign_sources; -- end of procedure
5409:
5410: END xla_extract_integrity_pkg;
5406: xla_exceptions_pkg.raise_message
5407: (p_location => 'xla_extract_integrity_pkg.Assign_sources');
5408: END Assign_sources; -- end of procedure
5409:
5410: END xla_extract_integrity_pkg;