17: SUBTYPE rgpv_rec_type IS OKL_OKC_MIGRATION_PVT.rgpv_rec_type;
18: SUBTYPE rulv_rec_type IS Okl_Rule_Pub.rulv_rec_type;
19: SUBTYPE rulv_tbl_type IS Okl_Rule_Pub.rulv_tbl_type;
20: SUBTYPE chrv_rec_type IS OKL_OKC_MIGRATION_PVT.chrv_rec_type;
21: SUBTYPE khrv_rec_type IS OKL_CONTRACT_PUB.khrv_rec_type;
22:
23: /*
24: -- mvasudev, 08/17/2004
25: -- Added Constants to enable Business Event
441: l_term_duration OKL_K_HEADERS_FULL_V.TERM_DURATION%TYPE DEFAULT NULL;
442:
443: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
444: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
445: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
446: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
447:
448: CURSOR get_k_start_date_and_term_csr(l_chr_id NUMBER) IS
449: -- START: cklee/mvasudev,6/2/2005, Bug#4392051/okl.h 4437938
442:
443: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
444: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
445: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
446: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
447:
448: CURSOR get_k_start_date_and_term_csr(l_chr_id NUMBER) IS
449: -- START: cklee/mvasudev,6/2/2005, Bug#4392051/okl.h 4437938
450: --SELECT ADD_MONTHS(start_date,term_duration)-1
519: lp_chrv_rec.end_date := l_end_date;
520:
521:
522: IF l_end_date IS NOT NULL THEN
523: OKL_CONTRACT_PUB.update_contract_header(
524: p_api_version => p_api_version,
525: p_init_msg_list => p_init_msg_list,
526: x_return_status => x_return_status,
527: x_msg_count => x_msg_count,
1142: x_chr_id OUT NOCOPY NUMBER) AS
1143:
1144: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1145: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1146: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1147: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1148:
1149: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1150: lx_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1143:
1144: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1145: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1146: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1147: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1148:
1149: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1150: lx_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1151:
1316: lp_khrv_rec.object_version_number := 1.0;
1317: lp_khrv_rec.generate_accrual_yn := 'Y';
1318: lp_khrv_rec.generate_accrual_override_yn := 'N';
1319: /*
1320: OKL_CONTRACT_PUB.validate_contract_header(
1321: p_api_version => p_api_version,
1322: p_init_msg_list => p_init_msg_list,
1323: x_return_status => x_return_status,
1324: x_msg_count => x_msg_count,
1331: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1332: raise OKC_API.G_EXCEPTION_ERROR;
1333: End If;
1334: */
1335: OKL_CONTRACT_PUB.create_contract_header(
1336: p_api_version => p_api_version,
1337: p_init_msg_list => p_init_msg_list,
1338: x_return_status => x_return_status,
1339: x_msg_count => x_msg_count,
1566: x_chr_id OUT NOCOPY NUMBER) AS
1567:
1568: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1569: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1570: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1571: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1572:
1573: BEGIN
1574: /*
1567:
1568: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1569: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1570: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1571: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1572:
1573: BEGIN
1574: /*
1575: OKL_QUOTE_TO_CONTRACT_PVT.create_contract(
1615: x_chr_id OUT NOCOPY NUMBER) AS
1616:
1617: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1618: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1619: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1620: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1621:
1622: p_chr_id NUMBER;
1623: x_contract_number VARCHAR2(120);
1616:
1617: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1618: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1619: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1620: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1621:
1622: p_chr_id NUMBER;
1623: x_contract_number VARCHAR2(120);
1624:
1671: p_legal_entity_id IN NUMBER) AS
1672:
1673: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1674: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1675: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1676: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1677:
1678: --Bug# 4558486
1679: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1672:
1673: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1674: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1675: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1676: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1677:
1678: --Bug# 4558486
1679: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1680: lx_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1735: lp_khrv_rec.generate_accrual_yn := 'Y';
1736: lp_khrv_rec.generate_accrual_override_yn := 'N';
1737: --Added by dpsingh for LE Uptake
1738: lp_khrv_rec.legal_entity_id := p_legal_entity_id;
1739: OKL_CONTRACT_PUB.validate_contract_header(
1740: p_api_version => p_api_version,
1741: p_init_msg_list => p_init_msg_list,
1742: x_return_status => x_return_status,
1743: x_msg_count => x_msg_count,
1750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: OKL_CONTRACT_PUB.create_contract_header(
1755: p_api_version => p_api_version,
1756: p_init_msg_list => p_init_msg_list,
1757: x_return_status => x_return_status,
1758: x_msg_count => x_msg_count,
1922: p_legal_entity_id IN NUMBER) AS
1923:
1924: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1925: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1926: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1927: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1928:
1929: --Bug# 4558486
1930: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
1923:
1924: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1925: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
1926: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1927: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
1928:
1929: --Bug# 4558486
1930: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
1931: lx_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
1996: lp_khrv_rec.generate_accrual_yn := 'Y';
1997: lp_khrv_rec.generate_accrual_override_yn := 'N';
1998: --Added by dpsingh for LE Uptake
1999: lp_khrv_rec.legal_entity_id := p_legal_entity_id;
2000: OKL_CONTRACT_PUB.validate_contract_header(
2001: p_api_version => p_api_version,
2002: p_init_msg_list => p_init_msg_list,
2003: x_return_status => x_return_status,
2004: x_msg_count => x_msg_count,
2011: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2012: RAISE OKC_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2015: OKL_CONTRACT_PUB.create_contract_header(
2016: p_api_version => p_api_version,
2017: p_init_msg_list => p_init_msg_list,
2018: x_return_status => x_return_status,
2019: x_msg_count => x_msg_count,
2200: SUBTYPE l_kplv_tbl_type is okl_kpl_pvt.kplv_tbl_type;
2201:
2202: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2203: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2204: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2205: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2206:
2207: --Bug# 4558486
2208: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
2201:
2202: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2203: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2204: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2205: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2206:
2207: --Bug# 4558486
2208: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
2209: lx_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
2322: lp_chrv_rec.template_yn := 'Y';
2323: END IF;
2324: --Added by dpsingh for LE Uptake
2325: lp_khrv_rec.legal_entity_id := p_legal_entity_id;
2326: OKL_CONTRACT_PUB.create_contract_header(
2327: p_api_version => p_api_version,
2328: p_init_msg_list => p_init_msg_list,
2329: x_return_status => x_return_status,
2330: x_msg_count => x_msg_count,
3543: p_source_chr_id IN NUMBER,
3544: x_chr_id OUT NOCOPY NUMBER) AS
3545:
3546: x_new_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3547: x_new_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3548: l_old_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3549: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3550: l_value VARCHAR2(1) := OKL_API.G_FALSE;
3551:
4201: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
4202:
4203: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4204: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4205: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4206: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4207:
4208: /*
4209: -- mvasudev, 08/17/2004
4202:
4203: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4204: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4205: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4206: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4207:
4208: /*
4209: -- mvasudev, 08/17/2004
4210: -- Added PROCEDURE to enable Business Event
4501: lp_chrv_rec.id := x_chr_id;
4502: lp_khrv_rec.id := x_chr_id;
4503: lp_chrv_rec.template_yn := 'Y';
4504:
4505: OKL_CONTRACT_PUB.update_contract_header(
4506: p_api_version => p_api_version,
4507: p_init_msg_list => p_init_msg_list,
4508: x_return_status => x_return_status,
4509: x_msg_count => x_msg_count,
4836: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%TYPE;
4837:
4838: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4839: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4840: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4841: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4842:
4843: /*
4844: -- mvasudev, 08/17/2004
4837:
4838: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4839: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4840: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4841: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
4842:
4843: /*
4844: -- mvasudev, 08/17/2004
4845: -- Added PROCEDURE to enable Business Event
5286: lp_khrv_rec.khr_id := l_program_id;
5287:
5288: END IF;
5289:
5290: OKL_CONTRACT_PUB.update_contract_header(
5291: p_api_version => p_api_version,
5292: p_init_msg_list => p_init_msg_list,
5293: x_return_status => x_return_status,
5294: x_msg_count => x_msg_count,
5322: lp_khrv_rec.khr_id := l_program_id;
5323:
5324: END IF;
5325:
5326: OKL_CONTRACT_PUB.update_contract_header(
5327: p_api_version => p_api_version,
5328: p_init_msg_list => p_init_msg_list,
5329: x_return_status => x_return_status,
5330: x_msg_count => x_msg_count,
5806:
5807: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
5808: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
5809:
5810: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
5811: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
5812:
5813: lp_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5814: lx_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5807: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
5808: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
5809:
5810: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
5811: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
5812:
5813: lp_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5814: lx_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5815:
6082:
6083: lp_khrv_rec.id := p_chr_id;
6084: lp_khrv_rec.khr_id := l_program_id;
6085:
6086: OKL_CONTRACT_PUB.update_contract_header(
6087: p_api_version => p_api_version,
6088: p_init_msg_list => p_init_msg_list,
6089: x_return_status => x_return_status,
6090: x_msg_count => x_msg_count,
6380: lp_khrv_rec.id := p_chr_id;
6381: lp_khrv_rec.deal_type := lx_pdt_param_rec.Deal_Type;
6382: lp_khrv_rec.pdt_id := l_product_id;
6383:
6384: OKL_CONTRACT_PUB.update_contract_header(
6385: p_api_version => p_api_version,
6386: p_init_msg_list => p_init_msg_list,
6387: x_return_status => x_return_status,
6388: x_msg_count => x_msg_count,
6481:
6482: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
6483: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
6484:
6485: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
6486: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
6487:
6488: lp_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
6489: lx_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
6482: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
6483: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
6484:
6485: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
6486: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
6487:
6488: lp_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
6489: lx_lessee_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
6490:
6950: IF( p_durv_rec.cust_id IS NOT NULL AND p_durv_rec.cust_name IS NULL AND l_temp_yn IS NOT NULL AND l_temp_yn = 'Y' ) THEN
6951: lp_chrv_rec.cust_acct_id := NULL;
6952: END IF;
6953:
6954: OKL_CONTRACT_PUB.update_contract_header(
6955: p_api_version => p_api_version,
6956: p_init_msg_list => p_init_msg_list,
6957: x_return_status => x_return_status,
6958: x_msg_count => x_msg_count,
7796: lp_klev_rec.id := l_get_fin_ast_csr.id;
7797: lp_clev_rec.id := l_get_fin_ast_csr.id;
7798: lp_klev_rec.capitalized_interest := NULL;
7799:
7800: OKL_CONTRACT_PUB.update_contract_line(
7801: p_api_version => p_api_version,
7802: p_init_msg_list => p_init_msg_list,
7803: x_return_status => x_return_status,
7804: x_msg_count => x_msg_count,