20:
21:
22: PROCEDURE get_item_lines(
23: p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
25: x_return_status OUT NOCOPY VARCHAR2,
26: x_msg_count OUT NOCOPY NUMBER,
27: x_msg_data OUT NOCOPY VARCHAR2,
28: p_end_of_term_id IN NUMBER,
131: IF eo_term_exists%ISOPEN THEN
132: CLOSE eo_term_exists;
133: END IF;
134: -- have to set that the po is not found
135: x_return_status := OKL_API.G_RET_STS_ERROR;
136: when G_EXCEPTION_VERSION_NOTFOUND THEN
137: IF eo_term_ver_csr%ISOPEN THEN
138: CLOSE eo_term_ver_csr;
139: END IF;
137: IF eo_term_ver_csr%ISOPEN THEN
138: CLOSE eo_term_ver_csr;
139: END IF;
140: -- have to set the message that version is not found
141: x_return_status := OKL_API.G_RET_STS_ERROR;
142: when others then
143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
144: (
145: l_api_name,
139: END IF;
140: -- have to set the message that version is not found
141: x_return_status := OKL_API.G_RET_STS_ERROR;
142: when others then
143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
144: (
145: l_api_name,
146: G_PKG_NAME,
147: 'OTHERS',
152: END get_item_lines;
153: -- Get the values of the Purchase Options
154: PROCEDURE get_eo_term_values(
155: p_api_version IN NUMBER,
156: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
157: x_return_status OUT NOCOPY VARCHAR2,
158: x_msg_count OUT NOCOPY NUMBER,
159: x_msg_data OUT NOCOPY VARCHAR2,
160: p_end_of_term_id IN NUMBER,
255: IF eot_exists%ISOPEN THEN
256: CLOSE eot_exists;
257: END IF;
258: -- have to set that the po is not found
259: x_return_status := OKL_API.G_RET_STS_ERROR;
260: when G_EXCEPTION_VERSION_NOTFOUND THEN
261: IF end_of_term_ver_csr%ISOPEN THEN
262: CLOSE end_of_term_ver_csr;
263: END IF;
261: IF end_of_term_ver_csr%ISOPEN THEN
262: CLOSE end_of_term_ver_csr;
263: END IF;
264: -- have to set the message that version is not found
265: x_return_status := OKL_API.G_RET_STS_ERROR;
266: when others then
267: x_return_status := OKL_API.HANDLE_EXCEPTIONS
268: (
269: l_api_name,
263: END IF;
264: -- have to set the message that version is not found
265: x_return_status := OKL_API.G_RET_STS_ERROR;
266: when others then
267: x_return_status := OKL_API.HANDLE_EXCEPTIONS
268: (
269: l_api_name,
270: G_PKG_NAME,
271: 'OTHERS',
278:
279: -- Get the Purchase Option Header, Version, values and Values
280: PROCEDURE get_end_of_term_option(
281: p_api_version IN NUMBER,
282: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
283: x_return_status OUT NOCOPY VARCHAR2,
284: x_msg_count OUT NOCOPY NUMBER,
285: x_msg_data OUT NOCOPY VARCHAR2,
286: p_eot_id IN NUMBER,
396:
397:
398: exception
399: when others then
400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
401: (
402: l_api_name,
403: G_PKG_NAME,
404: 'OTHERS',
414: BEGIN
415: FOR i IN p_etv_tbl.FIRST..p_etv_tbl.LAST
416: LOOP
417: IF p_etv_tbl(i).eot_value > 100 THEN
418: OKL_API.set_message(p_app_name => G_APP_NAME,
419: p_msg_name => 'OKL_INVALID_VALUE',
420: p_token1 => OKL_API.G_COL_NAME_TOKEN,
421: p_token1_value => 'Term ' || p_etv_tbl(i).eot_term );
422: RAISE OKL_API.G_EXCEPTION_ERROR;
416: LOOP
417: IF p_etv_tbl(i).eot_value > 100 THEN
418: OKL_API.set_message(p_app_name => G_APP_NAME,
419: p_msg_name => 'OKL_INVALID_VALUE',
420: p_token1 => OKL_API.G_COL_NAME_TOKEN,
421: p_token1_value => 'Term ' || p_etv_tbl(i).eot_term );
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423:
424: END IF;
418: OKL_API.set_message(p_app_name => G_APP_NAME,
419: p_msg_name => 'OKL_INVALID_VALUE',
420: p_token1 => OKL_API.G_COL_NAME_TOKEN,
421: p_token1_value => 'Term ' || p_etv_tbl(i).eot_term );
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423:
424: END IF;
425: END LOOP;
426: END;
481: i NUMBER := 1;
482: l_end_of_term_id NUMBER;
483: l_end_of_type_code VARCHAR2(30);
484: l_currency_code VARCHAR2(30);
485: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
486: l_count NUMBER;
487: l_category_type_code VARCHAR2(30);
488: l_type_meaning VARCHAR2(30);
489:
519: FETCH source_meaning_csr INTO l_type_meaning;
520: CLOSE source_meaning_csr;
521:
522: IF (l_count <> 0) THEN
523: l_return_status := OKL_API.G_RET_STS_ERROR;
524: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
525: p_msg_name => 'OKL_FE_VALIDATE_EOT',
526: p_token1 => 'SOURCE',
527: p_token1_value => l_type_meaning);
520: CLOSE source_meaning_csr;
521:
522: IF (l_count <> 0) THEN
523: l_return_status := OKL_API.G_RET_STS_ERROR;
524: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
525: p_msg_name => 'OKL_FE_VALIDATE_EOT',
526: p_token1 => 'SOURCE',
527: p_token1_value => l_type_meaning);
528: END IF;
534:
535: -- Method to end date the referenced Lease Rate Set that uses this PO version
536: PROCEDURE calculate_start_date(
537: p_api_version IN NUMBER,
538: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
539: x_return_status OUT NOCOPY VARCHAR2,
540: x_msg_count OUT NOCOPY NUMBER,
541: x_msg_data OUT NOCOPY VARCHAR2,
542: p_eve_rec IN okl_eve_rec,
570: l_api_version NUMBER := 1.0;
571: l_eff_from DATE;
572: l_eff_to DATE;
573: l_start_date l_start_date_type;
574: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
575: l_max_start_date DATE;
576: i NUMBER;
577:
578: BEGIN
575: l_max_start_date DATE;
576: i NUMBER;
577:
578: BEGIN
579: l_return_status := OKL_API.start_activity(l_api_name
580: ,g_pkg_name
581: ,p_init_msg_list
582: ,l_api_version
583: ,p_api_version
582: ,l_api_version
583: ,p_api_version
584: ,'_PVT'
585: ,x_return_status);
586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
589: raise OKL_API.G_EXCEPTION_ERROR;
590: END IF;
583: ,p_api_version
584: ,'_PVT'
585: ,x_return_status);
586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
589: raise OKL_API.G_EXCEPTION_ERROR;
590: END IF;
591:
584: ,'_PVT'
585: ,x_return_status);
586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
589: raise OKL_API.G_EXCEPTION_ERROR;
590: END IF;
591:
592: OPEN prev_ver_csr(l_eve_rec.end_of_term_id, l_eve_rec.version_number);
585: ,x_return_status);
586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
589: raise OKL_API.G_EXCEPTION_ERROR;
590: END IF;
591:
592: OPEN prev_ver_csr(l_eve_rec.end_of_term_id, l_eve_rec.version_number);
593: FETCH prev_ver_csr INTO l_eff_from, l_eff_to;
600: ELSE
601: l_max_start_date := l_eff_from + 1;
602: END IF;
603: ELSE
604: l_max_start_date:= okl_api.g_miss_date;
605: END IF;
606: CLOSE prev_ver_csr;
607:
608: IF (l_eff_to is null) THEN
634: -- assign the max start date to the out parameter
635: x_cal_eff_from := l_max_start_date;
636:
637: --end activity
638: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
639: x_return_status := l_return_status;
640:
641:
642: exception
639: x_return_status := l_return_status;
640:
641:
642: exception
643: WHEN OKL_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
645: (l_api_name,
646: G_PKG_NAME,
647: 'OKL_API.G_RET_STS_ERROR',
640:
641:
642: exception
643: WHEN OKL_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
645: (l_api_name,
646: G_PKG_NAME,
647: 'OKL_API.G_RET_STS_ERROR',
648: x_msg_count,
643: WHEN OKL_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
645: (l_api_name,
646: G_PKG_NAME,
647: 'OKL_API.G_RET_STS_ERROR',
648: x_msg_count,
649: x_msg_data,
650: '_PVT');
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
647: 'OKL_API.G_RET_STS_ERROR',
648: x_msg_count,
649: x_msg_data,
650: '_PVT');
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
652: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
653: ( l_api_name,
654: G_PKG_NAME,
655: 'OKL_API.G_RET_STS_UNEXP_ERROR',
648: x_msg_count,
649: x_msg_data,
650: '_PVT');
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
652: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
653: ( l_api_name,
654: G_PKG_NAME,
655: 'OKL_API.G_RET_STS_UNEXP_ERROR',
656: x_msg_count,
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
652: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
653: ( l_api_name,
654: G_PKG_NAME,
655: 'OKL_API.G_RET_STS_UNEXP_ERROR',
656: x_msg_count,
657: x_msg_data,
658: '_PVT');
659: WHEN OTHERS THEN
656: x_msg_count,
657: x_msg_data,
658: '_PVT');
659: WHEN OTHERS THEN
660: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
661: ( l_api_name,
662: G_PKG_NAME,
663: 'OTHERS',
664: x_msg_count,
668:
669: -- Create a End of Term option
670: PROCEDURE insert_end_of_term_option(
671: p_api_version IN NUMBER,
672: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
673: x_return_status OUT NOCOPY VARCHAR2,
674: x_msg_count OUT NOCOPY NUMBER,
675: x_msg_data OUT NOCOPY VARCHAR2,
676: p_ethv_rec IN okl_ethv_rec,
683: x_etv_tbl OUT NOCOPY okl_etv_tbl) AS
684:
685: l_api_name CONSTANT VARCHAR2(40) := 'insert_end_of_term_option';
686: l_api_version CONSTANT NUMBER := 1.0;
687: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
688: l_ethv_rec okl_ethv_rec:= p_ethv_rec;
689: l_eve_rec okl_eve_rec := p_eve_rec;
690: l_eto_tbl okl_eto_tbl := p_eto_tbl;
691: l_etv_tbl okl_etv_tbl := p_etv_tbl;
699:
700:
701:
702: BEGIN
703: l_return_status := OKL_API.start_activity(l_api_name
704: ,g_pkg_name
705: ,p_init_msg_list
706: ,l_api_version
707: ,p_api_version
707: ,p_api_version
708: ,'_PVT'
709: ,x_return_status);
710:
711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
714: raise OKL_API.G_EXCEPTION_ERROR;
715: END IF;
708: ,'_PVT'
709: ,x_return_status);
710:
711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
714: raise OKL_API.G_EXCEPTION_ERROR;
715: END IF;
716:
709: ,x_return_status);
710:
711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
714: raise OKL_API.G_EXCEPTION_ERROR;
715: END IF;
716:
717: OPEN eot_unique_chk(l_ethv_rec.end_of_term_name);
710:
711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
714: raise OKL_API.G_EXCEPTION_ERROR;
715: END IF;
716:
717: OPEN eot_unique_chk(l_ethv_rec.end_of_term_name);
718: FETCH eot_unique_chk INTO l_dummy_var ;
720:
721: -- if l_dummy_var is 'x' then name already exists
722:
723: IF (l_dummy_var = 'x') THEN
724: okl_api.set_message(p_app_name => g_app_name
725: ,p_msg_name => 'OKL_DUPLICATE_NAME'
726: ,p_token1 => 'NAME'
727: ,p_token1_value => l_ethv_rec.end_of_term_name);
728: RAISE okl_api.g_exception_error;
724: okl_api.set_message(p_app_name => g_app_name
725: ,p_msg_name => 'OKL_DUPLICATE_NAME'
726: ,p_token1 => 'NAME'
727: ,p_token1_value => l_ethv_rec.end_of_term_name);
728: RAISE okl_api.g_exception_error;
729:
730: END IF;
731:
732: --Added category_type_code condition by dcshanmu for bug 6699555
731:
732: --Added category_type_code condition by dcshanmu for bug 6699555
733: IF ((l_ethv_rec.eot_type_code ='AMOUNT' OR l_ethv_rec.eot_type_code ='PERCENT') AND (l_ethv_rec.category_type_code <> 'NONE')) THEN
734: IF (l_etv_tbl.COUNT = 0) THEN
735: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
736: p_msg_name => 'OKL_ST_IRS_RESIDUALS_MISSING');
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
739: END IF;
733: IF ((l_ethv_rec.eot_type_code ='AMOUNT' OR l_ethv_rec.eot_type_code ='PERCENT') AND (l_ethv_rec.category_type_code <> 'NONE')) THEN
734: IF (l_etv_tbl.COUNT = 0) THEN
735: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
736: p_msg_name => 'OKL_ST_IRS_RESIDUALS_MISSING');
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
739: END IF;
740:
741: l_eve_rec.effective_to_date := rosetta_g_miss_date_in_map(l_eve_rec.effective_to_date);
761: p_ethv_rec => l_ethv_rec,
762: x_ethv_rec => x_ethv_rec
763: );
764:
765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
768: raise OKL_API.G_EXCEPTION_ERROR;
769: END IF;
762: x_ethv_rec => x_ethv_rec
763: );
764:
765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
768: raise OKL_API.G_EXCEPTION_ERROR;
769: END IF;
770:
763: );
764:
765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
768: raise OKL_API.G_EXCEPTION_ERROR;
769: END IF;
770:
771: -- set the version record attributes
764:
765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
768: raise OKL_API.G_EXCEPTION_ERROR;
769: END IF;
770:
771: -- set the version record attributes
772: l_eve_rec.VERSION_NUMBER := '1';
782: x_msg_data => x_msg_data,
783: p_eve_rec => l_eve_rec,
784: x_eve_rec => x_eve_rec);
785:
786: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
787: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
789: raise OKL_API.G_EXCEPTION_ERROR;
790: END IF;
783: p_eve_rec => l_eve_rec,
784: x_eve_rec => x_eve_rec);
785:
786: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
787: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
789: raise OKL_API.G_EXCEPTION_ERROR;
790: END IF;
791:
784: x_eve_rec => x_eve_rec);
785:
786: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
787: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
789: raise OKL_API.G_EXCEPTION_ERROR;
790: END IF;
791:
792: --Added if condition by dcshanmu for bug 6699555
785:
786: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
787: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
789: raise OKL_API.G_EXCEPTION_ERROR;
790: END IF;
791:
792: --Added if condition by dcshanmu for bug 6699555
793: --Objects and Term Values table will not be present for source type 'NONE'
811: x_msg_data => x_msg_data,
812: p_eto_tbl => l_eto_tbl,
813: x_eto_tbl => x_eto_tbl);
814:
815: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
816: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
817: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
818: raise OKL_API.G_EXCEPTION_ERROR;
819: END IF;
812: p_eto_tbl => l_eto_tbl,
813: x_eto_tbl => x_eto_tbl);
814:
815: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
816: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
817: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
818: raise OKL_API.G_EXCEPTION_ERROR;
819: END IF;
820:
813: x_eto_tbl => x_eto_tbl);
814:
815: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
816: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
817: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
818: raise OKL_API.G_EXCEPTION_ERROR;
819: END IF;
820:
821: -- populate the foreign key for the values table
814:
815: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
816: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
817: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
818: raise OKL_API.G_EXCEPTION_ERROR;
819: END IF;
820:
821: -- populate the foreign key for the values table
822: IF (l_etv_tbl.COUNT > 0) then
842: x_msg_data => x_msg_data,
843: p_etv_tbl => l_etv_tbl,
844: x_etv_tbl => x_etv_tbl);
845:
846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
847: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
849: raise OKL_API.G_EXCEPTION_ERROR;
850: END IF;
843: p_etv_tbl => l_etv_tbl,
844: x_etv_tbl => x_etv_tbl);
845:
846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
847: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
849: raise OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
844: x_etv_tbl => x_etv_tbl);
845:
846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
847: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
849: raise OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
852: END IF;
845:
846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
847: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
849: raise OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
852: END IF;
853: END IF;
853: END IF;
854: END IF; --Added by dcshanmu for bug 6699555
855:
856: exception
857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
859: (l_api_name,
860: G_PKG_NAME,
861: 'OKL_API.G_RET_STS_ERROR',
854: END IF; --Added by dcshanmu for bug 6699555
855:
856: exception
857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
859: (l_api_name,
860: G_PKG_NAME,
861: 'OKL_API.G_RET_STS_ERROR',
862: x_msg_count,
857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
859: (l_api_name,
860: G_PKG_NAME,
861: 'OKL_API.G_RET_STS_ERROR',
862: x_msg_count,
863: x_msg_data,
864: '_PVT');
865: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
861: 'OKL_API.G_RET_STS_ERROR',
862: x_msg_count,
863: x_msg_data,
864: '_PVT');
865: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
866: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
867: ( l_api_name,
868: G_PKG_NAME,
869: 'OKL_API.G_RET_STS_UNEXP_ERROR',
862: x_msg_count,
863: x_msg_data,
864: '_PVT');
865: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
866: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
867: ( l_api_name,
868: G_PKG_NAME,
869: 'OKL_API.G_RET_STS_UNEXP_ERROR',
870: x_msg_count,
865: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
866: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
867: ( l_api_name,
868: G_PKG_NAME,
869: 'OKL_API.G_RET_STS_UNEXP_ERROR',
870: x_msg_count,
871: x_msg_data,
872: '_PVT');
873: WHEN OTHERS THEN
870: x_msg_count,
871: x_msg_data,
872: '_PVT');
873: WHEN OTHERS THEN
874: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
875: ( l_api_name,
876: G_PKG_NAME,
877: 'OTHERS',
878: x_msg_count,
883: END insert_end_of_term_option;
884:
885: PROCEDURE update_end_of_term_option(
886: p_api_version IN NUMBER,
887: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
888: x_return_status OUT NOCOPY VARCHAR2,
889: x_msg_count OUT NOCOPY NUMBER,
890: x_msg_data OUT NOCOPY VARCHAR2,
891: p_eve_rec IN okl_eve_rec,
916: CURSOR latest_active_ver_csr(p_eot_id IN NUMBER) IS
917: SELECT max(version_number) FROM okl_fe_eo_term_vers
918: WHERE end_of_term_id=p_eot_id and sts_code='ACTIVE';
919:
920: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
921: cal_end_date DATE;
922: BEGIN
923: l_return_status := OKL_API.start_activity(l_api_name
924: ,g_pkg_name
919:
920: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
921: cal_end_date DATE;
922: BEGIN
923: l_return_status := OKL_API.start_activity(l_api_name
924: ,g_pkg_name
925: ,p_init_msg_list
926: ,l_api_version
927: ,p_api_version
944: ,x_msg_data
945: ,l_eve_rec
946: ,cal_eff_from);
947:
948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
949: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
951: raise OKL_API.G_EXCEPTION_ERROR;
952: END IF;
945: ,l_eve_rec
946: ,cal_eff_from);
947:
948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
949: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
951: raise OKL_API.G_EXCEPTION_ERROR;
952: END IF;
953:
946: ,cal_eff_from);
947:
948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
949: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
951: raise OKL_API.G_EXCEPTION_ERROR;
952: END IF;
953:
954: IF ( l_eve_rec.effective_from_date < cal_eff_from ) THEN
947:
948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
949: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
951: raise OKL_API.G_EXCEPTION_ERROR;
952: END IF;
953:
954: IF ( l_eve_rec.effective_from_date < cal_eff_from ) THEN
955: RAISE INVALID_START_DATE;
971: x_msg_data => x_msg_data,
972: p_ethv_rec => l_ethv_rec,
973: x_ethv_rec => x_ethv_rec
974: );
975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
976: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
978: raise OKL_API.G_EXCEPTION_ERROR;
979: END IF;
972: p_ethv_rec => l_ethv_rec,
973: x_ethv_rec => x_ethv_rec
974: );
975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
976: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
978: raise OKL_API.G_EXCEPTION_ERROR;
979: END IF;
980:
973: x_ethv_rec => x_ethv_rec
974: );
975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
976: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
978: raise OKL_API.G_EXCEPTION_ERROR;
979: END IF;
980:
981: END IF;
974: );
975: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
976: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
978: raise OKL_API.G_EXCEPTION_ERROR;
979: END IF;
980:
981: END IF;
982: -- update the version record
988: x_msg_data => x_msg_data,
989: p_eve_rec => l_eve_rec,
990: x_eve_rec => x_eve_rec);
991:
992: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
993: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
994: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
995: raise OKL_API.G_EXCEPTION_ERROR;
996: END IF;
989: p_eve_rec => l_eve_rec,
990: x_eve_rec => x_eve_rec);
991:
992: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
993: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
994: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
995: raise OKL_API.G_EXCEPTION_ERROR;
996: END IF;
997:
990: x_eve_rec => x_eve_rec);
991:
992: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
993: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
994: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
995: raise OKL_API.G_EXCEPTION_ERROR;
996: END IF;
997:
998: --Added if condition by dcshanmu for bug 6699555
991:
992: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
993: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
994: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
995: raise OKL_API.G_EXCEPTION_ERROR;
996: END IF;
997:
998: --Added if condition by dcshanmu for bug 6699555
999: --Objects and Term Values table will not be present for source type 'NONE'
1014: x_msg_data => x_msg_data,
1015: p_eto_rec => l_eto_tbl(i),
1016: x_eto_rec => x_eto_tbl(i));
1017:
1018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1019: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1021: raise OKL_API.G_EXCEPTION_ERROR;
1022: END IF;
1015: p_eto_rec => l_eto_tbl(i),
1016: x_eto_rec => x_eto_tbl(i));
1017:
1018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1019: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1021: raise OKL_API.G_EXCEPTION_ERROR;
1022: END IF;
1023:
1016: x_eto_rec => x_eto_tbl(i));
1017:
1018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1019: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1021: raise OKL_API.G_EXCEPTION_ERROR;
1022: END IF;
1023:
1024: ELSIF (l_eto_tbl(i).END_OF_TERM_OBJ_ID is null ) THEN
1017:
1018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1019: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1021: raise OKL_API.G_EXCEPTION_ERROR;
1022: END IF;
1023:
1024: ELSIF (l_eto_tbl(i).END_OF_TERM_OBJ_ID is null ) THEN
1025:
1033: x_msg_data => x_msg_data,
1034: p_eto_rec => l_eto_tbl(i),
1035: x_eto_rec => x_eto_tbl(i));
1036:
1037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1038: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1040: raise OKL_API.G_EXCEPTION_ERROR;
1041: END IF;
1034: p_eto_rec => l_eto_tbl(i),
1035: x_eto_rec => x_eto_tbl(i));
1036:
1037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1038: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1040: raise OKL_API.G_EXCEPTION_ERROR;
1041: END IF;
1042:
1035: x_eto_rec => x_eto_tbl(i));
1036:
1037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1038: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1040: raise OKL_API.G_EXCEPTION_ERROR;
1041: END IF;
1042:
1043: END IF;
1036:
1037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1038: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1040: raise OKL_API.G_EXCEPTION_ERROR;
1041: END IF;
1042:
1043: END IF;
1044: EXIT WHEN (i= l_eto_tbl.LAST);
1063: x_msg_count => x_msg_count,
1064: x_msg_data => x_msg_data,
1065: p_etv_rec => l_etv_tbl(i),
1066: x_etv_rec => x_etv_tbl(i));
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1070: raise OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1064: x_msg_data => x_msg_data,
1065: p_etv_rec => l_etv_tbl(i),
1066: x_etv_rec => x_etv_tbl(i));
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1070: raise OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1065: p_etv_rec => l_etv_tbl(i),
1066: x_etv_rec => x_etv_tbl(i));
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1070: raise OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: ELSIF (l_etv_tbl(i).END_OF_TERM_VALUE_ID is null) THEN
1066: x_etv_rec => x_etv_tbl(i));
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1070: raise OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: ELSIF (l_etv_tbl(i).END_OF_TERM_VALUE_ID is null) THEN
1074: l_etv_tbl(i).END_OF_TERM_VER_ID := x_eve_rec.END_OF_TERM_VER_ID;
1081: x_msg_data => x_msg_data,
1082: p_etv_rec => l_etv_tbl(i),
1083: x_etv_rec => x_etv_tbl(i));
1084:
1085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1082: p_etv_rec => l_etv_tbl(i),
1083: x_etv_rec => x_etv_tbl(i));
1084:
1085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1083: x_etv_rec => x_etv_tbl(i));
1084:
1085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1091: END IF;
1084:
1085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1091: END IF;
1092: EXIT WHEN (i= l_etv_tbl.LAST);
1143: x_msg_data => x_msg_data,
1144: p_ethv_rec => l_ethv_rec,
1145: x_ethv_rec => x_ethv_rec
1146: );
1147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1148: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1150: raise OKL_API.G_EXCEPTION_ERROR;
1151: END IF;
1144: p_ethv_rec => l_ethv_rec,
1145: x_ethv_rec => x_ethv_rec
1146: );
1147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1148: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1150: raise OKL_API.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1145: x_ethv_rec => x_ethv_rec
1146: );
1147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1148: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1150: raise OKL_API.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1153: -- update the version record
1146: );
1147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1148: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1150: raise OKL_API.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1153: -- update the version record
1154: okl_eve_pvt.update_row(
1159: x_msg_data => x_msg_data,
1160: p_eve_rec => l_eve_rec,
1161: x_eve_rec => x_eve_rec);
1162:
1163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1164: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1166: raise OKL_API.G_EXCEPTION_ERROR;
1167: END IF;
1160: p_eve_rec => l_eve_rec,
1161: x_eve_rec => x_eve_rec);
1162:
1163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1164: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1166: raise OKL_API.G_EXCEPTION_ERROR;
1167: END IF;
1168: END IF;
1161: x_eve_rec => x_eve_rec);
1162:
1163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1164: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1166: raise OKL_API.G_EXCEPTION_ERROR;
1167: END IF;
1168: END IF;
1169:
1162:
1163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1164: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1166: raise OKL_API.G_EXCEPTION_ERROR;
1167: END IF;
1168: END IF;
1169:
1170: --Added if condition by dcshanmu for bug 6699555
1185: x_msg_data => x_msg_data,
1186: p_eto_rec => l_eto_tbl(i),
1187: x_eto_rec => x_eto_tbl(i));
1188:
1189: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1192: raise OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1186: p_eto_rec => l_eto_tbl(i),
1187: x_eto_rec => x_eto_tbl(i));
1188:
1189: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1192: raise OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1187: x_eto_rec => x_eto_tbl(i));
1188:
1189: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1192: raise OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1195: END IF;
1188:
1189: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1192: raise OKL_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1195: END IF;
1196: END LOOP;
1197: --END IF; --Added by dcshanmu for bug 6699555 Commenting out END IF.
1198: END IF;
1199:
1200: exception
1201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_ERROR',
1198: END IF;
1199:
1200: exception
1201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_ERROR',
1206: x_msg_count,
1201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1203: ( l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT');
1209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1205: 'OKL_API.G_RET_STS_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT');
1209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1210: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1211: ( l_api_name,
1212: G_PKG_NAME,
1213: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT');
1209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1210: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1211: ( l_api_name,
1212: G_PKG_NAME,
1213: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1214: x_msg_count,
1209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1210: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1211: ( l_api_name,
1212: G_PKG_NAME,
1213: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1214: x_msg_count,
1215: x_msg_data,
1216: '_PVT');
1217:
1215: x_msg_data,
1216: '_PVT');
1217:
1218: WHEN OTHERS THEN
1219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1220: ( l_api_name,
1221: G_PKG_NAME,
1222: 'OTHERS',
1223: x_msg_count,
1228:
1229: -- create version for the end of term option
1230: PROCEDURE create_version(
1231: p_api_version IN NUMBER,
1232: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1233: x_return_status OUT NOCOPY VARCHAR2,
1234: x_msg_count OUT NOCOPY NUMBER,
1235: x_msg_data OUT NOCOPY VARCHAR2,
1236: p_eve_rec IN okl_eve_rec,
1246: l_ethv_rec okl_ethv_rec;
1247: x_ethv_rec okl_ethv_rec;
1248: l_prev_ver_rec okl_eve_rec;
1249: x_prev_ver_rec okl_eve_rec;
1250: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1251: residual_type VARCHAR2(30);
1252: i NUMBER := 0;
1253: l_api_name VARCHAR2(40) := 'create_version';
1254: l_api_version NUMBER := 1.0;
1254: l_api_version NUMBER := 1.0;
1255: l_cal_eff_from DATE;
1256:
1257: BEGIN
1258: l_return_status := OKL_API.start_activity(l_api_name
1259: ,g_pkg_name
1260: ,p_init_msg_list
1261: ,l_api_version
1262: ,p_api_version
1272: x_msg_data ,
1273: l_eve_rec ,
1274: l_cal_eff_from );
1275:
1276: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1277: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1279: raise OKL_API.G_EXCEPTION_ERROR;
1280: END IF;
1273: l_eve_rec ,
1274: l_cal_eff_from );
1275:
1276: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1277: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1279: raise OKL_API.G_EXCEPTION_ERROR;
1280: END IF;
1281:
1274: l_cal_eff_from );
1275:
1276: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1277: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1279: raise OKL_API.G_EXCEPTION_ERROR;
1280: END IF;
1281:
1282: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1275:
1276: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1277: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1279: raise OKL_API.G_EXCEPTION_ERROR;
1280: END IF;
1281:
1282: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1283: RAISE INVALID_START_DATE;
1295: p_ethv_rec => l_ethv_rec,
1296: x_ethv_rec => x_ethv_rec
1297: );
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1300: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1302: raise OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1296: x_ethv_rec => x_ethv_rec
1297: );
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1300: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1302: raise OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1297: );
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1300: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1302: raise OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1305: -- insert the version record into the table
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1300: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1302: raise OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1305: -- insert the version record into the table
1306: okl_eve_pvt.insert_row(
1311: x_msg_data => x_msg_data,
1312: p_eve_rec => l_eve_rec,
1313: x_eve_rec => x_eve_rec);
1314:
1315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1316: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1318: raise OKL_API.G_EXCEPTION_ERROR;
1319: END IF;
1312: p_eve_rec => l_eve_rec,
1313: x_eve_rec => x_eve_rec);
1314:
1315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1316: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1318: raise OKL_API.G_EXCEPTION_ERROR;
1319: END IF;
1320:
1313: x_eve_rec => x_eve_rec);
1314:
1315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1316: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1318: raise OKL_API.G_EXCEPTION_ERROR;
1319: END IF;
1320:
1321: --Added if condition by dcshanmu for bug 6699555
1314:
1315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1316: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1318: raise OKL_API.G_EXCEPTION_ERROR;
1319: END IF;
1320:
1321: --Added if condition by dcshanmu for bug 6699555
1322: --Objects and Term Values table will not be present for source type 'NONE'
1341: x_msg_count => x_msg_count,
1342: x_msg_data => x_msg_data,
1343: p_eto_tbl => l_eto_tbl,
1344: x_eto_tbl => x_eto_tbl);
1345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1346: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1348: raise OKL_API.G_EXCEPTION_ERROR;
1349: END IF;
1342: x_msg_data => x_msg_data,
1343: p_eto_tbl => l_eto_tbl,
1344: x_eto_tbl => x_eto_tbl);
1345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1346: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1348: raise OKL_API.G_EXCEPTION_ERROR;
1349: END IF;
1350:
1343: p_eto_tbl => l_eto_tbl,
1344: x_eto_tbl => x_eto_tbl);
1345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1346: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1348: raise OKL_API.G_EXCEPTION_ERROR;
1349: END IF;
1350:
1351: -- populate the foreign key for the values table
1344: x_eto_tbl => x_eto_tbl);
1345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1346: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1348: raise OKL_API.G_EXCEPTION_ERROR;
1349: END IF;
1350:
1351: -- populate the foreign key for the values table
1352: IF (l_etv_tbl.COUNT > 0) then
1373: x_msg_data => x_msg_data,
1374: p_etv_tbl => l_etv_tbl,
1375: x_etv_tbl => x_etv_tbl);
1376:
1377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1380: raise OKL_API.G_EXCEPTION_ERROR;
1381: END IF;
1374: p_etv_tbl => l_etv_tbl,
1375: x_etv_tbl => x_etv_tbl);
1376:
1377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1380: raise OKL_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1375: x_etv_tbl => x_etv_tbl);
1376:
1377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1380: raise OKL_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1383: END IF; --Added by dcshanmu for bug 6699555
1376:
1377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1380: raise OKL_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1383: END IF; --Added by dcshanmu for bug 6699555
1384:
1383: END IF; --Added by dcshanmu for bug 6699555
1384:
1385: exception
1386: WHEN INVALID_START_DATE THEN
1387: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1388: p_msg_name => 'OKL_INVALID_EFF_FROM',
1389: p_token1 => 'DATE',
1390: p_token1_value => l_cal_eff_from);
1391: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1387: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1388: p_msg_name => 'OKL_INVALID_EFF_FROM',
1389: p_token1 => 'DATE',
1390: p_token1_value => l_cal_eff_from);
1391: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1392: ( l_api_name,
1393: G_PKG_NAME,
1394: 'OKL_API.G_RET_STS_ERROR',
1395: x_msg_count,
1390: p_token1_value => l_cal_eff_from);
1391: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1392: ( l_api_name,
1393: G_PKG_NAME,
1394: 'OKL_API.G_RET_STS_ERROR',
1395: x_msg_count,
1396: x_msg_data,
1397: '_PVT');
1398:
1395: x_msg_count,
1396: x_msg_data,
1397: '_PVT');
1398:
1399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1401: ( l_api_name,
1402: G_PKG_NAME,
1403: 'OKL_API.G_RET_STS_ERROR',
1396: x_msg_data,
1397: '_PVT');
1398:
1399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1401: ( l_api_name,
1402: G_PKG_NAME,
1403: 'OKL_API.G_RET_STS_ERROR',
1404: x_msg_count,
1399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1401: ( l_api_name,
1402: G_PKG_NAME,
1403: 'OKL_API.G_RET_STS_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT');
1407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1403: 'OKL_API.G_RET_STS_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT');
1407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1409: ( l_api_name,
1410: G_PKG_NAME,
1411: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT');
1407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1409: ( l_api_name,
1410: G_PKG_NAME,
1411: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1412: x_msg_count,
1407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1409: ( l_api_name,
1410: G_PKG_NAME,
1411: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1412: x_msg_count,
1413: x_msg_data,
1414: '_PVT');
1415: WHEN OTHERS THEN
1412: x_msg_count,
1413: x_msg_data,
1414: '_PVT');
1415: WHEN OTHERS THEN
1416: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1417: ( l_api_name,
1418: G_PKG_NAME,
1419: 'OTHERS',
1420: x_msg_count,
1423: END create_version;
1424:
1425: PROCEDURE validate_end_of_term_option(
1426: p_api_version IN NUMBER,
1427: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1428: x_return_status OUT NOCOPY VARCHAR2,
1429: x_msg_count OUT NOCOPY NUMBER,
1430: x_msg_data OUT NOCOPY VARCHAR2,
1431: p_end_of_ver_id IN NUMBER
1497: WHEN OTHERS THEN
1498: IF (repeat_csr%ISOPEN) then
1499: CLOSE repeat_csr;
1500: END IF;
1501: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1502: ( l_api_name,
1503: G_PKG_NAME,
1504: 'OTHERS',
1505: x_msg_count,
1508: END validate_end_of_term_option;
1509:
1510: PROCEDURE handle_approval(
1511: p_api_version IN NUMBER,
1512: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: x_msg_count OUT NOCOPY NUMBER,
1515: x_msg_data OUT NOCOPY VARCHAR2,
1516: p_end_of_term_ver_id IN NUMBER) AS
1515: x_msg_data OUT NOCOPY VARCHAR2,
1516: p_end_of_term_ver_id IN NUMBER) AS
1517: cal_end_date DATE;
1518: l_eve_rec okl_eve_rec ;
1519: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_ERROR;
1520: x_eve_rec okl_eve_rec;
1521: l_ethv_rec okl_ethv_rec;
1522: x_ethv_rec okl_ethv_rec;
1523: l_eff_from DATE;
1548: EFFECTIVE_TO_DATE FROM okl_fe_eo_term_vers
1549: WHERE END_OF_TERM_ID=p_eot_id and VERSION_NUMBER = p_version_number;
1550:
1551: BEGIN
1552: l_return_status := OKL_API.start_activity(l_api_name
1553: ,g_pkg_name
1554: ,p_init_msg_list
1555: ,l_api_version
1556: ,p_api_version
1556: ,p_api_version
1557: ,'_PVT'
1558: ,x_return_status);
1559:
1560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1563: raise OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1557: ,'_PVT'
1558: ,x_return_status);
1559:
1560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1563: raise OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565:
1558: ,x_return_status);
1559:
1560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1563: raise OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565:
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1559:
1560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1561: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1563: raise OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565:
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1563: raise OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565:
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1570: raise OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1564: END IF;
1565:
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1570: raise OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1565:
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1570: raise OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: -- fetch thte details of the versions record and populate them into versions record
1566: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1570: raise OKL_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: -- fetch thte details of the versions record and populate them into versions record
1574: OPEN eot_versions_csr(p_end_of_term_ver_id);
1584:
1585: IF (l_eff_to is not null) THEN
1586: l_eve_rec.EFFECTIVE_TO_DATE:=l_eff_to;
1587: ELSE
1588: l_eve_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1589: END IF;
1590:
1591: IF (l_eve_rec.VERSION_NUMBER >1 ) THEN
1592: calculate_start_date(
1597: x_msg_data ,
1598: l_eve_rec ,
1599: l_cal_eff_from );
1600:
1601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1604: raise OKL_API.G_EXCEPTION_ERROR;
1605: END IF;
1598: l_eve_rec ,
1599: l_cal_eff_from );
1600:
1601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1604: raise OKL_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1599: l_cal_eff_from );
1600:
1601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1604: raise OKL_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1600:
1601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1602: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1604: raise OKL_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1608: RAISE INVALID_START_DATE;
1624: x_msg_data => x_msg_data,
1625: p_version_id => l_prev_ver_id,
1626: x_obj_tbl => x_obj_tbl
1627: );
1628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1629: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1631: raise OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1625: p_version_id => l_prev_ver_id,
1626: x_obj_tbl => x_obj_tbl
1627: );
1628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1629: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1631: raise OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633:
1626: x_obj_tbl => x_obj_tbl
1627: );
1628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1629: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1631: raise OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633:
1634: IF (x_obj_tbl.COUNT >0) THEN
1627: );
1628: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1629: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1631: raise OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633:
1634: IF (x_obj_tbl.COUNT >0) THEN
1635: FOR i IN x_obj_tbl.FIRST..x_obj_tbl.LAST LOOP
1646: ,l_prev_eve_rec.effective_to_date
1647: );
1648: END IF;
1649:
1650: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1653: raise OKL_API.G_EXCEPTION_ERROR;
1654: END IF;
1647: );
1648: END IF;
1649:
1650: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1653: raise OKL_API.G_EXCEPTION_ERROR;
1654: END IF;
1655:
1648: END IF;
1649:
1650: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1653: raise OKL_API.G_EXCEPTION_ERROR;
1654: END IF;
1655:
1656: -- update the previous version record
1649:
1650: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1653: raise OKL_API.G_EXCEPTION_ERROR;
1654: END IF;
1655:
1656: -- update the previous version record
1657: okl_eve_pvt.update_row(
1662: x_msg_data => x_msg_data,
1663: p_eve_rec => l_prev_eve_rec,
1664: x_eve_rec => x_prev_eve_rec);
1665:
1666: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1667: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1669: raise OKL_API.G_EXCEPTION_ERROR;
1670: END IF;
1663: p_eve_rec => l_prev_eve_rec,
1664: x_eve_rec => x_prev_eve_rec);
1665:
1666: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1667: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1669: raise OKL_API.G_EXCEPTION_ERROR;
1670: END IF;
1671:
1664: x_eve_rec => x_prev_eve_rec);
1665:
1666: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1667: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1669: raise OKL_API.G_EXCEPTION_ERROR;
1670: END IF;
1671:
1672: END IF;
1665:
1666: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1667: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1669: raise OKL_API.G_EXCEPTION_ERROR;
1670: END IF;
1671:
1672: END IF;
1673:
1680: x_msg_data => x_msg_data,
1681: p_eve_rec => l_eve_rec,
1682: x_eve_rec => x_eve_rec);
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1687: raise OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: p_eve_rec => l_eve_rec,
1682: x_eve_rec => x_eve_rec);
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1687: raise OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: -- change the status in the header record also as active for search purcpose only
1682: x_eve_rec => x_eve_rec);
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1687: raise OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: -- change the status in the header record also as active for search purcpose only
1690: l_ethv_rec.sts_code:= 'ACTIVE';
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1687: raise OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: -- change the status in the header record also as active for search purcpose only
1690: l_ethv_rec.sts_code:= 'ACTIVE';
1691: l_ethv_rec.end_of_term_id := x_eve_rec.end_of_term_id;
1692:
1693: IF (l_eve_rec.EFFECTIVE_TO_DATE is not null) THEN
1694: l_ethv_rec.EFFECTIVE_TO_DATE :=x_eve_rec.EFFECTIVE_TO_DATE;
1695: ELSE
1696: l_ethv_rec.EFFECTIVE_TO_DATE :=OKL_API.G_MISS_DATE;
1697: END IF;
1698: okl_eth_pvt.update_row(
1699: p_api_version => p_api_version,
1700: p_init_msg_list => p_init_msg_list,
1703: x_msg_data => x_msg_data,
1704: p_ethv_rec => l_ethv_rec,
1705: x_ethv_rec => x_ethv_rec
1706: );
1707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1710: raise OKL_API.G_EXCEPTION_ERROR;
1711: END IF;
1704: p_ethv_rec => l_ethv_rec,
1705: x_ethv_rec => x_ethv_rec
1706: );
1707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1710: raise OKL_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1705: x_ethv_rec => x_ethv_rec
1706: );
1707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1710: raise OKL_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1713: -- make the change to the previous 0.
1706: );
1707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1710: raise OKL_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1713: -- make the change to the previous 0.
1714:
1712:
1713: -- make the change to the previous 0.
1714:
1715: exception
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1718: ( l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1713: -- make the change to the previous 0.
1714:
1715: exception
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1718: ( l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1718: ( l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1726: ( l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1726: ( l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1729: x_msg_count,
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1726: ( l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732:
1730: x_msg_data,
1731: '_PVT');
1732:
1733: WHEN OTHERS THEN
1734: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1735: ( l_api_name,
1736: G_PKG_NAME,
1737: 'OTHERS',
1738: x_msg_count,
1742:
1743: END handle_approval;
1744: PROCEDURE INVALID_OBJECTS(
1745: p_api_version IN NUMBER,
1746: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1747: x_return_status OUT NOCOPY VARCHAR2,
1748: x_msg_count OUT NOCOPY NUMBER,
1749: x_msg_data OUT NOCOPY VARCHAR2,
1750: p_version_id IN NUMBER,
1761: l_version_id NUMBER :=p_version_id;
1762: i NUMBER:=1;
1763: l_api_version NUMBER := 1.0;
1764: l_api_name VARCHAR2(40):='invalid_objects';
1765: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
1766:
1767: BEGIN
1768:
1769: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1765: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
1766:
1767: BEGIN
1768:
1769: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1770: G_PKG_NAME,
1771: p_init_msg_list,
1772: l_api_version,
1773: p_api_version,
1773: p_api_version,
1774: '_PVT',
1775: x_return_status);
1776:
1777: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1774: '_PVT',
1775: x_return_status);
1776:
1777: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782:
1775: x_return_status);
1776:
1777: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782:
1783: FOR lrs_invalid_record IN lrs_invalids_csr(p_version_id) LOOP
1776:
1777: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782:
1783: FOR lrs_invalid_record IN lrs_invalids_csr(p_version_id) LOOP
1784: x_obj_tbl(i).obj_id :=lrs_invalid_record.id;
1788: i:=i+1;
1789: END LOOP;
1790:
1791: --end activity
1792: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1793: x_return_status := l_return_status;
1794:
1795:
1796: EXCEPTION
1793: x_return_status := l_return_status;
1794:
1795:
1796: EXCEPTION
1797: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1798: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1799: (
1800: l_api_name,
1801: G_PKG_NAME,
1794:
1795:
1796: EXCEPTION
1797: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1798: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1799: (
1800: l_api_name,
1801: G_PKG_NAME,
1802: 'OKL_API.G_RET_STS_ERROR',
1798: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1799: (
1800: l_api_name,
1801: G_PKG_NAME,
1802: 'OKL_API.G_RET_STS_ERROR',
1803: x_msg_count,
1804: x_msg_data,
1805: '_PVT'
1806: );
1804: x_msg_data,
1805: '_PVT'
1806: );
1807:
1808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1805: '_PVT'
1806: );
1807:
1808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1814: x_msg_count,
1815: x_msg_data,
1816: '_PVT'
1817: );
1816: '_PVT'
1817: );
1818:
1819: WHEN OTHERS THEN
1820: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'OTHERS',
1830: END INVALID_OBJECTS;
1831:
1832: PROCEDURE submit_end_of_term(
1833: p_api_version IN NUMBER,
1834: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1835: x_return_status OUT NOCOPY VARCHAR2,
1836: x_msg_count OUT NOCOPY NUMBER,
1837: x_msg_data OUT NOCOPY VARCHAR2,
1838: p_end_of_term_ver_id IN NUMBER) AS
1841: x_eve_rec okl_eve_rec;
1842: l_api_version NUMBER := 1.0;
1843: l_api_name VARCHAR2(40):='submit_end_of_term';
1844: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
1845: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1846: l_parameter_list wf_parameter_list_t;
1847: p_event_name varchar2(240):='oracle.apps.okl.fe.eotapproval';
1848: l_profile_value varchar2(30);
1849:
1873: CURSOR get_source_type(p_eot_id IN NUMBER)IS
1874: SELECT EOT_TYPE_CODE
1875: FROM OKL_FE_EO_TERMS_V where end_of_term_id= p_eot_id;
1876: BEGIN
1877: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1878: G_PKG_NAME,
1879: l_init_msg_list,
1880: l_api_version,
1881: p_api_version,
1881: p_api_version,
1882: '_PVT',
1883: x_return_status);
1884:
1885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: END IF;
1882: '_PVT',
1883: x_return_status);
1884:
1885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: END IF;
1890:
1883: x_return_status);
1884:
1885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: END IF;
1890:
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1884:
1885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: END IF;
1890:
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: END IF;
1890:
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1895: raise OKL_API.G_EXCEPTION_ERROR;
1896: END IF;
1889: END IF;
1890:
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1895: raise OKL_API.G_EXCEPTION_ERROR;
1896: END IF;
1897: OPEN get_eot_id(p_end_of_term_ver_id);
1890:
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1895: raise OKL_API.G_EXCEPTION_ERROR;
1896: END IF;
1897: OPEN get_eot_id(p_end_of_term_ver_id);
1898: FETCH get_eot_id INTO l_eot_id;
1891: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1895: raise OKL_API.G_EXCEPTION_ERROR;
1896: END IF;
1897: OPEN get_eot_id(p_end_of_term_ver_id);
1898: FETCH get_eot_id INTO l_eot_id;
1899: CLOSE get_eot_id;
1906: OPEN check_active_resi_cat_sets(l_eot_id,'ACTIVE');
1907: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1908: IF check_active_resi_cat_sets%FOUND THEN
1909: LOOP
1910: OKL_API.set_message(p_app_name => G_APP_NAME,
1911: p_msg_name => 'OKL_RCS_STS_INACTIVE',
1912: p_token1 => OKL_API.G_COL_NAME_TOKEN,
1913: p_token1_value => l_rcs_rec.name);
1914: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1908: IF check_active_resi_cat_sets%FOUND THEN
1909: LOOP
1910: OKL_API.set_message(p_app_name => G_APP_NAME,
1911: p_msg_name => 'OKL_RCS_STS_INACTIVE',
1912: p_token1 => OKL_API.G_COL_NAME_TOKEN,
1913: p_token1_value => l_rcs_rec.name);
1914: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1915: EXIT WHEN check_active_resi_cat_sets%NOTFOUND;
1916: END LOOP;
1913: p_token1_value => l_rcs_rec.name);
1914: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1915: EXIT WHEN check_active_resi_cat_sets%NOTFOUND;
1916: END LOOP;
1917: RAISE OKL_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: CLOSE check_active_resi_cat_sets;
1920: END IF;
1921:
1929: ,x_msg_data
1930: ,l_eve_rec
1931: ,x_eve_rec);
1932:
1933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1930: ,l_eve_rec
1931: ,x_eve_rec);
1932:
1933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1931: ,x_eve_rec);
1932:
1933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1939:
1932:
1933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1939:
1940: IF (nvl(l_profile_value,'NONE') = 'NONE') THEN
1947: x_msg_data => x_msg_data,
1948: p_end_of_term_ver_id => p_end_of_term_ver_id
1949: );
1950:
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1948: p_end_of_term_ver_id => p_end_of_term_ver_id
1949: );
1950:
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: ELSE
1949: );
1950:
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: ELSE
1957: -- raise the business event passing the version id added to the parameter list
1950:
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: ELSE
1957: -- raise the business event passing the version id added to the parameter list
1958: wf_event.AddParameterToList('VERSION_ID',p_end_of_term_ver_id,l_parameter_list);
1971: END IF;
1972:
1973:
1974: --end activity
1975: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1976: x_return_status := l_return_status;
1977:
1978: EXCEPTION
1979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1975: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1976: x_return_status := l_return_status;
1977:
1978: EXCEPTION
1979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1980: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1976: x_return_status := l_return_status;
1977:
1978: EXCEPTION
1979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1980: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1984: 'OKL_API.G_RET_STS_ERROR',
1980: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1984: 'OKL_API.G_RET_STS_ERROR',
1985: x_msg_count,
1986: x_msg_data,
1987: '_PVT'
1988: );
1986: x_msg_data,
1987: '_PVT'
1988: );
1989:
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1987: '_PVT'
1988: );
1989:
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1995: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1995: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1996: x_msg_count,
1997: x_msg_data,
1998: '_PVT'
1999: );
1998: '_PVT'
1999: );
2000:
2001: WHEN OTHERS THEN
2002: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2003: (
2004: l_api_name,
2005: G_PKG_NAME,
2006: 'OTHERS',