[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_ACCRUALS_PUB
Source
1 PACKAGE BODY OKL_SETUP_ACCRUALS_PUB AS
2 /* $Header: OKLPARUB.pls 115.3 2002/12/18 12:12:06 kjinger noship $ */
3
4 PROCEDURE create_accrual_rules(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_rec IN agnv_rec_type,
11 x_agnv_rec OUT NOCOPY agnv_rec_type)
12
13 IS
14 l_api_version CONSTANT NUMBER := 1.0;
15 l_api_name CONSTANT VARCHAR2(30) := 'create_accrual_rules';
16 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17 l_agnv_rec agnv_rec_type := p_agnv_rec;
18
19 BEGIN
20 SAVEPOINT create_accrual_rules;
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_SETUP_ACCRUALS_PVT.create_accrual_rules(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_agnv_rec => p_agnv_rec,
35 x_agnv_rec => x_agnv_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 create_accrual_rules;
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 create_accrual_rules;
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 ROLLBACK TO create_accrual_rules;
65 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
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_accrual_rules;
72
73
74 PROCEDURE create_accrual_rules(
75 p_api_version IN NUMBER,
76 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_tbl IN agnv_tbl_type,
81 x_agnv_tbl OUT NOCOPY agnv_tbl_type)
82
83 IS
84 l_api_version CONSTANT NUMBER := 1.0;
85 l_api_name CONSTANT VARCHAR2(30) := 'create_accrual_rules';
86 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
87 l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
88 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
89 BEGIN
90 SAVEPOINT create_accrual_rules;
91
92 x_return_status := FND_API.G_RET_STS_SUCCESS;
93
94 -- customer pre-processing
95
96
97
98 IF l_agnv_tbl.COUNT > 0 THEN
99 FOR i IN l_agnv_tbl.FIRST..l_agnv_tbl.LAST
100 LOOP
101 -- Call the main procedure
102 OKL_SETUP_ACCRUALS_PVT.create_accrual_rules(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_agnv_rec => l_agnv_tbl(i),
108 x_agnv_rec => x_agnv_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 create_accrual_rules;
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 create_accrual_rules;
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 ROLLBACK TO create_accrual_rules;
143 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
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_accrual_rules;
150
151
152 PROCEDURE update_accrual_rules(
153 p_api_version IN NUMBER,
154 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_rec IN agnv_rec_type,
159 x_agnv_rec OUT NOCOPY agnv_rec_type)
160
161 IS
162 l_api_version CONSTANT NUMBER := 1.0;
163 l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
164 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
165 l_agnv_rec agnv_rec_type := p_agnv_rec;
166
167 BEGIN
168 SAVEPOINT update_accrual_rules;
169 x_return_status := FND_API.G_RET_STS_SUCCESS;
170 -- customer pre-processing
171
172 -- CALL THE MAIN PROCEDURE
173 OKL_SETUP_ACCRUALS_PVT.update_accrual_rules(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_agnv_rec => p_agnv_rec,
179 x_agnv_rec => x_agnv_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_accrual_rules;
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_accrual_rules;
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 ROLLBACK TO update_accrual_rules;
207 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
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_accrual_rules;
214
215
216 PROCEDURE update_accrual_rules(
217 p_api_version IN NUMBER,
218 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_tbl IN agnv_tbl_type,
223 x_agnv_tbl OUT NOCOPY agnv_tbl_type)
224
225 IS
226 l_api_version CONSTANT NUMBER := 1.0;
227 l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
228 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
229 l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
230 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
231 BEGIN
232 SAVEPOINT update_accrual_rules;
233 x_return_status := FND_API.G_RET_STS_SUCCESS;
234 -- customer pre-processing
235
236 IF l_agnv_tbl.COUNT > 0 THEN
237 FOR i IN l_agnv_tbl.FIRST..l_agnv_tbl.LAST
238 LOOP
239 -- CALL THE MAIN PROCEDURE
240 OKL_SETUP_ACCRUALS_PVT.update_accrual_rules(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_agnv_rec => l_agnv_tbl(i),
246 x_agnv_rec => x_agnv_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_accrual_rules;
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_accrual_rules;
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 ROLLBACK TO update_accrual_rules;
278 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
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_accrual_rules;
285
286
287 PROCEDURE delete_accrual_rules(
288 p_api_version IN NUMBER,
289 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_rec IN agnv_rec_type)
294
295 IS
296 l_api_version CONSTANT NUMBER := 1.0;
297 l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
298 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
299 l_agnv_rec agnv_rec_type := p_agnv_rec;
300
301 BEGIN
302 SAVEPOINT delete_accrual_rules;
303 x_return_status := FND_API.G_RET_STS_SUCCESS;
304 -- customer pre-processing
305
306 -- CALL THE MAIN PROCEDURE
307 OKL_SETUP_ACCRUALS_PVT.delete_accrual_rules(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_agnv_rec => p_agnv_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_accrual_rules;
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_accrual_rules;
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 ROLLBACK TO delete_accrual_rules;
339 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
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_accrual_rules;
346
347 PROCEDURE delete_accrual_rules(
348 p_api_version IN NUMBER,
349 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_agnv_tbl IN agnv_tbl_type)
354
355 IS
356
357 l_api_version CONSTANT NUMBER := 1.0;
358 l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
359 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
360 l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
361 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
362 BEGIN
363 SAVEPOINT delete_accrual_rules;
364 x_return_status := FND_API.G_RET_STS_SUCCESS;
365 -- customer pre-processing
366
367 IF l_agnv_tbl.COUNT > 0 THEN
368 FOR i IN l_agnv_tbl.FIRST..l_agnv_tbl.LAST
369 LOOP
370 -- CALL THE MAIN PROCEDURE
371 OKL_SETUP_ACCRUALS_PVT.delete_accrual_rules(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_agnv_rec => l_agnv_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_accrual_rules;
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_accrual_rules;
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 ROLLBACK TO delete_accrual_rules;
407 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
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_accrual_rules;
414
415 END OKL_SETUP_ACCRUALS_PUB;