617: )
618: AS
619: l_api_name VARCHAR2(30) := 'OKL_GL_TRANSFER_CON';
620: l_api_version NUMBER := 1.0;
621: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
622: l_from_date VARCHAR2(20) ;
623: l_to_date VARCHAR2(20) ;
624:
625: BEGIN
623: l_to_date VARCHAR2(20) ;
624:
625: BEGIN
626:
627: x_return_status := OKL_API.G_RET_STS_SUCCESS;
628:
629: l_return_status := OKL_API.start_activity(l_api_name
630: ,G_PKG_NAME
631: ,p_init_msg_list
625: BEGIN
626:
627: x_return_status := OKL_API.G_RET_STS_SUCCESS;
628:
629: l_return_status := OKL_API.start_activity(l_api_name
630: ,G_PKG_NAME
631: ,p_init_msg_list
632: ,l_api_version
633: ,l_api_version
633: ,l_api_version
634: ,'_PVT'
635: ,x_return_status);
636:
637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
634: ,'_PVT'
635: ,x_return_status);
636:
637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
635: ,x_return_status);
636:
637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
643: -- Added these validations to make sure the values are passed
636:
637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
643: -- Added these validations to make sure the values are passed
644: -- Added by Saran on 28, Jan 2002
643: -- Added these validations to make sure the values are passed
644: -- Added by Saran on 28, Jan 2002
645:
646: -- check for period name before submitting the request.
647: IF (p_to_date IS NULL) OR (p_to_date = Okl_Api.G_MISS_DATE) THEN
648: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'To Date');
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
644: -- Added by Saran on 28, Jan 2002
645:
646: -- check for period name before submitting the request.
647: IF (p_to_date IS NULL) OR (p_to_date = Okl_Api.G_MISS_DATE) THEN
648: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'To Date');
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
652: -- check for validate account before submitting the request.
645:
646: -- check for period name before submitting the request.
647: IF (p_to_date IS NULL) OR (p_to_date = Okl_Api.G_MISS_DATE) THEN
648: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'To Date');
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
652: -- check for validate account before submitting the request.
653: IF (p_validate_account IS NULL) OR (p_validate_account = Okl_Api.G_MISS_CHAR) THEN
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
652: -- check for validate account before submitting the request.
653: IF (p_validate_account IS NULL) OR (p_validate_account = Okl_Api.G_MISS_CHAR) THEN
654: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Validate Account');
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
650: END IF;
651:
652: -- check for validate account before submitting the request.
653: IF (p_validate_account IS NULL) OR (p_validate_account = Okl_Api.G_MISS_CHAR) THEN
654: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Validate Account');
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
658:
651:
652: -- check for validate account before submitting the request.
653: IF (p_validate_account IS NULL) OR (p_validate_account = Okl_Api.G_MISS_CHAR) THEN
654: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Validate Account');
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
658:
659: -- check for GL Transfer Mode before submitting the request.
656: END IF;
657:
658:
659: -- check for GL Transfer Mode before submitting the request.
660: IF (p_gl_transfer_mode IS NULL) OR (p_gl_transfer_mode = Okl_Api.G_MISS_CHAR) THEN
661: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'GL Transfer Mode');
662: RAISE Okl_Api.G_EXCEPTION_ERROR;
663: END IF;
664:
657:
658:
659: -- check for GL Transfer Mode before submitting the request.
660: IF (p_gl_transfer_mode IS NULL) OR (p_gl_transfer_mode = Okl_Api.G_MISS_CHAR) THEN
661: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'GL Transfer Mode');
662: RAISE Okl_Api.G_EXCEPTION_ERROR;
663: END IF;
664:
665:
658:
659: -- check for GL Transfer Mode before submitting the request.
660: IF (p_gl_transfer_mode IS NULL) OR (p_gl_transfer_mode = Okl_Api.G_MISS_CHAR) THEN
661: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'GL Transfer Mode');
662: RAISE Okl_Api.G_EXCEPTION_ERROR;
663: END IF;
664:
665:
666: -- check for submit journal import before submitting the request.
663: END IF;
664:
665:
666: -- check for submit journal import before submitting the request.
667: IF (p_submit_journal_import IS NULL) OR (p_submit_journal_import = Okl_Api.G_MISS_CHAR) THEN
668: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Submit Journal Import');
669: RAISE Okl_Api.G_EXCEPTION_ERROR;
670: END IF;
671:
664:
665:
666: -- check for submit journal import before submitting the request.
667: IF (p_submit_journal_import IS NULL) OR (p_submit_journal_import = Okl_Api.G_MISS_CHAR) THEN
668: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Submit Journal Import');
669: RAISE Okl_Api.G_EXCEPTION_ERROR;
670: END IF;
671:
672: l_from_date := FND_DATE.DATE_TO_CANONICAL(p_from_date);
665:
666: -- check for submit journal import before submitting the request.
667: IF (p_submit_journal_import IS NULL) OR (p_submit_journal_import = Okl_Api.G_MISS_CHAR) THEN
668: OKL_API.set_message('OKC', G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Submit Journal Import');
669: RAISE Okl_Api.G_EXCEPTION_ERROR;
670: END IF;
671:
672: l_from_date := FND_DATE.DATE_TO_CANONICAL(p_from_date);
673: l_to_date := FND_DATE.DATE_TO_CANONICAL(p_to_date);
690: -- Added these validations to check to see if the request has been submitted successfully.
691: -- Added by Saran on 28, Jan 2002
692:
693: IF x_request_id = 0 THEN
694: OKL_API.set_message(p_app_name => 'OFA',
695: p_msg_name => 'FA_DEPRN_TAX_ERROR',
696: p_token1 => 'REQUEST_ID',
697: p_token1_value => x_request_id);
698:
695: p_msg_name => 'FA_DEPRN_TAX_ERROR',
696: p_token1 => 'REQUEST_ID',
697: p_token1_value => x_request_id);
698:
699: RAISE okl_api.g_exception_error;
700: END IF;
701:
702: OKL_API.end_activity(x_msg_count, x_msg_data);
703:
698:
699: RAISE okl_api.g_exception_error;
700: END IF;
701:
702: OKL_API.end_activity(x_msg_count, x_msg_data);
703:
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := Okl_Api.handle_exceptions(l_api_name
701:
702: OKL_API.end_activity(x_msg_count, x_msg_data);
703:
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := Okl_Api.handle_exceptions(l_api_name
707: ,g_pkg_name
708: ,'OKL_API.G_RET_STS_ERROR'
709: ,x_msg_count
702: OKL_API.end_activity(x_msg_count, x_msg_data);
703:
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := Okl_Api.handle_exceptions(l_api_name
707: ,g_pkg_name
708: ,'OKL_API.G_RET_STS_ERROR'
709: ,x_msg_count
710: ,x_msg_data
704: EXCEPTION
705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
706: x_return_status := Okl_Api.handle_exceptions(l_api_name
707: ,g_pkg_name
708: ,'OKL_API.G_RET_STS_ERROR'
709: ,x_msg_count
710: ,x_msg_data
711: ,'_PVT');
712: WHEN okl_api.g_exception_unexpected_error THEN
708: ,'OKL_API.G_RET_STS_ERROR'
709: ,x_msg_count
710: ,x_msg_data
711: ,'_PVT');
712: WHEN okl_api.g_exception_unexpected_error THEN
713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
714: ,g_pkg_name
715: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
716: ,x_msg_count
709: ,x_msg_count
710: ,x_msg_data
711: ,'_PVT');
712: WHEN okl_api.g_exception_unexpected_error THEN
713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
714: ,g_pkg_name
715: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
716: ,x_msg_count
717: ,x_msg_data
711: ,'_PVT');
712: WHEN okl_api.g_exception_unexpected_error THEN
713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
714: ,g_pkg_name
715: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
716: ,x_msg_count
717: ,x_msg_data
718: ,'_PVT');
719: WHEN OTHERS THEN
716: ,x_msg_count
717: ,x_msg_data
718: ,'_PVT');
719: WHEN OTHERS THEN
720: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
721: (l_api_name,
722: G_PKG_NAME,
723: 'OTHERS',
724: x_msg_count,