2: /* $Header: OKLRKLRB.pls 120.4 2008/04/22 14:07:35 nikshah ship $ */
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'NO_PARENT_RECORD';
25: -----------------------------------------------------------------------------------
26: -- GLOBAL VARIABLES
27: -----------------------------------------------------------------------------------
28: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CS_LEASE_RENEWAL';
29: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
30:
31: subtype khrv_rec_type IS OKL_CONTRACT_PUB.khrv_rec_type;
32: subtype chrv_rec_type IS OKL_OKC_MIGRATION_PVT.chrv_rec_type;
33: TYPE kle_rec_type IS RECORD (
327: x_chrv_rec.LAST_UPDATED_BY,
328: x_chrv_rec.LAST_UPDATE_DATE,
329: x_chrv_rec.LAST_UPDATE_LOGIN;
330: IF okc_chrv_pk_csr%NOTFOUND THEN
331: x_return_status := OKL_API.G_RET_STS_ERROR;
332: END IF;
333: CLOSE okc_chrv_pk_csr;
334: RETURN(x_chrv_rec);
335: EXCEPTION
334: RETURN(x_chrv_rec);
335: EXCEPTION
336: WHEN OTHERS THEN
337: -- store SQL error message on message stack for caller
338: OKL_API.set_message(
339: G_APP_NAME,
340: G_UNEXPECTED_ERROR,
341: 'SQLcode',
342: SQLCODE,
342: SQLCODE,
343: 'SQLerrm',
344: SQLERRM);
345: -- notify caller of an UNEXPECTED error
346: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
347: -- if the cursor is open
348: IF okc_chrv_pk_csr%ISOPEN THEN
349: CLOSE okc_chrv_pk_csr;
350: END IF;
422: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
423: l_khrv_rec khrv_rec_type;
424: BEGIN
425:
426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
427: -- Get current database values
428: OPEN okl_k_headers_v_pk_csr (p_khr_id);
429: FETCH okl_k_headers_v_pk_csr INTO
430: l_khrv_rec.ID,
485: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
486: l_khrv_rec.REVOLVING_CREDIT_YN
487: ;
488: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
489: x_return_status := OKL_API.G_RET_STS_ERROR;
490: END IF;
491: CLOSE okl_k_headers_v_pk_csr;
492: RETURN(l_khrv_rec);
493: EXCEPTION
492: RETURN(l_khrv_rec);
493: EXCEPTION
494: WHEN OTHERS THEN
495: -- store SQL error message on message stack for caller
496: OKL_API.set_message(
497: G_APP_NAME,
498: G_UNEXPECTED_ERROR,
499: 'SQLcode',
500: SQLCODE,
504: -- if the cursor is open
505: IF okl_k_headers_v_pk_csr%ISOPEN THEN
506: CLOSE okl_k_headers_v_pk_csr;
507: END IF;
508: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
509: END get_khrv_rec;
510:
511: PROCEDURE create_working_copy(
512: p_api_version IN NUMBER,
509: END get_khrv_rec;
510:
511: PROCEDURE create_working_copy(
512: p_api_version IN NUMBER,
513: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
514: p_commit IN VARCHAR2 := OKL_API.G_FALSE,
515: x_return_status OUT NOCOPY VARCHAR2,
516: x_msg_count OUT NOCOPY NUMBER,
517: x_msg_data OUT NOCOPY VARCHAR2,
510:
511: PROCEDURE create_working_copy(
512: p_api_version IN NUMBER,
513: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
514: p_commit IN VARCHAR2 := OKL_API.G_FALSE,
515: x_return_status OUT NOCOPY VARCHAR2,
516: x_msg_count OUT NOCOPY NUMBER,
517: x_msg_data OUT NOCOPY VARCHAR2,
518: p_chr_id IN NUMBER,
536:
537:
538: BEGIN
539:
540: x_return_status := OKL_API.G_RET_STS_SUCCESS;
541:
542: --Call start_activity to create savepoint, check compatibility and initialize message list
543:
544: x_return_status := OKL_API.START_ACTIVITY(
540: x_return_status := OKL_API.G_RET_STS_SUCCESS;
541:
542: --Call start_activity to create savepoint, check compatibility and initialize message list
543:
544: x_return_status := OKL_API.START_ACTIVITY(
545: l_api_name
546: ,p_init_msg_list
547: ,'_PVT'
548: ,x_return_status);
548: ,x_return_status);
549:
550: --Check if activity started successfully
551:
552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_ERROR;
556: END IF;
549:
550: --Check if activity started successfully
551:
552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_ERROR;
556: END IF;
557:
550: --Check if activity started successfully
551:
552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_ERROR;
556: END IF;
557:
558: --Create the working copy here....
551:
552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_ERROR;
556: END IF;
557:
558: --Create the working copy here....
559:
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
618:
619: --**********************************************************
620: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
622: if p_commit= OKC_API.G_TRUE then
623: commit;
624: end if;
679: l_khrv_rec := get_khrv_rec(
680: p_khr_id => p_working_copy_chr_id,
681: x_return_status => x_return_status
682: );
683: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
684: RAISE update_failed;
685: END IF;
686:
687: l_chrv_rec := get_chrv_rec(
687: l_chrv_rec := get_chrv_rec(
688: p_chr_id => p_working_copy_chr_id,
689: x_return_status => x_return_status
690: );
691: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
692: RAISE update_failed;
693: END IF;
694:
695:
764: l_line_count NUMBER:=0;
765:
766: BEGIN
767:
768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
769:
770: --Should i calculate the new Residual Percentage?
771:
772: FOR kle_rec in kle_id_csr(p_chr_id)
828:
829: --*****************************************************88
830: PROCEDURE calculate(
831: p_api_version IN NUMBER,
832: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
833: x_return_status OUT NOCOPY VARCHAR2,
834: x_msg_count OUT NOCOPY NUMBER,
835: x_msg_data OUT NOCOPY VARCHAR2,
836: p_trqv_tbl IN okl_trx_requests_pub.trqv_tbl_type,
864: FROM OKL_TRX_REQUESTS
865: WHERE ID = p_req_id;
866:
867: BEGIN
868: x_return_status := OKL_API.G_RET_STS_SUCCESS;
869:
870: --Call start_activity to create savepoint, check compatibility and initialize message list
871:
872: x_return_status := OKL_API.START_ACTIVITY(
868: x_return_status := OKL_API.G_RET_STS_SUCCESS;
869:
870: --Call start_activity to create savepoint, check compatibility and initialize message list
871:
872: x_return_status := OKL_API.START_ACTIVITY(
873: l_api_name
874: ,p_init_msg_list
875: ,'_PVT'
876: ,x_return_status);
876: ,x_return_status);
877:
878: --Check if activity started successfully
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
877:
878: --Check if activity started successfully
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: IF p_trqv_tbl(1).id IS NULL THEN
878: --Check if activity started successfully
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: IF p_trqv_tbl(1).id IS NULL THEN
886: -- Call the public API for insertion here.
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: IF p_trqv_tbl(1).id IS NULL THEN
886: -- Call the public API for insertion here.
887: okl_trx_requests_pub.insert_trx_requests(
893: p_trqv_tbl => p_trqv_tbl,
894: x_trqv_tbl => x_trqv_tbl);
895:
896:
897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
894: x_trqv_tbl => x_trqv_tbl);
895:
896:
897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
902: ELSE
895:
896:
897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
902: ELSE
903: l_upd_trqv_tbl := p_trqv_tbl;
896:
897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
902: ELSE
903: l_upd_trqv_tbl := p_trqv_tbl;
904:
915: x_msg_data => x_msg_data,
916: p_trqv_tbl => l_upd_trqv_tbl,
917: x_trqv_tbl => x_trqv_tbl);
918:
919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
922: RAISE OKL_API.G_EXCEPTION_ERROR;
923: END IF;
916: p_trqv_tbl => l_upd_trqv_tbl,
917: x_trqv_tbl => x_trqv_tbl);
918:
919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
922: RAISE OKL_API.G_EXCEPTION_ERROR;
923: END IF;
924: END IF;
917: x_trqv_tbl => x_trqv_tbl);
918:
919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
922: RAISE OKL_API.G_EXCEPTION_ERROR;
923: END IF;
924: END IF;
925:
918:
919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
922: RAISE OKL_API.G_EXCEPTION_ERROR;
923: END IF;
924: END IF;
925:
926: p_chr_id := p_trqv_tbl(1).dnz_khr_id;
962: x_req_stream_types_tbl => l_req_stream_types_tbl,
963: x_csm_line_details_tbl => l_csm_line_details_tbl,
964: x_rents_tbl => l_rents_tbl);
965:
966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
969: RAISE OKL_API.G_EXCEPTION_ERROR;
970: END IF;
963: x_csm_line_details_tbl => l_csm_line_details_tbl,
964: x_rents_tbl => l_rents_tbl);
965:
966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
969: RAISE OKL_API.G_EXCEPTION_ERROR;
970: END IF;
971: --Fine tune the params
964: x_rents_tbl => l_rents_tbl);
965:
966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
969: RAISE OKL_API.G_EXCEPTION_ERROR;
970: END IF;
971: --Fine tune the params
972: --x_csm_lease_header
965:
966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
969: RAISE OKL_API.G_EXCEPTION_ERROR;
970: END IF;
971: --Fine tune the params
972: --x_csm_lease_header
973: l_csm_lease_header.jtot_object1_code := 'OKL_TRX_REQUESTS';
1034: p_rents_tbl => l_rents_tbl,
1035: x_trans_id => l_trans_id,
1036: x_trans_status => l_trans_status);
1037:
1038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_ERROR;
1042: END IF;
1035: x_trans_id => l_trans_id,
1036: x_trans_status => l_trans_status);
1037:
1038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_ERROR;
1042: END IF;
1043:
1036: x_trans_status => l_trans_status);
1037:
1038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_ERROR;
1042: END IF;
1043:
1044: OPEN c_get_req_details(x_trqv_tbl(1).id);
1037:
1038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_ERROR;
1042: END IF;
1043:
1044: OPEN c_get_req_details(x_trqv_tbl(1).id);
1045: FETCH c_get_req_details INTO l_object_version_number, l_request_status_code;
1064: x_msg_data => x_msg_data,
1065: p_trqv_tbl => l_trqv_tbl,
1066: x_trqv_tbl => x_trqv_tbl);
1067:
1068: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1065: p_trqv_tbl => l_trqv_tbl,
1066: x_trqv_tbl => x_trqv_tbl);
1067:
1068: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1066: x_trqv_tbl => x_trqv_tbl);
1067:
1068: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1074: --Bug # 6595451 ssdeshpa start
1067:
1068: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1074: --Bug # 6595451 ssdeshpa start
1075: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1071: RAISE OKL_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1074: --Bug # 6595451 ssdeshpa start
1075: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1076: ,x_msg_data => x_msg_data);
1077: --Bug # 6595451 ssdeshpa End
1078:
1079: EXCEPTION
1076: ,x_msg_data => x_msg_data);
1077: --Bug # 6595451 ssdeshpa End
1078:
1079: EXCEPTION
1080: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1081: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1082: l_api_name,
1083: G_PKG_NAME,
1084: 'OKL_API.G_RET_STS_ERROR',
1077: --Bug # 6595451 ssdeshpa End
1078:
1079: EXCEPTION
1080: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1081: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1082: l_api_name,
1083: G_PKG_NAME,
1084: 'OKL_API.G_RET_STS_ERROR',
1085: x_msg_count,
1080: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1081: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1082: l_api_name,
1083: G_PKG_NAME,
1084: 'OKL_API.G_RET_STS_ERROR',
1085: x_msg_count,
1086: x_msg_data,
1087: '_PVT');
1088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1084: 'OKL_API.G_RET_STS_ERROR',
1085: x_msg_count,
1086: x_msg_data,
1087: '_PVT');
1088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1089: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1090: l_api_name,
1091: G_PKG_NAME,
1092: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1085: x_msg_count,
1086: x_msg_data,
1087: '_PVT');
1088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1089: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1090: l_api_name,
1091: G_PKG_NAME,
1092: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1093: x_msg_count,
1088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1089: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1090: l_api_name,
1091: G_PKG_NAME,
1092: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1093: x_msg_count,
1094: x_msg_data,
1095: '_PVT');
1096: WHEN OTHERS THEN
1093: x_msg_count,
1094: x_msg_data,
1095: '_PVT');
1096: WHEN OTHERS THEN
1097: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1098: l_api_name,
1099: G_PKG_NAME,
1100: 'OTHERS',
1101: x_msg_count,
1125: WHERE id=a_id;
1126:
1127: BEGIN
1128:
1129: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1130:
1131: --Call start_activity to create savepoint, check compatibility and initialize message list
1132:
1133: x_return_status := OKL_API.START_ACTIVITY(
1129: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1130:
1131: --Call start_activity to create savepoint, check compatibility and initialize message list
1132:
1133: x_return_status := OKL_API.START_ACTIVITY(
1134: l_api_name
1135: ,p_init_msg_list
1136: ,'_PVT'
1137: ,x_return_status);
1137: ,x_return_status);
1138:
1139: --Check if activity started successfully
1140:
1141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1144: RAISE OKL_API.G_EXCEPTION_ERROR;
1145: END IF;
1138:
1139: --Check if activity started successfully
1140:
1141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1144: RAISE OKL_API.G_EXCEPTION_ERROR;
1145: END IF;
1146:
1139: --Check if activity started successfully
1140:
1141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1144: RAISE OKL_API.G_EXCEPTION_ERROR;
1145: END IF;
1146:
1147: OPEN c_obj_vers_csr(l_trqv_rec.id);
1140:
1141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1143: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1144: RAISE OKL_API.G_EXCEPTION_ERROR;
1145: END IF;
1146:
1147: OPEN c_obj_vers_csr(l_trqv_rec.id);
1148: FETCH c_obj_vers_csr INTO l_trqv_rec.object_Version_number;
1170: p_trqv_rec => l_trqv_rec,
1171: x_trqv_rec => x_trqv_rec);
1172:
1173:
1174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1171: x_trqv_rec => x_trqv_rec);
1172:
1173:
1174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179:
1172:
1173:
1174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179:
1180: EXCEPTION
1173:
1174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179:
1180: EXCEPTION
1181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179:
1180: EXCEPTION
1181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1183: l_api_name,
1184: G_PKG_NAME,
1185: 'OKL_API.G_RET_STS_ERROR',
1178: END IF;
1179:
1180: EXCEPTION
1181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1183: l_api_name,
1184: G_PKG_NAME,
1185: 'OKL_API.G_RET_STS_ERROR',
1186: x_msg_count,
1181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1183: l_api_name,
1184: G_PKG_NAME,
1185: 'OKL_API.G_RET_STS_ERROR',
1186: x_msg_count,
1187: x_msg_data,
1188: '_PVT');
1189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1185: 'OKL_API.G_RET_STS_ERROR',
1186: x_msg_count,
1187: x_msg_data,
1188: '_PVT');
1189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1191: l_api_name,
1192: G_PKG_NAME,
1193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1186: x_msg_count,
1187: x_msg_data,
1188: '_PVT');
1189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1191: l_api_name,
1192: G_PKG_NAME,
1193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1194: x_msg_count,
1189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1191: l_api_name,
1192: G_PKG_NAME,
1193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1194: x_msg_count,
1195: x_msg_data,
1196: '_PVT');
1197: WHEN OTHERS THEN
1194: x_msg_count,
1195: x_msg_data,
1196: '_PVT');
1197: WHEN OTHERS THEN
1198: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1199: l_api_name,
1200: G_PKG_NAME,
1201: 'OTHERS',
1202: x_msg_count,