[Home] [Help]
935: -- Declare Process Variable
936: -----------------------------------------------------------------
937: l_api_version CONSTANT NUMBER := 1;
938: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCN_SOURCES';
939: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
940: -----------------------------------------------------------------
941: -- Declare records: Extension Headers
942: -----------------------------------------------------------------
943: l_teh_rec_in okl_teh_pvt.teh_rec_type;
1005: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1006: 'begin debug OKLRSLAB.pls call ' || l_api_name);
1007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1008: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1009: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1011: 'Calling OKL_API.START_ACTIVITY');
1012: l_return_status := OKL_API.START_ACTIVITY(
1013: p_api_name => l_api_name
1007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1008: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1009: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1011: 'Calling OKL_API.START_ACTIVITY');
1012: l_return_status := OKL_API.START_ACTIVITY(
1013: p_api_name => l_api_name
1014: ,p_pkg_name => g_pkg_name
1015: ,p_init_msg_list => p_init_msg_list
1008: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1009: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1011: 'Calling OKL_API.START_ACTIVITY');
1012: l_return_status := OKL_API.START_ACTIVITY(
1013: p_api_name => l_api_name
1014: ,p_pkg_name => g_pkg_name
1015: ,p_init_msg_list => p_init_msg_list
1016: ,l_api_version => l_api_version
1016: ,l_api_version => l_api_version
1017: ,p_api_version => p_api_version
1018: ,p_api_type => '_PVT'
1019: ,x_return_status => l_return_status);
1020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1017: ,p_api_version => p_api_version
1018: ,p_api_type => '_PVT'
1019: ,x_return_status => l_return_status);
1020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1018: ,p_api_type => '_PVT'
1019: ,x_return_status => l_return_status);
1020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1026: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1019: ,x_return_status => l_return_status);
1020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1026: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1027: -- Store the source id and source table in the rec to be passed to the Insert API
1022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1026: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1027: -- Store the source id and source table in the rec to be passed to the Insert API
1028: l_teh_rec_in.source_id := px_trans_hdr_rec.source_id;
1029: l_teh_rec_in.source_table := px_trans_hdr_rec.source_table;
1030: -- Validations ..
1029: l_teh_rec_in.source_table := px_trans_hdr_rec.source_table;
1030: -- Validations ..
1031: IF px_trans_hdr_rec.source_table NOT LIKE G_TRX_CONTRACTS
1032: THEN
1033: OKL_API.set_message(
1034: p_app_name => G_APP_NAME
1035: ,p_msg_name => G_INVALID_VALUE
1036: ,p_token1 => G_COL_NAME_TOKEN
1037: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1034: p_app_name => G_APP_NAME
1035: ,p_msg_name => G_INVALID_VALUE
1036: ,p_token1 => G_COL_NAME_TOKEN
1037: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1038: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: END IF;
1041: -- Assign the AGS Record to the Local Record Structure
1042: l_acc_sources_rec := p_acc_sources_rec;
1035: ,p_msg_name => G_INVALID_VALUE
1036: ,p_token1 => G_COL_NAME_TOKEN
1037: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1038: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: END IF;
1041: -- Assign the AGS Record to the Local Record Structure
1042: l_acc_sources_rec := p_acc_sources_rec;
1043: -- Validation on the AGS Record
1042: l_acc_sources_rec := p_acc_sources_rec;
1043: -- Validation on the AGS Record
1044: IF l_acc_sources_rec.source_id IS NULL
1045: THEN
1046: OKL_API.set_message(
1047: p_app_name => G_APP_NAME
1048: ,p_msg_name => G_INVALID_VALUE
1049: ,p_token1 => G_COL_NAME_TOKEN
1050: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1047: p_app_name => G_APP_NAME
1048: ,p_msg_name => G_INVALID_VALUE
1049: ,p_token1 => G_COL_NAME_TOKEN
1050: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1051: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: END IF;
1054:
1055: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1048: ,p_msg_name => G_INVALID_VALUE
1049: ,p_token1 => G_COL_NAME_TOKEN
1050: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1051: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: END IF;
1054:
1055: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1056: 'Executing Cursor c_tcn_basic_csr: Source ID: ' || px_trans_hdr_rec.source_id);
1059: l_tcn_basic_csr_rec := t_rec;
1060: IF l_tcn_basic_csr_rec.accounting_event_class_code IS NULL
1061: THEN
1062: -- accounting_event_class_code is missing
1063: OKL_API.set_message(
1064: p_app_name => G_APP_NAME
1065: ,p_msg_name => G_INVALID_VALUE
1066: ,p_token1 => G_COL_NAME_TOKEN
1067: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1064: p_app_name => G_APP_NAME
1065: ,p_msg_name => G_INVALID_VALUE
1066: ,p_token1 => G_COL_NAME_TOKEN
1067: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1068: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: END IF;
1071: l_khr_id := l_tcn_basic_csr_rec.khr_id;
1072: l_qte_id := l_tcn_basic_csr_rec.qte_id;
1065: ,p_msg_name => G_INVALID_VALUE
1066: ,p_token1 => G_COL_NAME_TOKEN
1067: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1068: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: END IF;
1071: l_khr_id := l_tcn_basic_csr_rec.khr_id;
1072: l_qte_id := l_tcn_basic_csr_rec.qte_id;
1073: l_pdt_id := l_tcn_basic_csr_rec.pdt_id;
1406: END IF;
1407: -- Returning back the record structure
1408: px_trans_hdr_rec.header_extension_id := l_teh_rec_out.header_extension_id;
1409: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1410: 'Calling okl_api.end_activity');
1411: okl_api.end_activity(
1412: x_msg_count => x_msg_count
1413: ,x_msg_data => x_msg_data);
1414: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1407: -- Returning back the record structure
1408: px_trans_hdr_rec.header_extension_id := l_teh_rec_out.header_extension_id;
1409: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1410: 'Calling okl_api.end_activity');
1411: okl_api.end_activity(
1412: x_msg_count => x_msg_count
1413: ,x_msg_data => x_msg_data);
1414: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1415: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1412: x_msg_count => x_msg_count
1413: ,x_msg_data => x_msg_data);
1414: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1415: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1416: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1417: EXCEPTION
1418: ------------------------------------------------------------
1419: -- Exception handling
1420: ------------------------------------------------------------
1417: EXCEPTION
1418: ------------------------------------------------------------
1419: -- Exception handling
1420: ------------------------------------------------------------
1421: WHEN OKL_API.G_EXCEPTION_ERROR
1422: THEN
1423: IF c_tcn_basic_csr%ISOPEN THEN
1424: CLOSE c_tcn_basic_csr;
1425: END IF;
1458: END IF;
1459: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1460: CLOSE c_rev_rec_int_calc_methods_csr;
1461: END IF;
1462: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1463: p_api_name => l_api_name
1464: ,p_pkg_name => G_PKG_NAME
1465: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1466: ,x_msg_count => x_msg_count
1461: END IF;
1462: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1463: p_api_name => l_api_name
1464: ,p_pkg_name => G_PKG_NAME
1465: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1466: ,x_msg_count => x_msg_count
1467: ,x_msg_data => x_msg_data
1468: ,p_api_type => '_PVT');
1469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
1465: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1466: ,x_msg_count => x_msg_count
1467: ,x_msg_data => x_msg_data
1468: ,p_api_type => '_PVT');
1469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
1470: THEN
1471: IF c_tcn_basic_csr%ISOPEN THEN
1472: CLOSE c_tcn_basic_csr;
1473: END IF;
1506: END IF;
1507: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1508: CLOSE c_rev_rec_int_calc_methods_csr;
1509: END IF;
1510: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1511: p_api_name => l_api_name
1512: ,p_pkg_name => G_PKG_NAME
1513: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
1514: ,x_msg_count => x_msg_count
1509: END IF;
1510: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1511: p_api_name => l_api_name
1512: ,p_pkg_name => G_PKG_NAME
1513: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
1514: ,x_msg_count => x_msg_count
1515: ,x_msg_data => x_msg_data
1516: ,p_api_type => '_PVT');
1517: WHEN OTHERS
1554: END IF;
1555: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1556: CLOSE c_rev_rec_int_calc_methods_csr;
1557: END IF;
1558: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1559: p_api_name => l_api_name
1560: ,p_pkg_name => G_PKG_NAME
1561: ,p_exc_name => 'OTHERS'
1562: ,x_msg_count => x_msg_count
1593: -- Declare Process Variable
1594: -----------------------------------------------------------------
1595: l_api_version CONSTANT NUMBER := 1;
1596: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCL_SOURCES';
1597: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1598: ------------------------------------------------------------
1599: -- Declare records: Extension Headers, Extension Lines
1600: ------------------------------------------------------------
1601: l_tel_rec_in tel_rec_type;
1652: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1653: 'begin debug OKLRSLAB.pls call ' || l_api_name);
1654: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1655: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1656: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1657: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1658: 'Calling OKL_API.START_ACTIVITY');
1659: l_return_status := OKL_API.START_ACTIVITY(
1660: p_api_name => l_api_name
1654: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1655: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1656: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1657: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1658: 'Calling OKL_API.START_ACTIVITY');
1659: l_return_status := OKL_API.START_ACTIVITY(
1660: p_api_name => l_api_name
1661: ,p_pkg_name => g_pkg_name
1662: ,p_init_msg_list => p_init_msg_list
1655: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1656: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1657: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1658: 'Calling OKL_API.START_ACTIVITY');
1659: l_return_status := OKL_API.START_ACTIVITY(
1660: p_api_name => l_api_name
1661: ,p_pkg_name => g_pkg_name
1662: ,p_init_msg_list => p_init_msg_list
1663: ,l_api_version => l_api_version
1665: ,p_api_type => '_PVT'
1666: ,x_return_status => l_return_status);
1667: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1668: 'After Start Activity l_return_status ' || l_return_status );
1669: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1670: THEN
1671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1673: THEN
1667: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1668: 'After Start Activity l_return_status ' || l_return_status );
1669: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1670: THEN
1671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1673: THEN
1674: RAISE OKL_API.G_EXCEPTION_ERROR;
1675: END IF;
1668: 'After Start Activity l_return_status ' || l_return_status );
1669: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1670: THEN
1671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1673: THEN
1674: RAISE OKL_API.G_EXCEPTION_ERROR;
1675: END IF;
1676: -- Copy the input parameters to the local variables and start using them.
1670: THEN
1671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1673: THEN
1674: RAISE OKL_API.G_EXCEPTION_ERROR;
1675: END IF;
1676: -- Copy the input parameters to the local variables and start using them.
1677: l_tel_rec_in.source_id := px_trans_line_rec.source_id;
1678: l_tel_rec_in.source_table := px_trans_line_rec.source_table;
1683: ' line_table='|| l_tel_rec_in.source_table);
1684:
1685: IF l_tel_rec_in.source_table <> G_TXL_CONTRACTS
1686: THEN
1687: OKL_API.set_message(
1688: p_app_name => G_APP_NAME
1689: ,p_msg_name => G_INVALID_VALUE
1690: ,p_token1 => G_COL_NAME_TOKEN
1691: ,p_token1_value => 'LINE.SOURCE_TABLE');
1688: p_app_name => G_APP_NAME
1689: ,p_msg_name => G_INVALID_VALUE
1690: ,p_token1 => G_COL_NAME_TOKEN
1691: ,p_token1_value => 'LINE.SOURCE_TABLE');
1692: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: END IF;
1695:
1696: -- Assign the AGS Record to the Local Record Structure
1689: ,p_msg_name => G_INVALID_VALUE
1690: ,p_token1 => G_COL_NAME_TOKEN
1691: ,p_token1_value => 'LINE.SOURCE_TABLE');
1692: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: END IF;
1695:
1696: -- Assign the AGS Record to the Local Record Structure
1697: l_acc_sources_rec := p_acc_sources_rec;
1697: l_acc_sources_rec := p_acc_sources_rec;
1698: -- Validation on the AGS Record
1699: IF l_acc_sources_rec.source_id IS NULL
1700: THEN
1701: OKL_API.set_message(
1702: p_app_name => G_APP_NAME
1703: ,p_msg_name => G_INVALID_VALUE
1704: ,p_token1 => G_COL_NAME_TOKEN
1705: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1702: p_app_name => G_APP_NAME
1703: ,p_msg_name => G_INVALID_VALUE
1704: ,p_token1 => G_COL_NAME_TOKEN
1705: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1706: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: END IF;
1709:
1710: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1703: ,p_msg_name => G_INVALID_VALUE
1704: ,p_token1 => G_COL_NAME_TOKEN
1705: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1706: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: END IF;
1709:
1710: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1711: 'Executing the Cursor c_tcl_basic_csr. p_source_id = ' || TO_CHAR(l_tel_rec_in.source_id) );
1726:
1727: IF l_tcl_basic_csr_rec.accounting_event_class_code IS NULL
1728: THEN
1729: -- accounting_event_class_code is missing
1730: OKL_API.set_message(
1731: p_app_name => G_APP_NAME
1732: ,p_msg_name => G_INVALID_VALUE
1733: ,p_token1 => G_COL_NAME_TOKEN
1734: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1731: p_app_name => G_APP_NAME
1732: ,p_msg_name => G_INVALID_VALUE
1733: ,p_token1 => G_COL_NAME_TOKEN
1734: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1735: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1736: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- Store the Ledger Language so that its passed to the TAPI
1732: ,p_msg_name => G_INVALID_VALUE
1733: ,p_token1 => G_COL_NAME_TOKEN
1734: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1735: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1736: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- Store the Ledger Language so that its passed to the TAPI
1740: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1968: END IF;
1969: -- Return the values
1970: px_trans_line_rec.line_extension_id := l_tel_rec_out.line_extension_id;
1971: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1972: 'Calling okl_api.end_activity');
1973: okl_api.end_activity(
1974: x_msg_count => x_msg_count
1975: ,x_msg_data => x_msg_data);
1976: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1969: -- Return the values
1970: px_trans_line_rec.line_extension_id := l_tel_rec_out.line_extension_id;
1971: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1972: 'Calling okl_api.end_activity');
1973: okl_api.end_activity(
1974: x_msg_count => x_msg_count
1975: ,x_msg_data => x_msg_data);
1976: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1977: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1974: x_msg_count => x_msg_count
1975: ,x_msg_data => x_msg_data);
1976: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1977: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1978: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1979: EXCEPTION
1980: ------------------------------------------------------------
1981: -- Exception handling
1982: ------------------------------------------------------------
1979: EXCEPTION
1980: ------------------------------------------------------------
1981: -- Exception handling
1982: ------------------------------------------------------------
1983: WHEN OKL_API.G_EXCEPTION_ERROR
1984: THEN
1985: IF c_tcl_basic_csr%ISOPEN THEN
1986: CLOSE c_tcl_basic_csr;
1987: END IF;
2014: END IF;
2015: IF c_inventory_item_name_csr%ISOPEN THEN
2016: CLOSE c_inventory_item_name_csr;
2017: END IF;
2018: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2019: p_api_name => l_api_name
2020: ,p_pkg_name => G_PKG_NAME
2021: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2022: ,x_msg_count => x_msg_count
2017: END IF;
2018: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2019: p_api_name => l_api_name
2020: ,p_pkg_name => G_PKG_NAME
2021: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2022: ,x_msg_count => x_msg_count
2023: ,x_msg_data => x_msg_data
2024: ,p_api_type => '_PVT');
2025:
2022: ,x_msg_count => x_msg_count
2023: ,x_msg_data => x_msg_data
2024: ,p_api_type => '_PVT');
2025:
2026: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2027: THEN
2028: IF c_tcl_basic_csr%ISOPEN THEN
2029: CLOSE c_tcl_basic_csr;
2030: END IF;
2057: END IF;
2058: IF c_inventory_item_name_csr%ISOPEN THEN
2059: CLOSE c_inventory_item_name_csr;
2060: END IF;
2061: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2062: p_api_name => l_api_name
2063: ,p_pkg_name => G_PKG_NAME
2064: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2065: ,x_msg_count => x_msg_count
2060: END IF;
2061: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2062: p_api_name => l_api_name
2063: ,p_pkg_name => G_PKG_NAME
2064: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2065: ,x_msg_count => x_msg_count
2066: ,x_msg_data => x_msg_data
2067: ,p_api_type => '_PVT');
2068: WHEN OTHERS
2099: END IF;
2100: IF c_inventory_item_name_csr%ISOPEN THEN
2101: CLOSE c_inventory_item_name_csr;
2102: END IF;
2103: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2104: p_api_name => l_api_name
2105: ,p_pkg_name => G_PKG_NAME
2106: ,p_exc_name => 'OTHERS'
2107: ,x_msg_count => x_msg_count
2141: -- Declare Process Variable
2142: -----------------------------------------------------------------
2143: l_api_version CONSTANT NUMBER := 1;
2144: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCL_SOURCES';
2145: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2146: ------------------------------------------------------------
2147: -- Declare records: Extension Headers, Extension Lines
2148: ------------------------------------------------------------
2149: l_tel_tbl_tbl tel_tbl_tbl_type;
2225: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2226: 'begin debug APOKLRSLAB.pls call ' || l_api_name);
2227: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2228: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2229: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2231: 'Calling OKL_API.START_ACTIVITY');
2232: l_return_status := OKL_API.START_ACTIVITY(
2233: p_api_name => l_api_name
2227: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2228: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2229: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2231: 'Calling OKL_API.START_ACTIVITY');
2232: l_return_status := OKL_API.START_ACTIVITY(
2233: p_api_name => l_api_name
2234: ,p_pkg_name => g_pkg_name
2235: ,p_init_msg_list => p_init_msg_list
2228: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2229: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2231: 'Calling OKL_API.START_ACTIVITY');
2232: l_return_status := OKL_API.START_ACTIVITY(
2233: p_api_name => l_api_name
2234: ,p_pkg_name => g_pkg_name
2235: ,p_init_msg_list => p_init_msg_list
2236: ,l_api_version => l_api_version
2238: ,p_api_type => '_PVT'
2239: ,x_return_status => l_return_status);
2240: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2241: 'After Start Activity l_return_status ' || l_return_status );
2242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2243: THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2246: THEN
2240: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2241: 'After Start Activity l_return_status ' || l_return_status );
2242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2243: THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2246: THEN
2247: RAISE OKL_API.G_EXCEPTION_ERROR;
2248: END IF;
2241: 'After Start Activity l_return_status ' || l_return_status );
2242: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2243: THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2246: THEN
2247: RAISE OKL_API.G_EXCEPTION_ERROR;
2248: END IF;
2249:
2243: THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2246: THEN
2247: RAISE OKL_API.G_EXCEPTION_ERROR;
2248: END IF;
2249:
2250: IF p_trans_hdr_rec.source_table <> G_TRX_CONTRACTS
2251: THEN
2248: END IF;
2249:
2250: IF p_trans_hdr_rec.source_table <> G_TRX_CONTRACTS
2251: THEN
2252: OKL_API.set_message(
2253: p_app_name => G_APP_NAME
2254: ,p_msg_name => G_INVALID_VALUE
2255: ,p_token1 => G_COL_NAME_TOKEN
2256: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2253: p_app_name => G_APP_NAME
2254: ,p_msg_name => G_INVALID_VALUE
2255: ,p_token1 => G_COL_NAME_TOKEN
2256: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2257: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2259: END IF;
2260:
2261: IF p_trans_hdr_rec.header_extension_id IS NULL
2254: ,p_msg_name => G_INVALID_VALUE
2255: ,p_token1 => G_COL_NAME_TOKEN
2256: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2257: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2259: END IF;
2260:
2261: IF p_trans_hdr_rec.header_extension_id IS NULL
2262: THEN
2259: END IF;
2260:
2261: IF p_trans_hdr_rec.header_extension_id IS NULL
2262: THEN
2263: OKL_API.set_message(
2264: p_app_name => G_APP_NAME
2265: ,p_msg_name => G_INVALID_VALUE
2266: ,p_token1 => G_COL_NAME_TOKEN
2267: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2264: p_app_name => G_APP_NAME
2265: ,p_msg_name => G_INVALID_VALUE
2266: ,p_token1 => G_COL_NAME_TOKEN
2267: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2268: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: END IF;
2271:
2272: -- Assign the AGS Record to the Local Record Structure
2265: ,p_msg_name => G_INVALID_VALUE
2266: ,p_token1 => G_COL_NAME_TOKEN
2267: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2268: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: END IF;
2271:
2272: -- Assign the AGS Record to the Local Record Structure
2273: l_acc_sources_tbl := p_acc_sources_tbl;
2274: l_trans_line_tbl := p_trans_line_tbl;
2275: -- Validation: Check whether the AGS Table is passed properly or not ..
2276: IF l_acc_sources_tbl.COUNT <= 0
2277: THEN
2278: OKL_API.set_message(
2279: p_app_name => G_APP_NAME
2280: ,p_msg_name => G_INVALID_VALUE
2281: ,p_token1 => G_COL_NAME_TOKEN
2282: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2279: p_app_name => G_APP_NAME
2280: ,p_msg_name => G_INVALID_VALUE
2281: ,p_token1 => G_COL_NAME_TOKEN
2282: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2283: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: END IF;
2286: -- Assign the l_acc_sources_rec as the first one of the l_acc_sources_tbl
2287: -- so that we can reuse the Inventory Organization ID
2280: ,p_msg_name => G_INVALID_VALUE
2281: ,p_token1 => G_COL_NAME_TOKEN
2282: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2283: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: END IF;
2286: -- Assign the l_acc_sources_rec as the first one of the l_acc_sources_tbl
2287: -- so that we can reuse the Inventory Organization ID
2288: l_acc_sources_rec := l_acc_sources_tbl( l_acc_sources_tbl.FIRST );
2300:
2301: IF l_tcn_basic_csr_rec.accounting_event_class_code IS NULL
2302: THEN
2303: -- accounting_event_class_code is missing
2304: OKL_API.set_message(
2305: p_app_name => G_APP_NAME
2306: ,p_msg_name => G_INVALID_VALUE
2307: ,p_token1 => G_COL_NAME_TOKEN
2308: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2305: p_app_name => G_APP_NAME
2306: ,p_msg_name => G_INVALID_VALUE
2307: ,p_token1 => G_COL_NAME_TOKEN
2308: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2309: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: END IF;
2312:
2313: -- Fetch the Ledger Language
2306: ,p_msg_name => G_INVALID_VALUE
2307: ,p_token1 => G_COL_NAME_TOKEN
2308: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2309: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: END IF;
2312:
2313: -- Fetch the Ledger Language
2314: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2452: -- If the AGS Index is not found then return error
2453: IF l_acc_sources_found = FALSE
2454: THEN
2455: -- accounting_event_class_code is missing
2456: OKL_API.set_message(
2457: p_app_name => G_APP_NAME
2458: ,p_msg_name => G_INVALID_VALUE
2459: ,p_token1 => G_COL_NAME_TOKEN
2460: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2457: p_app_name => G_APP_NAME
2458: ,p_msg_name => G_INVALID_VALUE
2459: ,p_token1 => G_COL_NAME_TOKEN
2460: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2461: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: END IF; -- IF l_acc_sources_found = FALSE
2464: -- Override the Source ID, Table and other related sources
2465: l_tel_tbl_in(tel_index).source_id := l_curr_tcl_rec.tcl_id;
2458: ,p_msg_name => G_INVALID_VALUE
2459: ,p_token1 => G_COL_NAME_TOKEN
2460: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2461: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: END IF; -- IF l_acc_sources_found = FALSE
2464: -- Override the Source ID, Table and other related sources
2465: l_tel_tbl_in(tel_index).source_id := l_curr_tcl_rec.tcl_id;
2466: l_tel_tbl_in(tel_index).source_table := G_TXL_CONTRACTS;
2685:
2686: -- Return the values
2687: x_trans_line_tbl := p_trans_line_tbl; --Added PRASJAIN Bug#6134235
2688: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2689: 'Calling okl_api.end_activity');
2690: okl_api.end_activity(
2691: x_msg_count => x_msg_count
2692: ,x_msg_data => x_msg_data);
2693: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2686: -- Return the values
2687: x_trans_line_tbl := p_trans_line_tbl; --Added PRASJAIN Bug#6134235
2688: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2689: 'Calling okl_api.end_activity');
2690: okl_api.end_activity(
2691: x_msg_count => x_msg_count
2692: ,x_msg_data => x_msg_data);
2693: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2694: 'END okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2691: x_msg_count => x_msg_count
2692: ,x_msg_data => x_msg_data);
2693: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2694: 'END okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2696: EXCEPTION
2697: ------------------------------------------------------------
2698: -- Exception handling
2699: ------------------------------------------------------------
2696: EXCEPTION
2697: ------------------------------------------------------------
2698: -- Exception handling
2699: ------------------------------------------------------------
2700: WHEN OKL_API.G_EXCEPTION_ERROR
2701: THEN
2702: IF c_tcl_tbl_csr%ISOPEN THEN
2703: CLOSE c_tcl_tbl_csr;
2704: END IF;
2731: END IF;
2732: IF c_inventory_item_name_csr%ISOPEN THEN
2733: CLOSE c_inventory_item_name_csr;
2734: END IF;
2735: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2736: p_api_name => l_api_name
2737: ,p_pkg_name => G_PKG_NAME
2738: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2739: ,x_msg_count => x_msg_count
2734: END IF;
2735: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2736: p_api_name => l_api_name
2737: ,p_pkg_name => G_PKG_NAME
2738: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2739: ,x_msg_count => x_msg_count
2740: ,x_msg_data => x_msg_data
2741: ,p_api_type => '_PVT');
2742:
2739: ,x_msg_count => x_msg_count
2740: ,x_msg_data => x_msg_data
2741: ,p_api_type => '_PVT');
2742:
2743: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2744: THEN
2745: IF c_tcl_tbl_csr%ISOPEN THEN
2746: CLOSE c_tcl_tbl_csr;
2747: END IF;
2774: END IF;
2775: IF c_inventory_item_name_csr%ISOPEN THEN
2776: CLOSE c_inventory_item_name_csr;
2777: END IF;
2778: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2779: p_api_name => l_api_name
2780: ,p_pkg_name => G_PKG_NAME
2781: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2782: ,x_msg_count => x_msg_count
2777: END IF;
2778: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2779: p_api_name => l_api_name
2780: ,p_pkg_name => G_PKG_NAME
2781: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2782: ,x_msg_count => x_msg_count
2783: ,x_msg_data => x_msg_data
2784: ,p_api_type => '_PVT');
2785: WHEN OTHERS
2816: END IF;
2817: IF c_inventory_item_name_csr%ISOPEN THEN
2818: CLOSE c_inventory_item_name_csr;
2819: END IF;
2820: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2821: p_api_name => l_api_name
2822: ,p_pkg_name => G_PKG_NAME
2823: ,p_exc_name => 'OTHERS'
2824: ,x_msg_count => x_msg_count
2863: -- Declare Process Variable
2864: -----------------------------------------------------------------
2865: l_api_version CONSTANT NUMBER := 1;
2866: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-OKL';
2867: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2868: -- Local Variables for enabling the Debug Statements
2869: l_trans_hdr_rec tehv_rec_type;
2870: l_acc_sources_tbl asev_tbl_type;
2871: l_trans_line_tbl telv_tbl_type; -- Added by PRASJAIN Bug#6134235
2884: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2885: 'begin debug APOKLRSLAB.pls call ' || l_api_name);
2886: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2887: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2888: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2889: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2890: 'Calling OKL_API.START_ACTIVITY');
2891: l_return_status := OKL_API.START_ACTIVITY(
2892: p_api_name => l_api_name
2886: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2887: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2888: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2889: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2890: 'Calling OKL_API.START_ACTIVITY');
2891: l_return_status := OKL_API.START_ACTIVITY(
2892: p_api_name => l_api_name
2893: ,p_pkg_name => g_pkg_name
2894: ,p_init_msg_list => p_init_msg_list
2887: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2888: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2889: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2890: 'Calling OKL_API.START_ACTIVITY');
2891: l_return_status := OKL_API.START_ACTIVITY(
2892: p_api_name => l_api_name
2893: ,p_pkg_name => g_pkg_name
2894: ,p_init_msg_list => p_init_msg_list
2895: ,l_api_version => l_api_version
2895: ,l_api_version => l_api_version
2896: ,p_api_version => p_api_version
2897: ,p_api_type => '_PVT'
2898: ,x_return_status => l_return_status);
2899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2902: RAISE OKL_API.G_EXCEPTION_ERROR;
2903: END IF;
2896: ,p_api_version => p_api_version
2897: ,p_api_type => '_PVT'
2898: ,x_return_status => l_return_status);
2899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2902: RAISE OKL_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: -- Copy the input parameters to the local variables
2897: ,p_api_type => '_PVT'
2898: ,x_return_status => l_return_status);
2899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2902: RAISE OKL_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: -- Copy the input parameters to the local variables
2905: l_trans_hdr_rec := p_trans_hdr_rec;
2898: ,x_return_status => l_return_status);
2899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2902: RAISE OKL_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: -- Copy the input parameters to the local variables
2905: l_trans_hdr_rec := p_trans_hdr_rec;
2906: l_acc_sources_tbl := p_acc_sources_tbl;
2907: l_trans_line_tbl := p_trans_line_tbl; -- Added by PRASJAIN Bug#6134235
2908: IF l_acc_sources_tbl.COUNT <= 0
2909: THEN
2910: -- Raise an error message saying that the Sources should be passed !
2911: OKL_API.set_message(
2912: p_app_name => G_APP_NAME
2913: ,p_msg_name => G_INVALID_VALUE
2914: ,p_token1 => G_COL_NAME_TOKEN
2915: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2912: p_app_name => G_APP_NAME
2913: ,p_msg_name => G_INVALID_VALUE
2914: ,p_token1 => G_COL_NAME_TOKEN
2915: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2916: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2918: END IF;
2919:
2920: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2913: ,p_msg_name => G_INVALID_VALUE
2914: ,p_token1 => G_COL_NAME_TOKEN
2915: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2916: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2918: END IF;
2919:
2920: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2921: 'Input Parameters p_source_hdr_id=' || to_char(l_trans_hdr_rec.source_id) || ' Header Table=' || l_trans_hdr_rec.source_table );
2935: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2936: 'After populate_tcn_sources: l_return_status ' || l_return_status );
2937: ELSE
2938: -- Return with an error message
2939: OKL_API.set_message(
2940: p_app_name => G_APP_NAME
2941: ,p_msg_name => G_INVALID_VALUE
2942: ,p_token1 => G_COL_NAME_TOKEN
2943: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2940: p_app_name => G_APP_NAME
2941: ,p_msg_name => G_INVALID_VALUE
2942: ,p_token1 => G_COL_NAME_TOKEN
2943: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2944: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: END IF;
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2941: ,p_msg_name => G_INVALID_VALUE
2942: ,p_token1 => G_COL_NAME_TOKEN
2943: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2944: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: END IF;
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2944: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: END IF;
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_ERROR;
2952: END IF;
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: END IF;
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_ERROR;
2952: END IF;
2953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2946: END IF;
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_ERROR;
2952: END IF;
2953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2954: 'After populate_tcn_sources: HEADER_EXTENSION_ID= ' || l_trans_hdr_rec.header_extension_id );
2947: -- Check the return status and if errored, return the error back
2948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2951: RAISE OKL_API.G_EXCEPTION_ERROR;
2952: END IF;
2953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2954: 'After populate_tcn_sources: HEADER_EXTENSION_ID= ' || l_trans_hdr_rec.header_extension_id );
2955: -- Call the Populate TCL Sources API to populate the Transaction Line Level Sources
2966: ,x_msg_count => x_msg_count
2967: ,x_msg_data => x_msg_data );
2968: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2969: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2967: ,x_msg_data => x_msg_data );
2968: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2969: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2968: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2969: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2976: 'Calling okl_api.end_activity');
2969: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2976: 'Calling okl_api.end_activity');
2977: okl_api.end_activity(
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2976: 'Calling okl_api.end_activity');
2977: okl_api.end_activity(
2978: x_msg_count => x_msg_count
2979: ,x_msg_data => x_msg_data);
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2976: 'Calling okl_api.end_activity');
2977: okl_api.end_activity(
2978: x_msg_count => x_msg_count
2979: ,x_msg_data => x_msg_data);
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2981: 'END okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2978: x_msg_count => x_msg_count
2979: ,x_msg_data => x_msg_data);
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2981: 'END okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2982: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2983: EXCEPTION
2984: ------------------------------------------------------------
2985: -- Exception handling
2986: ------------------------------------------------------------
2983: EXCEPTION
2984: ------------------------------------------------------------
2985: -- Exception handling
2986: ------------------------------------------------------------
2987: WHEN OKL_API.G_EXCEPTION_ERROR
2988: THEN
2989: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2990: p_api_name => l_api_name
2991: ,p_pkg_name => G_PKG_NAME
2985: -- Exception handling
2986: ------------------------------------------------------------
2987: WHEN OKL_API.G_EXCEPTION_ERROR
2988: THEN
2989: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2990: p_api_name => l_api_name
2991: ,p_pkg_name => G_PKG_NAME
2992: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2993: ,x_msg_count => x_msg_count
2988: THEN
2989: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2990: p_api_name => l_api_name
2991: ,p_pkg_name => G_PKG_NAME
2992: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2993: ,x_msg_count => x_msg_count
2994: ,x_msg_data => x_msg_data
2995: ,p_api_type => '_PVT');
2996: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2992: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2993: ,x_msg_count => x_msg_count
2994: ,x_msg_data => x_msg_data
2995: ,p_api_type => '_PVT');
2996: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2997: THEN
2998: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2999: p_api_name => l_api_name
3000: ,p_pkg_name => G_PKG_NAME
2994: ,x_msg_data => x_msg_data
2995: ,p_api_type => '_PVT');
2996: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2997: THEN
2998: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2999: p_api_name => l_api_name
3000: ,p_pkg_name => G_PKG_NAME
3001: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3002: ,x_msg_count => x_msg_count
2997: THEN
2998: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2999: p_api_name => l_api_name
3000: ,p_pkg_name => G_PKG_NAME
3001: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3002: ,x_msg_count => x_msg_count
3003: ,x_msg_data => x_msg_data
3004: ,p_api_type => '_PVT');
3005: WHEN OTHERS
3003: ,x_msg_data => x_msg_data
3004: ,p_api_type => '_PVT');
3005: WHEN OTHERS
3006: THEN
3007: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3008: p_api_name => l_api_name
3009: ,p_pkg_name => G_PKG_NAME
3010: ,p_exc_name => 'OTHERS'
3011: ,x_msg_count => x_msg_count
3027: -- Declare Process Variable
3028: -----------------------------------------------------------------
3029: l_api_version CONSTANT NUMBER := 1;
3030: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
3031: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3032: l_telv_tbl okl_tel_pvt.telv_tbl_type;
3033: tel_index BINARY_INTEGER;
3034: l_trans_hdr_rec tehv_rec_type;
3035: -- Cursor Definitions
3061: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3062: 'begin debug OKLRSLAB.pls call ' || l_api_name);
3063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3064: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3065: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3066: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3067: 'Calling OKL_API.START_ACTIVITY');
3068: l_return_status := OKL_API.START_ACTIVITY(
3069: p_api_name => l_api_name
3063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3064: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3065: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3066: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3067: 'Calling OKL_API.START_ACTIVITY');
3068: l_return_status := OKL_API.START_ACTIVITY(
3069: p_api_name => l_api_name
3070: ,p_pkg_name => g_pkg_name
3071: ,p_init_msg_list => p_init_msg_list
3064: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3065: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3066: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3067: 'Calling OKL_API.START_ACTIVITY');
3068: l_return_status := OKL_API.START_ACTIVITY(
3069: p_api_name => l_api_name
3070: ,p_pkg_name => g_pkg_name
3071: ,p_init_msg_list => p_init_msg_list
3072: ,l_api_version => l_api_version
3072: ,l_api_version => l_api_version
3073: ,p_api_version => p_api_version
3074: ,p_api_type => '_PVT'
3075: ,x_return_status => l_return_status);
3076: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3073: ,p_api_version => p_api_version
3074: ,p_api_type => '_PVT'
3075: ,x_return_status => l_return_status);
3076: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3081: -- Actual Logic Starts Here ..
3074: ,p_api_type => '_PVT'
3075: ,x_return_status => l_return_status);
3076: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3081: -- Actual Logic Starts Here ..
3082: l_trans_hdr_rec := p_trans_hdr_rec;
3075: ,x_return_status => l_return_status);
3076: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3081: -- Actual Logic Starts Here ..
3082: l_trans_hdr_rec := p_trans_hdr_rec;
3083: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3081: -- Actual Logic Starts Here ..
3082: l_trans_hdr_rec := p_trans_hdr_rec;
3083: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3084: 'Source ID=' || to_char(l_trans_hdr_rec.source_id) || 'Source Header Table=' || l_trans_hdr_rec.source_table );
3085: IF ( l_trans_hdr_rec.source_id = OKL_API.G_MISS_NUM or l_trans_hdr_rec.source_id IS NULL )
3086: THEN
3087: OKL_API.set_message(
3088: p_app_name => G_APP_NAME
3089: ,p_msg_name => G_INVALID_VALUE
3083: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3084: 'Source ID=' || to_char(l_trans_hdr_rec.source_id) || 'Source Header Table=' || l_trans_hdr_rec.source_table );
3085: IF ( l_trans_hdr_rec.source_id = OKL_API.G_MISS_NUM or l_trans_hdr_rec.source_id IS NULL )
3086: THEN
3087: OKL_API.set_message(
3088: p_app_name => G_APP_NAME
3089: ,p_msg_name => G_INVALID_VALUE
3090: ,p_token1 => G_COL_NAME_TOKEN
3091: ,p_token1_value => 'HEADER.SOURCE_ID');
3088: p_app_name => G_APP_NAME
3089: ,p_msg_name => G_INVALID_VALUE
3090: ,p_token1 => G_COL_NAME_TOKEN
3091: ,p_token1_value => 'HEADER.SOURCE_ID');
3092: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3094: END IF;
3095: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3096: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3089: ,p_msg_name => G_INVALID_VALUE
3090: ,p_token1 => G_COL_NAME_TOKEN
3091: ,p_token1_value => 'HEADER.SOURCE_ID');
3092: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3094: END IF;
3095: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3096: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3097: THEN
3091: ,p_token1_value => 'HEADER.SOURCE_ID');
3092: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3094: END IF;
3095: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3096: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3097: THEN
3098: OKL_API.set_message(
3099: p_app_name => G_APP_NAME
3094: END IF;
3095: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3096: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3097: THEN
3098: OKL_API.set_message(
3099: p_app_name => G_APP_NAME
3100: ,p_msg_name => G_INVALID_VALUE
3101: ,p_token1 => G_COL_NAME_TOKEN
3102: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3099: p_app_name => G_APP_NAME
3100: ,p_msg_name => G_INVALID_VALUE
3101: ,p_token1 => G_COL_NAME_TOKEN
3102: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3103: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: END IF;
3106: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3107: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
3100: ,p_msg_name => G_INVALID_VALUE
3101: ,p_token1 => G_COL_NAME_TOKEN
3102: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3103: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: END IF;
3106: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3107: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
3108: FOR t_rec IN get_txl_ext_hdr_id(
3141: ,p_tehv_rec => l_trans_hdr_rec -- Initalized with the HEADER_EXTENSION_ID
3142: );
3143: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3144: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3142: );
3143: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3144: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3143: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3144: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3151: 'Calling okl_api.end_activity');
3144: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3151: 'Calling okl_api.end_activity');
3152: okl_api.end_activity(
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3151: 'Calling okl_api.end_activity');
3152: okl_api.end_activity(
3153: x_msg_count => x_msg_count
3154: ,x_msg_data => x_msg_data);
3155: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3151: 'Calling okl_api.end_activity');
3152: okl_api.end_activity(
3153: x_msg_count => x_msg_count
3154: ,x_msg_data => x_msg_data);
3155: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3156: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3153: x_msg_count => x_msg_count
3154: ,x_msg_data => x_msg_data);
3155: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3156: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3157: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3158: EXCEPTION
3159: ------------------------------------------------------------
3160: -- Exception handling
3161: ------------------------------------------------------------
3158: EXCEPTION
3159: ------------------------------------------------------------
3160: -- Exception handling
3161: ------------------------------------------------------------
3162: WHEN OKL_API.G_EXCEPTION_ERROR
3163: THEN
3164: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3165: p_api_name => l_api_name
3166: ,p_pkg_name => G_PKG_NAME
3160: -- Exception handling
3161: ------------------------------------------------------------
3162: WHEN OKL_API.G_EXCEPTION_ERROR
3163: THEN
3164: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3165: p_api_name => l_api_name
3166: ,p_pkg_name => G_PKG_NAME
3167: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3168: ,x_msg_count => x_msg_count
3163: THEN
3164: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3165: p_api_name => l_api_name
3166: ,p_pkg_name => G_PKG_NAME
3167: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3168: ,x_msg_count => x_msg_count
3169: ,x_msg_data => x_msg_data
3170: ,p_api_type => '_PVT');
3171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3167: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3168: ,x_msg_count => x_msg_count
3169: ,x_msg_data => x_msg_data
3170: ,p_api_type => '_PVT');
3171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3172: THEN
3173: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3174: p_api_name => l_api_name
3175: ,p_pkg_name => G_PKG_NAME
3169: ,x_msg_data => x_msg_data
3170: ,p_api_type => '_PVT');
3171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3172: THEN
3173: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3174: p_api_name => l_api_name
3175: ,p_pkg_name => G_PKG_NAME
3176: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3177: ,x_msg_count => x_msg_count
3172: THEN
3173: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3174: p_api_name => l_api_name
3175: ,p_pkg_name => G_PKG_NAME
3176: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3177: ,x_msg_count => x_msg_count
3178: ,x_msg_data => x_msg_data
3179: ,p_api_type => '_PVT');
3180: WHEN OTHERS
3178: ,x_msg_data => x_msg_data
3179: ,p_api_type => '_PVT');
3180: WHEN OTHERS
3181: THEN
3182: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3183: p_api_name => l_api_name
3184: ,p_pkg_name => G_PKG_NAME
3185: ,p_exc_name => 'OTHERS'
3186: ,x_msg_count => x_msg_count
3475: -- Declare Process Variable
3476: -----------------------------------------------------------------
3477: l_api_version CONSTANT NUMBER := 1;
3478: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_KHR_SOURCES';
3479: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3480:
3481: ----------------------------------------------
3482: -- Variables based on Cursor record structures
3483: ----------------------------------------------
3520: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3521: 'BEGIN DEBUG OKLRSLAB.PLS CALL ' || l_api_name);
3522: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3523: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3524: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3525: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3526: 'CALLING OKL_API.START_ACTIVITY');
3527: l_return_status := OKL_API.START_ACTIVITY(
3528: p_api_name => l_api_name
3522: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3523: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3524: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3525: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3526: 'CALLING OKL_API.START_ACTIVITY');
3527: l_return_status := OKL_API.START_ACTIVITY(
3528: p_api_name => l_api_name
3529: ,p_pkg_name => g_pkg_name
3530: ,p_init_msg_list => p_init_msg_list
3523: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3524: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3525: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3526: 'CALLING OKL_API.START_ACTIVITY');
3527: l_return_status := OKL_API.START_ACTIVITY(
3528: p_api_name => l_api_name
3529: ,p_pkg_name => g_pkg_name
3530: ,p_init_msg_list => p_init_msg_list
3531: ,l_api_version => l_api_version
3534: ,x_return_status => l_return_status);
3535: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3536: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3537:
3538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3539: THEN
3540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3542: THEN
3536: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3537:
3538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3539: THEN
3540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3542: THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: END IF;
3537:
3538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3539: THEN
3540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3542: THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: END IF;
3545:
3539: THEN
3540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3542: THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: END IF;
3545:
3546: -- Copy input parameter to local variable
3547: l_khr_id := x_khr_source_rec.khr_id;
3765: p_khr_source_rec => x_khr_source_rec
3766: ,p_module => l_module);
3767: END IF;
3768: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3769: 'CALLING OKL_API.END_ACTIVITY');
3770: okl_api.end_activity(
3771: x_msg_count => x_msg_count
3772: ,x_msg_data => x_msg_data);
3773: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3766: ,p_module => l_module);
3767: END IF;
3768: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3769: 'CALLING OKL_API.END_ACTIVITY');
3770: okl_api.end_activity(
3771: x_msg_count => x_msg_count
3772: ,x_msg_data => x_msg_data);
3773: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3774: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3771: x_msg_count => x_msg_count
3772: ,x_msg_data => x_msg_data);
3773: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3774: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3775: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3776: EXCEPTION
3777: ------------------------------------------------------------
3778: -- Exception handling
3779: ------------------------------------------------------------
3776: EXCEPTION
3777: ------------------------------------------------------------
3778: -- Exception handling
3779: ------------------------------------------------------------
3780: WHEN OKL_API.G_EXCEPTION_ERROR
3781: THEN
3782: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3783: p_api_name => l_api_name
3784: ,p_pkg_name => G_PKG_NAME
3778: -- Exception handling
3779: ------------------------------------------------------------
3780: WHEN OKL_API.G_EXCEPTION_ERROR
3781: THEN
3782: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3783: p_api_name => l_api_name
3784: ,p_pkg_name => G_PKG_NAME
3785: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3786: ,x_msg_count => x_msg_count
3781: THEN
3782: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3783: p_api_name => l_api_name
3784: ,p_pkg_name => G_PKG_NAME
3785: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3786: ,x_msg_count => x_msg_count
3787: ,x_msg_data => x_msg_data
3788: ,p_api_type => '_PVT');
3789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3785: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3786: ,x_msg_count => x_msg_count
3787: ,x_msg_data => x_msg_data
3788: ,p_api_type => '_PVT');
3789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3790: THEN
3791: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3792: p_api_name => l_api_name
3793: ,p_pkg_name => G_PKG_NAME
3787: ,x_msg_data => x_msg_data
3788: ,p_api_type => '_PVT');
3789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3790: THEN
3791: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3792: p_api_name => l_api_name
3793: ,p_pkg_name => G_PKG_NAME
3794: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3795: ,x_msg_count => x_msg_count
3790: THEN
3791: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3792: p_api_name => l_api_name
3793: ,p_pkg_name => G_PKG_NAME
3794: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3795: ,x_msg_count => x_msg_count
3796: ,x_msg_data => x_msg_data
3797: ,p_api_type => '_PVT');
3798: WHEN OTHERS
3796: ,x_msg_data => x_msg_data
3797: ,p_api_type => '_PVT');
3798: WHEN OTHERS
3799: THEN
3800: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3801: p_api_name => l_api_name
3802: ,p_pkg_name => G_PKG_NAME
3803: ,p_exc_name => 'OTHERS'
3804: ,x_msg_count => x_msg_count
3831: -- Declare Process Variable
3832: -----------------------------------------------------------------
3833: l_api_version CONSTANT NUMBER := 1;
3834: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_KLE_SOURCES';
3835: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3836:
3837: ----------------------------------------------
3838: -- Variables based on cursor record structures
3839: ----------------------------------------------
3867: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3868: 'BEGIN DEBUG OKLRSLAB.PLS CALL ' || l_api_name);
3869: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3870: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3871: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3872: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3873: 'CALLING OKL_API.START_ACTIVITY');
3874: l_return_status := OKL_API.START_ACTIVITY(
3875: p_api_name => l_api_name
3869: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3870: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3871: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3872: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3873: 'CALLING OKL_API.START_ACTIVITY');
3874: l_return_status := OKL_API.START_ACTIVITY(
3875: p_api_name => l_api_name
3876: ,p_pkg_name => g_pkg_name
3877: ,p_init_msg_list => p_init_msg_list
3870: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3871: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3872: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3873: 'CALLING OKL_API.START_ACTIVITY');
3874: l_return_status := OKL_API.START_ACTIVITY(
3875: p_api_name => l_api_name
3876: ,p_pkg_name => g_pkg_name
3877: ,p_init_msg_list => p_init_msg_list
3878: ,l_api_version => l_api_version
3881: ,x_return_status => l_return_status);
3882: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3883: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3884:
3885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3886: THEN
3887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3888: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3889: THEN
3883: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3884:
3885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3886: THEN
3887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3888: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3889: THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3884:
3885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3886: THEN
3887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3888: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3889: THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3892:
3886: THEN
3887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3888: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3889: THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3892:
3893: -- Copy input parameter to local variables
3894: l_khr_id := x_kle_source_rec.khr_id;
3991: ,p_module => l_module);
3992: END IF;
3993:
3994: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3995: 'CALLING OKL_API.END_ACTIVITY');
3996: okl_api.end_activity(
3997: x_msg_count => x_msg_count
3998: ,x_msg_data => x_msg_data);
3999: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3992: END IF;
3993:
3994: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3995: 'CALLING OKL_API.END_ACTIVITY');
3996: okl_api.end_activity(
3997: x_msg_count => x_msg_count
3998: ,x_msg_data => x_msg_data);
3999: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4000: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3997: x_msg_count => x_msg_count
3998: ,x_msg_data => x_msg_data);
3999: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4000: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
4001: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4002: EXCEPTION
4003: ------------------------------------------------------------
4004: -- Exception handling
4005: ------------------------------------------------------------
4002: EXCEPTION
4003: ------------------------------------------------------------
4004: -- Exception handling
4005: ------------------------------------------------------------
4006: WHEN OKL_API.G_EXCEPTION_ERROR
4007: THEN
4008: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4009: p_api_name => l_api_name
4010: ,p_pkg_name => G_PKG_NAME
4004: -- Exception handling
4005: ------------------------------------------------------------
4006: WHEN OKL_API.G_EXCEPTION_ERROR
4007: THEN
4008: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4009: p_api_name => l_api_name
4010: ,p_pkg_name => G_PKG_NAME
4011: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4012: ,x_msg_count => x_msg_count
4007: THEN
4008: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4009: p_api_name => l_api_name
4010: ,p_pkg_name => G_PKG_NAME
4011: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4012: ,x_msg_count => x_msg_count
4013: ,x_msg_data => x_msg_data
4014: ,p_api_type => '_PVT');
4015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4011: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4012: ,x_msg_count => x_msg_count
4013: ,x_msg_data => x_msg_data
4014: ,p_api_type => '_PVT');
4015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4016: THEN
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4018: p_api_name => l_api_name
4019: ,p_pkg_name => G_PKG_NAME
4013: ,x_msg_data => x_msg_data
4014: ,p_api_type => '_PVT');
4015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4016: THEN
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4018: p_api_name => l_api_name
4019: ,p_pkg_name => G_PKG_NAME
4020: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4021: ,x_msg_count => x_msg_count
4016: THEN
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4018: p_api_name => l_api_name
4019: ,p_pkg_name => G_PKG_NAME
4020: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4021: ,x_msg_count => x_msg_count
4022: ,x_msg_data => x_msg_data
4023: ,p_api_type => '_PVT');
4024: WHEN OTHERS
4022: ,x_msg_data => x_msg_data
4023: ,p_api_type => '_PVT');
4024: WHEN OTHERS
4025: THEN
4026: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4027: p_api_name => l_api_name
4028: ,p_pkg_name => G_PKG_NAME
4029: ,p_exc_name => 'OTHERS'
4030: ,x_msg_count => x_msg_count
4068: -- Declare Process Variable
4069: -----------------------------------------------------------------
4070: l_api_version CONSTANT NUMBER := 1;
4071: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-FA';
4072: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4073: -----------------------------------------------------------------
4074: -- Local Variables
4075: -----------------------------------------------------------------
4076: l_khr_id NUMBER;
4121: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4122: 'begin debug OKLRSLAB.pls call ' || l_api_name);
4123: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4124: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4125: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4126: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4127: 'Calling OKL_API.START_ACTIVITY');
4128: l_return_status := OKL_API.START_ACTIVITY(
4129: p_api_name => l_api_name
4123: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4124: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4125: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4126: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4127: 'Calling OKL_API.START_ACTIVITY');
4128: l_return_status := OKL_API.START_ACTIVITY(
4129: p_api_name => l_api_name
4130: ,p_pkg_name => g_pkg_name
4131: ,p_init_msg_list => p_init_msg_list
4124: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4125: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4126: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4127: 'Calling OKL_API.START_ACTIVITY');
4128: l_return_status := OKL_API.START_ACTIVITY(
4129: p_api_name => l_api_name
4130: ,p_pkg_name => g_pkg_name
4131: ,p_init_msg_list => p_init_msg_list
4132: ,l_api_version => l_api_version
4132: ,l_api_version => l_api_version
4133: ,p_api_version => p_api_version
4134: ,p_api_type => '_PVT'
4135: ,x_return_status => l_return_status);
4136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4139: RAISE OKL_API.G_EXCEPTION_ERROR;
4140: END IF;
4133: ,p_api_version => p_api_version
4134: ,p_api_type => '_PVT'
4135: ,x_return_status => l_return_status);
4136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4139: RAISE OKL_API.G_EXCEPTION_ERROR;
4140: END IF;
4141: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4134: ,p_api_type => '_PVT'
4135: ,x_return_status => l_return_status);
4136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4139: RAISE OKL_API.G_EXCEPTION_ERROR;
4140: END IF;
4141: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4142: 'Before Performing validations');
4135: ,x_return_status => l_return_status);
4136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4139: RAISE OKL_API.G_EXCEPTION_ERROR;
4140: END IF;
4141: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4142: 'Before Performing validations');
4143: -- Validations to be done:
4145: -- dnz_khr_id, kle_id, try_id, asset_id, fa_transaction_id, source_id,
4146: -- source_table and asset_book_type_code
4147: l_pk_attributes := NULL;
4148: IF p_fxhv_rec.source_id IS NULL OR
4149: p_fxhv_rec.source_id = OKL_API.G_MISS_NUM
4150: THEN
4151: IF l_pk_attributes IS NOT NULL
4152: THEN
4153: l_pk_attributes := l_pk_attributes || ' , ';
4154: END IF;
4155: l_pk_attributes := l_pk_attributes || 'FXH.SOURCE_ID';
4156: END IF;
4157: IF p_fxhv_rec.source_table IS NULL OR
4158: p_fxhv_rec.source_table = OKL_API.G_MISS_CHAR
4159: THEN
4160: IF l_pk_attributes IS NOT NULL
4161: THEN
4162: l_pk_attributes := l_pk_attributes || ' , ';
4163: END IF;
4164: l_pk_attributes := l_pk_attributes || 'FXH.SOURCE_TABLE';
4165: END IF;
4166: IF p_fxhv_rec.khr_id IS NULL OR
4167: p_fxhv_rec.khr_id = OKL_API.G_MISS_NUM
4168: THEN
4169: IF l_pk_attributes IS NOT NULL
4170: THEN
4171: l_pk_attributes := l_pk_attributes || ' , ';
4172: END IF;
4173: l_pk_attributes := l_pk_attributes || 'KHR_ID';
4174: END IF;
4175: IF p_fxlv_rec.kle_id IS NULL OR
4176: p_fxlv_rec.kle_id = OKL_API.G_MISS_NUM
4177: THEN
4178: IF l_pk_attributes IS NOT NULL
4179: THEN
4180: l_pk_attributes := l_pk_attributes || ' , ';
4181: END IF;
4182: l_pk_attributes := l_pk_attributes || 'KLE_ID';
4183: END IF;
4184: IF p_fxhv_rec.try_id IS NULL OR
4185: p_fxhv_rec.try_id = OKL_API.G_MISS_NUM
4186: THEN
4187: IF l_pk_attributes IS NOT NULL
4188: THEN
4189: l_pk_attributes := l_pk_attributes || ' , ';
4190: END IF;
4191: l_pk_attributes := l_pk_attributes || 'TRY_ID';
4192: END IF;
4193: IF p_fxlv_rec.asset_id IS NULL OR
4194: p_fxlv_rec.asset_id = OKL_API.G_MISS_NUM
4195: THEN
4196: IF l_pk_attributes IS NOT NULL
4197: THEN
4198: l_pk_attributes := l_pk_attributes || ' , ';
4200: l_pk_attributes := l_pk_attributes || 'ASSET_ID';
4201: END IF;
4202:
4203: IF p_fxlv_rec.fa_transaction_id IS NULL OR
4204: p_fxlv_rec.fa_transaction_id = OKL_API.G_MISS_NUM
4205: THEN
4206: IF l_pk_attributes IS NOT NULL
4207: THEN
4208: l_pk_attributes := l_pk_attributes || ' , ';
4209: END IF;
4210: l_pk_attributes := l_pk_attributes || 'FA_TRANSACTION_ID';
4211: END IF;
4212: IF p_fxlv_rec.asset_book_type_name IS NULL OR
4213: p_fxlv_rec.asset_book_type_name = OKL_API.G_MISS_CHAR
4214: THEN
4215: IF l_pk_attributes IS NOT NULL
4216: THEN
4217: l_pk_attributes := l_pk_attributes || ' , ';
4218: END IF;
4219: l_pk_attributes := l_pk_attributes || 'ASSET_BOOK_TYPE_NAME';
4220: END IF;
4221: IF p_fxlv_rec.source_id IS NULL OR
4222: p_fxlv_rec.source_id = OKL_API.G_MISS_NUM
4223: THEN
4224: IF l_pk_attributes IS NOT NULL
4225: THEN
4226: l_pk_attributes := l_pk_attributes || ' , ';
4227: END IF;
4228: l_pk_attributes := l_pk_attributes || 'FXL.SOURCE_ID';
4229: END IF;
4230: IF p_fxlv_rec.source_table IS NULL OR
4231: p_fxlv_rec.source_table = OKL_API.G_MISS_CHAR
4232: THEN
4233: IF l_pk_attributes IS NOT NULL
4234: THEN
4235: l_pk_attributes := l_pk_attributes || ' , ';
4238: END IF;
4239: IF LENGTH(l_pk_attributes) > 0
4240: THEN
4241: -- Raise an Exception
4242: OKL_API.set_message(
4243: p_app_name => G_APP_NAME
4244: ,p_msg_name => G_INVALID_VALUE
4245: ,p_token1 => G_COL_NAME_TOKEN
4246: ,p_token1_value => l_pk_attributes);
4243: p_app_name => G_APP_NAME
4244: ,p_msg_name => G_INVALID_VALUE
4245: ,p_token1 => G_COL_NAME_TOKEN
4246: ,p_token1_value => l_pk_attributes);
4247: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: END IF;
4250: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4251: 'Validation 1 Successfull !');
4244: ,p_msg_name => G_INVALID_VALUE
4245: ,p_token1 => G_COL_NAME_TOKEN
4246: ,p_token1_value => l_pk_attributes);
4247: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: END IF;
4250: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4251: 'Validation 1 Successfull !');
4252: -- Validation 2: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4252: -- Validation 2: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4253: IF p_fxhv_rec.source_table <> G_TRX_ASSETS
4254: THEN
4255: -- Raise an Exception
4256: OKL_API.set_message(
4257: p_app_name => G_APP_NAME
4258: ,p_msg_name => G_INVALID_VALUE
4259: ,p_token1 => G_COL_NAME_TOKEN
4260: ,p_token1_value => 'SOURCE_TABLE');
4257: p_app_name => G_APP_NAME
4258: ,p_msg_name => G_INVALID_VALUE
4259: ,p_token1 => G_COL_NAME_TOKEN
4260: ,p_token1_value => 'SOURCE_TABLE');
4261: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: END IF;
4264: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4265: 'Validation 2 Successfull !');
4258: ,p_msg_name => G_INVALID_VALUE
4259: ,p_token1 => G_COL_NAME_TOKEN
4260: ,p_token1_value => 'SOURCE_TABLE');
4261: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: END IF;
4264: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4265: 'Validation 2 Successfull !');
4266: -- Validation 3: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4266: -- Validation 3: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4267: IF p_fxlv_rec.source_table NOT IN ( G_TXL_ASSETS, G_TXD_ASSETS )
4268: THEN
4269: -- Raise an Exception
4270: OKL_API.set_message(
4271: p_app_name => G_APP_NAME
4272: ,p_msg_name => G_INVALID_VALUE
4273: ,p_token1 => G_COL_NAME_TOKEN
4274: ,p_token1_value => 'SOURCE_TABLE');
4271: p_app_name => G_APP_NAME
4272: ,p_msg_name => G_INVALID_VALUE
4273: ,p_token1 => G_COL_NAME_TOKEN
4274: ,p_token1_value => 'SOURCE_TABLE');
4275: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: END IF;
4278: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4279: 'Validation 3 Successfull !');
4272: ,p_msg_name => G_INVALID_VALUE
4273: ,p_token1 => G_COL_NAME_TOKEN
4274: ,p_token1_value => 'SOURCE_TABLE');
4275: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: END IF;
4278: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4279: 'Validation 3 Successfull !');
4280: -- Validation 4: The kle_id value passed should be the Id of the Line with
4286: IF l_line_style IS NULL OR
4287: l_line_style <> 'FREE_FORM1'
4288: THEN
4289: -- Raise an Exception
4290: OKL_API.set_message(
4291: p_app_name => G_APP_NAME
4292: ,p_msg_name => G_INVALID_VALUE
4293: ,p_token1 => G_COL_NAME_TOKEN
4294: ,p_token1_value => 'KLE_ID');
4291: p_app_name => G_APP_NAME
4292: ,p_msg_name => G_INVALID_VALUE
4293: ,p_token1 => G_COL_NAME_TOKEN
4294: ,p_token1_value => 'KLE_ID');
4295: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4297: END IF;
4298:
4299: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4292: ,p_msg_name => G_INVALID_VALUE
4293: ,p_token1 => G_COL_NAME_TOKEN
4294: ,p_token1_value => 'KLE_ID');
4295: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4297: END IF;
4298:
4299: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4300: 'Validation 4 Successfull !');
4369: ,x_msg_data => x_msg_data );
4370: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4371: 'After populate_khr_sources: l_return_status ' || l_return_status );
4372: -- Check the return status and if errored, return the error back
4373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4370: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4371: 'After populate_khr_sources: l_return_status ' || l_return_status );
4372: -- Check the return status and if errored, return the error back
4373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4371: 'After populate_khr_sources: l_return_status ' || l_return_status );
4372: -- Check the return status and if errored, return the error back
4373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: --calling assign_khr_rec_to_fxhv_rec
4372: -- Check the return status and if errored, return the error back
4373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: --calling assign_khr_rec_to_fxhv_rec
4380: assign_khr_rec_to_fxh_rec(
4491: );
4492: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4493: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
4494: -- Check the return status and if errored, return the error back
4495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4496: THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4493: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
4494: -- Check the return status and if errored, return the error back
4495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4496: THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501:
4494: -- Check the return status and if errored, return the error back
4495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4496: THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501:
4502: l_header_extension_id := lx_fxh_rec.header_extension_id;
4495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4496: THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501:
4502: l_header_extension_id := lx_fxh_rec.header_extension_id;
4503: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
4515: ,x_msg_data => x_msg_data );
4516: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4517: 'After populate_kle_sources: l_return_status ' || l_return_status );
4518: -- Check the return status and if errored, return the error back
4519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4520: THEN
4521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4517: 'After populate_kle_sources: l_return_status ' || l_return_status );
4518: -- Check the return status and if errored, return the error back
4519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4520: THEN
4521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525:
4518: -- Check the return status and if errored, return the error back
4519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4520: THEN
4521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525:
4526: -- Assin the KLE Sources to the FA Extension Line
4519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4520: THEN
4521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525:
4526: -- Assin the KLE Sources to the FA Extension Line
4527: assign_kle_rec_to_fxl_rec(
4578: );
4579: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4580: 'After okl_fa_extension_pvt.create_fxl_extension: l_return_status ' || l_return_status );
4581: -- Check the return status and if errored, return the error back
4582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4583: THEN
4584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4586: THEN
4580: 'After okl_fa_extension_pvt.create_fxl_extension: l_return_status ' || l_return_status );
4581: -- Check the return status and if errored, return the error back
4582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4583: THEN
4584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4586: THEN
4587: RAISE OKL_API.G_EXCEPTION_ERROR;
4588: END IF;
4581: -- Check the return status and if errored, return the error back
4582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4583: THEN
4584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4586: THEN
4587: RAISE OKL_API.G_EXCEPTION_ERROR;
4588: END IF;
4589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4583: THEN
4584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4586: THEN
4587: RAISE OKL_API.G_EXCEPTION_ERROR;
4588: END IF;
4589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4590: 'Calling okl_api.end_activity');
4591: okl_api.end_activity(
4586: THEN
4587: RAISE OKL_API.G_EXCEPTION_ERROR;
4588: END IF;
4589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4590: 'Calling okl_api.end_activity');
4591: okl_api.end_activity(
4592: x_msg_count => x_msg_count
4593: ,x_msg_data => x_msg_data);
4594: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4587: RAISE OKL_API.G_EXCEPTION_ERROR;
4588: END IF;
4589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4590: 'Calling okl_api.end_activity');
4591: okl_api.end_activity(
4592: x_msg_count => x_msg_count
4593: ,x_msg_data => x_msg_data);
4594: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4595: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4592: x_msg_count => x_msg_count
4593: ,x_msg_data => x_msg_data);
4594: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4595: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4597: EXCEPTION
4598: ------------------------------------------------------------
4599: -- Exception handling
4600: ------------------------------------------------------------
4597: EXCEPTION
4598: ------------------------------------------------------------
4599: -- Exception handling
4600: ------------------------------------------------------------
4601: WHEN OKL_API.G_EXCEPTION_ERROR
4602: THEN
4603: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4604: p_api_name => l_api_name
4605: ,p_pkg_name => G_PKG_NAME
4599: -- Exception handling
4600: ------------------------------------------------------------
4601: WHEN OKL_API.G_EXCEPTION_ERROR
4602: THEN
4603: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4604: p_api_name => l_api_name
4605: ,p_pkg_name => G_PKG_NAME
4606: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4607: ,x_msg_count => x_msg_count
4602: THEN
4603: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4604: p_api_name => l_api_name
4605: ,p_pkg_name => G_PKG_NAME
4606: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4607: ,x_msg_count => x_msg_count
4608: ,x_msg_data => x_msg_data
4609: ,p_api_type => '_PVT');
4610: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4606: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4607: ,x_msg_count => x_msg_count
4608: ,x_msg_data => x_msg_data
4609: ,p_api_type => '_PVT');
4610: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4611: THEN
4612: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4613: p_api_name => l_api_name
4614: ,p_pkg_name => G_PKG_NAME
4608: ,x_msg_data => x_msg_data
4609: ,p_api_type => '_PVT');
4610: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4611: THEN
4612: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4613: p_api_name => l_api_name
4614: ,p_pkg_name => G_PKG_NAME
4615: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4616: ,x_msg_count => x_msg_count
4611: THEN
4612: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4613: p_api_name => l_api_name
4614: ,p_pkg_name => G_PKG_NAME
4615: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4616: ,x_msg_count => x_msg_count
4617: ,x_msg_data => x_msg_data
4618: ,p_api_type => '_PVT');
4619: WHEN OTHERS
4617: ,x_msg_data => x_msg_data
4618: ,p_api_type => '_PVT');
4619: WHEN OTHERS
4620: THEN
4621: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4622: p_api_name => l_api_name
4623: ,p_pkg_name => G_PKG_NAME
4624: ,p_exc_name => 'OTHERS'
4625: ,x_msg_count => x_msg_count
4641: -- Declare Process Variable
4642: -----------------------------------------------------------------
4643: l_api_version CONSTANT NUMBER := 1;
4644: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
4645: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4646: fxl_index BINARY_INTEGER;
4647: l_fxhv_rec okl_fxh_pvt.fxhv_rec_type;
4648: l_fxlv_tbl okl_fxl_pvt.fxlv_tbl_type;
4649: lx_fxhv_rec okl_fxh_pvt.fxhv_rec_type;
4677: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4678: 'begin debug OKLRSLAB.pls call ' || l_api_name);
4679: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4680: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4681: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4682: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4683: 'Calling OKL_API.START_ACTIVITY');
4684: l_return_status := OKL_API.START_ACTIVITY(
4685: p_api_name => l_api_name
4679: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4680: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4681: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4682: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4683: 'Calling OKL_API.START_ACTIVITY');
4684: l_return_status := OKL_API.START_ACTIVITY(
4685: p_api_name => l_api_name
4686: ,p_pkg_name => g_pkg_name
4687: ,p_init_msg_list => p_init_msg_list
4680: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4681: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4682: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4683: 'Calling OKL_API.START_ACTIVITY');
4684: l_return_status := OKL_API.START_ACTIVITY(
4685: p_api_name => l_api_name
4686: ,p_pkg_name => g_pkg_name
4687: ,p_init_msg_list => p_init_msg_list
4688: ,l_api_version => l_api_version
4688: ,l_api_version => l_api_version
4689: ,p_api_version => p_api_version
4690: ,p_api_type => '_PVT'
4691: ,x_return_status => l_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4689: ,p_api_version => p_api_version
4690: ,p_api_type => '_PVT'
4691: ,x_return_status => l_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697: -- Actual Logic Starts Here ..
4690: ,p_api_type => '_PVT'
4691: ,x_return_status => l_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697: -- Actual Logic Starts Here ..
4698: l_fxhv_rec := p_fxhv_rec;
4691: ,x_return_status => l_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697: -- Actual Logic Starts Here ..
4698: l_fxhv_rec := p_fxhv_rec;
4699: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4697: -- Actual Logic Starts Here ..
4698: l_fxhv_rec := p_fxhv_rec;
4699: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4700: 'Source ID=' || to_char(l_fxhv_rec.source_id) || 'Source Header Table=' || l_fxhv_rec.source_table );
4701: IF ( l_fxhv_rec.source_id = OKL_API.G_MISS_NUM or l_fxhv_rec.source_id IS NULL )
4702: THEN
4703: OKL_API.set_message(
4704: p_app_name => G_APP_NAME
4705: ,p_msg_name => G_INVALID_VALUE
4699: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4700: 'Source ID=' || to_char(l_fxhv_rec.source_id) || 'Source Header Table=' || l_fxhv_rec.source_table );
4701: IF ( l_fxhv_rec.source_id = OKL_API.G_MISS_NUM or l_fxhv_rec.source_id IS NULL )
4702: THEN
4703: OKL_API.set_message(
4704: p_app_name => G_APP_NAME
4705: ,p_msg_name => G_INVALID_VALUE
4706: ,p_token1 => G_COL_NAME_TOKEN
4707: ,p_token1_value => 'FXH.SOURCE_ID');
4704: p_app_name => G_APP_NAME
4705: ,p_msg_name => G_INVALID_VALUE
4706: ,p_token1 => G_COL_NAME_TOKEN
4707: ,p_token1_value => 'FXH.SOURCE_ID');
4708: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4710: END IF;
4711: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4712: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4705: ,p_msg_name => G_INVALID_VALUE
4706: ,p_token1 => G_COL_NAME_TOKEN
4707: ,p_token1_value => 'FXH.SOURCE_ID');
4708: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4710: END IF;
4711: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4712: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4713: THEN
4707: ,p_token1_value => 'FXH.SOURCE_ID');
4708: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4710: END IF;
4711: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4712: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4713: THEN
4714: OKL_API.set_message(
4715: p_app_name => G_APP_NAME
4710: END IF;
4711: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4712: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4713: THEN
4714: OKL_API.set_message(
4715: p_app_name => G_APP_NAME
4716: ,p_msg_name => G_INVALID_VALUE
4717: ,p_token1 => G_COL_NAME_TOKEN
4718: ,p_token1_value => 'FXH.SOURCE_TABLE');
4715: p_app_name => G_APP_NAME
4716: ,p_msg_name => G_INVALID_VALUE
4717: ,p_token1 => G_COL_NAME_TOKEN
4718: ,p_token1_value => 'FXH.SOURCE_TABLE');
4719: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4721: END IF;
4722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4723: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
4716: ,p_msg_name => G_INVALID_VALUE
4717: ,p_token1 => G_COL_NAME_TOKEN
4718: ,p_token1_value => 'FXH.SOURCE_TABLE');
4719: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4721: END IF;
4722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4723: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
4724: FOR t_rec IN get_fa_ext_hdr_id(
4760: );
4761: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4762: 'After okl_fa_extension_pvt.delete_fxh_extension: l_return_status ' || l_return_status );
4763: -- Check the return status and if errored, return the error back
4764: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4765: THEN
4766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4762: 'After okl_fa_extension_pvt.delete_fxh_extension: l_return_status ' || l_return_status );
4763: -- Check the return status and if errored, return the error back
4764: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4765: THEN
4766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769: END IF;
4770: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4763: -- Check the return status and if errored, return the error back
4764: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4765: THEN
4766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769: END IF;
4770: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4771: 'Calling okl_api.end_activity');
4764: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4765: THEN
4766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769: END IF;
4770: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4771: 'Calling okl_api.end_activity');
4772: okl_api.end_activity(
4767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769: END IF;
4770: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4771: 'Calling okl_api.end_activity');
4772: okl_api.end_activity(
4773: x_msg_count => x_msg_count
4774: ,x_msg_data => x_msg_data);
4775: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769: END IF;
4770: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4771: 'Calling okl_api.end_activity');
4772: okl_api.end_activity(
4773: x_msg_count => x_msg_count
4774: ,x_msg_data => x_msg_data);
4775: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4776: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4773: x_msg_count => x_msg_count
4774: ,x_msg_data => x_msg_data);
4775: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4776: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4777: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4778: EXCEPTION
4779: ------------------------------------------------------------
4780: -- Exception handling
4781: ------------------------------------------------------------
4778: EXCEPTION
4779: ------------------------------------------------------------
4780: -- Exception handling
4781: ------------------------------------------------------------
4782: WHEN OKL_API.G_EXCEPTION_ERROR
4783: THEN
4784: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4785: p_api_name => l_api_name
4786: ,p_pkg_name => G_PKG_NAME
4780: -- Exception handling
4781: ------------------------------------------------------------
4782: WHEN OKL_API.G_EXCEPTION_ERROR
4783: THEN
4784: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4785: p_api_name => l_api_name
4786: ,p_pkg_name => G_PKG_NAME
4787: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4788: ,x_msg_count => x_msg_count
4783: THEN
4784: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4785: p_api_name => l_api_name
4786: ,p_pkg_name => G_PKG_NAME
4787: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4788: ,x_msg_count => x_msg_count
4789: ,x_msg_data => x_msg_data
4790: ,p_api_type => '_PVT');
4791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4787: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4788: ,x_msg_count => x_msg_count
4789: ,x_msg_data => x_msg_data
4790: ,p_api_type => '_PVT');
4791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4792: THEN
4793: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4794: p_api_name => l_api_name
4795: ,p_pkg_name => G_PKG_NAME
4789: ,x_msg_data => x_msg_data
4790: ,p_api_type => '_PVT');
4791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4792: THEN
4793: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4794: p_api_name => l_api_name
4795: ,p_pkg_name => G_PKG_NAME
4796: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4797: ,x_msg_count => x_msg_count
4792: THEN
4793: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4794: p_api_name => l_api_name
4795: ,p_pkg_name => G_PKG_NAME
4796: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4797: ,x_msg_count => x_msg_count
4798: ,x_msg_data => x_msg_data
4799: ,p_api_type => '_PVT');
4800: WHEN OTHERS
4798: ,x_msg_data => x_msg_data
4799: ,p_api_type => '_PVT');
4800: WHEN OTHERS
4801: THEN
4802: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4803: p_api_name => l_api_name
4804: ,p_pkg_name => G_PKG_NAME
4805: ,p_exc_name => 'OTHERS'
4806: ,x_msg_count => x_msg_count
5004: -- Declare Process Variable
5005: -----------------------------------------------------------------
5006: l_api_version CONSTANT NUMBER := 1;
5007: l_api_name CONSTANT VARCHAR2(30) := 'populate_ar_sources';
5008: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5009: -----------------------------------------------------------------
5010: -- Local Variables
5011: -----------------------------------------------------------------
5012: l_khr_id NUMBER;
5058: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5059: 'begin debug OKLRSLAB.pls call ' || l_api_name);
5060: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5061: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5062: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5064: 'Calling OKL_API.START_ACTIVITY');
5065: l_return_status := OKL_API.START_ACTIVITY(
5066: p_api_name => l_api_name
5060: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5061: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5062: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5064: 'Calling OKL_API.START_ACTIVITY');
5065: l_return_status := OKL_API.START_ACTIVITY(
5066: p_api_name => l_api_name
5067: ,p_pkg_name => g_pkg_name
5068: ,p_init_msg_list => p_init_msg_list
5061: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5062: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5064: 'Calling OKL_API.START_ACTIVITY');
5065: l_return_status := OKL_API.START_ACTIVITY(
5066: p_api_name => l_api_name
5067: ,p_pkg_name => g_pkg_name
5068: ,p_init_msg_list => p_init_msg_list
5069: ,l_api_version => l_api_version
5069: ,l_api_version => l_api_version
5070: ,p_api_version => p_api_version
5071: ,p_api_type => '_PVT'
5072: ,x_return_status => l_return_status);
5073: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5076: RAISE OKL_API.G_EXCEPTION_ERROR;
5077: END IF;
5070: ,p_api_version => p_api_version
5071: ,p_api_type => '_PVT'
5072: ,x_return_status => l_return_status);
5073: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5076: RAISE OKL_API.G_EXCEPTION_ERROR;
5077: END IF;
5078: -- Validations to be done
5071: ,p_api_type => '_PVT'
5072: ,x_return_status => l_return_status);
5073: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5076: RAISE OKL_API.G_EXCEPTION_ERROR;
5077: END IF;
5078: -- Validations to be done
5079: -- Validation 1:
5072: ,x_return_status => l_return_status);
5073: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5076: RAISE OKL_API.G_EXCEPTION_ERROR;
5077: END IF;
5078: -- Validations to be done
5079: -- Validation 1:
5080: -- The following attributes should not be NULL
5083: -- Bug 6328168: sty_id is made optional as for On-Account Credit Memo
5084: -- its not mandatory at all
5085: l_pk_attributes := NULL;
5086: IF p_rxhv_rec.source_id IS NULL OR
5087: p_rxhv_rec.source_id = OKL_API.G_MISS_NUM
5088: THEN
5089: IF l_pk_attributes IS NOT NULL
5090: THEN
5091: l_pk_attributes := l_pk_attributes || ' , ';
5092: END IF;
5093: l_pk_attributes := l_pk_attributes || 'RXH.SOURCE_ID';
5094: END IF;
5095: IF p_rxhv_rec.source_table IS NULL OR
5096: p_rxhv_rec.source_table = OKL_API.G_MISS_CHAR
5097: THEN
5098: IF l_pk_attributes IS NOT NULL
5099: THEN
5100: l_pk_attributes := l_pk_attributes || ' , ';
5101: END IF;
5102: l_pk_attributes := l_pk_attributes || 'RXH.SOURCE_TABLE';
5103: END IF;
5104: IF p_rxhv_rec.khr_id IS NULL OR
5105: p_rxhv_rec.khr_id = OKL_API.G_MISS_NUM
5106: THEN
5107: IF l_pk_attributes IS NOT NULL
5108: THEN
5109: l_pk_attributes := l_pk_attributes || ' , ';
5110: END IF;
5111: l_pk_attributes := l_pk_attributes || 'KHR_ID';
5112: END IF;
5113: IF p_rxhv_rec.try_id IS NULL OR
5114: p_rxhv_rec.try_id = OKL_API.G_MISS_NUM
5115: THEN
5116: IF l_pk_attributes IS NOT NULL
5117: THEN
5118: l_pk_attributes := l_pk_attributes || ' , ';
5121: END IF;
5122: -- For few Transactions kle_id is not mandatory at all ..
5123: -- hence knocking off kle_id as the mandatory parameter
5124: IF p_rxlv_rec.source_id IS NULL OR
5125: p_rxlv_rec.source_id = OKL_API.G_MISS_NUM
5126: THEN
5127: IF l_pk_attributes IS NOT NULL
5128: THEN
5129: l_pk_attributes := l_pk_attributes || ' , ';
5130: END IF;
5131: l_pk_attributes := l_pk_attributes || 'RXL.SOURCE_ID';
5132: END IF;
5133: IF p_rxlv_rec.source_table IS NULL OR
5134: p_rxlv_rec.source_table = OKL_API.G_MISS_CHAR
5135: THEN
5136: IF l_pk_attributes IS NOT NULL
5137: THEN
5138: l_pk_attributes := l_pk_attributes || ' , ';
5141: END IF;
5142: IF LENGTH(l_pk_attributes) > 0
5143: THEN
5144: -- Raise an Exception
5145: OKL_API.set_message(
5146: p_app_name => G_APP_NAME
5147: ,p_msg_name => G_INVALID_VALUE
5148: ,p_token1 => G_COL_NAME_TOKEN
5149: ,p_token1_value => l_pk_attributes);
5146: p_app_name => G_APP_NAME
5147: ,p_msg_name => G_INVALID_VALUE
5148: ,p_token1 => G_COL_NAME_TOKEN
5149: ,p_token1_value => l_pk_attributes);
5150: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5152: END IF;
5153: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5154: 'Validation 1 Successfull !');
5147: ,p_msg_name => G_INVALID_VALUE
5148: ,p_token1 => G_COL_NAME_TOKEN
5149: ,p_token1_value => l_pk_attributes);
5150: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5152: END IF;
5153: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5154: 'Validation 1 Successfull !');
5155: -- Validation 2:
5158: -- lower cases currently, need to knock this upper once billing passes it correctly
5159: IF UPPER(p_rxlv_rec.source_table) NOT IN ( G_TXD_AR_LN_DTLS_B, G_TXL_ADJSTS_LNS_B )
5160: THEN
5161: -- Raise an Exception
5162: OKL_API.set_message(
5163: p_app_name => G_APP_NAME
5164: ,p_msg_name => G_INVALID_VALUE
5165: ,p_token1 => G_COL_NAME_TOKEN
5166: ,p_token1_value => 'SOURCE_TABLE');
5163: p_app_name => G_APP_NAME
5164: ,p_msg_name => G_INVALID_VALUE
5165: ,p_token1 => G_COL_NAME_TOKEN
5166: ,p_token1_value => 'SOURCE_TABLE');
5167: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5169: END IF;
5170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5171: 'Validation 2 Successfull !');
5164: ,p_msg_name => G_INVALID_VALUE
5165: ,p_token1 => G_COL_NAME_TOKEN
5166: ,p_token1_value => 'SOURCE_TABLE');
5167: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5169: END IF;
5170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5171: 'Validation 2 Successfull !');
5172: -- Copy input rec to local variable
5195: l_sty_id := l_rxl_rec.sty_id;
5196:
5197: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5198: '**** KLE_ID = ' || l_kle_id );
5199: IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5200: THEN
5201: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5202: 'Executing the Cursor get_line_style_csr kle_id=' || l_rxl_rec.kle_id );
5203: FOR t_rec IN get_line_style_csr(p_kle_id => l_rxl_rec.kle_id )
5209: END IF;
5210: END LOOP;
5211: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5212: '**** LINE STYLE = ' || l_line_style || ' PARENT LINE ID = ' || l_parent_line_id );
5213: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5214:
5215: -- Fetch ledger id and ledger language associated to the contracts
5216: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5217: 'Executing the Cursor c_khr_to_ledger_id_csr. p_khr_id=' || TO_CHAR(l_khr_id));
5277: ,x_msg_data => x_msg_data );
5278: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5279: 'After populate_khr_sources: l_return_status ' || l_return_status );
5280: -- Check the return status and if errored, return the error back
5281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5278: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5279: 'After populate_khr_sources: l_return_status ' || l_return_status );
5280: -- Check the return status and if errored, return the error back
5281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: -- Assign the KHR Sources to the rxhv_rec
5279: 'After populate_khr_sources: l_return_status ' || l_return_status );
5280: -- Check the return status and if errored, return the error back
5281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: -- Assign the KHR Sources to the rxhv_rec
5287: assign_khr_rec_to_rxh_rec(
5280: -- Check the return status and if errored, return the error back
5281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: -- Assign the KHR Sources to the rxhv_rec
5287: assign_khr_rec_to_rxh_rec(
5288: p_khr_source_rec => l_khr_source_rec
5335: END LOOP; -- c_termination_qte_csr
5336: END LOOP;
5337:
5338: IF(p_acc_sources_rec.jtf_sales_reps_pk IS NOT NULL AND
5339: p_acc_sources_rec.jtf_sales_reps_pk <> OKL_API.G_MISS_CHAR) THEN
5340: -- Need to populate the Sales Representative Name
5341: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5342: 'Executing the Cursor c_sales_rep_acc_sources_csr. l_sales_rep_id = ' ||
5343: TO_CHAR(p_acc_sources_rec.jtf_sales_reps_pk) );
5363: );
5364: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5365: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5366: -- Check the return status and if errored, return the error back
5367: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5370: RAISE OKL_API.G_EXCEPTION_ERROR;
5371: END IF;
5364: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5365: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5366: -- Check the return status and if errored, return the error back
5367: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5370: RAISE OKL_API.G_EXCEPTION_ERROR;
5371: END IF;
5372: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5365: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5366: -- Check the return status and if errored, return the error back
5367: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5370: RAISE OKL_API.G_EXCEPTION_ERROR;
5371: END IF;
5372: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5373: l_header_extension_id := lx_rxh_rec.header_extension_id;
5366: -- Check the return status and if errored, return the error back
5367: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5370: RAISE OKL_API.G_EXCEPTION_ERROR;
5371: END IF;
5372: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5373: l_header_extension_id := lx_rxh_rec.header_extension_id;
5374: END IF;
5372: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5373: l_header_extension_id := lx_rxh_rec.header_extension_id;
5374: END IF;
5375: IF l_kle_id IS NOT NULL AND
5376: l_kle_id <> OKL_API.G_MISS_NUM
5377: THEN
5378: -- Start populating the Sources at the Extension Line Level
5379: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
5380: l_kle_source_rec.khr_id := l_khr_id;
5397: ,x_msg_data => x_msg_data );
5398: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5399: 'After populate_kle_sources: l_return_status ' || l_return_status );
5400: -- Check the return status and if errored, return the error back
5401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: RAISE OKL_API.G_EXCEPTION_ERROR;
5405: END IF;
5398: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5399: 'After populate_kle_sources: l_return_status ' || l_return_status );
5400: -- Check the return status and if errored, return the error back
5401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: RAISE OKL_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: -- calling assign_kle_rec_to_rxlv_rec
5399: 'After populate_kle_sources: l_return_status ' || l_return_status );
5400: -- Check the return status and if errored, return the error back
5401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: RAISE OKL_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: -- calling assign_kle_rec_to_rxlv_rec
5407: assign_kle_rec_to_rxl_rec(
5400: -- Check the return status and if errored, return the error back
5401: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: RAISE OKL_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: -- calling assign_kle_rec_to_rxlv_rec
5407: assign_kle_rec_to_rxl_rec(
5408: p_kle_source_rec => l_kle_source_rec
5459: --ELSE
5460: -- Populate the l_pxlv_rec with the khr_id, ledger_language
5461: -- but not with the kle_id
5462: -- l_rxl_rec.language := l_ledger_language ;
5463: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5464:
5465: -- Stamp the Header Extension ID on the Extension Line Table
5466: l_rxl_rec.header_extension_id := l_header_extension_id;
5467:
5530: END LOOP;
5531: END LOOP; -- Loop on l_rxll_tbl
5532:
5533: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
5534: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR) THEN
5535: -- Populate Inventory Organization Name
5536: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5537: '*** AGS Inventory Org ID used to fetch teh Inventory Organization Code : Org ID=' ||
5538: p_acc_sources_rec.inventory_org_id_pk2 );
5573: ,x_rxll_tbl => lx_rxll_tbl
5574: );
5575: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5576: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5574: );
5575: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5576: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5582: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5575: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5576: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5582: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5583: 'Calling okl_api.end_activity');
5576: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5582: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5583: 'Calling okl_api.end_activity');
5584: okl_api.end_activity(
5579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5582: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5583: 'Calling okl_api.end_activity');
5584: okl_api.end_activity(
5585: x_msg_count => x_msg_count
5586: ,x_msg_data => x_msg_data);
5587: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5580: RAISE OKL_API.G_EXCEPTION_ERROR;
5581: END IF;
5582: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5583: 'Calling okl_api.end_activity');
5584: okl_api.end_activity(
5585: x_msg_count => x_msg_count
5586: ,x_msg_data => x_msg_data);
5587: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5588: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5585: x_msg_count => x_msg_count
5586: ,x_msg_data => x_msg_data);
5587: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5588: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5590: EXCEPTION
5591: ------------------------------------------------------------
5592: -- Exception handling
5593: ------------------------------------------------------------
5590: EXCEPTION
5591: ------------------------------------------------------------
5592: -- Exception handling
5593: ------------------------------------------------------------
5594: WHEN OKL_API.G_EXCEPTION_ERROR
5595: THEN
5596: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5597: p_api_name => l_api_name
5598: ,p_pkg_name => G_PKG_NAME
5592: -- Exception handling
5593: ------------------------------------------------------------
5594: WHEN OKL_API.G_EXCEPTION_ERROR
5595: THEN
5596: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5597: p_api_name => l_api_name
5598: ,p_pkg_name => G_PKG_NAME
5599: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5600: ,x_msg_count => x_msg_count
5595: THEN
5596: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5597: p_api_name => l_api_name
5598: ,p_pkg_name => G_PKG_NAME
5599: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5600: ,x_msg_count => x_msg_count
5601: ,x_msg_data => x_msg_data
5602: ,p_api_type => '_PVT');
5603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5599: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5600: ,x_msg_count => x_msg_count
5601: ,x_msg_data => x_msg_data
5602: ,p_api_type => '_PVT');
5603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5604: THEN
5605: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5606: p_api_name => l_api_name
5607: ,p_pkg_name => G_PKG_NAME
5601: ,x_msg_data => x_msg_data
5602: ,p_api_type => '_PVT');
5603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5604: THEN
5605: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5606: p_api_name => l_api_name
5607: ,p_pkg_name => G_PKG_NAME
5608: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
5609: ,x_msg_count => x_msg_count
5604: THEN
5605: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5606: p_api_name => l_api_name
5607: ,p_pkg_name => G_PKG_NAME
5608: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
5609: ,x_msg_count => x_msg_count
5610: ,x_msg_data => x_msg_data
5611: ,p_api_type => '_PVT');
5612: WHEN OTHERS
5610: ,x_msg_data => x_msg_data
5611: ,p_api_type => '_PVT');
5612: WHEN OTHERS
5613: THEN
5614: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5615: p_api_name => l_api_name
5616: ,p_pkg_name => G_PKG_NAME
5617: ,p_exc_name => 'OTHERS'
5618: ,x_msg_count => x_msg_count
5692: -- Declare Process Variable
5693: -----------------------------------------------------------------
5694: l_api_version CONSTANT NUMBER := 1;
5695: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-AR';
5696: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5697:
5698: -----------------------------------------------------------------
5699: -- Local Variables
5700: -----------------------------------------------------------------
5717: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5718: 'begin debug OKLRSLAB.pls call ' || l_api_name);
5719: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5720: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5721: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5723: 'Calling OKL_API.START_ACTIVITY');
5724: l_return_status := OKL_API.START_ACTIVITY(
5725: p_api_name => l_api_name
5719: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5720: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5721: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5723: 'Calling OKL_API.START_ACTIVITY');
5724: l_return_status := OKL_API.START_ACTIVITY(
5725: p_api_name => l_api_name
5726: ,p_pkg_name => g_pkg_name
5727: ,p_init_msg_list => p_init_msg_list
5720: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5721: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5723: 'Calling OKL_API.START_ACTIVITY');
5724: l_return_status := OKL_API.START_ACTIVITY(
5725: p_api_name => l_api_name
5726: ,p_pkg_name => g_pkg_name
5727: ,p_init_msg_list => p_init_msg_list
5728: ,l_api_version => l_api_version
5728: ,l_api_version => l_api_version
5729: ,p_api_version => p_api_version
5730: ,p_api_type => '_PVT'
5731: ,x_return_status => l_return_status);
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5729: ,p_api_version => p_api_version
5730: ,p_api_type => '_PVT'
5731: ,x_return_status => l_return_status);
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5730: ,p_api_type => '_PVT'
5731: ,x_return_status => l_return_status);
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: -- Validation 1: Source ID and Source Table should not be NULL in the
5731: ,x_return_status => l_return_status);
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: -- Validation 1: Source ID and Source Table should not be NULL in the
5739: -- AR Extension Header Record Structure
5739: -- AR Extension Header Record Structure
5740: IF (p_rxhv_rec.source_id IS NULL OR
5741: p_rxhv_rec.source_table IS NULL)
5742: THEN
5743: OKL_API.set_message(
5744: p_app_name => G_APP_NAME
5745: ,p_msg_name => G_INVALID_VALUE
5746: ,p_token1 => G_COL_NAME_TOKEN
5747: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5744: p_app_name => G_APP_NAME
5745: ,p_msg_name => G_INVALID_VALUE
5746: ,p_token1 => G_COL_NAME_TOKEN
5747: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5748: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: END IF;
5751: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5752: 'Header SOURCE_ID= ' || p_rxhv_rec.source_id || ' SOURCE_TABLE=' || p_rxhv_rec.source_table );
5745: ,p_msg_name => G_INVALID_VALUE
5746: ,p_token1 => G_COL_NAME_TOKEN
5747: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5748: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: END IF;
5751: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5752: 'Header SOURCE_ID= ' || p_rxhv_rec.source_id || ' SOURCE_TABLE=' || p_rxhv_rec.source_table );
5753: -- Validation 2: The Header Source Table should be either the
5754: -- OKL AR Invoice Trx Header or OKL AR Adjustment Trx. Header table only
5755: -- ie. it should be either OKL_TRX_AR_INVOICES_B or OKL_TRX_AR_ADJSTS_B only
5756: IF UPPER(p_rxhv_rec.source_table) NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B)
5757: THEN
5758: OKL_API.set_message(
5759: p_app_name => G_APP_NAME
5760: ,p_msg_name => G_INVALID_VALUE
5761: ,p_token1 => G_COL_NAME_TOKEN
5762: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5759: p_app_name => G_APP_NAME
5760: ,p_msg_name => G_INVALID_VALUE
5761: ,p_token1 => G_COL_NAME_TOKEN
5762: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5763: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: END IF;
5766:
5767: -- Copy to local variables
5760: ,p_msg_name => G_INVALID_VALUE
5761: ,p_token1 => G_COL_NAME_TOKEN
5762: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5763: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: END IF;
5766:
5767: -- Copy to local variables
5768: l_rxhv_rec := p_rxhv_rec;
5773: -- Validation 3: There should be atleast one Transaction Detail Line
5774: -- for which the Populate AR Sources should be called
5775: IF l_rxlv_tbl.COUNT = 0
5776: THEN
5777: OKL_API.set_message(
5778: p_app_name => G_APP_NAME
5779: ,p_msg_name => G_INVALID_VALUE
5780: ,p_token1 => G_COL_NAME_TOKEN
5781: ,p_token1_value => 'RXLV_TBL.COUNT()');
5778: p_app_name => G_APP_NAME
5779: ,p_msg_name => G_INVALID_VALUE
5780: ,p_token1 => G_COL_NAME_TOKEN
5781: ,p_token1_value => 'RXLV_TBL.COUNT()');
5782: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: END IF;
5785:
5786: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5779: ,p_msg_name => G_INVALID_VALUE
5780: ,p_token1 => G_COL_NAME_TOKEN
5781: ,p_token1_value => 'RXLV_TBL.COUNT()');
5782: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: END IF;
5785:
5786: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5787: IF l_rxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
5785:
5786: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5787: IF l_rxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
5788: THEN
5789: OKL_API.set_message(
5790: p_app_name => G_APP_NAME
5791: ,p_msg_name => G_INVALID_VALUE
5792: ,p_token1 => G_COL_NAME_TOKEN
5793: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5790: p_app_name => G_APP_NAME
5791: ,p_msg_name => G_INVALID_VALUE
5792: ,p_token1 => G_COL_NAME_TOKEN
5793: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5794: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5796: END IF;
5797:
5798: -- Loop on the details for the current transaction header
5791: ,p_msg_name => G_INVALID_VALUE
5792: ,p_token1 => G_COL_NAME_TOKEN
5793: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5794: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5796: END IF;
5797:
5798: -- Loop on the details for the current transaction header
5799: -- Call the populate_tld_sources
5856: IF l_acc_srcs_index IS NULL OR
5857: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
5858: THEN
5859: -- accounting_event_class_code is missing
5860: OKL_API.set_message(
5861: p_app_name => G_APP_NAME
5862: ,p_msg_name => G_INVALID_VALUE
5863: ,p_token1 => G_COL_NAME_TOKEN
5864: ,p_token1_value => 'AGS_SOURCES_INDEX');
5861: p_app_name => G_APP_NAME
5862: ,p_msg_name => G_INVALID_VALUE
5863: ,p_token1 => G_COL_NAME_TOKEN
5864: ,p_token1_value => 'AGS_SOURCES_INDEX');
5865: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: END IF; -- IF l_acc_sources_found = FALSE
5868:
5869: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5862: ,p_msg_name => G_INVALID_VALUE
5863: ,p_token1 => G_COL_NAME_TOKEN
5864: ,p_token1_value => 'AGS_SOURCES_INDEX');
5865: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: END IF; -- IF l_acc_sources_found = FALSE
5868:
5869: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5870: l_rxhv_rec.khr_id := l_trx_ar_inv_lines_tbl(tld_index).khr_id;
5891: ,x_msg_data => x_msg_data);
5892: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5893: 'After populate_ar_sources: l_return_status ' || l_return_status );
5894: -- Check the return status and if errored, return the error back
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_ERROR;
5899: END IF;
5892: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5893: 'After populate_ar_sources: l_return_status ' || l_return_status );
5894: -- Check the return status and if errored, return the error back
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: END IF; -- IF l_capture_sources = 'Y'
5893: 'After populate_ar_sources: l_return_status ' || l_return_status );
5894: -- Check the return status and if errored, return the error back
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: END IF; -- IF l_capture_sources = 'Y'
5901: END LOOP; -- Loop on l_trx_ar_inv_lines_tbl ..
5894: -- Check the return status and if errored, return the error back
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: END IF; -- IF l_capture_sources = 'Y'
5901: END LOOP; -- Loop on l_trx_ar_inv_lines_tbl ..
5902: ELSE
5957: IF l_acc_srcs_index IS NULL OR
5958: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
5959: THEN
5960: -- accounting_event_class_code is missing
5961: OKL_API.set_message(
5962: p_app_name => G_APP_NAME
5963: ,p_msg_name => G_INVALID_VALUE
5964: ,p_token1 => G_COL_NAME_TOKEN
5965: ,p_token1_value => 'AGS_SOURCES_INDEX');
5962: p_app_name => G_APP_NAME
5963: ,p_msg_name => G_INVALID_VALUE
5964: ,p_token1 => G_COL_NAME_TOKEN
5965: ,p_token1_value => 'AGS_SOURCES_INDEX');
5966: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5968: END IF; -- IF l_acc_sources_found = FALSE
5969:
5970: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5963: ,p_msg_name => G_INVALID_VALUE
5964: ,p_token1 => G_COL_NAME_TOKEN
5965: ,p_token1_value => 'AGS_SOURCES_INDEX');
5966: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5968: END IF; -- IF l_acc_sources_found = FALSE
5969:
5970: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5971: l_rxhv_rec.khr_id := l_trx_ar_adj_lines_tbl(tld_index).khr_id;
5993: ,x_msg_data => x_msg_data);
5994: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5995: 'After populate_ar_sources: l_return_status ' || l_return_status );
5996: -- Check the return status and if errored, return the error back
5997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_ERROR;
6001: END IF;
5994: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5995: 'After populate_ar_sources: l_return_status ' || l_return_status );
5996: -- Check the return status and if errored, return the error back
5997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_ERROR;
6001: END IF;
6002: END IF; -- IF l_capture_sources = 'Y'
5995: 'After populate_ar_sources: l_return_status ' || l_return_status );
5996: -- Check the return status and if errored, return the error back
5997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_ERROR;
6001: END IF;
6002: END IF; -- IF l_capture_sources = 'Y'
6003: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
5996: -- Check the return status and if errored, return the error back
5997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6000: RAISE OKL_API.G_EXCEPTION_ERROR;
6001: END IF;
6002: END IF; -- IF l_capture_sources = 'Y'
6003: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6004: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6002: END IF; -- IF l_capture_sources = 'Y'
6003: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6004: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6005: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6006: 'Calling okl_api.end_activity');
6007: okl_api.end_activity(
6008: x_msg_count => x_msg_count
6009: ,x_msg_data => x_msg_data);
6010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6003: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6004: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6005: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6006: 'Calling okl_api.end_activity');
6007: okl_api.end_activity(
6008: x_msg_count => x_msg_count
6009: ,x_msg_data => x_msg_data);
6010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6011: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
6008: x_msg_count => x_msg_count
6009: ,x_msg_data => x_msg_data);
6010: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6011: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
6012: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6013: EXCEPTION
6014: ------------------------------------------------------------
6015: -- Exception handling
6016: ------------------------------------------------------------
6013: EXCEPTION
6014: ------------------------------------------------------------
6015: -- Exception handling
6016: ------------------------------------------------------------
6017: WHEN OKL_API.G_EXCEPTION_ERROR
6018: THEN
6019: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6020: p_api_name => l_api_name
6021: ,p_pkg_name => G_PKG_NAME
6015: -- Exception handling
6016: ------------------------------------------------------------
6017: WHEN OKL_API.G_EXCEPTION_ERROR
6018: THEN
6019: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6020: p_api_name => l_api_name
6021: ,p_pkg_name => G_PKG_NAME
6022: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6023: ,x_msg_count => x_msg_count
6018: THEN
6019: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6020: p_api_name => l_api_name
6021: ,p_pkg_name => G_PKG_NAME
6022: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6023: ,x_msg_count => x_msg_count
6024: ,x_msg_data => x_msg_data
6025: ,p_api_type => '_PVT');
6026: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6022: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6023: ,x_msg_count => x_msg_count
6024: ,x_msg_data => x_msg_data
6025: ,p_api_type => '_PVT');
6026: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6027: THEN
6028: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6029: p_api_name => l_api_name
6030: ,p_pkg_name => G_PKG_NAME
6024: ,x_msg_data => x_msg_data
6025: ,p_api_type => '_PVT');
6026: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6027: THEN
6028: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6029: p_api_name => l_api_name
6030: ,p_pkg_name => G_PKG_NAME
6031: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6032: ,x_msg_count => x_msg_count
6027: THEN
6028: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6029: p_api_name => l_api_name
6030: ,p_pkg_name => G_PKG_NAME
6031: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6032: ,x_msg_count => x_msg_count
6033: ,x_msg_data => x_msg_data
6034: ,p_api_type => '_PVT');
6035: WHEN OTHERS
6033: ,x_msg_data => x_msg_data
6034: ,p_api_type => '_PVT');
6035: WHEN OTHERS
6036: THEN
6037: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6038: p_api_name => l_api_name
6039: ,p_pkg_name => G_PKG_NAME
6040: ,p_exc_name => 'OTHERS'
6041: ,x_msg_count => x_msg_count
6057: -- Declare Process Variable
6058: -----------------------------------------------------------------
6059: l_api_version CONSTANT NUMBER := 1;
6060: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
6061: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6062: rxl_index BINARY_INTEGER;
6063: l_rxhv_rec okl_rxh_pvt.rxhv_rec_type;
6064: l_rxlv_tbl okl_rxl_pvt.rxlv_tbl_type;
6065: lx_rxhv_rec okl_rxh_pvt.rxhv_rec_type;
6093: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6094: 'begin debug OKLRSLAB.pls call ' || l_api_name);
6095: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6096: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6097: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6098: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6099: 'Calling OKL_API.START_ACTIVITY');
6100: l_return_status := OKL_API.START_ACTIVITY(
6101: p_api_name => l_api_name
6095: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6096: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6097: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6098: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6099: 'Calling OKL_API.START_ACTIVITY');
6100: l_return_status := OKL_API.START_ACTIVITY(
6101: p_api_name => l_api_name
6102: ,p_pkg_name => g_pkg_name
6103: ,p_init_msg_list => p_init_msg_list
6096: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6097: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6098: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6099: 'Calling OKL_API.START_ACTIVITY');
6100: l_return_status := OKL_API.START_ACTIVITY(
6101: p_api_name => l_api_name
6102: ,p_pkg_name => g_pkg_name
6103: ,p_init_msg_list => p_init_msg_list
6104: ,l_api_version => l_api_version
6104: ,l_api_version => l_api_version
6105: ,p_api_version => p_api_version
6106: ,p_api_type => '_PVT'
6107: ,x_return_status => l_return_status);
6108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6105: ,p_api_version => p_api_version
6106: ,p_api_type => '_PVT'
6107: ,x_return_status => l_return_status);
6108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: -- Actual Logic Starts Here ..
6106: ,p_api_type => '_PVT'
6107: ,x_return_status => l_return_status);
6108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: -- Actual Logic Starts Here ..
6114: l_rxhv_rec := p_rxhv_rec;
6107: ,x_return_status => l_return_status);
6108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: -- Actual Logic Starts Here ..
6114: l_rxhv_rec := p_rxhv_rec;
6115: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6113: -- Actual Logic Starts Here ..
6114: l_rxhv_rec := p_rxhv_rec;
6115: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6116: 'Source ID=' || to_char(l_rxhv_rec.source_id) || 'Source Header Table=' || l_rxhv_rec.source_table );
6117: IF ( l_rxhv_rec.source_id = OKL_API.G_MISS_NUM or l_rxhv_rec.source_id IS NULL )
6118: THEN
6119: OKL_API.set_message(
6120: p_app_name => G_APP_NAME
6121: ,p_msg_name => G_INVALID_VALUE
6115: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6116: 'Source ID=' || to_char(l_rxhv_rec.source_id) || 'Source Header Table=' || l_rxhv_rec.source_table );
6117: IF ( l_rxhv_rec.source_id = OKL_API.G_MISS_NUM or l_rxhv_rec.source_id IS NULL )
6118: THEN
6119: OKL_API.set_message(
6120: p_app_name => G_APP_NAME
6121: ,p_msg_name => G_INVALID_VALUE
6122: ,p_token1 => G_COL_NAME_TOKEN
6123: ,p_token1_value => 'HEADER.SOURCE_ID');
6120: p_app_name => G_APP_NAME
6121: ,p_msg_name => G_INVALID_VALUE
6122: ,p_token1 => G_COL_NAME_TOKEN
6123: ,p_token1_value => 'HEADER.SOURCE_ID');
6124: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6126: END IF;
6127: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6128: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6121: ,p_msg_name => G_INVALID_VALUE
6122: ,p_token1 => G_COL_NAME_TOKEN
6123: ,p_token1_value => 'HEADER.SOURCE_ID');
6124: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6126: END IF;
6127: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6128: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6129: THEN
6123: ,p_token1_value => 'HEADER.SOURCE_ID');
6124: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6126: END IF;
6127: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6128: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6129: THEN
6130: OKL_API.set_message(
6131: p_app_name => G_APP_NAME
6126: END IF;
6127: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6128: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6129: THEN
6130: OKL_API.set_message(
6131: p_app_name => G_APP_NAME
6132: ,p_msg_name => G_INVALID_VALUE
6133: ,p_token1 => G_COL_NAME_TOKEN
6134: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6131: p_app_name => G_APP_NAME
6132: ,p_msg_name => G_INVALID_VALUE
6133: ,p_token1 => G_COL_NAME_TOKEN
6134: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6135: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6137: END IF;
6138: -- Initialize the rxl_index
6139: rxl_index := 1;
6132: ,p_msg_name => G_INVALID_VALUE
6133: ,p_token1 => G_COL_NAME_TOKEN
6134: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6135: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6137: END IF;
6138: -- Initialize the rxl_index
6139: rxl_index := 1;
6140: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6174: );
6175: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6176: 'After okl_ar_extension_pvt.delete_rxh_extension: l_return_status ' || l_return_status );
6177: -- Check the return status and if errored, return the error back
6178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6179: THEN
6180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6182: RAISE OKL_API.G_EXCEPTION_ERROR;
6176: 'After okl_ar_extension_pvt.delete_rxh_extension: l_return_status ' || l_return_status );
6177: -- Check the return status and if errored, return the error back
6178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6179: THEN
6180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6182: RAISE OKL_API.G_EXCEPTION_ERROR;
6183: END IF;
6184: END LOOP; -- Loop on the get_ar_ext_hdr_id
6177: -- Check the return status and if errored, return the error back
6178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6179: THEN
6180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6182: RAISE OKL_API.G_EXCEPTION_ERROR;
6183: END IF;
6184: END LOOP; -- Loop on the get_ar_ext_hdr_id
6185: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6179: THEN
6180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6182: RAISE OKL_API.G_EXCEPTION_ERROR;
6183: END IF;
6184: END LOOP; -- Loop on the get_ar_ext_hdr_id
6185: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6186: x_rxlv_tbl := l_rxlv_tbl;
6184: END LOOP; -- Loop on the get_ar_ext_hdr_id
6185: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6186: x_rxlv_tbl := l_rxlv_tbl;
6187: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6188: 'Calling okl_api.end_activity');
6189: okl_api.end_activity(
6190: x_msg_count => x_msg_count
6191: ,x_msg_data => x_msg_data);
6192: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6185: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6186: x_rxlv_tbl := l_rxlv_tbl;
6187: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6188: 'Calling okl_api.end_activity');
6189: okl_api.end_activity(
6190: x_msg_count => x_msg_count
6191: ,x_msg_data => x_msg_data);
6192: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6193: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6190: x_msg_count => x_msg_count
6191: ,x_msg_data => x_msg_data);
6192: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6193: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6194: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6195: EXCEPTION
6196: ------------------------------------------------------------
6197: -- Exception handling
6198: ------------------------------------------------------------
6195: EXCEPTION
6196: ------------------------------------------------------------
6197: -- Exception handling
6198: ------------------------------------------------------------
6199: WHEN OKL_API.G_EXCEPTION_ERROR
6200: THEN
6201: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6202: p_api_name => l_api_name
6203: ,p_pkg_name => G_PKG_NAME
6197: -- Exception handling
6198: ------------------------------------------------------------
6199: WHEN OKL_API.G_EXCEPTION_ERROR
6200: THEN
6201: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6202: p_api_name => l_api_name
6203: ,p_pkg_name => G_PKG_NAME
6204: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6205: ,x_msg_count => x_msg_count
6200: THEN
6201: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6202: p_api_name => l_api_name
6203: ,p_pkg_name => G_PKG_NAME
6204: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6205: ,x_msg_count => x_msg_count
6206: ,x_msg_data => x_msg_data
6207: ,p_api_type => '_PVT');
6208: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6204: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6205: ,x_msg_count => x_msg_count
6206: ,x_msg_data => x_msg_data
6207: ,p_api_type => '_PVT');
6208: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6209: THEN
6210: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6211: p_api_name => l_api_name
6212: ,p_pkg_name => G_PKG_NAME
6206: ,x_msg_data => x_msg_data
6207: ,p_api_type => '_PVT');
6208: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6209: THEN
6210: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6211: p_api_name => l_api_name
6212: ,p_pkg_name => G_PKG_NAME
6213: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6214: ,x_msg_count => x_msg_count
6209: THEN
6210: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6211: p_api_name => l_api_name
6212: ,p_pkg_name => G_PKG_NAME
6213: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6214: ,x_msg_count => x_msg_count
6215: ,x_msg_data => x_msg_data
6216: ,p_api_type => '_PVT');
6217: WHEN OTHERS
6215: ,x_msg_data => x_msg_data
6216: ,p_api_type => '_PVT');
6217: WHEN OTHERS
6218: THEN
6219: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6220: p_api_name => l_api_name
6221: ,p_pkg_name => G_PKG_NAME
6222: ,p_exc_name => 'OTHERS'
6223: ,x_msg_count => x_msg_count
6415: -- Declare Process Variable
6416: -----------------------------------------------------------------
6417: l_api_version CONSTANT NUMBER := 1;
6418: l_api_name CONSTANT VARCHAR2(30) := 'populate_ap_sources';
6419: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6420: -----------------------------------------------------------------
6421: -- Local Variables
6422: -----------------------------------------------------------------
6423: l_khr_id NUMBER;
6472: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6473: 'begin debug OKLRSLAB.pls call ' || l_api_name);
6474: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6475: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6476: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6477: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6478: 'Calling OKL_API.START_ACTIVITY');
6479: l_return_status := OKL_API.START_ACTIVITY(
6480: p_api_name => l_api_name
6474: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6475: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6476: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6477: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6478: 'Calling OKL_API.START_ACTIVITY');
6479: l_return_status := OKL_API.START_ACTIVITY(
6480: p_api_name => l_api_name
6481: ,p_pkg_name => g_pkg_name
6482: ,p_init_msg_list => p_init_msg_list
6475: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6476: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6477: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6478: 'Calling OKL_API.START_ACTIVITY');
6479: l_return_status := OKL_API.START_ACTIVITY(
6480: p_api_name => l_api_name
6481: ,p_pkg_name => g_pkg_name
6482: ,p_init_msg_list => p_init_msg_list
6483: ,l_api_version => l_api_version
6483: ,l_api_version => l_api_version
6484: ,p_api_version => p_api_version
6485: ,p_api_type => '_PVT'
6486: ,x_return_status => l_return_status);
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6484: ,p_api_version => p_api_version
6485: ,p_api_type => '_PVT'
6486: ,x_return_status => l_return_status);
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492: -- Validations to be done
6485: ,p_api_type => '_PVT'
6486: ,x_return_status => l_return_status);
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492: -- Validations to be done
6493: -- Validation 1:
6486: ,x_return_status => l_return_status);
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492: -- Validations to be done
6493: -- Validation 1:
6494: -- The following attributes should not be NULL
6494: -- The following attributes should not be NULL
6495: -- dnz_khr_id, kle_id, try_id, source_id, sty_id
6496: l_pk_attributes := NULL;
6497: IF p_pxhv_rec.source_id IS NULL OR
6498: p_pxhv_rec.source_id = OKL_API.G_MISS_NUM
6499: THEN
6500: IF l_pk_attributes IS NOT NULL
6501: THEN
6502: l_pk_attributes := l_pk_attributes || ' , ';
6503: END IF;
6504: l_pk_attributes := l_pk_attributes || 'PXH.SOURCE_ID';
6505: END IF;
6506: IF p_pxhv_rec.source_table IS NULL OR
6507: p_pxhv_rec.source_table = OKL_API.G_MISS_CHAR
6508: THEN
6509: IF l_pk_attributes IS NOT NULL
6510: THEN
6511: l_pk_attributes := l_pk_attributes || ' , ';
6512: END IF;
6513: l_pk_attributes := l_pk_attributes || 'PXH.SOURCE_TABLE';
6514: END IF;
6515: IF p_pxhv_rec.khr_id IS NULL OR
6516: p_pxhv_rec.khr_id = OKL_API.G_MISS_NUM
6517: THEN
6518: IF l_pk_attributes IS NOT NULL
6519: THEN
6520: l_pk_attributes := l_pk_attributes || ' , ';
6521: END IF;
6522: l_pk_attributes := l_pk_attributes || 'KHR_ID';
6523: END IF;
6524: IF p_pxhv_rec.try_id IS NULL OR
6525: p_pxhv_rec.try_id = OKL_API.G_MISS_NUM
6526: THEN
6527: IF l_pk_attributes IS NOT NULL
6528: THEN
6529: l_pk_attributes := l_pk_attributes || ' , ';
6530: END IF;
6531: l_pk_attributes := l_pk_attributes || 'TRY_ID';
6532: END IF;
6533: IF p_pxlv_rec.source_id IS NULL OR
6534: p_pxlv_rec.source_id = OKL_API.G_MISS_NUM
6535: THEN
6536: IF l_pk_attributes IS NOT NULL
6537: THEN
6538: l_pk_attributes := l_pk_attributes || ' , ';
6539: END IF;
6540: l_pk_attributes := l_pk_attributes || 'PXL.SOURCE_ID';
6541: END IF;
6542: IF p_pxlv_rec.source_table IS NULL OR
6543: p_pxlv_rec.source_table = OKL_API.G_MISS_CHAR
6544: THEN
6545: IF l_pk_attributes IS NOT NULL
6546: THEN
6547: l_pk_attributes := l_pk_attributes || ' , ';
6548: END IF;
6549: l_pk_attributes := l_pk_attributes || 'PXL.SOURCE_TABLE';
6550: END IF;
6551: IF p_pxlv_rec.sty_id IS NULL OR
6552: p_pxlv_rec.sty_id = OKL_API.G_MISS_NUM
6553: THEN
6554: IF l_pk_attributes IS NOT NULL
6555: THEN
6556: l_pk_attributes := l_pk_attributes || ' , ';
6559: END IF;
6560: IF LENGTH(l_pk_attributes) > 0
6561: THEN
6562: -- Raise an Exception
6563: OKL_API.set_message(
6564: p_app_name => G_APP_NAME
6565: ,p_msg_name => G_INVALID_VALUE
6566: ,p_token1 => G_COL_NAME_TOKEN
6567: ,p_token1_value => l_pk_attributes);
6564: p_app_name => G_APP_NAME
6565: ,p_msg_name => G_INVALID_VALUE
6566: ,p_token1 => G_COL_NAME_TOKEN
6567: ,p_token1_value => l_pk_attributes);
6568: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: END IF;
6571: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6572: 'Validation 1 Successfull !');
6565: ,p_msg_name => G_INVALID_VALUE
6566: ,p_token1 => G_COL_NAME_TOKEN
6567: ,p_token1_value => l_pk_attributes);
6568: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: END IF;
6571: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6572: 'Validation 1 Successfull !');
6573: -- Validation 2:
6574: -- Source Table should be OKL_TXL_AP_INV_LNS_B
6575: IF p_pxlv_rec.source_table NOT IN ( G_TXL_AP_INV_LNS_B )
6576: THEN
6577: -- Raise an Exception
6578: OKL_API.set_message(
6579: p_app_name => G_APP_NAME
6580: ,p_msg_name => G_INVALID_VALUE
6581: ,p_token1 => G_COL_NAME_TOKEN
6582: ,p_token1_value => 'SOURCE_TABLE');
6579: p_app_name => G_APP_NAME
6580: ,p_msg_name => G_INVALID_VALUE
6581: ,p_token1 => G_COL_NAME_TOKEN
6582: ,p_token1_value => 'SOURCE_TABLE');
6583: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6585: END IF;
6586: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6587: 'Validation 2 Successfull !');
6580: ,p_msg_name => G_INVALID_VALUE
6581: ,p_token1 => G_COL_NAME_TOKEN
6582: ,p_token1_value => 'SOURCE_TABLE');
6583: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6585: END IF;
6586: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6587: 'Validation 2 Successfull !');
6588: -- Copy input rec to local variable
6607:
6608: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6609: '**** KLE_ID = ' || l_kle_id );
6610: IF l_kle_id IS NOT NULL OR
6611: l_kle_id <> OKL_API.G_MISS_NUM
6612: THEN
6613: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6614: 'Executing the Cursor get_line_style_csr kle_id=' || l_pxl_rec.kle_id );
6615: FOR t_rec IN get_line_style_csr(p_kle_id => l_pxl_rec.kle_id )
6621: END IF;
6622: END LOOP;
6623: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6624: '**** LINE STYLE = ' || l_line_style || ' PARENT LINE ID = ' || l_parent_line_id );
6625: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
6626:
6627: -- Fetch ledger id and ledger language associated to the contracts
6628: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6629: 'Executing the Cursor c_khr_to_ledger_id_csr. p_khr_id=' || TO_CHAR(l_khr_id));
6685: ,x_msg_data => x_msg_data );
6686: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6687: 'After populate_khr_sources: l_return_status ' || l_return_status );
6688: -- Check the return status and if errored, return the error back
6689: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6691: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6692: RAISE OKL_API.G_EXCEPTION_ERROR;
6693: END IF;
6686: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6687: 'After populate_khr_sources: l_return_status ' || l_return_status );
6688: -- Check the return status and if errored, return the error back
6689: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6691: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6692: RAISE OKL_API.G_EXCEPTION_ERROR;
6693: END IF;
6694: -- Assign the KHR Sources to the pxhv_rec
6687: 'After populate_khr_sources: l_return_status ' || l_return_status );
6688: -- Check the return status and if errored, return the error back
6689: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6691: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6692: RAISE OKL_API.G_EXCEPTION_ERROR;
6693: END IF;
6694: -- Assign the KHR Sources to the pxhv_rec
6695: assign_khr_rec_to_pxh_rec(
6688: -- Check the return status and if errored, return the error back
6689: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6691: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6692: RAISE OKL_API.G_EXCEPTION_ERROR;
6693: END IF;
6694: -- Assign the KHR Sources to the pxhv_rec
6695: assign_khr_rec_to_pxh_rec(
6696: p_khr_source_rec => l_khr_source_rec
6716: END LOOP; -- End for c_trx_type_name_csr
6717: END LOOP;
6718:
6719: IF(p_acc_sources_rec.jtf_sales_reps_pk IS NOT NULL AND
6720: p_acc_sources_rec.jtf_sales_reps_pk <> OKL_API.G_MISS_CHAR) THEN
6721: -- Need to populate the Sales Representative Name
6722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6723: 'Executing the Cursor c_sales_rep_acc_sources_csr. l_sales_rep_id = ' ||
6724: TO_CHAR(p_acc_sources_rec.jtf_sales_reps_pk) );
6750: );
6751: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6752: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6753: -- Check the return status and if errored, return the error back
6754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6757: RAISE OKL_API.G_EXCEPTION_ERROR;
6758: END IF;
6751: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6752: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6753: -- Check the return status and if errored, return the error back
6754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6757: RAISE OKL_API.G_EXCEPTION_ERROR;
6758: END IF;
6759: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6752: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6753: -- Check the return status and if errored, return the error back
6754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6757: RAISE OKL_API.G_EXCEPTION_ERROR;
6758: END IF;
6759: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6760: l_header_extension_id := lx_pxh_rec.header_extension_id;
6753: -- Check the return status and if errored, return the error back
6754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6757: RAISE OKL_API.G_EXCEPTION_ERROR;
6758: END IF;
6759: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6760: l_header_extension_id := lx_pxh_rec.header_extension_id;
6761: END IF;
6759: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6760: l_header_extension_id := lx_pxh_rec.header_extension_id;
6761: END IF;
6762: IF l_kle_id IS NOT NULL OR
6763: l_kle_id <> OKL_API.G_MISS_NUM
6764: THEN
6765: -- Start populating the Sources at the Extension Line Level
6766: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
6767: l_kle_source_rec.khr_id := l_khr_id;
6785: ,x_msg_data => x_msg_data );
6786: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6787: 'After populate_kle_sources: l_return_status ' || l_return_status );
6788: -- Check the return status and if errored, return the error back
6789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6793: END IF;
6786: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6787: 'After populate_kle_sources: l_return_status ' || l_return_status );
6788: -- Check the return status and if errored, return the error back
6789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6793: END IF;
6794: -- calling assign_kle_rec_to_pxlv_rec
6787: 'After populate_kle_sources: l_return_status ' || l_return_status );
6788: -- Check the return status and if errored, return the error back
6789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6793: END IF;
6794: -- calling assign_kle_rec_to_pxlv_rec
6795: assign_kle_rec_to_pxl_rec(
6788: -- Check the return status and if errored, return the error back
6789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6792: RAISE OKL_API.G_EXCEPTION_ERROR;
6793: END IF;
6794: -- calling assign_kle_rec_to_pxlv_rec
6795: assign_kle_rec_to_pxl_rec(
6796: p_kle_source_rec => l_kle_source_rec
6806: --ELSE
6807: -- Populate the l_pxlv_rec with the khr_id, ledger_language
6808: -- but not with the kle_id
6809: --l_pxlv_rec.language := l_ledger_language ;
6810: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
6811:
6812: -- Stamp the Header Extension ID on the Extension Line Table
6813: l_pxl_rec.header_extension_id := l_header_extension_id;
6814:
6875: l_pxl_rec.asset_category_name := t_rec.asset_category_name;
6876: END LOOP; -- End for c_manufacture_model_csr
6877:
6878: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
6879: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR AND
6880: p_acc_sources_rec.inventory_item_id_pk1 IS NOT NULL AND
6881: p_acc_sources_rec.inventory_item_id_pk1 <> OKL_API.G_MISS_CHAR) THEN
6882: FOR tl_sources_in IN l_pxll_tbl.FIRST .. l_pxll_tbl.LAST
6883: LOOP
6877:
6878: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
6879: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR AND
6880: p_acc_sources_rec.inventory_item_id_pk1 IS NOT NULL AND
6881: p_acc_sources_rec.inventory_item_id_pk1 <> OKL_API.G_MISS_CHAR) THEN
6882: FOR tl_sources_in IN l_pxll_tbl.FIRST .. l_pxll_tbl.LAST
6883: LOOP
6884: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6885: 'Executing the Cursor c_inventory_item_name_csr. p_inventory_item_id_pk1= ' ||
6896: END LOOP;
6897: END LOOP;
6898: END IF;
6899: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
6900: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR) THEN
6901: -- Populate Inventory Organization Name
6902: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6903: '*** AGS Inventory Org ID used to fetch teh Inventory Organization Code : Org ID=' ||
6904: p_acc_sources_rec.inventory_org_id_pk2 );
6939: ,x_pxll_tbl => lx_pxll_tbl
6940: );
6941: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6942: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
6943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6940: );
6941: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6942: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
6943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6948: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6941: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6942: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
6943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6948: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6949: 'Calling okl_api.end_activity');
6942: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
6943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6948: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6949: 'Calling okl_api.end_activity');
6950: okl_api.end_activity(
6945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6948: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6949: 'Calling okl_api.end_activity');
6950: okl_api.end_activity(
6951: x_msg_count => x_msg_count
6952: ,x_msg_data => x_msg_data);
6953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6946: RAISE OKL_API.G_EXCEPTION_ERROR;
6947: END IF;
6948: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6949: 'Calling okl_api.end_activity');
6950: okl_api.end_activity(
6951: x_msg_count => x_msg_count
6952: ,x_msg_data => x_msg_data);
6953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6954: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6951: x_msg_count => x_msg_count
6952: ,x_msg_data => x_msg_data);
6953: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6954: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6956: EXCEPTION
6957: ------------------------------------------------------------
6958: -- Exception handling
6959: ------------------------------------------------------------
6956: EXCEPTION
6957: ------------------------------------------------------------
6958: -- Exception handling
6959: ------------------------------------------------------------
6960: WHEN OKL_API.G_EXCEPTION_ERROR
6961: THEN
6962: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6963: p_api_name => l_api_name
6964: ,p_pkg_name => G_PKG_NAME
6958: -- Exception handling
6959: ------------------------------------------------------------
6960: WHEN OKL_API.G_EXCEPTION_ERROR
6961: THEN
6962: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6963: p_api_name => l_api_name
6964: ,p_pkg_name => G_PKG_NAME
6965: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6966: ,x_msg_count => x_msg_count
6961: THEN
6962: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6963: p_api_name => l_api_name
6964: ,p_pkg_name => G_PKG_NAME
6965: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6966: ,x_msg_count => x_msg_count
6967: ,x_msg_data => x_msg_data
6968: ,p_api_type => '_PVT');
6969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6965: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6966: ,x_msg_count => x_msg_count
6967: ,x_msg_data => x_msg_data
6968: ,p_api_type => '_PVT');
6969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6970: THEN
6971: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6972: p_api_name => l_api_name
6973: ,p_pkg_name => G_PKG_NAME
6967: ,x_msg_data => x_msg_data
6968: ,p_api_type => '_PVT');
6969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6970: THEN
6971: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6972: p_api_name => l_api_name
6973: ,p_pkg_name => G_PKG_NAME
6974: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6975: ,x_msg_count => x_msg_count
6970: THEN
6971: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6972: p_api_name => l_api_name
6973: ,p_pkg_name => G_PKG_NAME
6974: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6975: ,x_msg_count => x_msg_count
6976: ,x_msg_data => x_msg_data
6977: ,p_api_type => '_PVT');
6978: WHEN OTHERS
6976: ,x_msg_data => x_msg_data
6977: ,p_api_type => '_PVT');
6978: WHEN OTHERS
6979: THEN
6980: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6981: p_api_name => l_api_name
6982: ,p_pkg_name => G_PKG_NAME
6983: ,p_exc_name => 'OTHERS'
6984: ,x_msg_count => x_msg_count
7039: -- Declare Process Variable
7040: -----------------------------------------------------------------
7041: l_api_version CONSTANT NUMBER := 1;
7042: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-AP';
7043: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7044:
7045: -----------------------------------------------------------------
7046: -- Local Variables
7047: -----------------------------------------------------------------
7064: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7065: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7066: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7067: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7068: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7069: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7070: 'Calling OKL_API.START_ACTIVITY');
7071: l_return_status := OKL_API.START_ACTIVITY(
7072: p_api_name => l_api_name
7066: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7067: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7068: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7069: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7070: 'Calling OKL_API.START_ACTIVITY');
7071: l_return_status := OKL_API.START_ACTIVITY(
7072: p_api_name => l_api_name
7073: ,p_pkg_name => g_pkg_name
7074: ,p_init_msg_list => p_init_msg_list
7067: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7068: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7069: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7070: 'Calling OKL_API.START_ACTIVITY');
7071: l_return_status := OKL_API.START_ACTIVITY(
7072: p_api_name => l_api_name
7073: ,p_pkg_name => g_pkg_name
7074: ,p_init_msg_list => p_init_msg_list
7075: ,l_api_version => l_api_version
7075: ,l_api_version => l_api_version
7076: ,p_api_version => p_api_version
7077: ,p_api_type => '_PVT'
7078: ,x_return_status => l_return_status);
7079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7082: RAISE OKL_API.G_EXCEPTION_ERROR;
7083: END IF;
7076: ,p_api_version => p_api_version
7077: ,p_api_type => '_PVT'
7078: ,x_return_status => l_return_status);
7079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7082: RAISE OKL_API.G_EXCEPTION_ERROR;
7083: END IF;
7084:
7077: ,p_api_type => '_PVT'
7078: ,x_return_status => l_return_status);
7079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7082: RAISE OKL_API.G_EXCEPTION_ERROR;
7083: END IF;
7084:
7085: -- Validation 1: Source ID and Source Table should not be NULL in the
7078: ,x_return_status => l_return_status);
7079: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7081: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7082: RAISE OKL_API.G_EXCEPTION_ERROR;
7083: END IF;
7084:
7085: -- Validation 1: Source ID and Source Table should not be NULL in the
7086: -- AP Extension Header Record Structure
7086: -- AP Extension Header Record Structure
7087: IF (p_pxhv_rec.source_id IS NULL OR
7088: p_pxhv_rec.source_table IS NULL)
7089: THEN
7090: OKL_API.set_message(
7091: p_app_name => G_APP_NAME
7092: ,p_msg_name => G_INVALID_VALUE
7093: ,p_token1 => G_COL_NAME_TOKEN
7094: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7091: p_app_name => G_APP_NAME
7092: ,p_msg_name => G_INVALID_VALUE
7093: ,p_token1 => G_COL_NAME_TOKEN
7094: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7095: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7097: END IF;
7098:
7099: -- Validation 2: The Header Source Table should be the
7092: ,p_msg_name => G_INVALID_VALUE
7093: ,p_token1 => G_COL_NAME_TOKEN
7094: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7095: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7097: END IF;
7098:
7099: -- Validation 2: The Header Source Table should be the
7100: -- OKL AP Invoice Trx Header . Header table only
7100: -- OKL AP Invoice Trx Header . Header table only
7101: -- ie. it should be okl_trx_ap_invoices_b only
7102: IF (p_pxhv_rec.source_table <> G_TRX_AP_INVOICES_B)
7103: THEN
7104: OKL_API.set_message(
7105: p_app_name => G_APP_NAME
7106: ,p_msg_name => G_INVALID_VALUE
7107: ,p_token1 => G_COL_NAME_TOKEN
7108: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7105: p_app_name => G_APP_NAME
7106: ,p_msg_name => G_INVALID_VALUE
7107: ,p_token1 => G_COL_NAME_TOKEN
7108: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7109: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: END IF;
7112:
7113: -- Copy to local variables
7106: ,p_msg_name => G_INVALID_VALUE
7107: ,p_token1 => G_COL_NAME_TOKEN
7108: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7109: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: END IF;
7112:
7113: -- Copy to local variables
7114: l_pxhv_rec := p_pxhv_rec;
7118: -- Validation 3: There should be atleast one Transaction Detail Line
7119: -- for which the Populate AP Sources should be called
7120: IF l_pxlv_tbl.COUNT = 0
7121: THEN
7122: OKL_API.set_message(
7123: p_app_name => G_APP_NAME
7124: ,p_msg_name => G_INVALID_VALUE
7125: ,p_token1 => G_COL_NAME_TOKEN
7126: ,p_token1_value => 'PXLV_TBL.COUNT()');
7123: p_app_name => G_APP_NAME
7124: ,p_msg_name => G_INVALID_VALUE
7125: ,p_token1 => G_COL_NAME_TOKEN
7126: ,p_token1_value => 'PXLV_TBL.COUNT()');
7127: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7129: END IF;
7130:
7131: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7124: ,p_msg_name => G_INVALID_VALUE
7125: ,p_token1 => G_COL_NAME_TOKEN
7126: ,p_token1_value => 'PXLV_TBL.COUNT()');
7127: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7129: END IF;
7130:
7131: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7132: IF l_pxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
7130:
7131: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7132: IF l_pxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
7133: THEN
7134: OKL_API.set_message(
7135: p_app_name => G_APP_NAME
7136: ,p_msg_name => G_INVALID_VALUE
7137: ,p_token1 => G_COL_NAME_TOKEN
7138: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7135: p_app_name => G_APP_NAME
7136: ,p_msg_name => G_INVALID_VALUE
7137: ,p_token1 => G_COL_NAME_TOKEN
7138: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7139: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: END IF;
7142:
7143: -- Loop on the details for the current transaction header
7136: ,p_msg_name => G_INVALID_VALUE
7137: ,p_token1 => G_COL_NAME_TOKEN
7138: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7139: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: END IF;
7142:
7143: -- Loop on the details for the current transaction header
7144: -- Call the populate_ap_sources
7199: IF l_acc_srcs_index IS NULL OR
7200: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
7201: THEN
7202: -- accounting_event_class_code is missing
7203: OKL_API.set_message(
7204: p_app_name => G_APP_NAME
7205: ,p_msg_name => G_INVALID_VALUE
7206: ,p_token1 => G_COL_NAME_TOKEN
7207: ,p_token1_value => 'AGS_SOURCES_INDEX');
7204: p_app_name => G_APP_NAME
7205: ,p_msg_name => G_INVALID_VALUE
7206: ,p_token1 => G_COL_NAME_TOKEN
7207: ,p_token1_value => 'AGS_SOURCES_INDEX');
7208: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: END IF; -- IF l_acc_sources_found = FALSE
7211:
7212: l_pxhv_rec.try_id := l_ap_fcase_tbl(tld_index).try_id;
7205: ,p_msg_name => G_INVALID_VALUE
7206: ,p_token1 => G_COL_NAME_TOKEN
7207: ,p_token1_value => 'AGS_SOURCES_INDEX');
7208: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7210: END IF; -- IF l_acc_sources_found = FALSE
7211:
7212: l_pxhv_rec.try_id := l_ap_fcase_tbl(tld_index).try_id;
7213: l_pxhv_rec.khr_id := l_ap_fcase_tbl(tld_index).khr_id;
7235: ,x_msg_data => x_msg_data);
7236: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7237: 'After populate_ap_sources: l_return_status ' || l_return_status );
7238: -- Check the return status and if errored, return the error back
7239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7242: RAISE OKL_API.G_EXCEPTION_ERROR;
7243: END IF;
7236: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7237: 'After populate_ap_sources: l_return_status ' || l_return_status );
7238: -- Check the return status and if errored, return the error back
7239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7242: RAISE OKL_API.G_EXCEPTION_ERROR;
7243: END IF;
7244: END IF; -- IF l_capture_sources = 'Y'
7237: 'After populate_ap_sources: l_return_status ' || l_return_status );
7238: -- Check the return status and if errored, return the error back
7239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7242: RAISE OKL_API.G_EXCEPTION_ERROR;
7243: END IF;
7244: END IF; -- IF l_capture_sources = 'Y'
7245: END LOOP; -- Loop on l_ap_fcase_tbl ..
7238: -- Check the return status and if errored, return the error back
7239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7242: RAISE OKL_API.G_EXCEPTION_ERROR;
7243: END IF;
7244: END IF; -- IF l_capture_sources = 'Y'
7245: END LOOP; -- Loop on l_ap_fcase_tbl ..
7246: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7243: END IF;
7244: END IF; -- IF l_capture_sources = 'Y'
7245: END LOOP; -- Loop on l_ap_fcase_tbl ..
7246: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7247: 'Calling okl_api.end_activity');
7248: okl_api.end_activity(
7249: x_msg_count => x_msg_count
7250: ,x_msg_data => x_msg_data);
7251: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7244: END IF; -- IF l_capture_sources = 'Y'
7245: END LOOP; -- Loop on l_ap_fcase_tbl ..
7246: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7247: 'Calling okl_api.end_activity');
7248: okl_api.end_activity(
7249: x_msg_count => x_msg_count
7250: ,x_msg_data => x_msg_data);
7251: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7252: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7249: x_msg_count => x_msg_count
7250: ,x_msg_data => x_msg_data);
7251: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7252: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7253: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7254: EXCEPTION
7255: ------------------------------------------------------------
7256: -- Exception handling
7257: ------------------------------------------------------------
7254: EXCEPTION
7255: ------------------------------------------------------------
7256: -- Exception handling
7257: ------------------------------------------------------------
7258: WHEN OKL_API.G_EXCEPTION_ERROR
7259: THEN
7260: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7261: p_api_name => l_api_name
7262: ,p_pkg_name => G_PKG_NAME
7256: -- Exception handling
7257: ------------------------------------------------------------
7258: WHEN OKL_API.G_EXCEPTION_ERROR
7259: THEN
7260: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7261: p_api_name => l_api_name
7262: ,p_pkg_name => G_PKG_NAME
7263: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7264: ,x_msg_count => x_msg_count
7259: THEN
7260: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7261: p_api_name => l_api_name
7262: ,p_pkg_name => G_PKG_NAME
7263: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7264: ,x_msg_count => x_msg_count
7265: ,x_msg_data => x_msg_data
7266: ,p_api_type => '_PVT');
7267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7263: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7264: ,x_msg_count => x_msg_count
7265: ,x_msg_data => x_msg_data
7266: ,p_api_type => '_PVT');
7267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7268: THEN
7269: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7270: p_api_name => l_api_name
7271: ,p_pkg_name => G_PKG_NAME
7265: ,x_msg_data => x_msg_data
7266: ,p_api_type => '_PVT');
7267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7268: THEN
7269: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7270: p_api_name => l_api_name
7271: ,p_pkg_name => G_PKG_NAME
7272: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7273: ,x_msg_count => x_msg_count
7268: THEN
7269: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7270: p_api_name => l_api_name
7271: ,p_pkg_name => G_PKG_NAME
7272: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7273: ,x_msg_count => x_msg_count
7274: ,x_msg_data => x_msg_data
7275: ,p_api_type => '_PVT');
7276: WHEN OTHERS
7274: ,x_msg_data => x_msg_data
7275: ,p_api_type => '_PVT');
7276: WHEN OTHERS
7277: THEN
7278: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7279: p_api_name => l_api_name
7280: ,p_pkg_name => G_PKG_NAME
7281: ,p_exc_name => 'OTHERS'
7282: ,x_msg_count => x_msg_count
7298: -- Declare Process Variable
7299: -----------------------------------------------------------------
7300: l_api_version CONSTANT NUMBER := 1;
7301: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_AP_EXTENSION';
7302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7303: pxl_index BINARY_INTEGER;
7304: l_pxhv_rec okl_pxh_pvt.pxhv_rec_type;
7305: l_pxlv_tbl okl_pxl_pvt.pxlv_tbl_type;
7306: lx_pxhv_rec okl_pxh_pvt.pxhv_rec_type;
7334: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7335: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7336: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7337: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7338: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7339: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7340: 'Calling OKL_API.START_ACTIVITY');
7341: l_return_status := OKL_API.START_ACTIVITY(
7342: p_api_name => l_api_name
7336: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7337: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7338: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7339: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7340: 'Calling OKL_API.START_ACTIVITY');
7341: l_return_status := OKL_API.START_ACTIVITY(
7342: p_api_name => l_api_name
7343: ,p_pkg_name => g_pkg_name
7344: ,p_init_msg_list => p_init_msg_list
7337: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7338: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7339: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7340: 'Calling OKL_API.START_ACTIVITY');
7341: l_return_status := OKL_API.START_ACTIVITY(
7342: p_api_name => l_api_name
7343: ,p_pkg_name => g_pkg_name
7344: ,p_init_msg_list => p_init_msg_list
7345: ,l_api_version => l_api_version
7345: ,l_api_version => l_api_version
7346: ,p_api_version => p_api_version
7347: ,p_api_type => '_PVT'
7348: ,x_return_status => l_return_status);
7349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_ERROR;
7353: END IF;
7346: ,p_api_version => p_api_version
7347: ,p_api_type => '_PVT'
7348: ,x_return_status => l_return_status);
7349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_ERROR;
7353: END IF;
7354: -- Actual Logic Starts Here ..
7347: ,p_api_type => '_PVT'
7348: ,x_return_status => l_return_status);
7349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_ERROR;
7353: END IF;
7354: -- Actual Logic Starts Here ..
7355: l_pxhv_rec := p_pxhv_rec;
7348: ,x_return_status => l_return_status);
7349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_ERROR;
7353: END IF;
7354: -- Actual Logic Starts Here ..
7355: l_pxhv_rec := p_pxhv_rec;
7356: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7354: -- Actual Logic Starts Here ..
7355: l_pxhv_rec := p_pxhv_rec;
7356: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7357: 'Source ID=' || to_char(l_pxhv_rec.source_id) || 'Source Header Table=' || l_pxhv_rec.source_table );
7358: IF ( l_pxhv_rec.source_id = OKL_API.G_MISS_NUM or l_pxhv_rec.source_id IS NULL )
7359: THEN
7360: OKL_API.set_message(
7361: p_app_name => G_APP_NAME
7362: ,p_msg_name => G_INVALID_VALUE
7356: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7357: 'Source ID=' || to_char(l_pxhv_rec.source_id) || 'Source Header Table=' || l_pxhv_rec.source_table );
7358: IF ( l_pxhv_rec.source_id = OKL_API.G_MISS_NUM or l_pxhv_rec.source_id IS NULL )
7359: THEN
7360: OKL_API.set_message(
7361: p_app_name => G_APP_NAME
7362: ,p_msg_name => G_INVALID_VALUE
7363: ,p_token1 => G_COL_NAME_TOKEN
7364: ,p_token1_value => 'HEADER.SOURCE_ID');
7361: p_app_name => G_APP_NAME
7362: ,p_msg_name => G_INVALID_VALUE
7363: ,p_token1 => G_COL_NAME_TOKEN
7364: ,p_token1_value => 'HEADER.SOURCE_ID');
7365: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7369: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7362: ,p_msg_name => G_INVALID_VALUE
7363: ,p_token1 => G_COL_NAME_TOKEN
7364: ,p_token1_value => 'HEADER.SOURCE_ID');
7365: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7369: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7370: THEN
7364: ,p_token1_value => 'HEADER.SOURCE_ID');
7365: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7369: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7370: THEN
7371: OKL_API.set_message(
7372: p_app_name => G_APP_NAME
7367: END IF;
7368: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7369: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7370: THEN
7371: OKL_API.set_message(
7372: p_app_name => G_APP_NAME
7373: ,p_msg_name => G_INVALID_VALUE
7374: ,p_token1 => G_COL_NAME_TOKEN
7375: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7372: p_app_name => G_APP_NAME
7373: ,p_msg_name => G_INVALID_VALUE
7374: ,p_token1 => G_COL_NAME_TOKEN
7375: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7376: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7378: END IF;
7379: -- Initialize the pxl_index
7380: pxl_index := 1;
7373: ,p_msg_name => G_INVALID_VALUE
7374: ,p_token1 => G_COL_NAME_TOKEN
7375: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7376: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7378: END IF;
7379: -- Initialize the pxl_index
7380: pxl_index := 1;
7381: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7415: );
7416: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7417: 'After okl_ap_extension_pvt.delete_pxh_extension: l_return_status ' || l_return_status );
7418: -- Check the return status and if errored, return the error back
7419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7420: THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7417: 'After okl_ap_extension_pvt.delete_pxh_extension: l_return_status ' || l_return_status );
7418: -- Check the return status and if errored, return the error back
7419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7420: THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: END LOOP; -- Loop on the get_ap_ext_hdr_id
7418: -- Check the return status and if errored, return the error back
7419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7420: THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: END LOOP; -- Loop on the get_ap_ext_hdr_id
7426: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7420: THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: END LOOP; -- Loop on the get_ap_ext_hdr_id
7426: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7427: x_pxlv_tbl := l_pxlv_tbl;
7425: END LOOP; -- Loop on the get_ap_ext_hdr_id
7426: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7427: x_pxlv_tbl := l_pxlv_tbl;
7428: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7429: 'Calling okl_api.end_activity');
7430: okl_api.end_activity(
7431: x_msg_count => x_msg_count
7432: ,x_msg_data => x_msg_data);
7433: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7426: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7427: x_pxlv_tbl := l_pxlv_tbl;
7428: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7429: 'Calling okl_api.end_activity');
7430: okl_api.end_activity(
7431: x_msg_count => x_msg_count
7432: ,x_msg_data => x_msg_data);
7433: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7434: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7431: x_msg_count => x_msg_count
7432: ,x_msg_data => x_msg_data);
7433: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7434: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7435: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7436: EXCEPTION
7437: ------------------------------------------------------------
7438: -- Exception handling
7439: ------------------------------------------------------------
7436: EXCEPTION
7437: ------------------------------------------------------------
7438: -- Exception handling
7439: ------------------------------------------------------------
7440: WHEN OKL_API.G_EXCEPTION_ERROR
7441: THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7443: p_api_name => l_api_name
7444: ,p_pkg_name => G_PKG_NAME
7438: -- Exception handling
7439: ------------------------------------------------------------
7440: WHEN OKL_API.G_EXCEPTION_ERROR
7441: THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7443: p_api_name => l_api_name
7444: ,p_pkg_name => G_PKG_NAME
7445: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7446: ,x_msg_count => x_msg_count
7441: THEN
7442: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7443: p_api_name => l_api_name
7444: ,p_pkg_name => G_PKG_NAME
7445: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7446: ,x_msg_count => x_msg_count
7447: ,x_msg_data => x_msg_data
7448: ,p_api_type => '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7445: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7446: ,x_msg_count => x_msg_count
7447: ,x_msg_data => x_msg_data
7448: ,p_api_type => '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7450: THEN
7451: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7452: p_api_name => l_api_name
7453: ,p_pkg_name => G_PKG_NAME
7447: ,x_msg_data => x_msg_data
7448: ,p_api_type => '_PVT');
7449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7450: THEN
7451: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7452: p_api_name => l_api_name
7453: ,p_pkg_name => G_PKG_NAME
7454: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7455: ,x_msg_count => x_msg_count
7450: THEN
7451: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7452: p_api_name => l_api_name
7453: ,p_pkg_name => G_PKG_NAME
7454: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7455: ,x_msg_count => x_msg_count
7456: ,x_msg_data => x_msg_data
7457: ,p_api_type => '_PVT');
7458: WHEN OTHERS
7456: ,x_msg_data => x_msg_data
7457: ,p_api_type => '_PVT');
7458: WHEN OTHERS
7459: THEN
7460: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7461: p_api_name => l_api_name
7462: ,p_pkg_name => G_PKG_NAME
7463: ,p_exc_name => 'OTHERS'
7464: ,x_msg_count => x_msg_count
7493: -- Declare Process Variable
7494: -----------------------------------------------------------------
7495: l_api_version CONSTANT NUMBER := 1;
7496: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-DEPRN';
7497: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7498: -----------------------------------------------------------------
7499: -- Local Variables
7500: -----------------------------------------------------------------
7501: l_khr_id NUMBER;
7548: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7549: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7550: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7551: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7552: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7553: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7554: 'Calling OKL_API.START_ACTIVITY');
7555: l_return_status := OKL_API.START_ACTIVITY(
7556: p_api_name => l_api_name
7550: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7551: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7552: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7553: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7554: 'Calling OKL_API.START_ACTIVITY');
7555: l_return_status := OKL_API.START_ACTIVITY(
7556: p_api_name => l_api_name
7557: ,p_pkg_name => g_pkg_name
7558: ,p_init_msg_list => p_init_msg_list
7551: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7552: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7553: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7554: 'Calling OKL_API.START_ACTIVITY');
7555: l_return_status := OKL_API.START_ACTIVITY(
7556: p_api_name => l_api_name
7557: ,p_pkg_name => g_pkg_name
7558: ,p_init_msg_list => p_init_msg_list
7559: ,l_api_version => l_api_version
7559: ,l_api_version => l_api_version
7560: ,p_api_version => p_api_version
7561: ,p_api_type => '_PVT'
7562: ,x_return_status => l_return_status);
7563: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7565: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_ERROR;
7567: END IF;
7560: ,p_api_version => p_api_version
7561: ,p_api_type => '_PVT'
7562: ,x_return_status => l_return_status);
7563: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7565: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_ERROR;
7567: END IF;
7568: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7561: ,p_api_type => '_PVT'
7562: ,x_return_status => l_return_status);
7563: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7565: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_ERROR;
7567: END IF;
7568: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7569: 'Before Performing validations');
7562: ,x_return_status => l_return_status);
7563: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7565: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_ERROR;
7567: END IF;
7568: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7569: 'Before Performing validations');
7570: -- Validations to be done:
7578: p_khr_id || ' | ' || p_deprn_run_id);
7579:
7580: l_pk_attributes := NULL;
7581: IF p_khr_ID IS NULL OR
7582: p_khr_ID = OKL_API.G_MISS_NUM
7583: THEN
7584: IF l_pk_attributes IS NOT NULL
7585: THEN
7586: l_pk_attributes := l_pk_attributes || ' , ';
7587: END IF;
7588: l_pk_attributes := l_pk_attributes || 'P_KHR_ID';
7589: END IF;
7590: IF p_deprn_run_id IS NULL OR
7591: p_deprn_run_id = OKL_API.G_MISS_NUM
7592: THEN
7593: IF l_pk_attributes IS NOT NULL
7594: THEN
7595: l_pk_attributes := l_pk_attributes || ' , ';
7596: END IF;
7597: l_pk_attributes := l_pk_attributes || 'P_DEPRN_RUN_ID';
7598: END IF;
7599: IF p_book_type_code IS NULL OR
7600: p_book_type_code = OKL_API.G_MISS_CHAR
7601: THEN
7602: IF l_pk_attributes IS NOT NULL
7603: THEN
7604: l_pk_attributes := l_pk_attributes || ' , ';
7605: END IF;
7606: l_pk_attributes := l_pk_attributes || 'P_BOOK_TYPE_CODE';
7607: END IF;
7608: IF p_period_counter IS NULL OR
7609: p_period_counter = OKL_API.G_MISS_NUM
7610: THEN
7611: IF l_pk_attributes IS NOT NULL
7612: THEN
7613: l_pk_attributes := l_pk_attributes || ' , ';
7616: END IF;
7617: IF LENGTH(l_pk_attributes) > 0
7618: THEN
7619: -- Raise an Exception
7620: OKL_API.set_message(
7621: p_app_name => G_APP_NAME
7622: ,p_msg_name => G_INVALID_VALUE
7623: ,p_token1 => G_COL_NAME_TOKEN
7624: ,p_token1_value => l_pk_attributes);
7621: p_app_name => G_APP_NAME
7622: ,p_msg_name => G_INVALID_VALUE
7623: ,p_token1 => G_COL_NAME_TOKEN
7624: ,p_token1_value => l_pk_attributes);
7625: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7627: END IF;
7628: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7629: 'Validation 1 Successfull !');
7622: ,p_msg_name => G_INVALID_VALUE
7623: ,p_token1 => G_COL_NAME_TOKEN
7624: ,p_token1_value => l_pk_attributes);
7625: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7627: END IF;
7628: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7629: 'Validation 1 Successfull !');
7630: -- Assign the p_deprn_asset_tbl to l_deprn_asset_tbl
7632: -- Validation 2: Atleast one KLE_ID has to be there to populate the source for ..
7633: IF l_deprn_asset_tbl.COUNT = 0
7634: THEN
7635: -- Raise an Exception
7636: OKL_API.set_message(
7637: p_app_name => G_APP_NAME
7638: ,p_msg_name => G_INVALID_VALUE
7639: ,p_token1 => G_COL_NAME_TOKEN
7640: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7637: p_app_name => G_APP_NAME
7638: ,p_msg_name => G_INVALID_VALUE
7639: ,p_token1 => G_COL_NAME_TOKEN
7640: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7641: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7643: END IF;
7644:
7645: -- Copy the Input Parameters to the Local Variables
7638: ,p_msg_name => G_INVALID_VALUE
7639: ,p_token1 => G_COL_NAME_TOKEN
7640: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7641: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7643: END IF;
7644:
7645: -- Copy the Input Parameters to the Local Variables
7646: l_khr_id := p_khr_id;
7705: ,x_msg_data => x_msg_data );
7706: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7707: 'After populate_khr_sources: l_return_status ' || l_return_status );
7708: -- Check the return status and if errored, return the error back
7709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_ERROR;
7713: END IF;
7706: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7707: 'After populate_khr_sources: l_return_status ' || l_return_status );
7708: -- Check the return status and if errored, return the error back
7709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_ERROR;
7713: END IF;
7714:
7707: 'After populate_khr_sources: l_return_status ' || l_return_status );
7708: -- Check the return status and if errored, return the error back
7709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_ERROR;
7713: END IF;
7714:
7715: --calling assign_khr_rec_to_fxhv_rec
7708: -- Check the return status and if errored, return the error back
7709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_ERROR;
7713: END IF;
7714:
7715: --calling assign_khr_rec_to_fxhv_rec
7716: assign_khr_rec_to_fxh_rec(
7770: );
7771: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7772: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
7773: -- Check the return status and if errored, return the error back
7774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7775: THEN
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_ERROR;
7772: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
7773: -- Check the return status and if errored, return the error back
7774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7775: THEN
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_ERROR;
7779: END IF;
7780: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7773: -- Check the return status and if errored, return the error back
7774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7775: THEN
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_ERROR;
7779: END IF;
7780: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7781: l_header_extension_id := lx_fxh_rec.header_extension_id;
7774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7775: THEN
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_ERROR;
7779: END IF;
7780: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7781: l_header_extension_id := lx_fxh_rec.header_extension_id;
7782: -- Initialize the l_line_index
7828: ,x_msg_data => x_msg_data );
7829: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7830: 'After populate_kle_sources: l_return_status ' || l_return_status );
7831: -- Check the return status and if errored, return the error back
7832: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7833: THEN
7834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7835: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7836: RAISE OKL_API.G_EXCEPTION_ERROR;
7830: 'After populate_kle_sources: l_return_status ' || l_return_status );
7831: -- Check the return status and if errored, return the error back
7832: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7833: THEN
7834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7835: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7836: RAISE OKL_API.G_EXCEPTION_ERROR;
7837: END IF;
7838: -- Assin the KLE Sources to the FA Extension Line
7831: -- Check the return status and if errored, return the error back
7832: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7833: THEN
7834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7835: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7836: RAISE OKL_API.G_EXCEPTION_ERROR;
7837: END IF;
7838: -- Assin the KLE Sources to the FA Extension Line
7839: assign_kle_rec_to_fxl_rec(
7832: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7833: THEN
7834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7835: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7836: RAISE OKL_API.G_EXCEPTION_ERROR;
7837: END IF;
7838: -- Assin the KLE Sources to the FA Extension Line
7839: assign_kle_rec_to_fxl_rec(
7840: p_kle_source_rec => l_kle_source_rec
7864: );
7865: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7866: 'After okl_fa_extension_pvt.create_fxl_extension-tbl Version: l_return_status ' || l_return_status );
7867: -- Check the return status and if errored, return the error back
7868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7869: THEN
7870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7872: THEN
7866: 'After okl_fa_extension_pvt.create_fxl_extension-tbl Version: l_return_status ' || l_return_status );
7867: -- Check the return status and if errored, return the error back
7868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7869: THEN
7870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7872: THEN
7873: RAISE OKL_API.G_EXCEPTION_ERROR;
7874: END IF;
7867: -- Check the return status and if errored, return the error back
7868: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7869: THEN
7870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7872: THEN
7873: RAISE OKL_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7869: THEN
7870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7872: THEN
7873: RAISE OKL_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7876: 'Calling okl_api.end_activity');
7877: okl_api.end_activity(
7872: THEN
7873: RAISE OKL_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7876: 'Calling okl_api.end_activity');
7877: okl_api.end_activity(
7878: x_msg_count => x_msg_count
7879: ,x_msg_data => x_msg_data);
7880: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7873: RAISE OKL_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7876: 'Calling okl_api.end_activity');
7877: okl_api.end_activity(
7878: x_msg_count => x_msg_count
7879: ,x_msg_data => x_msg_data);
7880: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7881: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7878: x_msg_count => x_msg_count
7879: ,x_msg_data => x_msg_data);
7880: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7881: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7882: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7883: EXCEPTION
7884: ------------------------------------------------------------
7885: -- Exception handling
7886: ------------------------------------------------------------
7883: EXCEPTION
7884: ------------------------------------------------------------
7885: -- Exception handling
7886: ------------------------------------------------------------
7887: WHEN OKL_API.G_EXCEPTION_ERROR
7888: THEN
7889: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7890: p_api_name => l_api_name
7891: ,p_pkg_name => G_PKG_NAME
7885: -- Exception handling
7886: ------------------------------------------------------------
7887: WHEN OKL_API.G_EXCEPTION_ERROR
7888: THEN
7889: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7890: p_api_name => l_api_name
7891: ,p_pkg_name => G_PKG_NAME
7892: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7893: ,x_msg_count => x_msg_count
7888: THEN
7889: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7890: p_api_name => l_api_name
7891: ,p_pkg_name => G_PKG_NAME
7892: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7893: ,x_msg_count => x_msg_count
7894: ,x_msg_data => x_msg_data
7895: ,p_api_type => '_PVT');
7896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7892: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7893: ,x_msg_count => x_msg_count
7894: ,x_msg_data => x_msg_data
7895: ,p_api_type => '_PVT');
7896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7897: THEN
7898: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7899: p_api_name => l_api_name
7900: ,p_pkg_name => G_PKG_NAME
7894: ,x_msg_data => x_msg_data
7895: ,p_api_type => '_PVT');
7896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7897: THEN
7898: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7899: p_api_name => l_api_name
7900: ,p_pkg_name => G_PKG_NAME
7901: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7902: ,x_msg_count => x_msg_count
7897: THEN
7898: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7899: p_api_name => l_api_name
7900: ,p_pkg_name => G_PKG_NAME
7901: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7902: ,x_msg_count => x_msg_count
7903: ,x_msg_data => x_msg_data
7904: ,p_api_type => '_PVT');
7905: WHEN OTHERS
7903: ,x_msg_data => x_msg_data
7904: ,p_api_type => '_PVT');
7905: WHEN OTHERS
7906: THEN
7907: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7908: p_api_name => l_api_name
7909: ,p_pkg_name => G_PKG_NAME
7910: ,p_exc_name => 'OTHERS'
7911: ,x_msg_count => x_msg_count
8005: l_curr_deprn_run_id NUMBER;
8006: ast_index NUMBER; -- Index for the l_deprn_asset_tbl
8007: -- Common Local Variables
8008: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_DEPRN_SOURCES';
8009: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
8010: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8011: l_msg_count NUMBER;
8012: l_msg_data VARCHAR2(2000);
8013: l_api_version CONSTANT NUMBER := 1.0;
8006: ast_index NUMBER; -- Index for the l_deprn_asset_tbl
8007: -- Common Local Variables
8008: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_DEPRN_SOURCES';
8009: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
8010: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8011: l_msg_count NUMBER;
8012: l_msg_data VARCHAR2(2000);
8013: l_api_version CONSTANT NUMBER := 1.0;
8014: l_khr_id_tbl Okl_Streams_Util.NumberTabTyp;
8093: ,x_msg_count => l_msg_count
8094: ,x_msg_data => l_msg_data
8095: );
8096: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8097: IF l_return_status = OKL_API.G_RET_STS_ERROR
8098: THEN
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: RAISE OKL_API.G_EXCEPTION_ERROR;
8095: );
8096: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8097: IF l_return_status = OKL_API.G_RET_STS_ERROR
8098: THEN
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: RAISE OKL_API.G_EXCEPTION_ERROR;
8102: END IF;
8103: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8096: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8097: IF l_return_status = OKL_API.G_RET_STS_ERROR
8098: THEN
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: RAISE OKL_API.G_EXCEPTION_ERROR;
8102: END IF;
8103: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8104: -- Reset the Khr_id to the current KHR_ID
8097: IF l_return_status = OKL_API.G_RET_STS_ERROR
8098: THEN
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: RAISE OKL_API.G_EXCEPTION_ERROR;
8102: END IF;
8103: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8104: -- Reset the Khr_id to the current KHR_ID
8105: l_khr_id := l_fa_deprn_assets_tbl(i).khr_id;
8150: ,x_msg_count => l_msg_count
8151: ,x_msg_data => l_msg_data
8152: );
8153: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8154: IF l_return_status = OKL_API.G_RET_STS_ERROR
8155: THEN
8156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8157: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8158: RAISE OKL_API.G_EXCEPTION_ERROR;
8152: );
8153: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8154: IF l_return_status = OKL_API.G_RET_STS_ERROR
8155: THEN
8156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8157: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8158: RAISE OKL_API.G_EXCEPTION_ERROR;
8159: END IF;
8160: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8153: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8154: IF l_return_status = OKL_API.G_RET_STS_ERROR
8155: THEN
8156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8157: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8158: RAISE OKL_API.G_EXCEPTION_ERROR;
8159: END IF;
8160: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8161: -- Exit When Cursor Has been Exhausted fetching all the Records
8154: IF l_return_status = OKL_API.G_RET_STS_ERROR
8155: THEN
8156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8157: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8158: RAISE OKL_API.G_EXCEPTION_ERROR;
8159: END IF;
8160: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8161: -- Exit When Cursor Has been Exhausted fetching all the Records
8162: EXIT WHEN get_okl_assets_csr%NOTFOUND;
8171: EXCEPTION
8172: ------------------------------------------------------------
8173: -- Exception handling
8174: ------------------------------------------------------------
8175: WHEN Okl_Api.G_EXCEPTION_ERROR
8176: THEN
8177: l_return_status := Okl_Api.G_RET_STS_ERROR;
8178: -- print the error message in the log file and output files
8179: log_msg(FND_FILE.OUTPUT,'');
8173: -- Exception handling
8174: ------------------------------------------------------------
8175: WHEN Okl_Api.G_EXCEPTION_ERROR
8176: THEN
8177: l_return_status := Okl_Api.G_RET_STS_ERROR;
8178: -- print the error message in the log file and output files
8179: log_msg(FND_FILE.OUTPUT,'');
8180: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8181: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8188: END LOOP;
8189: END IF;
8190: retcode := 2;
8191:
8192: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
8193: THEN
8194: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8195: -- print the error message in the log file
8196: log_msg(FND_FILE.OUTPUT,'');
8190: retcode := 2;
8191:
8192: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
8193: THEN
8194: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8195: -- print the error message in the log file
8196: log_msg(FND_FILE.OUTPUT,'');
8197: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8198: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8208: retcode := 2;
8209:
8210: WHEN OTHERS
8211: THEN
8212: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8213: -- print the error message in the log file
8214: log_msg(FND_FILE.OUTPUT,'');
8215: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8216: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8332: l_num_workers := FND_PROFILE.VALUE(G_OKL_DEPRN_WORKERS);
8333: log_msg(FND_FILE.LOG, 'Number of Workers ' || TO_CHAR(l_num_workers) );
8334: IF l_num_workers IS NULL OR l_num_workers <= 0
8335: THEN
8336: OKL_API.set_message(
8337: p_app_name => G_APP_NAME
8338: ,p_msg_name => G_OKL_DEPRN_WORKER_ERROR);
8339: log_msg(FND_FILE.LOG, 'Please specify positive value for the profile option OKL: Capture Sources for Asset Depreciation Concurrent Workers');
8340: RAISE OKL_API.G_EXCEPTION_ERROR;
8336: OKL_API.set_message(
8337: p_app_name => G_APP_NAME
8338: ,p_msg_name => G_OKL_DEPRN_WORKER_ERROR);
8339: log_msg(FND_FILE.LOG, 'Please specify positive value for the profile option OKL: Capture Sources for Asset Depreciation Concurrent Workers');
8340: RAISE OKL_API.G_EXCEPTION_ERROR;
8341: END IF;
8342: -- Select sequence for marking processes
8343: SELECT okl_opp_seq.NEXTVAL
8344: INTO l_seq_next
8566: -- Declare Process Variable
8567: -----------------------------------------------------------------
8568: l_api_version CONSTANT NUMBER := 1;
8569: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-RECEIPT';
8570: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8571: -- Local Variables for enabling the Debug Statements
8572: l_module CONSTANT fnd_log_messages.module%TYPE := G_MODULE || l_api_name;
8573: l_debug_enabled VARCHAR2(10);
8574: is_debug_procedure_on BOOLEAN;
8595: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8596: 'begin debug OKLRSLAB.pls call ' || l_api_name);
8597: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8598: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8599: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8600: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8601: 'Calling OKL_API.START_ACTIVITY');
8602: l_return_status := OKL_API.START_ACTIVITY(
8603: p_api_name => l_api_name
8597: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8598: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8599: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8600: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8601: 'Calling OKL_API.START_ACTIVITY');
8602: l_return_status := OKL_API.START_ACTIVITY(
8603: p_api_name => l_api_name
8604: ,p_pkg_name => g_pkg_name
8605: ,p_init_msg_list => p_init_msg_list
8598: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8599: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8600: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8601: 'Calling OKL_API.START_ACTIVITY');
8602: l_return_status := OKL_API.START_ACTIVITY(
8603: p_api_name => l_api_name
8604: ,p_pkg_name => g_pkg_name
8605: ,p_init_msg_list => p_init_msg_list
8606: ,l_api_version => l_api_version
8606: ,l_api_version => l_api_version
8607: ,p_api_version => p_api_version
8608: ,p_api_type => '_PVT'
8609: ,x_return_status => l_return_status);
8610: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8613: RAISE OKL_API.G_EXCEPTION_ERROR;
8614: END IF;
8607: ,p_api_version => p_api_version
8608: ,p_api_type => '_PVT'
8609: ,x_return_status => l_return_status);
8610: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8613: RAISE OKL_API.G_EXCEPTION_ERROR;
8614: END IF;
8615: -- Assign the Input Parameters to the Local Variables
8608: ,p_api_type => '_PVT'
8609: ,x_return_status => l_return_status);
8610: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8613: RAISE OKL_API.G_EXCEPTION_ERROR;
8614: END IF;
8615: -- Assign the Input Parameters to the Local Variables
8616: l_ar_receipt_id := p_rxh_rec.source_id;
8609: ,x_return_status => l_return_status);
8610: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8613: RAISE OKL_API.G_EXCEPTION_ERROR;
8614: END IF;
8615: -- Assign the Input Parameters to the Local Variables
8616: l_ar_receipt_id := p_rxh_rec.source_id;
8617: l_khr_id := p_rxh_rec.khr_id;
8619: 'L_AR_RECEIPT_ID= ' || TO_CHAR(l_ar_receipt_id) || ' L_KHR_ID= ' || TO_CHAR(l_khr_id) );
8620: -- Validation 1: p_ar_receipt_id Should not be NULL
8621: IF l_ar_receipt_id IS NULL
8622: THEN
8623: OKL_API.set_message(
8624: p_app_name => G_APP_NAME
8625: ,p_msg_name => G_INVALID_VALUE
8626: ,p_token1 => G_COL_NAME_TOKEN
8627: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8624: p_app_name => G_APP_NAME
8625: ,p_msg_name => G_INVALID_VALUE
8626: ,p_token1 => G_COL_NAME_TOKEN
8627: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8628: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8630: END IF;
8631: -- Validation 2: p_khr_id Should not be NULL
8632: IF l_khr_id IS NULL
8625: ,p_msg_name => G_INVALID_VALUE
8626: ,p_token1 => G_COL_NAME_TOKEN
8627: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8628: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8630: END IF;
8631: -- Validation 2: p_khr_id Should not be NULL
8632: IF l_khr_id IS NULL
8633: THEN
8630: END IF;
8631: -- Validation 2: p_khr_id Should not be NULL
8632: IF l_khr_id IS NULL
8633: THEN
8634: OKL_API.set_message(
8635: p_app_name => G_APP_NAME
8636: ,p_msg_name => G_INVALID_VALUE
8637: ,p_token1 => G_COL_NAME_TOKEN
8638: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8635: p_app_name => G_APP_NAME
8636: ,p_msg_name => G_INVALID_VALUE
8637: ,p_token1 => G_COL_NAME_TOKEN
8638: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8639: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8642: -- Assign the AR Receipt ID to the Header Extension Source ID Column
8643: l_rxh_rec := p_rxh_rec; -- Source ID and KHR_ID will be initalized
8636: ,p_msg_name => G_INVALID_VALUE
8637: ,p_token1 => G_COL_NAME_TOKEN
8638: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8639: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8642: -- Assign the AR Receipt ID to the Header Extension Source ID Column
8643: l_rxh_rec := p_rxh_rec; -- Source ID and KHR_ID will be initalized
8644: l_rxh_rec.source_table := G_AR_CASH_RECEIPTS;
8678: );
8679: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8680: 'After populate_khr_sources: l_return_status ' || l_return_status );
8681: -- Check the return status and if errored, return the error back
8682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8683: THEN
8684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8686: THEN
8680: 'After populate_khr_sources: l_return_status ' || l_return_status );
8681: -- Check the return status and if errored, return the error back
8682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8683: THEN
8684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8686: THEN
8687: RAISE OKL_API.G_EXCEPTION_ERROR;
8688: END IF;
8681: -- Check the return status and if errored, return the error back
8682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8683: THEN
8684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8686: THEN
8687: RAISE OKL_API.G_EXCEPTION_ERROR;
8688: END IF;
8689: -- Assign the KHR Sources to the AR Extension Header Table Record
8683: THEN
8684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8686: THEN
8687: RAISE OKL_API.G_EXCEPTION_ERROR;
8688: END IF;
8689: -- Assign the KHR Sources to the AR Extension Header Table Record
8690: assign_khr_rec_to_rxh_rec(
8691: p_khr_source_rec => l_khr_source_rec
8720: ,x_rxhl_tbl => lx_rxhl_tbl
8721: );
8722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8723: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8725: THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8728: THEN
8722: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8723: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8725: THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8728: THEN
8729: RAISE OKL_API.G_EXCEPTION_ERROR;
8730: END IF;
8723: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8725: THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8728: THEN
8729: RAISE OKL_API.G_EXCEPTION_ERROR;
8730: END IF;
8731: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8725: THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8728: THEN
8729: RAISE OKL_API.G_EXCEPTION_ERROR;
8730: END IF;
8731: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8732: 'Calling okl_api.end_activity');
8733: OKL_API.end_activity(
8728: THEN
8729: RAISE OKL_API.G_EXCEPTION_ERROR;
8730: END IF;
8731: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8732: 'Calling okl_api.end_activity');
8733: OKL_API.end_activity(
8734: x_msg_count => x_msg_count
8735: ,x_msg_data => x_msg_data);
8736: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8729: RAISE OKL_API.G_EXCEPTION_ERROR;
8730: END IF;
8731: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8732: 'Calling okl_api.end_activity');
8733: OKL_API.end_activity(
8734: x_msg_count => x_msg_count
8735: ,x_msg_data => x_msg_data);
8736: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8737: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES_RECEIPT');
8734: x_msg_count => x_msg_count
8735: ,x_msg_data => x_msg_data);
8736: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8737: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES_RECEIPT');
8738: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8739: EXCEPTION
8740: ------------------------------------------------------------
8741: -- Exception handling
8742: ------------------------------------------------------------
8739: EXCEPTION
8740: ------------------------------------------------------------
8741: -- Exception handling
8742: ------------------------------------------------------------
8743: WHEN OKL_API.G_EXCEPTION_ERROR
8744: THEN
8745: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8746: p_api_name => l_api_name
8747: ,p_pkg_name => G_PKG_NAME
8741: -- Exception handling
8742: ------------------------------------------------------------
8743: WHEN OKL_API.G_EXCEPTION_ERROR
8744: THEN
8745: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8746: p_api_name => l_api_name
8747: ,p_pkg_name => G_PKG_NAME
8748: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8749: ,x_msg_count => x_msg_count
8744: THEN
8745: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8746: p_api_name => l_api_name
8747: ,p_pkg_name => G_PKG_NAME
8748: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8749: ,x_msg_count => x_msg_count
8750: ,x_msg_data => x_msg_data
8751: ,p_api_type => '_PVT');
8752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8748: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8749: ,x_msg_count => x_msg_count
8750: ,x_msg_data => x_msg_data
8751: ,p_api_type => '_PVT');
8752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8753: THEN
8754: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8755: p_api_name => l_api_name
8756: ,p_pkg_name => G_PKG_NAME
8750: ,x_msg_data => x_msg_data
8751: ,p_api_type => '_PVT');
8752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8753: THEN
8754: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8755: p_api_name => l_api_name
8756: ,p_pkg_name => G_PKG_NAME
8757: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8758: ,x_msg_count => x_msg_count
8753: THEN
8754: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8755: p_api_name => l_api_name
8756: ,p_pkg_name => G_PKG_NAME
8757: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8758: ,x_msg_count => x_msg_count
8759: ,x_msg_data => x_msg_data
8760: ,p_api_type => '_PVT');
8761: WHEN OTHERS
8759: ,x_msg_data => x_msg_data
8760: ,p_api_type => '_PVT');
8761: WHEN OTHERS
8762: THEN
8763: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8764: p_api_name => l_api_name
8765: ,p_pkg_name => G_PKG_NAME
8766: ,p_exc_name => 'OTHERS'
8767: ,x_msg_count => x_msg_count