[Home] [Help]
6: G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7: -------------------------------------------------------------------------------------------------
8: -- GLOBAL MESSAGE CONSTANTS
9: -------------------------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
12: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
13: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
7: -------------------------------------------------------------------------------------------------
8: -- GLOBAL MESSAGE CONSTANTS
9: -------------------------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
12: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
13: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
15: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
8: -- GLOBAL MESSAGE CONSTANTS
9: -------------------------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
12: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
13: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
15: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
9: -------------------------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
12: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
13: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
15: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'NO_PARENT_RECORD';
29: -----------------------------------------------------------------------------------
30: -- GLOBAL VARIABLES
31: -----------------------------------------------------------------------------------
32: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CS_PRINCIPAL_PAYDOWN';
33: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
34: G_UNSCHED_PP_STREAM CONSTANT VARCHAR2(60) := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
35: G_UNSCHED_LP_STREAM CONSTANT VARCHAR2(60) := 'UNSCHEDULED_LOAN_PAYMENT';
36: G_RENT_STREAM CONSTANT VARCHAR2(60) := 'RENT';
37: G_PRINCIPAL_PAYMENT CONSTANT VARCHAR2(60) := 'PRINCIPAL_PAYMENT';
419: x_chrv_rec.LAST_UPDATED_BY,
420: x_chrv_rec.LAST_UPDATE_DATE,
421: x_chrv_rec.LAST_UPDATE_LOGIN;
422: IF okc_chrv_pk_csr%NOTFOUND THEN
423: x_return_status := OKL_API.G_RET_STS_ERROR;
424: END IF;
425: CLOSE okc_chrv_pk_csr;
426: RETURN(x_chrv_rec);
427: EXCEPTION
426: RETURN(x_chrv_rec);
427: EXCEPTION
428: WHEN OTHERS THEN
429: -- store SQL error message on message stack for caller
430: OKL_API.set_message(
431: G_APP_NAME,
432: G_UNEXPECTED_ERROR,
433: 'SQLcode',
434: SQLCODE,
434: SQLCODE,
435: 'SQLerrm',
436: SQLERRM);
437: -- notify caller of an UNEXPECTED error
438: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
439: -- if the cursor is open
440: IF okc_chrv_pk_csr%ISOPEN THEN
441: CLOSE okc_chrv_pk_csr;
442: END IF;
514: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
515: l_khrv_rec khrv_rec_type;
516: BEGIN
517:
518: x_return_status := OKL_API.G_RET_STS_SUCCESS;
519: -- Get current database values
520: OPEN okl_k_headers_v_pk_csr (p_khr_id);
521: FETCH okl_k_headers_v_pk_csr INTO
522: l_khrv_rec.ID,
577: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
578: l_khrv_rec.REVOLVING_CREDIT_YN
579: ;
580: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
581: x_return_status := OKL_API.G_RET_STS_ERROR;
582: END IF;
583: CLOSE okl_k_headers_v_pk_csr;
584: RETURN(l_khrv_rec);
585: EXCEPTION
584: RETURN(l_khrv_rec);
585: EXCEPTION
586: WHEN OTHERS THEN
587: -- store SQL error message on message stack for caller
588: OKL_API.set_message(
589: G_APP_NAME,
590: G_UNEXPECTED_ERROR,
591: 'SQLcode',
592: SQLCODE,
596: -- if the cursor is open
597: IF okl_k_headers_v_pk_csr%ISOPEN THEN
598: CLOSE okl_k_headers_v_pk_csr;
599: END IF;
600: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
601: END get_khrv_rec;
602:
603: FUNCTION get_factor_synd(p_khr_id IN NUMBER) RETURN VARCHAR2 IS
604: CURSOR c_synd IS
653: EXCEPTION
654:
655: WHEN OTHERS THEN
656:
657: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
658: p_msg_name => G_UNEXPECTED_ERROR,
659: p_token1 => G_SQLCODE_TOKEN,
660: p_token1_value => SQLCODE,
661: p_token2 => G_SQLERRM_TOKEN,
664: END get_factor_synd;
665:
666: PROCEDURE create_working_copy(
667: p_api_version IN NUMBER,
668: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
669: p_commit IN VARCHAR2 := OKL_API.G_FALSE,
670: x_return_status OUT NOCOPY VARCHAR2,
671: x_msg_count OUT NOCOPY NUMBER,
672: x_msg_data OUT NOCOPY VARCHAR2,
665:
666: PROCEDURE create_working_copy(
667: p_api_version IN NUMBER,
668: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
669: p_commit IN VARCHAR2 := OKL_API.G_FALSE,
670: x_return_status OUT NOCOPY VARCHAR2,
671: x_msg_count OUT NOCOPY NUMBER,
672: x_msg_data OUT NOCOPY VARCHAR2,
673: p_chr_id IN NUMBER,
691:
692:
693: BEGIN
694:
695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
696:
697: --Call start_activity to create savepoint, check compatibility and initialize message list
698: x_return_status := OKL_API.START_ACTIVITY(
699: l_api_name
694:
695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
696:
697: --Call start_activity to create savepoint, check compatibility and initialize message list
698: x_return_status := OKL_API.START_ACTIVITY(
699: l_api_name
700: ,p_init_msg_list
701: ,'_PVT'
702: ,x_return_status);
702: ,x_return_status);
703:
704: --Check if activity started successfully
705:
706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
703:
704: --Check if activity started successfully
705:
706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711:
704: --Check if activity started successfully
705:
706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711:
712: --Create the working copy here....
705:
706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_ERROR;
710: END IF;
711:
712: --Create the working copy here....
713:
769: RAISE OKC_API.G_EXCEPTION_ERROR;
770: END IF;
771:
772: --**********************************************************
773: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: if p_commit= OKC_API.G_TRUE then
776: commit;
777: end if;
832: l_khrv_rec := get_khrv_rec(
833: p_khr_id => p_working_copy_chr_id,
834: x_return_status => x_return_status
835: );
836: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
837: RAISE update_failed;
838: END IF;
839:
840: l_chrv_rec := get_chrv_rec(
840: l_chrv_rec := get_chrv_rec(
841: p_chr_id => p_working_copy_chr_id,
842: x_return_status => x_return_status
843: );
844: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
845: RAISE update_failed;
846: END IF;
847:
848:
1066: p_period IN VARCHAR2)
1067: RETURN DATE IS
1068: l_end_date date;
1069: BEGIN
1070: if(p_stub_days is not null and p_stub_days <> OKL_API.G_MISS_CHAR) then -- end date for stub entry.
1071: l_end_date := FND_DATE.canonical_to_date(p_start_date) + to_number(p_stub_days);
1072: l_end_date := l_end_date - 1;
1073: else -- end date for level entry.
1074: l_end_date := get_end_date(FND_DATE.canonical_to_date(p_start_date), p_frequency, to_number(nvl(p_period,0)));
1283: * +-----------------------------------------------------------------------*/
1284: l_prev_sty_id NUMBER := -99;
1285: l_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1286: i NUMBER :=1;
1287: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1288: --l_rent_sty_id NUMBER;
1289: l_prim_sty_id NUMBER;
1290: l_strm_type VARCHAR2(80);
1291: l_upp_sty_id NUMBER;
1342: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After getting primary stream type for Principal Payment'|| x_return_status);
1343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Principal Payment'|| l_prim_sty_id);
1344: END IF;
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_ERROR;
1350: END IF;
1343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Principal Payment'|| l_prim_sty_id);
1344: END IF;
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1344: END IF;
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1352: --Get the Stream type id for UPP.
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1352: --Get the Stream type id for UPP.
1353: OKL_STREAMS_UTIL.get_dependent_stream_type(
1360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'dependent stream type id: '||l_upp_sty_id);
1362: END IF;
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1367: RAISE OKL_API.G_EXCEPTION_ERROR;
1368: END IF;
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'dependent stream type id: '||l_upp_sty_id);
1362: END IF;
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1367: RAISE OKL_API.G_EXCEPTION_ERROR;
1368: END IF;
1369:
1362: END IF;
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1367: RAISE OKL_API.G_EXCEPTION_ERROR;
1368: END IF;
1369:
1370: ELSIF l_rent_count > 0 THEN
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1367: RAISE OKL_API.G_EXCEPTION_ERROR;
1368: END IF;
1369:
1370: ELSIF l_rent_count > 0 THEN
1371: l_strm_type := 'RENT';
1379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type for Rent ' || x_return_status);
1380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Rent' || l_prim_sty_id);
1381: END IF;
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Rent' || l_prim_sty_id);
1381: END IF;
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1381: END IF;
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1389: --Get the Stream type id for UPP.
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1389: --Get the Stream type id for UPP.
1390: OKL_STREAMS_UTIL.get_dependent_stream_type(
1397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Dependent Stream Type Id :' || l_upp_sty_id);
1399: END IF;
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Dependent Stream Type Id :' || l_upp_sty_id);
1399: END IF;
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: END IF;
1399: END IF;
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: END IF;
1407:
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1404: RAISE OKL_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: END IF;
1407:
1408:
1517: * +-----------------------------------------------------------------------*/
1518: l_prev_sty_id NUMBER := -99;
1519: l_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type := p_payment_struc;
1520: i NUMBER :=1;
1521: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1522: l_sty_id NUMBER;
1523:
1524: --Split
1525: l_end_date DATE;
1739: * +-----------------------------------------------------------------------*/
1740: l_prev_sty_id NUMBER := -99;
1741: l_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type := p_payment_struc;
1742: i NUMBER :=1;
1743: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1744: l_api_version CONSTANT NUMBER := 1;
1745: l_init_msg_list VARCHAR2(1) := 'T';
1746: l_msg_count NUMBER;
1747: l_msg_data VARCHAR2(2000);
1921: * +-----------------------------------------------------------------------*/
1922: l_prev_sty_id NUMBER := -99;
1923: l_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type := p_payment_struc;
1924: i NUMBER :=1;
1925: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1926: l_api_version CONSTANT NUMBER := 1;
1927: l_init_msg_list VARCHAR2(1) := 'T';
1928: l_msg_count NUMBER;
1929: l_msg_data VARCHAR2(2000);
2023: x_return_status => x_return_status,
2024: x_msg_count => l_msg_count,
2025: x_msg_data => l_msg_data);
2026:
2027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2024: x_msg_count => l_msg_count,
2025: x_msg_data => l_msg_data);
2026:
2027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: --l_total_princ_balance := l_principal_balance + l_acc_int ;
2025: x_msg_data => l_msg_data);
2026:
2027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: --l_total_princ_balance := l_principal_balance + l_acc_int ;
2033: l_total_princ_balance := l_principal_balance;
2026:
2027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: --l_total_princ_balance := l_principal_balance + l_acc_int ;
2033: l_total_princ_balance := l_principal_balance;
2034: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2210:
2211: SUBTYPE cafv_rec_type IS okl_cash_flows_pub.cafv_rec_type;
2212: SUBTYPE cflv_rec_type IS okl_cash_flow_levels_pub.cflv_rec_type;
2213:
2214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2215: l_api_name CONSTANT VARCHAR2(30) := 'delete_payments';
2216: lp_cafv_rec cafv_rec_type;
2217: lp_cflv_rec cflv_rec_type;
2218: l_caf_id NUMBER;
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments.',
2253: 'p_request_id :'||p_request_id);
2254: END IF;
2255: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2256:
2257: --Call start_activity to create savepoint,
2258: --check compatibility and initialize message list
2259:
2256:
2257: --Call start_activity to create savepoint,
2258: --check compatibility and initialize message list
2259:
2260: x_return_status := OKL_API.START_ACTIVITY(
2261: l_api_name
2262: ,p_init_msg_list
2263: ,'_PVT'
2264: ,x_return_status);
2264: ,x_return_status);
2265:
2266: --Check if activity started successfully
2267:
2268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2271: RAISE OKL_API.G_EXCEPTION_ERROR;
2272: END IF;
2265:
2266: --Check if activity started successfully
2267:
2268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2271: RAISE OKL_API.G_EXCEPTION_ERROR;
2272: END IF;
2273:
2266: --Check if activity started successfully
2267:
2268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2271: RAISE OKL_API.G_EXCEPTION_ERROR;
2272: END IF;
2273:
2274: --Get the CFO Id for the Request id
2267:
2268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2271: RAISE OKL_API.G_EXCEPTION_ERROR;
2272: END IF;
2273:
2274: --Get the CFO Id for the Request id
2275: FOR cfo_rec IN l_cfo_id_csr(p_request_id) LOOP
2284: lp_cflv_rec.id := cfl_rec.id;
2285: --Delete all the Cash flow levels for this Cash flow.
2286: OKL_CASH_FLOW_LEVELS_PUB.delete_cash_flow_level(
2287: p_api_version => p_api_version,
2288: p_init_msg_list => OKL_API.G_FALSE,
2289: x_return_status => l_return_status,
2290: x_msg_count => x_msg_count,
2291: x_msg_data => x_msg_data,
2292: p_cflv_rec => lp_cflv_rec);
2293:
2294: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CFL - Return Status: ' || l_return_status);
2296: END IF;
2297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2294: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CFL - Return Status: ' || l_return_status);
2296: END IF;
2297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302: END LOOP;
2295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CFL - Return Status: ' || l_return_status);
2296: END IF;
2297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302: END LOOP;
2303: --Delete all the Cashflows for this Request.
2296: END IF;
2297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302: END LOOP;
2303: --Delete all the Cashflows for this Request.
2304: lp_cafv_rec.id := l_caf_id;
2303: --Delete all the Cashflows for this Request.
2304: lp_cafv_rec.id := l_caf_id;
2305: okl_cash_flows_pub.delete_cash_flow(
2306: p_api_version => p_api_version,
2307: p_init_msg_list => OKL_API.G_FALSE,
2308: x_return_status => l_return_status,
2309: x_msg_count => x_msg_count,
2310: x_msg_data => x_msg_data,
2311: p_cafv_rec => lp_cafv_rec);
2311: p_cafv_rec => lp_cafv_rec);
2312: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2313: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CAF - Return Status: ' || l_return_status);
2314: END IF;
2315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_ERROR;
2319: END IF;
2312: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2313: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CAF - Return Status: ' || l_return_status);
2314: END IF;
2315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: END LOOP;
2313: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CAF - Return Status: ' || l_return_status);
2314: END IF;
2315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: END LOOP;
2321: END LOOP;
2314: END IF;
2315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: END LOOP;
2321: END LOOP;
2322:
2325: END IF;
2326:
2327: EXCEPTION
2328:
2329: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2330: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2332: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2333: END IF;
2328:
2329: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2330: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2332: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2333: END IF;
2334:
2335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2336: l_api_name,
2331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2332: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2333: END IF;
2334:
2335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2336: l_api_name,
2337: G_PKG_NAME,
2338: 'OKL_API.G_RET_STS_ERROR',
2339: x_msg_count,
2334:
2335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2336: l_api_name,
2337: G_PKG_NAME,
2338: 'OKL_API.G_RET_STS_ERROR',
2339: x_msg_count,
2340: x_msg_data,
2341: '_PVT');
2342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2338: 'OKL_API.G_RET_STS_ERROR',
2339: x_msg_count,
2340: x_msg_data,
2341: '_PVT');
2342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2343: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2345: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2346: END IF;
2341: '_PVT');
2342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2343: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2345: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2346: END IF;
2347:
2348: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2349: l_api_name,
2344: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2345: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2346: END IF;
2347:
2348: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2352: x_msg_count,
2347:
2348: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2352: x_msg_count,
2353: x_msg_data,
2354: '_PVT');
2355: WHEN OTHERS THEN
2357: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2358: 'EXCEPTION :'||sqlerrm);
2359: END IF;
2360:
2361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2362: l_api_name,
2363: G_PKG_NAME,
2364: 'OTHERS',
2365: x_msg_count,
2374:
2375: --*****************************************************88
2376: PROCEDURE calculate(
2377: p_api_version IN NUMBER,
2378: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
2379: x_return_status OUT NOCOPY VARCHAR2,
2380: x_msg_count OUT NOCOPY NUMBER,
2381: x_msg_data OUT NOCOPY VARCHAR2,
2382: p_trqv_tbl IN okl_trx_requests_pub.trqv_tbl_type,
2391: l_trqv_rec okl_trx_requests_pub.trqv_rec_type;
2392: lx_trqv_rec okl_trx_requests_pub.trqv_rec_type;
2393: l_prim_sty_id NUMBER;
2394:
2395: l_skip_prc_engine VARCHAR2(1) := OKL_API.G_FALSE;
2396: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
2397: l_csm_loan_lines_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
2398: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
2399: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
2560: BEGIN
2561: IF (G_DEBUG_ENABLED = 'Y') THEN
2562: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565:
2566: --Call start_activity to create savepoint, check compatibility and initialize message list
2567:
2568: x_return_status := OKL_API.START_ACTIVITY(
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565:
2566: --Call start_activity to create savepoint, check compatibility and initialize message list
2567:
2568: x_return_status := OKL_API.START_ACTIVITY(
2569: l_api_name
2570: ,p_init_msg_list
2571: ,'_PVT'
2572: ,x_return_status);
2572: ,x_return_status);
2573:
2574: --Check if activity started successfully
2575:
2576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2579: RAISE OKL_API.G_EXCEPTION_ERROR;
2580: END IF;
2573:
2574: --Check if activity started successfully
2575:
2576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2579: RAISE OKL_API.G_EXCEPTION_ERROR;
2580: END IF;
2581:
2574: --Check if activity started successfully
2575:
2576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2579: RAISE OKL_API.G_EXCEPTION_ERROR;
2580: END IF;
2581:
2582: p_chr_id := p_trqv_tbl(1).dnz_khr_id;
2575:
2576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2579: RAISE OKL_API.G_EXCEPTION_ERROR;
2580: END IF;
2581:
2582: p_chr_id := p_trqv_tbl(1).dnz_khr_id;
2583: --Commented for 11i10+.
2607:
2608: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2609: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_sched_principal_bal : ' || l_payment_struc.count);
2610: END IF;
2611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2615: END IF;
2608: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2609: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_sched_principal_bal : ' || l_payment_struc.count);
2610: END IF;
2611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: l_principal_amount := l_principal_balance + l_acc_int ;
2609: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_sched_principal_bal : ' || l_payment_struc.count);
2610: END IF;
2611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: l_principal_amount := l_principal_balance + l_acc_int ;
2617: l_amount:= (nvl(l_principal_amount,0) - nvl(p_trqv_tbl(1).payment_amount,0));
2610: END IF;
2611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: l_principal_amount := l_principal_balance + l_acc_int ;
2617: l_amount:= (nvl(l_principal_amount,0) - nvl(p_trqv_tbl(1).payment_amount,0));
2618:
2628: x_value => l_total_k_cost);
2629: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2630: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
2631: END IF;
2632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2635: RAISE OKL_API.G_EXCEPTION_ERROR;
2636: END IF;
2629: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2630: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
2631: END IF;
2632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2635: RAISE OKL_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2630: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
2631: END IF;
2632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2635: RAISE OKL_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2638:
2631: END IF;
2632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2635: RAISE OKL_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2638:
2639: IF p_trqv_tbl(1).id IS NULL THEN
2650: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert Request:'|| x_return_status);
2652: END IF;
2653:
2654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2657: RAISE OKL_API.G_EXCEPTION_ERROR;
2658: END IF;
2651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert Request:'|| x_return_status);
2652: END IF;
2653:
2654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2657: RAISE OKL_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: ELSE
2652: END IF;
2653:
2654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2657: RAISE OKL_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: ELSE
2660: l_upd_trqv_tbl := p_trqv_tbl;
2653:
2654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2657: RAISE OKL_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: ELSE
2660: l_upd_trqv_tbl := p_trqv_tbl;
2661:
2676: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update Request:'|| x_return_status);
2678: END IF;
2679:
2680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_ERROR;
2684: END IF;
2677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update Request:'|| x_return_status);
2678: END IF;
2679:
2680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_ERROR;
2684: END IF;
2685: --Delete all the payments for this request.
2678: END IF;
2679:
2680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_ERROR;
2684: END IF;
2685: --Delete all the payments for this request.
2686: delete_payments(
2679:
2680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_ERROR;
2684: END IF;
2685: --Delete all the payments for this request.
2686: delete_payments(
2687: p_api_version => p_api_version,
2692: p_request_id => p_trqv_tbl(1).id);
2693: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2694: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Delete PAyments:'|| x_return_status);
2695: END IF;
2696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2699: RAISE OKL_API.G_EXCEPTION_ERROR;
2700: END IF;
2693: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2694: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Delete PAyments:'|| x_return_status);
2695: END IF;
2696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2699: RAISE OKL_API.G_EXCEPTION_ERROR;
2700: END IF;
2701:
2694: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Delete PAyments:'|| x_return_status);
2695: END IF;
2696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2699: RAISE OKL_API.G_EXCEPTION_ERROR;
2700: END IF;
2701:
2702: END IF;
2695: END IF;
2696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2699: RAISE OKL_API.G_EXCEPTION_ERROR;
2700: END IF;
2701:
2702: END IF;
2703:
2710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type ' || x_return_status);
2712: END IF;
2713:
2714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type ' || x_return_status);
2712: END IF;
2713:
2714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2712: END IF;
2713:
2714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2720: --Get the Stream type id.
2713:
2714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2720: --Get the Stream type id.
2721: OKL_STREAMS_UTIL.get_dependent_stream_type(
2727: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2728: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
2729: END IF;
2730:
2731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2728: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
2729: END IF;
2730:
2731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2729: END IF;
2730:
2731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2737: OKL_STREAMS_UTIL.get_pricing_engine(
2730:
2731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2737: OKL_STREAMS_UTIL.get_pricing_engine(
2738: p_khr_id => p_chr_id
2742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Pricing Engine is : ' || l_pricing_engine
2744: || ' API return status: '|| x_return_status);
2745: END IF;
2746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2749: RAISE OKL_API.G_EXCEPTION_ERROR;
2750: END IF;
2743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Pricing Engine is : ' || l_pricing_engine
2744: || ' API return status: '|| x_return_status);
2745: END IF;
2746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2749: RAISE OKL_API.G_EXCEPTION_ERROR;
2750: END IF;
2751:
2744: || ' API return status: '|| x_return_status);
2745: END IF;
2746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2749: RAISE OKL_API.G_EXCEPTION_ERROR;
2750: END IF;
2751:
2752: IF l_pricing_engine = 'INTERNAL' THEN
2745: END IF;
2746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2749: RAISE OKL_API.G_EXCEPTION_ERROR;
2750: END IF;
2751:
2752: IF l_pricing_engine = 'INTERNAL' THEN
2753: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2778: p_ppd_khr_id => p_chr_id,
2779: p_payment_structure => l_modified_payment_struc,
2780: x_cfo_id => lx_cfo_id);
2781:
2782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2779: p_payment_structure => l_modified_payment_struc,
2780: x_cfo_id => lx_cfo_id);
2781:
2782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2780: x_cfo_id => lx_cfo_id);
2781:
2782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2781:
2782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store payments in ISG pricing:' || x_return_status
2834: x_return_status => x_return_status,
2835: x_msg_count => x_msg_count,
2836: x_msg_data => x_msg_data);
2837:
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2835: x_msg_count => x_msg_count,
2836: x_msg_data => x_msg_data);
2837:
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_total_princ_balance := l_principal_balance + l_acc_int ;
2836: x_msg_data => x_msg_data);
2837:
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_total_princ_balance := l_principal_balance + l_acc_int ;
2844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2837:
2838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_total_princ_balance := l_principal_balance + l_acc_int ;
2844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'total Principal Balance : ' || l_total_princ_balance);
2929: p_ppd_date => x_trqv_tbl(1).payment_date,
2930: p_pay_level => l_pay_level,
2931: x_pay_level => lx_pay_level);
2932:
2933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_ERROR;
2937: END IF;
2930: p_pay_level => l_pay_level,
2931: x_pay_level => lx_pay_level);
2932:
2933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_ERROR;
2937: END IF;
2938:
2931: x_pay_level => lx_pay_level);
2932:
2933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_ERROR;
2937: END IF;
2938:
2939: --collect the out param.
2932:
2933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_ERROR;
2937: END IF;
2938:
2939: --collect the out param.
2940: --Build the pl/sql table of all payments
2992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ISG pricing:' || x_return_status
2994: || 'CFO Id: '|| lx_cfo_id);
2995: END IF;
2996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: END IF;
2993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ISG pricing:' || x_return_status
2994: || 'CFO Id: '|| lx_cfo_id);
2995: END IF;
2996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: END IF;
3001:
2994: || 'CFO Id: '|| lx_cfo_id);
2995: END IF;
2996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: END IF;
3001:
3002: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2995: END IF;
2996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: END IF;
3001:
3002: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3003: l_trqv_tbl(1).id := x_trqv_tbl(1).id;
2998: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: END IF;
3001:
3002: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3003: l_trqv_tbl(1).id := x_trqv_tbl(1).id;
3004: l_trqv_tbl(1).object_version_number := x_trqv_tbl(1).object_version_number;
3005: l_trqv_tbl(1).request_status_code := 'COMPLETE';
3006: --Call update here.
3019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating trx request to Complete in ISG pricing:'
3020: || x_return_status );
3021: END IF;
3022:
3023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_ERROR;
3027: END IF;
3020: || x_return_status );
3021: END IF;
3022:
3023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_ERROR;
3027: END IF;
3028: END IF;
3021: END IF;
3022:
3023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_ERROR;
3027: END IF;
3028: END IF;
3029:
3022:
3023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_ERROR;
3027: END IF;
3028: END IF;
3029:
3030:
3054: x_msg_data => x_msg_data,
3055: p_trqv_tbl => l_trqv_tbl,
3056: x_trqv_tbl => x_trqv_tbl);
3057:
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3055: p_trqv_tbl => l_trqv_tbl,
3056: x_trqv_tbl => x_trqv_tbl);
3057:
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3056: x_trqv_tbl => x_trqv_tbl);
3057:
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3064: ELSE
3057:
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3064: ELSE
3065: --NEW Principal Balance is not Zero
3107: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After storing principal payments'|| x_return_status);
3109: END IF;
3110:
3111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_ERROR;
3115: END IF;
3108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After storing principal payments'|| x_return_status);
3109: END IF;
3110:
3111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3109: END IF;
3110:
3111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3117: --Update the Request with the status of complete.
3110:
3111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3114: RAISE OKL_API.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3117: --Update the Request with the status of complete.
3118: l_trqv_tbl(1).id := x_trqv_tbl(1).id;
3132:
3133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after updating request status '|| x_return_Status);
3135: END IF;
3136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after updating request status '|| x_return_Status);
3135: END IF;
3136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after updating request status '|| x_return_Status);
3135: END IF;
3136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3142:
3135: END IF;
3136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3142:
3143: ELSE
3173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3175: END IF;
3176:
3177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_ERROR;
3181: END IF;
3174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3175: END IF;
3176:
3177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: ELSIF x_trqv_tbl(1).method_of_calculation_code = 'T' THEN
3175: END IF;
3176:
3177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: ELSIF x_trqv_tbl(1).method_of_calculation_code = 'T' THEN
3183: modify_terms( p_payment_struc => l_payment_struc,
3176:
3177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: ELSIF x_trqv_tbl(1).method_of_calculation_code = 'T' THEN
3183: modify_terms( p_payment_struc => l_payment_struc,
3184: p_chr_id => x_trqv_tbl(1).dnz_khr_id,
3206:
3207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3209: END IF;
3210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3213: RAISE OKL_API.G_EXCEPTION_ERROR;
3214: END IF;
3207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3209: END IF;
3210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3213: RAISE OKL_API.G_EXCEPTION_ERROR;
3214: END IF;
3215:
3208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3209: END IF;
3210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3213: RAISE OKL_API.G_EXCEPTION_ERROR;
3214: END IF;
3215:
3216: END IF;
3209: END IF;
3210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3213: RAISE OKL_API.G_EXCEPTION_ERROR;
3214: END IF;
3215:
3216: END IF;
3217:
3267:
3268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After extract params loan: '|| x_return_status);
3270: END IF;
3271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_ERROR;
3275: END IF;
3268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After extract params loan: '|| x_return_status);
3270: END IF;
3271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_ERROR;
3275: END IF;
3276:
3269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After extract params loan: '|| x_return_status);
3270: END IF;
3271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_ERROR;
3275: END IF;
3276:
3277: --rkuttiya commenting following lines of code for 11i OKL.H Variable Rate
3270: END IF;
3271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_ERROR;
3275: END IF;
3276:
3277: --rkuttiya commenting following lines of code for 11i OKL.H Variable Rate
3278:
3288: print_to_log('After get_depend_stream type: '|| x_return_status);
3289: print_to_log('Rent Sty ID : ' || l_rent_sty_id);
3290: print_to_log('Unsched Prin Pay Sty ID : ' || l_upp_sty_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3289: print_to_log('Rent Sty ID : ' || l_rent_sty_id);
3290: print_to_log('Unsched Prin Pay Sty ID : ' || l_upp_sty_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297: */
3290: print_to_log('Unsched Prin Pay Sty ID : ' || l_upp_sty_id);
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297: */
3298:
3291:
3292: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3295: RAISE OKL_API.G_EXCEPTION_ERROR;
3296: END IF;
3297: */
3298:
3299: --Modify the x_csm_loan_header and x_csm_loan_levels_tbl
3503:
3504: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3505: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling ESG streams:'|| x_return_status);
3506: END IF;
3507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_ERROR;
3511: END IF;
3504: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3505: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling ESG streams:'|| x_return_status);
3506: END IF;
3507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_ERROR;
3511: END IF;
3512: --Now update the Status and the Transaction id in the CS Request Table.
3505: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling ESG streams:'|| x_return_status);
3506: END IF;
3507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_ERROR;
3511: END IF;
3512: --Now update the Status and the Transaction id in the CS Request Table.
3513: -- fetch the object version no from the db and update
3506: END IF;
3507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3510: RAISE OKL_API.G_EXCEPTION_ERROR;
3511: END IF;
3512: --Now update the Status and the Transaction id in the CS Request Table.
3513: -- fetch the object version no from the db and update
3514: open c_get_object_ver(x_trqv_tbl(1).id);
3532: x_msg_data => x_msg_data,
3533: p_trqv_tbl => l_trqv_tbl,
3534: x_trqv_tbl => x_trqv_tbl);
3535:
3536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_ERROR;
3540: END IF;
3533: p_trqv_tbl => l_trqv_tbl,
3534: x_trqv_tbl => x_trqv_tbl);
3535:
3536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_ERROR;
3540: END IF;
3541:
3534: x_trqv_tbl => x_trqv_tbl);
3535:
3536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_ERROR;
3540: END IF;
3541:
3542: END IF; -- End If for Principal Payment and Solve for payment
3535:
3536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_ERROR;
3540: END IF;
3541:
3542: END IF; -- End If for Principal Payment and Solve for payment
3543:
3543:
3544: END IF;-- End if for l_amount =0
3545: END IF; -- End if for Check for profile
3546: EXCEPTION
3547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3549: l_api_name,
3550: G_PKG_NAME,
3551: 'OKL_API.G_RET_STS_ERROR',
3544: END IF;-- End if for l_amount =0
3545: END IF; -- End if for Check for profile
3546: EXCEPTION
3547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3549: l_api_name,
3550: G_PKG_NAME,
3551: 'OKL_API.G_RET_STS_ERROR',
3552: x_msg_count,
3547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3549: l_api_name,
3550: G_PKG_NAME,
3551: 'OKL_API.G_RET_STS_ERROR',
3552: x_msg_count,
3553: x_msg_data,
3554: '_PVT');
3555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3551: 'OKL_API.G_RET_STS_ERROR',
3552: x_msg_count,
3553: x_msg_data,
3554: '_PVT');
3555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3557: l_api_name,
3558: G_PKG_NAME,
3559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3552: x_msg_count,
3553: x_msg_data,
3554: '_PVT');
3555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3557: l_api_name,
3558: G_PKG_NAME,
3559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3560: x_msg_count,
3555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3557: l_api_name,
3558: G_PKG_NAME,
3559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3560: x_msg_count,
3561: x_msg_data,
3562: '_PVT');
3563: WHEN OTHERS THEN
3560: x_msg_count,
3561: x_msg_data,
3562: '_PVT');
3563: WHEN OTHERS THEN
3564: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3565: l_api_name,
3566: G_PKG_NAME,
3567: 'OTHERS',
3568: x_msg_count,
3592: WHERE id=a_id;
3593:
3594: BEGIN
3595:
3596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3597:
3598: --Call start_activity to create savepoint, check compatibility and initialize message list
3599:
3600: x_return_status := OKL_API.START_ACTIVITY(
3596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3597:
3598: --Call start_activity to create savepoint, check compatibility and initialize message list
3599:
3600: x_return_status := OKL_API.START_ACTIVITY(
3601: l_api_name
3602: ,p_init_msg_list
3603: ,'_PVT'
3604: ,x_return_status);
3604: ,x_return_status);
3605:
3606: --Check if activity started successfully
3607:
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3605:
3606: --Check if activity started successfully
3607:
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3606: --Check if activity started successfully
3607:
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3614: OPEN c_obj_vers_csr(l_trqv_rec.id);
3607:
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3614: OPEN c_obj_vers_csr(l_trqv_rec.id);
3615: FETCH c_obj_vers_csr INTO l_trqv_rec.object_Version_number;
3637: p_trqv_rec => l_trqv_rec,
3638: x_trqv_rec => x_trqv_rec);
3639:
3640:
3641: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3644: RAISE OKL_API.G_EXCEPTION_ERROR;
3645: END IF;
3638: x_trqv_rec => x_trqv_rec);
3639:
3640:
3641: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3644: RAISE OKL_API.G_EXCEPTION_ERROR;
3645: END IF;
3646:
3639:
3640:
3641: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3644: RAISE OKL_API.G_EXCEPTION_ERROR;
3645: END IF;
3646:
3647: EXCEPTION
3640:
3641: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3644: RAISE OKL_API.G_EXCEPTION_ERROR;
3645: END IF;
3646:
3647: EXCEPTION
3648: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3644: RAISE OKL_API.G_EXCEPTION_ERROR;
3645: END IF;
3646:
3647: EXCEPTION
3648: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3649: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3650: l_api_name,
3651: G_PKG_NAME,
3652: 'OKL_API.G_RET_STS_ERROR',
3645: END IF;
3646:
3647: EXCEPTION
3648: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3649: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3650: l_api_name,
3651: G_PKG_NAME,
3652: 'OKL_API.G_RET_STS_ERROR',
3653: x_msg_count,
3648: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3649: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3650: l_api_name,
3651: G_PKG_NAME,
3652: 'OKL_API.G_RET_STS_ERROR',
3653: x_msg_count,
3654: x_msg_data,
3655: '_PVT');
3656: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3652: 'OKL_API.G_RET_STS_ERROR',
3653: x_msg_count,
3654: x_msg_data,
3655: '_PVT');
3656: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3658: l_api_name,
3659: G_PKG_NAME,
3660: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3653: x_msg_count,
3654: x_msg_data,
3655: '_PVT');
3656: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3658: l_api_name,
3659: G_PKG_NAME,
3660: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3661: x_msg_count,
3656: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3658: l_api_name,
3659: G_PKG_NAME,
3660: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3661: x_msg_count,
3662: x_msg_data,
3663: '_PVT');
3664: WHEN OTHERS THEN
3661: x_msg_count,
3662: x_msg_data,
3663: '_PVT');
3664: WHEN OTHERS THEN
3665: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3666: l_api_name,
3667: G_PKG_NAME,
3668: 'OTHERS',
3669: x_msg_count,
3707: EXCEPTION
3708:
3709: WHEN OTHERS THEN
3710:
3711: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3712: p_msg_name => G_UNEXPECTED_ERROR,
3713: p_token1 => G_SQLCODE_TOKEN,
3714: p_token1_value => SQLCODE,
3715: p_token2 => G_SQLERRM_TOKEN,
3754: EXCEPTION
3755:
3756: WHEN OTHERS THEN
3757:
3758: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3759: p_msg_name => G_UNEXPECTED_ERROR,
3760: p_token1 => G_SQLCODE_TOKEN,
3761: p_token1_value => SQLCODE,
3762: p_token2 => G_SQLERRM_TOKEN,
3796: EXCEPTION
3797:
3798: WHEN OTHERS THEN
3799:
3800: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3801: p_msg_name => G_UNEXPECTED_ERROR,
3802: p_token1 => G_SQLCODE_TOKEN,
3803: p_token1_value => SQLCODE,
3804: p_token2 => G_SQLERRM_TOKEN,
3844: l_factoring_code VARCHAR2(30);
3845:
3846: l_api_version CONSTANT NUMBER := 1;
3847: l_init_msg_list CONSTANT CHAR := 'F';
3848: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3849: l_line_number CONSTANT NUMBER := 1;
3850:
3851:
3852: -- Invoice Header
3871: l_syndication_code := p_syndication_code;
3872: l_factoring_code := p_factoring_code;
3873:
3874: IF (l_syndication_code IS NOT NULL) AND (l_factoring_code IS NOT NULL) THEN
3875: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3876: p_msg_name => 'OKL_SYND_FACTOR_EXCLUSIVE');
3877: RAISE OKL_API.G_EXCEPTION_ERROR;
3878: END IF;
3879:
3873:
3874: IF (l_syndication_code IS NOT NULL) AND (l_factoring_code IS NOT NULL) THEN
3875: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3876: p_msg_name => 'OKL_SYND_FACTOR_EXCLUSIVE');
3877: RAISE OKL_API.G_EXCEPTION_ERROR;
3878: END IF;
3879:
3880: l_sysdate := TRUNC(SYSDATE);
3881: l_khr_id := p_khr_id;
3886: l_sty_id := get_sty_id (l_sty_name);
3887: l_pdt_id := get_pdt_id (l_khr_id);
3888:
3889: IF l_pdt_id IS NULL THEN
3890: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3891: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
3892: RAISE OKL_API.G_EXCEPTION_ERROR;
3893: END IF;
3894:
3888:
3889: IF l_pdt_id IS NULL THEN
3890: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3891: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
3892: RAISE OKL_API.G_EXCEPTION_ERROR;
3893: END IF;
3894:
3895:
3896: ----------------------------------------------------------------------------------
3926: x_msg_data => x_msg_data,
3927: p_taiv_rec => i_taiv_rec,
3928: x_taiv_rec => r_taiv_rec);
3929:
3930: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3927: p_taiv_rec => i_taiv_rec,
3928: x_taiv_rec => r_taiv_rec);
3929:
3930: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935:
3928: x_taiv_rec => r_taiv_rec);
3929:
3930: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935:
3936: ----------------------------------------------------------------------------------
3929:
3930: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935:
3936: ----------------------------------------------------------------------------------
3937: -- Prepare Invoice Line
3960: x_msg_data => x_msg_data,
3961: p_tilv_rec => i_tilv_rec,
3962: x_tilv_rec => r_tilv_rec);
3963:
3964: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3967: RAISE OKL_API.G_EXCEPTION_ERROR;
3968: END IF;
3961: p_tilv_rec => i_tilv_rec,
3962: x_tilv_rec => r_tilv_rec);
3963:
3964: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3967: RAISE OKL_API.G_EXCEPTION_ERROR;
3968: END IF;
3969:
3962: x_tilv_rec => r_tilv_rec);
3963:
3964: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3967: RAISE OKL_API.G_EXCEPTION_ERROR;
3968: END IF;
3969:
3970: ----------------------------------------------------------------------------------
3963:
3964: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3967: RAISE OKL_API.G_EXCEPTION_ERROR;
3968: END IF;
3969:
3970: ----------------------------------------------------------------------------------
3971: -- Prepare OKL Accounting Engine parameters
4012: p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl,
4013: x_template_tbl => lx_template_tbl,
4014: x_amount_tbl => lx_amount_tbl);
4015:
4016: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4019: RAISE OKL_API.G_EXCEPTION_ERROR;
4020: END IF;
4013: x_template_tbl => lx_template_tbl,
4014: x_amount_tbl => lx_amount_tbl);
4015:
4016: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4019: RAISE OKL_API.G_EXCEPTION_ERROR;
4020: END IF;
4021:
4014: x_amount_tbl => lx_amount_tbl);
4015:
4016: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4019: RAISE OKL_API.G_EXCEPTION_ERROR;
4020: END IF;
4021:
4022: x_tai_id := r_taiv_rec.id;
4015:
4016: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4019: RAISE OKL_API.G_EXCEPTION_ERROR;
4020: END IF;
4021:
4022: x_tai_id := r_taiv_rec.id;
4023: x_return_status := l_return_status;
4024:
4025:
4026: EXCEPTION
4027:
4028: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4029:
4030: x_return_status := OKL_API.G_RET_STS_ERROR;
4031:
4032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4026: EXCEPTION
4027:
4028: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4029:
4030: x_return_status := OKL_API.G_RET_STS_ERROR;
4031:
4032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4033:
4034: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4028: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4029:
4030: x_return_status := OKL_API.G_RET_STS_ERROR;
4031:
4032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4033:
4034: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4035:
4036: WHEN OTHERS THEN
4030: x_return_status := OKL_API.G_RET_STS_ERROR;
4031:
4032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4033:
4034: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4035:
4036: WHEN OTHERS THEN
4037:
4038: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4034: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4035:
4036: WHEN OTHERS THEN
4037:
4038: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4039: p_msg_name => G_UNEXPECTED_ERROR,
4040: p_token1 => G_SQLCODE_TOKEN,
4041: p_token1_value => SQLCODE,
4042: p_token2 => G_SQLERRM_TOKEN,
4041: p_token1_value => SQLCODE,
4042: p_token2 => G_SQLERRM_TOKEN,
4043: p_token2_value => SQLERRM);
4044:
4045: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4046:
4047: END create_ppd_invoice;
4048:
4049: --************************************************************************
4084: IF (G_DEBUG_ENABLED = 'Y') THEN
4085: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4086: END IF;
4087:
4088: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4089:
4090: --Call start_activity to create savepoint, check compatibility
4091: --and initialize message list
4092: x_return_status := OKL_API.START_ACTIVITY(
4088: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4089:
4090: --Call start_activity to create savepoint, check compatibility
4091: --and initialize message list
4092: x_return_status := OKL_API.START_ACTIVITY(
4093: l_api_name
4094: ,p_init_msg_list
4095: ,'_PVT'
4096: ,x_return_status);
4096: ,x_return_status);
4097:
4098: --Check if activity started successfully
4099:
4100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_ERROR;
4104: END IF;
4097:
4098: --Check if activity started successfully
4099:
4100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_ERROR;
4104: END IF;
4105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4098: --Check if activity started successfully
4099:
4100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_ERROR;
4104: END IF;
4105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4106: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Cancel PPD');
4099:
4100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_ERROR;
4104: END IF;
4105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4106: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Cancel PPD');
4107: END IF;
4133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cancel PPD :'|| x_return_status);
4135: END IF;
4136:
4137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_ERROR;
4141: END IF;
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cancel PPD :'|| x_return_status);
4135: END IF;
4136:
4137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_ERROR;
4141: END IF;
4142:
4135: END IF;
4136:
4137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_ERROR;
4141: END IF;
4142:
4143: END LOOP;
4136:
4137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_ERROR;
4141: END IF;
4142:
4143: END LOOP;
4144: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4140: RAISE OKL_API.G_EXCEPTION_ERROR;
4141: END IF;
4142:
4143: END LOOP;
4144: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4145: x_msg_data => x_msg_data);
4146:
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4144: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4145: x_msg_data => x_msg_data);
4146:
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4145: x_msg_data => x_msg_data);
4146:
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4161: x_msg_count,
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT');
4164: WHEN OTHERS THEN
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT');
4164: WHEN OTHERS THEN
4165: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4166: l_api_name,
4167: G_PKG_NAME,
4168: 'OTHERS',
4169: x_msg_count,
4244: 'p_khr_id :'||p_khr_id);
4245: END IF;
4246:
4247:
4248: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4249: --Call start_activity to create savepoint,
4250: --check compatibility and initialize message list
4251:
4252: /*
4249: --Call start_activity to create savepoint,
4250: --check compatibility and initialize message list
4251:
4252: /*
4253: x_return_status := OKL_API.START_ACTIVITY(
4254: l_api_name
4255: ,p_init_msg_list
4256: ,'_PVT'
4257: ,x_return_status);
4257: ,x_return_status);
4258:
4259: --Check if activity started successfully
4260:
4261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4258:
4259: --Check if activity started successfully
4260:
4261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266: */
4259: --Check if activity started successfully
4260:
4261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266: */
4267:
4260:
4261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266: */
4267:
4268: OPEN c_get_source_trx_id(p_trx_id);
4332: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After updating Request :' || x_return_status);
4334: END IF;
4335: /*
4336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After updating Request :' || x_return_status);
4334: END IF;
4335: /*
4336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: */
4334: END IF;
4335: /*
4336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: */
4342:
4335: /*
4336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: */
4342:
4343:
4372:
4373: END IF;
4374: END IF;
4375: /*
4376: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4377: x_msg_data => x_msg_data);
4378: */
4379:
4380: /*
4379:
4380: /*
4381: EXCEPTION
4382:
4383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_ERROR',
4380: /*
4381: EXCEPTION
4382:
4383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_ERROR',
4388: x_msg_count,
4383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_ERROR',
4388: x_msg_count,
4389: x_msg_data,
4390: '_PVT');
4391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4387: 'OKL_API.G_RET_STS_ERROR',
4388: x_msg_count,
4389: x_msg_data,
4390: '_PVT');
4391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4392: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4393: l_api_name,
4394: G_PKG_NAME,
4395: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4388: x_msg_count,
4389: x_msg_data,
4390: '_PVT');
4391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4392: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4393: l_api_name,
4394: G_PKG_NAME,
4395: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4396: x_msg_count,
4391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4392: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4393: l_api_name,
4394: G_PKG_NAME,
4395: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4396: x_msg_count,
4397: x_msg_data,
4398: '_PVT');
4399: WHEN OTHERS THEN
4396: x_msg_count,
4397: x_msg_data,
4398: '_PVT');
4399: WHEN OTHERS THEN
4400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4401: l_api_name,
4402: G_PKG_NAME,
4403: 'OTHERS',
4404: x_msg_count,
4519: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CASH_FLOW_OBJECT';
4520: l_cfo_id NUMBER;
4521: lp_cfov_rec cfov_rec_type;
4522: lx_cfov_rec cfov_rec_type;
4523: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4524:
4525:
4526: BEGIN
4527: IF (G_DEBUG_ENABLED = 'Y') THEN
4560: lp_cfov_rec.source_table := p_src_table;
4561: lp_cfov_rec.source_id := p_src_id;
4562:
4563: okl_cash_flow_objects_pub.insert_cash_flow_object(p_api_version => p_api_version,
4564: p_init_msg_list => OKL_API.G_FALSE,
4565: x_return_status => l_return_status,
4566: x_msg_count => x_msg_count,
4567: x_msg_data => x_msg_data,
4568: p_cfov_rec => lp_cfov_rec,
4570:
4571: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4572: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Created CFO');
4573: END IF;
4574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_ERROR;
4578: END IF;
4571: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4572: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Created CFO');
4573: END IF;
4574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_ERROR;
4578: END IF;
4579:
4572: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Created CFO');
4573: END IF;
4574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_ERROR;
4578: END IF;
4579:
4580:
4573: END IF;
4574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_ERROR;
4578: END IF;
4579:
4580:
4581: x_cfo_id := lx_cfov_rec.id;
4596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','end(-)');
4597: END IF;
4598: EXCEPTION
4599:
4600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4601: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4602: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4603: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
4604: END IF;
4599:
4600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4601: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4602: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4603: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
4604: END IF;
4605:
4606: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4607: l_api_name,
4602: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4603: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
4604: END IF;
4605:
4606: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4607: l_api_name,
4608: G_PKG_NAME,
4609: 'OKL_API.G_RET_STS_ERROR',
4610: x_msg_count,
4605:
4606: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4607: l_api_name,
4608: G_PKG_NAME,
4609: 'OKL_API.G_RET_STS_ERROR',
4610: x_msg_count,
4611: x_msg_data,
4612: '_PVT');
4613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4609: 'OKL_API.G_RET_STS_ERROR',
4610: x_msg_count,
4611: x_msg_data,
4612: '_PVT');
4613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4614: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4615: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4616: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
4617: END IF;
4612: '_PVT');
4613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4614: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4615: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4616: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
4617: END IF;
4618:
4619: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4620: l_api_name,
4615: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4616: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
4617: END IF;
4618:
4619: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4620: l_api_name,
4621: G_PKG_NAME,
4622: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4623: x_msg_count,
4618:
4619: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4620: l_api_name,
4621: G_PKG_NAME,
4622: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4623: x_msg_count,
4624: x_msg_data,
4625: '_PVT');
4626: WHEN OTHERS THEN
4628: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4629: 'EXCEPTION :'||sqlerrm);
4630: END IF;
4631:
4632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4633: l_api_name,
4634: G_PKG_NAME,
4635: 'OTHERS',
4636: x_msg_count,
4640:
4641:
4642: PROCEDURE store_esg_payments(
4643: p_api_version IN NUMBER,
4644: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4645: x_return_status OUT NOCOPY VARCHAR2,
4646: x_msg_count OUT NOCOPY NUMBER,
4647: x_msg_data OUT NOCOPY VARCHAR2,
4648: p_ppd_request_id IN NUMBER,
4649: p_ppd_khr_id IN NUMBER,
4650: p_payment_tbl IN payment_tbl_type)
4651:
4652: AS
4653: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4654: l_api_name CONSTANT VARCHAR2(30) := 'store_esg_payments';
4655: lx_cfo_id NUMBER;
4656:
4657: l_trqv_rec okl_trx_requests_pub.trqv_rec_type;
4727: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4728: 'p_ppd_khr_id :'||p_ppd_khr_id);
4729: END IF;
4730:
4731: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4732:
4733: --Call start_activity to create savepoint,
4734: --check compatibility and initialize message list
4735:
4732:
4733: --Call start_activity to create savepoint,
4734: --check compatibility and initialize message list
4735:
4736: x_return_status := OKL_API.START_ACTIVITY(
4737: l_api_name
4738: ,p_init_msg_list
4739: ,'_PVT'
4740: ,x_return_status);
4740: ,x_return_status);
4741:
4742: --Check if activity started successfully
4743:
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4741:
4742: --Check if activity started successfully
4743:
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749:
4742: --Check if activity started successfully
4743:
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749:
4750: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4743:
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749:
4750: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== Begin Payments sent to the API before any modifications ====');
4795: ,p_dependent_sty_purpose => G_PRINCIPAL_PAYMENT
4796: ,x_return_status => x_return_status
4797: ,x_dependent_sty_id => l_rent_sty_id);
4798:
4799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_ERROR;
4803: END IF;
4796: ,x_return_status => x_return_status
4797: ,x_dependent_sty_id => l_rent_sty_id);
4798:
4799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: ELSE
4797: ,x_dependent_sty_id => l_rent_sty_id);
4798:
4799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: ELSE
4805: OKL_STREAMS_UTIL.get_primary_stream_type
4798:
4799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4802: RAISE OKL_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: ELSE
4805: OKL_STREAMS_UTIL.get_primary_stream_type
4806: (p_khr_id => p_ppd_khr_id
4806: (p_khr_id => p_ppd_khr_id
4807: ,p_primary_sty_purpose => G_RENT_STREAM
4808: ,x_return_status => x_return_status
4809: ,x_primary_sty_id => l_rent_sty_id);
4810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4813: RAISE OKL_API.G_EXCEPTION_ERROR;
4814: END IF;
4807: ,p_primary_sty_purpose => G_RENT_STREAM
4808: ,x_return_status => x_return_status
4809: ,x_primary_sty_id => l_rent_sty_id);
4810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4813: RAISE OKL_API.G_EXCEPTION_ERROR;
4814: END IF;
4815: END IF;
4808: ,x_return_status => x_return_status
4809: ,x_primary_sty_id => l_rent_sty_id);
4810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4813: RAISE OKL_API.G_EXCEPTION_ERROR;
4814: END IF;
4815: END IF;
4816: --Bug#5100215 end
4809: ,x_primary_sty_id => l_rent_sty_id);
4810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4813: RAISE OKL_API.G_EXCEPTION_ERROR;
4814: END IF;
4815: END IF;
4816: --Bug#5100215 end
4817:
4826: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
4828: END IF;
4829:
4830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4833: RAISE OKL_API.G_EXCEPTION_ERROR;
4834: END IF;
4827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
4828: END IF;
4829:
4830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4833: RAISE OKL_API.G_EXCEPTION_ERROR;
4834: END IF;
4835:
4828: END IF;
4829:
4830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4833: RAISE OKL_API.G_EXCEPTION_ERROR;
4834: END IF;
4835:
4836: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
4829:
4830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4833: RAISE OKL_API.G_EXCEPTION_ERROR;
4834: END IF;
4835:
4836: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
4837: p_init_msg_list => p_init_msg_list,
4844: x_value => l_total_k_cost);
4845: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
4847: END IF;
4848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4851: RAISE OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4845: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
4847: END IF;
4848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4851: RAISE OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4853:
4846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
4847: END IF;
4848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4851: RAISE OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4853:
4854: --Now populate the l_payments_tbl with the UNSCHEDULED_PRINCIPAL_PAYMENT
4847: END IF;
4848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4851: RAISE OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4853:
4854: --Now populate the l_payments_tbl with the UNSCHEDULED_PRINCIPAL_PAYMENT
4855: --to account for this ppd.
5021: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
5023: || 'CFO Id: '|| lx_cfo_id);
5024: END IF;
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
5023: || 'CFO Id: '|| lx_cfo_id);
5024: END IF;
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030:
5023: || 'CFO Id: '|| lx_cfo_id);
5024: END IF;
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030:
5031: --Update the Request with the status of complete.
5024: END IF;
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030:
5031: --Update the Request with the status of complete.
5032:
5039: x_msg_count => x_msg_count,
5040: x_msg_data => x_msg_data,
5041: p_trqv_rec => l_trqv_rec,
5042: x_trqv_rec => lx_trqv_rec);
5043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5040: x_msg_data => x_msg_data,
5041: p_trqv_rec => l_trqv_rec,
5042: x_trqv_rec => lx_trqv_rec);
5043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5048:
5041: p_trqv_rec => l_trqv_rec,
5042: x_trqv_rec => lx_trqv_rec);
5043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5048:
5049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5042: x_trqv_rec => lx_trqv_rec);
5043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5048:
5049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5050: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments'
5052: END IF;
5053:
5054: EXCEPTION
5055:
5056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5057: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5058: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5059: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5060: END IF;
5055:
5056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5057: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5058: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5059: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5060: END IF;
5061:
5062: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5063: l_api_name,
5058: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5059: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5060: END IF;
5061:
5062: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5063: l_api_name,
5064: G_PKG_NAME,
5065: 'OKL_API.G_RET_STS_ERROR',
5066: x_msg_count,
5061:
5062: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5063: l_api_name,
5064: G_PKG_NAME,
5065: 'OKL_API.G_RET_STS_ERROR',
5066: x_msg_count,
5067: x_msg_data,
5068: '_PVT');
5069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5065: 'OKL_API.G_RET_STS_ERROR',
5066: x_msg_count,
5067: x_msg_data,
5068: '_PVT');
5069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5072: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5073: END IF;
5068: '_PVT');
5069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5072: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5073: END IF;
5074:
5075: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5076: l_api_name,
5071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5072: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5073: END IF;
5074:
5075: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5076: l_api_name,
5077: G_PKG_NAME,
5078: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5079: x_msg_count,
5074:
5075: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5076: l_api_name,
5077: G_PKG_NAME,
5078: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5079: x_msg_count,
5080: x_msg_data,
5081: '_PVT');
5082: WHEN OTHERS THEN
5084: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5085: 'EXCEPTION :'||sqlerrm);
5086: END IF;
5087:
5088: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5089: l_api_name,
5090: G_PKG_NAME,
5091: 'OTHERS',
5092: x_msg_count,
5097:
5098:
5099: PROCEDURE store_stm_payments(
5100: p_api_version IN NUMBER,
5101: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5102: x_return_status OUT NOCOPY VARCHAR2,
5103: x_msg_count OUT NOCOPY NUMBER,
5104: x_msg_data OUT NOCOPY VARCHAR2,
5105: p_ppd_request_id IN NUMBER,
5136: lp_qcov_rec qcov_rec_type;
5137: lx_qcov_rec qcov_rec_type;
5138:
5139:
5140: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5141: l_api_name CONSTANT VARCHAR2(30) := 'store_stm_payments';
5142: l_prev_sty_id NUMBER;
5143: l_sty_id NUMBER;
5144: l_prev_kle_id NUMBER;
5223: OPEN l_kheaders_csr(p_ppd_khr_id);
5224: FETCH l_kheaders_csr INTO l_currency_code;
5225: CLOSE l_kheaders_csr;
5226:
5227: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5228:
5229: --Call start_activity to create savepoint,
5230: --check compatibility and initialize message list
5231:
5228:
5229: --Call start_activity to create savepoint,
5230: --check compatibility and initialize message list
5231:
5232: x_return_status := OKL_API.START_ACTIVITY(
5233: l_api_name
5234: ,p_init_msg_list
5235: ,'_PVT'
5236: ,x_return_status);
5236: ,x_return_status);
5237:
5238: --Check if activity started successfully
5239:
5240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5237:
5238: --Check if activity started successfully
5239:
5240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5238: --Check if activity started successfully
5239:
5240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5246: l_prev_sty_id := 0;
5239:
5240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5246: l_prev_sty_id := 0;
5247: l_prev_kle_id := 0; --Bug#5046204
5258: p_base_src_id => p_payment_tbl(i).kle_id,
5259: x_cfo_id => l_cfo_id,
5260: x_return_status => l_return_status);
5261:
5262: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5259: x_cfo_id => l_cfo_id,
5260: x_return_status => l_return_status);
5261:
5262: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5267:
5260: x_return_status => l_return_status);
5261:
5262: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5267:
5268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5261:
5262: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5264: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5267:
5268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Checking for QCO');
5285: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating QCO');
5286: END IF;
5287:
5288: OKL_TRX_QTE_CF_OBJECTS_PUB.insert_quote_cf_object(p_api_version => p_api_version,
5289: p_init_msg_list => OKL_API.G_FALSE,
5290: x_return_status => l_return_status,
5291: x_msg_count => x_msg_count,
5292: x_msg_data => x_msg_data,
5293: p_qcov_rec => lp_qcov_rec,
5295: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5297: END IF;
5298:
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5297: END IF;
5298:
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5297: END IF;
5298:
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: ELSE
5298:
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: ELSE
5306: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5345: lp_cafv_rec.dnz_qte_id := p_ppd_request_id;
5346: --Call the API to create the Cash Flow.
5347: okl_cash_flows_pub.insert_cash_flow(
5348: p_api_version => p_api_version,
5349: p_init_msg_list => OKL_API.G_FALSE,
5350: x_return_status => l_return_status,
5351: x_msg_count => x_msg_count,
5352: x_msg_data => x_msg_data,
5353: p_cafv_rec => lp_cafv_rec,
5355:
5356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5358: END IF;
5359: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5362: RAISE OKL_API.G_EXCEPTION_ERROR;
5363: END IF;
5356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5358: END IF;
5359: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5362: RAISE OKL_API.G_EXCEPTION_ERROR;
5363: END IF;
5364: l_caf_id := lx_cafv_rec.id;
5357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5358: END IF;
5359: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5362: RAISE OKL_API.G_EXCEPTION_ERROR;
5363: END IF;
5364: l_caf_id := lx_cafv_rec.id;
5365: ELSE
5358: END IF;
5359: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5362: RAISE OKL_API.G_EXCEPTION_ERROR;
5363: END IF;
5364: l_caf_id := lx_cafv_rec.id;
5365: ELSE
5366: lp_cafv_rec := NULL;
5376: lp_cafv_rec.dnz_qte_id := p_ppd_request_id;
5377: --Call the API to create the Cash Flow.
5378: okl_cash_flows_pub.update_cash_flow(
5379: p_api_version => p_api_version,
5380: p_init_msg_list => OKL_API.G_FALSE,
5381: x_return_status => l_return_status,
5382: x_msg_count => x_msg_count,
5383: x_msg_data => x_msg_data,
5384: p_cafv_rec => lp_cafv_rec,
5386:
5387: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5389: END IF;
5390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5393: RAISE OKL_API.G_EXCEPTION_ERROR;
5394: END IF;
5387: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5389: END IF;
5390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5393: RAISE OKL_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: END IF; --Check for existence of Caf
5388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5389: END IF;
5390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5393: RAISE OKL_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: END IF; --Check for existence of Caf
5396:
5389: END IF;
5390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5393: RAISE OKL_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: END IF; --Check for existence of Caf
5396:
5397: END IF; --Check for Sty_id
5455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFL');
5456: END IF;
5457: OKL_CASH_FLOW_LEVELS_PUB.insert_cash_flow_level(
5458: p_api_version => p_api_version,
5459: p_init_msg_list => OKL_API.G_FALSE,
5460: x_return_status => l_return_status,
5461: x_msg_count => x_msg_count,
5462: x_msg_data => x_msg_data,
5463: p_cflv_rec => lp_cflv_rec,
5465: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5466: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5467: END IF;
5468:
5469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5472: RAISE OKL_API.G_EXCEPTION_ERROR;
5473: END IF;
5466: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5467: END IF;
5468:
5469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5472: RAISE OKL_API.G_EXCEPTION_ERROR;
5473: END IF;
5474: ELSE
5467: END IF;
5468:
5469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5472: RAISE OKL_API.G_EXCEPTION_ERROR;
5473: END IF;
5474: ELSE
5475: lp_cflv_rec := NULL;
5468:
5469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5472: RAISE OKL_API.G_EXCEPTION_ERROR;
5473: END IF;
5474: ELSE
5475: lp_cflv_rec := NULL;
5476: lp_cflv_rec.caf_id := l_caf_id;
5509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Updating CFL');
5510: END IF;
5511: OKL_CASH_FLOW_LEVELS_PUB.update_cash_flow_level(
5512: p_api_version => p_api_version,
5513: p_init_msg_list => OKL_API.G_FALSE,
5514: x_return_status => l_return_status,
5515: x_msg_count => x_msg_count,
5516: x_msg_data => x_msg_data,
5517: p_cflv_rec => lp_cflv_rec,
5519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
5521: END IF;
5522:
5523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: RAISE OKL_API.G_EXCEPTION_ERROR;
5527: END IF;
5520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
5521: END IF;
5522:
5523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: RAISE OKL_API.G_EXCEPTION_ERROR;
5527: END IF;
5528:
5521: END IF;
5522:
5523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: RAISE OKL_API.G_EXCEPTION_ERROR;
5527: END IF;
5528:
5529: END IF; --check for Cash flow level.
5522:
5523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: RAISE OKL_API.G_EXCEPTION_ERROR;
5527: END IF;
5528:
5529: END IF; --check for Cash flow level.
5530: l_prev_sty_id := l_sty_id;
5540: END IF;
5541:
5542: EXCEPTION
5543:
5544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5545: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5546: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5547: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5548: END IF;
5543:
5544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5545: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5546: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5547: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5548: END IF;
5549:
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5546: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5547: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5548: END IF;
5549:
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5549:
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5560: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5561: END IF;
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5560: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5561: END IF;
5562:
5563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5564: l_api_name,
5559: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5560: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5561: END IF;
5562:
5563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5564: l_api_name,
5565: G_PKG_NAME,
5566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5567: x_msg_count,
5562:
5563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5564: l_api_name,
5565: G_PKG_NAME,
5566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5567: x_msg_count,
5568: x_msg_data,
5569: '_PVT');
5570: WHEN OTHERS THEN
5572: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5573: 'EXCEPTION :'||sqlerrm);
5574: END IF;
5575:
5576: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5577: l_api_name,
5578: G_PKG_NAME,
5579: 'OTHERS',
5580: x_msg_count,
5586:
5587:
5588: PROCEDURE store_payments(
5589: p_api_version IN NUMBER,
5590: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5591: x_return_status OUT NOCOPY VARCHAR2,
5592: x_msg_count OUT NOCOPY NUMBER,
5593: x_msg_data OUT NOCOPY VARCHAR2,
5594: p_ppd_request_id IN NUMBER,
5623: lp_qcov_rec qcov_rec_type;
5624: lx_qcov_rec qcov_rec_type;
5625:
5626:
5627: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5628: l_api_name CONSTANT VARCHAR2(30) := 'STORE_PAYMENTS';
5629: l_prev_sty_id NUMBER;
5630: l_sty_id NUMBER;
5631: l_cfo_id NUMBER;
5761: OPEN l_kheaders_csr(p_ppd_khr_id);
5762: FETCH l_kheaders_csr INTO l_currency_code;
5763: CLOSE l_kheaders_csr;
5764:
5765: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5766:
5767: --Call start_activity to create savepoint, check compatibility and initialize message list
5768:
5769: x_return_status := OKL_API.START_ACTIVITY(
5765: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5766:
5767: --Call start_activity to create savepoint, check compatibility and initialize message list
5768:
5769: x_return_status := OKL_API.START_ACTIVITY(
5770: l_api_name
5771: ,p_init_msg_list
5772: ,'_PVT'
5773: ,x_return_status);
5773: ,x_return_status);
5774:
5775: --Check if activity started successfully
5776:
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5774:
5775: --Check if activity started successfully
5776:
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782:
5775: --Check if activity started successfully
5776:
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782:
5783: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5776:
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782:
5783: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFO');
5799: p_base_src_id => p_payment_structure(i).cle_id,
5800: x_cfo_id => l_cfo_id,
5801: x_return_status => l_return_status);
5802:
5803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_ERROR;
5807: END IF;
5800: x_cfo_id => l_cfo_id,
5801: x_return_status => l_return_status);
5802:
5803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_ERROR;
5807: END IF;
5808:
5801: x_return_status => l_return_status);
5802:
5803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_ERROR;
5807: END IF;
5808:
5809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5802:
5803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_ERROR;
5807: END IF;
5808:
5809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Checking for QCO');
5826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating QCO');
5827: END IF;
5828:
5829: OKL_TRX_QTE_CF_OBJECTS_PUB.insert_quote_cf_object(p_api_version => p_api_version,
5830: p_init_msg_list => OKL_API.G_FALSE,
5831: x_return_status => l_return_status,
5832: x_msg_count => x_msg_count,
5833: x_msg_data => x_msg_data,
5834: p_qcov_rec => lp_qcov_rec,
5837: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5838: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5839: END IF;
5840:
5841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5844: RAISE OKL_API.G_EXCEPTION_ERROR;
5845: END IF;
5838: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5839: END IF;
5840:
5841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5844: RAISE OKL_API.G_EXCEPTION_ERROR;
5845: END IF;
5846:
5839: END IF;
5840:
5841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5844: RAISE OKL_API.G_EXCEPTION_ERROR;
5845: END IF;
5846:
5847: END IF;
5840:
5841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5844: RAISE OKL_API.G_EXCEPTION_ERROR;
5845: END IF;
5846:
5847: END IF;
5848: --Create the Cash flows for this Object.
5883:
5884: --Call the API to create the Cash Flow.
5885: okl_cash_flows_pub.insert_cash_flow(
5886: p_api_version => p_api_version,
5887: p_init_msg_list => OKL_API.G_FALSE,
5888: x_return_status => l_return_status,
5889: x_msg_count => x_msg_count,
5890: x_msg_data => x_msg_data,
5891: p_cafv_rec => lp_cafv_rec,
5893:
5894: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5896: END IF;
5897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_ERROR;
5901: END IF;
5894: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5896: END IF;
5897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_ERROR;
5901: END IF;
5902: l_caf_id := lx_cafv_rec.id;
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5896: END IF;
5897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_ERROR;
5901: END IF;
5902: l_caf_id := lx_cafv_rec.id;
5903: ELSE
5896: END IF;
5897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_ERROR;
5901: END IF;
5902: l_caf_id := lx_cafv_rec.id;
5903: ELSE
5904: lp_cafv_rec := NULL;
5915: lp_cafv_rec.id := l_caf_id;
5916: --Call the API to create the Cash Flow.
5917: okl_cash_flows_pub.update_cash_flow(
5918: p_api_version => p_api_version,
5919: p_init_msg_list => OKL_API.G_FALSE,
5920: x_return_status => l_return_status,
5921: x_msg_count => x_msg_count,
5922: x_msg_data => x_msg_data,
5923: p_cafv_rec => lp_cafv_rec,
5925:
5926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5928: END IF;
5929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_ERROR;
5933: END IF;
5926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5928: END IF;
5929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_ERROR;
5933: END IF;
5934: END IF; --Check for existence of Caf
5927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5928: END IF;
5929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_ERROR;
5933: END IF;
5934: END IF; --Check for existence of Caf
5935: END IF; --Check for Sty_id
5928: END IF;
5929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_ERROR;
5933: END IF;
5934: END IF; --Check for existence of Caf
5935: END IF; --Check for Sty_id
5936:
5971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFL');
5972: END IF;
5973: OKL_CASH_FLOW_LEVELS_PUB.insert_cash_flow_level(
5974: p_api_version => p_api_version,
5975: p_init_msg_list => OKL_API.G_FALSE,
5976: x_return_status => l_return_status,
5977: x_msg_count => x_msg_count,
5978: x_msg_data => x_msg_data,
5979: p_cflv_rec => lp_cflv_rec,
5981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5983: END IF;
5984:
5985: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5983: END IF;
5984:
5985: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990: ELSE
5983: END IF;
5984:
5985: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990: ELSE
5991: lp_cflv_rec := NULL;
5984:
5985: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990: ELSE
5991: lp_cflv_rec := NULL;
5992: lp_cflv_rec.caf_id := l_caf_id;
6017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Updating CFL');
6018: END IF;
6019: OKL_CASH_FLOW_LEVELS_PUB.update_cash_flow_level(
6020: p_api_version => p_api_version,
6021: p_init_msg_list => OKL_API.G_FALSE,
6022: x_return_status => l_return_status,
6023: x_msg_count => x_msg_count,
6024: x_msg_data => x_msg_data,
6025: p_cflv_rec => lp_cflv_rec,
6027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
6029: END IF;
6030:
6031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6034: RAISE OKL_API.G_EXCEPTION_ERROR;
6035: END IF;
6028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
6029: END IF;
6030:
6031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6034: RAISE OKL_API.G_EXCEPTION_ERROR;
6035: END IF;
6036:
6029: END IF;
6030:
6031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6034: RAISE OKL_API.G_EXCEPTION_ERROR;
6035: END IF;
6036:
6037: END IF; --check for Cash flow level.
6030:
6031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6034: RAISE OKL_API.G_EXCEPTION_ERROR;
6035: END IF;
6036:
6037: END IF; --check for Cash flow level.
6038:
6045: END IF;
6046: x_cfo_id := l_cfo_id;
6047: EXCEPTION
6048:
6049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6050: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6051: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6052: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6053: END IF;
6048:
6049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6050: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6051: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6052: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6053: END IF;
6054:
6055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6056: l_api_name,
6051: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6052: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6053: END IF;
6054:
6055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6056: l_api_name,
6057: G_PKG_NAME,
6058: 'OKL_API.G_RET_STS_ERROR',
6059: x_msg_count,
6054:
6055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6056: l_api_name,
6057: G_PKG_NAME,
6058: 'OKL_API.G_RET_STS_ERROR',
6059: x_msg_count,
6060: x_msg_data,
6061: '_PVT');
6062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6058: 'OKL_API.G_RET_STS_ERROR',
6059: x_msg_count,
6060: x_msg_data,
6061: '_PVT');
6062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6063: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6064: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6065: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6066: END IF;
6061: '_PVT');
6062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6063: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6064: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6065: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6066: END IF;
6067:
6068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6069: l_api_name,
6064: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6065: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6066: END IF;
6067:
6068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6069: l_api_name,
6070: G_PKG_NAME,
6071: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6072: x_msg_count,
6067:
6068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6069: l_api_name,
6070: G_PKG_NAME,
6071: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6072: x_msg_count,
6073: x_msg_data,
6074: '_PVT');
6075: WHEN OTHERS THEN
6077: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6078: 'EXCEPTION :'||sqlerrm);
6079: END IF;
6080:
6081: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6082: l_api_name,
6083: G_PKG_NAME,
6084: 'OTHERS',
6085: x_msg_count,
6089:
6090:
6091: PROCEDURE store_principal_payments(
6092: p_api_version IN NUMBER,
6093: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6094: x_return_status OUT NOCOPY VARCHAR2,
6095: x_msg_count OUT NOCOPY NUMBER,
6096: x_msg_data OUT NOCOPY VARCHAR2,
6097: p_ppd_request_id IN NUMBER,
6099: p_payment_structure IN okl_mass_rebook_pvt.strm_lalevl_tbl_type,
6100: x_cfo_id OUT NOCOPY NUMBER)
6101:
6102: AS
6103: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6104: l_api_name CONSTANT VARCHAR2(30) := 'store_esg_payments';
6105: lx_cfo_id NUMBER;
6106:
6107: l_trqv_rec okl_trx_requests_pub.trqv_rec_type;
6219: 'End of record:' ||i);
6220: END LOOP;
6221: END IF;
6222:
6223: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6224:
6225: --Call start_activity to create savepoint, check compatibility and initialize message list
6226:
6227: x_return_status := OKL_API.START_ACTIVITY(
6223: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6224:
6225: --Call start_activity to create savepoint, check compatibility and initialize message list
6226:
6227: x_return_status := OKL_API.START_ACTIVITY(
6228: l_api_name
6229: ,p_init_msg_list
6230: ,'_PVT'
6231: ,x_return_status);
6231: ,x_return_status);
6232:
6233: --Check if activity started successfully
6234:
6235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6238: RAISE OKL_API.G_EXCEPTION_ERROR;
6239: END IF;
6232:
6233: --Check if activity started successfully
6234:
6235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6238: RAISE OKL_API.G_EXCEPTION_ERROR;
6239: END IF;
6240:
6233: --Check if activity started successfully
6234:
6235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6238: RAISE OKL_API.G_EXCEPTION_ERROR;
6239: END IF;
6240:
6241: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6234:
6235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6238: RAISE OKL_API.G_EXCEPTION_ERROR;
6239: END IF;
6240:
6241: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6242: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing Variables in store_payments');
6269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
6270: END IF;
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6270: END IF;
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278:
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278:
6279: --Get the Stream type id for UPP.
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278:
6279: --Get the Stream type id for UPP.
6280: OKL_STREAMS_UTIL.get_dependent_stream_type(
6286: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6287: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
6288: END IF;
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6287: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
6288: END IF;
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6288: END IF;
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6296: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295:
6296: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
6297: p_init_msg_list => p_init_msg_list,
6304: x_value => l_total_k_cost);
6305: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
6307: END IF;
6308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6311: RAISE OKL_API.G_EXCEPTION_ERROR;
6312: END IF;
6305: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
6307: END IF;
6308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6311: RAISE OKL_API.G_EXCEPTION_ERROR;
6312: END IF;
6313:
6306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
6307: END IF;
6308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6311: RAISE OKL_API.G_EXCEPTION_ERROR;
6312: END IF;
6313:
6314:
6307: END IF;
6308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6311: RAISE OKL_API.G_EXCEPTION_ERROR;
6312: END IF;
6313:
6314:
6315: -- loop through the payment structure
6432: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6433: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
6434: || 'CFO Id: '|| lx_cfo_id);
6435: END IF;
6436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6439: RAISE OKL_API.G_EXCEPTION_ERROR;
6440: END IF;
6433: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
6434: || 'CFO Id: '|| lx_cfo_id);
6435: END IF;
6436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6439: RAISE OKL_API.G_EXCEPTION_ERROR;
6440: END IF;
6441:
6434: || 'CFO Id: '|| lx_cfo_id);
6435: END IF;
6436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6439: RAISE OKL_API.G_EXCEPTION_ERROR;
6440: END IF;
6441:
6442:
6435: END IF;
6436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6439: RAISE OKL_API.G_EXCEPTION_ERROR;
6440: END IF;
6441:
6442:
6443: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6448:
6449:
6450: EXCEPTION
6451:
6452: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6453: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6454: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6455: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6456: END IF;
6451:
6452: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6453: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6454: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6455: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6456: END IF;
6457:
6458: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6459: l_api_name,
6454: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6455: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6456: END IF;
6457:
6458: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6459: l_api_name,
6460: G_PKG_NAME,
6461: 'OKL_API.G_RET_STS_ERROR',
6462: x_msg_count,
6457:
6458: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6459: l_api_name,
6460: G_PKG_NAME,
6461: 'OKL_API.G_RET_STS_ERROR',
6462: x_msg_count,
6463: x_msg_data,
6464: '_PVT');
6465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6461: 'OKL_API.G_RET_STS_ERROR',
6462: x_msg_count,
6463: x_msg_data,
6464: '_PVT');
6465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6466: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6467: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6468: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6469: END IF;
6464: '_PVT');
6465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6466: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6467: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6468: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6469: END IF;
6470:
6471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6472: l_api_name,
6467: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6468: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6469: END IF;
6470:
6471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6472: l_api_name,
6473: G_PKG_NAME,
6474: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6475: x_msg_count,
6470:
6471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6472: l_api_name,
6473: G_PKG_NAME,
6474: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6475: x_msg_count,
6476: x_msg_data,
6477: '_PVT');
6478: WHEN OTHERS THEN
6480: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6481: 'EXCEPTION :'||sqlerrm);
6482: END IF;
6483:
6484: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6485: l_api_name,
6486: G_PKG_NAME,
6487: 'OTHERS',
6488: x_msg_count,
6629: END LOOP;
6630:
6631: EXCEPTION
6632: WHEN OTHERS THEN
6633: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
6634: p_msg_name => G_UNEXPECTED_ERROR,
6635: p_token1 => G_SQLCODE_TOKEN,
6636: p_token1_value => SQLCODE,
6637: p_token2 => G_SQLERRM_TOKEN,
6640:
6641:
6642: PROCEDURE process_ppd(
6643: p_api_version IN NUMBER,
6644: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6645: x_return_status OUT NOCOPY VARCHAR2,
6646: x_msg_count OUT NOCOPY NUMBER,
6647: x_msg_data OUT NOCOPY VARCHAR2,
6648: p_ppd_request_id IN NUMBER)
6647: x_msg_data OUT NOCOPY VARCHAR2,
6648: p_ppd_request_id IN NUMBER)
6649: AS
6650:
6651: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6652: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_PPD';
6653: l_trqv_rec okl_trx_requests_pub.trqv_rec_type;
6654: lx_trqv_rec okl_trx_requests_pub.trqv_rec_type;
6655:
6691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd.',
6692: 'p_ppd_request_id :'||p_ppd_request_id);
6693: END IF;
6694:
6695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6696:
6697: --Call start_activity to create savepoint, check compatibility and initialize message list
6698:
6699: x_return_status := OKL_API.START_ACTIVITY(
6695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6696:
6697: --Call start_activity to create savepoint, check compatibility and initialize message list
6698:
6699: x_return_status := OKL_API.START_ACTIVITY(
6700: l_api_name
6701: ,p_init_msg_list
6702: ,'_PVT'
6703: ,x_return_status);
6703: ,x_return_status);
6704:
6705: --Check if activity started successfully
6706:
6707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_ERROR;
6711: END IF;
6704:
6705: --Check if activity started successfully
6706:
6707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_ERROR;
6711: END IF;
6712: --Get the request details.
6705: --Check if activity started successfully
6706:
6707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_ERROR;
6711: END IF;
6712: --Get the request details.
6713: l_trqv_rec.id := p_ppd_request_id;
6706:
6707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_ERROR;
6711: END IF;
6712: --Get the request details.
6713: l_trqv_rec.id := p_ppd_request_id;
6714:
6736: p_trx_type => 'PPD',
6737: p_reason_code => G_PPD_REASON_CODE,
6738: x_tcnv_rec => l_tcnv_rec);
6739:
6740: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6741: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6742: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from okl_transaction_pvt.create_ppd_transaction');
6743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
6744: END IF;
6742: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from okl_transaction_pvt.create_ppd_transaction');
6743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
6744: END IF;
6745: end if;
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6747: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6749: raise OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
6744: END IF;
6745: end if;
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6747: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6749: raise OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751:
6744: END IF;
6745: end if;
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6747: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6749: raise OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751:
6752:
6745: end if;
6746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6747: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6749: raise OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751:
6752:
6753:
6762: x_msg_count => x_msg_count,
6763: x_msg_data => x_msg_data,
6764: p_trqv_rec => l_trqv_rec,
6765: x_trqv_rec => lx_trqv_rec);
6766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6769: RAISE OKL_API.G_EXCEPTION_ERROR;
6770: END IF;
6763: x_msg_data => x_msg_data,
6764: p_trqv_rec => l_trqv_rec,
6765: x_trqv_rec => lx_trqv_rec);
6766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6769: RAISE OKL_API.G_EXCEPTION_ERROR;
6770: END IF;
6771:
6764: p_trqv_rec => l_trqv_rec,
6765: x_trqv_rec => lx_trqv_rec);
6766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6769: RAISE OKL_API.G_EXCEPTION_ERROR;
6770: END IF;
6771:
6772: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6765: x_trqv_rec => lx_trqv_rec);
6766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6769: RAISE OKL_API.G_EXCEPTION_ERROR;
6770: END IF;
6771:
6772: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6773: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated Request to ACCEPTED');
6787: ,p_payment_struc => l_payment_struc);
6788:
6789: IF (l_payment_struc.count = 0 ) THEN
6790:
6791: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
6792: p_msg_name => 'OKL_CS_PPD_NO_PAYMENTS');
6793: RAISE OKL_API.G_EXCEPTION_ERROR;
6794: END IF;
6795:
6789: IF (l_payment_struc.count = 0 ) THEN
6790:
6791: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
6792: p_msg_name => 'OKL_CS_PPD_NO_PAYMENTS');
6793: RAISE OKL_API.G_EXCEPTION_ERROR;
6794: END IF;
6795:
6796: --Print out the payment structure:
6797:
6837:
6838: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6839: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to apply_ppd: '|| x_return_status);
6840: END IF;
6841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6844: RAISE OKL_API.G_EXCEPTION_ERROR;
6845: END IF;
6838: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6839: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to apply_ppd: '|| x_return_status);
6840: END IF;
6841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6844: RAISE OKL_API.G_EXCEPTION_ERROR;
6845: END IF;
6846:
6839: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to apply_ppd: '|| x_return_status);
6840: END IF;
6841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6844: RAISE OKL_API.G_EXCEPTION_ERROR;
6845: END IF;
6846:
6847: --Now the Rebook process has comeback succesffuly.
6840: END IF;
6841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6844: RAISE OKL_API.G_EXCEPTION_ERROR;
6845: END IF;
6846:
6847: --Now the Rebook process has comeback succesffuly.
6848: --Update the status to "REBOOK_IN_PROCESS"
6868: x_msg_count => x_msg_count,
6869: x_msg_data => x_msg_data,
6870: p_trqv_rec => l_post_trqv_rec,
6871: x_trqv_rec => lx_trqv_rec);
6872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_ERROR;
6876: END IF;
6869: x_msg_data => x_msg_data,
6870: p_trqv_rec => l_post_trqv_rec,
6871: x_trqv_rec => lx_trqv_rec);
6872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_ERROR;
6876: END IF;
6877: END IF;
6870: p_trqv_rec => l_post_trqv_rec,
6871: x_trqv_rec => lx_trqv_rec);
6872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_ERROR;
6876: END IF;
6877: END IF;
6878:
6871: x_trqv_rec => lx_trqv_rec);
6872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_ERROR;
6876: END IF;
6877: END IF;
6878:
6879:
6882: END IF;
6883:
6884: EXCEPTION
6885:
6886: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6887: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6888: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6889: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6890: END IF;
6885:
6886: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6887: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6888: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6889: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6890: END IF;
6891:
6892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6893: l_api_name,
6888: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6889: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6890: END IF;
6891:
6892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6893: l_api_name,
6894: G_PKG_NAME,
6895: 'OKL_API.G_RET_STS_ERROR',
6896: x_msg_count,
6891:
6892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6893: l_api_name,
6894: G_PKG_NAME,
6895: 'OKL_API.G_RET_STS_ERROR',
6896: x_msg_count,
6897: x_msg_data,
6898: '_PVT');
6899: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6895: 'OKL_API.G_RET_STS_ERROR',
6896: x_msg_count,
6897: x_msg_data,
6898: '_PVT');
6899: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6900: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6901: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6902: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6903: END IF;
6898: '_PVT');
6899: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6900: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6901: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6902: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6903: END IF;
6904:
6905: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6906: l_api_name,
6901: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6902: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6903: END IF;
6904:
6905: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6906: l_api_name,
6907: G_PKG_NAME,
6908: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6909: x_msg_count,
6904:
6905: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6906: l_api_name,
6907: G_PKG_NAME,
6908: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6909: x_msg_count,
6910: x_msg_data,
6911: '_PVT');
6912: WHEN OTHERS THEN
6914: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6915: 'EXCEPTION :'||sqlerrm);
6916: END IF;
6917:
6918: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6919: l_api_name,
6920: G_PKG_NAME,
6921: 'OTHERS',
6922: x_msg_count,
6992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering invoice_bill_apply api:');
6994: END IF;
6995:
6996: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6997:
6998: --Call start_activity to create savepoint,
6999: --check compatibility and initialize message list
7000: /*
6997:
6998: --Call start_activity to create savepoint,
6999: --check compatibility and initialize message list
7000: /*
7001: x_return_status := OKL_API.START_ACTIVITY(
7002: l_api_name
7003: ,p_init_msg_list
7004: ,'_PVT'
7005: ,x_return_status);
7005: ,x_return_status);
7006:
7007: --Check if activity started successfully
7008:
7009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7006:
7007: --Check if activity started successfully
7008:
7009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: */
7007: --Check if activity started successfully
7008:
7009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: */
7015:
7008:
7009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: */
7015:
7016: OPEN c_get_k_number(p_khr_id);
7078: /*
7079: EXCEPTION
7080:
7081:
7082: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7083: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7084: l_api_name,
7085: G_PKG_NAME,
7086: 'OKL_API.G_RET_STS_ERROR',
7079: EXCEPTION
7080:
7081:
7082: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7083: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7084: l_api_name,
7085: G_PKG_NAME,
7086: 'OKL_API.G_RET_STS_ERROR',
7087: x_msg_count,
7082: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7083: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7084: l_api_name,
7085: G_PKG_NAME,
7086: 'OKL_API.G_RET_STS_ERROR',
7087: x_msg_count,
7088: x_msg_data,
7089: '_PVT');
7090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7086: 'OKL_API.G_RET_STS_ERROR',
7087: x_msg_count,
7088: x_msg_data,
7089: '_PVT');
7090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7091: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7092: l_api_name,
7093: G_PKG_NAME,
7094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7087: x_msg_count,
7088: x_msg_data,
7089: '_PVT');
7090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7091: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7092: l_api_name,
7093: G_PKG_NAME,
7094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7095: x_msg_count,
7090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7091: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7092: l_api_name,
7093: G_PKG_NAME,
7094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7095: x_msg_count,
7096: x_msg_data,
7097: '_PVT');
7098: WHEN OTHERS THEN
7095: x_msg_count,
7096: x_msg_data,
7097: '_PVT');
7098: WHEN OTHERS THEN
7099: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7100: l_api_name,
7101: G_PKG_NAME,
7102: 'OTHERS',
7103: x_msg_count,
7107: END invoice_bill_apply;
7108:
7109: PROCEDURE process_lpd(
7110: p_api_version IN NUMBER,
7111: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7112: x_return_status OUT NOCOPY VARCHAR2,
7113: x_msg_count OUT NOCOPY NUMBER,
7114: x_msg_data OUT NOCOPY VARCHAR2,
7115: p_ppd_request_id IN NUMBER)
7114: x_msg_data OUT NOCOPY VARCHAR2,
7115: p_ppd_request_id IN NUMBER)
7116: AS
7117:
7118: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7119: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_PPD';
7120: l_trqv_rec okl_trx_requests_pub.trqv_rec_type;
7121: lx_trqv_rec okl_trx_requests_pub.trqv_rec_type;
7122:
7296: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd.',
7297: 'p_ppd_request_id :'||p_ppd_request_id);
7298: END IF;
7299:
7300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7301:
7302: --Call start_activity to create savepoint, check compatibility and initialize message list
7303:
7304: x_return_status := OKL_API.START_ACTIVITY(
7300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7301:
7302: --Call start_activity to create savepoint, check compatibility and initialize message list
7303:
7304: x_return_status := OKL_API.START_ACTIVITY(
7305: l_api_name
7306: ,p_init_msg_list
7307: ,'_PVT'
7308: ,x_return_status);
7308: ,x_return_status);
7309:
7310: --Check if activity started successfully
7311:
7312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7315: RAISE OKL_API.G_EXCEPTION_ERROR;
7316: END IF;
7309:
7310: --Check if activity started successfully
7311:
7312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7315: RAISE OKL_API.G_EXCEPTION_ERROR;
7316: END IF;
7317: --Get the request details.
7310: --Check if activity started successfully
7311:
7312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7315: RAISE OKL_API.G_EXCEPTION_ERROR;
7316: END IF;
7317: --Get the request details.
7318: l_trqv_rec.id := p_ppd_request_id;
7311:
7312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7315: RAISE OKL_API.G_EXCEPTION_ERROR;
7316: END IF;
7317: --Get the request details.
7318: l_trqv_rec.id := p_ppd_request_id;
7319:
7391: END IF;
7392:
7393:
7394:
7395: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
7396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from creating loan transactions');
7398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
7399: END IF;
7397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from creating loan transactions');
7398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
7399: END IF;
7400: end if;
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7402: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7404: raise OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
7399: END IF;
7400: end if;
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7402: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7404: raise OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7399: END IF;
7400: end if;
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7402: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7404: raise OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7407:
7400: end if;
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7402: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7404: raise OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7407:
7408:
7417: x_msg_count => x_msg_count,
7418: x_msg_data => x_msg_data,
7419: p_trqv_rec => l_trqv_rec,
7420: x_trqv_rec => lx_trqv_rec);
7421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7424: RAISE OKL_API.G_EXCEPTION_ERROR;
7425: END IF;
7418: x_msg_data => x_msg_data,
7419: p_trqv_rec => l_trqv_rec,
7420: x_trqv_rec => lx_trqv_rec);
7421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7424: RAISE OKL_API.G_EXCEPTION_ERROR;
7425: END IF;
7426:
7419: p_trqv_rec => l_trqv_rec,
7420: x_trqv_rec => lx_trqv_rec);
7421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7424: RAISE OKL_API.G_EXCEPTION_ERROR;
7425: END IF;
7426:
7427: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7420: x_trqv_rec => lx_trqv_rec);
7421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7424: RAISE OKL_API.G_EXCEPTION_ERROR;
7425: END IF;
7426:
7427: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7428: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated Request to ACCEPTED');
7443: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type LP: '|| x_return_status);
7444: END IF;
7445:
7446:
7447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7450: RAISE OKL_API.G_EXCEPTION_ERROR;
7451: END IF;
7444: END IF;
7445:
7446:
7447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7450: RAISE OKL_API.G_EXCEPTION_ERROR;
7451: END IF;
7452: ELSIF l_trqv_rec.paydown_type = 'P' THEN
7445:
7446:
7447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7450: RAISE OKL_API.G_EXCEPTION_ERROR;
7451: END IF;
7452: ELSIF l_trqv_rec.paydown_type = 'P' THEN
7453: l_comments := 'Unscheduled Principal Payment';
7446:
7447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7450: RAISE OKL_API.G_EXCEPTION_ERROR;
7451: END IF;
7452: ELSIF l_trqv_rec.paydown_type = 'P' THEN
7453: l_comments := 'Unscheduled Principal Payment';
7454: OKL_STREAMS_UTIL.get_dependent_stream_type(
7461: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type PP: '|| x_return_status);
7462: END IF;
7463:
7464:
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7462: END IF;
7463:
7464:
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470:
7463:
7464:
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470:
7471: END IF;
7464:
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470:
7471: END IF;
7472:
7577: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7578: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after deleting original payments: '||x_return_status);
7579: END IF;
7580:
7581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7584: RAISE OKL_API.G_EXCEPTION_ERROR;
7585: END IF;
7578: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after deleting original payments: '||x_return_status);
7579: END IF;
7580:
7581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7584: RAISE OKL_API.G_EXCEPTION_ERROR;
7585: END IF;
7586:
7579: END IF;
7580:
7581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7584: RAISE OKL_API.G_EXCEPTION_ERROR;
7585: END IF;
7586:
7587: i := 0;
7580:
7581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7584: RAISE OKL_API.G_EXCEPTION_ERROR;
7585: END IF;
7586:
7587: i := 0;
7588: IF l_pym_tbl.COUNT > 0 THEN
7677:
7678: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after updating payments: '||x_return_status);
7680: END IF;
7681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7684: RAISE OKL_API.G_EXCEPTION_ERROR;
7685: END IF;
7678: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after updating payments: '||x_return_status);
7680: END IF;
7681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7684: RAISE OKL_API.G_EXCEPTION_ERROR;
7685: END IF;
7686:
7679: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after updating payments: '||x_return_status);
7680: END IF;
7681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7684: RAISE OKL_API.G_EXCEPTION_ERROR;
7685: END IF;
7686:
7687:
7680: END IF;
7681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7684: RAISE OKL_API.G_EXCEPTION_ERROR;
7685: END IF;
7686:
7687:
7688: -- Creating stream for Unscheduled Payment
7713: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7714: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from creating streams'|| x_return_status);
7715: END IF;
7716:
7717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7720: RAISE OKL_API.G_EXCEPTION_ERROR;
7721: END IF;
7714: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from creating streams'|| x_return_status);
7715: END IF;
7716:
7717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7720: RAISE OKL_API.G_EXCEPTION_ERROR;
7721: END IF;
7722:
7715: END IF;
7716:
7717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7720: RAISE OKL_API.G_EXCEPTION_ERROR;
7721: END IF;
7722:
7723: l_selv_rec.stm_id := lx_stmv_rec.id;
7716:
7717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7720: RAISE OKL_API.G_EXCEPTION_ERROR;
7721: END IF;
7722:
7723: l_selv_rec.stm_id := lx_stmv_rec.id;
7724:
7754: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from creating stream elements'|| x_return_status);
7755: END IF;
7756:
7757:
7758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7761: RAISE OKL_API.G_EXCEPTION_ERROR;
7762: END IF;
7755: END IF;
7756:
7757:
7758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7761: RAISE OKL_API.G_EXCEPTION_ERROR;
7762: END IF;
7763:
7756:
7757:
7758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7761: RAISE OKL_API.G_EXCEPTION_ERROR;
7762: END IF;
7763:
7764:
7757:
7758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7761: RAISE OKL_API.G_EXCEPTION_ERROR;
7762: END IF;
7763:
7764:
7765:
7773: x_msg_count => x_msg_count,
7774: x_msg_data => x_msg_data,
7775: p_trqv_rec => l_trqv_rec,
7776: x_trqv_rec => lx_trqv_rec);
7777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF; */
7774: x_msg_data => x_msg_data,
7775: p_trqv_rec => l_trqv_rec,
7776: x_trqv_rec => lx_trqv_rec);
7777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF; */
7782:
7775: p_trqv_rec => l_trqv_rec,
7776: x_trqv_rec => lx_trqv_rec);
7777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF; */
7782:
7783: --Call the WF which does the following
7776: x_trqv_rec => lx_trqv_rec);
7777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF; */
7782:
7783: --Call the WF which does the following
7784: -- 1. Create online AR Invoice.
7802: END IF;
7803:
7804: EXCEPTION
7805:
7806: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7807: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7808: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
7810: END IF;
7805:
7806: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7807: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7808: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
7810: END IF;
7811:
7812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7813: l_api_name,
7808: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
7810: END IF;
7811:
7812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7813: l_api_name,
7814: G_PKG_NAME,
7815: 'OKL_API.G_RET_STS_ERROR',
7816: x_msg_count,
7811:
7812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7813: l_api_name,
7814: G_PKG_NAME,
7815: 'OKL_API.G_RET_STS_ERROR',
7816: x_msg_count,
7817: x_msg_data,
7818: '_PVT');
7819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7815: 'OKL_API.G_RET_STS_ERROR',
7816: x_msg_count,
7817: x_msg_data,
7818: '_PVT');
7819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7820: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7821: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7822: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
7823: END IF;
7818: '_PVT');
7819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7820: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7821: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7822: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
7823: END IF;
7824:
7825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7826: l_api_name,
7821: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7822: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
7823: END IF;
7824:
7825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7826: l_api_name,
7827: G_PKG_NAME,
7828: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7829: x_msg_count,
7824:
7825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7826: l_api_name,
7827: G_PKG_NAME,
7828: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7829: x_msg_count,
7830: x_msg_data,
7831: '_PVT');
7832: WHEN OTHERS THEN
7834: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7835: 'EXCEPTION :'||sqlerrm);
7836: END IF;
7837:
7838: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7839: l_api_name,
7840: G_PKG_NAME,
7841: 'OTHERS',
7842: x_msg_count,