[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_ACC_GROUP_PVT
Source
1 PACKAGE BODY okl_process_Acc_group_pvt AS
2 /* $Header: OKLRAGGB.pls 120.2 2005/10/30 03:37:54 appldev noship $ */
3
4
5 PROCEDURE create_acc_group(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_agcv_rec IN agcv_rec_type
11 ,p_agbv_tbl IN agbv_tbl_type
12 ,x_agcv_rec OUT NOCOPY agcv_rec_type
13 ,x_agbv_tbl OUT NOCOPY agbv_tbl_type )
14
15 IS
16
17 BEGIN
18
19 okl_acc_group_pub.create_acc_group(p_api_version => p_api_version
20 ,p_init_msg_list => p_init_msg_list
21 ,x_return_status => x_return_status
22 ,x_msg_count => x_msg_count
23 ,x_msg_data => x_msg_data
24 ,p_agcv_rec => p_agcv_rec
25 ,p_agbv_tbl => p_agbv_tbl
26 ,x_agcv_rec => x_agcv_rec
27 ,x_agbv_tbl => x_agbv_tbl);
28
29
30 END create_acc_group;
31
32
33
34
35 PROCEDURE create_acc_ccid(p_api_version IN NUMBER
36 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
37 ,x_return_status OUT NOCOPY VARCHAR2
38 ,x_msg_count OUT NOCOPY NUMBER
39 ,x_msg_data OUT NOCOPY VARCHAR2
40 ,p_agcv_rec IN agcv_rec_type
41 ,x_agcv_rec OUT NOCOPY agcv_rec_type) IS
42
43
44 BEGIN
45
46 okl_acc_group_pub.create_acc_ccid(p_api_version => p_api_version
47 ,p_init_msg_list => p_init_msg_list
48 ,x_return_status => x_return_status
49 ,x_msg_count => x_msg_count
50 ,x_msg_data => x_msg_data
51 ,p_agcv_rec => p_agcv_rec
52 ,x_agcv_rec => x_agcv_rec);
53
54
55
56 END create_acc_ccid;
57
58
59
60 PROCEDURE create_acc_ccid(p_api_version IN NUMBER
61 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
62 ,x_return_status OUT NOCOPY VARCHAR2
63 ,x_msg_count OUT NOCOPY NUMBER
64 ,x_msg_data OUT NOCOPY VARCHAR2
65 ,p_agcv_tbl IN agcv_tbl_type
66 ,x_agcv_tbl OUT NOCOPY agcv_tbl_type) IS
67
68
69
70 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
71 l_api_name CONSTANT VARCHAR2(30) := 'create_acc_ccid';
72 i NUMBER;
73
74 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
75 l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
76
77
78 BEGIN
79
80
81 IF (l_agcv_tbl.COUNT > 0) THEN
82
83 i := l_agcv_tbl.FIRST;
84
85 LOOP
86
87 okl_process_Acc_group_pvt.create_acc_ccid(p_api_version => p_api_version
88 ,p_init_msg_list => p_init_msg_list
89 ,x_return_status => l_return_status
90 ,x_msg_count => x_msg_count
91 ,x_msg_data => x_msg_data
92 ,p_agcv_rec => l_agcv_tbl(i)
93 ,x_agcv_rec => x_agcv_tbl(i));
94
95 -- store the highest degree of error
96 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
97 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
98 l_overall_status := l_return_status;
99 END IF;
100 END IF;
101
102 EXIT WHEN (i = l_agcv_tbl.LAST);
103
104 i := l_agcv_tbl.NEXT(i);
105
106 END LOOP;
107
108 l_return_status := l_overall_status;
109
110 END IF;
111
112 END create_acc_ccid;
113
114
115
116 PROCEDURE update_acc_group(p_api_version IN NUMBER,
117 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
118 x_return_status OUT NOCOPY VARCHAR2,
119 x_msg_count OUT NOCOPY NUMBER,
120 x_msg_data OUT NOCOPY VARCHAR2,
121 p_agcv_rec IN agcv_rec_type,
122 p_agbv_tbl IN agbv_tbl_type,
123 x_agcv_rec OUT NOCOPY agcv_rec_type,
124 x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
125
126
127 BEGIN
128
129
130 okl_acc_group_pub.update_acc_group(p_api_version => p_api_version
131 ,p_init_msg_list => p_init_msg_list
132 ,x_return_status => x_return_status
133 ,x_msg_count => x_msg_count
134 ,x_msg_data => x_msg_data
135 ,p_agcv_rec => p_agcv_rec
136 ,p_agbv_tbl => p_agbv_tbl
137 ,x_agcv_rec => x_agcv_rec
138 ,x_agbv_tbl => x_agbv_tbl);
139
140
141 END update_acc_group;
142
143
144
145 PROCEDURE update_acc_ccid(p_api_version IN NUMBER
146 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_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_agcv_rec IN agcv_rec_type
151 ,x_agcv_rec OUT NOCOPY agcv_rec_type) IS
152
153
154 BEGIN
155
156 -- call complex entity API
157
158 okl_acc_group_pub.update_acc_ccid(p_api_version => p_api_version
159 ,p_init_msg_list => p_init_msg_list
160 ,x_return_status => x_return_status
161 ,x_msg_count => x_msg_count
162 ,x_msg_data => x_msg_data
163 ,p_agcv_rec => p_agcv_rec
164 ,x_agcv_rec => x_agcv_rec);
165
166
167 END update_acc_ccid;
168
169
170
171
172 PROCEDURE update_acc_ccid(p_api_version IN NUMBER
173 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
174 ,x_return_status OUT NOCOPY VARCHAR2
175 ,x_msg_count OUT NOCOPY NUMBER
176 ,x_msg_data OUT NOCOPY VARCHAR2
177 ,p_agcv_tbl IN agcv_tbl_type
178 ,x_agcv_tbl OUT NOCOPY agcv_tbl_type) IS
179
180 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
181 l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
182 i NUMBER;
183
184 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
185 l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
186
187 BEGIN
188
189 IF (l_agcv_tbl.COUNT > 0) THEN
190
191 i := l_agcv_tbl.FIRST;
192
193 LOOP
194
195 update_acc_ccid( p_api_version => p_api_version
196 ,p_init_msg_list => p_init_msg_list
197 ,x_return_status => l_return_status
198 ,x_msg_count => x_msg_count
199 ,x_msg_data => x_msg_data
200 ,p_agcv_rec => l_agcv_tbl(i)
201 ,x_agcv_rec => x_agcv_tbl(i));
202
203 -- store the highest degree of error
204 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
205 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
206 l_overall_status := l_return_status;
207 END IF;
208 END IF;
209
210 EXIT WHEN (i = l_agcv_tbl.LAST);
211
212 i := l_agcv_tbl.NEXT(i);
213
214 END LOOP;
215
216 -- return overall status
217 l_return_status := l_overall_status;
218 END IF;
219
220
221 END update_acc_ccid;
222
223
224
225 PROCEDURE delete_acc_ccid(p_api_version IN NUMBER
226 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
227 ,x_return_status OUT NOCOPY VARCHAR2
228 ,x_msg_count OUT NOCOPY NUMBER
229 ,x_msg_data OUT NOCOPY VARCHAR2
230 ,p_agcv_rec IN agcv_rec_type) IS
231
232
233 BEGIN
234
235
236 okl_acc_group_pub.delete_acc_ccid(p_api_version => p_api_version
237 ,p_init_msg_list => p_init_msg_list
238 ,x_return_status => x_return_status
239 ,x_msg_count => x_msg_count
240 ,x_msg_data => x_msg_data
241 ,p_agcv_rec => p_agcv_rec);
242
243
244
245 END delete_acc_ccid;
246
247
248
249 PROCEDURE delete_acc_ccid(p_api_version IN NUMBER
250 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
251 ,x_return_status OUT NOCOPY VARCHAR2
252 ,x_msg_count OUT NOCOPY NUMBER
253 ,x_msg_data OUT NOCOPY VARCHAR2
254 ,p_agcv_tbl IN agcv_tbl_type) IS
255
256 i NUMBER :=0;
257 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
258 l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
259 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
260 l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
261
262 BEGIN
263
264 IF (l_agcv_tbl.COUNT > 0) THEN
265
266 i := l_agcv_tbl.FIRST;
267
268 LOOP
269
270 delete_acc_ccid(p_api_version => p_api_version
271 ,p_init_msg_list => p_init_msg_list
272 ,x_return_status => l_return_status
273 ,x_msg_count => x_msg_count
274 ,x_msg_data => x_msg_data
275 ,p_agcv_rec => l_agcv_tbl(i));
276
277 -- store the highest degree of error
278 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
279 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
280 l_overall_status := l_return_status;
281 END IF;
282 END IF;
283
284 EXIT WHEN (i = l_agcv_tbl.LAST);
285
286 i := l_agcv_tbl.NEXT(i);
287
288 END LOOP;
289 -- return overall status
290 l_return_status := l_overall_status;
291
292 END IF;
293
294 END delete_acc_ccid;
295
296
297
298 PROCEDURE create_acc_bal(
299 p_api_version IN NUMBER
300 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
301 ,x_return_status OUT NOCOPY VARCHAR2
302 ,x_msg_count OUT NOCOPY NUMBER
303 ,x_msg_data OUT NOCOPY VARCHAR2
304 ,p_agbv_rec IN agbv_rec_type
305 ,x_agbv_rec OUT NOCOPY agbv_rec_type)
306
307
308 IS
309
310 BEGIN
311
312 okl_acc_group_pub.create_acc_bal(p_api_version => p_api_version
313 ,p_init_msg_list => p_init_msg_list
314 ,x_return_status => x_return_status
315 ,x_msg_count => x_msg_count
316 ,x_msg_data => x_msg_data
317 ,p_agbv_rec => p_agbv_rec
318 ,x_agbv_rec => x_agbv_rec);
319
320 END create_acc_bal;
321
322
323
324 PROCEDURE create_acc_bal(p_api_version IN NUMBER
325 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
326 ,x_return_status OUT NOCOPY VARCHAR2
327 ,x_msg_count OUT NOCOPY NUMBER
328 ,x_msg_data OUT NOCOPY VARCHAR2
329 ,p_agbv_tbl IN agbv_tbl_type
330 ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
331
332
333 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
334 l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
335 i NUMBER;
336 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
337 l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
338
339 BEGIN
340
341
342 IF (l_agbv_tbl.COUNT > 0) THEN
343
344 i := l_agbv_tbl.FIRST;
345
346 LOOP
347
348 create_acc_bal(p_api_version => p_api_version
349 ,p_init_msg_list => p_init_msg_list
350 ,x_return_status => l_return_status
351 ,x_msg_count => x_msg_count
352 ,x_msg_data => x_msg_data
353 ,p_agbv_rec => l_agbv_tbl(i)
354 ,x_agbv_rec => x_agbv_tbl(i));
355
356 -- store the highest degree of error
357 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
358 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
359 l_overall_status := l_return_status;
360 END IF;
361 END IF;
362
363 EXIT WHEN (i = l_agbv_tbl.LAST);
364
365 i := l_agbv_tbl.NEXT(i);
366
367 END LOOP;
368 -- return overall status
369 l_return_status := l_overall_status;
370
371 END IF;
372
373
374 END create_acc_bal;
375
376
377
378 PROCEDURE update_acc_bal(p_api_version IN NUMBER
379 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
380 ,x_return_status OUT NOCOPY VARCHAR2
381 ,x_msg_count OUT NOCOPY NUMBER
382 ,x_msg_data OUT NOCOPY VARCHAR2
383 ,p_agbv_rec IN agbv_rec_type
384 ,x_agbv_rec OUT NOCOPY agbv_rec_type) IS
385
386 BEGIN
387
388 okl_acc_group_pub.update_acc_bal(p_api_version => p_api_version
389 ,p_init_msg_list => p_init_msg_list
390 ,x_return_status => x_return_status
391 ,x_msg_count => x_msg_count
392 ,x_msg_data => x_msg_data
393 ,p_agbv_rec => p_agbv_rec
394 ,x_agbv_rec => x_agbv_rec);
395
396 END update_acc_bal;
397
398
399
400
401 PROCEDURE update_acc_bal(p_api_version IN NUMBER
402 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
403 ,x_return_status OUT NOCOPY VARCHAR2
404 ,x_msg_count OUT NOCOPY NUMBER
405 ,x_msg_data OUT NOCOPY VARCHAR2
406 ,p_agbv_tbl IN agbv_tbl_type
407 ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
408
409 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
410 l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
411 i NUMBER;
412 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
413 l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
414
415 BEGIN
416
417 IF (l_agbv_tbl.COUNT > 0) THEN
418
419 i := l_agbv_tbl.FIRST;
420
421 LOOP
422
423 update_acc_bal(p_api_version => p_api_version
424 ,p_init_msg_list => p_init_msg_list
425 ,x_return_status => l_return_status
426 ,x_msg_count => x_msg_count
427 ,x_msg_data => x_msg_data
428 ,p_agbv_rec => l_agbv_tbl(i)
429 ,x_agbv_rec => x_agbv_tbl(i));
430
431 -- store the highest degree of error
432 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
433 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
434 l_overall_status := l_return_status;
435 END IF;
436 END IF;
437
438 EXIT WHEN (i = l_agbv_tbl.LAST);
439
440 i := l_agbv_tbl.NEXT(i);
441
442 END LOOP;
443
444 END IF;
445
446 -- return overall status
447 l_return_status := l_overall_status;
448
449 END update_acc_bal;
450
451
452
453 --Put custom code for cascade delete by developer
454
455 PROCEDURE delete_acc_bal(p_api_version IN NUMBER
456 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
457 ,x_return_status OUT NOCOPY VARCHAR2
458 ,x_msg_count OUT NOCOPY NUMBER
459 ,x_msg_data OUT NOCOPY VARCHAR2
460 ,p_agbv_rec IN agbv_rec_type) IS
461
462
463 BEGIN
464
465
466 okl_acc_group_pub.delete_acc_bal(p_api_version => p_api_version
467 ,p_init_msg_list => p_init_msg_list
468 ,x_return_status => x_return_status
469 ,x_msg_count => x_msg_count
470 ,x_msg_data => x_msg_data
471 ,p_agbv_rec => p_agbv_rec);
472
473
474 END delete_acc_bal;
475
476
477
478 PROCEDURE delete_acc_bal(p_api_version IN NUMBER
479 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
480 ,x_return_status OUT NOCOPY VARCHAR2
481 ,x_msg_count OUT NOCOPY NUMBER
482 ,x_msg_data OUT NOCOPY VARCHAR2
483 ,p_agbv_tbl IN agbv_tbl_type) IS
484
485
486
487 i NUMBER :=0;
488 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
489 l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
490 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
491 l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
492
493 BEGIN
494
495 IF (l_agbv_tbl.COUNT > 0) THEN
496
497 i := l_agbv_tbl.FIRST;
498
499 LOOP
500
501 delete_acc_bal(p_api_version => p_api_version
502 ,p_init_msg_list => p_init_msg_list
503 ,x_return_status => l_return_status
504 ,x_msg_count => x_msg_count
505 ,x_msg_data => x_msg_data
506 ,p_agbv_rec => l_agbv_tbl(i));
507
508 -- store the highest degree of error
509 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
510 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
511 l_overall_status := l_return_status;
512 END IF;
513 END IF;
514
515 EXIT WHEN (i = l_agbv_tbl.LAST);
516
517 i := l_agbv_tbl.NEXT(i);
518
519 END LOOP;
520 -- return overall status
521 l_return_status := l_overall_status;
522
523 END IF;
524
525
526 END delete_acc_bal;
527
528 END okl_process_Acc_group_pvt;
529