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
947: ,l_eve_rec
948: ,cal_eff_from);
949:
950:
951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
954: raise OKL_API.G_EXCEPTION_ERROR;
955: END IF;
948: ,cal_eff_from);
949:
950:
951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
954: raise OKL_API.G_EXCEPTION_ERROR;
955: END IF;
956:
949:
950:
951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
954: raise OKL_API.G_EXCEPTION_ERROR;
955: END IF;
956:
957: IF ( l_eve_rec.effective_from_date < cal_eff_from ) THEN
950:
951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
954: raise OKL_API.G_EXCEPTION_ERROR;
955: END IF;
956:
957: IF ( l_eve_rec.effective_from_date < cal_eff_from ) THEN
958: RAISE INVALID_START_DATE;
977: p_ethv_rec => l_ethv_rec,
978: x_ethv_rec => x_ethv_rec
979: );
980:
981: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: END IF;
978: x_ethv_rec => x_ethv_rec
979: );
980:
981: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: END IF;
986:
979: );
980:
981: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: END IF;
986:
987: END IF;
980:
981: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: END IF;
986:
987: END IF;
988: -- update the version record
996: p_eve_rec => l_eve_rec,
997: x_eve_rec => x_eve_rec);
998:
999:
1000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1001: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1003: raise OKL_API.G_EXCEPTION_ERROR;
1004: END IF;
997: x_eve_rec => x_eve_rec);
998:
999:
1000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1001: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1003: raise OKL_API.G_EXCEPTION_ERROR;
1004: END IF;
1005:
998:
999:
1000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1001: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1003: raise OKL_API.G_EXCEPTION_ERROR;
1004: END IF;
1005:
1006: --Added if condition by dcshanmu for bug 6699555
999:
1000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1001: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1003: raise OKL_API.G_EXCEPTION_ERROR;
1004: END IF;
1005:
1006: --Added if condition by dcshanmu for bug 6699555
1007: --Objects and Term Values table will not be present for source type 'NONE'
1023: x_msg_data => x_msg_data,
1024: p_eto_rec => l_eto_tbl(i),
1025: x_eto_rec => x_eto_tbl(i));
1026:
1027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1028: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1030: raise OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1024: p_eto_rec => l_eto_tbl(i),
1025: x_eto_rec => x_eto_tbl(i));
1026:
1027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1028: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1030: raise OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1032:
1025: x_eto_rec => x_eto_tbl(i));
1026:
1027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1028: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1030: raise OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1032:
1033: ELSIF (l_eto_tbl(i).END_OF_TERM_OBJ_ID is null ) THEN
1026:
1027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1028: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1030: raise OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1032:
1033: ELSIF (l_eto_tbl(i).END_OF_TERM_OBJ_ID is null ) THEN
1034:
1043: p_eto_rec => l_eto_tbl(i),
1044: x_eto_rec => x_eto_tbl(i));
1045:
1046:
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: x_eto_rec => x_eto_tbl(i));
1045:
1046:
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1045:
1046:
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: END IF;
1046:
1047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1050: raise OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: END IF;
1054: EXIT WHEN (i= l_eto_tbl.LAST);
1076: x_msg_count => x_msg_count,
1077: x_msg_data => x_msg_data,
1078: p_etv_rec => l_etv_tbl(i),
1079: x_etv_rec => x_etv_tbl(i));
1080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1081: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1083: raise OKL_API.G_EXCEPTION_ERROR;
1084: END IF;
1077: x_msg_data => x_msg_data,
1078: p_etv_rec => l_etv_tbl(i),
1079: x_etv_rec => x_etv_tbl(i));
1080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1081: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1083: raise OKL_API.G_EXCEPTION_ERROR;
1084: END IF;
1085:
1078: p_etv_rec => l_etv_tbl(i),
1079: x_etv_rec => x_etv_tbl(i));
1080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1081: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1083: raise OKL_API.G_EXCEPTION_ERROR;
1084: END IF;
1085:
1086: ELSIF (l_etv_tbl(i).END_OF_TERM_VALUE_ID is null) THEN
1079: x_etv_rec => x_etv_tbl(i));
1080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1081: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1083: raise OKL_API.G_EXCEPTION_ERROR;
1084: END IF;
1085:
1086: ELSIF (l_etv_tbl(i).END_OF_TERM_VALUE_ID is null) THEN
1087: l_etv_tbl(i).END_OF_TERM_VER_ID := x_eve_rec.END_OF_TERM_VER_ID;
1094: x_msg_data => x_msg_data,
1095: p_etv_rec => l_etv_tbl(i),
1096: x_etv_rec => x_etv_tbl(i));
1097:
1098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1101: raise OKL_API.G_EXCEPTION_ERROR;
1102: END IF;
1095: p_etv_rec => l_etv_tbl(i),
1096: x_etv_rec => x_etv_tbl(i));
1097:
1098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1101: raise OKL_API.G_EXCEPTION_ERROR;
1102: END IF;
1103:
1096: x_etv_rec => x_etv_tbl(i));
1097:
1098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1101: raise OKL_API.G_EXCEPTION_ERROR;
1102: END IF;
1103:
1104: END IF;
1097:
1098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1099: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1101: raise OKL_API.G_EXCEPTION_ERROR;
1102: END IF;
1103:
1104: END IF;
1105: EXIT WHEN (i= l_etv_tbl.LAST);
1161: x_msg_data => x_msg_data,
1162: p_ethv_rec => l_ethv_rec,
1163: x_ethv_rec => x_ethv_rec
1164: );
1165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1168: raise OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1162: p_ethv_rec => l_ethv_rec,
1163: x_ethv_rec => x_ethv_rec
1164: );
1165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1168: raise OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1163: x_ethv_rec => x_ethv_rec
1164: );
1165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1168: raise OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: -- update the version record
1164: );
1165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1168: raise OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: -- update the version record
1172: okl_eve_pvt.update_row(
1177: x_msg_data => x_msg_data,
1178: p_eve_rec => l_eve_rec,
1179: x_eve_rec => x_eve_rec);
1180:
1181: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1178: p_eve_rec => l_eve_rec,
1179: x_eve_rec => x_eve_rec);
1180:
1181: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: END IF;
1179: x_eve_rec => x_eve_rec);
1180:
1181: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: END IF;
1187:
1180:
1181: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1184: raise OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: END IF;
1187:
1188: --Added if condition by dcshanmu for bug 6699555
1204: x_msg_data => x_msg_data,
1205: p_eto_rec => l_eto_tbl(i),
1206: x_eto_rec => x_eto_tbl(i));
1207:
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1211: raise OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1205: p_eto_rec => l_eto_tbl(i),
1206: x_eto_rec => x_eto_tbl(i));
1207:
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1211: raise OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213:
1206: x_eto_rec => x_eto_tbl(i));
1207:
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1211: raise OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213:
1214: END IF;
1207:
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1211: raise OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213:
1214: END IF;
1215: END LOOP;
1217: --END IF; --Added by dcshanmu for bug 6699555 Commenting out END IF.
1218: END IF;
1219:
1220: exception
1221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1222: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1223: ( l_api_name,
1224: G_PKG_NAME,
1225: 'OKL_API.G_RET_STS_ERROR',
1218: END IF;
1219:
1220: exception
1221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1222: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1223: ( l_api_name,
1224: G_PKG_NAME,
1225: 'OKL_API.G_RET_STS_ERROR',
1226: x_msg_count,
1221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1222: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1223: ( l_api_name,
1224: G_PKG_NAME,
1225: 'OKL_API.G_RET_STS_ERROR',
1226: x_msg_count,
1227: x_msg_data,
1228: '_PVT');
1229: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1225: 'OKL_API.G_RET_STS_ERROR',
1226: x_msg_count,
1227: x_msg_data,
1228: '_PVT');
1229: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1230: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1231: ( l_api_name,
1232: G_PKG_NAME,
1233: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1226: x_msg_count,
1227: x_msg_data,
1228: '_PVT');
1229: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1230: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1231: ( l_api_name,
1232: G_PKG_NAME,
1233: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1234: x_msg_count,
1229: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1230: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1231: ( l_api_name,
1232: G_PKG_NAME,
1233: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1234: x_msg_count,
1235: x_msg_data,
1236: '_PVT');
1237:
1235: x_msg_data,
1236: '_PVT');
1237:
1238: WHEN OTHERS THEN
1239: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1240: ( l_api_name,
1241: G_PKG_NAME,
1242: 'OTHERS',
1243: x_msg_count,
1248:
1249: -- create version for the end of term option
1250: PROCEDURE create_version(
1251: p_api_version IN NUMBER,
1252: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1253: x_return_status OUT NOCOPY VARCHAR2,
1254: x_msg_count OUT NOCOPY NUMBER,
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_eve_rec IN okl_eve_rec,
1266: l_ethv_rec okl_ethv_rec;
1267: x_ethv_rec okl_ethv_rec;
1268: l_prev_ver_rec okl_eve_rec;
1269: x_prev_ver_rec okl_eve_rec;
1270: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1271: residual_type VARCHAR2(30);
1272: i NUMBER := 0;
1273: l_api_name VARCHAR2(40) := 'create_version';
1274: l_api_version NUMBER := 1.0;
1274: l_api_version NUMBER := 1.0;
1275: l_cal_eff_from DATE;
1276:
1277: BEGIN
1278: l_return_status := OKL_API.start_activity(l_api_name
1279: ,g_pkg_name
1280: ,p_init_msg_list
1281: ,l_api_version
1282: ,p_api_version
1292: x_msg_data ,
1293: l_eve_rec ,
1294: l_cal_eff_from );
1295:
1296: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1299: raise OKL_API.G_EXCEPTION_ERROR;
1300: END IF;
1293: l_eve_rec ,
1294: l_cal_eff_from );
1295:
1296: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1299: raise OKL_API.G_EXCEPTION_ERROR;
1300: END IF;
1301:
1294: l_cal_eff_from );
1295:
1296: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1299: raise OKL_API.G_EXCEPTION_ERROR;
1300: END IF;
1301:
1302: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1295:
1296: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1299: raise OKL_API.G_EXCEPTION_ERROR;
1300: END IF;
1301:
1302: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1303: RAISE INVALID_START_DATE;
1315: p_ethv_rec => l_ethv_rec,
1316: x_ethv_rec => x_ethv_rec
1317: );
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1320: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1322: raise OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1316: x_ethv_rec => x_ethv_rec
1317: );
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1320: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1322: raise OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1317: );
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1320: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1322: raise OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1325: -- insert the version record into the table
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1320: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1322: raise OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1325: -- insert the version record into the table
1326: okl_eve_pvt.insert_row(
1331: x_msg_data => x_msg_data,
1332: p_eve_rec => l_eve_rec,
1333: x_eve_rec => x_eve_rec);
1334:
1335: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1338: raise OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1332: p_eve_rec => l_eve_rec,
1333: x_eve_rec => x_eve_rec);
1334:
1335: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1338: raise OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1333: x_eve_rec => x_eve_rec);
1334:
1335: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1338: raise OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1341: --Added if condition by dcshanmu for bug 6699555
1334:
1335: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1336: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1338: raise OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1341: --Added if condition by dcshanmu for bug 6699555
1342: --Objects and Term Values table will not be present for source type 'NONE'
1361: x_msg_count => x_msg_count,
1362: x_msg_data => x_msg_data,
1363: p_eto_tbl => l_eto_tbl,
1364: x_eto_tbl => x_eto_tbl);
1365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1368: raise OKL_API.G_EXCEPTION_ERROR;
1369: END IF;
1362: x_msg_data => x_msg_data,
1363: p_eto_tbl => l_eto_tbl,
1364: x_eto_tbl => x_eto_tbl);
1365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1368: raise OKL_API.G_EXCEPTION_ERROR;
1369: END IF;
1370:
1363: p_eto_tbl => l_eto_tbl,
1364: x_eto_tbl => x_eto_tbl);
1365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1368: raise OKL_API.G_EXCEPTION_ERROR;
1369: END IF;
1370:
1371: -- populate the foreign key for the values table
1364: x_eto_tbl => x_eto_tbl);
1365: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1368: raise OKL_API.G_EXCEPTION_ERROR;
1369: END IF;
1370:
1371: -- populate the foreign key for the values table
1372: IF (l_etv_tbl.COUNT > 0) then
1393: x_msg_data => x_msg_data,
1394: p_etv_tbl => l_etv_tbl,
1395: x_etv_tbl => x_etv_tbl);
1396:
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1400: raise OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1394: p_etv_tbl => l_etv_tbl,
1395: x_etv_tbl => x_etv_tbl);
1396:
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1400: raise OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402:
1395: x_etv_tbl => x_etv_tbl);
1396:
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1400: raise OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402:
1403: END IF; --Added by dcshanmu for bug 6699555
1396:
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1400: raise OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402:
1403: END IF; --Added by dcshanmu for bug 6699555
1404:
1403: END IF; --Added by dcshanmu for bug 6699555
1404:
1405: exception
1406: WHEN INVALID_START_DATE THEN
1407: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1408: p_msg_name => 'OKL_INVALID_EFF_FROM',
1409: p_token1 => 'DATE',
1410: p_token1_value => l_cal_eff_from);
1411: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1407: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1408: p_msg_name => 'OKL_INVALID_EFF_FROM',
1409: p_token1 => 'DATE',
1410: p_token1_value => l_cal_eff_from);
1411: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1412: ( l_api_name,
1413: G_PKG_NAME,
1414: 'OKL_API.G_RET_STS_ERROR',
1415: x_msg_count,
1410: p_token1_value => l_cal_eff_from);
1411: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1412: ( l_api_name,
1413: G_PKG_NAME,
1414: 'OKL_API.G_RET_STS_ERROR',
1415: x_msg_count,
1416: x_msg_data,
1417: '_PVT');
1418:
1415: x_msg_count,
1416: x_msg_data,
1417: '_PVT');
1418:
1419: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1421: ( l_api_name,
1422: G_PKG_NAME,
1423: 'OKL_API.G_RET_STS_ERROR',
1416: x_msg_data,
1417: '_PVT');
1418:
1419: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1421: ( l_api_name,
1422: G_PKG_NAME,
1423: 'OKL_API.G_RET_STS_ERROR',
1424: x_msg_count,
1419: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1421: ( l_api_name,
1422: G_PKG_NAME,
1423: 'OKL_API.G_RET_STS_ERROR',
1424: x_msg_count,
1425: x_msg_data,
1426: '_PVT');
1427: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1423: 'OKL_API.G_RET_STS_ERROR',
1424: x_msg_count,
1425: x_msg_data,
1426: '_PVT');
1427: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1428: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1429: ( l_api_name,
1430: G_PKG_NAME,
1431: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1424: x_msg_count,
1425: x_msg_data,
1426: '_PVT');
1427: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1428: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1429: ( l_api_name,
1430: G_PKG_NAME,
1431: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1432: x_msg_count,
1427: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1428: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1429: ( l_api_name,
1430: G_PKG_NAME,
1431: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1432: x_msg_count,
1433: x_msg_data,
1434: '_PVT');
1435: WHEN OTHERS THEN
1432: x_msg_count,
1433: x_msg_data,
1434: '_PVT');
1435: WHEN OTHERS THEN
1436: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1437: ( l_api_name,
1438: G_PKG_NAME,
1439: 'OTHERS',
1440: x_msg_count,
1443: END create_version;
1444:
1445: PROCEDURE validate_end_of_term_option(
1446: p_api_version IN NUMBER,
1447: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1448: x_return_status OUT NOCOPY VARCHAR2,
1449: x_msg_count OUT NOCOPY NUMBER,
1450: x_msg_data OUT NOCOPY VARCHAR2,
1451: p_end_of_ver_id IN NUMBER
1517: WHEN OTHERS THEN
1518: IF (repeat_csr%ISOPEN) then
1519: CLOSE repeat_csr;
1520: END IF;
1521: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1522: ( l_api_name,
1523: G_PKG_NAME,
1524: 'OTHERS',
1525: x_msg_count,
1528: END validate_end_of_term_option;
1529:
1530: PROCEDURE handle_approval(
1531: p_api_version IN NUMBER,
1532: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1533: x_return_status OUT NOCOPY VARCHAR2,
1534: x_msg_count OUT NOCOPY NUMBER,
1535: x_msg_data OUT NOCOPY VARCHAR2,
1536: p_end_of_term_ver_id IN NUMBER) AS
1535: x_msg_data OUT NOCOPY VARCHAR2,
1536: p_end_of_term_ver_id IN NUMBER) AS
1537: cal_end_date DATE;
1538: l_eve_rec okl_eve_rec ;
1539: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_ERROR;
1540: x_eve_rec okl_eve_rec;
1541: l_ethv_rec okl_ethv_rec;
1542: x_ethv_rec okl_ethv_rec;
1543: l_eff_from DATE;
1568: EFFECTIVE_TO_DATE FROM okl_fe_eo_term_vers
1569: WHERE END_OF_TERM_ID=p_eot_id and VERSION_NUMBER = p_version_number;
1570:
1571: BEGIN
1572: l_return_status := OKL_API.start_activity(l_api_name
1573: ,g_pkg_name
1574: ,p_init_msg_list
1575: ,l_api_version
1576: ,p_api_version
1576: ,p_api_version
1577: ,'_PVT'
1578: ,x_return_status);
1579:
1580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1581: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1583: raise OKL_API.G_EXCEPTION_ERROR;
1584: END IF;
1577: ,'_PVT'
1578: ,x_return_status);
1579:
1580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1581: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1583: raise OKL_API.G_EXCEPTION_ERROR;
1584: END IF;
1585:
1578: ,x_return_status);
1579:
1580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1581: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1583: raise OKL_API.G_EXCEPTION_ERROR;
1584: END IF;
1585:
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1579:
1580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1581: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1583: raise OKL_API.G_EXCEPTION_ERROR;
1584: END IF;
1585:
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1583: raise OKL_API.G_EXCEPTION_ERROR;
1584: END IF;
1585:
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1588: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1590: raise OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1584: END IF;
1585:
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1588: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1590: raise OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1585:
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1588: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1590: raise OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1593: -- fetch thte details of the versions record and populate them into versions record
1586: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1588: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1590: raise OKL_API.G_EXCEPTION_ERROR;
1591: END IF;
1592:
1593: -- fetch thte details of the versions record and populate them into versions record
1594: OPEN eot_versions_csr(p_end_of_term_ver_id);
1604:
1605: IF (l_eff_to is not null) THEN
1606: l_eve_rec.EFFECTIVE_TO_DATE:=l_eff_to;
1607: ELSE
1608: l_eve_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1609: END IF;
1610:
1611: IF (l_eve_rec.VERSION_NUMBER >1 ) THEN
1612: calculate_start_date(
1617: x_msg_data ,
1618: l_eve_rec ,
1619: l_cal_eff_from );
1620:
1621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1618: l_eve_rec ,
1619: l_cal_eff_from );
1620:
1621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1619: l_cal_eff_from );
1620:
1621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1627: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1620:
1621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1622: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1624: raise OKL_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1627: IF (l_eve_rec.effective_from_date < l_cal_eff_from ) THEN
1628: RAISE INVALID_START_DATE;
1644: x_msg_data => x_msg_data,
1645: p_version_id => l_prev_ver_id,
1646: x_obj_tbl => x_obj_tbl
1647: );
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1651: raise OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1645: p_version_id => l_prev_ver_id,
1646: x_obj_tbl => x_obj_tbl
1647: );
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1651: raise OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1646: x_obj_tbl => x_obj_tbl
1647: );
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1651: raise OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1654: IF (x_obj_tbl.COUNT >0) THEN
1647: );
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1651: raise OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1654: IF (x_obj_tbl.COUNT >0) THEN
1655: FOR i IN x_obj_tbl.FIRST..x_obj_tbl.LAST LOOP
1666: ,l_prev_eve_rec.effective_to_date
1667: );
1668: END IF;
1669:
1670: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1673: raise OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1667: );
1668: END IF;
1669:
1670: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1673: raise OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1675:
1668: END IF;
1669:
1670: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1673: raise OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1675:
1676: -- update the previous version record
1669:
1670: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1673: raise OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1675:
1676: -- update the previous version record
1677: okl_eve_pvt.update_row(
1682: x_msg_data => x_msg_data,
1683: p_eve_rec => l_prev_eve_rec,
1684: x_eve_rec => x_prev_eve_rec);
1685:
1686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1689: raise OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1683: p_eve_rec => l_prev_eve_rec,
1684: x_eve_rec => x_prev_eve_rec);
1685:
1686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1689: raise OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1684: x_eve_rec => x_prev_eve_rec);
1685:
1686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1689: raise OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1692: END IF;
1685:
1686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1689: raise OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1692: END IF;
1693:
1700: x_msg_data => x_msg_data,
1701: p_eve_rec => l_eve_rec,
1702: x_eve_rec => x_eve_rec);
1703:
1704: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1705: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1706: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1707: raise OKL_API.G_EXCEPTION_ERROR;
1708: END IF;
1701: p_eve_rec => l_eve_rec,
1702: x_eve_rec => x_eve_rec);
1703:
1704: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1705: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1706: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1707: raise OKL_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: -- change the status in the header record also as active for search purcpose only
1702: x_eve_rec => x_eve_rec);
1703:
1704: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1705: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1706: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1707: raise OKL_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: -- change the status in the header record also as active for search purcpose only
1710: l_ethv_rec.sts_code:= 'ACTIVE';
1703:
1704: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1705: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1706: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1707: raise OKL_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: -- change the status in the header record also as active for search purcpose only
1710: l_ethv_rec.sts_code:= 'ACTIVE';
1711: l_ethv_rec.end_of_term_id := x_eve_rec.end_of_term_id;
1712:
1713: IF (l_eve_rec.EFFECTIVE_TO_DATE is not null) THEN
1714: l_ethv_rec.EFFECTIVE_TO_DATE :=x_eve_rec.EFFECTIVE_TO_DATE;
1715: ELSE
1716: l_ethv_rec.EFFECTIVE_TO_DATE :=OKL_API.G_MISS_DATE;
1717: END IF;
1718: okl_eth_pvt.update_row(
1719: p_api_version => p_api_version,
1720: p_init_msg_list => p_init_msg_list,
1723: x_msg_data => x_msg_data,
1724: p_ethv_rec => l_ethv_rec,
1725: x_ethv_rec => x_ethv_rec
1726: );
1727: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1728: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1730: raise OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1724: p_ethv_rec => l_ethv_rec,
1725: x_ethv_rec => x_ethv_rec
1726: );
1727: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1728: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1730: raise OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1725: x_ethv_rec => x_ethv_rec
1726: );
1727: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1728: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1730: raise OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: -- make the change to the previous 0.
1726: );
1727: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1728: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1730: raise OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: -- make the change to the previous 0.
1734:
1732:
1733: -- make the change to the previous 0.
1734:
1735: exception
1736: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1737: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1738: ( l_api_name,
1739: G_PKG_NAME,
1740: 'OKL_API.G_RET_STS_ERROR',
1733: -- make the change to the previous 0.
1734:
1735: exception
1736: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1737: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1738: ( l_api_name,
1739: G_PKG_NAME,
1740: 'OKL_API.G_RET_STS_ERROR',
1741: x_msg_count,
1736: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1737: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1738: ( l_api_name,
1739: G_PKG_NAME,
1740: 'OKL_API.G_RET_STS_ERROR',
1741: x_msg_count,
1742: x_msg_data,
1743: '_PVT');
1744: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1740: 'OKL_API.G_RET_STS_ERROR',
1741: x_msg_count,
1742: x_msg_data,
1743: '_PVT');
1744: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1745: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1746: ( l_api_name,
1747: G_PKG_NAME,
1748: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1741: x_msg_count,
1742: x_msg_data,
1743: '_PVT');
1744: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1745: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1746: ( l_api_name,
1747: G_PKG_NAME,
1748: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1749: x_msg_count,
1744: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1745: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1746: ( l_api_name,
1747: G_PKG_NAME,
1748: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1749: x_msg_count,
1750: x_msg_data,
1751: '_PVT');
1752:
1750: x_msg_data,
1751: '_PVT');
1752:
1753: WHEN OTHERS THEN
1754: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1755: ( l_api_name,
1756: G_PKG_NAME,
1757: 'OTHERS',
1758: x_msg_count,
1762:
1763: END handle_approval;
1764: PROCEDURE INVALID_OBJECTS(
1765: p_api_version IN NUMBER,
1766: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1767: x_return_status OUT NOCOPY VARCHAR2,
1768: x_msg_count OUT NOCOPY NUMBER,
1769: x_msg_data OUT NOCOPY VARCHAR2,
1770: p_version_id IN NUMBER,
1781: l_version_id NUMBER :=p_version_id;
1782: i NUMBER:=1;
1783: l_api_version NUMBER := 1.0;
1784: l_api_name VARCHAR2(40):='invalid_objects';
1785: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
1786:
1787: BEGIN
1788:
1789: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1785: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
1786:
1787: BEGIN
1788:
1789: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1790: G_PKG_NAME,
1791: p_init_msg_list,
1792: l_api_version,
1793: p_api_version,
1793: p_api_version,
1794: '_PVT',
1795: x_return_status);
1796:
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1794: '_PVT',
1795: x_return_status);
1796:
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802:
1795: x_return_status);
1796:
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802:
1803: FOR lrs_invalid_record IN lrs_invalids_csr(p_version_id) LOOP
1796:
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802:
1803: FOR lrs_invalid_record IN lrs_invalids_csr(p_version_id) LOOP
1804: x_obj_tbl(i).obj_id :=lrs_invalid_record.id;
1808: i:=i+1;
1809: END LOOP;
1810:
1811: --end activity
1812: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1813: x_return_status := l_return_status;
1814:
1815:
1816: EXCEPTION
1813: x_return_status := l_return_status;
1814:
1815:
1816: EXCEPTION
1817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,
1814:
1815:
1816: EXCEPTION
1817: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,
1822: 'OKL_API.G_RET_STS_ERROR',
1818: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1819: (
1820: l_api_name,
1821: G_PKG_NAME,
1822: 'OKL_API.G_RET_STS_ERROR',
1823: x_msg_count,
1824: x_msg_data,
1825: '_PVT'
1826: );
1824: x_msg_data,
1825: '_PVT'
1826: );
1827:
1828: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1825: '_PVT'
1826: );
1827:
1828: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1836: '_PVT'
1837: );
1838:
1839: WHEN OTHERS THEN
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OTHERS',
1850: END INVALID_OBJECTS;
1851:
1852: PROCEDURE submit_end_of_term(
1853: p_api_version IN NUMBER,
1854: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1855: x_return_status OUT NOCOPY VARCHAR2,
1856: x_msg_count OUT NOCOPY NUMBER,
1857: x_msg_data OUT NOCOPY VARCHAR2,
1858: p_end_of_term_ver_id IN NUMBER) AS
1861: x_eve_rec okl_eve_rec;
1862: l_api_version NUMBER := 1.0;
1863: l_api_name VARCHAR2(40):='submit_end_of_term';
1864: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
1865: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1866: l_parameter_list wf_parameter_list_t;
1867: p_event_name varchar2(240):='oracle.apps.okl.fe.eotapproval';
1868: l_profile_value varchar2(30);
1869:
1893: CURSOR get_source_type(p_eot_id IN NUMBER)IS
1894: SELECT EOT_TYPE_CODE
1895: FROM OKL_FE_EO_TERMS_V where end_of_term_id= p_eot_id;
1896: BEGIN
1897: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1898: G_PKG_NAME,
1899: l_init_msg_list,
1900: l_api_version,
1901: p_api_version,
1901: p_api_version,
1902: '_PVT',
1903: x_return_status);
1904:
1905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1908: RAISE OKL_API.G_EXCEPTION_ERROR;
1909: END IF;
1902: '_PVT',
1903: x_return_status);
1904:
1905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1908: RAISE OKL_API.G_EXCEPTION_ERROR;
1909: END IF;
1910:
1903: x_return_status);
1904:
1905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1908: RAISE OKL_API.G_EXCEPTION_ERROR;
1909: END IF;
1910:
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1904:
1905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1908: RAISE OKL_API.G_EXCEPTION_ERROR;
1909: END IF;
1910:
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1908: RAISE OKL_API.G_EXCEPTION_ERROR;
1909: END IF;
1910:
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1915: raise OKL_API.G_EXCEPTION_ERROR;
1916: END IF;
1909: END IF;
1910:
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1915: raise OKL_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: OPEN get_eot_id(p_end_of_term_ver_id);
1910:
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1915: raise OKL_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: OPEN get_eot_id(p_end_of_term_ver_id);
1918: FETCH get_eot_id INTO l_eot_id;
1911: l_return_status := val_avail_item_residual(p_end_of_term_ver_id);
1912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
1915: raise OKL_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: OPEN get_eot_id(p_end_of_term_ver_id);
1918: FETCH get_eot_id INTO l_eot_id;
1919: CLOSE get_eot_id;
1926: OPEN check_active_resi_cat_sets(l_eot_id,'ACTIVE');
1927: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1928: IF check_active_resi_cat_sets%FOUND THEN
1929: LOOP
1930: OKL_API.set_message(p_app_name => G_APP_NAME,
1931: p_msg_name => 'OKL_RCS_STS_INACTIVE',
1932: p_token1 => OKL_API.G_COL_NAME_TOKEN,
1933: p_token1_value => l_rcs_rec.name);
1934: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1928: IF check_active_resi_cat_sets%FOUND THEN
1929: LOOP
1930: OKL_API.set_message(p_app_name => G_APP_NAME,
1931: p_msg_name => 'OKL_RCS_STS_INACTIVE',
1932: p_token1 => OKL_API.G_COL_NAME_TOKEN,
1933: p_token1_value => l_rcs_rec.name);
1934: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1935: EXIT WHEN check_active_resi_cat_sets%NOTFOUND;
1936: END LOOP;
1933: p_token1_value => l_rcs_rec.name);
1934: FETCH check_active_resi_cat_sets INTO l_rcs_rec;
1935: EXIT WHEN check_active_resi_cat_sets%NOTFOUND;
1936: END LOOP;
1937: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: END IF;
1939: CLOSE check_active_resi_cat_sets;
1940: END IF;
1941:
1949: ,x_msg_data
1950: ,l_eve_rec
1951: ,x_eve_rec);
1952:
1953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_ERROR;
1957: END IF;
1950: ,l_eve_rec
1951: ,x_eve_rec);
1952:
1953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_ERROR;
1957: END IF;
1958: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1951: ,x_eve_rec);
1952:
1953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_ERROR;
1957: END IF;
1958: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1959:
1952:
1953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_ERROR;
1957: END IF;
1958: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1959:
1960: IF (nvl(l_profile_value,'NONE') = 'NONE') THEN
1967: x_msg_data => x_msg_data,
1968: p_end_of_term_ver_id => p_end_of_term_ver_id
1969: );
1970:
1971: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1968: p_end_of_term_ver_id => p_end_of_term_ver_id
1969: );
1970:
1971: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1976: ELSE
1969: );
1970:
1971: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1976: ELSE
1977: -- raise the business event passing the version id added to the parameter list
1970:
1971: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1976: ELSE
1977: -- raise the business event passing the version id added to the parameter list
1978: wf_event.AddParameterToList('VERSION_ID',p_end_of_term_ver_id,l_parameter_list);
1991: END IF;
1992:
1993:
1994: --end activity
1995: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1996: x_return_status := l_return_status;
1997:
1998: EXCEPTION
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1995: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1996: x_return_status := l_return_status;
1997:
1998: EXCEPTION
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
1996: x_return_status := l_return_status;
1997:
1998: EXCEPTION
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKL_API.G_RET_STS_ERROR',
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKL_API.G_RET_STS_ERROR',
2005: x_msg_count,
2006: x_msg_data,
2007: '_PVT'
2008: );
2006: x_msg_data,
2007: '_PVT'
2008: );
2009:
2010: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2007: '_PVT'
2008: );
2009:
2010: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2016: x_msg_count,
2017: x_msg_data,
2018: '_PVT'
2019: );
2018: '_PVT'
2019: );
2020:
2021: WHEN OTHERS THEN
2022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2023: (
2024: l_api_name,
2025: G_PKG_NAME,
2026: 'OTHERS',