45: x_base OUT NOCOPY ppydv_rec_type,
46: x_evg OUT NOCOPY ppydv_rec_type) IS
47: BEGIN
48: --base record population
49: x_base.object_version_number := OKL_API.G_MISS_NUM;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
46: x_evg OUT NOCOPY ppydv_rec_type) IS
47: BEGIN
48: --base record population
49: x_base.object_version_number := OKL_API.G_MISS_NUM;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
54: x_base.last_update_login := OKL_API.G_MISS_NUM;
47: BEGIN
48: --base record population
49: x_base.object_version_number := OKL_API.G_MISS_NUM;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
54: x_base.last_update_login := OKL_API.G_MISS_NUM;
55: x_base.id := p_from.b_payment_dtls_id;
48: --base record population
49: x_base.object_version_number := OKL_API.G_MISS_NUM;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
54: x_base.last_update_login := OKL_API.G_MISS_NUM;
55: x_base.id := p_from.b_payment_dtls_id;
56: x_base.cpl_id := p_from.b_cpl_id;
49: x_base.object_version_number := OKL_API.G_MISS_NUM;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
54: x_base.last_update_login := OKL_API.G_MISS_NUM;
55: x_base.id := p_from.b_payment_dtls_id;
56: x_base.cpl_id := p_from.b_cpl_id;
57: x_base.pay_site_id := p_from.b_pay_site_id;
50: x_base.created_by := OKL_API.G_MISS_NUM;
51: x_base.creation_date := OKL_API.G_MISS_DATE;
52: x_base.last_updated_by := OKL_API.G_MISS_NUM;
53: x_base.last_update_date := OKL_API.G_MISS_DATE;
54: x_base.last_update_login := OKL_API.G_MISS_NUM;
55: x_base.id := p_from.b_payment_dtls_id;
56: x_base.cpl_id := p_from.b_cpl_id;
57: x_base.pay_site_id := p_from.b_pay_site_id;
58: x_base.pay_group_code := p_from.b_pay_group_code;
70: x_base.processing_fee_fixed_amount := p_from.b_processing_fee_fixed_amount;
71: x_base.processing_fee_percent := p_from.b_processing_fee_percent;
72: --x_base.processing_fee_formula := p_from.b_processing_fee_formula;
73: -- evergreen record population
74: x_evg.object_version_number := OKL_API.G_MISS_NUM;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
71: x_base.processing_fee_percent := p_from.b_processing_fee_percent;
72: --x_base.processing_fee_formula := p_from.b_processing_fee_formula;
73: -- evergreen record population
74: x_evg.object_version_number := OKL_API.G_MISS_NUM;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
79: x_evg.last_update_login := OKL_API.G_MISS_NUM;
72: --x_base.processing_fee_formula := p_from.b_processing_fee_formula;
73: -- evergreen record population
74: x_evg.object_version_number := OKL_API.G_MISS_NUM;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
79: x_evg.last_update_login := OKL_API.G_MISS_NUM;
80: x_evg.id := p_from.e_payment_dtls_id;
73: -- evergreen record population
74: x_evg.object_version_number := OKL_API.G_MISS_NUM;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
79: x_evg.last_update_login := OKL_API.G_MISS_NUM;
80: x_evg.id := p_from.e_payment_dtls_id;
81: x_evg.cpl_id := p_from.e_cpl_id;
74: x_evg.object_version_number := OKL_API.G_MISS_NUM;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
79: x_evg.last_update_login := OKL_API.G_MISS_NUM;
80: x_evg.id := p_from.e_payment_dtls_id;
81: x_evg.cpl_id := p_from.e_cpl_id;
82: x_evg.pay_site_id := p_from.e_pay_site_id;
75: x_evg.created_by := OKL_API.G_MISS_NUM;
76: x_evg.creation_date := OKL_API.G_MISS_DATE;
77: x_evg.last_updated_by := OKL_API.G_MISS_NUM;
78: x_evg.last_update_date := OKL_API.G_MISS_DATE;
79: x_evg.last_update_login := OKL_API.G_MISS_NUM;
80: x_evg.id := p_from.e_payment_dtls_id;
81: x_evg.cpl_id := p_from.e_cpl_id;
82: x_evg.pay_site_id := p_from.e_pay_site_id;
83: x_evg.pay_group_code := p_from.e_pay_group_code;
169: x_msg_count => x_msg_count,
170: x_msg_data => x_msg_data,
171: p_ppydv_tbl => l_ppydv_tbl);
172:
173: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
174: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
176: raise OKL_API.G_EXCEPTION_ERROR;
177: End If;
170: x_msg_data => x_msg_data,
171: p_ppydv_tbl => l_ppydv_tbl);
172:
173: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
174: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
176: raise OKL_API.G_EXCEPTION_ERROR;
177: End If;
178: l_ppydv_tbl.DELETE;
171: p_ppydv_tbl => l_ppydv_tbl);
172:
173: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
174: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
176: raise OKL_API.G_EXCEPTION_ERROR;
177: End If;
178: l_ppydv_tbl.DELETE;
179: END IF;
172:
173: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
174: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
175: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
176: raise OKL_API.G_EXCEPTION_ERROR;
177: End If;
178: l_ppydv_tbl.DELETE;
179: END IF;
180:
201: x_msg_data => x_msg_data,
202: p_cplv_rec => l_cplv_rec,
203: p_kplv_rec => l_kplv_rec);
204:
205: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
208: raise OKL_API.G_EXCEPTION_ERROR;
209: End If;
202: p_cplv_rec => l_cplv_rec,
203: p_kplv_rec => l_kplv_rec);
204:
205: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
208: raise OKL_API.G_EXCEPTION_ERROR;
209: End If;
210: END IF;
203: p_kplv_rec => l_kplv_rec);
204:
205: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
208: raise OKL_API.G_EXCEPTION_ERROR;
209: End If;
210: END IF;
211:
204:
205: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
208: raise OKL_API.G_EXCEPTION_ERROR;
209: End If;
210: END IF;
211:
212: OKC_API.END_ACTIVITY (x_msg_count
317: OR l_base.processing_fee_fixed_amount IS NOT NULL
318: OR l_base.processing_fee_percent IS NOT NULL;
319:
320:
321: If( l_base_create AND l_base.payment_hdr_id IS NOT NULL AND (l_base.id IS NULL OR l_base.id = OKL_API.G_MISS_NUM) ) Then
322: okl_party_payments_pvt.create_party_payment_dtls(
323: p_api_version => p_api_version,
324: p_init_msg_list => p_init_msg_list,
325: x_return_status => l_return_status,
500:
501: --Bug# 4884423
502: -- Update of Payout Basis is not allowed during Rebook
503: l_chk_rebook_chr := OKL_LLA_UTIL_PVT.check_rebook_contract(p_chr_id => l_passthru_rec.dnz_chr_id);
504: IF (NVL(l_chk_rebook_chr,OKL_API.G_MISS_CHAR) = OKL_API.G_TRUE) THEN
505:
506: OPEN l_cle_csr(p_cle_id => l_passthru_rec.cle_id);
507: FETCH l_cle_csr INTO l_cle_rec;
508: CLOSE l_cle_csr;
510: -- Validation required for only existing fee lines, not
511: -- for newly added fee lines
512: IF (l_cle_rec.orig_system_id1 IS NOT NULL) THEN
513:
514: l_base_payout_basis_upd := OKL_API.G_FALSE;
515: l_evgn_payout_basis_upd := OKL_API.G_FALSE;
516:
517: IF ((l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
518: AND l_passthru_rec.payout_basis IS NOT NULL) THEN
511: -- for newly added fee lines
512: IF (l_cle_rec.orig_system_id1 IS NOT NULL) THEN
513:
514: l_base_payout_basis_upd := OKL_API.G_FALSE;
515: l_evgn_payout_basis_upd := OKL_API.G_FALSE;
516:
517: IF ((l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
518: AND l_passthru_rec.payout_basis IS NOT NULL) THEN
519: l_base_payout_basis_upd := OKL_API.G_TRUE;
513:
514: l_base_payout_basis_upd := OKL_API.G_FALSE;
515: l_evgn_payout_basis_upd := OKL_API.G_FALSE;
516:
517: IF ((l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
518: AND l_passthru_rec.payout_basis IS NOT NULL) THEN
519: l_base_payout_basis_upd := OKL_API.G_TRUE;
520:
521: ELSIF NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM)
515: l_evgn_payout_basis_upd := OKL_API.G_FALSE;
516:
517: IF ((l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
518: AND l_passthru_rec.payout_basis IS NOT NULL) THEN
519: l_base_payout_basis_upd := OKL_API.G_TRUE;
520:
521: ELSIF NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM)
522: THEN
523: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.base_id) LOOP
517: IF ((l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
518: AND l_passthru_rec.payout_basis IS NOT NULL) THEN
519: l_base_payout_basis_upd := OKL_API.G_TRUE;
520:
521: ELSIF NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM)
522: THEN
523: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.base_id) LOOP
524: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
525: NVL(l_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR)) THEN
520:
521: ELSIF NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM)
522: THEN
523: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.base_id) LOOP
524: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
525: NVL(l_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR)) THEN
526:
527: l_base_payout_basis_upd := OKL_API.G_TRUE;
528:
521: ELSIF NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM)
522: THEN
523: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.base_id) LOOP
524: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
525: NVL(l_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR)) THEN
526:
527: l_base_payout_basis_upd := OKL_API.G_TRUE;
528:
529: END IF;
523: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.base_id) LOOP
524: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
525: NVL(l_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR)) THEN
526:
527: l_base_payout_basis_upd := OKL_API.G_TRUE;
528:
529: END IF;
530: END LOOP;
531: END IF;
529: END IF;
530: END LOOP;
531: END IF;
532:
533: IF (l_base_payout_basis_upd = OKL_API.G_TRUE) THEN
534: OKL_API.set_message(p_app_name => G_APP_NAME,
535: p_msg_name => 'OKL_LA_RBK_BASE_PYT_BS_UPD');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
530: END LOOP;
531: END IF;
532:
533: IF (l_base_payout_basis_upd = OKL_API.G_TRUE) THEN
534: OKL_API.set_message(p_app_name => G_APP_NAME,
535: p_msg_name => 'OKL_LA_RBK_BASE_PYT_BS_UPD');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
532:
533: IF (l_base_payout_basis_upd = OKL_API.G_TRUE) THEN
534: OKL_API.set_message(p_app_name => G_APP_NAME,
535: p_msg_name => 'OKL_LA_RBK_BASE_PYT_BS_UPD');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: IF ((l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM )
540: AND l_passthru_rec.evergreen_payout_basis IS NOT NULL) THEN
535: p_msg_name => 'OKL_LA_RBK_BASE_PYT_BS_UPD');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: IF ((l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM )
540: AND l_passthru_rec.evergreen_payout_basis IS NOT NULL) THEN
541: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
542:
543: ELSIF NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM)
537: END IF;
538:
539: IF ((l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM )
540: AND l_passthru_rec.evergreen_payout_basis IS NOT NULL) THEN
541: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
542:
543: ELSIF NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM)
544: THEN
545: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.evergreen_id) LOOP
539: IF ((l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM )
540: AND l_passthru_rec.evergreen_payout_basis IS NOT NULL) THEN
541: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
542:
543: ELSIF NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM)
544: THEN
545: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.evergreen_id) LOOP
546: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
547: NVL(l_passthru_rec.evergreen_payout_basis,OKL_API.G_MISS_CHAR)) THEN
542:
543: ELSIF NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM)
544: THEN
545: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.evergreen_id) LOOP
546: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
547: NVL(l_passthru_rec.evergreen_payout_basis,OKL_API.G_MISS_CHAR)) THEN
548:
549: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
550:
543: ELSIF NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM)
544: THEN
545: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.evergreen_id) LOOP
546: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
547: NVL(l_passthru_rec.evergreen_payout_basis,OKL_API.G_MISS_CHAR)) THEN
548:
549: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
550:
551: END IF;
545: FOR l_old_passthru_rec IN l_old_passthru_csr(p_pph_id => l_passthru_rec.evergreen_id) LOOP
546: IF (NVL(l_old_passthru_rec.payout_basis,OKL_API.G_MISS_CHAR) <>
547: NVL(l_passthru_rec.evergreen_payout_basis,OKL_API.G_MISS_CHAR)) THEN
548:
549: l_evgn_payout_basis_upd := OKL_API.G_TRUE;
550:
551: END IF;
552: END LOOP;
553: END IF;
551: END IF;
552: END LOOP;
553: END IF;
554:
555: IF (l_evgn_payout_basis_upd = OKL_API.G_TRUE) THEN
556: OKL_API.set_message(p_app_name => G_APP_NAME,
557: p_msg_name => 'OKL_LA_RBK_EVGN_PYT_BS_UPD');
558: RAISE OKL_API.G_EXCEPTION_ERROR;
559: END IF;
552: END LOOP;
553: END IF;
554:
555: IF (l_evgn_payout_basis_upd = OKL_API.G_TRUE) THEN
556: OKL_API.set_message(p_app_name => G_APP_NAME,
557: p_msg_name => 'OKL_LA_RBK_EVGN_PYT_BS_UPD');
558: RAISE OKL_API.G_EXCEPTION_ERROR;
559: END IF;
560: END IF;
554:
555: IF (l_evgn_payout_basis_upd = OKL_API.G_TRUE) THEN
556: OKL_API.set_message(p_app_name => G_APP_NAME,
557: p_msg_name => 'OKL_LA_RBK_EVGN_PYT_BS_UPD');
558: RAISE OKL_API.G_EXCEPTION_ERROR;
559: END IF;
560: END IF;
561: END IF;
562: --Bug# 4884423
564: ------------------------------------------------------------------
565: --Create base and evergreen if we are actually in Create mode
566: ------------------------------------------------------------------
567: --create payment header base term
568: If ( (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM )
569: AND l_passthru_rec.payout_basis IS NOT NULL) Then
570:
571: l_pphv_rec.dnz_chr_id := l_passthru_rec.dnz_chr_id;
572: l_pphv_rec.cle_id := l_passthru_rec.cle_id;
598: End If;
599: End If;
600:
601: --create payment header evergreen term
602: If ( (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM )
603: AND l_passthru_rec.evergreen_payout_basis IS NOT NULL) Then
604: --AND l_passthru_rec.evergreen_eligible_yn = 'Y') Then
605: --create payment header evergreen term
606: l_pphv_evg_rec.dnz_chr_id := l_passthru_rec.dnz_chr_id;
637: ------------------------------------------------------------------
638: --Update base and evergreen if we are actually in update mode
639: ------------------------------------------------------------------
640: --Update base
641: If NOT (l_passthru_rec.base_id IS NULL OR l_passthru_rec.base_id = OKL_API.G_MISS_NUM) Then
642: --l_pphv_rec.id := l_party_payment_rec.id;
643: l_pphv_rec.id := l_passthru_rec.base_id;
644: l_pphv_rec.passthru_term := 'BASE';
645: l_pphv_rec.dnz_chr_id := l_passthru_rec.dnz_chr_id;
669: raise OKC_API.G_EXCEPTION_ERROR;
670: End If;
671: End If;
672: --Update evergreen
673: If NOT (l_passthru_rec.evergreen_id IS NULL OR l_passthru_rec.evergreen_id = OKL_API.G_MISS_NUM) Then
674: --l_pphv_rec.id := l_party_payment_rec.id;
675: l_pphv_rec.id := l_passthru_rec.evergreen_id;
676: l_pphv_rec.passthru_term := 'EVERGREEN';
677: l_pphv_rec.dnz_chr_id := l_passthru_rec.dnz_chr_id;
883: p_parameters => l_parameter_list);
884:
885: EXCEPTION
886: WHEN OTHERS THEN
887: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: END raise_business_event;
890:
891: /*
884:
885: EXCEPTION
886: WHEN OTHERS THEN
887: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: END raise_business_event;
890:
891: /*
892: -- vthiruva, 09/01/2004
1670: If ( p_fee_types_rec.fee_type = G_FT_CAPITALIZED or
1671: p_fee_types_rec.fee_type = G_FT_FINANCED
1672: ) Then
1673:
1674: IF (p_fee_types_rec.fee_purpose_code is not null AND p_fee_types_rec.fee_purpose_code <> OKL_API.G_MISS_CHAR) THEN
1675:
1676: l_fee_purpose_code := null;
1677: open l_fee_purpose_csr(p_fee_types_rec.fee_purpose_code);
1678: fetch l_fee_purpose_csr into l_fee_purpose_code;
2034:
2035: -- sales tax changes
2036: --Bug# 6917539: Investor agreement validation causes regression issues
2037: -- for contracts as NULL value is not handled
2038: If( NVL(l_is_investor,0) <> 1 AND (p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKL_API.G_MISS_NUM) and
2039: (p_fee_types_rec.fee_type = G_FT_CAPITALIZED OR p_fee_types_rec.fee_type = G_FT_FINANCED)
2040: OR (p_fee_types_rec.fee_type = G_FT_ABSORBED AND p_fee_types_rec.fee_purpose_code
2041: <> OKL_API.G_MISS_CHAR AND p_fee_types_rec.fee_purpose_code = 'RVI') ) Then
2042: x_klev_rec.fee_purpose_code := p_fee_types_rec.fee_purpose_code;
2037: -- for contracts as NULL value is not handled
2038: If( NVL(l_is_investor,0) <> 1 AND (p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKL_API.G_MISS_NUM) and
2039: (p_fee_types_rec.fee_type = G_FT_CAPITALIZED OR p_fee_types_rec.fee_type = G_FT_FINANCED)
2040: OR (p_fee_types_rec.fee_type = G_FT_ABSORBED AND p_fee_types_rec.fee_purpose_code
2041: <> OKL_API.G_MISS_CHAR AND p_fee_types_rec.fee_purpose_code = 'RVI') ) Then
2042: x_klev_rec.fee_purpose_code := p_fee_types_rec.fee_purpose_code;
2043: End If;
2044:
2045: --Bug# 4558486
2560: --Bug# 4721428
2561: For fee_subline_rec In fee_subline_csr(p_cle_id => l_clev_rec.id,
2562: p_chr_id => l_clev_rec.dnz_chr_id) Loop
2563:
2564: If ( (NVL(l_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE AND
2565: fee_subline_rec.start_date <> l_clev_rec.start_date) OR
2566: (NVL(l_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE AND
2567: fee_subline_rec.end_date <> l_clev_rec.end_date) ) Then
2568:
2562: p_chr_id => l_clev_rec.dnz_chr_id) Loop
2563:
2564: If ( (NVL(l_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE AND
2565: fee_subline_rec.start_date <> l_clev_rec.start_date) OR
2566: (NVL(l_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE AND
2567: fee_subline_rec.end_date <> l_clev_rec.end_date) ) Then
2568:
2569: l_sub_clev_rec.id := fee_subline_rec.id;
2570: l_sub_klev_rec.id := fee_subline_rec.id;
2582: x_clev_rec => x_sub_clev_rec,
2583: x_klev_rec => x_sub_klev_rec
2584: );
2585:
2586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2589: RAISE OKL_API.G_EXCEPTION_ERROR;
2590: END IF;
2583: x_klev_rec => x_sub_klev_rec
2584: );
2585:
2586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2589: RAISE OKL_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: End If;
2584: );
2585:
2586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2589: RAISE OKL_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: End If;
2592: End Loop;
2585:
2586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2589: RAISE OKL_API.G_EXCEPTION_ERROR;
2590: END IF;
2591: End If;
2592: End Loop;
2593: --Bug# 4721428
2845: x_msg_count => x_msg_count,
2846: x_msg_data => x_msg_data,
2847: p_cle_id => lp_fee_types_rec.line_id);
2848:
2849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_ERROR;
2853: END IF;
2846: x_msg_data => x_msg_data,
2847: p_cle_id => lp_fee_types_rec.line_id);
2848:
2849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: --Bug# 4959361
2847: p_cle_id => lp_fee_types_rec.line_id);
2848:
2849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: --Bug# 4959361
2855:
2848:
2849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: --Bug# 4959361
2855:
2856: OKL_MAINTAIN_FEE_PVT.validate_fee_type(
2870: End If;
2871:
2872: --Bug# 4899328
2873: l_chk_rebook_chr := OKL_LLA_UTIL_PVT.check_rebook_contract(p_chr_id => lp_fee_types_rec.dnz_chr_id);
2874: If (l_chk_rebook_chr = OKL_API.G_TRUE and lp_fee_types_rec.fee_type = G_FT_ROLLOVER) Then
2875:
2876: For l_line_rec In l_line_csr(p_cle_id => lp_fee_types_rec.line_id) Loop
2877:
2878: If (l_line_rec.orig_system_id1 IS NOT NULL And
2877:
2878: If (l_line_rec.orig_system_id1 IS NOT NULL And
2879: l_line_rec.qte_id <> lp_fee_types_rec.qte_id) Then
2880:
2881: OKL_API.set_message(p_app_name => G_APP_NAME,
2882: p_msg_name => 'OKL_LA_RBK_ROLL_QT_UPDATE');
2883: RAISE OKL_API.G_EXCEPTION_ERROR;
2884:
2885: End If;
2879: l_line_rec.qte_id <> lp_fee_types_rec.qte_id) Then
2880:
2881: OKL_API.set_message(p_app_name => G_APP_NAME,
2882: p_msg_name => 'OKL_LA_RBK_ROLL_QT_UPDATE');
2883: RAISE OKL_API.G_EXCEPTION_ERROR;
2884:
2885: End If;
2886: End Loop;
2887: End If;
2962: x_msg_data => x_msg_data,
2963: p_chr_id => lx_clev_rec.dnz_chr_id,
2964: p_cle_id => lx_clev_rec.id);
2965:
2966: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2967: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2969: raise OKL_API.G_EXCEPTION_ERROR;
2970: End If;
2963: p_chr_id => lx_clev_rec.dnz_chr_id,
2964: p_cle_id => lx_clev_rec.id);
2965:
2966: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2967: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2969: raise OKL_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2964: p_cle_id => lx_clev_rec.id);
2965:
2966: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2967: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2969: raise OKL_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2972: END IF;
2965:
2966: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2967: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2969: raise OKL_API.G_EXCEPTION_ERROR;
2970: End If;
2971:
2972: END IF;
2973: -- Bug# 6438785
3186:
3187: IF(( l_fee_purpose_code is not null) and (l_fee_purpose_code <> OKC_API.G_MISS_CHAR) and (l_fee_purpose_code = 'RVI')) Then
3188: IF (p_fee_types_rec.fee_purpose_code is not null) and (p_fee_types_rec.fee_purpose_code <> 'RVI_DUMMY') THEN
3189: x_return_status := OKC_API.g_ret_sts_error;
3190: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3191: p_msg_name => 'OKL_LA_RVI_DELETE_NOT_ALLOWED');
3192:
3193: RAISE OKC_API.G_EXCEPTION_ERROR;
3194: End If;
3345: -- vthiruva, 09/01/2004
3346: -- START, Code change to enable Business Event
3347: */
3348: --raise the business event for remove fee if its a lease contract
3349: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE)THEN
3350: raise_business_event(p_api_version => p_api_version,
3351: p_init_msg_list => p_init_msg_list,
3352: x_return_status => x_return_status,
3353: x_msg_count => x_msg_count,
3355: p_chr_id => l_chr_id,
3356: p_fee_line_id => l_line_id,
3357: p_event_name => G_WF_EVT_FEE_REMOVED);
3358:
3359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: END IF;
3356: p_fee_line_id => l_line_id,
3357: p_event_name => G_WF_EVT_FEE_REMOVED);
3358:
3359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: END IF;
3364: END IF;
3357: p_event_name => G_WF_EVT_FEE_REMOVED);
3358:
3359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: END IF;
3364: END IF;
3365: /*
3358:
3359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: END IF;
3364: END IF;
3365: /*
3366: -- vthiruva, 09/01/2004
3993:
3994: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_ROLLOVER_FEELINE';
3995: l_api_version CONSTANT NUMBER := 1.0;
3996:
3997: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3998:
3999: l_not_found BOOLEAN := FALSE;
4000: l_amt NUMBER;
4001: l_found VARCHAR2(1);
4162:
4163: BEGIN
4164:
4165: IF (NOT p_for_qa_check) THEN
4166: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4167: END IF;
4168: /*
4169: x_return_status := OKL_API.START_ACTIVITY(
4170: p_api_name => l_api_name,
4165: IF (NOT p_for_qa_check) THEN
4166: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4167: END IF;
4168: /*
4169: x_return_status := OKL_API.START_ACTIVITY(
4170: p_api_name => l_api_name,
4171: p_pkg_name => g_pkg_name,
4172: p_init_msg_list => p_init_msg_list,
4173: l_api_version => l_api_version,
4175: p_api_type => G_API_TYPE,
4176: x_return_status => x_return_status);
4177:
4178: -- check if activity started successfully
4179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4180: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4181: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4182: raise OKL_API.G_EXCEPTION_ERROR;
4183: END IF;
4176: x_return_status => x_return_status);
4177:
4178: -- check if activity started successfully
4179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4180: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4181: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4182: raise OKL_API.G_EXCEPTION_ERROR;
4183: END IF;
4184: */
4177:
4178: -- check if activity started successfully
4179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4180: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4181: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4182: raise OKL_API.G_EXCEPTION_ERROR;
4183: END IF;
4184: */
4185:
4178: -- check if activity started successfully
4179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4180: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4181: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4182: raise OKL_API.G_EXCEPTION_ERROR;
4183: END IF;
4184: */
4185:
4186: /* check if it is a mass rebook contract */
4224: l_not_found := l_cust_accnt_csr%NOTFOUND;
4225: CLOSE l_cust_accnt_csr;
4226:
4227: IF( l_not_found ) THEN
4228: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: l_not_found := NULL;
4230: l_found := NULL;
4231: OKL_API.set_message(
4232: p_app_name => G_APP_NAME,
4227: IF( l_not_found ) THEN
4228: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: l_not_found := NULL;
4230: l_found := NULL;
4231: OKL_API.set_message(
4232: p_app_name => G_APP_NAME,
4233: p_msg_name => 'OKL_LLA_RQ_CUST_NO_MATCH',
4234: p_token1 => 'CONTRACT_NUMBER',
4235: p_token1_value => l_k_num,
4238: p_token3 => 'FEE_LINE',
4239: p_token3_value => l_fee_name);
4240:
4241: IF (NOT p_for_qa_check) THEN
4242: RAISE OKL_API.G_EXCEPTION_ERROR;
4243: END IF;
4244: END IF;
4245:
4246: /* Check if the Currency Code on the current Contract
4251: l_not_found := l_curr_code_csr%NOTFOUND;
4252: CLOSE l_curr_code_csr;
4253:
4254: IF( l_not_found ) THEN
4255: x_return_status := OKL_API.G_RET_STS_ERROR;
4256: l_not_found := NULL;
4257: l_found := NULL;
4258: OKL_API.set_message(
4259: p_app_name => G_APP_NAME,
4254: IF( l_not_found ) THEN
4255: x_return_status := OKL_API.G_RET_STS_ERROR;
4256: l_not_found := NULL;
4257: l_found := NULL;
4258: OKL_API.set_message(
4259: p_app_name => G_APP_NAME,
4260: p_msg_name => 'OKL_LLA_RQ_CURR_NO_MATCH',
4261: p_token1 => 'CONTRACT_NUMBER',
4262: p_token1_value => l_k_num,
4265: p_token3 => 'FEE_LINE',
4266: p_token3_value => l_fee_name);
4267:
4268: IF (NOT p_for_qa_check) THEN
4269: RAISE OKL_API.G_EXCEPTION_ERROR;
4270: END IF;
4271: END IF;
4272:
4273:
4292: l_not_found := l_qts_code_csr%NOTFOUND;
4293: CLOSE l_qts_code_csr;
4294:
4295: IF( l_not_found ) THEN
4296: x_return_status := OKL_API.G_RET_STS_ERROR;
4297: l_not_found := NULL;
4298: l_found := NULL;
4299: OKL_API.set_message(
4300: p_app_name => G_APP_NAME,
4295: IF( l_not_found ) THEN
4296: x_return_status := OKL_API.G_RET_STS_ERROR;
4297: l_not_found := NULL;
4298: l_found := NULL;
4299: OKL_API.set_message(
4300: p_app_name => G_APP_NAME,
4301: p_msg_name => 'OKL_LLA_RQ_STS_NOT_APPROVED',
4302: p_token1 => 'QUOTE_NUMBER',
4303: p_token1_value => l_q_num,
4304: p_token2 => 'FEE_LINE',
4305: p_token2_value => l_fee_name);
4306:
4307: IF (NOT p_for_qa_check) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310: END IF;
4311:
4312: END IF;
4318: l_not_found := l_con_yn_csr%NOTFOUND;
4319: CLOSE l_con_yn_csr;
4320:
4321: IF( l_not_found ) THEN
4322: x_return_status := OKL_API.G_RET_STS_ERROR;
4323: l_not_found := NULL;
4324: l_found := NULL;
4325: OKL_API.set_message(
4326: p_app_name => G_APP_NAME,
4321: IF( l_not_found ) THEN
4322: x_return_status := OKL_API.G_RET_STS_ERROR;
4323: l_not_found := NULL;
4324: l_found := NULL;
4325: OKL_API.set_message(
4326: p_app_name => G_APP_NAME,
4327: p_msg_name => 'OKL_LLA_RQ_CON_FLG_NOT_Y',
4328: p_token1 => 'QUOTE_NUMBER',
4329: p_token1_value => l_q_num);
4328: p_token1 => 'QUOTE_NUMBER',
4329: p_token1_value => l_q_num);
4330:
4331: IF ( NOT p_for_qa_check) THEN
4332: RAISE OKL_API.G_EXCEPTION_ERROR;
4333: END IF;
4334: END IF;
4335:
4336: /* Check if the Quote Type is either TER_ROLL_PURCHASE or
4341: l_not_found := l_qte_typ_csr%NOTFOUND;
4342: CLOSE l_qte_typ_csr;
4343:
4344: IF( l_not_found ) THEN
4345: x_return_status := OKL_API.G_RET_STS_ERROR;
4346: l_not_found := NULL;
4347: l_found := NULL;
4348: OKL_API.set_message(
4349: p_app_name => G_APP_NAME,
4344: IF( l_not_found ) THEN
4345: x_return_status := OKL_API.G_RET_STS_ERROR;
4346: l_not_found := NULL;
4347: l_found := NULL;
4348: OKL_API.set_message(
4349: p_app_name => G_APP_NAME,
4350: p_msg_name => 'OKL_LLA_RQ_TYP_NOT_CORRECT',
4351: p_token1 => 'QUOTE_NUMBER',
4352: p_token1_value => l_q_num);
4351: p_token1 => 'QUOTE_NUMBER',
4352: p_token1_value => l_q_num);
4353:
4354: IF ( NOT p_for_qa_check) THEN
4355: RAISE OKL_API.G_EXCEPTION_ERROR;
4356: END IF;
4357: END IF;
4358:
4359: /* Check if the Rollover Fee Start date is between Quote
4364: l_not_found := l_rq_fee_check_csr%NOTFOUND;
4365: CLOSE l_rq_fee_check_csr;
4366:
4367: IF( l_not_found ) THEN
4368: x_return_status := OKL_API.G_RET_STS_ERROR;
4369: l_not_found := NULL;
4370: l_found := NULL;
4371: OKL_API.set_message(
4372: p_app_name => G_APP_NAME,
4367: IF( l_not_found ) THEN
4368: x_return_status := OKL_API.G_RET_STS_ERROR;
4369: l_not_found := NULL;
4370: l_found := NULL;
4371: OKL_API.set_message(
4372: p_app_name => G_APP_NAME,
4373: p_msg_name => 'OKL_LLA_RQ_FEE_NOT_CORRECT',
4374: p_token1 => 'FEE_LINE',
4375: p_token1_value => l_fee_name,
4376: p_token2 => 'QUOTE_NUMBER',
4377: p_token2_value => l_q_num);
4378:
4379: IF (NOT p_for_qa_check) THEN
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382: END IF;
4383:
4384: /* Check if the Rollover Quote Amount is equal to
4389: l_not_found := l_rq_amt_check_csr%NOTFOUND;
4390: CLOSE l_rq_amt_check_csr;
4391:
4392: IF( l_not_found ) THEN
4393: x_return_status := OKL_API.G_RET_STS_ERROR;
4394: OKL_API.set_message(
4395: p_app_name => G_APP_NAME,
4396: p_msg_name => 'OKL_LLA_RQ_AMT_NOT_EQUAL',
4397: p_token1 => 'FEE_LINE',
4390: CLOSE l_rq_amt_check_csr;
4391:
4392: IF( l_not_found ) THEN
4393: x_return_status := OKL_API.G_RET_STS_ERROR;
4394: OKL_API.set_message(
4395: p_app_name => G_APP_NAME,
4396: p_msg_name => 'OKL_LLA_RQ_AMT_NOT_EQUAL',
4397: p_token1 => 'FEE_LINE',
4398: p_token1_value => l_fee_name,
4399: p_token2 => 'QUOTE_NUMBER',
4400: p_token2_value => l_q_num);
4401:
4402: IF ( NOT p_for_qa_check) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4405: END IF;
4406:
4407:
4406:
4407:
4408: EXCEPTION
4409:
4410: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4411: x_return_status := OKL_API.G_RET_STS_ERROR;
4412:
4413:
4414: IF l_con_qte_csr%ISOPEN THEN
4407:
4408: EXCEPTION
4409:
4410: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4411: x_return_status := OKL_API.G_RET_STS_ERROR;
4412:
4413:
4414: IF l_con_qte_csr%ISOPEN THEN
4415: CLOSE l_con_qte_csr;
4446: IF l_rq_amt_check_csr%ISOPEN THEN
4447: CLOSE l_rq_amt_check_csr;
4448: END IF;
4449:
4450: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4452:
4453:
4454: IF l_con_qte_csr%ISOPEN THEN
4447: CLOSE l_rq_amt_check_csr;
4448: END IF;
4449:
4450: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4452:
4453:
4454: IF l_con_qte_csr%ISOPEN THEN
4455: CLOSE l_con_qte_csr;
4525: IF l_rq_amt_check_csr%ISOPEN THEN
4526: CLOSE l_rq_amt_check_csr;
4527: END IF;
4528:
4529: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4530: p_api_name => l_api_name,
4531: p_pkg_name => g_pkg_name,
4532: p_exc_name => 'OTHERS',
4533: x_msg_count => x_msg_count,
4780: close l_orig_src_code_csr;
4781:
4782: If(l_orig_src_code = 'OKL_SPLIT' OR l_orig_src_code = 'OKL_RELEASE') Then
4783: x_rem_amt := 0;
4784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4785: return;
4786: End If;
4787:
4788: open l_rq_fee_lns_bkg_csr(p_chr_id);
4791:
4792: -- check whether rollover quote and cleditline exists
4793: If(l_qte_id is null OR l_qte_id = OKC_API.G_MISS_NUM) Then
4794: x_rem_amt := 0;
4795: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4796: return;
4797: End If;
4798:
4799: -- check whether creditline exists
4800: l_cl_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
4801:
4802: If(l_cl_id is null OR l_cl_id = OKC_API.G_MISS_NUM) Then
4803: x_rem_amt := 0;
4804: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4805: return;
4806: End If;
4807:
4808: -- get the remaining amount
4918: l_release_contract_yn VARCHAR2(1);
4919:
4920: BEGIN
4921:
4922: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4923:
4924: SELECT NVL(amount, 0)
4925: INTO l_line_amount
4926: FROM okl_k_lines
4936:
4937: l_line_amount := l_line_amount - NVL(l_term_sub_lines_amt,0);
4938:
4939: IF l_line_amount < 0 THEN
4940: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4941: ,p_msg_name => 'OKL_LA_NEGATIVE_COV_AST_AMT'
4942: ,p_token1 => 'AMOUNT'
4943: ,p_token1_value => TO_CHAR(NVL(l_term_sub_lines_amt,0)));
4944: RAISE OKL_API.G_EXCEPTION_ERROR;
4940: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4941: ,p_msg_name => 'OKL_LA_NEGATIVE_COV_AST_AMT'
4942: ,p_token1 => 'AMOUNT'
4943: ,p_token1_value => TO_CHAR(NVL(l_term_sub_lines_amt,0)));
4944: RAISE OKL_API.G_EXCEPTION_ERROR;
4945: END IF;
4946:
4947: SELECT currency_code
4948: INTO l_currency_code
4952: l_link_asset_tbl := p_link_asset_tbl;
4953:
4954: IF (l_link_asset_tbl.COUNT > 0) THEN
4955:
4956: l_release_contract_yn := okl_api.g_false;
4957: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
4958:
4959: ------------------------------------------------------------------
4960: -- 1. Loop through to get OEC total of all assets being associated
4963:
4964: IF l_link_asset_tbl.EXISTS(i) THEN
4965:
4966: --Bug# 4631549
4967: If l_release_contract_yn = okl_api.g_true then
4968: SELECT NVL(expected_asset_cost, 0)
4969: INTO l_asset_oec
4970: FROM okl_k_lines
4971: WHERE id = l_link_asset_tbl(i).fin_asset_id;
5000: ELSE
5001:
5002: -- LLA APIs ensure asset OEC and line amount are rounded
5003: --Bug# 4631549
5004: If l_release_contract_yn = okl_api.g_true then
5005: SELECT NVL(expected_asset_cost, 0)
5006: INTO l_asset_oec
5007: FROM okl_k_lines
5008: WHERE id = l_link_asset_tbl(i).fin_asset_id;
5154: x_msg_data => x_msg_data,
5155: p_line_item_tbl => l_create_line_item_tbl,
5156: x_line_item_tbl => lx_line_item_tbl);
5157:
5158: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5160: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5161: RAISE OKL_API.G_EXCEPTION_ERROR;
5162: END IF;
5155: p_line_item_tbl => l_create_line_item_tbl,
5156: x_line_item_tbl => lx_line_item_tbl);
5157:
5158: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5160: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5161: RAISE OKL_API.G_EXCEPTION_ERROR;
5162: END IF;
5163:
5156: x_line_item_tbl => lx_line_item_tbl);
5157:
5158: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5160: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5161: RAISE OKL_API.G_EXCEPTION_ERROR;
5162: END IF;
5163:
5164: END IF;
5157:
5158: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5160: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5161: RAISE OKL_API.G_EXCEPTION_ERROR;
5162: END IF;
5163:
5164: END IF;
5165:
5172: x_msg_data => x_msg_data,
5173: p_line_item_tbl => l_update_line_item_tbl,
5174: x_line_item_tbl => lx_line_item_tbl);
5175:
5176: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5180: END IF;
5173: p_line_item_tbl => l_update_line_item_tbl,
5174: x_line_item_tbl => lx_line_item_tbl);
5175:
5176: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5174: x_line_item_tbl => lx_line_item_tbl);
5175:
5176: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5182: END IF;
5175:
5176: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5182: END IF;
5183:
5184: END IF;
5185:
5186: EXCEPTION
5187:
5188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5189:
5190: x_return_status := OKL_API.G_RET_STS_ERROR;
5191:
5192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5186: EXCEPTION
5187:
5188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5189:
5190: x_return_status := OKL_API.G_RET_STS_ERROR;
5191:
5192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5193:
5194: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5189:
5190: x_return_status := OKL_API.G_RET_STS_ERROR;
5191:
5192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5193:
5194: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5195:
5196: WHEN OTHERS THEN
5190: x_return_status := OKL_API.G_RET_STS_ERROR;
5191:
5192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5193:
5194: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5195:
5196: WHEN OTHERS THEN
5197:
5198: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5194: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5195:
5196: WHEN OTHERS THEN
5197:
5198: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5199:
5200: END create_update_link_assets;
5201: --Bug# 4899328
5202:
5329: x_return_status => x_return_status,
5330: x_msg_count => x_msg_count,
5331: x_msg_data => x_msg_data);
5332:
5333: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5335: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
5336: RAISE OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5330: x_msg_count => x_msg_count,
5331: x_msg_data => x_msg_data);
5332:
5333: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5335: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
5336: RAISE OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5338:
5331: x_msg_data => x_msg_data);
5332:
5333: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5335: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
5336: RAISE OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5338:
5339: END IF;
5332:
5333: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5335: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
5336: RAISE OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5338:
5339: END IF;
5340: --Bug# 4899328: End
5457: FROM okc_k_items_v
5458: WHERE cle_id = fee_line_id;
5459:
5460:
5461: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5462: l_api_name VARCHAR2(200) := 'process_rvi_stream';
5463:
5464: l_fee_types_rec fee_types_rec_type := p_fee_types_rec;
5465: l_line_id okc_k_lines_b.id%type;
5510: raise OKC_API.G_EXCEPTION_ERROR;
5511: End If;
5512:
5513: -- initialize return variables
5514: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5515: -- added for bug 4524091
5516:
5517: open get_k_details_csr (l_chr_id);
5518: fetch get_k_details_csr into l_start_date, l_end_date,l_orig_system_source_code;
5519: close get_k_details_csr;
5520:
5521: if ((l_orig_system_source_code is not null) and (l_orig_system_source_code = 'OKL_REBOOK')) then
5522: -- not allowed to change RVI in T and C during rebook.
5523: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5524: p_msg_name => 'OKL_RVI_STRM_CANNOT_CHANGED');
5525: RAISE OKC_API.G_EXCEPTION_ERROR;
5526: end if;
5527: -- end 4524091
5561: -- p_check_box_value1 := 'Y';
5562: if (l_check_box_val = 'Y') then
5563: if ((l_price_engine is not null) and (l_price_engine = 'INTERNAL' ))THEN
5564: -- not allowed for internal stream generation
5565: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5566: p_msg_name => 'OKL_LA_RVI_NO_ISG');
5567: RAISE OKC_API.G_EXCEPTION_ERROR;
5568: elsif ((l_price_engine is not null) and (l_price_engine = 'EXTERNAL' ))THEN
5569: -- it is external stream generation
5568: elsif ((l_price_engine is not null) and (l_price_engine = 'EXTERNAL' ))THEN
5569: -- it is external stream generation
5570:
5571:
5572: if ((p_fee_types_rec.item_id1 is null) or (p_fee_types_rec.item_id1 = OKL_API.G_MISS_CHAR)) THEN
5573: -- throw error message stm name is manditory
5574: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5575: p_msg_name => 'OKL_RVI_STREAM_REQD');
5576: RAISE OKC_API.G_EXCEPTION_ERROR;
5570:
5571:
5572: if ((p_fee_types_rec.item_id1 is null) or (p_fee_types_rec.item_id1 = OKL_API.G_MISS_CHAR)) THEN
5573: -- throw error message stm name is manditory
5574: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5575: p_msg_name => 'OKL_RVI_STREAM_REQD');
5576: RAISE OKC_API.G_EXCEPTION_ERROR;
5577: end if;
5578:
5575: p_msg_name => 'OKL_RVI_STREAM_REQD');
5576: RAISE OKC_API.G_EXCEPTION_ERROR;
5577: end if;
5578:
5579: if ((l_strm_id IS NOT NULL) AND (l_strm_id <> OKL_API.G_MISS_NUM)) THEN
5580:
5581: open get_okc_k_items_csr (l_fee_line_id);
5582: fetch get_okc_k_items_csr into l_cim_id;
5583: close get_okc_k_items_csr;
5607: p_fee_types_rec => l_fee_types_rec,
5608: x_fee_types_rec => x_fee_types_rec);
5609:
5610:
5611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5614: RAISE OKC_API.G_EXCEPTION_ERROR;
5615: END IF;
5609:
5610:
5611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5614: RAISE OKC_API.G_EXCEPTION_ERROR;
5615: END IF;
5616:
5617: ELSIF (p_fee_types_rec.item_id1 IS NOT NULL) THEN
5649:
5650: elsif (l_check_box_val = 'N') then
5651: if ((l_price_engine is not null) and (l_price_engine = 'EXTERNAL' ))THEN
5652:
5653: if ((l_strm_id IS NOT NULL) AND (l_strm_id <> OKL_API.G_MISS_NUM)) THEN
5654: IF (l_check_box_value = 'Y') THEN
5655:
5656: open get_okc_k_items_csr (l_fee_line_id);
5657: fetch get_okc_k_items_csr into l_cim_id;
5675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5676: RAISE OKC_API.G_EXCEPTION_ERROR;
5677: END IF;
5678: end if;
5679: elsif ((p_fee_types_rec.item_id1 IS NOT null) AND (p_fee_types_rec.item_id1 <> OKL_API.G_MISS_CHAR)) then
5680: -- throw error message check box has to be checkd
5681: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5682: p_msg_name => 'OKL_RVI_CHECK_BOX_REQD');
5683: RAISE OKC_API.G_EXCEPTION_ERROR;
5677: END IF;
5678: end if;
5679: elsif ((p_fee_types_rec.item_id1 IS NOT null) AND (p_fee_types_rec.item_id1 <> OKL_API.G_MISS_CHAR)) then
5680: -- throw error message check box has to be checkd
5681: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
5682: p_msg_name => 'OKL_RVI_CHECK_BOX_REQD');
5683: RAISE OKC_API.G_EXCEPTION_ERROR;
5684: end if;
5685: end if;
5731: p_kpl_rec IN party_rec_type,
5732: x_kpl_rec OUT NOCOPY party_rec_type
5733: ) AS
5734:
5735: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5736: l_api_name CONSTANT varchar2(30) := 'create_party';
5737: l_api_version CONSTANT NUMBER := 1.0;
5738:
5739: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5741: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5742: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5743:
5744: Begin
5745: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5746: -- Call start_activity to create savepoint, check compatibility
5747: -- and initialize message list
5748: x_return_status := OKL_API.START_ACTIVITY (
5749: l_api_name
5744: Begin
5745: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5746: -- Call start_activity to create savepoint, check compatibility
5747: -- and initialize message list
5748: x_return_status := OKL_API.START_ACTIVITY (
5749: l_api_name
5750: ,p_init_msg_list
5751: ,'_PVT'
5752: ,x_return_status);
5750: ,p_init_msg_list
5751: ,'_PVT'
5752: ,x_return_status);
5753: -- Check if activity started successfully
5754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5757: RAISE OKL_API.G_EXCEPTION_ERROR;
5758: END IF;
5751: ,'_PVT'
5752: ,x_return_status);
5753: -- Check if activity started successfully
5754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5757: RAISE OKL_API.G_EXCEPTION_ERROR;
5758: END IF;
5759:
5752: ,x_return_status);
5753: -- Check if activity started successfully
5754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5757: RAISE OKL_API.G_EXCEPTION_ERROR;
5758: END IF;
5759:
5760: lp_cplv_rec.id := p_kpl_rec.id;
5753: -- Check if activity started successfully
5754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5757: RAISE OKL_API.G_EXCEPTION_ERROR;
5758: END IF;
5759:
5760: lp_cplv_rec.id := p_kpl_rec.id;
5761: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
5798: x_kplv_rec => lx_kplv_rec);
5799:
5800: x_kpl_rec.id := lx_cplv_rec.id;
5801:
5802: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5799:
5800: x_kpl_rec.id := lx_cplv_rec.id;
5801:
5802: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807:
5800: x_kpl_rec.id := lx_cplv_rec.id;
5801:
5802: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807:
5808: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5801:
5802: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807:
5808: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5809:
5804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5805: RAISE OKL_API.G_EXCEPTION_ERROR;
5806: END IF;
5807:
5808: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5809:
5810: EXCEPTION
5811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5807:
5808: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5809:
5810: EXCEPTION
5811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5813: l_api_name,
5814: G_PKG_NAME,
5815: 'OKL_API.G_RET_STS_ERROR',
5808: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5809:
5810: EXCEPTION
5811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5813: l_api_name,
5814: G_PKG_NAME,
5815: 'OKL_API.G_RET_STS_ERROR',
5816: x_msg_count,
5811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5813: l_api_name,
5814: G_PKG_NAME,
5815: 'OKL_API.G_RET_STS_ERROR',
5816: x_msg_count,
5817: x_msg_data,
5818: '_PVT');
5819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5815: 'OKL_API.G_RET_STS_ERROR',
5816: x_msg_count,
5817: x_msg_data,
5818: '_PVT');
5819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5821: l_api_name,
5822: G_PKG_NAME,
5823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5816: x_msg_count,
5817: x_msg_data,
5818: '_PVT');
5819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5821: l_api_name,
5822: G_PKG_NAME,
5823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5824: x_msg_count,
5819: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5821: l_api_name,
5822: G_PKG_NAME,
5823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5824: x_msg_count,
5825: x_msg_data,
5826: '_PVT');
5827: WHEN OTHERS THEN
5824: x_msg_count,
5825: x_msg_data,
5826: '_PVT');
5827: WHEN OTHERS THEN
5828: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5829: l_api_name,
5830: G_PKG_NAME,
5831: 'OTHERS',
5832: x_msg_count,
5844: p_kpl_rec IN party_rec_type,
5845: x_kpl_rec OUT NOCOPY party_rec_type
5846: ) AS
5847:
5848: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5849: l_api_name CONSTANT varchar2(30) := 'update_party';
5850: l_api_version CONSTANT NUMBER := 1.0;
5851:
5852: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
5854: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5855: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5856:
5857: Begin
5858: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5859: -- Call start_activity to create savepoint, check compatibility
5860: -- and initialize message list
5861: x_return_status := OKL_API.START_ACTIVITY (
5862: l_api_name
5857: Begin
5858: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5859: -- Call start_activity to create savepoint, check compatibility
5860: -- and initialize message list
5861: x_return_status := OKL_API.START_ACTIVITY (
5862: l_api_name
5863: ,p_init_msg_list
5864: ,'_PVT'
5865: ,x_return_status);
5863: ,p_init_msg_list
5864: ,'_PVT'
5865: ,x_return_status);
5866: -- Check if activity started successfully
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5864: ,'_PVT'
5865: ,x_return_status);
5866: -- Check if activity started successfully
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872:
5865: ,x_return_status);
5866: -- Check if activity started successfully
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872:
5873: lp_cplv_rec.id := p_kpl_rec.id;
5866: -- Check if activity started successfully
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872:
5873: lp_cplv_rec.id := p_kpl_rec.id;
5874: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
5907:
5908:
5909: x_kpl_rec.id := lx_cplv_rec.id;
5910:
5911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5914: RAISE OKL_API.G_EXCEPTION_ERROR;
5915: END IF;
5908:
5909: x_kpl_rec.id := lx_cplv_rec.id;
5910:
5911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5914: RAISE OKL_API.G_EXCEPTION_ERROR;
5915: END IF;
5916:
5909: x_kpl_rec.id := lx_cplv_rec.id;
5910:
5911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5914: RAISE OKL_API.G_EXCEPTION_ERROR;
5915: END IF;
5916:
5917: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5910:
5911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5914: RAISE OKL_API.G_EXCEPTION_ERROR;
5915: END IF;
5916:
5917: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5918:
5913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5914: RAISE OKL_API.G_EXCEPTION_ERROR;
5915: END IF;
5916:
5917: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5918:
5919: EXCEPTION
5920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5916:
5917: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5918:
5919: EXCEPTION
5920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5922: l_api_name,
5923: G_PKG_NAME,
5924: 'OKL_API.G_RET_STS_ERROR',
5917: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5918:
5919: EXCEPTION
5920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5922: l_api_name,
5923: G_PKG_NAME,
5924: 'OKL_API.G_RET_STS_ERROR',
5925: x_msg_count,
5920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5922: l_api_name,
5923: G_PKG_NAME,
5924: 'OKL_API.G_RET_STS_ERROR',
5925: x_msg_count,
5926: x_msg_data,
5927: '_PVT');
5928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5924: 'OKL_API.G_RET_STS_ERROR',
5925: x_msg_count,
5926: x_msg_data,
5927: '_PVT');
5928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5929: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5930: l_api_name,
5931: G_PKG_NAME,
5932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5925: x_msg_count,
5926: x_msg_data,
5927: '_PVT');
5928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5929: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5930: l_api_name,
5931: G_PKG_NAME,
5932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5933: x_msg_count,
5928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5929: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5930: l_api_name,
5931: G_PKG_NAME,
5932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5933: x_msg_count,
5934: x_msg_data,
5935: '_PVT');
5936: WHEN OTHERS THEN
5933: x_msg_count,
5934: x_msg_data,
5935: '_PVT');
5936: WHEN OTHERS THEN
5937: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5938: l_api_name,
5939: G_PKG_NAME,
5940: 'OTHERS',
5941: x_msg_count,