[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPCGRPARAMETERS_PUB
Source
1 PACKAGE BODY OKL_SETUPCGRPARAMETERS_PUB AS
2 /* $Header: OKLPSCMB.pls 120.2 2005/06/03 05:30:16 rirawat noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_CNTX_GRP_PRMTRS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_cgmv_rec IN cgmv_rec_type,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_cgmv_rec OUT NOCOPY cgmv_rec_type) IS
12 l_cgmv_rec cgmv_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16
17 l_cgmv_rec := p_cgmv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupcgrparameters_pvt.get_rec(p_cgmv_rec => l_cgmv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_cgmv_rec => x_cgmv_rec);
25
26 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
27 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28 END IF;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33 x_no_data_found := FALSE;
34 FND_MESSAGE.set_name(application => G_APP_NAME,
35 name => G_UNEXPECTED_ERROR);
36 x_msg_data := FND_MESSAGE.get;
37 END get_rec;
38
39 ---------------------------------------------------------------------------
40 -- PROCEDURE insert_cgrparameters
41 -- Public wrapper for insert_cgrparameters process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_cgrparameters(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
45 x_return_status OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_msg_data OUT NOCOPY VARCHAR2,
48 p_cgmv_rec IN cgmv_rec_type,
49 x_cgmv_rec OUT NOCOPY cgmv_rec_type) IS
50 l_cgmv_rec cgmv_rec_type;
51 l_data VARCHAR2(100);
52 l_api_name CONSTANT VARCHAR2(30) := 'insert_cgrparameters';
53 l_count NUMBER ;
54 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
55 BEGIN
56 x_return_status := FND_API.G_RET_STS_SUCCESS;
57 SAVEPOINT sp_insert_cgrparameters;
58 l_cgmv_rec := p_cgmv_rec;
59
60
61
62 -- call process api to insert context group parameters
63 okl_setupcgrparameters_pvt.insert_cgrparameters(p_api_version => p_api_version,
64 p_init_msg_list => p_init_msg_list,
65 x_return_status => l_return_status,
66 x_msg_count => x_msg_count,
67 x_msg_data => x_msg_data,
68 p_cgmv_rec => l_cgmv_rec,
69 x_cgmv_rec => x_cgmv_rec);
70
71 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
72 RAISE FND_API.G_EXC_ERROR;
73 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
74 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75 END IF;
76
77 /* re-assign local record structure using output record from pvt api */
78 l_cgmv_rec := x_cgmv_rec;
79
80
81
82 EXCEPTION
83 WHEN FND_API.G_EXC_ERROR THEN
84 ROLLBACK TO sp_insert_cgrparameters;
85 -- notify caller of an UNEXPECTED error
86 x_return_status := FND_API.G_RET_STS_ERROR;
87
88 -- store SQL error message on message stack for caller
89 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
90 p_count => x_msg_count,
91 p_data => x_msg_data);
92
93 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
94 ROLLBACK TO sp_insert_cgrparameters;
95 -- notify caller of an UNEXPECTED error
96 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97
98 -- store SQL error message on message stack for caller
99 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
100 p_count => x_msg_count,
101 p_data => x_msg_data);
102
103 WHEN OTHERS THEN
104 -- notify caller of an UNEXPECTED error
105 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPCGRPARAMETERS_PUB','insert_cgrparameters');
107
108 -- store SQL error message on message stack for caller
109 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
110 p_count => x_msg_count,
111 p_data => x_msg_data);
112 END insert_cgrparameters;
113
114 ---------------------------------------------------------------------------
115 -- PROCEDURE update_cgrparameters
116 -- Public wrapper for update_cgrparameters process api
117 ---------------------------------------------------------------------------
118 PROCEDURE update_cgrparameters(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2,
123 p_cgmv_rec IN cgmv_rec_type,
124 x_cgmv_rec OUT NOCOPY cgmv_rec_type) IS
125 l_cgmv_rec cgmv_rec_type;
126 l_data VARCHAR2(100);
127 l_count NUMBER ;
128 l_api_name CONSTANT VARCHAR2(30) := 'update_cgrparameters';
129 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
130 BEGIN
131 x_return_status := FND_API.G_RET_STS_SUCCESS;
132 SAVEPOINT sp_update_cgrparameters;
133 l_cgmv_rec := p_cgmv_rec;
134
135
136
137 -- call process api to update context group parameters
138 okl_setupcgrparameters_pvt.update_cgrparameters(p_api_version => p_api_version,
139 p_init_msg_list => p_init_msg_list,
140 x_return_status => l_return_status,
141 x_msg_count => x_msg_count,
142 x_msg_data => x_msg_data,
143 p_cgmv_rec => l_cgmv_rec,
144 x_cgmv_rec => x_cgmv_rec);
145
146 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
147 RAISE FND_API.G_EXC_ERROR;
148 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
149 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150 END IF;
151
152 /* re-assign local record structure using output record from pvt api */
153 l_cgmv_rec := x_cgmv_rec;
154
155
156
157 EXCEPTION
158 WHEN FND_API.G_EXC_ERROR THEN
159 ROLLBACK TO sp_update_cgrparameters;
160 -- notify caller of an UNEXPECTED error
161 x_return_status := FND_API.G_RET_STS_ERROR;
162
163 -- store SQL error message on message stack for caller
164 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
165 p_count => x_msg_count,
166 p_data => x_msg_data);
167
168 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169 ROLLBACK TO sp_update_cgrparameters;
170 -- notify caller of an UNEXPECTED error
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172
173 -- store SQL error message on message stack for caller
174 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data);
177
178 WHEN OTHERS THEN
179 -- notify caller of an UNEXPECTED error
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPCGRPARAMETERS_PUB','update_cgrparameters');
182
183 -- store SQL error message on message stack for caller
184 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
185 p_count => x_msg_count,
186 p_data => x_msg_data);
187 END update_cgrparameters;
188
189 ---------------------------------------------------------------------------
190 -- PROCEDURE delete_cgrparameters
191 -- Public wrapper for delete_cgrparameters process api
192 ---------------------------------------------------------------------------
193 PROCEDURE delete_cgrparameters(p_api_version IN NUMBER,
194 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
195 x_return_status OUT NOCOPY VARCHAR2,
196 x_msg_count OUT NOCOPY NUMBER,
197 x_msg_data OUT NOCOPY VARCHAR2,
198 p_cgmv_tbl IN cgmv_tbl_type) IS
199 l_cgmv_tbl cgmv_tbl_type;
200 l_data VARCHAR2(100);
201 l_count NUMBER ;
202 l_api_name CONSTANT VARCHAR2(30) := 'delete_cgrparameters';
203 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
204 BEGIN
205 x_return_status := FND_API.G_RET_STS_SUCCESS;
206 SAVEPOINT sp_delete_cgrparameters;
207
208 l_cgmv_tbl := p_cgmv_tbl;
209
210
211
212 -- call process api to delete formula operands
213 okl_setupcgrparameters_pvt.delete_cgrparameters(p_api_version => p_api_version,
214 p_init_msg_list => p_init_msg_list,
215 x_return_status => l_return_status,
216 x_msg_count => x_msg_count,
217 x_msg_data => x_msg_data,
218 p_cgmv_tbl => l_cgmv_tbl);
219
220 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
221 RAISE FND_API.G_EXC_ERROR;
222 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
223 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224 END IF;
225
226
227
228 EXCEPTION
229 WHEN FND_API.G_EXC_ERROR THEN
230 ROLLBACK TO sp_delete_cgrparameters;
231 -- notify caller of an UNEXPECTED error
232 x_return_status := FND_API.G_RET_STS_ERROR;
233
234 -- store SQL error message on message stack for caller
235 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
236 p_count => x_msg_count,
237 p_data => x_msg_data);
238
239 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240 ROLLBACK TO sp_delete_cgrparameters;
241 -- notify caller of an UNEXPECTED error
242 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243
244 -- store SQL error message on message stack for caller
245 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
246 p_count => x_msg_count,
247 p_data => x_msg_data);
248
249 WHEN OTHERS THEN
250 -- notify caller of an UNEXPECTED error
251 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPCGRPARAMETERS_PUB','delete_cgrparameters');
253
254 -- store SQL error message on message stack for caller
255 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
256 p_count => x_msg_count,
257 p_data => x_msg_data);
258 END delete_cgrparameters;
259
260 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_CNTX_GRP_PRMTRS_V - TBL : begin
261 ---------------------------------------------------------------------------
262 -- PROCEDURE insert_cgrparameters
263 -- Public wrapper for insert_cgrparameters process api
264 ---------------------------------------------------------------------------
265 PROCEDURE insert_cgrparameters(p_api_version IN NUMBER,
266 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
267 x_return_status OUT NOCOPY VARCHAR2,
268 x_msg_count OUT NOCOPY NUMBER,
269 x_msg_data OUT NOCOPY VARCHAR2,
270 p_cgmv_tbl IN cgmv_tbl_type,
271 x_cgmv_tbl OUT NOCOPY cgmv_tbl_type) IS
272 l_cgmv_tbl cgmv_tbl_type;
273 l_data VARCHAR2(100);
274 l_api_name CONSTANT VARCHAR2(30) := 'insert_cgrparameters';
275 l_count NUMBER ;
276 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
277 BEGIN
278 x_return_status := FND_API.G_RET_STS_SUCCESS;
279 SAVEPOINT sp_insert_cgrparameters;
280 l_cgmv_tbl := p_cgmv_tbl;
281
282 -- call process api to insert context group parameters
283 okl_setupcgrparameters_pvt.insert_cgrparameters(p_api_version => p_api_version,
284 p_init_msg_list => p_init_msg_list,
285 x_return_status => l_return_status,
286 x_msg_count => x_msg_count,
287 x_msg_data => x_msg_data,
288 p_cgmv_tbl => l_cgmv_tbl,
289 x_cgmv_tbl => x_cgmv_tbl);
290
291 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
292 RAISE FND_API.G_EXC_ERROR;
293 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
294 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295 END IF;
296
297 /* re-assign local record structure using output record from pvt api */
298 l_cgmv_tbl := x_cgmv_tbl;
299
300 EXCEPTION
301 WHEN FND_API.G_EXC_ERROR THEN
302 ROLLBACK TO sp_insert_cgrparameters;
303 -- notify caller of an UNEXPECTED error
304 x_return_status := FND_API.G_RET_STS_ERROR;
305
306 -- store SQL error message on message stack for caller
307 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
308 p_count => x_msg_count,
309 p_data => x_msg_data);
310
311 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
312 ROLLBACK TO sp_insert_cgrparameters;
313 -- notify caller of an UNEXPECTED error
314 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315
316 -- store SQL error message on message stack for caller
317 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
318 p_count => x_msg_count,
319 p_data => x_msg_data);
320
321 WHEN OTHERS THEN
322 -- notify caller of an UNEXPECTED error
323 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPCGRPARAMETERS_PUB','insert_cgrparameters');
325
326 -- store SQL error message on message stack for caller
327 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
328 p_count => x_msg_count,
329 p_data => x_msg_data);
330 END insert_cgrparameters;
331
332 -- rirawat 03-Feb-05 4149748: Added the following procedure to insert into OKL_CNTX_GRP_PRMTRS_V - TBL : end
333
334 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_CNTX_GRP_PRMTRS_V - TBL : begin
335 ---------------------------------------------------------------------------
336 -- PROCEDURE update_cgrparameters
337 -- Public wrapper for update_cgrparameters process api
338 ---------------------------------------------------------------------------
339 PROCEDURE update_cgrparameters(p_api_version IN NUMBER,
340 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
341 x_return_status OUT NOCOPY VARCHAR2,
342 x_msg_count OUT NOCOPY NUMBER,
343 x_msg_data OUT NOCOPY VARCHAR2,
344 p_cgmv_tbl IN cgmv_tbl_type,
345 x_cgmv_tbl OUT NOCOPY cgmv_tbl_type) IS
346 l_cgmv_tbl cgmv_tbl_type;
347 l_data VARCHAR2(100);
348 l_count NUMBER ;
349 l_api_name CONSTANT VARCHAR2(30) := 'update_cgrparameters';
350 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
351 BEGIN
352 x_return_status := FND_API.G_RET_STS_SUCCESS;
353 SAVEPOINT sp_update_cgrparameters;
354 l_cgmv_tbl := p_cgmv_tbl;
355
356 -- call process api to update context group parameters
357 okl_setupcgrparameters_pvt.update_cgrparameters(p_api_version => p_api_version,
358 p_init_msg_list => p_init_msg_list,
359 x_return_status => l_return_status,
360 x_msg_count => x_msg_count,
361 x_msg_data => x_msg_data,
362 p_cgmv_tbl => l_cgmv_tbl,
363 x_cgmv_tbl => x_cgmv_tbl);
364
365 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
366 RAISE FND_API.G_EXC_ERROR;
367 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
368 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
369 END IF;
370
371 /* re-assign local record structure using output record from pvt api */
372 l_cgmv_tbl := x_cgmv_tbl;
373
374 EXCEPTION
375 WHEN FND_API.G_EXC_ERROR THEN
376 ROLLBACK TO sp_update_cgrparameters;
377 -- notify caller of an UNEXPECTED error
378 x_return_status := FND_API.G_RET_STS_ERROR;
379
380 -- store SQL error message on message stack for caller
381 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
382 p_count => x_msg_count,
383 p_data => x_msg_data);
384
385 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386 ROLLBACK TO sp_update_cgrparameters;
387 -- notify caller of an UNEXPECTED error
388 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389
390 -- store SQL error message on message stack for caller
391 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
392 p_count => x_msg_count,
393 p_data => x_msg_data);
394
395 WHEN OTHERS THEN
396 -- notify caller of an UNEXPECTED error
397 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPCGRPARAMETERS_PUB','update_cgrparameters');
399
400 -- store SQL error message on message stack for caller
401 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
402 p_count => x_msg_count,
403 p_data => x_msg_data);
404 END update_cgrparameters;
405 -- rirawat 03-Feb-05 4149748: Added the following procedure to update into OKL_CNTX_GRP_PRMTRS_V - TBL : end
406
407
408 END OKL_SETUPCGRPARAMETERS_PUB;