340: END IF;
341:
342: EXCEPTION
343: WHEN G_EXCEPTION_HALT_VALIDATION THEN
344: x_return_status := OKC_API.G_RET_STS_ERROR;
345: END Calculate_sll_amount;
346:
347: /*cgopinee bugfix for 7596241 end*/
348:
353:
354: -- Procedure for insert_row
355: PROCEDURE insert_row(
356: p_api_version IN NUMBER,
357: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
358: x_return_status OUT NOCOPY VARCHAR2,
359: x_msg_count OUT NOCOPY NUMBER,
360: x_msg_data OUT NOCOPY VARCHAR2,
361: p_bpev_tbl IN bpev_tbl_type,
360: x_msg_data OUT NOCOPY VARCHAR2,
361: p_bpev_tbl IN bpev_tbl_type,
362: x_bpev_tbl OUT NOCOPY bpev_tbl_type) IS
363:
364: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
365: i NUMBER := 0;
366:
367: BEGIN
368: -- initialize the return status
365: i NUMBER := 0;
366:
367: BEGIN
368: -- initialize the return status
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370:
371: IF p_bpev_tbl.COUNT > 0 THEN
372: i := p_bpev_tbl.FIRST;
373: LOOP
379: ,x_msg_data
380: ,p_bpev_tbl(i)
381: ,x_bpev_tbl(i));
382:
383: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
384: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
385: x_return_status := l_return_status;
386: RAISE G_EXCEPTION_HALT_VALIDATION;
387: ELSE
380: ,p_bpev_tbl(i)
381: ,x_bpev_tbl(i));
382:
383: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
384: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
385: x_return_status := l_return_status;
386: RAISE G_EXCEPTION_HALT_VALIDATION;
387: ELSE
388: x_return_status := l_return_status;
396: EXCEPTION
397: WHEN G_EXCEPTION_HALT_VALIDATION THEN
398: NULL;
399: WHEN OTHERS THEN
400: OKC_API.set_message(p_app_name => g_app_name,
401: p_msg_name => g_unexpected_error,
402: p_token1 => g_sqlcode_token,
403: p_token1_value => sqlcode,
404: p_token2 => g_sqlerrm_token,
402: p_token1 => g_sqlcode_token,
403: p_token1_value => sqlcode,
404: p_token2 => g_sqlerrm_token,
405: p_token2_value => sqlerrm);
406: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
407: END insert_row;
408:
409: PROCEDURE insert_row(
410: p_api_version IN NUMBER,
407: END insert_row;
408:
409: PROCEDURE insert_row(
410: p_api_version IN NUMBER,
411: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
412: x_return_status OUT NOCOPY VARCHAR2,
413: x_msg_count OUT NOCOPY NUMBER,
414: x_msg_data OUT NOCOPY VARCHAR2,
415: p_bpev_rec IN bpev_rec_type,
416: x_bpev_rec OUT NOCOPY bpev_rec_type) IS
417:
418: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
419: l_api_version CONSTANT NUMBER := 1.0;
420: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
421: l_bpev_rec bpev_rec_type := p_bpev_rec;
422:
423: BEGIN
424: l_return_status := OKC_API.START_ACTIVITY(l_api_name
420: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
421: l_bpev_rec bpev_rec_type := p_bpev_rec;
422:
423: BEGIN
424: l_return_status := OKC_API.START_ACTIVITY(l_api_name
425: ,p_init_msg_list
426: ,'_PUB'
427: ,x_return_status
428: );
425: ,p_init_msg_list
426: ,'_PUB'
427: ,x_return_status
428: );
429: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
430: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
432: RAISE OKC_API.G_EXCEPTION_ERROR;
433: END IF;
426: ,'_PUB'
427: ,x_return_status
428: );
429: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
430: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
432: RAISE OKC_API.G_EXCEPTION_ERROR;
433: END IF;
434:
427: ,x_return_status
428: );
429: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
430: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
432: RAISE OKC_API.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- Call user hook for BEFORE
428: );
429: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
430: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
432: RAISE OKC_API.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- Call user hook for BEFORE
436: g_bpev_rec := l_bpev_rec;
434:
435: -- Call user hook for BEFORE
436: g_bpev_rec := l_bpev_rec;
437: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
439: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_ERROR;
442: END IF;
435: -- Call user hook for BEFORE
436: g_bpev_rec := l_bpev_rec;
437: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
439: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_ERROR;
442: END IF;
443:
436: g_bpev_rec := l_bpev_rec;
437: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
439: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_ERROR;
442: END IF;
443:
444: -- get values back from hook call
437: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
439: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_ERROR;
442: END IF;
443:
444: -- get values back from hook call
445: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
453: ,x_msg_data
454: ,l_bpev_rec
455: ,x_bpev_rec);
456:
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
459: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
460: RAISE OKC_API.G_EXCEPTION_ERROR;
461: END IF;
454: ,l_bpev_rec
455: ,x_bpev_rec);
456:
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
459: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
460: RAISE OKC_API.G_EXCEPTION_ERROR;
461: END IF;
462:
455: ,x_bpev_rec);
456:
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
459: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
460: RAISE OKC_API.G_EXCEPTION_ERROR;
461: END IF;
462:
463: -- USER HOOK CALL FOR AFTER, STARTS
456:
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
459: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
460: RAISE OKC_API.G_EXCEPTION_ERROR;
461: END IF;
462:
463: -- USER HOOK CALL FOR AFTER, STARTS
464: g_bpev_rec := x_bpev_rec;
467: p_package_name => g_pkg_name,
468: p_procedure_name => l_api_name,
469: p_before_after => 'A');
470:
471: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
474: RAISE OKC_API.G_EXCEPTION_ERROR;
475: END IF;
468: p_procedure_name => l_api_name,
469: p_before_after => 'A');
470:
471: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
474: RAISE OKC_API.G_EXCEPTION_ERROR;
475: END IF;
476: -- USER HOOK CALL FOR AFTER, ENDS
469: p_before_after => 'A');
470:
471: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
474: RAISE OKC_API.G_EXCEPTION_ERROR;
475: END IF;
476: -- USER HOOK CALL FOR AFTER, ENDS
477:
470:
471: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
474: RAISE OKC_API.G_EXCEPTION_ERROR;
475: END IF;
476: -- USER HOOK CALL FOR AFTER, ENDS
477:
478: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
474: RAISE OKC_API.G_EXCEPTION_ERROR;
475: END IF;
476: -- USER HOOK CALL FOR AFTER, ENDS
477:
478: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
479:
480: EXCEPTION
481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
477:
478: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
479:
480: EXCEPTION
481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
483: (l_api_name,
484: G_PKG_NAME,
485: 'OKC_API.G_RET_STS_ERROR',
478: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
479:
480: EXCEPTION
481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
483: (l_api_name,
484: G_PKG_NAME,
485: 'OKC_API.G_RET_STS_ERROR',
486: x_msg_count,
481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
483: (l_api_name,
484: G_PKG_NAME,
485: 'OKC_API.G_RET_STS_ERROR',
486: x_msg_count,
487: x_msg_data,
488: '_PUB');
489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
485: 'OKC_API.G_RET_STS_ERROR',
486: x_msg_count,
487: x_msg_data,
488: '_PUB');
489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
491: (l_api_name,
492: G_PKG_NAME,
493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
486: x_msg_count,
487: x_msg_data,
488: '_PUB');
489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
491: (l_api_name,
492: G_PKG_NAME,
493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
494: x_msg_count,
489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
491: (l_api_name,
492: G_PKG_NAME,
493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
494: x_msg_count,
495: x_msg_data,
496: '_PUB');
497: WHEN OTHERS THEN
494: x_msg_count,
495: x_msg_data,
496: '_PUB');
497: WHEN OTHERS THEN
498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
499: (l_api_name,
500: G_PKG_NAME,
501: 'OTHERS',
502: x_msg_count,
507:
508: -- Procedure for lock_row
509: PROCEDURE lock_row(
510: p_api_version IN NUMBER,
511: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
512: x_return_status OUT NOCOPY VARCHAR2,
513: x_msg_count OUT NOCOPY NUMBER,
514: x_msg_data OUT NOCOPY VARCHAR2,
515: p_bpev_tbl IN bpev_tbl_type) IS
513: x_msg_count OUT NOCOPY NUMBER,
514: x_msg_data OUT NOCOPY VARCHAR2,
515: p_bpev_tbl IN bpev_tbl_type) IS
516:
517: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
518: i NUMBER := 0;
519:
520: BEGIN
521: -- initialize the return status
518: i NUMBER := 0;
519:
520: BEGIN
521: -- initialize the return status
522: x_return_status := OKC_API.G_RET_STS_SUCCESS;
523:
524: IF p_bpev_tbl.COUNT > 0 THEN
525: i := p_bpev_tbl.FIRST;
526: LOOP
531: ,x_msg_count
532: ,x_msg_data
533: ,p_bpev_tbl(i));
534:
535: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
536: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
537: x_return_status := l_return_status;
538: RAISE G_EXCEPTION_HALT_VALIDATION;
539: ELSE
532: ,x_msg_data
533: ,p_bpev_tbl(i));
534:
535: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
536: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
537: x_return_status := l_return_status;
538: RAISE G_EXCEPTION_HALT_VALIDATION;
539: ELSE
540: x_return_status := l_return_status;
548: EXCEPTION
549: WHEN G_EXCEPTION_HALT_VALIDATION THEN
550: NULL;
551: WHEN OTHERS THEN
552: OKC_API.set_message(p_app_name => g_app_name,
553: p_msg_name => g_unexpected_error,
554: p_token1 => g_sqlcode_token,
555: p_token1_value => sqlcode,
556: p_token2 => g_sqlerrm_token,
554: p_token1 => g_sqlcode_token,
555: p_token1_value => sqlcode,
556: p_token2 => g_sqlerrm_token,
557: p_token2_value => sqlerrm);
558: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
559: END lock_row;
560:
561: PROCEDURE lock_row(
562: p_api_version IN NUMBER,
559: END lock_row;
560:
561: PROCEDURE lock_row(
562: p_api_version IN NUMBER,
563: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
564: x_return_status OUT NOCOPY VARCHAR2,
565: x_msg_count OUT NOCOPY NUMBER,
566: x_msg_data OUT NOCOPY VARCHAR2,
567: p_bpev_rec IN bpev_rec_type) IS
567: p_bpev_rec IN bpev_rec_type) IS
568:
569: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
570: l_api_version CONSTANT NUMBER := 1.0;
571: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
572: l_bpev_rec bpev_rec_type := p_bpev_rec;
573:
574: BEGIN
575: l_return_status := OKC_API.START_ACTIVITY(l_api_name
571: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
572: l_bpev_rec bpev_rec_type := p_bpev_rec;
573:
574: BEGIN
575: l_return_status := OKC_API.START_ACTIVITY(l_api_name
576: ,p_init_msg_list
577: ,'_PUB'
578: ,x_return_status
579: );
576: ,p_init_msg_list
577: ,'_PUB'
578: ,x_return_status
579: );
580: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END IF;
577: ,'_PUB'
578: ,x_return_status
579: );
580: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END IF;
585:
578: ,x_return_status
579: );
580: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END IF;
585:
586: -- call to complex API procedure
579: );
580: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
582: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
583: RAISE OKC_API.G_EXCEPTION_ERROR;
584: END IF;
585:
586: -- call to complex API procedure
587: oks_billing_profiles_pvt.lock_row(p_api_version
590: ,x_msg_count
591: ,x_msg_data
592: ,p_bpev_rec);
593:
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_msg_data
592: ,p_bpev_rec);
593:
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:
592: ,p_bpev_rec);
593:
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:
600: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
593:
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:
600: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
601:
596: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
597: RAISE OKC_API.G_EXCEPTION_ERROR;
598: END IF;
599:
600: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
601:
602: EXCEPTION
603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
599:
600: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
601:
602: EXCEPTION
603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
605: (l_api_name,
606: G_PKG_NAME,
607: 'OKC_API.G_RET_STS_ERROR',
600: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
601:
602: EXCEPTION
603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
605: (l_api_name,
606: G_PKG_NAME,
607: 'OKC_API.G_RET_STS_ERROR',
608: x_msg_count,
603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
605: (l_api_name,
606: G_PKG_NAME,
607: 'OKC_API.G_RET_STS_ERROR',
608: x_msg_count,
609: x_msg_data,
610: '_PUB');
611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: 'OKC_API.G_RET_STS_ERROR',
608: x_msg_count,
609: x_msg_data,
610: '_PUB');
611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
612: x_return_status := OKC_API.HANDLE_EXCEPTIONS
613: (l_api_name,
614: G_PKG_NAME,
615: 'OKC_API.G_RET_STS_UNEXP_ERROR',
608: x_msg_count,
609: x_msg_data,
610: '_PUB');
611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
612: x_return_status := OKC_API.HANDLE_EXCEPTIONS
613: (l_api_name,
614: G_PKG_NAME,
615: 'OKC_API.G_RET_STS_UNEXP_ERROR',
616: x_msg_count,
611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
612: x_return_status := OKC_API.HANDLE_EXCEPTIONS
613: (l_api_name,
614: G_PKG_NAME,
615: 'OKC_API.G_RET_STS_UNEXP_ERROR',
616: x_msg_count,
617: x_msg_data,
618: '_PUB');
619: WHEN OTHERS THEN
616: x_msg_count,
617: x_msg_data,
618: '_PUB');
619: WHEN OTHERS THEN
620: x_return_status := OKC_API.HANDLE_EXCEPTIONS
621: (l_api_name,
622: G_PKG_NAME,
623: 'OTHERS',
624: x_msg_count,
628:
629: -- Procedure for update_row
630: PROCEDURE update_row(
631: p_api_version IN NUMBER,
632: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
633: x_return_status OUT NOCOPY VARCHAR2,
634: x_msg_count OUT NOCOPY NUMBER,
635: x_msg_data OUT NOCOPY VARCHAR2,
636: p_bpev_tbl IN bpev_tbl_type,
635: x_msg_data OUT NOCOPY VARCHAR2,
636: p_bpev_tbl IN bpev_tbl_type,
637: x_bpev_tbl OUT NOCOPY bpev_tbl_type) IS
638:
639: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
640: i NUMBER := 0;
641:
642: BEGIN
643: -- initialize the return status
640: i NUMBER := 0;
641:
642: BEGIN
643: -- initialize the return status
644: x_return_status := OKC_API.G_RET_STS_SUCCESS;
645:
646: IF p_bpev_tbl.COUNT > 0 THEN
647: i := p_bpev_tbl.FIRST;
648: LOOP
654: ,x_msg_data
655: ,p_bpev_tbl(i)
656: ,x_bpev_tbl(i));
657:
658: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
659: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
660: x_return_status := l_return_status;
661: RAISE G_EXCEPTION_HALT_VALIDATION;
662: ELSE
655: ,p_bpev_tbl(i)
656: ,x_bpev_tbl(i));
657:
658: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
659: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
660: x_return_status := l_return_status;
661: RAISE G_EXCEPTION_HALT_VALIDATION;
662: ELSE
663: x_return_status := l_return_status;
671: EXCEPTION
672: WHEN G_EXCEPTION_HALT_VALIDATION THEN
673: NULL;
674: WHEN OTHERS THEN
675: OKC_API.set_message(p_app_name => g_app_name,
676: p_msg_name => g_unexpected_error,
677: p_token1 => g_sqlcode_token,
678: p_token1_value => sqlcode,
679: p_token2 => g_sqlerrm_token,
677: p_token1 => g_sqlcode_token,
678: p_token1_value => sqlcode,
679: p_token2 => g_sqlerrm_token,
680: p_token2_value => sqlerrm);
681: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
682: END update_row;
683:
684: PROCEDURE update_row(
685: p_api_version IN NUMBER,
682: END update_row;
683:
684: PROCEDURE update_row(
685: p_api_version IN NUMBER,
686: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
687: x_return_status OUT NOCOPY VARCHAR2,
688: x_msg_count OUT NOCOPY NUMBER,
689: x_msg_data OUT NOCOPY VARCHAR2,
690: p_bpev_rec IN bpev_rec_type,
691: x_bpev_rec OUT NOCOPY bpev_rec_type) IS
692:
693: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
694: l_api_version CONSTANT NUMBER := 1.0;
695: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
696: l_bpev_rec bpev_rec_type := p_bpev_rec;
697:
698: BEGIN
699: l_return_status := OKC_API.START_ACTIVITY(l_api_name
695: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
696: l_bpev_rec bpev_rec_type := p_bpev_rec;
697:
698: BEGIN
699: l_return_status := OKC_API.START_ACTIVITY(l_api_name
700: ,p_init_msg_list
701: ,'_PUB'
702: ,x_return_status
703: );
700: ,p_init_msg_list
701: ,'_PUB'
702: ,x_return_status
703: );
704: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
707: RAISE OKC_API.G_EXCEPTION_ERROR;
708: END IF;
701: ,'_PUB'
702: ,x_return_status
703: );
704: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
707: RAISE OKC_API.G_EXCEPTION_ERROR;
708: END IF;
709:
702: ,x_return_status
703: );
704: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
707: RAISE OKC_API.G_EXCEPTION_ERROR;
708: END IF;
709:
710: -- Call user hook for BEFORE
703: );
704: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
707: RAISE OKC_API.G_EXCEPTION_ERROR;
708: END IF;
709:
710: -- Call user hook for BEFORE
711: g_bpev_rec := l_bpev_rec;
709:
710: -- Call user hook for BEFORE
711: g_bpev_rec := l_bpev_rec;
712: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
713: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: raise OKC_API.G_EXCEPTION_ERROR;
717: END IF;
710: -- Call user hook for BEFORE
711: g_bpev_rec := l_bpev_rec;
712: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
713: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: raise OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
711: g_bpev_rec := l_bpev_rec;
712: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
713: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: raise OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
719: -- get values back from hook call
712: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
713: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: raise OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
719: -- get values back from hook call
720: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
728: ,x_msg_data
729: ,l_bpev_rec
730: ,x_bpev_rec);
731:
732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
735: RAISE OKC_API.G_EXCEPTION_ERROR;
736: END IF;
729: ,l_bpev_rec
730: ,x_bpev_rec);
731:
732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
735: RAISE OKC_API.G_EXCEPTION_ERROR;
736: END IF;
737:
730: ,x_bpev_rec);
731:
732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
735: RAISE OKC_API.G_EXCEPTION_ERROR;
736: END IF;
737:
738: -- USER HOOK CALL FOR AFTER, STARTS
731:
732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
735: RAISE OKC_API.G_EXCEPTION_ERROR;
736: END IF;
737:
738: -- USER HOOK CALL FOR AFTER, STARTS
739: g_bpev_rec := x_bpev_rec;
742: p_package_name => g_pkg_name,
743: p_procedure_name => l_api_name,
744: p_before_after => 'A');
745:
746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
749: RAISE OKC_API.G_EXCEPTION_ERROR;
750: END IF;
743: p_procedure_name => l_api_name,
744: p_before_after => 'A');
745:
746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
749: RAISE OKC_API.G_EXCEPTION_ERROR;
750: END IF;
751: -- USER HOOK CALL FOR AFTER, ENDS
744: p_before_after => 'A');
745:
746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
749: RAISE OKC_API.G_EXCEPTION_ERROR;
750: END IF;
751: -- USER HOOK CALL FOR AFTER, ENDS
752:
745:
746: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
748: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
749: RAISE OKC_API.G_EXCEPTION_ERROR;
750: END IF;
751: -- USER HOOK CALL FOR AFTER, ENDS
752:
753: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
749: RAISE OKC_API.G_EXCEPTION_ERROR;
750: END IF;
751: -- USER HOOK CALL FOR AFTER, ENDS
752:
753: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
754:
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
752:
753: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
754:
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (l_api_name,
759: G_PKG_NAME,
760: 'OKC_API.G_RET_STS_ERROR',
753: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
754:
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (l_api_name,
759: G_PKG_NAME,
760: 'OKC_API.G_RET_STS_ERROR',
761: x_msg_count,
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (l_api_name,
759: G_PKG_NAME,
760: 'OKC_API.G_RET_STS_ERROR',
761: x_msg_count,
762: x_msg_data,
763: '_PUB');
764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
760: 'OKC_API.G_RET_STS_ERROR',
761: x_msg_count,
762: x_msg_data,
763: '_PUB');
764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
766: (l_api_name,
767: G_PKG_NAME,
768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
761: x_msg_count,
762: x_msg_data,
763: '_PUB');
764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
766: (l_api_name,
767: G_PKG_NAME,
768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
769: x_msg_count,
764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
766: (l_api_name,
767: G_PKG_NAME,
768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
769: x_msg_count,
770: x_msg_data,
771: '_PUB');
772: WHEN OTHERS THEN
769: x_msg_count,
770: x_msg_data,
771: '_PUB');
772: WHEN OTHERS THEN
773: x_return_status := OKC_API.HANDLE_EXCEPTIONS
774: (l_api_name,
775: G_PKG_NAME,
776: 'OTHERS',
777: x_msg_count,
781:
782: -- Procedure for delete_row
783: PROCEDURE delete_row(
784: p_api_version IN NUMBER,
785: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
786: x_return_status OUT NOCOPY VARCHAR2,
787: x_msg_count OUT NOCOPY NUMBER,
788: x_msg_data OUT NOCOPY VARCHAR2,
789: p_bpev_tbl IN bpev_tbl_type) IS
787: x_msg_count OUT NOCOPY NUMBER,
788: x_msg_data OUT NOCOPY VARCHAR2,
789: p_bpev_tbl IN bpev_tbl_type) IS
790:
791: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
792: i NUMBER := 0;
793:
794: BEGIN
795: -- initialize the return status
792: i NUMBER := 0;
793:
794: BEGIN
795: -- initialize the return status
796: x_return_status := OKC_API.G_RET_STS_SUCCESS;
797: IF p_bpev_tbl.COUNT > 0 THEN
798: i := p_bpev_tbl.FIRST;
799: LOOP
800: delete_row(
804: ,x_msg_count
805: ,x_msg_data
806: ,p_bpev_tbl(i));
807:
808: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
809: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
810: x_return_status := l_return_status;
811: RAISE G_EXCEPTION_HALT_VALIDATION;
812: ELSE
805: ,x_msg_data
806: ,p_bpev_tbl(i));
807:
808: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
809: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
810: x_return_status := l_return_status;
811: RAISE G_EXCEPTION_HALT_VALIDATION;
812: ELSE
813: x_return_status := l_return_status;
821: EXCEPTION
822: WHEN G_EXCEPTION_HALT_VALIDATION THEN
823: NULL;
824: WHEN OTHERS THEN
825: OKC_API.set_message(p_app_name => g_app_name,
826: p_msg_name => g_unexpected_error,
827: p_token1 => g_sqlcode_token,
828: p_token1_value => sqlcode,
829: p_token2 => g_sqlerrm_token,
827: p_token1 => g_sqlcode_token,
828: p_token1_value => sqlcode,
829: p_token2 => g_sqlerrm_token,
830: p_token2_value => sqlerrm);
831: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
832: END delete_row;
833:
834: PROCEDURE delete_row(
835: p_api_version IN NUMBER,
832: END delete_row;
833:
834: PROCEDURE delete_row(
835: p_api_version IN NUMBER,
836: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
837: x_return_status OUT NOCOPY VARCHAR2,
838: x_msg_count OUT NOCOPY NUMBER,
839: x_msg_data OUT NOCOPY VARCHAR2,
840: p_bpev_rec IN bpev_rec_type) IS
840: p_bpev_rec IN bpev_rec_type) IS
841:
842: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
843: l_api_version CONSTANT NUMBER := 1.0;
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: l_bpev_rec bpev_rec_type := p_bpev_rec;
846:
847: BEGIN
848: l_return_status := OKC_API.START_ACTIVITY(l_api_name
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: l_bpev_rec bpev_rec_type := p_bpev_rec;
846:
847: BEGIN
848: l_return_status := OKC_API.START_ACTIVITY(l_api_name
849: ,p_init_msg_list
850: ,'_PUB'
851: ,x_return_status
852: );
849: ,p_init_msg_list
850: ,'_PUB'
851: ,x_return_status
852: );
853: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
850: ,'_PUB'
851: ,x_return_status
852: );
853: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858:
851: ,x_return_status
852: );
853: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858:
859: -- Call user hook for BEFORE
852: );
853: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858:
859: -- Call user hook for BEFORE
860: g_bpev_rec := l_bpev_rec;
859: -- Call user hook for BEFORE
860: g_bpev_rec := l_bpev_rec;
861:
862: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
863: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
866: raise OKC_API.G_EXCEPTION_ERROR;
867: END IF;
860: g_bpev_rec := l_bpev_rec;
861:
862: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
863: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
866: raise OKC_API.G_EXCEPTION_ERROR;
867: END IF;
868:
861:
862: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
863: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
866: raise OKC_API.G_EXCEPTION_ERROR;
867: END IF;
868:
869: -- get values back from hook call
862: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
863: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
866: raise OKC_API.G_EXCEPTION_ERROR;
867: END IF;
868:
869: -- get values back from hook call
870: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
876: ,x_msg_count
877: ,x_msg_data
878: ,l_bpev_rec);
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: RAISE OKC_API.G_EXCEPTION_ERROR;
884: END IF;
877: ,x_msg_data
878: ,l_bpev_rec);
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: RAISE OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885:
878: ,l_bpev_rec);
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: RAISE OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885:
886: -- USER HOOK CALL FOR AFTER, STARTS
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: RAISE OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885:
886: -- USER HOOK CALL FOR AFTER, STARTS
887: g_bpev_rec := l_bpev_rec;
890: p_package_name => g_pkg_name,
891: p_procedure_name => l_api_name,
892: p_before_after => 'A');
893:
894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
891: p_procedure_name => l_api_name,
892: p_before_after => 'A');
893:
894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
899: -- USER HOOK CALL FOR AFTER, ENDS
892: p_before_after => 'A');
893:
894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
899: -- USER HOOK CALL FOR AFTER, ENDS
900:
893:
894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
899: -- USER HOOK CALL FOR AFTER, ENDS
900:
901: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
899: -- USER HOOK CALL FOR AFTER, ENDS
900:
901: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
902:
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
900:
901: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
902:
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (l_api_name,
907: G_PKG_NAME,
908: 'OKC_API.G_RET_STS_ERROR',
901: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
902:
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (l_api_name,
907: G_PKG_NAME,
908: 'OKC_API.G_RET_STS_ERROR',
909: x_msg_count,
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (l_api_name,
907: G_PKG_NAME,
908: 'OKC_API.G_RET_STS_ERROR',
909: x_msg_count,
910: x_msg_data,
911: '_PUB');
912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: 'OKC_API.G_RET_STS_ERROR',
909: x_msg_count,
910: x_msg_data,
911: '_PUB');
912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
914: (l_api_name,
915: G_PKG_NAME,
916: 'OKC_API.G_RET_STS_UNEXP_ERROR',
909: x_msg_count,
910: x_msg_data,
911: '_PUB');
912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
914: (l_api_name,
915: G_PKG_NAME,
916: 'OKC_API.G_RET_STS_UNEXP_ERROR',
917: x_msg_count,
912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
914: (l_api_name,
915: G_PKG_NAME,
916: 'OKC_API.G_RET_STS_UNEXP_ERROR',
917: x_msg_count,
918: x_msg_data,
919: '_PUB');
920: WHEN OTHERS THEN
917: x_msg_count,
918: x_msg_data,
919: '_PUB');
920: WHEN OTHERS THEN
921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
922: (l_api_name,
923: G_PKG_NAME,
924: 'OTHERS',
925: x_msg_count,
929:
930: -- Procedure for validate_row
931: PROCEDURE validate_row(
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
934: x_return_status OUT NOCOPY VARCHAR2,
935: x_msg_count OUT NOCOPY NUMBER,
936: x_msg_data OUT NOCOPY VARCHAR2,
937: p_bpev_tbl IN bpev_tbl_type) IS
935: x_msg_count OUT NOCOPY NUMBER,
936: x_msg_data OUT NOCOPY VARCHAR2,
937: p_bpev_tbl IN bpev_tbl_type) IS
938:
939: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
940: i NUMBER := 0;
941:
942: BEGIN
943: -- initialize the return status
940: i NUMBER := 0;
941:
942: BEGIN
943: -- initialize the return status
944: x_return_status := OKC_API.G_RET_STS_SUCCESS;
945:
946: IF p_bpev_tbl.COUNT > 0 THEN
947: i := p_bpev_tbl.FIRST;
948: LOOP
953: ,x_msg_count
954: ,x_msg_data
955: ,p_bpev_tbl(i));
956:
957: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
958: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
959: x_return_status := l_return_status;
960: RAISE G_EXCEPTION_HALT_VALIDATION;
961: ELSE
954: ,x_msg_data
955: ,p_bpev_tbl(i));
956:
957: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
958: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
959: x_return_status := l_return_status;
960: RAISE G_EXCEPTION_HALT_VALIDATION;
961: ELSE
962: x_return_status := l_return_status;
970: EXCEPTION
971: WHEN G_EXCEPTION_HALT_VALIDATION THEN
972: NULL;
973: WHEN OTHERS THEN
974: OKC_API.set_message(p_app_name => g_app_name,
975: p_msg_name => g_unexpected_error,
976: p_token1 => g_sqlcode_token,
977: p_token1_value => sqlcode,
978: p_token2 => g_sqlerrm_token,
976: p_token1 => g_sqlcode_token,
977: p_token1_value => sqlcode,
978: p_token2 => g_sqlerrm_token,
979: p_token2_value => sqlerrm);
980: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
981: END validate_row;
982:
983: PROCEDURE validate_row(
984: p_api_version IN NUMBER,
981: END validate_row;
982:
983: PROCEDURE validate_row(
984: p_api_version IN NUMBER,
985: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
986: x_return_status OUT NOCOPY VARCHAR2,
987: x_msg_count OUT NOCOPY NUMBER,
988: x_msg_data OUT NOCOPY VARCHAR2,
989: p_bpev_rec IN bpev_rec_type) IS
989: p_bpev_rec IN bpev_rec_type) IS
990:
991: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
992: l_api_version CONSTANT NUMBER := 1.0;
993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
994: l_bpev_rec bpev_rec_type := p_bpev_rec;
995:
996: BEGIN
997: l_return_status := OKC_API.START_ACTIVITY(l_api_name
993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
994: l_bpev_rec bpev_rec_type := p_bpev_rec;
995:
996: BEGIN
997: l_return_status := OKC_API.START_ACTIVITY(l_api_name
998: ,p_init_msg_list
999: ,'_PUB'
1000: ,x_return_status
1001: );
998: ,p_init_msg_list
999: ,'_PUB'
1000: ,x_return_status
1001: );
1002: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1005: RAISE OKC_API.G_EXCEPTION_ERROR;
1006: END IF;
999: ,'_PUB'
1000: ,x_return_status
1001: );
1002: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1005: RAISE OKC_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1000: ,x_return_status
1001: );
1002: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1005: RAISE OKC_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: -- Call user hook for BEFORE
1001: );
1002: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1005: RAISE OKC_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: -- Call user hook for BEFORE
1009: g_bpev_rec := l_bpev_rec;
1007:
1008: -- Call user hook for BEFORE
1009: g_bpev_rec := l_bpev_rec;
1010: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1011: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1012: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1014: raise OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1008: -- Call user hook for BEFORE
1009: g_bpev_rec := l_bpev_rec;
1010: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1011: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1012: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1014: raise OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016:
1009: g_bpev_rec := l_bpev_rec;
1010: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1011: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1012: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1014: raise OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016:
1017: -- get values back from hook call
1010: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1011: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1012: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1014: raise OKC_API.G_EXCEPTION_ERROR;
1015: END IF;
1016:
1017: -- get values back from hook call
1018: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
1025: ,x_msg_count
1026: ,x_msg_data
1027: ,l_bpev_rec);
1028:
1029: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1032: RAISE OKC_API.G_EXCEPTION_ERROR;
1033: END IF;
1026: ,x_msg_data
1027: ,l_bpev_rec);
1028:
1029: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1032: RAISE OKC_API.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1027: ,l_bpev_rec);
1028:
1029: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1032: RAISE OKC_API.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1035: -- USER HOOK CALL FOR AFTER, STARTS
1028:
1029: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1032: RAISE OKC_API.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1035: -- USER HOOK CALL FOR AFTER, STARTS
1036: g_bpev_rec := l_bpev_rec;
1039: p_package_name => g_pkg_name,
1040: p_procedure_name => l_api_name,
1041: p_before_after => 'A');
1042:
1043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1040: p_procedure_name => l_api_name,
1041: p_before_after => 'A');
1042:
1043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- USER HOOK CALL FOR AFTER, ENDS
1041: p_before_after => 'A');
1042:
1043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- USER HOOK CALL FOR AFTER, ENDS
1049:
1042:
1043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- USER HOOK CALL FOR AFTER, ENDS
1049:
1050: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- USER HOOK CALL FOR AFTER, ENDS
1049:
1050: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1051:
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1049:
1050: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1051:
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (l_api_name,
1056: G_PKG_NAME,
1057: 'OKC_API.G_RET_STS_ERROR',
1050: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1051:
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (l_api_name,
1056: G_PKG_NAME,
1057: 'OKC_API.G_RET_STS_ERROR',
1058: x_msg_count,
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (l_api_name,
1056: G_PKG_NAME,
1057: 'OKC_API.G_RET_STS_ERROR',
1058: x_msg_count,
1059: x_msg_data,
1060: '_PUB');
1061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1057: 'OKC_API.G_RET_STS_ERROR',
1058: x_msg_count,
1059: x_msg_data,
1060: '_PUB');
1061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1058: x_msg_count,
1059: x_msg_data,
1060: '_PUB');
1061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1066: x_msg_count,
1061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1066: x_msg_count,
1067: x_msg_data,
1068: '_PUB');
1069: WHEN OTHERS THEN
1066: x_msg_count,
1067: x_msg_data,
1068: '_PUB');
1069: WHEN OTHERS THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (l_api_name,
1072: G_PKG_NAME,
1073: 'OTHERS',
1074: x_msg_count,
1154: x_msg_data => l_msg_data,
1155: p_tavv_tbl => l_p_tavv_tbl,
1156: x_tavv_tbl => l_x_tavv_tbl) ;
1157: If l_return_status <> 'S' then
1158: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Create TPA Value ');
1159: Raise G_EXCEPTION_HALT_VALIDATION;
1160: End If;
1161:
1162: RETURN(l_x_tavv_tbl(1).id);
1165: -------------
1166:
1167: PROCEDURE Get_Billing_Schedule(
1168: p_api_version IN NUMBER,
1169: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1170: p_billing_profile_rec IN Billing_profile_rec,
1171: x_sll_tbl_out OUT NOCOPY Stream_Level_tbl,
1172: x_return_status OUT NOCOPY VARCHAR2,
1173: x_msg_count OUT NOCOPY NUMBER,
1439: EXCEPTION
1440: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1441: NULL;
1442: WHEN OTHERS THEN
1443: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
1444: p_msg_name => G_UNEXPECTED_ERROR,
1445: p_token1 => G_SQLCODE_TOKEN,
1446: p_token1_value => sqlcode,
1447: p_token2 => G_SQLERRM_TOKEN,