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;
3526: x_new_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3527: x_new_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3528: l_old_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3529: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
3530: l_value VARCHAR2(1) := OKL_API.G_FALSE;
3531:
3532: CURSOR l_source_k_num_crs IS
3533: SELECT contract_number
3534: FROM okc_k_headers_b
3575: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3579: IF(l_value = OKL_API.G_TRUE) THEN
3580: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3581: , p_msg_name => 'OKL_LLA_CONTRACT_SECU_ERROR'
3582: );
3583: RAISE OKC_API.G_EXCEPTION_ERROR;
4200:
4201: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4202: -- Raise the event if it is a new Contract
4203: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4204: --IF (l_check= OKL_API.G_TRUE) THEN
4205: IF (upper(p_source_code) = 'NEW') THEN
4206: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
4207:
4208: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
4216: END IF;
4217:
4218: EXCEPTION
4219: WHEN OTHERS THEN
4220: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4221: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4222: END raise_business_event;
4223:
4224:
4217:
4218: EXCEPTION
4219: WHEN OTHERS THEN
4220: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4221: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4222: END raise_business_event;
4223:
4224:
4225: /*
4507: -- Code change to enable Business Event
4508: */
4509: raise_business_event(p_chr_id => x_chr_id
4510: ,x_return_status => x_return_status);
4511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4514: RAISE OKL_API.G_EXCEPTION_ERROR;
4515: END IF;
4508: */
4509: raise_business_event(p_chr_id => x_chr_id
4510: ,x_return_status => x_return_status);
4511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4514: RAISE OKL_API.G_EXCEPTION_ERROR;
4515: END IF;
4516:
4509: raise_business_event(p_chr_id => x_chr_id
4510: ,x_return_status => x_return_status);
4511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4514: RAISE OKL_API.G_EXCEPTION_ERROR;
4515: END IF;
4516:
4517: /*
4510: ,x_return_status => x_return_status);
4511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4514: RAISE OKL_API.G_EXCEPTION_ERROR;
4515: END IF;
4516:
4517: /*
4518: -- mvasudev, 08/17/2004
4863:
4864: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4865: -- Raise the event if it is a new Contract
4866: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4867: --IF (l_check= OKL_API.G_TRUE) THEN
4868: IF (upper(p_source_code) = 'NEW') THEN
4869: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
4870:
4871: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
4879: END IF;
4880:
4881: EXCEPTION
4882: WHEN OTHERS THEN
4883: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4885: END raise_business_event;
4886:
4887:
4880:
4881: EXCEPTION
4882: WHEN OTHERS THEN
4883: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4885: END raise_business_event;
4886:
4887:
4888: /*
5447: -- Code change to enable Business Event
5448: */
5449: raise_business_event(p_chr_id => x_chr_id
5450: ,x_return_status => x_return_status);
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5448: */
5449: raise_business_event(p_chr_id => x_chr_id
5450: ,x_return_status => x_return_status);
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456:
5449: raise_business_event(p_chr_id => x_chr_id
5450: ,x_return_status => x_return_status);
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456:
5457: /*
5450: ,x_return_status => x_return_status);
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456:
5457: /*
5458: -- mvasudev, 08/17/2004
6799:
6800: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
6801: -- Raise the event if it is a new Contract
6802: l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
6803: IF (l_check= OKL_API.G_TRUE) THEN
6804: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
6805: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
6806: p_init_msg_list => p_init_msg_list,
6807: x_return_status => x_return_status,
6813: END IF;
6814:
6815: EXCEPTION
6816: WHEN OTHERS THEN
6817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6819: END raise_business_event;
6820:
6821: /*
6814:
6815: EXCEPTION
6816: WHEN OTHERS THEN
6817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6819: END raise_business_event;
6820:
6821: /*
6822: -- mvasudev, 08/17/2004
7121: OPEN c_orig_pdt_csr(p_chr_id => lp_chrv_rec.id);
7122: FETCH c_orig_pdt_csr INTO l_orig_pdt_rec;
7123: CLOSE c_orig_pdt_csr;
7124:
7125: IF (NVL(l_orig_pdt_rec.pdt_id, OKL_API.G_MISS_NUM) <>
7126: NVL(lp_khrv_rec.pdt_id, OKL_API.G_MISS_NUM)) THEN
7127:
7128: l_count := 0;
7129: FOR l_rates_rec IN c_rates_csr(lp_chrv_rec.id, 'ACTUAL') LOOP
7122: FETCH c_orig_pdt_csr INTO l_orig_pdt_rec;
7123: CLOSE c_orig_pdt_csr;
7124:
7125: IF (NVL(l_orig_pdt_rec.pdt_id, OKL_API.G_MISS_NUM) <>
7126: NVL(lp_khrv_rec.pdt_id, OKL_API.G_MISS_NUM)) THEN
7127:
7128: l_count := 0;
7129: FOR l_rates_rec IN c_rates_csr(lp_chrv_rec.id, 'ACTUAL') LOOP
7130: l_count := l_count + 1;
7141: x_msg_count => x_msg_count,
7142: x_msg_data => x_msg_data,
7143: p_krpdel_tbl => l_krpdel_tbl);
7144:
7145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: END IF;
7142: x_msg_data => x_msg_data,
7143: p_krpdel_tbl => l_krpdel_tbl);
7144:
7145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: END IF;
7150:
7143: p_krpdel_tbl => l_krpdel_tbl);
7144:
7145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: END IF;
7150:
7151: END IF;
7144:
7145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: END IF;
7150:
7151: END IF;
7152: END IF;
8190: -- Code change to enable Business Event
8191: */
8192: raise_business_event(p_chr_id => p_durv_rec.chr_id
8193: ,x_return_status => x_return_status);
8194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8197: RAISE OKL_API.G_EXCEPTION_ERROR;
8198: END IF;
8191: */
8192: raise_business_event(p_chr_id => p_durv_rec.chr_id
8193: ,x_return_status => x_return_status);
8194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8197: RAISE OKL_API.G_EXCEPTION_ERROR;
8198: END IF;
8199:
8192: raise_business_event(p_chr_id => p_durv_rec.chr_id
8193: ,x_return_status => x_return_status);
8194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8197: RAISE OKL_API.G_EXCEPTION_ERROR;
8198: END IF;
8199:
8200: /*
8193: ,x_return_status => x_return_status);
8194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8197: RAISE OKL_API.G_EXCEPTION_ERROR;
8198: END IF;
8199:
8200: /*
8201: -- mvasudev, 08/17/2004
8539:
8540:
8541: Procedure confirm_cancel_contract
8542: (p_api_version IN NUMBER,
8543: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8544: x_return_status OUT NOCOPY VARCHAR2,
8545: x_msg_count OUT NOCOPY NUMBER,
8546: x_msg_data OUT NOCOPY VARCHAR2,
8547: p_contract_id IN NUMBER,
8546: x_msg_data OUT NOCOPY VARCHAR2,
8547: p_contract_id IN NUMBER,
8548: p_contract_number IN VARCHAR2) AS
8549:
8550: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8551: l_api_name CONSTANT varchar2(30) := 'confirm_cancel_contract';
8552: l_api_version CONSTANT NUMBER := 1.0;
8553:
8554: Begin
8551: l_api_name CONSTANT varchar2(30) := 'confirm_cancel_contract';
8552: l_api_version CONSTANT NUMBER := 1.0;
8553:
8554: Begin
8555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8556: -- Call start_activity to create savepoint, check compatibility
8557: -- and initialize message list
8558: x_return_status := OKL_API.START_ACTIVITY (
8559: l_api_name
8554: Begin
8555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8556: -- Call start_activity to create savepoint, check compatibility
8557: -- and initialize message list
8558: x_return_status := OKL_API.START_ACTIVITY (
8559: l_api_name
8560: ,p_init_msg_list
8561: ,'_PVT'
8562: ,x_return_status);
8560: ,p_init_msg_list
8561: ,'_PVT'
8562: ,x_return_status);
8563: -- Check if activity started successfully
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8561: ,'_PVT'
8562: ,x_return_status);
8563: -- Check if activity started successfully
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569:
8562: ,x_return_status);
8563: -- Check if activity started successfully
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569:
8570: okl_maintain_contract_pvt.confirm_cancel_contract(
8563: -- Check if activity started successfully
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569:
8570: okl_maintain_contract_pvt.confirm_cancel_contract(
8571: p_api_version => p_api_version,
8575: x_msg_data => x_msg_data,
8576: p_contract_id => p_contract_id,
8577: p_new_contract_number => p_contract_number);
8578:
8579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8582: RAISE OKL_API.G_EXCEPTION_ERROR;
8583: END IF;
8576: p_contract_id => p_contract_id,
8577: p_new_contract_number => p_contract_number);
8578:
8579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8582: RAISE OKL_API.G_EXCEPTION_ERROR;
8583: END IF;
8584:
8577: p_new_contract_number => p_contract_number);
8578:
8579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8582: RAISE OKL_API.G_EXCEPTION_ERROR;
8583: END IF;
8584:
8585: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8578:
8579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8582: RAISE OKL_API.G_EXCEPTION_ERROR;
8583: END IF;
8584:
8585: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8586:
8581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8582: RAISE OKL_API.G_EXCEPTION_ERROR;
8583: END IF;
8584:
8585: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8586:
8587: EXCEPTION
8588: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8584:
8585: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8586:
8587: EXCEPTION
8588: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8590: l_api_name,
8591: G_PKG_NAME,
8592: 'OKL_API.G_RET_STS_ERROR',
8585: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8586:
8587: EXCEPTION
8588: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8590: l_api_name,
8591: G_PKG_NAME,
8592: 'OKL_API.G_RET_STS_ERROR',
8593: x_msg_count,
8588: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8590: l_api_name,
8591: G_PKG_NAME,
8592: 'OKL_API.G_RET_STS_ERROR',
8593: x_msg_count,
8594: x_msg_data,
8595: '_PVT');
8596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8592: 'OKL_API.G_RET_STS_ERROR',
8593: x_msg_count,
8594: x_msg_data,
8595: '_PVT');
8596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8597: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8598: l_api_name,
8599: G_PKG_NAME,
8600: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8593: x_msg_count,
8594: x_msg_data,
8595: '_PVT');
8596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8597: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8598: l_api_name,
8599: G_PKG_NAME,
8600: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8601: x_msg_count,
8596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8597: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8598: l_api_name,
8599: G_PKG_NAME,
8600: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8601: x_msg_count,
8602: x_msg_data,
8603: '_PVT');
8604: WHEN OTHERS THEN
8601: x_msg_count,
8602: x_msg_data,
8603: '_PVT');
8604: WHEN OTHERS THEN
8605: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8606: l_api_name,
8607: G_PKG_NAME,
8608: 'OTHERS',
8609: x_msg_count,
8613: end;
8614:
8615: Procedure copy_lease_contract
8616: (p_api_version IN NUMBER,
8617: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8618: x_return_status OUT NOCOPY VARCHAR2,
8619: x_msg_count OUT NOCOPY NUMBER,
8620: x_msg_data OUT NOCOPY VARCHAR2,
8621: p_contract_number IN VARCHAR2,
8621: p_contract_number IN VARCHAR2,
8622: p_source_chr_id IN NUMBER,
8623: x_chr_id OUT NOCOPY NUMBER) AS
8624:
8625: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8626: l_api_name CONSTANT varchar2(30) := 'copy_lease_contract';
8627: l_api_version CONSTANT NUMBER := 1.0;
8628:
8629: Begin
8626: l_api_name CONSTANT varchar2(30) := 'copy_lease_contract';
8627: l_api_version CONSTANT NUMBER := 1.0;
8628:
8629: Begin
8630: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8631: -- Call start_activity to create savepoint, check compatibility
8632: -- and initialize message list
8633: x_return_status := OKL_API.START_ACTIVITY (
8634: l_api_name
8629: Begin
8630: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8631: -- Call start_activity to create savepoint, check compatibility
8632: -- and initialize message list
8633: x_return_status := OKL_API.START_ACTIVITY (
8634: l_api_name
8635: ,p_init_msg_list
8636: ,'_PVT'
8637: ,x_return_status);
8635: ,p_init_msg_list
8636: ,'_PVT'
8637: ,x_return_status);
8638: -- Check if activity started successfully
8639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8642: RAISE OKL_API.G_EXCEPTION_ERROR;
8643: END IF;
8636: ,'_PVT'
8637: ,x_return_status);
8638: -- Check if activity started successfully
8639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8642: RAISE OKL_API.G_EXCEPTION_ERROR;
8643: END IF;
8644:
8637: ,x_return_status);
8638: -- Check if activity started successfully
8639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8642: RAISE OKL_API.G_EXCEPTION_ERROR;
8643: END IF;
8644:
8645: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
8638: -- Check if activity started successfully
8639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8642: RAISE OKL_API.G_EXCEPTION_ERROR;
8643: END IF;
8644:
8645: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
8646: p_api_version => p_api_version,
8650: x_msg_data => x_msg_data,
8651: p_chr_id => p_source_chr_id,
8652: p_contract_number => p_contract_number,
8653: p_contract_number_modifier => NULL,
8654: p_renew_ref_yn => OKL_API.G_FALSE,
8655: p_trans_type => 'CFA',
8656: x_chr_id => x_chr_id);
8657:
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8654: p_renew_ref_yn => OKL_API.G_FALSE,
8655: p_trans_type => 'CFA',
8656: x_chr_id => x_chr_id);
8657:
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8655: p_trans_type => 'CFA',
8656: x_chr_id => x_chr_id);
8657:
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663:
8656: x_chr_id => x_chr_id);
8657:
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663:
8664: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8657:
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663:
8664: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8665:
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663:
8664: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8665:
8666: EXCEPTION
8667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8663:
8664: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8665:
8666: EXCEPTION
8667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8669: l_api_name,
8670: G_PKG_NAME,
8671: 'OKL_API.G_RET_STS_ERROR',
8664: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8665:
8666: EXCEPTION
8667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8669: l_api_name,
8670: G_PKG_NAME,
8671: 'OKL_API.G_RET_STS_ERROR',
8672: x_msg_count,
8667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8669: l_api_name,
8670: G_PKG_NAME,
8671: 'OKL_API.G_RET_STS_ERROR',
8672: x_msg_count,
8673: x_msg_data,
8674: '_PVT');
8675: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8671: 'OKL_API.G_RET_STS_ERROR',
8672: x_msg_count,
8673: x_msg_data,
8674: '_PVT');
8675: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8677: l_api_name,
8678: G_PKG_NAME,
8679: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8672: x_msg_count,
8673: x_msg_data,
8674: '_PVT');
8675: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8677: l_api_name,
8678: G_PKG_NAME,
8679: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8680: x_msg_count,
8675: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8676: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8677: l_api_name,
8678: G_PKG_NAME,
8679: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8680: x_msg_count,
8681: x_msg_data,
8682: '_PVT');
8683: WHEN OTHERS THEN
8680: x_msg_count,
8681: x_msg_data,
8682: '_PVT');
8683: WHEN OTHERS THEN
8684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8685: l_api_name,
8686: G_PKG_NAME,
8687: 'OTHERS',
8688: x_msg_count,
8700: p_kpl_rec IN party_rec_type,
8701: x_kpl_rec OUT NOCOPY party_rec_type
8702: ) AS
8703:
8704: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8705: l_api_name CONSTANT varchar2(30) := 'create_party';
8706: l_api_version CONSTANT NUMBER := 1.0;
8707:
8708: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
8710: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8711: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8712:
8713: Begin
8714: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8715: -- Call start_activity to create savepoint, check compatibility
8716: -- and initialize message list
8717: x_return_status := OKL_API.START_ACTIVITY (
8718: l_api_name
8713: Begin
8714: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8715: -- Call start_activity to create savepoint, check compatibility
8716: -- and initialize message list
8717: x_return_status := OKL_API.START_ACTIVITY (
8718: l_api_name
8719: ,p_init_msg_list
8720: ,'_PVT'
8721: ,x_return_status);
8719: ,p_init_msg_list
8720: ,'_PVT'
8721: ,x_return_status);
8722: -- Check if activity started successfully
8723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8720: ,'_PVT'
8721: ,x_return_status);
8722: -- Check if activity started successfully
8723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8728:
8721: ,x_return_status);
8722: -- Check if activity started successfully
8723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8728:
8729: lp_cplv_rec.id := p_kpl_rec.id;
8722: -- Check if activity started successfully
8723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8728:
8729: lp_cplv_rec.id := p_kpl_rec.id;
8730: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
8769: x_kplv_rec => lx_kplv_rec);
8770:
8771: x_kpl_rec.id := lx_cplv_rec.id;
8772:
8773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8776: RAISE OKL_API.G_EXCEPTION_ERROR;
8777: END IF;
8770:
8771: x_kpl_rec.id := lx_cplv_rec.id;
8772:
8773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8776: RAISE OKL_API.G_EXCEPTION_ERROR;
8777: END IF;
8778:
8771: x_kpl_rec.id := lx_cplv_rec.id;
8772:
8773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8776: RAISE OKL_API.G_EXCEPTION_ERROR;
8777: END IF;
8778:
8779: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8772:
8773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8776: RAISE OKL_API.G_EXCEPTION_ERROR;
8777: END IF;
8778:
8779: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8780:
8775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8776: RAISE OKL_API.G_EXCEPTION_ERROR;
8777: END IF;
8778:
8779: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8780:
8781: EXCEPTION
8782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8783: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8778:
8779: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8780:
8781: EXCEPTION
8782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8783: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8784: l_api_name,
8785: G_PKG_NAME,
8786: 'OKL_API.G_RET_STS_ERROR',
8779: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8780:
8781: EXCEPTION
8782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8783: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8784: l_api_name,
8785: G_PKG_NAME,
8786: 'OKL_API.G_RET_STS_ERROR',
8787: x_msg_count,
8782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8783: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8784: l_api_name,
8785: G_PKG_NAME,
8786: 'OKL_API.G_RET_STS_ERROR',
8787: x_msg_count,
8788: x_msg_data,
8789: '_PVT');
8790: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8786: 'OKL_API.G_RET_STS_ERROR',
8787: x_msg_count,
8788: x_msg_data,
8789: '_PVT');
8790: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8792: l_api_name,
8793: G_PKG_NAME,
8794: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8787: x_msg_count,
8788: x_msg_data,
8789: '_PVT');
8790: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8792: l_api_name,
8793: G_PKG_NAME,
8794: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8795: x_msg_count,
8790: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8791: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8792: l_api_name,
8793: G_PKG_NAME,
8794: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8795: x_msg_count,
8796: x_msg_data,
8797: '_PVT');
8798: WHEN OTHERS THEN
8795: x_msg_count,
8796: x_msg_data,
8797: '_PVT');
8798: WHEN OTHERS THEN
8799: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8800: l_api_name,
8801: G_PKG_NAME,
8802: 'OTHERS',
8803: x_msg_count,
8815: p_kpl_rec IN party_rec_type,
8816: x_kpl_rec OUT NOCOPY party_rec_type
8817: ) AS
8818:
8819: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8820: l_api_name CONSTANT varchar2(30) := 'update_party';
8821: l_api_version CONSTANT NUMBER := 1.0;
8822:
8823: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
8825: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8826: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
8827:
8828: Begin
8829: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8830: -- Call start_activity to create savepoint, check compatibility
8831: -- and initialize message list
8832: x_return_status := OKL_API.START_ACTIVITY (
8833: l_api_name
8828: Begin
8829: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8830: -- Call start_activity to create savepoint, check compatibility
8831: -- and initialize message list
8832: x_return_status := OKL_API.START_ACTIVITY (
8833: l_api_name
8834: ,p_init_msg_list
8835: ,'_PVT'
8836: ,x_return_status);
8834: ,p_init_msg_list
8835: ,'_PVT'
8836: ,x_return_status);
8837: -- Check if activity started successfully
8838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_ERROR;
8842: END IF;
8835: ,'_PVT'
8836: ,x_return_status);
8837: -- Check if activity started successfully
8838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_ERROR;
8842: END IF;
8843:
8836: ,x_return_status);
8837: -- Check if activity started successfully
8838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_ERROR;
8842: END IF;
8843:
8844: lp_cplv_rec.id := p_kpl_rec.id;
8837: -- Check if activity started successfully
8838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_ERROR;
8842: END IF;
8843:
8844: lp_cplv_rec.id := p_kpl_rec.id;
8845: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
8880:
8881:
8882: x_kpl_rec.id := lx_cplv_rec.id;
8883:
8884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8886: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8881:
8882: x_kpl_rec.id := lx_cplv_rec.id;
8883:
8884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8886: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8889:
8882: x_kpl_rec.id := lx_cplv_rec.id;
8883:
8884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8886: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8889:
8890: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8883:
8884: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8886: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8889:
8890: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8891:
8886: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8887: RAISE OKL_API.G_EXCEPTION_ERROR;
8888: END IF;
8889:
8890: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8891:
8892: EXCEPTION
8893: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8889:
8890: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8891:
8892: EXCEPTION
8893: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8895: l_api_name,
8896: G_PKG_NAME,
8897: 'OKL_API.G_RET_STS_ERROR',
8890: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
8891:
8892: EXCEPTION
8893: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8895: l_api_name,
8896: G_PKG_NAME,
8897: 'OKL_API.G_RET_STS_ERROR',
8898: x_msg_count,
8893: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8895: l_api_name,
8896: G_PKG_NAME,
8897: 'OKL_API.G_RET_STS_ERROR',
8898: x_msg_count,
8899: x_msg_data,
8900: '_PVT');
8901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8897: 'OKL_API.G_RET_STS_ERROR',
8898: x_msg_count,
8899: x_msg_data,
8900: '_PVT');
8901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8902: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8903: l_api_name,
8904: G_PKG_NAME,
8905: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8898: x_msg_count,
8899: x_msg_data,
8900: '_PVT');
8901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8902: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8903: l_api_name,
8904: G_PKG_NAME,
8905: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8906: x_msg_count,
8901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8902: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8903: l_api_name,
8904: G_PKG_NAME,
8905: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8906: x_msg_count,
8907: x_msg_data,
8908: '_PVT');
8909: WHEN OTHERS THEN
8906: x_msg_count,
8907: x_msg_data,
8908: '_PVT');
8909: WHEN OTHERS THEN
8910: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8911: l_api_name,
8912: G_PKG_NAME,
8913: 'OTHERS',
8914: x_msg_count,
8919:
8920:
8921: PROCEDURE load_deal(
8922: p_api_version IN NUMBER,
8923: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8924: x_return_status OUT NOCOPY VARCHAR2,
8925: x_msg_count OUT NOCOPY NUMBER,
8926: x_msg_data OUT NOCOPY VARCHAR2,
8927: p_chr_id IN NUMBER,
8927: p_chr_id IN NUMBER,
8928: x_deal_values_rec OUT NOCOPY deal_values_rec
8929: ) IS
8930:
8931: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
8932: l_api_name CONSTANT VARCHAR2(30) := 'load_deal';
8933: l_api_version CONSTANT NUMBER := 1.0;
8934:
8935: CURSOR c_hdr_full_uv(p_chr_id OKC_K_HEADERS_ALL_B.ID%TYPE) IS
9056: AND col.descriptive_flex_context_code=rdef.rule_code
9057: AND rdef.rule_code in ('LACPLN','LANNTF','LAREBL','LARLES','LATOWN','LAPACT');
9058:
9059: BEGIN
9060: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9061: -- Call start_activity to create savepoint, check compatibility
9062: -- and initialize message list
9063: x_return_status := OKL_API.START_ACTIVITY (
9064: l_api_name
9059: BEGIN
9060: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9061: -- Call start_activity to create savepoint, check compatibility
9062: -- and initialize message list
9063: x_return_status := OKL_API.START_ACTIVITY (
9064: l_api_name
9065: ,p_init_msg_list
9066: ,'_PVT'
9067: ,x_return_status);
9065: ,p_init_msg_list
9066: ,'_PVT'
9067: ,x_return_status);
9068: -- Check if activity started successfully
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9066: ,'_PVT'
9067: ,x_return_status);
9068: -- Check if activity started successfully
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9067: ,x_return_status);
9068: -- Check if activity started successfully
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9075: OPEN c_hdr_full_uv(p_chr_id);
9068: -- Check if activity started successfully
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9075: OPEN c_hdr_full_uv(p_chr_id);
9076: FETCH c_hdr_full_uv INTO l_hdr_uv_rec;
9279: X_DEAL_VALUES_REC.PRODUCT_SUBCLASS_CODE := 'LEASE';
9280: CLOSE c_hdr_full_v;
9281: CLOSE c_hdr_full_uv;
9282:
9283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9286: RAISE OKL_API.G_EXCEPTION_ERROR;
9287: END IF;
9280: CLOSE c_hdr_full_v;
9281: CLOSE c_hdr_full_uv;
9282:
9283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9286: RAISE OKL_API.G_EXCEPTION_ERROR;
9287: END IF;
9288:
9281: CLOSE c_hdr_full_uv;
9282:
9283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9286: RAISE OKL_API.G_EXCEPTION_ERROR;
9287: END IF;
9288:
9289: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9282:
9283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9286: RAISE OKL_API.G_EXCEPTION_ERROR;
9287: END IF;
9288:
9289: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9290:
9285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9286: RAISE OKL_API.G_EXCEPTION_ERROR;
9287: END IF;
9288:
9289: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9290:
9291: EXCEPTION
9292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9288:
9289: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9290:
9291: EXCEPTION
9292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9294: l_api_name,
9295: G_PKG_NAME,
9296: 'OKL_API.G_RET_STS_ERROR',
9289: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9290:
9291: EXCEPTION
9292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9294: l_api_name,
9295: G_PKG_NAME,
9296: 'OKL_API.G_RET_STS_ERROR',
9297: x_msg_count,
9292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9293: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9294: l_api_name,
9295: G_PKG_NAME,
9296: 'OKL_API.G_RET_STS_ERROR',
9297: x_msg_count,
9298: x_msg_data,
9299: '_PVT');
9300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9296: 'OKL_API.G_RET_STS_ERROR',
9297: x_msg_count,
9298: x_msg_data,
9299: '_PVT');
9300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9302: l_api_name,
9303: G_PKG_NAME,
9304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9297: x_msg_count,
9298: x_msg_data,
9299: '_PVT');
9300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9302: l_api_name,
9303: G_PKG_NAME,
9304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9305: x_msg_count,
9300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9302: l_api_name,
9303: G_PKG_NAME,
9304: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9305: x_msg_count,
9306: x_msg_data,
9307: '_PVT');
9308: WHEN OTHERS THEN
9305: x_msg_count,
9306: x_msg_data,
9307: '_PVT');
9308: WHEN OTHERS THEN
9309: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9310: l_api_name,
9311: G_PKG_NAME,
9312: 'OTHERS',
9313: x_msg_count,
9328: -- End of comments
9329:
9330: PROCEDURE load_booking_summary(
9331: p_api_version IN NUMBER,
9332: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9333: x_return_status OUT NOCOPY VARCHAR2,
9334: x_msg_count OUT NOCOPY NUMBER,
9335: x_msg_data OUT NOCOPY VARCHAR2,
9336: p_chr_id IN NUMBER,
9335: x_msg_data OUT NOCOPY VARCHAR2,
9336: p_chr_id IN NUMBER,
9337: x_booking_summary_rec OUT NOCOPY booking_summary_rec) IS
9338:
9339: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
9340: l_api_name CONSTANT VARCHAR2(30) := 'load_booking_summary';
9341: l_api_version CONSTANT NUMBER := 1.0;
9342:
9343: CURSOR c_khr_currency(p_chr_id IN NUMBER) IS
9397: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9398: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'Begin(+)');
9399: END IF;
9400:
9401: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9402: -- Call start_activity to create savepoint, check compatibility
9403: -- and initialize message list
9404: x_return_status := OKL_API.START_ACTIVITY (
9405: l_api_name
9400:
9401: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9402: -- Call start_activity to create savepoint, check compatibility
9403: -- and initialize message list
9404: x_return_status := OKL_API.START_ACTIVITY (
9405: l_api_name
9406: ,p_init_msg_list
9407: ,'_PVT'
9408: ,x_return_status);
9406: ,p_init_msg_list
9407: ,'_PVT'
9408: ,x_return_status);
9409: -- Check if activity started successfully
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE OKL_API.G_EXCEPTION_ERROR;
9414: END IF;
9407: ,'_PVT'
9408: ,x_return_status);
9409: -- Check if activity started successfully
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE OKL_API.G_EXCEPTION_ERROR;
9414: END IF;
9415:
9408: ,x_return_status);
9409: -- Check if activity started successfully
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE OKL_API.G_EXCEPTION_ERROR;
9414: END IF;
9415:
9416: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9409: -- Check if activity started successfully
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE OKL_API.G_EXCEPTION_ERROR;
9414: END IF;
9415:
9416: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9417: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_DEAL_CREAT_PVT.load_booking_summary.',
9434: p_contract_id => p_chr_id,
9435: p_line_id => NULL,
9436: x_value => l_total_financed_amount);
9437:
9438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_ERROR;
9442: END IF;
9435: p_line_id => NULL,
9436: x_value => l_total_financed_amount);
9437:
9438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_ERROR;
9442: END IF;
9443:
9436: x_value => l_total_financed_amount);
9437:
9438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_ERROR;
9442: END IF;
9443:
9444: -- Format the financed amt
9437:
9438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_ERROR;
9442: END IF;
9443:
9444: -- Format the financed amt
9445: x_booking_summary_rec.total_financed_amount := OKL_ACCOUNTING_UTIL.format_amount(
9456: p_contract_id => p_chr_id,
9457: p_line_id => NULL,
9458: x_value => l_total_funded);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9457: p_line_id => NULL,
9458: x_value => l_total_funded);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9458: x_value => l_total_funded);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9466: -- Format the funded amt
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9466: -- Format the funded amt
9467: x_booking_summary_rec.total_funded := OKL_ACCOUNTING_UTIL.format_amount(
9485: p_chr_id => p_chr_id,
9486: p_accounting_method => NULL,
9487: x_subsidy_amount => l_total_subsidies);
9488:
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9486: p_accounting_method => NULL,
9487: x_subsidy_amount => l_total_subsidies);
9488:
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9487: x_subsidy_amount => l_total_subsidies);
9488:
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9495: -- Format the subsidy amt
9488:
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9495: -- Format the subsidy amt
9496: x_booking_summary_rec.total_subsidies := OKL_ACCOUNTING_UTIL.format_amount(
9522: x_booking_summary_rec.rvi_premium := OKL_ACCOUNTING_UTIL.format_amount(
9523: l_rvi_premium,
9524: l_currency_code);
9525:
9526: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9527:
9528: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9529: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'End(-)');
9530: END IF;
9529: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'End(-)');
9530: END IF;
9531:
9532: EXCEPTION
9533: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9534: IF c_khr_currency%ISOPEN THEN
9535: CLOSE c_khr_currency;
9536: END IF;
9537: IF c_residual_amt%ISOPEN THEN
9545: END IF;
9546: IF c_rvi_premium%ISOPEN THEN
9547: CLOSE c_rvi_premium;
9548: END IF;
9549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9550: l_api_name,
9551: G_PKG_NAME,
9552: 'OKL_API.G_RET_STS_ERROR',
9553: x_msg_count,
9548: END IF;
9549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9550: l_api_name,
9551: G_PKG_NAME,
9552: 'OKL_API.G_RET_STS_ERROR',
9553: x_msg_count,
9554: x_msg_data,
9555: '_PVT');
9556: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9555: '_PVT');
9556: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9557: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_DEAL_CREAT_PVT.load_booking_summary.', 'EXP - ERROR');
9558: END IF;
9559: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9560: IF c_khr_currency%ISOPEN THEN
9561: CLOSE c_khr_currency;
9562: END IF;
9563: IF c_residual_amt%ISOPEN THEN
9571: END IF;
9572: IF c_rvi_premium%ISOPEN THEN
9573: CLOSE c_rvi_premium;
9574: END IF;
9575: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9576: l_api_name,
9577: G_PKG_NAME,
9578: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9579: x_msg_count,
9574: END IF;
9575: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9576: l_api_name,
9577: G_PKG_NAME,
9578: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9579: x_msg_count,
9580: x_msg_data,
9581: '_PVT');
9582: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9597: END IF;
9598: IF c_rvi_premium%ISOPEN THEN
9599: CLOSE c_rvi_premium;
9600: END IF;
9601: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9602: l_api_name,
9603: G_PKG_NAME,
9604: 'OTHERS',
9605: x_msg_count,