[Home] [Help]
467: rebook_failed EXCEPTION;
468:
469: BEGIN
470: IF (G_DEBUG_ENABLED = 'Y') THEN
471: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
472: END IF;
473: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
474: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
475: END IF;
470: IF (G_DEBUG_ENABLED = 'Y') THEN
471: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
472: END IF;
473: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
474: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
475: END IF;
476: x_return_status := OKC_API.G_RET_STS_SUCCESS;
477:
478: OPEN rebook_csr(p_rebook_reason_code);
677: stm_not_billed_rec stm_not_billed_csr%ROWTYPE;
678:
679: BEGIN
680: IF (G_DEBUG_ENABLED = 'Y') THEN
681: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
682: END IF;
683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
684: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
685: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
681: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
682: END IF;
683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
684: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
685: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
686: END IF;
687:
688: /*
689: * Not required, got purpose from driving cursor strm_hdr_csr
736: -- Ignore Insurance Streams
737: IF (NVL(deleted_streams_rec.lse_id,-1) = G_INSURANCE_LSE_ID) THEN
738:
739: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
740: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Insurance Stream Line ID: '||deleted_streams_rec.orig_stm_id);
741: END IF;
742: NULL;
743:
744: -- Ignore Investor Disbursement Adjustment Streams when
745: -- historizing streams deleted during rebook.
746: ELSIF (deleted_streams_rec.stream_type_purpose = 'INVESTOR_DISB_ADJUSTMENT') THEN
747:
748: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
749: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Inv Disb Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
750: END IF;
751: NULL;
752:
753: -- Bug# 4775555
761: 'INVESTOR_RESIDUAL_BUYBACK','INVESTOR_RESIDUAL_DISB_BASIS','INVESTOR_RESIDUAL_PAY',
762: 'INVESTOR_VARIABLE_INTEREST','PV_RENT_SECURITIZED','PV_RV_SECURITIZED'))THEN
763:
764: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
765: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Investor Stream Line ID: '||deleted_streams_rec.orig_stm_id);
766: END IF;
767: NULL;
768:
769: -- Historize Billing Adjustment Streams only if they have been billed, else
773: OPEN stm_not_billed_csr(p_stm_id => deleted_streams_rec.orig_stm_id);
774: FETCH stm_not_billed_csr INTO stm_not_billed_rec;
775: IF stm_not_billed_csr%FOUND THEN
776: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
777: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Billing Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
778: END IF;
779: NULL;
780:
781: ELSE
780:
781: ELSE
782: l_orig_strm_count := l_orig_strm_count + 1;
783: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
784: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historize Billing Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
785: END IF;
786:
787: l_orig_strm_tbl(l_orig_strm_count).id := deleted_streams_rec.orig_stm_id;
788: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
794: ELSE
795: l_orig_strm_count := l_orig_strm_count + 1;
796:
797: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
798: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historize Deleted Stream Line ID: '||deleted_streams_rec.orig_stm_id);
799: END IF;
800:
801: l_orig_strm_tbl(l_orig_strm_count).id := deleted_streams_rec.orig_stm_id;
802: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
817: x_stmv_tbl => x_orig_strm_tbl
818: );
819:
820: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Deleted Orig strm to HIST '||x_return_status);
822: END IF;
823:
824: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
825: RAISE copy_failed;
934: LOOP
935: l_orig_strm_count := l_orig_strm_count + 1;
936:
937: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
938: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stream Line ID: '||orig_strm_rec.id);
939: END IF;
940:
941: l_orig_strm_tbl(l_orig_strm_count).id := orig_strm_rec.id;
942: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
955: x_stmv_tbl => x_orig_strm_tbl
956: );
957:
958: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
959: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Orig strm to HIST '||x_return_status);
960: END IF;
961:
962: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
963: RAISE copy_failed;
1089: WHERE id = p_chr_id;
1090:
1091: BEGIN
1092: IF (G_DEBUG_ENABLED = 'Y') THEN
1093: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1094: END IF;
1095:
1096: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1097: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1094: END IF;
1095:
1096: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1097: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1098: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1099: END IF;
1100:
1101: OPEN orig_csr(p_chr_id);
1102: FETCH orig_csr INTO l_orig_system_id;
1154: AND SGN_CODE NOT IN ('INTC','LATE_CALC'); -- Bug 6472228
1155:
1156: BEGIN
1157: IF (G_DEBUG_ENABLED = 'Y') THEN
1158: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1159: END IF;
1160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1161:
1162: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1159: END IF;
1160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1161:
1162: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1163: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1164: END IF;
1165:
1166: FOR strm_rec IN strm_csr (p_chr_id)
1167: LOOP
1179: CLOSE strm_csr;
1180: */
1181:
1182: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1183: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After CSR');
1184: END IF;
1185: l_stmv_rec.id := strm_rec.id;
1186: l_stmv_rec.khr_id := p_chr_id;
1187: l_stmv_rec.say_code := p_status;
1204: p_stmv_rec => l_stmv_rec,
1205: x_stmv_rec => x_stmv_rec
1206: );
1207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update API Call');
1209: END IF;
1210: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1211: RAISE strm_failed;
1212: END IF;
1318: i NUMBER DEFAULT 0;
1319: l_proc_name VARCHAR2(35) := 'GET_RULE_INFO';
1320: BEGIN
1321: IF (G_DEBUG_ENABLED = 'Y') THEN
1322: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1323: END IF;
1324:
1325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1322: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1323: END IF;
1324:
1325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1329: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1330: END IF;
1323: END IF;
1324:
1325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1329: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1330: END IF;
1331: -- Get current database values
1324:
1325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1329: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1330: END IF;
1331: -- Get current database values
1332: OPEN okc_rulv_csr (p_rgd_code,
1325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1329: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1330: END IF;
1331: -- Get current database values
1332: OPEN okc_rulv_csr (p_rgd_code,
1333: p_rule_code,
1499: i NUMBER DEFAULT 0;
1500: l_proc_name VARCHAR2(35) := 'GET_SLL_RULES';
1501: BEGIN
1502: IF (G_DEBUG_ENABLED = 'Y') THEN
1503: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1504: END IF;
1505:
1506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1503: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1504: END IF;
1505:
1506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1508: END IF;
1509: -- Get current database values
1510: OPEN okc_rulv_csr (p_rgpv_rec.id,
1511: p_rdf_code,
1680: x_rgpv_rec rgpv_rec_type;
1681:
1682: BEGIN
1683: IF (G_DEBUG_ENABLED = 'Y') THEN
1684: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1685: END IF;
1686: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1687: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1688: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1684: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1685: END IF;
1686: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1687: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1688: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1689: END IF;
1690:
1691: FOR rebook_rgp_rec IN rgp_csr(p_rebook_chr_id) -- Getting Rebook RGP_ID
1692: LOOP
1723:
1724: CLOSE orig_rgp_csr;
1725:
1726: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig RGP ID: ' || l_orig_rgp_id);
1728: END IF;
1729:
1730: l_rebook_rgpv_rec := rebook_rgp_rec;
1731: --
1937: x_lalevl_rgpv_rec OKL_OKC_MIGRATION_PVT.rgpv_rec_type;
1938:
1939: BEGIN
1940: IF (G_DEBUG_ENABLED = 'Y') THEN
1941: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1942: END IF;
1943: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1944: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1945: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1941: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1942: END IF;
1943: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1944: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1945: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1946: END IF;
1947:
1948: /*
1949: -- Delete SLH, SLL from Original Contract
1995:
1996: END IF;
1997:
1998: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1999: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rebook CLE ID: '||rebook_rgp_rec.id);
2000: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig CLE ID: '|| l_orig_cle_id);
2001: END IF;
2002:
2003: IF (l_orig_cle_id IS NULL) THEN
1996: END IF;
1997:
1998: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1999: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rebook CLE ID: '||rebook_rgp_rec.id);
2000: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig CLE ID: '|| l_orig_cle_id);
2001: END IF;
2002:
2003: IF (l_orig_cle_id IS NULL) THEN
2004: GOTO process_next;
2011: FETCH orig_rgp_csr INTO l_orig_rgp_id;
2012: CLOSE orig_rgp_csr;
2013:
2014: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2015: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig RGP ID: ' || l_orig_rgp_id);
2016: END IF;
2017:
2018: l_rebook_rgpv_rec := rebook_rgp_rec;
2019: --
2177: x_rgpv_rec rgpv_rec_type;
2178:
2179: BEGIN
2180: IF (G_DEBUG_ENABLED = 'Y') THEN
2181: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2182: END IF;
2183:
2184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2181: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2182: END IF;
2183:
2184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2186: END IF;
2187:
2188: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2189:
2205: RAISE sync_tax_failed;
2206: END IF;
2207:
2208: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2209: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rbk count: '||x_rbk_lastcl_count);
2210: END IF;
2211: -- 2. Get orig rule ID for LASTCL
2212: get_rule_info(
2213: x_return_status => x_return_status,
2224: RAISE sync_tax_failed;
2225: END IF;
2226:
2227: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig count: '||x_orig_lastcl_count);
2229: END IF;
2230: -- 3. Update rule LASTCL
2231: IF (x_orig_lastcl_count > 0) THEN
2232: -- Update rule information
2251: x_rbk_lastcl_rec.rule_information7 <> x_orig_lastcl_rec.rule_information7
2252: ) THEN
2253:
2254: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2255: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LASTCL rule: '||x_rbk_lastcl_rec.id);
2256: END IF;
2257: okl_rule_pub.update_rule(
2258: p_api_version => 1.0,
2259: p_init_msg_list => OKL_API.G_FALSE,
2271: END IF; -- LASTCL changed
2272: END IF;
2273: ELSE
2274: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Rule Group and Rule: LASTCL');
2276: END IF;
2277: -- Create rule group and rule information
2278: l_rgpv_rec.rgd_code := 'LAHDTX';
2279: l_rgpv_rec.chr_id := p_orig_chr_id;
2329: RAISE sync_tax_failed;
2330: END IF;
2331:
2332: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rbk count: '||x_rbk_lastcl_count);
2334: END IF;
2335: -- 2. Get orig rule ID for LASTPR
2336: get_rule_info(
2337: x_return_status => x_return_status,
2348: RAISE sync_tax_failed;
2349: END IF;
2350:
2351: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2352: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig count: '||x_orig_lastpr_count);
2353: END IF;
2354: -- 3. Update rule LASTPR
2355: IF (x_orig_lastcl_count > 0) THEN
2356: -- Update rule information
2369: x_rbk_lastpr_rec.rule_information4 <> x_orig_lastpr_rec.rule_information4
2370: ) THEN
2371:
2372: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LASTPR rule: '||x_rbk_lastpr_rec.id);
2374: END IF;
2375: okl_rule_pub.update_rule(
2376: p_api_version => 1.0,
2377: p_init_msg_list => OKL_API.G_FALSE,
2389: END IF; -- LASTCL changed
2390: END IF;
2391: ELSE
2392: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Rule Group and Rule: LASTPR');
2394: END IF;
2395: -- Create rule group and rule information
2396:
2397: IF (x_rgpv_rec.id IS NULL
2552: sync_party_failed EXCEPTION;
2553:
2554: BEGIN
2555: IF (G_DEBUG_ENABLED = 'Y') THEN
2556: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2557: END IF;
2558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2559: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2556: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2557: END IF;
2558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2559: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2561: END IF;
2562:
2563: -- Sync evergreen passthru at contract header and party
2564: FOR rbk_evg_hdr_rec IN rbk_evg_hdr_csr (p_rebook_chr_id)
2612: CLOSE orig_evg_hdr_csr;
2613: END LOOP;
2614:
2615: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2616: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_pphv_rec.id: '||x_pphv_rec.id);
2617: END IF;
2618: IF (l_rbk_evg_hdr_id IS NOT NULL) THEN -- header evergreen exists
2619: -- Update vendor evergreen detail if any
2620: FOR orig_party_rec IN orig_party_csr (p_orig_chr_id)
2621: LOOP
2622: IF (orig_party_rec.payment_hdr_id IS NOT NULL) THEN
2623:
2624: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update party payment detail for Vendor: '||orig_party_rec.object1_id1);
2626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2627: END IF;
2628: -- update evg detail
2629: --Bug# 4880939: Changed Open/Fetch to For Loop
2622: IF (orig_party_rec.payment_hdr_id IS NOT NULL) THEN
2623:
2624: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update party payment detail for Vendor: '||orig_party_rec.object1_id1);
2626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2627: END IF;
2628: -- update evg detail
2629: --Bug# 4880939: Changed Open/Fetch to For Loop
2630: /*
2639: orig_party_rec.object1_id1)
2640: LOOP
2641:
2642: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2643: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2644: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.pay_site_id: '||rbk_evg_dtl_rec.pay_site_id);
2645: END IF;
2646:
2647:
2640: LOOP
2641:
2642: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2643: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2644: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.pay_site_id: '||rbk_evg_dtl_rec.pay_site_id);
2645: END IF;
2646:
2647:
2648: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2645: END IF;
2646:
2647:
2648: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2649: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2650: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.payment_method_code: '||rbk_evg_dtl_rec.payment_method_code);
2651: END IF;
2652: l_ppydv_u_rec.id := orig_party_rec.pyd_id;
2653: l_ppydv_u_rec.pay_site_id := rbk_evg_dtl_rec.pay_site_id;
2646:
2647:
2648: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2649: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2650: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.payment_method_code: '||rbk_evg_dtl_rec.payment_method_code);
2651: END IF;
2652: l_ppydv_u_rec.id := orig_party_rec.pyd_id;
2653: l_ppydv_u_rec.pay_site_id := rbk_evg_dtl_rec.pay_site_id;
2654: l_ppydv_u_rec.payment_term_id := rbk_evg_dtl_rec.payment_term_id;
2675: x_ppydv_rec => x_ppydv_rec
2676: );
2677:
2678: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Status: '||x_return_status);
2680: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2681: END IF;
2682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2683: RAISE sync_party_failed;
2676: );
2677:
2678: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Status: '||x_return_status);
2680: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2681: END IF;
2682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2683: RAISE sync_party_failed;
2684: END IF;
2688: -- create evg detail
2689:
2690: l_ppydv_c_rec := NULL;
2691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create party payment detail for Vendor: '||orig_party_rec.object1_id1);
2693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2694: END IF;
2695: -- update evg detail
2696: --Bug# 4880939: Changed Open/Fetch to For Loop
2689:
2690: l_ppydv_c_rec := NULL;
2691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create party payment detail for Vendor: '||orig_party_rec.object1_id1);
2693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2694: END IF;
2695: -- update evg detail
2696: --Bug# 4880939: Changed Open/Fetch to For Loop
2697: /*
2706: orig_party_rec.object1_id1)
2707: LOOP
2708:
2709: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2710: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.pay_site_id: '||rbk_evg_dtl_rec.pay_site_id);
2712: END IF;
2713:
2714:
2707: LOOP
2708:
2709: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2710: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.pay_site_id: '||rbk_evg_dtl_rec.pay_site_id);
2712: END IF;
2713:
2714:
2715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2712: END IF;
2713:
2714:
2715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2716: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.payment_method_code: '||rbk_evg_dtl_rec.payment_method_code);
2718: END IF;
2719:
2720: --l_ppydv_c_rec.object_version_number := 1;
2713:
2714:
2715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2716: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.payment_method_code: '||rbk_evg_dtl_rec.payment_method_code);
2718: END IF;
2719:
2720: --l_ppydv_c_rec.object_version_number := 1;
2721: --rkuttiya added for bug 6873960
2747: x_ppydv_rec => x_ppydv_rec
2748: );
2749:
2750: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Status: '||x_return_status);
2752: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2753: END IF;
2754: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2755: RAISE sync_party_failed;
2748: );
2749:
2750: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Status: '||x_return_status);
2752: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2753: END IF;
2754: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2755: RAISE sync_party_failed;
2756: END IF;
2878: sync_failed EXCEPTION;
2879:
2880: BEGIN
2881: IF (G_DEBUG_ENABLED = 'Y') THEN
2882: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2883: END IF;
2884: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2886: END IF;
2881: IF (G_DEBUG_ENABLED = 'Y') THEN
2882: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2883: END IF;
2884: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2886: END IF;
2887: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2888:
2889: l_khrv_rec := get_khrv_rec(
3039: x_ppydv_rec okl_party_payments_pvt.ppydv_rec_type;
3040:
3041: BEGIN
3042: IF (G_DEBUG_ENABLED = 'Y') THEN
3043: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3044: END IF;
3045:
3046: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3047: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3044: END IF;
3045:
3046: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3047: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3048: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3049: END IF;
3050:
3051: FOR rbk_pth_detail_rec IN rbk_pth_detail_csr(p_cle_id => p_rbk_cle_id,
3052: p_cpl_id => p_rbk_cpl_id)
3051: FOR rbk_pth_detail_rec IN rbk_pth_detail_csr(p_cle_id => p_rbk_cle_id,
3052: p_cpl_id => p_rbk_cpl_id)
3053: LOOP
3054: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3055: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...term :'||rbk_pth_detail_rec.passthru_term);
3056: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...cle :'||p_orig_cle_id);
3057: END IF;
3058: OPEN orig_pth_detail_csr (p_vendor_id => p_vendor_id,
3059: p_cle_id => p_orig_cle_id,
3052: p_cpl_id => p_rbk_cpl_id)
3053: LOOP
3054: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3055: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...term :'||rbk_pth_detail_rec.passthru_term);
3056: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...cle :'||p_orig_cle_id);
3057: END IF;
3058: OPEN orig_pth_detail_csr (p_vendor_id => p_vendor_id,
3059: p_cle_id => p_orig_cle_id,
3060: p_term => rbk_pth_detail_rec.passthru_term);
3066: FETCH orig_pth_hdr_csr INTO l_orig_pth_hdr_id;
3067: CLOSE orig_pth_hdr_csr;
3068:
3069: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3070: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail not found.');
3071: END IF;
3072: l_ppydv_rec.id := NULL;
3073: l_ppydv_rec.cpl_id := p_orig_cpl_id;
3074: l_ppydv_rec.vendor_id := p_vendor_id;
3097: p_ppydv_rec => l_ppydv_rec,
3098: x_ppydv_rec => x_ppydv_rec
3099: );
3100: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> Pth detail created: '||x_return_status);
3102: END IF;
3103:
3104: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3105: RAISE process_pth_failed;
3105: RAISE process_pth_failed;
3106: END IF;
3107: ELSE
3108: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...header_id: '||orig_pth_detail_rec.payment_hdr_id);
3110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...id : '||orig_pth_detail_rec.id);
3111: END IF;
3112: l_ppydv_rec.id := orig_pth_detail_rec.id;
3113: l_ppydv_rec.cpl_id := p_orig_cpl_id;
3106: END IF;
3107: ELSE
3108: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...header_id: '||orig_pth_detail_rec.payment_hdr_id);
3110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...id : '||orig_pth_detail_rec.id);
3111: END IF;
3112: l_ppydv_rec.id := orig_pth_detail_rec.id;
3113: l_ppydv_rec.cpl_id := p_orig_cpl_id;
3114: l_ppydv_rec.vendor_id := p_vendor_id;
3137: p_ppydv_rec => l_ppydv_rec,
3138: x_ppydv_rec => x_ppydv_rec
3139: );
3140: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> Pth detail updated: '||x_return_status);
3142: END IF;
3143:
3144: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3145: RAISE process_pth_failed;
3149: CLOSE orig_pth_detail_csr;
3150: END LOOP; -- rbk_pth_detail_csr
3151:
3152: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_proc_name ---> done');
3154: END IF;
3155:
3156: EXCEPTION
3157:
3284: x_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
3285:
3286: BEGIN
3287: IF (G_DEBUG_ENABLED = 'Y') THEN
3288: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3289: END IF;
3290: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3291: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3292: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3288: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3289: END IF;
3290: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3291: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3292: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3293: END IF;
3294:
3295: FOR pth_rec IN pth_csr (p_rebook_chr_id)
3296: LOOP
3297: -- Bug# 4350255
3298: l_c_pphv_tbl.DELETE;
3299: l_u_pphv_tbl.DELETE;
3300: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3301: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Process line: '||pth_rec.id||', '||pth_rec.lse_id);
3302: END IF;
3303:
3304: FOR pth_rbk_hdr_rec IN pth_rbk_hdr_csr (p_rebook_chr_id,
3305: pth_rec.id)
3305: pth_rec.id)
3306: LOOP
3307:
3308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3312: END IF;
3313:
3306: LOOP
3307:
3308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3312: END IF;
3313:
3314: l_pth_rebook_hdr_id := pth_rbk_hdr_rec.id;
3307:
3308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3312: END IF;
3313:
3314: l_pth_rebook_hdr_id := pth_rbk_hdr_rec.id;
3315:
3355: p_pphv_tbl => l_c_pphv_tbl,
3356: x_pphv_tbl => x_pphv_tbl
3357: );
3358: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3359: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PTH header insert for: '||pth_rec.orig_system_id1||': '||x_return_status);
3360: END IF;
3361: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3362: RAISE pth_failed;
3363: END IF;
3372: p_pphv_tbl => l_u_pphv_tbl,
3373: x_pphv_tbl => x_pphv_tbl
3374: );
3375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PTH header update for: '||pth_rec.orig_system_id1||': '||x_return_status);
3377: END IF;
3378: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3379: RAISE pth_failed;
3380: END IF;
3383: FOR pth_vendor_rec in pth_vendor_csr(p_rebook_chr_id,
3384: pth_rec.id)
3385: LOOP
3386: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3387: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook vendor id: '||pth_vendor_rec.vendor_id);
3388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook cpl id : '||pth_vendor_rec.id);
3389: END IF;
3390: -- get original vendor and cpl_id for this record
3391: OPEN orig_vendor_csr(pth_vendor_rec.vendor_id,
3384: pth_rec.id)
3385: LOOP
3386: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3387: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook vendor id: '||pth_vendor_rec.vendor_id);
3388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook cpl id : '||pth_vendor_rec.id);
3389: END IF;
3390: -- get original vendor and cpl_id for this record
3391: OPEN orig_vendor_csr(pth_vendor_rec.vendor_id,
3392: pth_rec.orig_system_id1);
3392: pth_rec.orig_system_id1);
3393: FETCH orig_vendor_csr INTO l_orig_cpl_id;
3394: IF orig_vendor_csr%NOTFOUND THEN
3395: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3396: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> vendor not found.');
3397: END IF;
3398: -- Create party for orig fee
3399: l_cplv_rec.dnz_chr_id := p_orig_chr_id;
3400: l_cplv_rec.cle_id := pth_rec.orig_system_id1;
3428: p_kplv_rec => l_kplv_rec,
3429: x_kplv_rec => x_kplv_rec);
3430:
3431: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3432: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor '||pth_vendor_rec.vendor_id||' created: '||x_return_status);
3433: END IF;
3434:
3435: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3436: RAISE pth_failed;
3455:
3456: ELSE
3457: -- get rebook pth header+detail for this vendor
3458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> pth detail for above vendor');
3460: END IF;
3461: process_pth_detail(
3462: x_return_status => x_return_status,
3463: x_msg_count => x_msg_count,
3486: p_rbk_chr_id => p_rebook_chr_id,
3487: p_rbk_cle_id => pth_rec.id)
3488: LOOP
3489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted: '||rbk_del_vendor_rec.object1_id1);
3491: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted cpl_id: '||rbk_del_vendor_rec.id);
3492: END IF;
3493: okl_maintain_fee_pvt.delete_passthru_party(
3494: p_api_version => 1.0,
3487: p_rbk_cle_id => pth_rec.id)
3488: LOOP
3489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted: '||rbk_del_vendor_rec.object1_id1);
3491: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted cpl_id: '||rbk_del_vendor_rec.id);
3492: END IF;
3493: okl_maintain_fee_pvt.delete_passthru_party(
3494: p_api_version => 1.0,
3495: p_init_msg_list => OKL_API.G_FALSE,
3498: x_msg_data => x_msg_data,
3499: p_cpl_id => rbk_del_vendor_rec.id
3500: );
3501: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3502: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Vendor deleted: '||x_return_status);
3503: END IF;
3504:
3505: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3506: RAISE pth_failed;
3901: lx_cov_ast_tbl klev_tbl_type;
3902:
3903: BEGIN
3904: IF (G_DEBUG_ENABLED = 'Y') THEN
3905: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3906: END IF;
3907:
3908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3909: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3906: END IF;
3907:
3908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3909: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3911: END IF;
3912:
3913: -- ABANDON Orig FEE line only if Orig contract has FEE_TYPE='GENERAL'
3914:
3913: -- ABANDON Orig FEE line only if Orig contract has FEE_TYPE='GENERAL'
3914:
3915: FOR orig_fee_rec IN fee_line_csr(p_orig_chr_id) LOOP
3916: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3917: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Abandon line: '||orig_fee_rec.id);
3918: END IF;
3919: -- Delete from Orig contract
3920: -- l_clev_rec := NULL;
3921: -- l_klev_rec := NULL;
3941: RAISE sync_fee_failed;
3942: END IF;
3943:
3944: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3945: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line deleted');
3946: END IF;
3947:
3948: -- ABANDONED FEE sub-lines
3949: FOR fee_subline_rec IN fee_subline_csr(orig_fee_rec.id) LOOP
3952:
3953: l_clev_rec.sts_code := 'ABANDONED';
3954:
3955: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3956: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sub line delete: '||fee_subline_rec.id);
3957: END IF;
3958: okl_contract_pub.update_contract_line(
3959: p_api_version => 1.0,
3960: p_init_msg_list => OKL_API.G_FALSE,
3969: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3970: RAISE sync_fee_failed;
3971: END IF;
3972: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3973: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sub line deleted');
3974: END IF;
3975: END LOOP;
3976:
3977: -- HIST related Streams
4010: i := i + 1;
4011: l_rbk_fee_tbl(i).id := rbk_fee_rec.id;
4012:
4013: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4014: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Fee line: '||rbk_fee_rec.id);
4015: END IF;
4016:
4017: END LOOP; -- rbk_fee_csr
4018:
4047: --
4048: FOR rvi_fee_rec IN rvi_fee_csr(p_rebook_chr_id)
4049: LOOP
4050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'RVI Fee Line: '||rvi_fee_rec.id);
4052: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'RVI Fee Amt : '||rvi_fee_rec.amount);
4053: END IF;
4054:
4055: l_rvi_clev_rec.id := rvi_fee_rec.orig_fee_id;
4048: FOR rvi_fee_rec IN rvi_fee_csr(p_rebook_chr_id)
4049: LOOP
4050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'RVI Fee Line: '||rvi_fee_rec.id);
4052: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'RVI Fee Amt : '||rvi_fee_rec.amount);
4053: END IF;
4054:
4055: l_rvi_clev_rec.id := rvi_fee_rec.orig_fee_id;
4056: l_rvi_klev_rec.id := rvi_fee_rec.orig_fee_id;
4090: RAISE sync_fee_failed;
4091: END IF;
4092:
4093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'RVI Fee Amount updated: '||x_return_status);
4095: END IF;
4096:
4097: END LOOP; -- rvi_fee_csr
4098: -- Bug 4524091
4103: OPEN c_fee_rbk_csr (cp_chr_id => p_rebook_chr_id);
4104: LOOP
4105: FETCH c_fee_rbk_csr INTO c_fee_rbk_rec;
4106: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL.H*** ST Fee Line: '|| c_fee_rbk_rec.id);
4108: END IF;
4109: EXIT WHEN c_fee_rbk_csr%NOTFOUND;
4110: OPEN c_fee_orig_csr(cp_chr_id => p_orig_chr_id, cp_cle_id => c_fee_rbk_rec.orig_system_id1);
4111: FETCH c_fee_orig_csr INTO c_fee_orig_rec;
4207: l_orig_st_fee_rec.attribute14 := c_fee_rbk_rec.attribute14;
4208: l_orig_st_fee_rec.attribute15 := c_fee_rbk_rec.attribute15;
4209:
4210: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.line_id: '||l_orig_st_fee_rec.line_id);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4208: l_orig_st_fee_rec.attribute15 := c_fee_rbk_rec.attribute15;
4209:
4210: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.line_id: '||l_orig_st_fee_rec.line_id);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4209:
4210: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.line_id: '||l_orig_st_fee_rec.line_id);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4210: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.line_id: '||l_orig_st_fee_rec.line_id);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.line_id: '||l_orig_st_fee_rec.line_id);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.dnz_chr_id: '||l_orig_st_fee_rec.dnz_chr_id);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.fee_type: '||l_orig_st_fee_rec.fee_type);
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id: '||l_orig_st_fee_rec.item_id);
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.fee_type: '||l_orig_st_fee_rec.fee_type);
4221: END IF;
4214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id1: '||l_orig_st_fee_rec.item_id1);
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.fee_type: '||l_orig_st_fee_rec.fee_type);
4221: END IF;
4222:
4215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.item_id2: '||l_orig_st_fee_rec.item_id2);
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.fee_type: '||l_orig_st_fee_rec.fee_type);
4221: END IF;
4222:
4223: -- Update corresponding Orig Fee line
4216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_from: '||l_orig_st_fee_rec.effective_from);
4217: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.effective_to: '||l_orig_st_fee_rec.effective_to);
4218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
4219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.initial_direct_cost: '||l_orig_st_fee_rec.initial_direct_cost);
4220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.fee_type: '||l_orig_st_fee_rec.fee_type);
4221: END IF;
4222:
4223: -- Update corresponding Orig Fee line
4224: okl_maintain_fee_pvt.update_fee_type(
4230: p_fee_types_rec => l_orig_st_fee_rec,
4231: x_fee_types_rec => x_orig_st_fee_rec
4232: );
4233: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL.H*** After Update Top line: '||x_return_status);
4235: END IF;
4236:
4237: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4238: RAISE sync_fee_failed;
4248: -- Sync Fee expense rules for Financed Fee line
4249: -- Also syncing the Misc and Expense Fee lines as part of Contract Rebook Change Control Enhancement
4250: IF (c_fee_rbk_rec.fee_type IN ('FINANCED','MISCELLANEOUS','EXPENSE')) THEN
4251: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4252: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sync Financed Fee - Expense Rule');
4253: END IF;
4254: -- get original Expense rule LAFREQ
4255: get_rule_info(
4256: x_return_status => x_return_status,
4284: END IF;
4285:
4286: IF (l_orig_freq <> x_rulv_freq_rec.object1_id1) THEN
4287: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4288: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Freq to: '||x_rulv_freq_rec.object1_id1);
4289: END IF;
4290: x_rulv_freq_rec.id := l_orig_freq_rule_id;
4291: x_rulv_freq_rec.rgp_id := l_orig_freq_rgp_id;
4292: x_rulv_freq_rec.dnz_chr_id := p_orig_chr_id;
4300: x_rulv_rec => x_rulv_rec
4301: );
4302:
4303: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4304: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFREQ : '||x_return_status);
4305: END IF;
4306:
4307: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4308: x_return_status := Okc_Api.G_RET_STS_ERROR;
4346: IF (l_orig_exp_period <> x_rulv_exp_rec.rule_information1
4347: OR
4348: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4349: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4350: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4351: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4352: END IF;
4353: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4354: x_rulv_exp_rec.rgp_id := l_orig_exp_rgp_id;
4347: OR
4348: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4349: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4350: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4351: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4352: END IF;
4353: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4354: x_rulv_exp_rec.rgp_id := l_orig_exp_rgp_id;
4355: x_rulv_exp_rec.dnz_chr_id := p_orig_chr_id;
4362: p_rulv_rec => x_rulv_exp_rec,
4363: x_rulv_rec => x_rulv_rec
4364: );
4365: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4366: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFEXP : '||x_return_status);
4367: END IF;
4368:
4369: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4370: x_return_status := Okc_Api.G_RET_STS_ERROR;
4385: IF (l_orig_party_id IS NOT NULL) THEN
4386: IF (l_orig_object1_id1 <> rbk_fee_party_rec.object1_id1) THEN
4387: -- Update
4388: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4389: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Party...');
4390: END IF;
4391: l_cplv_rec.id := l_orig_party_id;
4392: l_cplv_rec.object1_id1 := rbk_fee_party_rec.object1_id1;
4393:
4422: END IF;
4423: END IF;
4424: ELSE -- new party
4425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4426: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Party...');
4427: END IF;
4428: -- Create party for orig fee
4429: l_cplv_rec.dnz_chr_id := p_orig_chr_id;
4430: l_cplv_rec.cle_id := l_orig_fee_top_line_id;
4474: --Bug# 4899328
4475: l_cov_ast_tbl.DELETE;
4476:
4477: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4478: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update link asset for: '||c_fee_rbk_rec.id);
4479: END IF;
4480: FOR rbk_fee_asset_rec IN rbk_fee_asset_csr (c_fee_rbk_rec.id,
4481: c_fee_rbk_rec.dnz_chr_id)
4482: LOOP
4482: LOOP
4483:
4484: IF (rbk_fee_asset_rec.orig_system_id1 IS NOT NULL) THEN -- update the line
4485: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4486: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Update Rebook Asset: '||rbk_fee_asset_rec.line_id);
4487: END IF;
4488: FOR orig_fee_asset_rec IN orig_fee_asset_csr(rbk_fee_asset_rec.orig_system_id1,
4489: p_orig_chr_id)
4490: LOOP
4502: l_u_line_item_tbl(upd).capital_amount := NVL(rbk_fee_asset_rec.capital_amount,
4503: rbk_fee_asset_rec.amount) ;
4504:
4505: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4506: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4508: END IF;
4509: END LOOP;
4510: ELSE
4503: rbk_fee_asset_rec.amount) ;
4504:
4505: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4506: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4508: END IF;
4509: END LOOP;
4510: ELSE
4511: -- Create new asset association line
4509: END LOOP;
4510: ELSE
4511: -- Create new asset association line
4512: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4513: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Insert Rebook Asset: '||rbk_fee_asset_rec.line_id);
4514: END IF;
4515: ins := ins + 1;
4516: --Bug# 4899328
4517: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4516: --Bug# 4899328
4517: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4518:
4519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_fee_asset_rec.name);
4521: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||NVL(rbk_fee_asset_rec.capital_amount,rbk_fee_asset_rec.amount));
4522: END IF;
4523:
4524: /*
4517: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4518:
4519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_fee_asset_rec.name);
4521: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||NVL(rbk_fee_asset_rec.capital_amount,rbk_fee_asset_rec.amount));
4522: END IF;
4523:
4524: /*
4525: l_c_line_item_tbl(ins).parent_cle_id := l_orig_fee_top_line_id;
4554: RAISE sync_fee_failed;
4555: END IF;
4556: END IF;
4557: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4558: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Fee asset updated; '||l_u_line_item_tbl.COUNT);
4559: END IF;
4560:
4561: --Bug# 4899328
4562: -- Change call from okl_contract_line_item_pvt.create_contract_line_item to
4584: END IF;
4585: END IF;
4586:
4587: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4588: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Fee asset inserted; '||l_cov_ast_tbl.COUNT);
4589: END IF;
4590:
4591:
4592: /*
4773: l_temp_klev_tbl klev_tbl_type;
4774:
4775: BEGIN
4776: IF (G_DEBUG_ENABLED = 'Y') THEN
4777: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4778: END IF;
4779: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4780: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4781: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4777: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4778: END IF;
4779: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4780: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4781: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4782: END IF;
4783:
4784:
4785: -- Delete Line level existing SLH, SLL from Original Contract
4790: FOR rule_rec IN rule_csr(del_rgp_rec.id)
4791: LOOP
4792: l_rulv_tbl(i).id := rule_rec.id;
4793: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4794: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rule Deleted: '||l_rulv_tbl(i).id);
4795: END IF;
4796: i := i+ 1;
4797: END LOOP;
4798: END LOOP;
4962:
4963:
4964: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4965: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4966: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' okc_cim_pvt.update_row sync_failed= ');
4967: END IF;
4968: RAISE sync_failed;
4969: END IF;
4970: END IF;
4989: END IF;
4990: END LOOP;
4991:
4992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig: '||p_orig_chr_id);
4994: END IF;
4995:
4996: okl_contract_pub.update_contract_line(
4997: p_api_version => 1.0,
5018: END LOOP;
5019:
5020: IF (j > 1) THEN -- New Asset Lines came in
5021: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'new line id: '||l_new_klev_tbl(1).id);
5023: END IF;
5024: okl_copy_asset_pub.copy_all_lines(
5025: p_api_version => 1.0,
5026: p_init_msg_list => OKL_API.G_FALSE,
5078: l_new_klev_tbl(j).id := rebook_new_ib_line_rec.id;
5079: l_tran_date := rebook_new_ib_line_rec.parent_orig_start_date; --Used later to update line
5080:
5081: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5082: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'new line id: '||l_new_klev_tbl(1).id);
5083: END IF;
5084: okl_copy_asset_pub.copy_all_lines(
5085: p_api_version => 1.0,
5086: p_init_msg_list => OKL_API.G_FALSE,
5175: x_cvmv_rec cvmv_rec_type;
5176:
5177: BEGIN
5178: IF (G_DEBUG_ENABLED = 'Y') THEN
5179: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5180: END IF;
5181: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5183: END IF;
5178: IF (G_DEBUG_ENABLED = 'Y') THEN
5179: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5180: END IF;
5181: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5183: END IF;
5184: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5185:
5186: l_cvmv_rec.chr_id := p_chr_id;
5247: check_update_failed EXCEPTION;
5248:
5249: BEGIN
5250: IF (G_DEBUG_ENABLED = 'Y') THEN
5251: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5252: END IF;
5253: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5255: END IF;
5250: IF (G_DEBUG_ENABLED = 'Y') THEN
5251: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5252: END IF;
5253: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5255: END IF;
5256: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5257:
5258: l_orig_term := NULL;
5367: AND representation_type = 'PRIMARY'; -- MGAAP 7263041
5368:
5369: BEGIN
5370: IF (G_DEBUG_ENABLED = 'Y') THEN
5371: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5372: END IF;
5373:
5374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5372: END IF;
5373:
5374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5377: END IF;
5378: -- call START_ACTIVITY to create savepoint, check compatibility
5379: -- and initialize message list
5380: x_return_status := OKC_API.START_ACTIVITY(
5423: RAISE OKC_API.G_EXCEPTION_ERROR;
5424: END IF;
5425:
5426: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5427: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Versioning of Contract');
5428: END IF;
5429:
5430: -- Start Synchronzing Rebook and Original Contracts
5431:
5543: RAISE OKC_API.G_EXCEPTION_ERROR;
5544: END IF;
5545:
5546: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After SYNC_SLH_SLL');
5548: END IF;
5549:
5550: /* No subsidy impact 10/03/2003
5551: --
5702: BEGIN -- main process begins here
5703:
5704: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5705: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5706: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5707: END IF;
5708: -- call START_ACTIVITY to create savepoint, check compatibility
5709: -- and initialize message list
5710: x_return_status := OKC_API.START_ACTIVITY(
5888: secu_failed EXCEPTION;
5889:
5890: BEGIN
5891: IF (G_DEBUG_ENABLED = 'Y') THEN
5892: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5893: END IF;
5894:
5895: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5893: END IF;
5894:
5895: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5898: END IF;
5899:
5900: --
5901: -- Check for Securitized Contract
5921: RAISE secu_failed;
5922: END IF;
5923:
5924: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5925: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Securitized? '||l_contract_secu);
5926: END IF;
5927:
5928: IF (l_contract_secu <> OKL_API.G_TRUE) THEN -- Do not proceed, return success
5929: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5958: END IF;
5959: END IF;
5960:
5961: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5962: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After disbursment HIST streams');
5963: END IF;
5964: --
5965: -- Create Pool transaction after rebook
5966: --
5979: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5980: RAISE secu_failed;
5981: END IF;
5982: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5983: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Modify pool contents');
5984: END IF;
5985:
5986: -- Bug# 4775555: Start
5987: -- Accrual Streams will now be Historized in OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS
6034: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6035: RAISE secu_failed;
6036: END IF;
6037: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6038: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating disb. streams');
6039: END IF;
6040:
6041: -- Bug# 4775555
6042: --
6054: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6055: RAISE secu_failed;
6056: END IF;
6057: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6058: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Present Value Disbursement streams');
6059: END IF;
6060:
6061: --
6062: -- Generate Investor accrual streams
6073: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6074: RAISE secu_failed;
6075: END IF;
6076: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6077: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Investor accrual streams');
6078: END IF;
6079:
6080: RETURN;
6081:
6146: -- Bug# 4775555: End
6147:
6148: BEGIN
6149: IF (G_DEBUG_ENABLED = 'Y') THEN
6150: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6151: END IF;
6152:
6153: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6154: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6151: END IF;
6152:
6153: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6154: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6156: END IF;
6157: -- call START_ACTIVITY to create savepoint, check compatibility
6158: -- and initialize message list
6159: x_return_status := OKC_API.START_ACTIVITY(
6237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6238: END IF;
6239:
6240: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6241: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Change Status 2: '||x_return_status);
6242: END IF;
6243:
6244: --
6245: -- Securitization stream processing
6260: --
6261: -- Create Investor Disbursement Adjustment
6262: --
6263: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6264: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call create_inv_disb_adjustment');
6265: END IF;
6266: create_inv_disb_adjustment(
6267: p_api_version => p_api_version,
6268: p_init_msg_list => p_init_msg_list,
6271: x_msg_data => x_msg_data,
6272: p_orig_khr_id => l_orig_chr_id
6273: );
6274: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
6276: END IF;
6277:
6278: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: -- Create Investor Accrual Adjustment
6291: --
6292: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
6293: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6294: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment');
6295: END IF;
6296: calc_inv_acc_adjustment(
6297: p_api_version => p_api_version,
6298: p_init_msg_list => p_init_msg_list,
6305: x_inv_accrual_rec => l_inv_accrual_rec,
6306: x_inv_stream_tbl => l_inv_stream_tbl
6307: );
6308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
6310: END IF;
6311:
6312: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6316: END IF;
6317:
6318: IF (l_inv_stream_tbl.COUNT > 0) THEN
6319: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call okl_generate_accruals_pvt.adjust_accruals');
6321: END IF;
6322: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
6323: p_api_version => p_api_version,
6324: p_init_msg_list => p_init_msg_list,
6328: x_trx_number => lx_trx_number,
6329: p_accrual_rec => l_inv_accrual_rec,
6330: p_stream_tbl => l_inv_stream_tbl);
6331: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6332: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call okl_generate_accruals_pvt.adjust_accruals'||x_return_status);
6333: END IF;
6334:
6335: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6336: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6346:
6347: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
6348:
6349: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6350: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment for SECONDARY');
6351: END IF;
6352: calc_inv_acc_adjustment(
6353: p_api_version => p_api_version,
6354: p_init_msg_list => p_init_msg_list,
6363: p_product_id => l_rbk_trx_rec.reporting_pdt_id
6364: );
6365: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
6366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
6368: END IF;
6369:
6370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6371: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6374: END IF;
6375:
6376: IF (l_inv_stream_tbl.COUNT > 0) THEN
6377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call okl_generate_accruals_pvt.adjust_accruals');
6379: END IF;
6380:
6381: l_inv_accrual_rec.trx_number := lx_trx_number;
6382:
6390: p_accrual_rec => l_inv_accrual_rec,
6391: p_stream_tbl => l_inv_stream_tbl,
6392: p_representation_type => 'SECONDARY');
6393: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call okl_generate_accruals_pvt.adjust_accruals'||x_return_status);
6395: END IF;
6396:
6397: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6398: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6498: l_orig_chr_id NUMBER;
6499:
6500: BEGIN
6501: IF (G_DEBUG_ENABLED = 'Y') THEN
6502: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6503: END IF;
6504:
6505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6503: END IF;
6504:
6505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6508: END IF;
6509: -- call START_ACTIVITY to create savepoint, check compatibility
6510: -- and initialize message list
6511: x_return_status := OKC_API.START_ACTIVITY(
6836: --end Bug# 6344223
6837:
6838: BEGIN
6839: IF (G_DEBUG_ENABLED = 'Y') THEN
6840: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6841: END IF;
6842:
6843: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6841: END IF;
6842:
6843: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6846: END IF;
6847: -- call START_ACTIVITY to create savepoint, check compatibility
6848: -- and initialize message list
6849: x_return_status := OKL_API.START_ACTIVITY(
6874: OPEN chk_mass_rbk_csr (p_chr_id => p_khr_id);
6875: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr, l_mass_rbk_trx_id;
6876: CLOSE chk_mass_rbk_csr;
6877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6878: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
6879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
6880: END IF;
6881:
6882: --check for rebook contract
6875: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr, l_mass_rbk_trx_id;
6876: CLOSE chk_mass_rbk_csr;
6877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6878: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
6879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
6880: END IF;
6881:
6882: --check for rebook contract
6883: l_rbk_khr := '?';
6886: OPEN chk_rbk_csr (p_chr_id => p_khr_id);
6887: FETCH chk_rbk_csr INTO l_rbk_khr,l_orig_khr_id,l_online_rbk_trx_id;
6888: CLOSE chk_rbk_csr;
6889: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6890: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
6891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
6892: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
6893: END IF;
6894:
6887: FETCH chk_rbk_csr INTO l_rbk_khr,l_orig_khr_id,l_online_rbk_trx_id;
6888: CLOSE chk_rbk_csr;
6889: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6890: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
6891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
6892: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
6893: END IF;
6894:
6895: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
6888: CLOSE chk_rbk_csr;
6889: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6890: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
6891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
6892: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
6893: END IF;
6894:
6895: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
6896: IF ((l_split_trans_id IS NOT NULL) OR l_mass_rbk_khr = '!' OR l_rbk_khr = '!') THEN
6953:
6954: END IF;
6955:
6956: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
6958: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream ID: '||l_new_strm_tbl(l_new_strm_count).link_hist_stream_id);
6959: END IF;
6960:
6961: END LOOP;
6954: END IF;
6955:
6956: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
6958: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream ID: '||l_new_strm_tbl(l_new_strm_count).link_hist_stream_id);
6959: END IF;
6960:
6961: END LOOP;
6962:
6973: x_stmv_tbl => x_new_strm_tbl
6974: );
6975:
6976: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6977: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of New Strms - Trx ID and Hist ID '||x_return_status);
6978: END IF;
6979:
6980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7131: lx_disb_rec OKL_BPD_TERMINATION_ADJ_PVT.disb_rec_type;
7132:
7133: BEGIN
7134: IF (G_DEBUG_ENABLED = 'Y') THEN
7135: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7136: END IF;
7137:
7138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7136: END IF;
7137:
7138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7141: END IF;
7142: -- call START_ACTIVITY to create savepoint, check compatibility
7143: -- and initialize message list
7144: x_return_status := OKL_API.START_ACTIVITY(
7171: FETCH max_disb_date_csr INTO l_max_disb_date;
7172: CLOSE max_disb_date_csr;
7173:
7174: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7175: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7177: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
7178: END IF;
7179:
7172: CLOSE max_disb_date_csr;
7173:
7174: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7175: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7177: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
7178: END IF;
7179:
7180: IF l_max_disb_date IS NOT NULL THEN
7173:
7174: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7175: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7177: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
7178: END IF;
7179:
7180: IF l_max_disb_date IS NOT NULL THEN
7181:
7184: FETCH actual_amount_disb_csr INTO l_actual_amount_disbursed;
7185: CLOSE actual_amount_disb_csr;
7186:
7187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disbursed);
7189: END IF;
7190:
7191: l_amount_to_be_disbursed := 0;
7192: l_selv_count := 0;
7206:
7207: END LOOP;
7208:
7209: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7210: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Disbursed: '||l_amount_to_be_disbursed);
7211: END IF;
7212:
7213: l_disb_adjustment := l_amount_to_be_disbursed - l_actual_amount_disbursed;
7214:
7212:
7213: l_disb_adjustment := l_amount_to_be_disbursed - l_actual_amount_disbursed;
7214:
7215: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7216: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
7217: END IF;
7218:
7219: IF l_disb_adjustment <> 0 THEN
7220: i := i + 1;
7224: l_rebook_adj_tbl(i).adjusted_amount := l_disb_adjustment;
7225: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7226:
7227: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7225: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7226:
7227: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7226:
7227: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7227: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7235: END IF;
7228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7235: END IF;
7236:
7229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7235: END IF;
7236:
7237: END IF;
7230: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7232: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7235: END IF;
7236:
7237: END IF;
7238:
7247: x_selv_tbl => x_selv_tbl
7248: );
7249:
7250: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7251: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Date Disbursed '||x_return_status);
7252: END IF;
7253:
7254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7255: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7274: -- Do not process Insurance Streams
7275: IF (NVL(del_billable_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
7276:
7277: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7278: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_billable_streams_rec.orig_stm_id);
7279: END IF;
7280:
7281: l_actual_amount_disbursed := 0;
7282: OPEN actual_amount_disb_csr(p_stm_id => del_billable_streams_rec.orig_stm_id);
7283: FETCH actual_amount_disb_csr INTO l_actual_amount_disbursed;
7284: CLOSE actual_amount_disb_csr;
7285:
7286: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7287: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disbursed);
7288: END IF;
7289:
7290: l_disb_adjustment := -1 * l_actual_amount_disbursed;
7291:
7289:
7290: l_disb_adjustment := -1 * l_actual_amount_disbursed;
7291:
7292: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
7294: END IF;
7295:
7296: IF l_actual_amount_disbursed <> 0 THEN
7297: i := i + 1;
7301: l_rebook_adj_tbl(i).adjusted_amount := l_disb_adjustment;
7302: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7303:
7304: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7302: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7303:
7304: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7303:
7304: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7304: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7312: END IF;
7305: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7312: END IF;
7313:
7306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7312: END IF;
7313:
7314: END IF;
7307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7308: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7312: END IF;
7313:
7314: END IF;
7315: END IF;
7329: ,x_msg_count => x_msg_count
7330: ,x_msg_data => x_msg_data);
7331:
7332: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_BPD_TERMINATION_ADJ_PVT.create_rbk_passthru_adj '||x_return_status);
7334: END IF;
7335:
7336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7481: lx_disb_rec OKL_BPD_TERMINATION_ADJ_PVT.disb_rec_type;
7482:
7483: BEGIN
7484: IF (G_DEBUG_ENABLED = 'Y') THEN
7485: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7486: END IF;
7487:
7488: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7486: END IF;
7487:
7488: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7491: END IF;
7492: -- call START_ACTIVITY to create savepoint, check compatibility
7493: -- and initialize message list
7494: x_return_status := OKL_API.START_ACTIVITY(
7521: FETCH max_bill_date_csr INTO l_max_bill_date;
7522: CLOSE max_bill_date_csr;
7523:
7524: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7525: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7526: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7527: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
7528: END IF;
7529:
7522: CLOSE max_bill_date_csr;
7523:
7524: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7525: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7526: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7527: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
7528: END IF;
7529:
7530: IF l_max_bill_date IS NOT NULL THEN
7523:
7524: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7525: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
7526: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
7527: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
7528: END IF;
7529:
7530: IF l_max_bill_date IS NOT NULL THEN
7531:
7534: FETCH actual_amount_billed_csr INTO l_actual_amount_billed;
7535: CLOSE actual_amount_billed_csr;
7536:
7537: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7538: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Billed: '||l_actual_amount_billed);
7539: END IF;
7540:
7541: l_amount_to_be_billed := 0;
7542: l_selv_count := 0;
7557:
7558: END LOOP;
7559:
7560: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Billed: '||l_amount_to_be_billed);
7562: END IF;
7563:
7564: l_billing_adjustment := l_amount_to_be_billed - l_actual_amount_billed;
7565:
7563:
7564: l_billing_adjustment := l_amount_to_be_billed - l_actual_amount_billed;
7565:
7566: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7567: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment: '||l_billing_adjustment);
7568: END IF;
7569:
7570: IF l_billing_adjustment <> 0 THEN
7571: i := i + 1;
7575: l_rebook_adj_tbl(i).adjusted_amount := l_billing_adjustment;
7576: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7577:
7578: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7576: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7577:
7578: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7577:
7578: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7585: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7578: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7585: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7586: END IF;
7579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7585: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7586: END IF;
7587:
7580: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7585: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7586: END IF;
7587:
7588: END IF;
7581: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7583: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7584: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7585: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7586: END IF;
7587:
7588: END IF;
7589:
7598: x_selv_tbl => x_selv_tbl
7599: );
7600:
7601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Date Billed and Bill Adj Flag '||x_return_status);
7603: END IF;
7604:
7605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7606: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7625: -- Do not process Insurance Streams
7626: IF (NVL(del_billable_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
7627:
7628: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_billable_streams_rec.orig_stm_id);
7630: END IF;
7631:
7632: l_actual_amount_billed := 0;
7633: OPEN actual_amount_billed_csr(p_stm_id => del_billable_streams_rec.orig_stm_id);
7634: FETCH actual_amount_billed_csr INTO l_actual_amount_billed;
7635: CLOSE actual_amount_billed_csr;
7636:
7637: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Billed: '||l_actual_amount_billed);
7639: END IF;
7640:
7641: l_billing_adjustment := -1 * l_actual_amount_billed;
7642:
7640:
7641: l_billing_adjustment := -1 * l_actual_amount_billed;
7642:
7643: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7644: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment: '||l_billing_adjustment);
7645: END IF;
7646:
7647: IF l_actual_amount_billed <> 0 THEN
7648: i := i + 1;
7652: l_rebook_adj_tbl(i).adjusted_amount := l_billing_adjustment;
7653: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7654:
7655: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7653: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
7654:
7655: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7654:
7655: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7655: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7663: END IF;
7656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7663: END IF;
7664:
7657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7663: END IF;
7664:
7665: END IF;
7658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).khr_id: '||l_rebook_adj_tbl(i).khr_id);
7659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).kle_id: '||l_rebook_adj_tbl(i).kle_id);
7660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).sty_id: '||l_rebook_adj_tbl(i).sty_id);
7661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).adjusted_amount: '||l_rebook_adj_tbl(i).adjusted_amount);
7662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rebook_adj_tbl(i).date_invoiced: '||l_rebook_adj_tbl(i).date_invoiced);
7663: END IF;
7664:
7665: END IF;
7666: END IF;
7679: ,p_rebook_adj_tbl => l_rebook_adj_tbl
7680: );
7681:
7682: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_REBOOK_CM_PVT.Rebook_Bill_adjustments '||x_return_status);
7684: END IF;
7685:
7686: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8266: -- MGAAP end 7263041
8267:
8268: BEGIN
8269: IF (G_DEBUG_ENABLED = 'Y') THEN
8270: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8271: END IF;
8272:
8273: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8274: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8271: END IF;
8272:
8273: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8274: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
8276: END IF;
8277: -- call START_ACTIVITY to create savepoint, check compatibility
8278: -- and initialize message list
8279: x_return_status := OKL_API.START_ACTIVITY(
8315: FETCH max_accrual_date_csr INTO l_max_accrual_date;
8316: CLOSE max_accrual_date_csr;
8317:
8318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
8320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
8321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
8322: END IF;
8323:
8316: CLOSE max_accrual_date_csr;
8317:
8318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
8320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
8321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
8322: END IF;
8323:
8324: IF l_max_accrual_date IS NOT NULL THEN
8317:
8318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
8320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
8321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
8322: END IF;
8323:
8324: IF l_max_accrual_date IS NOT NULL THEN
8325:
8328: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
8329: CLOSE actual_amount_accrued_csr;
8330:
8331: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8332: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
8333: END IF;
8334:
8335: l_amount_to_be_accrued := 0;
8336: l_selv_count := 0;
8351:
8352: END LOOP;
8353:
8354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Accrued: '||l_amount_to_be_accrued);
8356: END IF;
8357:
8358: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
8359:
8357:
8358: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
8359:
8360: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
8362: END IF;
8363:
8364: IF l_accrual_adjustment <> 0 THEN
8365: i := i + 1;
8368: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
8369: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
8370:
8371: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8369: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
8370:
8371: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8370:
8371: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8378: END IF;
8371: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8378: END IF;
8379: END IF;
8372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8378: END IF;
8379: END IF;
8380:
8373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8378: END IF;
8379: END IF;
8380:
8381: IF (l_selv_tbl.COUNT > 0) THEN
8389: x_selv_tbl => x_selv_tbl
8390: );
8391:
8392: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Accrued Yn and Accrual Adj Flag '||x_return_status);
8394: END IF;
8395:
8396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: -- Do not process Insurance Streams
8419: IF (NVL(del_accrual_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
8420:
8421: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_accrual_streams_rec.orig_stm_id);
8423: END IF;
8424:
8425: l_actual_amount_accrued := 0;
8426: OPEN actual_amount_accrued_csr(p_stm_id => del_accrual_streams_rec.orig_stm_id);
8427: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
8428: CLOSE actual_amount_accrued_csr;
8429:
8430: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8431: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
8432: END IF;
8433:
8434: l_accrual_adjustment := -1 * l_actual_amount_accrued;
8435:
8433:
8434: l_accrual_adjustment := -1 * l_actual_amount_accrued;
8435:
8436: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8437: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
8438: END IF;
8439:
8440: IF l_actual_amount_accrued <> 0 THEN
8441: i := i + 1;
8444: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
8445: l_stream_tbl(i).kle_id := del_accrual_streams_rec.kle_id;
8446:
8447: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8445: l_stream_tbl(i).kle_id := del_accrual_streams_rec.kle_id;
8446:
8447: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8446:
8447: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8454: END IF;
8447: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8454: END IF;
8455: END IF;
8448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8454: END IF;
8455: END IF;
8456: END IF;
8449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
8451: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
8452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
8453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
8454: END IF;
8455: END IF;
8456: END IF;
8457: END LOOP;
8475: END IF;
8476: --end Bug# 6344223
8477:
8478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8476: --end Bug# 6344223
8477:
8478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
8477:
8478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
8485: END IF;
8478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
8485: END IF;
8486:
8479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
8485: END IF;
8486:
8487:
8480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
8481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
8482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
8483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
8484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
8485: END IF;
8486:
8487:
8488: x_stream_tbl := l_stream_tbl;
8673: l_inv_agreement_id OKC_K_HEADERS_B.id%TYPE;
8674:
8675: BEGIN
8676: IF (G_DEBUG_ENABLED = 'Y') THEN
8677: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8678: END IF;
8679:
8680: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8681: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8678: END IF;
8679:
8680: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8681: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8682: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
8683: END IF;
8684: -- call START_ACTIVITY to create savepoint, check compatibility
8685: -- and initialize message list
8686: x_return_status := OKL_API.START_ACTIVITY(
8714: LOOP
8715:
8716: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
8717: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8718: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
8719: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
8720: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
8721: END IF;
8722:
8715:
8716: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
8717: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8718: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
8719: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
8720: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
8721: END IF;
8722:
8723: l_actual_amount_disb:= 0;
8716: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
8717: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8718: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
8719: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
8720: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
8721: END IF;
8722:
8723: l_actual_amount_disb:= 0;
8724: OPEN actual_amount_disb_csr(p_stm_id => curr_sec_strms_rec.orig_stm_id);
8725: FETCH actual_amount_disb_csr INTO l_actual_amount_disb;
8726: CLOSE actual_amount_disb_csr;
8727:
8728: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8729: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disb);
8730: END IF;
8731:
8732: l_amount_to_be_disb := 0;
8733: l_selv_count := 0;
8745: l_selv_tbl(l_selv_count).bill_adj_flag := 'Y';
8746: END LOOP;
8747:
8748: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8749: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Disbursed: '||l_amount_to_be_disb);
8750: END IF;
8751:
8752: l_disb_adjustment := l_amount_to_be_disb - l_actual_amount_disb;
8753:
8751:
8752: l_disb_adjustment := l_amount_to_be_disb - l_actual_amount_disb;
8753:
8754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
8756: END IF;
8757:
8758: l_disb_adj_tbl(i).kle_id := curr_sec_strms_rec.kle_id;
8759: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
8758: l_disb_adj_tbl(i).kle_id := curr_sec_strms_rec.kle_id;
8759: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
8760:
8761: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8762: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
8763: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).kle_id: '||l_disb_adj_tbl(i).kle_id);
8764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).disb_adj_amt: '||l_disb_adj_tbl(i).disb_adj_amt);
8765: END IF;
8766:
8759: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
8760:
8761: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8762: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
8763: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).kle_id: '||l_disb_adj_tbl(i).kle_id);
8764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).disb_adj_amt: '||l_disb_adj_tbl(i).disb_adj_amt);
8765: END IF;
8766:
8767: IF (l_selv_tbl.COUNT > 0) THEN
8760:
8761: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8762: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
8763: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).kle_id: '||l_disb_adj_tbl(i).kle_id);
8764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_disb_adj_tbl(i).disb_adj_amt: '||l_disb_adj_tbl(i).disb_adj_amt);
8765: END IF;
8766:
8767: IF (l_selv_tbl.COUNT > 0) THEN
8768: okl_streams_pub.update_stream_elements(
8775: x_selv_tbl => x_selv_tbl
8776: );
8777:
8778: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8779: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Date Billed and Bill Adj Flag '||x_return_status);
8780: END IF;
8781:
8782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8783: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8803: raise OKL_API.G_EXCEPTION_ERROR;
8804: END IF;
8805:
8806: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disb Adjustment Stream Type Id: '||l_disb_adj_sty_id);
8808: END IF;
8809:
8810: --Bug# 6788253
8811: i := l_disb_adj_tbl.FIRST;
8822: FETCH old_disb_adj_stm_csr INTO l_old_disb_adj_stm_rec;
8823: CLOSE old_disb_adj_stm_csr;
8824:
8825: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Disb Adjustment Stream Id: '||l_old_disb_adj_stm_rec.stm_id);
8827: END IF;
8828:
8829: -- If New Disbursement Adjustment <> 0
8830: IF (NVL(l_disb_adj_tbl(i).disb_adj_amt,0) <> 0) THEN
8837: CLOSE undisb_adj_amt_csr;
8838: END IF;
8839:
8840: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8841: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Disb Adjustment Amount: '||l_undisb_adj_amt_rec.amount);
8842: END IF;
8843:
8844: -- Historize existing Disbursement Adjustment stream
8845: IF l_old_disb_adj_stm_rec.stm_id IS NOT NULL THEN
8858: p_stmv_rec => l_stmv_rec_old_disb,
8859: x_stmv_rec => lx_stmv_rec_old_disb);
8860:
8861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
8863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
8864: END IF;
8865:
8866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8859: x_stmv_rec => lx_stmv_rec_old_disb);
8860:
8861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
8863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
8864: END IF;
8865:
8866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8892: l_selv_tbl_new_disb(1).stream_element_date := sysdate;
8893: l_selv_tbl_new_disb(1).se_line_number := 1;
8894:
8895: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Total Disb Adjustment Amount: '||l_selv_tbl_new_disb(1).amount);
8897: END IF;
8898:
8899: IF l_selv_tbl_new_disb(1).amount <> 0 THEN
8900: Okl_Streams_Pub.create_streams(
8908: x_stmv_rec => lx_stmv_rec_new_disb,
8909: x_selv_tbl => lx_selv_tbl_new_disb);
8910:
8911: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Creating New Investor Disbursement Adjustment Stream');
8913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.create_streams'||x_return_status);
8914: END IF;
8915:
8916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8909: x_selv_tbl => lx_selv_tbl_new_disb);
8910:
8911: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Creating New Investor Disbursement Adjustment Stream');
8913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.create_streams'||x_return_status);
8914: END IF;
8915:
8916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8917: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8928: FETCH chk_old_adj_disb_csr INTO l_undisb_adj_exists;
8929: CLOSE chk_old_adj_disb_csr;
8930:
8931: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8932: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Undisbursed Disb Adjustment Exists: '||l_undisb_adj_exists);
8933: END IF;
8934:
8935: -- Historize existing Disbursement Adjustment stream
8936: -- if it has been disbursed
8950: p_stmv_rec => l_stmv_rec_old_disb,
8951: x_stmv_rec => lx_stmv_rec_old_disb);
8952:
8953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
8955: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
8956: END IF;
8957:
8958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8951: x_stmv_rec => lx_stmv_rec_old_disb);
8952:
8953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
8955: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
8956: END IF;
8957:
8958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8959: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9109: --end Bug# 6344223
9110:
9111: BEGIN
9112: IF (G_DEBUG_ENABLED = 'Y') THEN
9113: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
9114: END IF;
9115:
9116: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9117: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9114: END IF;
9115:
9116: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9117: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9118: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
9119: END IF;
9120: -- call START_ACTIVITY to create savepoint, check compatibility
9121: -- and initialize message list
9122: x_return_status := OKL_API.START_ACTIVITY(
9147: OPEN chk_mass_rbk_csr (p_chr_id => p_khr_id);
9148: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr,l_mass_rbk_trx_id;
9149: CLOSE chk_mass_rbk_csr;
9150: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
9152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
9153: END IF;
9154:
9155: --check for rebook contract
9148: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr,l_mass_rbk_trx_id;
9149: CLOSE chk_mass_rbk_csr;
9150: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
9152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
9153: END IF;
9154:
9155: --check for rebook contract
9156: l_rbk_khr := '?';
9158: OPEN chk_rbk_csr (p_chr_id => p_khr_id);
9159: FETCH chk_rbk_csr INTO l_rbk_khr,l_online_rbk_trx_id;
9160: CLOSE chk_rbk_csr;
9161: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9162: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
9163: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
9164: END IF;
9165:
9166: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
9159: FETCH chk_rbk_csr INTO l_rbk_khr,l_online_rbk_trx_id;
9160: CLOSE chk_rbk_csr;
9161: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9162: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
9163: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
9164: END IF;
9165:
9166: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
9167: IF ((l_split_trans_id IS NOT NULL) OR l_mass_rbk_khr = '!' OR l_rbk_khr = '!') THEN
9194: l_new_strm_tbl(l_new_strm_count).link_hist_stream_id := hist_strms_rec.orig_stm_id;
9195: END IF;
9196:
9197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
9199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream ID: '||l_new_strm_tbl(l_new_strm_count).link_hist_stream_id);
9200: END IF;
9201:
9202: END LOOP;
9195: END IF;
9196:
9197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
9199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream ID: '||l_new_strm_tbl(l_new_strm_count).link_hist_stream_id);
9200: END IF;
9201:
9202: END LOOP;
9203:
9214: x_stmv_tbl => x_new_strm_tbl
9215: );
9216:
9217: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of New Strms - Trx ID and Hist ID '||x_return_status);
9219: END IF;
9220:
9221: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9222: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9358: l_gl_date DATE;
9359:
9360: BEGIN
9361: IF (G_DEBUG_ENABLED = 'Y') THEN
9362: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
9363: END IF;
9364:
9365: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9363: END IF;
9364:
9365: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
9368: END IF;
9369: -- call START_ACTIVITY to create savepoint, check compatibility
9370: -- and initialize message list
9371: x_return_status := OKL_API.START_ACTIVITY(
9398: FETCH max_accrual_date_csr INTO l_max_accrual_date;
9399: CLOSE max_accrual_date_csr;
9400:
9401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9403: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9404: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9405: END IF;
9406:
9399: CLOSE max_accrual_date_csr;
9400:
9401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9403: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9404: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9405: END IF;
9406:
9407: IF l_max_accrual_date IS NOT NULL THEN
9400:
9401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9403: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9404: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9405: END IF;
9406:
9407: IF l_max_accrual_date IS NOT NULL THEN
9408:
9411: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
9412: CLOSE actual_amount_accrued_csr;
9413:
9414: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9415: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
9416: END IF;
9417:
9418: l_amount_to_be_accrued := 0;
9419: l_selv_count := 0;
9434:
9435: END LOOP;
9436:
9437: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Accrued: '||l_amount_to_be_accrued);
9439: END IF;
9440:
9441: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
9442:
9440:
9441: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
9442:
9443: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9444: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
9445: END IF;
9446:
9447: IF l_accrual_adjustment <> 0 THEN
9448: i := i + 1;
9451: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
9452: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
9453:
9454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9452: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
9453:
9454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
9453:
9454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
9461: END IF;
9454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
9461: END IF;
9462: END IF;
9455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
9461: END IF;
9462: END IF;
9463:
9456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9457: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_id: '||l_stream_tbl(i).stream_type_id);
9458: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_type_name: '||l_stream_tbl(i).stream_type_name);
9459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
9460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
9461: END IF;
9462: END IF;
9463:
9464: IF (l_selv_tbl.COUNT > 0) THEN
9472: x_selv_tbl => x_selv_tbl
9473: );
9474:
9475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Accrued Yn and Accrual Adj Flag '||x_return_status);
9477: END IF;
9478:
9479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9503: END IF;
9504: --end Bug# 6344223
9505:
9506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9504: --end Bug# 6344223
9505:
9506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9512: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
9505:
9506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9512: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
9513: END IF;
9506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9512: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
9513: END IF;
9514:
9507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9512: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
9513: END IF;
9514:
9515:
9508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
9509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
9510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
9511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
9512: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
9513: END IF;
9514:
9515:
9516: x_inv_stream_tbl := l_stream_tbl;