PACKAGE BODY: APPS.OKS_COV_ENT_PUB

Source

1 PACKAGE BODY OKS_COV_ENT_PUB AS
2 /* $Header: OKSPCENB.pls 120.0 2005/05/25 18:04:59 appldev noship $ */
3 
4 
5   PROCEDURE Get_default_react_resolve_by
6     (p_api_version                in  number
7     ,p_init_msg_list              in  varchar2
8     ,p_inp_rec                    in  gdrt_inp_rec_type
9     ,x_return_status              out nocopy varchar2
10     ,x_msg_count                  out nocopy number
11     ,x_msg_data                   out nocopy varchar2
12     ,x_react_rec                  out nocopy rcn_rsn_rec_type
13     ,x_resolve_rec                out nocopy rcn_rsn_rec_type)
14     IS
15 
16     l_return_status	Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
17     l_api_name            CONSTANT VARCHAR2(30) := 'Get_def_reac_resol_by';
18 
19     BEGIN
20        l_return_status := OKC_API.START_ACTIVITY(l_api_name
21                                                 ,p_init_msg_list
22                                                 ,'_PUB'
23                                                 ,x_return_status
24                                                 );
25        IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
26           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
27        ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
28              RAISE OKC_API.G_EXCEPTION_ERROR;
29        END IF;
30 
31        OKS_COV_ENT_PVT.Get_default_react_resolve_by
32                                 (p_api_version
33                                 ,p_init_msg_list
34                                 ,p_inp_rec
35                                 ,x_return_status
36                                 ,x_msg_count
37                                 ,x_msg_data
38                                 ,x_react_rec
39                                 ,x_resolve_rec );
40 
41        IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
42           RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
43        ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
44              RAISE OKC_API.G_EXCEPTION_ERROR;
45        END IF;
46 
47 
48        OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
49 
50 
51     EXCEPTION
52        WHEN OKC_API.G_EXCEPTION_ERROR THEN
53        x_return_status := OKC_API.HANDLE_EXCEPTIONS
54        (l_api_name,
55         G_PKG_NAME,
56         'OKC_API.G_RET_STS_ERROR',
57         x_msg_count,
58         x_msg_data,
59         '_PUB');
60        WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
61        x_return_status := OKC_API.HANDLE_EXCEPTIONS
62        (l_api_name,
63         G_PKG_NAME,
64         'OKC_API.G_RET_STS_UNEXP_ERROR',
65         x_msg_count,
66         x_msg_data,
67         '_PUB');
68        WHEN OTHERS THEN
69        x_return_status := OKC_API.HANDLE_EXCEPTIONS
70        (l_api_name,
71         G_PKG_NAME,
72         'OTHERS',
73         x_msg_count,
74         x_msg_data,
75         '_PUB');
76 
77   END Get_default_react_resolve_by;
78 
79 END OKS_COV_ENT_PUB;