[Home] [Help]
2: /* $Header: OKLRMRPB.pls 120.38.12020000.3 2013/03/28 10:34:29 bkatraga ship $*/
3:
4:
5: G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
6: G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
7: G_IS_DEBUG_STATEMENT_ON BOOLEAN;
8:
9: --Global Variables
10: G_INIT_NUMBER NUMBER := -9999;
103: l_proc_name VARCHAR2(35) := 'GET_FORMATED_VALUE';
104: l_dummy_number NUMBER;
105: BEGIN
106: IF (G_DEBUG_ENABLED = 'Y') THEN
107: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
108: END IF;
109: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
111: END IF;
106: IF (G_DEBUG_ENABLED = 'Y') THEN
107: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
108: END IF;
109: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
111: END IF;
112: x_return_status := OKL_API.G_RET_STS_SUCCESS;
113:
114: -- Check for NUMBER and CHARACTER
204: build_error EXCEPTION;
205:
206: BEGIN
207: IF (G_DEBUG_ENABLED = 'Y') THEN
208: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
209: END IF;
210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
211:
212: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
209: END IF;
210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
211:
212: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
214: END IF;
215:
216: l_asset_query_present := 'F'; -- Checks the presence of Asset Related Criteria
217:
238: CLOSE crit_csr;
239:
240: l_criteria_code := rbk_rec.criteria_code;
241: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
242: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_criteria_code);
243: END IF;
244: -- Special formatting for CONTRACT_NUMBER, always character
245: IF (l_criteria_code = 'CONTRACT_NUMBER') THEN
246:
295: l_clause := ' AND ' ;
296: END IF;
297:
298: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
299: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_fmt_criteria1||', '||l_fmt_criteria2);
300: END IF;
301:
302:
303: IF (l_criteria_code IN ('BOOK_TYPE_CODE', 'DEPRN_METHOD_CODE', 'DATE_PLACED_IN_SERVICE')) THEN
481: WHERE request_name = p_request_name;
482:
483: BEGIN
484: IF (G_DEBUG_ENABLED = 'Y') THEN
485: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
486: END IF;
487: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
488: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
489: END IF;
484: IF (G_DEBUG_ENABLED = 'Y') THEN
485: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
486: END IF;
487: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
488: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
489: END IF;
490:
491: OPEN req_csr (p_request_name);
492: FETCH req_csr INTO l_dummy;
529: -- Run Dynamic SQL to get Contracts
530: --
531:
532: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
533: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_statement);
534: END IF;
535: i := 0;
536: OPEN l_rbk_csr FOR l_statement;
537: LOOP
566: l_mstv_tbl(i).selected_flag := 'Y';
567: END LOOP;
568:
569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before selected contract insert');
571: END IF;
572:
573: okl_mst_pvt.insert_row(
574: p_api_version => 1.0,
586: raise get_contract_failed;
587: END IF;
588:
589: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
590: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After selected contract insert');
591: END IF;
592: END IF;
593:
594: RETURN;
638: WHERE parameter = 'NLS_DATE_FORMAT';
639: l_nls_date_format v$nls_parameters.VALUE%TYPE;
640: BEGIN
641: IF (G_DEBUG_ENABLED = 'Y') THEN
642: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
643: END IF;
644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
645: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
642: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
643: END IF;
644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
645: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
647: END IF;
648:
649: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
650: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req Lines: '||p_mrbv_tbl.COUNT);
646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
647: END IF;
648:
649: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
650: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req Lines: '||p_mrbv_tbl.COUNT);
651: END IF;
652:
653: l_set_value_present:= 'N';
654: OPEN get_nls_date_format;
881: x_mrbv_tbl mrbv_tbl_type;
882:
883: BEGIN
884: IF (G_DEBUG_ENABLED = 'Y') THEN
885: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
886: END IF;
887: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
889: END IF;
884: IF (G_DEBUG_ENABLED = 'Y') THEN
885: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
886: END IF;
887: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
889: END IF;
890: -- call START_ACTIVITY to create savepoint, check compatibility
891: -- and initialize message list
892: x_return_status := OKL_API.START_ACTIVITY(
939: raise OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
942: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
944: END IF;
945: --
946: -- Get Selected Contracts
947: --
963: raise OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
968: END IF;
969:
970: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
971: x_msg_data => x_msg_data);
1030: x_mrbv_tbl mrbv_tbl_type;
1031:
1032: BEGIN
1033: IF (G_DEBUG_ENABLED = 'Y') THEN
1034: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1035: END IF;
1036: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1037: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1038: END IF;
1033: IF (G_DEBUG_ENABLED = 'Y') THEN
1034: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1035: END IF;
1036: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1037: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1038: END IF;
1039: -- call START_ACTIVITY to create savepoint, check compatibility
1040: -- and initialize message list
1041: x_return_status := OKL_API.START_ACTIVITY(
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1091: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1092: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
1093: END IF;
1094: --
1095: -- Get Selected Contracts
1096: --
1111: raise OKL_API.G_EXCEPTION_ERROR;
1112: END IF;
1113:
1114: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1115: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
1116: END IF;
1117:
1118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1119: x_msg_data => x_msg_data);
1195: x_mstv_tbl mstv_tbl_type;
1196: i NUMBER := 0;
1197: BEGIN
1198: IF (G_DEBUG_ENABLED = 'Y') THEN
1199: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1200: END IF;
1201:
1202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1203:
1248: EXCEPTION
1249: WHEN OTHERS THEN
1250: -- store SQL error message on message stack for caller
1251: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1252: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'WHEN OTHERS occurred');
1253: END IF;
1254: OKL_API.set_message(
1255: G_APP_NAME,
1256: G_UNEXPECTED_ERROR,
1293: x_clev_tbl clev_tbl_type;
1294:
1295: BEGIN
1296: IF (G_DEBUG_ENABLED = 'Y') THEN
1297: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1298: END IF;
1299:
1300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1301:
1299:
1300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1301:
1302: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1303: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1304: END IF;
1305:
1306: FOR i IN 1..p_kle_tbl.COUNT
1307: LOOP
1444: l_legal_entity_id NUMBER;
1445:
1446: BEGIN
1447: IF (G_DEBUG_ENABLED = 'Y') THEN
1448: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1449: END IF;
1450:
1451: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1449: END IF;
1450:
1451: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1454: END IF;
1455:
1456: OPEN try_csr ('Rebook');
1457: FETCH try_csr INTO l_try_id;
1625: l_adpv_tbl(l_tax_count).deprn_method_tax := p_deprn_method_code;
1626: END IF;
1627:
1628: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Life in months: '||l_adpv_tbl(l_tax_count).life_in_months_tax);
1630: END IF;
1631:
1632: IF (p_adjusted_rate IS NOT NULL) THEN
1633: l_adpv_tbl(l_tax_count).deprn_rate_tax := p_adjusted_rate;
1735: update_failed EXCEPTION;
1736:
1737: BEGIN
1738: IF (G_DEBUG_ENABLED = 'Y') THEN
1739: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1740: END IF;
1741:
1742: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1743: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1740: END IF;
1741:
1742: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1743: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1744: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1745: END IF;
1746:
1747: FOR i IN 1..p_kle_tbl.COUNT
1748: LOOP
1755: AND
1756: p_kle_tbl(i).id = p_strm_lalevl_tbl(j).cle_id) THEN
1757:
1758: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1759: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KLE ID: '||p_strm_lalevl_tbl(j).cle_id);
1760: END IF;
1761:
1762: l_match_found := 'Y';
1763: IF (p_strm_lalevl_tbl(j).rule_information_category = 'LASLH') THEN
1773: l_rgpv_rec.cle_id := p_strm_lalevl_tbl(j).cle_id;
1774: l_rgpv_rec.rgp_type := 'KRG';
1775:
1776: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1777: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Rule group creation');
1778: END IF;
1779: OKL_RULE_PUB.create_rule_group(
1780: p_api_version => 1.0,
1781: p_init_msg_list => OKL_API.G_FALSE,
1790: END IF;
1791: l_rgp_id := x_rgpv_rec.id;
1792:
1793: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1794: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rule Group Created');
1795: END IF;
1796: END IF;
1797:
1798: CLOSE rgp_csr;
1805:
1806: IF (l_slh_id IS NOT NULL) THEN -- delete rules (SLH, SLL)
1807:
1808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside delete rule');
1810: END IF;
1811: l_rulv_rec.id := l_slh_id;
1812: okl_rule_pub.delete_rule(
1813: p_api_version => 1.0,
1821: RAISE update_failed;
1822: END IF;
1823:
1824: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH deleted');
1826: END IF;
1827: k := 0;
1828: FOR sll_rec IN sll_csr(p_khr_id,
1829: l_slh_id,
1844: RAISE update_failed;
1845: END IF;
1846:
1847: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1848: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL deleted');
1849: END IF;
1850: END IF;
1851:
1852: l_slh_rulv_rec.object1_id1 := p_strm_lalevl_tbl(j).object1_id1;
1883: l_slh_rulv_rec.object3_id1 := p_strm_lalevl_tbl(j).object3_id1;
1884: l_slh_rulv_rec.object3_id2 := p_strm_lalevl_tbl(j).object3_id2;
1885:
1886: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before SLH creation');
1888: END IF;
1889:
1890: Okl_Rule_Pub.create_rule(
1891: p_api_version => 1.0,
1897: x_rulv_rec => x_slh_rulv_rec
1898: );
1899:
1900: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1901: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH status: '||x_return_status);
1902: END IF;
1903:
1904: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1905: RAISE update_failed;
1905: RAISE update_failed;
1906: END IF;
1907:
1908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH rule created');
1910: END IF;
1911:
1912: ELSIF (p_strm_lalevl_tbl(j).rule_information_category = 'LASLL') THEN
1913:
1970: RAISE update_failed;
1971: END IF;
1972:
1973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL rule created');
1975: END IF;
1976:
1977: END IF;
1978:
1982:
1983: EXCEPTION
1984: WHEN update_failed THEN
1985: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1986: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_slh_sll');
1987: END IF;
1988: x_return_status := OKL_API.G_RET_STS_ERROR;
1989: --raise; -- handle error in called routine
1990: END update_slh_sll;
2060: update_failed EXCEPTION;
2061:
2062: BEGIN
2063: IF (G_DEBUG_ENABLED = 'Y') THEN
2064: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2065: END IF;
2066:
2067: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2065: END IF;
2066:
2067: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2070: END IF;
2071:
2072: FOR i IN 1..p_kle_tbl.COUNT
2073: LOOP
2081: AND
2082: p_kle_tbl(i).id = p_strm_lalevl_tbl(j).cle_id) THEN
2083:
2084: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2085: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KLE ID: '||p_strm_lalevl_tbl(j).cle_id);
2086: END IF;
2087:
2088: l_match_found := 'Y';
2089: IF (p_strm_lalevl_tbl(j).rule_information_category = 'LASLH') THEN
2103: RAISE update_failed;
2104: END IF;
2105:
2106: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL rule created');
2108: END IF;
2109: l_previous_lasll_exists := FALSE;
2110: l_sll_rulv_tbl.DELETE; -- Bug# 2754344
2111:
2122: l_rgpv_rec.cle_id := p_strm_lalevl_tbl(j).cle_id;
2123: l_rgpv_rec.rgp_type := 'KRG';
2124:
2125: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Rule group creation');
2127: END IF;
2128: OKL_RULE_PUB.create_rule_group(
2129: p_api_version => 1.0,
2130: p_init_msg_list => OKL_API.G_FALSE,
2139: END IF;
2140: l_rgp_id := x_rgpv_rec.id;
2141:
2142: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rule Group Created');
2144: END IF;
2145: END IF;
2146:
2147: CLOSE rgp_csr;
2154:
2155: IF (l_slh_id IS NOT NULL) THEN -- delete rules (SLH, SLL)
2156:
2157: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside delete rule');
2159: END IF;
2160: l_rulv_rec.id := l_slh_id;
2161: okl_rule_pub.delete_rule(
2162: p_api_version => 1.0,
2170: RAISE update_failed;
2171: END IF;
2172:
2173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH deleted');
2175: END IF;
2176: k := 0;
2177: FOR sll_rec IN sll_csr(p_khr_id,
2178: l_slh_id,
2193: RAISE update_failed;
2194: END IF;
2195:
2196: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2197: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL deleted');
2198: END IF;
2199: END IF;
2200:
2201: l_slh_rulv_rec.object1_id1 := p_strm_lalevl_tbl(j).object1_id1;
2232: l_slh_rulv_rec.object3_id1 := p_strm_lalevl_tbl(j).object3_id1;
2233: l_slh_rulv_rec.object3_id2 := p_strm_lalevl_tbl(j).object3_id2;
2234:
2235: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2236: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before SLH creation');
2237: END IF;
2238:
2239: Okl_Rule_Pub.create_rule(
2240: p_api_version => 1.0,
2246: x_rulv_rec => x_slh_rulv_rec
2247: );
2248:
2249: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2250: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH status: '||x_return_status);
2251: END IF;
2252:
2253: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
2254: RAISE update_failed;
2254: RAISE update_failed;
2255: END IF;
2256:
2257: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2258: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH rule created');
2259: END IF;
2260:
2261: ELSIF (p_strm_lalevl_tbl(j).rule_information_category = 'LASLL') THEN
2262:
2320: RAISE update_failed;
2321: END IF;
2322:
2323: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2324: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL rule created');
2325: END IF;
2326:
2327: END IF;
2328:
2332:
2333: EXCEPTION
2334: WHEN update_failed THEN
2335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_ppd_amount');
2337: END IF;
2338: x_return_status := OKL_API.G_RET_STS_ERROR;
2339: NULL; -- handle error in called routine
2340: --raise;
2455: --ndani - 20-Mar-2013, End - Mass Rebook accounting fix
2456:
2457: BEGIN
2458: IF (G_DEBUG_ENABLED = 'Y') THEN
2459: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2460: END IF;
2461:
2462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2459: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2460: END IF;
2461:
2462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2464: END IF;
2465:
2466: IF (p_transaction_date IS NULL
2467: OR
2472: l_transaction_date := p_transaction_date;
2473: END IF;
2474:
2475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2480: END IF;
2473: END IF;
2474:
2475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2480: END IF;
2481:
2474:
2475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2480: END IF;
2481:
2482: g_stream_trx_number := NULL; -- initialize before start
2475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2480: END IF;
2481:
2482: g_stream_trx_number := NULL; -- initialize before start
2483:
2510: l_mstv_rec.status := 'NEW';
2511: l_mstv_rec.transaction_date := l_transaction_date;
2512:
2513: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2514: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req: '||l_mstv_rec.request_name);
2515: END IF;
2516: okl_mst_pvt.insert_row(
2517: p_api_version => 1.0,
2518: p_init_msg_list => OKL_API.G_FALSE,
2526: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2527: RAISE rebook_contract_failed;
2528: END IF;
2529: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2530: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line ID: '||p_kle_tbl(i).id);
2531: END IF;
2532: END LOOP;
2533:
2534: ELSE
2535: l_request_name := p_request_name;
2536: END IF;
2537:
2538: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2539: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Versioning...');
2540: END IF;
2541: --
2542: -- Version the Original Contract, only if it is ACTIVE, OKC requirement
2543: --
2562: RAISE rebook_contract_failed;
2563: END IF;
2564:
2565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract is versioned: '||x_return_status);
2567: END IF;
2568: END IF;
2569: END LOOP;
2570:
2568: END IF;
2569: END LOOP;
2570:
2571: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2572: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Versioning of Contract');
2573: END IF;
2574: -- Create Transaction for the rebook-ed contract
2575:
2576: okl_transaction_pvt.create_transaction(
2592: RAISE rebook_contract_failed;
2593: END IF;
2594:
2595: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2596: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Status After create transaction: '||x_return_status);
2597: END IF;
2598:
2599: l_mstv_tbl := get_rec(l_request_name, p_khr_id, x_return_status);
2600:
2598:
2599: l_mstv_tbl := get_rec(l_request_name, p_khr_id, x_return_status);
2600:
2601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after get_rec : '||x_return_status);
2603: END IF;
2604: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2605: RAISE rebook_contract_failed;
2606: END IF;
2609: LOOP
2610: l_mstv_tbl(i).transaction_id := x_tcnv_rec.id;
2611: l_mstv_tbl(i).status := 'UNDER REVISION';
2612: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID : '|| l_mstv_tbl(i).id);
2614: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'TRX ID : '|| l_mstv_tbl(i).transaction_id);
2615: END IF;
2616: END LOOP;
2617:
2610: l_mstv_tbl(i).transaction_id := x_tcnv_rec.id;
2611: l_mstv_tbl(i).status := 'UNDER REVISION';
2612: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID : '|| l_mstv_tbl(i).id);
2614: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'TRX ID : '|| l_mstv_tbl(i).transaction_id);
2615: END IF;
2616: END LOOP;
2617:
2618: okl_mst_pvt.update_row(
2625: x_mstv_tbl => x_mstv_tbl
2626: );
2627:
2628: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after update mst :'|| x_return_status);
2630: END IF;
2631: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2632: RAISE rebook_contract_failed;
2633: END IF;
2653: x_tcnv_rec => x_tcnv_rec
2654: );
2655:
2656: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2658: END IF;
2659: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2661: END IF;
2662:
2663: END IF;
2664: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2665: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after first loop ');
2666: END IF;
2667:
2668: --DEBUG
2669: -- PPD specific logic here
2688: x_tcnv_rec => x_tcnv_rec
2689: );
2690:
2691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2693: END IF;
2694: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2695: RAISE OKL_API.G_EXCEPTION_ERROR;
2696: END IF;
2697:
2698: END IF;
2699:
2700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after second loop ');
2702: END IF;
2703: --
2704: -- Fix Bug# 2894810
2705: -- Create reversal journal entries before
2707: -- successfully reverse the current JE
2708: --
2709:
2710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction date: '||l_transaction_date);
2712: END IF;
2713: -- Bug#4542290 - smadhava - 01-SEP-2005 - Added - Start
2714: -- Bypass accoutning call for source transaction = Loan/Principal Pay down or Partial termination
2715: IF ( G_PPD_TRX_ID IS NULL AND G_TERMINATION_TRX_ID IS NULL ) THEN
2758: x_msg_data => x_msg_data
2759: );
2760:
2761: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2762: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2763: END IF;
2764: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2765: RAISE rebook_contract_failed;
2766: END IF;
2786: x_msg_data => x_msg_data
2787: );
2788:
2789: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2790: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2791: END IF;
2792: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2793: RAISE rebook_contract_failed;
2794: END IF;
2821: p_transaction_date => l_transaction_date
2822: );
2823:
2824: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after populate asset change ');
2826: END IF;
2827: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2828: RAISE rebook_contract_failed;
2829: END IF;
2848: --
2849: -- Update SLH, SLL if provided, only for Non-OnLine process
2850: --
2851: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2852: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling update_ppd_amount');
2853: END IF;
2854: IF (p_online_yn = 'N'
2855: AND
2856: p_strm_lalevl_tbl.COUNT > 0) THEN
2874: );
2875: END IF;
2876:
2877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2878: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after calling update_ppd_amount');
2879: END IF;
2880: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2881: RAISE rebook_contract_failed;
2882: END IF;
2919: x_qcl_id => l_qcl_id
2920: );
2921:
2922: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2923: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Running QA Checker...');
2924: END IF;
2925: l_qa_check_status := 'S';
2926: okl_contract_book_pub.execute_qa_check_list(
2927: p_api_version => 1.0,
2936:
2937: FOR i IN 1..l_msg_tbl.LAST
2938: LOOP
2939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2942: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2944: END IF;
2937: FOR i IN 1..l_msg_tbl.LAST
2938: LOOP
2939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2942: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2944: END IF;
2945:
2938: LOOP
2939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2942: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2944: END IF;
2945:
2946: IF (l_msg_tbl(i).error_status = 'E') THEN
2939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2942: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2944: END IF;
2945:
2946: IF (l_msg_tbl(i).error_status = 'E') THEN
2947: l_qa_check_status := 'E';
2948: END IF;
2949: END LOOP;
2950:
2951: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2952: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After 1st Qa Checker '|| l_qa_check_status);
2953: END IF;
2954:
2955: IF (l_qa_check_status <> 'S') THEN
2956: RAISE rebook_contract_failed;
2975: END IF;
2976:
2977: -- Generate Stream
2978: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2979: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Submitting Request to generate Streams....');
2980: END IF;
2981: -- Changed to handle internal and external streams as well
2982: -- Fix Bug#
2983: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
2998: RAISE rebook_contract_failed;
2999: END IF;
3000:
3001: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3002: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stream Status :'||x_return_status);
3003: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Trx# : '||x_trx_number);
3004: END IF;
3005:
3006: g_stream_trx_number := x_trx_number;
2999: END IF;
3000:
3001: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3002: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stream Status :'||x_return_status);
3003: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Trx# : '||x_trx_number);
3004: END IF;
3005:
3006: g_stream_trx_number := x_trx_number;
3007:
3010: EXCEPTION
3011:
3012: WHEN rebook_contract_failed THEN
3013: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3014: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
3015: END IF;
3016: g_stream_trx_number := NULL;
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: --raise; -- propagate error to caller
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: --raise; -- propagate error to caller
3019: WHEN others THEN
3020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
3022: END IF;
3023: g_stream_trx_number := NULL;
3024: x_return_status := OKL_API.G_RET_STS_ERROR;
3025: --raise; -- propagate error to caller
3061: update_failed EXCEPTION;
3062:
3063: BEGIN
3064: IF (G_DEBUG_ENABLED = 'Y') THEN
3065: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3066: END IF;
3067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3069: END IF;
3064: IF (G_DEBUG_ENABLED = 'Y') THEN
3065: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3066: END IF;
3067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3069: END IF;
3070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3071:
3072: -- call START_ACTIVITY to create savepoint, check compatibility
3090: l_upd_count := 1;
3091: FOR i IN 1..p_mstv_tbl.COUNT
3092: LOOP
3093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
3095: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
3096: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
3097: END IF;
3098:
3091: FOR i IN 1..p_mstv_tbl.COUNT
3092: LOOP
3093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
3095: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
3096: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
3097: END IF;
3098:
3099: FOR rbk_rec IN rbk_csr(p_mstv_tbl(i).request_name,
3092: LOOP
3093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
3095: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
3096: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
3097: END IF;
3098:
3099: FOR rbk_rec IN rbk_csr(p_mstv_tbl(i).request_name,
3100: p_mstv_tbl(i).khr_id)
3100: p_mstv_tbl(i).khr_id)
3101: LOOP
3102: l_mstv_upd_tbl(l_upd_count).id := rbk_rec.id;
3103: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||l_mstv_upd_tbl(l_upd_count).id);
3105: END IF;
3106: --insert into dd_dummy values (3.1, 'ID: '||l_mstv_upd_tbl(l_upd_count).id);
3107: l_mstv_upd_tbl(l_upd_count).selected_flag := p_mstv_tbl(i).selected_flag;
3108: l_mstv_upd_tbl(l_upd_count).status := p_mstv_tbl(i).status;
3324: l_alt_purchase BOOLEAN := FALSE;
3325:
3326: BEGIN
3327: IF (G_DEBUG_ENABLED = 'Y') THEN
3328: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3329: END IF;
3330:
3331: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3332:
3556: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3557: RAISE secu_failed;
3558: END IF;
3559: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Present Value Disbursement streams');
3561: END IF;
3562:
3563: --
3564: -- Generate Investor accrual streams
3691: l_trxnum_init_tbl OKL_GENERATE_ACCRUALS_PVT.trxnum_tbl_type;
3692:
3693: BEGIN
3694: IF (G_DEBUG_ENABLED = 'Y') THEN
3695: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3696: END IF;
3697:
3698: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3699: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3695: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3696: END IF;
3697:
3698: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3699: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3700: END IF;
3701: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3702:
3703: -- call START_ACTIVITY to create savepoint, check compatibility
3740: -- Process after Yield for this contract
3741: --
3742: --debug_message('Submit for Approval...');
3743: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3744: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Approve Contract...');
3745: END IF;
3746: --Bug# 2566822 : Integration with AME/WF for approval
3747: --okl_contract_book_pub.submit_for_approval(
3748: okl_contract_book_pvt.approve_contract(
3802: -- Bug# 4398936
3803:
3804: --insert into dd_dummy values (2, 'Approval Done');
3805: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Submit for Activation ...');
3807: END IF;
3808:
3809: okl_contract_book_pub.activate_contract(
3810: p_api_version => p_api_version,
3840: END IF;
3841:
3842: --insert into dd_dummy values (3, 'Activation Done');
3843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Activation Done');
3845: END IF;
3846:
3847: -- Bug# 4775555: Start
3848: --
3848: --
3849: -- Create Investor Disbursement Adjustment
3850: --
3851: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3852: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call create_inv_disb_adjustment');
3853: END IF;
3854: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
3855: p_api_version => p_api_version,
3856: p_init_msg_list => p_init_msg_list,
3859: x_msg_data => x_msg_data,
3860: p_orig_khr_id => p_chr_id
3861: );
3862: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3864: END IF;
3865:
3866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: --
3964: -- Create Investor Accrual Adjustment
3965: --
3966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment');
3968: END IF;
3969: OKL_CONTRACT_REBOOK_PVT.calc_inv_acc_adjustment(
3970: p_api_version => p_api_version,
3971: p_init_msg_list => p_init_msg_list,
3979: x_inv_stream_tbl => l_inv_stream_tbl
3980: );
3981:
3982: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3983: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3984: END IF;
3985:
3986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3987: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4015:
4016: -- MGAAP start 7263041
4017: IF (l_multi_gaap_yn = 'Y') THEN
4018: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment for SECONDARY');
4020: END IF;
4021:
4022: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4023: OKL_CONTRACT_REBOOK_PVT.calc_inv_acc_adjustment(
4036:
4037: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4038:
4039: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
4041: END IF;
4042:
4043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4044: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4078: FOR parent_trx_rec IN parent_trx_csr (l_rbk_transaction_id)
4079: LOOP
4080:
4081: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4082: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Source Trx ID: '|| parent_trx_rec.source_trx_id);
4083: END IF;
4084:
4085: IF (parent_trx_rec.source_trx_id IS NOT NULL) THEN
4086:
4104: l_am_tcnv_rec.id := parent_trx_rec.source_trx_id;
4105: l_am_tcnv_rec.tsu_code := 'PROCESSED';
4106:
4107: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
4109: END IF;
4110:
4111: Okl_Trx_Contracts_Pub.update_trx_contracts(
4112: p_api_version => l_api_version,
4118: x_tcnv_rec => x_am_tcnv_rec
4119: );
4120:
4121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4123: END IF;
4124:
4125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4130:
4131: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4132:
4133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
4135: END IF;
4136: OKL_CS_PRINCIPAL_PAYDOWN_PUB.cancel_ppd(
4137: p_api_version => 1.0,
4138: p_init_msg_list => OKL_API.G_FALSE,
4141: x_msg_data => x_msg_data,
4142: p_khr_id => p_chr_id
4143: );
4144: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel PPD : '||x_return_status);
4146: END IF;
4147:
4148: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4149:
4162: l_am_tcnv_rec.tmt_status_code := 'PROCESSED';
4163: l_am_tcnv_rec.tmt_contract_updated_yn := 'Y';
4164:
4165: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4166: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
4167: END IF;
4168:
4169: Okl_Trx_Contracts_Pub.update_trx_contracts(
4170: p_api_version => l_api_version,
4176: x_tcnv_rec => x_am_tcnv_rec
4177: );
4178:
4179: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4181: END IF;
4182:
4183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4184: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4191: -- Bug 4556370
4192: -- Cancel Termination Quote, if any
4193: --
4194: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4195: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel Termination : '||x_return_status);
4196: END IF;
4197: OKL_AM_INTEGRATION_PVT.cancel_termination_quotes (
4198: p_api_version => 1.0,
4199: p_init_msg_list => OKL_API.G_FALSE,
4204: x_msg_count => x_msg_count,
4205: x_msg_data => x_msg_data
4206: );
4207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel Termination : '||x_return_status);
4209: END IF;
4210:
4211: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4212:
4240: );
4241:
4242:
4243: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4245: END IF;
4246:
4247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4265: x_tcnv_rec => x_tcnv_rec
4266: );
4267:
4268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4270: END IF;
4271:
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4273: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4349: p_api_type => G_API_TYPE);
4350:
4351: when OTHERS then
4352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4354: END IF;
4355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4356: p_api_name => l_api_name,
4357: p_pkg_name => G_PKG_NAME,
4405: not_to_process EXCEPTION;
4406:
4407: BEGIN
4408: IF (G_DEBUG_ENABLED = 'Y') THEN
4409: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4410: END IF;
4411:
4412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4409: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4410: END IF;
4411:
4412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4414: END IF;
4415: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4416:
4417: -- call START_ACTIVITY to create savepoint, check compatibility
4512: p_api_type => G_API_TYPE);
4513:
4514: when OTHERS then
4515: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4516: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4517: END IF;
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4519: p_api_name => l_api_name,
4520: p_pkg_name => G_PKG_NAME,
4557: cancel_failed EXCEPTION;
4558:
4559: BEGIN
4560: IF (G_DEBUG_ENABLED = 'Y') THEN
4561: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4562: END IF;
4563:
4564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4562: END IF;
4563:
4564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4567: END IF;
4568:
4569: FOR trx_rec IN trx_csr (p_chr_id)
4570: LOOP
4590: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4591: RAISE cancel_failed;
4592: END IF;
4593: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4594: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After mass rebook trx update: '||x_return_status);
4595: END IF;
4596:
4597: l_tcnv_rec.id := trx_rec.transaction_id;
4598: l_tcnv_rec.tsu_code := 'CANCELED';
4611: RAISE cancel_failed;
4612: END IF;
4613:
4614: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4615: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After trx update: '||x_return_status);
4616: END IF;
4617:
4618: END LOOP;
4619:
4712:
4713: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4714: BEGIN
4715: IF (G_DEBUG_ENABLED = 'Y') THEN
4716: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4717: END IF;
4718:
4719: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4720: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4716: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4717: END IF;
4718:
4719: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4720: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4721: END IF;
4722:
4723: -- call START_ACTIVITY to create savepoint, check compatibility
4724: -- and initialize message list
5020: l_kle_tbl kle_tbl_type;
5021:
5022: BEGIN
5023: IF (G_DEBUG_ENABLED = 'Y') THEN
5024: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5025: END IF;
5026:
5027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5024: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5025: END IF;
5026:
5027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5029: END IF;
5030: -- call START_ACTIVITY to create savepoint, check compatibility
5031: -- and initialize message list
5032: x_return_status := OKL_API.START_ACTIVITY(
5045: raise OKL_API.G_EXCEPTION_ERROR;
5046: END IF;
5047:
5048: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5049: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5050: END IF;
5051:
5052: IF (p_rbk_tbl.COUNT > 0 ) THEN
5053: l_line_count := 0;
5055: l_prev_contract_id := G_INIT_NUMBER;
5056: FOR i IN 1..p_rbk_tbl.COUNT
5057: LOOP
5058: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5059: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
5060: END IF;
5061: l_contract_count := l_contract_count + 1;
5062: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5063: OR
5114: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5115: );
5116:
5117: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5118: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5119: END IF;
5120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5121: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5124: END IF;
5125:
5126: ELSE
5127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5129: END IF;
5130: x_return_status := OKL_API.G_RET_STS_ERROR;
5131: RAISE OKL_API.G_EXCEPTION_ERROR;
5132: END IF;
5204: l_kle_tbl kle_tbl_type;
5205:
5206: BEGIN
5207: IF (G_DEBUG_ENABLED = 'Y') THEN
5208: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5209: END IF;
5210:
5211: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5208: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5209: END IF;
5210:
5211: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5213: END IF;
5214: -- call START_ACTIVITY to create savepoint, check compatibility
5215: -- and initialize message list
5216: x_return_status := OKL_API.START_ACTIVITY(
5230: END IF;
5231:
5232:
5233: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5235: END IF;
5236:
5237: IF (p_rbk_tbl.COUNT > 0 ) THEN
5238: l_line_count := 0;
5240: l_prev_contract_id := G_INIT_NUMBER;
5241: FOR i IN 1..p_rbk_tbl.COUNT
5242: LOOP
5243: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
5245: END IF;
5246: l_contract_count := l_contract_count + 1;
5247: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5248: OR
5305: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5306: );
5307:
5308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5310: END IF;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5319: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5320:
5321: ELSE
5322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5324: END IF;
5325: x_return_status := OKL_API.G_RET_STS_ERROR;
5326: RAISE OKL_API.G_EXCEPTION_ERROR;
5327: END IF;
5403: l_kle_tbl kle_tbl_type;
5404:
5405: BEGIN
5406: IF (G_DEBUG_ENABLED = 'Y') THEN
5407: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5408: END IF;
5409:
5410: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5411: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5407: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5408: END IF;
5409:
5410: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5411: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5412: END IF;
5413: -- call START_ACTIVITY to create savepoint, check compatibility
5414: -- and initialize message list
5415: x_return_status := OKL_API.START_ACTIVITY(
5429: END IF;
5430:
5431:
5432: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5433: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5434: END IF;
5435:
5436: IF (p_rbk_tbl.COUNT > 0 ) THEN
5437: l_line_count := 0;
5439: l_prev_contract_id := G_INIT_NUMBER;
5440: FOR i IN 1..p_rbk_tbl.COUNT
5441: LOOP
5442: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5443: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
5444: END IF;
5445: l_contract_count := l_contract_count + 1;
5446: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5447: OR
5506: p_transaction_date => p_transaction_date
5507: );
5508:
5509: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5511: END IF;
5512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5513: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5520: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5521:
5522: ELSE
5523: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5524: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5525: END IF;
5526: x_return_status := OKL_API.G_RET_STS_ERROR;
5527: RAISE OKL_API.G_EXCEPTION_ERROR;
5528: END IF;
5607: x_tcnv_rec tcnv_rec_type;
5608:
5609: BEGIN
5610: IF (G_DEBUG_ENABLED = 'Y') THEN
5611: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5612: END IF;
5613:
5614: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5615: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5611: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5612: END IF;
5613:
5614: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5615: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5616: END IF;
5617: -- call START_ACTIVITY to create savepoint, check compatibility
5618: -- and initialize message list
5619: x_return_status := OKL_API.START_ACTIVITY(
5632: raise OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5637: END IF;
5638:
5639: IF (p_rbk_tbl.COUNT > 0 ) THEN
5640: l_line_count := 0;
5642: l_prev_contract_id := G_INIT_NUMBER;
5643: FOR i IN 1..p_rbk_tbl.COUNT
5644: LOOP
5645: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Contract# :'||p_rbk_tbl(i).contract_number);
5647: END IF;
5648: l_contract_count := l_contract_count + 1;
5649: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5650: OR
5665: p_chr_id => l_contract_id
5666: );
5667:
5668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5670: END IF;
5671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5672: raise OKL_API.G_EXCEPTION_ERROR;
5673: END IF;
5697: p_residual_value => p_residual_value,
5698: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5699: );
5700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5702: END IF;
5703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5704: raise OKL_API.G_EXCEPTION_ERROR;
5705: END IF;
5723: p_chr_id => l_contract_id
5724: );
5725:
5726: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5728: END IF;
5729: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5730: raise OKL_API.G_EXCEPTION_ERROR;
5731: END IF;
5756: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5757: );
5758:
5759: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5760: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5761: END IF;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5768: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5769:
5770: ELSE
5771: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5773: END IF;
5774: x_return_status := OKL_API.G_RET_STS_ERROR;
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5854: x_tcnv_rec tcnv_rec_type;
5855:
5856: BEGIN
5857: IF (G_DEBUG_ENABLED = 'Y') THEN
5858: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5859: END IF;
5860:
5861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5858: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5859: END IF;
5860:
5861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5863: END IF;
5864: -- call START_ACTIVITY to create savepoint, check compatibility
5865: -- and initialize message list
5866: x_return_status := OKL_API.START_ACTIVITY(
5879: raise OKL_API.G_EXCEPTION_ERROR;
5880: END IF;
5881:
5882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5884: END IF;
5885:
5886: IF (p_rbk_tbl.COUNT > 0 ) THEN
5887: l_line_count := 0;
5889: l_prev_contract_id := G_INIT_NUMBER;
5890: FOR i IN 1..p_rbk_tbl.COUNT
5891: LOOP
5892: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Contract# :'||p_rbk_tbl(i).contract_number);
5894: END IF;
5895: l_contract_count := l_contract_count + 1;
5896: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5897: OR
5912: p_chr_id => l_contract_id
5913: );
5914:
5915: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5916: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5917: END IF;
5918: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5919: raise OKL_API.G_EXCEPTION_ERROR;
5920: END IF;
5945: p_strm_lalevl_tbl => p_strm_lalevl_tbl,
5946: p_transaction_date => p_transaction_date
5947: );
5948: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5949: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5950: END IF;
5951: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5952: raise OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5971: p_chr_id => l_contract_id
5972: );
5973:
5974: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5976: END IF;
5977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5978: raise OKL_API.G_EXCEPTION_ERROR;
5979: END IF;
6005: p_transaction_date => p_transaction_date
6006: );
6007:
6008: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6010: END IF;
6011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6012: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6017: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6018:
6019: ELSE
6020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
6022: END IF;
6023: x_return_status := OKL_API.G_RET_STS_ERROR;
6024: RAISE OKL_API.G_EXCEPTION_ERROR;
6025: END IF;
6100: l_strm_lalevl_tbl strm_lalevl_tbl_type; /* DEBUG */
6101:
6102: BEGIN
6103: IF (G_DEBUG_ENABLED = 'Y') THEN
6104: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6105: END IF;
6106:
6107: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6104: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6105: END IF;
6106:
6107: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6109: END IF;
6110: -- call START_ACTIVITY to create savepoint, check compatibility
6111: -- and initialize message list
6112: x_return_status := OKL_API.START_ACTIVITY(
6137: p_chr_id => p_chr_id
6138: );
6139:
6140: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6142: END IF;
6143: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6144: raise OKL_API.G_EXCEPTION_ERROR;
6145: END IF;
6153:
6154: --okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
6155:
6156: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling rebook contract...');
6158: END IF;
6159: l_line_count := p_kle_tbl.COUNT;
6160: rebook_contract(
6161: x_return_status => x_return_status,
6177: p_transaction_date => p_transaction_date
6178: );
6179:
6180: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6183: END IF;
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6178: );
6179:
6180: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6183: END IF;
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6183: END IF;
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6192: END IF;
6193: raise OKL_API.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6210: x_msg_count => x_msg_count,
6211: x_msg_data => x_msg_data,
6212: p_api_type => G_API_TYPE);
6213: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6215: END IF;
6216:
6217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6261: l_set_value_present VARCHAR2(1) := 'N';
6262:
6263: BEGIN
6264: IF (G_DEBUG_ENABLED = 'Y') THEN
6265: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6266: END IF;
6267: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6268: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6269: END IF;
6264: IF (G_DEBUG_ENABLED = 'Y') THEN
6265: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6266: END IF;
6267: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6268: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6269: END IF;
6270: -- call START_ACTIVITY to create savepoint, check compatibility
6271: -- and initialize message list
6272: x_return_status := OKL_API.START_ACTIVITY(
6393: x_msg_count => x_msg_count,
6394: x_msg_data => x_msg_data,
6395: p_api_type => G_API_TYPE);
6396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6398: END IF;
6399:
6400: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(