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,
4538: l_asb_rec asb_rec_type;
4539: lx_calc_asb_rec asb_rec_type;
4540:
4541: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
4542: l_klev_rec okl_contract_pub.klev_rec_type;
4543: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4544:
4545: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4546: lx_klev_rec okl_contract_pub.klev_rec_type;
4542: l_klev_rec okl_contract_pub.klev_rec_type;
4543: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4544:
4545: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4546: lx_klev_rec okl_contract_pub.klev_rec_type;
4547: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4548:
4549: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4550: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4546: lx_klev_rec okl_contract_pub.klev_rec_type;
4547: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4548:
4549: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4550: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4551: lx_def_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4552:
4553: --cursor to get vendor name
4554: cursor l_vendor_csr(p_vendor_id in number) is
4651: --call complex API to create line instance
4652: ----------------------------------------------------------
4653: --dbms_output.put_line(to_char(l_klev_rec.amount));
4654:
4655: OKL_CONTRACT_PUB.create_contract_line(
4656: p_api_version => p_api_version,
4657: p_init_msg_list => p_init_msg_list,
4658: x_return_status => x_return_status,
4659: x_msg_count => x_msg_count,
4980: lx_calc_asb_rec asb_rec_type;
4981:
4982:
4983: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
4984: l_klev_rec okl_contract_pub.klev_rec_type;
4985: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4986:
4987: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4988: lx_klev_rec okl_contract_pub.klev_rec_type;
4984: l_klev_rec okl_contract_pub.klev_rec_type;
4985: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4986:
4987: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4988: lx_klev_rec okl_contract_pub.klev_rec_type;
4989: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4990:
4991: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4992: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4988: lx_klev_rec okl_contract_pub.klev_rec_type;
4989: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4990:
4991: lx_def_clev_rec okl_okc_migration_pvt.clev_rec_type;
4992: lx_def_klev_rec okl_contract_pub.klev_rec_type;
4993: lx_def_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
4994:
4995: l_row_notfound BOOLEAN := TRUE;
4996:
5198: --dbms_output.put_line(to_char(l_klev_rec.amount));
5199: --dbms_output.put_line('before update ' ||to_char(l_klev_rec.subsidy_override_amount));
5200: If l_clev_rec.id <> OKL_API.G_MISS_NUM then
5201:
5202: OKL_CONTRACT_PUB.update_contract_line(
5203: p_api_version => p_api_version,
5204: p_init_msg_list => p_init_msg_list,
5205: x_return_status => x_return_status,
5206: x_msg_count => x_msg_count,
5524: l_db_asb_rec asb_rec_type;
5525: l_row_notfound BOOLEAN := TRUE;
5526:
5527: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
5528: l_klev_rec okl_contract_pub.klev_rec_type;
5529: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
5530:
5531: --cursor to fetch party refund details record
5532: cursor l_ppyd_csr (p_cpl_id in number) is
5624:
5625: l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
5626: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
5627:
5628: OKL_CONTRACT_PUB.delete_contract_line(
5629: p_api_version => p_api_version,
5630: p_init_msg_list => p_init_msg_list,
5631: x_return_status => x_return_status,
5632: x_msg_count => x_msg_count,