[Home] [Help]
117: CLOSE k_deal_type_csr;
118: END IF;
119:
120: -- Set the oracle error message
121: okl_api.set_message (p_app_name => g_app_name_1,
122: p_msg_name => g_unexpected_error,
123: p_token1 => g_sqlcode_token,
124: p_token1_value => SQLCODE,
125: p_token2 => g_sqlerrm_token,
155:
156: lp_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
157: lx_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
158:
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
160:
161: l_quote_status VARCHAR2(200) := 'COMPLETE';--'OKL_QUOTE_STATUS'
162:
163: lx_msg_count NUMBER;
166: l_qst_code varchar2(200);
167:
168: l_tmt_status_code VARCHAR2(200);
169:
170: lx_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
171: lx_quotes_found VARCHAR2(1) := 'N';
172: l_api_version NUMBER := 1;
173: l_module_name VARCHAR2 (500)
174: := g_module_name || 'update_quote_status';
250:
251: -- Call the update of the quote header api
252: OKL_TRX_QUOTES_PUB.update_trx_quotes (
253: p_api_version => l_api_version,
254: p_init_msg_list => OKL_API.G_FALSE,
255: x_return_status => l_return_status,
256: x_msg_count => lx_msg_count,
257: x_msg_data => lx_msg_data,
258: p_qtev_rec => lp_qtev_rec,
257: x_msg_data => lx_msg_data,
258: p_qtev_rec => lp_qtev_rec,
259: x_qtev_rec => lx_qtev_rec);
260:
261: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
262:
263: IF (is_debug_statement_on)
264: THEN
265: okl_debug_pub.log_debug (g_level_statement,
287: --
288: -- End of comments
289: PROCEDURE log_messages
290: IS
291: lx_error_rec okl_api.error_rec_type;
292: l_msg_idx INTEGER := fnd_msg_pub.g_first;
293: BEGIN
294: -- Get the messages in the log
295: LOOP
313: EXCEPTION
314: WHEN OTHERS
315: THEN
316: -- Set the oracle error message
317: okl_api.set_message (p_app_name => g_app_name_1,
318: p_msg_name => g_unexpected_error,
319: p_token1 => g_sqlcode_token,
320: p_token1_value => SQLCODE,
321: p_token2 => g_sqlerrm_token,
432: CLOSE get_quote_details_csr;
433: END IF;
434:
435: -- Set the oracle error message
436: okl_api.set_message (p_app_name => g_app_name_1,
437: p_msg_name => g_unexpected_error,
438: p_token1 => g_sqlcode_token,
439: p_token1_value => SQLCODE,
440: p_token2 => g_sqlerrm_token,
504: IF (p_term_rec.p_control_flag = 'CONTRACT_TERMINATE_SCRN')
505: THEN
506: -- Termination request from Request Contract Termination screen
507: -- for contract CONTRACT_NUMBER.
508: okl_api.set_message (p_app_name => g_app_name,
509: p_msg_name => 'OKL_AM_TERM_REQ_FRM_SCRN',
510: p_token1 => 'CONTRACT_NUMBER',
511: p_token1_value => p_term_rec.p_contract_number
512: );
523: p_validate_yn => g_yes
524: );
525: -- Termination request from accepted QUOTE_TYPE
526: -- for contract CONTRACT_NUMBER.
527: okl_api.set_message
528: (p_app_name => g_app_name,
529: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
530: p_token1 => 'QUOTE_TYPE',
531: p_token1_value => l_quote_type,
543: p_validate_yn => g_yes
544: );
545: -- Termination request from accepted QUOTE_TYPE
546: -- for contract CONTRACT_NUMBER.
547: okl_api.set_message (p_app_name => g_app_name,
548: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
549: p_token1 => 'QUOTE_TYPE',
550: p_token1_value => l_quote_type,
551: p_token2 => 'CONTRACT_NUMBER',
553: );
554: ELSIF (p_term_rec.p_control_flag = 'BATCH_PROCESS')
555: THEN
556: -- Auto termination request for contract CONTRACT_NUMBER.
557: okl_api.set_message (p_app_name => g_app_name,
558: p_msg_name => 'OKL_AM_AUTO_TERM_REQ',
559: p_token1 => 'CONTRACT_NUMBER',
560: p_token1_value => p_term_rec.p_contract_number
561: );
571: EXCEPTION
572: WHEN OTHERS
573: THEN
574: -- Set the oracle error message
575: okl_api.set_message (p_app_name => g_app_name_1,
576: p_msg_name => g_unexpected_error,
577: p_token1 => g_sqlcode_token,
578: p_token1_value => SQLCODE,
579: p_token2 => g_sqlerrm_token,
613: -- Set p_overall_status only if p_overall_status was successful and
614: -- p_return_status is not null
615: IF px_overall_status = g_ret_sts_success
616: AND ( p_return_status IS NOT NULL
617: OR p_return_status <> okl_api.g_miss_char
618: )
619: THEN
620: px_overall_status := p_return_status;
621: END IF;
622: EXCEPTION
623: WHEN OTHERS
624: THEN
625: -- Set the oracle error message
626: okl_api.set_message (p_app_name => g_app_name_1,
627: p_msg_name => g_unexpected_error,
628: p_token1 => g_sqlcode_token,
629: p_token1_value => SQLCODE,
630: p_token2 => g_sqlerrm_token,
738:
739: IF l_return_status <> g_ret_sts_success
740: THEN
741: -- Unable to find a transaction type for the transaction TRY_NAME
742: okl_api.set_message (p_app_name => g_app_name,
743: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
744: p_token1 => 'TRY_NAME',
745: p_token1_value => l_trans_meaning
746: );
743: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
744: p_token1 => 'TRY_NAME',
745: p_token1_value => l_trans_meaning
746: );
747: RAISE okl_api.g_exception_error;
748: END IF;
749:
750: -- Get the contract currency code
751: l_currency_code :=
767: px_tcnv_rec.legal_entity_id :=
768: okl_legal_entity_util.get_khr_le_id (p_term_rec.p_contract_id);
769:
770: -- set the termination reason (TRN_CODE)
771: IF (p_term_rec.p_termination_reason <> okl_api.g_miss_char)
772: AND (p_term_rec.p_termination_reason IS NOT NULL)
773: THEN
774: px_tcnv_rec.trn_code := p_term_rec.p_termination_reason;
775: ELSE
786: 'End(-)'
787: );
788: END IF;
789: EXCEPTION
790: WHEN okl_api.g_exception_error
791: THEN
792: -- Set the return status
793: x_return_status := g_ret_sts_unexp_error;
794:
801: END IF;
802: WHEN OTHERS
803: THEN
804: -- Set the oracle error message
805: okl_api.set_message (p_app_name => g_app_name_1,
806: p_msg_name => g_unexpected_error,
807: p_token1 => g_sqlcode_token,
808: p_token1_value => SQLCODE,
809: p_token2 => g_sqlerrm_token,
897: px_tcnv_rec.tmt_status_code := 'ERROR';
898: --akrangan changes for sla tmt_status_code cr
899: END IF;
900:
901: IF (p_ret_val = okl_api.g_miss_char)
902: THEN
903: -- No value for p_ret_val
904: IF (p_return_status = g_ret_sts_success)
905: THEN
1053: EXCEPTION
1054: WHEN OTHERS
1055: THEN
1056: -- Set the oracle error message
1057: okl_api.set_message (p_app_name => g_app_name_1,
1058: p_msg_name => g_unexpected_error,
1059: p_token1 => g_sqlcode_token,
1060: p_token1_value => SQLCODE,
1061: p_token2 => g_sqlerrm_token,
1201:
1202: -- rollback if error
1203: IF (l_return_status = g_ret_sts_unexp_error)
1204: THEN
1205: RAISE okl_api.g_exception_unexpected_error;
1206: ELSIF (l_return_status = g_ret_sts_error)
1207: THEN
1208: RAISE okl_api.g_exception_error;
1209: END IF;
1204: THEN
1205: RAISE okl_api.g_exception_unexpected_error;
1206: ELSIF (l_return_status = g_ret_sts_error)
1207: THEN
1208: RAISE okl_api.g_exception_error;
1209: END IF;
1210:
1211: -- set the return values
1212: x_return_status := l_return_status;
1219: 'End(-)'
1220: );
1221: END IF;
1222: EXCEPTION
1223: WHEN okl_api.g_exception_error
1224: THEN
1225: ROLLBACK TO process_transaction;
1226: x_return_status := g_ret_sts_error;
1227:
1231: l_module_name,
1232: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
1233: );
1234: END IF;
1235: WHEN okl_api.g_exception_unexpected_error
1236: THEN
1237: ROLLBACK TO process_transaction;
1238: x_return_status := g_ret_sts_unexp_error;
1239:
1249: THEN
1250: ROLLBACK TO process_transaction;
1251: x_return_status := g_ret_sts_unexp_error;
1252: -- Set the oracle error message
1253: okl_api.set_message (p_app_name => g_app_name_1,
1254: p_msg_name => g_unexpected_error,
1255: p_token1 => g_sqlcode_token,
1256: p_token1_value => SQLCODE,
1257: p_token2 => g_sqlerrm_token,
1373: CLOSE get_qte_lines_csr;
1374: END IF;
1375:
1376: -- Set the oracle error message
1377: okl_api.set_message (p_app_name => g_app_name_1,
1378: p_msg_name => g_unexpected_error,
1379: p_token1 => g_sqlcode_token,
1380: p_token1_value => SQLCODE,
1381: p_token2 => g_sqlerrm_token,
1503: CLOSE chr_sts_csr;
1504:
1505: -- RMUNJULU 3018641 Step Message
1506: -- Step : Validate Contract
1507: okl_api.set_message (p_app_name => g_app_name,
1508: p_msg_name => 'OKL_AM_STEP_VAL');
1509:
1510: -- While looping thru the lines get the line status and compare with
1511: -- contract status. If both the statuses doesnot match then error.
1537: -- If statuses do not match set return status
1538: IF l_sts_match <> g_yes
1539: THEN
1540: -- Validation of contract and/or lines failed for contract CONTRACT_NUMBER.
1541: okl_api.set_message (p_app_name => g_app_name,
1542: p_msg_name => 'OKL_AM_VAL_K_LNS_FAILED',
1543: p_token1 => 'CONTRACT_NUMBER',
1544: p_token1_value => p_term_rec.p_contract_number
1545: );
1570: CLOSE cle_sts_csr;
1571: END IF;
1572:
1573: -- Set the oracle error message
1574: okl_api.set_message (p_app_name => g_app_name_1,
1575: p_msg_name => g_unexpected_error,
1576: p_token1 => g_sqlcode_token,
1577: p_token1_value => SQLCODE,
1578: p_token2 => g_sqlerrm_token,
1757: END LOOP;
1758: END IF;
1759: END IF;
1760:
1761: x_return_status := okl_api.g_ret_sts_success;
1762:
1763: IF ( p_trn_already_set = g_yes
1764: AND NVL (px_tcnv_rec.tmt_generic_flag1_yn, '?') <> g_yes
1765: )
1788: IF px_klev_tbl (i).p_kle_id IS NULL
1789: OR px_klev_tbl (i).p_kle_id = g_miss_num
1790: THEN
1791: -- kle id parameter is null
1792: okl_api.set_message (p_app_name => g_app_name_1,
1793: p_msg_name => g_required_value,
1794: p_token1 => g_col_name_token,
1795: p_token1_value => 'Kle Id'
1796: );
1793: p_msg_name => g_required_value,
1794: p_token1 => g_col_name_token,
1795: p_token1_value => 'Kle Id'
1796: );
1797: RAISE okl_api.g_exception_error;
1798: END IF;
1799:
1800: IF px_klev_tbl (i).p_asset_quantity IS NULL
1801: OR px_klev_tbl (i).p_asset_quantity = okl_api.g_miss_num
1797: RAISE okl_api.g_exception_error;
1798: END IF;
1799:
1800: IF px_klev_tbl (i).p_asset_quantity IS NULL
1801: OR px_klev_tbl (i).p_asset_quantity = okl_api.g_miss_num
1802: THEN
1803: -- Asset Quantity parameter is null
1804: okl_api.set_message (p_app_name => g_app_name_1,
1805: p_msg_name => g_required_value,
1800: IF px_klev_tbl (i).p_asset_quantity IS NULL
1801: OR px_klev_tbl (i).p_asset_quantity = okl_api.g_miss_num
1802: THEN
1803: -- Asset Quantity parameter is null
1804: okl_api.set_message (p_app_name => g_app_name_1,
1805: p_msg_name => g_required_value,
1806: p_token1 => g_col_name_token,
1807: p_token1_value => 'Asset Quantity'
1808: );
1805: p_msg_name => g_required_value,
1806: p_token1 => g_col_name_token,
1807: p_token1_value => 'Asset Quantity'
1808: );
1809: RAISE okl_api.g_exception_error;
1810: END IF;
1811:
1812: IF px_klev_tbl (i).p_asset_name IS NULL
1813: OR px_klev_tbl (i).p_asset_name = okl_api.g_miss_char
1809: RAISE okl_api.g_exception_error;
1810: END IF;
1811:
1812: IF px_klev_tbl (i).p_asset_name IS NULL
1813: OR px_klev_tbl (i).p_asset_name = okl_api.g_miss_char
1814: THEN
1815: -- Asset Name parameter is null
1816: okl_api.set_message (p_app_name => g_app_name_1,
1817: p_msg_name => g_required_value,
1812: IF px_klev_tbl (i).p_asset_name IS NULL
1813: OR px_klev_tbl (i).p_asset_name = okl_api.g_miss_char
1814: THEN
1815: -- Asset Name parameter is null
1816: okl_api.set_message (p_app_name => g_app_name_1,
1817: p_msg_name => g_required_value,
1818: p_token1 => g_col_name_token,
1819: p_token1_value => 'Asset Name'
1820: );
1817: p_msg_name => g_required_value,
1818: p_token1 => g_col_name_token,
1819: p_token1_value => 'Asset Name'
1820: );
1821: RAISE okl_api.g_exception_error;
1822: END IF;
1823:
1824: IF px_klev_tbl (i).p_quote_quantity IS NULL
1825: OR px_klev_tbl (i).p_quote_quantity = okl_api.g_miss_num
1821: RAISE okl_api.g_exception_error;
1822: END IF;
1823:
1824: IF px_klev_tbl (i).p_quote_quantity IS NULL
1825: OR px_klev_tbl (i).p_quote_quantity = okl_api.g_miss_num
1826: THEN
1827: -- Quote Quantity parameter is null
1828: okl_api.set_message (p_app_name => g_app_name_1,
1829: p_msg_name => g_required_value,
1824: IF px_klev_tbl (i).p_quote_quantity IS NULL
1825: OR px_klev_tbl (i).p_quote_quantity = okl_api.g_miss_num
1826: THEN
1827: -- Quote Quantity parameter is null
1828: okl_api.set_message (p_app_name => g_app_name_1,
1829: p_msg_name => g_required_value,
1830: p_token1 => g_col_name_token,
1831: p_token1_value => 'Quote Quantity'
1832: );
1829: p_msg_name => g_required_value,
1830: p_token1 => g_col_name_token,
1831: p_token1_value => 'Quote Quantity'
1832: );
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1835:
1836: IF px_klev_tbl (i).p_tql_id IS NULL
1837: OR px_klev_tbl (i).p_tql_id = okl_api.g_miss_num
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1835:
1836: IF px_klev_tbl (i).p_tql_id IS NULL
1837: OR px_klev_tbl (i).p_tql_id = okl_api.g_miss_num
1838: THEN
1839: -- quote line id parameter is null
1840: okl_api.set_message (p_app_name => g_app_name_1,
1841: p_msg_name => g_required_value,
1836: IF px_klev_tbl (i).p_tql_id IS NULL
1837: OR px_klev_tbl (i).p_tql_id = okl_api.g_miss_num
1838: THEN
1839: -- quote line id parameter is null
1840: okl_api.set_message (p_app_name => g_app_name_1,
1841: p_msg_name => g_required_value,
1842: p_token1 => g_col_name_token,
1843: p_token1_value => 'Quote Line ID'
1844: );
1841: p_msg_name => g_required_value,
1842: p_token1 => g_col_name_token,
1843: p_token1_value => 'Quote Line ID'
1844: );
1845: RAISE okl_api.g_exception_error;
1846: END IF;
1847:
1848: -- Check if the IB instances for this asset are serialized
1849: -- also get the IB instances which are serialized
1874: END IF;
1875:
1876: IF (x_return_status = g_ret_sts_unexp_error)
1877: THEN
1878: RAISE okl_api.g_exception_unexpected_error;
1879: ELSIF (x_return_status = g_ret_sts_error)
1880: THEN
1881: RAISE okl_api.g_exception_error;
1882: END IF;
1877: THEN
1878: RAISE okl_api.g_exception_unexpected_error;
1879: ELSIF (x_return_status = g_ret_sts_error)
1880: THEN
1881: RAISE okl_api.g_exception_error;
1882: END IF;
1883:
1884: -- If Asset serialized
1885: IF lx_sno_yn = g_true
1900: THEN
1901: -- Asset ASSET_NUMBER is serialized. Quote quantity
1902: -- QUOTE_QUANTITY does not match the number of selected asset
1903: -- units ASSET_UNITS.
1904: okl_api.set_message
1905: (p_app_name => 'OKL',
1906: p_msg_name => 'OKL_AM_QTE_QTY_SRL_CNT_ERR',
1907: p_token1 => 'ASSET_NUMBER',
1908: p_token1_value => px_klev_tbl (i).p_asset_name,
1910: p_token2_value => px_klev_tbl (i).p_quote_quantity,
1911: p_token3 => 'ASSET_UNITS',
1912: p_token3_value => l_ib_lines_count
1913: );
1914: RAISE okl_api.g_exception_error;
1915: END IF;
1916:
1917: --SECHAWLA 14-JAN-03 2748110 : Modified the logic to send those ib
1918: -- line ids that do not exist in
1953: ib_line_id := lx_clev_tbl.NEXT (ib_line_id);
1954: END LOOP;
1955: ELSE
1956: -- IB line ids not found
1957: okl_api.set_message (p_app_name => g_app_name_1,
1958: p_msg_name => g_required_value,
1959: p_token1 => g_col_name_token,
1960: p_token1_value => 'IB Line IDs'
1961: );
1958: p_msg_name => g_required_value,
1959: p_token1 => g_col_name_token,
1960: p_token1_value => 'IB Line IDs'
1961: );
1962: RAISE okl_api.g_exception_error;
1963: END IF;
1964: END IF;
1965:
1966: -- Create the split asset transactions
2005: END IF;
2006:
2007: IF (x_return_status = g_ret_sts_unexp_error)
2008: THEN
2009: RAISE okl_api.g_exception_unexpected_error;
2010: ELSIF (x_return_status = g_ret_sts_error)
2011: THEN
2012: RAISE okl_api.g_exception_error;
2013: END IF;
2008: THEN
2009: RAISE okl_api.g_exception_unexpected_error;
2010: ELSIF (x_return_status = g_ret_sts_error)
2011: THEN
2012: RAISE okl_api.g_exception_error;
2013: END IF;
2014:
2015: -- get the transaction which needs to be updated
2016: IF px_klev_tbl (i).p_split_kle_name IS NOT NULL
2058: END IF;
2059:
2060: IF (x_return_status = g_ret_sts_unexp_error)
2061: THEN
2062: RAISE okl_api.g_exception_unexpected_error;
2063: ELSIF (x_return_status = g_ret_sts_error)
2064: THEN
2065: RAISE okl_api.g_exception_error;
2066: END IF;
2061: THEN
2062: RAISE okl_api.g_exception_unexpected_error;
2063: ELSIF (x_return_status = g_ret_sts_error)
2064: THEN
2065: RAISE okl_api.g_exception_error;
2066: END IF;
2067: END IF;
2068: END LOOP;
2069: ELSE
2067: END IF;
2068: END LOOP;
2069: ELSE
2070: -- Create Split Trn did not work properly
2071: okl_api.set_message
2072: (p_app_name => g_app_name_1,
2073: p_msg_name => g_invalid_value,
2074: p_token1 => g_col_name_token,
2075: p_token1_value => 'lx_txdv_tbl.COUNT'
2073: p_msg_name => g_invalid_value,
2074: p_token1 => g_col_name_token,
2075: p_token1_value => 'lx_txdv_tbl.COUNT'
2076: );
2077: RAISE okl_api.g_exception_error;
2078: END IF;
2079: END IF;
2080: END LOOP;
2081: END IF;
2130: 'End(-)'
2131: );
2132: END IF;
2133: EXCEPTION
2134: WHEN okl_api.g_exception_error
2135: THEN
2136: -- SECHAWLA 23-DEC-02 2484327 Closed cursors if open
2137: IF get_ib_lines_cnt_csr%ISOPEN
2138: THEN
2163: l_module_name,
2164: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
2165: );
2166: END IF;
2167: WHEN okl_api.g_exception_unexpected_error
2168: THEN
2169: -- SECHAWLA 23-DEC-02 2484327 Closed cursors if open
2170: IF get_ib_lines_cnt_csr%ISOPEN
2171: THEN
2213:
2214: ROLLBACK TO do_split_asset_trn;
2215: x_return_status := g_ret_sts_unexp_error;
2216: -- Set the oracle error message
2217: okl_api.set_message (p_app_name => g_app_name_1,
2218: p_msg_name => g_unexpected_error,
2219: p_token1 => g_sqlcode_token,
2220: p_token1_value => SQLCODE,
2221: p_token2 => g_sqlerrm_token,
2481: EXCEPTION
2482: WHEN OTHERS
2483: THEN
2484: -- store SQL error message on message stack for caller
2485: okl_api.set_message (g_app_name,
2486: g_unexpected_error,
2487: g_sqlcode_token,
2488: SQLCODE,
2489: g_sqlerrm_token,
2596: END LOOP;
2597: END IF;
2598: END IF;
2599:
2600: x_return_status := okl_api.g_ret_sts_success;
2601:
2602: IF ( p_trn_already_set = g_yes
2603: AND NVL (px_tcnv_rec.tmt_split_asset_yn, '?') <> g_yes
2604: )
2660: );
2661: END IF;
2662:
2663: -- Try doing split for all split assets and get all errors
2664: IF x_return_status <> okl_api.g_ret_sts_success
2665: THEN
2666: -- RMUNJULU ASSETNUM INPUT 2757312
2667: -- Get the split asset from the split transaction
2668: FOR get_split_asset_rec IN
2700: THEN
2701: -- New Asset Number NEW_ASSET_NUMBER is not unique. Please update the
2702: -- New Asset Number for the Contract CONTRACT_NUMBER and Original
2703: -- Asset Number ORIG_ASSET_NUMBER from the Split Asset screen.
2704: okl_api.set_message
2705: (p_app_name => g_app_name,
2706: p_msg_name => 'OKL_AM_SPLIT_ASSET_ERROR',
2707: p_token1 => 'NEW_ASSET_NUMBER',
2708: p_token1_value => l_split_asset,
2718: -- Set Return status
2719: l_return_status := x_return_status;
2720: END IF;
2721:
2722: IF x_return_status = okl_api.g_ret_sts_success
2723: THEN
2724: -- RMUNJULU 2757312 Added this IF
2725: IF lx_cle_tbl.COUNT = 2
2726: THEN
2740: lx_cle_tbl (cle_index + 1).cle_id;
2741: END IF;
2742: ELSE
2743: -- Invalid value for x_cle_tbl.
2744: okl_api.set_message (p_app_name => g_app_name_1,
2745: p_msg_name => g_invalid_value,
2746: p_token1 => g_col_name_token,
2747: p_token1_value => 'x_cle_tbl'
2748: );
2745: p_msg_name => g_invalid_value,
2746: p_token1 => g_col_name_token,
2747: p_token1_value => 'x_cle_tbl'
2748: );
2749: RAISE okl_api.g_exception_error;
2750: END IF;
2751: END IF;
2752: END IF;
2753: END LOOP;
2755:
2756: -- Raise Exception here after trying to do all splits
2757: IF (l_return_status = g_ret_sts_unexp_error)
2758: THEN
2759: RAISE okl_api.g_exception_unexpected_error;
2760: ELSIF (l_return_status = g_ret_sts_error)
2761: THEN
2762: RAISE okl_api.g_exception_error;
2763: END IF;
2758: THEN
2759: RAISE okl_api.g_exception_unexpected_error;
2760: ELSIF (l_return_status = g_ret_sts_error)
2761: THEN
2762: RAISE okl_api.g_exception_error;
2763: END IF;
2764:
2765: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++START
2766: -- RMUNJULU 2757312 ADD code
2810:
2811: -- Raise exception to rollback to if error
2812: IF (x_return_status = g_ret_sts_unexp_error)
2813: THEN
2814: RAISE okl_api.g_exception_unexpected_error;
2815: ELSIF (x_return_status = g_ret_sts_error)
2816: THEN
2817: RAISE okl_api.g_exception_error;
2818: END IF;
2813: THEN
2814: RAISE okl_api.g_exception_unexpected_error;
2815: ELSIF (x_return_status = g_ret_sts_error)
2816: THEN
2817: RAISE okl_api.g_exception_error;
2818: END IF;
2819:
2820: IF px_klev_tbl.COUNT > 0
2821: THEN
2836: -- retains quantity QUANTITY_OLD. New asset ASSET_NUMBER_NEW has
2837: -- been created with quantity QUANTITY_NEW.
2838: -- RMUNJULU 03-JAN-03 2683876 Changed msg token
2839: -- RMUNJULU 21-JAN-03 2760324 Removed additonal msg token
2840: okl_api.set_message
2841: (p_app_name => g_app_name,
2842: p_msg_name => 'OKL_AM_SPLIT_ASSET_MSG',
2843: p_token1 => 'ASSET_NUMBER_OLD',
2844: p_token1_value => px_klev_tbl (i).p_asset_name,
2872: 'End(-)'
2873: );
2874: END IF;
2875: EXCEPTION
2876: WHEN okl_api.g_exception_error
2877: THEN
2878: -- SECHAWLA 23-DEC-02 2484327 Closed cursors if open
2879: IF get_ib_lines_cnt_csr%ISOPEN
2880: THEN
2916: l_module_name,
2917: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
2918: );
2919: END IF;
2920: WHEN okl_api.g_exception_unexpected_error
2921: THEN
2922: -- SECHAWLA 23-DEC-02 2484327 Closed cursors if open
2923: IF get_ib_lines_cnt_csr%ISOPEN
2924: THEN
2988:
2989: ROLLBACK TO do_split_asset;
2990: x_return_status := g_ret_sts_unexp_error;
2991: -- Set the oracle error message
2992: okl_api.set_message (p_app_name => g_app_name_1,
2993: p_msg_name => g_unexpected_error,
2994: p_token1 => g_sqlcode_token,
2995: p_token1_value => SQLCODE,
2996: p_token2 => g_sqlerrm_token,
3217: IF (l_split_tbl.COUNT > 0)
3218: THEN
3219: -- RMUNJULU 3018641 Step Message
3220: -- Step : Split Asset
3221: okl_api.set_message (p_app_name => g_app_name,
3222: p_msg_name => 'OKL_AM_STEP_SPL');
3223: -- Call the do_split_asset_trn with the l_split_tbl
3224: do_split_asset_trn (p_term_rec => p_term_rec,
3225: p_sys_date => p_sys_date,
3242:
3243: IF l_return_status <> g_ret_sts_success
3244: THEN
3245: -- Split asset failed.
3246: okl_api.set_message (p_app_name => g_app_name,
3247: p_msg_name => 'OKL_AM_ERR_SPLIT_ASST');
3248: x_return_status := l_return_status;
3249: END IF;
3250:
3272:
3273: IF l_return_status <> g_ret_sts_success
3274: THEN
3275: -- Split asset failed.
3276: okl_api.set_message (p_app_name => g_app_name,
3277: p_msg_name => 'OKL_AM_ERR_SPLIT_ASST');
3278: x_return_status := l_return_status;
3279: END IF;
3280: END IF;
3312: 'End(-)'
3313: );
3314: END IF;
3315: EXCEPTION
3316: WHEN okl_api.g_exception_error
3317: THEN
3318: ROLLBACK TO split_asset;
3319: x_return_status := g_ret_sts_error;
3320:
3324: l_module_name,
3325: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
3326: );
3327: END IF;
3328: WHEN okl_api.g_exception_unexpected_error
3329: THEN
3330: ROLLBACK TO split_asset;
3331: x_return_status := g_ret_sts_unexp_error;
3332:
3342: THEN
3343: ROLLBACK TO split_asset;
3344: x_return_status := g_ret_sts_unexp_error;
3345: -- Set the oracle error message
3346: okl_api.set_message (p_app_name => g_app_name_1,
3347: p_msg_name => g_unexpected_error,
3348: p_token1 => g_sqlcode_token,
3349: p_token1_value => SQLCODE,
3350: p_token2 => g_sqlerrm_token,
3606:
3607: IF l_return_status <> g_ret_sts_success
3608: THEN
3609: -- Streams table update failed.
3610: okl_api.set_message (p_app_name => g_app_name,
3611: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
3612: END IF;
3613:
3614: -- Raise exception to rollback to if error
3613:
3614: -- Raise exception to rollback to if error
3615: IF (l_return_status = g_ret_sts_unexp_error)
3616: THEN
3617: RAISE okl_api.g_exception_unexpected_error;
3618: ELSIF (l_return_status = g_ret_sts_error)
3619: THEN
3620: RAISE okl_api.g_exception_error;
3621: END IF;
3616: THEN
3617: RAISE okl_api.g_exception_unexpected_error;
3618: ELSIF (l_return_status = g_ret_sts_error)
3619: THEN
3620: RAISE okl_api.g_exception_error;
3621: END IF;
3622:
3623: -- store the highest degree of error
3624: set_overall_status (p_return_status => l_return_status,
3633: ELSE
3634: --( no streams found )
3635:
3636: -- No future billable streams found.
3637: okl_api.set_message (p_app_name => g_app_name,
3638: p_msg_name => 'OKL_AM_NO_STREAMS');
3639: -- set the transaction record
3640: set_transaction_rec (p_return_status => l_return_status,
3641: p_overall_status => px_overall_status,
3657: 'End(-)'
3658: );
3659: END IF;
3660: EXCEPTION
3661: WHEN okl_api.g_exception_error
3662: THEN
3663: -- Close any open cursors
3664: IF k_streams_csr%ISOPEN
3665: THEN
3685: l_module_name,
3686: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
3687: );
3688: END IF;
3689: WHEN okl_api.g_exception_unexpected_error
3690: THEN
3691: -- Close any open cursors
3692: IF k_streams_csr%ISOPEN
3693: THEN
3735: p_tsu_code => 'ERROR',
3736: px_tcnv_rec => px_tcnv_rec
3737: );
3738: -- Set the oracle error message
3739: okl_api.set_message (p_app_name => g_app_name_1,
3740: p_msg_name => g_unexpected_error,
3741: p_token1 => g_sqlcode_token,
3742: p_token1_value => SQLCODE,
3743: p_token2 => g_sqlerrm_token,
4111: IF l_pdt_id IS NULL OR l_pdt_id = 0
4112: THEN
4113: -- Error: Unable to create accounting entries because of a missing
4114: -- Product Type for the contract CONTRACT_NUMBER.
4115: okl_api.set_message (p_app_name => g_app_name,
4116: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
4117: p_token1 => 'CONTRACT_NUMBER',
4118: p_token1_value => p_term_rec.p_contract_number
4119: );
4116: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
4117: p_token1 => 'CONTRACT_NUMBER',
4118: p_token1_value => p_term_rec.p_contract_number
4119: );
4120: RAISE okl_api.g_exception_error;
4121: END IF;
4122:
4123: -- get the product type
4124: OPEN l_product_type_csr (l_pdt_id);
4135: OR (p_trn_already_set = g_no)
4136: THEN
4137: -- RMUNJULU 3018641 Step Message
4138: -- Step : Accounting Entries
4139: okl_api.set_message (p_app_name => g_app_name,
4140: p_msg_name => 'OKL_AM_STEP_ACT');
4141:
4142: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
4143:
4199:
4200: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
4201: okl_securitization_pvt.check_khr_ia_associated
4202: (p_api_version => l_api_version,
4203: p_init_msg_list => okl_api.g_false,
4204: x_return_status => l_return_status,
4205: x_msg_count => l_msg_count,
4206: x_msg_data => l_msg_data,
4207: p_khr_id => p_term_rec.p_contract_id,
4222: END IF;
4223:
4224: IF (l_return_status = g_ret_sts_unexp_error)
4225: THEN
4226: RAISE okl_api.g_exception_unexpected_error;
4227: ELSIF (l_return_status = g_ret_sts_error)
4228: THEN
4229: RAISE okl_api.g_exception_error;
4230: END IF;
4225: THEN
4226: RAISE okl_api.g_exception_unexpected_error;
4227: ELSIF (l_return_status = g_ret_sts_error)
4228: THEN
4229: RAISE okl_api.g_exception_error;
4230: END IF;
4231:
4232: -- rmunjulu 4622198 SPECIAL_ACCNT set the special accounting parameters
4233: lip_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
4267: IF l_return_status <> g_ret_sts_success
4268: THEN
4269: -- No accounting templates found matching the transaction type
4270: -- TRX_TYPE and product PRODUCT.
4271: okl_api.set_message (p_app_name => g_app_name,
4272: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
4273: p_token1 => 'TRX_TYPE',
4274: p_token1_value => l_trans_meaning,
4275: p_token2 => 'PRODUCT',
4278: END IF;
4279:
4280: IF (l_return_status = g_ret_sts_unexp_error)
4281: THEN
4282: RAISE okl_api.g_exception_unexpected_error;
4283: ELSIF (l_return_status = g_ret_sts_error)
4284: THEN
4285: RAISE okl_api.g_exception_error;
4286: END IF;
4281: THEN
4282: RAISE okl_api.g_exception_unexpected_error;
4283: ELSIF (l_return_status = g_ret_sts_error)
4284: THEN
4285: RAISE okl_api.g_exception_error;
4286: END IF;
4287:
4288: -- If no templates present
4289: IF lix_template_tbl.COUNT = 0
4289: IF lix_template_tbl.COUNT = 0
4290: THEN
4291: -- No accounting templates found matching the transaction type
4292: -- TRX_TYPE and product PRODUCT.
4293: okl_api.set_message (p_app_name => g_app_name,
4294: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
4295: p_token1 => 'TRX_TYPE',
4296: p_token1_value => l_trans_meaning,
4297: p_token2 => 'PRODUCT',
4296: p_token1_value => l_trans_meaning,
4297: p_token2 => 'PRODUCT',
4298: p_token2_value => l_product_type
4299: );
4300: RAISE okl_api.g_exception_error;
4301: END IF;
4302:
4303: -- ******************
4304: -- CURRENCY CONVERSION OPERATIONS
4375: );
4376: END IF;
4377:
4378: -- If error from OKL_ACCOUNTING_UTIL
4379: IF l_return_status <> okl_api.g_ret_sts_success
4380: THEN
4381: -- Error occurred when creating accounting entries for
4382: -- transaction TRX_TYPE.
4383: okl_api.set_message (p_app_name => g_app_name,
4379: IF l_return_status <> okl_api.g_ret_sts_success
4380: THEN
4381: -- Error occurred when creating accounting entries for
4382: -- transaction TRX_TYPE.
4383: okl_api.set_message (p_app_name => g_app_name,
4384: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4385: p_token1 => 'TRX_TYPE',
4386: p_token1_value => l_trans_meaning
4387: );
4387: );
4388: END IF;
4389:
4390: -- Raise exception to rollback to savepoint for this block
4391: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4392: THEN
4393: RAISE okl_api.g_exception_unexpected_error;
4394: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4395: THEN
4389:
4390: -- Raise exception to rollback to savepoint for this block
4391: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4392: THEN
4393: RAISE okl_api.g_exception_unexpected_error;
4394: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4395: THEN
4396: RAISE okl_api.g_exception_error;
4397: END IF;
4390: -- Raise exception to rollback to savepoint for this block
4391: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4392: THEN
4393: RAISE okl_api.g_exception_unexpected_error;
4394: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4395: THEN
4396: RAISE okl_api.g_exception_error;
4397: END IF;
4398: --akrangan Bug 6147049 code fix start
4392: THEN
4393: RAISE okl_api.g_exception_unexpected_error;
4394: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4395: THEN
4396: RAISE okl_api.g_exception_error;
4397: END IF;
4398: --akrangan Bug 6147049 code fix start
4399: END IF;
4400:
4524: );
4525: END IF;
4526:
4527: -- If error inserting line then set message
4528: IF l_return_status <> okl_api.g_ret_sts_success
4529: THEN
4530: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4531: okl_api.set_message (p_app_name => g_app_name,
4532: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4527: -- If error inserting line then set message
4528: IF l_return_status <> okl_api.g_ret_sts_success
4529: THEN
4530: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4531: okl_api.set_message (p_app_name => g_app_name,
4532: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4533: p_token1 => 'TRX_TYPE',
4534: p_token1_value => l_trans_meaning
4535: );
4535: );
4536: END IF;
4537:
4538: -- Raise exception to rollback to savepoint for this block
4539: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4540: THEN
4541: RAISE okl_api.g_exception_unexpected_error;
4542: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4543: THEN
4537:
4538: -- Raise exception to rollback to savepoint for this block
4539: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4540: THEN
4541: RAISE okl_api.g_exception_unexpected_error;
4542: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4543: THEN
4544: RAISE okl_api.g_exception_error;
4545: END IF;
4538: -- Raise exception to rollback to savepoint for this block
4539: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4540: THEN
4541: RAISE okl_api.g_exception_unexpected_error;
4542: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4543: THEN
4544: RAISE okl_api.g_exception_error;
4545: END IF;
4546:
4540: THEN
4541: RAISE okl_api.g_exception_unexpected_error;
4542: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4543: THEN
4544: RAISE okl_api.g_exception_error;
4545: END IF;
4546:
4547: --setting the input table type to the obtained outout table type
4548: l_tclv_tbl := lx_tclv_tbl;
4589: || l_return_status
4590: );
4591: END IF;
4592:
4593: IF l_return_status <> okl_api.g_ret_sts_success
4594: THEN
4595: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4596: okl_api.set_message (p_app_name => g_app_name,
4597: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4592:
4593: IF l_return_status <> okl_api.g_ret_sts_success
4594: THEN
4595: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4596: okl_api.set_message (p_app_name => g_app_name,
4597: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4598: p_token1 => 'TRX_TYPE',
4599: p_token1_value => l_trans_meaning
4600: );
4600: );
4601: END IF;
4602:
4603: -- Raise exception to rollback to savepoint for this block
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)
4608: THEN
4602:
4603: -- Raise exception to rollback to savepoint for this block
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)
4608: THEN
4609: RAISE okl_api.g_exception_error;
4610: END IF;
4603: -- Raise exception to rollback to savepoint for this block
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)
4608: THEN
4609: RAISE okl_api.g_exception_error;
4610: END IF;
4611:
4605: THEN
4606: RAISE okl_api.g_exception_unexpected_error;
4607: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4608: THEN
4609: RAISE okl_api.g_exception_error;
4610: END IF;
4611:
4612: --Assigning the account generator table
4613: l_acc_gen_tbl (i).acc_gen_key_tbl := lp_acc_gen_primary_key_tbl;
4685: END IF;
4686:
4687: IF l_amount_out_tbl.COUNT = 0
4688: THEN
4689: l_return_status := okl_api.g_ret_sts_error;
4690: END IF;
4691:
4692: IF l_return_status <> okl_api.g_ret_sts_success
4693: THEN
4688: THEN
4689: l_return_status := okl_api.g_ret_sts_error;
4690: END IF;
4691:
4692: IF l_return_status <> okl_api.g_ret_sts_success
4693: THEN
4694: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4695: okl_api.set_message (p_app_name => g_app_name,
4696: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4691:
4692: IF l_return_status <> okl_api.g_ret_sts_success
4693: THEN
4694: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4695: okl_api.set_message (p_app_name => g_app_name,
4696: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4697: p_token1 => 'TRX_TYPE',
4698: p_token1_value => l_trans_meaning
4699: );
4699: );
4700: END IF;
4701:
4702: -- Raise exception to rollback to savepoint for this block
4703: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4704: THEN
4705: RAISE okl_api.g_exception_unexpected_error;
4706: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4707: THEN
4701:
4702: -- Raise exception to rollback to savepoint for this block
4703: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4704: THEN
4705: RAISE okl_api.g_exception_unexpected_error;
4706: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4707: THEN
4708: RAISE okl_api.g_exception_error;
4709: END IF;
4702: -- Raise exception to rollback to savepoint for this block
4703: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4704: THEN
4705: RAISE okl_api.g_exception_unexpected_error;
4706: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4707: THEN
4708: RAISE okl_api.g_exception_error;
4709: END IF;
4710:
4704: THEN
4705: RAISE okl_api.g_exception_unexpected_error;
4706: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4707: THEN
4708: RAISE okl_api.g_exception_error;
4709: END IF;
4710:
4711: -- ******************************************************
4712: -- Update Trx Contracts with Header and Line Amounts
4777: IF (lx_amount_tbl.COUNT <> 1 OR lx_template_tbl.COUNT <> 1
4778: )
4779: THEN
4780: --raise error
4781: l_return_status := okl_api.g_ret_sts_error;
4782: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4783: okl_api.set_message (p_app_name => g_app_name,
4784: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4785: p_token1 => 'TRX_TYPE',
4779: THEN
4780: --raise error
4781: l_return_status := okl_api.g_ret_sts_error;
4782: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4783: okl_api.set_message (p_app_name => g_app_name,
4784: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4785: p_token1 => 'TRX_TYPE',
4786: p_token1_value => l_trans_meaning
4787: );
4785: p_token1 => 'TRX_TYPE',
4786: p_token1_value => l_trans_meaning
4787: );
4788: -- Raise exception to rollback to savepoint for this block
4789: RAISE okl_api.g_exception_error;
4790: ELSE
4791: l := lx_amount_tbl.FIRST;
4792: --update line amount
4793: l_tclv_tbl (k).amount := NVL (lx_amount_tbl (l), 0);
4835: );
4836: END IF;
4837:
4838: --handle exception
4839: IF l_return_status <> okl_api.g_ret_sts_success
4840: THEN
4841: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4842: okl_api.set_message (p_app_name => g_app_name,
4843: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4838: --handle exception
4839: IF l_return_status <> okl_api.g_ret_sts_success
4840: THEN
4841: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
4842: okl_api.set_message (p_app_name => g_app_name,
4843: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
4844: p_token1 => 'TRX_TYPE',
4845: p_token1_value => l_trans_meaning
4846: );
4846: );
4847: END IF;
4848:
4849: -- Raise exception to rollback to savepoint for this block
4850: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4851: THEN
4852: RAISE okl_api.g_exception_unexpected_error;
4853: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4854: THEN
4848:
4849: -- Raise exception to rollback to savepoint for this block
4850: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4851: THEN
4852: RAISE okl_api.g_exception_unexpected_error;
4853: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4854: THEN
4855: RAISE okl_api.g_exception_error;
4856: END IF;
4849: -- Raise exception to rollback to savepoint for this block
4850: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
4851: THEN
4852: RAISE okl_api.g_exception_unexpected_error;
4853: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4854: THEN
4855: RAISE okl_api.g_exception_error;
4856: END IF;
4857:
4851: THEN
4852: RAISE okl_api.g_exception_unexpected_error;
4853: ELSIF (l_return_status = okl_api.g_ret_sts_error)
4854: THEN
4855: RAISE okl_api.g_exception_error;
4856: END IF;
4857:
4858: -- Set the return record
4859: px_tcnv_rec := lix_tcnv_rec;
4868: ,P_TCLV_TBL => l_tclv_tbl
4869: ,p_ctxt_val_tbl => l_ctxt_tbl
4870: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
4871:
4872: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4873: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4874: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_ERROR;
4876: END IF;
4869: ,p_ctxt_val_tbl => l_ctxt_tbl
4870: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
4871:
4872: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4873: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4874: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_ERROR;
4876: END IF;
4877:
4870: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
4871:
4872: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4873: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4874: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_ERROR;
4876: END IF;
4877:
4878: -- Bug 3061772
4871:
4872: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4873: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4874: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_ERROR;
4876: END IF;
4877:
4878: -- Bug 3061772
4879: -- Call to Process dicount and Subsidy during acceptance of a termination quote
4887: END IF;
4888:
4889: okl_am_lease_loan_trmnt_pvt.process_discount_subsidy
4890: (p_api_version => l_api_version,
4891: p_init_msg_list => okl_api.g_false,
4892: x_return_status => l_return_status,
4893: x_msg_count => l_msg_count,
4894: x_msg_data => l_msg_data,
4895: p_term_rec => p_term_rec,
4906: || l_return_status
4907: );
4908: END IF;
4909:
4910: IF l_return_status <> okl_api.g_ret_sts_success
4911: THEN
4912: okl_api.set_message (p_app_name => g_app_name,
4913: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
4914: END IF;
4908: END IF;
4909:
4910: IF l_return_status <> okl_api.g_ret_sts_success
4911: THEN
4912: okl_api.set_message (p_app_name => g_app_name,
4913: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
4914: END IF;
4915:
4916: IF (l_return_status = g_ret_sts_unexp_error)
4914: END IF;
4915:
4916: IF (l_return_status = g_ret_sts_unexp_error)
4917: THEN
4918: RAISE okl_api.g_exception_unexpected_error;
4919: ELSIF (l_return_status = g_ret_sts_error)
4920: THEN
4921: RAISE okl_api.g_exception_error;
4922: END IF;
4917: THEN
4918: RAISE okl_api.g_exception_unexpected_error;
4919: ELSIF (l_return_status = g_ret_sts_error)
4920: THEN
4921: RAISE okl_api.g_exception_error;
4922: END IF;
4923:
4924: -- SUCCESS MESSAGES
4925:
4931: p_lookup_code => 'TERMINATION',
4932: p_validate_yn => 'Y'
4933: );
4934: -- Accounting entries created for transaction type TRX_TYPE.
4935: okl_api.set_message (p_app_name => g_app_name,
4936: p_msg_name => 'OKL_AM_ACC_ENT_CREATED',
4937: p_token1 => 'TRX_TYPE',
4938: p_token1_value => l_trans_meaning
4939: );
4958: 'End(-)'
4959: );
4960: END IF;
4961: EXCEPTION
4962: WHEN okl_api.g_exception_error
4963: THEN
4964: -- Close any open cursors
4965: IF l_product_type_csr%ISOPEN
4966: THEN
4993: l_module_name,
4994: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
4995: );
4996: END IF;
4997: WHEN okl_api.g_exception_unexpected_error
4998: THEN
4999: -- Close any open cursors
5000: IF l_product_type_csr%ISOPEN
5001: THEN
5057: p_tsu_code => 'ERROR',
5058: px_tcnv_rec => px_tcnv_rec
5059: );
5060: -- Set the oracle error message
5061: okl_api.set_message (p_app_name => g_app_name_1,
5062: p_msg_name => g_unexpected_error,
5063: p_token1 => g_sqlcode_token,
5064: p_token1_value => SQLCODE,
5065: p_token2 => g_sqlerrm_token,
5276: OR (p_trn_already_set = g_no)
5277: THEN
5278: -- RMUNJULU 3018641 Step Message
5279: -- Step : Asset Dispose
5280: okl_api.set_message (p_app_name => g_app_name,
5281: p_msg_name => 'OKL_AM_STEP_ADP');
5282:
5283: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
5284:
5396:
5397: IF x_return_status <> g_ret_sts_success
5398: THEN
5399: -- Error occurred during disposal of asset NAME.
5400: okl_api.set_message
5401: (p_app_name => g_app_name,
5402: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
5403: p_token1 => 'NAME',
5404: p_token1_value => p_klev_tbl (i).p_asset_name
5407:
5408: -- Raise exception to rollback to savepoint if error
5409: IF (x_return_status = g_ret_sts_unexp_error)
5410: THEN
5411: RAISE okl_api.g_exception_unexpected_error;
5412: ELSIF (x_return_status = g_ret_sts_error)
5413: THEN
5414: RAISE okl_api.g_exception_error;
5415: END IF;
5410: THEN
5411: RAISE okl_api.g_exception_unexpected_error;
5412: ELSIF (x_return_status = g_ret_sts_error)
5413: THEN
5414: RAISE okl_api.g_exception_error;
5415: END IF;
5416:
5417: l_proceeds_of_sale := lx_converted_amount;
5418: END IF;
5499: -- Check the return status
5500: IF l_return_status <> g_ret_sts_success
5501: THEN
5502: -- Error occurred during disposal of asset NAME.
5503: okl_api.set_message
5504: (p_app_name => g_app_name,
5505: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
5506: p_token1 => 'NAME',
5507: p_token1_value => p_klev_tbl (i).p_asset_name
5508: );
5509: END IF;
5510:
5511: --08-mar-06 sgorantl -- Bug 3895098
5512: IF l_overall_dispose_status = okl_api.g_ret_sts_success
5513: AND l_return_status IN
5514: (okl_api.g_ret_sts_error,
5515: okl_api.g_ret_sts_unexp_error
5516: )
5510:
5511: --08-mar-06 sgorantl -- Bug 3895098
5512: IF l_overall_dispose_status = okl_api.g_ret_sts_success
5513: AND l_return_status IN
5514: (okl_api.g_ret_sts_error,
5515: okl_api.g_ret_sts_unexp_error
5516: )
5517: THEN
5518: l_overall_dispose_status := l_return_status;
5511: --08-mar-06 sgorantl -- Bug 3895098
5512: IF l_overall_dispose_status = okl_api.g_ret_sts_success
5513: AND l_return_status IN
5514: (okl_api.g_ret_sts_error,
5515: okl_api.g_ret_sts_unexp_error
5516: )
5517: THEN
5518: l_overall_dispose_status := l_return_status;
5519: END IF;
5523: END LOOP;
5524:
5525: --08-mar-06 sgorantl -- Bug 3895098
5526: -- Raise exception to rollback to savepoint if error
5527: IF (l_overall_dispose_status = okl_api.g_ret_sts_unexp_error)
5528: THEN
5529: RAISE okl_api.g_exception_unexpected_error;
5530: ELSIF (l_overall_dispose_status = okl_api.g_ret_sts_error)
5531: THEN
5525: --08-mar-06 sgorantl -- Bug 3895098
5526: -- Raise exception to rollback to savepoint if error
5527: IF (l_overall_dispose_status = okl_api.g_ret_sts_unexp_error)
5528: THEN
5529: RAISE okl_api.g_exception_unexpected_error;
5530: ELSIF (l_overall_dispose_status = okl_api.g_ret_sts_error)
5531: THEN
5532: RAISE okl_api.g_exception_error;
5533: END IF;
5526: -- Raise exception to rollback to savepoint if error
5527: IF (l_overall_dispose_status = okl_api.g_ret_sts_unexp_error)
5528: THEN
5529: RAISE okl_api.g_exception_unexpected_error;
5530: ELSIF (l_overall_dispose_status = okl_api.g_ret_sts_error)
5531: THEN
5532: RAISE okl_api.g_exception_error;
5533: END IF;
5534:
5528: THEN
5529: RAISE okl_api.g_exception_unexpected_error;
5530: ELSIF (l_overall_dispose_status = okl_api.g_ret_sts_error)
5531: THEN
5532: RAISE okl_api.g_exception_error;
5533: END IF;
5534:
5535: --08-mar-06 sgorantl -- Bug 3895098
5536:
5535: --08-mar-06 sgorantl -- Bug 3895098
5536:
5537: -- Asset dispostion for assets of contract CONTRACT_NUMBER
5538: -- done successfully.
5539: okl_api.set_message
5540: (p_app_name => g_app_name,
5541: p_msg_name => 'OKL_AM_ASS_DISPOSE_SUCCESS',
5542: p_token1 => 'CONTRACT_NUMBER',
5543: p_token1_value => p_term_rec.p_contract_number
5580: 'End(-)'
5581: );
5582: END IF;
5583: EXCEPTION
5584: WHEN okl_api.g_exception_error
5585: THEN
5586: -- Close any open cursors
5587: IF kle_pur_amt_csr%ISOPEN
5588: THEN
5624: l_module_name,
5625: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
5626: );
5627: END IF;
5628: WHEN okl_api.g_exception_unexpected_error
5629: THEN
5630: -- Close any open cursors
5631: IF kle_pur_amt_csr%ISOPEN
5632: THEN
5706: p_ret_val => NULL,
5707: px_tcnv_rec => px_tcnv_rec
5708: );
5709: -- Set the oracle error message
5710: okl_api.set_message (p_app_name => g_app_name_1,
5711: p_msg_name => g_unexpected_error,
5712: p_token1 => g_sqlcode_token,
5713: p_token1_value => SQLCODE,
5714: p_token2 => g_sqlerrm_token,
5912: || l_evergreen_earlier
5913: );
5914: END IF;
5915:
5916: IF l_return_status <> okl_api.g_ret_sts_success
5917: THEN
5918: -- Error occurred during the creation of an amortization transaction
5919: -- for assets of contract CONTRACT_NUMBER.
5920: okl_api.set_message (p_app_name => g_app_name,
5916: IF l_return_status <> okl_api.g_ret_sts_success
5917: THEN
5918: -- Error occurred during the creation of an amortization transaction
5919: -- for assets of contract CONTRACT_NUMBER.
5920: okl_api.set_message (p_app_name => g_app_name,
5921: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
5922: p_token1 => 'CONTRACT_NUMBER',
5923: p_token1_value => p_term_rec.p_contract_number
5924: );
6002: p_token2_value => p_klev_tbl (i).p_asset_name,
6003: p_token3 => 'BOOK',
6004: p_token3_value => l_fabooks_rec.book_type_code
6005: );
6006: RAISE okl_api.g_exception_error;
6007: END IF;
6008: END IF;
6009: END LOOP;
6010:
6031: 'End(-)'
6032: );
6033: END IF;
6034: EXCEPTION
6035: WHEN okl_api.g_exception_error
6036: THEN
6037: IF l_fabooks_csr%ISOPEN
6038: THEN
6039: CLOSE l_fabooks_csr;
6058: l_module_name,
6059: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6060: );
6061: END IF;
6062: WHEN okl_api.g_exception_unexpected_error
6063: THEN
6064: IF l_fabooks_csr%ISOPEN
6065: THEN
6066: CLOSE l_fabooks_csr;
6106: p_tsu_code => 'ERROR',
6107: px_tcnv_rec => px_tcnv_rec
6108: );
6109: -- Set the oracle error message
6110: okl_api.set_message (p_app_name => g_app_name_1,
6111: p_msg_name => g_unexpected_error,
6112: p_token1 => g_sqlcode_token,
6113: p_token1_value => SQLCODE,
6114: p_token2 => g_sqlerrm_token,
6324: || l_evergreen_earlier
6325: );
6326: END IF;
6327:
6328: IF l_return_status <> okl_api.g_ret_sts_success
6329: THEN
6330: -- Error occurred during the creation of an amortization transaction
6331: -- for assets of contract CONTRACT_NUMBER.
6332: okl_api.set_message
6328: IF l_return_status <> okl_api.g_ret_sts_success
6329: THEN
6330: -- Error occurred during the creation of an amortization transaction
6331: -- for assets of contract CONTRACT_NUMBER.
6332: okl_api.set_message
6333: (p_app_name => g_app_name,
6334: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
6335: p_token1 => 'CONTRACT_NUMBER',
6336: p_token1_value => p_term_rec.p_contract_number
6342: IF NVL (l_evergreen_earlier, 'N') <> 'Y'
6343: THEN
6344: -- RMUNJULU 3018641 Step Message
6345: -- Step : Amortization
6346: okl_api.set_message (p_app_name => g_app_name,
6347: p_msg_name => 'OKL_AM_STEP_AMT');
6348:
6349: -- get k end date
6350: OPEN get_k_end_date_csr (p_term_rec.p_contract_id);
6421:
6422: IF l_return_status <> g_ret_sts_success
6423: THEN
6424: -- Error occurred during the amortization process for asset NAME.
6425: okl_api.set_message
6426: (p_app_name => g_app_name,
6427: p_msg_name => 'OKL_AM_ERR_LNS_AMORTIZE',
6428: p_token1 => 'NAME',
6429: p_token1_value => p_klev_tbl (i).p_asset_name
6428: p_token1 => 'NAME',
6429: p_token1_value => p_klev_tbl (i).p_asset_name
6430: );
6431: -- Raise exception to rollback to savepoint if error
6432: RAISE okl_api.g_exception_error;
6433: END IF;
6434:
6435: EXIT WHEN (i = p_klev_tbl.LAST);
6436: i := p_klev_tbl.NEXT (i);
6465: x_return_status => l_return_status);
6466:
6467: IF l_return_status <> g_ret_sts_success THEN
6468: -- Error occurred during the amortization process for asset NAME.
6469: okl_api.set_message
6470: (p_app_name => g_app_name,
6471: p_msg_name => 'OKL_AM_ERR_LNS_AMORTIZE',
6472: p_token1 => 'NAME',
6473: p_token1_value => p_klev_tbl (i).p_asset_name
6472: p_token1 => 'NAME',
6473: p_token1_value => p_klev_tbl (i).p_asset_name
6474: );
6475: -- Raise exception to rollback to savepoint if error
6476: RAISE okl_api.g_exception_error;
6477: END IF;
6478:
6479: -- set the transaction record for asset return
6480: set_transaction_rec (p_return_status => l_return_status,
6498:
6499: --SET THE AMORTIZATION FLAG
6500: g_amort_complete_flag := 'Y';
6501: EXCEPTION
6502: WHEN okl_api.g_exception_error
6503: THEN
6504: IF get_k_end_date_csr%ISOPEN
6505: THEN
6506: CLOSE get_k_end_date_csr;
6534: l_module_name,
6535: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6536: );
6537: END IF;
6538: WHEN okl_api.g_exception_unexpected_error
6539: THEN
6540: IF get_k_end_date_csr%ISOPEN
6541: THEN
6542: CLOSE get_k_end_date_csr;
6599: p_ret_val => NULL,
6600: px_tcnv_rec => px_tcnv_rec
6601: );
6602: -- Set the oracle error message
6603: okl_api.set_message (p_app_name => g_app_name_1,
6604: p_msg_name => g_unexpected_error,
6605: p_token1 => g_sqlcode_token,
6606: p_token1_value => SQLCODE,
6607: p_token2 => g_sqlerrm_token,
6757: OR (p_trn_already_set = g_no)
6758: THEN
6759: -- RMUNJULU 3018641 Step Message
6760: -- Step : Asset Return
6761: okl_api.set_message (p_app_name => g_app_name,
6762: p_msg_name => 'OKL_AM_STEP_ART');
6763:
6764: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
6765:
6813: lp_artv_rec.kle_id := p_klev_tbl (i).p_kle_id;
6814:
6815: -- set the art1_code for asset return 'OKL_ASSET_RETURN_TYPE'
6816: -- if early termination assume from quote else contract exp
6817: -- IF (l_k_end_date <> OKL_API.G_MISS_DATE)
6818: -- AND (TRUNC(l_k_end_date) < TRUNC(p_sys_date)) THEN
6819: -- rmunjulu EDAT modified condition to say if quote exists then EXE_TERMINATION_QUOTE else EXPIRATION
6820: IF NVL (okl_am_lease_loan_trmnt_pvt.g_quote_exists, 'N') =
6821: 'Y'
6873: IF l_return_status <> g_ret_sts_success
6874: THEN
6875: -- Error occurred during the creation of an asset
6876: -- return record for asset NAME.
6877: okl_api.set_message
6878: (p_app_name => g_app_name,
6879: p_msg_name => 'OKL_AM_ERR_ASS_RET',
6880: p_token1 => 'NAME',
6881: p_token1_value => p_klev_tbl (i).p_asset_name
6880: p_token1 => 'NAME',
6881: p_token1_value => p_klev_tbl (i).p_asset_name
6882: );
6883: -- Raise exception to rollback to savepoint if error
6884: RAISE okl_api.g_exception_error;
6885: END IF;
6886: ELSE
6887: -- Asset return already exists -- This is not an error
6888:
6887: -- Asset return already exists -- This is not an error
6888:
6889: -- Asset Return already exists for this asset NAME with the
6890: -- status STATUS so cannot create a new asset return now.
6891: okl_api.set_message
6892: (p_app_name => g_app_name,
6893: p_msg_name => 'OKL_AM_ASS_RET_ARS_ERR',
6894: p_token1 => 'NAME',
6895: p_token1_value => p_klev_tbl (i).p_asset_name,
6908: i := l_temp_klev_tbl.FIRST;
6909:
6910: LOOP
6911: -- Asset return created for asset NAME.
6912: okl_api.set_message
6913: (p_app_name => g_app_name,
6914: p_msg_name => 'OKL_AM_ASS_RET_CREATED',
6915: p_token1 => 'NAME',
6916: p_token1_value => l_temp_klev_tbl (i).p_asset_name
6940: 'End(-)'
6941: );
6942: END IF;
6943: EXCEPTION
6944: WHEN okl_api.g_exception_error
6945: THEN
6946: IF get_asset_return_csr%ISOPEN
6947: THEN
6948: CLOSE get_asset_return_csr;
6975: l_module_name,
6976: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6977: );
6978: END IF;
6979: WHEN okl_api.g_exception_unexpected_error
6980: THEN
6981: IF get_asset_return_csr%ISOPEN
6982: THEN
6983: CLOSE get_asset_return_csr;
7039: p_ret_val => NULL,
7040: px_tcnv_rec => px_tcnv_rec
7041: );
7042: -- Set the oracle error message
7043: okl_api.set_message (p_app_name => g_app_name_1,
7044: p_msg_name => g_unexpected_error,
7045: p_token1 => g_sqlcode_token,
7046: p_token1_value => SQLCODE,
7047: p_token2 => g_sqlerrm_token,
7155: AND dst.cr_dr_flag = 'C'
7156: AND dst.percentage = 100;
7157:
7158: k_bal_lns_rec k_bal_lns_csr%ROWTYPE;
7159: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
7160: lp_adjv_rec okl_trx_ar_adjsts_pub.adjv_rec_type;
7161: lx_adjv_rec okl_trx_ar_adjsts_pub.adjv_rec_type;
7162: lp_ajlv_tbl okl_txl_adjsts_lns_pub.ajlv_tbl_type;
7163: lx_ajlv_tbl okl_txl_adjsts_lns_pub.ajlv_tbl_type;
7160: lp_adjv_rec okl_trx_ar_adjsts_pub.adjv_rec_type;
7161: lx_adjv_rec okl_trx_ar_adjsts_pub.adjv_rec_type;
7162: lp_ajlv_tbl okl_txl_adjsts_lns_pub.ajlv_tbl_type;
7163: lx_ajlv_tbl okl_txl_adjsts_lns_pub.ajlv_tbl_type;
7164: l_early_termination_yn VARCHAR2 (1) := okl_api.g_false;
7165: l_total_amount_due NUMBER := -1;
7166: l_code_combination_id NUMBER := -1;
7167: i NUMBER := 1;
7168: l_tolerance_amt NUMBER := -1;
7259: END IF;
7260:
7261: -- RMUNJULU 3018641 Step Message
7262: -- Step : Close Balances
7263: okl_api.set_message (p_app_name => g_app_name,
7264: p_msg_name => 'OKL_AM_STEP_CLB');
7265:
7266: -- Check if total amount due is +ve else set message and exit
7267: IF l_total_amount_due <= 0
7266: -- Check if total amount due is +ve else set message and exit
7267: IF l_total_amount_due <= 0
7268: THEN
7269: -- No outstanding balances found.
7270: okl_api.set_message (p_app_name => g_app_name,
7271: p_msg_name => 'OKL_AM_NO_BAL');
7272: ELSE
7273: -- can try closing balances
7274:
7281: IF l_tolerance_amt IS NULL
7282: THEN
7283: l_tolerance_amt := 0;
7284: -- No tolerance amount found for closing of balances.
7285: okl_api.set_message (p_app_name => g_app_name,
7286: p_msg_name => 'OKL_AM_NO_TOL_AMT');
7287: END IF;
7288:
7289: -- IF total balance amount within the tolerance limit and amount due>0 then
7309:
7310: -- call the adjusts api
7311: okl_trx_ar_adjsts_pub.insert_trx_ar_adjsts
7312: (p_api_version => p_api_version,
7313: p_init_msg_list => okl_api.g_false,
7314: x_return_status => l_return_status,
7315: x_msg_count => x_msg_count,
7316: x_msg_data => x_msg_data,
7317: p_adjv_rec => lp_adjv_rec,
7331: IF l_return_status <> g_ret_sts_success
7332: THEN
7333: -- Error occurred when creating adjustment
7334: -- records to write off balances.
7335: okl_api.set_message (p_app_name => g_app_name,
7336: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
7337: END IF;
7338:
7339: -- Raise exception to rollback this whole block
7338:
7339: -- Raise exception to rollback this whole block
7340: IF (l_return_status = g_ret_sts_unexp_error)
7341: THEN
7342: RAISE okl_api.g_exception_unexpected_error;
7343: ELSIF (l_return_status = g_ret_sts_error)
7344: THEN
7345: RAISE okl_api.g_exception_error;
7346: END IF;
7341: THEN
7342: RAISE okl_api.g_exception_unexpected_error;
7343: ELSIF (l_return_status = g_ret_sts_error)
7344: THEN
7345: RAISE okl_api.g_exception_error;
7346: END IF;
7347:
7348: IF (is_debug_statement_on)
7349: THEN
7378: IF l_return_status <> g_ret_sts_success
7379: THEN
7380: -- Message: Unable to find a transaction type for
7381: -- the transaction TRY_NAME
7382: okl_api.set_message (p_app_name => g_app_name,
7383: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
7384: p_token1 => 'TRY_NAME',
7385: p_token1_value => l_trans_meaning
7386: );
7388:
7389: -- Raise exception to rollback this whole block
7390: IF (l_return_status = g_ret_sts_unexp_error)
7391: THEN
7392: RAISE okl_api.g_exception_unexpected_error;
7393: ELSIF (l_return_status = g_ret_sts_error)
7394: THEN
7395: RAISE okl_api.g_exception_error;
7396: END IF;
7391: THEN
7392: RAISE okl_api.g_exception_unexpected_error;
7393: ELSIF (l_return_status = g_ret_sts_error)
7394: THEN
7395: RAISE okl_api.g_exception_error;
7396: END IF;
7397:
7398: -- Get the meaning of lookup BALANCE_WRITE_OFF
7399: l_trans_meaning :=
7415: IF l_pdt_id IS NULL OR l_pdt_id = 0
7416: THEN
7417: -- Error: Unable to create accounting entries because of a missing
7418: -- Product Type for the contract CONTRACT_NUMBER.
7419: okl_api.set_message
7420: (p_app_name => g_app_name,
7421: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
7422: p_token1 => 'CONTRACT_NUMBER',
7423: p_token1_value => p_term_rec.p_contract_number
7426:
7427: -- Raise exception to rollback to savepoint for this block
7428: IF (l_return_status = g_ret_sts_unexp_error)
7429: THEN
7430: RAISE okl_api.g_exception_unexpected_error;
7431: ELSIF (l_return_status = g_ret_sts_error)
7432: THEN
7433: RAISE okl_api.g_exception_error;
7434: END IF;
7429: THEN
7430: RAISE okl_api.g_exception_unexpected_error;
7431: ELSIF (l_return_status = g_ret_sts_error)
7432: THEN
7433: RAISE okl_api.g_exception_error;
7434: END IF;
7435:
7436: -- Get, set and pass the currency conversion parameters
7437: -- Get the functional currency from AM_Util
7496: );
7497: END IF;
7498:
7499: -- If error from OKL_ACCOUNTING_UTIL
7500: IF l_return_status <> okl_api.g_ret_sts_success
7501: THEN
7502: -- Error occurred when creating accounting entries for
7503: -- transaction TRX_TYPE.
7504: okl_api.set_message (p_app_name => g_app_name,
7500: IF l_return_status <> okl_api.g_ret_sts_success
7501: THEN
7502: -- Error occurred when creating accounting entries for
7503: -- transaction TRX_TYPE.
7504: okl_api.set_message (p_app_name => g_app_name,
7505: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7506: p_token1 => 'TRX_TYPE',
7507: p_token1_value => l_trans_meaning
7508: );
7510:
7511: -- Raise exception to rollback to savepoint for this block
7512: IF (l_return_status = g_ret_sts_unexp_error)
7513: THEN
7514: RAISE okl_api.g_exception_unexpected_error;
7515: ELSIF (l_return_status = g_ret_sts_error)
7516: THEN
7517: RAISE okl_api.g_exception_error;
7518: END IF;
7513: THEN
7514: RAISE okl_api.g_exception_unexpected_error;
7515: ELSIF (l_return_status = g_ret_sts_error)
7516: THEN
7517: RAISE okl_api.g_exception_error;
7518: END IF;
7519:
7520: i := 1;
7521:
7582: );
7583: END IF;
7584:
7585: -- Raise exception to rollback to savepoint for this block
7586: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7587: THEN
7588: RAISE okl_api.g_exception_unexpected_error;
7589: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7590: THEN
7584:
7585: -- Raise exception to rollback to savepoint for this block
7586: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7587: THEN
7588: RAISE okl_api.g_exception_unexpected_error;
7589: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7590: THEN
7591: RAISE okl_api.g_exception_error;
7592: END IF;
7585: -- Raise exception to rollback to savepoint for this block
7586: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7587: THEN
7588: RAISE okl_api.g_exception_unexpected_error;
7589: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7590: THEN
7591: RAISE okl_api.g_exception_error;
7592: END IF;
7593:
7587: THEN
7588: RAISE okl_api.g_exception_unexpected_error;
7589: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7590: THEN
7591: RAISE okl_api.g_exception_error;
7592: END IF;
7593:
7594: IF (is_debug_statement_on)
7595: THEN
7603: -- call accounting engine
7604: -- This will calculate the adjstmnts and generate accounting entries
7605: okl_account_dist_pub.create_accounting_dist
7606: (p_api_version => p_api_version,
7607: p_init_msg_list => okl_api.g_false,
7608: x_return_status => l_return_status,
7609: x_msg_count => x_msg_count,
7610: x_msg_data => x_msg_data,
7611: p_tmpl_identify_rec => lp_tmpl_identify_rec,
7629: IF l_return_status <> g_ret_sts_success
7630: THEN
7631: -- Error occurred when creating accounting entries
7632: -- for transaction type TRX_TYPE and stream type STREAM_TYPE.
7633: okl_api.set_message
7634: (p_app_name => g_app_name,
7635: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
7636: p_token1 => 'TRX_TYPE',
7637: p_token1_value => l_trans_meaning,
7642:
7643: -- Raise exception to rollback this whole block
7644: IF (l_return_status = g_ret_sts_unexp_error)
7645: THEN
7646: RAISE okl_api.g_exception_unexpected_error;
7647: ELSIF (l_return_status = g_ret_sts_error)
7648: THEN
7649: RAISE okl_api.g_exception_error;
7650: END IF;
7645: THEN
7646: RAISE okl_api.g_exception_unexpected_error;
7647: ELSIF (l_return_status = g_ret_sts_error)
7648: THEN
7649: RAISE okl_api.g_exception_error;
7650: END IF;
7651:
7652: -- Get the first code_combination_id for the transaction
7653: -- from OKL_TRNS_ACC_DSTRS_V
7664: THEN
7665: -- Error: Unable to process small balance
7666: -- adjustments because of a missing Code Combination ID for the
7667: -- contract CONTRACT_NUMBER.
7668: okl_api.set_message
7669: (p_app_name => g_app_name,
7670: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
7671: p_token1 => 'CONTRACT_NUMBER',
7672: p_token1_value => p_term_rec.p_contract_number
7670: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
7671: p_token1 => 'CONTRACT_NUMBER',
7672: p_token1_value => p_term_rec.p_contract_number
7673: );
7674: RAISE okl_api.g_exception_error;
7675: END IF;
7676:
7677: -- Loop thru the code combination ids to set the lns tbl
7678: FOR code_combination_id_rec IN
7684: lp_ajlv_tbl (i).til_id := k_bal_lns_rec.til_id;
7685:
7686: IF k_bal_lns_rec.tld_id <> -999
7687: AND k_bal_lns_rec.tld_id IS NOT NULL
7688: AND k_bal_lns_rec.tld_id <> okl_api.g_miss_num
7689: THEN
7690: lp_ajlv_tbl (i).tld_id := k_bal_lns_rec.tld_id;
7691: END IF;
7692:
7709:
7710: --call the txl_lns_adjsts
7711: okl_txl_adjsts_lns_pub.insert_txl_adjsts_lns
7712: (p_api_version => p_api_version,
7713: p_init_msg_list => okl_api.g_false,
7714: x_return_status => l_return_status,
7715: x_msg_count => x_msg_count,
7716: x_msg_data => x_msg_data,
7717: p_ajlv_tbl => lp_ajlv_tbl,
7731: IF l_return_status <> g_ret_sts_success
7732: THEN
7733: -- Error occurred when creating adjustment records to write
7734: -- off balances.
7735: okl_api.set_message (p_app_name => g_app_name,
7736: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
7737: END IF;
7738:
7739: -- Raise exception to rollback this whole block
7738:
7739: -- Raise exception to rollback this whole block
7740: IF (l_return_status = g_ret_sts_unexp_error)
7741: THEN
7742: RAISE okl_api.g_exception_unexpected_error;
7743: ELSIF (l_return_status = g_ret_sts_error)
7744: THEN
7745: RAISE okl_api.g_exception_error;
7746: END IF;
7741: THEN
7742: RAISE okl_api.g_exception_unexpected_error;
7743: ELSIF (l_return_status = g_ret_sts_error)
7744: THEN
7745: RAISE okl_api.g_exception_error;
7746: END IF;
7747:
7748: -- Get the currency code for contract
7749: l_currency_code :=
7783: ELSE
7784: --(cannot close all balances since tolerance amt is less)
7785:
7786: -- Unable to close all outstanding balances due to tolerance amount.
7787: okl_api.set_message (p_app_name => g_app_name,
7788: p_msg_name => 'OKL_AM_ERR_CLOSE_BAL');
7789: -- Get the currency code for contract
7790: l_currency_code :=
7791: okl_am_util_pvt.get_chr_currency (p_term_rec.p_contract_id);
7803: -- Append tolerance amt with currency code
7804: l_formatted_tol_amt :=
7805: l_formatted_tol_amt || ' ' || l_currency_code;
7806: -- Outstanding balance BALANCE_AMT exceeds Tolerance Amount TOLERANCE_AMT.
7807: okl_api.set_message (p_app_name => g_app_name,
7808: p_msg_name => 'OKL_AM_BAL_GTR_TOL',
7809: p_token1 => 'BALANCE_AMT',
7810: p_token1_value => l_formatted_bal_amt,
7811: p_token2 => 'TOLERANCE_AMT',
7823: 'End(-)'
7824: );
7825: END IF;
7826: EXCEPTION
7827: WHEN okl_api.g_exception_error
7828: THEN
7829: IF k_balances_csr%ISOPEN
7830: THEN
7831: CLOSE k_balances_csr;
7841: CLOSE code_combination_id_csr;
7842: END IF;
7843:
7844: ROLLBACK TO close_balances;
7845: x_return_status := okl_api.g_ret_sts_error;
7846:
7847: IF (is_debug_exception_on)
7848: THEN
7849: okl_debug_pub.log_debug (g_level_exception,
7850: l_module_name,
7851: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
7852: );
7853: END IF;
7854: WHEN okl_api.g_exception_unexpected_error
7855: THEN
7856: IF k_balances_csr%ISOPEN
7857: THEN
7858: CLOSE k_balances_csr;
7868: CLOSE code_combination_id_csr;
7869: END IF;
7870:
7871: ROLLBACK TO close_balances;
7872: x_return_status := okl_api.g_ret_sts_unexp_error;
7873:
7874: IF (is_debug_exception_on)
7875: THEN
7876: okl_debug_pub.log_debug (g_level_exception,
7896: CLOSE code_combination_id_csr;
7897: END IF;
7898:
7899: ROLLBACK TO close_balances;
7900: x_return_status := okl_api.g_ret_sts_unexp_error;
7901: -- Set the oracle error message
7902: okl_api.set_message (p_app_name => g_app_name_1,
7903: p_msg_name => g_unexpected_error,
7904: p_token1 => g_sqlcode_token,
7898:
7899: ROLLBACK TO close_balances;
7900: x_return_status := okl_api.g_ret_sts_unexp_error;
7901: -- Set the oracle error message
7902: okl_api.set_message (p_app_name => g_app_name_1,
7903: p_msg_name => g_unexpected_error,
7904: p_token1 => g_sqlcode_token,
7905: p_token1_value => SQLCODE,
7906: p_token2 => g_sqlerrm_token,
8108: IF l_id IS NULL
8109: THEN
8110: -- SECHAWLA 10-FEB-03 2793689: Modified the following message
8111: -- There are no booked lines for the contract CONTRACT_NUMBER
8112: okl_api.set_message (p_app_name => okl_api.g_app_name,
8113: p_msg_name => 'OKL_AM_NO_BOOKED_LINES',
8114: p_token1 => 'CONTRACT_NUMBER',
8115: p_token1_value => p_term_rec.p_contract_number
8116: );
8113: p_msg_name => 'OKL_AM_NO_BOOKED_LINES',
8114: p_token1 => 'CONTRACT_NUMBER',
8115: p_token1_value => p_term_rec.p_contract_number
8116: );
8117: RAISE okl_api.g_exception_error;
8118: END IF;
8119:
8120: -- RMUNJULU 14-FEB-03 2804703 get sts_code for contract
8121: OPEN l_k_details_csr (p_term_rec.p_contract_id);
8204:
8205: IF l_return_status <> g_ret_sts_success
8206: THEN
8207: -- Mass Rebook failed for the contract CONTRACT_NUMBER
8208: okl_api.set_message
8209: (p_app_name => g_app_name,
8210: p_msg_name => 'OKL_AM_MASS_REBOOK_FAILED',
8211: p_token1 => 'CONTRACT_NUMBER',
8212: p_token1_value => p_term_rec.p_contract_number
8210: p_msg_name => 'OKL_AM_MASS_REBOOK_FAILED',
8211: p_token1 => 'CONTRACT_NUMBER',
8212: p_token1_value => p_term_rec.p_contract_number
8213: );
8214: RAISE okl_api.g_exception_error;
8215: -- RMUNJULU CONTRACT BLOCKING (2)
8216: ELSE
8217: -- Mass Rebook successful
8218: FOR get_trn_details_rec IN
8264: 'End(-)'
8265: );
8266: END IF;
8267: EXCEPTION
8268: WHEN okl_api.g_exception_error
8269: THEN
8270: IF l_okclines_csr%ISOPEN
8271: THEN
8272: CLOSE l_okclines_csr;
8291: l_module_name,
8292: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
8293: );
8294: END IF;
8295: WHEN okl_api.g_exception_unexpected_error
8296: THEN
8297: IF l_okclines_csr%ISOPEN
8298: THEN
8299: CLOSE l_okclines_csr;
8339: x_return_status := g_ret_sts_unexp_error;
8340: -- RMUNJULU CONTRACT BLOCKING
8341: x_mrbk_success := g_ret_sts_error;
8342: -- Set the oracle error message
8343: okl_api.set_message (p_app_name => g_app_name_1,
8344: p_msg_name => g_unexpected_error,
8345: p_token1 => g_sqlcode_token,
8346: p_token1_value => SQLCODE,
8347: p_token2 => g_sqlerrm_token,
8502:
8503: IF l_return_status <> g_ret_sts_success
8504: THEN
8505: -- Error in cancelling Insurance.
8506: okl_api.set_message (p_app_name => g_app_name,
8507: p_msg_name => 'OKL_AM_ERR_CAN_INS');
8508: END IF;
8509:
8510: -- Raise exception to rollback to the savepoint
8509:
8510: -- Raise exception to rollback to the savepoint
8511: IF (l_return_status = g_ret_sts_unexp_error)
8512: THEN
8513: RAISE okl_api.g_exception_unexpected_error;
8514: ELSIF (l_return_status = g_ret_sts_error)
8515: THEN
8516: RAISE okl_api.g_exception_error;
8517: END IF;
8512: THEN
8513: RAISE okl_api.g_exception_unexpected_error;
8514: ELSIF (l_return_status = g_ret_sts_error)
8515: THEN
8516: RAISE okl_api.g_exception_error;
8517: END IF;
8518: END IF;
8519:
8520: -- Set the return status
8527: 'End(-)'
8528: );
8529: END IF;
8530: EXCEPTION
8531: WHEN okl_api.g_exception_error
8532: THEN
8533: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
8534: IF k_end_date_csr%ISOPEN
8535: THEN
8547: l_module_name,
8548: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
8549: );
8550: END IF;
8551: WHEN okl_api.g_exception_unexpected_error
8552: THEN
8553: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
8554: IF k_end_date_csr%ISOPEN
8555: THEN
8581: -- return status
8582: ROLLBACK TO cancel_activate_insurance;
8583: x_return_status := g_ret_sts_unexp_error;
8584: -- Set the oracle error message
8585: okl_api.set_message (p_app_name => g_app_name_1,
8586: p_msg_name => g_unexpected_error,
8587: p_token1 => g_sqlcode_token,
8588: p_token1_value => SQLCODE,
8589: p_token2 => g_sqlerrm_token,
8741: IF l_return_status <> g_ret_sts_success
8742: THEN
8743: -- Unable to find a transaction type for
8744: -- the transaction TRY_NAME
8745: okl_api.set_message (p_app_name => g_app_name,
8746: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
8747: p_token1 => 'TRY_NAME',
8748: p_token1_value => l_trans_meaning
8749: );
8748: p_token1_value => l_trans_meaning
8749: );
8750: -- Unable to do reversal of non-income during termination
8751: -- of contract CONTRACT_NUMBER.
8752: okl_api.set_message (p_app_name => g_app_name,
8753: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
8754: p_token1 => 'CONTRACT_NUMBER',
8755: p_token1_value => p_term_rec.p_contract_number
8756: );
8758:
8759: -- Raise exception to rollback this whole block
8760: IF (l_return_status = g_ret_sts_unexp_error)
8761: THEN
8762: RAISE okl_api.g_exception_unexpected_error;
8763: ELSIF (l_return_status = g_ret_sts_error)
8764: THEN
8765: RAISE okl_api.g_exception_error;
8766: END IF;
8761: THEN
8762: RAISE okl_api.g_exception_unexpected_error;
8763: ELSIF (l_return_status = g_ret_sts_error)
8764: THEN
8765: RAISE okl_api.g_exception_error;
8766: END IF;
8767:
8768: -- get the product id
8769: OPEN prod_id_csr (p_term_rec.p_contract_id);
8779: IF l_pdt_id IS NULL OR l_pdt_id = 0
8780: THEN
8781: -- Unable to do reversal of non-income during termination
8782: -- of contract CONTRACT_NUMBER.
8783: okl_api.set_message (p_app_name => g_app_name,
8784: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
8785: p_token1 => 'CONTRACT_NUMBER',
8786: p_token1_value => p_term_rec.p_contract_number
8787: );
8784: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
8785: p_token1 => 'CONTRACT_NUMBER',
8786: p_token1_value => p_term_rec.p_contract_number
8787: );
8788: RAISE okl_api.g_exception_error;
8789: END IF;
8790:
8791: -- Bug 3097068 Added to get the valid GL date
8792: l_valid_gl_date :=
8841: IF l_return_status <> g_ret_sts_success
8842: THEN
8843: -- Unable to do reversal of non-income during termination
8844: -- of contract CONTRACT_NUMBER.
8845: okl_api.set_message (p_app_name => g_app_name,
8846: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
8847: p_token1 => 'CONTRACT_NUMBER',
8848: p_token1_value => p_term_rec.p_contract_number
8849: );
8851:
8852: -- Raise exception to rollback this whole block
8853: IF (l_return_status = g_ret_sts_unexp_error)
8854: THEN
8855: RAISE okl_api.g_exception_unexpected_error;
8856: ELSIF (l_return_status = g_ret_sts_error)
8857: THEN
8858: RAISE okl_api.g_exception_error;
8859: END IF;
8854: THEN
8855: RAISE okl_api.g_exception_unexpected_error;
8856: ELSIF (l_return_status = g_ret_sts_error)
8857: THEN
8858: RAISE okl_api.g_exception_error;
8859: END IF;
8860:
8861: -- Bug 7263041 start
8862:
8908: IF l_return_status <> g_ret_sts_success
8909: THEN
8910: -- Unable to do reversal of non-income during termination
8911: -- of contract CONTRACT_NUMBER.
8912: okl_api.set_message (p_app_name => g_app_name,
8913: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
8914: p_token1 => 'CONTRACT_NUMBER',
8915: p_token1_value => p_term_rec.p_contract_number
8916: );
8918:
8919: -- Raise exception to rollback this whole block
8920: IF (l_return_status = g_ret_sts_unexp_error)
8921: THEN
8922: RAISE okl_api.g_exception_unexpected_error;
8923: ELSIF (l_return_status = g_ret_sts_error)
8924: THEN
8925: RAISE okl_api.g_exception_error;
8926: END IF;
8921: THEN
8922: RAISE okl_api.g_exception_unexpected_error;
8923: ELSIF (l_return_status = g_ret_sts_error)
8924: THEN
8925: RAISE okl_api.g_exception_error;
8926: END IF;
8927:
8928:
8929: END IF;
8971: IF l_return_status <> g_ret_sts_success
8972: THEN
8973: -- Unable to do reversal of loss provisions during
8974: -- termination of contract CONTRACT_NUMBER.
8975: okl_api.set_message (p_app_name => g_app_name,
8976: p_msg_name => 'OKL_AM_REV_LOSPROV_ERR',
8977: p_token1 => 'CONTRACT_NUMBER',
8978: p_token1_value => p_term_rec.p_contract_number
8979: );
8981:
8982: -- Raise exception to rollback this whole block
8983: IF (l_return_status = g_ret_sts_unexp_error)
8984: THEN
8985: RAISE okl_api.g_exception_unexpected_error;
8986: ELSIF (l_return_status = g_ret_sts_error)
8987: THEN
8988: RAISE okl_api.g_exception_error;
8989: END IF;
8984: THEN
8985: RAISE okl_api.g_exception_unexpected_error;
8986: ELSIF (l_return_status = g_ret_sts_error)
8987: THEN
8988: RAISE okl_api.g_exception_error;
8989: END IF;
8990:
8991: -- Set the success messages to message table
8992: l_count := px_msg_tbl.COUNT;
9012: 'End(-)'
9013: );
9014: END IF;
9015: EXCEPTION
9016: WHEN okl_api.g_exception_error
9017: THEN
9018: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
9019: IF prod_id_csr%ISOPEN
9020: THEN
9030: l_module_name,
9031: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
9032: );
9033: END IF;
9034: WHEN okl_api.g_exception_unexpected_error
9035: THEN
9036: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
9037: IF prod_id_csr%ISOPEN
9038: THEN
9060:
9061: ROLLBACK TO reverse_loss_provisions;
9062: x_return_status := g_ret_sts_unexp_error;
9063: -- Set the oracle error message
9064: okl_api.set_message (p_app_name => g_app_name_1,
9065: p_msg_name => g_unexpected_error,
9066: p_token1 => g_sqlcode_token,
9067: p_token1_value => SQLCODE,
9068: p_token2 => g_sqlerrm_token,
9220:
9221: IF l_return_status <> g_ret_sts_success
9222: THEN
9223: -- Error in cancelling Insurance.
9224: okl_api.set_message (p_app_name => g_app_name,
9225: p_msg_name => 'OKL_AM_ERR_CAN_INS');
9226: END IF;
9227:
9228: -- Raise exception to rollback to the savepoint
9227:
9228: -- Raise exception to rollback to the savepoint
9229: IF (l_return_status = g_ret_sts_unexp_error)
9230: THEN
9231: RAISE okl_api.g_exception_unexpected_error;
9232: ELSIF (l_return_status = g_ret_sts_error)
9233: THEN
9234: RAISE okl_api.g_exception_error;
9235: END IF;
9230: THEN
9231: RAISE okl_api.g_exception_unexpected_error;
9232: ELSIF (l_return_status = g_ret_sts_error)
9233: THEN
9234: RAISE okl_api.g_exception_error;
9235: END IF;
9236: END IF;
9237:
9238: -- Set the return status
9245: 'End(-)'
9246: );
9247: END IF;
9248: EXCEPTION
9249: WHEN okl_api.g_exception_error
9250: THEN
9251: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
9252: IF k_end_date_csr%ISOPEN
9253: THEN
9263: l_module_name,
9264: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
9265: );
9266: END IF;
9267: WHEN okl_api.g_exception_unexpected_error
9268: THEN
9269: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
9270: IF k_end_date_csr%ISOPEN
9271: THEN
9293:
9294: ROLLBACK TO cancel_insurance;
9295: x_return_status := g_ret_sts_unexp_error;
9296: -- Set the oracle error message
9297: okl_api.set_message (p_app_name => g_app_name_1,
9298: p_msg_name => g_unexpected_error,
9299: p_token1 => g_sqlcode_token,
9300: p_token1_value => SQLCODE,
9301: p_token2 => g_sqlerrm_token,
9401: IF (p_dnz_chr_id = g_miss_num OR p_dnz_chr_id IS NULL)
9402: AND (p_top_line_id = g_miss_num OR p_top_line_id IS NULL)
9403: THEN
9404: -- store SQL error message on message stack
9405: okl_api.set_message
9406: (p_app_name => g_app_name,
9407: p_msg_name => g_required_value,
9408: p_token1 => g_col_name_token,
9409: p_token1_value => 'p_dnz_chr_id and p_top_line_id'
9413: ELSIF (p_dnz_chr_id = g_miss_num OR p_dnz_chr_id IS NULL)
9414: OR (p_top_line_id = g_miss_num OR p_top_line_id IS NULL)
9415: THEN
9416: -- store SQL error message on message stack
9417: okl_api.set_message
9418: (p_app_name => g_app_name,
9419: p_msg_name => g_required_value,
9420: p_token1 => g_col_name_token,
9421: p_token1_value => 'p_dnz_chr_id and p_top_line_id'
9429: p_top_line_id => p_top_line_id);
9430:
9431: IF l_k_lines_validate_csr%NOTFOUND
9432: THEN
9433: okl_api.set_message
9434: (p_app_name => g_app_name,
9435: p_msg_name => g_no_matching_record,
9436: p_token1 => g_col_name_token,
9437: p_token1_value => 'p_dnz_chr_id and p_top_line_id'
9446: CLOSE l_k_lines_validate_csr;
9447:
9448: IF (ln_dummy = 0)
9449: THEN
9450: okl_api.set_message
9451: (p_app_name => g_app_name,
9452: p_msg_name => g_no_matching_record,
9453: p_token1 => g_col_name_token,
9454: p_token1_value => 'p_dnz_chr_id and p_top_line_id'
9505: END IF;
9506: WHEN OTHERS
9507: THEN
9508: -- store SQL error message on message stack
9509: okl_api.set_message (p_app_name => g_app_name,
9510: p_msg_name => g_unexpected_error,
9511: p_token1 => g_sqlcode_token,
9512: p_token1_value => SQLCODE,
9513: p_token2 => g_sqlerrm_token,
9845: l_pym_freq VARCHAR2 (30);
9846: lp_pym_tbl pym_tbl_type;
9847: lp_pym_tbl_empty pym_tbl_type;
9848: lp_pym_hdr_rec pym_hdr_rec_type;
9849: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
9850: lx_rulv_tbl rulv_tbl_type;
9851: l_proppymt_count NUMBER;
9852: l_splitpymt_count NUMBER;
9853: l_date_eff_from DATE;
9893: 'In param, p_quote_id: ' || p_quote_id
9894: );
9895: END IF;
9896:
9897: IF p_quote_id IS NULL OR p_quote_id = okl_api.g_miss_num
9898: THEN
9899: -- quote id is required
9900: okc_api.set_message (p_app_name => 'OKC',
9901: p_msg_name => g_required_value,
9901: p_msg_name => g_required_value,
9902: p_token1 => g_col_name_token,
9903: p_token1_value => 'QUOTE_ID'
9904: );
9905: RAISE okl_api.g_exception_error;
9906: END IF;
9907:
9908: OPEN l_trxquotes_csr (p_quote_id);
9909:
9917: p_msg_name => g_invalid_value,
9918: p_token1 => g_col_name_token,
9919: p_token1_value => 'QUOTE_ID'
9920: );
9921: RAISE okl_api.g_exception_error;
9922: END IF;
9923:
9924: CLOSE l_trxquotes_csr;
9925:
9983: || l_return_status
9984: );
9985: END IF;
9986:
9987: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
9988: THEN
9989: RAISE okl_api.g_exception_unexpected_error;
9990: ELSIF (l_return_status = okl_api.g_ret_sts_error)
9991: THEN
9985: END IF;
9986:
9987: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
9988: THEN
9989: RAISE okl_api.g_exception_unexpected_error;
9990: ELSIF (l_return_status = okl_api.g_ret_sts_error)
9991: THEN
9992: RAISE okl_api.g_exception_error;
9993: END IF;
9986:
9987: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
9988: THEN
9989: RAISE okl_api.g_exception_unexpected_error;
9990: ELSIF (l_return_status = okl_api.g_ret_sts_error)
9991: THEN
9992: RAISE okl_api.g_exception_error;
9993: END IF;
9994: ELSIF l_quoteobjects_rec.sts_code = 'PROPOSED'
9988: THEN
9989: RAISE okl_api.g_exception_unexpected_error;
9990: ELSIF (l_return_status = okl_api.g_ret_sts_error)
9991: THEN
9992: RAISE okl_api.g_exception_error;
9993: END IF;
9994: ELSIF l_quoteobjects_rec.sts_code = 'PROPOSED'
9995: THEN
9996: -- future payment exists for one or more stream types
10228: || l_return_status
10229: );
10230: END IF;
10231:
10232: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10233: THEN
10234: RAISE okl_api.g_exception_unexpected_error;
10235: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10236: THEN
10230: END IF;
10231:
10232: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10233: THEN
10234: RAISE okl_api.g_exception_unexpected_error;
10235: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10236: THEN
10237: RAISE okl_api.g_exception_error;
10238: END IF;
10231:
10232: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10233: THEN
10234: RAISE okl_api.g_exception_unexpected_error;
10235: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10236: THEN
10237: RAISE okl_api.g_exception_error;
10238: END IF;
10239: -- Bug 6908509: add start
10233: THEN
10234: RAISE okl_api.g_exception_unexpected_error;
10235: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10236: THEN
10237: RAISE okl_api.g_exception_error;
10238: END IF;
10239: -- Bug 6908509: add start
10240: l_freq_found := 'N';
10241: -- Bug 6908509: add end
10477: );
10478: END IF;
10479: END IF;
10480:
10481: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10482: THEN
10483: RAISE okl_api.g_exception_unexpected_error;
10484: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10485: THEN
10479: END IF;
10480:
10481: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10482: THEN
10483: RAISE okl_api.g_exception_unexpected_error;
10484: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10485: THEN
10486: RAISE okl_api.g_exception_error;
10487: END IF;
10480:
10481: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10482: THEN
10483: RAISE okl_api.g_exception_unexpected_error;
10484: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10485: THEN
10486: RAISE okl_api.g_exception_error;
10487: END IF;
10488: END IF;
10482: THEN
10483: RAISE okl_api.g_exception_unexpected_error;
10484: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10485: THEN
10486: RAISE okl_api.g_exception_error;
10487: END IF;
10488: END IF;
10489: END LOOP;
10490: ELSE
10696: || l_return_status
10697: );
10698: END IF;
10699:
10700: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10701: THEN
10702: RAISE okl_api.g_exception_unexpected_error;
10703: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10704: THEN
10698: END IF;
10699:
10700: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10701: THEN
10702: RAISE okl_api.g_exception_unexpected_error;
10703: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10704: THEN
10705: RAISE okl_api.g_exception_error;
10706: END IF;
10699:
10700: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10701: THEN
10702: RAISE okl_api.g_exception_unexpected_error;
10703: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10704: THEN
10705: RAISE okl_api.g_exception_error;
10706: END IF;
10707: END IF;
10701: THEN
10702: RAISE okl_api.g_exception_unexpected_error;
10703: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10704: THEN
10705: RAISE okl_api.g_exception_error;
10706: END IF;
10707: END IF;
10708:
10709: IF l_splitpymt_tbl.COUNT > 0
10743: || l_return_status
10744: );
10745: END IF;
10746:
10747: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10748: THEN
10749: RAISE okl_api.g_exception_unexpected_error;
10750: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10751: THEN
10745: END IF;
10746:
10747: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10748: THEN
10749: RAISE okl_api.g_exception_unexpected_error;
10750: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10751: THEN
10752: RAISE okl_api.g_exception_error;
10753: END IF;
10746:
10747: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10748: THEN
10749: RAISE okl_api.g_exception_unexpected_error;
10750: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10751: THEN
10752: RAISE okl_api.g_exception_error;
10753: END IF;
10754:
10748: THEN
10749: RAISE okl_api.g_exception_unexpected_error;
10750: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10751: THEN
10752: RAISE okl_api.g_exception_error;
10753: END IF;
10754:
10755: -- create payment for this stream type from the l_splitpymt_tbl table
10756: lp_pym_hdr_rec.STRUCTURE :=
10890: );
10891: END IF;
10892: END IF;
10893:
10894: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10895: THEN
10896: RAISE okl_api.g_exception_unexpected_error;
10897: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10898: THEN
10892: END IF;
10893:
10894: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10895: THEN
10896: RAISE okl_api.g_exception_unexpected_error;
10897: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10898: THEN
10899: RAISE okl_api.g_exception_error;
10900: END IF;
10893:
10894: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
10895: THEN
10896: RAISE okl_api.g_exception_unexpected_error;
10897: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10898: THEN
10899: RAISE okl_api.g_exception_error;
10900: END IF;
10901: END IF;
10895: THEN
10896: RAISE okl_api.g_exception_unexpected_error;
10897: ELSIF (l_return_status = okl_api.g_ret_sts_error)
10898: THEN
10899: RAISE okl_api.g_exception_error;
10900: END IF;
10901: END IF;
10902: END LOOP;
10903: END IF;
10914: 'End(-)'
10915: );
10916: END IF;
10917: EXCEPTION
10918: WHEN okl_api.g_exception_error
10919: THEN
10920: IF l_quoteobjects_csr%ISOPEN
10921: THEN
10922: CLOSE l_quoteobjects_csr;
10978: l_module_name,
10979: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
10980: );
10981: END IF;
10982: WHEN okl_api.g_exception_unexpected_error
10983: THEN
10984: IF l_quoteobjects_csr%ISOPEN
10985: THEN
10986: CLOSE l_quoteobjects_csr;
11100:
11101: ROLLBACK TO update_payments;
11102: x_return_status := g_ret_sts_unexp_error;
11103: -- Set the oracle error message
11104: okl_api.set_message (p_app_name => g_app_name_1,
11105: p_msg_name => g_unexpected_error,
11106: p_token1 => g_sqlcode_token,
11107: p_token1_value => SQLCODE,
11108: p_token2 => g_sqlerrm_token,
11375: lv_id1 okc_k_items.object1_id1%TYPE;
11376: lv_id2 okc_k_items.object1_id2%TYPE;
11377: lv_code okc_k_items.jtot_object1_code%TYPE;
11378: -- SECHAWLA 28-OCT-03 2846988 : New declarations
11379: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
11380:
11381: -- RMUNJULU Bug # 2484327 Added comments, changed parameters to IN
11382: -- We need to find out the object1_id1 and object1_id2 and jtot_object1_code
11383: -- to get the name of the fee or service or ubb line based on jtot_object1_code
11616:
11617: IF x_return_status <> g_ret_sts_success
11618: THEN
11619: -- Error in terminating asset ASSET_NAME.
11620: okl_api.set_message
11621: (p_app_name => g_app_name,
11622: p_msg_name => g_am_err_trmt_asset,
11623: p_token1 => 'ASSET_NAME',
11624: p_token1_value => l_akle_tbl (i).p_asset_name
11698: IF x_return_status <> g_ret_sts_success
11699: THEN
11700: -- Error in terminating sublines of service lines, fee lines and
11701: -- UBB lines of asset ASSET_NAME.
11702: okl_api.set_message
11703: (p_app_name => g_app_name,
11704: p_msg_name => g_am_err_trmt_asset_ln,
11705: p_token1 => 'ASSET_NAME',
11706: p_token1_value => l_akle_tbl (i).p_asset_name
11777:
11778: IF x_return_status <> g_ret_sts_success
11779: THEN
11780: -- Error in terminating service lines, fee lines and UBB lines.
11781: okl_api.set_message
11782: (p_app_name => g_app_name,
11783: p_msg_name => g_am_err_trmt_top_ln);
11784: ELSIF x_return_status = g_ret_sts_success
11785: THEN
11912:
11913: -- Raise exception to rollback to savepoint
11914: IF (l_return_status = g_ret_sts_unexp_error)
11915: THEN
11916: RAISE okl_api.g_exception_unexpected_error;
11917: ELSIF (l_return_status = g_ret_sts_error)
11918: THEN
11919: RAISE okl_api.g_exception_error;
11920: END IF;
11915: THEN
11916: RAISE okl_api.g_exception_unexpected_error;
11917: ELSIF (l_return_status = g_ret_sts_error)
11918: THEN
11919: RAISE okl_api.g_exception_error;
11920: END IF;
11921:
11922: -- update balances table
11923: -- check if rec exists if exists then update else create
11943: );
11944: END IF;
11945:
11946: okl_cbl_pvt.update_row (p_api_version => p_api_version,
11947: p_init_msg_list => okl_api.g_false,
11948: x_return_status => x_return_status,
11949: x_msg_count => x_msg_count,
11950: x_msg_data => x_msg_data,
11951: p_cblv_rec => p_cblv_rec,
11964:
11965: -- Raise exception to rollback to savepoint
11966: IF (l_return_status = g_ret_sts_unexp_error)
11967: THEN
11968: RAISE okl_api.g_exception_unexpected_error;
11969: ELSIF (l_return_status = g_ret_sts_error)
11970: THEN
11971: RAISE okl_api.g_exception_error;
11972: END IF;
11967: THEN
11968: RAISE okl_api.g_exception_unexpected_error;
11969: ELSIF (l_return_status = g_ret_sts_error)
11970: THEN
11971: RAISE okl_api.g_exception_error;
11972: END IF;
11973: ELSE
11974: -- balances rec does not exist so insert
11975: IF (is_debug_statement_on)
11980: );
11981: END IF;
11982:
11983: okl_cbl_pvt.insert_row (p_api_version => p_api_version,
11984: p_init_msg_list => okl_api.g_false,
11985: x_return_status => x_return_status,
11986: x_msg_count => x_msg_count,
11987: x_msg_data => x_msg_data,
11988: p_cblv_rec => p_cblv_rec,
12001:
12002: -- Raise exception to rollback to savepoint
12003: IF (l_return_status = g_ret_sts_unexp_error)
12004: THEN
12005: RAISE okl_api.g_exception_unexpected_error;
12006: ELSIF (l_return_status = g_ret_sts_error)
12007: THEN
12008: RAISE okl_api.g_exception_error;
12009: END IF;
12004: THEN
12005: RAISE okl_api.g_exception_unexpected_error;
12006: ELSIF (l_return_status = g_ret_sts_error)
12007: THEN
12008: RAISE okl_api.g_exception_error;
12009: END IF;
12010: END IF;
12011:
12012: -- rmunjulu LOANS_ENHACEMENTS -- end
12016: END LOOP;
12017:
12018: IF (x_return_status = g_ret_sts_unexp_error)
12019: THEN
12020: RAISE okl_api.g_exception_unexpected_error;
12021: ELSIF (x_return_status = g_ret_sts_error)
12022: THEN
12023: RAISE okl_api.g_exception_error;
12024: END IF;
12019: THEN
12020: RAISE okl_api.g_exception_unexpected_error;
12021: ELSIF (x_return_status = g_ret_sts_error)
12022: THEN
12023: RAISE okl_api.g_exception_error;
12024: END IF;
12025: ELSE
12026: -- RMUNJULU -- Bug # 2484327 -- Changed to call set_message with =>
12027: -- No assets found for termination.
12024: END IF;
12025: ELSE
12026: -- RMUNJULU -- Bug # 2484327 -- Changed to call set_message with =>
12027: -- No assets found for termination.
12028: okl_api.set_message (p_app_name => g_app_name,
12029: p_msg_name => g_required_value,
12030: p_token1 => g_col_name_token,
12031: p_token1_value => 'p_klev_tbl.id'
12032: );
12029: p_msg_name => g_required_value,
12030: p_token1 => g_col_name_token,
12031: p_token1_value => 'p_klev_tbl.id'
12032: );
12033: RAISE okl_api.g_exception_error;
12034: END IF;
12035:
12036: --29-JUL-04 SECHAWLA 3798158 : Commented out the check for existence of service/fee/usage lines
12037: -- Payments should be updated even if K has no service/fee/usage lines attached
12064: || l_return_status
12065: );
12066: END IF;
12067:
12068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
12069: THEN
12070: RAISE okl_api.g_exception_unexpected_error;
12071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
12072: THEN
12066: END IF;
12067:
12068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
12069: THEN
12070: RAISE okl_api.g_exception_unexpected_error;
12071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
12072: THEN
12073: RAISE okl_api.g_exception_error;
12074: END IF;
12067:
12068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
12069: THEN
12070: RAISE okl_api.g_exception_unexpected_error;
12071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
12072: THEN
12073: RAISE okl_api.g_exception_error;
12074: END IF;
12075:
12069: THEN
12070: RAISE okl_api.g_exception_unexpected_error;
12071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
12072: THEN
12073: RAISE okl_api.g_exception_error;
12074: END IF;
12075:
12076: -- SECHAWLA 28-OCT-03 2846988 : Commented out the following code. The above call now updates the payments
12077:
12099:
12100: IF x_return_status <> G_RET_STS_SUCCESS THEN
12101:
12102: -- Error in updating amounts of service and fee lines.
12103: OKL_API.set_message(
12104: p_app_name => G_APP_NAME,
12105: p_msg_name => G_AM_ERR_UPD_AMT);
12106:
12107:
12157:
12158: IF x_return_status <> G_RET_STS_SUCCESS THEN
12159:
12160: -- Error in updating payment amounts of service and fee lines.
12161: OKL_API.set_message(
12162: p_app_name => G_APP_NAME,
12163: p_msg_name => G_AM_ERR_UPD_PAY_AMT);
12164:
12165: END IF;
12182:
12183: END LOOP;
12184:
12185: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
12186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12187: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
12188: RAISE OKL_API.G_EXCEPTION_ERROR;
12189: END IF;
12190: */
12184:
12185: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
12186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12187: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
12188: RAISE OKL_API.G_EXCEPTION_ERROR;
12189: END IF;
12190: */
12191:
12192: -- END IF; --29-JUL-04 SECHAWLA 3798158
12204: 'End(-)'
12205: );
12206: END IF;
12207: EXCEPTION
12208: WHEN okl_api.g_exception_error
12209: THEN
12210: IF l_trmnt_line_csr%ISOPEN
12211: THEN
12212: CLOSE l_trmnt_line_csr;
12273: l_module_name,
12274: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12275: );
12276: END IF;
12277: WHEN okl_api.g_exception_unexpected_error
12278: THEN
12279: IF l_trmnt_line_csr%ISOPEN
12280: THEN
12281: CLOSE l_trmnt_line_csr;
12405: -- return status
12406: ROLLBACK TO update_lines;
12407: x_return_status := g_ret_sts_unexp_error;
12408: -- Set the oracle error message
12409: okl_api.set_message (p_app_name => g_app_name_1,
12410: p_msg_name => g_unexpected_error,
12411: p_token1 => g_sqlcode_token,
12412: p_token1_value => SQLCODE,
12413: p_token2 => g_sqlerrm_token,
12634:
12635: IF l_return_status <> g_ret_sts_success
12636: THEN
12637: -- Contract line table update failed.
12638: okl_api.set_message (p_app_name => g_app_name,
12639: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
12640: END IF;
12641:
12642: -- Raise exception to rollback to savepoint
12641:
12642: -- Raise exception to rollback to savepoint
12643: IF (l_return_status = g_ret_sts_unexp_error)
12644: THEN
12645: RAISE okl_api.g_exception_unexpected_error;
12646: ELSIF (l_return_status = g_ret_sts_error)
12647: THEN
12648: RAISE okl_api.g_exception_error;
12649: END IF;
12644: THEN
12645: RAISE okl_api.g_exception_unexpected_error;
12646: ELSIF (l_return_status = g_ret_sts_error)
12647: THEN
12648: RAISE okl_api.g_exception_error;
12649: END IF;
12650: END LOOP;
12651:
12652: -- Get the contract details
12674: CLOSE get_sts_meaning_csr;
12675:
12676: -- set the lp_chrv_rec record
12677: IF (p_term_rec.p_termination_date IS NOT NULL)
12678: AND (p_term_rec.p_termination_date <> okl_api.g_miss_date)
12679: THEN
12680: lp_chrv_rec.date_terminated := p_term_rec.p_termination_date;
12681: ELSE
12682: lp_chrv_rec.date_terminated := l_quote_eff_date; -- rmunjulu EDAT
12692: lp_chrv_rec.new_ste_code := p_status;
12693: lp_chrv_rec.trn_code := p_trn_reason_code;
12694: lp_chrv_rec.org_id := l_authoring_org_id; --CDUBEY added for MOAC
12695:
12696: -- Call the okl api to update contract with termination info
12697: IF (is_debug_statement_on)
12698: THEN
12699: okl_debug_pub.log_debug
12700: (g_level_statement,
12726:
12727: IF l_return_status <> g_ret_sts_success
12728: THEN
12729: -- Error updating contract CONTRACT_NUMBER to status STATUS.
12730: okl_api.set_message (p_app_name => g_app_name,
12731: p_msg_name => 'OKL_AM_K_STATUS_UPD_ERR',
12732: p_token1 => 'CONTRACT_NUMBER',
12733: p_token1_value => p_term_rec.p_contract_number,
12734: p_token2 => 'STATUS',
12746:
12747: -- Raise exception to rollback to savepoint
12748: IF (l_return_status = g_ret_sts_unexp_error)
12749: THEN
12750: RAISE okl_api.g_exception_unexpected_error;
12751: ELSIF (l_return_status = g_ret_sts_error)
12752: THEN
12753: RAISE okl_api.g_exception_error;
12754: END IF;
12749: THEN
12750: RAISE okl_api.g_exception_unexpected_error;
12751: ELSIF (l_return_status = g_ret_sts_error)
12752: THEN
12753: RAISE okl_api.g_exception_error;
12754: END IF;
12755:
12756: -- Set the return status and message table
12757: x_return_status := l_return_status;
12764: 'End(-)'
12765: );
12766: END IF;
12767: EXCEPTION
12768: WHEN okl_api.g_exception_error
12769: THEN
12770: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
12771: IF get_k_dtls_csr%ISOPEN
12772: THEN
12794: l_module_name,
12795: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12796: );
12797: END IF;
12798: WHEN okl_api.g_exception_unexpected_error
12799: THEN
12800: -- RMUNJULU 03-MAR-03 2830997 Changed NOTFOUND to ISOPEN
12801: IF get_k_dtls_csr%ISOPEN
12802: THEN
12848:
12849: ROLLBACK TO update_contract;
12850: x_return_status := g_ret_sts_unexp_error;
12851: -- Set the oracle error message
12852: okl_api.set_message (p_app_name => g_app_name_1,
12853: p_msg_name => g_unexpected_error,
12854: p_token1 => g_sqlcode_token,
12855: p_token1_value => SQLCODE,
12856: p_token2 => g_sqlerrm_token,
13140: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13141: IF l_return_status <> g_ret_sts_success
13142: THEN
13143: -- Contract line table update failed.
13144: okl_api.set_message (p_app_name => g_app_name,
13145: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13146: END IF;
13147:
13148: -- rollback if update lines failed
13147:
13148: -- rollback if update lines failed
13149: IF (l_return_status = g_ret_sts_unexp_error)
13150: THEN
13151: RAISE okl_api.g_exception_unexpected_error;
13152: ELSIF (l_return_status = g_ret_sts_error)
13153: THEN
13154: RAISE okl_api.g_exception_error;
13155: END IF;
13150: THEN
13151: RAISE okl_api.g_exception_unexpected_error;
13152: ELSIF (l_return_status = g_ret_sts_error)
13153: THEN
13154: RAISE okl_api.g_exception_error;
13155: END IF;
13156:
13157: -- BAKUCHIB 28-MAR-03 2877278 Added call to close streams here
13158: -- close streams
13171: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13172: IF l_return_status <> G_RET_STS_SUCCESS THEN
13173:
13174: -- Contract line table update failed.
13175: OKL_API.set_message(
13176: p_app_name => G_APP_NAME,
13177: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13178:
13179: END IF;
13179: END IF;
13180:
13181: -- rollback if close streams failed
13182: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
13183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13184: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
13185: RAISE OKL_API.G_EXCEPTION_ERROR;
13186: END IF;
13187: */
13181: -- rollback if close streams failed
13182: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
13183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13184: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
13185: RAISE OKL_API.G_EXCEPTION_ERROR;
13186: END IF;
13187: */
13188:
13189: -- RMUNJULU CONTRACT BLOCKING
13240:
13241: -- rollback if processing transaction failed
13242: IF (l_return_status = g_ret_sts_unexp_error)
13243: THEN
13244: RAISE okl_api.g_exception_unexpected_error;
13245: ELSIF (l_return_status = g_ret_sts_error)
13246: THEN
13247: RAISE okl_api.g_exception_error;
13248: END IF;
13243: THEN
13244: RAISE okl_api.g_exception_unexpected_error;
13245: ELSIF (l_return_status = g_ret_sts_error)
13246: THEN
13247: RAISE okl_api.g_exception_error;
13248: END IF;
13249:
13250: --+++++++++++++++end -- CONTRACT BLOCKING (2)
13251:
13299: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13300: IF l_return_status <> g_ret_sts_success
13301: THEN
13302: -- Contract line table update failed.
13303: okl_api.set_message (p_app_name => g_app_name,
13304: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13305: END IF;
13306:
13307: -- rollback if close balances failed
13306:
13307: -- rollback if close balances failed
13308: IF (l_return_status = g_ret_sts_unexp_error)
13309: THEN
13310: RAISE okl_api.g_exception_unexpected_error;
13311: ELSIF (l_return_status = g_ret_sts_error)
13312: THEN
13313: RAISE okl_api.g_exception_error;
13314: END IF;
13309: THEN
13310: RAISE okl_api.g_exception_unexpected_error;
13311: ELSIF (l_return_status = g_ret_sts_error)
13312: THEN
13313: RAISE okl_api.g_exception_error;
13314: END IF;
13315:
13316: -- RMUNJULU 09-JAN-03 2743604 Added call to this procedure
13317: -- Call to Reverse the non-incomes and loss-provisions
13338: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13339: IF l_return_status <> g_ret_sts_success
13340: THEN
13341: -- Contract line table update failed.
13342: okl_api.set_message (p_app_name => g_app_name,
13343: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13344: END IF;
13345:
13346: -- rollback if reverse loss provisions failed
13345:
13346: -- rollback if reverse loss provisions failed
13347: IF (l_return_status = g_ret_sts_unexp_error)
13348: THEN
13349: RAISE okl_api.g_exception_unexpected_error;
13350: ELSIF (l_return_status = g_ret_sts_error)
13351: THEN
13352: RAISE okl_api.g_exception_error;
13353: END IF;
13348: THEN
13349: RAISE okl_api.g_exception_unexpected_error;
13350: ELSIF (l_return_status = g_ret_sts_error)
13351: THEN
13352: RAISE okl_api.g_exception_error;
13353: END IF;
13354:
13355: -- RMUNJULU Bug # 2484327 Added call to this procedure
13356: -- Call the Update Lines to update the contract to terminated if
13380: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13381: IF l_return_status <> g_ret_sts_success
13382: THEN
13383: -- Contract line table update failed.
13384: okl_api.set_message (p_app_name => g_app_name,
13385: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13386: END IF;
13387:
13388: -- rollback if update contract failed
13387:
13388: -- rollback if update contract failed
13389: IF (l_return_status = g_ret_sts_unexp_error)
13390: THEN
13391: RAISE okl_api.g_exception_unexpected_error;
13392: ELSIF (l_return_status = g_ret_sts_error)
13393: THEN
13394: RAISE okl_api.g_exception_error;
13395: END IF;
13390: THEN
13391: RAISE okl_api.g_exception_unexpected_error;
13392: ELSIF (l_return_status = g_ret_sts_error)
13393: THEN
13394: RAISE okl_api.g_exception_error;
13395: END IF;
13396:
13397: -- RMUNJULU 20-DEC-02 2484327 Added call to this procedure
13398: -- Call to Cancel Insurance to cancel the insurances
13419: -- RMUNJULU CONTRACT BLOCKING -- Moved this if from exception
13420: IF l_return_status <> g_ret_sts_success
13421: THEN
13422: -- Contract line table update failed.
13423: okl_api.set_message (p_app_name => g_app_name,
13424: p_msg_name => 'OKL_AM_ERR_K_LINE_UPD');
13425: END IF;
13426:
13427: -- rollback if cancel insurance failed
13426:
13427: -- rollback if cancel insurance failed
13428: IF (l_return_status = g_ret_sts_unexp_error)
13429: THEN
13430: RAISE okl_api.g_exception_unexpected_error;
13431: ELSIF (l_return_status = g_ret_sts_error)
13432: THEN
13433: RAISE okl_api.g_exception_error;
13434: END IF;
13429: THEN
13430: RAISE okl_api.g_exception_unexpected_error;
13431: ELSIF (l_return_status = g_ret_sts_error)
13432: THEN
13433: RAISE okl_api.g_exception_error;
13434: END IF;
13435:
13436: -- RMUNJULU 20-DEC-02 2683876 Set the trn if close balances successful
13437: -- set the transaction record
13457: THEN
13458: k := l_msg_tbl.FIRST;
13459:
13460: LOOP
13461: okl_api.set_message
13462: (p_app_name => g_app_name,
13463: p_msg_name => l_msg_tbl (k).msg_desc,
13464: p_token1 => l_msg_tbl (k).msg_token1,
13465: p_token1_value => l_msg_tbl (k).msg_token1_value,
13511:
13512: -- rollback if processing transaction failed
13513: IF (l_return_status = g_ret_sts_unexp_error)
13514: THEN
13515: RAISE okl_api.g_exception_unexpected_error;
13516: ELSIF (l_return_status = g_ret_sts_error)
13517: THEN
13518: RAISE okl_api.g_exception_error;
13519: END IF;
13514: THEN
13515: RAISE okl_api.g_exception_unexpected_error;
13516: ELSIF (l_return_status = g_ret_sts_error)
13517: THEN
13518: RAISE okl_api.g_exception_error;
13519: END IF;
13520: ELSE
13521: -- Mass Rebook Till Streams was successful
13522:
13560:
13561: -- rollback if processing transaction failed
13562: IF (l_return_status = g_ret_sts_unexp_error)
13563: THEN
13564: RAISE okl_api.g_exception_unexpected_error;
13565: ELSIF (l_return_status = g_ret_sts_error)
13566: THEN
13567: RAISE okl_api.g_exception_error;
13568: END IF;
13563: THEN
13564: RAISE okl_api.g_exception_unexpected_error;
13565: ELSIF (l_return_status = g_ret_sts_error)
13566: THEN
13567: RAISE okl_api.g_exception_error;
13568: END IF;
13569: END IF;
13570: END LOOP;
13571: ELSE
13596:
13597: -- rollback if processing transaction failed
13598: IF (l_return_status = g_ret_sts_unexp_error)
13599: THEN
13600: RAISE okl_api.g_exception_unexpected_error;
13601: ELSIF (l_return_status = g_ret_sts_error)
13602: THEN
13603: RAISE okl_api.g_exception_error;
13604: END IF;
13599: THEN
13600: RAISE okl_api.g_exception_unexpected_error;
13601: ELSIF (l_return_status = g_ret_sts_error)
13602: THEN
13603: RAISE okl_api.g_exception_error;
13604: END IF;
13605: END IF;
13606: END IF;
13607: ELSE
13637:
13638: -- rollback if processing transaction failed
13639: IF (l_return_status = g_ret_sts_unexp_error)
13640: THEN
13641: RAISE okl_api.g_exception_unexpected_error;
13642: ELSIF (l_return_status = g_ret_sts_error)
13643: THEN
13644: RAISE okl_api.g_exception_error;
13645: END IF;
13640: THEN
13641: RAISE okl_api.g_exception_unexpected_error;
13642: ELSIF (l_return_status = g_ret_sts_error)
13643: THEN
13644: RAISE okl_api.g_exception_error;
13645: END IF;
13646: END IF;
13647:
13648: --+++++++++++++end -- CONTRACT BLOCKING (2)
13658: 'End(-)'
13659: );
13660: END IF;
13661: EXCEPTION
13662: WHEN okl_api.g_exception_error
13663: THEN
13664: -- RMUNJULU Bug # 2484327 Added IF
13665: IF get_k_lines_csr%ISOPEN
13666: THEN
13685: l_module_name,
13686: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
13687: );
13688: END IF;
13689: WHEN okl_api.g_exception_unexpected_error
13690: THEN
13691: -- RMUNJULU Bug # 2484327 Added IF
13692: IF get_k_lines_csr%ISOPEN
13693: THEN
13733: p_tsu_code => 'ERROR',
13734: px_tcnv_rec => px_tcnv_rec
13735: );
13736: -- Set the oracle error message
13737: okl_api.set_message (p_app_name => g_app_name_1,
13738: p_msg_name => g_unexpected_error,
13739: p_token1 => g_sqlcode_token,
13740: p_token1_value => SQLCODE,
13741: p_token2 => g_sqlerrm_token,
13907: -- putting them on stack only if every step in terminate line is sucessful
13908:
13909: -- Set the transaction
13910: l_return_status :=
13911: okl_api.start_activity (l_api_name,
13912: g_pkg_name,
13913: p_init_msg_list,
13914: l_api_version,
13915: p_api_version,
13919:
13920: -- Rollback if error setting activity for api
13921: IF (l_return_status = g_ret_sts_unexp_error)
13922: THEN
13923: RAISE okl_api.g_exception_unexpected_error;
13924: ELSIF (l_return_status = g_ret_sts_error)
13925: THEN
13926: RAISE okl_api.g_exception_error;
13927: END IF;
13922: THEN
13923: RAISE okl_api.g_exception_unexpected_error;
13924: ELSIF (l_return_status = g_ret_sts_error)
13925: THEN
13926: RAISE okl_api.g_exception_error;
13927: END IF;
13928:
13929: -- store the highest degree of error
13930: set_overall_status (p_return_status => l_return_status,
13969:
13970: -- rollback if intialize transaction failed
13971: IF (l_return_status = g_ret_sts_unexp_error)
13972: THEN
13973: RAISE okl_api.g_exception_unexpected_error;
13974: ELSIF (l_return_status = g_ret_sts_error)
13975: THEN
13976: RAISE okl_api.g_exception_error;
13977: END IF;
13972: THEN
13973: RAISE okl_api.g_exception_unexpected_error;
13974: ELSIF (l_return_status = g_ret_sts_error)
13975: THEN
13976: RAISE okl_api.g_exception_error;
13977: END IF;
13978:
13979: -- insert the transaction record
13980: process_transaction (p_id => 0,
13997:
13998: -- rollback if processing transaction failed
13999: IF (l_return_status = g_ret_sts_unexp_error)
14000: THEN
14001: RAISE okl_api.g_exception_unexpected_error;
14002: ELSIF (l_return_status = g_ret_sts_error)
14003: THEN
14004: RAISE okl_api.g_exception_error;
14005: END IF;
14000: THEN
14001: RAISE okl_api.g_exception_unexpected_error;
14002: ELSIF (l_return_status = g_ret_sts_error)
14003: THEN
14004: RAISE okl_api.g_exception_error;
14005: END IF;
14006:
14007: -- set the trn rec id
14008: lp_tcnv_rec.ID := lx_id;
14029:
14030: -- rollback if intialize transaction failed
14031: IF (l_return_status = g_ret_sts_unexp_error)
14032: THEN
14033: RAISE okl_api.g_exception_unexpected_error;
14034: ELSIF (l_return_status = g_ret_sts_error)
14035: THEN
14036: RAISE okl_api.g_exception_error;
14037: END IF;
14032: THEN
14033: RAISE okl_api.g_exception_unexpected_error;
14034: ELSIF (l_return_status = g_ret_sts_error)
14035: THEN
14036: RAISE okl_api.g_exception_error;
14037: END IF;
14038: END IF;
14039:
14040: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
14064: );
14065: END IF;
14066:
14067: -- Rollback if error setting activity for api
14068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
14069: THEN
14070: RAISE okl_api.g_exception_unexpected_error;
14071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
14072: THEN
14066:
14067: -- Rollback if error setting activity for api
14068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
14069: THEN
14070: RAISE okl_api.g_exception_unexpected_error;
14071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
14072: THEN
14073: RAISE okl_api.g_exception_error;
14074: END IF;
14067: -- Rollback if error setting activity for api
14068: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
14069: THEN
14070: RAISE okl_api.g_exception_unexpected_error;
14071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
14072: THEN
14073: RAISE okl_api.g_exception_error;
14074: END IF;
14075:
14069: THEN
14070: RAISE okl_api.g_exception_unexpected_error;
14071: ELSIF (l_return_status = okl_api.g_ret_sts_error)
14072: THEN
14073: RAISE okl_api.g_exception_error;
14074: END IF;
14075:
14076: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
14077:
14212:
14213: -- rollback if processing transaction failed
14214: IF (l_return_status = g_ret_sts_unexp_error)
14215: THEN
14216: RAISE okl_api.g_exception_unexpected_error;
14217: ELSIF (l_return_status = g_ret_sts_error)
14218: THEN
14219: RAISE okl_api.g_exception_error;
14220: END IF;
14215: THEN
14216: RAISE okl_api.g_exception_unexpected_error;
14217: ELSIF (l_return_status = g_ret_sts_error)
14218: THEN
14219: RAISE okl_api.g_exception_error;
14220: END IF;
14221:
14222: -- Save messages from stack into transaction message table
14223: IF (is_debug_statement_on)
14309:
14310: -- rollback if processing transaction failed
14311: IF (l_return_status = g_ret_sts_unexp_error)
14312: THEN
14313: RAISE okl_api.g_exception_unexpected_error;
14314: ELSIF (l_return_status = g_ret_sts_error)
14315: THEN
14316: RAISE okl_api.g_exception_error;
14317: END IF;
14312: THEN
14313: RAISE okl_api.g_exception_unexpected_error;
14314: ELSIF (l_return_status = g_ret_sts_error)
14315: THEN
14316: RAISE okl_api.g_exception_error;
14317: END IF;
14318:
14319: -- Save messages from stack into transaction message table
14320: IF (is_debug_statement_on)
14417: );
14418: END IF;
14419:
14420: -- Set message stack to true
14421: okl_api.init_msg_list (g_true);
14422: -- RMUNJULU 23-JAN-03 2762065 -- END
14423:
14424: -- RMUNJULU 04-FEB-03 2781557 -- START
14425:
14447:
14448: -- rollback if process transaction failed
14449: IF (l_return_status = g_ret_sts_unexp_error)
14450: THEN
14451: RAISE okl_api.g_exception_unexpected_error;
14452: ELSIF (l_return_status = g_ret_sts_error)
14453: THEN
14454: RAISE okl_api.g_exception_error;
14455: END IF;
14450: THEN
14451: RAISE okl_api.g_exception_unexpected_error;
14452: ELSIF (l_return_status = g_ret_sts_error)
14453: THEN
14454: RAISE okl_api.g_exception_error;
14455: END IF;
14456:
14457: -- RMUNJULU 04-FEB-03 2781557 -- END
14458:
14500:
14501: -- rollback if processing transaction failed
14502: IF (l_return_status = g_ret_sts_unexp_error)
14503: THEN
14504: RAISE okl_api.g_exception_unexpected_error;
14505: ELSIF (l_return_status = g_ret_sts_error)
14506: THEN
14507: RAISE okl_api.g_exception_error;
14508: END IF;
14503: THEN
14504: RAISE okl_api.g_exception_unexpected_error;
14505: ELSIF (l_return_status = g_ret_sts_error)
14506: THEN
14507: RAISE okl_api.g_exception_error;
14508: END IF;
14509:
14510: -- RMUNJULU 2730738 for proper output file
14511: IF p_term_rec.p_control_flag LIKE 'BATCH%'
14661: END IF;
14662:
14663: -- Amortization of assets not needed since termination
14664: -- with purchase.
14665: okl_api.set_message (p_app_name => g_app_name,
14666: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
14667: -- Return of assets not needed since termination with purchase
14668: okl_api.set_message (p_app_name => g_app_name,
14669: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
14664: -- with purchase.
14665: okl_api.set_message (p_app_name => g_app_name,
14666: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
14667: -- Return of assets not needed since termination with purchase
14668: okl_api.set_message (p_app_name => g_app_name,
14669: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
14670: ELSE
14671: -- do amortization
14672: amortize_assets (p_term_rec => l_term_rec,
14722: );
14723: END IF;
14724:
14725: -- Disposition of assets not needed since termination without purchase
14726: okl_api.set_message (p_app_name => g_app_name,
14727: p_msg_name => 'OKL_AM_DISPOSE_NOT_NEED');
14728: END IF;
14729: END IF;
14730:
14743: END IF;
14744:
14745: -- RMUNJULU 3018641 Step Message
14746: -- Step : Update Contract and Lines
14747: okl_api.set_message (p_app_name => g_app_name,
14748: p_msg_name => 'OKL_AM_STEP_UPD');
14749:
14750: -- RMUNJULU 23-JAN-03 2762065
14751: -- If batch process then log the messages from stack
14782: );
14783: END IF;
14784:
14785: -- Set message stack to true
14786: okl_api.init_msg_list (g_true);
14787: -- update lines, do mass rebook and activate insurances
14788: terminate_lines
14789: (p_api_version => p_api_version,
14790: p_init_msg_list => g_false,
14837:
14838: -- rollback if processing transaction failed
14839: IF (l_return_status = g_ret_sts_unexp_error)
14840: THEN
14841: RAISE okl_api.g_exception_unexpected_error;
14842: ELSIF (l_return_status = g_ret_sts_error)
14843: THEN
14844: RAISE okl_api.g_exception_error;
14845: END IF;
14840: THEN
14841: RAISE okl_api.g_exception_unexpected_error;
14842: ELSIF (l_return_status = g_ret_sts_error)
14843: THEN
14844: RAISE okl_api.g_exception_error;
14845: END IF;
14846: END IF;
14847: -- END IF;
14848: ELSE
14869:
14870: -- rollback if processing transaction failed
14871: IF (l_return_status = g_ret_sts_unexp_error)
14872: THEN
14873: RAISE okl_api.g_exception_unexpected_error;
14874: ELSIF (l_return_status = g_ret_sts_error)
14875: THEN
14876: RAISE okl_api.g_exception_error;
14877: END IF;
14872: THEN
14873: RAISE okl_api.g_exception_unexpected_error;
14874: ELSIF (l_return_status = g_ret_sts_error)
14875: THEN
14876: RAISE okl_api.g_exception_error;
14877: END IF;
14878: END IF;
14879:
14880: --+++++++++end -- CONTRACT BLOCKING (2)
14936:
14937: -- Set the return status
14938: x_return_status := g_ret_sts_success;
14939: -- End the activity
14940: okl_api.end_activity (x_msg_count, x_msg_data);
14941:
14942: IF (is_debug_procedure_on)
14943: THEN
14944: okl_debug_pub.log_debug (g_level_procedure,
14958: 'EXCEPTION :'
14959: || 'G_EXCEPTION_HALT_VALIDATION'
14960: );
14961: END IF;
14962: WHEN okl_api.g_exception_error
14963: THEN
14964: x_return_status :=
14965: okl_api.handle_exceptions (l_api_name,
14966: g_pkg_name,
14961: END IF;
14962: WHEN okl_api.g_exception_error
14963: THEN
14964: x_return_status :=
14965: okl_api.handle_exceptions (l_api_name,
14966: g_pkg_name,
14967: 'G_RET_STS_ERROR',
14968: x_msg_count,
14969: x_msg_data,
14976: l_module_name,
14977: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
14978: );
14979: END IF;
14980: WHEN okl_api.g_exception_unexpected_error
14981: THEN
14982: x_return_status :=
14983: okl_api.handle_exceptions (l_api_name,
14984: g_pkg_name,
14979: END IF;
14980: WHEN okl_api.g_exception_unexpected_error
14981: THEN
14982: x_return_status :=
14983: okl_api.handle_exceptions (l_api_name,
14984: g_pkg_name,
14985: 'G_RET_STS_UNEXP_ERROR',
14986: x_msg_count,
14987: x_msg_data,
14998: END IF;
14999: WHEN OTHERS
15000: THEN
15001: x_return_status :=
15002: okl_api.handle_exceptions (l_api_name,
15003: g_pkg_name,
15004: 'OTHERS',
15005: x_msg_count,
15006: x_msg_data,