[Home] [Help]
962: -- Declare Process Variable
963: -----------------------------------------------------------------
964: l_api_version CONSTANT NUMBER := 1;
965: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCN_SOURCES';
966: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
967: -----------------------------------------------------------------
968: -- Declare records: Extension Headers
969: -----------------------------------------------------------------
970: l_teh_rec_in okl_teh_pvt.teh_rec_type;
1032: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1033: 'begin debug OKLRSLAB.pls call ' || l_api_name);
1034: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1035: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1036: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1037: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1038: 'Calling OKL_API.START_ACTIVITY');
1039: l_return_status := OKL_API.START_ACTIVITY(
1040: p_api_name => l_api_name
1034: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1035: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1036: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1037: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1038: 'Calling OKL_API.START_ACTIVITY');
1039: l_return_status := OKL_API.START_ACTIVITY(
1040: p_api_name => l_api_name
1041: ,p_pkg_name => g_pkg_name
1042: ,p_init_msg_list => p_init_msg_list
1035: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1036: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1037: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1038: 'Calling OKL_API.START_ACTIVITY');
1039: l_return_status := OKL_API.START_ACTIVITY(
1040: p_api_name => l_api_name
1041: ,p_pkg_name => g_pkg_name
1042: ,p_init_msg_list => p_init_msg_list
1043: ,l_api_version => l_api_version
1043: ,l_api_version => l_api_version
1044: ,p_api_version => p_api_version
1045: ,p_api_type => '_PVT'
1046: ,x_return_status => l_return_status);
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: ,p_api_version => p_api_version
1045: ,p_api_type => '_PVT'
1046: ,x_return_status => l_return_status);
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1045: ,p_api_type => '_PVT'
1046: ,x_return_status => l_return_status);
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1053: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1046: ,x_return_status => l_return_status);
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1053: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1054: -- Store the source id and source table in the rec to be passed to the Insert API
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1053: 'Return status from OKL_API.START_ACTIVITY :'||l_return_status);
1054: -- Store the source id and source table in the rec to be passed to the Insert API
1055: l_teh_rec_in.source_id := px_trans_hdr_rec.source_id;
1056: l_teh_rec_in.source_table := px_trans_hdr_rec.source_table;
1057: -- Validations ..
1056: l_teh_rec_in.source_table := px_trans_hdr_rec.source_table;
1057: -- Validations ..
1058: IF px_trans_hdr_rec.source_table NOT LIKE G_TRX_CONTRACTS
1059: THEN
1060: OKL_API.set_message(
1061: p_app_name => G_APP_NAME
1062: ,p_msg_name => G_INVALID_VALUE
1063: ,p_token1 => G_COL_NAME_TOKEN
1064: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1061: p_app_name => G_APP_NAME
1062: ,p_msg_name => G_INVALID_VALUE
1063: ,p_token1 => G_COL_NAME_TOKEN
1064: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1065: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1067: END IF;
1068: -- Assign the AGS Record to the Local Record Structure
1069: l_acc_sources_rec := p_acc_sources_rec;
1062: ,p_msg_name => G_INVALID_VALUE
1063: ,p_token1 => G_COL_NAME_TOKEN
1064: ,p_token1_value => 'HEADER.SOURCE_TABLE');
1065: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1067: END IF;
1068: -- Assign the AGS Record to the Local Record Structure
1069: l_acc_sources_rec := p_acc_sources_rec;
1070: -- Validation on the AGS Record
1069: l_acc_sources_rec := p_acc_sources_rec;
1070: -- Validation on the AGS Record
1071: IF l_acc_sources_rec.source_id IS NULL
1072: THEN
1073: OKL_API.set_message(
1074: p_app_name => G_APP_NAME
1075: ,p_msg_name => G_INVALID_VALUE
1076: ,p_token1 => G_COL_NAME_TOKEN
1077: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1074: p_app_name => G_APP_NAME
1075: ,p_msg_name => G_INVALID_VALUE
1076: ,p_token1 => G_COL_NAME_TOKEN
1077: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1078: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1080: END IF;
1081:
1082: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1075: ,p_msg_name => G_INVALID_VALUE
1076: ,p_token1 => G_COL_NAME_TOKEN
1077: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1078: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1080: END IF;
1081:
1082: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1083: 'Executing Cursor c_tcn_basic_csr: Source ID: ' || px_trans_hdr_rec.source_id);
1086: l_tcn_basic_csr_rec := t_rec;
1087: IF l_tcn_basic_csr_rec.accounting_event_class_code IS NULL
1088: THEN
1089: -- accounting_event_class_code is missing
1090: OKL_API.set_message(
1091: p_app_name => G_APP_NAME
1092: ,p_msg_name => G_INVALID_VALUE
1093: ,p_token1 => G_COL_NAME_TOKEN
1094: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1091: p_app_name => G_APP_NAME
1092: ,p_msg_name => G_INVALID_VALUE
1093: ,p_token1 => G_COL_NAME_TOKEN
1094: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1095: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: END IF;
1098: l_khr_id := l_tcn_basic_csr_rec.khr_id;
1099: l_qte_id := l_tcn_basic_csr_rec.qte_id;
1092: ,p_msg_name => G_INVALID_VALUE
1093: ,p_token1 => G_COL_NAME_TOKEN
1094: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1095: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: END IF;
1098: l_khr_id := l_tcn_basic_csr_rec.khr_id;
1099: l_qte_id := l_tcn_basic_csr_rec.qte_id;
1100: l_pdt_id := l_tcn_basic_csr_rec.pdt_id;
1433: END IF;
1434: -- Returning back the record structure
1435: px_trans_hdr_rec.header_extension_id := l_teh_rec_out.header_extension_id;
1436: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1437: 'Calling okl_api.end_activity');
1438: okl_api.end_activity(
1439: x_msg_count => x_msg_count
1440: ,x_msg_data => x_msg_data);
1441: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1434: -- Returning back the record structure
1435: px_trans_hdr_rec.header_extension_id := l_teh_rec_out.header_extension_id;
1436: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1437: 'Calling okl_api.end_activity');
1438: okl_api.end_activity(
1439: x_msg_count => x_msg_count
1440: ,x_msg_data => x_msg_data);
1441: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1442: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1439: x_msg_count => x_msg_count
1440: ,x_msg_data => x_msg_data);
1441: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1442: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCN_SOURCES');
1443: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1444: EXCEPTION
1445: ------------------------------------------------------------
1446: -- Exception handling
1447: ------------------------------------------------------------
1444: EXCEPTION
1445: ------------------------------------------------------------
1446: -- Exception handling
1447: ------------------------------------------------------------
1448: WHEN OKL_API.G_EXCEPTION_ERROR
1449: THEN
1450: IF c_tcn_basic_csr%ISOPEN THEN
1451: CLOSE c_tcn_basic_csr;
1452: END IF;
1485: END IF;
1486: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1487: CLOSE c_rev_rec_int_calc_methods_csr;
1488: END IF;
1489: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1490: p_api_name => l_api_name
1491: ,p_pkg_name => G_PKG_NAME
1492: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1493: ,x_msg_count => x_msg_count
1488: END IF;
1489: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1490: p_api_name => l_api_name
1491: ,p_pkg_name => G_PKG_NAME
1492: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1493: ,x_msg_count => x_msg_count
1494: ,x_msg_data => x_msg_data
1495: ,p_api_type => '_PVT');
1496: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
1492: ,p_exc_name => OKL_API.G_RET_STS_ERROR
1493: ,x_msg_count => x_msg_count
1494: ,x_msg_data => x_msg_data
1495: ,p_api_type => '_PVT');
1496: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
1497: THEN
1498: IF c_tcn_basic_csr%ISOPEN THEN
1499: CLOSE c_tcn_basic_csr;
1500: END IF;
1533: END IF;
1534: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1535: CLOSE c_rev_rec_int_calc_methods_csr;
1536: END IF;
1537: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1538: p_api_name => l_api_name
1539: ,p_pkg_name => G_PKG_NAME
1540: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
1541: ,x_msg_count => x_msg_count
1536: END IF;
1537: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1538: p_api_name => l_api_name
1539: ,p_pkg_name => G_PKG_NAME
1540: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
1541: ,x_msg_count => x_msg_count
1542: ,x_msg_data => x_msg_data
1543: ,p_api_type => '_PVT');
1544: WHEN OTHERS
1581: END IF;
1582: IF c_rev_rec_int_calc_methods_csr%ISOPEN THEN
1583: CLOSE c_rev_rec_int_calc_methods_csr;
1584: END IF;
1585: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1586: p_api_name => l_api_name
1587: ,p_pkg_name => G_PKG_NAME
1588: ,p_exc_name => 'OTHERS'
1589: ,x_msg_count => x_msg_count
1620: -- Declare Process Variable
1621: -----------------------------------------------------------------
1622: l_api_version CONSTANT NUMBER := 1;
1623: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCL_SOURCES';
1624: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1625: ------------------------------------------------------------
1626: -- Declare records: Extension Headers, Extension Lines
1627: ------------------------------------------------------------
1628: l_tel_rec_in tel_rec_type;
1679: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1680: 'begin debug OKLRSLAB.pls call ' || l_api_name);
1681: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1682: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1683: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1685: 'Calling OKL_API.START_ACTIVITY');
1686: l_return_status := OKL_API.START_ACTIVITY(
1687: p_api_name => l_api_name
1681: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1682: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1683: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1685: 'Calling OKL_API.START_ACTIVITY');
1686: l_return_status := OKL_API.START_ACTIVITY(
1687: p_api_name => l_api_name
1688: ,p_pkg_name => g_pkg_name
1689: ,p_init_msg_list => p_init_msg_list
1682: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
1683: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1685: 'Calling OKL_API.START_ACTIVITY');
1686: l_return_status := OKL_API.START_ACTIVITY(
1687: p_api_name => l_api_name
1688: ,p_pkg_name => g_pkg_name
1689: ,p_init_msg_list => p_init_msg_list
1690: ,l_api_version => l_api_version
1692: ,p_api_type => '_PVT'
1693: ,x_return_status => l_return_status);
1694: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1695: 'After Start Activity l_return_status ' || l_return_status );
1696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1697: THEN
1698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1700: THEN
1694: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1695: 'After Start Activity l_return_status ' || l_return_status );
1696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1697: THEN
1698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1700: THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1695: 'After Start Activity l_return_status ' || l_return_status );
1696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
1697: THEN
1698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1700: THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: -- Copy the input parameters to the local variables and start using them.
1697: THEN
1698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
1700: THEN
1701: RAISE OKL_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: -- Copy the input parameters to the local variables and start using them.
1704: l_tel_rec_in.source_id := px_trans_line_rec.source_id;
1705: l_tel_rec_in.source_table := px_trans_line_rec.source_table;
1710: ' line_table='|| l_tel_rec_in.source_table);
1711:
1712: IF l_tel_rec_in.source_table <> G_TXL_CONTRACTS
1713: THEN
1714: OKL_API.set_message(
1715: p_app_name => G_APP_NAME
1716: ,p_msg_name => G_INVALID_VALUE
1717: ,p_token1 => G_COL_NAME_TOKEN
1718: ,p_token1_value => 'LINE.SOURCE_TABLE');
1715: p_app_name => G_APP_NAME
1716: ,p_msg_name => G_INVALID_VALUE
1717: ,p_token1 => G_COL_NAME_TOKEN
1718: ,p_token1_value => 'LINE.SOURCE_TABLE');
1719: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1721: END IF;
1722:
1723: -- Assign the AGS Record to the Local Record Structure
1716: ,p_msg_name => G_INVALID_VALUE
1717: ,p_token1 => G_COL_NAME_TOKEN
1718: ,p_token1_value => 'LINE.SOURCE_TABLE');
1719: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1721: END IF;
1722:
1723: -- Assign the AGS Record to the Local Record Structure
1724: l_acc_sources_rec := p_acc_sources_rec;
1724: l_acc_sources_rec := p_acc_sources_rec;
1725: -- Validation on the AGS Record
1726: IF l_acc_sources_rec.source_id IS NULL
1727: THEN
1728: OKL_API.set_message(
1729: p_app_name => G_APP_NAME
1730: ,p_msg_name => G_INVALID_VALUE
1731: ,p_token1 => G_COL_NAME_TOKEN
1732: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1729: p_app_name => G_APP_NAME
1730: ,p_msg_name => G_INVALID_VALUE
1731: ,p_token1 => G_COL_NAME_TOKEN
1732: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1733: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: END IF;
1736:
1737: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1730: ,p_msg_name => G_INVALID_VALUE
1731: ,p_token1 => G_COL_NAME_TOKEN
1732: ,p_token1_value => 'ACCT_SOURCES.SOURCE_ID');
1733: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: END IF;
1736:
1737: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1738: 'Executing the Cursor c_tcl_basic_csr. p_source_id = ' || TO_CHAR(l_tel_rec_in.source_id) );
1753:
1754: IF l_tcl_basic_csr_rec.accounting_event_class_code IS NULL
1755: THEN
1756: -- accounting_event_class_code is missing
1757: OKL_API.set_message(
1758: p_app_name => G_APP_NAME
1759: ,p_msg_name => G_INVALID_VALUE
1760: ,p_token1 => G_COL_NAME_TOKEN
1761: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1758: p_app_name => G_APP_NAME
1759: ,p_msg_name => G_INVALID_VALUE
1760: ,p_token1 => G_COL_NAME_TOKEN
1761: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1762: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: END IF;
1765:
1766: -- Store the Ledger Language so that its passed to the TAPI
1759: ,p_msg_name => G_INVALID_VALUE
1760: ,p_token1 => G_COL_NAME_TOKEN
1761: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
1762: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1764: END IF;
1765:
1766: -- Store the Ledger Language so that its passed to the TAPI
1767: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
1995: END IF;
1996: -- Return the values
1997: px_trans_line_rec.line_extension_id := l_tel_rec_out.line_extension_id;
1998: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1999: 'Calling okl_api.end_activity');
2000: okl_api.end_activity(
2001: x_msg_count => x_msg_count
2002: ,x_msg_data => x_msg_data);
2003: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1996: -- Return the values
1997: px_trans_line_rec.line_extension_id := l_tel_rec_out.line_extension_id;
1998: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
1999: 'Calling okl_api.end_activity');
2000: okl_api.end_activity(
2001: x_msg_count => x_msg_count
2002: ,x_msg_data => x_msg_data);
2003: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2004: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
2001: x_msg_count => x_msg_count
2002: ,x_msg_data => x_msg_data);
2003: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2004: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_TCL_SOURCES');
2005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2006: EXCEPTION
2007: ------------------------------------------------------------
2008: -- Exception handling
2009: ------------------------------------------------------------
2006: EXCEPTION
2007: ------------------------------------------------------------
2008: -- Exception handling
2009: ------------------------------------------------------------
2010: WHEN OKL_API.G_EXCEPTION_ERROR
2011: THEN
2012: IF c_tcl_basic_csr%ISOPEN THEN
2013: CLOSE c_tcl_basic_csr;
2014: END IF;
2041: END IF;
2042: IF c_inventory_item_name_csr%ISOPEN THEN
2043: CLOSE c_inventory_item_name_csr;
2044: END IF;
2045: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2046: p_api_name => l_api_name
2047: ,p_pkg_name => G_PKG_NAME
2048: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2049: ,x_msg_count => x_msg_count
2044: END IF;
2045: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2046: p_api_name => l_api_name
2047: ,p_pkg_name => G_PKG_NAME
2048: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2049: ,x_msg_count => x_msg_count
2050: ,x_msg_data => x_msg_data
2051: ,p_api_type => '_PVT');
2052:
2049: ,x_msg_count => x_msg_count
2050: ,x_msg_data => x_msg_data
2051: ,p_api_type => '_PVT');
2052:
2053: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2054: THEN
2055: IF c_tcl_basic_csr%ISOPEN THEN
2056: CLOSE c_tcl_basic_csr;
2057: END IF;
2084: END IF;
2085: IF c_inventory_item_name_csr%ISOPEN THEN
2086: CLOSE c_inventory_item_name_csr;
2087: END IF;
2088: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2089: p_api_name => l_api_name
2090: ,p_pkg_name => G_PKG_NAME
2091: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2092: ,x_msg_count => x_msg_count
2087: END IF;
2088: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2089: p_api_name => l_api_name
2090: ,p_pkg_name => G_PKG_NAME
2091: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2092: ,x_msg_count => x_msg_count
2093: ,x_msg_data => x_msg_data
2094: ,p_api_type => '_PVT');
2095: WHEN OTHERS
2126: END IF;
2127: IF c_inventory_item_name_csr%ISOPEN THEN
2128: CLOSE c_inventory_item_name_csr;
2129: END IF;
2130: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2131: p_api_name => l_api_name
2132: ,p_pkg_name => G_PKG_NAME
2133: ,p_exc_name => 'OTHERS'
2134: ,x_msg_count => x_msg_count
2168: -- Declare Process Variable
2169: -----------------------------------------------------------------
2170: l_api_version CONSTANT NUMBER := 1;
2171: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_TCL_SOURCES';
2172: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2173: ------------------------------------------------------------
2174: -- Declare records: Extension Headers, Extension Lines
2175: ------------------------------------------------------------
2176: l_tel_tbl_tbl tel_tbl_tbl_type;
2252: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2253: 'begin debug APOKLRSLAB.pls call ' || l_api_name);
2254: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2255: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2256: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2257: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2258: 'Calling OKL_API.START_ACTIVITY');
2259: l_return_status := OKL_API.START_ACTIVITY(
2260: p_api_name => l_api_name
2254: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2255: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2256: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2257: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2258: 'Calling OKL_API.START_ACTIVITY');
2259: l_return_status := OKL_API.START_ACTIVITY(
2260: p_api_name => l_api_name
2261: ,p_pkg_name => g_pkg_name
2262: ,p_init_msg_list => p_init_msg_list
2255: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2256: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2257: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2258: 'Calling OKL_API.START_ACTIVITY');
2259: l_return_status := OKL_API.START_ACTIVITY(
2260: p_api_name => l_api_name
2261: ,p_pkg_name => g_pkg_name
2262: ,p_init_msg_list => p_init_msg_list
2263: ,l_api_version => l_api_version
2265: ,p_api_type => '_PVT'
2266: ,x_return_status => l_return_status);
2267: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2268: 'After Start Activity l_return_status ' || l_return_status );
2269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2270: THEN
2271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2273: THEN
2267: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2268: 'After Start Activity l_return_status ' || l_return_status );
2269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2270: THEN
2271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2273: THEN
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2275: END IF;
2268: 'After Start Activity l_return_status ' || l_return_status );
2269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
2270: THEN
2271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2273: THEN
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2270: THEN
2271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
2273: THEN
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2277: IF p_trans_hdr_rec.source_table <> G_TRX_CONTRACTS
2278: THEN
2275: END IF;
2276:
2277: IF p_trans_hdr_rec.source_table <> G_TRX_CONTRACTS
2278: THEN
2279: OKL_API.set_message(
2280: p_app_name => G_APP_NAME
2281: ,p_msg_name => G_INVALID_VALUE
2282: ,p_token1 => G_COL_NAME_TOKEN
2283: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2280: p_app_name => G_APP_NAME
2281: ,p_msg_name => G_INVALID_VALUE
2282: ,p_token1 => G_COL_NAME_TOKEN
2283: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2284: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: END IF;
2287:
2288: IF p_trans_hdr_rec.header_extension_id IS NULL
2281: ,p_msg_name => G_INVALID_VALUE
2282: ,p_token1 => G_COL_NAME_TOKEN
2283: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2284: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: END IF;
2287:
2288: IF p_trans_hdr_rec.header_extension_id IS NULL
2289: THEN
2286: END IF;
2287:
2288: IF p_trans_hdr_rec.header_extension_id IS NULL
2289: THEN
2290: OKL_API.set_message(
2291: p_app_name => G_APP_NAME
2292: ,p_msg_name => G_INVALID_VALUE
2293: ,p_token1 => G_COL_NAME_TOKEN
2294: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2291: p_app_name => G_APP_NAME
2292: ,p_msg_name => G_INVALID_VALUE
2293: ,p_token1 => G_COL_NAME_TOKEN
2294: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2295: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: END IF;
2298:
2299: -- Assign the AGS Record to the Local Record Structure
2292: ,p_msg_name => G_INVALID_VALUE
2293: ,p_token1 => G_COL_NAME_TOKEN
2294: ,p_token1_value => 'HEADER.HEADER_EXTENSION_ID');
2295: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: END IF;
2298:
2299: -- Assign the AGS Record to the Local Record Structure
2300: l_acc_sources_tbl := p_acc_sources_tbl;
2301: l_trans_line_tbl := p_trans_line_tbl;
2302: -- Validation: Check whether the AGS Table is passed properly or not ..
2303: IF l_acc_sources_tbl.COUNT <= 0
2304: THEN
2305: OKL_API.set_message(
2306: p_app_name => G_APP_NAME
2307: ,p_msg_name => G_INVALID_VALUE
2308: ,p_token1 => G_COL_NAME_TOKEN
2309: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2306: p_app_name => G_APP_NAME
2307: ,p_msg_name => G_INVALID_VALUE
2308: ,p_token1 => G_COL_NAME_TOKEN
2309: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2310: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: END IF;
2313: -- Assign the l_acc_sources_rec as the first one of the l_acc_sources_tbl
2314: -- so that we can reuse the Inventory Organization ID
2307: ,p_msg_name => G_INVALID_VALUE
2308: ,p_token1 => G_COL_NAME_TOKEN
2309: ,p_token1_value => 'ACCT_SOURCES.COUNT');
2310: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: END IF;
2313: -- Assign the l_acc_sources_rec as the first one of the l_acc_sources_tbl
2314: -- so that we can reuse the Inventory Organization ID
2315: l_acc_sources_rec := l_acc_sources_tbl( l_acc_sources_tbl.FIRST );
2327:
2328: IF l_tcn_basic_csr_rec.accounting_event_class_code IS NULL
2329: THEN
2330: -- accounting_event_class_code is missing
2331: OKL_API.set_message(
2332: p_app_name => G_APP_NAME
2333: ,p_msg_name => G_INVALID_VALUE
2334: ,p_token1 => G_COL_NAME_TOKEN
2335: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2332: p_app_name => G_APP_NAME
2333: ,p_msg_name => G_INVALID_VALUE
2334: ,p_token1 => G_COL_NAME_TOKEN
2335: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2336: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: END IF;
2339:
2340: -- Fetch the Ledger Language
2333: ,p_msg_name => G_INVALID_VALUE
2334: ,p_token1 => G_COL_NAME_TOKEN
2335: ,p_token1_value => 'ACCOUNTING_EVENT_CLASS_CODE');
2336: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: END IF;
2339:
2340: -- Fetch the Ledger Language
2341: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2479: -- If the AGS Index is not found then return error
2480: IF l_acc_sources_found = FALSE
2481: THEN
2482: -- accounting_event_class_code is missing
2483: OKL_API.set_message(
2484: p_app_name => G_APP_NAME
2485: ,p_msg_name => G_INVALID_VALUE
2486: ,p_token1 => G_COL_NAME_TOKEN
2487: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2484: p_app_name => G_APP_NAME
2485: ,p_msg_name => G_INVALID_VALUE
2486: ,p_token1 => G_COL_NAME_TOKEN
2487: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2488: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: END IF; -- IF l_acc_sources_found = FALSE
2491: -- Override the Source ID, Table and other related sources
2492: l_tel_tbl_in(tel_index).source_id := l_curr_tcl_rec.tcl_id;
2485: ,p_msg_name => G_INVALID_VALUE
2486: ,p_token1 => G_COL_NAME_TOKEN
2487: ,p_token1_value => 'AGS_SOURCES.SOURCE_ID');
2488: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: END IF; -- IF l_acc_sources_found = FALSE
2491: -- Override the Source ID, Table and other related sources
2492: l_tel_tbl_in(tel_index).source_id := l_curr_tcl_rec.tcl_id;
2493: l_tel_tbl_in(tel_index).source_table := G_TXL_CONTRACTS;
2712:
2713: -- Return the values
2714: x_trans_line_tbl := p_trans_line_tbl; --Added PRASJAIN Bug#6134235
2715: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2716: 'Calling okl_api.end_activity');
2717: okl_api.end_activity(
2718: x_msg_count => x_msg_count
2719: ,x_msg_data => x_msg_data);
2720: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2713: -- Return the values
2714: x_trans_line_tbl := p_trans_line_tbl; --Added PRASJAIN Bug#6134235
2715: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2716: 'Calling okl_api.end_activity');
2717: okl_api.end_activity(
2718: x_msg_count => x_msg_count
2719: ,x_msg_data => x_msg_data);
2720: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2721: 'END okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2718: x_msg_count => x_msg_count
2719: ,x_msg_data => x_msg_data);
2720: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2721: 'END okl_sla_acc_sources_pvt.POPULATE_TCL_SOURCES');
2722: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2723: EXCEPTION
2724: ------------------------------------------------------------
2725: -- Exception handling
2726: ------------------------------------------------------------
2723: EXCEPTION
2724: ------------------------------------------------------------
2725: -- Exception handling
2726: ------------------------------------------------------------
2727: WHEN OKL_API.G_EXCEPTION_ERROR
2728: THEN
2729: IF c_tcl_tbl_csr%ISOPEN THEN
2730: CLOSE c_tcl_tbl_csr;
2731: END IF;
2758: END IF;
2759: IF c_inventory_item_name_csr%ISOPEN THEN
2760: CLOSE c_inventory_item_name_csr;
2761: END IF;
2762: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2763: p_api_name => l_api_name
2764: ,p_pkg_name => G_PKG_NAME
2765: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2766: ,x_msg_count => x_msg_count
2761: END IF;
2762: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2763: p_api_name => l_api_name
2764: ,p_pkg_name => G_PKG_NAME
2765: ,p_exc_name => OKL_API.G_RET_STS_ERROR
2766: ,x_msg_count => x_msg_count
2767: ,x_msg_data => x_msg_data
2768: ,p_api_type => '_PVT');
2769:
2766: ,x_msg_count => x_msg_count
2767: ,x_msg_data => x_msg_data
2768: ,p_api_type => '_PVT');
2769:
2770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
2771: THEN
2772: IF c_tcl_tbl_csr%ISOPEN THEN
2773: CLOSE c_tcl_tbl_csr;
2774: END IF;
2801: END IF;
2802: IF c_inventory_item_name_csr%ISOPEN THEN
2803: CLOSE c_inventory_item_name_csr;
2804: END IF;
2805: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2806: p_api_name => l_api_name
2807: ,p_pkg_name => G_PKG_NAME
2808: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2809: ,x_msg_count => x_msg_count
2804: END IF;
2805: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2806: p_api_name => l_api_name
2807: ,p_pkg_name => G_PKG_NAME
2808: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
2809: ,x_msg_count => x_msg_count
2810: ,x_msg_data => x_msg_data
2811: ,p_api_type => '_PVT');
2812: WHEN OTHERS
2843: END IF;
2844: IF c_inventory_item_name_csr%ISOPEN THEN
2845: CLOSE c_inventory_item_name_csr;
2846: END IF;
2847: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2848: p_api_name => l_api_name
2849: ,p_pkg_name => G_PKG_NAME
2850: ,p_exc_name => 'OTHERS'
2851: ,x_msg_count => x_msg_count
2890: -- Declare Process Variable
2891: -----------------------------------------------------------------
2892: l_api_version CONSTANT NUMBER := 1;
2893: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-OKL';
2894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2895: -- Local Variables for enabling the Debug Statements
2896: l_trans_hdr_rec tehv_rec_type;
2897: l_acc_sources_tbl asev_tbl_type;
2898: l_trans_line_tbl telv_tbl_type; -- Added by PRASJAIN Bug#6134235
2911: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2912: 'begin debug APOKLRSLAB.pls call ' || l_api_name);
2913: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2914: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2915: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2916: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2917: 'Calling OKL_API.START_ACTIVITY');
2918: l_return_status := OKL_API.START_ACTIVITY(
2919: p_api_name => l_api_name
2913: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2914: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2915: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2916: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2917: 'Calling OKL_API.START_ACTIVITY');
2918: l_return_status := OKL_API.START_ACTIVITY(
2919: p_api_name => l_api_name
2920: ,p_pkg_name => g_pkg_name
2921: ,p_init_msg_list => p_init_msg_list
2914: 'BEGIN API okl_sla_acc_sources_pvt.POPULATE_SOURCES');
2915: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2916: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2917: 'Calling OKL_API.START_ACTIVITY');
2918: l_return_status := OKL_API.START_ACTIVITY(
2919: p_api_name => l_api_name
2920: ,p_pkg_name => g_pkg_name
2921: ,p_init_msg_list => p_init_msg_list
2922: ,l_api_version => l_api_version
2922: ,l_api_version => l_api_version
2923: ,p_api_version => p_api_version
2924: ,p_api_type => '_PVT'
2925: ,x_return_status => l_return_status);
2926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2929: RAISE OKL_API.G_EXCEPTION_ERROR;
2930: END IF;
2923: ,p_api_version => p_api_version
2924: ,p_api_type => '_PVT'
2925: ,x_return_status => l_return_status);
2926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2929: RAISE OKL_API.G_EXCEPTION_ERROR;
2930: END IF;
2931: -- Copy the input parameters to the local variables
2924: ,p_api_type => '_PVT'
2925: ,x_return_status => l_return_status);
2926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2929: RAISE OKL_API.G_EXCEPTION_ERROR;
2930: END IF;
2931: -- Copy the input parameters to the local variables
2932: l_trans_hdr_rec := p_trans_hdr_rec;
2925: ,x_return_status => l_return_status);
2926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2929: RAISE OKL_API.G_EXCEPTION_ERROR;
2930: END IF;
2931: -- Copy the input parameters to the local variables
2932: l_trans_hdr_rec := p_trans_hdr_rec;
2933: l_acc_sources_tbl := p_acc_sources_tbl;
2934: l_trans_line_tbl := p_trans_line_tbl; -- Added by PRASJAIN Bug#6134235
2935: IF l_acc_sources_tbl.COUNT <= 0
2936: THEN
2937: -- Raise an error message saying that the Sources should be passed !
2938: OKL_API.set_message(
2939: p_app_name => G_APP_NAME
2940: ,p_msg_name => G_INVALID_VALUE
2941: ,p_token1 => G_COL_NAME_TOKEN
2942: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2939: p_app_name => G_APP_NAME
2940: ,p_msg_name => G_INVALID_VALUE
2941: ,p_token1 => G_COL_NAME_TOKEN
2942: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2943: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2940: ,p_msg_name => G_INVALID_VALUE
2941: ,p_token1 => G_COL_NAME_TOKEN
2942: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT');
2943: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2945: END IF;
2946:
2947: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2948: 'Input Parameters p_source_hdr_id=' || to_char(l_trans_hdr_rec.source_id) || ' Header Table=' || l_trans_hdr_rec.source_table );
2962: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2963: 'After populate_tcn_sources: l_return_status ' || l_return_status );
2964: ELSE
2965: -- Return with an error message
2966: OKL_API.set_message(
2967: p_app_name => G_APP_NAME
2968: ,p_msg_name => G_INVALID_VALUE
2969: ,p_token1 => G_COL_NAME_TOKEN
2970: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2967: p_app_name => G_APP_NAME
2968: ,p_msg_name => G_INVALID_VALUE
2969: ,p_token1 => G_COL_NAME_TOKEN
2970: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2971: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: END IF;
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2968: ,p_msg_name => G_INVALID_VALUE
2969: ,p_token1 => G_COL_NAME_TOKEN
2970: ,p_token1_value => 'HEADER.SOURCE_TABLE');
2971: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: END IF;
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: END IF;
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2973: END IF;
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2973: END IF;
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2981: 'After populate_tcn_sources: HEADER_EXTENSION_ID= ' || l_trans_hdr_rec.header_extension_id );
2974: -- Check the return status and if errored, return the error back
2975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2981: 'After populate_tcn_sources: HEADER_EXTENSION_ID= ' || l_trans_hdr_rec.header_extension_id );
2982: -- Call the Populate TCL Sources API to populate the Transaction Line Level Sources
2993: ,x_msg_count => x_msg_count
2994: ,x_msg_data => x_msg_data );
2995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2996: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
2994: ,x_msg_data => x_msg_data );
2995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2996: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
2995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
2996: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3003: 'Calling okl_api.end_activity');
2996: 'After the Call to the Populate_tcl_sources_tbl version' || l_return_status);
2997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3003: 'Calling okl_api.end_activity');
3004: okl_api.end_activity(
2999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3003: 'Calling okl_api.end_activity');
3004: okl_api.end_activity(
3005: x_msg_count => x_msg_count
3006: ,x_msg_data => x_msg_data);
3007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3003: 'Calling okl_api.end_activity');
3004: okl_api.end_activity(
3005: x_msg_count => x_msg_count
3006: ,x_msg_data => x_msg_data);
3007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3008: 'END okl_sla_acc_sources_pvt.POPULATE_SOURCES');
3005: x_msg_count => x_msg_count
3006: ,x_msg_data => x_msg_data);
3007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3008: 'END okl_sla_acc_sources_pvt.POPULATE_SOURCES');
3009: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3010: EXCEPTION
3011: ------------------------------------------------------------
3012: -- Exception handling
3013: ------------------------------------------------------------
3010: EXCEPTION
3011: ------------------------------------------------------------
3012: -- Exception handling
3013: ------------------------------------------------------------
3014: WHEN OKL_API.G_EXCEPTION_ERROR
3015: THEN
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3017: p_api_name => l_api_name
3018: ,p_pkg_name => G_PKG_NAME
3012: -- Exception handling
3013: ------------------------------------------------------------
3014: WHEN OKL_API.G_EXCEPTION_ERROR
3015: THEN
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3017: p_api_name => l_api_name
3018: ,p_pkg_name => G_PKG_NAME
3019: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3020: ,x_msg_count => x_msg_count
3015: THEN
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3017: p_api_name => l_api_name
3018: ,p_pkg_name => G_PKG_NAME
3019: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3020: ,x_msg_count => x_msg_count
3021: ,x_msg_data => x_msg_data
3022: ,p_api_type => '_PVT');
3023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3019: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3020: ,x_msg_count => x_msg_count
3021: ,x_msg_data => x_msg_data
3022: ,p_api_type => '_PVT');
3023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3024: THEN
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3026: p_api_name => l_api_name
3027: ,p_pkg_name => G_PKG_NAME
3021: ,x_msg_data => x_msg_data
3022: ,p_api_type => '_PVT');
3023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3024: THEN
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3026: p_api_name => l_api_name
3027: ,p_pkg_name => G_PKG_NAME
3028: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3029: ,x_msg_count => x_msg_count
3024: THEN
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3026: p_api_name => l_api_name
3027: ,p_pkg_name => G_PKG_NAME
3028: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3029: ,x_msg_count => x_msg_count
3030: ,x_msg_data => x_msg_data
3031: ,p_api_type => '_PVT');
3032: WHEN OTHERS
3030: ,x_msg_data => x_msg_data
3031: ,p_api_type => '_PVT');
3032: WHEN OTHERS
3033: THEN
3034: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3035: p_api_name => l_api_name
3036: ,p_pkg_name => G_PKG_NAME
3037: ,p_exc_name => 'OTHERS'
3038: ,x_msg_count => x_msg_count
3054: -- Declare Process Variable
3055: -----------------------------------------------------------------
3056: l_api_version CONSTANT NUMBER := 1;
3057: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
3058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3059: l_telv_tbl okl_tel_pvt.telv_tbl_type;
3060: tel_index BINARY_INTEGER;
3061: l_trans_hdr_rec tehv_rec_type;
3062: -- Cursor Definitions
3088: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3089: 'begin debug OKLRSLAB.pls call ' || l_api_name);
3090: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3091: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3092: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3093: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3094: 'Calling OKL_API.START_ACTIVITY');
3095: l_return_status := OKL_API.START_ACTIVITY(
3096: p_api_name => l_api_name
3090: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3091: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3092: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3093: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3094: 'Calling OKL_API.START_ACTIVITY');
3095: l_return_status := OKL_API.START_ACTIVITY(
3096: p_api_name => l_api_name
3097: ,p_pkg_name => g_pkg_name
3098: ,p_init_msg_list => p_init_msg_list
3091: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3092: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3093: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3094: 'Calling OKL_API.START_ACTIVITY');
3095: l_return_status := OKL_API.START_ACTIVITY(
3096: p_api_name => l_api_name
3097: ,p_pkg_name => g_pkg_name
3098: ,p_init_msg_list => p_init_msg_list
3099: ,l_api_version => l_api_version
3099: ,l_api_version => l_api_version
3100: ,p_api_version => p_api_version
3101: ,p_api_type => '_PVT'
3102: ,x_return_status => l_return_status);
3103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3106: RAISE OKL_API.G_EXCEPTION_ERROR;
3107: END IF;
3100: ,p_api_version => p_api_version
3101: ,p_api_type => '_PVT'
3102: ,x_return_status => l_return_status);
3103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3106: RAISE OKL_API.G_EXCEPTION_ERROR;
3107: END IF;
3108: -- Actual Logic Starts Here ..
3101: ,p_api_type => '_PVT'
3102: ,x_return_status => l_return_status);
3103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3106: RAISE OKL_API.G_EXCEPTION_ERROR;
3107: END IF;
3108: -- Actual Logic Starts Here ..
3109: l_trans_hdr_rec := p_trans_hdr_rec;
3102: ,x_return_status => l_return_status);
3103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3106: RAISE OKL_API.G_EXCEPTION_ERROR;
3107: END IF;
3108: -- Actual Logic Starts Here ..
3109: l_trans_hdr_rec := p_trans_hdr_rec;
3110: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3108: -- Actual Logic Starts Here ..
3109: l_trans_hdr_rec := p_trans_hdr_rec;
3110: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3111: 'Source ID=' || to_char(l_trans_hdr_rec.source_id) || 'Source Header Table=' || l_trans_hdr_rec.source_table );
3112: IF ( l_trans_hdr_rec.source_id = OKL_API.G_MISS_NUM or l_trans_hdr_rec.source_id IS NULL )
3113: THEN
3114: OKL_API.set_message(
3115: p_app_name => G_APP_NAME
3116: ,p_msg_name => G_INVALID_VALUE
3110: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3111: 'Source ID=' || to_char(l_trans_hdr_rec.source_id) || 'Source Header Table=' || l_trans_hdr_rec.source_table );
3112: IF ( l_trans_hdr_rec.source_id = OKL_API.G_MISS_NUM or l_trans_hdr_rec.source_id IS NULL )
3113: THEN
3114: OKL_API.set_message(
3115: p_app_name => G_APP_NAME
3116: ,p_msg_name => G_INVALID_VALUE
3117: ,p_token1 => G_COL_NAME_TOKEN
3118: ,p_token1_value => 'HEADER.SOURCE_ID');
3115: p_app_name => G_APP_NAME
3116: ,p_msg_name => G_INVALID_VALUE
3117: ,p_token1 => G_COL_NAME_TOKEN
3118: ,p_token1_value => 'HEADER.SOURCE_ID');
3119: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: END IF;
3122: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3123: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3116: ,p_msg_name => G_INVALID_VALUE
3117: ,p_token1 => G_COL_NAME_TOKEN
3118: ,p_token1_value => 'HEADER.SOURCE_ID');
3119: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: END IF;
3122: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3123: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3124: THEN
3118: ,p_token1_value => 'HEADER.SOURCE_ID');
3119: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: END IF;
3122: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3123: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3124: THEN
3125: OKL_API.set_message(
3126: p_app_name => G_APP_NAME
3121: END IF;
3122: IF ( l_trans_hdr_rec.source_table = OKL_API.G_MISS_CHAR or l_trans_hdr_rec.source_table IS NULL
3123: OR l_trans_hdr_rec.source_table NOT IN ( G_TRX_CONTRACTS) )
3124: THEN
3125: OKL_API.set_message(
3126: p_app_name => G_APP_NAME
3127: ,p_msg_name => G_INVALID_VALUE
3128: ,p_token1 => G_COL_NAME_TOKEN
3129: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3126: p_app_name => G_APP_NAME
3127: ,p_msg_name => G_INVALID_VALUE
3128: ,p_token1 => G_COL_NAME_TOKEN
3129: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3130: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: END IF;
3133: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3134: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
3127: ,p_msg_name => G_INVALID_VALUE
3128: ,p_token1 => G_COL_NAME_TOKEN
3129: ,p_token1_value => 'HEADER.SOURCE_TABLE');
3130: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3132: END IF;
3133: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3134: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
3135: FOR t_rec IN get_txl_ext_hdr_id(
3168: ,p_tehv_rec => l_trans_hdr_rec -- Initalized with the HEADER_EXTENSION_ID
3169: );
3170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3171: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3172: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3169: );
3170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3171: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3172: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3177: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3171: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3172: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3177: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3178: 'Calling okl_api.end_activity');
3171: 'After executing the okl_trx_extension_pvt.delete_trx_extension l_return_status' || l_return_status );
3172: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3177: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3178: 'Calling okl_api.end_activity');
3179: okl_api.end_activity(
3174: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3177: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3178: 'Calling okl_api.end_activity');
3179: okl_api.end_activity(
3180: x_msg_count => x_msg_count
3181: ,x_msg_data => x_msg_data);
3182: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3175: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: END IF;
3177: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3178: 'Calling okl_api.end_activity');
3179: okl_api.end_activity(
3180: x_msg_count => x_msg_count
3181: ,x_msg_data => x_msg_data);
3182: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3183: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3180: x_msg_count => x_msg_count
3181: ,x_msg_data => x_msg_data);
3182: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3183: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
3184: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3185: EXCEPTION
3186: ------------------------------------------------------------
3187: -- Exception handling
3188: ------------------------------------------------------------
3185: EXCEPTION
3186: ------------------------------------------------------------
3187: -- Exception handling
3188: ------------------------------------------------------------
3189: WHEN OKL_API.G_EXCEPTION_ERROR
3190: THEN
3191: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3192: p_api_name => l_api_name
3193: ,p_pkg_name => G_PKG_NAME
3187: -- Exception handling
3188: ------------------------------------------------------------
3189: WHEN OKL_API.G_EXCEPTION_ERROR
3190: THEN
3191: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3192: p_api_name => l_api_name
3193: ,p_pkg_name => G_PKG_NAME
3194: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3195: ,x_msg_count => x_msg_count
3190: THEN
3191: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3192: p_api_name => l_api_name
3193: ,p_pkg_name => G_PKG_NAME
3194: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3195: ,x_msg_count => x_msg_count
3196: ,x_msg_data => x_msg_data
3197: ,p_api_type => '_PVT');
3198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3194: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3195: ,x_msg_count => x_msg_count
3196: ,x_msg_data => x_msg_data
3197: ,p_api_type => '_PVT');
3198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3199: THEN
3200: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3201: p_api_name => l_api_name
3202: ,p_pkg_name => G_PKG_NAME
3196: ,x_msg_data => x_msg_data
3197: ,p_api_type => '_PVT');
3198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3199: THEN
3200: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3201: p_api_name => l_api_name
3202: ,p_pkg_name => G_PKG_NAME
3203: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3204: ,x_msg_count => x_msg_count
3199: THEN
3200: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3201: p_api_name => l_api_name
3202: ,p_pkg_name => G_PKG_NAME
3203: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3204: ,x_msg_count => x_msg_count
3205: ,x_msg_data => x_msg_data
3206: ,p_api_type => '_PVT');
3207: WHEN OTHERS
3205: ,x_msg_data => x_msg_data
3206: ,p_api_type => '_PVT');
3207: WHEN OTHERS
3208: THEN
3209: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3210: p_api_name => l_api_name
3211: ,p_pkg_name => G_PKG_NAME
3212: ,p_exc_name => 'OTHERS'
3213: ,x_msg_count => x_msg_count
3502: -- Declare Process Variable
3503: -----------------------------------------------------------------
3504: l_api_version CONSTANT NUMBER := 1;
3505: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_KHR_SOURCES';
3506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3507:
3508: ----------------------------------------------
3509: -- Variables based on Cursor record structures
3510: ----------------------------------------------
3547: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3548: 'BEGIN DEBUG OKLRSLAB.PLS CALL ' || l_api_name);
3549: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3550: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3552: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3553: 'CALLING OKL_API.START_ACTIVITY');
3554: l_return_status := OKL_API.START_ACTIVITY(
3555: p_api_name => l_api_name
3549: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3550: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3552: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3553: 'CALLING OKL_API.START_ACTIVITY');
3554: l_return_status := OKL_API.START_ACTIVITY(
3555: p_api_name => l_api_name
3556: ,p_pkg_name => g_pkg_name
3557: ,p_init_msg_list => p_init_msg_list
3550: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3551: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3552: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3553: 'CALLING OKL_API.START_ACTIVITY');
3554: l_return_status := OKL_API.START_ACTIVITY(
3555: p_api_name => l_api_name
3556: ,p_pkg_name => g_pkg_name
3557: ,p_init_msg_list => p_init_msg_list
3558: ,l_api_version => l_api_version
3561: ,x_return_status => l_return_status);
3562: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3563: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3564:
3565: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3566: THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3569: THEN
3563: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3564:
3565: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3566: THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3569: THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3564:
3565: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3566: THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3569: THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572:
3566: THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3569: THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572:
3573: -- Copy input parameter to local variable
3574: l_khr_id := x_khr_source_rec.khr_id;
3824: p_khr_source_rec => x_khr_source_rec
3825: ,p_module => l_module);
3826: END IF;
3827: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3828: 'CALLING OKL_API.END_ACTIVITY');
3829: okl_api.end_activity(
3830: x_msg_count => x_msg_count
3831: ,x_msg_data => x_msg_data);
3832: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3825: ,p_module => l_module);
3826: END IF;
3827: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3828: 'CALLING OKL_API.END_ACTIVITY');
3829: okl_api.end_activity(
3830: x_msg_count => x_msg_count
3831: ,x_msg_data => x_msg_data);
3832: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3833: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3830: x_msg_count => x_msg_count
3831: ,x_msg_data => x_msg_data);
3832: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3833: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KHR_SOURCES');
3834: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3835: EXCEPTION
3836: ------------------------------------------------------------
3837: -- Exception handling
3838: ------------------------------------------------------------
3835: EXCEPTION
3836: ------------------------------------------------------------
3837: -- Exception handling
3838: ------------------------------------------------------------
3839: WHEN OKL_API.G_EXCEPTION_ERROR
3840: THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3842: p_api_name => l_api_name
3843: ,p_pkg_name => G_PKG_NAME
3837: -- Exception handling
3838: ------------------------------------------------------------
3839: WHEN OKL_API.G_EXCEPTION_ERROR
3840: THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3842: p_api_name => l_api_name
3843: ,p_pkg_name => G_PKG_NAME
3844: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3845: ,x_msg_count => x_msg_count
3840: THEN
3841: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3842: p_api_name => l_api_name
3843: ,p_pkg_name => G_PKG_NAME
3844: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3845: ,x_msg_count => x_msg_count
3846: ,x_msg_data => x_msg_data
3847: ,p_api_type => '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3844: ,p_exc_name => OKL_API.G_RET_STS_ERROR
3845: ,x_msg_count => x_msg_count
3846: ,x_msg_data => x_msg_data
3847: ,p_api_type => '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3849: THEN
3850: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3851: p_api_name => l_api_name
3852: ,p_pkg_name => G_PKG_NAME
3846: ,x_msg_data => x_msg_data
3847: ,p_api_type => '_PVT');
3848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3849: THEN
3850: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3851: p_api_name => l_api_name
3852: ,p_pkg_name => G_PKG_NAME
3853: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3854: ,x_msg_count => x_msg_count
3849: THEN
3850: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3851: p_api_name => l_api_name
3852: ,p_pkg_name => G_PKG_NAME
3853: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
3854: ,x_msg_count => x_msg_count
3855: ,x_msg_data => x_msg_data
3856: ,p_api_type => '_PVT');
3857: WHEN OTHERS
3855: ,x_msg_data => x_msg_data
3856: ,p_api_type => '_PVT');
3857: WHEN OTHERS
3858: THEN
3859: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
3860: p_api_name => l_api_name
3861: ,p_pkg_name => G_PKG_NAME
3862: ,p_exc_name => 'OTHERS'
3863: ,x_msg_count => x_msg_count
3890: -- Declare Process Variable
3891: -----------------------------------------------------------------
3892: l_api_version CONSTANT NUMBER := 1;
3893: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_KLE_SOURCES';
3894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3895:
3896: ----------------------------------------------
3897: -- Variables based on cursor record structures
3898: ----------------------------------------------
3926: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3927: 'BEGIN DEBUG OKLRSLAB.PLS CALL ' || l_api_name);
3928: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3929: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3930: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3931: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3932: 'CALLING OKL_API.START_ACTIVITY');
3933: l_return_status := OKL_API.START_ACTIVITY(
3934: p_api_name => l_api_name
3928: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
3929: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3930: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3931: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3932: 'CALLING OKL_API.START_ACTIVITY');
3933: l_return_status := OKL_API.START_ACTIVITY(
3934: p_api_name => l_api_name
3935: ,p_pkg_name => g_pkg_name
3936: ,p_init_msg_list => p_init_msg_list
3929: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
3930: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3931: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3932: 'CALLING OKL_API.START_ACTIVITY');
3933: l_return_status := OKL_API.START_ACTIVITY(
3934: p_api_name => l_api_name
3935: ,p_pkg_name => g_pkg_name
3936: ,p_init_msg_list => p_init_msg_list
3937: ,l_api_version => l_api_version
3940: ,x_return_status => l_return_status);
3941: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
3942: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3943:
3944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3945: THEN
3946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3947: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3948: THEN
3942: 'AFTER START ACTIVITY L_RETURN_STATUS ' || l_return_status );
3943:
3944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3945: THEN
3946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3947: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3948: THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3943:
3944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3945: THEN
3946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3947: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3948: THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3951:
3945: THEN
3946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3947: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3948: THEN
3949: RAISE OKL_API.G_EXCEPTION_ERROR;
3950: END IF;
3951:
3952: -- Copy input parameter to local variables
3953: l_khr_id := x_kle_source_rec.khr_id;
4050: ,p_module => l_module);
4051: END IF;
4052:
4053: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4054: 'CALLING OKL_API.END_ACTIVITY');
4055: okl_api.end_activity(
4056: x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data);
4058: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4051: END IF;
4052:
4053: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4054: 'CALLING OKL_API.END_ACTIVITY');
4055: okl_api.end_activity(
4056: x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data);
4058: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4059: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
4056: x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data);
4058: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4059: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_KLE_SOURCES');
4060: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4061: EXCEPTION
4062: ------------------------------------------------------------
4063: -- Exception handling
4064: ------------------------------------------------------------
4061: EXCEPTION
4062: ------------------------------------------------------------
4063: -- Exception handling
4064: ------------------------------------------------------------
4065: WHEN OKL_API.G_EXCEPTION_ERROR
4066: THEN
4067: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4068: p_api_name => l_api_name
4069: ,p_pkg_name => G_PKG_NAME
4063: -- Exception handling
4064: ------------------------------------------------------------
4065: WHEN OKL_API.G_EXCEPTION_ERROR
4066: THEN
4067: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4068: p_api_name => l_api_name
4069: ,p_pkg_name => G_PKG_NAME
4070: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4071: ,x_msg_count => x_msg_count
4066: THEN
4067: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4068: p_api_name => l_api_name
4069: ,p_pkg_name => G_PKG_NAME
4070: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4071: ,x_msg_count => x_msg_count
4072: ,x_msg_data => x_msg_data
4073: ,p_api_type => '_PVT');
4074: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4070: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4071: ,x_msg_count => x_msg_count
4072: ,x_msg_data => x_msg_data
4073: ,p_api_type => '_PVT');
4074: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4075: THEN
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4077: p_api_name => l_api_name
4078: ,p_pkg_name => G_PKG_NAME
4072: ,x_msg_data => x_msg_data
4073: ,p_api_type => '_PVT');
4074: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4075: THEN
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4077: p_api_name => l_api_name
4078: ,p_pkg_name => G_PKG_NAME
4079: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4080: ,x_msg_count => x_msg_count
4075: THEN
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4077: p_api_name => l_api_name
4078: ,p_pkg_name => G_PKG_NAME
4079: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4080: ,x_msg_count => x_msg_count
4081: ,x_msg_data => x_msg_data
4082: ,p_api_type => '_PVT');
4083: WHEN OTHERS
4081: ,x_msg_data => x_msg_data
4082: ,p_api_type => '_PVT');
4083: WHEN OTHERS
4084: THEN
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4086: p_api_name => l_api_name
4087: ,p_pkg_name => G_PKG_NAME
4088: ,p_exc_name => 'OTHERS'
4089: ,x_msg_count => x_msg_count
4127: -- Declare Process Variable
4128: -----------------------------------------------------------------
4129: l_api_version CONSTANT NUMBER := 1;
4130: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-FA';
4131: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4132: -----------------------------------------------------------------
4133: -- Local Variables
4134: -----------------------------------------------------------------
4135: l_khr_id NUMBER;
4180: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4181: 'begin debug OKLRSLAB.pls call ' || l_api_name);
4182: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4183: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4184: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4185: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4186: 'Calling OKL_API.START_ACTIVITY');
4187: l_return_status := OKL_API.START_ACTIVITY(
4188: p_api_name => l_api_name
4182: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4183: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4184: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4185: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4186: 'Calling OKL_API.START_ACTIVITY');
4187: l_return_status := OKL_API.START_ACTIVITY(
4188: p_api_name => l_api_name
4189: ,p_pkg_name => g_pkg_name
4190: ,p_init_msg_list => p_init_msg_list
4183: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4184: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4185: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4186: 'Calling OKL_API.START_ACTIVITY');
4187: l_return_status := OKL_API.START_ACTIVITY(
4188: p_api_name => l_api_name
4189: ,p_pkg_name => g_pkg_name
4190: ,p_init_msg_list => p_init_msg_list
4191: ,l_api_version => l_api_version
4191: ,l_api_version => l_api_version
4192: ,p_api_version => p_api_version
4193: ,p_api_type => '_PVT'
4194: ,x_return_status => l_return_status);
4195: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4197: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4198: RAISE OKL_API.G_EXCEPTION_ERROR;
4199: END IF;
4192: ,p_api_version => p_api_version
4193: ,p_api_type => '_PVT'
4194: ,x_return_status => l_return_status);
4195: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4197: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4198: RAISE OKL_API.G_EXCEPTION_ERROR;
4199: END IF;
4200: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4193: ,p_api_type => '_PVT'
4194: ,x_return_status => l_return_status);
4195: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4197: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4198: RAISE OKL_API.G_EXCEPTION_ERROR;
4199: END IF;
4200: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4201: 'Before Performing validations');
4194: ,x_return_status => l_return_status);
4195: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4197: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4198: RAISE OKL_API.G_EXCEPTION_ERROR;
4199: END IF;
4200: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4201: 'Before Performing validations');
4202: -- Validations to be done:
4204: -- dnz_khr_id, kle_id, try_id, asset_id, fa_transaction_id, source_id,
4205: -- source_table and asset_book_type_code
4206: l_pk_attributes := NULL;
4207: IF p_fxhv_rec.source_id IS NULL OR
4208: p_fxhv_rec.source_id = OKL_API.G_MISS_NUM
4209: THEN
4210: IF l_pk_attributes IS NOT NULL
4211: THEN
4212: l_pk_attributes := l_pk_attributes || ' , ';
4213: END IF;
4214: l_pk_attributes := l_pk_attributes || 'FXH.SOURCE_ID';
4215: END IF;
4216: IF p_fxhv_rec.source_table IS NULL OR
4217: p_fxhv_rec.source_table = OKL_API.G_MISS_CHAR
4218: THEN
4219: IF l_pk_attributes IS NOT NULL
4220: THEN
4221: l_pk_attributes := l_pk_attributes || ' , ';
4222: END IF;
4223: l_pk_attributes := l_pk_attributes || 'FXH.SOURCE_TABLE';
4224: END IF;
4225: IF p_fxhv_rec.khr_id IS NULL OR
4226: p_fxhv_rec.khr_id = OKL_API.G_MISS_NUM
4227: THEN
4228: IF l_pk_attributes IS NOT NULL
4229: THEN
4230: l_pk_attributes := l_pk_attributes || ' , ';
4231: END IF;
4232: l_pk_attributes := l_pk_attributes || 'KHR_ID';
4233: END IF;
4234: IF p_fxlv_rec.kle_id IS NULL OR
4235: p_fxlv_rec.kle_id = OKL_API.G_MISS_NUM
4236: THEN
4237: IF l_pk_attributes IS NOT NULL
4238: THEN
4239: l_pk_attributes := l_pk_attributes || ' , ';
4240: END IF;
4241: l_pk_attributes := l_pk_attributes || 'KLE_ID';
4242: END IF;
4243: IF p_fxhv_rec.try_id IS NULL OR
4244: p_fxhv_rec.try_id = OKL_API.G_MISS_NUM
4245: THEN
4246: IF l_pk_attributes IS NOT NULL
4247: THEN
4248: l_pk_attributes := l_pk_attributes || ' , ';
4249: END IF;
4250: l_pk_attributes := l_pk_attributes || 'TRY_ID';
4251: END IF;
4252: IF p_fxlv_rec.asset_id IS NULL OR
4253: p_fxlv_rec.asset_id = OKL_API.G_MISS_NUM
4254: THEN
4255: IF l_pk_attributes IS NOT NULL
4256: THEN
4257: l_pk_attributes := l_pk_attributes || ' , ';
4259: l_pk_attributes := l_pk_attributes || 'ASSET_ID';
4260: END IF;
4261:
4262: IF p_fxlv_rec.fa_transaction_id IS NULL OR
4263: p_fxlv_rec.fa_transaction_id = OKL_API.G_MISS_NUM
4264: THEN
4265: IF l_pk_attributes IS NOT NULL
4266: THEN
4267: l_pk_attributes := l_pk_attributes || ' , ';
4268: END IF;
4269: l_pk_attributes := l_pk_attributes || 'FA_TRANSACTION_ID';
4270: END IF;
4271: IF p_fxlv_rec.asset_book_type_name IS NULL OR
4272: p_fxlv_rec.asset_book_type_name = OKL_API.G_MISS_CHAR
4273: THEN
4274: IF l_pk_attributes IS NOT NULL
4275: THEN
4276: l_pk_attributes := l_pk_attributes || ' , ';
4277: END IF;
4278: l_pk_attributes := l_pk_attributes || 'ASSET_BOOK_TYPE_NAME';
4279: END IF;
4280: IF p_fxlv_rec.source_id IS NULL OR
4281: p_fxlv_rec.source_id = OKL_API.G_MISS_NUM
4282: THEN
4283: IF l_pk_attributes IS NOT NULL
4284: THEN
4285: l_pk_attributes := l_pk_attributes || ' , ';
4286: END IF;
4287: l_pk_attributes := l_pk_attributes || 'FXL.SOURCE_ID';
4288: END IF;
4289: IF p_fxlv_rec.source_table IS NULL OR
4290: p_fxlv_rec.source_table = OKL_API.G_MISS_CHAR
4291: THEN
4292: IF l_pk_attributes IS NOT NULL
4293: THEN
4294: l_pk_attributes := l_pk_attributes || ' , ';
4297: END IF;
4298: IF LENGTH(l_pk_attributes) > 0
4299: THEN
4300: -- Raise an Exception
4301: OKL_API.set_message(
4302: p_app_name => G_APP_NAME
4303: ,p_msg_name => G_INVALID_VALUE
4304: ,p_token1 => G_COL_NAME_TOKEN
4305: ,p_token1_value => l_pk_attributes);
4302: p_app_name => G_APP_NAME
4303: ,p_msg_name => G_INVALID_VALUE
4304: ,p_token1 => G_COL_NAME_TOKEN
4305: ,p_token1_value => l_pk_attributes);
4306: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4308: END IF;
4309: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4310: 'Validation 1 Successfull !');
4303: ,p_msg_name => G_INVALID_VALUE
4304: ,p_token1 => G_COL_NAME_TOKEN
4305: ,p_token1_value => l_pk_attributes);
4306: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4308: END IF;
4309: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4310: 'Validation 1 Successfull !');
4311: -- Validation 2: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4311: -- Validation 2: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4312: IF p_fxhv_rec.source_table <> G_TRX_ASSETS
4313: THEN
4314: -- Raise an Exception
4315: OKL_API.set_message(
4316: p_app_name => G_APP_NAME
4317: ,p_msg_name => G_INVALID_VALUE
4318: ,p_token1 => G_COL_NAME_TOKEN
4319: ,p_token1_value => 'SOURCE_TABLE');
4316: p_app_name => G_APP_NAME
4317: ,p_msg_name => G_INVALID_VALUE
4318: ,p_token1 => G_COL_NAME_TOKEN
4319: ,p_token1_value => 'SOURCE_TABLE');
4320: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: END IF;
4323: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4324: 'Validation 2 Successfull !');
4317: ,p_msg_name => G_INVALID_VALUE
4318: ,p_token1 => G_COL_NAME_TOKEN
4319: ,p_token1_value => 'SOURCE_TABLE');
4320: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: END IF;
4323: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4324: 'Validation 2 Successfull !');
4325: -- Validation 3: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4325: -- Validation 3: Source Table should be OKL_TXL_ASSETS_B/OKL_TXD_ASSETS_B only
4326: IF p_fxlv_rec.source_table NOT IN ( G_TXL_ASSETS, G_TXD_ASSETS )
4327: THEN
4328: -- Raise an Exception
4329: OKL_API.set_message(
4330: p_app_name => G_APP_NAME
4331: ,p_msg_name => G_INVALID_VALUE
4332: ,p_token1 => G_COL_NAME_TOKEN
4333: ,p_token1_value => 'SOURCE_TABLE');
4330: p_app_name => G_APP_NAME
4331: ,p_msg_name => G_INVALID_VALUE
4332: ,p_token1 => G_COL_NAME_TOKEN
4333: ,p_token1_value => 'SOURCE_TABLE');
4334: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: END IF;
4337: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4338: 'Validation 3 Successfull !');
4331: ,p_msg_name => G_INVALID_VALUE
4332: ,p_token1 => G_COL_NAME_TOKEN
4333: ,p_token1_value => 'SOURCE_TABLE');
4334: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: END IF;
4337: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4338: 'Validation 3 Successfull !');
4339: -- Validation 4: The kle_id value passed should be the Id of the Line with
4345: IF l_line_style IS NULL OR
4346: l_line_style <> 'FREE_FORM1'
4347: THEN
4348: -- Raise an Exception
4349: OKL_API.set_message(
4350: p_app_name => G_APP_NAME
4351: ,p_msg_name => G_INVALID_VALUE
4352: ,p_token1 => G_COL_NAME_TOKEN
4353: ,p_token1_value => 'KLE_ID');
4350: p_app_name => G_APP_NAME
4351: ,p_msg_name => G_INVALID_VALUE
4352: ,p_token1 => G_COL_NAME_TOKEN
4353: ,p_token1_value => 'KLE_ID');
4354: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4356: END IF;
4357:
4358: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4351: ,p_msg_name => G_INVALID_VALUE
4352: ,p_token1 => G_COL_NAME_TOKEN
4353: ,p_token1_value => 'KLE_ID');
4354: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4356: END IF;
4357:
4358: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4359: 'Validation 4 Successfull !');
4458: ,x_msg_data => x_msg_data );
4459: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4460: 'After populate_khr_sources: l_return_status ' || l_return_status );
4461: -- Check the return status and if errored, return the error back
4462: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4464: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4459: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4460: 'After populate_khr_sources: l_return_status ' || l_return_status );
4461: -- Check the return status and if errored, return the error back
4462: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4464: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4467:
4460: 'After populate_khr_sources: l_return_status ' || l_return_status );
4461: -- Check the return status and if errored, return the error back
4462: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4464: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4467:
4468: --calling assign_khr_rec_to_fxhv_rec
4461: -- Check the return status and if errored, return the error back
4462: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4464: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4467:
4468: --calling assign_khr_rec_to_fxhv_rec
4469: assign_khr_rec_to_fxh_rec(
4600: );
4601: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4602: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
4603: -- Check the return status and if errored, return the error back
4604: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4605: THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
4603: -- Check the return status and if errored, return the error back
4604: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4605: THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610:
4603: -- Check the return status and if errored, return the error back
4604: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4605: THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610:
4611: l_header_extension_id := lx_fxh_rec.header_extension_id;
4604: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4605: THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610:
4611: l_header_extension_id := lx_fxh_rec.header_extension_id;
4612: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
4624: ,x_msg_data => x_msg_data );
4625: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4626: 'After populate_kle_sources: l_return_status ' || l_return_status );
4627: -- Check the return status and if errored, return the error back
4628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4629: THEN
4630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4632: RAISE OKL_API.G_EXCEPTION_ERROR;
4626: 'After populate_kle_sources: l_return_status ' || l_return_status );
4627: -- Check the return status and if errored, return the error back
4628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4629: THEN
4630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4632: RAISE OKL_API.G_EXCEPTION_ERROR;
4633: END IF;
4634:
4627: -- Check the return status and if errored, return the error back
4628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4629: THEN
4630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4632: RAISE OKL_API.G_EXCEPTION_ERROR;
4633: END IF;
4634:
4635: -- Assin the KLE Sources to the FA Extension Line
4628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4629: THEN
4630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4632: RAISE OKL_API.G_EXCEPTION_ERROR;
4633: END IF;
4634:
4635: -- Assin the KLE Sources to the FA Extension Line
4636: assign_kle_rec_to_fxl_rec(
4687: );
4688: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4689: 'After okl_fa_extension_pvt.create_fxl_extension: l_return_status ' || l_return_status );
4690: -- Check the return status and if errored, return the error back
4691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4692: THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4695: THEN
4689: 'After okl_fa_extension_pvt.create_fxl_extension: l_return_status ' || l_return_status );
4690: -- Check the return status and if errored, return the error back
4691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4692: THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4695: THEN
4696: RAISE OKL_API.G_EXCEPTION_ERROR;
4697: END IF;
4690: -- Check the return status and if errored, return the error back
4691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4692: THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4695: THEN
4696: RAISE OKL_API.G_EXCEPTION_ERROR;
4697: END IF;
4698: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4692: THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4695: THEN
4696: RAISE OKL_API.G_EXCEPTION_ERROR;
4697: END IF;
4698: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4699: 'Calling okl_api.end_activity');
4700: okl_api.end_activity(
4695: THEN
4696: RAISE OKL_API.G_EXCEPTION_ERROR;
4697: END IF;
4698: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4699: 'Calling okl_api.end_activity');
4700: okl_api.end_activity(
4701: x_msg_count => x_msg_count
4702: ,x_msg_data => x_msg_data);
4703: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4696: RAISE OKL_API.G_EXCEPTION_ERROR;
4697: END IF;
4698: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4699: 'Calling okl_api.end_activity');
4700: okl_api.end_activity(
4701: x_msg_count => x_msg_count
4702: ,x_msg_data => x_msg_data);
4703: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4704: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4701: x_msg_count => x_msg_count
4702: ,x_msg_data => x_msg_data);
4703: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4704: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
4705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4706: EXCEPTION
4707: ------------------------------------------------------------
4708: -- Exception handling
4709: ------------------------------------------------------------
4706: EXCEPTION
4707: ------------------------------------------------------------
4708: -- Exception handling
4709: ------------------------------------------------------------
4710: WHEN OKL_API.G_EXCEPTION_ERROR
4711: THEN
4712: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4713: p_api_name => l_api_name
4714: ,p_pkg_name => G_PKG_NAME
4708: -- Exception handling
4709: ------------------------------------------------------------
4710: WHEN OKL_API.G_EXCEPTION_ERROR
4711: THEN
4712: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4713: p_api_name => l_api_name
4714: ,p_pkg_name => G_PKG_NAME
4715: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4716: ,x_msg_count => x_msg_count
4711: THEN
4712: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4713: p_api_name => l_api_name
4714: ,p_pkg_name => G_PKG_NAME
4715: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4716: ,x_msg_count => x_msg_count
4717: ,x_msg_data => x_msg_data
4718: ,p_api_type => '_PVT');
4719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4715: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4716: ,x_msg_count => x_msg_count
4717: ,x_msg_data => x_msg_data
4718: ,p_api_type => '_PVT');
4719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4720: THEN
4721: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4722: p_api_name => l_api_name
4723: ,p_pkg_name => G_PKG_NAME
4717: ,x_msg_data => x_msg_data
4718: ,p_api_type => '_PVT');
4719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4720: THEN
4721: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4722: p_api_name => l_api_name
4723: ,p_pkg_name => G_PKG_NAME
4724: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4725: ,x_msg_count => x_msg_count
4720: THEN
4721: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4722: p_api_name => l_api_name
4723: ,p_pkg_name => G_PKG_NAME
4724: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4725: ,x_msg_count => x_msg_count
4726: ,x_msg_data => x_msg_data
4727: ,p_api_type => '_PVT');
4728: WHEN OTHERS
4726: ,x_msg_data => x_msg_data
4727: ,p_api_type => '_PVT');
4728: WHEN OTHERS
4729: THEN
4730: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4731: p_api_name => l_api_name
4732: ,p_pkg_name => G_PKG_NAME
4733: ,p_exc_name => 'OTHERS'
4734: ,x_msg_count => x_msg_count
4750: -- Declare Process Variable
4751: -----------------------------------------------------------------
4752: l_api_version CONSTANT NUMBER := 1;
4753: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
4754: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4755: fxl_index BINARY_INTEGER;
4756: l_fxhv_rec okl_fxh_pvt.fxhv_rec_type;
4757: l_fxlv_tbl okl_fxl_pvt.fxlv_tbl_type;
4758: lx_fxhv_rec okl_fxh_pvt.fxhv_rec_type;
4786: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4787: 'begin debug OKLRSLAB.pls call ' || l_api_name);
4788: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4789: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4790: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4791: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4792: 'Calling OKL_API.START_ACTIVITY');
4793: l_return_status := OKL_API.START_ACTIVITY(
4794: p_api_name => l_api_name
4788: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4789: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4790: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4791: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4792: 'Calling OKL_API.START_ACTIVITY');
4793: l_return_status := OKL_API.START_ACTIVITY(
4794: p_api_name => l_api_name
4795: ,p_pkg_name => g_pkg_name
4796: ,p_init_msg_list => p_init_msg_list
4789: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4790: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4791: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4792: 'Calling OKL_API.START_ACTIVITY');
4793: l_return_status := OKL_API.START_ACTIVITY(
4794: p_api_name => l_api_name
4795: ,p_pkg_name => g_pkg_name
4796: ,p_init_msg_list => p_init_msg_list
4797: ,l_api_version => l_api_version
4797: ,l_api_version => l_api_version
4798: ,p_api_version => p_api_version
4799: ,p_api_type => '_PVT'
4800: ,x_return_status => l_return_status);
4801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4804: RAISE OKL_API.G_EXCEPTION_ERROR;
4805: END IF;
4798: ,p_api_version => p_api_version
4799: ,p_api_type => '_PVT'
4800: ,x_return_status => l_return_status);
4801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4804: RAISE OKL_API.G_EXCEPTION_ERROR;
4805: END IF;
4806: -- Actual Logic Starts Here ..
4799: ,p_api_type => '_PVT'
4800: ,x_return_status => l_return_status);
4801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4804: RAISE OKL_API.G_EXCEPTION_ERROR;
4805: END IF;
4806: -- Actual Logic Starts Here ..
4807: l_fxhv_rec := p_fxhv_rec;
4800: ,x_return_status => l_return_status);
4801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4804: RAISE OKL_API.G_EXCEPTION_ERROR;
4805: END IF;
4806: -- Actual Logic Starts Here ..
4807: l_fxhv_rec := p_fxhv_rec;
4808: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4806: -- Actual Logic Starts Here ..
4807: l_fxhv_rec := p_fxhv_rec;
4808: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4809: 'Source ID=' || to_char(l_fxhv_rec.source_id) || 'Source Header Table=' || l_fxhv_rec.source_table );
4810: IF ( l_fxhv_rec.source_id = OKL_API.G_MISS_NUM or l_fxhv_rec.source_id IS NULL )
4811: THEN
4812: OKL_API.set_message(
4813: p_app_name => G_APP_NAME
4814: ,p_msg_name => G_INVALID_VALUE
4808: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4809: 'Source ID=' || to_char(l_fxhv_rec.source_id) || 'Source Header Table=' || l_fxhv_rec.source_table );
4810: IF ( l_fxhv_rec.source_id = OKL_API.G_MISS_NUM or l_fxhv_rec.source_id IS NULL )
4811: THEN
4812: OKL_API.set_message(
4813: p_app_name => G_APP_NAME
4814: ,p_msg_name => G_INVALID_VALUE
4815: ,p_token1 => G_COL_NAME_TOKEN
4816: ,p_token1_value => 'FXH.SOURCE_ID');
4813: p_app_name => G_APP_NAME
4814: ,p_msg_name => G_INVALID_VALUE
4815: ,p_token1 => G_COL_NAME_TOKEN
4816: ,p_token1_value => 'FXH.SOURCE_ID');
4817: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: END IF;
4820: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4821: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4814: ,p_msg_name => G_INVALID_VALUE
4815: ,p_token1 => G_COL_NAME_TOKEN
4816: ,p_token1_value => 'FXH.SOURCE_ID');
4817: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: END IF;
4820: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4821: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4822: THEN
4816: ,p_token1_value => 'FXH.SOURCE_ID');
4817: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: END IF;
4820: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4821: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4822: THEN
4823: OKL_API.set_message(
4824: p_app_name => G_APP_NAME
4819: END IF;
4820: IF ( l_fxhv_rec.source_table = OKL_API.G_MISS_CHAR OR l_fxhv_rec.source_table IS NULL
4821: OR l_fxhv_rec.source_table NOT IN ( G_TRX_ASSETS) )
4822: THEN
4823: OKL_API.set_message(
4824: p_app_name => G_APP_NAME
4825: ,p_msg_name => G_INVALID_VALUE
4826: ,p_token1 => G_COL_NAME_TOKEN
4827: ,p_token1_value => 'FXH.SOURCE_TABLE');
4824: p_app_name => G_APP_NAME
4825: ,p_msg_name => G_INVALID_VALUE
4826: ,p_token1 => G_COL_NAME_TOKEN
4827: ,p_token1_value => 'FXH.SOURCE_TABLE');
4828: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: END IF;
4831: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4832: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
4825: ,p_msg_name => G_INVALID_VALUE
4826: ,p_token1 => G_COL_NAME_TOKEN
4827: ,p_token1_value => 'FXH.SOURCE_TABLE');
4828: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: END IF;
4831: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4832: 'Fetch the Extension Header ID by executing cursor get_txl_ext_hdr_id' );
4833: FOR t_rec IN get_fa_ext_hdr_id(
4869: );
4870: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4871: 'After okl_fa_extension_pvt.delete_fxh_extension: l_return_status ' || l_return_status );
4872: -- Check the return status and if errored, return the error back
4873: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4874: THEN
4875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: 'After okl_fa_extension_pvt.delete_fxh_extension: l_return_status ' || l_return_status );
4872: -- Check the return status and if errored, return the error back
4873: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4874: THEN
4875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4878: END IF;
4879: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4872: -- Check the return status and if errored, return the error back
4873: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4874: THEN
4875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4878: END IF;
4879: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4880: 'Calling okl_api.end_activity');
4873: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4874: THEN
4875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4878: END IF;
4879: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4880: 'Calling okl_api.end_activity');
4881: okl_api.end_activity(
4876: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4878: END IF;
4879: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4880: 'Calling okl_api.end_activity');
4881: okl_api.end_activity(
4882: x_msg_count => x_msg_count
4883: ,x_msg_data => x_msg_data);
4884: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4877: RAISE OKL_API.G_EXCEPTION_ERROR;
4878: END IF;
4879: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
4880: 'Calling okl_api.end_activity');
4881: okl_api.end_activity(
4882: x_msg_count => x_msg_count
4883: ,x_msg_data => x_msg_data);
4884: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4885: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4882: x_msg_count => x_msg_count
4883: ,x_msg_data => x_msg_data);
4884: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
4885: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
4886: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4887: EXCEPTION
4888: ------------------------------------------------------------
4889: -- Exception handling
4890: ------------------------------------------------------------
4887: EXCEPTION
4888: ------------------------------------------------------------
4889: -- Exception handling
4890: ------------------------------------------------------------
4891: WHEN OKL_API.G_EXCEPTION_ERROR
4892: THEN
4893: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4894: p_api_name => l_api_name
4895: ,p_pkg_name => G_PKG_NAME
4889: -- Exception handling
4890: ------------------------------------------------------------
4891: WHEN OKL_API.G_EXCEPTION_ERROR
4892: THEN
4893: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4894: p_api_name => l_api_name
4895: ,p_pkg_name => G_PKG_NAME
4896: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4897: ,x_msg_count => x_msg_count
4892: THEN
4893: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4894: p_api_name => l_api_name
4895: ,p_pkg_name => G_PKG_NAME
4896: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4897: ,x_msg_count => x_msg_count
4898: ,x_msg_data => x_msg_data
4899: ,p_api_type => '_PVT');
4900: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4896: ,p_exc_name => OKL_API.G_RET_STS_ERROR
4897: ,x_msg_count => x_msg_count
4898: ,x_msg_data => x_msg_data
4899: ,p_api_type => '_PVT');
4900: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4901: THEN
4902: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4903: p_api_name => l_api_name
4904: ,p_pkg_name => G_PKG_NAME
4898: ,x_msg_data => x_msg_data
4899: ,p_api_type => '_PVT');
4900: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4901: THEN
4902: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4903: p_api_name => l_api_name
4904: ,p_pkg_name => G_PKG_NAME
4905: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4906: ,x_msg_count => x_msg_count
4901: THEN
4902: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4903: p_api_name => l_api_name
4904: ,p_pkg_name => G_PKG_NAME
4905: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
4906: ,x_msg_count => x_msg_count
4907: ,x_msg_data => x_msg_data
4908: ,p_api_type => '_PVT');
4909: WHEN OTHERS
4907: ,x_msg_data => x_msg_data
4908: ,p_api_type => '_PVT');
4909: WHEN OTHERS
4910: THEN
4911: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
4912: p_api_name => l_api_name
4913: ,p_pkg_name => G_PKG_NAME
4914: ,p_exc_name => 'OTHERS'
4915: ,x_msg_count => x_msg_count
5114: -- Declare Process Variable
5115: -----------------------------------------------------------------
5116: l_api_version CONSTANT NUMBER := 1;
5117: l_api_name CONSTANT VARCHAR2(30) := 'populate_ar_sources';
5118: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5119: -----------------------------------------------------------------
5120: -- Local Variables
5121: -----------------------------------------------------------------
5122: l_khr_id NUMBER;
5170: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5171: 'begin debug OKLRSLAB.pls call ' || l_api_name);
5172: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5173: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5174: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5175: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5176: 'Calling OKL_API.START_ACTIVITY');
5177: l_return_status := OKL_API.START_ACTIVITY(
5178: p_api_name => l_api_name
5172: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5173: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5174: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5175: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5176: 'Calling OKL_API.START_ACTIVITY');
5177: l_return_status := OKL_API.START_ACTIVITY(
5178: p_api_name => l_api_name
5179: ,p_pkg_name => g_pkg_name
5180: ,p_init_msg_list => p_init_msg_list
5173: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5174: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5175: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5176: 'Calling OKL_API.START_ACTIVITY');
5177: l_return_status := OKL_API.START_ACTIVITY(
5178: p_api_name => l_api_name
5179: ,p_pkg_name => g_pkg_name
5180: ,p_init_msg_list => p_init_msg_list
5181: ,l_api_version => l_api_version
5181: ,l_api_version => l_api_version
5182: ,p_api_version => p_api_version
5183: ,p_api_type => '_PVT'
5184: ,x_return_status => l_return_status);
5185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5182: ,p_api_version => p_api_version
5183: ,p_api_type => '_PVT'
5184: ,x_return_status => l_return_status);
5185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: -- Validations to be done
5183: ,p_api_type => '_PVT'
5184: ,x_return_status => l_return_status);
5185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: -- Validations to be done
5191: -- Validation 1:
5184: ,x_return_status => l_return_status);
5185: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: -- Validations to be done
5191: -- Validation 1:
5192: -- The following attributes should not be NULL
5195: -- Bug 6328168: sty_id is made optional as for On-Account Credit Memo
5196: -- its not mandatory at all
5197: l_pk_attributes := NULL;
5198: IF p_rxhv_rec.source_id IS NULL OR
5199: p_rxhv_rec.source_id = OKL_API.G_MISS_NUM
5200: THEN
5201: IF l_pk_attributes IS NOT NULL
5202: THEN
5203: l_pk_attributes := l_pk_attributes || ' , ';
5204: END IF;
5205: l_pk_attributes := l_pk_attributes || 'RXH.SOURCE_ID';
5206: END IF;
5207: IF p_rxhv_rec.source_table IS NULL OR
5208: p_rxhv_rec.source_table = OKL_API.G_MISS_CHAR
5209: THEN
5210: IF l_pk_attributes IS NOT NULL
5211: THEN
5212: l_pk_attributes := l_pk_attributes || ' , ';
5213: END IF;
5214: l_pk_attributes := l_pk_attributes || 'RXH.SOURCE_TABLE';
5215: END IF;
5216: IF p_rxhv_rec.khr_id IS NULL OR
5217: p_rxhv_rec.khr_id = OKL_API.G_MISS_NUM
5218: THEN
5219: IF l_pk_attributes IS NOT NULL
5220: THEN
5221: l_pk_attributes := l_pk_attributes || ' , ';
5222: END IF;
5223: l_pk_attributes := l_pk_attributes || 'KHR_ID';
5224: END IF;
5225: IF p_rxhv_rec.try_id IS NULL OR
5226: p_rxhv_rec.try_id = OKL_API.G_MISS_NUM
5227: THEN
5228: IF l_pk_attributes IS NOT NULL
5229: THEN
5230: l_pk_attributes := l_pk_attributes || ' , ';
5233: END IF;
5234: -- For few Transactions kle_id is not mandatory at all ..
5235: -- hence knocking off kle_id as the mandatory parameter
5236: IF p_rxlv_rec.source_id IS NULL OR
5237: p_rxlv_rec.source_id = OKL_API.G_MISS_NUM
5238: THEN
5239: IF l_pk_attributes IS NOT NULL
5240: THEN
5241: l_pk_attributes := l_pk_attributes || ' , ';
5242: END IF;
5243: l_pk_attributes := l_pk_attributes || 'RXL.SOURCE_ID';
5244: END IF;
5245: IF p_rxlv_rec.source_table IS NULL OR
5246: p_rxlv_rec.source_table = OKL_API.G_MISS_CHAR
5247: THEN
5248: IF l_pk_attributes IS NOT NULL
5249: THEN
5250: l_pk_attributes := l_pk_attributes || ' , ';
5253: END IF;
5254: IF LENGTH(l_pk_attributes) > 0
5255: THEN
5256: -- Raise an Exception
5257: OKL_API.set_message(
5258: p_app_name => G_APP_NAME
5259: ,p_msg_name => G_INVALID_VALUE
5260: ,p_token1 => G_COL_NAME_TOKEN
5261: ,p_token1_value => l_pk_attributes);
5258: p_app_name => G_APP_NAME
5259: ,p_msg_name => G_INVALID_VALUE
5260: ,p_token1 => G_COL_NAME_TOKEN
5261: ,p_token1_value => l_pk_attributes);
5262: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: END IF;
5265: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5266: 'Validation 1 Successfull !');
5259: ,p_msg_name => G_INVALID_VALUE
5260: ,p_token1 => G_COL_NAME_TOKEN
5261: ,p_token1_value => l_pk_attributes);
5262: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: END IF;
5265: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5266: 'Validation 1 Successfull !');
5267: -- Validation 2:
5270: -- lower cases currently, need to knock this upper once billing passes it correctly
5271: IF UPPER(p_rxlv_rec.source_table) NOT IN ( G_TXD_AR_LN_DTLS_B, G_TXL_ADJSTS_LNS_B )
5272: THEN
5273: -- Raise an Exception
5274: OKL_API.set_message(
5275: p_app_name => G_APP_NAME
5276: ,p_msg_name => G_INVALID_VALUE
5277: ,p_token1 => G_COL_NAME_TOKEN
5278: ,p_token1_value => 'SOURCE_TABLE');
5275: p_app_name => G_APP_NAME
5276: ,p_msg_name => G_INVALID_VALUE
5277: ,p_token1 => G_COL_NAME_TOKEN
5278: ,p_token1_value => 'SOURCE_TABLE');
5279: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: END IF;
5282: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5283: 'Validation 2 Successfull !');
5276: ,p_msg_name => G_INVALID_VALUE
5277: ,p_token1 => G_COL_NAME_TOKEN
5278: ,p_token1_value => 'SOURCE_TABLE');
5279: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: END IF;
5282: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5283: 'Validation 2 Successfull !');
5284: -- Copy input rec to local variable
5307: l_sty_id := l_rxl_rec.sty_id;
5308:
5309: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5310: '**** KLE_ID = ' || l_kle_id );
5311: IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5312: THEN
5313: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5314: 'Executing the Cursor get_line_style_csr kle_id=' || l_rxl_rec.kle_id );
5315: FOR t_rec IN get_line_style_csr(p_kle_id => l_rxl_rec.kle_id )
5321: END IF;
5322: END LOOP;
5323: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5324: '**** LINE STYLE = ' || l_line_style || ' PARENT LINE ID = ' || l_parent_line_id );
5325: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5326:
5327: -- Fetch ledger id and ledger language associated to the contracts
5328: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5329: 'Executing the Cursor c_khr_to_ledger_id_csr. p_khr_id=' || TO_CHAR(l_khr_id));
5389: ,x_msg_data => x_msg_data );
5390: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5391: 'After populate_khr_sources: l_return_status ' || l_return_status );
5392: -- Check the return status and if errored, return the error back
5393: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5395: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_ERROR;
5397: END IF;
5390: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5391: 'After populate_khr_sources: l_return_status ' || l_return_status );
5392: -- Check the return status and if errored, return the error back
5393: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5395: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_ERROR;
5397: END IF;
5398: -- Assign the KHR Sources to the rxhv_rec
5391: 'After populate_khr_sources: l_return_status ' || l_return_status );
5392: -- Check the return status and if errored, return the error back
5393: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5395: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_ERROR;
5397: END IF;
5398: -- Assign the KHR Sources to the rxhv_rec
5399: assign_khr_rec_to_rxh_rec(
5392: -- Check the return status and if errored, return the error back
5393: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5395: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_ERROR;
5397: END IF;
5398: -- Assign the KHR Sources to the rxhv_rec
5399: assign_khr_rec_to_rxh_rec(
5400: p_khr_source_rec => l_khr_source_rec
5450: END LOOP; -- c_termination_qte_csr
5451: --END LOOP; -- racheruv 15978873
5452:
5453: IF(p_acc_sources_rec.jtf_sales_reps_pk IS NOT NULL AND
5454: p_acc_sources_rec.jtf_sales_reps_pk <> OKL_API.G_MISS_CHAR) THEN
5455: -- Need to populate the Sales Representative Name
5456: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5457: 'Executing the Cursor c_sales_rep_acc_sources_csr. l_sales_rep_id = ' ||
5458: TO_CHAR(p_acc_sources_rec.jtf_sales_reps_pk) );
5478: );
5479: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5480: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5481: -- Check the return status and if errored, return the error back
5482: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5484: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_ERROR;
5486: END IF;
5479: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5480: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5481: -- Check the return status and if errored, return the error back
5482: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5484: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_ERROR;
5486: END IF;
5487: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5480: 'After okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
5481: -- Check the return status and if errored, return the error back
5482: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5484: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_ERROR;
5486: END IF;
5487: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5488: l_header_extension_id := lx_rxh_rec.header_extension_id;
5481: -- Check the return status and if errored, return the error back
5482: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5484: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_ERROR;
5486: END IF;
5487: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5488: l_header_extension_id := lx_rxh_rec.header_extension_id;
5489: END IF;
5487: -- Store the Header Extension ID into the Local Variable l_header_extension_id
5488: l_header_extension_id := lx_rxh_rec.header_extension_id;
5489: END IF;
5490: IF l_kle_id IS NOT NULL AND
5491: l_kle_id <> OKL_API.G_MISS_NUM
5492: THEN
5493: -- Start populating the Sources at the Extension Line Level
5494: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
5495: l_kle_source_rec.khr_id := l_khr_id;
5512: ,x_msg_data => x_msg_data );
5513: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5514: 'After populate_kle_sources: l_return_status ' || l_return_status );
5515: -- Check the return status and if errored, return the error back
5516: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5513: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5514: 'After populate_kle_sources: l_return_status ' || l_return_status );
5515: -- Check the return status and if errored, return the error back
5516: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: -- calling assign_kle_rec_to_rxlv_rec
5514: 'After populate_kle_sources: l_return_status ' || l_return_status );
5515: -- Check the return status and if errored, return the error back
5516: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: -- calling assign_kle_rec_to_rxlv_rec
5522: assign_kle_rec_to_rxl_rec(
5515: -- Check the return status and if errored, return the error back
5516: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: -- calling assign_kle_rec_to_rxlv_rec
5522: assign_kle_rec_to_rxl_rec(
5523: p_kle_source_rec => l_kle_source_rec
5574: --ELSE
5575: -- Populate the l_pxlv_rec with the khr_id, ledger_language
5576: -- but not with the kle_id
5577: -- l_rxl_rec.language := l_ledger_language ;
5578: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
5579:
5580: -- Stamp the Header Extension ID on the Extension Line Table
5581: l_rxl_rec.header_extension_id := l_header_extension_id;
5582:
5645: END LOOP;
5646: END LOOP; -- Loop on l_rxll_tbl
5647:
5648: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
5649: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR) THEN
5650: -- Populate Inventory Organization Name
5651: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5652: '*** AGS Inventory Org ID used to fetch teh Inventory Organization Code : Org ID=' ||
5653: p_acc_sources_rec.inventory_org_id_pk2 );
5688: ,x_rxll_tbl => lx_rxll_tbl
5689: );
5690: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5691: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5689: );
5690: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5691: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5697: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5690: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5691: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5697: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5698: 'Calling okl_api.end_activity');
5691: 'After okl_ar_extension_pvt.create_rxl_extension: l_return_status ' || l_return_status );
5692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5697: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5698: 'Calling okl_api.end_activity');
5699: okl_api.end_activity(
5694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5697: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5698: 'Calling okl_api.end_activity');
5699: okl_api.end_activity(
5700: x_msg_count => x_msg_count
5701: ,x_msg_data => x_msg_data);
5702: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5695: RAISE OKL_API.G_EXCEPTION_ERROR;
5696: END IF;
5697: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5698: 'Calling okl_api.end_activity');
5699: okl_api.end_activity(
5700: x_msg_count => x_msg_count
5701: ,x_msg_data => x_msg_data);
5702: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5703: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5700: x_msg_count => x_msg_count
5701: ,x_msg_data => x_msg_data);
5702: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5703: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ar_sources');
5704: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5705: EXCEPTION
5706: ------------------------------------------------------------
5707: -- Exception handling
5708: ------------------------------------------------------------
5705: EXCEPTION
5706: ------------------------------------------------------------
5707: -- Exception handling
5708: ------------------------------------------------------------
5709: WHEN OKL_API.G_EXCEPTION_ERROR
5710: THEN
5711: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5712: p_api_name => l_api_name
5713: ,p_pkg_name => G_PKG_NAME
5707: -- Exception handling
5708: ------------------------------------------------------------
5709: WHEN OKL_API.G_EXCEPTION_ERROR
5710: THEN
5711: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5712: p_api_name => l_api_name
5713: ,p_pkg_name => G_PKG_NAME
5714: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5715: ,x_msg_count => x_msg_count
5710: THEN
5711: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5712: p_api_name => l_api_name
5713: ,p_pkg_name => G_PKG_NAME
5714: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5715: ,x_msg_count => x_msg_count
5716: ,x_msg_data => x_msg_data
5717: ,p_api_type => '_PVT');
5718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5714: ,p_exc_name => OKL_API.G_RET_STS_ERROR
5715: ,x_msg_count => x_msg_count
5716: ,x_msg_data => x_msg_data
5717: ,p_api_type => '_PVT');
5718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5719: THEN
5720: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5721: p_api_name => l_api_name
5722: ,p_pkg_name => G_PKG_NAME
5716: ,x_msg_data => x_msg_data
5717: ,p_api_type => '_PVT');
5718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
5719: THEN
5720: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5721: p_api_name => l_api_name
5722: ,p_pkg_name => G_PKG_NAME
5723: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
5724: ,x_msg_count => x_msg_count
5719: THEN
5720: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5721: p_api_name => l_api_name
5722: ,p_pkg_name => G_PKG_NAME
5723: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
5724: ,x_msg_count => x_msg_count
5725: ,x_msg_data => x_msg_data
5726: ,p_api_type => '_PVT');
5727: WHEN OTHERS
5725: ,x_msg_data => x_msg_data
5726: ,p_api_type => '_PVT');
5727: WHEN OTHERS
5728: THEN
5729: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
5730: p_api_name => l_api_name
5731: ,p_pkg_name => G_PKG_NAME
5732: ,p_exc_name => 'OTHERS'
5733: ,x_msg_count => x_msg_count
5807: -- Declare Process Variable
5808: -----------------------------------------------------------------
5809: l_api_version CONSTANT NUMBER := 1;
5810: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-AR';
5811: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5812:
5813: -----------------------------------------------------------------
5814: -- Local Variables
5815: -----------------------------------------------------------------
5832: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5833: 'begin debug OKLRSLAB.pls call ' || l_api_name);
5834: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5835: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5836: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5838: 'Calling OKL_API.START_ACTIVITY');
5839: l_return_status := OKL_API.START_ACTIVITY(
5840: p_api_name => l_api_name
5834: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
5835: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5836: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5838: 'Calling OKL_API.START_ACTIVITY');
5839: l_return_status := OKL_API.START_ACTIVITY(
5840: p_api_name => l_api_name
5841: ,p_pkg_name => g_pkg_name
5842: ,p_init_msg_list => p_init_msg_list
5835: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
5836: l_return_status := OKL_API.G_RET_STS_SUCCESS;
5837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5838: 'Calling OKL_API.START_ACTIVITY');
5839: l_return_status := OKL_API.START_ACTIVITY(
5840: p_api_name => l_api_name
5841: ,p_pkg_name => g_pkg_name
5842: ,p_init_msg_list => p_init_msg_list
5843: ,l_api_version => l_api_version
5843: ,l_api_version => l_api_version
5844: ,p_api_version => p_api_version
5845: ,p_api_type => '_PVT'
5846: ,x_return_status => l_return_status);
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5849: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5850: RAISE OKL_API.G_EXCEPTION_ERROR;
5851: END IF;
5844: ,p_api_version => p_api_version
5845: ,p_api_type => '_PVT'
5846: ,x_return_status => l_return_status);
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5849: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5850: RAISE OKL_API.G_EXCEPTION_ERROR;
5851: END IF;
5852:
5845: ,p_api_type => '_PVT'
5846: ,x_return_status => l_return_status);
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5849: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5850: RAISE OKL_API.G_EXCEPTION_ERROR;
5851: END IF;
5852:
5853: -- Validation 1: Source ID and Source Table should not be NULL in the
5846: ,x_return_status => l_return_status);
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5849: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5850: RAISE OKL_API.G_EXCEPTION_ERROR;
5851: END IF;
5852:
5853: -- Validation 1: Source ID and Source Table should not be NULL in the
5854: -- AR Extension Header Record Structure
5854: -- AR Extension Header Record Structure
5855: IF (p_rxhv_rec.source_id IS NULL OR
5856: p_rxhv_rec.source_table IS NULL)
5857: THEN
5858: OKL_API.set_message(
5859: p_app_name => G_APP_NAME
5860: ,p_msg_name => G_INVALID_VALUE
5861: ,p_token1 => G_COL_NAME_TOKEN
5862: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5859: p_app_name => G_APP_NAME
5860: ,p_msg_name => G_INVALID_VALUE
5861: ,p_token1 => G_COL_NAME_TOKEN
5862: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5863: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5865: END IF;
5866: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5867: 'Header SOURCE_ID= ' || p_rxhv_rec.source_id || ' SOURCE_TABLE=' || p_rxhv_rec.source_table );
5860: ,p_msg_name => G_INVALID_VALUE
5861: ,p_token1 => G_COL_NAME_TOKEN
5862: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
5863: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5865: END IF;
5866: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
5867: 'Header SOURCE_ID= ' || p_rxhv_rec.source_id || ' SOURCE_TABLE=' || p_rxhv_rec.source_table );
5868: -- Validation 2: The Header Source Table should be either the
5869: -- OKL AR Invoice Trx Header or OKL AR Adjustment Trx. Header table only
5870: -- ie. it should be either OKL_TRX_AR_INVOICES_B or OKL_TRX_AR_ADJSTS_B only
5871: IF UPPER(p_rxhv_rec.source_table) NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B)
5872: THEN
5873: OKL_API.set_message(
5874: p_app_name => G_APP_NAME
5875: ,p_msg_name => G_INVALID_VALUE
5876: ,p_token1 => G_COL_NAME_TOKEN
5877: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5874: p_app_name => G_APP_NAME
5875: ,p_msg_name => G_INVALID_VALUE
5876: ,p_token1 => G_COL_NAME_TOKEN
5877: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5878: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5880: END IF;
5881:
5882: -- Copy to local variables
5875: ,p_msg_name => G_INVALID_VALUE
5876: ,p_token1 => G_COL_NAME_TOKEN
5877: ,p_token1_value => 'HEADER.SOURCE_TABLE');
5878: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5880: END IF;
5881:
5882: -- Copy to local variables
5883: l_rxhv_rec := p_rxhv_rec;
5888: -- Validation 3: There should be atleast one Transaction Detail Line
5889: -- for which the Populate AR Sources should be called
5890: IF l_rxlv_tbl.COUNT = 0
5891: THEN
5892: OKL_API.set_message(
5893: p_app_name => G_APP_NAME
5894: ,p_msg_name => G_INVALID_VALUE
5895: ,p_token1 => G_COL_NAME_TOKEN
5896: ,p_token1_value => 'RXLV_TBL.COUNT()');
5893: p_app_name => G_APP_NAME
5894: ,p_msg_name => G_INVALID_VALUE
5895: ,p_token1 => G_COL_NAME_TOKEN
5896: ,p_token1_value => 'RXLV_TBL.COUNT()');
5897: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: END IF;
5900:
5901: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5894: ,p_msg_name => G_INVALID_VALUE
5895: ,p_token1 => G_COL_NAME_TOKEN
5896: ,p_token1_value => 'RXLV_TBL.COUNT()');
5897: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: END IF;
5900:
5901: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5902: IF l_rxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
5900:
5901: -- Validation 4: p_rxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
5902: IF l_rxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
5903: THEN
5904: OKL_API.set_message(
5905: p_app_name => G_APP_NAME
5906: ,p_msg_name => G_INVALID_VALUE
5907: ,p_token1 => G_COL_NAME_TOKEN
5908: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5905: p_app_name => G_APP_NAME
5906: ,p_msg_name => G_INVALID_VALUE
5907: ,p_token1 => G_COL_NAME_TOKEN
5908: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5909: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5911: END IF;
5912:
5913: -- Loop on the details for the current transaction header
5906: ,p_msg_name => G_INVALID_VALUE
5907: ,p_token1 => G_COL_NAME_TOKEN
5908: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
5909: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5911: END IF;
5912:
5913: -- Loop on the details for the current transaction header
5914: -- Call the populate_tld_sources
5971: IF l_acc_srcs_index IS NULL OR
5972: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
5973: THEN
5974: -- accounting_event_class_code is missing
5975: OKL_API.set_message(
5976: p_app_name => G_APP_NAME
5977: ,p_msg_name => G_INVALID_VALUE
5978: ,p_token1 => G_COL_NAME_TOKEN
5979: ,p_token1_value => 'AGS_SOURCES_INDEX');
5976: p_app_name => G_APP_NAME
5977: ,p_msg_name => G_INVALID_VALUE
5978: ,p_token1 => G_COL_NAME_TOKEN
5979: ,p_token1_value => 'AGS_SOURCES_INDEX');
5980: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5982: END IF; -- IF l_acc_sources_found = FALSE
5983:
5984: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5977: ,p_msg_name => G_INVALID_VALUE
5978: ,p_token1 => G_COL_NAME_TOKEN
5979: ,p_token1_value => 'AGS_SOURCES_INDEX');
5980: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5982: END IF; -- IF l_acc_sources_found = FALSE
5983:
5984: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
5985: l_rxhv_rec.khr_id := l_trx_ar_inv_lines_tbl(tld_index).khr_id;
6006: ,x_msg_data => x_msg_data);
6007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6008: 'After populate_ar_sources: l_return_status ' || l_return_status );
6009: -- Check the return status and if errored, return the error back
6010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6013: RAISE OKL_API.G_EXCEPTION_ERROR;
6014: END IF;
6007: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6008: 'After populate_ar_sources: l_return_status ' || l_return_status );
6009: -- Check the return status and if errored, return the error back
6010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6013: RAISE OKL_API.G_EXCEPTION_ERROR;
6014: END IF;
6015: END IF; -- IF l_capture_sources = 'Y'
6008: 'After populate_ar_sources: l_return_status ' || l_return_status );
6009: -- Check the return status and if errored, return the error back
6010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6013: RAISE OKL_API.G_EXCEPTION_ERROR;
6014: END IF;
6015: END IF; -- IF l_capture_sources = 'Y'
6016: END LOOP; -- Loop on l_trx_ar_inv_lines_tbl ..
6009: -- Check the return status and if errored, return the error back
6010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6013: RAISE OKL_API.G_EXCEPTION_ERROR;
6014: END IF;
6015: END IF; -- IF l_capture_sources = 'Y'
6016: END LOOP; -- Loop on l_trx_ar_inv_lines_tbl ..
6017: ELSE
6072: IF l_acc_srcs_index IS NULL OR
6073: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
6074: THEN
6075: -- accounting_event_class_code is missing
6076: OKL_API.set_message(
6077: p_app_name => G_APP_NAME
6078: ,p_msg_name => G_INVALID_VALUE
6079: ,p_token1 => G_COL_NAME_TOKEN
6080: ,p_token1_value => 'AGS_SOURCES_INDEX');
6077: p_app_name => G_APP_NAME
6078: ,p_msg_name => G_INVALID_VALUE
6079: ,p_token1 => G_COL_NAME_TOKEN
6080: ,p_token1_value => 'AGS_SOURCES_INDEX');
6081: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6083: END IF; -- IF l_acc_sources_found = FALSE
6084:
6085: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
6078: ,p_msg_name => G_INVALID_VALUE
6079: ,p_token1 => G_COL_NAME_TOKEN
6080: ,p_token1_value => 'AGS_SOURCES_INDEX');
6081: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6083: END IF; -- IF l_acc_sources_found = FALSE
6084:
6085: -- l_rxhv_rec.source_id and l_rxhv_rec.source_table are already assigned
6086: l_rxhv_rec.khr_id := l_trx_ar_adj_lines_tbl(tld_index).khr_id;
6108: ,x_msg_data => x_msg_data);
6109: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6110: 'After populate_ar_sources: l_return_status ' || l_return_status );
6111: -- Check the return status and if errored, return the error back
6112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6115: RAISE OKL_API.G_EXCEPTION_ERROR;
6116: END IF;
6109: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6110: 'After populate_ar_sources: l_return_status ' || l_return_status );
6111: -- Check the return status and if errored, return the error back
6112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6115: RAISE OKL_API.G_EXCEPTION_ERROR;
6116: END IF;
6117: END IF; -- IF l_capture_sources = 'Y'
6110: 'After populate_ar_sources: l_return_status ' || l_return_status );
6111: -- Check the return status and if errored, return the error back
6112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6115: RAISE OKL_API.G_EXCEPTION_ERROR;
6116: END IF;
6117: END IF; -- IF l_capture_sources = 'Y'
6118: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6111: -- Check the return status and if errored, return the error back
6112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6115: RAISE OKL_API.G_EXCEPTION_ERROR;
6116: END IF;
6117: END IF; -- IF l_capture_sources = 'Y'
6118: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6119: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6117: END IF; -- IF l_capture_sources = 'Y'
6118: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6119: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6120: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6121: 'Calling okl_api.end_activity');
6122: okl_api.end_activity(
6123: x_msg_count => x_msg_count
6124: ,x_msg_data => x_msg_data);
6125: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6118: END LOOP; -- Loop on l_trx_ar_adj_lines_tbl ..
6119: END IF; -- IF l_header_source_table = 'OKL_TRX_AR_INVOICES_B'
6120: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6121: 'Calling okl_api.end_activity');
6122: okl_api.end_activity(
6123: x_msg_count => x_msg_count
6124: ,x_msg_data => x_msg_data);
6125: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6126: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
6123: x_msg_count => x_msg_count
6124: ,x_msg_data => x_msg_data);
6125: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6126: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
6127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6128: EXCEPTION
6129: ------------------------------------------------------------
6130: -- Exception handling
6131: ------------------------------------------------------------
6128: EXCEPTION
6129: ------------------------------------------------------------
6130: -- Exception handling
6131: ------------------------------------------------------------
6132: WHEN OKL_API.G_EXCEPTION_ERROR
6133: THEN
6134: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6135: p_api_name => l_api_name
6136: ,p_pkg_name => G_PKG_NAME
6130: -- Exception handling
6131: ------------------------------------------------------------
6132: WHEN OKL_API.G_EXCEPTION_ERROR
6133: THEN
6134: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6135: p_api_name => l_api_name
6136: ,p_pkg_name => G_PKG_NAME
6137: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6138: ,x_msg_count => x_msg_count
6133: THEN
6134: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6135: p_api_name => l_api_name
6136: ,p_pkg_name => G_PKG_NAME
6137: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6138: ,x_msg_count => x_msg_count
6139: ,x_msg_data => x_msg_data
6140: ,p_api_type => '_PVT');
6141: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6137: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6138: ,x_msg_count => x_msg_count
6139: ,x_msg_data => x_msg_data
6140: ,p_api_type => '_PVT');
6141: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6142: THEN
6143: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6144: p_api_name => l_api_name
6145: ,p_pkg_name => G_PKG_NAME
6139: ,x_msg_data => x_msg_data
6140: ,p_api_type => '_PVT');
6141: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6142: THEN
6143: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6144: p_api_name => l_api_name
6145: ,p_pkg_name => G_PKG_NAME
6146: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6147: ,x_msg_count => x_msg_count
6142: THEN
6143: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6144: p_api_name => l_api_name
6145: ,p_pkg_name => G_PKG_NAME
6146: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6147: ,x_msg_count => x_msg_count
6148: ,x_msg_data => x_msg_data
6149: ,p_api_type => '_PVT');
6150: WHEN OTHERS
6148: ,x_msg_data => x_msg_data
6149: ,p_api_type => '_PVT');
6150: WHEN OTHERS
6151: THEN
6152: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6153: p_api_name => l_api_name
6154: ,p_pkg_name => G_PKG_NAME
6155: ,p_exc_name => 'OTHERS'
6156: ,x_msg_count => x_msg_count
6172: -- Declare Process Variable
6173: -----------------------------------------------------------------
6174: l_api_version CONSTANT NUMBER := 1;
6175: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_EXTENSION';
6176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6177: rxl_index BINARY_INTEGER;
6178: l_rxhv_rec okl_rxh_pvt.rxhv_rec_type;
6179: l_rxlv_tbl okl_rxl_pvt.rxlv_tbl_type;
6180: lx_rxhv_rec okl_rxh_pvt.rxhv_rec_type;
6208: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6209: 'begin debug OKLRSLAB.pls call ' || l_api_name);
6210: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6211: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6212: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6213: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6214: 'Calling OKL_API.START_ACTIVITY');
6215: l_return_status := OKL_API.START_ACTIVITY(
6216: p_api_name => l_api_name
6210: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6211: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6212: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6213: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6214: 'Calling OKL_API.START_ACTIVITY');
6215: l_return_status := OKL_API.START_ACTIVITY(
6216: p_api_name => l_api_name
6217: ,p_pkg_name => g_pkg_name
6218: ,p_init_msg_list => p_init_msg_list
6211: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6212: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6213: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6214: 'Calling OKL_API.START_ACTIVITY');
6215: l_return_status := OKL_API.START_ACTIVITY(
6216: p_api_name => l_api_name
6217: ,p_pkg_name => g_pkg_name
6218: ,p_init_msg_list => p_init_msg_list
6219: ,l_api_version => l_api_version
6219: ,l_api_version => l_api_version
6220: ,p_api_version => p_api_version
6221: ,p_api_type => '_PVT'
6222: ,x_return_status => l_return_status);
6223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6220: ,p_api_version => p_api_version
6221: ,p_api_type => '_PVT'
6222: ,x_return_status => l_return_status);
6223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: -- Actual Logic Starts Here ..
6221: ,p_api_type => '_PVT'
6222: ,x_return_status => l_return_status);
6223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: -- Actual Logic Starts Here ..
6229: l_rxhv_rec := p_rxhv_rec;
6222: ,x_return_status => l_return_status);
6223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: -- Actual Logic Starts Here ..
6229: l_rxhv_rec := p_rxhv_rec;
6230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6228: -- Actual Logic Starts Here ..
6229: l_rxhv_rec := p_rxhv_rec;
6230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6231: 'Source ID=' || to_char(l_rxhv_rec.source_id) || 'Source Header Table=' || l_rxhv_rec.source_table );
6232: IF ( l_rxhv_rec.source_id = OKL_API.G_MISS_NUM or l_rxhv_rec.source_id IS NULL )
6233: THEN
6234: OKL_API.set_message(
6235: p_app_name => G_APP_NAME
6236: ,p_msg_name => G_INVALID_VALUE
6230: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6231: 'Source ID=' || to_char(l_rxhv_rec.source_id) || 'Source Header Table=' || l_rxhv_rec.source_table );
6232: IF ( l_rxhv_rec.source_id = OKL_API.G_MISS_NUM or l_rxhv_rec.source_id IS NULL )
6233: THEN
6234: OKL_API.set_message(
6235: p_app_name => G_APP_NAME
6236: ,p_msg_name => G_INVALID_VALUE
6237: ,p_token1 => G_COL_NAME_TOKEN
6238: ,p_token1_value => 'HEADER.SOURCE_ID');
6235: p_app_name => G_APP_NAME
6236: ,p_msg_name => G_INVALID_VALUE
6237: ,p_token1 => G_COL_NAME_TOKEN
6238: ,p_token1_value => 'HEADER.SOURCE_ID');
6239: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6241: END IF;
6242: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6243: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6236: ,p_msg_name => G_INVALID_VALUE
6237: ,p_token1 => G_COL_NAME_TOKEN
6238: ,p_token1_value => 'HEADER.SOURCE_ID');
6239: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6241: END IF;
6242: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6243: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6244: THEN
6238: ,p_token1_value => 'HEADER.SOURCE_ID');
6239: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6241: END IF;
6242: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6243: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6244: THEN
6245: OKL_API.set_message(
6246: p_app_name => G_APP_NAME
6241: END IF;
6242: IF ( l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_rxhv_rec.source_table IS NULL
6243: OR l_rxhv_rec.source_table NOT IN ( G_TRX_AR_INVOICES_B, G_TRX_AR_ADJSTS_B) )
6244: THEN
6245: OKL_API.set_message(
6246: p_app_name => G_APP_NAME
6247: ,p_msg_name => G_INVALID_VALUE
6248: ,p_token1 => G_COL_NAME_TOKEN
6249: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6246: p_app_name => G_APP_NAME
6247: ,p_msg_name => G_INVALID_VALUE
6248: ,p_token1 => G_COL_NAME_TOKEN
6249: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6250: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: END IF;
6253: -- Initialize the rxl_index
6254: rxl_index := 1;
6247: ,p_msg_name => G_INVALID_VALUE
6248: ,p_token1 => G_COL_NAME_TOKEN
6249: ,p_token1_value => 'HEADER.SOURCE_TABLE');
6250: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: END IF;
6253: -- Initialize the rxl_index
6254: rxl_index := 1;
6255: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6289: );
6290: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6291: 'After okl_ar_extension_pvt.delete_rxh_extension: l_return_status ' || l_return_status );
6292: -- Check the return status and if errored, return the error back
6293: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6294: THEN
6295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6297: RAISE OKL_API.G_EXCEPTION_ERROR;
6291: 'After okl_ar_extension_pvt.delete_rxh_extension: l_return_status ' || l_return_status );
6292: -- Check the return status and if errored, return the error back
6293: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6294: THEN
6295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6297: RAISE OKL_API.G_EXCEPTION_ERROR;
6298: END IF;
6299: END LOOP; -- Loop on the get_ar_ext_hdr_id
6292: -- Check the return status and if errored, return the error back
6293: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6294: THEN
6295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6297: RAISE OKL_API.G_EXCEPTION_ERROR;
6298: END IF;
6299: END LOOP; -- Loop on the get_ar_ext_hdr_id
6300: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6293: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
6294: THEN
6295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6297: RAISE OKL_API.G_EXCEPTION_ERROR;
6298: END IF;
6299: END LOOP; -- Loop on the get_ar_ext_hdr_id
6300: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6301: x_rxlv_tbl := l_rxlv_tbl;
6299: END LOOP; -- Loop on the get_ar_ext_hdr_id
6300: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6301: x_rxlv_tbl := l_rxlv_tbl;
6302: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6303: 'Calling okl_api.end_activity');
6304: okl_api.end_activity(
6305: x_msg_count => x_msg_count
6306: ,x_msg_data => x_msg_data);
6307: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6300: -- Store the Transaction Line IDs and Line Source Tables so as to return back
6301: x_rxlv_tbl := l_rxlv_tbl;
6302: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6303: 'Calling okl_api.end_activity');
6304: okl_api.end_activity(
6305: x_msg_count => x_msg_count
6306: ,x_msg_data => x_msg_data);
6307: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6308: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6305: x_msg_count => x_msg_count
6306: ,x_msg_data => x_msg_data);
6307: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6308: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_TRX_EXTENSION');
6309: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6310: EXCEPTION
6311: ------------------------------------------------------------
6312: -- Exception handling
6313: ------------------------------------------------------------
6310: EXCEPTION
6311: ------------------------------------------------------------
6312: -- Exception handling
6313: ------------------------------------------------------------
6314: WHEN OKL_API.G_EXCEPTION_ERROR
6315: THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6317: p_api_name => l_api_name
6318: ,p_pkg_name => G_PKG_NAME
6312: -- Exception handling
6313: ------------------------------------------------------------
6314: WHEN OKL_API.G_EXCEPTION_ERROR
6315: THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6317: p_api_name => l_api_name
6318: ,p_pkg_name => G_PKG_NAME
6319: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6320: ,x_msg_count => x_msg_count
6315: THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6317: p_api_name => l_api_name
6318: ,p_pkg_name => G_PKG_NAME
6319: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6320: ,x_msg_count => x_msg_count
6321: ,x_msg_data => x_msg_data
6322: ,p_api_type => '_PVT');
6323: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6319: ,p_exc_name => OKL_API.G_RET_STS_ERROR
6320: ,x_msg_count => x_msg_count
6321: ,x_msg_data => x_msg_data
6322: ,p_api_type => '_PVT');
6323: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6324: THEN
6325: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6326: p_api_name => l_api_name
6327: ,p_pkg_name => G_PKG_NAME
6321: ,x_msg_data => x_msg_data
6322: ,p_api_type => '_PVT');
6323: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
6324: THEN
6325: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6326: p_api_name => l_api_name
6327: ,p_pkg_name => G_PKG_NAME
6328: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6329: ,x_msg_count => x_msg_count
6324: THEN
6325: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6326: p_api_name => l_api_name
6327: ,p_pkg_name => G_PKG_NAME
6328: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
6329: ,x_msg_count => x_msg_count
6330: ,x_msg_data => x_msg_data
6331: ,p_api_type => '_PVT');
6332: WHEN OTHERS
6330: ,x_msg_data => x_msg_data
6331: ,p_api_type => '_PVT');
6332: WHEN OTHERS
6333: THEN
6334: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
6335: p_api_name => l_api_name
6336: ,p_pkg_name => G_PKG_NAME
6337: ,p_exc_name => 'OTHERS'
6338: ,x_msg_count => x_msg_count
6530: -- Declare Process Variable
6531: -----------------------------------------------------------------
6532: l_api_version CONSTANT NUMBER := 1;
6533: l_api_name CONSTANT VARCHAR2(30) := 'populate_ap_sources';
6534: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6535: -----------------------------------------------------------------
6536: -- Local Variables
6537: -----------------------------------------------------------------
6538: l_khr_id NUMBER;
6587: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6588: 'begin debug OKLRSLAB.pls call ' || l_api_name);
6589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6590: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6591: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6592: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6593: 'Calling OKL_API.START_ACTIVITY');
6594: l_return_status := OKL_API.START_ACTIVITY(
6595: p_api_name => l_api_name
6589: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
6590: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6591: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6592: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6593: 'Calling OKL_API.START_ACTIVITY');
6594: l_return_status := OKL_API.START_ACTIVITY(
6595: p_api_name => l_api_name
6596: ,p_pkg_name => g_pkg_name
6597: ,p_init_msg_list => p_init_msg_list
6590: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
6591: l_return_status := OKL_API.G_RET_STS_SUCCESS;
6592: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6593: 'Calling OKL_API.START_ACTIVITY');
6594: l_return_status := OKL_API.START_ACTIVITY(
6595: p_api_name => l_api_name
6596: ,p_pkg_name => g_pkg_name
6597: ,p_init_msg_list => p_init_msg_list
6598: ,l_api_version => l_api_version
6598: ,l_api_version => l_api_version
6599: ,p_api_version => p_api_version
6600: ,p_api_type => '_PVT'
6601: ,x_return_status => l_return_status);
6602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6605: RAISE OKL_API.G_EXCEPTION_ERROR;
6606: END IF;
6599: ,p_api_version => p_api_version
6600: ,p_api_type => '_PVT'
6601: ,x_return_status => l_return_status);
6602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6605: RAISE OKL_API.G_EXCEPTION_ERROR;
6606: END IF;
6607: -- Validations to be done
6600: ,p_api_type => '_PVT'
6601: ,x_return_status => l_return_status);
6602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6605: RAISE OKL_API.G_EXCEPTION_ERROR;
6606: END IF;
6607: -- Validations to be done
6608: -- Validation 1:
6601: ,x_return_status => l_return_status);
6602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6605: RAISE OKL_API.G_EXCEPTION_ERROR;
6606: END IF;
6607: -- Validations to be done
6608: -- Validation 1:
6609: -- The following attributes should not be NULL
6609: -- The following attributes should not be NULL
6610: -- dnz_khr_id, kle_id, try_id, source_id, sty_id
6611: l_pk_attributes := NULL;
6612: IF p_pxhv_rec.source_id IS NULL OR
6613: p_pxhv_rec.source_id = OKL_API.G_MISS_NUM
6614: THEN
6615: IF l_pk_attributes IS NOT NULL
6616: THEN
6617: l_pk_attributes := l_pk_attributes || ' , ';
6618: END IF;
6619: l_pk_attributes := l_pk_attributes || 'PXH.SOURCE_ID';
6620: END IF;
6621: IF p_pxhv_rec.source_table IS NULL OR
6622: p_pxhv_rec.source_table = OKL_API.G_MISS_CHAR
6623: THEN
6624: IF l_pk_attributes IS NOT NULL
6625: THEN
6626: l_pk_attributes := l_pk_attributes || ' , ';
6627: END IF;
6628: l_pk_attributes := l_pk_attributes || 'PXH.SOURCE_TABLE';
6629: END IF;
6630: IF p_pxhv_rec.khr_id IS NULL OR
6631: p_pxhv_rec.khr_id = OKL_API.G_MISS_NUM
6632: THEN
6633: IF l_pk_attributes IS NOT NULL
6634: THEN
6635: l_pk_attributes := l_pk_attributes || ' , ';
6636: END IF;
6637: l_pk_attributes := l_pk_attributes || 'KHR_ID';
6638: END IF;
6639: IF p_pxhv_rec.try_id IS NULL OR
6640: p_pxhv_rec.try_id = OKL_API.G_MISS_NUM
6641: THEN
6642: IF l_pk_attributes IS NOT NULL
6643: THEN
6644: l_pk_attributes := l_pk_attributes || ' , ';
6645: END IF;
6646: l_pk_attributes := l_pk_attributes || 'TRY_ID';
6647: END IF;
6648: IF p_pxlv_rec.source_id IS NULL OR
6649: p_pxlv_rec.source_id = OKL_API.G_MISS_NUM
6650: THEN
6651: IF l_pk_attributes IS NOT NULL
6652: THEN
6653: l_pk_attributes := l_pk_attributes || ' , ';
6654: END IF;
6655: l_pk_attributes := l_pk_attributes || 'PXL.SOURCE_ID';
6656: END IF;
6657: IF p_pxlv_rec.source_table IS NULL OR
6658: p_pxlv_rec.source_table = OKL_API.G_MISS_CHAR
6659: THEN
6660: IF l_pk_attributes IS NOT NULL
6661: THEN
6662: l_pk_attributes := l_pk_attributes || ' , ';
6663: END IF;
6664: l_pk_attributes := l_pk_attributes || 'PXL.SOURCE_TABLE';
6665: END IF;
6666: IF p_pxlv_rec.sty_id IS NULL OR
6667: p_pxlv_rec.sty_id = OKL_API.G_MISS_NUM
6668: THEN
6669: IF l_pk_attributes IS NOT NULL
6670: THEN
6671: l_pk_attributes := l_pk_attributes || ' , ';
6674: END IF;
6675: IF LENGTH(l_pk_attributes) > 0
6676: THEN
6677: -- Raise an Exception
6678: OKL_API.set_message(
6679: p_app_name => G_APP_NAME
6680: ,p_msg_name => G_INVALID_VALUE
6681: ,p_token1 => G_COL_NAME_TOKEN
6682: ,p_token1_value => l_pk_attributes);
6679: p_app_name => G_APP_NAME
6680: ,p_msg_name => G_INVALID_VALUE
6681: ,p_token1 => G_COL_NAME_TOKEN
6682: ,p_token1_value => l_pk_attributes);
6683: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6685: END IF;
6686: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6687: 'Validation 1 Successfull !');
6680: ,p_msg_name => G_INVALID_VALUE
6681: ,p_token1 => G_COL_NAME_TOKEN
6682: ,p_token1_value => l_pk_attributes);
6683: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6685: END IF;
6686: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6687: 'Validation 1 Successfull !');
6688: -- Validation 2:
6689: -- Source Table should be OKL_TXL_AP_INV_LNS_B
6690: IF p_pxlv_rec.source_table NOT IN ( G_TXL_AP_INV_LNS_B )
6691: THEN
6692: -- Raise an Exception
6693: OKL_API.set_message(
6694: p_app_name => G_APP_NAME
6695: ,p_msg_name => G_INVALID_VALUE
6696: ,p_token1 => G_COL_NAME_TOKEN
6697: ,p_token1_value => 'SOURCE_TABLE');
6694: p_app_name => G_APP_NAME
6695: ,p_msg_name => G_INVALID_VALUE
6696: ,p_token1 => G_COL_NAME_TOKEN
6697: ,p_token1_value => 'SOURCE_TABLE');
6698: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6700: END IF;
6701: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6702: 'Validation 2 Successfull !');
6695: ,p_msg_name => G_INVALID_VALUE
6696: ,p_token1 => G_COL_NAME_TOKEN
6697: ,p_token1_value => 'SOURCE_TABLE');
6698: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6700: END IF;
6701: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6702: 'Validation 2 Successfull !');
6703: -- Copy input rec to local variable
6722:
6723: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6724: '**** KLE_ID = ' || l_kle_id );
6725: IF l_kle_id IS NOT NULL OR
6726: l_kle_id <> OKL_API.G_MISS_NUM
6727: THEN
6728: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6729: 'Executing the Cursor get_line_style_csr kle_id=' || l_pxl_rec.kle_id );
6730: FOR t_rec IN get_line_style_csr(p_kle_id => l_pxl_rec.kle_id )
6736: END IF;
6737: END LOOP;
6738: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6739: '**** LINE STYLE = ' || l_line_style || ' PARENT LINE ID = ' || l_parent_line_id );
6740: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
6741:
6742: -- Fetch ledger id and ledger language associated to the contracts
6743: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6744: 'Executing the Cursor c_khr_to_ledger_id_csr. p_khr_id=' || TO_CHAR(l_khr_id));
6800: ,x_msg_data => x_msg_data );
6801: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6802: 'After populate_khr_sources: l_return_status ' || l_return_status );
6803: -- Check the return status and if errored, return the error back
6804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6807: RAISE OKL_API.G_EXCEPTION_ERROR;
6808: END IF;
6801: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6802: 'After populate_khr_sources: l_return_status ' || l_return_status );
6803: -- Check the return status and if errored, return the error back
6804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6807: RAISE OKL_API.G_EXCEPTION_ERROR;
6808: END IF;
6809: -- Assign the KHR Sources to the pxhv_rec
6802: 'After populate_khr_sources: l_return_status ' || l_return_status );
6803: -- Check the return status and if errored, return the error back
6804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6807: RAISE OKL_API.G_EXCEPTION_ERROR;
6808: END IF;
6809: -- Assign the KHR Sources to the pxhv_rec
6810: assign_khr_rec_to_pxh_rec(
6803: -- Check the return status and if errored, return the error back
6804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6807: RAISE OKL_API.G_EXCEPTION_ERROR;
6808: END IF;
6809: -- Assign the KHR Sources to the pxhv_rec
6810: assign_khr_rec_to_pxh_rec(
6811: p_khr_source_rec => l_khr_source_rec
6831: END LOOP; -- End for c_trx_type_name_csr
6832: END LOOP;
6833:
6834: IF(p_acc_sources_rec.jtf_sales_reps_pk IS NOT NULL AND
6835: p_acc_sources_rec.jtf_sales_reps_pk <> OKL_API.G_MISS_CHAR) THEN
6836: -- Need to populate the Sales Representative Name
6837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6838: 'Executing the Cursor c_sales_rep_acc_sources_csr. l_sales_rep_id = ' ||
6839: TO_CHAR(p_acc_sources_rec.jtf_sales_reps_pk) );
6865: );
6866: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6867: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6868: -- Check the return status and if errored, return the error back
6869: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6872: RAISE OKL_API.G_EXCEPTION_ERROR;
6873: END IF;
6866: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6867: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6868: -- Check the return status and if errored, return the error back
6869: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6872: RAISE OKL_API.G_EXCEPTION_ERROR;
6873: END IF;
6874: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6867: 'After okl_ap_extension_pvt.create_pxh_extension: l_return_status ' || l_return_status );
6868: -- Check the return status and if errored, return the error back
6869: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6872: RAISE OKL_API.G_EXCEPTION_ERROR;
6873: END IF;
6874: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6875: l_header_extension_id := lx_pxh_rec.header_extension_id;
6868: -- Check the return status and if errored, return the error back
6869: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6872: RAISE OKL_API.G_EXCEPTION_ERROR;
6873: END IF;
6874: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6875: l_header_extension_id := lx_pxh_rec.header_extension_id;
6876: END IF;
6874: -- Store the Header Extension ID into the Local Variable l_header_extension_id
6875: l_header_extension_id := lx_pxh_rec.header_extension_id;
6876: END IF;
6877: IF l_kle_id IS NOT NULL OR
6878: l_kle_id <> OKL_API.G_MISS_NUM
6879: THEN
6880: -- Start populating the Sources at the Extension Line Level
6881: -- Prepare kle_source_rec_type with khr_id, kle_id and ledger_language
6882: l_kle_source_rec.khr_id := l_khr_id;
6900: ,x_msg_data => x_msg_data );
6901: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6902: 'After populate_kle_sources: l_return_status ' || l_return_status );
6903: -- Check the return status and if errored, return the error back
6904: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6907: RAISE OKL_API.G_EXCEPTION_ERROR;
6908: END IF;
6901: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
6902: 'After populate_kle_sources: l_return_status ' || l_return_status );
6903: -- Check the return status and if errored, return the error back
6904: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6907: RAISE OKL_API.G_EXCEPTION_ERROR;
6908: END IF;
6909: -- calling assign_kle_rec_to_pxlv_rec
6902: 'After populate_kle_sources: l_return_status ' || l_return_status );
6903: -- Check the return status and if errored, return the error back
6904: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6907: RAISE OKL_API.G_EXCEPTION_ERROR;
6908: END IF;
6909: -- calling assign_kle_rec_to_pxlv_rec
6910: assign_kle_rec_to_pxl_rec(
6903: -- Check the return status and if errored, return the error back
6904: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6907: RAISE OKL_API.G_EXCEPTION_ERROR;
6908: END IF;
6909: -- calling assign_kle_rec_to_pxlv_rec
6910: assign_kle_rec_to_pxl_rec(
6911: p_kle_source_rec => l_kle_source_rec
6921: --ELSE
6922: -- Populate the l_pxlv_rec with the khr_id, ledger_language
6923: -- but not with the kle_id
6924: --l_pxlv_rec.language := l_ledger_language ;
6925: END IF; -- IF l_kle_id IS NOT NULL OR l_kle_id <> OKL_API.G_MISS_NUM
6926:
6927: -- Stamp the Header Extension ID on the Extension Line Table
6928: l_pxl_rec.header_extension_id := l_header_extension_id;
6929:
6990: l_pxl_rec.asset_category_name := t_rec.asset_category_name;
6991: END LOOP; -- End for c_manufacture_model_csr
6992:
6993: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
6994: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR AND
6995: p_acc_sources_rec.inventory_item_id_pk1 IS NOT NULL AND
6996: p_acc_sources_rec.inventory_item_id_pk1 <> OKL_API.G_MISS_CHAR) THEN
6997: FOR tl_sources_in IN l_pxll_tbl.FIRST .. l_pxll_tbl.LAST
6998: LOOP
6992:
6993: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
6994: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR AND
6995: p_acc_sources_rec.inventory_item_id_pk1 IS NOT NULL AND
6996: p_acc_sources_rec.inventory_item_id_pk1 <> OKL_API.G_MISS_CHAR) THEN
6997: FOR tl_sources_in IN l_pxll_tbl.FIRST .. l_pxll_tbl.LAST
6998: LOOP
6999: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7000: 'Executing the Cursor c_inventory_item_name_csr. p_inventory_item_id_pk1= ' ||
7011: END LOOP;
7012: END LOOP;
7013: END IF;
7014: IF(p_acc_sources_rec.inventory_org_id_pk2 IS NOT NULL AND
7015: p_acc_sources_rec.inventory_org_id_pk2 <> OKL_API.G_MISS_CHAR) THEN
7016: -- Populate Inventory Organization Name
7017: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7018: '*** AGS Inventory Org ID used to fetch teh Inventory Organization Code : Org ID=' ||
7019: p_acc_sources_rec.inventory_org_id_pk2 );
7054: ,x_pxll_tbl => lx_pxll_tbl
7055: );
7056: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7057: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
7058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7055: );
7056: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7057: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
7058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7056: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7057: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
7058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7064: 'Calling okl_api.end_activity');
7057: 'After okl_ap_extension_pvt.create_pxl_extension: l_return_status ' || l_return_status );
7058: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7064: 'Calling okl_api.end_activity');
7065: okl_api.end_activity(
7060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7064: 'Calling okl_api.end_activity');
7065: okl_api.end_activity(
7066: x_msg_count => x_msg_count
7067: ,x_msg_data => x_msg_data);
7068: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7061: RAISE OKL_API.G_EXCEPTION_ERROR;
7062: END IF;
7063: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7064: 'Calling okl_api.end_activity');
7065: okl_api.end_activity(
7066: x_msg_count => x_msg_count
7067: ,x_msg_data => x_msg_data);
7068: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7069: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
7066: x_msg_count => x_msg_count
7067: ,x_msg_data => x_msg_data);
7068: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7069: 'END OKL_SLA_ACC_SOURCES_PVT.populate_ap_sources');
7070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7071: EXCEPTION
7072: ------------------------------------------------------------
7073: -- Exception handling
7074: ------------------------------------------------------------
7071: EXCEPTION
7072: ------------------------------------------------------------
7073: -- Exception handling
7074: ------------------------------------------------------------
7075: WHEN OKL_API.G_EXCEPTION_ERROR
7076: THEN
7077: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7078: p_api_name => l_api_name
7079: ,p_pkg_name => G_PKG_NAME
7073: -- Exception handling
7074: ------------------------------------------------------------
7075: WHEN OKL_API.G_EXCEPTION_ERROR
7076: THEN
7077: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7078: p_api_name => l_api_name
7079: ,p_pkg_name => G_PKG_NAME
7080: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7081: ,x_msg_count => x_msg_count
7076: THEN
7077: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7078: p_api_name => l_api_name
7079: ,p_pkg_name => G_PKG_NAME
7080: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7081: ,x_msg_count => x_msg_count
7082: ,x_msg_data => x_msg_data
7083: ,p_api_type => '_PVT');
7084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7080: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7081: ,x_msg_count => x_msg_count
7082: ,x_msg_data => x_msg_data
7083: ,p_api_type => '_PVT');
7084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7085: THEN
7086: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7087: p_api_name => l_api_name
7088: ,p_pkg_name => G_PKG_NAME
7082: ,x_msg_data => x_msg_data
7083: ,p_api_type => '_PVT');
7084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7085: THEN
7086: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7087: p_api_name => l_api_name
7088: ,p_pkg_name => G_PKG_NAME
7089: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7090: ,x_msg_count => x_msg_count
7085: THEN
7086: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7087: p_api_name => l_api_name
7088: ,p_pkg_name => G_PKG_NAME
7089: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7090: ,x_msg_count => x_msg_count
7091: ,x_msg_data => x_msg_data
7092: ,p_api_type => '_PVT');
7093: WHEN OTHERS
7091: ,x_msg_data => x_msg_data
7092: ,p_api_type => '_PVT');
7093: WHEN OTHERS
7094: THEN
7095: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7096: p_api_name => l_api_name
7097: ,p_pkg_name => G_PKG_NAME
7098: ,p_exc_name => 'OTHERS'
7099: ,x_msg_count => x_msg_count
7154: -- Declare Process Variable
7155: -----------------------------------------------------------------
7156: l_api_version CONSTANT NUMBER := 1;
7157: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-AP';
7158: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7159:
7160: -----------------------------------------------------------------
7161: -- Local Variables
7162: -----------------------------------------------------------------
7179: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7180: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7181: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7182: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7183: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7184: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7185: 'Calling OKL_API.START_ACTIVITY');
7186: l_return_status := OKL_API.START_ACTIVITY(
7187: p_api_name => l_api_name
7181: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7182: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7183: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7184: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7185: 'Calling OKL_API.START_ACTIVITY');
7186: l_return_status := OKL_API.START_ACTIVITY(
7187: p_api_name => l_api_name
7188: ,p_pkg_name => g_pkg_name
7189: ,p_init_msg_list => p_init_msg_list
7182: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7183: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7184: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7185: 'Calling OKL_API.START_ACTIVITY');
7186: l_return_status := OKL_API.START_ACTIVITY(
7187: p_api_name => l_api_name
7188: ,p_pkg_name => g_pkg_name
7189: ,p_init_msg_list => p_init_msg_list
7190: ,l_api_version => l_api_version
7190: ,l_api_version => l_api_version
7191: ,p_api_version => p_api_version
7192: ,p_api_type => '_PVT'
7193: ,x_return_status => l_return_status);
7194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7197: RAISE OKL_API.G_EXCEPTION_ERROR;
7198: END IF;
7191: ,p_api_version => p_api_version
7192: ,p_api_type => '_PVT'
7193: ,x_return_status => l_return_status);
7194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7197: RAISE OKL_API.G_EXCEPTION_ERROR;
7198: END IF;
7199:
7192: ,p_api_type => '_PVT'
7193: ,x_return_status => l_return_status);
7194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7197: RAISE OKL_API.G_EXCEPTION_ERROR;
7198: END IF;
7199:
7200: -- Validation 1: Source ID and Source Table should not be NULL in the
7193: ,x_return_status => l_return_status);
7194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7197: RAISE OKL_API.G_EXCEPTION_ERROR;
7198: END IF;
7199:
7200: -- Validation 1: Source ID and Source Table should not be NULL in the
7201: -- AP Extension Header Record Structure
7201: -- AP Extension Header Record Structure
7202: IF (p_pxhv_rec.source_id IS NULL OR
7203: p_pxhv_rec.source_table IS NULL)
7204: THEN
7205: OKL_API.set_message(
7206: p_app_name => G_APP_NAME
7207: ,p_msg_name => G_INVALID_VALUE
7208: ,p_token1 => G_COL_NAME_TOKEN
7209: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7206: p_app_name => G_APP_NAME
7207: ,p_msg_name => G_INVALID_VALUE
7208: ,p_token1 => G_COL_NAME_TOKEN
7209: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7210: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: END IF;
7213:
7214: -- Validation 2: The Header Source Table should be the
7207: ,p_msg_name => G_INVALID_VALUE
7208: ,p_token1 => G_COL_NAME_TOKEN
7209: ,p_token1_value => 'HEADER.SOURCE_ID_TABLE');
7210: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: END IF;
7213:
7214: -- Validation 2: The Header Source Table should be the
7215: -- OKL AP Invoice Trx Header . Header table only
7215: -- OKL AP Invoice Trx Header . Header table only
7216: -- ie. it should be okl_trx_ap_invoices_b only
7217: IF (p_pxhv_rec.source_table <> G_TRX_AP_INVOICES_B)
7218: THEN
7219: OKL_API.set_message(
7220: p_app_name => G_APP_NAME
7221: ,p_msg_name => G_INVALID_VALUE
7222: ,p_token1 => G_COL_NAME_TOKEN
7223: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7220: p_app_name => G_APP_NAME
7221: ,p_msg_name => G_INVALID_VALUE
7222: ,p_token1 => G_COL_NAME_TOKEN
7223: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7224: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7226: END IF;
7227:
7228: -- Copy to local variables
7221: ,p_msg_name => G_INVALID_VALUE
7222: ,p_token1 => G_COL_NAME_TOKEN
7223: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7224: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7226: END IF;
7227:
7228: -- Copy to local variables
7229: l_pxhv_rec := p_pxhv_rec;
7233: -- Validation 3: There should be atleast one Transaction Detail Line
7234: -- for which the Populate AP Sources should be called
7235: IF l_pxlv_tbl.COUNT = 0
7236: THEN
7237: OKL_API.set_message(
7238: p_app_name => G_APP_NAME
7239: ,p_msg_name => G_INVALID_VALUE
7240: ,p_token1 => G_COL_NAME_TOKEN
7241: ,p_token1_value => 'PXLV_TBL.COUNT()');
7238: p_app_name => G_APP_NAME
7239: ,p_msg_name => G_INVALID_VALUE
7240: ,p_token1 => G_COL_NAME_TOKEN
7241: ,p_token1_value => 'PXLV_TBL.COUNT()');
7242: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: END IF;
7245:
7246: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7239: ,p_msg_name => G_INVALID_VALUE
7240: ,p_token1 => G_COL_NAME_TOKEN
7241: ,p_token1_value => 'PXLV_TBL.COUNT()');
7242: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7244: END IF;
7245:
7246: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7247: IF l_pxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
7245:
7246: -- Validation 4: p_pxlv_tbl.COUNT should be equal to the p_acc_sources_tbl.COUNT
7247: IF l_pxlv_tbl.COUNT <> p_acc_sources_tbl.COUNT
7248: THEN
7249: OKL_API.set_message(
7250: p_app_name => G_APP_NAME
7251: ,p_msg_name => G_INVALID_VALUE
7252: ,p_token1 => G_COL_NAME_TOKEN
7253: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7250: p_app_name => G_APP_NAME
7251: ,p_msg_name => G_INVALID_VALUE
7252: ,p_token1 => G_COL_NAME_TOKEN
7253: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7254: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7256: END IF;
7257:
7258: -- Loop on the details for the current transaction header
7251: ,p_msg_name => G_INVALID_VALUE
7252: ,p_token1 => G_COL_NAME_TOKEN
7253: ,p_token1_value => 'P_ACC_SOURCES_TBL.COUNT()');
7254: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7256: END IF;
7257:
7258: -- Loop on the details for the current transaction header
7259: -- Call the populate_ap_sources
7314: IF l_acc_srcs_index IS NULL OR
7315: ( p_acc_sources_tbl.EXISTS(l_acc_srcs_index) = FALSE )
7316: THEN
7317: -- accounting_event_class_code is missing
7318: OKL_API.set_message(
7319: p_app_name => G_APP_NAME
7320: ,p_msg_name => G_INVALID_VALUE
7321: ,p_token1 => G_COL_NAME_TOKEN
7322: ,p_token1_value => 'AGS_SOURCES_INDEX');
7319: p_app_name => G_APP_NAME
7320: ,p_msg_name => G_INVALID_VALUE
7321: ,p_token1 => G_COL_NAME_TOKEN
7322: ,p_token1_value => 'AGS_SOURCES_INDEX');
7323: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: END IF; -- IF l_acc_sources_found = FALSE
7326:
7327: l_pxhv_rec.try_id := l_ap_fcase_tbl(tld_index).try_id;
7320: ,p_msg_name => G_INVALID_VALUE
7321: ,p_token1 => G_COL_NAME_TOKEN
7322: ,p_token1_value => 'AGS_SOURCES_INDEX');
7323: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: END IF; -- IF l_acc_sources_found = FALSE
7326:
7327: l_pxhv_rec.try_id := l_ap_fcase_tbl(tld_index).try_id;
7328: l_pxhv_rec.khr_id := l_ap_fcase_tbl(tld_index).khr_id;
7350: ,x_msg_data => x_msg_data);
7351: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7352: 'After populate_ap_sources: l_return_status ' || l_return_status );
7353: -- Check the return status and if errored, return the error back
7354: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7356: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7358: END IF;
7351: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7352: 'After populate_ap_sources: l_return_status ' || l_return_status );
7353: -- Check the return status and if errored, return the error back
7354: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7356: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7358: END IF;
7359: END IF; -- IF l_capture_sources = 'Y'
7352: 'After populate_ap_sources: l_return_status ' || l_return_status );
7353: -- Check the return status and if errored, return the error back
7354: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7356: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7358: END IF;
7359: END IF; -- IF l_capture_sources = 'Y'
7360: END LOOP; -- Loop on l_ap_fcase_tbl ..
7353: -- Check the return status and if errored, return the error back
7354: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7356: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7357: RAISE OKL_API.G_EXCEPTION_ERROR;
7358: END IF;
7359: END IF; -- IF l_capture_sources = 'Y'
7360: END LOOP; -- Loop on l_ap_fcase_tbl ..
7361: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7358: END IF;
7359: END IF; -- IF l_capture_sources = 'Y'
7360: END LOOP; -- Loop on l_ap_fcase_tbl ..
7361: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7362: 'Calling okl_api.end_activity');
7363: okl_api.end_activity(
7364: x_msg_count => x_msg_count
7365: ,x_msg_data => x_msg_data);
7366: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7359: END IF; -- IF l_capture_sources = 'Y'
7360: END LOOP; -- Loop on l_ap_fcase_tbl ..
7361: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7362: 'Calling okl_api.end_activity');
7363: okl_api.end_activity(
7364: x_msg_count => x_msg_count
7365: ,x_msg_data => x_msg_data);
7366: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7367: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7364: x_msg_count => x_msg_count
7365: ,x_msg_data => x_msg_data);
7366: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7367: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7368: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7369: EXCEPTION
7370: ------------------------------------------------------------
7371: -- Exception handling
7372: ------------------------------------------------------------
7369: EXCEPTION
7370: ------------------------------------------------------------
7371: -- Exception handling
7372: ------------------------------------------------------------
7373: WHEN OKL_API.G_EXCEPTION_ERROR
7374: THEN
7375: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7376: p_api_name => l_api_name
7377: ,p_pkg_name => G_PKG_NAME
7371: -- Exception handling
7372: ------------------------------------------------------------
7373: WHEN OKL_API.G_EXCEPTION_ERROR
7374: THEN
7375: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7376: p_api_name => l_api_name
7377: ,p_pkg_name => G_PKG_NAME
7378: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7379: ,x_msg_count => x_msg_count
7374: THEN
7375: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7376: p_api_name => l_api_name
7377: ,p_pkg_name => G_PKG_NAME
7378: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7379: ,x_msg_count => x_msg_count
7380: ,x_msg_data => x_msg_data
7381: ,p_api_type => '_PVT');
7382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7378: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7379: ,x_msg_count => x_msg_count
7380: ,x_msg_data => x_msg_data
7381: ,p_api_type => '_PVT');
7382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7383: THEN
7384: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7385: p_api_name => l_api_name
7386: ,p_pkg_name => G_PKG_NAME
7380: ,x_msg_data => x_msg_data
7381: ,p_api_type => '_PVT');
7382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7383: THEN
7384: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7385: p_api_name => l_api_name
7386: ,p_pkg_name => G_PKG_NAME
7387: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7388: ,x_msg_count => x_msg_count
7383: THEN
7384: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7385: p_api_name => l_api_name
7386: ,p_pkg_name => G_PKG_NAME
7387: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7388: ,x_msg_count => x_msg_count
7389: ,x_msg_data => x_msg_data
7390: ,p_api_type => '_PVT');
7391: WHEN OTHERS
7389: ,x_msg_data => x_msg_data
7390: ,p_api_type => '_PVT');
7391: WHEN OTHERS
7392: THEN
7393: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7394: p_api_name => l_api_name
7395: ,p_pkg_name => G_PKG_NAME
7396: ,p_exc_name => 'OTHERS'
7397: ,x_msg_count => x_msg_count
7413: -- Declare Process Variable
7414: -----------------------------------------------------------------
7415: l_api_version CONSTANT NUMBER := 1;
7416: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_AP_EXTENSION';
7417: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7418: pxl_index BINARY_INTEGER;
7419: l_pxhv_rec okl_pxh_pvt.pxhv_rec_type;
7420: l_pxlv_tbl okl_pxl_pvt.pxlv_tbl_type;
7421: lx_pxhv_rec okl_pxh_pvt.pxhv_rec_type;
7449: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7450: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7451: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7452: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7453: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7454: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7455: 'Calling OKL_API.START_ACTIVITY');
7456: l_return_status := OKL_API.START_ACTIVITY(
7457: p_api_name => l_api_name
7451: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7452: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7453: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7454: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7455: 'Calling OKL_API.START_ACTIVITY');
7456: l_return_status := OKL_API.START_ACTIVITY(
7457: p_api_name => l_api_name
7458: ,p_pkg_name => g_pkg_name
7459: ,p_init_msg_list => p_init_msg_list
7452: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7453: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7454: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7455: 'Calling OKL_API.START_ACTIVITY');
7456: l_return_status := OKL_API.START_ACTIVITY(
7457: p_api_name => l_api_name
7458: ,p_pkg_name => g_pkg_name
7459: ,p_init_msg_list => p_init_msg_list
7460: ,l_api_version => l_api_version
7460: ,l_api_version => l_api_version
7461: ,p_api_version => p_api_version
7462: ,p_api_type => '_PVT'
7463: ,x_return_status => l_return_status);
7464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7467: RAISE OKL_API.G_EXCEPTION_ERROR;
7468: END IF;
7461: ,p_api_version => p_api_version
7462: ,p_api_type => '_PVT'
7463: ,x_return_status => l_return_status);
7464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7467: RAISE OKL_API.G_EXCEPTION_ERROR;
7468: END IF;
7469: -- Actual Logic Starts Here ..
7462: ,p_api_type => '_PVT'
7463: ,x_return_status => l_return_status);
7464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7467: RAISE OKL_API.G_EXCEPTION_ERROR;
7468: END IF;
7469: -- Actual Logic Starts Here ..
7470: l_pxhv_rec := p_pxhv_rec;
7463: ,x_return_status => l_return_status);
7464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7467: RAISE OKL_API.G_EXCEPTION_ERROR;
7468: END IF;
7469: -- Actual Logic Starts Here ..
7470: l_pxhv_rec := p_pxhv_rec;
7471: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7469: -- Actual Logic Starts Here ..
7470: l_pxhv_rec := p_pxhv_rec;
7471: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7472: 'Source ID=' || to_char(l_pxhv_rec.source_id) || 'Source Header Table=' || l_pxhv_rec.source_table );
7473: IF ( l_pxhv_rec.source_id = OKL_API.G_MISS_NUM or l_pxhv_rec.source_id IS NULL )
7474: THEN
7475: OKL_API.set_message(
7476: p_app_name => G_APP_NAME
7477: ,p_msg_name => G_INVALID_VALUE
7471: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7472: 'Source ID=' || to_char(l_pxhv_rec.source_id) || 'Source Header Table=' || l_pxhv_rec.source_table );
7473: IF ( l_pxhv_rec.source_id = OKL_API.G_MISS_NUM or l_pxhv_rec.source_id IS NULL )
7474: THEN
7475: OKL_API.set_message(
7476: p_app_name => G_APP_NAME
7477: ,p_msg_name => G_INVALID_VALUE
7478: ,p_token1 => G_COL_NAME_TOKEN
7479: ,p_token1_value => 'HEADER.SOURCE_ID');
7476: p_app_name => G_APP_NAME
7477: ,p_msg_name => G_INVALID_VALUE
7478: ,p_token1 => G_COL_NAME_TOKEN
7479: ,p_token1_value => 'HEADER.SOURCE_ID');
7480: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7482: END IF;
7483: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7484: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7477: ,p_msg_name => G_INVALID_VALUE
7478: ,p_token1 => G_COL_NAME_TOKEN
7479: ,p_token1_value => 'HEADER.SOURCE_ID');
7480: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7482: END IF;
7483: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7484: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7485: THEN
7479: ,p_token1_value => 'HEADER.SOURCE_ID');
7480: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7482: END IF;
7483: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7484: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7485: THEN
7486: OKL_API.set_message(
7487: p_app_name => G_APP_NAME
7482: END IF;
7483: IF ( l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR or l_pxhv_rec.source_table IS NULL
7484: OR l_pxhv_rec.source_table NOT IN ( G_TRX_AP_INVOICES_B) )
7485: THEN
7486: OKL_API.set_message(
7487: p_app_name => G_APP_NAME
7488: ,p_msg_name => G_INVALID_VALUE
7489: ,p_token1 => G_COL_NAME_TOKEN
7490: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7487: p_app_name => G_APP_NAME
7488: ,p_msg_name => G_INVALID_VALUE
7489: ,p_token1 => G_COL_NAME_TOKEN
7490: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7491: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7493: END IF;
7494: -- Initialize the pxl_index
7495: pxl_index := 1;
7488: ,p_msg_name => G_INVALID_VALUE
7489: ,p_token1 => G_COL_NAME_TOKEN
7490: ,p_token1_value => 'HEADER.SOURCE_TABLE');
7491: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7493: END IF;
7494: -- Initialize the pxl_index
7495: pxl_index := 1;
7496: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7530: );
7531: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7532: 'After okl_ap_extension_pvt.delete_pxh_extension: l_return_status ' || l_return_status );
7533: -- Check the return status and if errored, return the error back
7534: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7535: THEN
7536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7538: RAISE OKL_API.G_EXCEPTION_ERROR;
7532: 'After okl_ap_extension_pvt.delete_pxh_extension: l_return_status ' || l_return_status );
7533: -- Check the return status and if errored, return the error back
7534: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7535: THEN
7536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7538: RAISE OKL_API.G_EXCEPTION_ERROR;
7539: END IF;
7540: END LOOP; -- Loop on the get_ap_ext_hdr_id
7533: -- Check the return status and if errored, return the error back
7534: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7535: THEN
7536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7538: RAISE OKL_API.G_EXCEPTION_ERROR;
7539: END IF;
7540: END LOOP; -- Loop on the get_ap_ext_hdr_id
7541: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7534: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7535: THEN
7536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7538: RAISE OKL_API.G_EXCEPTION_ERROR;
7539: END IF;
7540: END LOOP; -- Loop on the get_ap_ext_hdr_id
7541: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7542: x_pxlv_tbl := l_pxlv_tbl;
7540: END LOOP; -- Loop on the get_ap_ext_hdr_id
7541: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7542: x_pxlv_tbl := l_pxlv_tbl;
7543: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7544: 'Calling okl_api.end_activity');
7545: okl_api.end_activity(
7546: x_msg_count => x_msg_count
7547: ,x_msg_data => x_msg_data);
7548: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7541: -- Store the Transaction Line IDs and Line Source Tables so as to return back
7542: x_pxlv_tbl := l_pxlv_tbl;
7543: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7544: 'Calling okl_api.end_activity');
7545: okl_api.end_activity(
7546: x_msg_count => x_msg_count
7547: ,x_msg_data => x_msg_data);
7548: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7549: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7546: x_msg_count => x_msg_count
7547: ,x_msg_data => x_msg_data);
7548: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7549: 'END OKL_SLA_ACC_SOURCES_PVT.DELETE_AP_EXTENSION');
7550: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7551: EXCEPTION
7552: ------------------------------------------------------------
7553: -- Exception handling
7554: ------------------------------------------------------------
7551: EXCEPTION
7552: ------------------------------------------------------------
7553: -- Exception handling
7554: ------------------------------------------------------------
7555: WHEN OKL_API.G_EXCEPTION_ERROR
7556: THEN
7557: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7558: p_api_name => l_api_name
7559: ,p_pkg_name => G_PKG_NAME
7553: -- Exception handling
7554: ------------------------------------------------------------
7555: WHEN OKL_API.G_EXCEPTION_ERROR
7556: THEN
7557: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7558: p_api_name => l_api_name
7559: ,p_pkg_name => G_PKG_NAME
7560: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7561: ,x_msg_count => x_msg_count
7556: THEN
7557: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7558: p_api_name => l_api_name
7559: ,p_pkg_name => G_PKG_NAME
7560: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7561: ,x_msg_count => x_msg_count
7562: ,x_msg_data => x_msg_data
7563: ,p_api_type => '_PVT');
7564: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7560: ,p_exc_name => OKL_API.G_RET_STS_ERROR
7561: ,x_msg_count => x_msg_count
7562: ,x_msg_data => x_msg_data
7563: ,p_api_type => '_PVT');
7564: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7565: THEN
7566: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7567: p_api_name => l_api_name
7568: ,p_pkg_name => G_PKG_NAME
7562: ,x_msg_data => x_msg_data
7563: ,p_api_type => '_PVT');
7564: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7565: THEN
7566: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7567: p_api_name => l_api_name
7568: ,p_pkg_name => G_PKG_NAME
7569: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7570: ,x_msg_count => x_msg_count
7565: THEN
7566: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7567: p_api_name => l_api_name
7568: ,p_pkg_name => G_PKG_NAME
7569: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
7570: ,x_msg_count => x_msg_count
7571: ,x_msg_data => x_msg_data
7572: ,p_api_type => '_PVT');
7573: WHEN OTHERS
7571: ,x_msg_data => x_msg_data
7572: ,p_api_type => '_PVT');
7573: WHEN OTHERS
7574: THEN
7575: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
7576: p_api_name => l_api_name
7577: ,p_pkg_name => G_PKG_NAME
7578: ,p_exc_name => 'OTHERS'
7579: ,x_msg_count => x_msg_count
7608: -- Declare Process Variable
7609: -----------------------------------------------------------------
7610: l_api_version CONSTANT NUMBER := 1;
7611: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-DEPRN';
7612: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7613: -----------------------------------------------------------------
7614: -- Local Variables
7615: -----------------------------------------------------------------
7616: l_khr_id NUMBER;
7663: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7664: 'begin debug OKLRSLAB.pls call ' || l_api_name);
7665: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7666: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7667: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7668: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7669: 'Calling OKL_API.START_ACTIVITY');
7670: l_return_status := OKL_API.START_ACTIVITY(
7671: p_api_name => l_api_name
7665: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7666: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7667: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7668: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7669: 'Calling OKL_API.START_ACTIVITY');
7670: l_return_status := OKL_API.START_ACTIVITY(
7671: p_api_name => l_api_name
7672: ,p_pkg_name => g_pkg_name
7673: ,p_init_msg_list => p_init_msg_list
7666: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7667: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7668: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7669: 'Calling OKL_API.START_ACTIVITY');
7670: l_return_status := OKL_API.START_ACTIVITY(
7671: p_api_name => l_api_name
7672: ,p_pkg_name => g_pkg_name
7673: ,p_init_msg_list => p_init_msg_list
7674: ,l_api_version => l_api_version
7674: ,l_api_version => l_api_version
7675: ,p_api_version => p_api_version
7676: ,p_api_type => '_PVT'
7677: ,x_return_status => l_return_status);
7678: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7680: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7681: RAISE OKL_API.G_EXCEPTION_ERROR;
7682: END IF;
7675: ,p_api_version => p_api_version
7676: ,p_api_type => '_PVT'
7677: ,x_return_status => l_return_status);
7678: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7680: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7681: RAISE OKL_API.G_EXCEPTION_ERROR;
7682: END IF;
7683: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7676: ,p_api_type => '_PVT'
7677: ,x_return_status => l_return_status);
7678: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7680: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7681: RAISE OKL_API.G_EXCEPTION_ERROR;
7682: END IF;
7683: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7684: 'Before Performing validations');
7677: ,x_return_status => l_return_status);
7678: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7680: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7681: RAISE OKL_API.G_EXCEPTION_ERROR;
7682: END IF;
7683: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7684: 'Before Performing validations');
7685: -- Validations to be done:
7693: p_khr_id || ' | ' || p_deprn_run_id);
7694:
7695: l_pk_attributes := NULL;
7696: IF p_khr_ID IS NULL OR
7697: p_khr_ID = OKL_API.G_MISS_NUM
7698: THEN
7699: IF l_pk_attributes IS NOT NULL
7700: THEN
7701: l_pk_attributes := l_pk_attributes || ' , ';
7702: END IF;
7703: l_pk_attributes := l_pk_attributes || 'P_KHR_ID';
7704: END IF;
7705: IF p_deprn_run_id IS NULL OR
7706: p_deprn_run_id = OKL_API.G_MISS_NUM
7707: THEN
7708: IF l_pk_attributes IS NOT NULL
7709: THEN
7710: l_pk_attributes := l_pk_attributes || ' , ';
7711: END IF;
7712: l_pk_attributes := l_pk_attributes || 'P_DEPRN_RUN_ID';
7713: END IF;
7714: IF p_book_type_code IS NULL OR
7715: p_book_type_code = OKL_API.G_MISS_CHAR
7716: THEN
7717: IF l_pk_attributes IS NOT NULL
7718: THEN
7719: l_pk_attributes := l_pk_attributes || ' , ';
7720: END IF;
7721: l_pk_attributes := l_pk_attributes || 'P_BOOK_TYPE_CODE';
7722: END IF;
7723: IF p_period_counter IS NULL OR
7724: p_period_counter = OKL_API.G_MISS_NUM
7725: THEN
7726: IF l_pk_attributes IS NOT NULL
7727: THEN
7728: l_pk_attributes := l_pk_attributes || ' , ';
7731: END IF;
7732: IF LENGTH(l_pk_attributes) > 0
7733: THEN
7734: -- Raise an Exception
7735: OKL_API.set_message(
7736: p_app_name => G_APP_NAME
7737: ,p_msg_name => G_INVALID_VALUE
7738: ,p_token1 => G_COL_NAME_TOKEN
7739: ,p_token1_value => l_pk_attributes);
7736: p_app_name => G_APP_NAME
7737: ,p_msg_name => G_INVALID_VALUE
7738: ,p_token1 => G_COL_NAME_TOKEN
7739: ,p_token1_value => l_pk_attributes);
7740: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7742: END IF;
7743: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7744: 'Validation 1 Successfull !');
7737: ,p_msg_name => G_INVALID_VALUE
7738: ,p_token1 => G_COL_NAME_TOKEN
7739: ,p_token1_value => l_pk_attributes);
7740: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7742: END IF;
7743: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
7744: 'Validation 1 Successfull !');
7745: -- Assign the p_deprn_asset_tbl to l_deprn_asset_tbl
7747: -- Validation 2: Atleast one KLE_ID has to be there to populate the source for ..
7748: IF l_deprn_asset_tbl.COUNT = 0
7749: THEN
7750: -- Raise an Exception
7751: OKL_API.set_message(
7752: p_app_name => G_APP_NAME
7753: ,p_msg_name => G_INVALID_VALUE
7754: ,p_token1 => G_COL_NAME_TOKEN
7755: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7752: p_app_name => G_APP_NAME
7753: ,p_msg_name => G_INVALID_VALUE
7754: ,p_token1 => G_COL_NAME_TOKEN
7755: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7756: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: END IF;
7759:
7760: -- Copy the Input Parameters to the Local Variables
7753: ,p_msg_name => G_INVALID_VALUE
7754: ,p_token1 => G_COL_NAME_TOKEN
7755: ,p_token1_value => 'P_DEPRN_ASSET_TBL.COUNT');
7756: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: END IF;
7759:
7760: -- Copy the Input Parameters to the Local Variables
7761: l_khr_id := p_khr_id;
7820: ,x_msg_data => x_msg_data );
7821: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7822: 'After populate_khr_sources: l_return_status ' || l_return_status );
7823: -- Check the return status and if errored, return the error back
7824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7826: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7827: RAISE OKL_API.G_EXCEPTION_ERROR;
7828: END IF;
7821: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7822: 'After populate_khr_sources: l_return_status ' || l_return_status );
7823: -- Check the return status and if errored, return the error back
7824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7826: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7827: RAISE OKL_API.G_EXCEPTION_ERROR;
7828: END IF;
7829:
7822: 'After populate_khr_sources: l_return_status ' || l_return_status );
7823: -- Check the return status and if errored, return the error back
7824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7826: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7827: RAISE OKL_API.G_EXCEPTION_ERROR;
7828: END IF;
7829:
7830: --calling assign_khr_rec_to_fxhv_rec
7823: -- Check the return status and if errored, return the error back
7824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7826: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7827: RAISE OKL_API.G_EXCEPTION_ERROR;
7828: END IF;
7829:
7830: --calling assign_khr_rec_to_fxhv_rec
7831: assign_khr_rec_to_fxh_rec(
7885: );
7886: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7887: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
7888: -- Check the return status and if errored, return the error back
7889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7890: THEN
7891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7893: RAISE OKL_API.G_EXCEPTION_ERROR;
7887: 'After okl_fa_extension_pvt.create_fxh_extension: l_return_status ' || l_return_status );
7888: -- Check the return status and if errored, return the error back
7889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7890: THEN
7891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7893: RAISE OKL_API.G_EXCEPTION_ERROR;
7894: END IF;
7895: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7888: -- Check the return status and if errored, return the error back
7889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7890: THEN
7891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7893: RAISE OKL_API.G_EXCEPTION_ERROR;
7894: END IF;
7895: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7896: l_header_extension_id := lx_fxh_rec.header_extension_id;
7889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7890: THEN
7891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7893: RAISE OKL_API.G_EXCEPTION_ERROR;
7894: END IF;
7895: -- Store the Header Extension ID in to the Local Variable: l_header_extension_id
7896: l_header_extension_id := lx_fxh_rec.header_extension_id;
7897: -- Initialize the l_line_index
7943: ,x_msg_data => x_msg_data );
7944: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7945: 'After populate_kle_sources: l_return_status ' || l_return_status );
7946: -- Check the return status and if errored, return the error back
7947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7948: THEN
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: RAISE OKL_API.G_EXCEPTION_ERROR;
7945: 'After populate_kle_sources: l_return_status ' || l_return_status );
7946: -- Check the return status and if errored, return the error back
7947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7948: THEN
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: RAISE OKL_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: -- Assin the KLE Sources to the FA Extension Line
7946: -- Check the return status and if errored, return the error back
7947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7948: THEN
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: RAISE OKL_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: -- Assin the KLE Sources to the FA Extension Line
7954: assign_kle_rec_to_fxl_rec(
7947: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7948: THEN
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: RAISE OKL_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: -- Assin the KLE Sources to the FA Extension Line
7954: assign_kle_rec_to_fxl_rec(
7955: p_kle_source_rec => l_kle_source_rec
7979: );
7980: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7981: 'After okl_fa_extension_pvt.create_fxl_extension-tbl Version: l_return_status ' || l_return_status );
7982: -- Check the return status and if errored, return the error back
7983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7984: THEN
7985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7987: THEN
7981: 'After okl_fa_extension_pvt.create_fxl_extension-tbl Version: l_return_status ' || l_return_status );
7982: -- Check the return status and if errored, return the error back
7983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7984: THEN
7985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7987: THEN
7988: RAISE OKL_API.G_EXCEPTION_ERROR;
7989: END IF;
7982: -- Check the return status and if errored, return the error back
7983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
7984: THEN
7985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7987: THEN
7988: RAISE OKL_API.G_EXCEPTION_ERROR;
7989: END IF;
7990: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7984: THEN
7985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
7987: THEN
7988: RAISE OKL_API.G_EXCEPTION_ERROR;
7989: END IF;
7990: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7991: 'Calling okl_api.end_activity');
7992: okl_api.end_activity(
7987: THEN
7988: RAISE OKL_API.G_EXCEPTION_ERROR;
7989: END IF;
7990: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7991: 'Calling okl_api.end_activity');
7992: okl_api.end_activity(
7993: x_msg_count => x_msg_count
7994: ,x_msg_data => x_msg_data);
7995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7988: RAISE OKL_API.G_EXCEPTION_ERROR;
7989: END IF;
7990: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7991: 'Calling okl_api.end_activity');
7992: okl_api.end_activity(
7993: x_msg_count => x_msg_count
7994: ,x_msg_data => x_msg_data);
7995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7996: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7993: x_msg_count => x_msg_count
7994: ,x_msg_data => x_msg_data);
7995: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
7996: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
7997: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7998: EXCEPTION
7999: ------------------------------------------------------------
8000: -- Exception handling
8001: ------------------------------------------------------------
7998: EXCEPTION
7999: ------------------------------------------------------------
8000: -- Exception handling
8001: ------------------------------------------------------------
8002: WHEN OKL_API.G_EXCEPTION_ERROR
8003: THEN
8004: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8005: p_api_name => l_api_name
8006: ,p_pkg_name => G_PKG_NAME
8000: -- Exception handling
8001: ------------------------------------------------------------
8002: WHEN OKL_API.G_EXCEPTION_ERROR
8003: THEN
8004: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8005: p_api_name => l_api_name
8006: ,p_pkg_name => G_PKG_NAME
8007: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8008: ,x_msg_count => x_msg_count
8003: THEN
8004: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8005: p_api_name => l_api_name
8006: ,p_pkg_name => G_PKG_NAME
8007: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8008: ,x_msg_count => x_msg_count
8009: ,x_msg_data => x_msg_data
8010: ,p_api_type => '_PVT');
8011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8007: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8008: ,x_msg_count => x_msg_count
8009: ,x_msg_data => x_msg_data
8010: ,p_api_type => '_PVT');
8011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8012: THEN
8013: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8014: p_api_name => l_api_name
8015: ,p_pkg_name => G_PKG_NAME
8009: ,x_msg_data => x_msg_data
8010: ,p_api_type => '_PVT');
8011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8012: THEN
8013: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8014: p_api_name => l_api_name
8015: ,p_pkg_name => G_PKG_NAME
8016: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8017: ,x_msg_count => x_msg_count
8012: THEN
8013: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8014: p_api_name => l_api_name
8015: ,p_pkg_name => G_PKG_NAME
8016: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8017: ,x_msg_count => x_msg_count
8018: ,x_msg_data => x_msg_data
8019: ,p_api_type => '_PVT');
8020: WHEN OTHERS
8018: ,x_msg_data => x_msg_data
8019: ,p_api_type => '_PVT');
8020: WHEN OTHERS
8021: THEN
8022: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8023: p_api_name => l_api_name
8024: ,p_pkg_name => G_PKG_NAME
8025: ,p_exc_name => 'OTHERS'
8026: ,x_msg_count => x_msg_count
8120: l_curr_deprn_run_id NUMBER;
8121: ast_index NUMBER; -- Index for the l_deprn_asset_tbl
8122: -- Common Local Variables
8123: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_DEPRN_SOURCES';
8124: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
8125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8126: l_msg_count NUMBER;
8127: l_msg_data VARCHAR2(2000);
8128: l_api_version CONSTANT NUMBER := 1.0;
8121: ast_index NUMBER; -- Index for the l_deprn_asset_tbl
8122: -- Common Local Variables
8123: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_DEPRN_SOURCES';
8124: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
8125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8126: l_msg_count NUMBER;
8127: l_msg_data VARCHAR2(2000);
8128: l_api_version CONSTANT NUMBER := 1.0;
8129: l_khr_id_tbl Okl_Streams_Util.NumberTabTyp;
8208: ,x_msg_count => l_msg_count
8209: ,x_msg_data => l_msg_data
8210: );
8211: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8212: IF l_return_status = OKL_API.G_RET_STS_ERROR
8213: THEN
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8210: );
8211: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8212: IF l_return_status = OKL_API.G_RET_STS_ERROR
8213: THEN
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8211: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8212: IF l_return_status = OKL_API.G_RET_STS_ERROR
8213: THEN
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8219: -- Reset the Khr_id to the current KHR_ID
8212: IF l_return_status = OKL_API.G_RET_STS_ERROR
8213: THEN
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------------' );
8219: -- Reset the Khr_id to the current KHR_ID
8220: l_khr_id := l_fa_deprn_assets_tbl(i).khr_id;
8265: ,x_msg_count => l_msg_count
8266: ,x_msg_data => l_msg_data
8267: );
8268: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8269: IF l_return_status = OKL_API.G_RET_STS_ERROR
8270: THEN
8271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8273: RAISE OKL_API.G_EXCEPTION_ERROR;
8267: );
8268: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8269: IF l_return_status = OKL_API.G_RET_STS_ERROR
8270: THEN
8271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8273: RAISE OKL_API.G_EXCEPTION_ERROR;
8274: END IF;
8275: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8268: log_msg(FND_FILE.LOG, ' After Calling the Populate Sources return_status=' || l_return_status );
8269: IF l_return_status = OKL_API.G_RET_STS_ERROR
8270: THEN
8271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8273: RAISE OKL_API.G_EXCEPTION_ERROR;
8274: END IF;
8275: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8276: -- Exit When Cursor Has been Exhausted fetching all the Records
8269: IF l_return_status = OKL_API.G_RET_STS_ERROR
8270: THEN
8271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8273: RAISE OKL_API.G_EXCEPTION_ERROR;
8274: END IF;
8275: END IF; -- IF l_deprn_assets_tbl.COUNT > 0
8276: -- Exit When Cursor Has been Exhausted fetching all the Records
8277: EXIT WHEN get_okl_assets_csr%NOTFOUND;
8286: EXCEPTION
8287: ------------------------------------------------------------
8288: -- Exception handling
8289: ------------------------------------------------------------
8290: WHEN Okl_Api.G_EXCEPTION_ERROR
8291: THEN
8292: l_return_status := Okl_Api.G_RET_STS_ERROR;
8293: -- print the error message in the log file and output files
8294: log_msg(FND_FILE.OUTPUT,'');
8288: -- Exception handling
8289: ------------------------------------------------------------
8290: WHEN Okl_Api.G_EXCEPTION_ERROR
8291: THEN
8292: l_return_status := Okl_Api.G_RET_STS_ERROR;
8293: -- print the error message in the log file and output files
8294: log_msg(FND_FILE.OUTPUT,'');
8295: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8296: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8303: END LOOP;
8304: END IF;
8305: retcode := 2;
8306:
8307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
8308: THEN
8309: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8310: -- print the error message in the log file
8311: log_msg(FND_FILE.OUTPUT,'');
8305: retcode := 2;
8306:
8307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
8308: THEN
8309: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8310: -- print the error message in the log file
8311: log_msg(FND_FILE.OUTPUT,'');
8312: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8313: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8323: retcode := 2;
8324:
8325: WHEN OTHERS
8326: THEN
8327: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8328: -- print the error message in the log file
8329: log_msg(FND_FILE.OUTPUT,'');
8330: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
8331: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
8447: l_num_workers := FND_PROFILE.VALUE(G_OKL_DEPRN_WORKERS);
8448: log_msg(FND_FILE.LOG, 'Number of Workers ' || TO_CHAR(l_num_workers) );
8449: IF l_num_workers IS NULL OR l_num_workers <= 0
8450: THEN
8451: OKL_API.set_message(
8452: p_app_name => G_APP_NAME
8453: ,p_msg_name => G_OKL_DEPRN_WORKER_ERROR);
8454: log_msg(FND_FILE.LOG, 'Please specify positive value for the profile option OKL: Capture Sources for Asset Depreciation Concurrent Workers');
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8451: OKL_API.set_message(
8452: p_app_name => G_APP_NAME
8453: ,p_msg_name => G_OKL_DEPRN_WORKER_ERROR);
8454: log_msg(FND_FILE.LOG, 'Please specify positive value for the profile option OKL: Capture Sources for Asset Depreciation Concurrent Workers');
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8456: END IF;
8457: -- Select sequence for marking processes
8458: SELECT okl_opp_seq.NEXTVAL
8459: INTO l_seq_next
8681: -- Declare Process Variable
8682: -----------------------------------------------------------------
8683: l_api_version CONSTANT NUMBER := 1;
8684: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SOURCES-RECEIPT';
8685: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8686: -- Local Variables for enabling the Debug Statements
8687: l_module CONSTANT fnd_log_messages.module%TYPE := G_MODULE || l_api_name;
8688: l_debug_enabled VARCHAR2(10);
8689: is_debug_procedure_on BOOLEAN;
8710: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8711: 'begin debug OKLRSLAB.pls call ' || l_api_name);
8712: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8713: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8714: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8715: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8716: 'Calling OKL_API.START_ACTIVITY');
8717: l_return_status := OKL_API.START_ACTIVITY(
8718: p_api_name => l_api_name
8712: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8713: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8714: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8715: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8716: 'Calling OKL_API.START_ACTIVITY');
8717: l_return_status := OKL_API.START_ACTIVITY(
8718: p_api_name => l_api_name
8719: ,p_pkg_name => g_pkg_name
8720: ,p_init_msg_list => p_init_msg_list
8713: 'BEGIN API OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES');
8714: l_return_status := OKL_API.G_RET_STS_SUCCESS;
8715: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8716: 'Calling OKL_API.START_ACTIVITY');
8717: l_return_status := OKL_API.START_ACTIVITY(
8718: p_api_name => l_api_name
8719: ,p_pkg_name => g_pkg_name
8720: ,p_init_msg_list => p_init_msg_list
8721: ,l_api_version => l_api_version
8721: ,l_api_version => l_api_version
8722: ,p_api_version => p_api_version
8723: ,p_api_type => '_PVT'
8724: ,x_return_status => l_return_status);
8725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8728: RAISE OKL_API.G_EXCEPTION_ERROR;
8729: END IF;
8722: ,p_api_version => p_api_version
8723: ,p_api_type => '_PVT'
8724: ,x_return_status => l_return_status);
8725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8728: RAISE OKL_API.G_EXCEPTION_ERROR;
8729: END IF;
8730: -- Assign the Input Parameters to the Local Variables
8723: ,p_api_type => '_PVT'
8724: ,x_return_status => l_return_status);
8725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8728: RAISE OKL_API.G_EXCEPTION_ERROR;
8729: END IF;
8730: -- Assign the Input Parameters to the Local Variables
8731: l_ar_receipt_id := p_rxh_rec.source_id;
8724: ,x_return_status => l_return_status);
8725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8728: RAISE OKL_API.G_EXCEPTION_ERROR;
8729: END IF;
8730: -- Assign the Input Parameters to the Local Variables
8731: l_ar_receipt_id := p_rxh_rec.source_id;
8732: l_khr_id := p_rxh_rec.khr_id;
8734: 'L_AR_RECEIPT_ID= ' || TO_CHAR(l_ar_receipt_id) || ' L_KHR_ID= ' || TO_CHAR(l_khr_id) );
8735: -- Validation 1: p_ar_receipt_id Should not be NULL
8736: IF l_ar_receipt_id IS NULL
8737: THEN
8738: OKL_API.set_message(
8739: p_app_name => G_APP_NAME
8740: ,p_msg_name => G_INVALID_VALUE
8741: ,p_token1 => G_COL_NAME_TOKEN
8742: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8739: p_app_name => G_APP_NAME
8740: ,p_msg_name => G_INVALID_VALUE
8741: ,p_token1 => G_COL_NAME_TOKEN
8742: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8743: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8745: END IF;
8746: -- Validation 2: p_khr_id Should not be NULL
8747: IF l_khr_id IS NULL
8740: ,p_msg_name => G_INVALID_VALUE
8741: ,p_token1 => G_COL_NAME_TOKEN
8742: ,p_token1_value => 'P_RXH_REC.SOURCE_ID');
8743: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8745: END IF;
8746: -- Validation 2: p_khr_id Should not be NULL
8747: IF l_khr_id IS NULL
8748: THEN
8745: END IF;
8746: -- Validation 2: p_khr_id Should not be NULL
8747: IF l_khr_id IS NULL
8748: THEN
8749: OKL_API.set_message(
8750: p_app_name => G_APP_NAME
8751: ,p_msg_name => G_INVALID_VALUE
8752: ,p_token1 => G_COL_NAME_TOKEN
8753: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8750: p_app_name => G_APP_NAME
8751: ,p_msg_name => G_INVALID_VALUE
8752: ,p_token1 => G_COL_NAME_TOKEN
8753: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8754: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: END IF;
8757: -- Assign the AR Receipt ID to the Header Extension Source ID Column
8758: l_rxh_rec := p_rxh_rec; -- Source ID and KHR_ID will be initalized
8751: ,p_msg_name => G_INVALID_VALUE
8752: ,p_token1 => G_COL_NAME_TOKEN
8753: ,p_token1_value => 'P_RXH_REC.KHR_ID');
8754: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: END IF;
8757: -- Assign the AR Receipt ID to the Header Extension Source ID Column
8758: l_rxh_rec := p_rxh_rec; -- Source ID and KHR_ID will be initalized
8759: l_rxh_rec.source_table := G_AR_CASH_RECEIPTS;
8793: );
8794: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8795: 'After populate_khr_sources: l_return_status ' || l_return_status );
8796: -- Check the return status and if errored, return the error back
8797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8798: THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8801: THEN
8795: 'After populate_khr_sources: l_return_status ' || l_return_status );
8796: -- Check the return status and if errored, return the error back
8797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8798: THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8801: THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8796: -- Check the return status and if errored, return the error back
8797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8798: THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8801: THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8804: -- Assign the KHR Sources to the AR Extension Header Table Record
8798: THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8801: THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8804: -- Assign the KHR Sources to the AR Extension Header Table Record
8805: assign_khr_rec_to_rxh_rec(
8806: p_khr_source_rec => l_khr_source_rec
8835: ,x_rxhl_tbl => lx_rxhl_tbl
8836: );
8837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8838: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8839: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8840: THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8843: THEN
8837: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'S',
8838: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8839: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8840: THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8843: THEN
8844: RAISE OKL_API.G_EXCEPTION_ERROR;
8845: END IF;
8838: 'After call to okl_ar_extension_pvt.create_rxh_extension: l_return_status ' || l_return_status );
8839: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8840: THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8843: THEN
8844: RAISE OKL_API.G_EXCEPTION_ERROR;
8845: END IF;
8846: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8840: THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8843: THEN
8844: RAISE OKL_API.G_EXCEPTION_ERROR;
8845: END IF;
8846: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8847: 'Calling okl_api.end_activity');
8848: OKL_API.end_activity(
8843: THEN
8844: RAISE OKL_API.G_EXCEPTION_ERROR;
8845: END IF;
8846: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8847: 'Calling okl_api.end_activity');
8848: OKL_API.end_activity(
8849: x_msg_count => x_msg_count
8850: ,x_msg_data => x_msg_data);
8851: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8844: RAISE OKL_API.G_EXCEPTION_ERROR;
8845: END IF;
8846: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8847: 'Calling okl_api.end_activity');
8848: OKL_API.end_activity(
8849: x_msg_count => x_msg_count
8850: ,x_msg_data => x_msg_data);
8851: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8852: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES_RECEIPT');
8849: x_msg_count => x_msg_count
8850: ,x_msg_data => x_msg_data);
8851: put_in_log(l_debug_enabled,is_debug_procedure_on,is_debug_statement_on,l_module, 'P',
8852: 'END OKL_SLA_ACC_SOURCES_PVT.POPULATE_SOURCES_RECEIPT');
8853: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8854: EXCEPTION
8855: ------------------------------------------------------------
8856: -- Exception handling
8857: ------------------------------------------------------------
8854: EXCEPTION
8855: ------------------------------------------------------------
8856: -- Exception handling
8857: ------------------------------------------------------------
8858: WHEN OKL_API.G_EXCEPTION_ERROR
8859: THEN
8860: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8861: p_api_name => l_api_name
8862: ,p_pkg_name => G_PKG_NAME
8856: -- Exception handling
8857: ------------------------------------------------------------
8858: WHEN OKL_API.G_EXCEPTION_ERROR
8859: THEN
8860: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8861: p_api_name => l_api_name
8862: ,p_pkg_name => G_PKG_NAME
8863: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8864: ,x_msg_count => x_msg_count
8859: THEN
8860: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8861: p_api_name => l_api_name
8862: ,p_pkg_name => G_PKG_NAME
8863: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8864: ,x_msg_count => x_msg_count
8865: ,x_msg_data => x_msg_data
8866: ,p_api_type => '_PVT');
8867: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8863: ,p_exc_name => OKL_API.G_RET_STS_ERROR
8864: ,x_msg_count => x_msg_count
8865: ,x_msg_data => x_msg_data
8866: ,p_api_type => '_PVT');
8867: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8868: THEN
8869: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8870: p_api_name => l_api_name
8871: ,p_pkg_name => G_PKG_NAME
8865: ,x_msg_data => x_msg_data
8866: ,p_api_type => '_PVT');
8867: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
8868: THEN
8869: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8870: p_api_name => l_api_name
8871: ,p_pkg_name => G_PKG_NAME
8872: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8873: ,x_msg_count => x_msg_count
8868: THEN
8869: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8870: p_api_name => l_api_name
8871: ,p_pkg_name => G_PKG_NAME
8872: ,p_exc_name => OKL_API.G_RET_STS_UNEXP_ERROR
8873: ,x_msg_count => x_msg_count
8874: ,x_msg_data => x_msg_data
8875: ,p_api_type => '_PVT');
8876: WHEN OTHERS
8874: ,x_msg_data => x_msg_data
8875: ,p_api_type => '_PVT');
8876: WHEN OTHERS
8877: THEN
8878: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
8879: p_api_name => l_api_name
8880: ,p_pkg_name => G_PKG_NAME
8881: ,p_exc_name => 'OTHERS'
8882: ,x_msg_count => x_msg_count