[Home] [Help]
496: rebook_failed EXCEPTION;
497:
498: BEGIN
499: IF (G_DEBUG_ENABLED = 'Y') THEN
500: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
501: END IF;
502: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
503: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
504: END IF;
499: IF (G_DEBUG_ENABLED = 'Y') THEN
500: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
501: END IF;
502: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
503: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
504: END IF;
505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
506:
507: OPEN rebook_csr(p_rebook_reason_code);
706: stm_not_billed_rec stm_not_billed_csr%ROWTYPE;
707:
708: BEGIN
709: IF (G_DEBUG_ENABLED = 'Y') THEN
710: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
711: END IF;
712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
713: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
714: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
710: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
711: END IF;
712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
713: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
714: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
715: END IF;
716:
717: /*
718: * Not required, got purpose from driving cursor strm_hdr_csr
765: -- Ignore Insurance Streams
766: IF (NVL(deleted_streams_rec.lse_id,-1) = G_INSURANCE_LSE_ID) THEN
767:
768: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
769: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Insurance Stream Line ID: '||deleted_streams_rec.orig_stm_id);
770: END IF;
771: NULL;
772:
773: -- Ignore Investor Disbursement Adjustment Streams when
774: -- historizing streams deleted during rebook.
775: ELSIF (deleted_streams_rec.stream_type_purpose = 'INVESTOR_DISB_ADJUSTMENT') THEN
776:
777: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
778: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Inv Disb Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
779: END IF;
780: NULL;
781:
782: -- Bug# 4775555
790: 'INVESTOR_RESIDUAL_BUYBACK','INVESTOR_RESIDUAL_DISB_BASIS','INVESTOR_RESIDUAL_PAY',
791: 'INVESTOR_VARIABLE_INTEREST','PV_RENT_SECURITIZED','PV_RV_SECURITIZED'))THEN
792:
793: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
794: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Investor Stream Line ID: '||deleted_streams_rec.orig_stm_id);
795: END IF;
796: NULL;
797:
798: -- Historize Billing Adjustment Streams only if they have been billed, else
802: OPEN stm_not_billed_csr(p_stm_id => deleted_streams_rec.orig_stm_id);
803: FETCH stm_not_billed_csr INTO stm_not_billed_rec;
804: IF stm_not_billed_csr%FOUND THEN
805: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Ignore Billing Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
807: END IF;
808: NULL;
809:
810: ELSE
809:
810: ELSE
811: l_orig_strm_count := l_orig_strm_count + 1;
812: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
813: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historize Billing Adj Stream Line ID: '||deleted_streams_rec.orig_stm_id);
814: END IF;
815:
816: l_orig_strm_tbl(l_orig_strm_count).id := deleted_streams_rec.orig_stm_id;
817: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
823: ELSE
824: l_orig_strm_count := l_orig_strm_count + 1;
825:
826: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historize Deleted Stream Line ID: '||deleted_streams_rec.orig_stm_id);
828: END IF;
829:
830: l_orig_strm_tbl(l_orig_strm_count).id := deleted_streams_rec.orig_stm_id;
831: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
846: x_stmv_tbl => x_orig_strm_tbl
847: );
848:
849: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
850: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Deleted Orig strm to HIST '||x_return_status);
851: END IF;
852:
853: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
854: RAISE copy_failed;
963: LOOP
964: l_orig_strm_count := l_orig_strm_count + 1;
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stream Line ID: '||orig_strm_rec.id);
968: END IF;
969:
970: l_orig_strm_tbl(l_orig_strm_count).id := orig_strm_rec.id;
971: l_orig_strm_tbl(l_orig_strm_count).say_code := 'HIST';
984: x_stmv_tbl => x_orig_strm_tbl
985: );
986:
987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Orig strm to HIST '||x_return_status);
989: END IF;
990:
991: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
992: RAISE copy_failed;
1118: WHERE id = p_chr_id;
1119:
1120: BEGIN
1121: IF (G_DEBUG_ENABLED = 'Y') THEN
1122: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1123: END IF;
1124:
1125: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1126: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1123: END IF;
1124:
1125: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1126: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1128: END IF;
1129:
1130: OPEN orig_csr(p_chr_id);
1131: FETCH orig_csr INTO l_orig_system_id;
1183: AND SGN_CODE NOT IN ('INTC','LATE_CALC'); -- Bug 6472228
1184:
1185: BEGIN
1186: IF (G_DEBUG_ENABLED = 'Y') THEN
1187: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1188: END IF;
1189: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1190:
1191: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1188: END IF;
1189: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1190:
1191: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1192: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1193: END IF;
1194:
1195: FOR strm_rec IN strm_csr (p_chr_id)
1196: LOOP
1208: CLOSE strm_csr;
1209: */
1210:
1211: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After CSR');
1213: END IF;
1214: l_stmv_rec.id := strm_rec.id;
1215: l_stmv_rec.khr_id := p_chr_id;
1216: l_stmv_rec.say_code := p_status;
1233: p_stmv_rec => l_stmv_rec,
1234: x_stmv_rec => x_stmv_rec
1235: );
1236: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1237: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update API Call');
1238: END IF;
1239: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1240: RAISE strm_failed;
1241: END IF;
1347: i NUMBER DEFAULT 0;
1348: l_proc_name VARCHAR2(35) := 'GET_RULE_INFO';
1349: BEGIN
1350: IF (G_DEBUG_ENABLED = 'Y') THEN
1351: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1352: END IF;
1353:
1354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1351: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1352: END IF;
1353:
1354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1359: END IF;
1352: END IF;
1353:
1354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1359: END IF;
1360: -- Get current database values
1353:
1354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1359: END IF;
1360: -- Get current database values
1361: OPEN okc_rulv_csr (p_rgd_code,
1354: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rgd_code : '||p_rgd_code);
1357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_code : '||p_rule_code);
1358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'chr_id : '||p_rebook_chr_id);
1359: END IF;
1360: -- Get current database values
1361: OPEN okc_rulv_csr (p_rgd_code,
1362: p_rule_code,
1528: i NUMBER DEFAULT 0;
1529: l_proc_name VARCHAR2(35) := 'GET_SLL_RULES';
1530: BEGIN
1531: IF (G_DEBUG_ENABLED = 'Y') THEN
1532: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1533: END IF;
1534:
1535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1536: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1532: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1533: END IF;
1534:
1535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1536: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1537: END IF;
1538: -- Get current database values
1539: OPEN okc_rulv_csr (p_rgpv_rec.id,
1540: p_rdf_code,
1709: x_rgpv_rec rgpv_rec_type;
1710:
1711: BEGIN
1712: IF (G_DEBUG_ENABLED = 'Y') THEN
1713: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1714: END IF;
1715: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1713: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1714: END IF;
1715: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1718: END IF;
1719:
1720: FOR rebook_rgp_rec IN rgp_csr(p_rebook_chr_id) -- Getting Rebook RGP_ID
1721: LOOP
1752:
1753: CLOSE orig_rgp_csr;
1754:
1755: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1756: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig RGP ID: ' || l_orig_rgp_id);
1757: END IF;
1758:
1759: l_rebook_rgpv_rec := rebook_rgp_rec;
1760: --
1966: x_lalevl_rgpv_rec OKL_OKC_MIGRATION_PVT.rgpv_rec_type;
1967:
1968: BEGIN
1969: IF (G_DEBUG_ENABLED = 'Y') THEN
1970: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1971: END IF;
1972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1970: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1971: END IF;
1972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1975: END IF;
1976:
1977: /*
1978: -- Delete SLH, SLL from Original Contract
2024:
2025: END IF;
2026:
2027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rebook CLE ID: '||rebook_rgp_rec.id);
2029: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig CLE ID: '|| l_orig_cle_id);
2030: END IF;
2031:
2032: IF (l_orig_cle_id IS NULL) THEN
2025: END IF;
2026:
2027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rebook CLE ID: '||rebook_rgp_rec.id);
2029: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig CLE ID: '|| l_orig_cle_id);
2030: END IF;
2031:
2032: IF (l_orig_cle_id IS NULL) THEN
2033: GOTO process_next;
2040: FETCH orig_rgp_csr INTO l_orig_rgp_id;
2041: CLOSE orig_rgp_csr;
2042:
2043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig RGP ID: ' || l_orig_rgp_id);
2045: END IF;
2046:
2047: l_rebook_rgpv_rec := rebook_rgp_rec;
2048: --
2280: sync_party_failed EXCEPTION;
2281:
2282: BEGIN
2283: IF (G_DEBUG_ENABLED = 'Y') THEN
2284: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2285: END IF;
2286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2287: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2288: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2284: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2285: END IF;
2286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2287: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2288: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2289: END IF;
2290:
2291: -- Sync evergreen passthru at contract header and party
2292: FOR rbk_evg_hdr_rec IN rbk_evg_hdr_csr (p_rebook_chr_id)
2340: CLOSE orig_evg_hdr_csr;
2341: END LOOP;
2342:
2343: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2344: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_pphv_rec.id: '||x_pphv_rec.id);
2345: END IF;
2346: IF (l_rbk_evg_hdr_id IS NOT NULL) THEN -- header evergreen exists
2347: -- Update vendor evergreen detail if any
2348: FOR orig_party_rec IN orig_party_csr (p_orig_chr_id)
2349: LOOP
2350: IF (orig_party_rec.payment_hdr_id IS NOT NULL) THEN
2351:
2352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update party payment detail for Vendor: '||orig_party_rec.object1_id1);
2354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2355: END IF;
2356: -- update evg detail
2357: --Bug# 4880939: Changed Open/Fetch to For Loop
2350: IF (orig_party_rec.payment_hdr_id IS NOT NULL) THEN
2351:
2352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update party payment detail for Vendor: '||orig_party_rec.object1_id1);
2354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2355: END IF;
2356: -- update evg detail
2357: --Bug# 4880939: Changed Open/Fetch to For Loop
2358: /*
2367: orig_party_rec.object1_id1)
2368: LOOP
2369:
2370: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2371: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2372: 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);
2373: END IF;
2374:
2375:
2368: LOOP
2369:
2370: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2371: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2372: 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);
2373: END IF;
2374:
2375:
2376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2373: END IF;
2374:
2375:
2376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2378: 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);
2379: END IF;
2380: l_ppydv_u_rec.id := orig_party_rec.pyd_id;
2381: l_ppydv_u_rec.pay_site_id := rbk_evg_dtl_rec.pay_site_id;
2374:
2375:
2376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2378: 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);
2379: END IF;
2380: l_ppydv_u_rec.id := orig_party_rec.pyd_id;
2381: l_ppydv_u_rec.pay_site_id := rbk_evg_dtl_rec.pay_site_id;
2382: l_ppydv_u_rec.payment_term_id := rbk_evg_dtl_rec.payment_term_id;
2403: x_ppydv_rec => x_ppydv_rec
2404: );
2405:
2406: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2407: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Status: '||x_return_status);
2408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2409: END IF;
2410: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2411: RAISE sync_party_failed;
2404: );
2405:
2406: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2407: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Status: '||x_return_status);
2408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2409: END IF;
2410: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2411: RAISE sync_party_failed;
2412: END IF;
2416: -- create evg detail
2417:
2418: l_ppydv_c_rec := NULL;
2419: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create party payment detail for Vendor: '||orig_party_rec.object1_id1);
2421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2422: END IF;
2423: -- update evg detail
2424: --Bug# 4880939: Changed Open/Fetch to For Loop
2417:
2418: l_ppydv_c_rec := NULL;
2419: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create party payment detail for Vendor: '||orig_party_rec.object1_id1);
2421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.payment_hdr_id: '||orig_party_rec.payment_hdr_id);
2422: END IF;
2423: -- update evg detail
2424: --Bug# 4880939: Changed Open/Fetch to For Loop
2425: /*
2434: orig_party_rec.object1_id1)
2435: LOOP
2436:
2437: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2439: 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);
2440: END IF;
2441:
2442:
2435: LOOP
2436:
2437: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'orig_party_rec.pyd_id: '||orig_party_rec.pyd_id);
2439: 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);
2440: END IF;
2441:
2442:
2443: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2440: END IF;
2441:
2442:
2443: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2444: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2445: 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);
2446: END IF;
2447:
2448: --l_ppydv_c_rec.object_version_number := 1;
2441:
2442:
2443: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2444: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rbk_evg_dtl_rec.remit_days: '||rbk_evg_dtl_rec.remit_days);
2445: 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);
2446: END IF;
2447:
2448: --l_ppydv_c_rec.object_version_number := 1;
2449: --rkuttiya added for bug 6873960
2475: x_ppydv_rec => x_ppydv_rec
2476: );
2477:
2478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Status: '||x_return_status);
2480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2481: END IF;
2482: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2483: RAISE sync_party_failed;
2476: );
2477:
2478: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Status: '||x_return_status);
2480: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_ppydv_rec.id: '||x_ppydv_rec.id);
2481: END IF;
2482: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2483: RAISE sync_party_failed;
2484: END IF;
2618: sync_failed EXCEPTION;
2619:
2620: BEGIN
2621: IF (G_DEBUG_ENABLED = 'Y') THEN
2622: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2623: END IF;
2624: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2626: END IF;
2621: IF (G_DEBUG_ENABLED = 'Y') THEN
2622: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2623: END IF;
2624: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2626: END IF;
2627: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2628:
2629: l_khrv_rec := get_khrv_rec(
2792: x_ppydv_rec okl_party_payments_pvt.ppydv_rec_type;
2793:
2794: BEGIN
2795: IF (G_DEBUG_ENABLED = 'Y') THEN
2796: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2797: END IF;
2798:
2799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2800: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2797: END IF;
2798:
2799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2800: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2801: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2802: END IF;
2803:
2804: FOR rbk_pth_detail_rec IN rbk_pth_detail_csr(p_cle_id => p_rbk_cle_id,
2805: p_cpl_id => p_rbk_cpl_id)
2804: FOR rbk_pth_detail_rec IN rbk_pth_detail_csr(p_cle_id => p_rbk_cle_id,
2805: p_cpl_id => p_rbk_cpl_id)
2806: LOOP
2807: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...term :'||rbk_pth_detail_rec.passthru_term);
2809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...cle :'||p_orig_cle_id);
2810: END IF;
2811: OPEN orig_pth_detail_csr (p_vendor_id => p_vendor_id,
2812: p_cle_id => p_orig_cle_id,
2805: p_cpl_id => p_rbk_cpl_id)
2806: LOOP
2807: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...term :'||rbk_pth_detail_rec.passthru_term);
2809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>> pth rebook detail...cle :'||p_orig_cle_id);
2810: END IF;
2811: OPEN orig_pth_detail_csr (p_vendor_id => p_vendor_id,
2812: p_cle_id => p_orig_cle_id,
2813: p_term => rbk_pth_detail_rec.passthru_term);
2819: FETCH orig_pth_hdr_csr INTO l_orig_pth_hdr_id;
2820: CLOSE orig_pth_hdr_csr;
2821:
2822: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail not found.');
2824: END IF;
2825: l_ppydv_rec.id := NULL;
2826: l_ppydv_rec.cpl_id := p_orig_cpl_id;
2827: l_ppydv_rec.vendor_id := p_vendor_id;
2850: p_ppydv_rec => l_ppydv_rec,
2851: x_ppydv_rec => x_ppydv_rec
2852: );
2853: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2854: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> Pth detail created: '||x_return_status);
2855: END IF;
2856:
2857: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2858: RAISE process_pth_failed;
2858: RAISE process_pth_failed;
2859: END IF;
2860: ELSE
2861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...header_id: '||orig_pth_detail_rec.payment_hdr_id);
2863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...id : '||orig_pth_detail_rec.id);
2864: END IF;
2865: l_ppydv_rec.id := orig_pth_detail_rec.id;
2866: l_ppydv_rec.cpl_id := p_orig_cpl_id;
2859: END IF;
2860: ELSE
2861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...header_id: '||orig_pth_detail_rec.payment_hdr_id);
2863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> pth orig detail...id : '||orig_pth_detail_rec.id);
2864: END IF;
2865: l_ppydv_rec.id := orig_pth_detail_rec.id;
2866: l_ppydv_rec.cpl_id := p_orig_cpl_id;
2867: l_ppydv_rec.vendor_id := p_vendor_id;
2890: p_ppydv_rec => l_ppydv_rec,
2891: x_ppydv_rec => x_ppydv_rec
2892: );
2893: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>>>> Pth detail updated: '||x_return_status);
2895: END IF;
2896:
2897: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2898: RAISE process_pth_failed;
2902: CLOSE orig_pth_detail_csr;
2903: END LOOP; -- rbk_pth_detail_csr
2904:
2905: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_proc_name ---> done');
2907: END IF;
2908:
2909: EXCEPTION
2910:
3037: x_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
3038:
3039: BEGIN
3040: IF (G_DEBUG_ENABLED = 'Y') THEN
3041: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3042: END IF;
3043: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3044: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3045: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3041: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3042: END IF;
3043: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3044: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3045: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3046: END IF;
3047:
3048: FOR pth_rec IN pth_csr (p_rebook_chr_id)
3049: LOOP
3050: -- Bug# 4350255
3051: l_c_pphv_tbl.DELETE;
3052: l_u_pphv_tbl.DELETE;
3053: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3054: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Process line: '||pth_rec.id||', '||pth_rec.lse_id);
3055: END IF;
3056:
3057: FOR pth_rbk_hdr_rec IN pth_rbk_hdr_csr (p_rebook_chr_id,
3058: pth_rec.id)
3058: pth_rec.id)
3059: LOOP
3060:
3061: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3063: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3064: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3065: END IF;
3066:
3059: LOOP
3060:
3061: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3063: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3064: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3065: END IF;
3066:
3067: l_pth_rebook_hdr_id := pth_rbk_hdr_rec.id;
3060:
3061: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.passthru_term: '|| pth_rbk_hdr_rec.passthru_term);
3063: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_from: '||pth_rbk_hdr_rec.effective_from);
3064: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'pth_rbk_hdr_rec.effective_to: '||pth_rbk_hdr_rec.effective_to);
3065: END IF;
3066:
3067: l_pth_rebook_hdr_id := pth_rbk_hdr_rec.id;
3068:
3108: p_pphv_tbl => l_c_pphv_tbl,
3109: x_pphv_tbl => x_pphv_tbl
3110: );
3111: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3112: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PTH header insert for: '||pth_rec.orig_system_id1||': '||x_return_status);
3113: END IF;
3114: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3115: RAISE pth_failed;
3116: END IF;
3125: p_pphv_tbl => l_u_pphv_tbl,
3126: x_pphv_tbl => x_pphv_tbl
3127: );
3128: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PTH header update for: '||pth_rec.orig_system_id1||': '||x_return_status);
3130: END IF;
3131: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3132: RAISE pth_failed;
3133: END IF;
3136: FOR pth_vendor_rec in pth_vendor_csr(p_rebook_chr_id,
3137: pth_rec.id)
3138: LOOP
3139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook vendor id: '||pth_vendor_rec.vendor_id);
3141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook cpl id : '||pth_vendor_rec.id);
3142: END IF;
3143: -- get original vendor and cpl_id for this record
3144: OPEN orig_vendor_csr(pth_vendor_rec.vendor_id,
3137: pth_rec.id)
3138: LOOP
3139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook vendor id: '||pth_vendor_rec.vendor_id);
3141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>rebook cpl id : '||pth_vendor_rec.id);
3142: END IF;
3143: -- get original vendor and cpl_id for this record
3144: OPEN orig_vendor_csr(pth_vendor_rec.vendor_id,
3145: pth_rec.orig_system_id1);
3145: pth_rec.orig_system_id1);
3146: FETCH orig_vendor_csr INTO l_orig_cpl_id;
3147: IF orig_vendor_csr%NOTFOUND THEN
3148: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> vendor not found.');
3150: END IF;
3151: -- Create party for orig fee
3152: l_cplv_rec.dnz_chr_id := p_orig_chr_id;
3153: l_cplv_rec.cle_id := pth_rec.orig_system_id1;
3181: p_kplv_rec => l_kplv_rec,
3182: x_kplv_rec => x_kplv_rec);
3183:
3184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor '||pth_vendor_rec.vendor_id||' created: '||x_return_status);
3186: END IF;
3187:
3188: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3189: RAISE pth_failed;
3208:
3209: ELSE
3210: -- get rebook pth header+detail for this vendor
3211: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> pth detail for above vendor');
3213: END IF;
3214: process_pth_detail(
3215: x_return_status => x_return_status,
3216: x_msg_count => x_msg_count,
3239: p_rbk_chr_id => p_rebook_chr_id,
3240: p_rbk_cle_id => pth_rec.id)
3241: LOOP
3242: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3243: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted: '||rbk_del_vendor_rec.object1_id1);
3244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted cpl_id: '||rbk_del_vendor_rec.id);
3245: END IF;
3246: okl_maintain_fee_pvt.delete_passthru_party(
3247: p_api_version => 1.0,
3240: p_rbk_cle_id => pth_rec.id)
3241: LOOP
3242: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3243: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted: '||rbk_del_vendor_rec.object1_id1);
3244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'>> Vendor to be deleted cpl_id: '||rbk_del_vendor_rec.id);
3245: END IF;
3246: okl_maintain_fee_pvt.delete_passthru_party(
3247: p_api_version => 1.0,
3248: p_init_msg_list => OKL_API.G_FALSE,
3251: x_msg_data => x_msg_data,
3252: p_cpl_id => rbk_del_vendor_rec.id
3253: );
3254: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3255: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Vendor deleted: '||x_return_status);
3256: END IF;
3257:
3258: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3259: RAISE pth_failed;
3624: lx_cov_ast_tbl klev_tbl_type;
3625:
3626: BEGIN
3627: IF (G_DEBUG_ENABLED = 'Y') THEN
3628: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3629: END IF;
3630:
3631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3632: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3629: END IF;
3630:
3631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3632: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3634: END IF;
3635:
3636: -- ABANDON Orig FEE line only if Orig contract has FEE_TYPE='GENERAL'
3637:
3636: -- ABANDON Orig FEE line only if Orig contract has FEE_TYPE='GENERAL'
3637:
3638: FOR orig_fee_rec IN fee_line_csr(p_orig_chr_id) LOOP
3639: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Abandon line: '||orig_fee_rec.id);
3641: END IF;
3642: -- Delete from Orig contract
3643: -- l_clev_rec := NULL;
3644: -- l_klev_rec := NULL;
3664: RAISE sync_fee_failed;
3665: END IF;
3666:
3667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line deleted');
3669: END IF;
3670:
3671: -- ABANDONED FEE sub-lines
3672: FOR fee_subline_rec IN fee_subline_csr(orig_fee_rec.id) LOOP
3675:
3676: l_clev_rec.sts_code := 'ABANDONED';
3677:
3678: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sub line delete: '||fee_subline_rec.id);
3680: END IF;
3681: okl_contract_pub.update_contract_line(
3682: p_api_version => 1.0,
3683: p_init_msg_list => OKL_API.G_FALSE,
3692: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3693: RAISE sync_fee_failed;
3694: END IF;
3695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sub line deleted');
3697: END IF;
3698: END LOOP;
3699:
3700: -- HIST related Streams
3733: i := i + 1;
3734: l_rbk_fee_tbl(i).id := rbk_fee_rec.id;
3735:
3736: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3737: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Fee line: '||rbk_fee_rec.id);
3738: END IF;
3739:
3740: END LOOP; -- rbk_fee_csr
3741:
3770: OPEN c_fee_rbk_csr (cp_chr_id => p_rebook_chr_id);
3771: LOOP
3772: FETCH c_fee_rbk_csr INTO c_fee_rbk_rec;
3773: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3774: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL.H*** ST Fee Line: '|| c_fee_rbk_rec.id);
3775: END IF;
3776: EXIT WHEN c_fee_rbk_csr%NOTFOUND;
3777: OPEN c_fee_orig_csr(cp_chr_id => p_orig_chr_id, cp_cle_id => c_fee_rbk_rec.orig_system_id1);
3778: FETCH c_fee_orig_csr INTO c_fee_orig_rec;
3878: l_orig_st_fee_rec.attribute14 := c_fee_rbk_rec.attribute14;
3879: l_orig_st_fee_rec.attribute15 := c_fee_rbk_rec.attribute15;
3880:
3881: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3882: 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);
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3879: l_orig_st_fee_rec.attribute15 := c_fee_rbk_rec.attribute15;
3880:
3881: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3882: 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);
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3880:
3881: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3882: 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);
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3881: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3882: 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);
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3882: 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);
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3883: 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);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3884: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3892: 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);
3885: 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);
3886: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3892: 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);
3893: 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);
3887: 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);
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3892: 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);
3893: 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);
3894: END IF;
3895:
3888: 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);
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3892: 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);
3893: 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);
3894: END IF;
3895:
3896: -- Update corresponding Orig Fee line
3889: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.amount: '||l_orig_st_fee_rec.amount);
3890: -- Bug 12938353: RGOOTY: Income Fee Enhancement
3891: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_st_fee_rec.origination_income: '||l_orig_st_fee_rec.origination_income);
3892: 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);
3893: 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);
3894: END IF;
3895:
3896: -- Update corresponding Orig Fee line
3897: okl_maintain_fee_pvt.update_fee_type(
3903: p_fee_types_rec => l_orig_st_fee_rec,
3904: x_fee_types_rec => x_orig_st_fee_rec
3905: );
3906: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL.H*** After Update Top line: '||x_return_status);
3908: END IF;
3909:
3910: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3911: RAISE sync_fee_failed;
3921: -- Sync Fee expense rules for Financed Fee line
3922: -- Also syncing the Misc and Expense Fee lines as part of Contract Rebook Change Control Enhancement
3923: IF (c_fee_rbk_rec.fee_type IN ('FINANCED','MISCELLANEOUS','EXPENSE')) THEN
3924: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3925: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sync Financed Fee - Expense Rule');
3926: END IF;
3927: -- get original Expense rule LAFREQ
3928: get_rule_info(
3929: x_return_status => x_return_status,
3957: END IF;
3958:
3959: IF (l_orig_freq <> x_rulv_freq_rec.object1_id1) THEN
3960: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3961: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Freq to: '||x_rulv_freq_rec.object1_id1);
3962: END IF;
3963: x_rulv_freq_rec.id := l_orig_freq_rule_id;
3964: x_rulv_freq_rec.rgp_id := l_orig_freq_rgp_id;
3965: x_rulv_freq_rec.dnz_chr_id := p_orig_chr_id;
3973: x_rulv_rec => x_rulv_rec
3974: );
3975:
3976: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3977: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFREQ : '||x_return_status);
3978: END IF;
3979:
3980: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3981: x_return_status := Okc_Api.G_RET_STS_ERROR;
4019: IF (l_orig_exp_period <> x_rulv_exp_rec.rule_information1
4020: OR
4021: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4022: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4024: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4025: END IF;
4026: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4027: x_rulv_exp_rec.rgp_id := l_orig_exp_rgp_id;
4020: OR
4021: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4022: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4024: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4025: END IF;
4026: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4027: x_rulv_exp_rec.rgp_id := l_orig_exp_rgp_id;
4028: x_rulv_exp_rec.dnz_chr_id := p_orig_chr_id;
4035: p_rulv_rec => x_rulv_exp_rec,
4036: x_rulv_rec => x_rulv_rec
4037: );
4038: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4039: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFEXP : '||x_return_status);
4040: END IF;
4041:
4042: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4043: x_return_status := Okc_Api.G_RET_STS_ERROR;
4058: IF (l_orig_party_id IS NOT NULL) THEN
4059: IF (l_orig_object1_id1 <> rbk_fee_party_rec.object1_id1) THEN
4060: -- Update
4061: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Party...');
4063: END IF;
4064: l_cplv_rec.id := l_orig_party_id;
4065: l_cplv_rec.object1_id1 := rbk_fee_party_rec.object1_id1;
4066:
4095: END IF;
4096: END IF;
4097: ELSE -- new party
4098: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4099: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Create Party...');
4100: END IF;
4101: -- Create party for orig fee
4102: l_cplv_rec.dnz_chr_id := p_orig_chr_id;
4103: l_cplv_rec.cle_id := l_orig_fee_top_line_id;
4147: --Bug# 4899328
4148: l_cov_ast_tbl.DELETE;
4149:
4150: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update link asset for: '||c_fee_rbk_rec.id);
4152: END IF;
4153: FOR rbk_fee_asset_rec IN rbk_fee_asset_csr (c_fee_rbk_rec.id,
4154: c_fee_rbk_rec.dnz_chr_id)
4155: LOOP
4155: LOOP
4156:
4157: IF (rbk_fee_asset_rec.orig_system_id1 IS NOT NULL) THEN -- update the line
4158: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4159: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Update Rebook Asset: '||rbk_fee_asset_rec.line_id);
4160: END IF;
4161: FOR orig_fee_asset_rec IN orig_fee_asset_csr(rbk_fee_asset_rec.orig_system_id1,
4162: p_orig_chr_id)
4163: LOOP
4175: l_u_line_item_tbl(upd).capital_amount := NVL(rbk_fee_asset_rec.capital_amount,
4176: rbk_fee_asset_rec.amount) ;
4177:
4178: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4179: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4181: END IF;
4182: END LOOP;
4183: ELSE
4176: rbk_fee_asset_rec.amount) ;
4177:
4178: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4179: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4181: END IF;
4182: END LOOP;
4183: ELSE
4184: -- Create new asset association line
4182: END LOOP;
4183: ELSE
4184: -- Create new asset association line
4185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Insert Rebook Asset: '||rbk_fee_asset_rec.line_id);
4187: END IF;
4188: ins := ins + 1;
4189: --Bug# 4899328
4190: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4189: --Bug# 4899328
4190: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4191:
4192: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4193: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_fee_asset_rec.name);
4194: 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));
4195: END IF;
4196:
4197: /*
4190: l_cov_ast_tbl(ins).id := rbk_fee_asset_rec.line_id;
4191:
4192: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4193: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_fee_asset_rec.name);
4194: 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));
4195: END IF;
4196:
4197: /*
4198: l_c_line_item_tbl(ins).parent_cle_id := l_orig_fee_top_line_id;
4227: RAISE sync_fee_failed;
4228: END IF;
4229: END IF;
4230: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Fee asset updated; '||l_u_line_item_tbl.COUNT);
4232: END IF;
4233:
4234: --Bug# 4899328
4235: -- Change call from okl_contract_line_item_pvt.create_contract_line_item to
4257: END IF;
4258: END IF;
4259:
4260: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4261: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Fee asset inserted; '||l_cov_ast_tbl.COUNT);
4262: END IF;
4263:
4264:
4265: /*
4527: lx_cov_ast_tbl klev_tbl_type;
4528:
4529: BEGIN
4530: IF (G_DEBUG_ENABLED = 'Y') THEN
4531: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4532: END IF;
4533:
4534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4532: END IF;
4533:
4534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4536: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4537: END IF;
4538:
4539: l_rbk_service_tbl.DELETE;
4540: i := 0;
4546: i := i + 1;
4547: l_rbk_service_tbl(i).id := rbk_service_rec.id;
4548:
4549: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4550: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Service line: '||rbk_service_rec.id);
4551: END IF;
4552: END LOOP; -- rbk_service_csr
4553:
4554: IF (i > 0) THEN
4578: OPEN c_service_rbk_csr (cp_chr_id => p_rebook_chr_id);
4579: LOOP
4580: FETCH c_service_rbk_csr INTO c_service_rbk_rec;
4581: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Service Line: '|| c_service_rbk_rec.id);
4583: END IF;
4584: EXIT WHEN c_service_rbk_csr%NOTFOUND;
4585: OPEN c_service_orig_csr(cp_chr_id => p_orig_chr_id, cp_cle_id => c_service_rbk_rec.orig_system_id1);
4586: FETCH c_service_orig_csr INTO c_service_orig_rec;
4664: l_orig_cplv_rec.dnz_chr_id := c_service_orig_rec.dnz_chr_id;
4665: l_orig_cplv_rec.cle_id := c_service_orig_rec.id;
4666:
4667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.id: '||l_orig_clev_rec.id);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4665: l_orig_cplv_rec.cle_id := c_service_orig_rec.id;
4666:
4667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.id: '||l_orig_clev_rec.id);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4666:
4667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.id: '||l_orig_clev_rec.id);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.id: '||l_orig_clev_rec.id);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.id: '||l_orig_clev_rec.id);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.item_description: '||l_orig_clev_rec.item_description);
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.dnz_chr_id: '||l_orig_clev_rec.dnz_chr_id);
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.item_description: '||l_orig_clev_rec.item_description);
4677: END IF;
4670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.id: '||l_orig_cimv_rec.id);
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.item_description: '||l_orig_clev_rec.item_description);
4677: END IF;
4678:
4671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id1: '||l_orig_cimv_rec.object1_id1);
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.item_description: '||l_orig_clev_rec.item_description);
4677: END IF;
4678:
4679: -- Update corresponding Orig service line
4672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_cimv_rec.object1_id2: '||l_orig_cimv_rec.object1_id2);
4673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.start_date: '||l_orig_clev_rec.start_date);
4674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.end_date: '||l_orig_clev_rec.end_date);
4675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_klev_rec.amount: '||l_orig_klev_rec.amount);
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_clev_rec.item_description: '||l_orig_clev_rec.item_description);
4677: END IF;
4678:
4679: -- Update corresponding Orig service line
4680: okl_contract_top_line_pvt.update_contract_top_line(
4692: x_cimv_rec => x_cimv_rec,
4693: x_cplv_rec => x_cplv_rec
4694: );
4695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update Service Top line: '||x_return_status);
4697: END IF;
4698:
4699: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4700: RAISE sync_service_failed;
4702: END IF;
4703:
4704: -- Sync Service line expense rules
4705: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4706: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sync Service Line - Expense Rule');
4707: END IF;
4708:
4709: -- Bug#9689536 - Start
4710: -- Note here that if service information is entered, all three fields (period, frequency and amount) would have value as UI is built that way
4818: END IF;
4819:
4820: IF (l_orig_freq <> x_rulv_freq_rec.object1_id1) THEN
4821: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update Freq to: '||x_rulv_freq_rec.object1_id1);
4823: END IF;
4824:
4825: x_rulv_freq_rec.id := l_orig_freq_rule_id;
4826: x_rulv_freq_rec.rgp_id := l_orig_freq_rgp_id;
4835: x_rulv_rec => x_rulv_rec
4836: );
4837:
4838: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4839: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFREQ : '||x_return_status);
4840: END IF;
4841:
4842: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4843: x_return_status := Okc_Api.G_RET_STS_ERROR;
4881:
4882: IF (l_orig_exp_period <> x_rulv_exp_rec.rule_information1 OR
4883: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4884: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4887: END IF;
4888:
4889: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4882: IF (l_orig_exp_period <> x_rulv_exp_rec.rule_information1 OR
4883: l_orig_exp_amount <> x_rulv_exp_rec.rule_information2) THEN
4884: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update period to: '||x_rulv_exp_rec.rule_information1);
4886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update amount to: '||x_rulv_exp_rec.rule_information2);
4887: END IF;
4888:
4889: x_rulv_exp_rec.id := l_orig_exp_rule_id;
4890: x_rulv_exp_rec.rgp_id := l_orig_exp_rgp_id;
4898: p_rulv_rec => x_rulv_exp_rec,
4899: x_rulv_rec => x_rulv_rec
4900: );
4901: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4902: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update LAFEXP : '||x_return_status);
4903: END IF;
4904:
4905: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4906: x_return_status := Okc_Api.G_RET_STS_ERROR;
4915:
4916: l_cov_ast_tbl.DELETE;
4917:
4918: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update link asset for: '||c_service_rbk_rec.id);
4920: END IF;
4921: FOR rbk_service_asset_rec IN rbk_service_asset_csr (c_service_rbk_rec.id,
4922: c_service_rbk_rec.dnz_chr_id)
4923: LOOP
4923: LOOP
4924:
4925: IF (rbk_service_asset_rec.orig_system_id1 IS NOT NULL) THEN -- update the line
4926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Update Rebook Asset: '||rbk_service_asset_rec.line_id);
4928: END IF;
4929: FOR orig_service_asset_rec IN orig_service_asset_csr(rbk_service_asset_rec.orig_system_id1,
4930: p_orig_chr_id)
4931: LOOP
4942: l_u_line_item_tbl(upd).item_description := rbk_service_asset_rec.item_description;
4943: l_u_line_item_tbl(upd).capital_amount := rbk_service_asset_rec.capital_amount;
4944:
4945: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4946: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4947: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4948: END IF;
4949: END LOOP;
4950: ELSE
4943: l_u_line_item_tbl(upd).capital_amount := rbk_service_asset_rec.capital_amount;
4944:
4945: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4946: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Update record: '||upd||': '||l_u_line_item_tbl(upd).name);
4947: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||l_u_line_item_tbl(upd).capital_amount);
4948: END IF;
4949: END LOOP;
4950: ELSE
4951: -- Create new asset association line
4949: END LOOP;
4950: ELSE
4951: -- Create new asset association line
4952: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4953: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--->Insert Rebook Asset: '||rbk_service_asset_rec.line_id);
4954: END IF;
4955: ins := ins + 1;
4956: --Bug# 4899328
4957: l_cov_ast_tbl(ins).id := rbk_service_asset_rec.line_id;
4956: --Bug# 4899328
4957: l_cov_ast_tbl(ins).id := rbk_service_asset_rec.line_id;
4958:
4959: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4960: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_service_asset_rec.name);
4961: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||rbk_service_asset_rec.capital_amount);
4962: END IF;
4963:
4964: END IF;
4957: l_cov_ast_tbl(ins).id := rbk_service_asset_rec.line_id;
4958:
4959: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4960: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Insert record: '||ins||': '||rbk_service_asset_rec.name);
4961: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Capital amt: '||rbk_service_asset_rec.capital_amount);
4962: END IF;
4963:
4964: END IF;
4965: END LOOP; -- subline
4978: RAISE sync_service_failed;
4979: END IF;
4980: END IF;
4981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Service asset updated; '||l_u_line_item_tbl.COUNT);
4983: END IF;
4984:
4985: IF (l_cov_ast_tbl.COUNT > 0) THEN
4986: okl_copy_asset_pub.copy_all_lines(
5004: END IF;
5005: END IF;
5006:
5007: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5008: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Link Service asset inserted; '||l_cov_ast_tbl.COUNT);
5009: END IF;
5010:
5011: END IF;
5012: CLOSE c_service_orig_csr;
5308: AND rul_orig.rule_information_category = rul_rbk.rule_information_category);
5309:
5310: BEGIN
5311: IF (G_DEBUG_ENABLED = 'Y') THEN
5312: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5313: END IF;
5314:
5315: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5316: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5312: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5313: END IF;
5314:
5315: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5316: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5317: END IF;
5318:
5319: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5320:
5708: --Bug# 8652738
5709:
5710: BEGIN
5711: IF (G_DEBUG_ENABLED = 'Y') THEN
5712: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5713: END IF;
5714: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5716: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5712: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5713: END IF;
5714: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5715: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5716: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5717: END IF;
5718:
5719:
5720: -- Delete Line level existing SLH, SLL from Original Contract
5725: FOR rule_rec IN rule_csr(del_rgp_rec.id)
5726: LOOP
5727: l_rulv_tbl(i).id := rule_rec.id;
5728: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5729: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Rule Deleted: '||l_rulv_tbl(i).id);
5730: END IF;
5731: i := i+ 1;
5732: END LOOP;
5733: END LOOP;
5994:
5995:
5996: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5997: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5998: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' okc_cim_pvt.update_row sync_failed= ');
5999: END IF;
6000: RAISE sync_failed;
6001: END IF;
6002: END IF;
6013: END IF;
6014: END LOOP;
6015:
6016: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig: '||p_orig_chr_id);
6018: END IF;
6019:
6020: okl_contract_pub.update_contract_line(
6021: p_api_version => 1.0,
6056: END LOOP;
6057:
6058: IF (j > 1) THEN -- New Asset Lines came in
6059: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6060: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'new line id: '||l_new_klev_tbl(1).id);
6061: END IF;
6062: okl_copy_asset_pub.copy_all_lines(
6063: p_api_version => 1.0,
6064: p_init_msg_list => OKL_API.G_FALSE,
6116: l_new_klev_tbl(j).id := rebook_new_ib_line_rec.id;
6117: l_tran_date := rebook_new_ib_line_rec.parent_orig_start_date; --Used later to update line
6118:
6119: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'new line id: '||l_new_klev_tbl(1).id);
6121: END IF;
6122: okl_copy_asset_pub.copy_all_lines(
6123: p_api_version => 1.0,
6124: p_init_msg_list => OKL_API.G_FALSE,
6176: l_new_klev_tbl(j).id := rebook_new_addon_line_rec.id;
6177: l_tran_date := rebook_new_addon_line_rec.parent_orig_start_date; --Used later to update line
6178:
6179: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'new line id: '||l_new_klev_tbl(1).id);
6181: END IF;
6182: okl_copy_asset_pub.copy_all_lines(
6183: p_api_version => 1.0,
6184: p_init_msg_list => OKL_API.G_FALSE,
6329: x_cvmv_rec cvmv_rec_type;
6330:
6331: BEGIN
6332: IF (G_DEBUG_ENABLED = 'Y') THEN
6333: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6334: END IF;
6335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6337: END IF;
6332: IF (G_DEBUG_ENABLED = 'Y') THEN
6333: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6334: END IF;
6335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6337: END IF;
6338: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6339:
6340: l_cvmv_rec.chr_id := p_chr_id;
6401: check_update_failed EXCEPTION;
6402:
6403: BEGIN
6404: IF (G_DEBUG_ENABLED = 'Y') THEN
6405: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6406: END IF;
6407: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6409: END IF;
6404: IF (G_DEBUG_ENABLED = 'Y') THEN
6405: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6406: END IF;
6407: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6409: END IF;
6410: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6411:
6412: l_orig_term := NULL;
6763: AND rul_orig.rule_information_category = rul_rbk.rule_information_category);
6764:
6765: BEGIN
6766: IF (G_DEBUG_ENABLED = 'Y') THEN
6767: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6768: END IF;
6769:
6770: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6771: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6767: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6768: END IF;
6769:
6770: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6771: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6772: END IF;
6773:
6774: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6775:
7014: AND representation_type = 'PRIMARY'; -- MGAAP 7263041
7015:
7016: BEGIN
7017: IF (G_DEBUG_ENABLED = 'Y') THEN
7018: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7019: END IF;
7020:
7021: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7022: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7019: END IF;
7020:
7021: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7022: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7024: END IF;
7025: -- call START_ACTIVITY to create savepoint, check compatibility
7026: -- and initialize message list
7027: x_return_status := OKC_API.START_ACTIVITY(
7070: RAISE OKC_API.G_EXCEPTION_ERROR;
7071: END IF;
7072:
7073: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Versioning of Contract');
7075: END IF;
7076:
7077: -- Start Synchronzing Rebook and Original Contracts
7078:
7203: RAISE OKC_API.G_EXCEPTION_ERROR;
7204: END IF;
7205:
7206: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7207: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After SYNC_SLH_SLL');
7208: END IF;
7209:
7210:
7211: -- Sync passthru vendor and line parameters
7344: BEGIN -- main process begins here
7345:
7346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7347: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7348: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7349: END IF;
7350: -- call START_ACTIVITY to create savepoint, check compatibility
7351: -- and initialize message list
7352: x_return_status := OKC_API.START_ACTIVITY(
7549: secu_failed EXCEPTION;
7550:
7551: BEGIN
7552: IF (G_DEBUG_ENABLED = 'Y') THEN
7553: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7554: END IF;
7555:
7556: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7557: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7554: END IF;
7555:
7556: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7557: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7558: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7559: END IF;
7560:
7561: --
7562: -- Check for Securitized Contract
7582: RAISE secu_failed;
7583: END IF;
7584:
7585: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7586: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Securitized? '||l_contract_secu);
7587: END IF;
7588:
7589: IF (l_contract_secu <> OKL_API.G_TRUE) THEN -- Do not proceed, return success
7590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7619: END IF;
7620: END IF;
7621:
7622: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After disbursment HIST streams');
7624: END IF;
7625: --
7626: -- Create Pool transaction after rebook
7627: --
7640: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7641: RAISE secu_failed;
7642: END IF;
7643: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7644: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Modify pool contents');
7645: END IF;
7646:
7647: -- Bug# 4775555: Start
7648: -- Accrual Streams will now be Historized in OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS
7695: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7696: RAISE secu_failed;
7697: END IF;
7698: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7699: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating disb. streams');
7700: END IF;
7701:
7702: -- Bug# 4775555
7703: --
7715: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7716: RAISE secu_failed;
7717: END IF;
7718: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7719: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Present Value Disbursement streams');
7720: END IF;
7721:
7722: --
7723: -- Generate Investor accrual streams
7734: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7735: RAISE secu_failed;
7736: END IF;
7737: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7738: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After regerating Investor accrual streams');
7739: END IF;
7740:
7741: RETURN;
7742:
7810: lx_trxnum_tbl OKL_GENERATE_ACCRUALS_PVT.trxnum_tbl_type;
7811:
7812: BEGIN
7813: IF (G_DEBUG_ENABLED = 'Y') THEN
7814: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7815: END IF;
7816:
7817: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7818: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7815: END IF;
7816:
7817: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7818: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
7820: END IF;
7821: -- call START_ACTIVITY to create savepoint, check compatibility
7822: -- and initialize message list
7823: x_return_status := OKC_API.START_ACTIVITY(
7901: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: END IF;
7903:
7904: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Change Status 2: '||x_return_status);
7906: END IF;
7907:
7908: --
7909: -- Securitization stream processing
7924: --
7925: -- Create Investor Disbursement Adjustment
7926: --
7927: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7928: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call create_inv_disb_adjustment');
7929: END IF;
7930: create_inv_disb_adjustment(
7931: p_api_version => p_api_version,
7932: p_init_msg_list => p_init_msg_list,
7935: x_msg_data => x_msg_data,
7936: p_orig_khr_id => l_orig_chr_id
7937: );
7938: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7939: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
7940: END IF;
7941:
7942: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7954: -- Create Investor Accrual Adjustment
7955: --
7956: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
7957: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7958: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment');
7959: END IF;
7960: calc_inv_acc_adjustment(
7961: p_api_version => p_api_version,
7962: p_init_msg_list => p_init_msg_list,
7969: x_inv_accrual_rec => l_inv_accrual_rec,
7970: x_inv_stream_tbl => l_inv_stream_tbl
7971: );
7972: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
7974: END IF;
7975:
7976: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7980: END IF;
7981:
7982: IF (l_inv_stream_tbl.COUNT > 0) THEN
7983: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7984: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call okl_generate_accruals_pvt.adjust_accruals');
7985: END IF;
7986: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
7987: p_api_version => p_api_version,
7988: p_init_msg_list => p_init_msg_list,
7994: x_trx_tbl => lx_trxnum_tbl,
7995: p_accrual_rec => l_inv_accrual_rec,
7996: p_stream_tbl => l_inv_stream_tbl);
7997: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7998: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call okl_generate_accruals_pvt.adjust_accruals'||x_return_status);
7999: END IF;
8000:
8001: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8012:
8013: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
8014:
8015: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8016: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call calc_inv_acc_adjustment for SECONDARY');
8017: END IF;
8018: calc_inv_acc_adjustment(
8019: p_api_version => p_api_version,
8020: p_init_msg_list => p_init_msg_list,
8029: p_product_id => l_rbk_trx_rec.reporting_pdt_id
8030: );
8031: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
8032: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8033: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
8034: END IF;
8035:
8036: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8040: END IF;
8041:
8042: IF (l_inv_stream_tbl.COUNT > 0) THEN
8043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call okl_generate_accruals_pvt.adjust_accruals');
8045: END IF;
8046:
8047: --Bug# 9191475
8048: --l_inv_accrual_rec.trx_number := lx_trx_number;
8059: p_accrual_rec => l_inv_accrual_rec,
8060: p_stream_tbl => l_inv_stream_tbl,
8061: p_representation_type => 'SECONDARY');
8062: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8063: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call okl_generate_accruals_pvt.adjust_accruals'||x_return_status);
8064: END IF;
8065:
8066: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8067: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8167: l_orig_chr_id NUMBER;
8168:
8169: BEGIN
8170: IF (G_DEBUG_ENABLED = 'Y') THEN
8171: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8172: END IF;
8173:
8174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8175: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8172: END IF;
8173:
8174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8175: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
8177: END IF;
8178: -- call START_ACTIVITY to create savepoint, check compatibility
8179: -- and initialize message list
8180: x_return_status := OKC_API.START_ACTIVITY(
8505: --end Bug# 6344223
8506:
8507: BEGIN
8508: IF (G_DEBUG_ENABLED = 'Y') THEN
8509: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8510: END IF;
8511:
8512: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8513: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8510: END IF;
8511:
8512: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8513: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8514: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
8515: END IF;
8516: -- call START_ACTIVITY to create savepoint, check compatibility
8517: -- and initialize message list
8518: x_return_status := OKL_API.START_ACTIVITY(
8543: OPEN chk_mass_rbk_csr (p_chr_id => p_khr_id);
8544: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr, l_mass_rbk_trx_id;
8545: CLOSE chk_mass_rbk_csr;
8546: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8547: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
8548: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
8549: END IF;
8550:
8551: --check for rebook contract
8544: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr, l_mass_rbk_trx_id;
8545: CLOSE chk_mass_rbk_csr;
8546: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8547: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
8548: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
8549: END IF;
8550:
8551: --check for rebook contract
8552: l_rbk_khr := '?';
8555: OPEN chk_rbk_csr (p_chr_id => p_khr_id);
8556: FETCH chk_rbk_csr INTO l_rbk_khr,l_orig_khr_id,l_online_rbk_trx_id;
8557: CLOSE chk_rbk_csr;
8558: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8559: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
8560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
8561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
8562: END IF;
8563:
8556: FETCH chk_rbk_csr INTO l_rbk_khr,l_orig_khr_id,l_online_rbk_trx_id;
8557: CLOSE chk_rbk_csr;
8558: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8559: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
8560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
8561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
8562: END IF;
8563:
8564: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
8557: CLOSE chk_rbk_csr;
8558: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8559: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
8560: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_orig_khr_id: '||l_orig_khr_id);
8561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
8562: END IF;
8563:
8564: --Added condition l_split_trans_id IS NOT NULL for Bug# 6344223
8565: IF ((l_split_trans_id IS NOT NULL) OR l_mass_rbk_khr = '!' OR l_rbk_khr = '!') THEN
8622:
8623: END IF;
8624:
8625: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
8627: 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);
8628: END IF;
8629:
8630: END LOOP;
8623: END IF;
8624:
8625: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
8627: 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);
8628: END IF;
8629:
8630: END LOOP;
8631:
8642: x_stmv_tbl => x_new_strm_tbl
8643: );
8644:
8645: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of New Strms - Trx ID and Hist ID '||x_return_status);
8647: END IF;
8648:
8649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8650: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: lx_disb_rec OKL_BPD_TERMINATION_ADJ_PVT.disb_rec_type;
8801:
8802: BEGIN
8803: IF (G_DEBUG_ENABLED = 'Y') THEN
8804: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8805: END IF;
8806:
8807: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8805: END IF;
8806:
8807: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
8810: END IF;
8811: -- call START_ACTIVITY to create savepoint, check compatibility
8812: -- and initialize message list
8813: x_return_status := OKL_API.START_ACTIVITY(
8840: FETCH max_disb_date_csr INTO l_max_disb_date;
8841: CLOSE max_disb_date_csr;
8842:
8843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
8845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
8846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
8847: END IF;
8848:
8841: CLOSE max_disb_date_csr;
8842:
8843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
8845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
8846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
8847: END IF;
8848:
8849: IF l_max_disb_date IS NOT NULL THEN
8842:
8843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
8845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
8846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Disbursed Date: '||l_max_disb_date);
8847: END IF;
8848:
8849: IF l_max_disb_date IS NOT NULL THEN
8850:
8853: FETCH actual_amount_disb_csr INTO l_actual_amount_disbursed;
8854: CLOSE actual_amount_disb_csr;
8855:
8856: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disbursed);
8858: END IF;
8859:
8860: l_amount_to_be_disbursed := 0;
8861: l_selv_count := 0;
8875:
8876: END LOOP;
8877:
8878: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8879: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Disbursed: '||l_amount_to_be_disbursed);
8880: END IF;
8881:
8882: l_disb_adjustment := l_amount_to_be_disbursed - l_actual_amount_disbursed;
8883:
8881:
8882: l_disb_adjustment := l_amount_to_be_disbursed - l_actual_amount_disbursed;
8883:
8884: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
8886: END IF;
8887:
8888: IF l_disb_adjustment <> 0 THEN
8889: i := i + 1;
8893: l_rebook_adj_tbl(i).adjusted_amount := l_disb_adjustment;
8894: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
8895:
8896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8894: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
8895:
8896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8895:
8896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8903: 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);
8896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8903: 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);
8904: END IF;
8897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8903: 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);
8904: END IF;
8905:
8898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8903: 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);
8904: END IF;
8905:
8906: END IF;
8899: 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);
8900: 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);
8901: 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);
8902: 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);
8903: 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);
8904: END IF;
8905:
8906: END IF;
8907:
8916: x_selv_tbl => x_selv_tbl
8917: );
8918:
8919: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8920: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of Stream Elements - Date Disbursed '||x_return_status);
8921: END IF;
8922:
8923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8924: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8943: -- Do not process Insurance Streams
8944: IF (NVL(del_billable_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
8945:
8946: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8947: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_billable_streams_rec.orig_stm_id);
8948: END IF;
8949:
8950: l_actual_amount_disbursed := 0;
8951: OPEN actual_amount_disb_csr(p_stm_id => del_billable_streams_rec.orig_stm_id);
8952: FETCH actual_amount_disb_csr INTO l_actual_amount_disbursed;
8953: CLOSE actual_amount_disb_csr;
8954:
8955: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8956: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disbursed);
8957: END IF;
8958:
8959: l_disb_adjustment := -1 * l_actual_amount_disbursed;
8960:
8958:
8959: l_disb_adjustment := -1 * l_actual_amount_disbursed;
8960:
8961: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8962: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
8963: END IF;
8964:
8965: IF l_actual_amount_disbursed <> 0 THEN
8966: i := i + 1;
8970: l_rebook_adj_tbl(i).adjusted_amount := l_disb_adjustment;
8971: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
8972:
8973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8971: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
8972:
8973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8972:
8973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8980: 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);
8973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8980: 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);
8981: END IF;
8974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment Record');
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8980: 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);
8981: END IF;
8982:
8975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8980: 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);
8981: END IF;
8982:
8983: END IF;
8976: 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);
8977: 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);
8978: 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);
8979: 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);
8980: 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);
8981: END IF;
8982:
8983: END IF;
8984: END IF;
8998: ,x_msg_count => x_msg_count
8999: ,x_msg_data => x_msg_data);
9000:
9001: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9002: 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);
9003: END IF;
9004:
9005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9155: lx_disb_rec OKL_BPD_TERMINATION_ADJ_PVT.disb_rec_type;
9156:
9157: BEGIN
9158: IF (G_DEBUG_ENABLED = 'Y') THEN
9159: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
9160: END IF;
9161:
9162: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9163: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9160: END IF;
9161:
9162: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9163: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9164: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
9165: END IF;
9166: -- call START_ACTIVITY to create savepoint, check compatibility
9167: -- and initialize message list
9168: x_return_status := OKL_API.START_ACTIVITY(
9195: FETCH max_bill_date_csr INTO l_max_bill_date;
9196: CLOSE max_bill_date_csr;
9197:
9198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
9200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
9201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
9202: END IF;
9203:
9196: CLOSE max_bill_date_csr;
9197:
9198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
9200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
9201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
9202: END IF;
9203:
9204: IF l_max_bill_date IS NOT NULL THEN
9197:
9198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_billable_streams_rec.new_stm_id);
9200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_billable_streams_rec.orig_stm_id);
9201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Bill Date: '||l_max_bill_date);
9202: END IF;
9203:
9204: IF l_max_bill_date IS NOT NULL THEN
9205:
9208: FETCH actual_amount_billed_csr INTO l_actual_amount_billed;
9209: CLOSE actual_amount_billed_csr;
9210:
9211: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Billed: '||l_actual_amount_billed);
9213: END IF;
9214:
9215: l_amount_to_be_billed := 0;
9216: l_selv_count := 0;
9231:
9232: END LOOP;
9233:
9234: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9235: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Billed: '||l_amount_to_be_billed);
9236: END IF;
9237:
9238: l_billing_adjustment := l_amount_to_be_billed - l_actual_amount_billed;
9239:
9237:
9238: l_billing_adjustment := l_amount_to_be_billed - l_actual_amount_billed;
9239:
9240: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9241: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment: '||l_billing_adjustment);
9242: END IF;
9243:
9244: IF l_billing_adjustment <> 0 THEN
9245: i := i + 1;
9249: l_rebook_adj_tbl(i).adjusted_amount := l_billing_adjustment;
9250: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
9251:
9252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9250: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
9251:
9252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9251:
9252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9259: 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);
9252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9259: 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);
9260: END IF;
9253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9259: 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);
9260: END IF;
9261:
9254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9259: 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);
9260: END IF;
9261:
9262: END IF;
9255: 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);
9256: 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);
9257: 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);
9258: 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);
9259: 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);
9260: END IF;
9261:
9262: END IF;
9263:
9272: x_selv_tbl => x_selv_tbl
9273: );
9274:
9275: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9276: 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);
9277: END IF;
9278:
9279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9280: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9299: -- Do not process Insurance Streams
9300: IF (NVL(del_billable_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
9301:
9302: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9303: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_billable_streams_rec.orig_stm_id);
9304: END IF;
9305:
9306: l_actual_amount_billed := 0;
9307: OPEN actual_amount_billed_csr(p_stm_id => del_billable_streams_rec.orig_stm_id);
9308: FETCH actual_amount_billed_csr INTO l_actual_amount_billed;
9309: CLOSE actual_amount_billed_csr;
9310:
9311: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9312: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Billed: '||l_actual_amount_billed);
9313: END IF;
9314:
9315: l_billing_adjustment := -1 * l_actual_amount_billed;
9316:
9314:
9315: l_billing_adjustment := -1 * l_actual_amount_billed;
9316:
9317: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9318: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment: '||l_billing_adjustment);
9319: END IF;
9320:
9321: IF l_actual_amount_billed <> 0 THEN
9322: i := i + 1;
9326: l_rebook_adj_tbl(i).adjusted_amount := l_billing_adjustment;
9327: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
9328:
9329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9327: l_rebook_adj_tbl(i).date_invoiced := p_trx_date;
9328:
9329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9328:
9329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9336: 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);
9329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9336: 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);
9337: END IF;
9330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Billing Adjustment Record');
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9336: 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);
9337: END IF;
9338:
9331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9336: 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);
9337: END IF;
9338:
9339: END IF;
9332: 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);
9333: 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);
9334: 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);
9335: 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);
9336: 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);
9337: END IF;
9338:
9339: END IF;
9340: END IF;
9353: ,p_rebook_adj_tbl => l_rebook_adj_tbl
9354: );
9355:
9356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_REBOOK_CM_PVT.Rebook_Bill_adjustments '||x_return_status);
9358: END IF;
9359:
9360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9361: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9940: -- MGAAP end 7263041
9941:
9942: BEGIN
9943: IF (G_DEBUG_ENABLED = 'Y') THEN
9944: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
9945: END IF;
9946:
9947: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9948: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9945: END IF;
9946:
9947: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9948: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9949: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
9950: END IF;
9951: -- call START_ACTIVITY to create savepoint, check compatibility
9952: -- and initialize message list
9953: x_return_status := OKL_API.START_ACTIVITY(
9989: FETCH max_accrual_date_csr INTO l_max_accrual_date;
9990: CLOSE max_accrual_date_csr;
9991:
9992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9995: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9996: END IF;
9997:
9990: CLOSE max_accrual_date_csr;
9991:
9992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9995: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9996: END IF;
9997:
9998: IF l_max_accrual_date IS NOT NULL THEN
9991:
9992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
9994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
9995: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
9996: END IF;
9997:
9998: IF l_max_accrual_date IS NOT NULL THEN
9999:
10002: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
10003: CLOSE actual_amount_accrued_csr;
10004:
10005: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10006: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
10007: END IF;
10008:
10009: l_amount_to_be_accrued := 0;
10010: l_selv_count := 0;
10025:
10026: END LOOP;
10027:
10028: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10029: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Accrued: '||l_amount_to_be_accrued);
10030: END IF;
10031:
10032: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
10033:
10031:
10032: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
10033:
10034: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10035: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
10036: END IF;
10037:
10038: IF l_accrual_adjustment <> 0 THEN
10039: i := i + 1;
10042: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
10043: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
10044:
10045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10043: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
10044:
10045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10044:
10045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10052: END IF;
10045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10052: END IF;
10053: END IF;
10046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10052: END IF;
10053: END IF;
10054:
10047: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10048: 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);
10049: 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);
10050: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10052: END IF;
10053: END IF;
10054:
10055: IF (l_selv_tbl.COUNT > 0) THEN
10063: x_selv_tbl => x_selv_tbl
10064: );
10065:
10066: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10067: 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);
10068: END IF;
10069:
10070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10092: -- Do not process Insurance Streams
10093: IF (NVL(del_accrual_streams_rec.lse_id,-1) <> G_INSURANCE_LSE_ID) THEN
10094:
10095: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10096: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deleted Orig Stream Id: '||del_accrual_streams_rec.orig_stm_id);
10097: END IF;
10098:
10099: l_actual_amount_accrued := 0;
10100: OPEN actual_amount_accrued_csr(p_stm_id => del_accrual_streams_rec.orig_stm_id);
10101: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
10102: CLOSE actual_amount_accrued_csr;
10103:
10104: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
10106: END IF;
10107:
10108: l_accrual_adjustment := -1 * l_actual_amount_accrued;
10109:
10107:
10108: l_accrual_adjustment := -1 * l_actual_amount_accrued;
10109:
10110: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
10112: END IF;
10113:
10114: IF l_actual_amount_accrued <> 0 THEN
10115: i := i + 1;
10118: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
10119: l_stream_tbl(i).kle_id := del_accrual_streams_rec.kle_id;
10120:
10121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10119: l_stream_tbl(i).kle_id := del_accrual_streams_rec.kle_id;
10120:
10121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10120:
10121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10128: END IF;
10121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10128: END IF;
10129: END IF;
10122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10128: END IF;
10129: END IF;
10130: END IF;
10123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
10124: 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);
10125: 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);
10126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
10127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
10128: END IF;
10129: END IF;
10130: END IF;
10131: END LOOP;
10149: END IF;
10150: --end Bug# 6344223
10151:
10152: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10150: --end Bug# 6344223
10151:
10152: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
10151:
10152: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
10159: END IF;
10152: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
10159: END IF;
10160:
10153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
10159: END IF;
10160:
10161:
10154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
10155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
10156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
10157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
10159: END IF;
10160:
10161:
10162: x_stream_tbl := l_stream_tbl;
10347: l_inv_agreement_id OKC_K_HEADERS_B.id%TYPE;
10348:
10349: BEGIN
10350: IF (G_DEBUG_ENABLED = 'Y') THEN
10351: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
10352: END IF;
10353:
10354: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10355: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10352: END IF;
10353:
10354: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10355: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
10357: END IF;
10358: -- call START_ACTIVITY to create savepoint, check compatibility
10359: -- and initialize message list
10360: x_return_status := OKL_API.START_ACTIVITY(
10388: LOOP
10389:
10390: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
10391: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10392: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
10393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
10394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
10395: END IF;
10396:
10389:
10390: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
10391: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10392: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
10393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
10394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
10395: END IF;
10396:
10397: l_actual_amount_disb:= 0;
10390: l_inv_agreement_id := curr_sec_strms_rec.agreement_id;
10391: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10392: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_sec_strms_rec.new_stm_id);
10393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_sec_strms_rec.orig_stm_id);
10394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Kle Id: '||curr_sec_strms_rec.kle_id);
10395: END IF;
10396:
10397: l_actual_amount_disb:= 0;
10398: OPEN actual_amount_disb_csr(p_stm_id => curr_sec_strms_rec.orig_stm_id);
10399: FETCH actual_amount_disb_csr INTO l_actual_amount_disb;
10400: CLOSE actual_amount_disb_csr;
10401:
10402: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10403: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Disbursed: '||l_actual_amount_disb);
10404: END IF;
10405:
10406: l_amount_to_be_disb := 0;
10407: l_selv_count := 0;
10419: l_selv_tbl(l_selv_count).bill_adj_flag := 'Y';
10420: END LOOP;
10421:
10422: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10423: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Disbursed: '||l_amount_to_be_disb);
10424: END IF;
10425:
10426: l_disb_adjustment := l_amount_to_be_disb - l_actual_amount_disb;
10427:
10425:
10426: l_disb_adjustment := l_amount_to_be_disb - l_actual_amount_disb;
10427:
10428: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10429: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disbursement Adjustment: '||l_disb_adjustment);
10430: END IF;
10431:
10432: l_disb_adj_tbl(i).kle_id := curr_sec_strms_rec.kle_id;
10433: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
10432: l_disb_adj_tbl(i).kle_id := curr_sec_strms_rec.kle_id;
10433: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
10434:
10435: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
10437: 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);
10438: 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);
10439: END IF;
10440:
10433: l_disb_adj_tbl(i).disb_adj_amt := NVL(l_disb_adj_tbl(i).disb_adj_amt,0) + l_disb_adjustment;
10434:
10435: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
10437: 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);
10438: 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);
10439: END IF;
10440:
10441: IF (l_selv_tbl.COUNT > 0) THEN
10434:
10435: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10436: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i: '||i);
10437: 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);
10438: 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);
10439: END IF;
10440:
10441: IF (l_selv_tbl.COUNT > 0) THEN
10442: okl_streams_pub.update_stream_elements(
10449: x_selv_tbl => x_selv_tbl
10450: );
10451:
10452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10453: 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);
10454: END IF;
10455:
10456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10457: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10477: raise OKL_API.G_EXCEPTION_ERROR;
10478: END IF;
10479:
10480: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Disb Adjustment Stream Type Id: '||l_disb_adj_sty_id);
10482: END IF;
10483:
10484: --Bug# 6788253
10485: i := l_disb_adj_tbl.FIRST;
10496: FETCH old_disb_adj_stm_csr INTO l_old_disb_adj_stm_rec;
10497: CLOSE old_disb_adj_stm_csr;
10498:
10499: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10500: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Disb Adjustment Stream Id: '||l_old_disb_adj_stm_rec.stm_id);
10501: END IF;
10502:
10503: -- If New Disbursement Adjustment <> 0
10504: IF (NVL(l_disb_adj_tbl(i).disb_adj_amt,0) <> 0) THEN
10511: CLOSE undisb_adj_amt_csr;
10512: END IF;
10513:
10514: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10515: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Old Disb Adjustment Amount: '||l_undisb_adj_amt_rec.amount);
10516: END IF;
10517:
10518: -- Historize existing Disbursement Adjustment stream
10519: IF l_old_disb_adj_stm_rec.stm_id IS NOT NULL THEN
10532: p_stmv_rec => l_stmv_rec_old_disb,
10533: x_stmv_rec => lx_stmv_rec_old_disb);
10534:
10535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10536: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
10537: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
10538: END IF;
10539:
10540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10533: x_stmv_rec => lx_stmv_rec_old_disb);
10534:
10535: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10536: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
10537: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
10538: END IF;
10539:
10540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10566: l_selv_tbl_new_disb(1).stream_element_date := sysdate;
10567: l_selv_tbl_new_disb(1).se_line_number := 1;
10568:
10569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Total Disb Adjustment Amount: '||l_selv_tbl_new_disb(1).amount);
10571: END IF;
10572:
10573: IF l_selv_tbl_new_disb(1).amount <> 0 THEN
10574: Okl_Streams_Pub.create_streams(
10582: x_stmv_rec => lx_stmv_rec_new_disb,
10583: x_selv_tbl => lx_selv_tbl_new_disb);
10584:
10585: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10586: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Creating New Investor Disbursement Adjustment Stream');
10587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.create_streams'||x_return_status);
10588: END IF;
10589:
10590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10583: x_selv_tbl => lx_selv_tbl_new_disb);
10584:
10585: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10586: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Creating New Investor Disbursement Adjustment Stream');
10587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.create_streams'||x_return_status);
10588: END IF;
10589:
10590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10591: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10602: FETCH chk_old_adj_disb_csr INTO l_undisb_adj_exists;
10603: CLOSE chk_old_adj_disb_csr;
10604:
10605: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10606: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Undisbursed Disb Adjustment Exists: '||l_undisb_adj_exists);
10607: END IF;
10608:
10609: -- Historize existing Disbursement Adjustment stream
10610: -- if it has been disbursed
10624: p_stmv_rec => l_stmv_rec_old_disb,
10625: x_stmv_rec => lx_stmv_rec_old_disb);
10626:
10627: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10628: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
10629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
10630: END IF;
10631:
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10625: x_stmv_rec => lx_stmv_rec_old_disb);
10626:
10627: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10628: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Historizing Existing Investor Disbursement Adjustment Stream');
10629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling OKL_STREAMS_PUB.update_streams'||x_return_status);
10630: END IF;
10631:
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10633: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10877: --end Bug# 6344223
10878:
10879: BEGIN
10880: IF (G_DEBUG_ENABLED = 'Y') THEN
10881: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
10882: END IF;
10883:
10884: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10885: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10882: END IF;
10883:
10884: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10885: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
10887: END IF;
10888: -- call START_ACTIVITY to create savepoint, check compatibility
10889: -- and initialize message list
10890: x_return_status := OKL_API.START_ACTIVITY(
10915: OPEN chk_mass_rbk_csr (p_chr_id => p_khr_id);
10916: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr,l_mass_rbk_trx_id;
10917: CLOSE chk_mass_rbk_csr;
10918: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
10920: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
10921: END IF;
10922:
10923: /*
10916: FETCH chk_mass_rbk_csr INTO l_mass_rbk_khr,l_mass_rbk_trx_id;
10917: CLOSE chk_mass_rbk_csr;
10918: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_khr: '||l_mass_rbk_khr);
10920: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_trx_id: '||l_mass_rbk_trx_id);
10921: END IF;
10922:
10923: /*
10924: --sechawla 12-mar-09 MG Impact on Rebook
10928: OPEN chk_mass_rbk_secondary_csr (p_chr_id => p_khr_id);
10929: FETCH chk_mass_rbk_secondary_csr INTO l_mass_rbk_sec_khr,l_mass_rbk_sec_trx_id;
10930: CLOSE chk_mass_rbk_secondary_csr;
10931: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10932: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_sec_khr: '||l_mass_rbk_sec_khr);
10933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_sec_trx_id: '||l_mass_rbk_sec_trx_id);
10934: END IF;
10935: */
10936:
10929: FETCH chk_mass_rbk_secondary_csr INTO l_mass_rbk_sec_khr,l_mass_rbk_sec_trx_id;
10930: CLOSE chk_mass_rbk_secondary_csr;
10931: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10932: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_sec_khr: '||l_mass_rbk_sec_khr);
10933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_mass_rbk_sec_trx_id: '||l_mass_rbk_sec_trx_id);
10934: END IF;
10935: */
10936:
10937: --check for rebook contract - primary rep
10940: OPEN chk_rbk_csr (p_chr_id => p_khr_id);
10941: FETCH chk_rbk_csr INTO l_rbk_khr,l_online_rbk_trx_id;
10942: CLOSE chk_rbk_csr;
10943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
10945: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
10946: END IF;
10947:
10948: /* --sechawla 12-mar-09 MG Impact on Rebook
10941: FETCH chk_rbk_csr INTO l_rbk_khr,l_online_rbk_trx_id;
10942: CLOSE chk_rbk_csr;
10943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_khr);
10945: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_trx_id);
10946: END IF;
10947:
10948: /* --sechawla 12-mar-09 MG Impact on Rebook
10949: --check for rebook contract - secondary rep
10952: OPEN chk_rbk_secondary_csr (p_chr_id => p_khr_id);
10953: FETCH chk_rbk_secondary_csr INTO l_rbk_sec_khr,l_online_rbk_sec_trx_id;
10954: CLOSE chk_rbk_secondary_csr;
10955: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10956: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_sec_khr);
10957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_sec_trx_id);
10958: END IF;
10959: */
10960: --sechawla
10953: FETCH chk_rbk_secondary_csr INTO l_rbk_sec_khr,l_online_rbk_sec_trx_id;
10954: CLOSE chk_rbk_secondary_csr;
10955: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10956: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rbk_khr: '||l_rbk_sec_khr);
10957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_online_rbk_trx_id: '||l_online_rbk_sec_trx_id);
10958: END IF;
10959: */
10960: --sechawla
10961: --Update trx_id, link_hist_stream_id on the (new) primary Investor streams created during rebook
10995: l_new_strm_tbl(l_new_strm_count).link_hist_stream_id := hist_strms_rec.orig_stm_id;
10996: END IF;
10997:
10998: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10999: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
11000: 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);
11001: END IF;
11002:
11003: END LOOP;
10996: END IF;
10997:
10998: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10999: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
11000: 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);
11001: END IF;
11002:
11003: END LOOP;
11004:
11015: x_stmv_tbl => x_new_strm_tbl
11016: );
11017:
11018: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of New Strms - Trx ID and Hist ID '||x_return_status);
11020: END IF;
11021:
11022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11023: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11062: l_new_strm_sec_tbl(l_new_strm_sec_count).link_hist_stream_id := hist_strms_sec_rec.orig_stm_id;
11063: END IF;
11064:
11065: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11066: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
11067: 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);
11068: END IF;
11069:
11070: END LOOP;
11063: END IF;
11064:
11065: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11066: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream ID: '||l_new_strm_tbl(l_new_strm_count).id);
11067: 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);
11068: END IF;
11069:
11070: END LOOP;
11071:
11082: x_stmv_tbl => x_new_strm_sec_tbl
11083: );
11084:
11085: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11086: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update of New Strms - Trx ID and Hist ID '||x_return_status);
11087: END IF;
11088:
11089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11090: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11229: l_gl_date DATE;
11230:
11231: BEGIN
11232: IF (G_DEBUG_ENABLED = 'Y') THEN
11233: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
11234: END IF;
11235:
11236: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11237: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11234: END IF;
11235:
11236: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11237: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11238: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
11239: END IF;
11240: -- call START_ACTIVITY to create savepoint, check compatibility
11241: -- and initialize message list
11242: x_return_status := OKL_API.START_ACTIVITY(
11269: FETCH max_accrual_date_csr INTO l_max_accrual_date;
11270: CLOSE max_accrual_date_csr;
11271:
11272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
11274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
11275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
11276: END IF;
11277:
11270: CLOSE max_accrual_date_csr;
11271:
11272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
11274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
11275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
11276: END IF;
11277:
11278: IF l_max_accrual_date IS NOT NULL THEN
11271:
11272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Stream Id: '||curr_accrual_streams_rec.new_stm_id);
11274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Orig Stream Id: '||curr_accrual_streams_rec.orig_stm_id);
11275: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Max Accrual Date: '||l_max_accrual_date);
11276: END IF;
11277:
11278: IF l_max_accrual_date IS NOT NULL THEN
11279:
11282: FETCH actual_amount_accrued_csr INTO l_actual_amount_accrued;
11283: CLOSE actual_amount_accrued_csr;
11284:
11285: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11286: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Actual Amount Accrued: '||l_actual_amount_accrued);
11287: END IF;
11288:
11289: l_amount_to_be_accrued := 0;
11290: l_selv_count := 0;
11305:
11306: END LOOP;
11307:
11308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount to be Accrued: '||l_amount_to_be_accrued);
11310: END IF;
11311:
11312: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
11313:
11311:
11312: l_accrual_adjustment := l_amount_to_be_accrued - l_actual_amount_accrued;
11313:
11314: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11315: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment: '||l_accrual_adjustment);
11316: END IF;
11317:
11318: IF l_accrual_adjustment <> 0 THEN
11319: i := i + 1;
11322: l_stream_tbl(i).stream_amount := l_accrual_adjustment;
11323: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
11324:
11325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11323: l_stream_tbl(i).kle_id := curr_accrual_streams_rec.kle_id;
11324:
11325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
11324:
11325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
11332: END IF;
11325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
11332: END IF;
11333: END IF;
11326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Record');
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
11332: END IF;
11333: END IF;
11334:
11327: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'i '||i);
11328: 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);
11329: 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);
11330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).stream_amount: '||l_stream_tbl(i).stream_amount);
11331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_stream_tbl(i).kle_id: '||l_stream_tbl(i).kle_id);
11332: END IF;
11333: END IF;
11334:
11335: IF (l_selv_tbl.COUNT > 0) THEN
11343: x_selv_tbl => x_selv_tbl
11344: );
11345:
11346: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11347: 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);
11348: END IF;
11349:
11350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11374: END IF;
11375: --end Bug# 6344223
11376:
11377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11375: --end Bug# 6344223
11376:
11377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
11376:
11377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
11384: END IF;
11377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
11384: END IF;
11385:
11378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Accrual Adjustment Header Record');
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
11384: END IF;
11385:
11386:
11379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.contract_id: '||l_accrual_rec.contract_id);
11380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.accrual_date: '||l_accrual_rec.accrual_date);
11381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.description: '||l_accrual_rec.description);
11382: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_id: '||l_accrual_rec.source_trx_id);
11383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_accrual_rec.source_trx_type: '||l_accrual_rec.source_trx_type);
11384: END IF;
11385:
11386:
11387: x_inv_stream_tbl := l_stream_tbl;