[Home] [Help]
1: PACKAGE BODY xla_events_pkg AS
2: -- $Header: xlaevevt.pkb 120.99 2007/12/04 19:53:47 ssawhney ship $
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
8: | FILENAME |
9: | xlaevevt.pkb |
10: | |
11: | PACKAGE NAME |
12: | xla_events_pkg |
13: | |
14: | DESCRIPTION |
15: | This is a XLA private package, which contains all the APIs |
16: | required for processing accounting events. |
50: | in "event_source_info" & "entity_source_info |
51: | 08-May-02 S. Singhania Made changes in the routines to include: |
52: | NOT NULL ledger_id, NULL valuation_method. |
53: | legal_entity_id is made NULL in XLA_ENTITIES |
54: | Removed "legal_entity_id" from XLA_EVENTS |
55: | Bug # 2351677 |
56: | 14-May-02 S. Singhania Modified "event_exists" routine and changed |
57: | cursors in 'cache_application_setups'. |
58: | 31-May-02 S. Singhania Made changes based on Bug # 2392835. Updated |
213: TYPE t_number_tbl IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
214: TYPE t_array_event_type IS TABLE OF t_event_type INDEX BY VARCHAR2(30);
215: TYPE t_array_event_class IS TABLE OF t_class_type INDEX BY VARCHAR2(30);
216: TYPE t_array_entity_type IS TABLE OF t_entity_type INDEX BY VARCHAR2(30);
217: TYPE t_event_status_tbl IS TABLE OF xla_events.event_status_code%type
218: INDEX BY BINARY_INTEGER;
219: TYPE t_on_hold_flag_tbl IS TABLE OF xla_events.on_hold_flag%type
220: INDEX BY BINARY_INTEGER;
221: TYPE t_event_number_tbl IS TABLE OF xla_events.event_number%type
215: TYPE t_array_event_class IS TABLE OF t_class_type INDEX BY VARCHAR2(30);
216: TYPE t_array_entity_type IS TABLE OF t_entity_type INDEX BY VARCHAR2(30);
217: TYPE t_event_status_tbl IS TABLE OF xla_events.event_status_code%type
218: INDEX BY BINARY_INTEGER;
219: TYPE t_on_hold_flag_tbl IS TABLE OF xla_events.on_hold_flag%type
220: INDEX BY BINARY_INTEGER;
221: TYPE t_event_number_tbl IS TABLE OF xla_events.event_number%type
222: INDEX BY BINARY_INTEGER;
223: TYPE t_ledger_status_tbl IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
217: TYPE t_event_status_tbl IS TABLE OF xla_events.event_status_code%type
218: INDEX BY BINARY_INTEGER;
219: TYPE t_on_hold_flag_tbl IS TABLE OF xla_events.on_hold_flag%type
220: INDEX BY BINARY_INTEGER;
221: TYPE t_event_number_tbl IS TABLE OF xla_events.event_number%type
222: INDEX BY BINARY_INTEGER;
223: TYPE t_ledger_status_tbl IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
224:
225: -------------------------------------------------------------------------------
235:
236: g_ledger_status_tbl t_ledger_status_tbl;
237: -- for caching the value if event can be created
238:
239: g_source_info xla_events_pub_pkg.t_event_source_info;
240: g_entity_id PLS_INTEGER; -- Entity id
241: g_entity_type_code VARCHAR2(30); -- Entity code
242: g_valuation_method VARCHAR2(80); -- valuation method
243:
261: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
262:
263: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
264:
265: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_events_pkg';
266:
267: g_debug_flag VARCHAR2(1):= NVL(fnd_profile.value('XLA_DEBUG_TRACE'),'N');
268:
269: --l_log_module VARCHAR2(240);
312: (p_event_status_code IN VARCHAR2
313: ,p_process_status_code IN VARCHAR2);
314:
315: PROCEDURE validate_params
316: (p_source_info IN xla_events_pub_pkg.t_event_source_info
317: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
318: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
319: ,p_event_date IN DATE DEFAULT NULL
320: ,p_event_status_code IN VARCHAR2 DEFAULT NULL
324: (p_ledger_id IN NUMBER
325: ,p_application_id IN NUMBER);
326:
327: PROCEDURE cache_entity_info
328: (p_source_info IN xla_events_pub_pkg.t_event_source_info
329: ,p_valuation_method IN VARCHAR2
330: ,p_event_id IN PLS_INTEGER);
331:
332: PROCEDURE update_entity_trx_number
337: PROCEDURE set_context
338: (p_context IN VARCHAR2);
339:
340: FUNCTION source_info_changed
341: (p_event_source_info1 IN xla_events_pub_pkg.t_event_source_info
342: ,p_event_source_info2 IN xla_events_pub_pkg.t_event_source_info
343: ,p_valuation_method1 IN VARCHAR2
344: ,p_valuation_method2 IN VARCHAR2)
345: RETURN BOOLEAN;
338: (p_context IN VARCHAR2);
339:
340: FUNCTION source_info_changed
341: (p_event_source_info1 IN xla_events_pub_pkg.t_event_source_info
342: ,p_event_source_info2 IN xla_events_pub_pkg.t_event_source_info
343: ,p_valuation_method1 IN VARCHAR2
344: ,p_valuation_method2 IN VARCHAR2)
345: RETURN BOOLEAN;
346:
352: ,p_source_id_code_4 IN VARCHAR2)
353: RETURN VARCHAR2;
354:
355: FUNCTION create_entity_event
356: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
357: ,p_valuation_method IN VARCHAR2
358: ,p_event_type_code IN VARCHAR2
359: ,p_event_date IN DATE
360: ,p_event_status_code IN VARCHAR2
360: ,p_event_status_code IN VARCHAR2
361: ,p_process_status_code IN VARCHAR2
362: ,p_event_number IN NUMBER
363: ,p_transaction_date IN DATE
364: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
365: DEFAULT NULL
366: ,p_budgetary_control_flag IN VARCHAR2)
367: RETURN INTEGER;
368:
376: ,p_event_status_code IN VARCHAR2
377: ,p_process_status_code IN VARCHAR2
378: ,p_event_number IN NUMBER
379: ,p_transaction_date IN DATE
380: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
381: DEFAULT NULL
382: ,p_budgetary_control_flag IN VARCHAR2)
383: RETURN INTEGER;
384:
415: WHEN xla_exceptions_pkg.application_exception THEN
416: RAISE;
417: WHEN OTHERS THEN
418: xla_exceptions_pkg.raise_message
419: (p_location => 'xla_events_pkg.trace');
420: END trace;
421:
422: --=============================================================================
423: -- *********** public procedures and functions **********
469: --
470: --=============================================================================
471:
472: FUNCTION create_event
473: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
474: ,p_valuation_method IN VARCHAR2
475: ,p_event_type_code IN VARCHAR2
476: ,p_event_date IN DATE
477: ,p_event_status_code IN VARCHAR2
476: ,p_event_date IN DATE
477: ,p_event_status_code IN VARCHAR2
478: ,p_event_number IN INTEGER DEFAULT NULL
479: ,p_transaction_date IN DATE DEFAULT NULL
480: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
481: DEFAULT NULL
482: ,p_budgetary_control_flag IN VARCHAR2)
483: RETURN INTEGER IS
484: l_event_date DATE;
587: ,p_level => C_LEVEL_PROCEDURE
588: ,p_module =>l_log_module);
589: trace
590: (p_msg => 'security_id_int_1 = '||
591: xla_events_pub_pkg.g_security.security_id_int_1
592: ,p_level => C_LEVEL_PROCEDURE
593: ,p_module =>l_log_module);
594: trace
595: (p_msg => 'security_id_int_2 = '||
592: ,p_level => C_LEVEL_PROCEDURE
593: ,p_module =>l_log_module);
594: trace
595: (p_msg => 'security_id_int_2 = '||
596: xla_events_pub_pkg.g_security.security_id_int_2
597: ,p_level => C_LEVEL_PROCEDURE
598: ,p_module =>l_log_module);
599: trace
600: (p_msg => 'security_id_int_3 = '||
597: ,p_level => C_LEVEL_PROCEDURE
598: ,p_module =>l_log_module);
599: trace
600: (p_msg => 'security_id_int_3 = '||
601: xla_events_pub_pkg.g_security.security_id_int_3
602: ,p_level => C_LEVEL_PROCEDURE
603: ,p_module =>l_log_module);
604: trace
605: (p_msg => 'security_id_char_1 = '||
602: ,p_level => C_LEVEL_PROCEDURE
603: ,p_module =>l_log_module);
604: trace
605: (p_msg => 'security_id_char_1 = '||
606: xla_events_pub_pkg.g_security.security_id_char_1
607: ,p_level => C_LEVEL_PROCEDURE
608: ,p_module =>l_log_module);
609: trace
610: (p_msg => 'security_id_char_2 = '||
607: ,p_level => C_LEVEL_PROCEDURE
608: ,p_module =>l_log_module);
609: trace
610: (p_msg => 'security_id_char_2 = '||
611: xla_events_pub_pkg.g_security.security_id_char_2
612: ,p_level => C_LEVEL_PROCEDURE
613: ,p_module =>l_log_module);
614: trace
615: (p_msg => 'security_id_char_3 = '||
612: ,p_level => C_LEVEL_PROCEDURE
613: ,p_module =>l_log_module);
614: trace
615: (p_msg => 'security_id_char_3 = '||
616: xla_events_pub_pkg.g_security.security_id_char_3
617: ,p_level => C_LEVEL_PROCEDURE
618: ,p_module =>l_log_module);
619: trace
620: (p_msg => 'valuation_method = '||p_valuation_method
644: ,p_msg_name => 'XLA_COMMON_ERROR'
645: ,p_token_1 => 'ERROR'
646: ,p_value_1 => 'For MANUAL events this API cannot be called'
647: ,p_token_2 => 'LOCATION'
648: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
649: ELSE
650: g_context := C_REGULAR_EVENT_CONTEXT;
651: END IF;
652:
657: ,p_token_1 => 'ERROR'
658: ,p_value_1 =>
659: 'Event Type Code has an invalid value. It cannot have a NULL value.'
660: ,p_token_2 => 'LOCATION'
661: ,p_value_2 => 'xla_events_pkg.create_event');
662: END IF;
663: IF p_event_date IS NULL THEN
664: xla_exceptions_pkg.raise_message
665: (p_appli_s_name => 'XLA'
667: ,p_token_1 => 'ERROR'
668: ,p_value_1 =>
669: 'Event Date has an invalid value. It cannot have a NULL value.'
670: ,p_token_2 => 'LOCATION'
671: ,p_value_2 => 'xla_events_pkg.create_event');
672: END IF;
673: IF p_event_status_code IS NULL THEN
674: xla_exceptions_pkg.raise_message
675: (p_appli_s_name => 'XLA'
677: ,p_token_1 => 'ERROR'
678: ,p_value_1 =>
679: 'Event Status Code has an invalid value. It cannot have a NULL value.'
680: ,p_token_2 => 'LOCATION'
681: ,p_value_2 => 'xla_events_pkg.create_event');
682: END IF;
683:
684: ----------------------------------------------------------------------------
685: -- truncate date
726: ,p_token_1 => 'ERROR'
727: ,p_value_1 =>
728: 'The developer has to give the event number greater than 0 when create new event for gapless processing.'
729: ,p_token_2 => 'LOCATION'
730: ,p_value_2 => 'xla_events_pkg.create_event');
731: END IF;
732: ----------------------------------------------------------------------------
733: -- If the PK is NULL, create an entity as well as the event. Otherwise,
734: -- add a new event to the entity.
796: RAISE;
797: WHEN OTHERS THEN
798: ROLLBACK to SAVEPOINT before_event_creation;
799: xla_exceptions_pkg.raise_message
800: (p_location => 'xla_events_pkg.create_event (fn)');
801: END create_event;
802:
803:
804: --=============================================================================
807: --
808: --=============================================================================
809:
810: FUNCTION create_manual_event
811: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
812: ,p_event_type_code IN VARCHAR2
813: ,p_event_date IN DATE
814: ,p_event_status_code IN VARCHAR2
815: ,p_process_status_code IN VARCHAR2
814: ,p_event_status_code IN VARCHAR2
815: ,p_process_status_code IN VARCHAR2
816: ,p_event_number IN INTEGER DEFAULT NULL
817: ,p_transaction_date IN DATE DEFAULT NULL
818: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info DEFAULT NULL
819: ,p_budgetary_control_flag IN VARCHAR2)
820: RETURN INTEGER IS
821: l_event_date DATE;
822: L_CONSTANT CONSTANT VARCHAR2(30) := '##UNDEFINED##'; --chr(12);
924: ,p_level => C_LEVEL_PROCEDURE
925: ,p_module =>l_log_module);
926: trace
927: (p_msg => 'security_id_int_1 = '||
928: xla_events_pub_pkg.g_security.security_id_int_1
929: ,p_level => C_LEVEL_PROCEDURE
930: ,p_module =>l_log_module);
931: trace
932: (p_msg => 'security_id_int_2 = '||
929: ,p_level => C_LEVEL_PROCEDURE
930: ,p_module =>l_log_module);
931: trace
932: (p_msg => 'security_id_int_2 = '||
933: xla_events_pub_pkg.g_security.security_id_int_2
934: ,p_level => C_LEVEL_PROCEDURE
935: ,p_module =>l_log_module);
936: trace
937: (p_msg => 'security_id_int_3 = '||
934: ,p_level => C_LEVEL_PROCEDURE
935: ,p_module =>l_log_module);
936: trace
937: (p_msg => 'security_id_int_3 = '||
938: xla_events_pub_pkg.g_security.security_id_int_3
939: ,p_level => C_LEVEL_PROCEDURE
940: ,p_module =>l_log_module);
941: trace
942: (p_msg => 'security_id_char_1 = '||
939: ,p_level => C_LEVEL_PROCEDURE
940: ,p_module =>l_log_module);
941: trace
942: (p_msg => 'security_id_char_1 = '||
943: xla_events_pub_pkg.g_security.security_id_char_1
944: ,p_level => C_LEVEL_PROCEDURE
945: ,p_module =>l_log_module);
946: trace
947: (p_msg => 'security_id_char_2 = '||
944: ,p_level => C_LEVEL_PROCEDURE
945: ,p_module =>l_log_module);
946: trace
947: (p_msg => 'security_id_char_2 = '||
948: xla_events_pub_pkg.g_security.security_id_char_2
949: ,p_level => C_LEVEL_PROCEDURE
950: ,p_module =>l_log_module);
951: trace
952: (p_msg => 'security_id_char_3 = '||
949: ,p_level => C_LEVEL_PROCEDURE
950: ,p_module =>l_log_module);
951: trace
952: (p_msg => 'security_id_char_3 = '||
953: xla_events_pub_pkg.g_security.security_id_char_3
954: ,p_level => C_LEVEL_PROCEDURE
955: ,p_module =>l_log_module);
956: END IF;
957:
975: ,p_msg_name => 'XLA_COMMON_ERROR'
976: ,p_token_1 => 'ERROR'
977: ,p_value_1 => 'For REGULAR events this API cannot be called'
978: ,p_token_2 => 'LOCATION'
979: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
980: END IF;
981:
982: ----------------------------------------------------------------------------
983: -- perform specific validations for 'creating events'
989: ,p_token_1 => 'ERROR'
990: ,p_value_1 =>
991: 'Event Type Code has an invalid value. It cannot have a NULL value.'
992: ,p_token_2 => 'LOCATION'
993: ,p_value_2 => 'xla_events_pkg.create_manual_event');
994: END IF;
995: IF p_event_date IS NULL THEN
996: xla_exceptions_pkg.raise_message
997: (p_appli_s_name => 'XLA'
998: ,p_msg_name => 'XLA_COMMON_ERROR'
999: ,p_token_1 => 'ERROR'
1000: ,p_value_1 => 'Event Date cannot have a NULL value.'
1001: ,p_token_2 => 'LOCATION'
1002: ,p_value_2 => 'xla_events_pkg.create_manual_event');
1003: END IF;
1004: IF p_event_status_code IS NULL THEN
1005: xla_exceptions_pkg.raise_message
1006: (p_appli_s_name => 'XLA'
1007: ,p_msg_name => 'XLA_COMMON_ERROR'
1008: ,p_token_1 => 'ERROR'
1009: ,p_value_1 => 'Event Status Code cannot have a NULL value.'
1010: ,p_token_2 => 'LOCATION'
1011: ,p_value_2 => 'xla_events_pkg.create_manual_event');
1012: END IF;
1013: IF p_process_status_code IS NULL THEN
1014: xla_exceptions_pkg.raise_message
1015: (p_appli_s_name => 'XLA'
1016: ,p_msg_name => 'XLA_COMMON_ERROR'
1017: ,p_token_1 => 'ERROR'
1018: ,p_value_1 => 'Process Status Code cannot have a NULL value.'
1019: ,p_token_2 => 'LOCATION'
1020: ,p_value_2 => 'xla_events_pkg.create_manual_event');
1021: END IF;
1022:
1023: ----------------------------------------------------------------------------
1024: -- truncate date
1115: RAISE;
1116: WHEN OTHERS THEN
1117: ROLLBACK to SAVEPOINT before_event_creation;
1118: xla_exceptions_pkg.raise_message
1119: (p_location => 'xla_events_pkg.create_manual_event (fn)');
1120: END create_manual_event;
1121:
1122:
1123:
1127: --
1128: --=============================================================================
1129:
1130: PROCEDURE update_event_status
1131: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
1132: ,p_valuation_method IN VARCHAR2
1133: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
1134: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
1135: ,p_event_date IN DATE DEFAULT NULL
1137: l_event_date DATE;
1138: l_array_events t_number_tbl;
1139: l_array_event_status t_event_status_tbl;
1140: l_array_on_hold_flag t_on_hold_flag_tbl;
1141: l_temp_event_number xla_events.event_number%type;
1142: l_array_event_number t_event_number_tbl;
1143: l_log_module VARCHAR2(240);
1144: BEGIN
1145: IF g_log_enabled THEN
1235: ,p_level => C_LEVEL_PROCEDURE
1236: ,p_module =>l_log_module);
1237: trace
1238: (p_msg => 'security_id_int_1 = '||
1239: xla_events_pub_pkg.g_security.security_id_int_1
1240: ,p_level => C_LEVEL_PROCEDURE
1241: ,p_module =>l_log_module);
1242: trace
1243: (p_msg => 'security_id_int_2 = '||
1240: ,p_level => C_LEVEL_PROCEDURE
1241: ,p_module =>l_log_module);
1242: trace
1243: (p_msg => 'security_id_int_2 = '||
1244: xla_events_pub_pkg.g_security.security_id_int_2
1245: ,p_level => C_LEVEL_PROCEDURE
1246: ,p_module =>l_log_module);
1247: trace
1248: (p_msg => 'security_id_int_3 = '||
1245: ,p_level => C_LEVEL_PROCEDURE
1246: ,p_module =>l_log_module);
1247: trace
1248: (p_msg => 'security_id_int_3 = '||
1249: xla_events_pub_pkg.g_security.security_id_int_3
1250: ,p_level => C_LEVEL_PROCEDURE
1251: ,p_module =>l_log_module);
1252: trace
1253: (p_msg => 'security_id_char_1 = '||
1250: ,p_level => C_LEVEL_PROCEDURE
1251: ,p_module =>l_log_module);
1252: trace
1253: (p_msg => 'security_id_char_1 = '||
1254: xla_events_pub_pkg.g_security.security_id_char_1
1255: ,p_level => C_LEVEL_PROCEDURE
1256: ,p_module =>l_log_module);
1257: trace
1258: (p_msg => 'security_id_char_2 = '||
1255: ,p_level => C_LEVEL_PROCEDURE
1256: ,p_module =>l_log_module);
1257: trace
1258: (p_msg => 'security_id_char_2 = '||
1259: xla_events_pub_pkg.g_security.security_id_char_2
1260: ,p_level => C_LEVEL_PROCEDURE
1261: ,p_module =>l_log_module);
1262: trace
1263: (p_msg => 'security_id_char_3 = '||
1260: ,p_level => C_LEVEL_PROCEDURE
1261: ,p_module =>l_log_module);
1262: trace
1263: (p_msg => 'security_id_char_3 = '||
1264: xla_events_pub_pkg.g_security.security_id_char_3
1265: ,p_level => C_LEVEL_PROCEDURE
1266: ,p_module =>l_log_module);
1267: trace
1268: (p_msg => 'valuation_method = '||p_valuation_method
1289: ,p_msg_name => 'XLA_COMMON_ERROR'
1290: ,p_token_1 => 'ERROR'
1291: ,p_value_1 => 'For MANUAL events this API cannot be called'
1292: ,p_token_2 => 'LOCATION'
1293: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
1294: ELSE
1295: g_context := C_REGULAR_EVENT_CONTEXT;
1296: END IF;
1297:
1304: ,p_msg_name => 'XLA_COMMON_ERROR'
1305: ,p_token_1 => 'ERROR'
1306: ,p_value_1 => 'Event Status Code cannot have a NULL value.'
1307: ,p_token_2 => 'LOCATION'
1308: ,p_value_2 => 'xla_events_pkg.update_event_status');
1309: END IF;
1310:
1311: ----------------------------------------------------------------------------
1312: -- truncate date
1352: ,p_token_1 => 'ERROR'
1353: ,p_value_1 => 'No event exists for the document represented '||
1354: 'by the given source information.'
1355: ,p_token_2 => 'LOCATION'
1356: ,p_value_2 => 'xla_events_pkg.update_event_status');
1357: END IF;
1358:
1359: ----------------------------------------------------------------------------
1360: -- Fetching event ids for the events that are going to be updated
1361: ----------------------------------------------------------------------------
1362: if(g_gapless_flag='N') then
1363: SELECT event_id BULK COLLECT
1364: INTO l_array_events
1365: FROM xla_events
1366: WHERE event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
1367: AND event_date = NVL(l_event_date, event_date)
1368: AND event_type_code = NVL(p_event_type_code, event_type_code)
1369: AND entity_id = g_entity_id
1362: if(g_gapless_flag='N') then
1363: SELECT event_id BULK COLLECT
1364: INTO l_array_events
1365: FROM xla_events
1366: WHERE event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
1367: AND event_date = NVL(l_event_date, event_date)
1368: AND event_type_code = NVL(p_event_type_code, event_type_code)
1369: AND entity_id = g_entity_id
1370: AND event_type_code IN
1382: INTO l_array_events,
1383: l_array_event_status,
1384: l_array_on_hold_flag,
1385: l_array_event_number
1386: FROM xla_events
1387: WHERE event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
1388: AND event_date = NVL(l_event_date, event_date)
1389: AND event_type_code = NVL(p_event_type_code, event_type_code)
1390: AND entity_id = g_entity_id
1383: l_array_event_status,
1384: l_array_on_hold_flag,
1385: l_array_event_number
1386: FROM xla_events
1387: WHERE event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
1388: AND event_date = NVL(l_event_date, event_date)
1389: AND event_type_code = NVL(p_event_type_code, event_type_code)
1390: AND entity_id = g_entity_id
1391: AND event_type_code IN
1410: ----------------------------------------------------------------------------
1411: -- Actual status update
1412: ----------------------------------------------------------------------------
1413: FORAll i IN 1..l_array_events.COUNT
1414: UPDATE xla_events
1415: SET event_status_code = p_event_status_code
1416: ,process_status_code = C_INTERNAL_UNPROCESSED
1417: ,last_update_date = sysdate
1418: ,last_updated_by = xla_environment_pkg.g_usr_id
1444: ,p_level => C_LEVEL_STATEMENT
1445: ,p_module =>l_log_module);
1446: end if;
1447: if(l_array_event_status(1)<>'I' and l_array_on_hold_flag(1)='N') then
1448: update xla_events
1449: set on_hold_flag='Y'
1450: where entity_id=g_entity_id
1451: and event_number >l_array_event_number(1)
1452: and on_hold_flag='N';
1471: end if;
1472:
1473: SELECT event_status_code, event_number BULK COLLECT
1474: INTO g_gapless_array_event_status, g_gapless_event_number
1475: FROM xla_events
1476: Where entity_id = g_entity_id
1477: and event_number>l_array_event_number(i)
1478: Order by event_number;
1479:
1496: ,p_level => C_LEVEL_STATEMENT
1497: ,p_module =>l_log_module);
1498: end if;
1499:
1500: update xla_events
1501: set on_hold_flag='N'
1502: where entity_id=g_entity_id
1503: and event_number >l_array_event_number(i)
1504: and event_number
1520: RAISE;
1521: WHEN OTHERS THEN
1522: ROLLBACK to SAVEPOINT before_event_update;
1523: xla_exceptions_pkg.raise_message
1524: (p_location => 'xla_events_pkg.update_event_status');
1525: END update_event_status;
1526:
1527:
1528: --=============================================================================
1531: --
1532: --=============================================================================
1533:
1534: PROCEDURE update_event
1535: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
1536: ,p_valuation_method IN VARCHAR2
1537: ,p_event_id IN INTEGER
1538: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
1539: ,p_event_date IN DATE DEFAULT NULL
1539: ,p_event_date IN DATE DEFAULT NULL
1540: ,p_event_status_code IN VARCHAR2 DEFAULT NULL
1541: ,p_transaction_date IN DATE DEFAULT NULL
1542: ,p_event_number IN INTEGER DEFAULT NULL
1543: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
1544: DEFAULT NULL
1545: ,p_overwrite_event_num IN VARCHAR2 DEFAULT 'N'
1546: ,p_overwrite_ref_info IN VARCHAR2 DEFAULT 'N') IS
1547: l_event_date DATE;
1545: ,p_overwrite_event_num IN VARCHAR2 DEFAULT 'N'
1546: ,p_overwrite_ref_info IN VARCHAR2 DEFAULT 'N') IS
1547: l_event_date DATE;
1548: l_process_status_code VARCHAR2(1);
1549: l_old_event_status_code xla_events.event_status_code%TYPE;
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1546: ,p_overwrite_ref_info IN VARCHAR2 DEFAULT 'N') IS
1547: l_event_date DATE;
1548: l_process_status_code VARCHAR2(1);
1549: l_old_event_status_code xla_events.event_status_code%TYPE;
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1554: l_temp_event_number xla_events.event_number%type;
1547: l_event_date DATE;
1548: l_process_status_code VARCHAR2(1);
1549: l_old_event_status_code xla_events.event_status_code%TYPE;
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1554: l_temp_event_number xla_events.event_number%type;
1555: l_log_module VARCHAR2(240);
1548: l_process_status_code VARCHAR2(1);
1549: l_old_event_status_code xla_events.event_status_code%TYPE;
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1554: l_temp_event_number xla_events.event_number%type;
1555: l_log_module VARCHAR2(240);
1556: BEGIN
1549: l_old_event_status_code xla_events.event_status_code%TYPE;
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1554: l_temp_event_number xla_events.event_number%type;
1555: l_log_module VARCHAR2(240);
1556: BEGIN
1557: IF g_log_enabled THEN
1550: l_old_on_hold_flag xla_events.on_hold_flag%TYPE;
1551: l_old_event_number xla_events.event_number%TYPE;
1552: l_event_status_code xla_events.event_status_code%TYPE;
1553: l_on_hold_flag xla_events.on_hold_flag%TYPE:='Y';
1554: l_temp_event_number xla_events.event_number%type;
1555: l_log_module VARCHAR2(240);
1556: BEGIN
1557: IF g_log_enabled THEN
1558: l_log_module := C_DEFAULT_MODULE||'.update_event';
1659: ,p_level => C_LEVEL_PROCEDURE
1660: ,p_module =>l_log_module);
1661: trace
1662: (p_msg => 'security_id_int_1 = '||
1663: xla_events_pub_pkg.g_security.security_id_int_1
1664: ,p_level => C_LEVEL_PROCEDURE
1665: ,p_module =>l_log_module);
1666: trace
1667: (p_msg => 'security_id_int_2 = '||
1664: ,p_level => C_LEVEL_PROCEDURE
1665: ,p_module =>l_log_module);
1666: trace
1667: (p_msg => 'security_id_int_2 = '||
1668: xla_events_pub_pkg.g_security.security_id_int_2
1669: ,p_level => C_LEVEL_PROCEDURE
1670: ,p_module =>l_log_module);
1671: trace
1672: (p_msg => 'security_id_int_3 = '||
1669: ,p_level => C_LEVEL_PROCEDURE
1670: ,p_module =>l_log_module);
1671: trace
1672: (p_msg => 'security_id_int_3 = '||
1673: xla_events_pub_pkg.g_security.security_id_int_3
1674: ,p_level => C_LEVEL_PROCEDURE
1675: ,p_module =>l_log_module);
1676: trace
1677: (p_msg => 'security_id_char_1 = '||
1674: ,p_level => C_LEVEL_PROCEDURE
1675: ,p_module =>l_log_module);
1676: trace
1677: (p_msg => 'security_id_char_1 = '||
1678: xla_events_pub_pkg.g_security.security_id_char_1
1679: ,p_level => C_LEVEL_PROCEDURE
1680: ,p_module =>l_log_module);
1681: trace
1682: (p_msg => 'security_id_char_2 = '||
1679: ,p_level => C_LEVEL_PROCEDURE
1680: ,p_module =>l_log_module);
1681: trace
1682: (p_msg => 'security_id_char_2 = '||
1683: xla_events_pub_pkg.g_security.security_id_char_2
1684: ,p_level => C_LEVEL_PROCEDURE
1685: ,p_module =>l_log_module);
1686: trace
1687: (p_msg => 'security_id_char_3 = '||
1684: ,p_level => C_LEVEL_PROCEDURE
1685: ,p_module =>l_log_module);
1686: trace
1687: (p_msg => 'security_id_char_3 = '||
1688: xla_events_pub_pkg.g_security.security_id_char_3
1689: ,p_level => C_LEVEL_PROCEDURE
1690: ,p_module =>l_log_module);
1691: trace
1692: (p_msg => 'valuation_method = '||p_valuation_method
1712: ,p_msg_name => 'XLA_COMMON_ERROR'
1713: ,p_token_1 => 'ERROR'
1714: ,p_value_1 => 'For MANUAL events this API cannot be called'
1715: ,p_token_2 => 'LOCATION'
1716: ,p_value_2 => 'xla_events_pkg.update_event');
1717: ELSE
1718: g_context := C_REGULAR_EVENT_CONTEXT;
1719: END IF;
1720:
1727: ,p_msg_name => 'XLA_COMMON_ERROR'
1728: ,p_token_1 => 'ERROR'
1729: ,p_value_1 => 'Event ID cannot have a NULL value.'
1730: ,p_token_2 => 'LOCATION'
1731: ,p_value_2 => 'xla_events_pkg.update_event');
1732: END IF;
1733:
1734:
1735: IF p_event_status_code IS NOT NULL THEN
1787: ,p_token_1 => 'ERROR'
1788: ,p_value_1 => 'No event exists for the document represented '||
1789: 'by the given source information.'
1790: ,p_token_2 => 'LOCATION'
1791: ,p_value_2 => 'xla_events_pkg.update_event');
1792: END IF;
1793:
1794: if(g_gapless_flag='Y' and
1795: (p_overwrite_event_num=C_YES and
1800: ,p_token_1 => 'ERROR'
1801: ,p_value_1 =>
1802: 'The developer has to give the event number when change event number for gapless processing.'
1803: ,p_token_2 => 'LOCATION'
1804: ,p_value_2 => 'xla_events_pkg.update_event');
1805:
1806: end if;
1807: ----------------------------------------------------------------------------
1808: -- Following statement make sure that when event type and/or event date
1831: -- the on-hold-flag will be affected
1832: begin
1833: select event_status_code, on_hold_flag, event_number
1834: into l_old_event_status_code, l_old_on_hold_flag, l_old_event_number
1835: from xla_events
1836: WHERE event_id = p_event_id
1837: AND entity_id = g_entity_id
1838: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
1839: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
1834: into l_old_event_status_code, l_old_on_hold_flag, l_old_event_number
1835: from xla_events
1836: WHERE event_id = p_event_id
1837: AND entity_id = g_entity_id
1838: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
1839: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
1840: trace
1841: (p_msg => 'l_old_event_status_code:'||l_old_event_status_code
1842: ,p_level => C_LEVEL_STATEMENT
1857: ,p_value_1 =>
1858: 'Unable to perform UPDATE on the event. The event ('||p_event_id ||
1859: ') is either invalid or has been final accounted.'
1860: ,p_token_2 => 'LOCATION'
1861: ,p_value_2 => 'xla_events_pkg.update_event');
1862: END;
1863: END IF;
1864: ----------------------------------------------------------------------------
1865: -- Actual update
1863: END IF;
1864: ----------------------------------------------------------------------------
1865: -- Actual update
1866: ----------------------------------------------------------------------------
1867: UPDATE xla_events
1868: SET event_type_code = NVL(p_event_type_code , event_type_code)
1869: ,event_date = NVL(l_event_date , event_date)
1870: ,transaction_date = NVL(p_transaction_date , transaction_date)
1871: ,event_status_code = NVL(p_event_status_code, event_status_code)
1904: ,program_id = xla_environment_pkg.g_prog_id
1905: ,request_id = xla_environment_pkg.g_Req_Id
1906: WHERE event_id = p_event_id
1907: AND entity_id = g_entity_id
1908: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
1909:
1910: IF SQL%ROWCOUNT <> 1 THEN
1911: xla_exceptions_pkg.raise_message
1912: (p_appli_s_name => 'XLA'
1915: ,p_value_1 =>
1916: 'Unable to perform UPDATE on the event. The event ('||p_event_id ||
1917: ') is either invalid or has been final accounted.'
1918: ,p_token_2 => 'LOCATION'
1919: ,p_value_2 => 'xla_events_pkg.update_event');
1920: END IF;
1921:
1922: if(g_gapless_flag='Y' and
1923: ((p_overwrite_event_num=C_YES
1933: if(p_overwrite_event_num=C_YES and l_old_event_number <>p_event_number)then
1934: if(l_old_event_number
1936: if(l_old_event_status_code<>'I') then
1937: update xla_events
1938: set on_hold_flag='Y'
1939: where entity_id=g_entity_id
1940: and event_status_code<> xla_events_pub_pkg.C_EVENT_PROCESSED
1941: and event_number>l_old_event_number;
1936: if(l_old_event_status_code<>'I') then
1937: update xla_events
1938: set on_hold_flag='Y'
1939: where entity_id=g_entity_id
1940: and event_status_code<> xla_events_pub_pkg.C_EVENT_PROCESSED
1941: and event_number>l_old_event_number;
1942: else
1943: update xla_events
1944: set on_hold_flag='Y'
1939: where entity_id=g_entity_id
1940: and event_status_code<> xla_events_pub_pkg.C_EVENT_PROCESSED
1941: and event_number>l_old_event_number;
1942: else
1943: update xla_events
1944: set on_hold_flag='Y'
1945: where entity_id=g_entity_id
1946: and event_id=p_event_id;
1947: end if;
1952: -- between l_old_event_number and p_event_number could be affected.
1953: begin
1954: select event_status_code, on_hold_flag
1955: into l_event_status_code, l_on_hold_flag
1956: from xla_events
1957: where entity_id=g_entity_id
1958: and event_number=p_event_number-1;
1959: exception
1960: when NO_DATA_FOUND then
1966: end if;
1967: end;
1968: if(l_on_hold_flag='N' and l_event_status_code<>'I') then
1969: if(nvl(p_event_status_code, l_old_event_status_code)='I') then
1970: update xla_events
1971: set on_hold_flag='N'
1972: where event_id=p_event_id;
1973: else
1974: -- update from this event til the next gap, set on_hold_flag to 'N'
1973: else
1974: -- update from this event til the next gap, set on_hold_flag to 'N'
1975: SELECT event_status_code, event_number BULK COLLECT
1976: INTO g_gapless_array_event_status, g_gapless_event_number
1977: FROM xla_events
1978: Where entity_id = g_entity_id
1979: and event_number>p_event_number
1980: and event_number
1992: --l_temp_event_number is the next gap
1993: -- update the on_hold_flag of event between l_array_event_number(i)
1994: -- and --l_temp_event_number+1
1995:
1996: update xla_events
1997: set on_hold_flag='N'
1998: where entity_id=g_entity_id
1999: and event_number >p_event_number-1
2000: and event_number
2003: end if;
2004: else --event number is not updated, but the status changed
2005: if(p_event_status_code='I' and l_old_on_hold_flag='N') then
2006: -- new gap
2007: update xla_events
2008: set on_hold_flag='Y'
2009: where entity_id=g_entity_id
2010: and event_number>l_old_event_number
2011: and on_hold_flag='N';
2013: elsif(l_old_event_status_code='I' and l_old_on_hold_flag='N') then
2014: -- old gap eliminated
2015: SELECT event_status_code, event_number BULK COLLECT
2016: INTO g_gapless_array_event_status, g_gapless_event_number
2017: FROM xla_events
2018: Where entity_id = g_entity_id
2019: and event_number>l_old_event_number
2020: Order by event_number;
2021:
2031: --l_temp_event_number is the next gap
2032: -- update the on_hold_flag of event between l_array_event_number(i)
2033: -- and --l_temp_event_number+1
2034:
2035: update xla_events
2036: set on_hold_flag='N'
2037: where entity_id=g_entity_id
2038: and event_number >l_old_event_number
2039: and event_number
2054: RAISE;
2055: WHEN OTHERS THEN
2056: ROLLBACK to SAVEPOINT before_event_update;
2057: xla_exceptions_pkg.raise_message
2058: (p_location => 'xla_events_pkg.update_event');
2059: END update_event;
2060:
2061:
2062: --=============================================================================
2065: --
2066: --=============================================================================
2067:
2068: PROCEDURE update_manual_event
2069: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2070: ,p_event_id IN INTEGER
2071: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
2072: ,p_event_date IN DATE DEFAULT NULL
2073: ,p_event_status_code IN VARCHAR2 DEFAULT NULL
2072: ,p_event_date IN DATE DEFAULT NULL
2073: ,p_event_status_code IN VARCHAR2 DEFAULT NULL
2074: ,p_process_status_code IN VARCHAR2 DEFAULT NULL
2075: ,p_event_number IN INTEGER DEFAULT NULL
2076: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
2077: DEFAULT NULL
2078: ,p_overwrite_event_num IN VARCHAR2 DEFAULT 'N'
2079: ,p_overwrite_ref_info IN VARCHAR2 DEFAULT 'N') IS
2080: l_event_date DATE;
2190: ,p_level => C_LEVEL_PROCEDURE
2191: ,p_module =>l_log_module);
2192: trace
2193: (p_msg => 'security_id_int_1 = '||
2194: xla_events_pub_pkg.g_security.security_id_int_1
2195: ,p_level => C_LEVEL_PROCEDURE
2196: ,p_module =>l_log_module);
2197: trace
2198: (p_msg => 'security_id_int_2 = '||
2195: ,p_level => C_LEVEL_PROCEDURE
2196: ,p_module =>l_log_module);
2197: trace
2198: (p_msg => 'security_id_int_2 = '||
2199: xla_events_pub_pkg.g_security.security_id_int_2
2200: ,p_level => C_LEVEL_PROCEDURE
2201: ,p_module =>l_log_module);
2202: trace
2203: (p_msg => 'security_id_int_3 = '||
2200: ,p_level => C_LEVEL_PROCEDURE
2201: ,p_module =>l_log_module);
2202: trace
2203: (p_msg => 'security_id_int_3 = '||
2204: xla_events_pub_pkg.g_security.security_id_int_3
2205: ,p_level => C_LEVEL_PROCEDURE
2206: ,p_module =>l_log_module);
2207: trace
2208: (p_msg => 'security_id_char_1 = '||
2205: ,p_level => C_LEVEL_PROCEDURE
2206: ,p_module =>l_log_module);
2207: trace
2208: (p_msg => 'security_id_char_1 = '||
2209: xla_events_pub_pkg.g_security.security_id_char_1
2210: ,p_level => C_LEVEL_PROCEDURE
2211: ,p_module =>l_log_module);
2212: trace
2213: (p_msg => 'security_id_char_2 = '||
2210: ,p_level => C_LEVEL_PROCEDURE
2211: ,p_module =>l_log_module);
2212: trace
2213: (p_msg => 'security_id_char_2 = '||
2214: xla_events_pub_pkg.g_security.security_id_char_2
2215: ,p_level => C_LEVEL_PROCEDURE
2216: ,p_module =>l_log_module);
2217: trace
2218: (p_msg => 'security_id_char_3 = '||
2215: ,p_level => C_LEVEL_PROCEDURE
2216: ,p_module =>l_log_module);
2217: trace
2218: (p_msg => 'security_id_char_3 = '||
2219: xla_events_pub_pkg.g_security.security_id_char_3
2220: ,p_level => C_LEVEL_PROCEDURE
2221: ,p_module =>l_log_module);
2222: END IF;
2223:
2241: ,p_msg_name => 'XLA_COMMON_ERROR'
2242: ,p_token_1 => 'ERROR'
2243: ,p_value_1 => 'For REGULAR events this API cannot be called'
2244: ,p_token_2 => 'LOCATION'
2245: ,p_value_2 => 'xla_events_pkg.update_manual_event');
2246: END IF;
2247:
2248: ----------------------------------------------------------------------------
2249: -- perfrom validations specific to 'updating event'
2254: ,p_msg_name => 'XLA_COMMON_ERROR'
2255: ,p_token_1 => 'ERROR'
2256: ,p_value_1 => 'Event ID cannot have a NULL value.'
2257: ,p_token_2 => 'LOCATION'
2258: ,p_value_2 => 'xla_events_pkg.update_manual_event');
2259: END IF;
2260:
2261: ----------------------------------------------------------------------------
2262: -- validate to make sure that both p_event_status_code and
2272: ,p_value_1 => 'Inconsistent values for event statuses: '||
2273: 'p_event_status_code = '||p_event_status_code||
2274: 'p_process_status_code = '||p_process_status_code
2275: ,p_token_2 => 'LOCATION'
2276: ,p_value_2 => 'xla_events_pkg.update_manual_event');
2277: END IF;
2278:
2279: ----------------------------------------------------------------------------
2280: -- truncate date
2315: ,p_token_1 => 'ERROR'
2316: ,p_value_1 => 'No event exists for the document represented '||
2317: 'by the given source information.'
2318: ,p_token_2 => 'LOCATION'
2319: ,p_value_2 => 'xla_events_pkg.update_manual_event');
2320: END IF;
2321:
2322: ----------------------------------------------------------------------------
2323: -- Actual status update
2321:
2322: ----------------------------------------------------------------------------
2323: -- Actual status update
2324: ----------------------------------------------------------------------------
2325: UPDATE xla_events
2326: SET event_type_code = NVL(p_event_type_code , event_type_code)
2327: ,event_date = NVL(l_event_date , event_date)
2328: ,event_status_code = NVL(p_event_status_code, event_status_code)
2329: ,process_status_code = NVL(p_process_status_code,process_status_code)
2361: ,program_id = xla_environment_pkg.g_prog_id
2362: ,request_id = xla_environment_pkg.g_Req_Id
2363: WHERE event_id = p_event_id
2364: AND entity_id = g_entity_id
2365: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
2366:
2367: l_rowcount := SQL%ROWCOUNT;
2368:
2369: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2381: ,p_value_1 =>
2382: 'Unable to perform UPDATE on the event. The event ('||p_event_id ||
2383: ') is invalid'
2384: ,p_token_2 => 'LOCATION'
2385: ,p_value_2 => 'xla_events_pkg.update_manual_event');
2386: END IF;
2387:
2388: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
2389: trace
2398: RAISE;
2399: WHEN OTHERS THEN
2400: ROLLBACK to SAVEPOINT before_event_update;
2401: xla_exceptions_pkg.raise_message
2402: (p_location => 'xla_events_pkg.update_manual_event');
2403: END update_manual_event;
2404:
2405:
2406: --=============================================================================
2410: --
2411: --=============================================================================
2412:
2413: PROCEDURE delete_event
2414: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2415: ,p_valuation_method IN VARCHAR2
2416: ,p_event_id IN INTEGER) IS
2417: l_on_hold_flag xla_events.on_hold_flag%type;
2418: l_event_status_code xla_events.event_status_code%type;
2413: PROCEDURE delete_event
2414: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2415: ,p_valuation_method IN VARCHAR2
2416: ,p_event_id IN INTEGER) IS
2417: l_on_hold_flag xla_events.on_hold_flag%type;
2418: l_event_status_code xla_events.event_status_code%type;
2419: l_event_number xla_events.event_number%type;
2420: l_log_module VARCHAR2(240);
2421: l_rowcount NUMBER;
2414: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2415: ,p_valuation_method IN VARCHAR2
2416: ,p_event_id IN INTEGER) IS
2417: l_on_hold_flag xla_events.on_hold_flag%type;
2418: l_event_status_code xla_events.event_status_code%type;
2419: l_event_number xla_events.event_number%type;
2420: l_log_module VARCHAR2(240);
2421: l_rowcount NUMBER;
2422: BEGIN
2415: ,p_valuation_method IN VARCHAR2
2416: ,p_event_id IN INTEGER) IS
2417: l_on_hold_flag xla_events.on_hold_flag%type;
2418: l_event_status_code xla_events.event_status_code%type;
2419: l_event_number xla_events.event_number%type;
2420: l_log_module VARCHAR2(240);
2421: l_rowcount NUMBER;
2422: BEGIN
2423: IF g_log_enabled THEN
2501: ,p_level => C_LEVEL_PROCEDURE
2502: ,p_module =>l_log_module);
2503: trace
2504: (p_msg => 'security_id_int_1 = '||
2505: xla_events_pub_pkg.g_security.security_id_int_1
2506: ,p_level => C_LEVEL_PROCEDURE
2507: ,p_module =>l_log_module);
2508: trace
2509: (p_msg => 'security_id_int_2 = '||
2506: ,p_level => C_LEVEL_PROCEDURE
2507: ,p_module =>l_log_module);
2508: trace
2509: (p_msg => 'security_id_int_2 = '||
2510: xla_events_pub_pkg.g_security.security_id_int_2
2511: ,p_level => C_LEVEL_PROCEDURE
2512: ,p_module =>l_log_module);
2513: trace
2514: (p_msg => 'security_id_int_3 = '||
2511: ,p_level => C_LEVEL_PROCEDURE
2512: ,p_module =>l_log_module);
2513: trace
2514: (p_msg => 'security_id_int_3 = '||
2515: xla_events_pub_pkg.g_security.security_id_int_3
2516: ,p_level => C_LEVEL_PROCEDURE
2517: ,p_module =>l_log_module);
2518: trace
2519: (p_msg => 'security_id_char_1 = '||
2516: ,p_level => C_LEVEL_PROCEDURE
2517: ,p_module =>l_log_module);
2518: trace
2519: (p_msg => 'security_id_char_1 = '||
2520: xla_events_pub_pkg.g_security.security_id_char_1
2521: ,p_level => C_LEVEL_PROCEDURE
2522: ,p_module =>l_log_module);
2523: trace
2524: (p_msg => 'security_id_char_2 = '||
2521: ,p_level => C_LEVEL_PROCEDURE
2522: ,p_module =>l_log_module);
2523: trace
2524: (p_msg => 'security_id_char_2 = '||
2525: xla_events_pub_pkg.g_security.security_id_char_2
2526: ,p_level => C_LEVEL_PROCEDURE
2527: ,p_module =>l_log_module);
2528: trace
2529: (p_msg => 'security_id_char_3 = '||
2526: ,p_level => C_LEVEL_PROCEDURE
2527: ,p_module =>l_log_module);
2528: trace
2529: (p_msg => 'security_id_char_3 = '||
2530: xla_events_pub_pkg.g_security.security_id_char_3
2531: ,p_level => C_LEVEL_PROCEDURE
2532: ,p_module =>l_log_module);
2533: trace
2534: (p_msg => 'valuation_method = '||p_valuation_method
2564: ,p_msg_name => 'XLA_COMMON_ERROR'
2565: ,p_token_1 => 'ERROR'
2566: ,p_value_1 => 'Event ID cannot have a NULL value.'
2567: ,p_token_2 => 'LOCATION'
2568: ,p_value_2 => 'xla_events_pkg.delete_event');
2569: END IF;
2570:
2571: ----------------------------------------------------------------------------
2572: -- Validate parameters
2599: ,p_token_1 => 'ERROR'
2600: ,p_value_1 => 'No event exists for the document represented '||
2601: 'by the given source information.'
2602: ,p_token_2 => 'LOCATION'
2603: ,p_value_2 => 'xla_events_pkg.delete_event');
2604: END IF;
2605:
2606: ----------------------------------------------------------------------------
2607: -- Call routine to delete errors/JEs related to the event bug # 2701681
2613: if(g_gapless_flag='Y') then
2614: begin
2615: select on_hold_flag, event_status_code, event_number
2616: into l_on_hold_flag, l_event_status_code, l_event_number
2617: from xla_events
2618: WHERE event_id = p_event_id
2619: AND entity_id = g_entity_id
2620: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
2621: exception when others then
2616: into l_on_hold_flag, l_event_status_code, l_event_number
2617: from xla_events
2618: WHERE event_id = p_event_id
2619: AND entity_id = g_entity_id
2620: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
2621: exception when others then
2622: xla_exceptions_pkg.raise_message
2623: (p_appli_s_name => 'XLA'
2624: ,p_msg_name => 'XLA_COMMON_ERROR'
2626: ,p_value_1 =>
2627: 'Unable to perform DELETE on the event. The event ('|| p_event_id ||
2628: ') is either invalid or has been final accounted.'
2629: ,p_token_2 => 'LOCATION'
2630: ,p_value_2 => 'xla_events_pkg.delete_event');
2631: end;
2632: end if;
2633:
2634: ----------------------------------------------------------------------------
2633:
2634: ----------------------------------------------------------------------------
2635: -- Actual Delete of the event
2636: ----------------------------------------------------------------------------
2637: DELETE xla_events
2638: WHERE event_id = p_event_id
2639: AND entity_id = g_entity_id
2640: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
2641:
2636: ----------------------------------------------------------------------------
2637: DELETE xla_events
2638: WHERE event_id = p_event_id
2639: AND entity_id = g_entity_id
2640: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED;
2641:
2642: l_rowcount := SQL%ROWCOUNT;
2643:
2644: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2656: ,p_value_1 =>
2657: 'Unable to perform DELETE on the event. The event ('|| p_event_id ||
2658: ') is either invalid or has been final accounted.'
2659: ,p_token_2 => 'LOCATION'
2660: ,p_value_2 => 'xla_events_pkg.delete_event');
2661:
2662: ELSIF g_context = C_MANUAL_EVENT_CONTEXT THEN
2663: --------------------------------------------------------------------------
2664: -- this if condition is added to make sure that the entity row is
2671: DELETE xla_transaction_entities xte
2672: WHERE xte.entity_id = g_entity_id
2673: AND xte.application_id = g_application_id
2674: AND NOT EXISTS
2675: (SELECT '1' FROM xla_events xe
2676: WHERE xe.entity_id = xte.entity_id
2677: AND xe.application_id = xte.application_id);
2678:
2679: l_rowcount := SQL%ROWCOUNT;
2686: END IF;
2687:
2688: ELSIF (g_gapless_flag='Y' and l_on_hold_flag='N'
2689: and l_event_status_code<>'I') then
2690: update xla_events
2691: set on_hold_flag='Y'
2692: where entity_id=g_entity_id
2693: and event_number>l_event_number;
2694: END IF;
2706: RAISE;
2707: WHEN OTHERS THEN
2708: ROLLBACK to SAVEPOINT before_event_delete;
2709: xla_exceptions_pkg.raise_message
2710: (p_location => 'xla_events_pkg.delete_event');
2711: END delete_event;
2712:
2713:
2714: --=============================================================================
2718: --
2719: --=============================================================================
2720:
2721: PROCEDURE delete_processed_event
2722: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2723: ,p_event_id IN INTEGER) IS
2724: l_log_module VARCHAR2(240);
2725: l_rowcount NUMBER;
2726: BEGIN
2805: ,p_level => C_LEVEL_PROCEDURE
2806: ,p_module =>l_log_module);
2807: trace
2808: (p_msg => 'security_id_int_1 = '||
2809: xla_events_pub_pkg.g_security.security_id_int_1
2810: ,p_level => C_LEVEL_PROCEDURE
2811: ,p_module =>l_log_module);
2812: trace
2813: (p_msg => 'security_id_int_2 = '||
2810: ,p_level => C_LEVEL_PROCEDURE
2811: ,p_module =>l_log_module);
2812: trace
2813: (p_msg => 'security_id_int_2 = '||
2814: xla_events_pub_pkg.g_security.security_id_int_2
2815: ,p_level => C_LEVEL_PROCEDURE
2816: ,p_module =>l_log_module);
2817: trace
2818: (p_msg => 'security_id_int_3 = '||
2815: ,p_level => C_LEVEL_PROCEDURE
2816: ,p_module =>l_log_module);
2817: trace
2818: (p_msg => 'security_id_int_3 = '||
2819: xla_events_pub_pkg.g_security.security_id_int_3
2820: ,p_level => C_LEVEL_PROCEDURE
2821: ,p_module =>l_log_module);
2822: trace
2823: (p_msg => 'security_id_char_1 = '||
2820: ,p_level => C_LEVEL_PROCEDURE
2821: ,p_module =>l_log_module);
2822: trace
2823: (p_msg => 'security_id_char_1 = '||
2824: xla_events_pub_pkg.g_security.security_id_char_1
2825: ,p_level => C_LEVEL_PROCEDURE
2826: ,p_module =>l_log_module);
2827: trace
2828: (p_msg => 'security_id_char_2 = '||
2825: ,p_level => C_LEVEL_PROCEDURE
2826: ,p_module =>l_log_module);
2827: trace
2828: (p_msg => 'security_id_char_2 = '||
2829: xla_events_pub_pkg.g_security.security_id_char_2
2830: ,p_level => C_LEVEL_PROCEDURE
2831: ,p_module =>l_log_module);
2832: trace
2833: (p_msg => 'security_id_char_3 = '||
2830: ,p_level => C_LEVEL_PROCEDURE
2831: ,p_module =>l_log_module);
2832: trace
2833: (p_msg => 'security_id_char_3 = '||
2834: xla_events_pub_pkg.g_security.security_id_char_3
2835: ,p_level => C_LEVEL_PROCEDURE
2836: ,p_module =>l_log_module);
2837: END IF;
2838:
2835: ,p_level => C_LEVEL_PROCEDURE
2836: ,p_module =>l_log_module);
2837: END IF;
2838:
2839: trace('> xla_events_pkg.delete_processed_event' , 20);
2840:
2841: SAVEPOINT before_event_delete;
2842: g_action := C_EVENT_DELETE;
2843:
2858: ,p_msg_name => 'XLA_COMMON_ERROR'
2859: ,p_token_1 => 'ERROR'
2860: ,p_value_1 => 'For REGULAR events this API cannot be called'
2861: ,p_token_2 => 'LOCATION'
2862: ,p_value_2 => 'xla_events_pkg.delete_processed_event');
2863: END IF;
2864:
2865: ----------------------------------------------------------------------------
2866: -- perform validations specific to 'deleting event'
2871: ,p_msg_name => 'XLA_COMMON_ERROR'
2872: ,p_token_1 => 'ERROR'
2873: ,p_value_1 => 'Event ID cannot have a NULL value.'
2874: ,p_token_2 => 'LOCATION'
2875: ,p_value_2 => 'xla_events_pkg.delete_processed_event');
2876: END IF;
2877:
2878: ----------------------------------------------------------------------------
2879: -- Validate parameters
2906: ,p_token_1 => 'ERROR'
2907: ,p_value_1 => 'No event exists for the document represented '||
2908: 'by the given source information.'
2909: ,p_token_2 => 'LOCATION'
2910: ,p_value_2 => 'xla_events_pkg.delete_processed_event');
2911: END IF;
2912:
2913: ----------------------------------------------------------------------------
2914: -- Call routine to delete errors/JEs related to the event bug # 2701681
2919:
2920: ----------------------------------------------------------------------------
2921: -- Actual Delete of the event
2922: ----------------------------------------------------------------------------
2923: DELETE xla_events
2924: WHERE event_id = p_event_id
2925: AND entity_id = g_entity_id
2926: AND event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED;
2927:
2922: ----------------------------------------------------------------------------
2923: DELETE xla_events
2924: WHERE event_id = p_event_id
2925: AND entity_id = g_entity_id
2926: AND event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED;
2927:
2928: l_rowcount := SQL%ROWCOUNT;
2929:
2930: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2942: ,p_value_1 =>
2943: 'Unable to perform DELETE on the event. The event ('|| p_event_id ||
2944: ') is either invalid or has not been final accounted.'
2945: ,p_token_2 => 'LOCATION'
2946: ,p_value_2 => 'xla_events_pkg.delete_processed_event');
2947: ELSE
2948: -------------------------------------------------------------------------
2949: -- following will delete the row from entities if there is no
2950: -- event exists for the entity
2952: DELETE xla_transaction_entities xte
2953: WHERE xte.entity_id = g_entity_id
2954: AND xte.application_id = g_application_id
2955: AND NOT EXISTS
2956: (SELECT '1' FROM xla_events xe
2957: WHERE xe.entity_id = xte.entity_id
2958: AND xe.application_id = xte.application_id);
2959:
2960: l_rowcount := SQL%ROWCOUNT;
2981: RAISE;
2982: WHEN OTHERS THEN
2983: ROLLBACK to SAVEPOINT before_event_delete;
2984: xla_exceptions_pkg.raise_message
2985: (p_location => 'xla_events_pkg.delete_processed_event');
2986: END delete_processed_event;
2987:
2988:
2989: --=============================================================================
2993: --
2994: --=============================================================================
2995:
2996: FUNCTION delete_events
2997: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
2998: ,p_valuation_method IN VARCHAR2
2999: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
3000: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
3001: ,p_event_date IN DATE DEFAULT NULL)
3094: ,p_level => C_LEVEL_PROCEDURE
3095: ,p_module =>l_log_module);
3096: trace
3097: (p_msg => 'security_id_int_1 = '||
3098: xla_events_pub_pkg.g_security.security_id_int_1
3099: ,p_level => C_LEVEL_PROCEDURE
3100: ,p_module =>l_log_module);
3101: trace
3102: (p_msg => 'security_id_int_2 = '||
3099: ,p_level => C_LEVEL_PROCEDURE
3100: ,p_module =>l_log_module);
3101: trace
3102: (p_msg => 'security_id_int_2 = '||
3103: xla_events_pub_pkg.g_security.security_id_int_2
3104: ,p_level => C_LEVEL_PROCEDURE
3105: ,p_module =>l_log_module);
3106: trace
3107: (p_msg => 'security_id_int_3 = '||
3104: ,p_level => C_LEVEL_PROCEDURE
3105: ,p_module =>l_log_module);
3106: trace
3107: (p_msg => 'security_id_int_3 = '||
3108: xla_events_pub_pkg.g_security.security_id_int_3
3109: ,p_level => C_LEVEL_PROCEDURE
3110: ,p_module =>l_log_module);
3111: trace
3112: (p_msg => 'security_id_char_1 = '||
3109: ,p_level => C_LEVEL_PROCEDURE
3110: ,p_module =>l_log_module);
3111: trace
3112: (p_msg => 'security_id_char_1 = '||
3113: xla_events_pub_pkg.g_security.security_id_char_1
3114: ,p_level => C_LEVEL_PROCEDURE
3115: ,p_module =>l_log_module);
3116: trace
3117: (p_msg => 'security_id_char_2 = '||
3114: ,p_level => C_LEVEL_PROCEDURE
3115: ,p_module =>l_log_module);
3116: trace
3117: (p_msg => 'security_id_char_2 = '||
3118: xla_events_pub_pkg.g_security.security_id_char_2
3119: ,p_level => C_LEVEL_PROCEDURE
3120: ,p_module =>l_log_module);
3121: trace
3122: (p_msg => 'security_id_char_3 = '||
3119: ,p_level => C_LEVEL_PROCEDURE
3120: ,p_module =>l_log_module);
3121: trace
3122: (p_msg => 'security_id_char_3 = '||
3123: xla_events_pub_pkg.g_security.security_id_char_3
3124: ,p_level => C_LEVEL_PROCEDURE
3125: ,p_module =>l_log_module);
3126: trace
3127: (p_msg => 'valuation_method = '||p_valuation_method
3147: ,p_msg_name => 'XLA_COMMON_ERROR'
3148: ,p_token_1 => 'ERROR'
3149: ,p_value_1 => 'For MANUAL events this API cannot be called'
3150: ,p_token_2 => 'LOCATION'
3151: ,p_value_2 => 'xla_events_pkg.delete_events');
3152: ELSE
3153: g_context := C_REGULAR_EVENT_CONTEXT;
3154: END IF;
3155:
3191: ,p_token_1 => 'ERROR'
3192: ,p_value_1 => 'No event exists for the document represented '||
3193: 'by the given source information.'
3194: ,p_token_2 => 'LOCATION'
3195: ,p_value_2 => 'xla_events_pkg.delete_events (fn)');
3196: END IF;
3197:
3198: ----------------------------------------------------------------------------
3199: -- Fetching event ids for the events that are going to be deleted
3201: begin
3202: if(g_gapless_flag='N') then
3203: SELECT event_id BULK COLLECT
3204: INTO l_array_events
3205: FROM xla_events
3206: WHERE event_date = NVL(l_event_date, event_date)
3207: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
3208: AND event_type_code = NVL(p_event_type_code, event_type_code)
3209: AND entity_id = g_entity_id
3203: SELECT event_id BULK COLLECT
3204: INTO l_array_events
3205: FROM xla_events
3206: WHERE event_date = NVL(l_event_date, event_date)
3207: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
3208: AND event_type_code = NVL(p_event_type_code, event_type_code)
3209: AND entity_id = g_entity_id
3210: AND event_type_code IN
3211: (SELECT event_type_code
3216: event_class_code));
3217: else
3218: SELECT event_id, event_number BULK COLLECT
3219: INTO l_array_events, g_gapless_event_number
3220: FROM xla_events
3221: WHERE event_date = NVL(l_event_date, event_date)
3222: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
3223: AND event_type_code = NVL(p_event_type_code, event_type_code)
3224: AND entity_id = g_entity_id
3218: SELECT event_id, event_number BULK COLLECT
3219: INTO l_array_events, g_gapless_event_number
3220: FROM xla_events
3221: WHERE event_date = NVL(l_event_date, event_date)
3222: AND event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED
3223: AND event_type_code = NVL(p_event_type_code, event_type_code)
3224: AND entity_id = g_entity_id
3225: AND event_type_code IN
3226: (SELECT event_type_code
3247: ----------------------------------------------------------------------------
3248: -- Actual Delete
3249: ----------------------------------------------------------------------------
3250: FORAll i IN 1..l_array_events.COUNT
3251: DELETE xla_events
3252: WHERE event_id = l_array_events(i);
3253:
3254: l_event_deleted := SQL%ROWCOUNT;
3255:
3264: ,p_module =>l_log_module);
3265: END IF;
3266:
3267: if(g_gapless_flag='Y' and l_event_deleted>0 ) then
3268: update xla_events
3269: set on_hold_flag='Y'
3270: where event_number>g_gapless_event_number(1)
3271: and on_hold_flag='N'
3272: and entity_id=g_entity_id;
3291: RAISE;
3292: WHEN OTHERS THEN
3293: ROLLBACK to SAVEPOINT before_event_delete;
3294: xla_exceptions_pkg.raise_message
3295: (p_location => 'xla_events_pkg.delete_events (fn)');
3296: END delete_events;
3297:
3298:
3299: --============================================================================
3306: --
3307: --============================================================================
3308:
3309: FUNCTION delete_entity
3310: (p_source_info IN xla_events_pub_pkg.t_event_source_info
3311: ,p_valuation_method IN VARCHAR2)
3312: RETURN INTEGER IS
3313:
3314: l_log_module VARCHAR2(240);
3315: l_temp NUMBER;
3316: l_entity_id XLA_TRANSACTION_ENTITIES.ENTITY_ID%TYPE;
3317: cursor c_existing_events is
3318: select 1
3319: from xla_events
3320: where entity_id=l_entity_id;
3321: BEGIN
3322: IF g_log_enabled THEN
3323: l_log_module := C_DEFAULT_MODULE||'.delete_entity';
3386: ,p_level => C_LEVEL_PROCEDURE
3387: ,p_module =>l_log_module);
3388: trace
3389: (p_msg => 'security_id_int_1 = '||
3390: xla_events_pub_pkg.g_security.security_id_int_1
3391: ,p_level => C_LEVEL_PROCEDURE
3392: ,p_module =>l_log_module);
3393: trace
3394: (p_msg => 'security_id_int_2 = '||
3391: ,p_level => C_LEVEL_PROCEDURE
3392: ,p_module =>l_log_module);
3393: trace
3394: (p_msg => 'security_id_int_2 = '||
3395: xla_events_pub_pkg.g_security.security_id_int_2
3396: ,p_level => C_LEVEL_PROCEDURE
3397: ,p_module =>l_log_module);
3398: trace
3399: (p_msg => 'security_id_int_3 = '||
3396: ,p_level => C_LEVEL_PROCEDURE
3397: ,p_module =>l_log_module);
3398: trace
3399: (p_msg => 'security_id_int_3 = '||
3400: xla_events_pub_pkg.g_security.security_id_int_3
3401: ,p_level => C_LEVEL_PROCEDURE
3402: ,p_module =>l_log_module);
3403: trace
3404: (p_msg => 'security_id_char_1 = '||
3401: ,p_level => C_LEVEL_PROCEDURE
3402: ,p_module =>l_log_module);
3403: trace
3404: (p_msg => 'security_id_char_1 = '||
3405: xla_events_pub_pkg.g_security.security_id_char_1
3406: ,p_level => C_LEVEL_PROCEDURE
3407: ,p_module =>l_log_module);
3408: trace
3409: (p_msg => 'security_id_char_2 = '||
3406: ,p_level => C_LEVEL_PROCEDURE
3407: ,p_module =>l_log_module);
3408: trace
3409: (p_msg => 'security_id_char_2 = '||
3410: xla_events_pub_pkg.g_security.security_id_char_2
3411: ,p_level => C_LEVEL_PROCEDURE
3412: ,p_module =>l_log_module);
3413: trace
3414: (p_msg => 'security_id_char_3 = '||
3411: ,p_level => C_LEVEL_PROCEDURE
3412: ,p_module =>l_log_module);
3413: trace
3414: (p_msg => 'security_id_char_3 = '||
3415: xla_events_pub_pkg.g_security.security_id_char_3
3416: ,p_level => C_LEVEL_PROCEDURE
3417: ,p_module =>l_log_module);
3418: trace
3419: (p_msg => 'valuation_method = '||p_valuation_method
3460: NVL(p_source_info.source_id_char_4,C_CHAR)
3461: AND NVL(a.valuation_method,C_CHAR) =
3462: NVL(p_valuation_method,C_CHAR)
3463: AND NVL(a.security_id_int_1,C_NUM) =
3464: NVL(xla_events_pub_pkg.g_security.security_id_int_1,C_NUM)
3465: AND NVL(a.security_id_int_2,C_NUM) =
3466: NVL(xla_events_pub_pkg.g_security.security_id_int_2,C_NUM)
3467: AND NVL(a.security_id_int_3,C_NUM) =
3468: NVL(xla_events_pub_pkg.g_security.security_id_int_3,C_NUM)
3462: NVL(p_valuation_method,C_CHAR)
3463: AND NVL(a.security_id_int_1,C_NUM) =
3464: NVL(xla_events_pub_pkg.g_security.security_id_int_1,C_NUM)
3465: AND NVL(a.security_id_int_2,C_NUM) =
3466: NVL(xla_events_pub_pkg.g_security.security_id_int_2,C_NUM)
3467: AND NVL(a.security_id_int_3,C_NUM) =
3468: NVL(xla_events_pub_pkg.g_security.security_id_int_3,C_NUM)
3469: AND NVL(a.security_id_char_1,C_CHAR) =
3470: NVL(xla_events_pub_pkg.g_security.security_id_char_1,C_CHAR)
3464: NVL(xla_events_pub_pkg.g_security.security_id_int_1,C_NUM)
3465: AND NVL(a.security_id_int_2,C_NUM) =
3466: NVL(xla_events_pub_pkg.g_security.security_id_int_2,C_NUM)
3467: AND NVL(a.security_id_int_3,C_NUM) =
3468: NVL(xla_events_pub_pkg.g_security.security_id_int_3,C_NUM)
3469: AND NVL(a.security_id_char_1,C_CHAR) =
3470: NVL(xla_events_pub_pkg.g_security.security_id_char_1,C_CHAR)
3471: AND NVL(a.security_id_char_2,C_CHAR) =
3472: NVL(xla_events_pub_pkg.g_security.security_id_char_2,C_CHAR)
3466: NVL(xla_events_pub_pkg.g_security.security_id_int_2,C_NUM)
3467: AND NVL(a.security_id_int_3,C_NUM) =
3468: NVL(xla_events_pub_pkg.g_security.security_id_int_3,C_NUM)
3469: AND NVL(a.security_id_char_1,C_CHAR) =
3470: NVL(xla_events_pub_pkg.g_security.security_id_char_1,C_CHAR)
3471: AND NVL(a.security_id_char_2,C_CHAR) =
3472: NVL(xla_events_pub_pkg.g_security.security_id_char_2,C_CHAR)
3473: AND NVL(a.security_id_char_3,C_CHAR) =
3474: NVL(xla_events_pub_pkg.g_security.security_id_char_3,C_CHAR);
3468: NVL(xla_events_pub_pkg.g_security.security_id_int_3,C_NUM)
3469: AND NVL(a.security_id_char_1,C_CHAR) =
3470: NVL(xla_events_pub_pkg.g_security.security_id_char_1,C_CHAR)
3471: AND NVL(a.security_id_char_2,C_CHAR) =
3472: NVL(xla_events_pub_pkg.g_security.security_id_char_2,C_CHAR)
3473: AND NVL(a.security_id_char_3,C_CHAR) =
3474: NVL(xla_events_pub_pkg.g_security.security_id_char_3,C_CHAR);
3475: EXCEPTION when others then
3476: xla_exceptions_pkg.raise_message
3470: NVL(xla_events_pub_pkg.g_security.security_id_char_1,C_CHAR)
3471: AND NVL(a.security_id_char_2,C_CHAR) =
3472: NVL(xla_events_pub_pkg.g_security.security_id_char_2,C_CHAR)
3473: AND NVL(a.security_id_char_3,C_CHAR) =
3474: NVL(xla_events_pub_pkg.g_security.security_id_char_3,C_CHAR);
3475: EXCEPTION when others then
3476: xla_exceptions_pkg.raise_message
3477: (p_appli_s_name => 'XLA'
3478: ,p_msg_name => 'XLA_COMMON_ERROR'
3479: ,p_token_1 => 'ERROR'
3480: ,p_value_1 =>
3481: 'Unable to perform DELETE on the entity. The entity does not exist'
3482: ,p_token_2 => 'LOCATION'
3483: ,p_value_2 => 'xla_events_pkg.delete_entity');
3484: END;
3485:
3486: OPEN c_existing_events;
3487: FETCH c_existing_events into l_temp;
3530: RAISE;
3531: WHEN OTHERS THEN
3532: ROLLBACK to SAVEPOINT before_entity_delete;
3533: xla_exceptions_pkg.raise_message
3534: (p_location => 'xla_events_pkg.delete_entity');
3535: END delete_entity;
3536:
3537: --=============================================================================
3538: --
3541: --
3542: --=============================================================================
3543:
3544: PROCEDURE purge_entity
3545: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info) IS
3546: BEGIN
3547: trace('> xla_events_pkg.delete_entity' , 20);
3548:
3549: SAVEPOINT before_entity_delete;
3543:
3544: PROCEDURE purge_entity
3545: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info) IS
3546: BEGIN
3547: trace('> xla_events_pkg.delete_entity' , 20);
3548:
3549: SAVEPOINT before_entity_delete;
3550: g_action := C_EVENT_DELETE;
3551:
3579: ,p_token_1 => 'ERROR'
3580: ,p_value_1 =>
3581: 'No event exists for the document represented by the given source information.'
3582: ,p_token_2 => 'LOCATION'
3583: ,p_value_2 => 'xla_events_pkg.delete_entity');
3584: END IF;
3585:
3586: trace('< xla_events_pkg.delete_entity' , 20);
3587: EXCEPTION
3582: ,p_token_2 => 'LOCATION'
3583: ,p_value_2 => 'xla_events_pkg.delete_entity');
3584: END IF;
3585:
3586: trace('< xla_events_pkg.delete_entity' , 20);
3587: EXCEPTION
3588: WHEN xla_exceptions_pkg.application_exception THEN
3589: ROLLBACK to SAVEPOINT before_entity_delete;
3590: RAISE;
3590: RAISE;
3591: WHEN OTHERS THEN
3592: ROLLBACK to SAVEPOINT before_entity_delete;
3593: xla_exceptions_pkg.raise_message
3594: (p_location => 'xla_events_pkg.delete_entity');
3595: END purge_entity;
3596:
3597:
3598: --=============================================================================
3602: --
3603: --=============================================================================
3604:
3605: FUNCTION get_event_info
3606: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
3607: ,p_valuation_method IN VARCHAR2
3608: ,p_event_id IN INTEGER)
3609: RETURN xla_events_pub_pkg.t_event_info IS
3610:
3605: FUNCTION get_event_info
3606: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
3607: ,p_valuation_method IN VARCHAR2
3608: ,p_event_id IN INTEGER)
3609: RETURN xla_events_pub_pkg.t_event_info IS
3610:
3611: l_event_info xla_events_pub_pkg.t_event_info;
3612: l_log_module VARCHAR2(240);
3613:
3607: ,p_valuation_method IN VARCHAR2
3608: ,p_event_id IN INTEGER)
3609: RETURN xla_events_pub_pkg.t_event_info IS
3610:
3611: l_event_info xla_events_pub_pkg.t_event_info;
3612: l_log_module VARCHAR2(240);
3613:
3614: BEGIN
3615: IF g_log_enabled THEN
3693: ,p_level => C_LEVEL_PROCEDURE
3694: ,p_module =>l_log_module);
3695: trace
3696: (p_msg => 'security_id_int_1 = '||
3697: xla_events_pub_pkg.g_security.security_id_int_1
3698: ,p_level => C_LEVEL_PROCEDURE
3699: ,p_module =>l_log_module);
3700: trace
3701: (p_msg => 'security_id_int_2 = '||
3698: ,p_level => C_LEVEL_PROCEDURE
3699: ,p_module =>l_log_module);
3700: trace
3701: (p_msg => 'security_id_int_2 = '||
3702: xla_events_pub_pkg.g_security.security_id_int_2
3703: ,p_level => C_LEVEL_PROCEDURE
3704: ,p_module =>l_log_module);
3705: trace
3706: (p_msg => 'security_id_int_3 = '||
3703: ,p_level => C_LEVEL_PROCEDURE
3704: ,p_module =>l_log_module);
3705: trace
3706: (p_msg => 'security_id_int_3 = '||
3707: xla_events_pub_pkg.g_security.security_id_int_3
3708: ,p_level => C_LEVEL_PROCEDURE
3709: ,p_module =>l_log_module);
3710: trace
3711: (p_msg => 'security_id_char_1 = '||
3708: ,p_level => C_LEVEL_PROCEDURE
3709: ,p_module =>l_log_module);
3710: trace
3711: (p_msg => 'security_id_char_1 = '||
3712: xla_events_pub_pkg.g_security.security_id_char_1
3713: ,p_level => C_LEVEL_PROCEDURE
3714: ,p_module =>l_log_module);
3715: trace
3716: (p_msg => 'security_id_char_2 = '||
3713: ,p_level => C_LEVEL_PROCEDURE
3714: ,p_module =>l_log_module);
3715: trace
3716: (p_msg => 'security_id_char_2 = '||
3717: xla_events_pub_pkg.g_security.security_id_char_2
3718: ,p_level => C_LEVEL_PROCEDURE
3719: ,p_module =>l_log_module);
3720: trace
3721: (p_msg => 'security_id_char_3 = '||
3718: ,p_level => C_LEVEL_PROCEDURE
3719: ,p_module =>l_log_module);
3720: trace
3721: (p_msg => 'security_id_char_3 = '||
3722: xla_events_pub_pkg.g_security.security_id_char_3
3723: ,p_level => C_LEVEL_PROCEDURE
3724: ,p_module =>l_log_module);
3725: trace
3726: (p_msg => 'valuation_method = '||p_valuation_method
3756: ,p_token_1 => 'ERROR'
3757: ,p_value_1 =>
3758: 'Event ID has an invalid value. It cannot have a NULL value.'
3759: ,p_token_2 => 'LOCATION'
3760: ,p_value_2 => 'xla_events_pkg.get_event_info');
3761: END IF;
3762:
3763: ----------------------------------------------------------------------------
3764: -- Validate parameters
3791: ,p_token_1 => 'ERROR'
3792: ,p_value_1 => 'No event exists for the document represented '||
3793: 'by the given source information.'
3794: ,p_token_2 => 'LOCATION'
3795: ,p_value_2 => 'xla_events_pkg.get_event_info');
3796: END IF;
3797:
3798: SELECT event_id
3799: ,event_number
3830: ,l_event_info.reference_date_1
3831: ,l_event_info.reference_date_2
3832: ,l_event_info.reference_date_3
3833: ,l_event_info.reference_date_4
3834: FROM xla_events
3835: WHERE event_id = p_event_id
3836: AND entity_id = g_entity_id;
3837:
3838: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
3850: ,p_msg_name => 'XLA_COMMON_ERROR'
3851: ,p_token_1 => 'ERROR'
3852: ,p_value_1 => 'The event id '||p_event_id||' does not exist'
3853: ,p_token_2 => 'LOCATION'
3854: ,p_value_2 => 'xla_events_pkg.get_event_info');
3855: WHEN xla_exceptions_pkg.application_exception THEN
3856: RAISE;
3857: WHEN OTHERS THEN
3858: xla_exceptions_pkg.raise_message
3855: WHEN xla_exceptions_pkg.application_exception THEN
3856: RAISE;
3857: WHEN OTHERS THEN
3858: xla_exceptions_pkg.raise_message
3859: (p_location => 'xla_events_pkg.get_event_info (fn)');
3860: END get_event_info;
3861:
3862:
3863: --=============================================================================
3866: --
3867: --=============================================================================
3868:
3869: FUNCTION get_event_status
3870: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
3871: ,p_valuation_method IN VARCHAR2
3872: ,p_event_id IN INTEGER)
3873: RETURN VARCHAR2 IS
3874:
3871: ,p_valuation_method IN VARCHAR2
3872: ,p_event_id IN INTEGER)
3873: RETURN VARCHAR2 IS
3874:
3875: l_event_info xla_events_pub_pkg.t_event_info;
3876: l_log_module VARCHAR2(240);
3877: BEGIN
3878: IF g_log_enabled THEN
3879: l_log_module := C_DEFAULT_MODULE||'.get_event_status';
3956: ,p_level => C_LEVEL_PROCEDURE
3957: ,p_module =>l_log_module);
3958: trace
3959: (p_msg => 'security_id_int_1 = '||
3960: xla_events_pub_pkg.g_security.security_id_int_1
3961: ,p_level => C_LEVEL_PROCEDURE
3962: ,p_module =>l_log_module);
3963: trace
3964: (p_msg => 'security_id_int_2 = '||
3961: ,p_level => C_LEVEL_PROCEDURE
3962: ,p_module =>l_log_module);
3963: trace
3964: (p_msg => 'security_id_int_2 = '||
3965: xla_events_pub_pkg.g_security.security_id_int_2
3966: ,p_level => C_LEVEL_PROCEDURE
3967: ,p_module =>l_log_module);
3968: trace
3969: (p_msg => 'security_id_int_3 = '||
3966: ,p_level => C_LEVEL_PROCEDURE
3967: ,p_module =>l_log_module);
3968: trace
3969: (p_msg => 'security_id_int_3 = '||
3970: xla_events_pub_pkg.g_security.security_id_int_3
3971: ,p_level => C_LEVEL_PROCEDURE
3972: ,p_module =>l_log_module);
3973: trace
3974: (p_msg => 'security_id_char_1 = '||
3971: ,p_level => C_LEVEL_PROCEDURE
3972: ,p_module =>l_log_module);
3973: trace
3974: (p_msg => 'security_id_char_1 = '||
3975: xla_events_pub_pkg.g_security.security_id_char_1
3976: ,p_level => C_LEVEL_PROCEDURE
3977: ,p_module =>l_log_module);
3978: trace
3979: (p_msg => 'security_id_char_2 = '||
3976: ,p_level => C_LEVEL_PROCEDURE
3977: ,p_module =>l_log_module);
3978: trace
3979: (p_msg => 'security_id_char_2 = '||
3980: xla_events_pub_pkg.g_security.security_id_char_2
3981: ,p_level => C_LEVEL_PROCEDURE
3982: ,p_module =>l_log_module);
3983: trace
3984: (p_msg => 'security_id_char_3 = '||
3981: ,p_level => C_LEVEL_PROCEDURE
3982: ,p_module =>l_log_module);
3983: trace
3984: (p_msg => 'security_id_char_3 = '||
3985: xla_events_pub_pkg.g_security.security_id_char_3
3986: ,p_level => C_LEVEL_PROCEDURE
3987: ,p_module =>l_log_module);
3988: trace
3989: (p_msg => 'valuation_method = '||p_valuation_method
4012: WHEN xla_exceptions_pkg.application_exception THEN
4013: RAISE;
4014: WHEN OTHERS THEN
4015: xla_exceptions_pkg.raise_message
4016: (p_location => 'xla_events_pkg.get_event_status (fn)');
4017: END get_event_status ;
4018:
4019:
4020: --=============================================================================
4024: --
4025: --=============================================================================
4026:
4027: FUNCTION event_exists
4028: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
4029: ,p_valuation_method IN VARCHAR2
4030: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
4031: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
4032: ,p_event_date IN DATE DEFAULT NULL
4039: l_event_date DATE;
4040:
4041: CURSOR c1 IS
4042: SELECT event_status_code
4043: FROM xla_events
4044: WHERE event_date = NVL(l_event_date, event_date)
4045: AND event_type_code = NVL(p_event_type_code, event_type_code)
4046: AND event_status_code = NVL(p_event_status_code, event_status_code)
4047: AND event_number = NVL(p_event_number, event_number)
4156: ,p_level => C_LEVEL_PROCEDURE
4157: ,p_module =>l_log_module);
4158: trace
4159: (p_msg => 'security_id_int_1 = '||
4160: xla_events_pub_pkg.g_security.security_id_int_1
4161: ,p_level => C_LEVEL_PROCEDURE
4162: ,p_module =>l_log_module);
4163: trace
4164: (p_msg => 'security_id_int_2 = '||
4161: ,p_level => C_LEVEL_PROCEDURE
4162: ,p_module =>l_log_module);
4163: trace
4164: (p_msg => 'security_id_int_2 = '||
4165: xla_events_pub_pkg.g_security.security_id_int_2
4166: ,p_level => C_LEVEL_PROCEDURE
4167: ,p_module =>l_log_module);
4168: trace
4169: (p_msg => 'security_id_int_3 = '||
4166: ,p_level => C_LEVEL_PROCEDURE
4167: ,p_module =>l_log_module);
4168: trace
4169: (p_msg => 'security_id_int_3 = '||
4170: xla_events_pub_pkg.g_security.security_id_int_3
4171: ,p_level => C_LEVEL_PROCEDURE
4172: ,p_module =>l_log_module);
4173: trace
4174: (p_msg => 'security_id_char_1 = '||
4171: ,p_level => C_LEVEL_PROCEDURE
4172: ,p_module =>l_log_module);
4173: trace
4174: (p_msg => 'security_id_char_1 = '||
4175: xla_events_pub_pkg.g_security.security_id_char_1
4176: ,p_level => C_LEVEL_PROCEDURE
4177: ,p_module =>l_log_module);
4178: trace
4179: (p_msg => 'security_id_char_2 = '||
4176: ,p_level => C_LEVEL_PROCEDURE
4177: ,p_module =>l_log_module);
4178: trace
4179: (p_msg => 'security_id_char_2 = '||
4180: xla_events_pub_pkg.g_security.security_id_char_2
4181: ,p_level => C_LEVEL_PROCEDURE
4182: ,p_module =>l_log_module);
4183: trace
4184: (p_msg => 'security_id_char_3 = '||
4181: ,p_level => C_LEVEL_PROCEDURE
4182: ,p_module =>l_log_module);
4183: trace
4184: (p_msg => 'security_id_char_3 = '||
4185: xla_events_pub_pkg.g_security.security_id_char_3
4186: ,p_level => C_LEVEL_PROCEDURE
4187: ,p_module =>l_log_module);
4188: trace
4189: (p_msg => 'valuation_method = '||p_valuation_method
4208: ,p_msg_name => 'XLA_COMMON_ERROR'
4209: ,p_token_1 => 'ERROR'
4210: ,p_value_1 => 'For MANUAL events event_id cannot be NULL'
4211: ,p_token_2 => 'LOCATION'
4212: ,p_value_2 => 'xla_events_pkg.event_exists');
4213: END IF;
4214: g_context := C_MANUAL_EVENT_CONTEXT;
4215: ELSE
4216: g_context := C_REGULAR_EVENT_CONTEXT;
4270: ,p_token_1 => 'ERROR'
4271: ,p_value_1 => 'No event exists for the document represented '||
4272: 'by the given source information.'
4273: ,p_token_2 => 'LOCATION'
4274: ,p_value_2 => 'xla_events_pkg.event_exists (fn)');
4275: */
4276: END IF;
4277:
4278: OPEN c1;
4324: IF c1%ISOPEN THEN
4325: CLOSE c1;
4326: END IF;
4327: xla_exceptions_pkg.raise_message
4328: (p_location => 'xla_events_pkg.event_exists (fn)');
4329: END event_exists;
4330:
4331:
4332: --=============================================================================
4336: --
4337: --=============================================================================
4338:
4339: PROCEDURE update_transaction_number
4340: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
4341: ,p_valuation_method IN VARCHAR2
4342: ,p_transaction_number IN VARCHAR2
4343: ,p_event_id IN PLS_INTEGER DEFAULT NULL) IS
4344: l_log_module VARCHAR2(240);
4428: ,p_level => C_LEVEL_PROCEDURE
4429: ,p_module =>l_log_module);
4430: trace
4431: (p_msg => 'security_id_int_1 = '||
4432: xla_events_pub_pkg.g_security.security_id_int_1
4433: ,p_level => C_LEVEL_PROCEDURE
4434: ,p_module =>l_log_module);
4435: trace
4436: (p_msg => 'security_id_int_2 = '||
4433: ,p_level => C_LEVEL_PROCEDURE
4434: ,p_module =>l_log_module);
4435: trace
4436: (p_msg => 'security_id_int_2 = '||
4437: xla_events_pub_pkg.g_security.security_id_int_2
4438: ,p_level => C_LEVEL_PROCEDURE
4439: ,p_module =>l_log_module);
4440: trace
4441: (p_msg => 'security_id_int_3 = '||
4438: ,p_level => C_LEVEL_PROCEDURE
4439: ,p_module =>l_log_module);
4440: trace
4441: (p_msg => 'security_id_int_3 = '||
4442: xla_events_pub_pkg.g_security.security_id_int_3
4443: ,p_level => C_LEVEL_PROCEDURE
4444: ,p_module =>l_log_module);
4445: trace
4446: (p_msg => 'security_id_char_1 = '||
4443: ,p_level => C_LEVEL_PROCEDURE
4444: ,p_module =>l_log_module);
4445: trace
4446: (p_msg => 'security_id_char_1 = '||
4447: xla_events_pub_pkg.g_security.security_id_char_1
4448: ,p_level => C_LEVEL_PROCEDURE
4449: ,p_module =>l_log_module);
4450: trace
4451: (p_msg => 'security_id_char_2 = '||
4448: ,p_level => C_LEVEL_PROCEDURE
4449: ,p_module =>l_log_module);
4450: trace
4451: (p_msg => 'security_id_char_2 = '||
4452: xla_events_pub_pkg.g_security.security_id_char_2
4453: ,p_level => C_LEVEL_PROCEDURE
4454: ,p_module =>l_log_module);
4455: trace
4456: (p_msg => 'security_id_char_3 = '||
4453: ,p_level => C_LEVEL_PROCEDURE
4454: ,p_module =>l_log_module);
4455: trace
4456: (p_msg => 'security_id_char_3 = '||
4457: xla_events_pub_pkg.g_security.security_id_char_3
4458: ,p_level => C_LEVEL_PROCEDURE
4459: ,p_module =>l_log_module);
4460: trace
4461: (p_msg => 'valuation_method = '||p_valuation_method
4480: ,p_msg_name => 'XLA_COMMON_ERROR'
4481: ,p_token_1 => 'ERROR'
4482: ,p_value_1 => 'For MANUAL events event_id cannot be NULL'
4483: ,p_token_2 => 'LOCATION'
4484: ,p_value_2 => 'xla_events_pkg.update_transaction_number');
4485: END IF;
4486: g_context := C_MANUAL_EVENT_CONTEXT;
4487: ELSE
4488: g_context := C_REGULAR_EVENT_CONTEXT;
4521: ,p_token_1 => 'ERROR'
4522: ,p_value_1 => 'No event exists for the document represented '||
4523: 'by the given source information.'
4524: ,p_token_2 => 'LOCATION'
4525: ,p_value_2 => 'xla_events_pkg.update_transaction_number');
4526: END IF;
4527:
4528: update_entity_trx_number
4529: (p_transaction_number => p_transaction_number);
4539: WHEN xla_exceptions_pkg.application_exception THEN
4540: RAISE;
4541: WHEN OTHERS THEN
4542: xla_exceptions_pkg.raise_message
4543: (p_location => 'xla_events_pkg.update_transaction_number');
4544: END update_transaction_number;
4545:
4546:
4547: --=============================================================================
4551: --
4552: --=============================================================================
4553:
4554: FUNCTION get_entity_id
4555: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
4556: ,p_valuation_method IN VARCHAR2
4557: ,p_event_id IN PLS_INTEGER DEFAULT NULL)
4558: RETURN INTEGER IS
4559: l_log_module VARCHAR2(240);
4639: ,p_level => C_LEVEL_PROCEDURE
4640: ,p_module =>l_log_module);
4641: trace
4642: (p_msg => 'security_id_int_1 = '||
4643: xla_events_pub_pkg.g_security.security_id_int_1
4644: ,p_level => C_LEVEL_PROCEDURE
4645: ,p_module =>l_log_module);
4646: trace
4647: (p_msg => 'security_id_int_2 = '||
4644: ,p_level => C_LEVEL_PROCEDURE
4645: ,p_module =>l_log_module);
4646: trace
4647: (p_msg => 'security_id_int_2 = '||
4648: xla_events_pub_pkg.g_security.security_id_int_2
4649: ,p_level => C_LEVEL_PROCEDURE
4650: ,p_module =>l_log_module);
4651: trace
4652: (p_msg => 'security_id_int_3 = '||
4649: ,p_level => C_LEVEL_PROCEDURE
4650: ,p_module =>l_log_module);
4651: trace
4652: (p_msg => 'security_id_int_3 = '||
4653: xla_events_pub_pkg.g_security.security_id_int_3
4654: ,p_level => C_LEVEL_PROCEDURE
4655: ,p_module =>l_log_module);
4656: trace
4657: (p_msg => 'security_id_char_1 = '||
4654: ,p_level => C_LEVEL_PROCEDURE
4655: ,p_module =>l_log_module);
4656: trace
4657: (p_msg => 'security_id_char_1 = '||
4658: xla_events_pub_pkg.g_security.security_id_char_1
4659: ,p_level => C_LEVEL_PROCEDURE
4660: ,p_module =>l_log_module);
4661: trace
4662: (p_msg => 'security_id_char_2 = '||
4659: ,p_level => C_LEVEL_PROCEDURE
4660: ,p_module =>l_log_module);
4661: trace
4662: (p_msg => 'security_id_char_2 = '||
4663: xla_events_pub_pkg.g_security.security_id_char_2
4664: ,p_level => C_LEVEL_PROCEDURE
4665: ,p_module =>l_log_module);
4666: trace
4667: (p_msg => 'security_id_char_3 = '||
4664: ,p_level => C_LEVEL_PROCEDURE
4665: ,p_module =>l_log_module);
4666: trace
4667: (p_msg => 'security_id_char_3 = '||
4668: xla_events_pub_pkg.g_security.security_id_char_3
4669: ,p_level => C_LEVEL_PROCEDURE
4670: ,p_module =>l_log_module);
4671: trace
4672: (p_msg => 'valuation_method = '||p_valuation_method
4691: ,p_msg_name => 'XLA_COMMON_ERROR'
4692: ,p_token_1 => 'ERROR'
4693: ,p_value_1 => 'For MANUAL events event_id cannot be NULL'
4694: ,p_token_2 => 'LOCATION'
4695: ,p_value_2 => 'xla_events_pkg.get_entity_id');
4696: END IF;
4697: g_context := C_MANUAL_EVENT_CONTEXT;
4698: ELSE
4699: g_context := C_REGULAR_EVENT_CONTEXT;
4730: ,p_token_1 => 'ERROR'
4731: ,p_value_1 => 'No event exists for the document represented '||
4732: 'by the given source information.'
4733: ,p_token_2 => 'LOCATION'
4734: ,p_value_2 => 'xla_events_pkg.get_entity_id');
4735: END IF;
4736:
4737: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
4738: trace
4750: WHEN xla_exceptions_pkg.application_exception THEN
4751: RAISE;
4752: WHEN OTHERS THEN
4753: xla_exceptions_pkg.raise_message
4754: (p_location => 'xla_events_pkg.get_entity_id');
4755: END get_entity_id;
4756:
4757:
4758: --=============================================================================
4818:
4819: l_array_entity_id t_array_number;
4820: l_array_event_id t_array_number;
4821:
4822: l_array_event_number xla_events_pub_pkg.t_array_event_number;
4823: l_array_event_date xla_events_pub_pkg.t_array_event_date;
4824: l_array_transaction_date xla_events_pub_pkg.t_array_event_date;
4825: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
4826: l_last PLS_INTEGER;
4819: l_array_entity_id t_array_number;
4820: l_array_event_id t_array_number;
4821:
4822: l_array_event_number xla_events_pub_pkg.t_array_event_number;
4823: l_array_event_date xla_events_pub_pkg.t_array_event_date;
4824: l_array_transaction_date xla_events_pub_pkg.t_array_event_date;
4825: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
4826: l_last PLS_INTEGER;
4827: l_entity_id PLS_INTEGER;
4820: l_array_event_id t_array_number;
4821:
4822: l_array_event_number xla_events_pub_pkg.t_array_event_number;
4823: l_array_event_date xla_events_pub_pkg.t_array_event_date;
4824: l_array_transaction_date xla_events_pub_pkg.t_array_event_date;
4825: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
4826: l_last PLS_INTEGER;
4827: l_entity_id PLS_INTEGER;
4828: l_current_entity_id PLS_INTEGER;
4821:
4822: l_array_event_number xla_events_pub_pkg.t_array_event_number;
4823: l_array_event_date xla_events_pub_pkg.t_array_event_date;
4824: l_array_transaction_date xla_events_pub_pkg.t_array_event_date;
4825: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
4826: l_last PLS_INTEGER;
4827: l_entity_id PLS_INTEGER;
4828: l_current_entity_id PLS_INTEGER;
4829: l_current_event_number NUMBER;
4827: l_entity_id PLS_INTEGER;
4828: l_current_entity_id PLS_INTEGER;
4829: l_current_event_number NUMBER;
4830:
4831: l_on_hold_flag xla_events.on_hold_flag%type:='N';
4832: l_event_count number;
4833: l_array_on_hold_flag t_on_hold_flag_tbl;
4834:
4835: l_rowcount NUMBER;
4844: l_log_module VARCHAR2(240);
4845:
4846: CURSOR csr_xla_event_exist IS
4847: SELECT 1
4848: FROM xla_events_int_gt;
4849:
4850: CURSOR csr_xla_event_number IS
4851: SELECT 1
4852: FROM xla_events_int_gt
4848: FROM xla_events_int_gt;
4849:
4850: CURSOR csr_xla_event_number IS
4851: SELECT 1
4852: FROM xla_events_int_gt
4853: WHERE event_number is null or event_number<1;
4854:
4855: CURSOR csr_processing_gapless IS
4856: SELECT entity_id, event_id, event_number, event_status_code
4853: WHERE event_number is null or event_number<1;
4854:
4855: CURSOR csr_processing_gapless IS
4856: SELECT entity_id, event_id, event_number, event_status_code
4857: FROM xla_events_int_gt
4858: ORDER BY entity_id, event_number;
4859:
4860: CURSOR csr_status_error is
4861: SELECT 1 from xla_events_int_gt
4857: FROM xla_events_int_gt
4858: ORDER BY entity_id, event_number;
4859:
4860: CURSOR csr_status_error is
4861: SELECT 1 from xla_events_int_gt
4862: WHERE event_status_code not in ('I', 'U', 'N');
4863:
4864: CURSOR csr_event_type_error(p_entity_code VARCHAR2, p_app_id NUMBER) is
4865: SELECT 1
4862: WHERE event_status_code not in ('I', 'U', 'N');
4863:
4864: CURSOR csr_event_type_error(p_entity_code VARCHAR2, p_app_id NUMBER) is
4865: SELECT 1
4866: FROM xla_events_int_gt xeg, xla_event_types_b xet
4867: WHERE xet.entity_code(+) = p_entity_code
4868: AND xet.application_id(+) = p_app_id
4869: AND xeg.event_type_code = xet.event_type_code (+)
4870: AND nvl(xet.enabled_flag, 'N') = 'N';
4870: AND nvl(xet.enabled_flag, 'N') = 'N';
4871:
4872: CURSOR csr_parameter_mismatch(p_entity_code VARCHAR2, p_app_id NUMBER) is
4873: SELECT 1
4874: FROM xla_events_int_gt xeg
4875: WHERE xeg.entity_code <> p_entity_code
4876: OR xeg.application_id <> p_app_id;
4877:
4878: l_update_gt_string varchar2(4000);
4899: ,source_id_char_2
4900: ,source_id_char_3
4901: ,source_id_char_4
4902: ,valuation_method
4903: FROM xla_events_int_gt);
4904:
4905: BEGIN
4906: IF g_log_enabled THEN
4907: l_log_module := C_DEFAULT_MODULE||'.create_bulk_events';
4953: ,p_msg_name => 'XLA_COMMON_ERROR'
4954: ,p_token_1 => 'ERROR'
4955: ,p_value_1 => 'For MANUAL events this API cannot be called'
4956: ,p_token_2 => 'LOCATION'
4957: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
4958: ELSE
4959: g_context := C_REGULAR_EVENT_CONTEXT;
4960: END IF;
4961:
4962: ----------------------------------------------------------------------------
4963: -- Immediately exit if the table is empty
4964: -- the l_rowcount_gt is also useful to find if there is invalid data
4965: ----------------------------------------------------------------------------
4966: select count(1) into l_rowcount_gt from xla_events_int_gt;
4967: if(l_rowcount_gt = 0) then
4968: return;
4969: end if;
4970:
5011: ,p_token_1 => 'ERROR'
5012: ,p_value_1 =>
5013: 'Event Number must be a number greater than 0 for entities that are subject to gapless processing'
5014: ,p_token_2 => 'LOCATION'
5015: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5016: return;
5017: end if;
5018: close csr_xla_event_number;
5019: end if;
5030: 'SELECT 1
5031: FROM dual
5032: WHERE EXISTS
5033: (SELECT 1
5034: FROM xla_events_int_gt xeg
5035: WHERE xeg.entity_code <> :1
5036: OR xeg.application_id <> :2
5037: OR xeg.event_status_code not in (''I'', ''U'', ''N'')
5038: OR xeg.event_type_code not in
5058: (p_appli_s_name => 'XLA'
5059: ,p_msg_name => 'XLA_COMMON_ERROR'
5060: ,p_token_1 => 'ERROR'
5061: ,p_value_1 =>
5062: 'The parameters passed to the procedure do not match with the data in the xla_events_int_gt table'
5063: ,p_token_2 => 'LOCATION'
5064: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5065: return;
5066: end if;
5060: ,p_token_1 => 'ERROR'
5061: ,p_value_1 =>
5062: 'The parameters passed to the procedure do not match with the data in the xla_events_int_gt table'
5063: ,p_token_2 => 'LOCATION'
5064: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5065: return;
5066: end if;
5067: close csr_parameter_mismatch;
5068:
5075: ,p_msg_name => 'XLA_COMMON_ERROR'
5076: ,p_token_1 => 'ERROR'
5077: ,p_value_1 => 'Event status must be I, U or N'
5078: ,p_token_2 => 'LOCATION'
5079: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5080: return;
5081: end if;
5082: close csr_status_error;
5083:
5090: ,p_msg_name => 'XLA_COMMON_ERROR'
5091: ,p_token_1 => 'ERROR'
5092: ,p_value_1 => 'Event type must be a valid event type'
5093: ,p_token_2 => 'LOCATION'
5094: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5095: return;
5096: end if;
5097: close csr_event_type_error;
5098:
5102: ,p_token_1 => 'ERROR'
5103: ,p_value_1 =>
5104: 'Please check transaction ids in gt table. Mapped ids must have a not-null value, while unmapped ids cannot have value'
5105: ,p_token_2 => 'LOCATION'
5106: ,p_value_2 => 'xla_events_pkg.create_bulk_events');
5107: EXCEPTION
5108: WHEN others then
5109: --exception means the data is good
5110: null;
5167: ,source_id_char_1
5168: ,source_id_char_2
5169: ,source_id_char_3
5170: ,source_id_char_4)
5171: (SELECT /*+ index (xe xla_events_int_gt_n1) */
5172: l_array_entity_id(i)
5173: , p_application_id
5174: , nvl(p_source_application_id, p_application_id)
5175: , p_ledger_id
5195: , xe.source_id_char_1
5196: , xe.source_id_char_2
5197: , xe.source_id_char_3
5198: , xe.source_id_char_4
5199: FROM xla_events_int_gt xe
5200: WHERE NVL( xe.source_id_int_1,-99) = NVL(l_array_source_id_int_1(i),C_NUM)
5201: AND NVL( xe.source_id_int_2,-99) = NVL(l_array_source_id_int_2(i),C_NUM)
5202: AND NVL( xe.source_id_int_3,-99) = NVL(l_array_source_id_int_3(i),C_NUM)
5203: AND NVL( xe.source_id_int_4,-99) = NVL(l_array_source_id_int_4(i),C_NUM)
5209: AND ROWNUM = 1
5210: );
5211:
5212: FORALL i IN 1..l_array_entity_id.COUNT
5213: UPDATE /*+ index (xe xla_events_int_gt_n1) */ xla_events_int_gt xe
5214: SET xe.entity_id = l_array_entity_id(i)
5215: , xe.event_id = xla_events_s.nextval
5216: WHERE NVL( xe.source_id_int_1,-99)= NVL(l_array_source_id_int_1(i),C_NUM)
5217: AND NVL( xe.source_id_int_2,-99) = NVL(l_array_source_id_int_2(i),C_NUM)
5211:
5212: FORALL i IN 1..l_array_entity_id.COUNT
5213: UPDATE /*+ index (xe xla_events_int_gt_n1) */ xla_events_int_gt xe
5214: SET xe.entity_id = l_array_entity_id(i)
5215: , xe.event_id = xla_events_s.nextval
5216: WHERE NVL( xe.source_id_int_1,-99)= NVL(l_array_source_id_int_1(i),C_NUM)
5217: AND NVL( xe.source_id_int_2,-99) = NVL(l_array_source_id_int_2(i),C_NUM)
5218: AND NVL( xe.source_id_int_3,-99) = NVL(l_array_source_id_int_3(i),C_NUM)
5219: AND NVL( xe.source_id_int_4,-99) = NVL(l_array_source_id_int_4(i),C_NUM)
5284: END IF;
5285: END LOOP;
5286:
5287: FORALL i in 1..l_array_event_id.COUNT
5288: UPDATE xla_events_int_gt
5289: SET on_hold_flag = l_array_on_hold_flag(i)
5290: WHERE event_id=l_array_event_id(i);
5291:
5292: EXIT when csr_processing_gapless%NOTFOUND;
5295: CLOSE csr_processing_gapless;
5296:
5297: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
5298: trace
5299: (p_msg => 'before insert into xla_events table'
5300: ,p_level => C_LEVEL_STATEMENT
5301: ,p_module =>l_log_module);
5302: END IF;
5303:
5300: ,p_level => C_LEVEL_STATEMENT
5301: ,p_module =>l_log_module);
5302: END IF;
5303:
5304: INSERT INTO xla_events
5305: (event_id
5306: ,application_id
5307: ,event_type_code
5308: ,entity_id
5342: ,event_status_code
5343: ,C_INTERNAL_UNPROCESSED
5344: ,TRUNC(event_date)
5345: ,nvl(transaction_date, TRUNC(event_date))
5346: ,nvl(xla_events_int_gt.budgetary_control_flag,'N')
5347: ,sysdate
5348: ,xla_environment_pkg.g_usr_id
5349: ,sysdate
5350: ,xla_environment_pkg.g_usr_id
5365: ,reference_date_2
5366: ,reference_date_3
5367: ,reference_date_4
5368: ,on_hold_flag
5369: FROM xla_events_int_gt);
5370: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
5371: trace
5372: (p_msg => 'Number of events created(gapless) = '||
5373: to_char(SQL%ROWCOUNT)
5377:
5378: ELSE -- not gapless
5379: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
5380: trace
5381: (p_msg => 'before insert into xla_events table nongapless'
5382: ,p_level => C_LEVEL_STATEMENT
5383: ,p_module =>l_log_module);
5384: END IF;
5385:
5383: ,p_module =>l_log_module);
5384: END IF;
5385:
5386:
5387: INSERT INTO xla_events
5388: (event_id
5389: ,application_id
5390: ,event_type_code
5391: ,entity_id
5427: ,event_status_code
5428: ,C_INTERNAL_UNPROCESSED
5429: ,TRUNC(event_date)
5430: ,nvl(transaction_date, TRUNC(event_date))
5431: ,nvl(xla_events_int_gt.budgetary_control_flag,'N')
5432: ,sysdate
5433: ,xla_environment_pkg.g_usr_id
5434: ,sysdate
5435: ,xla_environment_pkg.g_usr_id
5450: ,reference_date_2
5451: ,reference_date_3
5452: ,reference_date_4
5453: ,'N'
5454: FROM xla_events_int_gt);
5455: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
5456: trace
5457: (p_msg => 'Number of events created(non gapless) = '||
5458: to_char(SQL%ROWCOUNT)
5475: RAISE;
5476: WHEN OTHERS THEN
5477: ROLLBACK to SAVEPOINT before_event_creation;
5478: xla_exceptions_pkg.raise_message
5479: (p_location => 'xla_events_pkg.create_bulk_events(blk)');
5480: END create_bulk_events;
5481:
5482:
5483: --=============================================================================
5492: TYPE t_array_number IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
5493:
5494: l_array_entity_id t_array_number;
5495: l_array_event_id t_array_number;
5496: l_array_event_number xla_events_pub_pkg.t_array_event_number;
5497: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
5498:
5499: l_array_on_hold_flag t_on_hold_flag_tbl;
5500:
5493:
5494: l_array_entity_id t_array_number;
5495: l_array_event_id t_array_number;
5496: l_array_event_number xla_events_pub_pkg.t_array_event_number;
5497: l_array_event_status_code xla_events_pub_pkg.t_array_event_status_code;
5498:
5499: l_array_on_hold_flag t_on_hold_flag_tbl;
5500:
5501: l_log_module VARCHAR2(240);
5499: l_array_on_hold_flag t_on_hold_flag_tbl;
5500:
5501: l_log_module VARCHAR2(240);
5502: l_rowcount_gt PLS_INTEGER;
5503: l_current_event_number xla_events.event_number%TYPE;
5504: l_current_entity_id PLS_INTEGER;
5505: l_application_id PLS_INTEGER;
5506: l_on_hold_flag xla_events.on_hold_flag%TYPE;
5507:
5502: l_rowcount_gt PLS_INTEGER;
5503: l_current_event_number xla_events.event_number%TYPE;
5504: l_current_entity_id PLS_INTEGER;
5505: l_application_id PLS_INTEGER;
5506: l_on_hold_flag xla_events.on_hold_flag%TYPE;
5507:
5508: -- This cursor will check
5509: -- 1. the application_id, entity_code, event_id is not null
5510: -- 2. the old and new event_status_code is valid
5511: -- 3. no manual entity events are modified
5512: -- 4. application_id is populated and all equals p_application_id
5513: CURSOR csr_manual_processed_events(app_id NUMBER) is
5514: SELECT 1
5515: FROM xla_events_int_gt xeg, xla_events xe, xla_entity_types_b xet
5516: WHERE xeg.application_id = xe.application_id (+)
5517: AND xeg.event_id = xe.event_id (+)
5518: AND xeg.entity_code = xet.entity_code (+)
5519: AND xet.application_id(+) = app_id
5526: OR xeg.application_id <> app_id);
5527:
5528: CURSOR csr_invalid_app(app_id NUMBER) is
5529: SELECT 1
5530: FROM xla_events_int_gt xeg
5531: WHERE xeg.application_id <> app_id;
5532:
5533: CURSOR csr_invalid_event_id(app_id NUMBER) is
5534: SELECT 1
5531: WHERE xeg.application_id <> app_id;
5532:
5533: CURSOR csr_invalid_event_id(app_id NUMBER) is
5534: SELECT 1
5535: FROM xla_events_int_gt xeg, xla_events xe
5536: WHERE xeg.application_id = xe.application_id (+)
5537: AND xeg.event_id = xe.event_id (+)
5538: AND xe.event_id is null;
5539:
5538: AND xe.event_id is null;
5539:
5540: CURSOR csr_invalid_event_status(app_id NUMBER) is
5541: SELECT 1
5542: FROM xla_events_int_gt xeg, xla_events xe
5543: WHERE xeg.application_id = xe.application_id
5544: AND xeg.event_id = xe.event_id
5545: AND (xe.event_status_code not in ('I', 'N', 'U')
5546: OR xeg.event_status_code not in ('I', 'N', 'U'));
5550: FROM xla_transaction_entities xte
5551: WHERE xte.application_id = p_application_id
5552: AND xte.entity_id in
5553: (SELECT entity_id
5554: FROM xla_events_int_gt xeg, xla_entity_types_b xet
5555: WHERE xeg.application_id = xet.application_id
5556: AND xeg.entity_code = xet.entity_code
5557: AND xet.enable_gapless_events_flag = 'Y')
5558: FOR UPDATE NOWAIT;
5558: FOR UPDATE NOWAIT;
5559:
5560: Cursor csr_new_gap is
5561: Select min(xe.event_number), xe.entity_id, xe.application_id
5562: From xla_events_int_gt xeg,
5563: xla_events xe,
5564: xla_entity_types_b xet
5565: Where xeg.event_id = xe.event_id
5566: And xeg.application_id = xe.application_id
5559:
5560: Cursor csr_new_gap is
5561: Select min(xe.event_number), xe.entity_id, xe.application_id
5562: From xla_events_int_gt xeg,
5563: xla_events xe,
5564: xla_entity_types_b xet
5565: Where xeg.event_id = xe.event_id
5566: And xeg.application_id = xe.application_id
5567: And xeg.entity_code = xet.entity_code
5576: Select xe.entity_id,
5577: xe.event_id,
5578: xe.event_number,
5579: nvl(xeg.event_status_code, xe.event_status_code)
5580: FROM xla_events xe, xla_events_int_gt xeg
5581: Where xe.event_id = xeg.event_id(+)
5582: And xe.entity_id in (
5583: Select xe.entity_id
5584: From xla_events_int_gt xeg,
5580: FROM xla_events xe, xla_events_int_gt xeg
5581: Where xe.event_id = xeg.event_id(+)
5582: And xe.entity_id in (
5583: Select xe.entity_id
5584: From xla_events_int_gt xeg,
5585: xla_events xe,
5586: xla_entity_types_b xet
5587: Where xeg.event_id = xe.event_id
5588: And xet.entity_code = xeg.entity_code
5581: Where xe.event_id = xeg.event_id(+)
5582: And xe.entity_id in (
5583: Select xe.entity_id
5584: From xla_events_int_gt xeg,
5585: xla_events xe,
5586: xla_entity_types_b xet
5587: Where xeg.event_id = xe.event_id
5588: And xet.entity_code = xeg.entity_code
5589: And xet.application_id = xe.application_id
5641: (p_appli_s_name => 'XLA'
5642: ,p_msg_name => 'XLA_COMMON_ERROR'
5643: ,p_token_1 => 'ERROR'
5644: ,p_value_1 =>
5645: 'The parameter application_id does not match with the data in xla_events_int_gt table'
5646: ,p_token_2 => 'LOCATION'
5647: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5648: end if;
5649: close csr_invalid_app;
5643: ,p_token_1 => 'ERROR'
5644: ,p_value_1 =>
5645: 'The parameter application_id does not match with the data in xla_events_int_gt table'
5646: ,p_token_2 => 'LOCATION'
5647: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5648: end if;
5649: close csr_invalid_app;
5650:
5651: open csr_invalid_event_id(p_application_id);
5657: ,p_msg_name => 'XLA_COMMON_ERROR'
5658: ,p_token_1 => 'ERROR'
5659: ,p_value_1 => '(Application id, Event ID) is not valid'
5660: ,p_token_2 => 'LOCATION'
5661: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5662: end if;
5663: close csr_invalid_event_id;
5664:
5665: open csr_invalid_event_status(p_application_id);
5672: ,p_token_1 => 'ERROR'
5673: ,p_value_1 =>
5674: 'Both the new and the old event status must be valid and cannot be P'
5675: ,p_token_2 => 'LOCATION'
5676: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5677: end if;
5678: close csr_invalid_event_status;
5679:
5680: -- If reach here, must be entity code error
5684: ,p_token_1 => 'ERROR'
5685: ,p_value_1 =>
5686: 'The entity_code is not valid. Either it does not match with the event id, or it is MANUAL entity. This API cannot be called for MANUAL entity'
5687: ,p_token_2 => 'LOCATION'
5688: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5689: end if;
5690: close csr_manual_processed_events;
5691:
5692:
5718: l_current_entity_id,
5719: l_application_id;
5720: EXIT WHEN csr_new_gap%NOTFOUND;
5721:
5722: UPDATE xla_events
5723: SET on_hold_flag = 'Y'
5724: WHERE entity_id = l_current_entity_id
5725: AND event_number > l_current_event_number
5726: AND application_id = l_application_id;
5784: END IF;
5785: END LOOP;
5786:
5787: FORALL i in 1..l_array_event_id.COUNT
5788: UPDATE xla_events
5789: SET on_hold_flag = l_array_on_hold_flag(i)
5790: WHERE event_id=l_array_event_id(i);
5791: EXIT when csr_erased_gap%NOTFOUND;
5792: END LOOP;
5799: ,p_level => C_LEVEL_STATEMENT
5800: ,p_module =>l_log_module);
5801: END IF;
5802:
5803: UPDATE xla_events xe
5804: SET xe.event_status_code = (
5805: SELECT event_status_code
5806: FROM xla_events_int_gt xeg
5807: WHERE xeg.event_id = xe.event_id),
5802:
5803: UPDATE xla_events xe
5804: SET xe.event_status_code = (
5805: SELECT event_status_code
5806: FROM xla_events_int_gt xeg
5807: WHERE xeg.event_id = xe.event_id),
5808: xe.process_status_code = 'U'
5809: WHERE xe.event_id in (
5810: SELECT event_id
5807: WHERE xeg.event_id = xe.event_id),
5808: xe.process_status_code = 'U'
5809: WHERE xe.event_id in (
5810: SELECT event_id
5811: FROM xla_events_int_gt);
5812:
5813: /* -- Maintaining the Draft balance is no more required bug 5529569
5814:
5815: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
5827: ,p_token_1 => 'ERROR'
5828: ,p_value_1 =>
5829: 'Error in the routine that does balance reversals'
5830: ,p_token_2 => 'LOCATION'
5831: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses');
5832: END IF;
5833: */
5834: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
5835: trace
5852: RAISE;
5853: WHEN OTHERS THEN
5854: ROLLBACK to SAVEPOINT before_update_bulk_statuses;
5855: xla_exceptions_pkg.raise_message
5856: (p_location => 'xla_events_pkg.update_bulk_event_statuses(blk)');
5857: END update_bulk_event_statuses;
5858:
5859:
5860: --=============================================================================
5868:
5869: l_log_module VARCHAR2(240);
5870:
5871: l_rowcount_gt PLS_INTEGER;
5872: l_event_number xla_events.event_number%TYPE;
5873: l_entity_id PLS_INTEGER;
5874: l_application_id PLS_INTEGER;
5875: -- This cursor will check
5876: -- 1. the application_id, entity_code, event_id is not null
5878: -- 3. no manual entity events are modified
5879: -- 4. application_id is populated and all equals p_application_id
5880: CURSOR csr_manual_processed_events(app_id NUMBER) is
5881: SELECT 1
5882: FROM xla_events_int_gt xeg, xla_events xe, xla_transaction_entities xte
5883: WHERE xeg.application_id = xe.application_id (+)
5884: AND xeg.event_id = xe.event_id (+)
5885: AND xe.entity_id = xte.entity_id (+)
5886: AND xte.application_id(+) = app_id
5892: OR xeg.application_id <> app_id);
5893:
5894: CURSOR csr_invalid_app(app_id NUMBER) is
5895: SELECT 1
5896: FROM xla_events_int_gt xeg
5897: WHERE xeg.application_id <> app_id;
5898:
5899: CURSOR csr_invalid_event_id(app_id NUMBER) is
5900: SELECT 1
5897: WHERE xeg.application_id <> app_id;
5898:
5899: CURSOR csr_invalid_event_id(app_id NUMBER) is
5900: SELECT 1
5901: FROM xla_events_int_gt xeg, xla_events xe
5902: WHERE xeg.application_id = xe.application_id (+)
5903: AND xeg.event_id = xe.event_id (+)
5904: AND xe.event_id is null;
5905:
5904: AND xe.event_id is null;
5905:
5906: CURSOR csr_invalid_event_status(app_id NUMBER) is
5907: SELECT 1
5908: FROM xla_events_int_gt xeg, xla_events xe
5909: WHERE xeg.application_id = xe.application_id
5910: AND xeg.event_id = xe.event_id
5911: AND xe.event_status_code not in ('I', 'N', 'U');
5912:
5915: FROM xla_transaction_entities xte
5916: WHERE xte.application_id = p_application_id
5917: AND xte.entity_id in
5918: (SELECT entity_id
5919: FROM xla_events_int_gt xeg, xla_entity_types_b xet
5920: WHERE xeg.application_id = xet.application_id
5921: AND xeg.entity_code = xet.entity_code
5922: AND xet.enable_gapless_events_flag = 'Y')
5923: FOR UPDATE NOWAIT;
5923: FOR UPDATE NOWAIT;
5924:
5925: Cursor csr_new_gap is
5926: Select min(xe.event_number), xe.entity_id, xe.application_id
5927: From xla_events_int_gt xeg,
5928: xla_events xe,
5929: xla_entity_types_b xet
5930: Where xeg.event_id = xe.event_id
5931: And xeg.application_id = xe.application_id
5924:
5925: Cursor csr_new_gap is
5926: Select min(xe.event_number), xe.entity_id, xe.application_id
5927: From xla_events_int_gt xeg,
5928: xla_events xe,
5929: xla_entity_types_b xet
5930: Where xeg.event_id = xe.event_id
5931: And xeg.application_id = xe.application_id
5932: And xeg.entity_code = xet.entity_code
5984: (p_appli_s_name => 'XLA'
5985: ,p_msg_name => 'XLA_COMMON_ERROR'
5986: ,p_token_1 => 'ERROR'
5987: ,p_value_1 =>
5988: 'The parameter application_id does not match with the data in xla_events_int_gt table'
5989: ,p_token_2 => 'LOCATION'
5990: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5991: end if;
5992: close csr_invalid_app;
5986: ,p_token_1 => 'ERROR'
5987: ,p_value_1 =>
5988: 'The parameter application_id does not match with the data in xla_events_int_gt table'
5989: ,p_token_2 => 'LOCATION'
5990: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
5991: end if;
5992: close csr_invalid_app;
5993:
5994: open csr_invalid_event_id(p_application_id);
6000: ,p_msg_name => 'XLA_COMMON_ERROR'
6001: ,p_token_1 => 'ERROR'
6002: ,p_value_1 => '(Application id, Event ID) is not valid'
6003: ,p_token_2 => 'LOCATION'
6004: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
6005: end if;
6006: close csr_invalid_event_id;
6007:
6008: open csr_invalid_event_status(p_application_id);
6015: ,p_token_1 => 'ERROR'
6016: ,p_value_1 =>
6017: 'The events to be deleted must be in status I, N or U'
6018: ,p_token_2 => 'LOCATION'
6019: ,p_value_2 => 'xla_events_pkg.update_bulk_event_statuses(fn)');
6020: end if;
6021: close csr_invalid_event_status;
6022:
6023: -- if reach here, it must be entity code problem
6027: ,p_token_1 => 'ERROR'
6028: ,p_value_1 =>
6029: 'Either the entity code does not match with the event id, or the entity code is MANUAL. This API cannot be called to delete event for MANUAL entity'
6030: ,p_token_2 => 'LOCATION'
6031: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
6032: end if;
6033: close csr_manual_processed_events;
6034:
6035: ----------------------------------------------------------------------------
6035: ----------------------------------------------------------------------------
6036: -- Immediately exit if the table is empty
6037: -- the l_rowcount_gt is also useful to find if there is invalid data
6038: ----------------------------------------------------------------------------
6039: select count(1) into l_rowcount_gt from xla_events_int_gt;
6040: if(l_rowcount_gt = 0) then
6041: return;
6042: end if;
6043:
6070: ,p_token_1 => 'ERROR'
6071: ,p_value_1 =>
6072: 'Error in the routine that does balance reversals'
6073: ,p_token_2 => 'LOCATION'
6074: ,p_value_2 => 'xla_events_pkg.delete_bulk_events');
6075: END IF;
6076: */
6077:
6078: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
6097: LOOP
6098: FETCH csr_new_gap into l_event_number, l_entity_id, l_application_id;
6099: EXIT WHEN csr_new_gap%NOTFOUND;
6100:
6101: UPDATE xla_events
6102: SET on_hold_flag = 'Y'
6103: WHERE entity_id = l_entity_id
6104: AND event_number > l_event_number
6105: AND application_id = l_application_id;
6112: ,p_level => C_LEVEL_STATEMENT
6113: ,p_module =>l_log_module);
6114: END IF;
6115:
6116: UPDATE xla_events_int_gt xeg
6117: SET xeg.entity_id =
6118: (SELECT xe.entity_id
6119: FROM xla_events xe
6120: WHERE xe.event_id = xeg.event_id);
6115:
6116: UPDATE xla_events_int_gt xeg
6117: SET xeg.entity_id =
6118: (SELECT xe.entity_id
6119: FROM xla_events xe
6120: WHERE xe.event_id = xeg.event_id);
6121:
6122: DELETE xla_events
6123: WHERE event_id in (
6118: (SELECT xe.entity_id
6119: FROM xla_events xe
6120: WHERE xe.event_id = xeg.event_id);
6121:
6122: DELETE xla_events
6123: WHERE event_id in (
6124: SELECT event_id
6125: FROM xla_events_int_gt);
6126: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
6121:
6122: DELETE xla_events
6123: WHERE event_id in (
6124: SELECT event_id
6125: FROM xla_events_int_gt);
6126: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
6127: trace
6128: (p_msg => 'Number of events deleted:'||to_char(SQL%ROWCOUNT)
6129: ,p_level => C_LEVEL_STATEMENT
6132:
6133: DELETE xla_transaction_entities xte
6134: WHERE not exists (
6135: SELECT 1
6136: FROM xla_events xe
6137: WHERE xe.entity_id = xte.entity_id
6138: AND xe.application_id = xte.application_id
6139: AND xte.application_id = p_application_id)
6140: AND entity_id in (
6138: AND xe.application_id = xte.application_id
6139: AND xte.application_id = p_application_id)
6140: AND entity_id in (
6141: SELECT entity_id
6142: FROM xla_events_int_gt);
6143:
6144: IF (C_LEVEL_STATEMENT>= g_log_level) THEN
6145: trace
6146: (p_msg => 'Number of transaction entity deleted:'||
6163: RAISE;
6164: WHEN OTHERS THEN
6165: ROLLBACK to SAVEPOINT before_delete_bulk_event;
6166: xla_exceptions_pkg.raise_message
6167: (p_location => 'xla_events_pkg.delete_bulk_events(blk)');
6168: END delete_bulk_events;
6169:
6170: --=============================================================================
6171: --
6173: --
6174: --=============================================================================
6175:
6176: FUNCTION get_array_event_info
6177: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
6178: ,p_valuation_method IN VARCHAR2
6179: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
6180: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
6181: ,p_event_date IN DATE DEFAULT NULL
6179: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
6180: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
6181: ,p_event_date IN DATE DEFAULT NULL
6182: ,p_event_status_code IN VARCHAR2 DEFAULT NULL)
6183: RETURN xla_events_pub_pkg.t_array_event_info IS
6184:
6185: l_array_event_info xla_events_pub_pkg.t_array_event_info;
6186: l_count INTEGER := 0;
6187: l_event_date DATE;
6181: ,p_event_date IN DATE DEFAULT NULL
6182: ,p_event_status_code IN VARCHAR2 DEFAULT NULL)
6183: RETURN xla_events_pub_pkg.t_array_event_info IS
6184:
6185: l_array_event_info xla_events_pub_pkg.t_array_event_info;
6186: l_count INTEGER := 0;
6187: l_event_date DATE;
6188:
6189: CURSOR c1 IS
6204: ,reference_date_1
6205: ,reference_date_2
6206: ,reference_date_3
6207: ,reference_date_4
6208: FROM xla_events
6209: WHERE event_date = NVL(l_event_date, event_date)
6210: AND event_status_code = NVL(p_event_status_code,event_status_code)
6211: AND event_type_code = NVL(p_event_type_code ,event_type_code)
6212: AND entity_id = g_entity_id
6311: ,p_level => C_LEVEL_PROCEDURE
6312: ,p_module =>l_log_module);
6313: trace
6314: (p_msg => 'security_id_int_1 = '||
6315: xla_events_pub_pkg.g_security.security_id_int_1
6316: ,p_level => C_LEVEL_PROCEDURE
6317: ,p_module =>l_log_module);
6318: trace
6319: (p_msg => 'security_id_int_2 = '||
6316: ,p_level => C_LEVEL_PROCEDURE
6317: ,p_module =>l_log_module);
6318: trace
6319: (p_msg => 'security_id_int_2 = '||
6320: xla_events_pub_pkg.g_security.security_id_int_2
6321: ,p_level => C_LEVEL_PROCEDURE
6322: ,p_module =>l_log_module);
6323: trace
6324: (p_msg => 'security_id_int_3 = '||
6321: ,p_level => C_LEVEL_PROCEDURE
6322: ,p_module =>l_log_module);
6323: trace
6324: (p_msg => 'security_id_int_3 = '||
6325: xla_events_pub_pkg.g_security.security_id_int_3
6326: ,p_level => C_LEVEL_PROCEDURE
6327: ,p_module =>l_log_module);
6328: trace
6329: (p_msg => 'security_id_char_1 = '||
6326: ,p_level => C_LEVEL_PROCEDURE
6327: ,p_module =>l_log_module);
6328: trace
6329: (p_msg => 'security_id_char_1 = '||
6330: xla_events_pub_pkg.g_security.security_id_char_1
6331: ,p_level => C_LEVEL_PROCEDURE
6332: ,p_module =>l_log_module);
6333: trace
6334: (p_msg => 'security_id_char_2 = '||
6331: ,p_level => C_LEVEL_PROCEDURE
6332: ,p_module =>l_log_module);
6333: trace
6334: (p_msg => 'security_id_char_2 = '||
6335: xla_events_pub_pkg.g_security.security_id_char_2
6336: ,p_level => C_LEVEL_PROCEDURE
6337: ,p_module =>l_log_module);
6338: trace
6339: (p_msg => 'security_id_char_3 = '||
6336: ,p_level => C_LEVEL_PROCEDURE
6337: ,p_module =>l_log_module);
6338: trace
6339: (p_msg => 'security_id_char_3 = '||
6340: xla_events_pub_pkg.g_security.security_id_char_3
6341: ,p_level => C_LEVEL_PROCEDURE
6342: ,p_module =>l_log_module);
6343: trace
6344: (p_msg => 'valuation_method = '||p_valuation_method
6359: ,p_msg_name => 'XLA_COMMON_ERROR'
6360: ,p_token_1 => 'ERROR'
6361: ,p_value_1 => 'For MANUAL events this API cannot be called'
6362: ,p_token_2 => 'LOCATION'
6363: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
6364: ELSE
6365: g_context := C_REGULAR_EVENT_CONTEXT;
6366: END IF;
6367:
6404: ,p_token_1 => 'ERROR'
6405: ,p_value_1 => 'No event exists for the document represented '||
6406: 'by the given source information.'
6407: ,p_token_2 => 'LOCATION'
6408: ,p_value_2 => 'xla_events_pkg.get_array_event_info (fn)');
6409: END IF;
6410:
6411: FOR lc_evt IN c1 LOOP
6412: l_count := l_count + 1;
6447: WHEN xla_exceptions_pkg.application_exception THEN
6448: RAISE;
6449: WHEN OTHERS THEN
6450: xla_exceptions_pkg.raise_message
6451: (p_location => 'xla_events_pkg.get_array_event_info (fn)');
6452: END get_array_event_info;
6453:
6454:
6455: --=============================================================================
6503:
6504: ----------------------------------------------------------------------------
6505: -- cache event status code
6506: ----------------------------------------------------------------------------
6507: g_event_status_code_tbl(1) := xla_events_pub_pkg.C_EVENT_UNPROCESSED;
6508: g_event_status_code_tbl(2) := xla_events_pub_pkg.C_EVENT_INCOMPLETE;
6509: g_event_status_code_tbl(3) := xla_events_pub_pkg.C_EVENT_NOACTION;
6510: g_event_status_code_tbl(4) := xla_events_pub_pkg.C_EVENT_PROCESSED;
6511:
6504: ----------------------------------------------------------------------------
6505: -- cache event status code
6506: ----------------------------------------------------------------------------
6507: g_event_status_code_tbl(1) := xla_events_pub_pkg.C_EVENT_UNPROCESSED;
6508: g_event_status_code_tbl(2) := xla_events_pub_pkg.C_EVENT_INCOMPLETE;
6509: g_event_status_code_tbl(3) := xla_events_pub_pkg.C_EVENT_NOACTION;
6510: g_event_status_code_tbl(4) := xla_events_pub_pkg.C_EVENT_PROCESSED;
6511:
6512: ----------------------------------------------------------------------------
6505: -- cache event status code
6506: ----------------------------------------------------------------------------
6507: g_event_status_code_tbl(1) := xla_events_pub_pkg.C_EVENT_UNPROCESSED;
6508: g_event_status_code_tbl(2) := xla_events_pub_pkg.C_EVENT_INCOMPLETE;
6509: g_event_status_code_tbl(3) := xla_events_pub_pkg.C_EVENT_NOACTION;
6510: g_event_status_code_tbl(4) := xla_events_pub_pkg.C_EVENT_PROCESSED;
6511:
6512: ----------------------------------------------------------------------------
6513: -- cache process status code
6506: ----------------------------------------------------------------------------
6507: g_event_status_code_tbl(1) := xla_events_pub_pkg.C_EVENT_UNPROCESSED;
6508: g_event_status_code_tbl(2) := xla_events_pub_pkg.C_EVENT_INCOMPLETE;
6509: g_event_status_code_tbl(3) := xla_events_pub_pkg.C_EVENT_NOACTION;
6510: g_event_status_code_tbl(4) := xla_events_pub_pkg.C_EVENT_PROCESSED;
6511:
6512: ----------------------------------------------------------------------------
6513: -- cache process status code
6514: ----------------------------------------------------------------------------
6529: WHEN xla_exceptions_pkg.application_exception THEN
6530: RAISE;
6531: WHEN OTHERS THEN
6532: xla_exceptions_pkg.raise_message
6533: (p_location => 'xla_events_pkg.initialize');
6534: END initialize;
6535:
6536:
6537: --=============================================================================
6589: --
6590: --=============================================================================
6591:
6592: FUNCTION source_info_changed
6593: (p_event_source_info1 IN xla_events_pub_pkg.t_event_source_info
6594: ,p_event_source_info2 IN xla_events_pub_pkg.t_event_source_info
6595: ,p_valuation_method1 IN VARCHAR2
6596: ,p_valuation_method2 IN VARCHAR2)
6597: RETURN BOOLEAN IS
6590: --=============================================================================
6591:
6592: FUNCTION source_info_changed
6593: (p_event_source_info1 IN xla_events_pub_pkg.t_event_source_info
6594: ,p_event_source_info2 IN xla_events_pub_pkg.t_event_source_info
6595: ,p_valuation_method1 IN VARCHAR2
6596: ,p_valuation_method2 IN VARCHAR2)
6597: RETURN BOOLEAN IS
6598: l_log_module VARCHAR2(240);
6666: WHEN xla_exceptions_pkg.application_exception THEN
6667: RAISE;
6668: WHEN OTHERS THEN
6669: xla_exceptions_pkg.raise_message
6670: (p_location => 'xla_events_pkg.source_info_changed');
6671: END;
6672:
6673:
6674: --=============================================================================
6700: ,p_token_1 => 'ERROR'
6701: ,p_value_1 =>
6702: 'Application ID has an invalid value. It cannot have a NULL value.'
6703: ,p_token_2 => 'LOCATION'
6704: ,p_value_2 => 'xla_events_pkg.validate_context');
6705: END IF;
6706:
6707: IF p_ledger_id IS NULL THEN
6708: xla_exceptions_pkg.raise_message
6711: ,p_token_1 => 'ERROR'
6712: ,p_value_1 =>
6713: 'Ledger ID has an invalid value. It cannot have a NULL value.'
6714: ,p_token_2 => 'LOCATION'
6715: ,p_value_2 => 'xla_events_pkg.validate_context');
6716: ELSE
6717: -------------------------------------------------------------------------
6718: -- Validate ledger
6719: -------------------------------------------------------------------------
6730: ,p_token_1 => 'ERROR'
6731: ,p_value_1 =>
6732: 'Entity Type Code has an invalid value. It cannot have a NULL value.'
6733: ,p_token_2 => 'LOCATION'
6734: ,p_value_2 => 'xla_events_pkg.validate_context');
6735: END IF;
6736: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
6737: trace
6738: (p_msg => 'end of procedure validate_context'
6744: WHEN xla_exceptions_pkg.application_exception THEN
6745: RAISE;
6746: WHEN OTHERS THEN
6747: xla_exceptions_pkg.raise_message
6748: (p_location => 'xla_events_pkg.validate_context');
6749: END validate_context;
6750:
6751:
6752: --=============================================================================
6829: ,p_token_1 => 'ERROR'
6830: ,p_value_1 => 'The setup for Entity Type, '||
6831: p_entity_type_code ||', is incorrect. Internal Error.'
6832: ,p_token_2 => 'LOCATION'
6833: ,p_value_2 => 'xla_events_pkg.get_id_mapping');
6834: END IF;
6835:
6836: IF p_source_id_code_1 = 'SOURCE_ID_INT_1'
6837: OR p_source_id_code_2 = 'SOURCE_ID_INT_1'
6915: WHEN xla_exceptions_pkg.application_exception THEN
6916: RAISE;
6917: WHEN OTHERS THEN
6918: xla_exceptions_pkg.raise_message
6919: (p_location => 'xla_events_pkg.get_id_mapping');
6920: END;
6921:
6922:
6923: --=============================================================================
7174: ,p_value_1 =>
7175: 'The source information passed does not map to the setups for Entity Type '
7176: || p_entity_type_code
7177: ,p_token_2 => 'LOCATION'
7178: ,p_value_2 => 'xla_events_pkg.validate_ids');
7179: END IF;
7180:
7181: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7182: trace
7213: ,p_token_1 => 'ERROR'
7214: ,p_value_1 =>
7215: 'The application is not registerd with subledger accounting architectre'
7216: ,p_token_2 => 'LOCATION'
7217: ,p_value_2 => 'xla_events_pkg.validate_cached_setup');
7218: END IF;
7219:
7220: --
7221: -- Validate that the entity type code tables have been loaded
7228: ,p_value_1 =>
7229: 'There is no Entity Type Code defined for the application '
7230: ||g_application_id
7231: ,p_token_2 => 'LOCATION'
7232: ,p_value_2 => 'xla_events_pkg.validate_cached_setup');
7233: END IF;
7234:
7235: --
7236: -- Validate that the event class tables have been loaded
7243: ,p_value_1 =>
7244: 'There is no Event Class defined for the application '
7245: ||g_application_id
7246: ,p_token_2 => 'LOCATION'
7247: ,p_value_2 => 'xla_events_pkg.validate_cached_setup');
7248: END IF;
7249:
7250: --
7251: -- Validate that the event type code tables have been loaded
7258: ,p_value_1 =>
7259: 'There is no Event Type Code defined for the application '
7260: ||g_application_id
7261: ,p_token_2 => 'LOCATION'
7262: ,p_value_2 => 'xla_events_pkg.validate_cached_setup');
7263: END IF;
7264:
7265: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7266: trace
7325: ,p_level => C_LEVEL_PROCEDURE
7326: ,p_module =>l_log_module);
7327: END IF;
7328:
7329: trace('> xla_events_pkg.cache_application_setup' , 20);
7330:
7331: g_application_id := null;
7332: g_entity_type_code_tbl.delete; --clear cache first
7333: g_event_class_code_tbl.delete; --clear cache first
7391: WHEN xla_exceptions_pkg.application_exception THEN
7392: RAISE;
7393: WHEN OTHERS THEN
7394: xla_exceptions_pkg.raise_message
7395: (p_location => 'xla_events_pkg.cache_application_setup');
7396: END cache_application_setup;
7397:
7398:
7399: --=============================================================================
7434: ,p_token_1 => 'ERROR'
7435: ,p_value_1 =>
7436: 'The entity Type is not enabled. Disabled entity types are not allowed for create/update APIs.'
7437: ,p_token_2 => 'LOCATION'
7438: ,p_value_2 => 'xla_events_pkg.validate_entity_type_code');
7439: END IF;
7440:
7441: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7442: trace
7453: ,p_token_1 => 'ERROR'
7454: ,p_value_1 => p_entity_type_code||
7455: ' is not a defined entity type for the application '||g_application_id
7456: ,p_token_2 => 'LOCATION'
7457: ,p_value_2 => 'xla_events_pkg.validate_entity_type_code');
7458: WHEN xla_exceptions_pkg.application_exception THEN
7459: RAISE;
7460: WHEN OTHERS THEN
7461: xla_exceptions_pkg.raise_message
7458: WHEN xla_exceptions_pkg.application_exception THEN
7459: RAISE;
7460: WHEN OTHERS THEN
7461: xla_exceptions_pkg.raise_message
7462: (p_location => 'xla_events_pkg.validate_entity_type_code');
7463: END validate_entity_type_code;
7464:
7465:
7466: --=============================================================================
7500: ,p_token_1 => 'ERROR'
7501: ,p_value_1 =>
7502: 'The Event Class is not enabled. Disabled event classes are not allowed for create/update APIs.'
7503: ,p_token_2 => 'LOCATION'
7504: ,p_value_2 => 'xla_events_pkg.validate_event_class_code');
7505: END IF;
7506:
7507: IF p_entity_type_code <> l_entity_code THEN
7508: xla_exceptions_pkg.raise_message
7512: ,p_value_1 => 'Event class '||p_event_class_code||
7513: ' is not defined for the entity type '||p_entity_type_code||
7514: ' and application '||g_application_id
7515: ,p_token_2 => 'LOCATION'
7516: ,p_value_2 => 'xla_events_pkg.validate_event_class_code');
7517: END IF;
7518:
7519: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7520: trace
7530: ,p_token_1 => 'ERROR'
7531: ,p_value_1 => p_event_class_code||
7532: ' is not a defined event class for the application '||g_application_id
7533: ,p_token_2 => 'LOCATION'
7534: ,p_value_2 => 'xla_events_pkg.validate_event_class_code');
7535: WHEN xla_exceptions_pkg.application_exception THEN
7536: RAISE;
7537: WHEN OTHERS THEN
7538: xla_exceptions_pkg.raise_message
7535: WHEN xla_exceptions_pkg.application_exception THEN
7536: RAISE;
7537: WHEN OTHERS THEN
7538: xla_exceptions_pkg.raise_message
7539: (p_location => 'xla_events_pkg.validate_event_class_code');
7540: END validate_event_class_code;
7541:
7542:
7543: --=============================================================================
7581: ,p_token_1 => 'ERROR'
7582: ,p_value_1 =>
7583: 'The Event Type is not enabled. Disabled event types are not allowed for create/update APIs.'
7584: ,p_token_2 => 'LOCATION'
7585: ,p_value_2 => 'xla_events_pkg.validate_event_type_code');
7586: END IF;
7587:
7588: IF ((p_entity_type_code <> l_entity_code) OR
7589: (NVL(p_event_class_code,l_event_class_code) <> l_event_class_code)
7597: ' is not defined for the entity type '||p_entity_type_code||
7598: ', event class '||p_event_class_code||
7599: ' and application '||g_application_id
7600: ,p_token_2 => 'LOCATION'
7601: ,p_value_2 => 'xla_events_pkg.validate_event_type_code');
7602: END IF;
7603:
7604: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7605: trace
7607: ,p_level => C_LEVEL_PROCEDURE
7608: ,p_module =>l_log_module);
7609: END IF;
7610:
7611: trace('< xla_events_pkg.validate_event_type_code' , 20);
7612: EXCEPTION
7613: WHEN NO_DATA_FOUND THEN
7614: xla_exceptions_pkg.raise_message
7615: (p_appli_s_name => 'XLA'
7617: ,p_token_1 => 'ERROR'
7618: ,p_value_1 => p_event_type_code||
7619: ' is not a defined event type for the application '||g_application_id
7620: ,p_token_2 => 'LOCATION'
7621: ,p_value_2 => 'xla_events_pkg.validate_event_type_code');
7622: WHEN xla_exceptions_pkg.application_exception THEN
7623: RAISE;
7624: WHEN OTHERS THEN
7625: xla_exceptions_pkg.raise_message
7622: WHEN xla_exceptions_pkg.application_exception THEN
7623: RAISE;
7624: WHEN OTHERS THEN
7625: xla_exceptions_pkg.raise_message
7626: (p_location => 'xla_events_pkg.validate_event_type_code');
7627: END validate_event_type_code;
7628:
7629: --=============================================================================
7630: --
7667: ,p_value_1 => 'Event Status Code cannot have a '||
7668: p_event_status_code ||
7669: ' value.'
7670: ,p_token_2 => 'LOCATION'
7671: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7672: END IF;
7673:
7674: ----------------------------------------------------------------------------
7675: -- Validate process status code against the possible valid statuses
7691: ,p_value_1 => 'Process Status Code cannot have a '||
7692: p_process_status_code ||
7693: ' value.'
7694: ,p_token_2 => 'LOCATION'
7695: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7696: END IF;
7697:
7698: ----------------------------------------------------------------------------
7699: -- following code is modified to fix bug # 2899700
7710: ,p_token_1 => 'ERROR'
7711: ,p_value_1 => 'Process Status Code has an invalid value. '||
7712: 'It should always have a ''Unprocessed'' value.'
7713: ,p_token_2 => 'LOCATION'
7714: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7715: END IF;
7716:
7717: IF p_event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED THEN
7718: xla_exceptions_pkg.raise_message
7713: ,p_token_2 => 'LOCATION'
7714: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7715: END IF;
7716:
7717: IF p_event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED THEN
7718: xla_exceptions_pkg.raise_message
7719: (p_appli_s_name => 'XLA'
7720: ,p_msg_name => 'XLA_COMMON_ERROR'
7721: ,p_token_1 => 'ERROR'
7721: ,p_token_1 => 'ERROR'
7722: ,p_value_1 => 'Event Status Code has an invalid value. '||
7723: 'It cannot have a ''Processed'' value.'
7724: ,p_token_2 => 'LOCATION'
7725: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7726: END IF;
7727: ELSIF g_context = C_MANUAL_EVENT_CONTEXT THEN
7728:
7729: -------------------------------------------------------------------------
7730: -- for manual events
7731: -------------------------------------------------------------------------
7732:
7733: IF (p_process_status_code = C_INTERNAL_FINAL) THEN
7734: IF (p_event_status_code <> xla_events_pub_pkg.C_EVENT_PROCESSED) THEN
7735: xla_exceptions_pkg.raise_message
7736: (p_appli_s_name => 'XLA'
7737: ,p_msg_name => 'XLA_COMMON_ERROR'
7738: ,p_token_1 => 'ERROR'
7740: 'Process Status Code = '|| p_process_status_code ||
7741: ', '||
7742: 'Event Status Code = '|| p_event_status_code
7743: ,p_token_2 => 'LOCATION'
7744: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7745: END IF;
7746: ELSIF (p_process_status_code = C_INTERNAL_DRAFT) THEN
7747: IF (p_event_status_code <> xla_events_pub_pkg.C_EVENT_UNPROCESSED) THEN
7748: xla_exceptions_pkg.raise_message
7743: ,p_token_2 => 'LOCATION'
7744: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7745: END IF;
7746: ELSIF (p_process_status_code = C_INTERNAL_DRAFT) THEN
7747: IF (p_event_status_code <> xla_events_pub_pkg.C_EVENT_UNPROCESSED) THEN
7748: xla_exceptions_pkg.raise_message
7749: (p_appli_s_name => 'XLA'
7750: ,p_msg_name => 'XLA_COMMON_ERROR'
7751: ,p_token_1 => 'ERROR'
7753: 'Process Status Code = '|| p_process_status_code ||
7754: ', '||
7755: 'Event Status Code = '|| p_event_status_code
7756: ,p_token_2 => 'LOCATION'
7757: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7758: END IF;
7759: ELSIF (p_process_status_code = C_INTERNAL_UNPROCESSED) THEN
7760: IF (p_event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED) THEN
7761: xla_exceptions_pkg.raise_message
7756: ,p_token_2 => 'LOCATION'
7757: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7758: END IF;
7759: ELSIF (p_process_status_code = C_INTERNAL_UNPROCESSED) THEN
7760: IF (p_event_status_code = xla_events_pub_pkg.C_EVENT_PROCESSED) THEN
7761: xla_exceptions_pkg.raise_message
7762: (p_appli_s_name => 'XLA'
7763: ,p_msg_name => 'XLA_COMMON_ERROR'
7764: ,p_token_1 => 'ERROR'
7766: 'Process Status Code = '|| p_process_status_code ||
7767: ', '||
7768: 'Event Status Code = '|| p_event_status_code
7769: ,p_token_2 => 'LOCATION'
7770: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7771: END IF;
7772: ELSE
7773: xla_exceptions_pkg.raise_message
7774: (p_appli_s_name => 'XLA'
7778: 'Process Status Code = '|| p_process_status_code ||
7779: ', '||
7780: 'Event Status Code = '|| p_event_status_code
7781: ,p_token_2 => 'LOCATION'
7782: ,p_value_2 => 'xla_events_pkg.validate_status_code');
7783: END IF;
7784: END IF;
7785:
7786: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
7793: WHEN xla_exceptions_pkg.application_exception THEN
7794: RAISE;
7795: WHEN OTHERS THEN
7796: xla_exceptions_pkg.raise_message
7797: (p_location => 'xla_events_pkg.validate_status_code');
7798: END validate_status_code;
7799:
7800:
7801: --=============================================================================
7805: --
7806: --=============================================================================
7807:
7808: PROCEDURE validate_params
7809: (p_source_info IN xla_events_pub_pkg.t_event_source_info
7810: ,p_event_class_code IN VARCHAR2 DEFAULT NULL
7811: ,p_event_type_code IN VARCHAR2 DEFAULT NULL
7812: ,p_event_date IN DATE DEFAULT NULL
7813: ,p_event_status_code IN VARCHAR2 DEFAULT NULL
7903: WHEN xla_exceptions_pkg.application_exception THEN
7904: RAISE;
7905: WHEN OTHERS THEN
7906: xla_exceptions_pkg.raise_message
7907: (p_location => 'xla_events_pkg.validate_params');
7908: END validate_params;
7909:
7910:
7911:
7955: 'The ledger is either not enabled or is marked as not to create events.'||
7956: 'ledger_id = '||p_ledger_id||
7957: 'application_id = '|| p_application_id
7958: ,p_token_2 => 'LOCATION'
7959: ,p_value_2 => 'xla_events_pkg.validate_ledger');
7960: END IF;
7961: ELSE
7962: BEGIN
7963: SELECT DECODE(enabled_flag
7990: WHEN xla_exceptions_pkg.application_exception THEN
7991: RAISE;
7992: WHEN OTHERS THEN
7993: xla_exceptions_pkg.raise_message
7994: (p_location => 'xla_events_pkg.validate_ledger');
7995: END validate_ledger;
7996:
7997:
7998: --=============================================================================
8001: --
8002: --=============================================================================
8003:
8004: PROCEDURE cache_entity_info
8005: (p_source_info IN xla_events_pub_pkg.t_event_source_info
8006: ,p_valuation_method IN VARCHAR2
8007: ,p_event_id IN PLS_INTEGER) IS
8008:
8009: l_source_info xla_events_pub_pkg.t_event_source_info;
8005: (p_source_info IN xla_events_pub_pkg.t_event_source_info
8006: ,p_valuation_method IN VARCHAR2
8007: ,p_event_id IN PLS_INTEGER) IS
8008:
8009: l_source_info xla_events_pub_pkg.t_event_source_info;
8010:
8011: -------------------------------------------------------------------------------
8012: -- Following three cursors have been modified to remove the 'for update'.
8013: -- The cursors c1 and c2 have also been modified to include 'group by' rather
8025: ,xte.transaction_number
8026: ,max(xe.event_number)
8027: ,xet.enable_gapless_events_flag
8028: FROM xla_transaction_entities xte
8029: ,xla_events xe
8030: ,xla_entity_types_b xet
8031: WHERE xte.application_id = p_source_info.application_id
8032: AND xte.ledger_id = p_source_info.ledger_id
8033: AND xte.entity_code = p_source_info.entity_type_code
8062: ,a.transaction_number
8063: ,MAX(b.event_number)
8064: ,c.enable_gapless_events_flag
8065: FROM xla_transaction_entities a
8066: ,xla_events b
8067: ,xla_entity_types_b c
8068: WHERE a.application_id = p_source_info.application_id
8069: AND a.entity_id = g_entity_id
8070: AND b.entity_id = g_entity_id
8085: ,a.entity_code
8086: ,a.transaction_number
8087: ,b.event_number
8088: FROM xla_transaction_entities a
8089: ,xla_events b
8090: WHERE b.event_id = eventid
8091: AND a.entity_id = b.entity_id
8092: AND a.application_id = p_source_info.application_id;
8093: -- FOR UPDATE NOWAIT;
8297: IF c2%ISOPEN THEN
8298: CLOSE c2;
8299: END IF;
8300: xla_exceptions_pkg.raise_message
8301: (p_location => 'xla_events_pkg.cache_entity_info');
8302: END cache_entity_info;
8303:
8304:
8305: --=============================================================================
8309: --
8310: --=============================================================================
8311:
8312: FUNCTION create_entity_event
8313: (p_event_source_info IN xla_events_pub_pkg.t_event_source_info
8314: ,p_valuation_method IN VARCHAR2
8315: ,p_event_type_code IN VARCHAR2
8316: ,p_event_date IN DATE
8317: ,p_event_status_code IN VARCHAR2
8317: ,p_event_status_code IN VARCHAR2
8318: ,p_process_status_code IN VARCHAR2
8319: ,p_event_number IN NUMBER
8320: ,p_transaction_date IN DATE
8321: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
8322: DEFAULT NULL
8323: ,p_budgetary_control_flag IN VARCHAR2)
8324: RETURN INTEGER IS
8325:
8379: ,sysdate
8380: ,xla_environment_pkg.g_usr_id
8381: ,xla_environment_pkg.g_login_id
8382: ,p_valuation_method
8383: ,xla_events_pub_pkg.g_security.security_id_int_1
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8380: ,xla_environment_pkg.g_usr_id
8381: ,xla_environment_pkg.g_login_id
8382: ,p_valuation_method
8383: ,xla_events_pub_pkg.g_security.security_id_int_1
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8388: ,xla_events_pub_pkg.g_security.security_id_char_3
8381: ,xla_environment_pkg.g_login_id
8382: ,p_valuation_method
8383: ,xla_events_pub_pkg.g_security.security_id_int_1
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8388: ,xla_events_pub_pkg.g_security.security_id_char_3
8389: ,p_event_source_info.source_id_int_1
8382: ,p_valuation_method
8383: ,xla_events_pub_pkg.g_security.security_id_int_1
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8388: ,xla_events_pub_pkg.g_security.security_id_char_3
8389: ,p_event_source_info.source_id_int_1
8390: ,p_event_source_info.source_id_int_2
8383: ,xla_events_pub_pkg.g_security.security_id_int_1
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8388: ,xla_events_pub_pkg.g_security.security_id_char_3
8389: ,p_event_source_info.source_id_int_1
8390: ,p_event_source_info.source_id_int_2
8391: ,p_event_source_info.source_id_int_3
8384: ,xla_events_pub_pkg.g_security.security_id_int_2
8385: ,xla_events_pub_pkg.g_security.security_id_int_3
8386: ,xla_events_pub_pkg.g_security.security_id_char_1
8387: ,xla_events_pub_pkg.g_security.security_id_char_2
8388: ,xla_events_pub_pkg.g_security.security_id_char_3
8389: ,p_event_source_info.source_id_int_1
8390: ,p_event_source_info.source_id_int_2
8391: ,p_event_source_info.source_id_int_3
8392: ,p_event_source_info.source_id_int_4
8431: WHEN xla_exceptions_pkg.application_exception THEN
8432: RAISE;
8433: WHEN OTHERS THEN
8434: xla_exceptions_pkg.raise_message
8435: (p_location => 'xla_events_pkg.create_entity_event');
8436: END create_entity_event;
8437:
8438:
8439: --=============================================================================
8472: WHEN xla_exceptions_pkg.application_exception THEN
8473: RAISE;
8474: WHEN OTHERS THEN
8475: xla_exceptions_pkg.raise_message
8476: (p_location => 'xla_events_pkg.update_entity_trx_number');
8477: END update_entity_trx_number;
8478:
8479: --=============================================================================
8480: --
8493: ,p_event_status_code IN VARCHAR2
8494: ,p_process_status_code IN VARCHAR2
8495: ,p_event_number IN NUMBER
8496: ,p_transaction_date IN DATE
8497: ,p_reference_info IN xla_events_pub_pkg.t_event_reference_info
8498: DEFAULT NULL
8499: ,p_budgetary_control_flag IN VARCHAR2)
8500: RETURN INTEGER IS
8501: l_event_id INTEGER;
8498: DEFAULT NULL
8499: ,p_budgetary_control_flag IN VARCHAR2)
8500: RETURN INTEGER IS
8501: l_event_id INTEGER;
8502: l_on_hold_flag XLA_EVENTS.ON_HOLD_FLAG%TYPE:='N';
8503: l_event_status_code XLA_EVENTS.EVENT_STATUS_CODE%TYPE;
8504: l_temp_event_number XLA_EVENTS.event_number%TYPE;
8505: l_log_module VARCHAR2(240);
8506: BEGIN
8499: ,p_budgetary_control_flag IN VARCHAR2)
8500: RETURN INTEGER IS
8501: l_event_id INTEGER;
8502: l_on_hold_flag XLA_EVENTS.ON_HOLD_FLAG%TYPE:='N';
8503: l_event_status_code XLA_EVENTS.EVENT_STATUS_CODE%TYPE;
8504: l_temp_event_number XLA_EVENTS.event_number%TYPE;
8505: l_log_module VARCHAR2(240);
8506: BEGIN
8507: IF g_log_enabled THEN
8500: RETURN INTEGER IS
8501: l_event_id INTEGER;
8502: l_on_hold_flag XLA_EVENTS.ON_HOLD_FLAG%TYPE:='N';
8503: l_event_status_code XLA_EVENTS.EVENT_STATUS_CODE%TYPE;
8504: l_temp_event_number XLA_EVENTS.event_number%TYPE;
8505: l_log_module VARCHAR2(240);
8506: BEGIN
8507: IF g_log_enabled THEN
8508: l_log_module := C_DEFAULT_MODULE||'.add_entity_event';
8517: if(g_gapless_flag='Y' and p_event_number>1) then
8518: begin
8519: select on_hold_flag, event_status_code
8520: into l_on_hold_flag, l_event_status_code
8521: from xla_events
8522: where entity_id=p_entity_id
8523: and event_number=p_event_number-1;
8524: exception
8525: when no_data_found then
8529: l_on_hold_flag := 'Y';
8530: end if;
8531: end if;
8532:
8533: INSERT INTO xla_events
8534: (event_id
8535: ,application_id
8536: ,event_type_code
8537: ,entity_id
8563: ,reference_date_3
8564: ,reference_date_4
8565: ,on_hold_flag)
8566: VALUES
8567: (xla_events_s.nextval
8568: ,p_application_id
8569: ,p_event_type_code
8570: ,p_entity_id
8571: ,NVL(p_event_number,g_max_event_number + 1)
8603: -- set the following event on_hold to 'N'
8604:
8605: SELECT event_status_code, event_number BULK COLLECT
8606: INTO g_gapless_array_event_status, g_gapless_event_number
8607: FROM xla_events
8608: Where entity_id = g_entity_id
8609: and event_number> p_event_number
8610: Order by event_number;
8611:
8621: --l_temp_event_number is the next gap
8622: -- update the on_hold_flag of event between l_array_event_number(i)
8623: -- and --l_temp_event_number+1
8624:
8625: update xla_events
8626: set on_hold_flag='N'
8627: where entity_id=p_entity_id
8628: and event_number >p_event_number
8629: and event_number
8646: WHEN xla_exceptions_pkg.application_exception THEN
8647: RAISE;
8648: WHEN OTHERS THEN
8649: xla_exceptions_pkg.raise_message
8650: (p_location => 'xla_events_pkg.add_event (fn)');
8651: END add_entity_event;
8652:
8653:
8654: --=============================================================================
8661: l_dummy_class_tbl t_array_event_class;
8662: l_dummy_type_tbl t_array_event_type;
8663: l_dummy_entity_tbl t_array_entity_type;
8664: l_dummy_tbl t_parameter_tbl;
8665: l_source_info xla_events_pub_pkg.t_event_source_info;
8666: l_log_module VARCHAR2(240);
8667: BEGIN
8668: IF g_log_enabled THEN
8669: l_log_module := C_DEFAULT_MODULE||'.reset_cache';
8706: WHEN xla_exceptions_pkg.application_exception THEN
8707: RAISE;
8708: WHEN OTHERS THEN
8709: xla_exceptions_pkg.raise_message
8710: (p_location => 'xla_events_pkg.reset_cache');
8711: END reset_cache;
8712:
8713:
8714: --=============================================================================
8742: WHEN xla_exceptions_pkg.application_exception THEN
8743: RAISE;
8744: WHEN OTHERS THEN
8745: xla_exceptions_pkg.raise_message
8746: (p_location => 'xla_events_pkg.set_context');
8747: END set_context;
8748:
8749:
8750: --=============================================================================
8765: ,p_level => C_LEVEL_PROCEDURE
8766: ,p_module => l_log_module);
8767: END IF;
8768:
8769: -- shall we join to xla_events to get only the event with status D or I?
8770: -- good: reduce the event_id that are selected
8771: -- bad: need to join to xla_events table
8772: DELETE FROM xla_accounting_errors
8773: WHERE event_id IN
8767: END IF;
8768:
8769: -- shall we join to xla_events to get only the event with status D or I?
8770: -- good: reduce the event_id that are selected
8771: -- bad: need to join to xla_events table
8772: DELETE FROM xla_accounting_errors
8773: WHERE event_id IN
8774: (SELECT xeg.event_id FROM xla_events_int_gt xeg, xla_events xe
8775: WHERE xeg.event_id = xe.event_id
8770: -- good: reduce the event_id that are selected
8771: -- bad: need to join to xla_events table
8772: DELETE FROM xla_accounting_errors
8773: WHERE event_id IN
8774: (SELECT xeg.event_id FROM xla_events_int_gt xeg, xla_events xe
8775: WHERE xeg.event_id = xe.event_id
8776: AND xe.event_status_code in ('D', 'I'));
8777:
8778: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
8785: -- Bug 5529420
8786: DELETE FROM xla_distribution_links
8787: WHERE application_id= g_application_id and ae_header_id IN
8788: (SELECT xh.ae_header_id
8789: FROM xla_events_int_gt xeg,
8790: xla_ae_headers xh
8791: WHERE
8792: xh.event_id = xeg.event_id AND
8793: xh.application_id = g_application_id AND
8808:
8809: DELETE FROM xla_ae_segment_values
8810: WHERE ae_header_id IN
8811: (SELECT xah.ae_header_id
8812: FROM xla_events xe
8813: ,xla_ae_headers xah
8814: ,xla_events_int_gt xeg
8815: WHERE xe.application_id = xah.application_id
8816: AND xah.event_id = xe.event_id
8810: WHERE ae_header_id IN
8811: (SELECT xah.ae_header_id
8812: FROM xla_events xe
8813: ,xla_ae_headers xah
8814: ,xla_events_int_gt xeg
8815: WHERE xe.application_id = xah.application_id
8816: AND xah.event_id = xe.event_id
8817: AND xeg.event_id = xe.event_id);
8818:
8829:
8830: DELETE FROM xla_ae_line_acs
8831: WHERE ae_header_id IN
8832: (SELECT xah.ae_header_id
8833: FROM xla_events xe
8834: ,xla_ae_headers xah
8835: ,xla_events_int_gt xeg
8836: WHERE xe.application_id = xah.application_id
8837: AND xah.event_id = xe.event_id
8831: WHERE ae_header_id IN
8832: (SELECT xah.ae_header_id
8833: FROM xla_events xe
8834: ,xla_ae_headers xah
8835: ,xla_events_int_gt xeg
8836: WHERE xe.application_id = xah.application_id
8837: AND xah.event_id = xe.event_id
8838: AND xeg.event_id = xe.event_id);
8839:
8850: --
8851: DELETE FROM xla_ae_header_acs
8852: WHERE ae_header_id IN
8853: (SELECT xah.ae_header_id
8854: FROM xla_events xe
8855: ,xla_ae_headers xah
8856: ,xla_events_int_gt xeg
8857: WHERE xe.application_id = xah.application_id
8858: AND xah.event_id = xe.event_id
8852: WHERE ae_header_id IN
8853: (SELECT xah.ae_header_id
8854: FROM xla_events xe
8855: ,xla_ae_headers xah
8856: ,xla_events_int_gt xeg
8857: WHERE xe.application_id = xah.application_id
8858: AND xah.event_id = xe.event_id
8859: AND xeg.event_id = xe.event_id);
8860:
8872:
8873: DELETE FROM xla_ae_line_details
8874: WHERE ae_header_id IN
8875: (SELECT xah.ae_header_id
8876: FROM xla_events xe
8877: ,xla_ae_headers xah
8878: ,xla_events_int_gt xeg
8879: WHERE xe.application_id = xah.application_id
8880: AND xah.event_id = xe.event_id
8874: WHERE ae_header_id IN
8875: (SELECT xah.ae_header_id
8876: FROM xla_events xe
8877: ,xla_ae_headers xah
8878: ,xla_events_int_gt xeg
8879: WHERE xe.application_id = xah.application_id
8880: AND xah.event_id = xe.event_id
8881: AND xeg.event_id = xe.event_id);
8882:
8893:
8894: DELETE FROM xla_ae_header_details
8895: WHERE ae_header_id IN
8896: (SELECT xah.ae_header_id
8897: FROM xla_events xe
8898: ,xla_ae_headers xah
8899: ,xla_events_int_gt xeg
8900: WHERE xe.application_id = xah.application_id
8901: AND xah.event_id = xe.event_id
8895: WHERE ae_header_id IN
8896: (SELECT xah.ae_header_id
8897: FROM xla_events xe
8898: ,xla_ae_headers xah
8899: ,xla_events_int_gt xeg
8900: WHERE xe.application_id = xah.application_id
8901: AND xah.event_id = xe.event_id
8902: AND xeg.event_id = xe.event_id);
8903:
8915: DELETE FROM xla_ae_lines
8916: WHERE application_id = g_application_id
8917: AND ae_header_id IN
8918: (SELECT xah.ae_header_id
8919: FROM xla_events xe
8920: ,xla_ae_headers xah
8921: ,xla_events_int_gt xeg
8922: WHERE xe.application_id = xah.application_id
8923: AND xe.application_id = g_application_id
8917: AND ae_header_id IN
8918: (SELECT xah.ae_header_id
8919: FROM xla_events xe
8920: ,xla_ae_headers xah
8921: ,xla_events_int_gt xeg
8922: WHERE xe.application_id = xah.application_id
8923: AND xe.application_id = g_application_id
8924: AND xah.application_id = g_application_id
8925: AND xah.event_id = xe.event_id
8939: DELETE FROM xla_ae_headers
8940: WHERE application_id = g_application_id
8941: AND ae_header_id IN
8942: (SELECT xah.ae_header_id
8943: FROM xla_events xe
8944: ,xla_ae_headers xah
8945: ,xla_events_int_gt xeg
8946: WHERE xe.application_id = xah.application_id
8947: AND xah.event_id = xe.event_id
8941: AND ae_header_id IN
8942: (SELECT xah.ae_header_id
8943: FROM xla_events xe
8944: ,xla_ae_headers xah
8945: ,xla_events_int_gt xeg
8946: WHERE xe.application_id = xah.application_id
8947: AND xah.event_id = xe.event_id
8948: AND xeg.event_id = xe.event_id);
8949:
8964: WHEN xla_exceptions_pkg.application_exception THEN
8965: RAISE;
8966: WHEN OTHERS THEN
8967: xla_exceptions_pkg.raise_message
8968: (p_location => 'xla_events_pkg.delete_je');
8969: END delete_je;
8970:
8971:
8972:
9357: END IF;
9358:
9359: initialize;
9360:
9361: END xla_events_pkg;