[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_TERMNT_INTERFACE_PUB
Source
1 PACKAGE BODY OKL_AM_TERMNT_INTERFACE_PUB AS
2 /* $Header: OKLPTIFB.pls 115.3 2003/03/11 17:26:50 rabhupat noship $ */
3
4 PROCEDURE termination_interface(err_buf OUT NOCOPY VARCHAR2,
5 ret_code OUT NOCOPY NUMBER) IS
6 l_return_status VARCHAR2(1);
7 l_msg_count NUMBER;
8 l_msg_data VARCHAR2(2000);
9 l_init_msg_list VARCHAR2(1) := OKC_API.G_TRUE;
10 l_api_version CONSTANT NUMBER := 1;
11 l_api_name VARCHAR2(30) := 'TERMINATION_INTERFACE';
12 BEGIN
13 OKL_AM_TERMNT_INTERFACE_PVT.termination_interface(p_api_version => l_api_version
14 ,p_init_msg_list => l_init_msg_list
15 ,x_msg_data => l_msg_data
16 ,x_msg_count => l_msg_count
17 ,x_return_status => l_return_status
18 ,err_buf => err_buf
19 ,ret_code => ret_code);
20
21 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
22 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
23 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
24 RAISE OKC_API.G_EXCEPTION_ERROR;
25 END IF;
26
27 EXCEPTION
28 WHEN OKC_API.G_EXCEPTION_ERROR THEN
29 l_return_status := OKC_API.HANDLE_EXCEPTIONS(l_api_name,
30 G_PKG_NAME,
31 'OKC_API.G_RET_STS_ERROR',
32 l_msg_count,
33 l_msg_data,
34 '_PVT');
35 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
36 l_return_status :=OKC_API.HANDLE_EXCEPTIONS(l_api_name,
37 G_PKG_NAME,
38 'OKC_API.G_RET_STS_UNEXP_ERROR',
39 l_msg_count,
40 l_msg_data,
41 '_PVT');
42 WHEN OTHERS THEN
43 OKC_API.set_message(p_app_name => g_app_name,
44 p_msg_name => g_unexpected_error,
45 p_token1 => g_sqlcode_token,
46 p_token1_value => sqlcode,
47 p_token2 => g_sqlerrm_token,
48 p_token2_value => sqlerrm);
49 END termination_interface;
50
51 END OKL_AM_TERMNT_INTERFACE_PUB;