[Home] [Help]
45: TYPE t_event_id IS TABLE OF
46: xla_events.event_id%type
47: INDEX BY BINARY_INTEGER;
48: TYPE t_header_id IS TABLE OF
49: xla_ae_headers.ae_header_id%type
50: INDEX BY BINARY_INTEGER;
51: TYPE t_line_num IS TABLE OF
52: xla_ae_lines.ae_line_num%type
53: INDEX BY BINARY_INTEGER;
305: -- Updating as invalids all headers that are associated with
306: -- events that are associated with invalid entities.
307:
308: FORALL i IN l_entity_id.FIRST..l_entity_id.LAST
309: UPDATE xla_ae_headers
310: set upg_valid_flag = 'C'
311: where entity_id = l_entity_id(i);
312:
313: -- Cumilitive number of rows updated.
462: -- Updating as invalids all headers that are associated with
463: -- events that are associated with invalid entities.
464:
465: FORALL i IN l_entity_id.FIRST..l_entity_id.LAST
466: UPDATE xla_ae_headers
467: set upg_valid_flag = 'F'
468: where entity_id = l_entity_id(i);
469:
470: -- Cumilitive number of rows updated.
674: -- events that are associated with invalid entities.
675:
676: FORALL i IN l_event_id.FIRST..l_event_id.LAST
677:
678: UPDATE xla_ae_headers
679: set upg_valid_flag = CASE upg_valid_flag
680: WHEN 'F' THEN 'I'
681: ELSE 'J'
682: END
817: THEN 'Y'
818: ELSE 'N' END header_error4-- Balance type code invalid
819: ,CASE when xe.event_id IS NULL THEN 'Y'
820: ELSE 'N' END header_error5-- Header without valid event
821: from xla_ae_headers xah
822: ,gl_ledgers gll
823: ,xla_events xe
824: where gll.ledger_id (+) = xah.ledger_id
825: and xe.event_id (+) = xah.event_id
878: <> nvl(sum(entered_cr), 0)) xal,
879: gl_row_multipliers grm
880: where xal.ae_header_id in ( select /*+ use_hash(xah) swap_join_inputs(xah) */
881: xah.ae_header_id
882: from xla_ae_headers xah
883: where xah.application_id = p_application_id
884: and xah.upg_source_application_id
885: = p_upgrading_application_id
886: and xah.balance_type_code <> 'B')
902: , 'H'
903: ,ae_header_id
904: ,'XLA_UPG_HDR_WO_LINES'
905: from (select xah.ae_header_id
906: from xla_ae_headers xah
907: where NOT EXISTS (SELECT xal.ae_header_id
908: from xla_ae_lines xal
909: where xah.ae_header_id = xal.ae_header_id
910: and xah.application_id = xal.application_id
922: LIMIT g_batch_size;
923: EXIT WHEN l_header_id.COUNT = 0;
924:
925: FORALL i IN l_header_id.FIRST..l_header_id.LAST
926: UPDATE xla_ae_headers
927: set upg_valid_flag = CASE upg_valid_flag
928: WHEN 'F' THEN 'L'
929: WHEN 'J' THEN 'M'
930: WHEN 'I' THEN 'N'
1102: ELSE 'N' END line_error9
1103: , CASE when xal.party_site_id IS NULL
1104: and xal.party_id IS NULL then 'Y'
1105: ELSE 'N' END line_error10
1106: FROM xla_ae_headers xah
1107: , xla_ae_lines xal
1108: , gl_code_combinations glcc
1109: , gl_ledgers gll
1110: , hz_parties hz
1160: EXIT WHEN l_header_id.COUNT = 0;
1161:
1162: -- Mark Header as having errors
1163: FORALL i IN l_header_id.FIRST..l_header_id.LAST
1164: UPDATE xla_ae_headers
1165: set upg_valid_flag = CASE upg_valid_flag
1166: WHEN 'F' THEN 'P'
1167: WHEN 'J' THEN 'Q'
1168: WHEN 'I' THEN 'R'
1300: LIMIT g_batch_size;
1301: EXIT when l_header_id.COUNT = 0;
1302:
1303: FORALL i IN l_header_id.FIRST..l_header_id.LAST
1304: UPDATE xla_ae_headers
1305: set upg_valid_flag = CASE upg_valid_flag
1306: WHEN 'P' THEN 'W'
1307: WHEN 'Q' THEN 'X'
1308: WHEN 'R' THEN 'Y'
1406: 'SEGMENT29', ccid.segment29,
1407: 'SEGMENT30', ccid.segment30,
1408: NULL), count(*)
1409: from xla_ae_lines xal,
1410: xla_ae_headers xah,
1411: gl_ledgers gll,
1412: gl_code_combinations ccid
1413: where gll.ledger_id = xah.ledger_id
1414: and xah.application_id = p_application_id
1481: 'SEGMENT29', ccid.segment29,
1482: 'SEGMENT30', ccid.segment30,
1483: NULL), count(*)
1484: from xla_ae_lines xal,
1485: xla_ae_headers xah,
1486: gl_ledgers gll,
1487: gl_code_combinations ccid
1488: where gll.ledger_id = xah.ledger_id
1489: and xah.application_id = p_application_id