[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_BUCKETS_PUB
Source
1 PACKAGE BODY OKL_PROCESS_BUCKETS_PUB AS
2 /* $Header: OKLPBUKB.pls 115.4 2002/12/18 12:14:08 kjinger noship $ */
3
4 PROCEDURE create_buckets(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_bktv_rec IN bktv_rec_type,
11 x_bktv_rec OUT NOCOPY bktv_rec_type)
12
13 IS
14 l_api_version CONSTANT NUMBER := 1.0;
15 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_BUCKETS';
16 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17 l_bktv_rec bktv_rec_type := p_bktv_rec;
18
19 BEGIN
20 SAVEPOINT insert_buckets;
21
22 x_return_status := FND_API.G_RET_STS_SUCCESS;
23
24 -- customer pre-processing
25
26
27
28 -- CALL THE MAIN PROCEDURE
29 OKL_PROCESS_BUCKETS_PVT.CREATE_BUCKETS(p_api_version => l_api_version,
30 p_init_msg_list => p_init_msg_list,
31 x_return_status => x_return_Status,
32 x_msg_count => x_msg_count,
33 x_msg_data => x_msg_data,
34 p_bktv_rec => p_bktv_rec,
35 x_bktv_rec => x_bktv_rec);
36
37 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
40 RAISE FND_API.G_EXC_ERROR;
41 END IF;
42
43 -- customer post-processing
44
45
46 EXCEPTION
47
48 WHEN FND_API.G_EXC_ERROR THEN
49 ROLLBACK TO insert_buckets;
50 x_return_status := FND_API.G_RET_STS_ERROR;
51
52 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
53 ,p_count => x_msg_count
54 ,p_data => x_msg_data);
55
56 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57 ROLLBACK TO insert_buckets;
58 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
60 ,p_count => x_msg_count
61 ,p_data => x_msg_data);
62
63 WHEN OTHERS THEN
64
65 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
66 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
67 ,p_count => x_msg_count
68 ,p_data => x_msg_data);
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70
71 END create_buckets;
72
73
74 PROCEDURE create_buckets(
75 p_api_version IN NUMBER,
76 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
77 x_return_status OUT NOCOPY VARCHAR2,
78 x_msg_count OUT NOCOPY NUMBER,
79 x_msg_data OUT NOCOPY VARCHAR2,
80 p_bktv_tbl IN bktv_tbl_type,
81 x_bktv_tbl OUT NOCOPY bktv_tbl_type)
82
83 IS
84 l_api_version CONSTANT NUMBER := 1.0;
85 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_BUCKETS';
86 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
87 l_bktv_tbl bktv_tbl_type := p_bktv_tbl;
88 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
89 BEGIN
90 SAVEPOINT insert_buckets;
91
92 x_return_status := FND_API.G_RET_STS_SUCCESS;
93
94 -- customer pre-processing
95
96
97
98 IF l_bktv_tbl.COUNT > 0 THEN
99 FOR i IN l_bktv_tbl.FIRST..l_bktv_tbl.LAST
100 LOOP
101 -- Call the main procedure
102 OKL_PROCESS_BUCKETS_PVT.CREATE_BUCKETS(p_api_version => l_api_version,
103 p_init_msg_list => p_init_msg_list,
104 x_return_status => x_return_Status,
105 x_msg_count => x_msg_count,
106 x_msg_data => x_msg_data,
107 p_bktv_rec => l_bktv_tbl(i),
108 x_bktv_rec => x_bktv_tbl(i));
109
110 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
113 RAISE FND_API.G_EXC_ERROR;
114 END IF;
115
116 END LOOP;
117 -- return overall status
118 x_return_status := l_overall_status;
119 END IF;
120
121 -- customer post-processing
122
123
124 EXCEPTION
125
126 WHEN FND_API.G_EXC_ERROR THEN
127 ROLLBACK TO insert_buckets;
128 x_return_status := FND_API.G_RET_STS_ERROR;
129
130 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
131 ,p_count => x_msg_count
132 ,p_data => x_msg_data);
133
134 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135 ROLLBACK TO insert_buckets;
136 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
138 ,p_count => x_msg_count
139 ,p_data => x_msg_data);
140
141 WHEN OTHERS THEN
142
143 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
144 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
145 ,p_count => x_msg_count
146 ,p_data => x_msg_data);
147 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148
149 END create_buckets;
150
151
152 PROCEDURE update_buckets(
153 p_api_version IN NUMBER,
154 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
155 x_return_status OUT NOCOPY VARCHAR2,
156 x_msg_count OUT NOCOPY NUMBER,
157 x_msg_data OUT NOCOPY VARCHAR2,
158 p_bktv_rec IN bktv_rec_type,
159 x_bktv_rec OUT NOCOPY bktv_rec_type)
160
161 IS
162 l_api_version CONSTANT NUMBER := 1.0;
163 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_BUCKETS';
164 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
165 l_bktv_rec bktv_rec_type := p_bktv_rec;
166
167 BEGIN
168 SAVEPOINT update_buckets;
169 x_return_status := FND_API.G_RET_STS_SUCCESS;
170 -- customer pre-processing
171
172 -- CALL THE MAIN PROCEDURE
173 OKL_PROCESS_BUCKETS_PVT.UPDATE_BUCKETS(p_api_version => l_api_version,
174 p_init_msg_list => p_init_msg_list,
175 x_return_status => x_return_Status,
176 x_msg_count => x_msg_count,
177 x_msg_data => x_msg_data,
178 p_bktv_rec => p_bktv_rec,
179 x_bktv_rec => x_bktv_rec);
180 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
183 RAISE FND_API.G_EXC_ERROR;
184 END IF;
185
186 -- customer post-processing
187
188 EXCEPTION
189
190 WHEN FND_API.G_EXC_ERROR THEN
191 ROLLBACK TO update_buckets;
192 x_return_status := FND_API.G_RET_STS_ERROR;
193
194 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
195 ,p_count => x_msg_count
196 ,p_data => x_msg_data);
197
198 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199 ROLLBACK TO update_buckets;
200 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
202 ,p_count => x_msg_count
203 ,p_data => x_msg_data);
204
205 WHEN OTHERS THEN
206
207 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
208 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
209 ,p_count => x_msg_count
210 ,p_data => x_msg_data);
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212
213 END update_buckets;
214
215
216 PROCEDURE update_buckets(
217 p_api_version IN NUMBER,
218 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
219 x_return_status OUT NOCOPY VARCHAR2,
220 x_msg_count OUT NOCOPY NUMBER,
221 x_msg_data OUT NOCOPY VARCHAR2,
222 p_bktv_tbl IN bktv_tbl_type,
223 x_bktv_tbl OUT NOCOPY bktv_tbl_type)
224
225 IS
226 l_api_version CONSTANT NUMBER := 1.0;
227 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_BUCKETS';
228 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
229 l_bktv_tbl bktv_tbl_type := p_bktv_tbl;
230 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
231 BEGIN
232 SAVEPOINT update_buckets;
233 x_return_status := FND_API.G_RET_STS_SUCCESS;
234 -- customer pre-processing
235
236 IF l_bktv_tbl.COUNT > 0 THEN
237 FOR i IN l_bktv_tbl.FIRST..l_bktv_tbl.LAST
238 LOOP
239 -- CALL THE MAIN PROCEDURE
240 OKL_PROCESS_BUCKETS_PVT.UPDATE_BUCKETS(p_api_version => l_api_version,
241 p_init_msg_list => p_init_msg_list,
242 x_return_status => x_return_Status,
243 x_msg_count => x_msg_count,
244 x_msg_data => x_msg_data,
245 p_bktv_rec => l_bktv_tbl(i),
246 x_bktv_rec => x_bktv_tbl(i));
247 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
248 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
250 RAISE FND_API.G_EXC_ERROR;
251 END IF;
252 END LOOP;
253
254 -- return overall status
255 x_return_status := l_overall_status;
256 END IF;
257
258 -- customer post-processing
259
260 EXCEPTION
261 WHEN FND_API.G_EXC_ERROR THEN
262 ROLLBACK TO update_buckets;
263 x_return_status := FND_API.G_RET_STS_ERROR;
264
265 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
266 ,p_count => x_msg_count
267 ,p_data => x_msg_data);
268
269 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270 ROLLBACK TO update_buckets;
271 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
273 ,p_count => x_msg_count
274 ,p_data => x_msg_data);
275
276 WHEN OTHERS THEN
277
278 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
279 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
280 ,p_count => x_msg_count
281 ,p_data => x_msg_data);
282 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283
284 END update_buckets;
285
286
287 PROCEDURE delete_buckets(
288 p_api_version IN NUMBER,
289 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
290 x_return_status OUT NOCOPY VARCHAR2,
291 x_msg_count OUT NOCOPY NUMBER,
292 x_msg_data OUT NOCOPY VARCHAR2,
293 p_bktv_rec IN bktv_rec_type)
294
295 IS
296 l_api_version CONSTANT NUMBER := 1.0;
297 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_BUCKETS';
298 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
299 l_bktv_rec bktv_rec_type := p_bktv_rec;
300
301 BEGIN
302 SAVEPOINT delete_buckets;
303 x_return_status := FND_API.G_RET_STS_SUCCESS;
304 -- customer pre-processing
305
306 -- CALL THE MAIN PROCEDURE
307 OKL_PROCESS_BUCKETS_PVT.DELETE_BUCKETS(p_api_version => l_api_version,
308 p_init_msg_list => p_init_msg_list,
309 x_return_status => x_return_Status,
310 x_msg_count => x_msg_count,
311 x_msg_data => x_msg_data,
312 p_bktv_rec => p_bktv_rec);
313 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
314 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
316 RAISE FND_API.G_EXC_ERROR;
317 END IF;
318
319 -- customer post-processing
320
321 EXCEPTION
322 WHEN FND_API.G_EXC_ERROR THEN
323 ROLLBACK TO delete_buckets;
324 x_return_status := FND_API.G_RET_STS_ERROR;
325
326 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
327 ,p_count => x_msg_count
328 ,p_data => x_msg_data);
329
330 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331 ROLLBACK TO delete_buckets;
332 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
334 ,p_count => x_msg_count
335 ,p_data => x_msg_data);
336
337 WHEN OTHERS THEN
338
339 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
340 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
341 ,p_count => x_msg_count
342 ,p_data => x_msg_data);
343 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344
345 END delete_buckets;
346
347 PROCEDURE delete_buckets(
348 p_api_version IN NUMBER,
349 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
350 x_return_status OUT NOCOPY VARCHAR2,
351 x_msg_count OUT NOCOPY NUMBER,
352 x_msg_data OUT NOCOPY VARCHAR2,
353 p_bktv_tbl IN bktv_tbl_type)
354
355 IS
356
357 l_api_version CONSTANT NUMBER := 1.0;
358 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_BUCKETS';
359 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
360 l_bktv_tbl bktv_tbl_type := p_bktv_tbl;
361 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
362 BEGIN
363 SAVEPOINT delete_buckets;
364 x_return_status := FND_API.G_RET_STS_SUCCESS;
365 -- customer pre-processing
366
367 IF l_bktv_tbl.COUNT > 0 THEN
368 FOR i IN l_bktv_tbl.FIRST..l_bktv_tbl.LAST
369 LOOP
370 -- CALL THE MAIN PROCEDURE
371 OKL_PROCESS_BUCKETS_PVT.DELETE_BUCKETS(p_api_version => l_api_version,
372 p_init_msg_list => p_init_msg_list,
373 x_return_status => x_return_Status,
374 x_msg_count => x_msg_count,
375 x_msg_data => x_msg_data,
376 p_bktv_rec => l_bktv_tbl(i));
377 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
378 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
380 RAISE FND_API.G_EXC_ERROR;
381 END IF;
382 END LOOP;
383 -- return overall status
384 x_return_status := l_overall_status;
385 END IF;
386
387 -- customer post-processing
388
389 EXCEPTION
390 WHEN FND_API.G_EXC_ERROR THEN
391 ROLLBACK TO delete_buckets;
392 x_return_status := FND_API.G_RET_STS_ERROR;
393
394 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
395 ,p_count => x_msg_count
396 ,p_data => x_msg_data);
397
398 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399 ROLLBACK TO delete_buckets;
400 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
402 ,p_count => x_msg_count
403 ,p_data => x_msg_data);
404
405 WHEN OTHERS THEN
406
407 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_BUCKETS_PUB','CREATE_BUCKETS');
408 FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
409 ,p_count => x_msg_count
410 ,p_data => x_msg_data);
411 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412
413 END delete_buckets;
414
415 END OKL_PROCESS_BUCKETS_PUB;