[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPCONTEXTGROUPS_PVT
Source
1 PACKAGE BODY OKL_SETUPCONTEXTGROUPS_PVT AS
2 /* $Header: OKLRSCGB.pls 115.2 2002/07/17 23:20:46 santonyr noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_CONTEXT_GROUPS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec (
8 p_cgrv_rec IN cgrv_rec_type,
9 x_return_status OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_cgrv_rec OUT NOCOPY cgrv_rec_type
12 ) IS
13 CURSOR okl_cgrv_pk_csr (p_id IN NUMBER) IS
14 SELECT
15 ID,
16 OBJECT_VERSION_NUMBER,
17 SFWT_FLAG,
18 NAME,
19 NVL(DESCRIPTION, OKL_API.G_MISS_CHAR) DESCRIPTION,
20 CREATED_BY,
21 CREATION_DATE,
22 LAST_UPDATED_BY,
23 LAST_UPDATE_DATE,
24 NVL(LAST_UPDATE_LOGIN, OKL_API.G_MISS_NUM) LAST_UPDATE_LOGIN
25 FROM Okl_Context_Groups_V
26 WHERE okl_Context_Groups_V.id = p_id;
27 l_okl_cgrv_pk okl_cgrv_pk_csr%ROWTYPE;
28 l_cgrv_rec cgrv_rec_type;
29 BEGIN
30 x_return_status := OKL_API.G_RET_STS_SUCCESS;
31 x_no_data_found := TRUE;
32
33 -- Get current database values
34 OPEN okl_cgrv_pk_csr (p_cgrv_rec.id);
35 FETCH okl_cgrv_pk_csr INTO
36 l_cgrv_rec.ID,
37 l_cgrv_rec.OBJECT_VERSION_NUMBER,
38 l_cgrv_rec.SFWT_FLAG,
39 l_cgrv_rec.NAME,
40 l_cgrv_rec.DESCRIPTION,
41 l_cgrv_rec.CREATED_BY,
42 l_cgrv_rec.CREATION_DATE,
43 l_cgrv_rec.LAST_UPDATED_BY,
44 l_cgrv_rec.LAST_UPDATE_DATE,
45 l_cgrv_rec.LAST_UPDATE_LOGIN;
46 x_no_data_found := okl_cgrv_pk_csr%NOTFOUND;
47 CLOSE okl_cgrv_pk_csr;
48 x_cgrv_rec := l_cgrv_rec;
49 EXCEPTION
50 WHEN OTHERS THEN
51 -- store SQL error message on message stack
52 OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
53 p_msg_name => G_UNEXPECTED_ERROR,
54 p_token1 => G_SQLCODE_TOKEN,
55 p_token1_value => sqlcode,
56 p_token2 => G_SQLERRM_TOKEN,
57 p_token2_value => sqlerrm);
58 -- notify UNEXPECTED error for calling API.
59 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
60
61 IF (okl_cgrv_pk_csr%ISOPEN) THEN
62 CLOSE okl_cgrv_pk_csr;
63 END IF;
64
65 END get_rec;
66
67 ---------------------------------------------------------------------------
68 -- PROCEDURE insert_contextgroups for: OKL_FMLA_OPRNDS_V
69 ---------------------------------------------------------------------------
70 PROCEDURE insert_contextgroups(p_api_version IN NUMBER,
71 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
72 x_return_status OUT NOCOPY VARCHAR2,
73 x_msg_count OUT NOCOPY NUMBER,
74 x_msg_data OUT NOCOPY VARCHAR2,
75 p_cgrv_rec IN cgrv_rec_type,
76 x_cgrv_rec OUT NOCOPY cgrv_rec_type
77 ) IS
78 l_api_version CONSTANT NUMBER := 1;
79 l_api_name CONSTANT VARCHAR2(30) := 'insert_contextgroups';
80 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
81 l_valid BOOLEAN;
82 l_cgrv_rec cgrv_rec_type;
83 BEGIN
84 x_return_status := OKC_API.G_RET_STS_SUCCESS;
85 l_return_status := OKC_API.START_ACTIVITY(p_api_name => l_api_name,
86 p_pkg_name => G_PKG_NAME,
87 p_init_msg_list => p_init_msg_list,
88 l_api_version => l_api_version,
89 p_api_version => p_api_version,
90 p_api_type => '_PVT',
91 x_return_status => l_return_status);
92 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
93 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
94 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
95 RAISE OKC_API.G_EXCEPTION_ERROR;
96 END IF;
97
98 l_cgrv_rec := p_cgrv_rec;
99
100 /* public api to insert context groups */
101 okl_context_groups_pub.insert_context_groups(p_api_version => p_api_version,
102 p_init_msg_list => p_init_msg_list,
103 x_return_status => l_return_status,
104 x_msg_count => x_msg_count,
105 x_msg_data => x_msg_data,
106 p_cgrv_rec => l_cgrv_rec,
107 x_cgrv_rec => x_cgrv_rec);
108
109 IF l_return_status = OKC_API.G_RET_STS_ERROR THEN
110 RAISE OKC_API.G_EXCEPTION_ERROR;
111 ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
112 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
113 END IF;
114
115 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
116 x_msg_data => x_msg_data);
117 EXCEPTION
118 WHEN OKC_API.G_EXCEPTION_ERROR THEN
119 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
120 p_pkg_name => G_PKG_NAME,
121 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
122 x_msg_count => x_msg_count,
123 x_msg_data => x_msg_data,
124 p_api_type => '_PVT');
125 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
126 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
127 p_pkg_name => G_PKG_NAME,
128 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
129 x_msg_count => x_msg_count,
130 x_msg_data => x_msg_data,
131 p_api_type => '_PVT');
132 WHEN OTHERS THEN
133 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
134 p_pkg_name => G_PKG_NAME,
135 p_exc_name => 'OTHERS',
136 x_msg_count => x_msg_count,
137 x_msg_data => x_msg_data,
138 p_api_type => '_PVT');
139
140 END insert_contextgroups;
141
142 ---------------------------------------------------------------------------
143 -- PROCEDURE update_contextgroups for: OKL_FMLA_OPRNDS_V
144 ---------------------------------------------------------------------------
145 PROCEDURE update_contextgroups(p_api_version IN NUMBER,
146 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
147 x_return_status OUT NOCOPY VARCHAR2,
148 x_msg_count OUT NOCOPY NUMBER,
149 x_msg_data OUT NOCOPY VARCHAR2,
150 p_cgrv_rec IN cgrv_rec_type,
151 x_cgrv_rec OUT NOCOPY cgrv_rec_type
152 ) IS
153 l_api_version CONSTANT NUMBER := 1;
154 l_api_name CONSTANT VARCHAR2(30) := 'update_contextgroups';
155 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
156 l_valid BOOLEAN;
157 l_cgrv_rec cgrv_rec_type;
158 BEGIN
159 x_return_status := OKC_API.G_RET_STS_SUCCESS;
160 l_return_status := OKC_API.START_ACTIVITY(p_api_name => l_api_name,
161 p_pkg_name => G_PKG_NAME,
162 p_init_msg_list => p_init_msg_list,
163 l_api_version => l_api_version,
164 p_api_version => p_api_version,
165 p_api_type => '_PVT',
166 x_return_status => l_return_status);
167 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
168 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
169 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
170 RAISE OKC_API.G_EXCEPTION_ERROR;
171 END IF;
172
173 l_cgrv_rec := p_cgrv_rec;
174
175 /* public api to update context groups */
176 okl_context_groups_pub.update_context_groups(p_api_version => p_api_version,
177 p_init_msg_list => p_init_msg_list,
178 x_return_status => l_return_status,
179 x_msg_count => x_msg_count,
180 x_msg_data => x_msg_data,
181 p_cgrv_rec => l_cgrv_rec,
182 x_cgrv_rec => x_cgrv_rec);
183
184 IF l_return_status = OKC_API.G_RET_STS_ERROR THEN
185 RAISE OKC_API.G_EXCEPTION_ERROR;
186 ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
187 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
188 END IF;
189
190 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
191 x_msg_data => x_msg_data);
192 EXCEPTION
193 WHEN OKC_API.G_EXCEPTION_ERROR THEN
194 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
195 p_pkg_name => G_PKG_NAME,
196 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
197 x_msg_count => x_msg_count,
198 x_msg_data => x_msg_data,
199 p_api_type => '_PVT');
200 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
201 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
202 p_pkg_name => G_PKG_NAME,
203 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
204 x_msg_count => x_msg_count,
205 x_msg_data => x_msg_data,
206 p_api_type => '_PVT');
207 WHEN OTHERS THEN
208 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
209 p_pkg_name => G_PKG_NAME,
210 p_exc_name => 'OTHERS',
211 x_msg_count => x_msg_count,
212 x_msg_data => x_msg_data,
213 p_api_type => '_PVT');
214
215 END update_contextgroups;
216
217 END OKL_SETUPCONTEXTGROUPS_PVT;