48: l_period_end_date_version NUMBER := gcs_utility_pkg.g_dimension_attr_info('CAL_PERIOD_ID-CAL_PERIOD_END_DATE')
49: .version_id;
50:
51: BEGIN
52: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
53: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
54: g_api || '.GET_DATASUB_DTLS.begin',
55: '<
56: END IF;
49: .version_id;
50:
51: BEGIN
52: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
53: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
54: g_api || '.GET_DATASUB_DTLS.begin',
55: '<
56: END IF;
57:
146: AND fetb.encumbrance_type_id = fda.dim_attribute_numeric_member;
147:
148: END IF;
149:
150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
152: g_api || '.GET_DATASUB_DTLS.end',
153: '<
154: END IF;
147:
148: END IF;
149:
150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
152: g_api || '.GET_DATASUB_DTLS.end',
153: '<
154: END IF;
155: END get_datasub_dtls;
287: fnd_file.put_line(fnd_file.log,
288: 'The index defined on FEM_BAL_INTERFACE_T does not contain all columns that are part of the processing key. Please review the index definition.');
289: ELSIF (l_status_code = 'TRANSFER_ERROR') THEN
290: fnd_file.put_line(fnd_file.log,
291: 'The transfer of data from GCS_BAL_INTERFACE_T to FEM_BAL_INTERFACE_T failed. Please review the information in FND_LOG_MESSAGES for more details.');
292: ELSE
293: fnd_file.put_line(fnd_file.log, 'Transformation on data failed.');
294: END IF;
295: fnd_file.put_line(fnd_file.log, '<<<<< End of Error >>>>>');
946: l_datasub_info r_datasub_info;
947: l_locked_flag VARCHAR2(1);
948:
949: BEGIN
950: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
952: g_api || '.SUBMIT_DATASUB.begin',
953: '<
954: END IF;
947: l_locked_flag VARCHAR2(1);
948:
949: BEGIN
950: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
952: g_api || '.SUBMIT_DATASUB.begin',
953: '<
954: END IF;
955:
1024: END IF;
1025:
1026: COMMIT;
1027:
1028: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1030: g_api || '.SUBMIT_DATASUB.end',
1031: '<
1032: END IF;
1025:
1026: COMMIT;
1027:
1028: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1030: g_api || '.SUBMIT_DATASUB.end',
1031: '<
1032: END IF;
1033: EXCEPTION
1044: l_first_ever_loaded VARCHAR2(1) := p_first_ever_loaded;
1045: l_currency_type_code VARCHAR2(30) := p_currency_type_code;
1046:
1047: BEGIN
1048: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1050: g_api || '.UPDATE_AMOUNTS_AUTONOMOUS.begin',
1051: '<
1052: END IF;
1045: l_currency_type_code VARCHAR2(30) := p_currency_type_code;
1046:
1047: BEGIN
1048: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1049: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1050: g_api || '.UPDATE_AMOUNTS_AUTONOMOUS.begin',
1051: '<
1052: END IF;
1053:
1281: END IF;
1282:
1283: COMMIT;
1284:
1285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1287: g_api || '.UPDATE_AMOUNTS_AUTONOMOUS.end',
1288: '<
1289: END IF;
1282:
1283: COMMIT;
1284:
1285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1287: g_api || '.UPDATE_AMOUNTS_AUTONOMOUS.end',
1288: '<
1289: END IF;
1290:
1321: .version_id;
1322:
1323: BEGIN
1324:
1325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1327: g_api || '.TRANSFER_DATA_AUTONOMOUS.begin',
1328: '<
1329: END IF;
1322:
1323: BEGIN
1324:
1325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1327: g_api || '.TRANSFER_DATA_AUTONOMOUS.begin',
1328: '<
1329: END IF;
1330:
1456:
1457: --Bugfix 5261560: Setting the transfer status to OK
1458: p_transfer_status := 'OK';
1459:
1460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1461: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1462: g_api || '.TRANSFER_DATA_AUTONOMOUS.end',
1463: '<
1464: END IF;
1457: --Bugfix 5261560: Setting the transfer status to OK
1458: p_transfer_status := 'OK';
1459:
1460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1461: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1462: g_api || '.TRANSFER_DATA_AUTONOMOUS.end',
1463: '<
1464: END IF;
1465:
1471: WHERE load_id = p_load_id;
1472:
1473: p_transfer_status := 'ERROR';
1474:
1475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1476: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1477: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1478: '<
1479: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1472:
1473: p_transfer_status := 'ERROR';
1474:
1475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1476: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1477: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1478: '<
1479: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1480: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1476: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1477: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1478: '<
1479: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1480: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1481: SQLERRM);
1482: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1483: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1478: '<
1479: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1480: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1481: SQLERRM);
1482: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1483: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1484: '<
1485: END IF;
1486: COMMIT;
1491: WHERE load_id = p_load_id;
1492:
1493: p_transfer_status := 'ERROR';
1494:
1495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1496: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1497: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1498: '<
1499: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1492:
1493: p_transfer_status := 'ERROR';
1494:
1495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1496: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1497: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1498: '<
1499: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1500: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1496: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1497: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1498: '<
1499: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1500: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1501: SQLERRM);
1502: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1503: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1498: '<
1499: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1500: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1501: SQLERRM);
1502: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1503: g_api || '.TRANSFER_DATA_AUTONOMOUS',
1504: '<
1505: END IF;
1506: COMMIT;
1518: l_msg_data VARCHAR2(2000);
1519:
1520: BEGIN
1521:
1522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1523: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1524: g_api || '.EXECUTE_AUTONOMOUS.begin',
1525: '<
1526: END IF;
1519:
1520: BEGIN
1521:
1522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1523: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1524: g_api || '.EXECUTE_AUTONOMOUS.begin',
1525: '<
1526: END IF;
1527:
1557:
1558: END IF;
1559:
1560: COMMIT;
1561: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1562: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1563: g_api || '.EXECUTE_AUTONOMOUS.end',
1564: '<
1565: END IF;
1558: END IF;
1559:
1560: COMMIT;
1561: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1562: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1563: g_api || '.EXECUTE_AUTONOMOUS.end',
1564: '<
1565: END IF;
1566:
1566:
1567: EXCEPTION
1568: WHEN OTHERS THEN
1569: ROLLBACK;
1570: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1572: g_api || '.EXECUTE_AUTONOMOUS',
1573: SQLERRM);
1574: END IF;
1567: EXCEPTION
1568: WHEN OTHERS THEN
1569: ROLLBACK;
1570: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1572: g_api || '.EXECUTE_AUTONOMOUS',
1573: SQLERRM);
1574: END IF;
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1586: l_datasub_info r_datasub_info;
1587:
1588: BEGIN
1589:
1590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1591: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1592: g_api || '.CHECK_IDT_REQUIRED.begin',
1593: '<
1594: END IF;
1587:
1588: BEGIN
1589:
1590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1591: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1592: g_api || '.CHECK_IDT_REQUIRED.begin',
1593: '<
1594: END IF;
1595:
1604: ELSE
1605: p_result := 'COMPLETE:F';
1606: END IF;
1607:
1608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1610: g_api || '.CHECK_IDT_REQUIRED.end',
1611: '<
1612: END IF;
1605: p_result := 'COMPLETE:F';
1606: END IF;
1607:
1608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1610: g_api || '.CHECK_IDT_REQUIRED.end',
1611: '<
1612: END IF;
1613:
1623: l_return_status VARCHAR2(1);
1624:
1625: BEGIN
1626:
1627: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1629: g_api || '.EXECUTE_IDT.begin',
1630: '<
1631: END IF;
1624:
1625: BEGIN
1626:
1627: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1629: g_api || '.EXECUTE_IDT.begin',
1630: '<
1631: END IF;
1632:
1649: SET status_code = 'TRANSFORMATION_FAILED'
1650: WHERE load_id = l_datasub_info.load_id;
1651: END IF;
1652:
1653: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1655: g_api || '.EXECUTE_IDT.end',
1656: '<
1657: END IF;
1650: WHERE load_id = l_datasub_info.load_id;
1651: END IF;
1652:
1653: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1655: g_api || '.EXECUTE_IDT.end',
1656: '<
1657: END IF;
1658:
1667: l_datasub_info r_datasub_info;
1668:
1669: BEGIN
1670:
1671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1673: g_api || '.CHECK_VALIDATION_REQUIRED.begin',
1674: '<
1675: END IF;
1668:
1669: BEGIN
1670:
1671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1673: g_api || '.CHECK_VALIDATION_REQUIRED.begin',
1674: '<
1675: END IF;
1676:
1685: ELSE
1686: p_result := 'COMPLETE:F';
1687: END IF;
1688:
1689: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1691: g_api || '.CHECK_VALIDATION_REQUIRED.end',
1692: '<
1693: END IF;
1686: p_result := 'COMPLETE:F';
1687: END IF;
1688:
1689: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1691: g_api || '.CHECK_VALIDATION_REQUIRED.end',
1692: '<
1693: END IF;
1694:
1704: l_return_status VARCHAR2(1);
1705:
1706: BEGIN
1707:
1708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1710: g_api || '.EXECUTE_VALIDATION.begin',
1711: '<
1712: END IF;
1705:
1706: BEGIN
1707:
1708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1710: g_api || '.EXECUTE_VALIDATION.begin',
1711: '<
1712: END IF;
1713:
1730: SET status_code = 'VALIDATION_FAILED'
1731: WHERE load_id = l_datasub_info.load_id;
1732: END IF;
1733:
1734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1736: g_api || '.EXECUTE_VALIDATION.end',
1737: '<
1738: END IF;
1731: WHERE load_id = l_datasub_info.load_id;
1732: END IF;
1733:
1734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1736: g_api || '.EXECUTE_VALIDATION.end',
1737: '<
1738: END IF;
1739:
1752: l_execution_mode VARCHAR2(1);
1753:
1754: BEGIN
1755:
1756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1757: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1758: g_api || '.INIT_DATASUB_PROCESS.begin',
1759: '<
1760: END IF;
1753:
1754: BEGIN
1755:
1756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1757: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1758: g_api || '.INIT_DATASUB_PROCESS.begin',
1759: '<
1760: END IF;
1761:
1851: l_execution_mode);
1852:
1853: p_result := 'COMPLETE';
1854:
1855: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1856: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1857: g_api || '.INIT_DATASUB_PROCESS.end',
1858: '<
1859: END IF;
1852:
1853: p_result := 'COMPLETE';
1854:
1855: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1856: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1857: g_api || '.INIT_DATASUB_PROCESS.end',
1858: '<
1859: END IF;
1860:
1872: l_cal_period_info gcs_utility_pkg.r_cal_period_info;
1873:
1874: BEGIN
1875:
1876: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1877: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1878: g_api || '.UPDATE_AMOUNTS.begin',
1879: '<
1880: END IF;
1873:
1874: BEGIN
1875:
1876: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1877: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1878: g_api || '.UPDATE_AMOUNTS.begin',
1879: '<
1880: END IF;
1881:
1941: END IF;
1942:
1943: p_result := 'COMPLETE';
1944:
1945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1946: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1947: g_api || '.UPDATE_AMOUNTS.end',
1948: '<
1949: END IF;
1942:
1943: p_result := 'COMPLETE';
1944:
1945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1946: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1947: g_api || '.UPDATE_AMOUNTS.end',
1948: '<
1949: END IF;
1950: END update_amounts;
1977: l_transfer_status VARCHAR2(30);
1978:
1979: BEGIN
1980:
1981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1982: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1983: g_api || '.TRANSFER_DATA_TO_INTERFACE.begin',
1984: '<
1985: END IF;
1978:
1979: BEGIN
1980:
1981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1982: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1983: g_api || '.TRANSFER_DATA_TO_INTERFACE.begin',
1984: '<
1985: END IF;
1986:
2086: ELSE
2087: p_result := 'COMPLETE:F';
2088: END IF;
2089:
2090: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2092: g_api || '.TRANSFER_DATA_TO_INTERFACE.end',
2093: '<
2094: END IF;
2087: p_result := 'COMPLETE:F';
2088: END IF;
2089:
2090: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2092: g_api || '.TRANSFER_DATA_TO_INTERFACE.end',
2093: '<
2094: END IF;
2095:
2103: l_status_code VARCHAR2(1);
2104:
2105: BEGIN
2106:
2107: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2109: g_api || '.UPDATE_STATUS.begin',
2110: '<
2111: END IF;
2104:
2105: BEGIN
2106:
2107: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2109: g_api || '.UPDATE_STATUS.begin',
2110: '<
2111: END IF;
2112:
2148: WHERE load_id = l_datasub_info.load_id;
2149: END IF;
2150: END IF;
2151:
2152: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2154: g_api || '.UPDATE_STATUS.end',
2155: '<
2156: END IF;
2149: END IF;
2150: END IF;
2151:
2152: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2154: g_api || '.UPDATE_STATUS.end',
2155: '<
2156: END IF;
2157:
2166: l_parameter_list wf_parameter_list_t;
2167:
2168: BEGIN
2169:
2170: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2172: g_api || '.RAISE_IMPACT_ANALYSIS_EVENT.begin',
2173: '<
2174: END IF;
2167:
2168: BEGIN
2169:
2170: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2172: g_api || '.RAISE_IMPACT_ANALYSIS_EVENT.begin',
2173: '<
2174: END IF;
2175:
2184: wf_event.raise(p_event_name => l_event_name,
2185: p_event_key => p_load_id,
2186: p_parameters => l_parameter_list);
2187:
2188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2189: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2190: g_api || '.RAISE_IMPACT_ANALYSIS_EVENT.end',
2191: '<
2192: END IF;
2185: p_event_key => p_load_id,
2186: p_parameters => l_parameter_list);
2187:
2188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2189: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2190: g_api || '.RAISE_IMPACT_ANALYSIS_EVENT.end',
2191: '<
2192: END IF;
2193:
2197: p_request_id OUT NOCOPY NUMBER) IS
2198:
2199: BEGIN
2200:
2201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2203: g_api || '.SUBMIT_OGL_DATASUB.begin',
2204: '<
2205: END IF;
2198:
2199: BEGIN
2200:
2201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2203: g_api || '.SUBMIT_OGL_DATASUB.begin',
2204: '<
2205: END IF;
2206:
2208: program => 'FCH_DATA_SUBMISSION',
2209: sub_request => FALSE,
2210: argument1 => p_load_id);
2211:
2212: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2214: g_api || '.SUBMIT_OGL_DATASUB.end',
2215: '<
2216: END IF;
2209: sub_request => FALSE,
2210: argument1 => p_load_id);
2211:
2212: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2214: g_api || '.SUBMIT_OGL_DATASUB.end',
2215: '<
2216: END IF;
2217:
2232: l_msg_info t_msg_info;
2233:
2234: BEGIN
2235:
2236: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2237: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2238: g_api || '.VALIDATE_MEMBER_VALUES.begin',
2239: '<
2240: END IF;
2233:
2234: BEGIN
2235:
2236: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2237: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2238: g_api || '.VALIDATE_MEMBER_VALUES.begin',
2239: '<
2240: END IF;
2241:
2275: END IF;
2276: END LOOP;
2277: END IF;
2278:
2279: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2280: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2281: g_api || '.VALIDATE_MEMBER_VALUES.end',
2282: '<
2283: END IF;
2276: END LOOP;
2277: END IF;
2278:
2279: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2280: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2281: g_api || '.VALIDATE_MEMBER_VALUES.end',
2282: '<
2283: END IF;
2284:
2349: .version_id;
2350:
2351: BEGIN
2352:
2353: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2355: g_api || '.POPULATE_OGL_DATASUB_DTLS.begin',
2356: '<< Enter >>');
2357: END IF;
2350:
2351: BEGIN
2352:
2353: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2355: g_api || '.POPULATE_OGL_DATASUB_DTLS.begin',
2356: '<< Enter >>');
2357: END IF;
2358:
2376: l_user_id := FND_GLOBAL.user_id;
2377: l_login_id := FND_GLOBAL.login_id;
2378: l_data_sub_exists_via_ui := 'N';
2379:
2380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2382: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2383: '<< Parameters on event : Start >>');
2384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2377: l_login_id := FND_GLOBAL.login_id;
2378: l_data_sub_exists_via_ui := 'N';
2379:
2380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2382: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2383: '<< Parameters on event : Start >>');
2384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2385: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2382: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2383: '<< Parameters on event : Start >>');
2384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2385: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2386: 'Balance Rule Version Id : ' || l_bal_rule_version_id);
2387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2388: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2383: '<< Parameters on event : Start >>');
2384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2385: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2386: 'Balance Rule Version Id : ' || l_bal_rule_version_id);
2387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2388: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2389: 'Cal Period Id : ' || l_cal_period_id);
2390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2391: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2386: 'Balance Rule Version Id : ' || l_bal_rule_version_id);
2387: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2388: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2389: 'Cal Period Id : ' || l_cal_period_id);
2390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2391: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2392: 'Request Id : ' || l_request_id);
2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2394: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2389: 'Cal Period Id : ' || l_cal_period_id);
2390: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2391: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2392: 'Request Id : ' || l_request_id);
2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2394: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2395: 'Base Request Id : ' || l_base_request_id);
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2397: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2392: 'Request Id : ' || l_request_id);
2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2394: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2395: 'Base Request Id : ' || l_base_request_id);
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2397: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2398: 'Load Method Code : ' || l_load_method_code);
2399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2400: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2395: 'Base Request Id : ' || l_base_request_id);
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2397: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2398: 'Load Method Code : ' || l_load_method_code);
2399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2400: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2401: 'BSV low : ' || l_bsv_low);
2402: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2403: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2398: 'Load Method Code : ' || l_load_method_code);
2399: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2400: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2401: 'BSV low : ' || l_bsv_low);
2402: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2403: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2404: 'BSV high : ' || l_bsv_high);
2405: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2406: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2401: 'BSV low : ' || l_bsv_low);
2402: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2403: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2404: 'BSV high : ' || l_bsv_high);
2405: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2406: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2407: 'Status Code : ' || l_status_code);
2408: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2409: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2404: 'BSV high : ' || l_bsv_high);
2405: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2406: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2407: 'Status Code : ' || l_status_code);
2408: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2409: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2410: '<< Parameters on event : End >>');
2411: END IF;
2412:
2421: AND ROWNUM < 2;
2422:
2423: IF l_data_sub_exists_via_ui = 'Y' THEN
2424:
2425: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2427: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2428: '<< Data Load Submitted via UI >>');
2429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2422:
2423: IF l_data_sub_exists_via_ui = 'Y' THEN
2424:
2425: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2427: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2428: '<< Data Load Submitted via UI >>');
2429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2430: g_api || '.POPULATE_OGL_DATASUB_DTLS.end',
2425: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2427: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2428: '<< Data Load Submitted via UI >>');
2429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2430: g_api || '.POPULATE_OGL_DATASUB_DTLS.end',
2431: '<< Exit >>');
2432: END IF;
2433:
2436:
2437: EXCEPTION
2438: WHEN NO_DATA_FOUND THEN
2439:
2440: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2441: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2442: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2443: '<< Data Load Submitted via Balances Rule Engine >>');
2444: END IF;
2437: EXCEPTION
2438: WHEN NO_DATA_FOUND THEN
2439:
2440: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2441: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2442: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2443: '<< Data Load Submitted via Balances Rule Engine >>');
2444: END IF;
2445:
2473: AND fcpa.version_id = l_period_end_date_version
2474: AND fcpa.date_assign_value BETWEEN fodb.effective_start_date AND
2475: fodb.effective_end_date;
2476:
2477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2479: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2480: 'Balances Rule Id : ' || l_bal_rule_id);
2481: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2474: AND fcpa.date_assign_value BETWEEN fodb.effective_start_date AND
2475: fodb.effective_end_date;
2476:
2477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2479: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2480: 'Balances Rule Id : ' || l_bal_rule_id);
2481: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2482: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2479: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2480: 'Balances Rule Id : ' || l_bal_rule_id);
2481: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2482: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2483: 'Ledger Id : ' || l_ledger_id);
2484: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2485: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2480: 'Balances Rule Id : ' || l_bal_rule_id);
2481: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2482: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2483: 'Ledger Id : ' || l_ledger_id);
2484: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2485: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2486: 'Balance Type Code : ' || l_ds_bal_type_code);
2487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2488: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2483: 'Ledger Id : ' || l_ledger_id);
2484: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2485: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2486: 'Balance Type Code : ' || l_ds_bal_type_code);
2487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2488: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2489: 'Currency Code : ' || l_curr_code);
2490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2491: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2486: 'Balance Type Code : ' || l_ds_bal_type_code);
2487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2488: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2489: 'Currency Code : ' || l_curr_code);
2490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2491: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2492: 'Cal Period End Date : ' || l_cal_period_end_date);
2493: END IF;
2494:
2493: END IF;
2494:
2495: IF l_ds_bal_type_code <> 'ACTUAL' THEN
2496:
2497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2498: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2499: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2500: '<< Data Load Submitted for other than actuals >>');
2501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2494:
2495: IF l_ds_bal_type_code <> 'ACTUAL' THEN
2496:
2497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2498: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2499: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2500: '<< Data Load Submitted for other than actuals >>');
2501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2502: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2498: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2499: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2500: '<< Data Load Submitted for other than actuals >>');
2501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2502: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2503: '<< Exit >>');
2504: END IF;
2505:
2525: INTO l_start_date
2526: FROM fnd_concurrent_requests
2527: WHERE request_id = l_base_request_id;
2528:
2529: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2530: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2531: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2532: 'Requested Status Date : ' || l_start_date);
2533: END IF;
2526: FROM fnd_concurrent_requests
2527: WHERE request_id = l_base_request_id;
2528:
2529: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2530: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2531: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2532: 'Requested Status Date : ' || l_start_date);
2533: END IF;
2534:
2535: IF (l_load_method_code = 'S' OR
2536: (l_load_method_code = 'I' AND l_bsv_low IS NULL AND
2537: l_bsv_high IS NULL)) THEN
2538:
2539: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2540: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2541: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2542: ' Snapshot or Incremtal with no bsv range : << Enter >>');
2543: END IF;
2536: (l_load_method_code = 'I' AND l_bsv_low IS NULL AND
2537: l_bsv_high IS NULL)) THEN
2538:
2539: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2540: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2541: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2542: ' Snapshot or Incremtal with no bsv range : << Enter >>');
2543: END IF;
2544:
2561: AND NVL(gea.effective_end_date, fcpa.date_assign_value);
2562:
2563: IF l_entity_list.FIRST IS NOT NULL AND l_entity_list.LAST IS NOT NULL THEN
2564:
2565: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2567: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2568: ' Updating gcs_data_sub_dtls for ACTUAL');
2569: END IF;
2562:
2563: IF l_entity_list.FIRST IS NOT NULL AND l_entity_list.LAST IS NOT NULL THEN
2564:
2565: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2566: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2567: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2568: ' Updating gcs_data_sub_dtls for ACTUAL');
2569: END IF;
2570:
2575: AND cal_period_id = l_cal_period_id
2576: AND balance_type_code = 'ACTUAL'
2577: AND entity_id = l_entity_list(i);
2578:
2579: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2581: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2582: ' Inserting into gcs_data_sub_dtls for ACTUAL');
2583: END IF;
2576: AND balance_type_code = 'ACTUAL'
2577: AND entity_id = l_entity_list(i);
2578:
2579: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2581: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2582: ' Inserting into gcs_data_sub_dtls for ACTUAL');
2583: END IF;
2584:
2636: l_status,
2637: l_bal_rule_id);
2638: ELSE
2639:
2640: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2642: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2643: '<< No Entities found for update/insert >>');
2644: END IF;
2637: l_bal_rule_id);
2638: ELSE
2639:
2640: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2642: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2643: '<< No Entities found for update/insert >>');
2644: END IF;
2645:
2648: IF l_avg_bal_flag = 'Y' THEN
2649: IF l_entity_list.FIRST IS NOT NULL AND
2650: l_entity_list.LAST IS NOT NULL THEN
2651:
2652: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2654: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2655: ' Updating gcs_data_sub_dtls for ADB');
2656: END IF;
2649: IF l_entity_list.FIRST IS NOT NULL AND
2650: l_entity_list.LAST IS NOT NULL THEN
2651:
2652: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2654: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2655: ' Updating gcs_data_sub_dtls for ADB');
2656: END IF;
2657:
2662: AND cal_period_id = l_cal_period_id
2663: AND balance_type_code = 'ADB'
2664: AND entity_id = l_entity_list(i);
2665:
2666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2668: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2669: ' Inserting into gcs_data_sub_dtls for ADB');
2670: END IF;
2663: AND balance_type_code = 'ADB'
2664: AND entity_id = l_entity_list(i);
2665:
2666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2668: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2669: ' Inserting into gcs_data_sub_dtls for ADB');
2670: END IF;
2671:
2723: l_status,
2724: l_bal_rule_id);
2725: ELSE
2726:
2727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2729: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2730: '<< No Entities found for update/insert >>');
2731: END IF;
2724: l_bal_rule_id);
2725: ELSE
2726:
2727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2729: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2730: '<< No Entities found for update/insert >>');
2731: END IF;
2732:
2732:
2733: END IF;
2734: END IF;
2735:
2736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2737: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2738: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2739: ' Snapshot or Incremtal with no bsv range : << Exit >>');
2740: END IF;
2733: END IF;
2734: END IF;
2735:
2736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2737: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2738: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2739: ' Snapshot or Incremtal with no bsv range : << Exit >>');
2740: END IF;
2741:
2741:
2742: ELSE
2743:
2744: --Incremental case code goes here
2745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2747: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2748: ' Incremtal with bsv range : << Enter >>');
2749: END IF;
2742: ELSE
2743:
2744: --Incremental case code goes here
2745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2747: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2748: ' Incremtal with bsv range : << Enter >>');
2749: END IF;
2750:
2748: ' Incremtal with bsv range : << Enter >>');
2749: END IF;
2750:
2751: --Check if chart of accounts mapping is required
2752: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2754: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2755: ' Check if chart of accounts mapping is required');
2756: END IF;
2749: END IF;
2750:
2751: --Check if chart of accounts mapping is required
2752: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2754: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2755: ' Check if chart of accounts mapping is required');
2756: END IF;
2757:
2790: AND fgvcd_fch_company.dimension_id = 112;
2791:
2792: EXCEPTION
2793: WHEN NO_DATA_FOUND THEN
2794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2795: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2796: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2797: '<< No Data Found while finding out Master and Local value sets >>');
2798: END IF;
2791:
2792: EXCEPTION
2793: WHEN NO_DATA_FOUND THEN
2794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2795: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2796: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2797: '<< No Data Found while finding out Master and Local value sets >>');
2798: END IF;
2799: NULL;
2800: END;
2801:
2802: IF (l_fch_org_vs_id <> l_org_vs_id) THEN
2803:
2804: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2805: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2806: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2807: ' Chart of Accounts mapping is reuqired');
2808: END IF;
2801:
2802: IF (l_fch_org_vs_id <> l_org_vs_id) THEN
2803:
2804: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2805: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2806: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2807: ' Chart of Accounts mapping is reuqired');
2808: END IF;
2809:
2817: AND l_cal_period_end_date BETWEEN fodb.effective_start_date AND
2818: fodb.effective_end_date;
2819: EXCEPTION
2820: WHEN NO_DATA_FOUND THEN
2821: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2822: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2823: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2824: '<< No Data Found while finding out hierarchy object def Id In case of COA map required >>');
2825: END IF;
2818: fodb.effective_end_date;
2819: EXCEPTION
2820: WHEN NO_DATA_FOUND THEN
2821: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2822: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2823: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2824: '<< No Data Found while finding out hierarchy object def Id In case of COA map required >>');
2825: END IF;
2826: NULL;
2861: AND f.company_display_code BETWEEN l_bsv_low AND l_bsv_high;
2862:
2863: ELSE
2864:
2865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2867: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2868: ' Chart of Accounts mapping is not reuqired');
2869: END IF;
2862:
2863: ELSE
2864:
2865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2866: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2867: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2868: ' Chart of Accounts mapping is not reuqired');
2869: END IF;
2870:
2887: END IF;
2888:
2889: IF l_entity_list.FIRST IS NOT NULL AND l_entity_list.LAST IS NOT NULL THEN
2890:
2891: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2893: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2894: ' Updating gcs_data_sub_dtls for ACTUAL');
2895: END IF;
2888:
2889: IF l_entity_list.FIRST IS NOT NULL AND l_entity_list.LAST IS NOT NULL THEN
2890:
2891: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2893: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2894: ' Updating gcs_data_sub_dtls for ACTUAL');
2895: END IF;
2896:
2901: AND cal_period_id = l_cal_period_id
2902: AND balance_type_code = 'ACTUAL'
2903: AND entity_id = l_entity_list(i);
2904:
2905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2906: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2907: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2908: ' Inserting gcs_data_sub_dtls for ACTUAL');
2909: END IF;
2902: AND balance_type_code = 'ACTUAL'
2903: AND entity_id = l_entity_list(i);
2904:
2905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2906: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2907: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2908: ' Inserting gcs_data_sub_dtls for ACTUAL');
2909: END IF;
2910:
2962: l_status,
2963: l_bal_rule_id);
2964: ELSE
2965:
2966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2968: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2969: '<< No entities found for update/insert >>');
2970: END IF;
2963: l_bal_rule_id);
2964: ELSE
2965:
2966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2968: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2969: '<< No entities found for update/insert >>');
2970: END IF;
2971:
2974: IF l_avg_bal_flag = 'Y' THEN
2975: IF l_entity_list.FIRST IS NOT NULL AND
2976: l_entity_list.LAST IS NOT NULL THEN
2977:
2978: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2980: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2981: ' Updating gcs_data_sub_dtls for ADB');
2982: END IF;
2975: IF l_entity_list.FIRST IS NOT NULL AND
2976: l_entity_list.LAST IS NOT NULL THEN
2977:
2978: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2980: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2981: ' Updating gcs_data_sub_dtls for ADB');
2982: END IF;
2983:
2988: AND cal_period_id = l_cal_period_id
2989: AND balance_type_code = 'ADB'
2990: AND entity_id = l_entity_list(i);
2991:
2992: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2993: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2994: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2995: ' Inserting into gcs_data_sub_dtls for ADB');
2996: END IF;
2989: AND balance_type_code = 'ADB'
2990: AND entity_id = l_entity_list(i);
2991:
2992: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2993: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2994: g_api || '.POPULATE_OGL_DATASUB_DTLS',
2995: ' Inserting into gcs_data_sub_dtls for ADB');
2996: END IF;
2997:
3049: l_status,
3050: l_bal_rule_id);
3051: ELSE
3052:
3053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3054: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3055: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3056: '<< No entities found for update/insert >>');
3057: END IF;
3050: l_bal_rule_id);
3051: ELSE
3052:
3053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3054: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3055: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3056: '<< No entities found for update/insert >>');
3057: END IF;
3058:
3059: END IF;
3060:
3061: END IF;
3062:
3063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3065: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3066: ' Incremtal with bsv range : << Exit >>');
3067: END IF;
3060:
3061: END IF;
3062:
3063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3065: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3066: ' Incremtal with bsv range : << Exit >>');
3067: END IF;
3068:
3081:
3082: IF l_xlated_curr_list.FIRST IS NOT NULL AND
3083: l_xlated_curr_list.LAST IS NOT NULL THEN
3084:
3085: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3087: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3088: '<< Processing Translated Currencies >>');
3089: END IF;
3082: IF l_xlated_curr_list.FIRST IS NOT NULL AND
3083: l_xlated_curr_list.LAST IS NOT NULL THEN
3084:
3085: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3087: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3088: '<< Processing Translated Currencies >>');
3089: END IF;
3090:
3144: WHERE gdsd.associated_request_id = l_base_request_id
3145: AND gdsd.cal_period_id = l_cal_period_id;
3146: ELSE
3147:
3148: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3150: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3151: '<< No Translated Currencies found >>');
3152: END IF;
3145: AND gdsd.cal_period_id = l_cal_period_id;
3146: ELSE
3147:
3148: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3150: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3151: '<< No Translated Currencies found >>');
3152: END IF;
3153:
3163:
3164: IF l_generated_load_list.FIRST IS NOT NULL AND
3165: l_generated_load_list.LAST IS NOT NULL THEN
3166:
3167: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3169: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3170: '<< Raising IA Event, Updating the status, XML WRiter program >>');
3171: END IF;
3164: IF l_generated_load_list.FIRST IS NOT NULL AND
3165: l_generated_load_list.LAST IS NOT NULL THEN
3166:
3167: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3169: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3170: '<< Raising IA Event, Updating the status, XML WRiter program >>');
3171: END IF;
3172:
3204: END LOOP;
3205:
3206: ELSE
3207:
3208: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3209: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3210: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3211: '<< No generated loads found >>');
3212: END IF;
3205:
3206: ELSE
3207:
3208: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3209: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3210: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3211: '<< No generated loads found >>');
3212: END IF;
3213:
3212: END IF;
3213:
3214: END IF;
3215:
3216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3218: g_api || '.POPULATE_OGL_DATASUB_DTLS.end',
3219: '<< Exit >>');
3220: END IF;
3213:
3214: END IF;
3215:
3216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3217: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3218: g_api || '.POPULATE_OGL_DATASUB_DTLS.end',
3219: '<< Exit >>');
3220: END IF;
3221: RETURN 'SUCCESS';
3222:
3223: EXCEPTION
3224: WHEN NO_DATA_FOUND THEN
3225:
3226: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3227: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3228: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3229: '<< No Data Found >>');
3230: END IF;
3223: EXCEPTION
3224: WHEN NO_DATA_FOUND THEN
3225:
3226: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3227: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3228: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3229: '<< No Data Found >>');
3230: END IF;
3231:
3231:
3232: RETURN 'ERROR';
3233:
3234: WHEN OTHERS THEN
3235: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3236: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3237: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3238: SQLERRM);
3239: END IF;
3232: RETURN 'ERROR';
3233:
3234: WHEN OTHERS THEN
3235: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3236: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3237: g_api || '.POPULATE_OGL_DATASUB_DTLS',
3238: SQLERRM);
3239: END IF;
3240:
3285:
3286:
3287: BEGIN
3288:
3289: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3290: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3291: g_api || '.HANDLE_UNDO_EVENT.begin',
3292: '<< Enter >>');
3293: END IF;
3286:
3287: BEGIN
3288:
3289: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3290: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3291: g_api || '.HANDLE_UNDO_EVENT.begin',
3292: '<< Enter >>');
3293: END IF;
3294:
3303: l_parameter_list));
3304: l_status_code := WF_EVENT.getValueForParameter('STATUS',
3305: l_parameter_list);
3306:
3307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3309: g_api || '.HANDLE_UNDO_EVENT',
3310: '<< Parameters on event : Start >>');
3311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3304: l_status_code := WF_EVENT.getValueForParameter('STATUS',
3305: l_parameter_list);
3306:
3307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3309: g_api || '.HANDLE_UNDO_EVENT',
3310: '<< Parameters on event : Start >>');
3311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3312: g_api || '.HANDLE_UNDO_EVENT',
3307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3308: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3309: g_api || '.HANDLE_UNDO_EVENT',
3310: '<< Parameters on event : Start >>');
3311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3312: g_api || '.HANDLE_UNDO_EVENT',
3313: 'Undo Request Id : ' || l_undo_request_id);
3314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3315: g_api || '.HANDLE_UNDO_EVENT',
3310: '<< Parameters on event : Start >>');
3311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3312: g_api || '.HANDLE_UNDO_EVENT',
3313: 'Undo Request Id : ' || l_undo_request_id);
3314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3315: g_api || '.HANDLE_UNDO_EVENT',
3316: 'Dataset Code : ' || l_dataset_code);
3317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3318: g_api || '.HANDLE_UNDO_EVENT',
3313: 'Undo Request Id : ' || l_undo_request_id);
3314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3315: g_api || '.HANDLE_UNDO_EVENT',
3316: 'Dataset Code : ' || l_dataset_code);
3317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3318: g_api || '.HANDLE_UNDO_EVENT',
3319: 'Cal Period Id : ' || l_cal_period_id);
3320: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3321: g_api || '.HANDLE_UNDO_EVENT',
3316: 'Dataset Code : ' || l_dataset_code);
3317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3318: g_api || '.HANDLE_UNDO_EVENT',
3319: 'Cal Period Id : ' || l_cal_period_id);
3320: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3321: g_api || '.HANDLE_UNDO_EVENT',
3322: 'Ledger Id : ' || l_ledger_id);
3323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3324: g_api || '.HANDLE_UNDO_EVENT',
3319: 'Cal Period Id : ' || l_cal_period_id);
3320: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3321: g_api || '.HANDLE_UNDO_EVENT',
3322: 'Ledger Id : ' || l_ledger_id);
3323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3324: g_api || '.HANDLE_UNDO_EVENT',
3325: 'Source System Code : ' || l_srcsys_code);
3326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3327: g_api || '.HANDLE_UNDO_EVENT',
3322: 'Ledger Id : ' || l_ledger_id);
3323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3324: g_api || '.HANDLE_UNDO_EVENT',
3325: 'Source System Code : ' || l_srcsys_code);
3326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3327: g_api || '.HANDLE_UNDO_EVENT',
3328: 'Status Code : ' || l_status_code);
3329: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3330: g_api || '.HANDLE_UNDO_EVENT',
3325: 'Source System Code : ' || l_srcsys_code);
3326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3327: g_api || '.HANDLE_UNDO_EVENT',
3328: 'Status Code : ' || l_status_code);
3329: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3330: g_api || '.HANDLE_UNDO_EVENT',
3331: '<< Parameters on event : End >>');
3332: END IF;
3333:
3343: WHERE source_dataset_code = l_dataset_code
3344: AND rownum < 2;
3345: EXCEPTION
3346: WHEN NO_DATA_FOUND THEN
3347: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3349: g_api || '.HANDLE_UNDO_EVENT',
3350: '<< No Data Type exists with the provided data set code >>');
3351: END IF;
3344: AND rownum < 2;
3345: EXCEPTION
3346: WHEN NO_DATA_FOUND THEN
3347: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3348: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3349: g_api || '.HANDLE_UNDO_EVENT',
3350: '<< No Data Type exists with the provided data set code >>');
3351: END IF;
3352: RETURN 'SUCCESS';
3406: END IF;
3407:
3408: EXCEPTION
3409: WHEN NO_DATA_FOUND THEN
3410: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3412: g_api || '.HANDLE_UNDO_EVENT',
3413: '<< Source_dataset_code for ACTUAL is NULL in gcs_data_type_codes_b >>');
3414: END IF;
3407:
3408: EXCEPTION
3409: WHEN NO_DATA_FOUND THEN
3410: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3412: g_api || '.HANDLE_UNDO_EVENT',
3413: '<< Source_dataset_code for ACTUAL is NULL in gcs_data_type_codes_b >>');
3414: END IF;
3415: RETURN 'SUCCESS';
3417:
3418:
3419: IF l_load_list.FIRST IS NOT NULL AND l_load_list.LAST IS NOT NULL THEN
3420:
3421: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3423: g_api || '.HANDLE_UNDO_EVENT',
3424: '<< Update gcs_data_sub_dtls status and >>');
3425: END IF;
3418:
3419: IF l_load_list.FIRST IS NOT NULL AND l_load_list.LAST IS NOT NULL THEN
3420:
3421: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3423: g_api || '.HANDLE_UNDO_EVENT',
3424: '<< Update gcs_data_sub_dtls status and >>');
3425: END IF;
3426: -- Bugfix 5664023 :Start
3456: -- Bugfix 5664023 :End
3457:
3458: ELSE
3459:
3460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3461: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3462: g_api || '.HANDLE_UNDO_EVENT',
3463: '<< No loads found >>');
3464: END IF;
3457:
3458: ELSE
3459:
3460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3461: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3462: g_api || '.HANDLE_UNDO_EVENT',
3463: '<< No loads found >>');
3464: END IF;
3465:
3464: END IF;
3465:
3466: END IF;
3467:
3468: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3470: g_api || '.HANDLE_UNDO_EVENT.end',
3471: '<< Exit >>');
3472: END IF;
3465:
3466: END IF;
3467:
3468: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3470: g_api || '.HANDLE_UNDO_EVENT.end',
3471: '<< Exit >>');
3472: END IF;
3473: RETURN 'SUCCESS';
3473: RETURN 'SUCCESS';
3474:
3475: ELSE
3476:
3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3479: g_api || '.HANDLE_UNDO_EVENT',
3480: '<< UNDO event is not successful >>');
3481: END IF;
3474:
3475: ELSE
3476:
3477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3479: g_api || '.HANDLE_UNDO_EVENT',
3480: '<< UNDO event is not successful >>');
3481: END IF;
3482: RETURN 'SUCCESS';
3485:
3486: EXCEPTION
3487: WHEN NO_DATA_FOUND THEN
3488:
3489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3491: g_api || '.HANDLE_UNDO_EVENT',
3492: '<< No Data Found >>');
3493: END IF;
3486: EXCEPTION
3487: WHEN NO_DATA_FOUND THEN
3488:
3489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3491: g_api || '.HANDLE_UNDO_EVENT',
3492: '<< No Data Found >>');
3493: END IF;
3494:
3494:
3495: RETURN 'ERROR';
3496:
3497: WHEN OTHERS THEN
3498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3499: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3500: g_api || '.HANDLE_UNDO_EVENT',
3501: SQLERRM);
3502: END IF;
3495: RETURN 'ERROR';
3496:
3497: WHEN OTHERS THEN
3498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3499: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3500: g_api || '.HANDLE_UNDO_EVENT',
3501: SQLERRM);
3502: END IF;
3503: