PACKAGE BODY: APPS.OKL_ACTIVATE_IB_PUB

Source

1 package body OKL_ACTIVATE_IB_PUB as
2 /* $Header: OKLPAIBB.pls 115.2 2004/04/13 10:28:03 rnaik noship $ */
3 PROCEDURE   ACTIVATE_IB_INSTANCE(p_api_version   IN  NUMBER,
4 	                             p_init_msg_list   IN  VARCHAR2 DEFAULT OKL_API.G_FALSE,
5 	                             x_return_status   OUT NOCOPY VARCHAR2,
6 	                             x_msg_count       OUT NOCOPY NUMBER,
7 	                             x_msg_data        OUT NOCOPY VARCHAR2,
8                                  p_chrv_id         IN  NUMBER,
9                                  p_call_mode       IN  VARCHAR2,
10                                  x_cimv_tbl        OUT NOCOPY cimv_tbl_type) is
11 
12 l_return_status     VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
13 l_api_name          CONSTANT VARCHAR2(30) := 'ACTIVATE_IB_INSTANCE';
14 l_api_version	    CONSTANT NUMBER	:= 1.0;
15 
16 begin
17 -----
18     --start activity
19     l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
20                                               G_PKG_NAME,
21                                               p_init_msg_list,
22                                               G_API_VERSION,
23                                               p_api_version,
24                                               G_SCOPE,
25                                               x_return_status);
26 
27     IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
28       RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
29     ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
30       RAISE OKL_API.G_EXCEPTION_ERROR;
31     END IF;
32     --Customer pre-processing Section
33     --Vertical Industry pre-processing Section
34     --Business Logic
35     OKL_ACTIVATE_IB_PVT.Activate_ib_instance
36                                 (p_api_version    => p_api_version,
37 	                             p_init_msg_list  => p_init_msg_list,
38 	                             x_return_status  => x_return_status,
39 	                             x_msg_count      => x_msg_count,
40 	                             x_msg_data       => x_msg_data,
41                                  p_chrv_id        => p_chrv_id,
42                                  p_call_mode      => p_call_mode,
43                                  x_cimv_tbl       => x_cimv_tbl);
44 
45     IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
46       RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
47     ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
48       RAISE OKL_API.G_EXCEPTION_ERROR;
49     END IF;
50     --Vertical post-processing Section
51     --Customer post-processing Section
52     --Call end Activity
53     OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
54     EXCEPTION
55     WHEN OKL_API.G_EXCEPTION_ERROR THEN
56        x_return_status := OKL_API.HANDLE_EXCEPTIONS
57        (substr(l_api_name,1,26),
58         G_PKG_NAME,
59         'OKL_API.G_RET_STS_ERROR',
60         x_msg_count,
61         x_msg_data,
62         G_SCOPE);
63 
64     WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
65        x_return_status := OKL_API.HANDLE_EXCEPTIONS
66        (substr(l_api_name,1,26),
67         G_PKG_NAME,
68         'OKL_API.G_RET_STS_UNEXP_ERROR',
69         x_msg_count,
70         x_msg_data,
71         G_SCOPE);
72 
73    WHEN OTHERS THEN
74       -- store SQL error message on message stack for caller
75       --OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
76        x_return_status := OKL_API.HANDLE_EXCEPTIONS
77        (substr(l_api_name,1,26),
78         G_PKG_NAME,
79         'OTHERS',
80         x_msg_count,
81         x_msg_data,
82         G_SCOPE);
83 END ACTIVATE_IB_INSTANCE;
84 END OKL_ACTIVATE_IB_PUB;