[Home] [Help]
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;
2413: l_upfront_tax_status VARCHAR2(1) := 'S';
2414:
2415: BEGIN
2416: IF (G_DEBUG_ENABLED = 'Y') THEN
2417: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2418: END IF;
2419:
2420: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2417: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2418: END IF;
2419:
2420: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2422: END IF;
2423:
2424: IF (p_transaction_date IS NULL
2425: OR
2430: l_transaction_date := p_transaction_date;
2431: END IF;
2432:
2433: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2435: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2437: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2438: END IF;
2431: END IF;
2432:
2433: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2435: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2437: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2438: END IF;
2439:
2432:
2433: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2435: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2437: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2438: END IF;
2439:
2440: g_stream_trx_number := NULL; -- initialize before start
2433: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract : '||p_khr_id);
2435: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Tot Line : '||p_line_count);
2436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Online? :' ||p_online_yn);
2437: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction Date :' ||l_transaction_date);
2438: END IF;
2439:
2440: g_stream_trx_number := NULL; -- initialize before start
2441:
2449: l_mstv_rec.status := 'NEW';
2450: l_mstv_rec.transaction_date := l_transaction_date;
2451:
2452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req: '||l_mstv_rec.request_name);
2454: END IF;
2455: okl_mst_pvt.insert_row(
2456: p_api_version => 1.0,
2457: p_init_msg_list => OKL_API.G_FALSE,
2465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2466: RAISE rebook_contract_failed;
2467: END IF;
2468: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2469: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line ID: '||p_kle_tbl(i).id);
2470: END IF;
2471: END LOOP;
2472:
2473: ELSE
2474: l_request_name := p_request_name;
2475: END IF;
2476:
2477: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Versioning...');
2479: END IF;
2480: --
2481: -- Version the Original Contract, only if it is ACTIVE, OKC requirement
2482: --
2501: RAISE rebook_contract_failed;
2502: END IF;
2503:
2504: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2505: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract is versioned: '||x_return_status);
2506: END IF;
2507: END IF;
2508: END LOOP;
2509:
2507: END IF;
2508: END LOOP;
2509:
2510: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Versioning of Contract');
2512: END IF;
2513: -- Create Transaction for the rebook-ed contract
2514:
2515: okl_transaction_pvt.create_transaction(
2531: RAISE rebook_contract_failed;
2532: END IF;
2533:
2534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2535: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Status After create transaction: '||x_return_status);
2536: END IF;
2537:
2538: l_mstv_tbl := get_rec(l_request_name, p_khr_id, x_return_status);
2539:
2537:
2538: l_mstv_tbl := get_rec(l_request_name, p_khr_id, x_return_status);
2539:
2540: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2541: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after get_rec : '||x_return_status);
2542: END IF;
2543: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2544: RAISE rebook_contract_failed;
2545: END IF;
2548: LOOP
2549: l_mstv_tbl(i).transaction_id := x_tcnv_rec.id;
2550: l_mstv_tbl(i).status := 'UNDER REVISION';
2551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID : '|| l_mstv_tbl(i).id);
2553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'TRX ID : '|| l_mstv_tbl(i).transaction_id);
2554: END IF;
2555: END LOOP;
2556:
2549: l_mstv_tbl(i).transaction_id := x_tcnv_rec.id;
2550: l_mstv_tbl(i).status := 'UNDER REVISION';
2551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID : '|| l_mstv_tbl(i).id);
2553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'TRX ID : '|| l_mstv_tbl(i).transaction_id);
2554: END IF;
2555: END LOOP;
2556:
2557: okl_mst_pvt.update_row(
2564: x_mstv_tbl => x_mstv_tbl
2565: );
2566:
2567: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2568: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after update mst :'|| x_return_status);
2569: END IF;
2570: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2571: RAISE rebook_contract_failed;
2572: END IF;
2592: x_tcnv_rec => x_tcnv_rec
2593: );
2594:
2595: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2596: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2597: END IF;
2598: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2600: END IF;
2601:
2602: END IF;
2603: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2604: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after first loop ');
2605: END IF;
2606:
2607: --DEBUG
2608: -- PPD specific logic here
2627: x_tcnv_rec => x_tcnv_rec
2628: );
2629:
2630: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2632: END IF;
2633: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2637: END IF;
2638:
2639: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after second loop ');
2641: END IF;
2642: --
2643: -- Fix Bug# 2894810
2644: -- Create reversal journal entries before
2646: -- successfully reverse the current JE
2647: --
2648:
2649: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2650: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Transaction date: '||l_transaction_date);
2651: END IF;
2652: -- Bug#4542290 - smadhava - 01-SEP-2005 - Added - Start
2653: -- Bypass accoutning call for source transaction = Loan/Principal Pay down or Partial termination
2654: IF ( G_PPD_TRX_ID IS NULL AND G_TERMINATION_TRX_ID IS NULL ) THEN
2667: x_msg_data => x_msg_data
2668: );
2669:
2670: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2672: END IF;
2673: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2674: RAISE rebook_contract_failed;
2675: END IF;
2697: p_transaction_date => l_transaction_date
2698: );
2699:
2700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after populate asset change ');
2702: END IF;
2703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2704: RAISE rebook_contract_failed;
2705: END IF;
2724: --
2725: -- Update SLH, SLL if provided, only for Non-OnLine process
2726: --
2727: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2728: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling update_ppd_amount');
2729: END IF;
2730: IF (p_online_yn = 'N'
2731: AND
2732: p_strm_lalevl_tbl.COUNT > 0) THEN
2750: );
2751: END IF;
2752:
2753: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2754: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after calling update_ppd_amount');
2755: END IF;
2756: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2757: RAISE rebook_contract_failed;
2758: END IF;
2795: x_qcl_id => l_qcl_id
2796: );
2797:
2798: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2799: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Running QA Checker...');
2800: END IF;
2801: l_qa_check_status := 'S';
2802: okl_contract_book_pub.execute_qa_check_list(
2803: p_api_version => 1.0,
2812:
2813: FOR i IN 1..l_msg_tbl.LAST
2814: LOOP
2815: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2817: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2818: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2820: END IF;
2813: FOR i IN 1..l_msg_tbl.LAST
2814: LOOP
2815: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2817: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2818: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2820: END IF;
2821:
2814: LOOP
2815: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2817: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2818: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2820: END IF;
2821:
2822: IF (l_msg_tbl(i).error_status = 'E') THEN
2815: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Name : '||l_msg_tbl(i).name);
2817: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Description : '||l_msg_tbl(i).description);
2818: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Status: '||l_msg_tbl(i).error_status);
2819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Data : '||l_msg_tbl(i).data);
2820: END IF;
2821:
2822: IF (l_msg_tbl(i).error_status = 'E') THEN
2823: l_qa_check_status := 'E';
2824: END IF;
2825: END LOOP;
2826:
2827: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After 1st Qa Checker '|| l_qa_check_status);
2829: END IF;
2830:
2831: IF (l_qa_check_status <> 'S') THEN
2832: RAISE rebook_contract_failed;
2851: END IF;
2852:
2853: -- Generate Stream
2854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Submitting Request to generate Streams....');
2856: END IF;
2857: -- Changed to handle internal and external streams as well
2858: -- Fix Bug#
2859: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
2874: RAISE rebook_contract_failed;
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,'Stream Status :'||x_return_status);
2879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Trx# : '||x_trx_number);
2880: END IF;
2881:
2882: g_stream_trx_number := x_trx_number;
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,'Stream Status :'||x_return_status);
2879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Trx# : '||x_trx_number);
2880: END IF;
2881:
2882: g_stream_trx_number := x_trx_number;
2883:
2886: EXCEPTION
2887:
2888: WHEN rebook_contract_failed THEN
2889: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2890: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
2891: END IF;
2892: g_stream_trx_number := NULL;
2893: x_return_status := OKL_API.G_RET_STS_ERROR;
2894: --raise; -- propagate error to caller
2893: x_return_status := OKL_API.G_RET_STS_ERROR;
2894: --raise; -- propagate error to caller
2895: WHEN others THEN
2896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
2898: END IF;
2899: g_stream_trx_number := NULL;
2900: x_return_status := OKL_API.G_RET_STS_ERROR;
2901: --raise; -- propagate error to caller
2937: update_failed EXCEPTION;
2938:
2939: BEGIN
2940: IF (G_DEBUG_ENABLED = 'Y') THEN
2941: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2942: END IF;
2943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2945: END IF;
2940: IF (G_DEBUG_ENABLED = 'Y') THEN
2941: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2942: END IF;
2943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2945: END IF;
2946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2947:
2948: -- call START_ACTIVITY to create savepoint, check compatibility
2966: l_upd_count := 1;
2967: FOR i IN 1..p_mstv_tbl.COUNT
2968: LOOP
2969: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
2971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
2972: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
2973: END IF;
2974:
2967: FOR i IN 1..p_mstv_tbl.COUNT
2968: LOOP
2969: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
2971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
2972: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
2973: END IF;
2974:
2975: FOR rbk_rec IN rbk_csr(p_mstv_tbl(i).request_name,
2968: LOOP
2969: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||p_mstv_tbl(i).id);
2971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'KHR_ID :'||p_mstv_tbl(i).khr_id);
2972: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'REQ :'||p_mstv_tbl(i).request_name);
2973: END IF;
2974:
2975: FOR rbk_rec IN rbk_csr(p_mstv_tbl(i).request_name,
2976: p_mstv_tbl(i).khr_id)
2976: p_mstv_tbl(i).khr_id)
2977: LOOP
2978: l_mstv_upd_tbl(l_upd_count).id := rbk_rec.id;
2979: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2980: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ID :'||l_mstv_upd_tbl(l_upd_count).id);
2981: END IF;
2982: --insert into dd_dummy values (3.1, 'ID: '||l_mstv_upd_tbl(l_upd_count).id);
2983: l_mstv_upd_tbl(l_upd_count).selected_flag := p_mstv_tbl(i).selected_flag;
2984: l_mstv_upd_tbl(l_upd_count).status := p_mstv_tbl(i).status;
3200: l_alt_purchase BOOLEAN := FALSE;
3201:
3202: BEGIN
3203: IF (G_DEBUG_ENABLED = 'Y') THEN
3204: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3205: END IF;
3206:
3207: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3208:
3432: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3433: RAISE secu_failed;
3434: END IF;
3435: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Present Value Disbursement streams');
3437: END IF;
3438:
3439: --
3440: -- Generate Investor accrual streams
3562: l_inv_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
3563: l_inv_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
3564: BEGIN
3565: IF (G_DEBUG_ENABLED = 'Y') THEN
3566: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3567: END IF;
3568:
3569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3566: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3567: END IF;
3568:
3569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3571: END IF;
3572: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3573:
3574: -- call START_ACTIVITY to create savepoint, check compatibility
3611: -- Process after Yield for this contract
3612: --
3613: --debug_message('Submit for Approval...');
3614: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3615: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Approve Contract...');
3616: END IF;
3617: --Bug# 2566822 : Integration with AME/WF for approval
3618: --okl_contract_book_pub.submit_for_approval(
3619: okl_contract_book_pvt.approve_contract(
3673: -- Bug# 4398936
3674:
3675: --insert into dd_dummy values (2, 'Approval Done');
3676: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Submit for Activation ...');
3678: END IF;
3679:
3680: okl_contract_book_pub.activate_contract(
3681: p_api_version => p_api_version,
3711: END IF;
3712:
3713: --insert into dd_dummy values (3, 'Activation Done');
3714: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3715: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Activation Done');
3716: END IF;
3717:
3718: -- Bug# 4775555: Start
3719: --
3719: --
3720: -- Create Investor Disbursement Adjustment
3721: --
3722: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3723: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call create_inv_disb_adjustment');
3724: END IF;
3725: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
3726: p_api_version => p_api_version,
3727: p_init_msg_list => p_init_msg_list,
3730: x_msg_data => x_msg_data,
3731: p_orig_khr_id => p_chr_id
3732: );
3733: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3734: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3735: END IF;
3736:
3737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3738: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: --
3831: -- Create Investor Accrual Adjustment
3832: --
3833: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3834: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment');
3835: END IF;
3836: OKL_CONTRACT_REBOOK_PVT.calc_inv_acc_adjustment(
3837: p_api_version => p_api_version,
3838: p_init_msg_list => p_init_msg_list,
3846: x_inv_stream_tbl => l_inv_stream_tbl
3847: );
3848:
3849: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3850: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3851: END IF;
3852:
3853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3854: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3878:
3879: -- MGAAP start 7263041
3880: IF (l_multi_gaap_yn = 'Y') THEN
3881: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3882: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment for SECONDARY');
3883: END IF;
3884:
3885: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
3886: OKL_CONTRACT_REBOOK_PVT.calc_inv_acc_adjustment(
3899:
3900: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
3901:
3902: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3903: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3904: END IF;
3905:
3906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3938: FOR parent_trx_rec IN parent_trx_csr (l_rbk_transaction_id)
3939: LOOP
3940:
3941: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3942: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Source Trx ID: '|| parent_trx_rec.source_trx_id);
3943: END IF;
3944:
3945: IF (parent_trx_rec.source_trx_id IS NOT NULL) THEN
3946:
3964: l_am_tcnv_rec.id := parent_trx_rec.source_trx_id;
3965: l_am_tcnv_rec.tsu_code := 'PROCESSED';
3966:
3967: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3968: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
3969: END IF;
3970:
3971: Okl_Trx_Contracts_Pub.update_trx_contracts(
3972: p_api_version => l_api_version,
3978: x_tcnv_rec => x_am_tcnv_rec
3979: );
3980:
3981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
3983: END IF;
3984:
3985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990:
3991: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
3992:
3993: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
3995: END IF;
3996: OKL_CS_PRINCIPAL_PAYDOWN_PUB.cancel_ppd(
3997: p_api_version => 1.0,
3998: p_init_msg_list => OKL_API.G_FALSE,
4001: x_msg_data => x_msg_data,
4002: p_khr_id => p_chr_id
4003: );
4004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4005: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel PPD : '||x_return_status);
4006: END IF;
4007:
4008: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4009:
4022: l_am_tcnv_rec.tmt_status_code := 'PROCESSED';
4023: l_am_tcnv_rec.tmt_contract_updated_yn := 'Y';
4024:
4025: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4026: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
4027: END IF;
4028:
4029: Okl_Trx_Contracts_Pub.update_trx_contracts(
4030: p_api_version => l_api_version,
4036: x_tcnv_rec => x_am_tcnv_rec
4037: );
4038:
4039: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||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;
4051: -- Bug 4556370
4052: -- Cancel Termination Quote, if any
4053: --
4054: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4055: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel Termination : '||x_return_status);
4056: END IF;
4057: OKL_AM_INTEGRATION_PVT.cancel_termination_quotes (
4058: p_api_version => 1.0,
4059: p_init_msg_list => OKL_API.G_FALSE,
4064: x_msg_count => x_msg_count,
4065: x_msg_data => x_msg_data
4066: );
4067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel Termination : '||x_return_status);
4069: END IF;
4070:
4071: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4072:
4100: );
4101:
4102:
4103: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4105: END IF;
4106:
4107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4125: x_tcnv_rec => x_tcnv_rec
4126: );
4127:
4128: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4130: END IF;
4131:
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4133: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4209: p_api_type => G_API_TYPE);
4210:
4211: when OTHERS then
4212: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4214: END IF;
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4216: p_api_name => l_api_name,
4217: p_pkg_name => G_PKG_NAME,
4265: not_to_process EXCEPTION;
4266:
4267: BEGIN
4268: IF (G_DEBUG_ENABLED = 'Y') THEN
4269: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4270: END IF;
4271:
4272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4269: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4270: END IF;
4271:
4272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4274: END IF;
4275: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4276:
4277: -- call START_ACTIVITY to create savepoint, check compatibility
4372: p_api_type => G_API_TYPE);
4373:
4374: when OTHERS then
4375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4377: END IF;
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: p_api_name => l_api_name,
4380: p_pkg_name => G_PKG_NAME,
4417: cancel_failed EXCEPTION;
4418:
4419: BEGIN
4420: IF (G_DEBUG_ENABLED = 'Y') THEN
4421: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4422: END IF;
4423:
4424: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4422: END IF;
4423:
4424: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4426: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4427: END IF;
4428:
4429: FOR trx_rec IN trx_csr (p_chr_id)
4430: LOOP
4450: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4451: RAISE cancel_failed;
4452: END IF;
4453: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4454: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After mass rebook trx update: '||x_return_status);
4455: END IF;
4456:
4457: l_tcnv_rec.id := trx_rec.transaction_id;
4458: l_tcnv_rec.tsu_code := 'CANCELED';
4471: RAISE cancel_failed;
4472: END IF;
4473:
4474: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4475: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After trx update: '||x_return_status);
4476: END IF;
4477:
4478: END LOOP;
4479:
4572:
4573: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4574: BEGIN
4575: IF (G_DEBUG_ENABLED = 'Y') THEN
4576: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4577: END IF;
4578:
4579: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4576: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4577: END IF;
4578:
4579: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4581: END IF;
4582:
4583: -- call START_ACTIVITY to create savepoint, check compatibility
4584: -- and initialize message list
4880: l_kle_tbl kle_tbl_type;
4881:
4882: BEGIN
4883: IF (G_DEBUG_ENABLED = 'Y') THEN
4884: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4885: END IF;
4886:
4887: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4884: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4885: END IF;
4886:
4887: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4889: END IF;
4890: -- call START_ACTIVITY to create savepoint, check compatibility
4891: -- and initialize message list
4892: x_return_status := OKL_API.START_ACTIVITY(
4905: raise OKL_API.G_EXCEPTION_ERROR;
4906: END IF;
4907:
4908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
4910: END IF;
4911:
4912: IF (p_rbk_tbl.COUNT > 0 ) THEN
4913: l_line_count := 0;
4915: l_prev_contract_id := G_INIT_NUMBER;
4916: FOR i IN 1..p_rbk_tbl.COUNT
4917: LOOP
4918: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
4920: END IF;
4921: l_contract_count := l_contract_count + 1;
4922: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
4923: OR
4974: p_strm_lalevl_tbl => p_strm_lalevl_tbl
4975: );
4976:
4977: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4978: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
4979: END IF;
4980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4984: END IF;
4985:
4986: ELSE
4987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
4989: END IF;
4990: x_return_status := OKL_API.G_RET_STS_ERROR;
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
5064: l_kle_tbl kle_tbl_type;
5065:
5066: BEGIN
5067: IF (G_DEBUG_ENABLED = 'Y') THEN
5068: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5069: END IF;
5070:
5071: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5072: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5068: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5069: END IF;
5070:
5071: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5072: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5073: END IF;
5074: -- call START_ACTIVITY to create savepoint, check compatibility
5075: -- and initialize message list
5076: x_return_status := OKL_API.START_ACTIVITY(
5090: END IF;
5091:
5092:
5093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5095: END IF;
5096:
5097: IF (p_rbk_tbl.COUNT > 0 ) THEN
5098: l_line_count := 0;
5100: l_prev_contract_id := G_INIT_NUMBER;
5101: FOR i IN 1..p_rbk_tbl.COUNT
5102: LOOP
5103: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
5105: END IF;
5106: l_contract_count := l_contract_count + 1;
5107: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5108: OR
5165: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5166: );
5167:
5168: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5170: END IF;
5171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5172: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5179: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5180:
5181: ELSE
5182: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5183: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5184: END IF;
5185: x_return_status := OKL_API.G_RET_STS_ERROR;
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF;
5263: l_kle_tbl kle_tbl_type;
5264:
5265: BEGIN
5266: IF (G_DEBUG_ENABLED = 'Y') THEN
5267: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5268: END IF;
5269:
5270: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5267: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5268: END IF;
5269:
5270: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5272: END IF;
5273: -- call START_ACTIVITY to create savepoint, check compatibility
5274: -- and initialize message list
5275: x_return_status := OKL_API.START_ACTIVITY(
5289: END IF;
5290:
5291:
5292: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5294: END IF;
5295:
5296: IF (p_rbk_tbl.COUNT > 0 ) THEN
5297: l_line_count := 0;
5299: l_prev_contract_id := G_INIT_NUMBER;
5300: FOR i IN 1..p_rbk_tbl.COUNT
5301: LOOP
5302: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5303: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract# :'||p_rbk_tbl(i).contract_number);
5304: END IF;
5305: l_contract_count := l_contract_count + 1;
5306: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5307: OR
5366: p_transaction_date => p_transaction_date
5367: );
5368:
5369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5371: END IF;
5372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5380: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5381:
5382: ELSE
5383: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5384: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5385: END IF;
5386: x_return_status := OKL_API.G_RET_STS_ERROR;
5387: RAISE OKL_API.G_EXCEPTION_ERROR;
5388: END IF;
5467: x_tcnv_rec tcnv_rec_type;
5468:
5469: BEGIN
5470: IF (G_DEBUG_ENABLED = 'Y') THEN
5471: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5472: END IF;
5473:
5474: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5475: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5471: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5472: END IF;
5473:
5474: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5475: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5476: END IF;
5477: -- call START_ACTIVITY to create savepoint, check compatibility
5478: -- and initialize message list
5479: x_return_status := OKL_API.START_ACTIVITY(
5492: raise OKL_API.G_EXCEPTION_ERROR;
5493: END IF;
5494:
5495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5497: END IF;
5498:
5499: IF (p_rbk_tbl.COUNT > 0 ) THEN
5500: l_line_count := 0;
5502: l_prev_contract_id := G_INIT_NUMBER;
5503: FOR i IN 1..p_rbk_tbl.COUNT
5504: LOOP
5505: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5506: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Contract# :'||p_rbk_tbl(i).contract_number);
5507: END IF;
5508: l_contract_count := l_contract_count + 1;
5509: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5510: OR
5525: p_chr_id => l_contract_id
5526: );
5527:
5528: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5529: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5530: END IF;
5531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5532: raise OKL_API.G_EXCEPTION_ERROR;
5533: END IF;
5557: p_residual_value => p_residual_value,
5558: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5559: );
5560: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5562: END IF;
5563: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5564: raise OKL_API.G_EXCEPTION_ERROR;
5565: END IF;
5583: p_chr_id => l_contract_id
5584: );
5585:
5586: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5588: END IF;
5589: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5590: raise OKL_API.G_EXCEPTION_ERROR;
5591: END IF;
5616: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5617: );
5618:
5619: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5621: END IF;
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5628: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5629:
5630: ELSE
5631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5633: END IF;
5634: x_return_status := OKL_API.G_RET_STS_ERROR;
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5714: x_tcnv_rec tcnv_rec_type;
5715:
5716: BEGIN
5717: IF (G_DEBUG_ENABLED = 'Y') THEN
5718: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5719: END IF;
5720:
5721: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5722: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5718: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5719: END IF;
5720:
5721: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5722: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5723: END IF;
5724: -- call START_ACTIVITY to create savepoint, check compatibility
5725: -- and initialize message list
5726: x_return_status := OKL_API.START_ACTIVITY(
5739: raise OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741:
5742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5744: END IF;
5745:
5746: IF (p_rbk_tbl.COUNT > 0 ) THEN
5747: l_line_count := 0;
5749: l_prev_contract_id := G_INIT_NUMBER;
5750: FOR i IN 1..p_rbk_tbl.COUNT
5751: LOOP
5752: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5753: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Contract# :'||p_rbk_tbl(i).contract_number);
5754: END IF;
5755: l_contract_count := l_contract_count + 1;
5756: IF (l_prev_contract_id = p_rbk_tbl(i).khr_id
5757: OR
5772: p_chr_id => l_contract_id
5773: );
5774:
5775: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5776: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5777: END IF;
5778: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5779: raise OKL_API.G_EXCEPTION_ERROR;
5780: END IF;
5805: p_strm_lalevl_tbl => p_strm_lalevl_tbl,
5806: p_transaction_date => p_transaction_date
5807: );
5808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5810: END IF;
5811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5812: raise OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5831: p_chr_id => l_contract_id
5832: );
5833:
5834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5836: END IF;
5837: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5838: raise OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5865: p_transaction_date => p_transaction_date
5866: );
5867:
5868: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5869: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5870: END IF;
5871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5872: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5877: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5878:
5879: ELSE
5880: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5881: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5882: END IF;
5883: x_return_status := OKL_API.G_RET_STS_ERROR;
5884: RAISE OKL_API.G_EXCEPTION_ERROR;
5885: END IF;
5960: l_strm_lalevl_tbl strm_lalevl_tbl_type; /* DEBUG */
5961:
5962: BEGIN
5963: IF (G_DEBUG_ENABLED = 'Y') THEN
5964: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5965: END IF;
5966:
5967: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5968: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5964: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5965: END IF;
5966:
5967: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5968: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5969: END IF;
5970: -- call START_ACTIVITY to create savepoint, check compatibility
5971: -- and initialize message list
5972: x_return_status := OKL_API.START_ACTIVITY(
5997: p_chr_id => p_chr_id
5998: );
5999:
6000: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6001: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6002: END IF;
6003: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6004: raise OKL_API.G_EXCEPTION_ERROR;
6005: END IF;
6013:
6014: --okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
6015:
6016: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling rebook contract...');
6018: END IF;
6019: l_line_count := p_kle_tbl.COUNT;
6020: rebook_contract(
6021: x_return_status => x_return_status,
6037: p_transaction_date => p_transaction_date
6038: );
6039:
6040: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6041: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6043: END IF;
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6038: );
6039:
6040: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6041: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6043: END IF;
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6043: END IF;
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6052: END IF;
6053: raise OKL_API.G_EXCEPTION_ERROR;
6054: END IF;
6055:
6070: x_msg_count => x_msg_count,
6071: x_msg_data => x_msg_data,
6072: p_api_type => G_API_TYPE);
6073: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6075: END IF;
6076:
6077: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6121: l_set_value_present VARCHAR2(1) := 'N';
6122:
6123: BEGIN
6124: IF (G_DEBUG_ENABLED = 'Y') THEN
6125: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6126: END IF;
6127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6129: END IF;
6124: IF (G_DEBUG_ENABLED = 'Y') THEN
6125: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6126: END IF;
6127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6129: END IF;
6130: -- call START_ACTIVITY to create savepoint, check compatibility
6131: -- and initialize message list
6132: x_return_status := OKL_API.START_ACTIVITY(
6253: x_msg_count => x_msg_count,
6254: x_msg_data => x_msg_data,
6255: p_api_type => G_API_TYPE);
6256: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6257: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6258: END IF;
6259:
6260: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6261: x_return_status := OKL_API.HANDLE_EXCEPTIONS(