[Home] [Help]
1827: -- Parameters : out yield pl/sql table of recors
1828: -- Version :
1829: -- End of Commnets
1830: -------------------------------------------------------------------------------------------------
1831: FUNCTION yield_request(x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type)
1832: RETURN VARCHAR2 IS
1833: l_prog_name VARCHAR2(100) := 'YIELD_REQUEST';
1834: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
1835: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
1831: FUNCTION yield_request(x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type)
1832: RETURN VARCHAR2 IS
1833: l_prog_name VARCHAR2(100) := 'YIELD_REQUEST';
1834: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
1835: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
1836: BEGIN
1837: -- Pre tax IRR with subsidy
1838: l_csm_yields_tbl(1).yield_name := 'PTIRR';
1839: l_csm_yields_tbl(1).method := 'Internal rate-of-return';
2314: -- Version :
2315: -- End of Commnets
2316: -------------------------------------------------------------------------------------------------
2317: FUNCTION append_perd_exp_tbl(p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
2318: p_csm_perd_exp_tbl IN OUT NOCOPY OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type)
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2322: mx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2316: -------------------------------------------------------------------------------------------------
2317: FUNCTION append_perd_exp_tbl(p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
2318: p_csm_perd_exp_tbl IN OUT NOCOPY OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type)
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2322: mx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2323: lx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2324: i NUMBER := 0;
2317: FUNCTION append_perd_exp_tbl(p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
2318: p_csm_perd_exp_tbl IN OUT NOCOPY OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type)
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2322: mx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2323: lx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2324: i NUMBER := 0;
2325: m NUMBER := 0;
2318: p_csm_perd_exp_tbl IN OUT NOCOPY OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type)
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2322: mx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2323: lx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2324: i NUMBER := 0;
2325: m NUMBER := 0;
2326: n NUMBER := 0;
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2322: mx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2323: lx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2324: i NUMBER := 0;
2325: m NUMBER := 0;
2326: n NUMBER := 0;
2327: ld_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
2388: l_csm_perd_exp_tbl(j).level_index_number := 0;
2389: l_csm_perd_exp_tbl(j).number_of_periods := 1;
2390: l_csm_perd_exp_tbl(j).lock_level_step := NULL;
2391: -- Start modification bug#3145540,3145597
2392: l_csm_perd_exp_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
2393: -- End modification bug#3145540,3145597
2394: l_csm_perd_exp_tbl(j).query_level_yn := NULL;
2395: l_csm_perd_exp_tbl(j).structure := NULL;
2396: l_csm_perd_exp_tbl(j).amount := 0;
9561: x_msg_count OUT NOCOPY NUMBER,
9562: x_msg_data OUT NOCOPY VARCHAR2,
9563: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
9564: p_deal_type IN VARCHAR2,
9565: p_stream_types_tbl IN okl_create_streams_pub.csm_stream_types_tbl_type,
9566: x_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
9567: l_api_name VARCHAR2(256) := 'CHECK_FOR_MD_STRMS';
9568: i NUMBER;
9569: styid NUMBER;
9562: x_msg_data OUT NOCOPY VARCHAR2,
9563: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
9564: p_deal_type IN VARCHAR2,
9565: p_stream_types_tbl IN okl_create_streams_pub.csm_stream_types_tbl_type,
9566: x_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
9567: l_api_name VARCHAR2(256) := 'CHECK_FOR_MD_STRMS';
9568: i NUMBER;
9569: styid NUMBER;
9570: l_return_status VARCHAR2(1);
10142: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10143: x_msg_count OUT NOCOPY NUMBER,
10144: x_msg_data OUT NOCOPY VARCHAR2,
10145: x_return_status OUT NOCOPY VARCHAR2,
10146: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
10147: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10148: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10149: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10150:
10143: x_msg_count OUT NOCOPY NUMBER,
10144: x_msg_data OUT NOCOPY VARCHAR2,
10145: x_return_status OUT NOCOPY VARCHAR2,
10146: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
10147: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10148: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10149: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10150:
10151: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SECURITY_DEPOSIT';
10144: x_msg_data OUT NOCOPY VARCHAR2,
10145: x_return_status OUT NOCOPY VARCHAR2,
10146: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
10147: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10148: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10149: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10150:
10151: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SECURITY_DEPOSIT';
10152: l_api_version CONSTANT NUMBER := 1;
10145: x_return_status OUT NOCOPY VARCHAR2,
10146: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
10147: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10148: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10149: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10150:
10151: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SECURITY_DEPOSIT';
10152: l_api_version CONSTANT NUMBER := 1;
10153:
10306: --end
10307: l := l + 1;
10308: px_csm_one_off_fee_tbl(l).description := l_strm_name;
10309: px_csm_one_off_fee_tbl(l).fee_type := 'SECDEPOSIT';
10310: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10311: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec1.id;
10312:
10313: --sechawla 15-jul-09 PRB ESG enhancements : assign orig_contract_line_id
10314: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
10416: x_return_status OUT NOCOPY VARCHAR2,
10417: x_msg_count OUT NOCOPY NUMBER,
10418: x_msg_data OUT NOCOPY VARCHAR2,
10419: p_chr_id IN NUMBER,
10420: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type)
10421:
10422: AS
10423: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SUBSIDIZED_LINES';
10424: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type := px_csm_one_off_fee_tbl;
10420: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type)
10421:
10422: AS
10423: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SUBSIDIZED_LINES';
10424: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type := px_csm_one_off_fee_tbl;
10425: i BINARY_INTEGER := 0;
10426: lv_acc_mtd_code okl_subsidies_b.accounting_method_code%TYPE := NULL;
10427: lv_strm_desc VARCHAR2(200);
10428: ln_sub_id okc_k_lines_b.id%TYPE := NULL;
10660: p_token1_value => 'Subsidy Records');
10661: x_return_status := OKL_API.G_RET_STS_ERROR;
10662: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10663: END IF;
10664: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10665: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10666: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
10667:
10668: --sechawla 15-jul-09 PRB ESG enhancements : assign orig_contract_line_id
10818: p_token1_value => 'Subsidy Records');
10819: x_return_status := OKL_API.G_RET_STS_ERROR;
10820: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10821: END IF;
10822: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10823: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10824: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
10825:
10826: --sechawla 15-jul-09 PRB ESG enhancements : assign orig_contract_line_id
10958: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10959: x_msg_count OUT NOCOPY NUMBER,
10960: x_msg_data OUT NOCOPY VARCHAR2,
10961: x_return_status OUT NOCOPY VARCHAR2,
10962: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10963: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10964: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10965:
10966: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_FEE_LINES';
10959: x_msg_count OUT NOCOPY NUMBER,
10960: x_msg_data OUT NOCOPY VARCHAR2,
10961: x_return_status OUT NOCOPY VARCHAR2,
10962: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10963: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10964: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10965:
10966: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_FEE_LINES';
10967: l_api_version CONSTANT NUMBER := 1;
10960: x_msg_data OUT NOCOPY VARCHAR2,
10961: x_return_status OUT NOCOPY VARCHAR2,
10962: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10963: px_csm_periodic_expenses_tbl IN OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
10964: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10965:
10966: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_FEE_LINES';
10967: l_api_version CONSTANT NUMBER := 1;
10968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
11001: --INDEX BY BINARY_INTEGER;
11002: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
11003:
11004:
11005: px_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
11006:
11007: /* ER# 5150038 */
11008: /* This cursor is used to fetch the linked asset lines when fees are associated to assets */
11009: CURSOR l_linked_asset_line_csr (p_chr_d NUMBER,
11434: --get the original contract line ID from party payment details, for passthru fee of type expense
11435: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := r_pass.orig_contract_line_id;
11436: --end if;
11437:
11438: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11439: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11440: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11441: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11442: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11435: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := r_pass.orig_contract_line_id;
11436: --end if;
11437:
11438: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11439: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11440: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11441: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11442: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11443: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11439: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11440: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11441: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11442: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11443: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11444: END IF;
11445:
11446: l_prev_pay_start_date := l_pay_start_date;
11447: l_pay_start_date := ADD_MONTHS(l_pay_start_date, l_months_factor);
11472: --get the original contract line ID from party payment details, for passthru fee of type expense
11473: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := r_pass.orig_contract_line_id ;
11474: --end if;
11475:
11476: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11477: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11478: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11479: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11480: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11473: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := r_pass.orig_contract_line_id ;
11474: --end if;
11475:
11476: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11477: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11478: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11479: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11480: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11481: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11477: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11478: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11479: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11480: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11481: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11482: END IF;
11483: END IF;
11484: END LOOP;
11485: --end rgooty for bug 8399461
11519: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11520: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11521: --end if;
11522:
11523: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11524: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11525: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11526: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11527: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11520: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11521: --end if;
11522:
11523: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11524: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11525: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11526: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11527: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11528:
11534: -- Added by kthiruva on 29-Dec-2005.
11535: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
11536: -- Bug 4915938 - Start of Changes
11537: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11538: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11539: ELSE
11540: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11541: END IF;
11542: -- Bug 4915938 - End of Changes
11536: -- Bug 4915938 - Start of Changes
11537: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11538: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11539: ELSE
11540: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11541: END IF;
11542: -- Bug 4915938 - End of Changes
11543:
11544: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11552: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11553: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
11554: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
11555: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
11556: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11557: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
11558:
11559: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11560: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11560: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11561: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11562: --end if;
11563:
11564: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11565: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11566: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11567:
11568: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
11568: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
11569: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
11570: END IF;
11571: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11572: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11573: ELSE
11574: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11575: END IF;
11576: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11570: END IF;
11571: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11572: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11573: ELSE
11574: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11575: END IF;
11576: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11577: --11-Sep-09 sechawla 8798556
11578: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11592: --Added by rgooty for bug 8399461
11593: px_csm_periodic_expenses_tbl(k).amount := l_linked_asset_line_rec.amount;
11594: --end rgooty
11595: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
11596: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11597: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11598: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
11599:
11600: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11593: px_csm_periodic_expenses_tbl(k).amount := l_linked_asset_line_rec.amount;
11594: --end rgooty
11595: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
11596: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11597: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11598: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
11599:
11600: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11601: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11601: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11602: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11603: --end if;
11604: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
11605: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11606: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11607: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11608:
11609: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
11640: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11641: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
11642: --end if;
11643:
11644: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11645: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11646: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11647: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11648: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11641: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
11642: --end if;
11643:
11644: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11645: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11646: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11647: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11648: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11649:
11655: -- Added by kthiruva on 29-Dec-2005.
11656: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
11657: -- Bug 4915938 - Start of Changes
11658: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11659: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11660: ELSE
11661: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11662: END IF;
11663: -- Bug 4915938 - End of Changes
11657: -- Bug 4915938 - Start of Changes
11658: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11659: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11660: ELSE
11661: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11662: END IF;
11663: -- Bug 4915938 - End of Changes
11664:
11665: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11673: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11674: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
11675: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
11676: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
11677: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11678: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
11679:
11680: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11681: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11681: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11682: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
11683: --end if;
11684:
11685: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11686: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11687: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11688:
11689: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
11689: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
11690: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
11691: END IF;
11692: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11693: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11694: ELSE
11695: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11696: END IF;
11697: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11691: END IF;
11692: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
11693: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11694: ELSE
11695: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11696: END IF;
11697: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11698: --11-Sep-09 sechawla 8798556
11699: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11713: --Added by rgooty for bug 8399461
11714: px_csm_periodic_expenses_tbl(k).amount := l_lne_rec.amount;
11715: --end rgooty
11716: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
11717: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11718: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11719: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
11720:
11721: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11714: px_csm_periodic_expenses_tbl(k).amount := l_lne_rec.amount;
11715: --end rgooty
11716: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
11717: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11718: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11719: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
11720:
11721: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11722: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11723: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
11724: --end if;
11725:
11726: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
11727: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11728: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11729: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11730:
11731: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
11787: If ( nvl(l_lne_rec.initial_direct_cost,0) > 0.0 ) Then
11788: l := l + 1;
11789: px_csm_one_off_fee_tbl(l).description := l_fee_strm_type_rec.strm_name;
11790: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
11791: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11792: px_csm_one_off_fee_tbl(l).amount := l_lne_rec.initial_direct_cost * l_ratio;
11793: px_csm_one_off_fee_tbl(l).date_paid := l_linked_asset_line_rec.start_date;
11794: px_csm_one_off_fee_tbl(l).kle_fee_id := l_linked_asset_line_rec.id; -- Assign linked fee asset line id
11795:
11798: px_csm_one_off_fee_tbl(l).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11799: --end if;
11800:
11801: -- gboomina BUG#4508077 IDC changes start
11802: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
11803: -- gboomina BUG#4508077 IDC changes end
11804: End If;
11805: --Added by kthiruva on 15-Feb-2006
11806: -- Streams for the fee need to be retrieved if Pricing Name is setup for the same
11878: IF NVL(l_lne_rec.amount,-1) <> NVL(l_lne_rec.initial_direct_cost,-1) THEN
11879: -- sjalasut, bug 4872258. assumption is now -1 instead of zero. END
11880: k := k + 1;
11881: px_csm_periodic_expenses_tbl(k).level_index_number := 1;
11882: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11883: px_csm_periodic_expenses_tbl(k).description := l_fee_strm_type_rec.strm_name;
11884: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11885: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION2,'0'));
11886: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION1, l_hdr_rec.term));
11886: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION1, l_hdr_rec.term));
11887: px_csm_periodic_expenses_tbl(k).amount := px_csm_periodic_expenses_tbl(k).amount - (NVL(l_lne_rec.initial_direct_cost,0)/px_csm_periodic_expenses_tbl(k).number_of_periods);
11888: px_csm_periodic_expenses_tbl(k).amount := px_csm_periodic_expenses_tbl(k).amount * l_ratio;
11889: px_csm_periodic_expenses_tbl(k).period := l_rl_rec1.object1_id1;
11890: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11891: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
11892:
11893: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11894: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11895: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11896: --end if;
11897:
11898: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
11899: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11900: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11901: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11902: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11903: END IF;
11896: --end if;
11897:
11898: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
11899: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11900: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11901: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11902: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11903: END IF;
11904: Elsif ( l_fee_type <> 'MISCELLANEOUS' ) Then
11906: --px_csm_stream_types_tbl(m).stream_type_id := l_fee_strm_type_rec.styp_id;
11907: --px_csm_stream_types_tbl(m).kle_fee_id := l_linked_asset_line_rec.id;
11908: k := k + 1;
11909: px_csm_periodic_expenses_tbl(k).level_index_number := 1;
11910: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11911: px_csm_periodic_expenses_tbl(k).description := l_fee_strm_type_rec.strm_name;
11912: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
11913: px_csm_periodic_expenses_tbl(k).amount := nvl(l_lne_rec.amount,0)-nvl(l_lne_rec.initial_direct_cost,0);
11914: px_csm_periodic_expenses_tbl(k).amount := px_csm_periodic_expenses_tbl(k).amount * l_ratio;
11913: px_csm_periodic_expenses_tbl(k).amount := nvl(l_lne_rec.amount,0)-nvl(l_lne_rec.initial_direct_cost,0);
11914: px_csm_periodic_expenses_tbl(k).amount := px_csm_periodic_expenses_tbl(k).amount * l_ratio;
11915: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
11916: px_csm_periodic_expenses_tbl(k).period := 'M';
11917: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11918: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
11919:
11920: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
11921: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
11922: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
11923: --end if;
11924:
11925: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
11926: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11927: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11928: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11929: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11930:
11923: --end if;
11924:
11925: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
11926: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
11927: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11928: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
11929: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
11930:
11931: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
12040: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12041: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12042: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12043: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12044: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12045: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12046: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12047: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12048:
12041: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12042: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12043: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12044: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12045: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12046: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12047: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12048:
12049: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12062: -- Added by kthiruva on 29-Dec-2005.
12063: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
12064: -- Bug 4915938 - Start of Changes
12065: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12066: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12067: ELSE
12068: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12069: END IF;
12070: -- Bug 4915938 - End of Changes
12064: -- Bug 4915938 - Start of Changes
12065: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12066: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12067: ELSE
12068: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12069: END IF;
12070: -- Bug 4915938 - End of Changes
12071: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12072: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12080: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12081: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12082: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12083: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
12084: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12085: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12086: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12087:
12088: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12081: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12082: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12083: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
12084: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12085: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12086: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12087:
12088: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12089: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12096: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
12097: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
12098: END IF;
12099: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12100: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12101: ELSE
12102: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12103: END IF;
12104: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12098: END IF;
12099: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12100: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12101: ELSE
12102: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12103: END IF;
12104: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12105: --11-Sep-09 sechawla 8798556
12106: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12140: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12141: px_csm_periodic_expenses_tbl(k).period := 'M';
12142: px_csm_periodic_expenses_tbl(k).amount := l_linked_asset_line_rec.amount;
12143: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12144: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12145: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12146: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12147:
12148: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12141: px_csm_periodic_expenses_tbl(k).period := 'M';
12142: px_csm_periodic_expenses_tbl(k).amount := l_linked_asset_line_rec.amount;
12143: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12144: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12145: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12146: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12147:
12148: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12149: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12150: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
12151: --end if;
12152:
12153: px_csm_periodic_expenses_tbl(k).date_start := l_linked_asset_line_rec.start_date;
12154: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12155: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12156: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12157:
12158: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
12168: If ( nvl(l_lne_rec.initial_direct_cost,0) > 0.0 ) Then
12169: l := l + 1;
12170: px_csm_one_off_fee_tbl(l).description := l_strm_name;
12171: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
12172: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12173: px_csm_one_off_fee_tbl(l).amount := l_lne_rec.initial_direct_cost;
12174: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
12175: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec.id;
12176:
12179: px_csm_one_off_fee_tbl(l).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
12180: --end if;
12181:
12182: -- gboomina BUG#4508077 IDC changes start
12183: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
12184: -- gboomina BUG#4508077 IDC changes end
12185: End If;
12186: --Added by kthiruva on 15-Feb-2006
12187: -- Streams for the fee need to be retrieved if Pricing Name is setup for the same
12257: IF NVL(l_lne_rec.amount,-1) <> NVL(l_lne_rec.initial_direct_cost,-1) THEN
12258: -- sjalasut, bug 4872258. assumption is now -1 instead of zero. END
12259: k := k + 1;
12260: px_csm_periodic_expenses_tbl(k).level_index_number := 1;
12261: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12262: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12263: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12264: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION2,'0'));
12265: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION1, l_hdr_rec.term));
12264: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION2,'0'));
12265: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec2_exp.RULE_INFORMATION1, l_hdr_rec.term));
12266: px_csm_periodic_expenses_tbl(k).amount := px_csm_periodic_expenses_tbl(k).amount - (NVL(l_lne_rec.initial_direct_cost,0)/px_csm_periodic_expenses_tbl(k).number_of_periods);
12267: px_csm_periodic_expenses_tbl(k).period := l_rl_rec1.object1_id1;
12268: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12269: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12270:
12271: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12272: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12273: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
12274: --end if;
12275:
12276: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
12277: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12278: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12279: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12280: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12281: END IF;
12274: --end if;
12275:
12276: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
12277: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12278: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12279: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12280: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12281: END IF;
12282: Elsif ( l_fee_type <> 'MISCELLANEOUS' ) Then
12302: --srsreeni Bug6149951 ends
12303: --px_csm_stream_types_tbl(m).kle_fee_id := l_lne_rec.id;
12304: k := k + 1;
12305: px_csm_periodic_expenses_tbl(k).level_index_number := 1;
12306: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12307: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12308: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12309: px_csm_periodic_expenses_tbl(k).amount := nvl(l_lne_rec.amount,0)-nvl(l_lne_rec.initial_direct_cost,0);
12310: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12308: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12309: px_csm_periodic_expenses_tbl(k).amount := nvl(l_lne_rec.amount,0)-nvl(l_lne_rec.initial_direct_cost,0);
12310: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12311: px_csm_periodic_expenses_tbl(k).period := 'M';
12312: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12313: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12314:
12315: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12316: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12317: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
12318: --end if;
12319:
12320: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
12321: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12322: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12323: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12324: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12325:
12318: --end if;
12319:
12320: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
12321: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12322: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12323: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12324: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12325:
12326: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
12418: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12419: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12420: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12421: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12422: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12423: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12424: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12425: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12426:
12419: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12420: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12421: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12422: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12423: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12424: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12425: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12426:
12427: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12440: -- Added by kthiruva on 29-Dec-2005.
12441: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
12442: -- Bug 4915938 - Start of Changes
12443: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12444: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12445: ELSE
12446: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12447: END IF;
12448: -- Bug 4915938 - End of Changes
12442: -- Bug 4915938 - Start of Changes
12443: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12444: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12445: ELSE
12446: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12447: END IF;
12448: -- Bug 4915938 - End of Changes
12449: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12450: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12458: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12459: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12460: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12461: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
12462: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12463: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12464: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12465:
12466: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12459: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12460: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12461: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
12462: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12463: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12464: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12465:
12466: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12467: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12474: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
12475: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
12476: END IF;
12477: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12478: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12479: ELSE
12480: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12481: END IF;
12482: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12476: END IF;
12477: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12478: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12479: ELSE
12480: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12481: END IF;
12482: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12483: --11-Sep-09 sechawla 8798556
12484: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12516: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12517: px_csm_periodic_expenses_tbl(k).period := 'M';
12518: px_csm_periodic_expenses_tbl(k).amount := l_lne_rec.amount;
12519: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12520: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12521: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12522: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12523:
12524: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12517: px_csm_periodic_expenses_tbl(k).period := 'M';
12518: px_csm_periodic_expenses_tbl(k).amount := l_lne_rec.amount;
12519: px_csm_periodic_expenses_tbl(k).number_of_periods := 1;
12520: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12521: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12522: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12523:
12524: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12525: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12526: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
12527: --end if;
12528:
12529: px_csm_periodic_expenses_tbl(k).date_start := l_lne_rec.start_date;
12530: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12531: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12532: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12533:
12534: print( l_api_name, 'amnt='||to_char(px_csm_periodic_expenses_tbl(k).amount)||
12574: FOR l_linked_asset_line_rec IN l_linked_asset_line_csr(p_chr_id, l_lne_rec.id) LOOP
12575: l := l + 1;
12576: px_csm_one_off_fee_tbl(l).description := l_strm_name_fin_rec.strm_name;
12577: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
12578: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12579: px_csm_one_off_fee_tbl(l).amount := l_linked_asset_line_rec.amount;
12580: px_csm_one_off_fee_tbl(l).date_paid := l_linked_asset_line_rec.start_date;
12581: px_csm_one_off_fee_tbl(l).kle_fee_id := l_linked_asset_line_rec.id;
12582:
12652: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12653: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12654: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12655: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12656: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12657: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12658: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12659: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12660:
12653: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12654: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12655: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12656: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12657: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12658: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12659: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12660:
12661: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12674: -- Added by kthiruva on 29-Dec-2005.
12675: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
12676: -- Bug 4915938 - Start of Changes
12677: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12678: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12679: ELSE
12680: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12681: END IF;
12682: -- Bug 4915938 - End of Changes
12676: -- Bug 4915938 - Start of Changes
12677: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12678: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12679: ELSE
12680: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12681: END IF;
12682: -- Bug 4915938 - End of Changes
12683:
12684: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12692: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12693: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12694: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
12695: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
12696: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12697: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
12698:
12699: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12700: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12700: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12701: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_linked_asset_line_rec.orig_contract_line_id;
12702: --end if;
12703:
12704: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12705: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12706: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12707:
12708: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
12708: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
12709: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.rule_information5);
12710: END IF;
12711: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12712: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12713: ELSE
12714: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12715: END IF;
12716: IF(l_rl_rec.rule_information2 IS NULL OR
12710: END IF;
12711: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12712: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12713: ELSE
12714: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12715: END IF;
12716: IF(l_rl_rec.rule_information2 IS NULL OR
12717: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
12718: --11-Sep-09 sechawla 8798556
12730: ELSE
12731: l := l + 1;
12732: px_csm_one_off_fee_tbl(l).description := l_strm_name_fin_rec.strm_name;
12733: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
12734: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12735: px_csm_one_off_fee_tbl(l).amount := l_strm_name_fin_rec.amount;
12736: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
12737: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec.id;
12738:
12806: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12807: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12808: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12809: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12810: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12811: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12812: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12813: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12814:
12807: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12808: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12809: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12810: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12811: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12812: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12813: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12814:
12815: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12828: -- Added by kthiruva on 29-Dec-2005.
12829: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
12830: -- Bug 4915938 - Start of Changes
12831: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12832: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12833: ELSE
12834: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12835: END IF;
12836: -- Bug 4915938 - End of Changes
12830: -- Bug 4915938 - Start of Changes
12831: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12832: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12833: ELSE
12834: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12835: END IF;
12836: -- Bug 4915938 - End of Changes
12837:
12838: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12846: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
12847: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
12848: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
12849: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
12850: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12851: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
12852:
12853: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
12854: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12854: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
12855: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
12856: --end if;
12857:
12858: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12859: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
12860: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
12861:
12862: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
12862: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
12863: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.rule_information5);
12864: END IF;
12865: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12866: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12867: ELSE
12868: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12869: END IF;
12870: IF(l_rl_rec.rule_information2 IS NULL OR
12864: END IF;
12865: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
12866: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12867: ELSE
12868: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12869: END IF;
12870: IF(l_rl_rec.rule_information2 IS NULL OR
12871: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
12872: --11-Sep-09 sechawla 8798556
12912:
12913: l := l + 1;
12914: px_csm_one_off_fee_tbl(l).description := l_strm_name_abs_rec.strm_name;
12915: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
12916: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12917: px_csm_one_off_fee_tbl(l).amount := link_rollover_rec.amount;
12918: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
12919: px_csm_one_off_fee_tbl(l).kle_fee_id := link_rollover_rec.id;
12920:
12996: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12997: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12998: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12999: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13000: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13001: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13002: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13003: px_csm_periodic_expenses_tbl(k).kle_fee_id := link_rollover_rec.id;
13004:
12997: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12998: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12999: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13000: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13001: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13002: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13003: px_csm_periodic_expenses_tbl(k).kle_fee_id := link_rollover_rec.id;
13004:
13005: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13019: -- Added by kthiruva on 29-Dec-2005.
13020: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
13021: -- Bug 4915938 - Start of Changes
13022: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13023: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13024: ELSE
13025: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13026: END IF;
13027: -- Bug 4915938 - End of Changes
13021: -- Bug 4915938 - Start of Changes
13022: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13023: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13024: ELSE
13025: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13026: END IF;
13027: -- Bug 4915938 - End of Changes
13028:
13029: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13037: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
13038: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
13039: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
13040: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
13041: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13042: px_csm_periodic_expenses_tbl(k).kle_fee_id := link_rollover_rec.id;
13043:
13044: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13045: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13045: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13046: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := link_rollover_rec.orig_contract_line_id;
13047: --end if;
13048:
13049: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13050: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
13051: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
13052:
13053: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
13053: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
13054: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.rule_information5);
13055: END IF;
13056: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13057: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13058: ELSE
13059: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13060: END IF;
13061: IF(l_rl_rec.rule_information2 IS NULL OR
13055: END IF;
13056: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13057: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13058: ELSE
13059: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13060: END IF;
13061: IF(l_rl_rec.rule_information2 IS NULL OR
13062: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13063: --11-Sep-09 sechawla 8798556
13077: IF l_link_fee_asset_yn = 'FALSE' THEN
13078: l := l + 1;
13079: px_csm_one_off_fee_tbl(l).description := l_strm_name_abs_rec.strm_name;
13080: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
13081: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
13082: px_csm_one_off_fee_tbl(l).amount := l_strm_name_abs_rec.amount;
13083: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
13084: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec.id;
13085:
13151: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
13152: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13153: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
13154: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13155: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13156: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13157: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13158: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13159:
13152: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13153: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
13154: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13155: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13156: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13157: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13158: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13159:
13160: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13174: -- Added by kthiruva on 29-Dec-2005.
13175: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
13176: -- Bug 4915938 - Start of Changes
13177: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13178: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13179: ELSE
13180: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13181: END IF;
13182: -- Bug 4915938 - End of Changes
13176: -- Bug 4915938 - Start of Changes
13177: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13178: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13179: ELSE
13180: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13181: END IF;
13182: -- Bug 4915938 - End of Changes
13183:
13184: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13192: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
13193: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
13194: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
13195: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
13196: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13197: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13198:
13199: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13200: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13200: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13201: px_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_lne_rec.orig_contract_line_id;
13202: --end if;
13203:
13204: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13205: px_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
13206: px_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
13207:
13208: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
13208: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
13209: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.rule_information5);
13210: END IF;
13211: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13212: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13213: ELSE
13214: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13215: END IF;
13216: IF(l_rl_rec.rule_information2 IS NULL OR
13210: END IF;
13211: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13212: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13213: ELSE
13214: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13215: END IF;
13216: IF(l_rl_rec.rule_information2 IS NULL OR
13217: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13218: --11-Sep-09 sechawla 8798556
13259: FOR l_linked_asset_line_rec IN l_linked_asset_line_csr(p_chr_id, l_lne_rec.id) LOOP
13260: l := l + 1;
13261: px_csm_one_off_fee_tbl(l).description := l_strm_name_abs_rec.strm_name;
13262: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
13263: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
13264: px_csm_one_off_fee_tbl(l).amount := l_linked_asset_line_rec.amount;
13265: px_csm_one_off_fee_tbl(l).date_paid := l_linked_asset_line_rec.start_date;
13266: px_csm_one_off_fee_tbl(l).kle_fee_id := l_linked_asset_line_rec.id;
13267:
13271: --end if;
13272:
13273: -- gboomina BUG#4508077 changes start
13274: IF('RVI' = l_strm_name_abs_rec.fee_purpose_code) THEN
13275: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
13276: -- populating the interface table records if pricing name is not null
13277: -- vdamerla Bug6149951
13278: --vdamerla Bug6149951 start
13279: IF l_linked_asset_line_rec.STE_CODE <> 'TERMINATED' THEN
13334:
13335: --End of modification for Bug#3320656 BAKUCHIB Modified
13336: -- gboomina BUG#4598620 changes start
13337: -- requesting all ABSORBED fees as IDC fees
13338: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
13339: -- gboomina BUG#4598620 changes end
13340: END LOOP; -- l_linked_asset_line_csr
13341: ELSE
13342: l := l + 1;
13341: ELSE
13342: l := l + 1;
13343: px_csm_one_off_fee_tbl(l).description := l_strm_name_abs_rec.strm_name;
13344: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
13345: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
13346: px_csm_one_off_fee_tbl(l).amount := l_strm_name_abs_rec.amount;
13347: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
13348: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec.id;
13349:
13353: --end if;
13354:
13355: -- gboomina BUG#4508077 changes start
13356: IF('RVI' = l_strm_name_abs_rec.fee_purpose_code) THEN
13357: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
13358: -- populating the interface table records if pricing name is not null
13359: get_primary_pricing_name
13360: (
13361: p_khr_id =>p_chr_id,
13407:
13408: --End of modification for Bug#3320656 BAKUCHIB Modified
13409: -- gboomina BUG#4598620 changes start
13410: -- requesting all ABSORBED fees as IDC fees
13411: px_csm_one_off_fee_tbl(l).idc_accounting_flag := OKL_CREATE_STREAMS_PUB.G_FND_YES;
13412: -- gboomina BUG#4598620 changes end
13413: END IF; -- l_asset_association
13414:
13415: ELSIF l_fee_type = 'INCOME' THEN
13509: FETCH l_rl_csr INTO r_rl_rec;
13510: CLOSE l_rl_csr;
13511: px_csm_one_off_fee_tbl(l).description := l_strm_name;
13512: px_csm_one_off_fee_tbl(l).fee_type := l_fee_type;
13513: px_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13514: px_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(r_rl_rec.rule_information6);
13515: px_csm_one_off_fee_tbl(l).date_paid := l_lne_rec.start_date;
13516: px_csm_one_off_fee_tbl(l).kle_fee_id := l_lne_rec.id;
13517:
13587: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
13588: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13589: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
13590: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13591: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13592: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13593: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13594:
13595: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13588: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13589: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
13590: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
13591: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13592: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13593: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13594:
13595: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13596: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13610: -- Added by kthiruva on 29-Dec-2005.
13611: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
13612: -- Bug 4915938 - Start of Changes
13613: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13614: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13615: ELSE
13616: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13617: END IF;
13618: -- Bug 4915938 - End of Changes
13612: -- Bug 4915938 - Start of Changes
13613: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13614: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13615: ELSE
13616: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13617: END IF;
13618: -- Bug 4915938 - End of Changes
13619:
13620: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13628: px_csm_periodic_expenses_tbl(k).fee_type := l_fee_type;
13629: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
13630: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
13631: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
13632: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13633: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13634: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13635:
13636: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13629: px_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
13630: px_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.rule_information6,'0'));
13631: px_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.rule_information3, l_hdr_rec.term));
13632: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
13633: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13634: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
13635:
13636: --sechawla 15-jul-09 : PRb ESg enhancements : assign orig_contract_line_id
13637: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
13644: IF(l_rl_rec.rule_information5 IS NOT NULL) THEN
13645: px_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.rule_information5);
13646: END IF;
13647: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13648: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13649: ELSE
13650: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13651: END IF;
13652: IF(l_rl_rec.rule_information2 IS NULL OR
13646: END IF;
13647: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
13648: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
13649: ELSE
13650: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13651: END IF;
13652: IF(l_rl_rec.rule_information2 IS NULL OR
13653: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13654: --11-Sep-09 sechawla 8798556
13785: x_msg_data OUT NOCOPY VARCHAR2,
13786: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
13787: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
13788: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
13789: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
13790: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
13791: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
13792: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
13793: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
13786: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
13787: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
13788: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
13789: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
13790: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
13791: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
13792: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
13793: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
13794:
13787: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
13788: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
13789: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
13790: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
13791: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
13792: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
13793: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
13794:
13795: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_DEAL';
13788: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
13789: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
13790: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
13791: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
13792: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
13793: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
13794:
13795: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_DEAL';
13796: l_api_version CONSTANT NUMBER := 1;
13858: l_struct_rec l_struct_csr%ROWTYPE;
13859: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
13860: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
13861: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
13862: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
13863: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13859: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
13860: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
13861: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
13862: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
13863: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13867: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
13860: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
13861: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
13862: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
13863: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13867: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
13868: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13861: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
13862: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
13863: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13867: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
13868: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13869: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
13862: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
13863: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13867: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
13868: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13869: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
13870:
13864: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
13865: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13866: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
13867: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
13868: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
13869: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
13870:
13871: --mansrini : Code for VR build
13872: CURSOR get_day_conv_on_contrct
14026: CLOSE ib_csr;
14027: l_csm_loan_header.country := l_ib_rec.country;
14028: IF p_orp_code IS NOT NULL
14029: THEN
14030: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
14031: ELSE
14032: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14033: END IF;
14034: -- l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14028: IF p_orp_code IS NOT NULL
14029: THEN
14030: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
14031: ELSE
14032: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14033: END IF;
14034: -- l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14035: -- Callling the formual ccontract cap amount
14036: --Modified by kthiruva on 24-Nov-2005 for the Down payment CR
14030: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
14031: ELSE
14032: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14033: END IF;
14034: -- l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
14035: -- Callling the formual ccontract cap amount
14036: --Modified by kthiruva on 24-Nov-2005 for the Down payment CR
14037: --The Capital Reduction should not be removed from the Funding amount
14038: --Bug 4738011 - Start of Changes
14058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14059: RAISE OKL_API.G_EXCEPTION_ERROR;
14060: END IF;
14061: l_csm_loan_header.total_lending := l_total_lending;
14062: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
14063: -- asset infor
14064: FOR l_line_rec IN l_line_rec_csr ( p_chr_id , 'FREE_FORM1') LOOP
14065: i := i + 1;
14066: idx := 0;
14247: l_csm_line_details_tbl(j).date_start := nvl(l_line_rec.date_funding_expected,l_line_rec.start_date);
14248:
14249: --Bug 4576794 - End of Changes
14250: l_csm_line_details_tbl(j).level_index_number := idx;
14251: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
14252: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14253: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14254:
14255: --Added by kthiruva on 15-Nov-2005 for the Down Payment CR
14283: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
14284: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
14285:
14286: l_csm_line_details_tbl(j).level_index_number := idx;
14287: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
14288: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14289: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14290: -- srsreeni - Bug#5699923 - Added - Start
14291: -- DONOT request SuperTrump to generate streams
14328: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
14329: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14330: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
14331: l_csm_line_details_tbl(j).period := g_stub_rec.period;
14332: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14333: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14334:
14335: --sechawla 15-JUL-09 :ESG PRB Enhancements :populate orig_contract_line_id
14336: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
14347: l_csm_line_details_tbl(j).rate := l_rl_rec.rule_information13;
14348: --Bug 4766555 - End of Changes
14349:
14350: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14351: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14352: ELSE
14353: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14354: END IF;
14355: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14349:
14350: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14351: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14352: ELSE
14353: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14354: END IF;
14355: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14356: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14357: END IF;
14360: -- Added by kthiruva on 29-Dec-2005.
14361: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
14362: -- Bug 4915938 - Start of Changes
14363: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14364: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14365: ELSE
14366: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14367: END IF;
14368: -- Bug 4915938 - End of Changes
14362: -- Bug 4915938 - Start of Changes
14363: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14364: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14365: ELSE
14366: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14367: END IF;
14368: -- Bug 4915938 - End of Changes
14369:
14370: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14386: --Bug 4766555 - Start of Changes
14387: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14388: --Bug 4766555 - End of Changes
14389: l_csm_line_details_tbl(j).level_index_number := idx;
14390: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14391: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
14392: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
14393: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14394: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14402: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14403: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14404: END IF;
14405: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14406: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14407: ELSE
14408: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14409: END IF;
14410: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14404: END IF;
14405: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14406: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14407: ELSE
14408: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14409: END IF;
14410: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14411: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14412: ELSE
14407: ELSE
14408: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14409: END IF;
14410: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14411: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14412: ELSE
14413: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14414: END IF;
14415: END IF;
14409: END IF;
14410: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14411: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14412: ELSE
14413: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14414: END IF;
14415: END IF;
14416: END LOOP;
14417: --Code for the new payment type 'PRINCIPAL_PAYMENT' that is allowed for Loan Contracts
14531:
14532:
14533: --Bug 4576794 - End of Changes
14534: l_csm_line_details_tbl(j).level_index_number := idx;
14535: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
14536: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14537: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14538:
14539: --Added by kthiruva on 15-Nov-2005 for the Down Payment CR
14567: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
14568: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
14569:
14570: l_csm_line_details_tbl(j).level_index_number := idx;
14571: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
14572: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14573: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14574: -- srsreeni - Bug#5699923 - Added - Start
14575: -- DONOT request SuperTrump to generate streams
14612: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
14613: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14614: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
14615: l_csm_line_details_tbl(j).period := g_stub_rec.period;
14616: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14617: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14618:
14619: --sechawla 15-JUL-09 :ESG PRB Enhancements :populate orig_contract_line_id
14620: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
14633: l_csm_line_details_tbl(j).rate := nvl(l_rl_rec.rule_information13,l_base_rate);
14634: --Bug 4766555 - End of Changes
14635:
14636: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14637: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14638: ELSE
14639: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14640: END IF;
14641:
14635:
14636: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14637: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14638: ELSE
14639: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14640: END IF;
14641:
14642: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14643: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14648: -- Added by kthiruva on 29-Dec-2005.
14649: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
14650: -- Bug 4915938 - Start of Changes
14651: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14652: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14653: ELSE
14654: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14655: END IF;
14656: -- Bug 4915938 - End of Changes
14650: -- Bug 4915938 - Start of Changes
14651: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14652: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14653: ELSE
14654: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14655: END IF;
14656: -- Bug 4915938 - End of Changes
14657:
14658: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14677: l_csm_line_details_tbl(j).level_index_number := idx;
14678: --Modified by kthiruva on 09-Nov-2005.The level type should be
14679: --set as PRINCIPAL as the payment type is PRINCIPAL_PAYMENT
14680: --Bug 4726209 - Start of Changes
14681: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14682: --Bug 4726209 - End of Changes
14683: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
14684: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
14685: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14696: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14697: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14698: END IF;
14699: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14700: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14701: ELSE
14702: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14703: END IF;
14704: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14698: END IF;
14699: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14700: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14701: ELSE
14702: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14703: END IF;
14704: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14705: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14706: ELSE
14701: ELSE
14702: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14703: END IF;
14704: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14705: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14706: ELSE
14707: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14708: END IF;
14709: END IF;
14703: END IF;
14704: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14705: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14706: ELSE
14707: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14708: END IF;
14709: END IF;
14710: END LOOP;
14711:
14776: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
14777: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14778: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
14779: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
14780: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14781: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14782: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
14783: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
14784:
14777: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14778: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
14779: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
14780: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14781: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14782: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
14783: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
14784:
14785: --sechawla 16-Jul-09 PRb ESg enhancements : assign orig_contract_line_id
14799: -- Added by kthiruva on 29-Dec-2005.
14800: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
14801: -- Bug 4915938 - Start of Changes
14802: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14803: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14804: ELSE
14805: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14806: END IF;
14807: -- Bug 4915938 - End of Changes
14801: -- Bug 4915938 - Start of Changes
14802: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14803: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14804: ELSE
14805: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14806: END IF;
14807: -- Bug 4915938 - End of Changes
14808:
14809: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14813: k := k + 1;
14814: -- idx := idx + 1; bug6245602
14815: idx_exp := idx_exp + 1; -- bug6245602
14816: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
14817: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14818: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
14819: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
14820: l_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
14821: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
14825: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
14826: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
14827: end if;
14828:
14829: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14830: l_csm_periodic_expenses_tbl(k).cash_effect_yn := 'N';
14831: l_csm_periodic_expenses_tbl(k).tax_effect_yn := 'N';
14832: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
14833: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
14835: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14836: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14837: END If;
14838: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14839: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14840: ELSE
14841: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14842: END IF;
14843: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14837: END If;
14838: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14839: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14840: ELSE
14841: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14842: END IF;
14843: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14844: --sechawla 11-sep-09 8798556
14845: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14895: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14896: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14897: END IF;
14898: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14899: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14900: ELSE
14901: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14902: END IF;
14903: -- Code for user defined streams
14897: END IF;
14898: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14899: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14900: ELSE
14901: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14902: END IF;
14903: -- Code for user defined streams
14904: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
14905: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
14903: -- Code for user defined streams
14904: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
14905: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
14906: -- code ends here
14907: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
14908: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
14909: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
14910: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14911: ELSE
14906: -- code ends here
14907: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
14908: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
14909: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
14910: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14911: ELSE
14912: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14913: END If;
14914: -- End of Bug#2757289 modification
14908: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
14909: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
14910: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14911: ELSE
14912: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14913: END If;
14914: -- End of Bug#2757289 modification
14915:
14916: -- Added by kthiruva on 29-Dec-2005.
14916: -- Added by kthiruva on 29-Dec-2005.
14917: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
14918: -- Bug 4915938 - Start of Changes
14919: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14920: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14921: ELSE
14922: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14923: END IF;
14924: -- Bug 4915938 - End of Changes
14918: -- Bug 4915938 - Start of Changes
14919: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14920: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14921: ELSE
14922: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14923: END IF;
14924: -- Bug 4915938 - End of Changes
14925:
14926: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14948: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
14949: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
14950: END IF;
14951: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14952: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14953: ELSE
14954: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14955: END IF;
14956: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14950: END IF;
14951: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
14952: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14953: ELSE
14954: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14955: END IF;
14956: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14957: --sechawla 11-sep-09 8798556
14958: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14960: ELSE
14961: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14962: END IF;
14963: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14964: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14965: ELSE
14966: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14967: END IF;
14968: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
14962: END IF;
14963: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14964: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14965: ELSE
14966: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14967: END IF;
14968: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
14969: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
14970: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
14966: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14967: END IF;
14968: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
14969: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
14970: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
14971: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
14972: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
14973: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14974: ELSE
14969: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
14970: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
14971: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
14972: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
14973: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14974: ELSE
14975: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14976: END If;
14977: END IF;
14971: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
14972: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
14973: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14974: ELSE
14975: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
14976: END If;
14977: END IF;
14978: END LOOP;
14979: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
14979: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
14980: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
14981: l := l + 1;
14982: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
14983: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14984: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
14985: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
14986: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
14987: Else
15183: x_msg_data OUT NOCOPY VARCHAR2,
15184: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
15185: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
15186: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
15187: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
15188: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
15189: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
15190: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15191:
15184: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
15185: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
15186: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
15187: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
15188: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
15189: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
15190: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15191:
15192: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_PPD';
15185: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
15186: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
15187: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
15188: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
15189: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
15190: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15191:
15192: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_PPD';
15193: l_api_version CONSTANT NUMBER := 1;
15186: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
15187: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
15188: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
15189: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
15190: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15191:
15192: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_PPD';
15193: l_api_version CONSTANT NUMBER := 1;
15194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
15285: l_struct_rec l_struct_csr%ROWTYPE;
15286: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
15287: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
15288: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
15289: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
15290: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15286: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
15287: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
15288: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
15289: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
15290: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15294: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
15287: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
15288: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
15289: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
15290: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15294: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
15295: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15288: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
15289: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
15290: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15294: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
15295: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15296: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
15289: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
15290: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15294: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
15295: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15296: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
15297: --p_deal_type okl_st_gen_tmpt_sets.deal_type%TYPE;
15291: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
15292: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15293: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
15294: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
15295: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
15296: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
15297: --p_deal_type okl_st_gen_tmpt_sets.deal_type%TYPE;
15298:
15299: --mansrini : Code for VR build
15490: END IF;
15491: CLOSE ib_csr;
15492: l_csm_loan_header.country := l_ib_rec.country;
15493: --The orp code for the Principal Paydown process is used here.
15494: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_RENEWAL;
15495: -- Callling the formual ccontract cap amount
15496: --Modified by kthiruva on 24-Nov-2005 for the Down payment CR
15497: --The Capital Reduction should not be removed from the Funding amount
15498: --Bug 4738011 - Start of Changes
15511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_ERROR;
15513: END IF;
15514: l_csm_loan_header.total_lending := l_total_lending;
15515: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
15516:
15517: --kthiruva : for PR proj
15518: --Fetch the total OEC for this contract so that it can be prorated for each asset in
15519: --the following loop
15757:
15758:
15759: --Bug 4576794 - End of Changes
15760: l_csm_line_details_tbl(j).level_index_number := idx;
15761: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
15762: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
15763: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
15764: l_csm_line_details_tbl(j).rate := l_variable_rate;
15765:
15794: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
15795: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
15796:
15797: l_csm_line_details_tbl(j).level_index_number := idx;
15798: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
15799: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
15800: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
15801: END IF;
15802: --Bug 4738011 - End of Changes
15825: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15826: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
15827: j := j + 1;
15828: idx := idx + 1;
15829: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
15830: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
15831: l_csm_line_details_tbl(j).period := g_stub_rec.period;
15832: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
15833: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15854: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
15855: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
15856: l_csm_line_details_tbl(j).rate := l_variable_rate;
15857: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15858: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15859: ELSE
15860: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15861: END IF;
15862:
15856: l_csm_line_details_tbl(j).rate := l_variable_rate;
15857: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15858: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15859: ELSE
15860: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15861: END IF;
15862:
15863: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
15864: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15864: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15865: END IF;
15866:
15867: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15868: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15869: ELSE
15870: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15871: END IF;
15872:
15866:
15867: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15868: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15869: ELSE
15870: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15871: END IF;
15872:
15873: END IF;
15874: END LOOP;
15888: END IF;
15889: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
15890: l_csm_line_details_tbl(j).period := g_stub_rec.period;
15891: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
15892: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
15893: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15894:
15895: --sechawla 16-Jul-09 PRB ESG Enhanceents : assign orig_contract_line_id
15896: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
15913: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
15914: END IF;
15915:
15916: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15917: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15918: ELSE
15919: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15920: END IF;
15921:
15915:
15916: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15917: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15918: ELSE
15919: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15920: END IF;
15921:
15922: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
15923: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15923: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15924: END IF;
15925:
15926: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15927: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15928: ELSE
15929: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15930: END IF;
15931: --=======================================================================================
15925:
15926: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15927: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15928: ELSE
15929: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15930: END IF;
15931: --=======================================================================================
15932: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
15933: --=======================================================================================
15937: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15938: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
15939: j := j + 1;
15940: idx := idx + 1;
15941: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
15942: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
15943: l_csm_line_details_tbl(j).period := g_stub_rec.period;
15944: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
15945: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15966: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
15967: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
15968: l_csm_line_details_tbl(j).rate := l_variable_rate;
15969: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15970: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15971: ELSE
15972: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15973: END IF;
15974:
15968: l_csm_line_details_tbl(j).rate := l_variable_rate;
15969: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
15970: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
15971: ELSE
15972: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15973: END IF;
15974:
15975: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
15976: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15976: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
15977: END IF;
15978:
15979: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15980: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15981: ELSE
15982: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15983: END IF;
15984:
15978:
15979: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
15980: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
15981: ELSE
15982: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
15983: END IF;
15984:
15985: END IF;
15986: END LOOP;
16012: l_csm_line_details_tbl(j).description := l_strm_name;
16013: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16014: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16015: l_csm_line_details_tbl(j).level_index_number := idx;
16016: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16017: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
16018:
16019: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
16020: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
16036: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16037: END IF;
16038:
16039: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16040: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16041: ELSE
16042: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16043: END IF;
16044:
16038:
16039: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16040: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16041: ELSE
16042: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16043: END IF;
16044:
16045: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16046: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16042: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16043: END IF;
16044:
16045: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16046: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16047: ELSE
16048: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16049: END IF;
16050:
16044:
16045: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16046: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16047: ELSE
16048: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16049: END IF;
16050:
16051: ELSE
16052:
16089: l_csm_line_details_tbl(j).description := l_strm_name;
16090: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16091: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16092: l_csm_line_details_tbl(j).level_index_number := idx;
16093: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16094:
16095: IF l_number_periods_completed_cpy = 0 THEN
16096: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
16097: ELSE
16118: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16119: END IF;
16120:
16121: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16122: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16123: ELSE
16124: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16125: END IF;
16126:
16120:
16121: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16122: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16123: ELSE
16124: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16125: END IF;
16126:
16127: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16128: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16124: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16125: END IF;
16126:
16127: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16128: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16129: ELSE
16130: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16131: END IF;
16132: l_first_batch := 'Y';
16126:
16127: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16128: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16129: ELSE
16130: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16131: END IF;
16132: l_first_batch := 'Y';
16133: END IF;
16134: --=====================================================================
16152: --of the period and one payment line for the remaining periods until the next paydown date
16153: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
16154: j := j + 1;
16155: idx := idx + 1;
16156: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16157: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16158: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16159: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16160: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16188: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16189: END IF;
16190:
16191: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16192: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16193: ELSE
16194: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16195: END IF;
16196:
16190:
16191: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16192: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16193: ELSE
16194: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16195: END IF;
16196:
16197: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16198: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16194: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16195: END IF;
16196:
16197: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16198: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16199: ELSE
16200: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16201: END IF;
16202: END IF;
16196:
16197: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16198: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16199: ELSE
16200: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16201: END IF;
16202: END IF;
16203: END IF;
16204: --Bug 4964710 - End of Changes
16210: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
16211: /*PPD stub*/
16212: j := j + 1;
16213: idx := idx + 1;
16214: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16215: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16216: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16217: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16218: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16250: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16251: END IF;
16252:
16253: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16254: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16255: ELSE
16256: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16257: END IF;
16258:
16252:
16253: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16254: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16255: ELSE
16256: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16257: END IF;
16258:
16259: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16260: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16256: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16257: END IF;
16258:
16259: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16260: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16261: ELSE
16262: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16263: END IF;
16264: --===============================================================================
16258:
16259: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16260: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16261: ELSE
16262: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16263: END IF;
16264: --===============================================================================
16265: --Step 5: Check whether Ajusting stub needs to be created and create if necessary
16266: --================================================================================
16279: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
16280: /*Adjusting stub*/
16281: j := j + 1;
16282: idx := idx + 1;
16283: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16284: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16285: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16286: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16287: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16313: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16314: END IF;
16315:
16316: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16317: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16318: ELSE
16319: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16320: END IF;
16321:
16315:
16316: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16317: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16318: ELSE
16319: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16320: END IF;
16321:
16322: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16323: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16319: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16320: END IF;
16321:
16322: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16323: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16324: ELSE
16325: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16326: END IF;
16327: END IF;
16321:
16322: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16323: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16324: ELSE
16325: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16326: END IF;
16327: END IF;
16328: END IF;
16329: --Bug 4964710 - Start of Changes
16348: IF (l_periods_after_ppd > 0) THEN
16349: /*Remaining amts*/
16350: j := j + 1;
16351: idx := idx + 1;
16352: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16353: l_csm_line_details_tbl(j).number_of_periods := l_periods_after_ppd;
16354: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
16355: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16356: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16383: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16384: END IF;
16385:
16386: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16387: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16388: ELSE
16389: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16390: END IF;
16391:
16385:
16386: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16387: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16388: ELSE
16389: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16390: END IF;
16391:
16392: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16393: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16389: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16390: END IF;
16391:
16392: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16393: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16394: ELSE
16395: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16396: END IF;
16397: END IF;--End of condition l_periods_after_ppd >0
16391:
16392: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16393: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16394: ELSE
16395: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16396: END IF;
16397: END IF;--End of condition l_periods_after_ppd >0
16398: END IF;--The condition that checks the paydown type
16399: END IF;--The condition check for the date of every PPD in the ppd_tbl
16555:
16556:
16557: --Bug 4576794 - End of Changes
16558: l_csm_line_details_tbl(j).level_index_number := idx;
16559: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
16560: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
16561: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
16562: l_csm_line_details_tbl(j).rate := l_variable_rate;
16563:
16592: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
16593: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
16594:
16595: l_csm_line_details_tbl(j).level_index_number := idx;
16596: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
16597: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
16598: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
16599: END IF;
16600: --Bug 4738011 - End of Changes
16622: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16623: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
16624: j := j + 1;
16625: idx := idx + 1;
16626: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16627: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16628: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16629: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16630: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16651: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
16652: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
16653: l_csm_line_details_tbl(j).rate := l_variable_rate;
16654: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16655: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16656: ELSE
16657: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16658: END IF;
16659:
16653: l_csm_line_details_tbl(j).rate := l_variable_rate;
16654: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16655: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16656: ELSE
16657: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16658: END IF;
16659:
16660: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
16661: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16661: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16662: END IF;
16663:
16664: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16665: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16666: ELSE
16667: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16668: END IF;
16669:
16663:
16664: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16665: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16666: ELSE
16667: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16668: END IF;
16669:
16670: END IF;
16671: END LOOP;
16685: END IF;
16686: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16687: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16688: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16689: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16690: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16691:
16692: --sechawla 16-Jul-09 PRB ESG Enhanceents : assign orig_contract_line_id
16693: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
16710: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
16711: END IF;
16712:
16713: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16714: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16715: ELSE
16716: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16717: END IF;
16718:
16712:
16713: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16714: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16715: ELSE
16716: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16717: END IF;
16718:
16719: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
16720: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16720: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16721: END IF;
16722:
16723: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16724: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16725: ELSE
16726: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16727: END IF;
16728: --=======================================================================================
16722:
16723: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16724: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16725: ELSE
16726: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16727: END IF;
16728: --=======================================================================================
16729: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
16730: --=======================================================================================
16734: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16735: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
16736: j := j + 1;
16737: idx := idx + 1;
16738: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16739: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16740: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16741: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16742: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16763: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
16764: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_BOTH;
16765: l_csm_line_details_tbl(j).rate := l_variable_rate;
16766: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16767: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16768: ELSE
16769: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16770: END IF;
16771:
16765: l_csm_line_details_tbl(j).rate := l_variable_rate;
16766: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16767: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16768: ELSE
16769: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16770: END IF;
16771:
16772: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
16773: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16773: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16774: END IF;
16775:
16776: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16777: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16778: ELSE
16779: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16780: END IF;
16781:
16775:
16776: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16777: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16778: ELSE
16779: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16780: END IF;
16781:
16782: END IF;
16783: END LOOP;
16808: l_csm_line_details_tbl(j).description := l_strm_name;
16809: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16810: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16811: l_csm_line_details_tbl(j).level_index_number := idx;
16812: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16813: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
16814:
16815: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
16816: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
16832: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16833: END IF;
16834:
16835: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16836: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16837: ELSE
16838: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16839: END IF;
16840:
16834:
16835: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16836: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16837: ELSE
16838: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16839: END IF;
16840:
16841: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16842: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16838: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16839: END IF;
16840:
16841: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16842: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16843: ELSE
16844: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16845: END IF;
16846:
16840:
16841: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16842: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16843: ELSE
16844: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16845: END IF;
16846:
16847: ELSE
16848:
16885: l_csm_line_details_tbl(j).description := l_strm_name;
16886: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16887: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16888: l_csm_line_details_tbl(j).level_index_number := idx;
16889: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16890:
16891: IF l_number_periods_completed_cpy = 0 THEN
16892: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
16893: ELSE
16914: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16915: END IF;
16916:
16917: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16918: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16919: ELSE
16920: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16921: END IF;
16922:
16916:
16917: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16918: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16919: ELSE
16920: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16921: END IF;
16922:
16923: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16924: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16920: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16921: END IF;
16922:
16923: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16924: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16925: ELSE
16926: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16927: END IF;
16928: l_first_batch := 'Y';
16922:
16923: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16924: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16925: ELSE
16926: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16927: END IF;
16928: l_first_batch := 'Y';
16929: END IF;
16930: --=====================================================================
16948: --of the period and one payment line for the remaining periods until the next paydown date
16949: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
16950: j := j + 1;
16951: idx := idx + 1;
16952: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
16953: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16954: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16955: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16956: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16984: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
16985: END IF;
16986:
16987: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16988: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16989: ELSE
16990: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16991: END IF;
16992:
16986:
16987: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
16988: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16989: ELSE
16990: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16991: END IF;
16992:
16993: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16994: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16990: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16991: END IF;
16992:
16993: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16994: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16995: ELSE
16996: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16997: END IF;
16998: END IF;
16992:
16993: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16994: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16995: ELSE
16996: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
16997: END IF;
16998: END IF;
16999: END IF;
17000: --Bug 4964710 - End of Changes
17006: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
17007: /*PPD stub*/
17008: j := j + 1;
17009: idx := idx + 1;
17010: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17011: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
17012: l_csm_line_details_tbl(j).period := g_stub_rec.period;
17013: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
17014: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
17048: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
17049: END IF;
17050:
17051: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17052: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17053: ELSE
17054: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17055: END IF;
17056:
17050:
17051: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17052: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17053: ELSE
17054: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17055: END IF;
17056:
17057: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17058: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17054: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17055: END IF;
17056:
17057: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17058: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17059: ELSE
17060: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17061: END IF;
17062: --===============================================================================
17056:
17057: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17058: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17059: ELSE
17060: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17061: END IF;
17062: --===============================================================================
17063: --Step 5: Check whether Ajusting stub needs to be created and create if necessary
17064: --================================================================================
17077: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
17078: /*Adjusting stub*/
17079: j := j + 1;
17080: idx := idx + 1;
17081: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17082: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
17083: l_csm_line_details_tbl(j).period := g_stub_rec.period;
17084: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
17085: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
17112: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
17113: END IF;
17114:
17115: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17116: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17117: ELSE
17118: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17119: END IF;
17120:
17114:
17115: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17116: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17117: ELSE
17118: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17119: END IF;
17120:
17121: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17122: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17118: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17119: END IF;
17120:
17121: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17122: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17123: ELSE
17124: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17125: END IF;
17126: END IF;
17120:
17121: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17122: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17123: ELSE
17124: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17125: END IF;
17126: END IF;
17127: END IF;
17128: --===================================================================================
17145: IF (l_periods_after_ppd > 0) THEN
17146: /*Remaining amts*/
17147: j := j + 1;
17148: idx := idx + 1;
17149: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17150: l_csm_line_details_tbl(j).number_of_periods := l_periods_after_ppd;
17151: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
17152: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
17153: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
17180: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
17181: END IF;
17182:
17183: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17184: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17185: ELSE
17186: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17187: END IF;
17188:
17182:
17183: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17184: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17185: ELSE
17186: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17187: END IF;
17188:
17189: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17190: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17186: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17187: END IF;
17188:
17189: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17190: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17191: ELSE
17192: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17193: END IF;
17194: END IF;--End of condition l_periods_after_ppd >0
17188:
17189: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17190: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17191: ELSE
17192: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17193: END IF;
17194: END IF;--End of condition l_periods_after_ppd >0
17195:
17196: END IF;--The condition that checks the paydown type
17235: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
17236: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
17237: END IF;
17238: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17239: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17240: ELSE
17241: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17242: END IF;
17243: -- Code for user defined streams
17237: END IF;
17238: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17239: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17240: ELSE
17241: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17242: END IF;
17243: -- Code for user defined streams
17244: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
17245: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
17243: -- Code for user defined streams
17244: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
17245: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
17246: -- code ends here
17247: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
17248: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
17249: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
17250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17251: ELSE
17246: -- code ends here
17247: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
17248: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
17249: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
17250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17251: ELSE
17252: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
17253: END If;
17254: -- End of Bug#2757289 modification
17248: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
17249: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
17250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17251: ELSE
17252: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
17253: END If;
17254: -- End of Bug#2757289 modification
17255:
17256: -- Added by kthiruva on 29-Dec-2005.
17256: -- Added by kthiruva on 29-Dec-2005.
17257: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
17258: -- Bug 4915938 - Start of Changes
17259: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17260: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17261: ELSE
17262: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17263: END IF;
17264: -- Bug 4915938 - End of Changes
17258: -- Bug 4915938 - Start of Changes
17259: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17260: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17261: ELSE
17262: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17263: END IF;
17264: -- Bug 4915938 - End of Changes
17265:
17266: ELSIF (l_rl_rec.rule_information7 IS NULL OR
17287: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
17288: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
17289: END IF;
17290: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17291: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17292: ELSE
17293: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17294: END IF;
17295: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
17289: END IF;
17290: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
17291: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17292: ELSE
17293: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17294: END IF;
17295: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
17296: --sechawla 11-sep-09 8798556
17297: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
17299: ELSE
17300: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
17301: END IF;
17302: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17303: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17304: ELSE
17305: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17306: END IF;
17307: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
17301: END IF;
17302: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
17303: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
17304: ELSE
17305: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17306: END IF;
17307: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
17308: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
17309: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
17305: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17306: END IF;
17307: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
17308: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
17309: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
17310: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
17311: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
17312: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17313: ELSE
17308: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
17309: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
17310: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
17311: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
17312: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17313: ELSE
17314: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
17315: END If;
17316: END IF;
17310: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
17311: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
17312: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
17313: ELSE
17314: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
17315: END If;
17316: END IF;
17317: END LOOP;
17318: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
17318: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
17319: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
17320: l := l + 1;
17321: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
17322: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17323: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
17324: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
17325: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
17326: Else
17499: x_msg_data OUT NOCOPY VARCHAR2,
17500: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
17501: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
17502: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
17503: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
17504: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
17505: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
17506: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
17507:
17500: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
17501: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
17502: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
17503: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
17504: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
17505: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
17506: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
17507:
17508: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_PPD_REBOOK';
17501: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
17502: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
17503: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
17504: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
17505: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
17506: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
17507:
17508: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_PPD_REBOOK';
17509: l_api_version CONSTANT NUMBER := 1;
17502: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
17503: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
17504: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
17505: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
17506: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
17507:
17508: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_PPD_REBOOK';
17509: l_api_version CONSTANT NUMBER := 1;
17510: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17570: l_struct_rec l_struct_csr%ROWTYPE;
17571: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
17572: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
17573: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
17574: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
17575: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17571: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
17572: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
17573: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
17574: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
17575: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17579: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
17572: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
17573: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
17574: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
17575: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17579: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
17580: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17573: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
17574: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
17575: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17579: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
17580: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17581: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
17574: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
17575: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17579: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
17580: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17581: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
17582: --p_deal_type okl_st_gen_tmpt_sets.deal_type%TYPE;
17576: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
17577: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17578: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
17579: l_csm_line_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
17580: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
17581: l_strm_type_id_tbl okl_strm_type_id_tbl_type;
17582: --p_deal_type okl_st_gen_tmpt_sets.deal_type%TYPE;
17583:
17584: --mansrini : Code for VR build
17798: END IF;
17799: CLOSE ib_csr;
17800: l_csm_loan_header.country := l_ib_rec.country;
17801: --The orp code for the Principal Paydown process is used here.
17802: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
17803: -- Callling the formual ccontract cap amount
17804: --Modified by kthiruva on 24-Nov-2005 for the Down payment CR
17805: --The Capital Reduction should not be removed from the Funding amount
17806: --Bug 4738011 - Start of Changes
17819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17820: RAISE OKL_API.G_EXCEPTION_ERROR;
17821: END IF;
17822: l_csm_loan_header.total_lending := l_total_lending;
17823: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
17824:
17825: --kthiruva : for PR proj
17826: --Fetch the total OEC for this contract so that it can be prorated for each asset in
17827: --the following loop
18033:
18034:
18035: --Bug 4576794 - End of Changes
18036: l_csm_line_details_tbl(j).level_index_number := idx;
18037: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
18038: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18039: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18040:
18041: --Added by kthiruva on 15-Nov-2005 for the Down Payment CR
18069: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
18070: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
18071:
18072: l_csm_line_details_tbl(j).level_index_number := idx;
18073: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
18074: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18075: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18076: END IF;
18077: --Bug 4738011 - End of Changes
18099: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
18100: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
18101: j := j + 1;
18102: idx := idx + 1;
18103: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18104: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18105: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18106: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18107: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18125: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
18126: -- we are solving for rate.
18127: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18128: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18129: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18130: ELSE
18131: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18132: END IF;
18133:
18127: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18128: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18129: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18130: ELSE
18131: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18132: END IF;
18133:
18134: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
18135: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18135: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18136: END IF;
18137:
18138: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18139: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18140: ELSE
18141: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18142: END IF;
18143:
18137:
18138: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18139: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18140: ELSE
18141: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18142: END IF;
18143:
18144: END IF;
18145: END LOOP;
18159: END IF;
18160: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18161: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18162: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18163: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18164: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18165:
18166: --sechawla 17-Jul-09 PRB ESG Enhancements : assign orig_contract_line_id
18167: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
18180: -- we are solving for rate.
18181: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := G_FALSE;
18182:
18183: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18184: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18185: ELSE
18186: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18187: END IF;
18188:
18182:
18183: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18184: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18185: ELSE
18186: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18187: END IF;
18188:
18189: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
18190: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18190: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18191: END IF;
18192:
18193: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18194: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18195: ELSE
18196: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18197: END IF;
18198: --=======================================================================================
18192:
18193: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18194: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18195: ELSE
18196: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18197: END IF;
18198: --=======================================================================================
18199: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
18200: --=======================================================================================
18204: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
18205: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
18206: j := j + 1;
18207: idx := idx + 1;
18208: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18209: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18210: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18211: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18212: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18230: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
18231: -- we are solving for rate.
18232: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18233: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18234: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18235: ELSE
18236: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18237: END IF;
18238:
18232: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18233: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18234: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18235: ELSE
18236: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18237: END IF;
18238:
18239: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
18240: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18240: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18241: END IF;
18242:
18243: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18244: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18245: ELSE
18246: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18247: END IF;
18248:
18242:
18243: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18244: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18245: ELSE
18246: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18247: END IF;
18248:
18249: END IF;
18250: END LOOP;
18274: l_csm_line_details_tbl(j).description := l_strm_name;
18275: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18276: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
18277: l_csm_line_details_tbl(j).level_index_number := idx;
18278: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18279: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
18280:
18281: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
18282: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18294: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18295: END IF;
18296:
18297: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18298: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18299: ELSE
18300: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18301: END IF;
18302:
18296:
18297: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18298: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18299: ELSE
18300: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18301: END IF;
18302:
18303: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18304: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18300: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18301: END IF;
18302:
18303: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18304: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18305: ELSE
18306: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18307: END IF;
18308:
18302:
18303: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18304: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18305: ELSE
18306: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18307: END IF;
18308:
18309: ELSE
18310:
18347: l_csm_line_details_tbl(j).description := l_strm_name;
18348: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18349: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
18350: l_csm_line_details_tbl(j).level_index_number := idx;
18351: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18352:
18353: IF l_number_periods_completed_cpy = 0 THEN
18354: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
18355: ELSE
18372: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18373: END IF;
18374:
18375: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18376: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18377: ELSE
18378: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18379: END IF;
18380:
18374:
18375: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18376: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18377: ELSE
18378: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18379: END IF;
18380:
18381: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18382: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18378: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18379: END IF;
18380:
18381: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18382: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18383: ELSE
18384: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18385: END IF;
18386: l_first_batch := 'Y';
18380:
18381: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18382: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18383: ELSE
18384: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18385: END IF;
18386: l_first_batch := 'Y';
18387: END IF;
18388: --=====================================================================
18406: --of the period and one payment line for the remaining periods until the next paydown date
18407: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
18408: j := j + 1;
18409: idx := idx + 1;
18410: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18411: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18412: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18413: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18414: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18438: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18439: END IF;
18440:
18441: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18442: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18443: ELSE
18444: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18445: END IF;
18446:
18440:
18441: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18442: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18443: ELSE
18444: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18445: END IF;
18446:
18447: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18448: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18444: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18445: END IF;
18446:
18447: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18448: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18449: ELSE
18450: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18451: END IF;
18452: END IF;
18446:
18447: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18448: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18449: ELSE
18450: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18451: END IF;
18452: END IF;
18453: END IF;
18454: --Bug 4964710 - End of Changes
18459:
18460: /*PPD stub*/
18461: j := j + 1;
18462: idx := idx + 1;
18463: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18464: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18465: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18466: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18467: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18495: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18496: END IF;
18497:
18498: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18499: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18500: ELSE
18501: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18502: END IF;
18503:
18497:
18498: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18499: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18500: ELSE
18501: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18502: END IF;
18503:
18504: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18505: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18501: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18502: END IF;
18503:
18504: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18505: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18506: ELSE
18507: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18508: END IF;
18509: --===============================================================================
18503:
18504: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18505: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18506: ELSE
18507: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18508: END IF;
18509: --===============================================================================
18510: --Step 5: Check whether Ajusting stub needs to be created and create if necessary
18511: --================================================================================
18524: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
18525: /*Adjusting stub*/
18526: j := j + 1;
18527: idx := idx + 1;
18528: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18529: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18530: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18531: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18532: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18555: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18556: END IF;
18557:
18558: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18559: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18560: ELSE
18561: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18562: END IF;
18563:
18557:
18558: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18559: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18560: ELSE
18561: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18562: END IF;
18563:
18564: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18565: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18561: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18562: END IF;
18563:
18564: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18565: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18566: ELSE
18567: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18568: END IF;
18569: END IF;
18563:
18564: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18565: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18566: ELSE
18567: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18568: END IF;
18569: END IF;
18570: END IF;
18571: --Bug 4964710 - Start of Changes
18590: IF (l_periods_after_ppd > 0) THEN
18591: /*Remaining amts*/
18592: j := j + 1;
18593: idx := idx + 1;
18594: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18595: l_csm_line_details_tbl(j).number_of_periods := l_periods_after_ppd;
18596: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
18597: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18598: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18621: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18622: END IF;
18623:
18624: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18625: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18626: ELSE
18627: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18628: END IF;
18629:
18623:
18624: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18625: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18626: ELSE
18627: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18628: END IF;
18629:
18630: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18631: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18627: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18628: END IF;
18629:
18630: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18631: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18632: ELSE
18633: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18634: END IF;
18635: END IF;--End of condition l_periods_after_ppd >0
18629:
18630: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18631: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18632: ELSE
18633: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18634: END IF;
18635: END IF;--End of condition l_periods_after_ppd >0
18636: END IF;--The condition check for the date of every PPD in the ppd_tbl
18637: END LOOP;--loop for l_ppd_tbl
18796:
18797:
18798: --Bug 4576794 - End of Changes
18799: l_csm_line_details_tbl(j).level_index_number := idx;
18800: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
18801: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18802: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18803:
18804: --Added by kthiruva on 15-Nov-2005 for the Down Payment CR
18832: --l_csm_line_details_tbl(j).date_start := l_hdr_rec.start_date;
18833: l_csm_line_details_tbl(j).date_start := l_line_rec.start_date;
18834:
18835: l_csm_line_details_tbl(j).level_index_number := idx;
18836: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
18837: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18838: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18839: END IF;
18840: --Bug 4738011 - End of Changes
18861: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
18862: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
18863: j := j + 1;
18864: idx := idx + 1;
18865: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18866: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18867: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18868: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18869: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18889: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
18890: -- we are solving for rate.
18891: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18892: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18893: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18894: ELSE
18895: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18896: END IF;
18897:
18891: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
18892: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18893: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18894: ELSE
18895: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18896: END IF;
18897:
18898: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
18899: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18899: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18900: END IF;
18901:
18902: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18903: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18904: ELSE
18905: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18906: END IF;
18907:
18901:
18902: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18903: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18904: ELSE
18905: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18906: END IF;
18907:
18908: END IF;
18909: END LOOP;
18923: END IF;
18924: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18925: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18926: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18927: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18928: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18929:
18930: --sechawla 17-Jul-09 PRB ESG Enhancements : assign orig_contract_line_id
18931: if l_PROSPECTIVE_REBOOK_YN = 'Y' then
18947: -- we are solving for rate.
18948: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := G_FALSE;
18949:
18950: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18951: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18952: ELSE
18953: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18954: END IF;
18955:
18949:
18950: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
18951: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
18952: ELSE
18953: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18954: END IF;
18955:
18956: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
18957: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18957: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
18958: END IF;
18959:
18960: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18961: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18962: ELSE
18963: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18964: END IF;
18965: --=======================================================================================
18959:
18960: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
18961: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18962: ELSE
18963: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18964: END IF;
18965: --=======================================================================================
18966: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
18967: --=======================================================================================
18971: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
18972: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
18973: j := j + 1;
18974: idx := idx + 1;
18975: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
18976: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18977: l_csm_line_details_tbl(j).period := g_stub_rec.period;
18978: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
18979: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
18999: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
19000: -- we are solving for rate.
19001: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
19002: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19003: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19004: ELSE
19005: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19006: END IF;
19007:
19001: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := OKL_CREATE_STREAMS_PVT.G_LOCK_AMOUNT;
19002: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19003: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19004: ELSE
19005: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19006: END IF;
19007:
19008: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
19009: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19009: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19010: END IF;
19011:
19012: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19013: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19014: ELSE
19015: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19016: END IF;
19017:
19011:
19012: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19013: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19014: ELSE
19015: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19016: END IF;
19017:
19018: END IF;
19019: END LOOP;
19043: l_csm_line_details_tbl(j).description := l_strm_name;
19044: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19045: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
19046: l_csm_line_details_tbl(j).level_index_number := idx;
19047: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19048: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
19049:
19050: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
19051: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
19065: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19066: END IF;
19067:
19068: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19069: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19070: ELSE
19071: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19072: END IF;
19073:
19067:
19068: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19069: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19070: ELSE
19071: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19072: END IF;
19073:
19074: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19075: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19071: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19072: END IF;
19073:
19074: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19075: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19076: ELSE
19077: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19078: END IF;
19079:
19073:
19074: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19075: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19076: ELSE
19077: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19078: END IF;
19079:
19080: ELSE
19081:
19118: l_csm_line_details_tbl(j).description := l_strm_name;
19119: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19120: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
19121: l_csm_line_details_tbl(j).level_index_number := idx;
19122: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19123:
19124: IF l_number_periods_completed_cpy = 0 THEN
19125: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
19126: ELSE
19145: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19146: END IF;
19147:
19148: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19149: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19150: ELSE
19151: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19152: END IF;
19153:
19147:
19148: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19149: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19150: ELSE
19151: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19152: END IF;
19153:
19154: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19155: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19151: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19152: END IF;
19153:
19154: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19155: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19156: ELSE
19157: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19158: END IF;
19159: l_first_batch := 'Y';
19153:
19154: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19155: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19156: ELSE
19157: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19158: END IF;
19159: l_first_batch := 'Y';
19160: END IF;
19161: --=====================================================================
19179: --of the period and one payment line for the remaining periods until the next paydown date
19180: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
19181: j := j + 1;
19182: idx := idx + 1;
19183: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19184: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
19185: l_csm_line_details_tbl(j).period := g_stub_rec.period;
19186: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
19187: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
19213: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19214: END IF;
19215:
19216: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19217: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19218: ELSE
19219: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19220: END IF;
19221:
19215:
19216: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19217: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19218: ELSE
19219: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19220: END IF;
19221:
19222: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19223: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19219: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19220: END IF;
19221:
19222: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19223: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19224: ELSE
19225: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19226: END IF;
19227: END IF;
19221:
19222: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19223: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19224: ELSE
19225: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19226: END IF;
19227: END IF;
19228: END IF;
19229: --Bug 4964710 - End of Changes
19234:
19235: /*PPD stub*/
19236: j := j + 1;
19237: idx := idx + 1;
19238: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19239: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
19240: l_csm_line_details_tbl(j).period := g_stub_rec.period;
19241: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
19242: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
19276: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19277: END IF;
19278:
19279: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19280: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19281: ELSE
19282: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19283: END IF;
19284:
19278:
19279: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19280: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19281: ELSE
19282: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19283: END IF;
19284:
19285: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19286: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19282: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19283: END IF;
19284:
19285: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19286: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19287: ELSE
19288: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19289: END IF;
19290: --===============================================================================
19284:
19285: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19286: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19287: ELSE
19288: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19289: END IF;
19290: --===============================================================================
19291: --Step 5: Check whether Ajusting stub needs to be created and create if necessary
19292: --================================================================================
19305: IF (l_ppd_tbl(k).diff_to_next = 0 OR (l_ppd_tbl(k).diff_to_next > l_days_between)) THEN
19306: /*Adjusting stub*/
19307: j := j + 1;
19308: idx := idx + 1;
19309: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19310: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
19311: l_csm_line_details_tbl(j).period := g_stub_rec.period;
19312: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
19313: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
19338: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19339: END IF;
19340:
19341: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19342: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19343: ELSE
19344: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19345: END IF;
19346:
19340:
19341: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19342: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19343: ELSE
19344: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19345: END IF;
19346:
19347: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19348: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19344: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19345: END IF;
19346:
19347: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19348: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19349: ELSE
19350: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19351: END IF;
19352: END IF;
19346:
19347: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19348: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19349: ELSE
19350: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19351: END IF;
19352: END IF;
19353: END IF;
19354: --===================================================================================
19371: IF (l_periods_after_ppd > 0) THEN
19372: /*Remaining amts*/
19373: j := j + 1;
19374: idx := idx + 1;
19375: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19376: l_csm_line_details_tbl(j).number_of_periods := l_periods_after_ppd;
19377: l_csm_line_details_tbl(j).period := l_rl_rec.object1_id1;
19378: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
19379: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
19404: l_csm_line_details_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19405: END IF;
19406:
19407: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19408: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19409: ELSE
19410: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19411: END IF;
19412:
19406:
19407: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19408: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19409: ELSE
19410: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19411: END IF;
19412:
19413: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19414: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19410: l_csm_line_details_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19411: END IF;
19412:
19413: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19414: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19415: ELSE
19416: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19417: END IF;
19418: END IF;--End of condition l_periods_after_ppd >0
19412:
19413: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19414: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19415: ELSE
19416: l_csm_line_details_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19417: END IF;
19418: END IF;--End of condition l_periods_after_ppd >0
19419:
19420: END IF;--The condition check for the date of every PPD in the ppd_tbl
19458: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
19459: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19460: END IF;
19461: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19462: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19463: ELSE
19464: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19465: END IF;
19466: -- Code for user defined streams
19460: END IF;
19461: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19462: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19463: ELSE
19464: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19465: END IF;
19466: -- Code for user defined streams
19467: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
19468: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
19466: -- Code for user defined streams
19467: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
19468: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
19469: -- code ends here
19470: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
19471: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
19472: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
19473: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19474: ELSE
19469: -- code ends here
19470: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
19471: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
19472: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
19473: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19474: ELSE
19475: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19476: END If;
19477: -- End of Bug#2757289 modification
19471: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) THEN
19472: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) THEN
19473: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19474: ELSE
19475: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19476: END If;
19477: -- End of Bug#2757289 modification
19478:
19479: -- Added by kthiruva on 29-Dec-2005.
19479: -- Added by kthiruva on 29-Dec-2005.
19480: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
19481: -- Bug 4915938 - Start of Changes
19482: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19483: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19484: ELSE
19485: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19486: END IF;
19487: -- Bug 4915938 - End of Changes
19481: -- Bug 4915938 - Start of Changes
19482: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19483: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19484: ELSE
19485: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19486: END IF;
19487: -- Bug 4915938 - End of Changes
19488:
19489: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19510: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
19511: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
19512: END IF;
19513: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19514: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19515: ELSE
19516: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19517: END IF;
19518: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19512: END IF;
19513: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
19514: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19515: ELSE
19516: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19517: END IF;
19518: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19519: --sechawla 11-sep-09 8798556
19520: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
19522: ELSE
19523: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19524: END IF;
19525: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19526: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19527: ELSE
19528: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19529: END IF;
19530: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
19524: END IF;
19525: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
19526: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
19527: ELSE
19528: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19529: END IF;
19530: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
19531: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
19532: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
19528: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19529: END IF;
19530: --IF ( UPPER(l_strm_name_rec.name) = 'INTEREST PAYMENT' ) THEN
19531: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
19532: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
19533: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
19534: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
19535: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19536: ELSE
19531: IF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'INTEREST_PAYMENT' ) THEN
19532: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
19533: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
19534: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
19535: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19536: ELSE
19537: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19538: END If;
19539: END IF;
19533: --ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL PAYMENT' ) Then
19534: ELSIF ( UPPER(l_strm_name_rec.stream_type_purpose) = 'PRINCIPAL_PAYMENT' ) Then
19535: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19536: ELSE
19537: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19538: END If;
19539: END IF;
19540: END LOOP;
19541: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
19541: ELSIf ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) Then
19542: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
19543: l := l + 1;
19544: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
19545: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19546: l_csm_one_off_fee_tbl(l).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19547: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
19548: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
19549: Else
19788: x_msg_data OUT NOCOPY VARCHAR2,
19789: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
19790: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19791: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19792: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19793: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19794: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19795: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
19796: p_orp_code IN VARCHAR2 DEFAULT NULL) AS
19789: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
19790: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19791: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19792: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19793: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19794: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19795: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
19796: p_orp_code IN VARCHAR2 DEFAULT NULL) AS
19797:
19790: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19791: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19792: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19793: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19794: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19795: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
19796: p_orp_code IN VARCHAR2 DEFAULT NULL) AS
19797:
19798: --Added by kthiruva on 18-Apr-2006 for Bug 5161075
19791: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19792: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19793: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19794: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19795: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
19796: p_orp_code IN VARCHAR2 DEFAULT NULL) AS
19797:
19798: --Added by kthiruva on 18-Apr-2006 for Bug 5161075
19799: --This cursor determines whether there have been any Paydowns on this Contract
19895: x_msg_data OUT NOCOPY VARCHAR2,
19896: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
19897: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19898: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19899: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19900: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19901: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19902: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
19903:
19896: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
19897: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19898: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19899: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19900: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19901: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19902: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
19903:
19904: --Added by kthiruva on 18-Apr-2006 for Bug 5161075
19897: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
19898: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19899: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19900: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19901: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19902: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
19903:
19904: --Added by kthiruva on 18-Apr-2006 for Bug 5161075
19905: --This cursor determines whether there have been any Paydowns on this Contract
19898: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type,
19899: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
19900: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
19901: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
19902: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
19903:
19904: --Added by kthiruva on 18-Apr-2006 for Bug 5161075
19905: --This cursor determines whether there have been any Paydowns on this Contract
19906: CURSOR is_payment_available_csr(chrId NUMBER,
20043: p_deal_type IN VARCHAR2,
20044: x_return_status OUT NOCOPY VARCHAR2,
20045: x_msg_count OUT NOCOPY NUMBER,
20046: x_msg_data OUT NOCOPY VARCHAR2,
20047: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20044: x_return_status OUT NOCOPY VARCHAR2,
20045: x_msg_count OUT NOCOPY NUMBER,
20046: x_msg_data OUT NOCOPY VARCHAR2,
20047: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20045: x_msg_count OUT NOCOPY NUMBER,
20046: x_msg_data OUT NOCOPY VARCHAR2,
20047: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20053: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20046: x_msg_data OUT NOCOPY VARCHAR2,
20047: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20053: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20054: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
20047: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20053: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20054: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
20055:
20048: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20053: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20054: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
20055:
20056: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE_DEAL';
20049: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20050: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
20051: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
20052: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
20053: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
20054: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
20055:
20056: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE_DEAL';
20057: l_api_version CONSTANT NUMBER := 1;
20443:
20444: l_pdtv_rec pdtv_rec_type;
20445: lx_pdt_param_rec pdt_param_rec_type;
20446: l_ast_dtl_tbl ast_dtl_tbl_type;
20447: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20444: l_pdtv_rec pdtv_rec_type;
20445: lx_pdt_param_rec pdt_param_rec_type;
20446: l_ast_dtl_tbl ast_dtl_tbl_type;
20447: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20445: lx_pdt_param_rec pdt_param_rec_type;
20446: l_ast_dtl_tbl ast_dtl_tbl_type;
20447: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20446: l_ast_dtl_tbl ast_dtl_tbl_type;
20447: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20454: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20447: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20454: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20455: l_line_rec l_line_rec_csr_lease%ROWTYPE;
20448: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20454: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20455: l_line_rec l_line_rec_csr_lease%ROWTYPE;
20456: l_hdr_rec l_hdr_csr_lease%ROWTYPE;
20449: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20454: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20455: l_line_rec l_line_rec_csr_lease%ROWTYPE;
20456: l_hdr_rec l_hdr_csr_lease%ROWTYPE;
20457: l_rl_rec l_sll_csr_lease%ROWTYPE;
20450: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
20451: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20452: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
20453: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
20454: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
20455: l_line_rec l_line_rec_csr_lease%ROWTYPE;
20456: l_hdr_rec l_hdr_csr_lease%ROWTYPE;
20457: l_rl_rec l_sll_csr_lease%ROWTYPE;
20458: l_hdrrl_rec l_hdrrl_csr_lease%ROWTYPE;
20602: OPEN l_financed_type_csr (chrId => p_chr_id);
20603: FETCH l_financed_type_csr INTO ln_fin_yn;
20604: CLOSE l_financed_type_csr;
20605: IF ln_fin_yn = 1 THEN
20606: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_BOTH;
20607: ELSIF ln_fin_yn = 0 THEN
20608: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LESSOR;
20609: END IF;
20610: -- to get the locatin of the asset
20604: CLOSE l_financed_type_csr;
20605: IF ln_fin_yn = 1 THEN
20606: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_BOTH;
20607: ELSIF ln_fin_yn = 0 THEN
20608: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LESSOR;
20609: END IF;
20610: -- to get the locatin of the asset
20611: OPEN ib_csr_lease(TO_NUMBER(p_chr_id));
20612: FETCH ib_csr_lease into l_ib_rec;
20622: CLOSE ib_csr_lease;
20623: l_csm_lease_header.country := l_ib_rec.country;
20624: IF p_orp_code IS NOT NULL
20625: THEN
20626: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
20627: ELSE
20628: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20629: END IF;
20630: -- l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20624: IF p_orp_code IS NOT NULL
20625: THEN
20626: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
20627: ELSE
20628: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20629: END IF;
20630: -- l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20631: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
20632: -- get header rule info
20626: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_UPGRADE;
20627: ELSE
20628: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20629: END IF;
20630: -- l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20631: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
20632: -- get header rule info
20633: OPEN l_hdrrl_csr_lease('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
20634: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
20627: ELSE
20628: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20629: END IF;
20630: -- l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
20631: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
20632: -- get header rule info
20633: OPEN l_hdrrl_csr_lease('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
20634: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
20635: CLOSE l_hdrrl_csr_lease;
20660: --l_csm_stream_types_tbl(m).stream_type_id := l_strmid_rec.styid;
20661: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
20662: l_csm_stream_types_tbl(m).pricing_name := l_sty_id.pricing_name;
20663: END IF;
20664: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_YES;
20665: -- get header rule info
20666: OPEN l_hdrrl_csr_lease('LARVIN', 'LARVAM', TO_NUMBER(p_chr_id));
20667: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
20668: CLOSE l_hdrrl_csr_lease;
21427: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
21428: l_rents_tbl(j).period := g_stub_rec.period;
21429: l_rents_tbl(j).description := l_strm_name;
21430: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
21431: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21432: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21433: l_rents_tbl(j).days_in_month := l_days_in_month_code;
21434: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
21435: -- Added by RGOOTY : ESG Down Payment Enhancements. Bug 4629365: Start
21428: l_rents_tbl(j).period := g_stub_rec.period;
21429: l_rents_tbl(j).description := l_strm_name;
21430: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
21431: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21432: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21433: l_rents_tbl(j).days_in_month := l_days_in_month_code;
21434: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
21435: -- Added by RGOOTY : ESG Down Payment Enhancements. Bug 4629365: Start
21436: IF l_line_rec.capitalize_down_payment_yn = 'N' AND
21448: -- Added by kthiruva on 29-Dec-2005.
21449: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21450: -- Bug 4915938 - Start of Changes
21451: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21452: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21453: ELSE
21454: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21455: END IF;
21456: -- Bug 4915938 - End of Changes
21450: -- Bug 4915938 - Start of Changes
21451: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21452: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21453: ELSE
21454: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21455: END IF;
21456: -- Bug 4915938 - End of Changes
21457: -- Bug 8978040 : RGOOTY
21458: IF l_PROSPECTIVE_REBOOK_YN = 'Y' THEN
21474: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
21475: l_rents_tbl(j).period := g_stub_rec.period;
21476: l_rents_tbl(j).description := l_strm_name;
21477: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
21478: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21479: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21480: l_rents_tbl(j).days_in_month := l_days_in_month_code;
21481: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
21482: -- Added by RGOOTY : ESG Down Payment Enhancements. Bug 4629365: Start
21475: l_rents_tbl(j).period := g_stub_rec.period;
21476: l_rents_tbl(j).description := l_strm_name;
21477: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
21478: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21479: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21480: l_rents_tbl(j).days_in_month := l_days_in_month_code;
21481: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
21482: -- Added by RGOOTY : ESG Down Payment Enhancements. Bug 4629365: Start
21483: IF l_line_rec.capitalize_down_payment_yn = 'N'
21501: -- Added by kthiruva on 29-Dec-2005.
21502: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21503: -- Bug 4915938 - Start of Changes
21504: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21505: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21506: ELSE
21507: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21508: END IF;
21509: -- Bug 4915938 - End of Changes
21503: -- Bug 4915938 - Start of Changes
21504: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21505: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21506: ELSE
21507: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21508: END IF;
21509: -- Bug 4915938 - End of Changes
21510: -- Bug 8978040 : RGOOTY
21511: --Commented IF condition by bkatraga for bug 13693187
21518: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21519: j := j + 1;
21520: idx := idx + 1;
21521: l_rents_tbl(j).level_index_number := idx;
21522: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21523: l_rents_tbl(j).description := l_strm_name;
21524: l_rents_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
21525: l_rents_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21526: l_rents_tbl(j).period := l_rl_rec.object1_id1;
21523: l_rents_tbl(j).description := l_strm_name;
21524: l_rents_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
21525: l_rents_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21526: l_rents_tbl(j).period := l_rl_rec.object1_id1;
21527: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21528: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
21529: l_rents_tbl(j).days_in_month := l_days_in_month_code;
21530: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
21531: -- Added by RGOOTY : ESG Down Payment Enhancements. Bug 4629365: Start
21550: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
21551: l_rents_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
21552: END If;
21553: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21554: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21555: ELSE
21556: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21557: END IF;
21558: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
21552: END If;
21553: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21554: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21555: ELSE
21556: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21557: END IF;
21558: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
21559: --sechawla 11-sep-09 8798556
21560: --l_rents_tbl(j).date_start := l_hdr_rec.start_date;
21591: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
21592: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21593: --end if;
21594:
21595: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21596: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21597: l_csm_periodic_expenses_tbl(k).cash_effect_yn := 'N';
21598: l_csm_periodic_expenses_tbl(k).tax_effect_yn := 'N';
21599: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21592: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21593: --end if;
21594:
21595: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21596: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21597: l_csm_periodic_expenses_tbl(k).cash_effect_yn := 'N';
21598: l_csm_periodic_expenses_tbl(k).tax_effect_yn := 'N';
21599: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21600: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
21607: -- Added by kthiruva on 29-Dec-2005.
21608: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21609: -- Bug 4915938 - Start of Changes
21610: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21611: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21612: ELSE
21613: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21614: END IF;
21615: -- Bug 4915938 - End of Changes
21609: -- Bug 4915938 - Start of Changes
21610: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21611: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21612: ELSE
21613: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21614: END IF;
21615: -- Bug 4915938 - End of Changes
21616: END IF;
21617: */
21626: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
21627: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
21628: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
21629: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
21630: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21631: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21632: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21633: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
21634:
21627: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
21628: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
21629: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
21630: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21631: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21632: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21633: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
21634:
21635: --sechawla 15-Jul-09 PRB ESG enhancements : set orig_contract_line_id on Rent
21649: -- Added by kthiruva on 29-Dec-2005.
21650: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21651: -- Bug 4915938 - Start of Changes
21652: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21653: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21654: ELSE
21655: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21656: END IF;
21657: -- Bug 4915938 - End of Changes
21651: -- Bug 4915938 - Start of Changes
21652: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21653: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21654: ELSE
21655: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21656: END IF;
21657: -- Bug 4915938 - End of Changes
21658:
21659: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21662: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21663: k := k + 1;
21664: idx := idx + 1;
21665: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21666: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21667: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21668: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
21669: l_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21670: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
21674: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
21675: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21676: --end if;
21677:
21678: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21679: l_csm_periodic_expenses_tbl(k).cash_effect_yn := 'N';
21680: l_csm_periodic_expenses_tbl(k).tax_effect_yn := 'N';
21681: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21682: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
21684: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
21685: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
21686: END If;
21687: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21688: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21689: ELSE
21690: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21691: END IF;
21692: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21686: END If;
21687: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21688: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21689: ELSE
21690: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21691: END IF;
21692: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21693: --sechawla 11-sep-09 8798556
21694: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
21730: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
21731: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21732: --end if;
21733:
21734: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21735: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21736: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21737: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
21738:
21731: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21732: --end if;
21733:
21734: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21735: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21736: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21737: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
21738:
21739: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
21744: -- Added by kthiruva on 29-Dec-2005.
21745: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21746: -- Bug 4915938 - Start of Changes
21747: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21748: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21749: ELSE
21750: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21751: END IF;
21752: -- Bug 4915938 - End of Changes
21746: -- Bug 4915938 - Start of Changes
21747: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21748: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21749: ELSE
21750: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21751: END IF;
21752: -- Bug 4915938 - End of Changes
21753:
21754: END IF;
21765: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
21766: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
21767: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
21768: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
21769: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21770: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21771: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21772: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
21773:
21766: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
21767: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
21768: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
21769: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21770: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21771: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21772: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
21773:
21774: --sechawla 15-JUL-09 : PRB ESG Enhancements : assigne orig_contract_line_id
21787: -- Added by kthiruva on 29-Dec-2005.
21788: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
21789: -- Bug 4915938 - Start of Changes
21790: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21791: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21792: ELSE
21793: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21794: END IF;
21795: -- Bug 4915938 - End of Changes
21789: -- Bug 4915938 - Start of Changes
21790: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21791: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21792: ELSE
21793: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21794: END IF;
21795: -- Bug 4915938 - End of Changes
21796:
21797: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21800: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21801: k := k + 1;
21802: idx := idx + 1;
21803: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21804: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21805: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
21806: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
21807: l_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21808: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
21812: --if l_PROSPECTIVE_REBOOK_YN = 'Y' then
21813: l_csm_periodic_expenses_tbl(k).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21814: --end if;
21815:
21816: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21817: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
21818: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
21819:
21820: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
21820: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
21821: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
21822: END If;
21823: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21824: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21825: ELSE
21826: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21827: END IF;
21828: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21822: END If;
21823: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
21824: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21825: ELSE
21826: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21827: END IF;
21828: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21829: --sechawla 11-sep-09 8798556
21830: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
21844: (UPPER(TRIM(l_strm_name)) <> 'DOWN_PAYMENT') ) THEN
21845: FOR l_rl_rec in l_sll_csr_lease (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
21846: l := l + 1;
21847: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
21848: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21849: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21850: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21851: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
21852: ELSE
22099: p_chr_id IN VARCHAR2,
22100: x_return_status OUT NOCOPY VARCHAR2,
22101: x_msg_count OUT NOCOPY NUMBER,
22102: x_msg_data OUT NOCOPY VARCHAR2,
22103: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22100: x_return_status OUT NOCOPY VARCHAR2,
22101: x_msg_count OUT NOCOPY NUMBER,
22102: x_msg_data OUT NOCOPY VARCHAR2,
22103: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22101: x_msg_count OUT NOCOPY NUMBER,
22102: x_msg_data OUT NOCOPY VARCHAR2,
22103: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22109: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22102: x_msg_data OUT NOCOPY VARCHAR2,
22103: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22109: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22110: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
22103: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22109: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22110: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
22111:
22104: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22109: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22110: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
22111:
22112: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE';
22105: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22106: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
22107: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
22108: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
22109: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
22110: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
22111:
22112: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE';
22113: l_api_version CONSTANT NUMBER := 1;
22187:
22188: l_Trx_Type_rec Transaction_Type_csr%ROWTYPE;
22189: l_hdr_rec l_hdr_csr%ROWTYPE;
22190:
22191: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22188: l_Trx_Type_rec Transaction_Type_csr%ROWTYPE;
22189: l_hdr_rec l_hdr_csr%ROWTYPE;
22190:
22191: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22189: l_hdr_rec l_hdr_csr%ROWTYPE;
22190:
22191: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22190:
22191: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22198: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22191: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22198: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22199:
22192: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22198: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22199:
22200: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22193: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22198: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22199:
22200: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22201: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
22194: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22195: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22196: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22197: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22198: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22199:
22200: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22201: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
22202: x_csm_loan_lines_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
22256:
22257: x_csm_lease_header.purpose_code := 'REPORT';
22258: x_csm_lease_header.sif_id := x_request_id;
22259:
22260: okl_create_streams_pub.create_streams_lease_book(
22261: p_api_version,
22262: p_init_msg_list,
22263: p_skip_prc_engine,
22264: x_csm_lease_header,
22314:
22315: x_csm_loan_header.purpose_code := 'REPORT';
22316: x_csm_loan_header.sif_id := x_request_id;
22317:
22318: okl_create_streams_pub.create_streams_loan_book(
22319: p_api_version => p_api_version,
22320: p_init_msg_list => p_init_msg_list,
22321: p_skip_prc_engine => p_skip_prc_engine,
22322: p_csm_loan_header => x_csm_loan_header,
22441: l_hdr_rec l_hdr_csr%ROWTYPE;
22442: l_strms_orig_rec strms_csr%ROWTYPE;
22443: l_strms_rep_rec strms_csr%ROWTYPE;
22444:
22445: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22442: l_strms_orig_rec strms_csr%ROWTYPE;
22443: l_strms_rep_rec strms_csr%ROWTYPE;
22444:
22445: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22443: l_strms_rep_rec strms_csr%ROWTYPE;
22444:
22445: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22444:
22445: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22452: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22445: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22452: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22453:
22446: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22452: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22453:
22454: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22447: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22452: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22453:
22454: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22455: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
22448: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
22449: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22450: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
22451: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
22452: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
22453:
22454: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
22455: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
22456: x_csm_loan_lines_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
22653: -- ' for fee ' || to_char(nvl( x_req_stream_types_tbl(i).kle_fee_id,-1)) );
22654: -- END LOOP;
22655:
22656:
22657: okl_create_streams_pub.create_streams_lease_book(
22658: p_api_version,
22659: p_init_msg_list,
22660: p_skip_prc_engine,
22661: x_csm_lease_header,
22710: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22711: raise OKL_API.G_EXCEPTION_ERROR;
22712: End If;
22713:
22714: okl_create_streams_pub.create_streams_loan_book(
22715: p_api_version => p_api_version,
22716: p_init_msg_list => p_init_msg_list,
22717: p_skip_prc_engine => p_skip_prc_engine,
22718: p_csm_loan_header => x_csm_loan_header,
24653: p_cle_id IN OKC_K_LINES_B.ID%TYPE,
24654: x_return_status OUT NOCOPY VARCHAR2,
24655: x_msg_count OUT NOCOPY NUMBER,
24656: x_msg_data OUT NOCOPY VARCHAR2,
24657: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24654: x_return_status OUT NOCOPY VARCHAR2,
24655: x_msg_count OUT NOCOPY NUMBER,
24656: x_msg_data OUT NOCOPY VARCHAR2,
24657: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24655: x_msg_count OUT NOCOPY NUMBER,
24656: x_msg_data OUT NOCOPY VARCHAR2,
24657: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24663: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24656: x_msg_data OUT NOCOPY VARCHAR2,
24657: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24663: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24664: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
24657: x_csm_lease_header OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24663: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24664: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
24665: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
24658: x_csm_one_off_fee_tbl OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24663: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24664: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
24665: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
24666: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type)
24659: x_csm_periodic_expenses_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24660: x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type,
24661: x_req_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type,
24662: x_csm_line_details_tbl OUT NOCOPY okl_create_streams_pub.csm_line_details_tbl_type,
24663: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type,
24664: x_csm_loan_header OUT NOCOPY okl_create_streams_pvt.csm_loan_rec_type,
24665: x_csm_loan_lines_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_line_tbl_type,
24666: x_csm_loan_levels_tbl OUT NOCOPY okl_create_streams_pvt.csm_loan_level_tbl_type)
24667: IS
25050: l_txtrans_rec l_txtrans_csr%ROWTYPE;
25051: l_strm_name_rec strm_name_csr%ROWTYPE;
25052: l_ib_rec ib_csr%ROWTYPE;
25053: l_strmid_rec l_strmid_csr%ROWTYPE;
25054: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25051: l_strm_name_rec strm_name_csr%ROWTYPE;
25052: l_ib_rec ib_csr%ROWTYPE;
25053: l_strmid_rec l_strmid_csr%ROWTYPE;
25054: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25052: l_ib_rec ib_csr%ROWTYPE;
25053: l_strmid_rec l_strmid_csr%ROWTYPE;
25054: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25053: l_strmid_rec l_strmid_csr%ROWTYPE;
25054: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25061: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
25054: l_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25061: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
25062: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
25055: l_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25061: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
25062: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
25063: l_csm_loan_details_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
25056: l_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25061: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
25062: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
25063: l_csm_loan_details_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
25064: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
25057: l_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
25058: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
25059: l_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25060: l_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
25061: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
25062: l_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
25063: l_csm_loan_details_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
25064: l_csm_loan_levels_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
25065:
25189: OPEN l_financed_type_csr (chrId => p_chr_id);
25190: FETCH l_financed_type_csr INTO ln_fin_yn;
25191: CLOSE l_financed_type_csr;
25192: IF ln_fin_yn = 1 THEN
25193: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_BOTH;
25194: ELSIF ln_fin_yn = 0 THEN
25195: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LESSOR;
25196: END IF;
25197: -- Getting the install base location
25191: CLOSE l_financed_type_csr;
25192: IF ln_fin_yn = 1 THEN
25193: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_BOTH;
25194: ELSIF ln_fin_yn = 0 THEN
25195: l_csm_lease_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LESSOR;
25196: END IF;
25197: -- Getting the install base location
25198: OPEN ib_csr(p_chr_id);
25199: FETCH ib_csr INTO l_ib_rec;
25205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25206: END IF;
25207: CLOSE ib_csr;
25208: l_csm_lease_header.country := l_ib_rec.country;
25209: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
25210: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
25211: -- Fetching the Header rule for Residual value insurance premium
25212: OPEN l_hdrrl_csr('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
25213: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
25206: END IF;
25207: CLOSE ib_csr;
25208: l_csm_lease_header.country := l_ib_rec.country;
25209: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
25210: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
25211: -- Fetching the Header rule for Residual value insurance premium
25212: OPEN l_hdrrl_csr('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
25213: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
25214: CLOSE l_hdrrl_csr;
25248: */
25249: m := m + 1;
25250: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
25251: l_csm_stream_types_tbl(m).pricing_name := l_sty_id.pricing_name;
25252: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_YES;
25253: OPEN l_hdrrl_csr('LARVIN', 'LARVAM', p_chr_id);
25254: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
25255: CLOSE l_hdrrl_csr;
25256: l_csm_lease_header.rvi_rate := TO_NUMBER(nvl(l_hdrrl_rec.RULE_INFORMATION4,'0'));
25708: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
25709: l_rents_tbl(j).period := g_stub_rec.period;
25710: l_rents_tbl(j).description := l_strm_name;
25711: -- l_rents_tbl(j).kle_asset_id := l_so_line_rec.id;
25712: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25713: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25714: l_rents_tbl(j).days_in_month := l_days_in_month_code;
25715: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
25716: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
25709: l_rents_tbl(j).period := g_stub_rec.period;
25710: l_rents_tbl(j).description := l_strm_name;
25711: -- l_rents_tbl(j).kle_asset_id := l_so_line_rec.id;
25712: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25713: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25714: l_rents_tbl(j).days_in_month := l_days_in_month_code;
25715: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
25716: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
25717: l_rents_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
25721: -- Added by kthiruva on 29-Dec-2005.
25722: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
25723: -- Bug 4915938 - Start of Changes
25724: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25725: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25726: ELSE
25727: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25728: END IF;
25729: -- Bug 4915938 - End of Changes
25723: -- Bug 4915938 - Start of Changes
25724: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25725: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25726: ELSE
25727: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25728: END IF;
25729: -- Bug 4915938 - End of Changes
25730:
25731: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25734: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25735: j := j + 1;
25736: idx := idx + 1;
25737: l_rents_tbl(j).level_index_number := idx;
25738: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25739: l_rents_tbl(j).description := l_strm_name;
25740: l_rents_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
25741: l_rents_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25742: l_rents_tbl(j).period := l_rl_rec.object1_id1;
25739: l_rents_tbl(j).description := l_strm_name;
25740: l_rents_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
25741: l_rents_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25742: l_rents_tbl(j).period := l_rl_rec.object1_id1;
25743: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25744: -- l_rents_tbl(j).kle_asset_id := l_so_line_rec.id;
25745: l_rents_tbl(j).days_in_month := l_days_in_month_code;
25746: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
25747: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
25747: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
25748: l_rents_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
25749: END If;
25750: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25751: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25752: ELSE
25753: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25754: END IF;
25755: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
25749: END If;
25750: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25751: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25752: ELSE
25753: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25754: END IF;
25755: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
25756: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
25757: ELSE
25789: l_rents_tbl(j).date_start := (ld_last_end_date + 1) + ln_diff_days;
25790: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
25791: l_rents_tbl(j).period := g_stub_rec.period;
25792: l_rents_tbl(j).description := l_strm_name;
25793: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25794: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25795: l_rents_tbl(j).days_in_month := l_days_in_month_code;
25796: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
25797:
25790: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
25791: l_rents_tbl(j).period := g_stub_rec.period;
25792: l_rents_tbl(j).description := l_strm_name;
25793: l_rents_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25794: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25795: l_rents_tbl(j).days_in_month := l_days_in_month_code;
25796: l_rents_tbl(j).days_in_year := l_days_in_yr_code;
25797:
25798: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) Then
25802: -- Added by kthiruva on 29-Dec-2005.
25803: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
25804: -- Bug 4915938 - Start of Changes
25805: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25806: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25807: ELSE
25808: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25809: END IF;
25810: -- Bug 4915938 - End of Changes
25804: -- Bug 4915938 - Start of Changes
25805: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25806: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25807: ELSE
25808: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25809: END IF;
25810: -- Bug 4915938 - End of Changes
25811: END IF;
25812: -- End of BAKUCHIB modification bug#3121708
25827: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
25828: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
25829: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
25830: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
25831: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25832: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25833: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
25834: -- l_csm_periodic_expenses_tbl(k).kle_asset_id := l_so_line_rec.id;
25835: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
25828: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
25829: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
25830: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
25831: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25832: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25833: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
25834: -- l_csm_periodic_expenses_tbl(k).kle_asset_id := l_so_line_rec.id;
25835: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
25836: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
25842: -- Added by kthiruva on 29-Dec-2005.
25843: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
25844: -- Bug 4915938 - Start of Changes
25845: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25846: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25847: ELSE
25848: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25849: END IF;
25850: -- Bug 4915938 - End of Changes
25844: -- Bug 4915938 - Start of Changes
25845: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25846: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25847: ELSE
25848: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25849: END IF;
25850: -- Bug 4915938 - End of Changes
25851:
25852: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25855: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25856: k := k + 1;
25857: idx := idx + 1;
25858: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
25859: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25860: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
25861: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
25862: l_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25863: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
25861: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
25862: l_csm_periodic_expenses_tbl(k).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25863: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
25864: -- l_csm_periodic_expenses_tbl(k).kle_asset_id := l_so_line_rec.id;
25865: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25866: l_csm_periodic_expenses_tbl(k).days_in_month := l_days_in_month_code;
25867: l_csm_periodic_expenses_tbl(k).days_in_year := l_days_in_yr_code;
25868:
25869: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
25869: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
25870: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
25871: END If;
25872: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25873: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25874: ELSE
25875: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25876: END IF;
25877: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
25871: END If;
25872: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
25873: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25874: ELSE
25875: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25876: END IF;
25877: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
25878: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
25879: ELSE
25884: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) THEN
25885: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL',p_chr_id, l_so_line_rec.id ) LOOP
25886: l := l + 1;
25887: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
25888: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25889: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25890: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
25891: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
25892: ELSE
25995: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
25996: l_csm_loan_header.date_start := l_hdr_rec.start_date;
25997: l_csm_loan_header.pdt_id := l_hdr_rec.pid;
25998: l_csm_loan_header.country := l_ib_rec.country;
25999: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
26000: l_csm_loan_header.total_lending := l_total_lending;
26001: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
26002: FOR l_line_rec in l_line_rec_csr ( p_chr_id , 'FREE_FORM1') LOOP
26003: i := i + 1;
25997: l_csm_loan_header.pdt_id := l_hdr_rec.pid;
25998: l_csm_loan_header.country := l_ib_rec.country;
25999: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
26000: l_csm_loan_header.total_lending := l_total_lending;
26001: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
26002: FOR l_line_rec in l_line_rec_csr ( p_chr_id , 'FREE_FORM1') LOOP
26003: i := i + 1;
26004: l_csm_loan_details_tbl(i).kle_loan_id := l_line_rec.id;
26005: END LOOP;
26031: l_csm_loan_levels_tbl(j).description := 'Funding';
26032: l_csm_loan_levels_tbl(j).amount := l_total_lending;
26033: l_csm_loan_levels_tbl(j).date_start := l_hdr_rec.start_date;
26034: l_csm_loan_levels_tbl(j).level_index_number := idx;
26035: l_csm_loan_levels_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_FUNDING;
26036: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
26037: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26038:
26039: FOR l_rl_rec in l_rl_csr ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
26047: l_csm_loan_levels_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
26048: l_csm_loan_levels_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
26049: l_csm_loan_levels_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
26050: l_csm_loan_levels_tbl(j).period := g_stub_rec.period;
26051: l_csm_loan_levels_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26052: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
26053: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26054:
26055: --smahapat l_csm_loan_levels_tbl(j).kle_loan_id := l_so_line_rec.id;
26054:
26055: --smahapat l_csm_loan_levels_tbl(j).kle_loan_id := l_so_line_rec.id;
26056: l_csm_loan_levels_tbl(j).description := l_strm_name;
26057: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26058: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26059: ELSE
26060: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26061: END IF;
26062: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26056: l_csm_loan_levels_tbl(j).description := l_strm_name;
26057: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26058: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26059: ELSE
26060: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26061: END IF;
26062: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26063: l_csm_loan_levels_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
26064: END IF;
26066: -- Added by kthiruva on 29-Dec-2005.
26067: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
26068: -- Bug 4915938 - Start of Changes
26069: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26070: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26071: ELSE
26072: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26073: END IF;
26074: -- Bug 4915938 - End of Changes
26068: -- Bug 4915938 - Start of Changes
26069: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26070: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26071: ELSE
26072: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26073: END IF;
26074: -- Bug 4915938 - End of Changes
26075:
26076: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26083: l_csm_loan_levels_tbl(j).description := l_strm_name;
26084: l_csm_loan_levels_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
26085: l_csm_loan_levels_tbl(j).date_start := l_hdr_rec.start_date;
26086: l_csm_loan_levels_tbl(j).level_index_number := idx;
26087: l_csm_loan_levels_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26088: l_csm_loan_levels_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
26089: l_csm_loan_levels_tbl(j).period := l_rl_rec.object1_id1;
26090: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
26091: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26093: IF(l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26094: l_csm_loan_levels_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
26095: END IF;
26096: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26097: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26098: ELSE
26099: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26100: END IF;
26101: IF(l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26095: END IF;
26096: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26097: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26098: ELSE
26099: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26100: END IF;
26101: IF(l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26102: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26103: ELSE
26098: ELSE
26099: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26100: END IF;
26101: IF(l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26102: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26103: ELSE
26104: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26105: END IF;
26106: END IF;
26100: END IF;
26101: IF(l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26102: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26103: ELSE
26104: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26105: END IF;
26106: END IF;
26107: -- Now we get difference in days between contract end_date and last payment end_date
26108: -- Start of BAKUCHIB modification bug#3121708
26134: l_csm_loan_levels_tbl(j).date_start := (ld_last_end_date + 1) + ln_diff_days;
26135: l_csm_loan_levels_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
26136: l_csm_loan_levels_tbl(j).period := g_stub_rec.period;
26137: l_csm_loan_levels_tbl(j).description := l_strm_name;
26138: l_csm_loan_levels_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26139: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
26140: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26141:
26142: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26139: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
26140: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26141:
26142: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26143: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26144: ELSE
26145: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26146: END IF;
26147: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26141:
26142: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26143: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26144: ELSE
26145: l_csm_loan_levels_tbl(j).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26146: END IF;
26147: IF( l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26148: l_csm_loan_levels_tbl(j).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
26149: END IF;
26151: -- Added by kthiruva on 29-Dec-2005.
26152: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
26153: -- Bug 4915938 - Start of Changes
26154: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26155: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26156: ELSE
26157: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26158: END IF;
26159: -- Bug 4915938 - End of Changes
26153: -- Bug 4915938 - Start of Changes
26154: IF ((l_rl_rec.rule_information10 IS NOT NULL) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26155: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26156: ELSE
26157: l_csm_loan_levels_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26158: END IF;
26159: -- Bug 4915938 - End of Changes
26160:
26161: END IF;
26186: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26187: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
26188: END IF;
26189: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26190: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26191: ELSE
26192: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26193: END IF;
26194: IF (UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT') THEN
26188: END IF;
26189: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26190: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26191: ELSE
26192: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26193: END IF;
26194: IF (UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT') THEN
26195: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26196: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) THEN
26191: ELSE
26192: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26193: END IF;
26194: IF (UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT') THEN
26195: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26196: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) THEN
26197: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26198: ELSE
26199: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26193: END IF;
26194: IF (UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT') THEN
26195: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26196: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) THEN
26197: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26198: ELSE
26199: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26200: END If;
26201:
26195: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26196: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) THEN
26197: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26198: ELSE
26199: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26200: END If;
26201:
26202: --Added by kthiruva on 29-Dec-2005.
26203: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
26202: --Added by kthiruva on 29-Dec-2005.
26203: -- The value of the Advance and Arrears flag needs to be obtained from the rule information
26204: -- Bug 4915938 - Start of Changes
26205: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26206: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26207: ELSE
26208: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26209: END IF;
26210: -- Bug 4915938 - End of Changes
26204: -- Bug 4915938 - Start of Changes
26205: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26206: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26207: ELSE
26208: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26209: END IF;
26210: -- Bug 4915938 - End of Changes
26211:
26212: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26227: IF (l_rl_rec.RULE_INFORMATION5 IS NOT NULL) THEN
26228: l_csm_periodic_expenses_tbl(k).structure := TO_NUMBER(l_rl_rec.RULE_INFORMATION5);
26229: END IF;
26230: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26231: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26232: ELSE
26233: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26234: END IF;
26235: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
26229: END IF;
26230: IF (( l_rl_rec.RULE_INFORMATION10 IS NOT NULL ) AND (l_rl_rec.RULE_INFORMATION10 = 'Y')) THEN
26231: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26232: ELSE
26233: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26234: END IF;
26235: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
26236: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
26237: ELSE
26237: ELSE
26238: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
26239: END IF;
26240: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26241: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26242: ELSE
26243: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26244: END IF;
26245: IF ( UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT' ) THEN
26239: END IF;
26240: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
26241: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
26242: ELSE
26243: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26244: END IF;
26245: IF ( UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT' ) THEN
26246: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26247: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) Then
26242: ELSE
26243: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26244: END IF;
26245: IF ( UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT' ) THEN
26246: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26247: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) Then
26248: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26249: ELSE
26250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26244: END IF;
26245: IF ( UPPER(l_strm_name_rec.name) = 'INTEREST_PAYMENT' ) THEN
26246: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26247: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) Then
26248: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26249: ELSE
26250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26251: END If;
26252: END IF;
26246: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_INTEREST;
26247: ELSIF ( UPPER(l_strm_name_rec.name) = 'PRINCIPAL_PAYMENT' ) Then
26248: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
26249: ELSE
26250: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
26251: END If;
26252: END IF;
26253: END LOOP;
26254: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) THEN
26254: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) THEN
26255: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
26256: l := l + 1;
26257: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
26258: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26259: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
26260: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR
26261: l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
26262: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
26530: l_init_msg_list VARCHAR2(1) := OKL_API.G_TRUE;
26531:
26532: l_hdr_rec l_hdr_csr%ROWTYPE;
26533: -- Record Structures required for the Lease Contracts
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26531:
26532: l_hdr_rec l_hdr_csr%ROWTYPE;
26533: -- Record Structures required for the Lease Contracts
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26532: l_hdr_rec l_hdr_csr%ROWTYPE;
26533: -- Record Structures required for the Lease Contracts
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26533: -- Record Structures required for the Lease Contracts
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26541: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26541: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26542: -- Record Structures required for the Loan Contracts
26535: x_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26541: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26542: -- Record Structures required for the Loan Contracts
26543: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
26536: x_csm_periodic_expenses_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26541: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26542: -- Record Structures required for the Loan Contracts
26543: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
26544: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
26537: x_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
26538: x_csm_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26539: x_req_stream_types_tbl okl_create_streams_pub.csm_stream_types_tbl_type;
26540: x_csm_line_details_tbl okl_create_streams_pub.csm_line_details_tbl_type;
26541: x_rents_tbl okl_create_streams_pub.csm_periodic_expenses_tbl_type;
26542: -- Record Structures required for the Loan Contracts
26543: x_csm_loan_header okl_create_streams_pvt.csm_loan_rec_type;
26544: x_csm_lines_details_tbl okl_create_streams_pvt.csm_loan_level_tbl_type;
26545: x_csm_loan_lines_tbl okl_create_streams_pvt.csm_loan_line_tbl_type;
26604: ,p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26605: RAISE OKL_API.G_EXCEPTION_ERROR;
26606: END IF;
26607: print( l_api_name, 'Before Calling the create_streams_lease_book' );
26608: OKL_CREATE_STREAMS_PUB.create_streams_lease_book(
26609: p_api_version => l_api_version
26610: ,p_init_msg_list => l_init_msg_list
26611: ,p_skip_prc_engine => OKL_API.G_FALSE
26612: ,p_csm_lease_header => x_csm_lease_header
26657: RAISE OKL_API.G_EXCEPTION_ERROR;
26658: END IF;
26659:
26660: print( l_api_name, 'Before calling the Create_stream_loan_book API ' );
26661: OKL_CREATE_STREAMS_PUB.create_streams_loan_book(
26662: p_api_version => l_api_version
26663: ,p_init_msg_list => l_init_msg_list
26664: ,p_skip_prc_engine => OKL_API.G_FALSE
26665: ,p_csm_loan_header => x_csm_loan_header