[Home] [Help]
53: +-----------------------------------------------------------------------*/
54:
55: CURSOR get_next_trx_val_csr IS
56: SELECT okl_sif_seq.nextval
57: FROM dual;
58:
59: /*-----------------------------------------------------------------------+
60: | Local Variable Declarations and initializations |
61: +-----------------------------------------------------------------------*/
380: AND stm.source_id = p_ia_id ;
381:
382: CURSOR get_next_trx_val_csr IS
383: SELECT okl_sif_seq.nextval
384: FROM dual;
385:
386: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
387: l_invdisbas_sty_id NUMBER;
388: l_rbkadj_sty_id NUMBER;
706: AND stm.source_id = p_ia_id ;
707:
708: CURSOR get_next_trx_val_csr IS
709: SELECT okl_sif_seq.nextval
710: FROM dual;
711:
712: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
713: l_invdisbas_sty_id NUMBER;
714: l_intdisbas_sty_id NUMBER;
1086: WHERE STM.khr_id = c_khr_id
1087: AND STM.kle_id = c_kle_id
1088: AND STM.say_code = 'CURR'
1089: AND STM.STY_ID = STY.ID
1090: AND stream_type_subclass = 'RESIDUAL';
1091:
1092: -- 04 Nov 2004 PAGARG Bug# 3954752
1093: -- get the quoted assets
1094: CURSOR get_qte_assets_csr(c_quote_id NUMBER) IS
1240: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: SELECT sysdate INTO l_sysdate FROM dual;
1245:
1246: -- Check which parameters have been passed to determine
1247: -- the origin of the call
1248: -- rmunjulu 24-Nov-04 Changed OR to AND in the below IF
1310: -- rmunjulu 24-Nov-04 Changed OR to AND in the below ELSIF
1311: ELSIF ((p_kle_id IS NOT NULL) AND (p_kle_id <> OKL_API.G_MISS_NUM)) AND
1312: ((p_sale_price IS NOT NULL) AND (p_sale_price <> OKL_API.G_MISS_NUM)) THEN
1313:
1314: l_disb_type := 'RESIDUAL';
1315:
1316: ELSE
1317:
1318: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1360: -- rmunjulu EDAT 24-Nov-04
1361: l_quote_accpt_date := l_acceptance_date;
1362: l_quote_eff_date := l_effective_from_date;
1363:
1364: ELSIF l_disb_type = 'RESIDUAL' THEN
1365: OPEN get_rv_khr_id_csr(p_kle_id);
1366: FETCH get_rv_khr_id_csr INTO l_khr_id;
1367: IF get_rv_khr_id_csr%notfound THEN
1368: CLOSE get_rv_khr_id_csr;
1425: RAISE OKL_API.G_EXCEPTION_ERROR;
1426: END IF;
1427:
1428: -- rmunjulu 3910833
1429: -- get the investor agreement for this contract's RENT or RESIDUAL streams
1430: IF l_inv_agmt_chr_id_tbl.COUNT > 0 THEN
1431:
1432: l_ia_id := l_inv_agmt_chr_id_tbl(l_inv_agmt_chr_id_tbl.FIRST).khr_id;
1433:
1602: -- Bug# 7009075 - Moved - End
1603:
1604: IF l_is_securitized = OKC_API.G_TRUE THEN -- this contract is securitized.
1605:
1606: IF l_disb_type = 'RESIDUAL' THEN
1607:
1608: -- Disburse Investor Residual Stream
1609: disburse_investor_rv( p_api_version => p_api_version
1610: ,p_init_msg_list => p_init_msg_list
1604: IF l_is_securitized = OKC_API.G_TRUE THEN -- this contract is securitized.
1605:
1606: IF l_disb_type = 'RESIDUAL' THEN
1607:
1608: -- Disburse Investor Residual Stream
1609: disburse_investor_rv( p_api_version => p_api_version
1610: ,p_init_msg_list => p_init_msg_list
1611: ,x_return_status => l_return_status
1612: ,x_msg_count => x_msg_count
1623: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1624: RAISE OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1627: -- Historize Residual Value Stream
1628: -- set the tbl type for streams pub
1629: l_loop_counter := 1;
1630:
1631: FOR rv_streams_rec IN get_rv_streams_csr(p_khr_id, p_kle_id) LOOP
1742:
1743: END IF;
1744:
1745: --mdokal Bug #3247596
1746: IF l_disb_type = 'RESIDUAL' OR l_asset_tbl.COUNT > 0 THEN
1747:
1748: -- Create Pool Transaction Record
1749: create_pool_transaction(
1750: p_api_version => p_api_version
1951: +-----------------------------------------------------------------------*/
1952:
1953: CURSOR get_next_trx_val_csr IS
1954: SELECT okl_sif_seq.nextval
1955: FROM dual;
1956:
1957: /*-----------------------------------------------------------------------+
1958: | Local Variable Declarations and initializations |
1959: +-----------------------------------------------------------------------*/
2286: +-----------------------------------------------------------------------*/
2287:
2288: CURSOR get_next_trx_val_csr IS
2289: SELECT okl_sif_seq.nextval
2290: FROM dual;
2291:
2292: /*-----------------------------------------------------------------------+
2293: | Local Variable Declarations and initializations |
2294: +-----------------------------------------------------------------------*/
2579: /*========================================================================
2580: | PUBLIC PROCEDURE DISBURSE_INVESTOR_RV
2581: |
2582: | DESCRIPTION
2583: | Processes invester disbursement for residual value.
2584: |
2585: | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
2586: | Called from PROCESS_SECURITIZED_STREAMS
2587: |
2631:
2632:
2633: CURSOR get_next_trx_val_csr IS
2634: SELECT okl_sif_seq.nextval
2635: FROM dual;
2636:
2637: /*-----------------------------------------------------------------------+
2638: | Local Variable Declarations and initializations |
2639: +-----------------------------------------------------------------------*/
2641: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
2642:
2643: l_formula_amount NUMBER;
2644: l_formula_name CONSTANT VARCHAR2(40) := 'INVESTOR_RV_DISBURSEMENT';
2645: l_rent_sty CONSTANT VARCHAR2(30) := 'INVESTOR_RESIDUAL_PAY';-- SMODUGA 15-Oct-04 Bug 3925469
2646:
2647: l_disbursement_amount NUMBER;
2648:
2649: l_stmv_rec Okl_Stm_Pvt.stmv_rec_type;
2877: | p_asset_tbl IN Contains a list of assets for pool transactions
2878: | p_transaction_reason IN Reason required for creating pool transaction
2879: | p_kle_id IN Asset for pool transaction
2880: | p_khr_id IN Contract for pool transaction
2881: | p_disb_type IN Identifies the subclass, RESIDUAL or RENT
2882: |
2883: | KNOWN ISSUES
2884: |
2885: | NOTES
2923: ,'OKL_AM_SECURITIZATION_PVT.create_pool_transaction'
2924: ,'Begin (+)');
2925: END IF;
2926:
2927: IF p_disb_type = 'RESIDUAL' THEN -- RV pool transaction
2928:
2929: l_asset_table(1).p_khr_id := p_khr_id;
2930: l_asset_table(1).p_kle_id := p_kle_id;
2931: ELSE
2978: END IF;*/-- end of commenting for bug 6964174
2979: --end: | 05-29-08 cklee -- fixed bug: 7017824(R12)/OKL.H: bug#6964174 |
2980:
2981: -- rmunjulu 4398936 removed the following else and added elseif
2982: --ELSE -- handle partial termination transactions and residual
2983: -- transactions by asset
2984:
2985: -- rmunjulu 4398936 Added this elseif
2986: ELSIF p_transaction_reason =