[Home] [Help]
688:
689: IF l_headers_insert = TRUE THEN
690:
691: DELETE
692: FROM xla_ae_headers
693: WHERE request_id = l_upgrade_id;
694:
695: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
696: trace
693: WHERE request_id = l_upgrade_id;
694:
695: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
696: trace
697: (p_msg => 'deleted rows from xla_ae_headers = ' || SQL%ROWCOUNT
698: ,p_level => C_LEVEL_PROCEDURE
699: ,p_module => l_log_module);
700: END IF;
701: COMMIT;
926: SELECT 1
927: INTO l_untransferred_headers
928: FROM DUAL
929: WHERE EXISTS (SELECT 1
930: FROM xla_ae_headers
931: WHERE ledger_id = l_primary_ledger_id
932: AND accounting_entry_status_code = 'F'
933: AND gl_transfer_status_code <> 'Y'
934: AND accounting_date >= l_start_date
978: SELECT 1
979: INTO l_sec_alc_data_check
980: FROM DUAL
981: WHERE EXISTS (SELECT 1
982: FROM xla_ae_headers
983: WHERE ledger_id = l_secondary_alc_ledger_id);
984:
985:
986: IF l_sec_alc_data_check = 1 THEN
1056: SELECT distinct(l.currency_code)
1057: FROM xla_ae_lines l
1058: WHERE exists
1059: (SELECT 1
1060: FROM xla_ae_headers h
1061: WHERE h.ledger_id = l_primary_ledger_id
1062: AND l.ae_header_id = h.ae_header_id
1063: AND l.application_id = h.application_id
1064: AND h.accounting_entry_status_code = 'F'
1706: INTO l_sql_time
1707: FROM dual;
1708:
1709: trace
1710: (p_msg => 'xla_ae_headers insert SQL start: ' || l_sql_time
1711: ,p_level => C_LEVEL_PROCEDURE
1712: ,p_module => l_log_module);
1713: END IF;
1714:
1713: END IF;
1714:
1715:
1716:
1717: INSERT /*+ append */ INTO XLA_AE_HEADERS
1718: (
1719: AE_HEADER_ID
1720: , APPLICATION_ID
1721: , LEDGER_ID
1787: , PARENT_AE_LINE_NUM
1788: , ACCRUAL_REVERSAL_FLAG
1789: , MERGE_EVENT_ID )
1790: SELECT /*+ parallel(xah) */
1791: XLA_AE_HEADERS_S.nextval
1792: , XAH.APPLICATION_ID
1793: , l_secondary_alc_ledger_id
1794: , XAH.ENTITY_ID
1795: , XAH.EVENT_ID
1858: , NULL -- No need to populate this for historical transactions
1859: , NULL -- No need to populate this for historical transactions
1860: , XAH.ACCRUAL_REVERSAL_FLAG
1861: , XAH.MERGE_EVENT_ID
1862: FROM XLA_AE_HEADERS XAH
1863: WHERE
1864: XAH.accounting_date >= l_start_date
1865: AND XAH.accounting_date <= l_sec_alc_end_date
1866: AND XAH.ledger_id = l_primary_ledger_id
1875:
1876:
1877: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
1878: trace
1879: (p_msg => 'Rows inserted into xla_ae_headers: ' || SQL%ROWCOUNT
1880: ,p_level => C_LEVEL_PROCEDURE
1881: ,p_module => l_log_module);
1882:
1883: END IF;
1894: FROM dual;
1895:
1896:
1897: trace
1898: (p_msg => 'xla_ae_headers insert SQL end and xla_ae_lines SQL start: ' || l_sql_time
1899: ,p_level => C_LEVEL_PROCEDURE
1900: ,p_module => l_log_module);
1901: END IF;
1902:
2062: , SYSDATE
2063: , -1 --G_PGM_APPL_ID
2064: , -1 --G_PROGRAM_ID
2065: , l_upgrade_id
2066: , XAH.UPG_BATCH_ID --XAL.UPG_BATCH_ID original header in xla_ae_headers
2067: , XAL.UPG_TAX_REFERENCE_ID1
2068: , XAL.UPG_TAX_REFERENCE_ID2
2069: , XAL.UPG_TAX_REFERENCE_ID3
2070: , DECODE(XAL.currency_code,l_sec_alc_currency_code,
2104: , l_secondary_alc_ledger_id
2105: , XAL.SOURCE_TABLE
2106: , XAL.SOURCE_ID
2107: , XAL.ACCOUNT_OVERLAY_SOURCE_ID
2108: FROM XLA_AE_HEADERS XAH
2109: ,XLA_AE_LINES XAL
2110: ,XLA_RC_UPGRADE_RATES XRUR
2111: WHERE
2112: XAH.ledger_id = l_secondary_alc_ledger_id
2197: INTO l_sql_time
2198: FROM dual;
2199:
2200: trace
2201: (p_msg => 'xla_ae_headers insert SQL start: ' || l_sql_time
2202: ,p_level => C_LEVEL_PROCEDURE
2203: ,p_module => l_log_module);
2204: END IF;
2205:
2204: END IF;
2205:
2206:
2207:
2208: INSERT /*+ append */ INTO XLA_AE_HEADERS
2209: (
2210: AE_HEADER_ID
2211: , APPLICATION_ID
2212: , LEDGER_ID
2278: , PARENT_AE_LINE_NUM
2279: , ACCRUAL_REVERSAL_FLAG
2280: , MERGE_EVENT_ID )
2281: SELECT /*+ parallel(xah) */
2282: XLA_AE_HEADERS_S.nextval
2283: , XAH.APPLICATION_ID
2284: , l_secondary_alc_ledger_id
2285: , XAH.ENTITY_ID
2286: , XAH.EVENT_ID
2349: , NULL -- No need to populate this for historical transactions
2350: , NULL -- No need to populate this for historical transactions
2351: , XAH.ACCRUAL_REVERSAL_FLAG
2352: , XAH.MERGE_EVENT_ID
2353: FROM XLA_AE_HEADERS XAH
2354: WHERE
2355: XAH.accounting_date >= l_start_date
2356: AND XAH.accounting_date <= l_sec_alc_end_date
2357: AND XAH.ledger_id = l_primary_ledger_id
2361:
2362:
2363: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
2364: trace
2365: (p_msg => 'Rows inserted into xla_ae_headers: ' || SQL%ROWCOUNT
2366: ,p_level => C_LEVEL_PROCEDURE
2367: ,p_module => l_log_module);
2368:
2369: END IF;
2380: FROM dual;
2381:
2382:
2383: trace
2384: (p_msg => 'xla_ae_headers insert SQL end and xla_ae_lines SQL start: ' || l_sql_time
2385: ,p_level => C_LEVEL_PROCEDURE
2386: ,p_module => l_log_module);
2387: END IF;
2388:
2548: , SYSDATE
2549: , -1 --G_PGM_APPL_ID
2550: , -1 --G_PROGRAM_ID
2551: , l_upgrade_id
2552: , XAH.UPG_BATCH_ID --XAL.UPG_BATCH_ID original header in xla_ae_headers
2553: , XAL.UPG_TAX_REFERENCE_ID1
2554: , XAL.UPG_TAX_REFERENCE_ID2
2555: , XAL.UPG_TAX_REFERENCE_ID3
2556: , DECODE(XAL.currency_code,l_sec_alc_currency_code,
2590: , l_secondary_alc_ledger_id
2591: , XAL.SOURCE_TABLE
2592: , XAL.SOURCE_ID
2593: , XAL.ACCOUNT_OVERLAY_SOURCE_ID
2594: FROM XLA_AE_HEADERS XAH
2595: ,XLA_AE_LINES XAL
2596: ,XLA_RC_UPGRADE_RATES XRUR
2597: WHERE
2598: XAH.ledger_id = l_secondary_alc_ledger_id
2727: SELECT distinct l_mapping_relationship_id, code_combination_id
2728: FROM xla_ae_lines xal
2729: WHERE XAL.gain_or_loss_flag <> 'Y'
2730: AND EXISTS (SELECT 1
2731: FROM xla_ae_headers xah
2732: WHERE xah.ae_header_id = xal.ae_header_id
2733: AND XAH.accounting_date >= l_start_date
2734: AND XAH.accounting_date <= l_sec_alc_end_date
2735: AND XAH.ledger_id = l_primary_ledger_id
3110: END IF;
3111:
3112:
3113:
3114: UPDATE xla_ae_headers xah
3115: SET period_name = (SELECT gls.period_name
3116: FROM gl_period_statuses gls
3117: WHERE gls.ledger_id = l_secondary_alc_ledger_id
3118: AND gls.application_id = 101
3179:
3180: CURSOR c_gain_loss_headers
3181: IS
3182: SELECT distinct ae_header_id
3183: FROM xla_ae_headers XAH
3184: WHERE XAH.accounting_date >= l_start_date
3185: AND XAH.accounting_date <= l_sec_alc_end_date
3186: AND XAH.ledger_id = l_primary_ledger_id
3187: AND XAH.accounting_entry_status_code = 'F'
3459: , XDL.LINE_DEFINITION_OWNER_CODE
3460: , XDL.LINE_DEFINITION_CODE
3461: , XDL.EVENT_CLASS_CODE
3462: , XDL.EVENT_TYPE_CODE
3463: , XAL.UPG_BATCH_ID -- original header in xla_ae_headers
3464: , XDL.CALCULATE_ACCTD_AMTS_FLAG
3465: , XDL.CALCULATE_G_L_AMTS_FLAG
3466: , XDL.ROUNDING_CLASS_CODE
3467: , XDL.DOCUMENT_ROUNDING_LEVEL
3556: -- since joins are not based on this column
3557:
3558: UPDATE xla_distribution_links xdl
3559: SET ref_ae_header_id = (SELECT ae_header_id
3560: FROM xla_ae_headers xah
3561: WHERE xah.upg_batch_id = -1 * xdl.ref_ae_header_id
3562: --AND xah.application_id = xdl.application_id
3563: AND xah.event_id = xdl.ref_event_id
3564: AND xah.ledger_id = l_secondary_alc_ledger_id
3568: AND xdl.ref_ae_header_id < 0
3569: AND xdl.ref_event_id IS NOT NULL
3570: AND xdl.ref_event_id <> -1 * xdl.ref_ae_header_id
3571: AND EXISTS (SELECT 1
3572: FROM xla_ae_headers xah2
3573: WHERE xah2.upg_batch_id = -1* xdl.ref_ae_header_id); -- exists condition added since ref headers might refer to secondary headers we havent created because of start dates or status codes of primary data
3574:
3575:
3576: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
3606: , xasv.segment_type_code
3607: , xasv.segment_value
3608: , xasv.ae_lines_count
3609: , l_upgrade_id
3610: FROM xla_ae_headers xah
3611: , xla_ae_segment_values xasv
3612: WHERE XAH.upg_batch_id = XASV.ae_header_id
3613: AND XAH.accounting_date >= l_start_date
3614: AND XAH.accounting_date <= l_sec_alc_end_date