39: --Bug 6640050 - Start of Changes
40: CURSOR pool_status_csr(p_pol_id IN NUMBER)
41: IS
42: SELECT status_code
43: FROM okl_pools
44: WHERE id = p_pol_id;
45: --Bug 6640050 - End of Changes
46:
47: -- Cursor for getting the status of the open transaction
73: ,p_init_msg_list IN VARCHAR2
74: ,x_return_status OUT NOCOPY VARCHAR2
75: ,x_msg_count OUT NOCOPY NUMBER
76: ,x_msg_data OUT NOCOPY VARCHAR2
77: ,p_pool_status IN okl_pools.status_code%TYPE
78: ,p_pol_id IN okl_pools.id%TYPE)
79: IS
80: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status';
81: l_api_version CONSTANT NUMBER := 1.0;
74: ,x_return_status OUT NOCOPY VARCHAR2
75: ,x_msg_count OUT NOCOPY NUMBER
76: ,x_msg_data OUT NOCOPY VARCHAR2
77: ,p_pool_status IN okl_pools.status_code%TYPE
78: ,p_pol_id IN okl_pools.id%TYPE)
79: IS
80: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status';
81: l_api_version CONSTANT NUMBER := 1.0;
82: i NUMBER;
79: IS
80: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status';
81: l_api_version CONSTANT NUMBER := 1.0;
82: i NUMBER;
83: l_pol_id OKL_POOLS.ID%TYPE;
84: l_currency_code OKL_POOLS.CURRENCY_CODE%TYPE;
85: l_org_id OKL_POOLS.ORG_ID%TYPE;
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87:
80: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status';
81: l_api_version CONSTANT NUMBER := 1.0;
82: i NUMBER;
83: l_pol_id OKL_POOLS.ID%TYPE;
84: l_currency_code OKL_POOLS.CURRENCY_CODE%TYPE;
85: l_org_id OKL_POOLS.ORG_ID%TYPE;
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87:
88: lp_polv_rec polv_rec_type;
81: l_api_version CONSTANT NUMBER := 1.0;
82: i NUMBER;
83: l_pol_id OKL_POOLS.ID%TYPE;
84: l_currency_code OKL_POOLS.CURRENCY_CODE%TYPE;
85: l_org_id OKL_POOLS.ORG_ID%TYPE;
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87:
88: lp_polv_rec polv_rec_type;
89: lx_polv_rec polv_rec_type;
595:
596: l_pocv_rec pocv_rec_type := p_pocv_rec;
597: -- x_pocv_rec pocv_rec_type;
598: --Added by kthiruva on 21-Nov-2007 for Bug 6640050
599: l_status_code okl_pools.status_Code%TYPE;
600:
601: lp_polv_rec polv_rec_type;
602: lx_polv_rec polv_rec_type;
603:
1699: ----------------------------------------------------------------------------------
1700: -- Start of comments
1701: --
1702: -- Procedure Name : get_tot_receivable_amt
1703: -- Description : get stream elements amount from pool contents by okl_pools.id
1704: -- Business Rules :
1705: -- Parameters :
1706: -- Version : 1.0
1707: -- End of comments
1706: -- Version : 1.0
1707: -- End of comments
1708: ----------------------------------------------------------------------------------
1709: FUNCTION get_tot_receivable_amt(
1710: p_pol_id IN okl_pools.id%TYPE
1711:
1712: ) RETURN NUMBER
1713: IS
1714: l_amount NUMBER;
1765: ----------------------------------------------------------------------------------
1766: -- Start of comments
1767: --
1768: -- Procedure Name : get_tot_recv_amt_for_pend
1769: -- Description : get stream elements amount from pool contents by okl_pools.id
1770: -- Business Rules :
1771: -- Parameters :
1772: -- Version : 1.0
1773: -- End of comments
1772: -- Version : 1.0
1773: -- End of comments
1774: ----------------------------------------------------------------------------------
1775: FUNCTION get_tot_recv_amt_for_pend(
1776: p_pol_id IN okl_pools.id%TYPE
1777:
1778: ) RETURN NUMBER
1779: IS
1780: l_amount NUMBER;
1805: AND ele.STREAM_ELEMENT_DATE
1806: BETWEEN cnt.STREAMS_FROM_DATE AND NVL(cnt.STREAMS_TO_DATE,G_FINAL_DATE);
1807:
1808: l_allowed_status Varchar2(100);
1809: l_status_code okl_pools.status_Code%TYPE;
1810: --End - Changes for bug#6658065 by VARANGAN on 30/11/2007
1811: BEGIN
1812: -- Begin - Changes for Bug#6658065
1813: --(1) Check the pool status
1866: ,x_return_status OUT NOCOPY VARCHAR2
1867: ,x_msg_count OUT NOCOPY NUMBER
1868: ,x_msg_data OUT NOCOPY VARCHAR2
1869: ,x_value OUT NOCOPY NUMBER
1870: ,p_pol_id IN okl_pools.id%TYPE
1871:
1872: )
1873: IS
1874: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
1962: ,x_return_status OUT NOCOPY VARCHAR2
1963: ,x_msg_count OUT NOCOPY NUMBER
1964: ,x_msg_data OUT NOCOPY VARCHAR2
1965: ,x_value OUT NOCOPY NUMBER
1966: ,p_pol_id IN okl_pools.id%TYPE
1967:
1968: )
1969: IS
1970: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
2061: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
2062: l_api_version CONSTANT NUMBER := 1.0;
2063: i NUMBER;
2064: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2065: l_pol_id okl_pools.id%TYPE;
2066:
2067: CURSOR c_khr(p_khr_id okc_k_headers_b.id%TYPE) IS
2068: SELECT ph.id
2069: FROM okl_pools ph
2065: l_pol_id okl_pools.id%TYPE;
2066:
2067: CURSOR c_khr(p_khr_id okc_k_headers_b.id%TYPE) IS
2068: SELECT ph.id
2069: FROM okl_pools ph
2070: WHERE ph.khr_id = p_khr_id
2071: ;
2072:
2073: BEGIN
2144: ----------------------------------------------------------------------------------
2145: -- Start of comments
2146: --
2147: -- Procedure Name : get_tot_principal_amt
2148: -- Description : get asset principal amount from pool contents by okl_pools.id
2149: -- Business Rules :
2150: -- Parameters :
2151:
2152: -- Version : 1.0
2152: -- Version : 1.0
2153: -- End of comments
2154: ----------------------------------------------------------------------------------
2155: FUNCTION get_tot_principal_amt(
2156: p_pol_id IN okl_pools.id%TYPE
2157: ) RETURN NUMBER
2158: IS
2159: l_amount NUMBER := 0;
2160: l_tot_amount NUMBER := 0;
2309: ,x_return_status OUT NOCOPY VARCHAR2
2310: ,x_msg_count OUT NOCOPY NUMBER
2311: ,x_msg_data OUT NOCOPY VARCHAR2
2312: ,x_value OUT NOCOPY NUMBER
2313: ,p_pol_id IN okl_pools.id%TYPE
2314: )
2315: IS
2316: l_api_name CONSTANT VARCHAR2(30) := 'recal_tot_princ_amt_pvt';
2317: l_api_version CONSTANT NUMBER := 1.0;
2435: l_api_name CONSTANT VARCHAR2(30) := 'recal_tot_principal_amt_pvt';
2436: l_api_version CONSTANT NUMBER := 1.0;
2437: i NUMBER;
2438: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2439: l_pol_id okl_pools.id%TYPE;
2440:
2441: lp_polv_rec polv_rec_type;
2442: lx_polv_rec polv_rec_type;
2443:
2442: lx_polv_rec polv_rec_type;
2443:
2444: CURSOR c_khr(p_khr_id okc_k_headers_b.id%TYPE) IS
2445: SELECT ph.id
2446: FROM okl_pools ph
2447: WHERE ph.khr_id = p_khr_id
2448: ;
2449:
2450: BEGIN
3264: CURSOR l_okl_reject_le_csr(p_khr_id IN NUMBER)
3265: IS
3266: SELECT '1'
3267: FROM okl_k_headers khr,
3268: okl_pools pol
3269: WHERE pol.legal_entity_id <> khr.legal_entity_id
3270: AND pol.id =p_pol_id
3271: AND khr.id = p_khr_id;
3272:
3293: -- Cursor to get the Legal Entity Id
3294: CURSOR l_okl_agrle_csr(p_pol_id IN NUMBER)
3295: IS
3296: SELECT legal_entity_id
3297: FROM okl_pools
3298: WHERE id = p_pol_id;
3299:
3300:
3301: /* sosharma end changes*/
3308: l_pocv_rec pocv_rec_type;
3309: x_pocv_rec pocv_rec_type;
3310: --Added by kthiruva on 21-Nov-2007 for Bug 6640050
3311: l_pocv_tbl pocv_tbl_type;
3312: l_status_code okl_pools.status_code%TYPE;
3313: l_poc_count NUMBER := 0;
3314:
3315: -- l_discarded BOOLEAN := FALSE;
3316: l_discard_count NUMBER := 0;
3948: AND ele.STREAM_ELEMENT_DATE
3949: BETWEEN cnt.STREAMS_FROM_DATE AND NVL(cnt.STREAMS_TO_DATE,G_FINAL_DATE);
3950:
3951: l_allowed_status Varchar2(100);
3952: l_status_code okl_pools.status_Code%TYPE;
3953: --End - Changes for Bug 6640050 by varangan on 29-Nov-2007
3954:
3955: BEGIN
3956: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
4109: IS
4110: -- to remove all the rent strms if the contract turns to EVERGREEN--
4111: SELECT poc.id
4112: FROM okl_pool_contents poc,
4113: okl_pools pol,
4114: okl_strm_type_b sty,
4115: okc_k_headers_b CHR
4116: WHERE pol.id = p_pol_id
4117: AND pol.id = poc.pol_id
4294: IS
4295: -- to remove all the rent strms if the contract turns to EVERGREEN--
4296: SELECT poc.id
4297: FROM okl_pool_contents poc,
4298: okl_pools pol,
4299: okl_strm_type_b sty,
4300: okc_k_headers_b CHR
4301: WHERE pol.id = p_pol_id
4302: AND pol.id = poc.pol_id
5083: ,p_init_msg_list IN VARCHAR2
5084: ,x_return_status OUT NOCOPY VARCHAR2
5085: ,x_msg_count OUT NOCOPY NUMBER
5086: ,x_msg_data OUT NOCOPY VARCHAR2
5087: ,p_pol_id IN okl_pools.id%TYPE)
5088: IS
5089:
5090:
5091: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status_active';
5184: ,p_init_msg_list IN VARCHAR2
5185: ,x_return_status OUT NOCOPY VARCHAR2
5186: ,x_msg_count OUT NOCOPY NUMBER
5187: ,x_msg_data OUT NOCOPY VARCHAR2
5188: ,p_pol_id IN okl_pools.id%TYPE)
5189: IS
5190: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_status_expired';
5191: l_api_version CONSTANT NUMBER := 1.0;
5192:
5432:
5433: CURSOR l_okl_pol_status_csr(p_pol_id IN NUMBER)
5434: IS
5435: SELECT status_code
5436: FROM okl_pools
5437: WHERE id = p_pol_id;
5438:
5439: -- Cursor For OKL_CURRENCIES;
5440: CURSOR okl_fnd_curr_csr (p_code IN OKL_POOLS.currency_code%TYPE) IS
5436: FROM okl_pools
5437: WHERE id = p_pol_id;
5438:
5439: -- Cursor For OKL_CURRENCIES;
5440: CURSOR okl_fnd_curr_csr (p_code IN OKL_POOLS.currency_code%TYPE) IS
5441: SELECT '1'
5442: FROM FND_CURRENCIES_VL
5443: WHERE FND_CURRENCIES_VL.currency_code = currency_code;
5444: