496: WHERE cle_id = p_fee_line_id;
497:
498: l_api_version CONSTANT NUMBER := 1;
499: l_api_name CONSTANT VARCHAR2(30) := 'okl_investor_fee_disb';
500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
501:
502: l_pay_to_id NUMBER;
503: l_pay_site_id NUMBER;
504: l_payment_term_id okl_trx_ap_invoices_v.ippt_id%TYPE;
530:
531: ------------------------------------------------------------
532: -- Start Processing
533: ------------------------------------------------------------
534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
535:
536: l_return_status := OKL_API.START_ACTIVITY(
537: p_api_name => l_api_name,
538: p_pkg_name => g_pkg_name,
532: -- Start Processing
533: ------------------------------------------------------------
534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
535:
536: l_return_status := OKL_API.START_ACTIVITY(
537: p_api_name => l_api_name,
538: p_pkg_name => g_pkg_name,
539: p_init_msg_list => p_init_msg_list,
540: l_api_version => l_api_version,
541: p_api_version => p_api_version,
542: p_api_type => '_PVT',
543: x_return_status => l_return_status);
544:
545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
548: RAISE OKL_API.G_EXCEPTION_ERROR;
549: END IF;
542: p_api_type => '_PVT',
543: x_return_status => l_return_status);
544:
545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
548: RAISE OKL_API.G_EXCEPTION_ERROR;
549: END IF;
550:
543: x_return_status => l_return_status);
544:
545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
548: RAISE OKL_API.G_EXCEPTION_ERROR;
549: END IF;
550:
551: -- Get Investor Agreement details
544:
545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
548: RAISE OKL_API.G_EXCEPTION_ERROR;
549: END IF;
550:
551: -- Get Investor Agreement details
552: OPEN ia_info_csr;
688: ,p_tplv_tbl => i_tplv_tbl
689: ,x_tapv_rec => r_tapv_rec
690: ,x_tplv_tbl => r_tplv_tbl);
691:
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
689: ,x_tapv_rec => r_tapv_rec
690: ,x_tplv_tbl => r_tplv_tbl);
691:
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697:
690: ,x_tplv_tbl => r_tplv_tbl);
691:
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697:
698: END IF;
691:
692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
695: RAISE OKL_API.G_EXCEPTION_ERROR;
696: END IF;
697:
698: END IF;
699: END LOOP;
703: -- End Processing
704: ------------------------------------------------------------
705: x_return_status := l_return_status;
706:
707: Okl_Api.END_ACTIVITY (
708: x_msg_count => x_msg_count,
709: x_msg_data => x_msg_data);
710:
711: EXCEPTION
712: ------------------------------------------------------------
713: -- Exception handling
714: ------------------------------------------------------------
715:
716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
717: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
718: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
719: p_api_name => l_api_name,
720: p_pkg_name => G_PKG_NAME,
714: ------------------------------------------------------------
715:
716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
717: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
718: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
719: p_api_name => l_api_name,
720: p_pkg_name => G_PKG_NAME,
721: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
722: x_msg_count => x_msg_count,
717: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
718: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
719: p_api_name => l_api_name,
720: p_pkg_name => G_PKG_NAME,
721: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
722: x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data,
724: p_api_type => '_PVT');
725:
722: x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data,
724: p_api_type => '_PVT');
725:
726: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
727: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
728: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
729: p_api_name => l_api_name,
730: p_pkg_name => G_PKG_NAME,
724: p_api_type => '_PVT');
725:
726: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
727: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
728: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
729: p_api_name => l_api_name,
730: p_pkg_name => G_PKG_NAME,
731: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
732: x_msg_count => x_msg_count,
727: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
728: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
729: p_api_name => l_api_name,
730: p_pkg_name => G_PKG_NAME,
731: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
732: x_msg_count => x_msg_count,
733: x_msg_data => x_msg_data,
734: p_api_type => '_PVT');
735:
734: p_api_type => '_PVT');
735:
736: WHEN OTHERS THEN
737: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 3: '||SQLERRM);
738: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
739: p_api_name => l_api_name,
740: p_pkg_name => G_PKG_NAME,
741: p_exc_name => 'OTHERS',
742: x_msg_count => x_msg_count,
759: -- Declare Variables required by APIs
760: ------------------------------------------------------------
761: l_api_version CONSTANT NUMBER := 1;
762: l_api_name CONSTANT VARCHAR2(30) := 'OKL_INVESTOR_DISBURSEMENT';
763: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
764:
765: -----------------------------------------------------------------
766: -- To pick up Investor Invoice Stream elements
767: -----------------------------------------------------------------
1363: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '=====*** START PROCEDURE OKL_INVESTOR_DISBURSEMENT ***=====');
1364:
1365: --dbms_output.PUT_LINE ('=====*** START PROCEDURE OKL_INVESTOR_DISBURSEMENT ***=====');
1366:
1367: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1368:
1369: l_return_status := OKL_API.START_ACTIVITY(
1370: p_api_name => l_api_name,
1371: p_pkg_name => g_pkg_name,
1365: --dbms_output.PUT_LINE ('=====*** START PROCEDURE OKL_INVESTOR_DISBURSEMENT ***=====');
1366:
1367: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1368:
1369: l_return_status := OKL_API.START_ACTIVITY(
1370: p_api_name => l_api_name,
1371: p_pkg_name => g_pkg_name,
1372: p_init_msg_list => p_init_msg_list,
1373: l_api_version => l_api_version,
1374: p_api_version => p_api_version,
1375: p_api_type => '_PVT',
1376: x_return_status => l_return_status);
1377:
1378: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1375: p_api_type => '_PVT',
1376: x_return_status => l_return_status);
1377:
1378: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1383:
1376: x_return_status => l_return_status);
1377:
1378: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1383:
1384: ------------------------------------
1377:
1378: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1383:
1384: ------------------------------------
1385: -- Initialize Variables
1880: ,x_tapv_rec => r_tapv_rec
1881: ,x_tplv_tbl => r_tplv_tbl);
1882:
1883: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ### 26 ### ');
1884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1885: l_error_status := 'E';
1886: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions. ';
1887: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
1888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1885: l_error_status := 'E';
1886: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions. ';
1887: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
1888: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1889: l_error_status := 'E';
1890: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions ';
1891: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
1892: ELSIF (x_return_status = 'S') THEN
2088: ,x_tapv_rec => r_tapv_rec
2089: ,x_tplv_tbl => r_tplv_tbl);
2090:
2091: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ### 32 ### ');
2092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2093: l_error_status := 'E';
2094: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions. ';
2095: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2093: l_error_status := 'E';
2094: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions. ';
2095: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
2096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: l_error_status := 'E';
2098: l_error_message := l_error_message||'Error creating Investor Disbursement Transactions ';
2099: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Error creating Investor Disbursement Transactions.');
2100: ELSIF (x_return_status = 'S') THEN
2395: x_msg_data => x_msg_data,
2396: p_investor_agreement => p_investor_agreement,
2397: p_to_date => p_to_date);
2398:
2399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2396: p_investor_agreement => p_investor_agreement,
2397: p_to_date => p_to_date);
2398:
2399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2404: -- gboomina added for Bug 6788005 - End
2397: p_to_date => p_to_date);
2398:
2399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2404: -- gboomina added for Bug 6788005 - End
2405:
2398:
2399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2404: -- gboomina added for Bug 6788005 - End
2405:
2406: ------------------------------------------------------------
2406: ------------------------------------------------------------
2407: -- End processing
2408: ------------------------------------------------------------
2409:
2410: Okl_Api.END_ACTIVITY (
2411: x_msg_count => x_msg_count,
2412: x_msg_data => x_msg_data);
2413:
2414:
2420: ------------------------------------------------------------
2421: -- Exception handling
2422: ------------------------------------------------------------
2423:
2424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2425: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
2426: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2427: p_api_name => l_api_name,
2428: p_pkg_name => G_PKG_NAME,
2422: ------------------------------------------------------------
2423:
2424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2425: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
2426: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2427: p_api_name => l_api_name,
2428: p_pkg_name => G_PKG_NAME,
2429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2430: x_msg_count => x_msg_count,
2425: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 1: '||SQLERRM);
2426: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2427: p_api_name => l_api_name,
2428: p_pkg_name => G_PKG_NAME,
2429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2430: x_msg_count => x_msg_count,
2431: x_msg_data => x_msg_data,
2432: p_api_type => '_PVT');
2433:
2430: x_msg_count => x_msg_count,
2431: x_msg_data => x_msg_data,
2432: p_api_type => '_PVT');
2433:
2434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2435: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
2436: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2437: p_api_name => l_api_name,
2438: p_pkg_name => G_PKG_NAME,
2432: p_api_type => '_PVT');
2433:
2434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2435: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
2436: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2437: p_api_name => l_api_name,
2438: p_pkg_name => G_PKG_NAME,
2439: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2440: x_msg_count => x_msg_count,
2435: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 2: '||SQLERRM);
2436: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2437: p_api_name => l_api_name,
2438: p_pkg_name => G_PKG_NAME,
2439: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2440: x_msg_count => x_msg_count,
2441: x_msg_data => x_msg_data,
2442: p_api_type => '_PVT');
2443:
2442: p_api_type => '_PVT');
2443:
2444: WHEN OTHERS THEN
2445: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' ERROR 3: '||SQLERRM);
2446: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
2447: p_api_name => l_api_name,
2448: p_pkg_name => G_PKG_NAME,
2449: p_exc_name => 'OTHERS',
2450: x_msg_count => x_msg_count,