197: PROCEDURE Fill_up_defaults(x_return_status OUT NOCOPY VARCHAR2,
198: p_asb_rec IN asb_rec_type,
199: p_db_asb_rec IN asb_rec_type,
200: x_clev_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.clev_rec_type,
201: x_klev_rec OUT NOCOPY OKL_CONTRACT_PUB.klev_rec_type,
202: x_cplv_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.cplv_rec_type) is
203:
204: l_asb_rec asb_rec_type;
205: l_db_asb_rec asb_rec_type;
241:
242: l_vendor_id number;
243:
244: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
245: l_klev_rec okl_contract_pub.klev_rec_type;
246: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
247:
248: l_temp_sub_id Number;
249:
409: --------------------------------------------------------------------------------
410: PROCEDURE Initialize_records(x_return_status OUT NOCOPY VARCHAR2,
411: p_asb_rec IN asb_rec_type,
412: x_clev_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.clev_rec_type,
413: x_klev_rec OUT NOCOPY OKL_CONTRACT_PUB.klev_rec_type,
414: x_cplv_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.cplv_rec_type) is
415:
416: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
417: l_api_name CONSTANT varchar2(30) := 'INITIALIZE_RECORDS';
418: l_api_version CONSTANT NUMBER := 1.0;
419:
420: l_asb_rec asb_rec_type;
421: l_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
422: l_klev_rec OKL_CONTRACT_PUB.klev_rec_type;
423: l_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
424:
425: --cursor to get effectivity dates and stream type
426: cursor l_sub_csr (p_sub_id in number) is
698: l_sub_oec number;
699: l_sub_cap_amount number;
700:
701: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
702: l_klev_rec okl_contract_pub.klev_rec_type;
703: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
704: lx_klev_rec okl_contract_pub.klev_rec_type;
705:
706: --cursor to fetch asset number for exception
700:
701: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
702: l_klev_rec okl_contract_pub.klev_rec_type;
703: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
704: lx_klev_rec okl_contract_pub.klev_rec_type;
705:
706: --cursor to fetch asset number for exception
707: cursor l_clet_csr (p_cle_id in number) is
708: select clet.name
809: --we do not intend to maintain subsidized costs as discount is built in line_cap_amount
810: --l_klev_rec.subsidized_oec := l_sub_oec;
811: --l_klev_rec.subsidized_cap_amount := l_sub_cap_amount;
812:
813: okl_contract_pub.update_contract_line
814: (p_api_version => p_api_version,
815: p_init_msg_list => p_init_msg_list,
816: x_return_status => x_return_status,
817: x_msg_count => x_msg_count,
898: l_subsidy_amount number;
899:
900:
901: l_sub_clev_rec okl_okc_migration_pvt.clev_rec_type;
902: l_sub_klev_rec okl_contract_pub.klev_rec_type;
903: lx_sub_clev_rec okl_okc_migration_pvt.clev_rec_type;
904: lx_sub_klev_rec okl_contract_pub.klev_rec_type;
905:
906: lv_subsidy_amount NUMBER;
900:
901: l_sub_clev_rec okl_okc_migration_pvt.clev_rec_type;
902: l_sub_klev_rec okl_contract_pub.klev_rec_type;
903: lx_sub_clev_rec okl_okc_migration_pvt.clev_rec_type;
904: lx_sub_klev_rec okl_contract_pub.klev_rec_type;
905:
906: lv_subsidy_amount NUMBER;
907:
908: begin
972: l_sub_clev_rec.id := l_asb_rec.subsidy_cle_id;
973: l_sub_klev_rec.id := l_asb_rec.subsidy_cle_id;
974: l_sub_klev_rec.amount := l_subsidy_amount;
975:
976: okl_contract_pub.update_contract_line
977: (p_api_version => p_api_version,
978: p_init_msg_list => p_init_msg_list,
979: x_return_status => x_return_status,
980: x_msg_count => x_msg_count,
4517: l_asb_rec asb_rec_type;
4518: lx_calc_asb_rec asb_rec_type;
4519:
4520: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
4521: l_klev_rec okl_contract_pub.klev_rec_type;
4522: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4523:
4524: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4525: lx_klev_rec okl_contract_pub.klev_rec_type;
4521: l_klev_rec okl_contract_pub.klev_rec_type;
4522: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4523:
4524: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4525: lx_klev_rec okl_contract_pub.klev_rec_type;
4526: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4527:
4528: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4529: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4525: lx_klev_rec okl_contract_pub.klev_rec_type;
4526: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4527:
4528: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4529: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4530: lx_def_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4531:
4532: --cursor to get vendor name
4533: cursor l_vendor_csr(p_vendor_id in number) is
4630: --call complex API to create line instance
4631: ----------------------------------------------------------
4632: --dbms_output.put_line(to_char(l_klev_rec.amount));
4633:
4634: OKL_CONTRACT_PUB.create_contract_line(
4635: p_api_version => p_api_version,
4636: p_init_msg_list => p_init_msg_list,
4637: x_return_status => x_return_status,
4638: x_msg_count => x_msg_count,
4959: lx_calc_asb_rec asb_rec_type;
4960:
4961:
4962: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
4963: l_klev_rec okl_contract_pub.klev_rec_type;
4964: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4965:
4966: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4967: lx_klev_rec okl_contract_pub.klev_rec_type;
4963: l_klev_rec okl_contract_pub.klev_rec_type;
4964: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4965:
4966: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4967: lx_klev_rec okl_contract_pub.klev_rec_type;
4968: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4969:
4970: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4971: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4967: lx_klev_rec okl_contract_pub.klev_rec_type;
4968: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4969:
4970: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4971: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4972: lx_def_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4973:
4974: l_row_notfound BOOLEAN := TRUE;
4975:
5177: --dbms_output.put_line(to_char(l_klev_rec.amount));
5178: --dbms_output.put_line('before update ' ||to_char(l_klev_rec.subsidy_override_amount));
5179: If l_clev_rec.id <> OKL_API.G_MISS_NUM then
5180:
5181: OKL_CONTRACT_PUB.update_contract_line(
5182: p_api_version => p_api_version,
5183: p_init_msg_list => p_init_msg_list,
5184: x_return_status => x_return_status,
5185: x_msg_count => x_msg_count,
5503: l_db_asb_rec asb_rec_type;
5504: l_row_notfound BOOLEAN := TRUE;
5505:
5506: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
5507: l_klev_rec okl_contract_pub.klev_rec_type;
5508: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
5509:
5510: --cursor to fetch party refund details record
5511: cursor l_ppyd_csr (p_cpl_id in number) is
5603:
5604: l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
5605: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
5606:
5607: OKL_CONTRACT_PUB.delete_contract_line(
5608: p_api_version => p_api_version,
5609: p_init_msg_list => p_init_msg_list,
5610: x_return_status => x_return_status,
5611: x_msg_count => x_msg_count,