98: END get_base_evg_recs;
99:
100: PROCEDURE delete_passthru_party(
101: p_api_version IN NUMBER,
102: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
103: x_return_status OUT NOCOPY VARCHAR2,
104: x_msg_count OUT NOCOPY NUMBER,
105: x_msg_data OUT NOCOPY VARCHAR2,
106: p_cpl_id IN NUMBER
127: l_cplv_rec OKL_OKC_MIGRATION_PVT.CPLV_REC_TYPE;
128: l_ppydv_tbl ppydv_tbl_type;
129:
130: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PASSTHRU_PARTY';
131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
132:
133: --Bug# 4558486
134: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
135: BEGIN
135: BEGIN
136: x_return_status := l_return_status;
137: -- Call start_activity to create savepoint, check compatibility
138: -- and initialize message list
139: l_return_status := OKC_API.START_ACTIVITY (l_api_name
140: ,p_init_msg_list
141: ,'_PVT'
142: ,x_return_status);
143: -- Check if activity started successfully
140: ,p_init_msg_list
141: ,'_PVT'
142: ,x_return_status);
143: -- Check if activity started successfully
144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_ERROR;
148: END IF;
141: ,'_PVT'
142: ,x_return_status);
143: -- Check if activity started successfully
144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_ERROR;
148: END IF;
149:
142: ,x_return_status);
143: -- Check if activity started successfully
144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_ERROR;
148: END IF;
149:
150: IF (p_cpl_id IS NULL) THEN
143: -- Check if activity started successfully
144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_ERROR;
148: END IF;
149:
150: IF (p_cpl_id IS NULL) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
147: RAISE OKC_API.G_EXCEPTION_ERROR;
148: END IF;
149:
150: IF (p_cpl_id IS NULL) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152: END IF;
153:
154: i := 0;
155: l_cplv_rec.id := p_cpl_id;
208: raise OKL_API.G_EXCEPTION_ERROR;
209: End If;
210: END IF;
211:
212: OKC_API.END_ACTIVITY (x_msg_count
213: ,x_msg_data );
214:
215: EXCEPTION
216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
212: OKC_API.END_ACTIVITY (x_msg_count
213: ,x_msg_data );
214:
215: EXCEPTION
216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
218: (l_api_name,
219: G_PKG_NAME,
220: 'OKC_API.G_RET_STS_ERROR',
213: ,x_msg_data );
214:
215: EXCEPTION
216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
218: (l_api_name,
219: G_PKG_NAME,
220: 'OKC_API.G_RET_STS_ERROR',
221: x_msg_count,
216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
218: (l_api_name,
219: G_PKG_NAME,
220: 'OKC_API.G_RET_STS_ERROR',
221: x_msg_count,
222: x_msg_data,
223: '_PVT');
224: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
220: 'OKC_API.G_RET_STS_ERROR',
221: x_msg_count,
222: x_msg_data,
223: '_PVT');
224: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
226: (l_api_name,
227: G_PKG_NAME,
228: 'OKC_API.G_RET_STS_UNEXP_ERROR',
221: x_msg_count,
222: x_msg_data,
223: '_PVT');
224: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
226: (l_api_name,
227: G_PKG_NAME,
228: 'OKC_API.G_RET_STS_UNEXP_ERROR',
229: x_msg_count,
224: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
226: (l_api_name,
227: G_PKG_NAME,
228: 'OKC_API.G_RET_STS_UNEXP_ERROR',
229: x_msg_count,
230: x_msg_data,
231: '_PVT');
232: WHEN OTHERS THEN
229: x_msg_count,
230: x_msg_data,
231: '_PVT');
232: WHEN OTHERS THEN
233: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
234: (l_api_name,
235: G_PKG_NAME,
236: 'OTHERS',
237: x_msg_count,
241:
242:
243: PROCEDURE create_payment_dtls(
244: p_api_version IN NUMBER,
245: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
246: x_return_status OUT NOCOPY VARCHAR2,
247: x_msg_count OUT NOCOPY NUMBER,
248: x_msg_data OUT NOCOPY VARCHAR2,
249: p_passthru_dtl_rec IN passthru_dtl_rec_type,
250: x_passthru_dtl_rec OUT NOCOPY passthru_dtl_rec_type) IS
251:
252: l_api_name CONSTANT VARCHAR2(30) := 'create_payment_dtls';
253: l_api_version CONSTANT NUMBER := 1.0;
254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
255: l_base_create boolean := TRUE;
256: l_evg_create boolean := TRUE;
257:
258: l_passthru_dtl_rec passthru_dtl_rec_type := p_passthru_dtl_rec;
271: BEGIN
272:
273: -- call START_ACTIVITY to create savepoint, check compatibility
274: -- and initialize message list
275: l_return_status := OKC_API.START_ACTIVITY(
276: p_api_name => l_api_name,
277: p_pkg_name => g_pkg_name,
278: p_init_msg_list => p_init_msg_list,
279: l_api_version => l_api_version,
329: x_ppydv_rec => x_ppydv_rec);
330: null;
331:
332: -- check if activity started successfully
333: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
336: raise OKC_API.G_EXCEPTION_ERROR;
337: End If;
330: null;
331:
332: -- check if activity started successfully
333: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
336: raise OKC_API.G_EXCEPTION_ERROR;
337: End If;
338: ElsIf ( l_base.payment_hdr_id IS NOT NULL AND l_base.id IS NOT NULL) Then
331:
332: -- check if activity started successfully
333: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
336: raise OKC_API.G_EXCEPTION_ERROR;
337: End If;
338: ElsIf ( l_base.payment_hdr_id IS NOT NULL AND l_base.id IS NOT NULL) Then
339: okl_party_payments_pvt.update_party_payment_dtls(
332: -- check if activity started successfully
333: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
336: raise OKC_API.G_EXCEPTION_ERROR;
337: End If;
338: ElsIf ( l_base.payment_hdr_id IS NOT NULL AND l_base.id IS NOT NULL) Then
339: okl_party_payments_pvt.update_party_payment_dtls(
340: p_api_version => p_api_version,
346: x_ppydv_rec => x_ppydv_rec);
347: null;
348:
349: -- check if activity started successfully
350: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
351: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
352: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
353: raise OKC_API.G_EXCEPTION_ERROR;
354: End If;
347: null;
348:
349: -- check if activity started successfully
350: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
351: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
352: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
353: raise OKC_API.G_EXCEPTION_ERROR;
354: End If;
355: End If;
348:
349: -- check if activity started successfully
350: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
351: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
352: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
353: raise OKC_API.G_EXCEPTION_ERROR;
354: End If;
355: End If;
356:
349: -- check if activity started successfully
350: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
351: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
352: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
353: raise OKC_API.G_EXCEPTION_ERROR;
354: End If;
355: End If;
356:
357:
384: x_ppydv_rec => x_ppydv_rec);
385: null;
386:
387: -- check if activity started successfully
388: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
389: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
390: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
391: raise OKC_API.G_EXCEPTION_ERROR;
392: End If;
385: null;
386:
387: -- check if activity started successfully
388: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
389: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
390: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
391: raise OKC_API.G_EXCEPTION_ERROR;
392: End If;
393: ElsIf ( l_evg.payment_hdr_id IS NOT NULL AND l_evg.id IS NOT NULL) Then
386:
387: -- check if activity started successfully
388: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
389: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
390: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
391: raise OKC_API.G_EXCEPTION_ERROR;
392: End If;
393: ElsIf ( l_evg.payment_hdr_id IS NOT NULL AND l_evg.id IS NOT NULL) Then
394: okl_party_payments_pvt.update_party_payment_dtls(
387: -- check if activity started successfully
388: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
389: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
390: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
391: raise OKC_API.G_EXCEPTION_ERROR;
392: End If;
393: ElsIf ( l_evg.payment_hdr_id IS NOT NULL AND l_evg.id IS NOT NULL) Then
394: okl_party_payments_pvt.update_party_payment_dtls(
395: p_api_version => p_api_version,
400: p_ppydv_rec => l_evg,
401: x_ppydv_rec => x_ppydv_rec);
402:
403: -- check if activity started successfully
404: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
405: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
407: raise OKC_API.G_EXCEPTION_ERROR;
408: End If;
401: x_ppydv_rec => x_ppydv_rec);
402:
403: -- check if activity started successfully
404: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
405: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
407: raise OKC_API.G_EXCEPTION_ERROR;
408: End If;
409: End If;
402:
403: -- check if activity started successfully
404: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
405: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
407: raise OKC_API.G_EXCEPTION_ERROR;
408: End If;
409: End If;
410:
403: -- check if activity started successfully
404: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
405: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
407: raise OKC_API.G_EXCEPTION_ERROR;
408: End If;
409: End If;
410:
411: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
407: raise OKC_API.G_EXCEPTION_ERROR;
408: End If;
409: End If;
410:
411: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
412:
413:
414: EXCEPTION
415: when OKC_API.G_EXCEPTION_ERROR then
411: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
412:
413:
414: EXCEPTION
415: when OKC_API.G_EXCEPTION_ERROR then
416: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
412:
413:
414: EXCEPTION
415: when OKC_API.G_EXCEPTION_ERROR then
416: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
420: x_msg_count => x_msg_count,
415: when OKC_API.G_EXCEPTION_ERROR then
416: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
420: x_msg_count => x_msg_count,
421: x_msg_data => x_msg_data,
422: p_api_type => g_api_type);
423:
420: x_msg_count => x_msg_count,
421: x_msg_data => x_msg_data,
422: p_api_type => g_api_type);
423:
424: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
425: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
426: p_api_name => l_api_name,
427: p_pkg_name => g_pkg_name,
428: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
421: x_msg_data => x_msg_data,
422: p_api_type => g_api_type);
423:
424: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
425: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
426: p_api_name => l_api_name,
427: p_pkg_name => g_pkg_name,
428: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
429: x_msg_count => x_msg_count,
424: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
425: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
426: p_api_name => l_api_name,
427: p_pkg_name => g_pkg_name,
428: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
429: x_msg_count => x_msg_count,
430: x_msg_data => x_msg_data,
431: p_api_type => g_api_type);
432:
430: x_msg_data => x_msg_data,
431: p_api_type => g_api_type);
432:
433: when OTHERS then
434: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
435: p_api_name => l_api_name,
436: p_pkg_name => g_pkg_name,
437: p_exc_name => 'OTHERS',
438: x_msg_count => x_msg_count,
443:
444: ----------------------------
445: PROCEDURE create_payment_hdrs(
446: p_api_version IN NUMBER,
447: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
448: x_return_status OUT NOCOPY VARCHAR2,
449: x_msg_count OUT NOCOPY NUMBER,
450: x_msg_data OUT NOCOPY VARCHAR2,
451: p_passthru_rec IN passthru_rec_type,
453:
454:
455: l_api_name CONSTANT VARCHAR2(30) := 'create_payment_hdrs';
456: l_api_version CONSTANT NUMBER := 1.0;
457: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
458:
459: l_passthru_rec passthru_rec_type := p_passthru_rec;
460: l_pphv_rec pphv_rec_type ;
461: l_pphv_evg_rec pphv_rec_type ;
481: BEGIN
482:
483: -- call START_ACTIVITY to create savepoint, check compatibility
484: -- and initialize message list
485: l_return_status := OKC_API.START_ACTIVITY(
486: p_api_name => l_api_name,
487: p_pkg_name => g_pkg_name,
488: p_init_msg_list => p_init_msg_list,
489: l_api_version => l_api_version,
491: p_api_type => g_api_type,
492: x_return_status => x_return_status);
493:
494: -- check if activity started successfully
495: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
498: raise OKC_API.G_EXCEPTION_ERROR;
499: End If;
492: x_return_status => x_return_status);
493:
494: -- check if activity started successfully
495: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
498: raise OKC_API.G_EXCEPTION_ERROR;
499: End If;
500:
493:
494: -- check if activity started successfully
495: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
498: raise OKC_API.G_EXCEPTION_ERROR;
499: End If;
500:
501: --Bug# 4884423
494: -- check if activity started successfully
495: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
498: raise OKC_API.G_EXCEPTION_ERROR;
499: End If;
500:
501: --Bug# 4884423
502: -- Update of Payout Basis is not allowed during Rebook
590: x_passthru_rec.base_id := x_pphv_rec.id;
591: x_passthru_rec.base_stream_type_id := x_pphv_rec.passthru_stream_type_id;
592:
593: -- check return status
594: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
596: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
597: raise OKC_API.G_EXCEPTION_ERROR;
598: End If;
591: x_passthru_rec.base_stream_type_id := x_pphv_rec.passthru_stream_type_id;
592:
593: -- check return status
594: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
596: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
597: raise OKC_API.G_EXCEPTION_ERROR;
598: End If;
599: End If;
592:
593: -- check return status
594: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
596: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
597: raise OKC_API.G_EXCEPTION_ERROR;
598: End If;
599: End If;
600:
593: -- check return status
594: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
596: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
597: raise OKC_API.G_EXCEPTION_ERROR;
598: End If;
599: End If;
600:
601: --create payment header evergreen term
625: x_passthru_rec.evergreen_id := x_pphv_rec.id;
626: x_passthru_rec.evg_stream_type_id := x_pphv_rec.passthru_stream_type_id;
627:
628: -- check return status
629: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
632: raise OKC_API.G_EXCEPTION_ERROR;
633: End If;
626: x_passthru_rec.evg_stream_type_id := x_pphv_rec.passthru_stream_type_id;
627:
628: -- check return status
629: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
632: raise OKC_API.G_EXCEPTION_ERROR;
633: End If;
634: End If;
627:
628: -- check return status
629: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
632: raise OKC_API.G_EXCEPTION_ERROR;
633: End If;
634: End If;
635:
628: -- check return status
629: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
630: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
632: raise OKC_API.G_EXCEPTION_ERROR;
633: End If;
634: End If;
635:
636:
662: x_passthru_rec.base_id := x_pphv_rec.id;
663: x_passthru_rec.base_stream_type_id := x_pphv_rec.passthru_stream_type_id;
664:
665: -- check return status
666: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
667: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
668: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
669: raise OKC_API.G_EXCEPTION_ERROR;
670: End If;
663: x_passthru_rec.base_stream_type_id := x_pphv_rec.passthru_stream_type_id;
664:
665: -- check return status
666: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
667: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
668: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
669: raise OKC_API.G_EXCEPTION_ERROR;
670: End If;
671: End If;
664:
665: -- check return status
666: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
667: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
668: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
669: raise OKC_API.G_EXCEPTION_ERROR;
670: End If;
671: End If;
672: --Update evergreen
665: -- check return status
666: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
667: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
668: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
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
696: x_passthru_rec.evergreen_id := x_pphv_rec.id;
697: x_passthru_rec.evg_stream_type_id := x_pphv_rec.passthru_stream_type_id;
698:
699: -- check return status
700: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
701: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
703: raise OKC_API.G_EXCEPTION_ERROR;
704: End If;
697: x_passthru_rec.evg_stream_type_id := x_pphv_rec.passthru_stream_type_id;
698:
699: -- check return status
700: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
701: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
703: raise OKC_API.G_EXCEPTION_ERROR;
704: End If;
705: End If;
698:
699: -- check return status
700: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
701: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
703: raise OKC_API.G_EXCEPTION_ERROR;
704: End If;
705: End If;
706:
699: -- check return status
700: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
701: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
703: raise OKC_API.G_EXCEPTION_ERROR;
704: End If;
705: End If;
706:
707: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
703: raise OKC_API.G_EXCEPTION_ERROR;
704: End If;
705: End If;
706:
707: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
708:
709: EXCEPTION
710: when OKC_API.G_EXCEPTION_ERROR then
711: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
706:
707: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
708:
709: EXCEPTION
710: when OKC_API.G_EXCEPTION_ERROR then
711: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
707: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
708:
709: EXCEPTION
710: when OKC_API.G_EXCEPTION_ERROR then
711: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
715: x_msg_count => x_msg_count,
710: when OKC_API.G_EXCEPTION_ERROR then
711: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
712: p_api_name => l_api_name,
713: p_pkg_name => g_pkg_name,
714: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
715: x_msg_count => x_msg_count,
716: x_msg_data => x_msg_data,
717: p_api_type => g_api_type);
718:
715: x_msg_count => x_msg_count,
716: x_msg_data => x_msg_data,
717: p_api_type => g_api_type);
718:
719: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => g_pkg_name,
723: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
716: x_msg_data => x_msg_data,
717: p_api_type => g_api_type);
718:
719: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => g_pkg_name,
723: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
724: x_msg_count => x_msg_count,
719: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
721: p_api_name => l_api_name,
722: p_pkg_name => g_pkg_name,
723: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
724: x_msg_count => x_msg_count,
725: x_msg_data => x_msg_data,
726: p_api_type => g_api_type);
727:
725: x_msg_data => x_msg_data,
726: p_api_type => g_api_type);
727:
728: when OTHERS then
729: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
730: p_api_name => l_api_name,
731: p_pkg_name => g_pkg_name,
732: p_exc_name => 'OTHERS',
733: x_msg_count => x_msg_count,
737:
738:
739: PROCEDURE delete_payment_hdrs(
740: p_api_version IN NUMBER,
741: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
742: x_return_status OUT NOCOPY VARCHAR2,
743: x_msg_count OUT NOCOPY NUMBER,
744: x_msg_data OUT NOCOPY VARCHAR2,
745: p_passthru_rec IN passthru_rec_type) IS
746:
747:
748: l_api_name CONSTANT VARCHAR2(30) := 'delete_payment_hdrs';
749: l_api_version CONSTANT NUMBER := 1.0;
750: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
751:
752: l_passthru_rec passthru_rec_type := p_passthru_rec;
753: l_pphv_rec pphv_rec_type := null;
754: l_party_payment_rec party_payment_csr%ROWTYPE;
771: x_msg_data => x_msg_data,
772: p_pphv_rec => l_pphv_rec);
773:
774: -- check return status
775: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
778: raise OKC_API.G_EXCEPTION_ERROR;
779: End If;
772: p_pphv_rec => l_pphv_rec);
773:
774: -- check return status
775: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
778: raise OKC_API.G_EXCEPTION_ERROR;
779: End If;
780: End If;
773:
774: -- check return status
775: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
778: raise OKC_API.G_EXCEPTION_ERROR;
779: End If;
780: End If;
781:
774: -- check return status
775: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
778: raise OKC_API.G_EXCEPTION_ERROR;
779: End If;
780: End If;
781:
782: --delete payment header evergreen term
797: x_msg_data => x_msg_data,
798: p_pphv_rec => l_pphv_rec);
799:
800: -- check return status
801: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
804: raise OKC_API.G_EXCEPTION_ERROR;
805: End If;
798: p_pphv_rec => l_pphv_rec);
799:
800: -- check return status
801: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
804: raise OKC_API.G_EXCEPTION_ERROR;
805: End If;
806: --End If;
799:
800: -- check return status
801: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
804: raise OKC_API.G_EXCEPTION_ERROR;
805: End If;
806: --End If;
807: End If;
800: -- check return status
801: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
804: raise OKC_API.G_EXCEPTION_ERROR;
805: End If;
806: --End If;
807: End If;
808:
806: --End If;
807: End If;
808:
809: EXCEPTION
810: when OKC_API.G_EXCEPTION_ERROR then
811: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
812: p_api_name => l_api_name,
813: p_pkg_name => g_pkg_name,
814: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
807: End If;
808:
809: EXCEPTION
810: when OKC_API.G_EXCEPTION_ERROR then
811: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
812: p_api_name => l_api_name,
813: p_pkg_name => g_pkg_name,
814: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
815: x_msg_count => x_msg_count,
810: when OKC_API.G_EXCEPTION_ERROR then
811: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
812: p_api_name => l_api_name,
813: p_pkg_name => g_pkg_name,
814: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
815: x_msg_count => x_msg_count,
816: x_msg_data => x_msg_data,
817: p_api_type => g_api_type);
818:
815: x_msg_count => x_msg_count,
816: x_msg_data => x_msg_data,
817: p_api_type => g_api_type);
818:
819: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
820: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
821: p_api_name => l_api_name,
822: p_pkg_name => g_pkg_name,
823: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
816: x_msg_data => x_msg_data,
817: p_api_type => g_api_type);
818:
819: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
820: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
821: p_api_name => l_api_name,
822: p_pkg_name => g_pkg_name,
823: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
824: x_msg_count => x_msg_count,
819: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
820: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
821: p_api_name => l_api_name,
822: p_pkg_name => g_pkg_name,
823: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
824: x_msg_count => x_msg_count,
825: x_msg_data => x_msg_data,
826: p_api_type => g_api_type);
827:
825: x_msg_data => x_msg_data,
826: p_api_type => g_api_type);
827:
828: when OTHERS then
829: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
830: p_api_name => l_api_name,
831: p_pkg_name => g_pkg_name,
832: p_exc_name => 'OTHERS',
833: x_msg_count => x_msg_count,
934: -- Version : 1.0
935: -- End of comments
936: PROCEDURE validate_fee_type(
937: p_api_version IN NUMBER,
938: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
939: x_return_status OUT NOCOPY VARCHAR2,
940: x_msg_count OUT NOCOPY NUMBER,
941: x_msg_data OUT NOCOPY VARCHAR2,
942: p_fee_types_rec IN fee_types_rec_type,
1138: BEGIN
1139:
1140: -- call START_ACTIVITY to create savepoint, check compatibility
1141: -- and initialize message list
1142: x_return_status := OKC_API.START_ACTIVITY(
1143: p_api_name => l_api_name,
1144: p_pkg_name => g_pkg_name,
1145: p_init_msg_list => p_init_msg_list,
1146: l_api_version => l_api_version,
1148: p_api_type => g_api_type,
1149: x_return_status => x_return_status);
1150:
1151: -- check if activity started successfully
1152: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1153: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1155: raise OKC_API.G_EXCEPTION_ERROR;
1156: End If;
1149: x_return_status => x_return_status);
1150:
1151: -- check if activity started successfully
1152: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1153: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1155: raise OKC_API.G_EXCEPTION_ERROR;
1156: End If;
1157:
1150:
1151: -- check if activity started successfully
1152: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1153: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1155: raise OKC_API.G_EXCEPTION_ERROR;
1156: End If;
1157:
1158: x_fee_types_rec := p_fee_types_rec;
1151: -- check if activity started successfully
1152: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1153: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1154: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1155: raise OKC_API.G_EXCEPTION_ERROR;
1156: End If;
1157:
1158: x_fee_types_rec := p_fee_types_rec;
1159:
1156: End If;
1157:
1158: x_fee_types_rec := p_fee_types_rec;
1159:
1160: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
1161: x_return_status := OKC_API.g_ret_sts_error;
1162: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1163: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1164: , p_msg_name => 'OKL_REQUIRED_VALUE'
1157:
1158: x_fee_types_rec := p_fee_types_rec;
1159:
1160: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
1161: x_return_status := OKC_API.g_ret_sts_error;
1162: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1163: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1164: , p_msg_name => 'OKL_REQUIRED_VALUE'
1165: , p_token1 => 'COL_NAME'
1159:
1160: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
1161: x_return_status := OKC_API.g_ret_sts_error;
1162: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1163: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1164: , p_msg_name => 'OKL_REQUIRED_VALUE'
1165: , p_token1 => 'COL_NAME'
1166: , p_token1_value => 'dnz_chr_id'
1167: );
1164: , p_msg_name => 'OKL_REQUIRED_VALUE'
1165: , p_token1 => 'COL_NAME'
1166: , p_token1_value => 'dnz_chr_id'
1167: );
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170:
1171: If ( p_fee_types_rec.fee_type is null or p_fee_types_rec.fee_type = OKC_API.G_MISS_CHAR ) Then
1172: x_return_status := OKC_API.g_ret_sts_error;
1167: );
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170:
1171: If ( p_fee_types_rec.fee_type is null or p_fee_types_rec.fee_type = OKC_API.G_MISS_CHAR ) Then
1172: x_return_status := OKC_API.g_ret_sts_error;
1173: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1175: , p_msg_name => 'OKL_REQUIRED_VALUE'
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170:
1171: If ( p_fee_types_rec.fee_type is null or p_fee_types_rec.fee_type = OKC_API.G_MISS_CHAR ) Then
1172: x_return_status := OKC_API.g_ret_sts_error;
1173: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1175: , p_msg_name => 'OKL_REQUIRED_VALUE'
1176: , p_token1 => 'COL_NAME'
1170:
1171: If ( p_fee_types_rec.fee_type is null or p_fee_types_rec.fee_type = OKC_API.G_MISS_CHAR ) Then
1172: x_return_status := OKC_API.g_ret_sts_error;
1173: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
1174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1175: , p_msg_name => 'OKL_REQUIRED_VALUE'
1176: , p_token1 => 'COL_NAME'
1177: , p_token1_value => l_ak_prompt
1178: );
1175: , p_msg_name => 'OKL_REQUIRED_VALUE'
1176: , p_token1 => 'COL_NAME'
1177: , p_token1_value => l_ak_prompt
1178: );
1179: raise OKC_API.G_EXCEPTION_ERROR;
1180: End If;
1181:
1182: -- Modified by zrehman for Bug#6763287 on 17-Jan-2008 start
1183: OPEN chk_inv_csr(p_fee_types_rec.dnz_chr_id);
1203: p_fee_types_rec.fee_type = G_FT_INCOME or
1204: p_fee_types_rec.fee_type = G_FT_ABSORBED or
1205: p_fee_types_rec.fee_type = G_FT_SECDEPOSIT or
1206: p_fee_types_rec.fee_type = G_FT_ROLLOVER or
1207: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1208: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1209: )
1210: ) Then
1211:
1208: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1209: )
1210: ) Then
1211:
1212: If ( NOT (p_fee_types_rec.item_id1 is null or p_fee_types_rec.item_id1 = OKC_API.G_MISS_CHAR )) Then
1213:
1214: l_item_name := null;
1215: open l_item_name_csr;
1216: fetch l_item_name_csr into l_item_name;
1216: fetch l_item_name_csr into l_item_name;
1217: close l_item_name_csr;
1218:
1219: If(l_item_name is null) Then
1220: x_return_status := OKC_API.g_ret_sts_error;
1221: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1222: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1223: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1224: , p_token1 => 'COL_NAME'
1218:
1219: If(l_item_name is null) Then
1220: x_return_status := OKC_API.g_ret_sts_error;
1221: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1222: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1223: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1224: , p_token1 => 'COL_NAME'
1225: , p_token1_value => l_ak_prompt
1226: );
1223: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1224: , p_token1 => 'COL_NAME'
1225: , p_token1_value => l_ak_prompt
1226: );
1227: raise OKC_API.G_EXCEPTION_ERROR;
1228: End If;
1229:
1230: x_fee_types_rec.item_name := l_item_name;
1231: x_fee_types_rec.item_id1 := p_fee_types_rec.item_id1;
1229:
1230: x_fee_types_rec.item_name := l_item_name;
1231: x_fee_types_rec.item_id1 := p_fee_types_rec.item_id1;
1232:
1233: ElsIf (NOT( p_fee_types_rec.item_name is null or p_fee_types_rec.item_name = OKC_API.G_MISS_CHAR )) Then
1234:
1235: /*open l_start_date_csr;
1236: fetch l_start_date_csr into l_start_date, l_pdt_id;
1237: close l_start_date_csr;*/
1280:
1281: End IF;
1282:
1283: If(l_item_id is null) Then
1284: x_return_status := OKC_API.g_ret_sts_error;
1285: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1286: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1287: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1288: , p_token1 => 'COL_NAME'
1282:
1283: If(l_item_id is null) Then
1284: x_return_status := OKC_API.g_ret_sts_error;
1285: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1286: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1287: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1288: , p_token1 => 'COL_NAME'
1289: , p_token1_value => l_ak_prompt
1290: );
1287: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1288: , p_token1 => 'COL_NAME'
1289: , p_token1_value => l_ak_prompt
1290: );
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1293:
1294: x_fee_types_rec.item_id1 := l_item_id;
1295:
1294: x_fee_types_rec.item_id1 := l_item_id;
1295:
1296: Else
1297:
1298: x_return_status := OKC_API.g_ret_sts_error;
1299: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1300: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1301: , p_msg_name => 'OKL_REQUIRED_VALUE'
1302: , p_token1 => 'COL_NAME'
1296: Else
1297:
1298: x_return_status := OKC_API.g_ret_sts_error;
1299: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1300: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1301: , p_msg_name => 'OKL_REQUIRED_VALUE'
1302: , p_token1 => 'COL_NAME'
1303: , p_token1_value => l_ak_prompt
1304: );
1301: , p_msg_name => 'OKL_REQUIRED_VALUE'
1302: , p_token1 => 'COL_NAME'
1303: , p_token1_value => l_ak_prompt
1304: );
1305: raise OKC_API.G_EXCEPTION_ERROR;
1306:
1307: End If;
1308:
1309: Else
1307: End If;
1308:
1309: Else
1310:
1311: x_return_status := OKC_API.g_ret_sts_error;
1312: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1313: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => p_fee_types_rec.fee_type
1308:
1309: Else
1310:
1311: x_return_status := OKC_API.g_ret_sts_error;
1312: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1313: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => p_fee_types_rec.fee_type
1316: );
1313: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => p_fee_types_rec.fee_type
1316: );
1317: raise OKC_API.G_EXCEPTION_ERROR;
1318:
1319: End If;
1320:
1321: If (
1324: p_fee_types_rec.fee_type = G_FT_CAPITALIZED or
1325: p_fee_types_rec.fee_type = G_FT_EXPENSE or
1326: p_fee_types_rec.fee_type = G_FT_FINANCED or
1327: p_fee_types_rec.fee_type = G_FT_MISCELLANEOUS or
1328: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1329: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1330: )
1331: ) Then
1332:
1329: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1330: )
1331: ) Then
1332:
1333: If ( NOT (p_fee_types_rec.party_id1 is null or p_fee_types_rec.party_id1 = OKC_API.G_MISS_CHAR )) Then
1334:
1335: l_party_name := null;
1336: open l_supp_id1_csr;
1337: fetch l_supp_id1_csr into l_party_name;
1337: fetch l_supp_id1_csr into l_party_name;
1338: close l_supp_id1_csr;
1339:
1340: If(l_party_name is null) Then
1341: x_return_status := OKC_API.g_ret_sts_error;
1342: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1343: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1344: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1345: , p_token1 => 'COL_NAME'
1339:
1340: If(l_party_name is null) Then
1341: x_return_status := OKC_API.g_ret_sts_error;
1342: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1343: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1344: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1345: , p_token1 => 'COL_NAME'
1346: , p_token1_value => l_ak_prompt
1347: );
1344: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1345: , p_token1 => 'COL_NAME'
1346: , p_token1_value => l_ak_prompt
1347: );
1348: raise OKC_API.G_EXCEPTION_ERROR;
1349: End If;
1350:
1351: x_fee_types_rec.party_name := l_party_name;
1352: x_fee_types_rec.party_id1 := p_fee_types_rec.party_id1;
1351: x_fee_types_rec.party_name := l_party_name;
1352: x_fee_types_rec.party_id1 := p_fee_types_rec.party_id1;
1353:
1354:
1355: ElsIf (NOT( p_fee_types_rec.party_name is null or p_fee_types_rec.party_name = OKC_API.G_MISS_CHAR )) Then
1356:
1357: l_supp_id := null;
1358: open l_supp_name_csr;
1359: fetch l_supp_name_csr into l_supp_id;
1359: fetch l_supp_name_csr into l_supp_id;
1360: close l_supp_name_csr;
1361:
1362: If(l_supp_id is null) Then
1363: x_return_status := OKC_API.g_ret_sts_error;
1364: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1365: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1366: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1367: , p_token1 => 'COL_NAME'
1361:
1362: If(l_supp_id is null) Then
1363: x_return_status := OKC_API.g_ret_sts_error;
1364: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1365: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1366: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1367: , p_token1 => 'COL_NAME'
1368: , p_token1_value => l_ak_prompt
1369: );
1366: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1367: , p_token1 => 'COL_NAME'
1368: , p_token1_value => l_ak_prompt
1369: );
1370: raise OKC_API.G_EXCEPTION_ERROR;
1371: End If;
1372:
1373: x_fee_types_rec.party_id1 := l_supp_id;
1374:
1375: Else
1376:
1377: If (NOT(p_fee_types_rec.fee_type = G_FT_CAPITALIZED or p_fee_types_rec.fee_type = G_FT_FINANCED)) Then
1378:
1379: x_return_status := OKC_API.g_ret_sts_error;
1380: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1381: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1382: , p_msg_name => 'OKL_REQUIRED_VALUE'
1383: , p_token1 => 'COL_NAME'
1377: If (NOT(p_fee_types_rec.fee_type = G_FT_CAPITALIZED or p_fee_types_rec.fee_type = G_FT_FINANCED)) Then
1378:
1379: x_return_status := OKC_API.g_ret_sts_error;
1380: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
1381: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1382: , p_msg_name => 'OKL_REQUIRED_VALUE'
1383: , p_token1 => 'COL_NAME'
1384: , p_token1_value => l_ak_prompt
1385: );
1382: , p_msg_name => 'OKL_REQUIRED_VALUE'
1383: , p_token1 => 'COL_NAME'
1384: , p_token1_value => l_ak_prompt
1385: );
1386: raise OKC_API.G_EXCEPTION_ERROR;
1387:
1388: End If;
1389:
1390: End If;
1390: End If;
1391:
1392: ElsIf (p_fee_types_rec.party_name is not null and p_fee_types_rec.fee_type = G_FT_SECDEPOSIT) Then
1393:
1394: x_return_status := OKC_API.g_ret_sts_error;
1395: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => 'OKL_INVLD_FT_PRTY'
1397: );
1398: raise OKC_API.G_EXCEPTION_ERROR;
1391:
1392: ElsIf (p_fee_types_rec.party_name is not null and p_fee_types_rec.fee_type = G_FT_SECDEPOSIT) Then
1393:
1394: x_return_status := OKC_API.g_ret_sts_error;
1395: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => 'OKL_INVLD_FT_PRTY'
1397: );
1398: raise OKC_API.G_EXCEPTION_ERROR;
1399:
1394: x_return_status := OKC_API.g_ret_sts_error;
1395: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1396: , p_msg_name => 'OKL_INVLD_FT_PRTY'
1397: );
1398: raise OKC_API.G_EXCEPTION_ERROR;
1399:
1400: End If;
1401:
1402: If (
1408: p_fee_types_rec.fee_type = G_FT_ROLLOVER or
1409: p_fee_types_rec.fee_type = G_FT_INCOME or
1410: p_fee_types_rec.fee_type = G_FT_ABSORBED or
1411: p_fee_types_rec.fee_type = G_FT_SECDEPOSIT or
1412: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1413: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1414: )
1415: ) Then
1416: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1412: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1413: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1414: )
1415: ) Then
1416: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1417: x_return_status := OKC_API.g_ret_sts_error;
1418: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1419: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1420: , p_msg_name => 'OKL_REQUIRED_VALUE'
1413: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1414: )
1415: ) Then
1416: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1417: x_return_status := OKC_API.g_ret_sts_error;
1418: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1419: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1420: , p_msg_name => 'OKL_REQUIRED_VALUE'
1421: , p_token1 => 'COL_NAME'
1415: ) Then
1416: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1417: x_return_status := OKC_API.g_ret_sts_error;
1418: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1419: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1420: , p_msg_name => 'OKL_REQUIRED_VALUE'
1421: , p_token1 => 'COL_NAME'
1422: , p_token1_value => l_ak_prompt
1423: );
1420: , p_msg_name => 'OKL_REQUIRED_VALUE'
1421: , p_token1 => 'COL_NAME'
1422: , p_token1_value => l_ak_prompt
1423: );
1424: raise OKC_API.G_EXCEPTION_ERROR;
1425: End If;
1426:
1427: End If;
1428:
1435: p_fee_types_rec.fee_type = G_FT_ROLLOVER or
1436: p_fee_types_rec.fee_type = G_FT_INCOME or
1437: p_fee_types_rec.fee_type = G_FT_ABSORBED or
1438: p_fee_types_rec.fee_type = G_FT_SECDEPOSIT or
1439: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1440: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1441: )
1442: ) Then
1443:
1440: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1441: )
1442: ) Then
1443:
1444: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1445: x_return_status := OKC_API.g_ret_sts_error;
1446: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1447: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1448: , p_msg_name => 'OKL_REQUIRED_VALUE'
1441: )
1442: ) Then
1443:
1444: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1445: x_return_status := OKC_API.g_ret_sts_error;
1446: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1447: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1448: , p_msg_name => 'OKL_REQUIRED_VALUE'
1449: , p_token1 => 'COL_NAME'
1443:
1444: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1445: x_return_status := OKC_API.g_ret_sts_error;
1446: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1447: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1448: , p_msg_name => 'OKL_REQUIRED_VALUE'
1449: , p_token1 => 'COL_NAME'
1450: , p_token1_value => l_ak_prompt
1451: );
1448: , p_msg_name => 'OKL_REQUIRED_VALUE'
1449: , p_token1 => 'COL_NAME'
1450: , p_token1_value => l_ak_prompt
1451: );
1452: raise OKC_API.G_EXCEPTION_ERROR;
1453: End If;
1454:
1455: End If;
1456:
1456:
1457:
1458: If ( p_fee_types_rec.fee_type = G_FT_ROLLOVER) Then
1459:
1460: If ( NOT (p_fee_types_rec.qte_id is null or p_fee_types_rec.qte_id = OKC_API.G_MISS_NUM )) Then
1461:
1462: l_khr_id := null;
1463: open l_khr_id_csr;
1464: fetch l_khr_id_csr into l_khr_id;
1481: End If;
1482:
1483: If(l_roll_qt is null) Then
1484:
1485: x_return_status := OKC_API.g_ret_sts_error;
1486: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ROLL_QT');
1487: If(l_ak_prompt is null) Then
1488: l_ak_prompt := 'QTE_ID';
1489: End if;
1487: If(l_ak_prompt is null) Then
1488: l_ak_prompt := 'QTE_ID';
1489: End if;
1490:
1491: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1492: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1493: , p_token1 => 'COL_NAME'
1494: , p_token1_value => l_ak_prompt
1495: );
1492: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1493: , p_token1 => 'COL_NAME'
1494: , p_token1_value => l_ak_prompt
1495: );
1496: raise OKC_API.G_EXCEPTION_ERROR;
1497:
1498: End If;
1499:
1500: x_fee_types_rec.qte_id := p_fee_types_rec.qte_id;
1499:
1500: x_fee_types_rec.qte_id := p_fee_types_rec.qte_id;
1501: l_qte_id := p_fee_types_rec.qte_id;
1502:
1503: ElsIf(NOT ( p_fee_types_rec.roll_qt is null or p_fee_types_rec.roll_qt = OKC_API.G_MISS_NUM )) Then
1504:
1505: l_qte_id := null;
1506:
1507:
1509: fetch l_roll_qt_csr into l_qte_id;
1510: close l_roll_qt_csr;
1511:
1512: If(l_qte_id is null) Then
1513: x_return_status := OKC_API.g_ret_sts_error;
1514: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ROLL_QT');
1515: If(l_ak_prompt is null) then
1516: l_ak_prompt := 'Rollover Quote';
1517: End If;
1514: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ROLL_QT');
1515: If(l_ak_prompt is null) then
1516: l_ak_prompt := 'Rollover Quote';
1517: End If;
1518: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1519: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1520: , p_token1 => 'COL_NAME'
1521: , p_token1_value => l_ak_prompt
1522: );
1519: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1520: , p_token1 => 'COL_NAME'
1521: , p_token1_value => l_ak_prompt
1522: );
1523: raise OKC_API.G_EXCEPTION_ERROR;
1524: End If;
1525:
1526: x_fee_types_rec.qte_id := l_qte_id;
1527:
1527:
1528:
1529: Else
1530:
1531: x_return_status := OKC_API.g_ret_sts_error;
1532: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ROLL_QT');
1533: If(l_ak_prompt is null) then
1534: l_ak_prompt := 'Rollover Quote';
1535: End If;
1533: If(l_ak_prompt is null) then
1534: l_ak_prompt := 'Rollover Quote';
1535: End If;
1536:
1537: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1538: , p_msg_name => 'OKL_REQUIRED_VALUE'
1539: , p_token1 => 'COL_NAME'
1540: , p_token1_value => l_ak_prompt
1541: );
1538: , p_msg_name => 'OKL_REQUIRED_VALUE'
1539: , p_token1 => 'COL_NAME'
1540: , p_token1_value => l_ak_prompt
1541: );
1542: raise OKC_API.G_EXCEPTION_ERROR;
1543:
1544: End If;
1545:
1546:
1543:
1544: End If;
1545:
1546:
1547: If(NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) Then
1548:
1549: -- check if rollover quote already associated to a line
1550: l_chk_qte_id := null;
1551: open l_chk_roll_qt_upd_csr(l_qte_id);
1553: close l_chk_roll_qt_upd_csr;
1554:
1555: If(l_chk_qte_id is not null ) Then
1556:
1557: x_return_status := OKC_API.g_ret_sts_error;
1558: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1559: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1560: );
1561: raise OKC_API.G_EXCEPTION_ERROR;
1554:
1555: If(l_chk_qte_id is not null ) Then
1556:
1557: x_return_status := OKC_API.g_ret_sts_error;
1558: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1559: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1560: );
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: End If;
1557: x_return_status := OKC_API.g_ret_sts_error;
1558: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1559: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1560: );
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: End If;
1563:
1564: Else
1565:
1569: close l_chk_roll_qt_crt_csr;
1570:
1571: If(l_chk_qte_id is not null ) Then
1572:
1573: x_return_status := OKC_API.g_ret_sts_error;
1574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1575: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1576: );
1577: raise OKC_API.G_EXCEPTION_ERROR;
1570:
1571: If(l_chk_qte_id is not null ) Then
1572:
1573: x_return_status := OKC_API.g_ret_sts_error;
1574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1575: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1576: );
1577: raise OKC_API.G_EXCEPTION_ERROR;
1578: End If;
1573: x_return_status := OKC_API.g_ret_sts_error;
1574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1575: , p_msg_name => 'OKL_QA_DUP_TERM_QUOTE'
1576: );
1577: raise OKC_API.G_EXCEPTION_ERROR;
1578: End If;
1579:
1580: End If;
1581:
1590: p_fee_types_rec.fee_type = G_FT_ROLLOVER or
1591: p_fee_types_rec.fee_type = G_FT_INCOME or
1592: p_fee_types_rec.fee_type = G_FT_ABSORBED or
1593: p_fee_types_rec.fee_type = G_FT_SECDEPOSIT or
1594: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1595: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1596: )
1597: ) Then
1598:
1595: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1596: )
1597: ) Then
1598:
1599: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1600: x_return_status := OKC_API.g_ret_sts_error;
1601: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1602: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1603: , p_msg_name => 'OKL_REQUIRED_VALUE'
1596: )
1597: ) Then
1598:
1599: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1600: x_return_status := OKC_API.g_ret_sts_error;
1601: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1602: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1603: , p_msg_name => 'OKL_REQUIRED_VALUE'
1604: , p_token1 => 'COL_NAME'
1598:
1599: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1600: x_return_status := OKC_API.g_ret_sts_error;
1601: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1602: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1603: , p_msg_name => 'OKL_REQUIRED_VALUE'
1604: , p_token1 => 'COL_NAME'
1605: , p_token1_value => l_ak_prompt
1606: );
1603: , p_msg_name => 'OKL_REQUIRED_VALUE'
1604: , p_token1 => 'COL_NAME'
1605: , p_token1_value => l_ak_prompt
1606: );
1607: raise OKC_API.G_EXCEPTION_ERROR;
1608: End If;
1609:
1610: End If;
1611:
1612:
1613: If (
1614: p_fee_types_rec.fee_type = G_FT_EXPENSE or
1615: p_fee_types_rec.fee_type = G_FT_MISCELLANEOUS or
1616: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1617: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1618: )
1619: ) Then
1620:
1619: ) Then
1620:
1621: If( p_fee_types_rec.initial_direct_cost is not null and p_fee_types_rec.initial_direct_cost > p_fee_types_rec.amount) Then
1622:
1623: x_return_status := OKC_API.g_ret_sts_error;
1624: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1625: , p_msg_name => 'OKL_FEE_IDC_AMT'
1626: );
1627: raise OKC_API.G_EXCEPTION_ERROR;
1620:
1621: If( p_fee_types_rec.initial_direct_cost is not null and p_fee_types_rec.initial_direct_cost > p_fee_types_rec.amount) Then
1622:
1623: x_return_status := OKC_API.g_ret_sts_error;
1624: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1625: , p_msg_name => 'OKL_FEE_IDC_AMT'
1626: );
1627: raise OKC_API.G_EXCEPTION_ERROR;
1628:
1623: x_return_status := OKC_API.g_ret_sts_error;
1624: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1625: , p_msg_name => 'OKL_FEE_IDC_AMT'
1626: );
1627: raise OKC_API.G_EXCEPTION_ERROR;
1628:
1629: End If;
1630:
1631: ElsIf (
1628:
1629: End If;
1630:
1631: ElsIf (
1632: (( NOT ( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM)) and
1633: (p_fee_types_rec.fee_type = G_FT_GENERAL)
1634: )
1635: ) Then
1636:
1635: ) Then
1636:
1637: If( NOT (p_fee_types_rec.initial_direct_cost is not null and p_fee_types_rec.initial_direct_cost = p_fee_types_rec.amount)) Then
1638:
1639: x_return_status := OKC_API.g_ret_sts_error;
1640: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1641: , p_msg_name => 'OKL_FEE_IDC_AMT_ABSORBED'
1642: );
1643: raise OKC_API.G_EXCEPTION_ERROR;
1636:
1637: If( NOT (p_fee_types_rec.initial_direct_cost is not null and p_fee_types_rec.initial_direct_cost = p_fee_types_rec.amount)) Then
1638:
1639: x_return_status := OKC_API.g_ret_sts_error;
1640: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1641: , p_msg_name => 'OKL_FEE_IDC_AMT_ABSORBED'
1642: );
1643: raise OKC_API.G_EXCEPTION_ERROR;
1644:
1639: x_return_status := OKC_API.g_ret_sts_error;
1640: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1641: , p_msg_name => 'OKL_FEE_IDC_AMT_ABSORBED'
1642: );
1643: raise OKC_API.G_EXCEPTION_ERROR;
1644:
1645: End If;
1646:
1647: Else
1654: p_fee_types_rec.fee_type = G_FT_INCOME or
1655: p_fee_types_rec.fee_type = G_FT_SECDEPOSIT
1656: )
1657: ) Then
1658: x_return_status := OKC_API.g_ret_sts_error;
1659: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE_IDC');
1660: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1661: , p_msg_name => 'OKL_INVALID_VALUE'
1662: , p_token1 => 'COL_NAME'
1656: )
1657: ) Then
1658: x_return_status := OKC_API.g_ret_sts_error;
1659: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE_IDC');
1660: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1661: , p_msg_name => 'OKL_INVALID_VALUE'
1662: , p_token1 => 'COL_NAME'
1663: , p_token1_value => l_ak_prompt
1664: );
1661: , p_msg_name => 'OKL_INVALID_VALUE'
1662: , p_token1 => 'COL_NAME'
1663: , p_token1_value => l_ak_prompt
1664: );
1665: raise OKC_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1668: End If;
1669:
1678: fetch l_fee_purpose_csr into l_fee_purpose_code;
1679: close l_fee_purpose_csr;
1680: /*
1681: If ( l_fee_purpose_code is null) Then
1682: x_return_status := OKC_API.g_ret_sts_error;
1683: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE_PURPOSE_MEANING');
1684: if(l_ak_prompt is null) Then l_ak_prompt := 'Fee Purpose Code'; End if;
1685: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1686: , p_msg_name => 'OKL_INVALID_VALUE'
1681: If ( l_fee_purpose_code is null) Then
1682: x_return_status := OKC_API.g_ret_sts_error;
1683: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE_PURPOSE_MEANING');
1684: if(l_ak_prompt is null) Then l_ak_prompt := 'Fee Purpose Code'; End if;
1685: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1686: , p_msg_name => 'OKL_INVALID_VALUE'
1687: , p_token1 => 'COL_NAME'
1688: , p_token1_value => l_ak_prompt
1689: );
1686: , p_msg_name => 'OKL_INVALID_VALUE'
1687: , p_token1 => 'COL_NAME'
1688: , p_token1_value => l_ak_prompt
1689: );
1690: raise OKC_API.G_EXCEPTION_ERROR;
1691: End If;
1692: */
1693: End If;
1694:
1693: End If;
1694:
1695: End If;
1696:
1697: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
1698:
1699:
1700: -- Modified by zrehman for Bug#6763287 on 17-Jan-2008 start
1701: --Bug# 6917539: Investor agreement validation causes regression issues
1705: p_fee_types_rec.fee_type = G_FT_INCOME or
1706: p_fee_types_rec.fee_type = G_FT_EXPENSE
1707: ) Then
1708:
1709: If ( NOT (p_fee_types_rec.item_id1 is null or p_fee_types_rec.item_id1 = OKC_API.G_MISS_CHAR )) Then
1710: l_item_name := null;
1711: open l_item_name_csr;
1712: fetch l_item_name_csr into l_item_name;
1713: close l_item_name_csr;
1711: open l_item_name_csr;
1712: fetch l_item_name_csr into l_item_name;
1713: close l_item_name_csr;
1714: If(l_item_name is null) Then
1715: x_return_status := OKC_API.g_ret_sts_error;
1716: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1717: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1718: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1719: , p_token1 => 'COL_NAME'
1713: close l_item_name_csr;
1714: If(l_item_name is null) Then
1715: x_return_status := OKC_API.g_ret_sts_error;
1716: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1717: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1718: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1719: , p_token1 => 'COL_NAME'
1720: , p_token1_value => l_ak_prompt
1721: );
1718: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1719: , p_token1 => 'COL_NAME'
1720: , p_token1_value => l_ak_prompt
1721: );
1722: raise OKC_API.G_EXCEPTION_ERROR;
1723: End If;
1724:
1725: x_fee_types_rec.item_name := l_item_name;
1726: x_fee_types_rec.item_id1 := p_fee_types_rec.item_id1;
1723: End If;
1724:
1725: x_fee_types_rec.item_name := l_item_name;
1726: x_fee_types_rec.item_id1 := p_fee_types_rec.item_id1;
1727: ElsIf (NOT( p_fee_types_rec.item_name is null or p_fee_types_rec.item_name = OKC_API.G_MISS_CHAR )) Then
1728:
1729: If(p_fee_types_rec.fee_type = G_FT_EXPENSE) Then
1730: l_item_id := null;
1731: open l_ft_others_item_id_csr(l_pdt_id, l_start_date);
1739: close l_ft_income_item_id_csr;
1740: End If;
1741:
1742: If(l_item_id is null) Then
1743: x_return_status := OKC_API.g_ret_sts_error;
1744: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1745: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1746: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1747: , p_token1 => 'COL_NAME'
1741:
1742: If(l_item_id is null) Then
1743: x_return_status := OKC_API.g_ret_sts_error;
1744: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1745: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1746: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1747: , p_token1 => 'COL_NAME'
1748: , p_token1_value => l_ak_prompt
1749: );
1746: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1747: , p_token1 => 'COL_NAME'
1748: , p_token1_value => l_ak_prompt
1749: );
1750: raise OKC_API.G_EXCEPTION_ERROR;
1751: End If;
1752: x_fee_types_rec.item_id1 := l_item_id;
1753:
1754: Else -- item name, item id are null
1751: End If;
1752: x_fee_types_rec.item_id1 := l_item_id;
1753:
1754: Else -- item name, item id are null
1755: x_return_status := OKC_API.g_ret_sts_error;
1756: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1757: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1758: , p_msg_name => 'OKL_REQUIRED_VALUE'
1759: , p_token1 => 'COL_NAME'
1753:
1754: Else -- item name, item id are null
1755: x_return_status := OKC_API.g_ret_sts_error;
1756: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
1757: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1758: , p_msg_name => 'OKL_REQUIRED_VALUE'
1759: , p_token1 => 'COL_NAME'
1760: , p_token1_value => l_ak_prompt
1761: );
1758: , p_msg_name => 'OKL_REQUIRED_VALUE'
1759: , p_token1 => 'COL_NAME'
1760: , p_token1_value => l_ak_prompt
1761: );
1762: raise OKC_API.G_EXCEPTION_ERROR;
1763: End If; -- check for item_id1 and item_name
1764:
1765: -- validation for party_id1 start
1766: If ( NOT(p_fee_types_rec.party_id1 is null or p_fee_types_rec.party_id1 = OKC_API.G_MISS_NUM)) Then
1762: raise OKC_API.G_EXCEPTION_ERROR;
1763: End If; -- check for item_id1 and item_name
1764:
1765: -- validation for party_id1 start
1766: If ( NOT(p_fee_types_rec.party_id1 is null or p_fee_types_rec.party_id1 = OKC_API.G_MISS_NUM)) Then
1767: OPEN l_inv_id_csr;
1768: FETCH l_inv_id_csr into l_investor_name;
1769: CLOSE l_inv_id_csr;
1770:
1768: FETCH l_inv_id_csr into l_investor_name;
1769: CLOSE l_inv_id_csr;
1770:
1771: If l_investor_name IS NULL THEN
1772: x_return_status := OKC_API.g_ret_sts_error;
1773: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_LA_INVESTOR');
1774: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1775: , p_msg_name => 'OKL_INVALID_VALUE'
1776: , p_token1 => 'COL_NAME'
1770:
1771: If l_investor_name IS NULL THEN
1772: x_return_status := OKC_API.g_ret_sts_error;
1773: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_LA_INVESTOR');
1774: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1775: , p_msg_name => 'OKL_INVALID_VALUE'
1776: , p_token1 => 'COL_NAME'
1777: , p_token1_value => l_ak_prompt
1778: );
1775: , p_msg_name => 'OKL_INVALID_VALUE'
1776: , p_token1 => 'COL_NAME'
1777: , p_token1_value => l_ak_prompt
1778: );
1779: raise OKC_API.G_EXCEPTION_ERROR;
1780: End If;
1781: x_fee_types_rec.party_name := l_investor_name;
1782: ElsIf ( NOT(p_fee_types_rec.party_name is null or p_fee_types_rec.party_name = OKC_API.G_MISS_CHAR)) Then
1783: OPEN l_inv_name_csr;
1778: );
1779: raise OKC_API.G_EXCEPTION_ERROR;
1780: End If;
1781: x_fee_types_rec.party_name := l_investor_name;
1782: ElsIf ( NOT(p_fee_types_rec.party_name is null or p_fee_types_rec.party_name = OKC_API.G_MISS_CHAR)) Then
1783: OPEN l_inv_name_csr;
1784: FETCH l_inv_name_csr into l_investor_id;
1785: CLOSE l_inv_name_csr;
1786: IF l_investor_id is NULL THEN
1784: FETCH l_inv_name_csr into l_investor_id;
1785: CLOSE l_inv_name_csr;
1786: IF l_investor_id is NULL THEN
1787: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_LA_INVESTOR');
1788: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1789: , p_msg_name => 'OKL_INVALID_VALUE'
1790: , p_token1 => 'COL_NAME'
1791: , p_token1_value => l_ak_prompt
1792: );
1789: , p_msg_name => 'OKL_INVALID_VALUE'
1790: , p_token1 => 'COL_NAME'
1791: , p_token1_value => l_ak_prompt
1792: );
1793: raise OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795:
1796: x_fee_types_rec.party_id1 := l_investor_id;
1797: End If;
1797: End If;
1798: -- validation for party_id1 end
1799: --validation for feeamount for investor
1800: If ( (l_investor_name is not null and p_fee_types_rec.fee_type = G_FT_EXPENSE) and (p_fee_types_rec.amount < 0) ) Then
1801: x_return_status := OKC_API.g_ret_sts_error;
1802: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1803: , p_msg_name => 'OKL_INV_AMOUNT_CHECK'
1804: );
1805: raise OKC_API.G_EXCEPTION_ERROR;
1798: -- validation for party_id1 end
1799: --validation for feeamount for investor
1800: If ( (l_investor_name is not null and p_fee_types_rec.fee_type = G_FT_EXPENSE) and (p_fee_types_rec.amount < 0) ) Then
1801: x_return_status := OKC_API.g_ret_sts_error;
1802: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1803: , p_msg_name => 'OKL_INV_AMOUNT_CHECK'
1804: );
1805: raise OKC_API.G_EXCEPTION_ERROR;
1806: End If;
1801: x_return_status := OKC_API.g_ret_sts_error;
1802: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1803: , p_msg_name => 'OKL_INV_AMOUNT_CHECK'
1804: );
1805: raise OKC_API.G_EXCEPTION_ERROR;
1806: End If;
1807:
1808: -- validation for effective_from start
1809: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1805: raise OKC_API.G_EXCEPTION_ERROR;
1806: End If;
1807:
1808: -- validation for effective_from start
1809: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1810: x_return_status := OKC_API.g_ret_sts_error;
1811: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1812: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1813: , p_msg_name => 'OKL_REQUIRED_VALUE'
1806: End If;
1807:
1808: -- validation for effective_from start
1809: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1810: x_return_status := OKC_API.g_ret_sts_error;
1811: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1812: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1813: , p_msg_name => 'OKL_REQUIRED_VALUE'
1814: , p_token1 => 'COL_NAME'
1808: -- validation for effective_from start
1809: If ( p_fee_types_rec.effective_from is null or p_fee_types_rec.effective_from = OKC_API.G_MISS_DATE ) Then
1810: x_return_status := OKC_API.g_ret_sts_error;
1811: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_START_DATE');
1812: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1813: , p_msg_name => 'OKL_REQUIRED_VALUE'
1814: , p_token1 => 'COL_NAME'
1815: , p_token1_value => l_ak_prompt
1816: );
1813: , p_msg_name => 'OKL_REQUIRED_VALUE'
1814: , p_token1 => 'COL_NAME'
1815: , p_token1_value => l_ak_prompt
1816: );
1817: raise OKC_API.G_EXCEPTION_ERROR;
1818: End If;
1819: -- validation for effective_from end
1820:
1821: -- validation for effective_to start
1818: End If;
1819: -- validation for effective_from end
1820:
1821: -- validation for effective_to start
1822: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1823: x_return_status := OKC_API.g_ret_sts_error;
1824: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1825: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1826: , p_msg_name => 'OKL_REQUIRED_VALUE'
1819: -- validation for effective_from end
1820:
1821: -- validation for effective_to start
1822: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1823: x_return_status := OKC_API.g_ret_sts_error;
1824: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1825: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1826: , p_msg_name => 'OKL_REQUIRED_VALUE'
1827: , p_token1 => 'COL_NAME'
1821: -- validation for effective_to start
1822: If ( p_fee_types_rec.effective_to is null or p_fee_types_rec.effective_to = OKC_API.G_MISS_DATE ) Then
1823: x_return_status := OKC_API.g_ret_sts_error;
1824: l_ak_prompt := GET_AK_PROMPT('OKL_LA_MLA_DTAIL', 'OKL_END_DATE');
1825: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1826: , p_msg_name => 'OKL_REQUIRED_VALUE'
1827: , p_token1 => 'COL_NAME'
1828: , p_token1_value => l_ak_prompt
1829: );
1826: , p_msg_name => 'OKL_REQUIRED_VALUE'
1827: , p_token1 => 'COL_NAME'
1828: , p_token1_value => l_ak_prompt
1829: );
1830: raise OKC_API.G_EXCEPTION_ERROR;
1831: End If;
1832: -- validation for effective_to end
1833:
1834: -- validation for amount start
1831: End If;
1832: -- validation for effective_to end
1833:
1834: -- validation for amount start
1835: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1836: x_return_status := OKC_API.g_ret_sts_error;
1837: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1838: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1839: , p_msg_name => 'OKL_REQUIRED_VALUE'
1832: -- validation for effective_to end
1833:
1834: -- validation for amount start
1835: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1836: x_return_status := OKC_API.g_ret_sts_error;
1837: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1838: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1839: , p_msg_name => 'OKL_REQUIRED_VALUE'
1840: , p_token1 => 'COL_NAME'
1834: -- validation for amount start
1835: If ( p_fee_types_rec.amount is null or p_fee_types_rec.amount = OKC_API.G_MISS_NUM ) Then
1836: x_return_status := OKC_API.g_ret_sts_error;
1837: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1838: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1839: , p_msg_name => 'OKL_REQUIRED_VALUE'
1840: , p_token1 => 'COL_NAME'
1841: , p_token1_value => l_ak_prompt
1842: );
1839: , p_msg_name => 'OKL_REQUIRED_VALUE'
1840: , p_token1 => 'COL_NAME'
1841: , p_token1_value => l_ak_prompt
1842: );
1843: raise OKC_API.G_EXCEPTION_ERROR;
1844: End If;
1845: -- validation for amount end
1846:
1847: --End If;
1845: -- validation for amount end
1846:
1847: --End If;
1848: Else -- fee type is not among valid ones
1849: x_return_status := OKC_API.g_ret_sts_error;
1850: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1851: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1852: , p_token1 => 'COL_NAME'
1853: , p_token1_value => p_fee_types_rec.fee_type
1846:
1847: --End If;
1848: Else -- fee type is not among valid ones
1849: x_return_status := OKC_API.g_ret_sts_error;
1850: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1851: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1852: , p_token1 => 'COL_NAME'
1853: , p_token1_value => p_fee_types_rec.fee_type
1854: );
1851: , p_msg_name => 'OKL_INVALID_FEE_TYPE'
1852: , p_token1 => 'COL_NAME'
1853: , p_token1_value => p_fee_types_rec.fee_type
1854: );
1855: raise OKC_API.G_EXCEPTION_ERROR;
1856:
1857: END IF; -- end validation of fee type for Investor Agreement
1858: END IF; -- Check if contract or investor
1859:
1857: END IF; -- end validation of fee type for Investor Agreement
1858: END IF; -- Check if contract or investor
1859:
1860: -- Modified by zrehman on 17-Jan-2008 end
1861: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1862:
1863: EXCEPTION
1864: when OKC_API.G_EXCEPTION_ERROR then
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1860: -- Modified by zrehman on 17-Jan-2008 end
1861: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1862:
1863: EXCEPTION
1864: when OKC_API.G_EXCEPTION_ERROR then
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1866: p_api_name => l_api_name,
1867: p_pkg_name => g_pkg_name,
1868: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1861: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1862:
1863: EXCEPTION
1864: when OKC_API.G_EXCEPTION_ERROR then
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1866: p_api_name => l_api_name,
1867: p_pkg_name => g_pkg_name,
1868: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1869: x_msg_count => x_msg_count,
1864: when OKC_API.G_EXCEPTION_ERROR then
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1866: p_api_name => l_api_name,
1867: p_pkg_name => g_pkg_name,
1868: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1869: x_msg_count => x_msg_count,
1870: x_msg_data => x_msg_data,
1871: p_api_type => g_api_type);
1872:
1869: x_msg_count => x_msg_count,
1870: x_msg_data => x_msg_data,
1871: p_api_type => g_api_type);
1872:
1873: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1875: p_api_name => l_api_name,
1876: p_pkg_name => g_pkg_name,
1877: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1870: x_msg_data => x_msg_data,
1871: p_api_type => g_api_type);
1872:
1873: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1875: p_api_name => l_api_name,
1876: p_pkg_name => g_pkg_name,
1877: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1878: x_msg_count => x_msg_count,
1873: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1875: p_api_name => l_api_name,
1876: p_pkg_name => g_pkg_name,
1877: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1878: x_msg_count => x_msg_count,
1879: x_msg_data => x_msg_data,
1880: p_api_type => g_api_type);
1881:
1879: x_msg_data => x_msg_data,
1880: p_api_type => g_api_type);
1881:
1882: when OTHERS then
1883: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1884: p_api_name => l_api_name,
1885: p_pkg_name => g_pkg_name,
1886: p_exc_name => 'OTHERS',
1887: x_msg_count => x_msg_count,
1898: -- Version : 1.0
1899: -- End of comments
1900: PROCEDURE fill_fee_type_info(
1901: p_api_version IN NUMBER,
1902: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1903: x_return_status OUT NOCOPY VARCHAR2,
1904: x_msg_count OUT NOCOPY NUMBER,
1905: x_msg_data OUT NOCOPY VARCHAR2,
1906: p_fee_types_rec IN fee_types_rec_type,
1934: BEGIN
1935:
1936: -- call START_ACTIVITY to create savepoint, check compatibility
1937: -- and initialize message list
1938: x_return_status := OKC_API.START_ACTIVITY(
1939: p_api_name => l_api_name,
1940: p_pkg_name => g_pkg_name,
1941: p_init_msg_list => p_init_msg_list,
1942: l_api_version => l_api_version,
1944: p_api_type => g_api_type,
1945: x_return_status => x_return_status);
1946:
1947: -- check if activity started successfully
1948: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1949: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1951: raise OKC_API.G_EXCEPTION_ERROR;
1952: End If;
1945: x_return_status => x_return_status);
1946:
1947: -- check if activity started successfully
1948: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1949: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1951: raise OKC_API.G_EXCEPTION_ERROR;
1952: End If;
1953:
1946:
1947: -- check if activity started successfully
1948: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1949: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1951: raise OKC_API.G_EXCEPTION_ERROR;
1952: End If;
1953:
1954: l_lse_id := null;
1947: -- check if activity started successfully
1948: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1949: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1951: raise OKC_API.G_EXCEPTION_ERROR;
1952: End If;
1953:
1954: l_lse_id := null;
1955: open get_lse_id_csr;
1956: fetch get_lse_id_csr into l_lse_id;
1957: close get_lse_id_csr;
1958:
1959: If(l_lse_id is null) Then
1960: x_return_status := OKC_API.g_ret_sts_error;
1961: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1962: , p_msg_name => 'OKL_INVALID_VALUE'
1963: , p_token1 => 'COL_NAME'
1964: , p_token1_value => 'LSE_ID'
1957: close get_lse_id_csr;
1958:
1959: If(l_lse_id is null) Then
1960: x_return_status := OKC_API.g_ret_sts_error;
1961: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1962: , p_msg_name => 'OKL_INVALID_VALUE'
1963: , p_token1 => 'COL_NAME'
1964: , p_token1_value => 'LSE_ID'
1965: );
1962: , p_msg_name => 'OKL_INVALID_VALUE'
1963: , p_token1 => 'COL_NAME'
1964: , p_token1_value => 'LSE_ID'
1965: );
1966: raise OKC_API.G_EXCEPTION_ERROR;
1967: End If;
1968:
1969: l_currency_code := null;
1970: l_sts_code := null;
1972: fetch get_cur_sts_code_csr into l_currency_code,l_sts_code;
1973: close get_cur_sts_code_csr;
1974:
1975: If(l_currency_code is null) Then
1976: x_return_status := OKC_API.g_ret_sts_error;
1977: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1978: , p_msg_name => 'OKL_INVALID_VALUE'
1979: , p_token1 => 'COL_NAME'
1980: , p_token1_value => 'CURRENCY_CODE'
1973: close get_cur_sts_code_csr;
1974:
1975: If(l_currency_code is null) Then
1976: x_return_status := OKC_API.g_ret_sts_error;
1977: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1978: , p_msg_name => 'OKL_INVALID_VALUE'
1979: , p_token1 => 'COL_NAME'
1980: , p_token1_value => 'CURRENCY_CODE'
1981: );
1978: , p_msg_name => 'OKL_INVALID_VALUE'
1979: , p_token1 => 'COL_NAME'
1980: , p_token1_value => 'CURRENCY_CODE'
1981: );
1982: raise OKC_API.G_EXCEPTION_ERROR;
1983: End If;
1984:
1985: If(l_sts_code is null) Then
1986: x_return_status := OKC_API.g_ret_sts_error;
1982: raise OKC_API.G_EXCEPTION_ERROR;
1983: End If;
1984:
1985: If(l_sts_code is null) Then
1986: x_return_status := OKC_API.g_ret_sts_error;
1987: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1988: , p_msg_name => 'OKL_INVALID_VALUE'
1989: , p_token1 => 'COL_NAME'
1990: , p_token1_value => 'STS_CODE'
1983: End If;
1984:
1985: If(l_sts_code is null) Then
1986: x_return_status := OKC_API.g_ret_sts_error;
1987: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1988: , p_msg_name => 'OKL_INVALID_VALUE'
1989: , p_token1 => 'COL_NAME'
1990: , p_token1_value => 'STS_CODE'
1991: );
1988: , p_msg_name => 'OKL_INVALID_VALUE'
1989: , p_token1 => 'COL_NAME'
1990: , p_token1_value => 'STS_CODE'
1991: );
1992: raise OKC_API.G_EXCEPTION_ERROR;
1993: End If;
1994:
1995: -- Modified by zrehman on 17-Jan-2008 start
1996: OPEN chk_inv_csr(p_fee_types_rec.dnz_chr_id);
2101: --p_fee_types_rec.fee_type = G_FT_CAPITALIZED or
2102: p_fee_types_rec.fee_type = G_FT_EXPENSE or
2103: --p_fee_types_rec.fee_type = G_FT_FINANCED or
2104: p_fee_types_rec.fee_type = G_FT_MISCELLANEOUS)
2105: and ( (NOT ( p_fee_types_rec.party_id is null or p_fee_types_rec.party_id = OKC_API.G_MISS_NUM)) and
2106: p_fee_types_rec.party_name is null)
2107:
2108: ) Then
2109:
2106: p_fee_types_rec.party_name is null)
2107:
2108: ) Then
2109:
2110: x_return_status := OKC_API.g_ret_sts_error;
2111: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
2112: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2113: , p_msg_name => 'OKL_REQUIRED_VALUE'
2114: , p_token1 => 'COL_NAME'
2108: ) Then
2109:
2110: x_return_status := OKC_API.g_ret_sts_error;
2111: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
2112: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2113: , p_msg_name => 'OKL_REQUIRED_VALUE'
2114: , p_token1 => 'COL_NAME'
2115: , p_token1_value => l_ak_prompt
2116: );
2113: , p_msg_name => 'OKL_REQUIRED_VALUE'
2114: , p_token1 => 'COL_NAME'
2115: , p_token1_value => l_ak_prompt
2116: );
2117: raise OKC_API.G_EXCEPTION_ERROR;
2118:
2119: End If;
2120:
2121: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2117: raise OKC_API.G_EXCEPTION_ERROR;
2118:
2119: End If;
2120:
2121: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2122:
2123: EXCEPTION
2124: when OKC_API.G_EXCEPTION_ERROR then
2125: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2120:
2121: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2122:
2123: EXCEPTION
2124: when OKC_API.G_EXCEPTION_ERROR then
2125: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2126: p_api_name => l_api_name,
2127: p_pkg_name => g_pkg_name,
2128: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2121: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2122:
2123: EXCEPTION
2124: when OKC_API.G_EXCEPTION_ERROR then
2125: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2126: p_api_name => l_api_name,
2127: p_pkg_name => g_pkg_name,
2128: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2129: x_msg_count => x_msg_count,
2124: when OKC_API.G_EXCEPTION_ERROR then
2125: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2126: p_api_name => l_api_name,
2127: p_pkg_name => g_pkg_name,
2128: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2129: x_msg_count => x_msg_count,
2130: x_msg_data => x_msg_data,
2131: p_api_type => g_api_type);
2132:
2129: x_msg_count => x_msg_count,
2130: x_msg_data => x_msg_data,
2131: p_api_type => g_api_type);
2132:
2133: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2135: p_api_name => l_api_name,
2136: p_pkg_name => g_pkg_name,
2137: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2130: x_msg_data => x_msg_data,
2131: p_api_type => g_api_type);
2132:
2133: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2135: p_api_name => l_api_name,
2136: p_pkg_name => g_pkg_name,
2137: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2138: x_msg_count => x_msg_count,
2133: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2135: p_api_name => l_api_name,
2136: p_pkg_name => g_pkg_name,
2137: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2138: x_msg_count => x_msg_count,
2139: x_msg_data => x_msg_data,
2140: p_api_type => g_api_type);
2141:
2139: x_msg_data => x_msg_data,
2140: p_api_type => g_api_type);
2141:
2142: when OTHERS then
2143: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2144: p_api_name => l_api_name,
2145: p_pkg_name => g_pkg_name,
2146: p_exc_name => 'OTHERS',
2147: x_msg_count => x_msg_count,
2152:
2153:
2154: PROCEDURE create_fee_top_line(
2155: p_api_version IN NUMBER,
2156: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2157: x_return_status OUT NOCOPY VARCHAR2,
2158: x_msg_count OUT NOCOPY NUMBER,
2159: x_msg_data OUT NOCOPY VARCHAR2,
2160: p_clev_rec IN okl_okc_migration_pvt.clev_rec_type,
2188: End If;
2189:
2190: -- call START_ACTIVITY to create savepoint, check compatibility
2191: -- and initialize message list
2192: x_return_status := OKC_API.START_ACTIVITY(
2193: p_api_name => l_api_name,
2194: p_pkg_name => g_pkg_name,
2195: p_init_msg_list => p_init_msg_list,
2196: l_api_version => l_api_version,
2198: p_api_type => g_api_type,
2199: x_return_status => x_return_status);
2200:
2201: -- check if activity started successfully
2202: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2203: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2205: raise OKC_API.G_EXCEPTION_ERROR;
2206: End If;
2199: x_return_status => x_return_status);
2200:
2201: -- check if activity started successfully
2202: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2203: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2205: raise OKC_API.G_EXCEPTION_ERROR;
2206: End If;
2207:
2200:
2201: -- check if activity started successfully
2202: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2203: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2205: raise OKC_API.G_EXCEPTION_ERROR;
2206: End If;
2207:
2208: okl_contract_pvt.create_contract_line(
2201: -- check if activity started successfully
2202: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2203: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2205: raise OKC_API.G_EXCEPTION_ERROR;
2206: End If;
2207:
2208: okl_contract_pvt.create_contract_line(
2209: p_api_version => p_api_version,
2215: p_klev_rec => l_klev_rec,
2216: x_clev_rec => x_clev_rec,
2217: x_klev_rec => x_klev_rec);
2218:
2219: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2220: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2221: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2222: raise OKC_API.G_EXCEPTION_ERROR;
2223: END IF;
2216: x_clev_rec => x_clev_rec,
2217: x_klev_rec => x_klev_rec);
2218:
2219: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2220: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2221: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2222: raise OKC_API.G_EXCEPTION_ERROR;
2223: END IF;
2224:
2217: x_klev_rec => x_klev_rec);
2218:
2219: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2220: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2221: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2222: raise OKC_API.G_EXCEPTION_ERROR;
2223: END IF;
2224:
2225: l_cimv_rec.cle_id := x_clev_rec.id;
2218:
2219: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2220: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2221: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2222: raise OKC_API.G_EXCEPTION_ERROR;
2223: END IF;
2224:
2225: l_cimv_rec.cle_id := x_clev_rec.id;
2226:
2233: p_cimv_rec => l_cimv_rec,
2234: x_cimv_rec => x_cimv_rec);
2235:
2236: -- check return status
2237: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2238: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2240: raise OKC_API.G_EXCEPTION_ERROR;
2241: End If;
2234: x_cimv_rec => x_cimv_rec);
2235:
2236: -- check return status
2237: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2238: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2240: raise OKC_API.G_EXCEPTION_ERROR;
2241: End If;
2242:
2235:
2236: -- check return status
2237: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2238: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2240: raise OKC_API.G_EXCEPTION_ERROR;
2241: End If;
2242:
2243: l_cplv_rec.cle_id := x_clev_rec.id;
2236: -- check return status
2237: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2238: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2240: raise OKC_API.G_EXCEPTION_ERROR;
2241: End If;
2242:
2243: l_cplv_rec.cle_id := x_clev_rec.id;
2244:
2269: p_kplv_rec => l_kplv_rec,
2270: x_kplv_rec => x_kplv_rec);
2271:
2272: -- check return status
2273: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2275: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2276: raise OKC_API.G_EXCEPTION_ERROR;
2277: End If;
2270: x_kplv_rec => x_kplv_rec);
2271:
2272: -- check return status
2273: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2275: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2276: raise OKC_API.G_EXCEPTION_ERROR;
2277: End If;
2278:
2271:
2272: -- check return status
2273: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2275: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2276: raise OKC_API.G_EXCEPTION_ERROR;
2277: End If;
2278:
2279: End if;
2272: -- check return status
2273: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2275: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2276: raise OKC_API.G_EXCEPTION_ERROR;
2277: End If;
2278:
2279: End if;
2280:
2277: End If;
2278:
2279: End if;
2280:
2281: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2282:
2283: EXCEPTION
2284: when OKC_API.G_EXCEPTION_ERROR then
2285: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2280:
2281: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2282:
2283: EXCEPTION
2284: when OKC_API.G_EXCEPTION_ERROR then
2285: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2286: p_api_name => l_api_name,
2287: p_pkg_name => g_pkg_name,
2288: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2281: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2282:
2283: EXCEPTION
2284: when OKC_API.G_EXCEPTION_ERROR then
2285: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2286: p_api_name => l_api_name,
2287: p_pkg_name => g_pkg_name,
2288: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2289: x_msg_count => x_msg_count,
2284: when OKC_API.G_EXCEPTION_ERROR then
2285: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2286: p_api_name => l_api_name,
2287: p_pkg_name => g_pkg_name,
2288: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2289: x_msg_count => x_msg_count,
2290: x_msg_data => x_msg_data,
2291: p_api_type => g_api_type);
2292:
2289: x_msg_count => x_msg_count,
2290: x_msg_data => x_msg_data,
2291: p_api_type => g_api_type);
2292:
2293: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2294: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2295: p_api_name => l_api_name,
2296: p_pkg_name => g_pkg_name,
2297: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2290: x_msg_data => x_msg_data,
2291: p_api_type => g_api_type);
2292:
2293: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2294: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2295: p_api_name => l_api_name,
2296: p_pkg_name => g_pkg_name,
2297: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2298: x_msg_count => x_msg_count,
2293: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2294: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2295: p_api_name => l_api_name,
2296: p_pkg_name => g_pkg_name,
2297: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2298: x_msg_count => x_msg_count,
2299: x_msg_data => x_msg_data,
2300: p_api_type => g_api_type);
2301:
2299: x_msg_data => x_msg_data,
2300: p_api_type => g_api_type);
2301:
2302: when OTHERS then
2303: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2304: p_api_name => l_api_name,
2305: p_pkg_name => g_pkg_name,
2306: p_exc_name => 'OTHERS',
2307: x_msg_count => x_msg_count,
2320: -- Version : 1.0
2321: -- End of comments
2322: PROCEDURE create_fee_type(
2323: p_api_version IN NUMBER,
2324: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2325: x_return_status OUT NOCOPY VARCHAR2,
2326: x_msg_count OUT NOCOPY NUMBER,
2327: x_msg_data OUT NOCOPY VARCHAR2,
2328: p_fee_types_rec IN fee_types_rec_type,
2351: BEGIN
2352:
2353: -- call START_ACTIVITY to create savepoint, check compatibility
2354: -- and initialize message list
2355: x_return_status := OKC_API.START_ACTIVITY(
2356: p_api_name => l_api_name,
2357: p_pkg_name => g_pkg_name,
2358: p_init_msg_list => p_init_msg_list,
2359: l_api_version => l_api_version,
2361: p_api_type => g_api_type,
2362: x_return_status => x_return_status);
2363:
2364: -- check if activity started successfully
2365: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2368: raise OKC_API.G_EXCEPTION_ERROR;
2369: End If;
2362: x_return_status => x_return_status);
2363:
2364: -- check if activity started successfully
2365: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2368: raise OKC_API.G_EXCEPTION_ERROR;
2369: End If;
2370:
2363:
2364: -- check if activity started successfully
2365: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2368: raise OKC_API.G_EXCEPTION_ERROR;
2369: End If;
2370:
2371: OKL_MAINTAIN_FEE_PVT.validate_fee_type(
2364: -- check if activity started successfully
2365: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2368: raise OKC_API.G_EXCEPTION_ERROR;
2369: End If;
2370:
2371: OKL_MAINTAIN_FEE_PVT.validate_fee_type(
2372: p_api_version => p_api_version,
2377: p_fee_types_rec => lp_fee_types_rec,
2378: x_fee_types_rec => lx_fee_types_rec
2379: );
2380:
2381: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2384: raise OKC_API.G_EXCEPTION_ERROR;
2385: End If;
2378: x_fee_types_rec => lx_fee_types_rec
2379: );
2380:
2381: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2384: raise OKC_API.G_EXCEPTION_ERROR;
2385: End If;
2386:
2379: );
2380:
2381: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2384: raise OKC_API.G_EXCEPTION_ERROR;
2385: End If;
2386:
2387: fill_fee_type_info(
2380:
2381: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2384: raise OKC_API.G_EXCEPTION_ERROR;
2385: End If;
2386:
2387: fill_fee_type_info(
2388: p_api_version => p_api_version,
2395: x_klev_rec => lx_klev_rec,
2396: x_cimv_rec => lx_cimv_rec,
2397: x_cplv_rec => lx_cplv_rec);
2398:
2399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2402: raise OKC_API.G_EXCEPTION_ERROR;
2403: End If;
2396: x_cimv_rec => lx_cimv_rec,
2397: x_cplv_rec => lx_cplv_rec);
2398:
2399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2402: raise OKC_API.G_EXCEPTION_ERROR;
2403: End If;
2404:
2397: x_cplv_rec => lx_cplv_rec);
2398:
2399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2402: raise OKC_API.G_EXCEPTION_ERROR;
2403: End If;
2404:
2405: lp_clev_rec := lx_clev_rec;
2398:
2399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2402: raise OKC_API.G_EXCEPTION_ERROR;
2403: End If;
2404:
2405: lp_clev_rec := lx_clev_rec;
2406: lp_klev_rec := lx_klev_rec;
2426: x_cimv_rec => lx_cimv_rec,
2427: x_cplv_rec => lx_cplv_rec
2428: );
2429:
2430: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2433: raise OKC_API.G_EXCEPTION_ERROR;
2434: End If;
2427: x_cplv_rec => lx_cplv_rec
2428: );
2429:
2430: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2433: raise OKC_API.G_EXCEPTION_ERROR;
2434: End If;
2435:
2428: );
2429:
2430: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2433: raise OKC_API.G_EXCEPTION_ERROR;
2434: End If;
2435:
2436: x_fee_types_rec.line_id := lx_clev_rec.id;
2429:
2430: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2433: raise OKC_API.G_EXCEPTION_ERROR;
2434: End If;
2435:
2436: x_fee_types_rec.line_id := lx_clev_rec.id;
2437: x_fee_types_rec.item_id := lx_cimv_rec.id;
2436: x_fee_types_rec.line_id := lx_clev_rec.id;
2437: x_fee_types_rec.item_id := lx_cimv_rec.id;
2438: x_fee_types_rec.party_id := lx_cplv_rec.id;
2439:
2440: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2441:
2442: EXCEPTION
2443: when OKC_API.G_EXCEPTION_ERROR then
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2439:
2440: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2441:
2442: EXCEPTION
2443: when OKC_API.G_EXCEPTION_ERROR then
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2445: p_api_name => l_api_name,
2446: p_pkg_name => g_pkg_name,
2447: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2440: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2441:
2442: EXCEPTION
2443: when OKC_API.G_EXCEPTION_ERROR then
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2445: p_api_name => l_api_name,
2446: p_pkg_name => g_pkg_name,
2447: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2448: x_msg_count => x_msg_count,
2443: when OKC_API.G_EXCEPTION_ERROR then
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2445: p_api_name => l_api_name,
2446: p_pkg_name => g_pkg_name,
2447: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2448: x_msg_count => x_msg_count,
2449: x_msg_data => x_msg_data,
2450: p_api_type => g_api_type);
2451:
2448: x_msg_count => x_msg_count,
2449: x_msg_data => x_msg_data,
2450: p_api_type => g_api_type);
2451:
2452: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2453: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2454: p_api_name => l_api_name,
2455: p_pkg_name => g_pkg_name,
2456: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2449: x_msg_data => x_msg_data,
2450: p_api_type => g_api_type);
2451:
2452: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2453: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2454: p_api_name => l_api_name,
2455: p_pkg_name => g_pkg_name,
2456: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2457: x_msg_count => x_msg_count,
2452: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2453: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2454: p_api_name => l_api_name,
2455: p_pkg_name => g_pkg_name,
2456: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2457: x_msg_count => x_msg_count,
2458: x_msg_data => x_msg_data,
2459: p_api_type => g_api_type);
2460:
2458: x_msg_data => x_msg_data,
2459: p_api_type => g_api_type);
2460:
2461: when OTHERS then
2462: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2463: p_api_name => l_api_name,
2464: p_pkg_name => g_pkg_name,
2465: p_exc_name => 'OTHERS',
2466: x_msg_count => x_msg_count,
2471:
2472:
2473: PROCEDURE update_fee_top_line(
2474: p_api_version IN NUMBER,
2475: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2476: x_return_status OUT NOCOPY VARCHAR2,
2477: x_msg_count OUT NOCOPY NUMBER,
2478: x_msg_data OUT NOCOPY VARCHAR2,
2479: p_clev_rec IN okl_okc_migration_pvt.clev_rec_type,
2523: End If;
2524:
2525: -- call START_ACTIVITY to create savepoint, check compatibility
2526: -- and initialize message list
2527: x_return_status := OKC_API.START_ACTIVITY(
2528: p_api_name => l_api_name,
2529: p_pkg_name => g_pkg_name,
2530: p_init_msg_list => p_init_msg_list,
2531: l_api_version => l_api_version,
2533: p_api_type => g_api_type,
2534: x_return_status => x_return_status);
2535:
2536: -- check if activity started successfully
2537: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2539: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2540: raise OKC_API.G_EXCEPTION_ERROR;
2541: End If;
2534: x_return_status => x_return_status);
2535:
2536: -- check if activity started successfully
2537: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2539: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2540: raise OKC_API.G_EXCEPTION_ERROR;
2541: End If;
2542:
2535:
2536: -- check if activity started successfully
2537: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2539: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2540: raise OKC_API.G_EXCEPTION_ERROR;
2541: End If;
2542:
2543: okl_contract_pvt.update_contract_line(
2536: -- check if activity started successfully
2537: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2539: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2540: raise OKC_API.G_EXCEPTION_ERROR;
2541: End If;
2542:
2543: okl_contract_pvt.update_contract_line(
2544: p_api_version => p_api_version,
2550: p_klev_rec => l_klev_rec,
2551: x_clev_rec => x_clev_rec,
2552: x_klev_rec => x_klev_rec);
2553:
2554: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2557: raise OKC_API.G_EXCEPTION_ERROR;
2558: END IF;
2551: x_clev_rec => x_clev_rec,
2552: x_klev_rec => x_klev_rec);
2553:
2554: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2557: raise OKC_API.G_EXCEPTION_ERROR;
2558: END IF;
2559:
2552: x_klev_rec => x_klev_rec);
2553:
2554: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2557: raise OKC_API.G_EXCEPTION_ERROR;
2558: END IF;
2559:
2560: --Bug# 4721428
2553:
2554: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2557: raise OKC_API.G_EXCEPTION_ERROR;
2558: END IF;
2559:
2560: --Bug# 4721428
2561: For fee_subline_rec In fee_subline_csr(p_cle_id => l_clev_rec.id,
2603: p_cimv_rec => l_cimv_rec,
2604: x_cimv_rec => x_cimv_rec);
2605:
2606: -- check return status
2607: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2608: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2610: raise OKC_API.G_EXCEPTION_ERROR;
2611: End If;
2604: x_cimv_rec => x_cimv_rec);
2605:
2606: -- check return status
2607: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2608: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2610: raise OKC_API.G_EXCEPTION_ERROR;
2611: End If;
2612:
2605:
2606: -- check return status
2607: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2608: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2610: raise OKC_API.G_EXCEPTION_ERROR;
2611: End If;
2612:
2613: l_cplv_rec.cle_id := x_clev_rec.id;
2606: -- check return status
2607: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2608: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2610: raise OKC_API.G_EXCEPTION_ERROR;
2611: End If;
2612:
2613: l_cplv_rec.cle_id := x_clev_rec.id;
2614:
2612:
2613: l_cplv_rec.cle_id := x_clev_rec.id;
2614:
2615:
2616: If ( (l_cplv_rec.id is null or l_cplv_rec.id = OKC_API.G_MISS_NUM ) and ( l_cplv_rec.object1_id1 is not null )) Then
2617:
2618: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
2619: -- to create records in tables
2620: -- okc_k_party_roles_b and okl_k_party_roles
2639: p_kplv_rec => l_kplv_rec,
2640: x_kplv_rec => x_kplv_rec);
2641:
2642: -- check return status
2643: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2644: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2646: raise OKC_API.G_EXCEPTION_ERROR;
2647: End If;
2640: x_kplv_rec => x_kplv_rec);
2641:
2642: -- check return status
2643: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2644: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2646: raise OKC_API.G_EXCEPTION_ERROR;
2647: End If;
2648:
2641:
2642: -- check return status
2643: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2644: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2646: raise OKC_API.G_EXCEPTION_ERROR;
2647: End If;
2648:
2649: ElsIf ( l_cplv_rec.id is not null and l_cplv_rec.object1_id1 is not null ) Then
2642: -- check return status
2643: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2644: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2646: raise OKC_API.G_EXCEPTION_ERROR;
2647: End If;
2648:
2649: ElsIf ( l_cplv_rec.id is not null and l_cplv_rec.object1_id1 is not null ) Then
2650:
2674: p_kplv_rec => l_kplv_rec,
2675: x_kplv_rec => x_kplv_rec );
2676:
2677: -- check return status
2678: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2681: raise OKC_API.G_EXCEPTION_ERROR;
2682: End If;
2675: x_kplv_rec => x_kplv_rec );
2676:
2677: -- check return status
2678: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2681: raise OKC_API.G_EXCEPTION_ERROR;
2682: End If;
2683:
2676:
2677: -- check return status
2678: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2681: raise OKC_API.G_EXCEPTION_ERROR;
2682: End If;
2683:
2684: Elsif ( l_cplv_rec.id is not null and l_cplv_rec.object1_id1 is null ) Then
2677: -- check return status
2678: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2681: raise OKC_API.G_EXCEPTION_ERROR;
2682: End If;
2683:
2684: Elsif ( l_cplv_rec.id is not null and l_cplv_rec.object1_id1 is null ) Then
2685:
2706: p_cplv_rec => l_cplv_rec,
2707: p_kplv_rec => l_kplv_rec);
2708:
2709: -- check return status
2710: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2711: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2712: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2713: raise OKC_API.G_EXCEPTION_ERROR;
2714: End If;
2707: p_kplv_rec => l_kplv_rec);
2708:
2709: -- check return status
2710: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2711: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2712: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2713: raise OKC_API.G_EXCEPTION_ERROR;
2714: End If;
2715:
2708:
2709: -- check return status
2710: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2711: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2712: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2713: raise OKC_API.G_EXCEPTION_ERROR;
2714: End If;
2715:
2716: End if;
2709: -- check return status
2710: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2711: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2712: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2713: raise OKC_API.G_EXCEPTION_ERROR;
2714: End If;
2715:
2716: End if;
2717:
2714: End If;
2715:
2716: End if;
2717:
2718: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2719:
2720: EXCEPTION
2721: when OKC_API.G_EXCEPTION_ERROR then
2722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2717:
2718: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2719:
2720: EXCEPTION
2721: when OKC_API.G_EXCEPTION_ERROR then
2722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2723: p_api_name => l_api_name,
2724: p_pkg_name => g_pkg_name,
2725: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2718: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2719:
2720: EXCEPTION
2721: when OKC_API.G_EXCEPTION_ERROR then
2722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2723: p_api_name => l_api_name,
2724: p_pkg_name => g_pkg_name,
2725: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2726: x_msg_count => x_msg_count,
2721: when OKC_API.G_EXCEPTION_ERROR then
2722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2723: p_api_name => l_api_name,
2724: p_pkg_name => g_pkg_name,
2725: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2726: x_msg_count => x_msg_count,
2727: x_msg_data => x_msg_data,
2728: p_api_type => g_api_type);
2729:
2726: x_msg_count => x_msg_count,
2727: x_msg_data => x_msg_data,
2728: p_api_type => g_api_type);
2729:
2730: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2731: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2732: p_api_name => l_api_name,
2733: p_pkg_name => g_pkg_name,
2734: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2727: x_msg_data => x_msg_data,
2728: p_api_type => g_api_type);
2729:
2730: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2731: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2732: p_api_name => l_api_name,
2733: p_pkg_name => g_pkg_name,
2734: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2735: x_msg_count => x_msg_count,
2730: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2731: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2732: p_api_name => l_api_name,
2733: p_pkg_name => g_pkg_name,
2734: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2735: x_msg_count => x_msg_count,
2736: x_msg_data => x_msg_data,
2737: p_api_type => g_api_type);
2738:
2736: x_msg_data => x_msg_data,
2737: p_api_type => g_api_type);
2738:
2739: when OTHERS then
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2741: p_api_name => l_api_name,
2742: p_pkg_name => g_pkg_name,
2743: p_exc_name => 'OTHERS',
2744: x_msg_count => x_msg_count,
2756: -- Version : 1.0
2757: -- End of comments
2758: PROCEDURE update_fee_type(
2759: p_api_version IN NUMBER,
2760: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2761: x_return_status OUT NOCOPY VARCHAR2,
2762: x_msg_count OUT NOCOPY NUMBER,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_fee_types_rec IN fee_types_rec_type,
2820: BEGIN
2821:
2822: -- call START_ACTIVITY to create savepoint, check compatibility
2823: -- and initialize message list
2824: x_return_status := OKC_API.START_ACTIVITY(
2825: p_api_name => l_api_name,
2826: p_pkg_name => g_pkg_name,
2827: p_init_msg_list => p_init_msg_list,
2828: l_api_version => l_api_version,
2830: p_api_type => g_api_type,
2831: x_return_status => x_return_status);
2832:
2833: -- check if activity started successfully
2834: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2835: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2836: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2837: raise OKC_API.G_EXCEPTION_ERROR;
2838: End If;
2831: x_return_status => x_return_status);
2832:
2833: -- check if activity started successfully
2834: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2835: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2836: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2837: raise OKC_API.G_EXCEPTION_ERROR;
2838: End If;
2839:
2832:
2833: -- check if activity started successfully
2834: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2835: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2836: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2837: raise OKC_API.G_EXCEPTION_ERROR;
2838: End If;
2839:
2840: --Bug# 4959361
2833: -- check if activity started successfully
2834: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2835: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2836: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2837: raise OKC_API.G_EXCEPTION_ERROR;
2838: End If;
2839:
2840: --Bug# 4959361
2841: OKL_LLA_UTIL_PVT.check_line_update_allowed
2862: p_fee_types_rec => lp_fee_types_rec,
2863: x_fee_types_rec => lx_fee_types_rec
2864: );
2865:
2866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2869: raise OKC_API.G_EXCEPTION_ERROR;
2870: End If;
2863: x_fee_types_rec => lx_fee_types_rec
2864: );
2865:
2866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2869: raise OKC_API.G_EXCEPTION_ERROR;
2870: End If;
2871:
2864: );
2865:
2866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2869: raise OKC_API.G_EXCEPTION_ERROR;
2870: End If;
2871:
2872: --Bug# 4899328
2865:
2866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2869: raise OKC_API.G_EXCEPTION_ERROR;
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);
2898: x_klev_rec => lx_klev_rec,
2899: x_cimv_rec => lx_cimv_rec,
2900: x_cplv_rec => lx_cplv_rec);
2901:
2902: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2903: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2905: raise OKC_API.G_EXCEPTION_ERROR;
2906: End If;
2899: x_cimv_rec => lx_cimv_rec,
2900: x_cplv_rec => lx_cplv_rec);
2901:
2902: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2903: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2905: raise OKC_API.G_EXCEPTION_ERROR;
2906: End If;
2907:
2900: x_cplv_rec => lx_cplv_rec);
2901:
2902: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2903: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2905: raise OKC_API.G_EXCEPTION_ERROR;
2906: End If;
2907:
2908: lp_clev_rec := lx_clev_rec;
2901:
2902: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2903: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2905: raise OKC_API.G_EXCEPTION_ERROR;
2906: End If;
2907:
2908: lp_clev_rec := lx_clev_rec;
2909: lp_klev_rec := lx_klev_rec;
2936: x_cimv_rec => lx_cimv_rec,
2937: x_cplv_rec => lx_cplv_rec
2938: );
2939:
2940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2943: raise OKC_API.G_EXCEPTION_ERROR;
2944: End If;
2937: x_cplv_rec => lx_cplv_rec
2938: );
2939:
2940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2943: raise OKC_API.G_EXCEPTION_ERROR;
2944: End If;
2945:
2938: );
2939:
2940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2943: raise OKC_API.G_EXCEPTION_ERROR;
2944: End If;
2945:
2946: x_fee_types_rec.line_id := lx_clev_rec.id;
2939:
2940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2943: raise OKC_API.G_EXCEPTION_ERROR;
2944: End If;
2945:
2946: x_fee_types_rec.line_id := lx_clev_rec.id;
2947: x_fee_types_rec.item_id := lx_cimv_rec.id;
2993: p_rul_id => l_rul_id
2994: );
2995:
2996: -- check return status
2997: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3000: raise OKC_API.G_EXCEPTION_ERROR;
3001: End If;
2994: );
2995:
2996: -- check return status
2997: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3000: raise OKC_API.G_EXCEPTION_ERROR;
3001: End If;
3002:
2995:
2996: -- check return status
2997: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3000: raise OKC_API.G_EXCEPTION_ERROR;
3001: End If;
3002:
3003: End If;
2996: -- check return status
2997: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3000: raise OKC_API.G_EXCEPTION_ERROR;
3001: End If;
3002:
3003: End If;
3004:
3002:
3003: End If;
3004:
3005:
3006: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3007:
3008: EXCEPTION
3009: when OKC_API.G_EXCEPTION_ERROR then
3010: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3005:
3006: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3007:
3008: EXCEPTION
3009: when OKC_API.G_EXCEPTION_ERROR then
3010: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3011: p_api_name => l_api_name,
3012: p_pkg_name => g_pkg_name,
3013: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3006: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3007:
3008: EXCEPTION
3009: when OKC_API.G_EXCEPTION_ERROR then
3010: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3011: p_api_name => l_api_name,
3012: p_pkg_name => g_pkg_name,
3013: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3014: x_msg_count => x_msg_count,
3009: when OKC_API.G_EXCEPTION_ERROR then
3010: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3011: p_api_name => l_api_name,
3012: p_pkg_name => g_pkg_name,
3013: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3014: x_msg_count => x_msg_count,
3015: x_msg_data => x_msg_data,
3016: p_api_type => g_api_type);
3017:
3014: x_msg_count => x_msg_count,
3015: x_msg_data => x_msg_data,
3016: p_api_type => g_api_type);
3017:
3018: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3020: p_api_name => l_api_name,
3021: p_pkg_name => g_pkg_name,
3022: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3015: x_msg_data => x_msg_data,
3016: p_api_type => g_api_type);
3017:
3018: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3020: p_api_name => l_api_name,
3021: p_pkg_name => g_pkg_name,
3022: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3023: x_msg_count => x_msg_count,
3018: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3020: p_api_name => l_api_name,
3021: p_pkg_name => g_pkg_name,
3022: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3023: x_msg_count => x_msg_count,
3024: x_msg_data => x_msg_data,
3025: p_api_type => g_api_type);
3026:
3024: x_msg_data => x_msg_data,
3025: p_api_type => g_api_type);
3026:
3027: when OTHERS then
3028: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3029: p_api_name => l_api_name,
3030: p_pkg_name => g_pkg_name,
3031: p_exc_name => 'OTHERS',
3032: x_msg_count => x_msg_count,
3044: -- Version : 1.0
3045: -- End of comments
3046: PROCEDURE delete_fee_type(
3047: p_api_version IN NUMBER,
3048: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3049: x_return_status OUT NOCOPY VARCHAR2,
3050: x_msg_count OUT NOCOPY NUMBER,
3051: x_msg_data OUT NOCOPY VARCHAR2,
3052: p_fee_types_rec IN fee_types_rec_type
3142: End If;
3143:
3144: -- call START_ACTIVITY to create savepoint, check compatibility
3145: -- and initialize message list
3146: x_return_status := OKC_API.START_ACTIVITY(
3147: p_api_name => l_api_name,
3148: p_pkg_name => g_pkg_name,
3149: p_init_msg_list => p_init_msg_list,
3150: l_api_version => l_api_version,
3152: p_api_type => g_api_type,
3153: x_return_status => x_return_status);
3154:
3155: -- check if activity started successfully
3156: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3153: x_return_status => x_return_status);
3154:
3155: -- check if activity started successfully
3156: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3161:
3154:
3155: -- check if activity started successfully
3156: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3161:
3162: If( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM) Then
3155: -- check if activity started successfully
3156: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3161:
3162: If( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM) Then
3163: x_return_status := OKC_API.g_ret_sts_error;
3158: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3161:
3162: If( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM) Then
3163: x_return_status := OKC_API.g_ret_sts_error;
3164: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3165: , p_msg_name => 'OKL_REQUIRED_VALUE'
3166: , p_token1 => 'COL_NAME'
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: End If;
3161:
3162: If( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM) Then
3163: x_return_status := OKC_API.g_ret_sts_error;
3164: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3165: , p_msg_name => 'OKL_REQUIRED_VALUE'
3166: , p_token1 => 'COL_NAME'
3167: , p_token1_value => 'CLE_ID'
3160: End If;
3161:
3162: If( p_fee_types_rec.line_id is null or p_fee_types_rec.line_id = OKC_API.G_MISS_NUM) Then
3163: x_return_status := OKC_API.g_ret_sts_error;
3164: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3165: , p_msg_name => 'OKL_REQUIRED_VALUE'
3166: , p_token1 => 'COL_NAME'
3167: , p_token1_value => 'CLE_ID'
3168: );
3165: , p_msg_name => 'OKL_REQUIRED_VALUE'
3166: , p_token1 => 'COL_NAME'
3167: , p_token1_value => 'CLE_ID'
3168: );
3169: raise OKC_API.G_EXCEPTION_ERROR;
3170: End If;
3171:
3172: If( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM) Then
3173: x_return_status := OKC_API.g_ret_sts_error;
3168: );
3169: raise OKC_API.G_EXCEPTION_ERROR;
3170: End If;
3171:
3172: If( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM) Then
3173: x_return_status := OKC_API.g_ret_sts_error;
3174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3175: , p_msg_name => 'OKL_REQUIRED_VALUE'
3176: , p_token1 => 'COL_NAME'
3169: raise OKC_API.G_EXCEPTION_ERROR;
3170: End If;
3171:
3172: If( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM) Then
3173: x_return_status := OKC_API.g_ret_sts_error;
3174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3175: , p_msg_name => 'OKL_REQUIRED_VALUE'
3176: , p_token1 => 'COL_NAME'
3177: , p_token1_value => 'CHR_ID'
3170: End If;
3171:
3172: If( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM) Then
3173: x_return_status := OKC_API.g_ret_sts_error;
3174: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3175: , p_msg_name => 'OKL_REQUIRED_VALUE'
3176: , p_token1 => 'COL_NAME'
3177: , p_token1_value => 'CHR_ID'
3178: );
3175: , p_msg_name => 'OKL_REQUIRED_VALUE'
3176: , p_token1 => 'COL_NAME'
3177: , p_token1_value => 'CHR_ID'
3178: );
3179: raise OKC_API.G_EXCEPTION_ERROR;
3180: End If;
3181:
3182: --Bug#4552772
3183: open get_fee_purpose_code_csr(l_line_id);
3183: open get_fee_purpose_code_csr(l_line_id);
3184: fetch get_fee_purpose_code_csr into l_fee_purpose_code;
3185: close get_fee_purpose_code_csr;
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');
3185: close get_fee_purpose_code_csr;
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;
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;
3195: END IF;
3196:
3197: l_rebook_yn := null;
3200: close l_rebook_csr;
3201:
3202: If(l_rebook_yn = 'Y'
3203: and p_fee_types_rec.line_id is not null
3204: and p_fee_types_rec.line_id <> OKC_API.G_MISS_NUM) Then
3205:
3206: l_fee_type := null;
3207: l_orig_system_id1 := null;
3208:
3215: --Bug# 6787858: Allow delete of 'GENERAL' fee and fees newly added during rebook
3216: If (l_fee_type = 'GENERAL' OR l_orig_system_id1 IS NULL) Then
3217: NULL;
3218: ELSE
3219: x_return_status := OKC_API.g_ret_sts_error;
3220: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3221: , p_msg_name => 'OKL_FEE_REBK_DEL_ERR' -- seed an error message
3222: );
3223: raise OKC_API.G_EXCEPTION_ERROR;
3216: If (l_fee_type = 'GENERAL' OR l_orig_system_id1 IS NULL) Then
3217: NULL;
3218: ELSE
3219: x_return_status := OKC_API.g_ret_sts_error;
3220: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3221: , p_msg_name => 'OKL_FEE_REBK_DEL_ERR' -- seed an error message
3222: );
3223: raise OKC_API.G_EXCEPTION_ERROR;
3224: End If;
3219: x_return_status := OKC_API.g_ret_sts_error;
3220: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3221: , p_msg_name => 'OKL_FEE_REBK_DEL_ERR' -- seed an error message
3222: );
3223: raise OKC_API.G_EXCEPTION_ERROR;
3224: End If;
3225:
3226: l_clev_rec.chr_id := p_fee_types_rec.dnz_chr_id;
3227: l_clev_rec.id := p_fee_types_rec.line_id;
3238: p_klev_rec => l_klev_rec,
3239: x_clev_rec => x_clev_rec,
3240: x_klev_rec => x_klev_rec);
3241:
3242: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3243: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3244: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3245: raise OKC_API.G_EXCEPTION_ERROR;
3246: END IF;
3239: x_clev_rec => x_clev_rec,
3240: x_klev_rec => x_klev_rec);
3241:
3242: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3243: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3244: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3245: raise OKC_API.G_EXCEPTION_ERROR;
3246: END IF;
3247:
3240: x_klev_rec => x_klev_rec);
3241:
3242: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3243: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3244: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3245: raise OKC_API.G_EXCEPTION_ERROR;
3246: END IF;
3247:
3248: FOR l_sub_line_csr IN c_sub_line_csr(p_line_id => p_fee_types_rec.line_id,p_chr_id => p_fee_types_rec.dnz_chr_id)
3241:
3242: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3243: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3244: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3245: raise OKC_API.G_EXCEPTION_ERROR;
3246: END IF;
3247:
3248: FOR l_sub_line_csr IN c_sub_line_csr(p_line_id => p_fee_types_rec.line_id,p_chr_id => p_fee_types_rec.dnz_chr_id)
3249: LOOP
3262: p_klev_rec => l_sl_klev_rec,
3263: x_clev_rec => x_sl_clev_rec,
3264: x_klev_rec => x_sl_klev_rec);
3265:
3266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: raise OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3263: x_clev_rec => x_sl_clev_rec,
3264: x_klev_rec => x_sl_klev_rec);
3265:
3266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: raise OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271:
3264: x_klev_rec => x_sl_klev_rec);
3265:
3266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: raise OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271:
3272: END LOOP;
3265:
3266: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: raise OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271:
3272: END LOOP;
3273:
3270: END IF;
3271:
3272: END LOOP;
3273:
3274: ElsIf( l_rebook_yn is null and p_fee_types_rec.line_id is not null and p_fee_types_rec.line_id <> OKC_API.G_MISS_NUM) Then
3275:
3276: --bug# 3877032
3277: i := 0;
3278: For l_cov_Ast_rec in l_cov_ast_csr (p_cle_id => p_fee_types_rec.line_id)
3294: x_msg_data => x_msg_data,
3295: p_line_id => l_line_id
3296: );
3297:
3298: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: END IF;
3295: p_line_id => l_line_id
3296: );
3297:
3298: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: END IF;
3303:
3296: );
3297:
3298: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: END IF;
3303:
3304: End If;
3297:
3298: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: END IF;
3303:
3304: End If;
3305:
3315: p_formula_name => 'LINE_CAP_AMNT',
3316: p_contract_id => l_fin_clev_tbl(i).dnz_chr_id,
3317: p_line_id => l_fin_clev_tbl(i).id,
3318: x_value => l_fin_klev_tbl(i).capital_amount);
3319: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3320: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3322: raise OKC_API.G_EXCEPTION_ERROR;
3323: End If;
3316: p_contract_id => l_fin_clev_tbl(i).dnz_chr_id,
3317: p_line_id => l_fin_clev_tbl(i).id,
3318: x_value => l_fin_klev_tbl(i).capital_amount);
3319: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3320: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3322: raise OKC_API.G_EXCEPTION_ERROR;
3323: End If;
3324: End Loop;
3317: p_line_id => l_fin_clev_tbl(i).id,
3318: x_value => l_fin_klev_tbl(i).capital_amount);
3319: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3320: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3322: raise OKC_API.G_EXCEPTION_ERROR;
3323: End If;
3324: End Loop;
3325:
3318: x_value => l_fin_klev_tbl(i).capital_amount);
3319: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3320: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3322: raise OKC_API.G_EXCEPTION_ERROR;
3323: End If;
3324: End Loop;
3325:
3326: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
3332: p_klev_tbl => l_fin_klev_tbl,
3333: x_clev_tbl => lx_fin_clev_tbl,
3334: x_klev_tbl => lx_fin_klev_tbl);
3335:
3336: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3333: x_clev_tbl => lx_fin_clev_tbl,
3334: x_klev_tbl => lx_fin_klev_tbl);
3335:
3336: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: End If;
3334: x_klev_tbl => lx_fin_klev_tbl);
3335:
3336: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: End If;
3342: --Bug# 3877032
3335:
3336: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: End If;
3342: --Bug# 3877032
3343:
3366: -- vthiruva, 09/01/2004
3367: -- END, Code change to enable Business Event
3368: */
3369:
3370: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3371:
3372: EXCEPTION
3373: when OKC_API.G_EXCEPTION_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3369:
3370: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3371:
3372: EXCEPTION
3373: when OKC_API.G_EXCEPTION_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3370: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3371:
3372: EXCEPTION
3373: when OKC_API.G_EXCEPTION_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3378: x_msg_count => x_msg_count,
3373: when OKC_API.G_EXCEPTION_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3378: x_msg_count => x_msg_count,
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3378: x_msg_count => x_msg_count,
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3382: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3382: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3387: x_msg_count => x_msg_count,
3382: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3387: x_msg_count => x_msg_count,
3388: x_msg_data => x_msg_data,
3389: p_api_type => g_api_type);
3390:
3388: x_msg_data => x_msg_data,
3389: p_api_type => g_api_type);
3390:
3391: when OTHERS then
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3393: p_api_name => l_api_name,
3394: p_pkg_name => g_pkg_name,
3395: p_exc_name => 'OTHERS',
3396: x_msg_count => x_msg_count,
3401: END;
3402:
3403: PROCEDURE process_strmtp_rul(
3404: p_api_version IN NUMBER,
3405: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3406: x_return_status OUT NOCOPY VARCHAR2,
3407: x_msg_count OUT NOCOPY NUMBER,
3408: x_msg_data OUT NOCOPY VARCHAR2,
3409: p_chr_id IN NUMBER,
3453: End If;
3454:
3455: -- call START_ACTIVITY to create savepoint, check compatibility
3456: -- and initialize message list
3457: x_return_status := OKC_API.START_ACTIVITY(
3458: p_api_name => l_api_name,
3459: p_pkg_name => g_pkg_name,
3460: p_init_msg_list => p_init_msg_list,
3461: l_api_version => l_api_version,
3463: p_api_type => g_api_type,
3464: x_return_status => x_return_status);
3465:
3466: -- check if activity started successfully
3467: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3468: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3469: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3470: raise OKC_API.G_EXCEPTION_ERROR;
3471: End If;
3464: x_return_status => x_return_status);
3465:
3466: -- check if activity started successfully
3467: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3468: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3469: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3470: raise OKC_API.G_EXCEPTION_ERROR;
3471: End If;
3472:
3465:
3466: -- check if activity started successfully
3467: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3468: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3469: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3470: raise OKC_API.G_EXCEPTION_ERROR;
3471: End If;
3472:
3473: l_rgp_id := null;
3466: -- check if activity started successfully
3467: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3468: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3469: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3470: raise OKC_API.G_EXCEPTION_ERROR;
3471: End If;
3472:
3473: l_rgp_id := null;
3474: l_rul_id := null;
3499: x_msg_data => x_msg_data,
3500: p_rgpv_rec => lp_lapsth_rgpv_rec,
3501: x_rgpv_rec => lx_lapsth_rgpv_rec);
3502:
3503: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3505: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3506: raise OKC_API.G_EXCEPTION_ERROR;
3507: End If;
3500: p_rgpv_rec => lp_lapsth_rgpv_rec,
3501: x_rgpv_rec => lx_lapsth_rgpv_rec);
3502:
3503: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3505: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3506: raise OKC_API.G_EXCEPTION_ERROR;
3507: End If;
3508:
3501: x_rgpv_rec => lx_lapsth_rgpv_rec);
3502:
3503: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3505: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3506: raise OKC_API.G_EXCEPTION_ERROR;
3507: End If;
3508:
3509: lp_lastrm_rulv_rec.id := l_rul_id;
3502:
3503: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3505: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3506: raise OKC_API.G_EXCEPTION_ERROR;
3507: End If;
3508:
3509: lp_lastrm_rulv_rec.id := l_rul_id;
3510: lp_lastrm_rulv_rec.rgp_id := lx_lapsth_rgpv_rec.id;
3524: x_msg_data => x_msg_data,
3525: p_rulv_rec => lp_lastrm_rulv_rec,
3526: x_rulv_rec => lx_lastrm_rulv_rec);
3527:
3528: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3531: raise OKC_API.G_EXCEPTION_ERROR;
3532: End If;
3525: p_rulv_rec => lp_lastrm_rulv_rec,
3526: x_rulv_rec => lx_lastrm_rulv_rec);
3527:
3528: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3531: raise OKC_API.G_EXCEPTION_ERROR;
3532: End If;
3533:
3526: x_rulv_rec => lx_lastrm_rulv_rec);
3527:
3528: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3531: raise OKC_API.G_EXCEPTION_ERROR;
3532: End If;
3533:
3534: ElsIf (l_rgp_id is null and l_rul_id is null and p_object1_id1 is not null) Then
3527:
3528: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3531: raise OKC_API.G_EXCEPTION_ERROR;
3532: End If;
3533:
3534: ElsIf (l_rgp_id is null and l_rul_id is null and p_object1_id1 is not null) Then
3535:
3550: x_msg_data => x_msg_data,
3551: p_rgpv_rec => lp_lapsth_rgpv_rec,
3552: x_rgpv_rec => lx_lapsth_rgpv_rec);
3553:
3554: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3557: raise OKC_API.G_EXCEPTION_ERROR;
3558: End If;
3551: p_rgpv_rec => lp_lapsth_rgpv_rec,
3552: x_rgpv_rec => lx_lapsth_rgpv_rec);
3553:
3554: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3557: raise OKC_API.G_EXCEPTION_ERROR;
3558: End If;
3559:
3552: x_rgpv_rec => lx_lapsth_rgpv_rec);
3553:
3554: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3557: raise OKC_API.G_EXCEPTION_ERROR;
3558: End If;
3559:
3560: End If;
3553:
3554: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3555: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3557: raise OKC_API.G_EXCEPTION_ERROR;
3558: End If;
3559:
3560: End If;
3561:
3583: x_msg_data => x_msg_data,
3584: p_rulv_rec => lp_lastrm_rulv_rec,
3585: x_rulv_rec => lx_lastrm_rulv_rec);
3586:
3587: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3588: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3590: raise OKC_API.G_EXCEPTION_ERROR;
3591: End If;
3584: p_rulv_rec => lp_lastrm_rulv_rec,
3585: x_rulv_rec => lx_lastrm_rulv_rec);
3586:
3587: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3588: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3590: raise OKC_API.G_EXCEPTION_ERROR;
3591: End If;
3592:
3585: x_rulv_rec => lx_lastrm_rulv_rec);
3586:
3587: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3588: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3590: raise OKC_API.G_EXCEPTION_ERROR;
3591: End If;
3592:
3593: ElsIf (l_rgp_id is not null and l_rul_id is not null and p_object1_id1 is null) Then
3586:
3587: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3588: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3590: raise OKC_API.G_EXCEPTION_ERROR;
3591: End If;
3592:
3593: ElsIf (l_rgp_id is not null and l_rul_id is not null and p_object1_id1 is null) Then
3594:
3602: x_msg_count => x_msg_count,
3603: x_msg_data => x_msg_data,
3604: p_rulv_rec => lp_lastrm_rulv_rec);
3605:
3606: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3607: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3608: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3609: raise OKC_API.G_EXCEPTION_ERROR;
3610: End If;
3603: x_msg_data => x_msg_data,
3604: p_rulv_rec => lp_lastrm_rulv_rec);
3605:
3606: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3607: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3608: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3609: raise OKC_API.G_EXCEPTION_ERROR;
3610: End If;
3611: /*
3604: p_rulv_rec => lp_lastrm_rulv_rec);
3605:
3606: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3607: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3608: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3609: raise OKC_API.G_EXCEPTION_ERROR;
3610: End If;
3611: /*
3612: lp_lapsth_rgpv_rec.id := l_rgp_id;
3605:
3606: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3607: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3608: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3609: raise OKC_API.G_EXCEPTION_ERROR;
3610: End If;
3611: /*
3612: lp_lapsth_rgpv_rec.id := l_rgp_id;
3613:
3618: x_msg_count => x_msg_count,
3619: x_msg_data => x_msg_data,
3620: p_rgpv_rec => lp_lapsth_rgpv_rec);
3621:
3622: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3623: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3625: raise OKC_API.G_EXCEPTION_ERROR;
3626: End If;
3619: x_msg_data => x_msg_data,
3620: p_rgpv_rec => lp_lapsth_rgpv_rec);
3621:
3622: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3623: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3625: raise OKC_API.G_EXCEPTION_ERROR;
3626: End If;
3627: */
3620: p_rgpv_rec => lp_lapsth_rgpv_rec);
3621:
3622: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3623: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3625: raise OKC_API.G_EXCEPTION_ERROR;
3626: End If;
3627: */
3628:
3621:
3622: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3623: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3625: raise OKC_API.G_EXCEPTION_ERROR;
3626: End If;
3627: */
3628:
3629:
3629:
3630: End If;
3631:
3632:
3633: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3634:
3635: EXCEPTION
3636: when OKC_API.G_EXCEPTION_ERROR then
3637: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3632:
3633: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3634:
3635: EXCEPTION
3636: when OKC_API.G_EXCEPTION_ERROR then
3637: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3638: p_api_name => l_api_name,
3639: p_pkg_name => g_pkg_name,
3640: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3633: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3634:
3635: EXCEPTION
3636: when OKC_API.G_EXCEPTION_ERROR then
3637: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3638: p_api_name => l_api_name,
3639: p_pkg_name => g_pkg_name,
3640: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3641: x_msg_count => x_msg_count,
3636: when OKC_API.G_EXCEPTION_ERROR then
3637: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3638: p_api_name => l_api_name,
3639: p_pkg_name => g_pkg_name,
3640: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3641: x_msg_count => x_msg_count,
3642: x_msg_data => x_msg_data,
3643: p_api_type => g_api_type);
3644:
3641: x_msg_count => x_msg_count,
3642: x_msg_data => x_msg_data,
3643: p_api_type => g_api_type);
3644:
3645: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3647: p_api_name => l_api_name,
3648: p_pkg_name => g_pkg_name,
3649: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3642: x_msg_data => x_msg_data,
3643: p_api_type => g_api_type);
3644:
3645: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3647: p_api_name => l_api_name,
3648: p_pkg_name => g_pkg_name,
3649: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3650: x_msg_count => x_msg_count,
3645: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3647: p_api_name => l_api_name,
3648: p_pkg_name => g_pkg_name,
3649: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3650: x_msg_count => x_msg_count,
3651: x_msg_data => x_msg_data,
3652: p_api_type => g_api_type);
3653:
3651: x_msg_data => x_msg_data,
3652: p_api_type => g_api_type);
3653:
3654: when OTHERS then
3655: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3656: p_api_name => l_api_name,
3657: p_pkg_name => g_pkg_name,
3658: p_exc_name => 'OTHERS',
3659: x_msg_count => x_msg_count,
3664: END;
3665:
3666: PROCEDURE create_strmtp_rul(
3667: p_api_version IN NUMBER,
3668: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3669: x_return_status OUT NOCOPY VARCHAR2,
3670: x_msg_count OUT NOCOPY NUMBER,
3671: x_msg_data OUT NOCOPY VARCHAR2,
3672: p_chr_id IN NUMBER,
3713: End If;
3714:
3715: -- call START_ACTIVITY to create savepoint, check compatibility
3716: -- and initialize message list
3717: x_return_status := OKC_API.START_ACTIVITY(
3718: p_api_name => l_api_name,
3719: p_pkg_name => g_pkg_name,
3720: p_init_msg_list => p_init_msg_list,
3721: l_api_version => l_api_version,
3723: p_api_type => g_api_type,
3724: x_return_status => x_return_status);
3725:
3726: -- check if activity started successfully
3727: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3728: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3730: raise OKC_API.G_EXCEPTION_ERROR;
3731: End If;
3724: x_return_status => x_return_status);
3725:
3726: -- check if activity started successfully
3727: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3728: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3730: raise OKC_API.G_EXCEPTION_ERROR;
3731: End If;
3732:
3725:
3726: -- check if activity started successfully
3727: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3728: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3730: raise OKC_API.G_EXCEPTION_ERROR;
3731: End If;
3732:
3733: l_object1_id1 := null;
3726: -- check if activity started successfully
3727: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3728: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3730: raise OKC_API.G_EXCEPTION_ERROR;
3731: End If;
3732:
3733: l_object1_id1 := null;
3734: l_object1_id2 := null;
3770: x_msg_data => x_msg_data,
3771: p_rgpv_rec => lp_lapsth_rgpv_rec,
3772: x_rgpv_rec => lx_lapsth_rgpv_rec);
3773:
3774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3777: raise OKC_API.G_EXCEPTION_ERROR;
3778: End If;
3771: p_rgpv_rec => lp_lapsth_rgpv_rec,
3772: x_rgpv_rec => lx_lapsth_rgpv_rec);
3773:
3774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3777: raise OKC_API.G_EXCEPTION_ERROR;
3778: End If;
3779:
3772: x_rgpv_rec => lx_lapsth_rgpv_rec);
3773:
3774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3777: raise OKC_API.G_EXCEPTION_ERROR;
3778: End If;
3779:
3780: lp_lastrm_rulv_rec.id := null;
3773:
3774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3777: raise OKC_API.G_EXCEPTION_ERROR;
3778: End If;
3779:
3780: lp_lastrm_rulv_rec.id := null;
3781: lp_lastrm_rulv_rec.rgp_id := lx_lapsth_rgpv_rec.id;
3795: x_msg_data => x_msg_data,
3796: p_rulv_rec => lp_lastrm_rulv_rec,
3797: x_rulv_rec => lx_lastrm_rulv_rec);
3798:
3799: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3800: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3801: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3802: raise OKC_API.G_EXCEPTION_ERROR;
3803: End If;
3796: p_rulv_rec => lp_lastrm_rulv_rec,
3797: x_rulv_rec => lx_lastrm_rulv_rec);
3798:
3799: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3800: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3801: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3802: raise OKC_API.G_EXCEPTION_ERROR;
3803: End If;
3804:
3797: x_rulv_rec => lx_lastrm_rulv_rec);
3798:
3799: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3800: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3801: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3802: raise OKC_API.G_EXCEPTION_ERROR;
3803: End If;
3804:
3805:
3798:
3799: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3800: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3801: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3802: raise OKC_API.G_EXCEPTION_ERROR;
3803: End If;
3804:
3805:
3806: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3802: raise OKC_API.G_EXCEPTION_ERROR;
3803: End If;
3804:
3805:
3806: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3807:
3808: EXCEPTION
3809: when OKC_API.G_EXCEPTION_ERROR then
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3805:
3806: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3807:
3808: EXCEPTION
3809: when OKC_API.G_EXCEPTION_ERROR then
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: p_api_name => l_api_name,
3812: p_pkg_name => g_pkg_name,
3813: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3806: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3807:
3808: EXCEPTION
3809: when OKC_API.G_EXCEPTION_ERROR then
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: p_api_name => l_api_name,
3812: p_pkg_name => g_pkg_name,
3813: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count => x_msg_count,
3809: when OKC_API.G_EXCEPTION_ERROR then
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: p_api_name => l_api_name,
3812: p_pkg_name => g_pkg_name,
3813: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count => x_msg_count,
3815: x_msg_data => x_msg_data,
3816: p_api_type => g_api_type);
3817:
3814: x_msg_count => x_msg_count,
3815: x_msg_data => x_msg_data,
3816: p_api_type => g_api_type);
3817:
3818: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3815: x_msg_data => x_msg_data,
3816: p_api_type => g_api_type);
3817:
3818: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3823: x_msg_count => x_msg_count,
3818: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3823: x_msg_count => x_msg_count,
3824: x_msg_data => x_msg_data,
3825: p_api_type => g_api_type);
3826:
3824: x_msg_data => x_msg_data,
3825: p_api_type => g_api_type);
3826:
3827: when OTHERS then
3828: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3829: p_api_name => l_api_name,
3830: p_pkg_name => g_pkg_name,
3831: p_exc_name => 'OTHERS',
3832: x_msg_count => x_msg_count,
3837: END;
3838:
3839: PROCEDURE update_strmtp_rul(
3840: p_api_version IN NUMBER,
3841: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3842: x_return_status OUT NOCOPY VARCHAR2,
3843: x_msg_count OUT NOCOPY NUMBER,
3844: x_msg_data OUT NOCOPY VARCHAR2,
3845: p_chr_id IN NUMBER,
3877: End If;
3878:
3879: -- call START_ACTIVITY to create savepoint, check compatibility
3880: -- and initialize message list
3881: x_return_status := OKC_API.START_ACTIVITY(
3882: p_api_name => l_api_name,
3883: p_pkg_name => g_pkg_name,
3884: p_init_msg_list => p_init_msg_list,
3885: l_api_version => l_api_version,
3887: p_api_type => g_api_type,
3888: x_return_status => x_return_status);
3889:
3890: -- check if activity started successfully
3891: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3893: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3894: raise OKC_API.G_EXCEPTION_ERROR;
3895: End If;
3888: x_return_status => x_return_status);
3889:
3890: -- check if activity started successfully
3891: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3893: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3894: raise OKC_API.G_EXCEPTION_ERROR;
3895: End If;
3896:
3889:
3890: -- check if activity started successfully
3891: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3893: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3894: raise OKC_API.G_EXCEPTION_ERROR;
3895: End If;
3896:
3897: l_object1_id1 := null;
3890: -- check if activity started successfully
3891: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3893: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3894: raise OKC_API.G_EXCEPTION_ERROR;
3895: End If;
3896:
3897: l_object1_id1 := null;
3898: l_object1_id2 := null;
3925: x_msg_data => x_msg_data,
3926: p_rulv_rec => lp_lastrm_rulv_rec,
3927: x_rulv_rec => lx_lastrm_rulv_rec);
3928:
3929: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3932: raise OKC_API.G_EXCEPTION_ERROR;
3933: End If;
3926: p_rulv_rec => lp_lastrm_rulv_rec,
3927: x_rulv_rec => lx_lastrm_rulv_rec);
3928:
3929: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3932: raise OKC_API.G_EXCEPTION_ERROR;
3933: End If;
3934:
3927: x_rulv_rec => lx_lastrm_rulv_rec);
3928:
3929: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3932: raise OKC_API.G_EXCEPTION_ERROR;
3933: End If;
3934:
3935:
3928:
3929: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3932: raise OKC_API.G_EXCEPTION_ERROR;
3933: End If;
3934:
3935:
3936: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3932: raise OKC_API.G_EXCEPTION_ERROR;
3933: End If;
3934:
3935:
3936: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3937:
3938: EXCEPTION
3939: when OKC_API.G_EXCEPTION_ERROR then
3940: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3935:
3936: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3937:
3938: EXCEPTION
3939: when OKC_API.G_EXCEPTION_ERROR then
3940: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3941: p_api_name => l_api_name,
3942: p_pkg_name => g_pkg_name,
3943: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3936: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3937:
3938: EXCEPTION
3939: when OKC_API.G_EXCEPTION_ERROR then
3940: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3941: p_api_name => l_api_name,
3942: p_pkg_name => g_pkg_name,
3943: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3944: x_msg_count => x_msg_count,
3939: when OKC_API.G_EXCEPTION_ERROR then
3940: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3941: p_api_name => l_api_name,
3942: p_pkg_name => g_pkg_name,
3943: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3944: x_msg_count => x_msg_count,
3945: x_msg_data => x_msg_data,
3946: p_api_type => g_api_type);
3947:
3944: x_msg_count => x_msg_count,
3945: x_msg_data => x_msg_data,
3946: p_api_type => g_api_type);
3947:
3948: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3949: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3950: p_api_name => l_api_name,
3951: p_pkg_name => g_pkg_name,
3952: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3945: x_msg_data => x_msg_data,
3946: p_api_type => g_api_type);
3947:
3948: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3949: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3950: p_api_name => l_api_name,
3951: p_pkg_name => g_pkg_name,
3952: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3953: x_msg_count => x_msg_count,
3948: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3949: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3950: p_api_name => l_api_name,
3951: p_pkg_name => g_pkg_name,
3952: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3953: x_msg_count => x_msg_count,
3954: x_msg_data => x_msg_data,
3955: p_api_type => g_api_type);
3956:
3954: x_msg_data => x_msg_data,
3955: p_api_type => g_api_type);
3956:
3957: when OTHERS then
3958: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3959: p_api_name => l_api_name,
3960: p_pkg_name => g_pkg_name,
3961: p_exc_name => 'OTHERS',
3962: x_msg_count => x_msg_count,
3982: -----------------------------------------------------------------------------
3983:
3984: PROCEDURE validate_rollover_feeLine(
3985: p_api_version IN NUMBER,
3986: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3987: x_return_status OUT NOCOPY VARCHAR2,
3988: x_msg_count OUT NOCOPY NUMBER,
3989: x_msg_data OUT NOCOPY VARCHAR2,
3990: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
4553: -----------------------------------------------------------------------------
4554:
4555: PROCEDURE rollover_fee(
4556: p_api_version IN NUMBER,
4557: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4558: x_return_status OUT NOCOPY VARCHAR2,
4559: x_msg_count OUT NOCOPY NUMBER,
4560: x_msg_data OUT NOCOPY VARCHAR2,
4561: p_chr_id IN NUMBER, -- contract id
4596: End If;
4597:
4598: -- call START_ACTIVITY to create savepoint, check compatibility
4599: -- and initialize message list
4600: x_return_status := OKC_API.START_ACTIVITY(
4601: p_api_name => l_api_name,
4602: p_pkg_name => g_pkg_name,
4603: p_init_msg_list => p_init_msg_list,
4604: l_api_version => l_api_version,
4606: p_api_type => g_api_type,
4607: x_return_status => x_return_status);
4608:
4609: -- check if activity started successfully
4610: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4611: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4612: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4613: raise OKC_API.G_EXCEPTION_ERROR;
4614: End If;
4607: x_return_status => x_return_status);
4608:
4609: -- check if activity started successfully
4610: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4611: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4612: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4613: raise OKC_API.G_EXCEPTION_ERROR;
4614: End If;
4615:
4608:
4609: -- check if activity started successfully
4610: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4611: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4612: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4613: raise OKC_API.G_EXCEPTION_ERROR;
4614: End If;
4615:
4616: -- get the previous booked contracts rollover amount;pull data from new column and set to 0 if it is null
4609: -- check if activity started successfully
4610: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4611: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4612: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4613: raise OKC_API.G_EXCEPTION_ERROR;
4614: End If;
4615:
4616: -- get the previous booked contracts rollover amount;pull data from new column and set to 0 if it is null
4617: l_prev_roll_amount := OKL_SEEDED_FUNCTIONS_PVT.rollover_fee(p_cl_id);
4645: p_edit_mode => 'N',
4646: x_chrv_rec => lx_chrv_rec,
4647: x_khrv_rec => lx_khrv_rec);
4648:
4649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4652: RAISE OKC_API.G_EXCEPTION_ERROR;
4653: END IF;
4646: x_chrv_rec => lx_chrv_rec,
4647: x_khrv_rec => lx_khrv_rec);
4648:
4649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4652: RAISE OKC_API.G_EXCEPTION_ERROR;
4653: END IF;
4654:
4647: x_khrv_rec => lx_khrv_rec);
4648:
4649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4652: RAISE OKC_API.G_EXCEPTION_ERROR;
4653: END IF;
4654:
4655: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4648:
4649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4652: RAISE OKC_API.G_EXCEPTION_ERROR;
4653: END IF;
4654:
4655: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4656:
4651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4652: RAISE OKC_API.G_EXCEPTION_ERROR;
4653: END IF;
4654:
4655: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4656:
4657: EXCEPTION
4658: when OKC_API.G_EXCEPTION_ERROR then
4659: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4654:
4655: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4656:
4657: EXCEPTION
4658: when OKC_API.G_EXCEPTION_ERROR then
4659: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4660: p_api_name => l_api_name,
4661: p_pkg_name => g_pkg_name,
4662: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4655: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4656:
4657: EXCEPTION
4658: when OKC_API.G_EXCEPTION_ERROR then
4659: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4660: p_api_name => l_api_name,
4661: p_pkg_name => g_pkg_name,
4662: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4663: x_msg_count => x_msg_count,
4658: when OKC_API.G_EXCEPTION_ERROR then
4659: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4660: p_api_name => l_api_name,
4661: p_pkg_name => g_pkg_name,
4662: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4663: x_msg_count => x_msg_count,
4664: x_msg_data => x_msg_data,
4665: p_api_type => g_api_type);
4666:
4663: x_msg_count => x_msg_count,
4664: x_msg_data => x_msg_data,
4665: p_api_type => g_api_type);
4666:
4667: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4669: p_api_name => l_api_name,
4670: p_pkg_name => g_pkg_name,
4671: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4664: x_msg_data => x_msg_data,
4665: p_api_type => g_api_type);
4666:
4667: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4669: p_api_name => l_api_name,
4670: p_pkg_name => g_pkg_name,
4671: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4672: x_msg_count => x_msg_count,
4667: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4669: p_api_name => l_api_name,
4670: p_pkg_name => g_pkg_name,
4671: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4672: x_msg_count => x_msg_count,
4673: x_msg_data => x_msg_data,
4674: p_api_type => g_api_type);
4675:
4673: x_msg_data => x_msg_data,
4674: p_api_type => g_api_type);
4675:
4676: when OTHERS then
4677: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4678: p_api_name => l_api_name,
4679: p_pkg_name => g_pkg_name,
4680: p_exc_name => 'OTHERS',
4681: x_msg_count => x_msg_count,
4701: -----------------------------------------------------------------------------
4702:
4703: PROCEDURE rollover_fee(
4704: p_api_version IN NUMBER,
4705: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4706: x_return_status OUT NOCOPY VARCHAR2,
4707: x_msg_count OUT NOCOPY NUMBER,
4708: x_msg_data OUT NOCOPY VARCHAR2,
4709: p_chr_id IN NUMBER, -- contract id
4756: End If;
4757:
4758: -- call START_ACTIVITY to create savepoint, check compatibility
4759: -- and initialize message list
4760: x_return_status := OKC_API.START_ACTIVITY(
4761: p_api_name => l_api_name,
4762: p_pkg_name => g_pkg_name,
4763: p_init_msg_list => p_init_msg_list,
4764: l_api_version => l_api_version,
4766: p_api_type => g_api_type,
4767: x_return_status => x_return_status);
4768:
4769: -- check if activity started successfully
4770: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4771: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4772: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4773: raise OKC_API.G_EXCEPTION_ERROR;
4774: End If;
4767: x_return_status => x_return_status);
4768:
4769: -- check if activity started successfully
4770: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4771: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4772: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4773: raise OKC_API.G_EXCEPTION_ERROR;
4774: End If;
4775:
4768:
4769: -- check if activity started successfully
4770: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4771: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4772: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4773: raise OKC_API.G_EXCEPTION_ERROR;
4774: End If;
4775:
4776: l_orig_src_code := null;
4769: -- check if activity started successfully
4770: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4771: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4772: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4773: raise OKC_API.G_EXCEPTION_ERROR;
4774: End If;
4775:
4776: l_orig_src_code := null;
4777:
4789: fetch l_rq_fee_lns_bkg_csr into l_qte_id;
4790: close l_rq_fee_lns_bkg_csr;
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;
4824: l_tot_cl_rem_amt := l_cl_rem_amt - l_tot_roll_amt;
4825:
4826: x_rem_amt := l_tot_cl_rem_amt;
4827:
4828: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4829:
4830: EXCEPTION
4831: when OKC_API.G_EXCEPTION_ERROR then
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4827:
4828: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4829:
4830: EXCEPTION
4831: when OKC_API.G_EXCEPTION_ERROR then
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4835: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4828: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4829:
4830: EXCEPTION
4831: when OKC_API.G_EXCEPTION_ERROR then
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4835: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4836: x_msg_count => x_msg_count,
4831: when OKC_API.G_EXCEPTION_ERROR then
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4835: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4836: x_msg_count => x_msg_count,
4837: x_msg_data => x_msg_data,
4838: p_api_type => g_api_type);
4839:
4836: x_msg_count => x_msg_count,
4837: x_msg_data => x_msg_data,
4838: p_api_type => g_api_type);
4839:
4840: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4841: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4842: p_api_name => l_api_name,
4843: p_pkg_name => g_pkg_name,
4844: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4837: x_msg_data => x_msg_data,
4838: p_api_type => g_api_type);
4839:
4840: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4841: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4842: p_api_name => l_api_name,
4843: p_pkg_name => g_pkg_name,
4844: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4845: x_msg_count => x_msg_count,
4840: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4841: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4842: p_api_name => l_api_name,
4843: p_pkg_name => g_pkg_name,
4844: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4845: x_msg_count => x_msg_count,
4846: x_msg_data => x_msg_data,
4847: p_api_type => g_api_type);
4848:
4846: x_msg_data => x_msg_data,
4847: p_api_type => g_api_type);
4848:
4849: when OTHERS then
4850: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4851: p_api_name => l_api_name,
4852: p_pkg_name => g_pkg_name,
4853: p_exc_name => 'OTHERS',
4854: x_msg_count => x_msg_count,
5259: End If;
5260:
5261: -- call START_ACTIVITY to create savepoint, check compatibility
5262: -- and initialize message list
5263: x_return_status := OKC_API.START_ACTIVITY(
5264: p_api_name => l_api_name,
5265: p_pkg_name => g_pkg_name,
5266: p_init_msg_list => p_init_msg_list,
5267: l_api_version => l_api_version,
5269: p_api_type => g_api_type,
5270: x_return_status => x_return_status);
5271:
5272: -- check if activity started successfully
5273: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5275: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5276: raise OKC_API.G_EXCEPTION_ERROR;
5277: End If;
5270: x_return_status => x_return_status);
5271:
5272: -- check if activity started successfully
5273: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5275: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5276: raise OKC_API.G_EXCEPTION_ERROR;
5277: End If;
5278:
5271:
5272: -- check if activity started successfully
5273: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5275: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5276: raise OKC_API.G_EXCEPTION_ERROR;
5277: End If;
5278:
5279: --Bug# 4899328: Start
5272: -- check if activity started successfully
5273: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5275: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5276: raise OKC_API.G_EXCEPTION_ERROR;
5277: End If;
5278:
5279: --Bug# 4899328: Start
5280: /*
5291: x_msg_count => x_msg_count,
5292: x_msg_data => x_msg_data
5293: );
5294:
5295: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5297: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5298: RAISE OKC_API.G_EXCEPTION_ERROR;
5299: END IF;
5292: x_msg_data => x_msg_data
5293: );
5294:
5295: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5297: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5298: RAISE OKC_API.G_EXCEPTION_ERROR;
5299: END IF;
5300: */
5293: );
5294:
5295: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5297: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5298: RAISE OKC_API.G_EXCEPTION_ERROR;
5299: END IF;
5300: */
5301:
5294:
5295: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5297: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5298: RAISE OKC_API.G_EXCEPTION_ERROR;
5299: END IF;
5300: */
5301:
5302: i := 0;
5338:
5339: END IF;
5340: --Bug# 4899328: End
5341:
5342: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5343:
5344: EXCEPTION
5345: when OKC_API.G_EXCEPTION_ERROR then
5346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5341:
5342: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5343:
5344: EXCEPTION
5345: when OKC_API.G_EXCEPTION_ERROR then
5346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => g_pkg_name,
5349: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5342: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5343:
5344: EXCEPTION
5345: when OKC_API.G_EXCEPTION_ERROR then
5346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => g_pkg_name,
5349: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5350: x_msg_count => x_msg_count,
5345: when OKC_API.G_EXCEPTION_ERROR then
5346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => g_pkg_name,
5349: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5350: x_msg_count => x_msg_count,
5351: x_msg_data => x_msg_data,
5352: p_api_type => g_api_type);
5353:
5350: x_msg_count => x_msg_count,
5351: x_msg_data => x_msg_data,
5352: p_api_type => g_api_type);
5353:
5354: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5355: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5356: p_api_name => l_api_name,
5357: p_pkg_name => g_pkg_name,
5358: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5351: x_msg_data => x_msg_data,
5352: p_api_type => g_api_type);
5353:
5354: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5355: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5356: p_api_name => l_api_name,
5357: p_pkg_name => g_pkg_name,
5358: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5359: x_msg_count => x_msg_count,
5354: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5355: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5356: p_api_name => l_api_name,
5357: p_pkg_name => g_pkg_name,
5358: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5359: x_msg_count => x_msg_count,
5360: x_msg_data => x_msg_data,
5361: p_api_type => g_api_type);
5362:
5360: x_msg_data => x_msg_data,
5361: p_api_type => g_api_type);
5362:
5363: when OTHERS then
5364: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5365: p_api_name => l_api_name,
5366: p_pkg_name => g_pkg_name,
5367: p_exc_name => 'OTHERS',
5368: x_msg_count => x_msg_count,
5374: -- Guru added the following api for RVI
5375:
5376: PROCEDURE process_rvi_stream(
5377: p_api_version IN NUMBER,
5378: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5379: x_return_status OUT NOCOPY VARCHAR2,
5380: x_msg_count OUT NOCOPY NUMBER,
5381: x_msg_data OUT NOCOPY VARCHAR2,
5382: p_check_box_value IN VARCHAR2,
5492: End If;
5493:
5494: -- call START_ACTIVITY to create savepoint, check compatibility
5495: -- and initialize message list
5496: l_return_status := OKC_API.START_ACTIVITY(
5497: p_api_name => l_api_name,
5498: p_pkg_name => g_pkg_name,
5499: p_init_msg_list => p_init_msg_list,
5500: l_api_version => l_api_version,
5503: x_return_status => l_return_status);
5504:
5505:
5506: -- check if activity started successfully
5507: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5508: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5509: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5510: raise OKC_API.G_EXCEPTION_ERROR;
5511: End If;
5504:
5505:
5506: -- check if activity started successfully
5507: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5508: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5509: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5510: raise OKC_API.G_EXCEPTION_ERROR;
5511: End If;
5512:
5505:
5506: -- check if activity started successfully
5507: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5508: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5509: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5510: raise OKC_API.G_EXCEPTION_ERROR;
5511: End If;
5512:
5513: -- initialize return variables
5506: -- check if activity started successfully
5507: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5508: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5509: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
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;
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
5528:
5529: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
5525: RAISE OKC_API.G_EXCEPTION_ERROR;
5526: end if;
5527: -- end 4524091
5528:
5529: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
5530: x_return_status := OKC_API.g_ret_sts_error;
5531: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
5532: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5533: , p_msg_name => 'OKL_REQUIRED_VALUE'
5526: end if;
5527: -- end 4524091
5528:
5529: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
5530: x_return_status := OKC_API.g_ret_sts_error;
5531: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
5532: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5533: , p_msg_name => 'OKL_REQUIRED_VALUE'
5534: , p_token1 => 'COL_NAME'
5528:
5529: If ( p_fee_types_rec.dnz_chr_id is null or p_fee_types_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) Then
5530: x_return_status := OKC_API.g_ret_sts_error;
5531: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_FEE_TYPE');
5532: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5533: , p_msg_name => 'OKL_REQUIRED_VALUE'
5534: , p_token1 => 'COL_NAME'
5535: , p_token1_value => 'dnz_chr_id'
5536: );
5533: , p_msg_name => 'OKL_REQUIRED_VALUE'
5534: , p_token1 => 'COL_NAME'
5535: , p_token1_value => 'dnz_chr_id'
5536: );
5537: raise OKC_API.G_EXCEPTION_ERROR;
5538: End If;
5539:
5540:
5541:
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
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:
5579: if ((l_strm_id IS NOT NULL) AND (l_strm_id <> OKL_API.G_MISS_NUM)) THEN
5580:
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;
5616:
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
5618:
5638: p_fee_types_rec => l_fee_types_rec,
5639: x_fee_types_rec => x_fee_types_rec);
5640:
5641:
5642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5645: RAISE OKC_API.G_EXCEPTION_ERROR;
5646: END IF;
5639: x_fee_types_rec => x_fee_types_rec);
5640:
5641:
5642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5645: RAISE OKC_API.G_EXCEPTION_ERROR;
5646: END IF;
5647: end if; -- end of create
5640:
5641:
5642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5645: RAISE OKC_API.G_EXCEPTION_ERROR;
5646: END IF;
5647: end if; -- end of create
5648: end if; -- else
5641:
5642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5645: RAISE OKC_API.G_EXCEPTION_ERROR;
5646: END IF;
5647: end if; -- end of create
5648: end if; -- else
5649:
5669: x_msg_data => x_msg_data,
5670: p_fee_types_rec => l_fee_types_rec);
5671:
5672:
5673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5676: RAISE OKC_API.G_EXCEPTION_ERROR;
5677: END IF;
5670: p_fee_types_rec => l_fee_types_rec);
5671:
5672:
5673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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;
5671:
5672:
5673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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
5672:
5673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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
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;
5686: end if;
5687: -- set return variables
5688: x_return_status := l_return_status;
5689:
5690: -- end the transaction
5691:
5692: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5693:
5694: EXCEPTION
5695: when OKC_API.G_EXCEPTION_ERROR then
5696: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5691:
5692: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5693:
5694: EXCEPTION
5695: when OKC_API.G_EXCEPTION_ERROR then
5696: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5697: p_api_name => l_api_name,
5698: p_pkg_name => g_pkg_name,
5699: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5692: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5693:
5694: EXCEPTION
5695: when OKC_API.G_EXCEPTION_ERROR then
5696: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5697: p_api_name => l_api_name,
5698: p_pkg_name => g_pkg_name,
5699: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5700: x_msg_count => x_msg_count,
5695: when OKC_API.G_EXCEPTION_ERROR then
5696: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5697: p_api_name => l_api_name,
5698: p_pkg_name => g_pkg_name,
5699: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5700: x_msg_count => x_msg_count,
5701: x_msg_data => x_msg_data,
5702: p_api_type => g_api_type);
5703:
5700: x_msg_count => x_msg_count,
5701: x_msg_data => x_msg_data,
5702: p_api_type => g_api_type);
5703:
5704: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5705: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5706: p_api_name => l_api_name,
5707: p_pkg_name => g_pkg_name,
5708: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5701: x_msg_data => x_msg_data,
5702: p_api_type => g_api_type);
5703:
5704: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5705: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5706: p_api_name => l_api_name,
5707: p_pkg_name => g_pkg_name,
5708: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5709: x_msg_count => x_msg_count,
5704: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5705: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5706: p_api_name => l_api_name,
5707: p_pkg_name => g_pkg_name,
5708: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5709: x_msg_count => x_msg_count,
5710: x_msg_data => x_msg_data,
5711: p_api_type => g_api_type);
5712:
5710: x_msg_data => x_msg_data,
5711: p_api_type => g_api_type);
5712:
5713: when OTHERS then
5714: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5715: p_api_name => l_api_name,
5716: p_pkg_name => g_pkg_name,
5717: p_exc_name => 'OTHERS',
5718: x_msg_count => x_msg_count,
5723:
5724:
5725: PROCEDURE create_party(
5726: p_api_version IN NUMBER,
5727: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5728: x_return_status OUT NOCOPY VARCHAR2,
5729: x_msg_count OUT NOCOPY NUMBER,
5730: x_msg_data OUT NOCOPY VARCHAR2,
5731: p_kpl_rec IN party_rec_type,
5836: end;
5837:
5838: PROCEDURE update_party(
5839: p_api_version IN NUMBER,
5840: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5841: x_return_status OUT NOCOPY VARCHAR2,
5842: x_msg_count OUT NOCOPY NUMBER,
5843: x_msg_data OUT NOCOPY VARCHAR2,
5844: p_kpl_rec IN party_rec_type,