872: -- Get SLH Rule from OLD Contract
873: --
874: Okl_Rule_Apis_Pvt.Get_Contract_Rules(
875: p_api_version => 1.0,
876: p_init_msg_list => Okl_Api.G_FALSE,
877: p_rgpv_rec => l_old_rgpv_rec,
878: p_rdf_code => 'LASLH',
879: x_return_status => x_return_status,
880: x_msg_count => x_msg_count,
1043: p_old_rgp_id => l_old_lalevl_id,
1044: p_new_rgp_id => l_new_lalevl_id
1045: );
1046: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1047: RAISE Okl_Api.G_EXCEPTION_ERROR;
1048: END IF;
1049: END LOOP;
1050:
1051: EXCEPTION
1119: p_old_rgp_id => l_old_lalevl_id,
1120: p_new_rgp_id => l_new_lalevl_id
1121: );
1122: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1123: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: END IF;
1125: END LOOP;
1126:
1127: EXCEPTION
1488: p_new_chr_id => l_chr_id
1489: );
1490:
1491: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1495: END LOOP;
1496: CLOSE new_c_lines;
3529: x_new_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3530: x_new_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3531: l_old_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3532: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3533: l_value VARCHAR2(1) := OKL_API.G_FALSE;
3534:
3535: CURSOR l_source_k_num_crs IS
3536: SELECT contract_number
3537: FROM okc_k_headers_b
3578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3579: RAISE OKC_API.G_EXCEPTION_ERROR;
3580: END IF;
3581:
3582: IF(l_value = OKL_API.G_TRUE) THEN
3583: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3584: , p_msg_name => 'OKL_LLA_CONTRACT_SECU_ERROR'
3585: );
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
4203:
4204: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4205: -- Raise the event if it is a new Contract
4206: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4207: --IF (l_check= OKL_API.G_TRUE) THEN
4208: IF (upper(p_source_code) = 'NEW') THEN
4209: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
4210:
4211: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
4219: END IF;
4220:
4221: EXCEPTION
4222: WHEN OTHERS THEN
4223: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4225: END raise_business_event;
4226:
4227:
4220:
4221: EXCEPTION
4222: WHEN OTHERS THEN
4223: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4225: END raise_business_event;
4226:
4227:
4228: /*
4510: -- Code change to enable Business Event
4511: */
4512: raise_business_event(p_chr_id => x_chr_id
4513: ,x_return_status => x_return_status);
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4511: */
4512: raise_business_event(p_chr_id => x_chr_id
4513: ,x_return_status => x_return_status);
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4512: raise_business_event(p_chr_id => x_chr_id
4513: ,x_return_status => x_return_status);
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4520: /*
4513: ,x_return_status => x_return_status);
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4520: /*
4521: -- mvasudev, 08/17/2004
4879:
4880: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4881: -- Raise the event if it is a new Contract
4882: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4883: --IF (l_check= OKL_API.G_TRUE) THEN
4884: IF (upper(p_source_code) = 'NEW') THEN
4885: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
4886:
4887: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
4895: END IF;
4896:
4897: EXCEPTION
4898: WHEN OTHERS THEN
4899: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: END raise_business_event;
4902:
4903:
4896:
4897: EXCEPTION
4898: WHEN OTHERS THEN
4899: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: END raise_business_event;
4902:
4903:
4904: /*
5472: -- Code change to enable Business Event
5473: */
5474: raise_business_event(p_chr_id => x_chr_id
5475: ,x_return_status => x_return_status);
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5473: */
5474: raise_business_event(p_chr_id => x_chr_id
5475: ,x_return_status => x_return_status);
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5474: raise_business_event(p_chr_id => x_chr_id
5475: ,x_return_status => x_return_status);
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: /*
5475: ,x_return_status => x_return_status);
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: /*
5483: -- mvasudev, 08/17/2004
6854:
6855: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
6856: -- Raise the event if it is a new Contract
6857: l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
6858: IF (l_check= OKL_API.G_TRUE) THEN
6859: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
6860: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
6861: p_init_msg_list => p_init_msg_list,
6862: x_return_status => x_return_status,
6868: END IF;
6869:
6870: EXCEPTION
6871: WHEN OTHERS THEN
6872: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: END raise_business_event;
6875:
6876: /*
6869:
6870: EXCEPTION
6871: WHEN OTHERS THEN
6872: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6874: END raise_business_event;
6875:
6876: /*
6877: -- mvasudev, 08/17/2004
6910: FETCH c_chk_pdt_effective INTO l_chk_pdt;
6911: CLOSE c_chk_pdt_effective;
6912:
6913: IF l_chk_pdt IS NULL THEN
6914: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INACTIVE_PDT');
6915: RAISE OKC_API.G_EXCEPTION_ERROR;
6916: END IF;
6917: -- ER# 9115610 - End
6918:
7188: OPEN c_orig_pdt_csr(p_chr_id => lp_chrv_rec.id);
7189: FETCH c_orig_pdt_csr INTO l_orig_pdt_rec;
7190: CLOSE c_orig_pdt_csr;
7191:
7192: IF (NVL(l_orig_pdt_rec.pdt_id, OKL_API.G_MISS_NUM) <>
7193: NVL(lp_khrv_rec.pdt_id, OKL_API.G_MISS_NUM)) THEN
7194:
7195: l_count := 0;
7196: FOR l_rates_rec IN c_rates_csr(lp_chrv_rec.id, 'ACTUAL') LOOP
7189: FETCH c_orig_pdt_csr INTO l_orig_pdt_rec;
7190: CLOSE c_orig_pdt_csr;
7191:
7192: IF (NVL(l_orig_pdt_rec.pdt_id, OKL_API.G_MISS_NUM) <>
7193: NVL(lp_khrv_rec.pdt_id, OKL_API.G_MISS_NUM)) THEN
7194:
7195: l_count := 0;
7196: FOR l_rates_rec IN c_rates_csr(lp_chrv_rec.id, 'ACTUAL') LOOP
7197: l_count := l_count + 1;
7208: x_msg_count => x_msg_count,
7209: x_msg_data => x_msg_data,
7210: p_krpdel_tbl => l_krpdel_tbl);
7211:
7212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7215: RAISE OKL_API.G_EXCEPTION_ERROR;
7216: END IF;
7209: x_msg_data => x_msg_data,
7210: p_krpdel_tbl => l_krpdel_tbl);
7211:
7212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7215: RAISE OKL_API.G_EXCEPTION_ERROR;
7216: END IF;
7217:
7210: p_krpdel_tbl => l_krpdel_tbl);
7211:
7212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7215: RAISE OKL_API.G_EXCEPTION_ERROR;
7216: END IF;
7217:
7218: END IF;
7211:
7212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7215: RAISE OKL_API.G_EXCEPTION_ERROR;
7216: END IF;
7217:
7218: END IF;
7219: END IF;
8264: -- Code change to enable Business Event
8265: */
8266: raise_business_event(p_chr_id => p_durv_rec.chr_id
8267: ,x_return_status => x_return_status);
8268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8271: RAISE OKL_API.G_EXCEPTION_ERROR;
8272: END IF;
8265: */
8266: raise_business_event(p_chr_id => p_durv_rec.chr_id
8267: ,x_return_status => x_return_status);
8268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8271: RAISE OKL_API.G_EXCEPTION_ERROR;
8272: END IF;
8273:
8266: raise_business_event(p_chr_id => p_durv_rec.chr_id
8267: ,x_return_status => x_return_status);
8268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8271: RAISE OKL_API.G_EXCEPTION_ERROR;
8272: END IF;
8273:
8274: /*
8267: ,x_return_status => x_return_status);
8268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8271: RAISE OKL_API.G_EXCEPTION_ERROR;
8272: END IF;
8273:
8274: /*
8275: -- mvasudev, 08/17/2004
8615:
8616:
8617: Procedure confirm_cancel_contract
8618: (p_api_version IN NUMBER,
8619: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8620: x_return_status OUT NOCOPY VARCHAR2,
8621: x_msg_count OUT NOCOPY NUMBER,
8622: x_msg_data OUT NOCOPY VARCHAR2,
8623: p_contract_id IN NUMBER,
8622: x_msg_data OUT NOCOPY VARCHAR2,
8623: p_contract_id IN NUMBER,
8624: p_contract_number IN VARCHAR2) AS
8625:
8626: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8627: l_api_name CONSTANT varchar2(30) := 'confirm_cancel_contract';
8628: l_api_version CONSTANT NUMBER := 1.0;
8629:
8630: Begin
8627: l_api_name CONSTANT varchar2(30) := 'confirm_cancel_contract';
8628: l_api_version CONSTANT NUMBER := 1.0;
8629:
8630: Begin
8631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8632: -- Call start_activity to create savepoint, check compatibility
8633: -- and initialize message list
8634: x_return_status := OKL_API.START_ACTIVITY (
8635: l_api_name
8630: Begin
8631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8632: -- Call start_activity to create savepoint, check compatibility
8633: -- and initialize message list
8634: x_return_status := OKL_API.START_ACTIVITY (
8635: l_api_name
8636: ,p_init_msg_list
8637: ,'_PVT'
8638: ,x_return_status);
8636: ,p_init_msg_list
8637: ,'_PVT'
8638: ,x_return_status);
8639: -- Check if activity started successfully
8640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8643: RAISE OKL_API.G_EXCEPTION_ERROR;
8644: END IF;
8637: ,'_PVT'
8638: ,x_return_status);
8639: -- Check if activity started successfully
8640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8643: RAISE OKL_API.G_EXCEPTION_ERROR;
8644: END IF;
8645:
8638: ,x_return_status);
8639: -- Check if activity started successfully
8640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8643: RAISE OKL_API.G_EXCEPTION_ERROR;
8644: END IF;
8645:
8646: okl_maintain_contract_pvt.confirm_cancel_contract(
8639: -- Check if activity started successfully
8640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8643: RAISE OKL_API.G_EXCEPTION_ERROR;
8644: END IF;
8645:
8646: okl_maintain_contract_pvt.confirm_cancel_contract(
8647: p_api_version => p_api_version,
8651: x_msg_data => x_msg_data,
8652: p_contract_id => p_contract_id,
8653: p_new_contract_number => p_contract_number);
8654:
8655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: END IF;
8652: p_contract_id => p_contract_id,
8653: p_new_contract_number => p_contract_number);
8654:
8655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: END IF;
8660:
8653: p_new_contract_number => p_contract_number);
8654:
8655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: END IF;
8660:
8661: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8654:
8655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: END IF;
8660:
8661: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8662:
8657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: END IF;
8660:
8661: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8662:
8663: EXCEPTION
8664: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8660:
8661: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8662:
8663: EXCEPTION
8664: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8666: l_api_name,
8667: G_PKG_NAME,
8668: 'OKL_API.G_RET_STS_ERROR',
8661: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8662:
8663: EXCEPTION
8664: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8666: l_api_name,
8667: G_PKG_NAME,
8668: 'OKL_API.G_RET_STS_ERROR',
8669: x_msg_count,
8664: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8666: l_api_name,
8667: G_PKG_NAME,
8668: 'OKL_API.G_RET_STS_ERROR',
8669: x_msg_count,
8670: x_msg_data,
8671: '_PVT');
8672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8668: 'OKL_API.G_RET_STS_ERROR',
8669: x_msg_count,
8670: x_msg_data,
8671: '_PVT');
8672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8673: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8674: l_api_name,
8675: G_PKG_NAME,
8676: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8669: x_msg_count,
8670: x_msg_data,
8671: '_PVT');
8672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8673: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8674: l_api_name,
8675: G_PKG_NAME,
8676: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8677: x_msg_count,
8672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8673: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8674: l_api_name,
8675: G_PKG_NAME,
8676: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8677: x_msg_count,
8678: x_msg_data,
8679: '_PVT');
8680: WHEN OTHERS THEN
8677: x_msg_count,
8678: x_msg_data,
8679: '_PVT');
8680: WHEN OTHERS THEN
8681: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8682: l_api_name,
8683: G_PKG_NAME,
8684: 'OTHERS',
8685: x_msg_count,
8689: end;
8690:
8691: Procedure copy_lease_contract
8692: (p_api_version IN NUMBER,
8693: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8694: x_return_status OUT NOCOPY VARCHAR2,
8695: x_msg_count OUT NOCOPY NUMBER,
8696: x_msg_data OUT NOCOPY VARCHAR2,
8697: p_contract_number IN VARCHAR2,
8697: p_contract_number IN VARCHAR2,
8698: p_source_chr_id IN NUMBER,
8699: x_chr_id OUT NOCOPY NUMBER) AS
8700:
8701: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8702: l_api_name CONSTANT varchar2(30) := 'copy_lease_contract';
8703: l_api_version CONSTANT NUMBER := 1.0;
8704: --Added by jjuneja
8705: l_template_yn okc_k_headers_b.TEMPLATE_YN%TYPE;
8708: WHERE id=p_chr_id;
8709: --End of addition by jjuneja
8710:
8711: Begin
8712: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8713: -- Call start_activity to create savepoint, check compatibility
8714: -- and initialize message list
8715: x_return_status := OKL_API.START_ACTIVITY (
8716: l_api_name
8711: Begin
8712: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8713: -- Call start_activity to create savepoint, check compatibility
8714: -- and initialize message list
8715: x_return_status := OKL_API.START_ACTIVITY (
8716: l_api_name
8717: ,p_init_msg_list
8718: ,'_PVT'
8719: ,x_return_status);
8717: ,p_init_msg_list
8718: ,'_PVT'
8719: ,x_return_status);
8720: -- Check if activity started successfully
8721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_ERROR;
8725: END IF;
8718: ,'_PVT'
8719: ,x_return_status);
8720: -- Check if activity started successfully
8721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_ERROR;
8725: END IF;
8726:
8719: ,x_return_status);
8720: -- Check if activity started successfully
8721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_ERROR;
8725: END IF;
8726:
8727: --Added by jjuneja
8720: -- Check if activity started successfully
8721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_ERROR;
8725: END IF;
8726:
8727: --Added by jjuneja
8728: --Code to fetch the value of template_yn using the p_source_chr_id
8740: x_msg_data => x_msg_data,
8741: p_chr_id => p_source_chr_id,
8742: p_contract_number => p_contract_number,
8743: p_contract_number_modifier => NULL,
8744: p_renew_ref_yn => OKL_API.G_FALSE,
8745: p_trans_type => 'CFA',
8746: x_chr_id => x_chr_id,
8747: p_to_template_yn =>l_template_yn);--added by jjuneja
8748:
8745: p_trans_type => 'CFA',
8746: x_chr_id => x_chr_id,
8747: p_to_template_yn =>l_template_yn);--added by jjuneja
8748:
8749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8752: RAISE OKL_API.G_EXCEPTION_ERROR;
8753: END IF;
8746: x_chr_id => x_chr_id,
8747: p_to_template_yn =>l_template_yn);--added by jjuneja
8748:
8749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8752: RAISE OKL_API.G_EXCEPTION_ERROR;
8753: END IF;
8754:
8747: p_to_template_yn =>l_template_yn);--added by jjuneja
8748:
8749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8752: RAISE OKL_API.G_EXCEPTION_ERROR;
8753: END IF;
8754:
8755: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8748:
8749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8752: RAISE OKL_API.G_EXCEPTION_ERROR;
8753: END IF;
8754:
8755: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8756:
8751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8752: RAISE OKL_API.G_EXCEPTION_ERROR;
8753: END IF;
8754:
8755: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8756:
8757: EXCEPTION
8758: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8754:
8755: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8756:
8757: EXCEPTION
8758: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8760: l_api_name,
8761: G_PKG_NAME,
8762: 'OKL_API.G_RET_STS_ERROR',
8755: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8756:
8757: EXCEPTION
8758: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8760: l_api_name,
8761: G_PKG_NAME,
8762: 'OKL_API.G_RET_STS_ERROR',
8763: x_msg_count,
8758: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8760: l_api_name,
8761: G_PKG_NAME,
8762: 'OKL_API.G_RET_STS_ERROR',
8763: x_msg_count,
8764: x_msg_data,
8765: '_PVT');
8766: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8762: 'OKL_API.G_RET_STS_ERROR',
8763: x_msg_count,
8764: x_msg_data,
8765: '_PVT');
8766: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8767: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8768: l_api_name,
8769: G_PKG_NAME,
8770: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8763: x_msg_count,
8764: x_msg_data,
8765: '_PVT');
8766: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8767: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8768: l_api_name,
8769: G_PKG_NAME,
8770: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8771: x_msg_count,
8766: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8767: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8768: l_api_name,
8769: G_PKG_NAME,
8770: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8771: x_msg_count,
8772: x_msg_data,
8773: '_PVT');
8774: WHEN OTHERS THEN
8771: x_msg_count,
8772: x_msg_data,
8773: '_PVT');
8774: WHEN OTHERS THEN
8775: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8776: l_api_name,
8777: G_PKG_NAME,
8778: 'OTHERS',
8779: x_msg_count,
8791: p_kpl_rec IN party_rec_type,
8792: x_kpl_rec OUT NOCOPY party_rec_type
8793: ) AS
8794:
8795: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8796: l_api_name CONSTANT varchar2(30) := 'create_party';
8797: l_api_version CONSTANT NUMBER := 1.0;
8798:
8799: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
8801: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8802: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8803:
8804: Begin
8805: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8806: -- Call start_activity to create savepoint, check compatibility
8807: -- and initialize message list
8808: x_return_status := OKL_API.START_ACTIVITY (
8809: l_api_name
8804: Begin
8805: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8806: -- Call start_activity to create savepoint, check compatibility
8807: -- and initialize message list
8808: x_return_status := OKL_API.START_ACTIVITY (
8809: l_api_name
8810: ,p_init_msg_list
8811: ,'_PVT'
8812: ,x_return_status);
8810: ,p_init_msg_list
8811: ,'_PVT'
8812: ,x_return_status);
8813: -- Check if activity started successfully
8814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8817: RAISE OKL_API.G_EXCEPTION_ERROR;
8818: END IF;
8811: ,'_PVT'
8812: ,x_return_status);
8813: -- Check if activity started successfully
8814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8817: RAISE OKL_API.G_EXCEPTION_ERROR;
8818: END IF;
8819:
8812: ,x_return_status);
8813: -- Check if activity started successfully
8814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8817: RAISE OKL_API.G_EXCEPTION_ERROR;
8818: END IF;
8819:
8820: lp_cplv_rec.id := p_kpl_rec.id;
8813: -- Check if activity started successfully
8814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8817: RAISE OKL_API.G_EXCEPTION_ERROR;
8818: END IF;
8819:
8820: lp_cplv_rec.id := p_kpl_rec.id;
8821: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
8860: x_kplv_rec => lx_kplv_rec);
8861:
8862: x_kpl_rec.id := lx_cplv_rec.id;
8863:
8864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8867: RAISE OKL_API.G_EXCEPTION_ERROR;
8868: END IF;
8861:
8862: x_kpl_rec.id := lx_cplv_rec.id;
8863:
8864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8867: RAISE OKL_API.G_EXCEPTION_ERROR;
8868: END IF;
8869:
8862: x_kpl_rec.id := lx_cplv_rec.id;
8863:
8864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8867: RAISE OKL_API.G_EXCEPTION_ERROR;
8868: END IF;
8869:
8870: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8863:
8864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8867: RAISE OKL_API.G_EXCEPTION_ERROR;
8868: END IF;
8869:
8870: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8871:
8866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8867: RAISE OKL_API.G_EXCEPTION_ERROR;
8868: END IF;
8869:
8870: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8871:
8872: EXCEPTION
8873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8869:
8870: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8871:
8872: EXCEPTION
8873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8875: l_api_name,
8876: G_PKG_NAME,
8877: 'OKL_API.G_RET_STS_ERROR',
8870: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8871:
8872: EXCEPTION
8873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8875: l_api_name,
8876: G_PKG_NAME,
8877: 'OKL_API.G_RET_STS_ERROR',
8878: x_msg_count,
8873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8875: l_api_name,
8876: G_PKG_NAME,
8877: 'OKL_API.G_RET_STS_ERROR',
8878: x_msg_count,
8879: x_msg_data,
8880: '_PVT');
8881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8877: 'OKL_API.G_RET_STS_ERROR',
8878: x_msg_count,
8879: x_msg_data,
8880: '_PVT');
8881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8883: l_api_name,
8884: G_PKG_NAME,
8885: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8878: x_msg_count,
8879: x_msg_data,
8880: '_PVT');
8881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8883: l_api_name,
8884: G_PKG_NAME,
8885: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8886: x_msg_count,
8881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8883: l_api_name,
8884: G_PKG_NAME,
8885: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8886: x_msg_count,
8887: x_msg_data,
8888: '_PVT');
8889: WHEN OTHERS THEN
8886: x_msg_count,
8887: x_msg_data,
8888: '_PVT');
8889: WHEN OTHERS THEN
8890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8891: l_api_name,
8892: G_PKG_NAME,
8893: 'OTHERS',
8894: x_msg_count,
8906: p_kpl_rec IN party_rec_type,
8907: x_kpl_rec OUT NOCOPY party_rec_type
8908: ) AS
8909:
8910: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8911: l_api_name CONSTANT varchar2(30) := 'update_party';
8912: l_api_version CONSTANT NUMBER := 1.0;
8913:
8914: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
8916: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8917: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8918:
8919: Begin
8920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8921: -- Call start_activity to create savepoint, check compatibility
8922: -- and initialize message list
8923: x_return_status := OKL_API.START_ACTIVITY (
8924: l_api_name
8919: Begin
8920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8921: -- Call start_activity to create savepoint, check compatibility
8922: -- and initialize message list
8923: x_return_status := OKL_API.START_ACTIVITY (
8924: l_api_name
8925: ,p_init_msg_list
8926: ,'_PVT'
8927: ,x_return_status);
8925: ,p_init_msg_list
8926: ,'_PVT'
8927: ,x_return_status);
8928: -- Check if activity started successfully
8929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8932: RAISE OKL_API.G_EXCEPTION_ERROR;
8933: END IF;
8926: ,'_PVT'
8927: ,x_return_status);
8928: -- Check if activity started successfully
8929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8932: RAISE OKL_API.G_EXCEPTION_ERROR;
8933: END IF;
8934:
8927: ,x_return_status);
8928: -- Check if activity started successfully
8929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8932: RAISE OKL_API.G_EXCEPTION_ERROR;
8933: END IF;
8934:
8935: lp_cplv_rec.id := p_kpl_rec.id;
8928: -- Check if activity started successfully
8929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8932: RAISE OKL_API.G_EXCEPTION_ERROR;
8933: END IF;
8934:
8935: lp_cplv_rec.id := p_kpl_rec.id;
8936: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
8971:
8972:
8973: x_kpl_rec.id := lx_cplv_rec.id;
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8972:
8973: x_kpl_rec.id := lx_cplv_rec.id;
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980:
8973: x_kpl_rec.id := lx_cplv_rec.id;
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980:
8981: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980:
8981: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8982:
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980:
8981: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8982:
8983: EXCEPTION
8984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8980:
8981: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8982:
8983: EXCEPTION
8984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8986: l_api_name,
8987: G_PKG_NAME,
8988: 'OKL_API.G_RET_STS_ERROR',
8981: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8982:
8983: EXCEPTION
8984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8986: l_api_name,
8987: G_PKG_NAME,
8988: 'OKL_API.G_RET_STS_ERROR',
8989: x_msg_count,
8984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8985: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8986: l_api_name,
8987: G_PKG_NAME,
8988: 'OKL_API.G_RET_STS_ERROR',
8989: x_msg_count,
8990: x_msg_data,
8991: '_PVT');
8992: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8988: 'OKL_API.G_RET_STS_ERROR',
8989: x_msg_count,
8990: x_msg_data,
8991: '_PVT');
8992: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8993: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8994: l_api_name,
8995: G_PKG_NAME,
8996: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8989: x_msg_count,
8990: x_msg_data,
8991: '_PVT');
8992: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8993: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8994: l_api_name,
8995: G_PKG_NAME,
8996: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8997: x_msg_count,
8992: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8993: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8994: l_api_name,
8995: G_PKG_NAME,
8996: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8997: x_msg_count,
8998: x_msg_data,
8999: '_PVT');
9000: WHEN OTHERS THEN
8997: x_msg_count,
8998: x_msg_data,
8999: '_PVT');
9000: WHEN OTHERS THEN
9001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9002: l_api_name,
9003: G_PKG_NAME,
9004: 'OTHERS',
9005: x_msg_count,
9010:
9011:
9012: PROCEDURE load_deal(
9013: p_api_version IN NUMBER,
9014: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9015: x_return_status OUT NOCOPY VARCHAR2,
9016: x_msg_count OUT NOCOPY NUMBER,
9017: x_msg_data OUT NOCOPY VARCHAR2,
9018: p_chr_id IN NUMBER,
9018: p_chr_id IN NUMBER,
9019: x_deal_values_rec OUT NOCOPY deal_values_rec
9020: ) IS
9021:
9022: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
9023: l_api_name CONSTANT VARCHAR2(30) := 'load_deal';
9024: l_api_version CONSTANT NUMBER := 1.0;
9025:
9026: CURSOR c_hdr_full_uv(p_chr_id OKC_K_HEADERS_ALL_B.ID%TYPE) IS
9151: AND col.descriptive_flex_context_code=rdef.rule_code
9152: AND rdef.rule_code in ('LACPLN','LANNTF','LAREBL','LARLES','LATOWN','LAPACT');
9153:
9154: BEGIN
9155: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9156: -- Call start_activity to create savepoint, check compatibility
9157: -- and initialize message list
9158: x_return_status := OKL_API.START_ACTIVITY (
9159: l_api_name
9154: BEGIN
9155: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9156: -- Call start_activity to create savepoint, check compatibility
9157: -- and initialize message list
9158: x_return_status := OKL_API.START_ACTIVITY (
9159: l_api_name
9160: ,p_init_msg_list
9161: ,'_PVT'
9162: ,x_return_status);
9160: ,p_init_msg_list
9161: ,'_PVT'
9162: ,x_return_status);
9163: -- Check if activity started successfully
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9161: ,'_PVT'
9162: ,x_return_status);
9163: -- Check if activity started successfully
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169:
9162: ,x_return_status);
9163: -- Check if activity started successfully
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169:
9170: OPEN c_hdr_full_uv(p_chr_id);
9163: -- Check if activity started successfully
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169:
9170: OPEN c_hdr_full_uv(p_chr_id);
9171: FETCH c_hdr_full_uv INTO l_hdr_uv_rec;
9378:
9379: CLOSE c_hdr_full_v;
9380: CLOSE c_hdr_full_uv;
9381:
9382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9385: RAISE OKL_API.G_EXCEPTION_ERROR;
9386: END IF;
9379: CLOSE c_hdr_full_v;
9380: CLOSE c_hdr_full_uv;
9381:
9382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9385: RAISE OKL_API.G_EXCEPTION_ERROR;
9386: END IF;
9387:
9380: CLOSE c_hdr_full_uv;
9381:
9382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9385: RAISE OKL_API.G_EXCEPTION_ERROR;
9386: END IF;
9387:
9388: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9381:
9382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9385: RAISE OKL_API.G_EXCEPTION_ERROR;
9386: END IF;
9387:
9388: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9389:
9384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9385: RAISE OKL_API.G_EXCEPTION_ERROR;
9386: END IF;
9387:
9388: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9389:
9390: EXCEPTION
9391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9387:
9388: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9389:
9390: EXCEPTION
9391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9393: l_api_name,
9394: G_PKG_NAME,
9395: 'OKL_API.G_RET_STS_ERROR',
9388: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9389:
9390: EXCEPTION
9391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9393: l_api_name,
9394: G_PKG_NAME,
9395: 'OKL_API.G_RET_STS_ERROR',
9396: x_msg_count,
9391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9393: l_api_name,
9394: G_PKG_NAME,
9395: 'OKL_API.G_RET_STS_ERROR',
9396: x_msg_count,
9397: x_msg_data,
9398: '_PVT');
9399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9395: 'OKL_API.G_RET_STS_ERROR',
9396: x_msg_count,
9397: x_msg_data,
9398: '_PVT');
9399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9401: l_api_name,
9402: G_PKG_NAME,
9403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9396: x_msg_count,
9397: x_msg_data,
9398: '_PVT');
9399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9401: l_api_name,
9402: G_PKG_NAME,
9403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9404: x_msg_count,
9399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9401: l_api_name,
9402: G_PKG_NAME,
9403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9404: x_msg_count,
9405: x_msg_data,
9406: '_PVT');
9407: WHEN OTHERS THEN
9404: x_msg_count,
9405: x_msg_data,
9406: '_PVT');
9407: WHEN OTHERS THEN
9408: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9409: l_api_name,
9410: G_PKG_NAME,
9411: 'OTHERS',
9412: x_msg_count,
9427: -- End of comments
9428:
9429: PROCEDURE load_booking_summary(
9430: p_api_version IN NUMBER,
9431: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9432: x_return_status OUT NOCOPY VARCHAR2,
9433: x_msg_count OUT NOCOPY NUMBER,
9434: x_msg_data OUT NOCOPY VARCHAR2,
9435: p_chr_id IN NUMBER,
9434: x_msg_data OUT NOCOPY VARCHAR2,
9435: p_chr_id IN NUMBER,
9436: x_booking_summary_rec OUT NOCOPY booking_summary_rec) IS
9437:
9438: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
9439: l_api_name CONSTANT VARCHAR2(30) := 'load_booking_summary';
9440: l_api_version CONSTANT NUMBER := 1.0;
9441:
9442: CURSOR c_khr_currency(p_chr_id IN NUMBER) IS
9496: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'Begin(+)');
9498: END IF;
9499:
9500: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9501: -- Call start_activity to create savepoint, check compatibility
9502: -- and initialize message list
9503: x_return_status := OKL_API.START_ACTIVITY (
9504: l_api_name
9499:
9500: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9501: -- Call start_activity to create savepoint, check compatibility
9502: -- and initialize message list
9503: x_return_status := OKL_API.START_ACTIVITY (
9504: l_api_name
9505: ,p_init_msg_list
9506: ,'_PVT'
9507: ,x_return_status);
9505: ,p_init_msg_list
9506: ,'_PVT'
9507: ,x_return_status);
9508: -- Check if activity started successfully
9509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: RAISE OKL_API.G_EXCEPTION_ERROR;
9513: END IF;
9506: ,'_PVT'
9507: ,x_return_status);
9508: -- Check if activity started successfully
9509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: RAISE OKL_API.G_EXCEPTION_ERROR;
9513: END IF;
9514:
9507: ,x_return_status);
9508: -- Check if activity started successfully
9509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: RAISE OKL_API.G_EXCEPTION_ERROR;
9513: END IF;
9514:
9515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9508: -- Check if activity started successfully
9509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: RAISE OKL_API.G_EXCEPTION_ERROR;
9513: END IF;
9514:
9515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_DEAL_CREAT_PVT.load_booking_summary.',
9533: p_contract_id => p_chr_id,
9534: p_line_id => NULL,
9535: x_value => l_total_financed_amount);
9536:
9537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9540: RAISE OKL_API.G_EXCEPTION_ERROR;
9541: END IF;
9534: p_line_id => NULL,
9535: x_value => l_total_financed_amount);
9536:
9537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9540: RAISE OKL_API.G_EXCEPTION_ERROR;
9541: END IF;
9542:
9535: x_value => l_total_financed_amount);
9536:
9537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9540: RAISE OKL_API.G_EXCEPTION_ERROR;
9541: END IF;
9542:
9543: -- Format the financed amt
9536:
9537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9540: RAISE OKL_API.G_EXCEPTION_ERROR;
9541: END IF;
9542:
9543: -- Format the financed amt
9544: x_booking_summary_rec.total_financed_amount := OKL_ACCOUNTING_UTIL.format_amount(
9555: p_contract_id => p_chr_id,
9556: p_line_id => NULL,
9557: x_value => l_total_funded);
9558:
9559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9562: RAISE OKL_API.G_EXCEPTION_ERROR;
9563: END IF;
9556: p_line_id => NULL,
9557: x_value => l_total_funded);
9558:
9559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9562: RAISE OKL_API.G_EXCEPTION_ERROR;
9563: END IF;
9564:
9557: x_value => l_total_funded);
9558:
9559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9562: RAISE OKL_API.G_EXCEPTION_ERROR;
9563: END IF;
9564:
9565: -- Format the funded amt
9558:
9559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9562: RAISE OKL_API.G_EXCEPTION_ERROR;
9563: END IF;
9564:
9565: -- Format the funded amt
9566: x_booking_summary_rec.total_funded := OKL_ACCOUNTING_UTIL.format_amount(
9584: p_chr_id => p_chr_id,
9585: p_accounting_method => NULL,
9586: x_subsidy_amount => l_total_subsidies);
9587:
9588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9591: RAISE OKL_API.G_EXCEPTION_ERROR;
9592: END IF;
9585: p_accounting_method => NULL,
9586: x_subsidy_amount => l_total_subsidies);
9587:
9588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9591: RAISE OKL_API.G_EXCEPTION_ERROR;
9592: END IF;
9593:
9586: x_subsidy_amount => l_total_subsidies);
9587:
9588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9591: RAISE OKL_API.G_EXCEPTION_ERROR;
9592: END IF;
9593:
9594: -- Format the subsidy amt
9587:
9588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9591: RAISE OKL_API.G_EXCEPTION_ERROR;
9592: END IF;
9593:
9594: -- Format the subsidy amt
9595: x_booking_summary_rec.total_subsidies := OKL_ACCOUNTING_UTIL.format_amount(
9621: x_booking_summary_rec.rvi_premium := OKL_ACCOUNTING_UTIL.format_amount(
9622: l_rvi_premium,
9623: l_currency_code);
9624:
9625: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9626:
9627: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'End(-)');
9629: END IF;
9628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'End(-)');
9629: END IF;
9630:
9631: EXCEPTION
9632: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9633: IF c_khr_currency%ISOPEN THEN
9634: CLOSE c_khr_currency;
9635: END IF;
9636: IF c_residual_amt%ISOPEN THEN
9644: END IF;
9645: IF c_rvi_premium%ISOPEN THEN
9646: CLOSE c_rvi_premium;
9647: END IF;
9648: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9649: l_api_name,
9650: G_PKG_NAME,
9651: 'OKL_API.G_RET_STS_ERROR',
9652: x_msg_count,
9647: END IF;
9648: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9649: l_api_name,
9650: G_PKG_NAME,
9651: 'OKL_API.G_RET_STS_ERROR',
9652: x_msg_count,
9653: x_msg_data,
9654: '_PVT');
9655: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9654: '_PVT');
9655: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'EXP - ERROR');
9657: END IF;
9658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9659: IF c_khr_currency%ISOPEN THEN
9660: CLOSE c_khr_currency;
9661: END IF;
9662: IF c_residual_amt%ISOPEN THEN
9670: END IF;
9671: IF c_rvi_premium%ISOPEN THEN
9672: CLOSE c_rvi_premium;
9673: END IF;
9674: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9675: l_api_name,
9676: G_PKG_NAME,
9677: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9678: x_msg_count,
9673: END IF;
9674: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9675: l_api_name,
9676: G_PKG_NAME,
9677: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9678: x_msg_count,
9679: x_msg_data,
9680: '_PVT');
9681: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9696: END IF;
9697: IF c_rvi_premium%ISOPEN THEN
9698: CLOSE c_rvi_premium;
9699: END IF;
9700: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9701: l_api_name,
9702: G_PKG_NAME,
9703: 'OTHERS',
9704: x_msg_count,