16:
17: i NUMBER;
18: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_ccid';
19: l_agcv_rec agcv_rec_type := p_agcv_rec;
20: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
22:
23:
24: BEGIN
23:
24: BEGIN
25:
26: SAVEPOINT create_acc_group;
27: x_return_status := FND_API.G_RET_STS_SUCCESS;
28:
29: -- customer pre-processing
30:
31:
51: ,p_agbv_tbl => l_agbv_tbl
52: ,x_agcv_rec => x_agcv_rec
53: ,x_agbv_tbl => x_agbv_tbl);
54:
55: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
56: RAISE FND_API.G_EXC_ERROR;
57: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
52: ,x_agcv_rec => x_agcv_rec
53: ,x_agbv_tbl => x_agbv_tbl);
54:
55: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
56: RAISE FND_API.G_EXC_ERROR;
57: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
53: ,x_agbv_tbl => x_agbv_tbl);
54:
55: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
56: RAISE FND_API.G_EXC_ERROR;
57: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61:
54:
55: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
56: RAISE FND_API.G_EXC_ERROR;
57: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61:
62: l_agcv_rec := x_agcv_rec;
75:
76:
77:
78: EXCEPTION
79: WHEN FND_API.G_EXC_ERROR THEN
80: ROLLBACK TO create_acc_group;
81: x_return_status := FND_API.G_RET_STS_ERROR;
82:
83: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
77:
78: EXCEPTION
79: WHEN FND_API.G_EXC_ERROR THEN
80: ROLLBACK TO create_acc_group;
81: x_return_status := FND_API.G_RET_STS_ERROR;
82:
83: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
84: ,p_count => x_msg_count
85: ,p_data => x_msg_data);
83: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
84: ,p_count => x_msg_count
85: ,p_data => x_msg_data);
86:
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: ROLLBACK TO create_acc_group;
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
90: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
91: ,p_count => x_msg_count
85: ,p_data => x_msg_data);
86:
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: ROLLBACK TO create_acc_group;
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
90: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
91: ,p_count => x_msg_count
92: ,p_data => x_msg_data);
93:
97: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
98: ,p_count => x_msg_count
99: ,p_data => x_msg_data);
100: -- notify caller of an UNEXPECTED error
101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102:
103:
104: END create_acc_group;
105:
112: ,x_msg_data OUT NOCOPY VARCHAR2
113: ,p_agcv_rec IN agcv_rec_type
114: ,x_agcv_rec OUT NOCOPY agcv_rec_type) IS
115:
116: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
117: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_ccid';
118: l_agcv_rec agcv_rec_type := p_agcv_rec;
119:
120:
121:
122: BEGIN
123:
124: SAVEPOINT create_acc_ccid;
125: x_return_status := FND_API.G_RET_STS_SUCCESS;
126:
127:
128: -- customer pre-processing
129:
149: ,x_agcv_rec => x_agcv_rec);
150:
151:
152:
153: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
154: RAISE FND_API.G_EXC_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
157: END IF;
150:
151:
152:
153: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
154: RAISE FND_API.G_EXC_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
157: END IF;
158:
151:
152:
153: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
154: RAISE FND_API.G_EXC_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
157: END IF;
158:
159: l_agcv_rec := x_agcv_rec;
152:
153: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
154: RAISE FND_API.G_EXC_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
157: END IF;
158:
159: l_agcv_rec := x_agcv_rec;
160:
173:
174:
175: EXCEPTION
176:
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO create_acc_ccid;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180:
181: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
175: EXCEPTION
176:
177: WHEN FND_API.G_EXC_ERROR THEN
178: ROLLBACK TO create_acc_ccid;
179: x_return_status := FND_API.G_RET_STS_ERROR;
180:
181: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
182: ,p_count => x_msg_count
183: ,p_data => x_msg_data);
181: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
182: ,p_count => x_msg_count
183: ,p_data => x_msg_data);
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO create_acc_ccid;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
189: ,p_count => x_msg_count
183: ,p_data => x_msg_data);
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO create_acc_ccid;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
189: ,p_count => x_msg_count
190: ,p_data => x_msg_data);
191:
195: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
196: ,p_count => x_msg_count
197: ,p_data => x_msg_data);
198: -- notify caller of an UNEXPECTED error
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200:
201: END create_acc_ccid;
202:
203:
210: ,p_agcv_tbl IN agcv_tbl_type
211: ,x_agcv_tbl OUT NOCOPY agcv_tbl_type) IS
212:
213:
214: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
215: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_ccid';
216: i NUMBER;
217:
218: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
214: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
215: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_ccid';
216: i NUMBER;
217:
218: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
219: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
220:
221: BEGIN
222:
221: BEGIN
222:
223: --Initialize the return status
224: SAVEPOINT create_acc_ccid;
225: x_return_status := FND_API.G_RET_STS_SUCCESS;
226:
227:
228:
229: -- customer pre-processing
256: ,x_agcv_rec => x_agcv_tbl(i)
257: );
258:
259: -- store the highest degree of error
260: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
261: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
262: l_overall_status := l_return_status;
263: END IF;
264: END IF;
257: );
258:
259: -- store the highest degree of error
260: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
261: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
262: l_overall_status := l_return_status;
263: END IF;
264: END IF;
265:
271: -- return overall status
272: l_return_status := l_overall_status;
273: END IF;
274:
275: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END IF;
272: l_return_status := l_overall_status;
273: END IF;
274:
275: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END IF;
280:
273: END IF;
274:
275: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END IF;
280:
281: l_agcv_tbl := x_agcv_tbl;
274:
275: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END IF;
280:
281: l_agcv_tbl := x_agcv_tbl;
282:
293:
294:
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO create_acc_ccid;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO create_acc_ccid;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
302: ,p_count => x_msg_count
303: ,p_data => x_msg_data);
301: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
302: ,p_count => x_msg_count
303: ,p_data => x_msg_data);
304:
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO create_acc_ccid;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
309: ,p_count => x_msg_count
303: ,p_data => x_msg_data);
304:
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO create_acc_ccid;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
309: ,p_count => x_msg_count
310: ,p_data => x_msg_data);
311:
315: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
316: ,p_count => x_msg_count
317: ,p_data => x_msg_data);
318: -- notify caller of an UNEXPECTED error
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320:
321:
322: END create_acc_ccid;
323:
334: p_agbv_tbl IN agbv_tbl_type,
335: x_agcv_rec OUT NOCOPY agcv_rec_type,
336: x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
337:
338: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
339: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
340: l_agcv_rec agcv_rec_type := p_agcv_rec;
341: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
342:
344:
345: BEGIN
346:
347: SAVEPOINT update_acc_group;
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349:
350:
351:
352: -- customer pre-processing
375: ,p_agbv_tbl => l_agbv_tbl
376: ,x_agcv_rec => x_agcv_rec
377: ,x_agbv_tbl => x_agbv_tbl);
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
376: ,x_agcv_rec => x_agcv_rec
377: ,x_agbv_tbl => x_agbv_tbl);
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
377: ,x_agbv_tbl => x_agbv_tbl);
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: l_agcv_rec := x_agcv_rec;
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: l_agcv_rec := x_agcv_rec;
386: l_agbv_tbl := x_agbv_tbl;
399:
400:
401: EXCEPTION
402:
403: WHEN FND_API.G_EXC_ERROR THEN
404: ROLLBACK TO update_acc_group;
405: x_return_status := FND_API.G_RET_STS_ERROR;
406:
407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
401: EXCEPTION
402:
403: WHEN FND_API.G_EXC_ERROR THEN
404: ROLLBACK TO update_acc_group;
405: x_return_status := FND_API.G_RET_STS_ERROR;
406:
407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
408: ,p_count => x_msg_count
409: ,p_data => x_msg_data);
407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
408: ,p_count => x_msg_count
409: ,p_data => x_msg_data);
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: ROLLBACK TO update_acc_group;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
415: ,p_count => x_msg_count
409: ,p_data => x_msg_data);
410:
411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: ROLLBACK TO update_acc_group;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
415: ,p_count => x_msg_count
416: ,p_data => x_msg_data);
417:
421: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
422: ,p_count => x_msg_count
423: ,p_data => x_msg_data);
424: -- notify caller of an UNEXPECTED error
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: END update_acc_group;
428:
429:
437: ,p_agbv_tbl IN agbv_tbl_type) IS
438:
439:
440:
441: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
442: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_ccid';
443: l_agcv_rec agcv_rec_type := p_agcv_rec;
444: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
445:
447:
448: BEGIN
449:
450: SAVEPOINT validate_acc_group;
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453:
454:
455: -- customer pre-processing
477: ,p_agbv_tbl => l_agbv_tbl);
478:
479:
480:
481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
482: RAISE FND_API.G_EXC_ERROR;
483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
478:
479:
480:
481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
482: RAISE FND_API.G_EXC_ERROR;
483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
479:
480:
481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
482: RAISE FND_API.G_EXC_ERROR;
483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487:
480:
481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
482: RAISE FND_API.G_EXC_ERROR;
483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487:
488:
499:
500:
501: EXCEPTION
502:
503: WHEN FND_API.G_EXC_ERROR THEN
504: ROLLBACK TO validate_acc_group;
505: x_return_status := FND_API.G_RET_STS_ERROR;
506:
507: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
501: EXCEPTION
502:
503: WHEN FND_API.G_EXC_ERROR THEN
504: ROLLBACK TO validate_acc_group;
505: x_return_status := FND_API.G_RET_STS_ERROR;
506:
507: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
508: ,p_count => x_msg_count
509: ,p_data => x_msg_data);
507: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
508: ,p_count => x_msg_count
509: ,p_data => x_msg_data);
510:
511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512: ROLLBACK TO validate_acc_group;
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
515: ,p_count => x_msg_count
509: ,p_data => x_msg_data);
510:
511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512: ROLLBACK TO validate_acc_group;
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
515: ,p_count => x_msg_count
516: ,p_data => x_msg_data);
517:
521: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
522: ,p_count => x_msg_count
523: ,p_data => x_msg_data);
524: -- notify caller of an UNEXPECTED error
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526:
527: END validate_acc_group;
528:
529:
538:
539: IS
540:
541:
542: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
543: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_ccid';
544:
545:
546:
545:
546:
547: BEGIN
548:
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
550:
551: SAVEPOINT lock_acc_ccid;
552:
553:
558: ,x_msg_count => x_msg_count
559: ,x_msg_data => x_msg_data
560: ,p_agcv_rec => p_agcv_rec);
561:
562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
563: RAISE FND_API.G_EXC_ERROR;
564: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
559: ,x_msg_data => x_msg_data
560: ,p_agcv_rec => p_agcv_rec);
561:
562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
563: RAISE FND_API.G_EXC_ERROR;
564: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
560: ,p_agcv_rec => p_agcv_rec);
561:
562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
563: RAISE FND_API.G_EXC_ERROR;
564: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: EXCEPTION
561:
562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
563: RAISE FND_API.G_EXC_ERROR;
564: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: EXCEPTION
569: WHEN FND_API.G_EXC_ERROR THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: EXCEPTION
569: WHEN FND_API.G_EXC_ERROR THEN
570: ROLLBACK TO lock_acc_ccid;
571: x_return_status := FND_API.G_RET_STS_ERROR;
572:
573: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
567:
568: EXCEPTION
569: WHEN FND_API.G_EXC_ERROR THEN
570: ROLLBACK TO lock_acc_ccid;
571: x_return_status := FND_API.G_RET_STS_ERROR;
572:
573: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
574: ,p_count => x_msg_count
575: ,p_data => x_msg_data);
573: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
574: ,p_count => x_msg_count
575: ,p_data => x_msg_data);
576:
577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
578: ROLLBACK TO lock_acc_ccid;
579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
580: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
581: ,p_count => x_msg_count
575: ,p_data => x_msg_data);
576:
577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
578: ROLLBACK TO lock_acc_ccid;
579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
580: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
581: ,p_count => x_msg_count
582: ,p_data => x_msg_data);
583:
587: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
588: ,p_count => x_msg_count
589: ,p_data => x_msg_data);
590: -- notify caller of an UNEXPECTED error
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592:
593: END lock_acc_ccid;
594:
595:
601: ,x_msg_data OUT NOCOPY VARCHAR2
602: ,p_agcv_tbl IN agcv_tbl_type) IS
603:
604:
605: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
606: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_ccid';
607: i NUMBER;
608: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
609:
604:
605: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
606: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_ccid';
607: i NUMBER;
608: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
609:
610:
611:
612: BEGIN
612: BEGIN
613:
614: --Initialize the return status
615:
616: x_return_status := FND_API.G_RET_STS_SUCCESS;
617: SAVEPOINT lock_acc_ccid;
618:
619: IF (p_agcv_tbl.COUNT > 0) THEN
620:
629: ,x_msg_data => x_msg_data
630: ,p_agcv_rec => p_agcv_tbl(i));
631:
632: -- store the highest degree of error
633: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
634: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
635: l_overall_status := l_return_status;
636: END IF;
637: END IF;
630: ,p_agcv_rec => p_agcv_tbl(i));
631:
632: -- store the highest degree of error
633: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
634: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
635: l_overall_status := l_return_status;
636: END IF;
637: END IF;
638:
646: l_return_status := l_overall_status;
647:
648: END IF;
649:
650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
651: RAISE FND_API.G_EXC_ERROR;
652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: END IF;
647:
648: END IF;
649:
650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
651: RAISE FND_API.G_EXC_ERROR;
652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: END IF;
655:
648: END IF;
649:
650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
651: RAISE FND_API.G_EXC_ERROR;
652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: END IF;
655:
656: EXCEPTION
649:
650: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
651: RAISE FND_API.G_EXC_ERROR;
652: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: END IF;
655:
656: EXCEPTION
657: WHEN FND_API.G_EXC_ERROR THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: END IF;
655:
656: EXCEPTION
657: WHEN FND_API.G_EXC_ERROR THEN
658: ROLLBACK TO lock_acc_ccid;
659: x_return_status := FND_API.G_RET_STS_ERROR;
660:
661: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
655:
656: EXCEPTION
657: WHEN FND_API.G_EXC_ERROR THEN
658: ROLLBACK TO lock_acc_ccid;
659: x_return_status := FND_API.G_RET_STS_ERROR;
660:
661: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
662: ,p_count => x_msg_count
663: ,p_data => x_msg_data);
661: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
662: ,p_count => x_msg_count
663: ,p_data => x_msg_data);
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: ROLLBACK TO lock_acc_ccid;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
669: ,p_count => x_msg_count
663: ,p_data => x_msg_data);
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: ROLLBACK TO lock_acc_ccid;
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
669: ,p_count => x_msg_count
670: ,p_data => x_msg_data);
671:
675: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
676: ,p_count => x_msg_count
677: ,p_data => x_msg_data);
678: -- notify caller of an UNEXPECTED error
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680:
681: END lock_acc_ccid;
682:
683:
689: ,x_msg_data OUT NOCOPY VARCHAR2
690: ,p_agcv_rec IN agcv_rec_type
691: ,x_agcv_rec OUT NOCOPY agcv_rec_type) IS
692:
693: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
694: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
695: l_agcv_rec agcv_rec_type := p_agcv_rec;
696:
697: BEGIN
696:
697: BEGIN
698:
699: SAVEPOINT update_acc_ccid;
700: x_return_status := FND_API.G_RET_STS_SUCCESS;
701:
702:
703: -- customer pre-processing
704:
723: ,p_agcv_rec => l_agcv_rec
724: ,x_agcv_rec => x_agcv_rec
725: );
726:
727: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
728: RAISE FND_API.G_EXC_ERROR;
729: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: END IF;
724: ,x_agcv_rec => x_agcv_rec
725: );
726:
727: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
728: RAISE FND_API.G_EXC_ERROR;
729: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: END IF;
732:
725: );
726:
727: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
728: RAISE FND_API.G_EXC_ERROR;
729: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: END IF;
732:
733: l_agcv_rec := x_agcv_rec;
726:
727: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
728: RAISE FND_API.G_EXC_ERROR;
729: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: END IF;
732:
733: l_agcv_rec := x_agcv_rec;
734:
744:
745:
746: EXCEPTION
747:
748: WHEN FND_API.G_EXC_ERROR THEN
749: ROLLBACK TO update_acc_ccid;
750: x_return_status := FND_API.G_RET_STS_ERROR;
751:
752: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
746: EXCEPTION
747:
748: WHEN FND_API.G_EXC_ERROR THEN
749: ROLLBACK TO update_acc_ccid;
750: x_return_status := FND_API.G_RET_STS_ERROR;
751:
752: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
753: ,p_count => x_msg_count
754: ,p_data => x_msg_data);
752: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
753: ,p_count => x_msg_count
754: ,p_data => x_msg_data);
755:
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: ROLLBACK TO update_acc_ccid;
758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
760: ,p_count => x_msg_count
754: ,p_data => x_msg_data);
755:
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: ROLLBACK TO update_acc_ccid;
758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
760: ,p_count => x_msg_count
761: ,p_data => x_msg_data);
762:
766: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
767: ,p_count => x_msg_count
768: ,p_data => x_msg_data);
769: -- notify caller of an UNEXPECTED error
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771:
772: END update_acc_ccid;
773:
774:
780: ,x_msg_data OUT NOCOPY VARCHAR2
781: ,p_agcv_tbl IN agcv_tbl_type
782: ,x_agcv_tbl OUT NOCOPY agcv_tbl_type) IS
783:
784: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
785: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
786: i NUMBER;
787:
788: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
784: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
785: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
786: i NUMBER;
787:
788: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
789: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
790:
791: BEGIN
792:
791: BEGIN
792:
793: --Initialize the return status
794:
795: x_return_status := FND_API.G_RET_STS_SUCCESS;
796: SAVEPOINT update_acc_ccid;
797:
798: -- customer pre-processing
799:
832: ,x_agcv_rec => x_agcv_tbl(i)
833:
834: );
835: -- store the highest degree of error
836: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
837: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
838: l_overall_status := l_return_status;
839: END IF;
840: END IF;
833:
834: );
835: -- store the highest degree of error
836: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
837: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
838: l_overall_status := l_return_status;
839: END IF;
840: END IF;
841:
848: -- return overall status
849: l_return_status := l_overall_status;
850: END IF;
851:
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
849: l_return_status := l_overall_status;
850: END IF;
851:
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
850: END IF;
851:
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858:
851:
852: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
853: RAISE FND_API.G_EXC_ERROR;
854: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858:
859: l_agcv_tbl := x_agcv_tbl;
873:
874:
875: EXCEPTION
876:
877: WHEN FND_API.G_EXC_ERROR THEN
878: ROLLBACK TO update_acc_ccid;
879: x_return_status := FND_API.G_RET_STS_ERROR;
880:
881: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
875: EXCEPTION
876:
877: WHEN FND_API.G_EXC_ERROR THEN
878: ROLLBACK TO update_acc_ccid;
879: x_return_status := FND_API.G_RET_STS_ERROR;
880:
881: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
882: ,p_count => x_msg_count
883: ,p_data => x_msg_data);
881: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
882: ,p_count => x_msg_count
883: ,p_data => x_msg_data);
884:
885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886: ROLLBACK TO update_acc_ccid;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
889: ,p_count => x_msg_count
883: ,p_data => x_msg_data);
884:
885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886: ROLLBACK TO update_acc_ccid;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
889: ,p_count => x_msg_count
890: ,p_data => x_msg_data);
891:
895: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
896: ,p_count => x_msg_count
897: ,p_data => x_msg_data);
898: -- notify caller of an UNEXPECTED error
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900:
901:
902:
903: END update_acc_ccid;
921: ,p_agcv_rec IN agcv_rec_type) IS
922:
923: i NUMBER :=0;
924:
925: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
926:
927: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
928:
929: l_agcv_rec agcv_rec_type := p_agcv_rec;
932:
933: BEGIN
934:
935: SAVEPOINT delete_acc_ccid;
936: x_return_status := FND_API.G_RET_STS_SUCCESS;
937:
938:
939:
940: -- customer pre-processing
970: );
971:
972:
973:
974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
975: RAISE FND_API.G_EXC_ERROR;
976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
978: END IF;
971:
972:
973:
974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
975: RAISE FND_API.G_EXC_ERROR;
976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979:
972:
973:
974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
975: RAISE FND_API.G_EXC_ERROR;
976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979:
980:
973:
974: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
975: RAISE FND_API.G_EXC_ERROR;
976: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979:
980:
981:
994:
995:
996: EXCEPTION
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO delete_acc_ccid;
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001:
1002: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
996: EXCEPTION
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO delete_acc_ccid;
1000: x_return_status := FND_API.G_RET_STS_ERROR;
1001:
1002: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1003: ,p_count => x_msg_count
1004: ,p_data => x_msg_data);
1002: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1003: ,p_count => x_msg_count
1004: ,p_data => x_msg_data);
1005:
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007: ROLLBACK TO delete_acc_ccid;
1008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1009: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1010: ,p_count => x_msg_count
1004: ,p_data => x_msg_data);
1005:
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007: ROLLBACK TO delete_acc_ccid;
1008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1009: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1010: ,p_count => x_msg_count
1011: ,p_data => x_msg_data);
1012:
1016: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1017: ,p_count => x_msg_count
1018: ,p_data => x_msg_data);
1019: -- notify caller of an UNEXPECTED error
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021:
1022: END delete_acc_ccid;
1023:
1024:
1038: ,p_agcv_tbl IN agcv_tbl_type) IS
1039:
1040: i NUMBER :=0;
1041:
1042: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1043:
1044: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
1045:
1046: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1042: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1043:
1044: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
1045:
1046: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1047:
1048: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
1049:
1050: BEGIN
1050: BEGIN
1051:
1052: --Initialize the return status
1053:
1054: x_return_status := FND_API.G_RET_STS_SUCCESS;
1055: SAVEPOINT delete_acc_ccid;
1056:
1057: -- customer pre-processing
1058:
1090:
1091: );
1092:
1093: -- store the highest degree of error
1094: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1095: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1096: l_overall_status := l_return_status;
1097: END IF;
1098: END IF;
1091: );
1092:
1093: -- store the highest degree of error
1094: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1095: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1096: l_overall_status := l_return_status;
1097: END IF;
1098: END IF;
1099:
1106: l_return_status := l_overall_status;
1107:
1108: END IF;
1109:
1110: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1111: RAISE FND_API.G_EXC_ERROR;
1112: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1107:
1108: END IF;
1109:
1110: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1111: RAISE FND_API.G_EXC_ERROR;
1112: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115:
1108: END IF;
1109:
1110: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1111: RAISE FND_API.G_EXC_ERROR;
1112: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115:
1116:
1109:
1110: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1111: RAISE FND_API.G_EXC_ERROR;
1112: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115:
1116:
1117:
1130:
1131:
1132: EXCEPTION
1133:
1134: WHEN FND_API.G_EXC_ERROR THEN
1135: ROLLBACK TO delete_acc_ccid;
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1132: EXCEPTION
1133:
1134: WHEN FND_API.G_EXC_ERROR THEN
1135: ROLLBACK TO delete_acc_ccid;
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1139: ,p_count => x_msg_count
1140: ,p_data => x_msg_data);
1138: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1139: ,p_count => x_msg_count
1140: ,p_data => x_msg_data);
1141:
1142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1143: ROLLBACK TO delete_acc_ccid;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1146: ,p_count => x_msg_count
1140: ,p_data => x_msg_data);
1141:
1142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1143: ROLLBACK TO delete_acc_ccid;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1146: ,p_count => x_msg_count
1147: ,p_data => x_msg_data);
1148:
1152: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1153: ,p_count => x_msg_count
1154: ,p_data => x_msg_data);
1155: -- notify caller of an UNEXPECTED error
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157:
1158:
1159:
1160: END delete_acc_ccid;
1174: ,x_msg_data OUT NOCOPY VARCHAR2
1175:
1176: ,p_agcv_rec IN agcv_rec_type) IS
1177:
1178: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1179:
1180: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_ccid';
1181:
1182: l_agcv_rec agcv_rec_type := p_agcv_rec;
1185:
1186: BEGIN
1187:
1188: SAVEPOINT validate_acc_ccid;
1189: x_return_status := FND_API.G_RET_STS_SUCCESS;
1190:
1191:
1192:
1193: -- customer pre-processing
1223: ,p_agcv_rec => l_agcv_rec
1224:
1225: );
1226:
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1224:
1225: );
1226:
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232:
1225: );
1226:
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232:
1233:
1226:
1227: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: END IF;
1232:
1233:
1234:
1247:
1248:
1249: EXCEPTION
1250:
1251: WHEN FND_API.G_EXC_ERROR THEN
1252: ROLLBACK TO validate_acc_ccid;
1253: x_return_status := FND_API.G_RET_STS_ERROR;
1254:
1255: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1249: EXCEPTION
1250:
1251: WHEN FND_API.G_EXC_ERROR THEN
1252: ROLLBACK TO validate_acc_ccid;
1253: x_return_status := FND_API.G_RET_STS_ERROR;
1254:
1255: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1256: ,p_count => x_msg_count
1257: ,p_data => x_msg_data);
1255: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1256: ,p_count => x_msg_count
1257: ,p_data => x_msg_data);
1258:
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: ROLLBACK TO validate_acc_ccid;
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1262: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1263: ,p_count => x_msg_count
1257: ,p_data => x_msg_data);
1258:
1259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1260: ROLLBACK TO validate_acc_ccid;
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1262: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1263: ,p_count => x_msg_count
1264: ,p_data => x_msg_data);
1265:
1269: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1270: ,p_count => x_msg_count
1271: ,p_data => x_msg_data);
1272: -- notify caller of an UNEXPECTED error
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274:
1275: END validate_acc_ccid;
1276:
1277:
1289: x_msg_data OUT NOCOPY VARCHAR2,
1290:
1291: p_agcv_tbl IN agcv_tbl_type) IS
1292:
1293: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1294:
1295: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_ccid';
1296:
1297: i NUMBER;
1295: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_ccid';
1296:
1297: i NUMBER;
1298:
1299: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1300:
1301: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
1302:
1303: BEGIN
1303: BEGIN
1304:
1305: --Initialize the return status
1306:
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308: SAVEPOINT validate_acc_ccid;
1309:
1310: -- customer pre-processing
1311:
1341: ,p_agcv_rec => l_agcv_tbl(i)
1342:
1343: );
1344: -- store the highest degree of error
1345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1346: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: l_overall_status := l_return_status;
1348: END IF;
1349: END IF;
1342:
1343: );
1344: -- store the highest degree of error
1345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1346: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1347: l_overall_status := l_return_status;
1348: END IF;
1349: END IF;
1350:
1357: l_return_status := l_overall_status;
1358:
1359: END IF;
1360:
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: RAISE FND_API.G_EXC_ERROR;
1363: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1358:
1359: END IF;
1360:
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: RAISE FND_API.G_EXC_ERROR;
1363: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1366:
1359: END IF;
1360:
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: RAISE FND_API.G_EXC_ERROR;
1363: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1366:
1367:
1360:
1361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1362: RAISE FND_API.G_EXC_ERROR;
1363: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1365: END IF;
1366:
1367:
1368:
1381:
1382:
1383: EXCEPTION
1384:
1385: WHEN FND_API.G_EXC_ERROR THEN
1386: ROLLBACK TO validate_acc_ccid;
1387: x_return_status := FND_API.G_RET_STS_ERROR;
1388:
1389: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1383: EXCEPTION
1384:
1385: WHEN FND_API.G_EXC_ERROR THEN
1386: ROLLBACK TO validate_acc_ccid;
1387: x_return_status := FND_API.G_RET_STS_ERROR;
1388:
1389: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1390: ,p_count => x_msg_count
1391: ,p_data => x_msg_data);
1389: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1390: ,p_count => x_msg_count
1391: ,p_data => x_msg_data);
1392:
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO validate_acc_ccid;
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1397: ,p_count => x_msg_count
1391: ,p_data => x_msg_data);
1392:
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO validate_acc_ccid;
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1397: ,p_count => x_msg_count
1398: ,p_data => x_msg_data);
1399:
1403: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1404: ,p_count => x_msg_count
1405: ,p_data => x_msg_data);
1406: -- notify caller of an UNEXPECTED error
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1408:
1409:
1410: END validate_acc_ccid;
1411:
1426: ,p_agbv_rec IN agbv_rec_type
1427:
1428: ,x_agbv_rec OUT NOCOPY agbv_rec_type) IS
1429:
1430: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1431:
1432: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
1433:
1434: l_agbv_rec agbv_rec_type := p_agbv_rec;
1435:
1436: BEGIN
1437:
1438: SAVEPOINT create_acc_bal;
1439: x_return_status := FND_API.G_RET_STS_SUCCESS;
1440:
1441:
1442:
1443: -- customer pre-processing
1477: ,x_agbv_rec => x_agbv_rec
1478:
1479: );
1480:
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1478:
1479: );
1480:
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1479: );
1480:
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: l_agbv_rec := x_agbv_rec;
1480:
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: l_agbv_rec := x_agbv_rec;
1488:
1501:
1502:
1503: EXCEPTION
1504:
1505: WHEN FND_API.G_EXC_ERROR THEN
1506: ROLLBACK TO create_acc_bal;
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508:
1509: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1503: EXCEPTION
1504:
1505: WHEN FND_API.G_EXC_ERROR THEN
1506: ROLLBACK TO create_acc_bal;
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508:
1509: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1510: ,p_count => x_msg_count
1511: ,p_data => x_msg_data);
1509: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1510: ,p_count => x_msg_count
1511: ,p_data => x_msg_data);
1512:
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: ROLLBACK TO create_acc_bal;
1515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1516: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1517: ,p_count => x_msg_count
1511: ,p_data => x_msg_data);
1512:
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: ROLLBACK TO create_acc_bal;
1515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1516: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1517: ,p_count => x_msg_count
1518: ,p_data => x_msg_data);
1519:
1523: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1524: ,p_count => x_msg_count
1525: ,p_data => x_msg_data);
1526: -- notify caller of an UNEXPECTED error
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528:
1529: END create_acc_bal;
1530:
1531:
1545: ,p_agbv_tbl IN agbv_tbl_type
1546:
1547: ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
1548:
1549: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1550:
1551: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
1552:
1553: i NUMBER;
1551: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
1552:
1553: i NUMBER;
1554:
1555: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1556:
1557: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
1558:
1559: BEGIN
1559: BEGIN
1560:
1561: --Initialize the return status
1562: SAVEPOINT create_acc_bal;
1563: x_return_status := FND_API.G_RET_STS_SUCCESS;
1564:
1565:
1566:
1567: -- customer pre-processing
1601: ,x_agbv_rec => x_agbv_tbl(i)
1602:
1603: );
1604: -- store the highest degree of error
1605: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1606: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1607: l_overall_status := l_return_status;
1608: END IF;
1609: END IF;
1602:
1603: );
1604: -- store the highest degree of error
1605: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1606: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1607: l_overall_status := l_return_status;
1608: END IF;
1609: END IF;
1610:
1617: l_return_status := l_overall_status;
1618:
1619: END IF;
1620:
1621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1622: RAISE FND_API.G_EXC_ERROR;
1623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1618:
1619: END IF;
1620:
1621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1622: RAISE FND_API.G_EXC_ERROR;
1623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1626:
1619: END IF;
1620:
1621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1622: RAISE FND_API.G_EXC_ERROR;
1623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1626:
1627:
1620:
1621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1622: RAISE FND_API.G_EXC_ERROR;
1623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1626:
1627:
1628: l_agbv_tbl := x_agbv_tbl;
1642:
1643:
1644: EXCEPTION
1645:
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO create_acc_bal;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649:
1650: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1644: EXCEPTION
1645:
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO create_acc_bal;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649:
1650: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1651: ,p_count => x_msg_count
1652: ,p_data => x_msg_data);
1650: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1651: ,p_count => x_msg_count
1652: ,p_data => x_msg_data);
1653:
1654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1655: ROLLBACK TO create_acc_bal;
1656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1657: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1658: ,p_count => x_msg_count
1652: ,p_data => x_msg_data);
1653:
1654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1655: ROLLBACK TO create_acc_bal;
1656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1657: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1658: ,p_count => x_msg_count
1659: ,p_data => x_msg_data);
1660:
1664: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1665: ,p_count => x_msg_count
1666: ,p_data => x_msg_data);
1667: -- notify caller of an UNEXPECTED error
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669:
1670:
1671:
1672: END create_acc_bal;
1686: ,x_msg_data OUT NOCOPY VARCHAR2
1687:
1688: ,p_agbv_rec IN agbv_rec_type) IS
1689:
1690: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1691:
1692: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_bal';
1693:
1694: BEGIN
1692: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_bal';
1693:
1694: BEGIN
1695:
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1697: SAVEPOINT lock_acc_bal;
1698:
1699: okl_acc_group_pvt.lock_acc_bal(
1700:
1711: ,p_agbv_rec => p_agbv_rec
1712:
1713: );
1714:
1715: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1712:
1713: );
1714:
1715: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1713: );
1714:
1715: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1721: EXCEPTION
1714:
1715: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1716: RAISE FND_API.G_EXC_ERROR;
1717: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_ERROR THEN
1723: ROLLBACK TO lock_acc_bal;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1726: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1720:
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_ERROR THEN
1723: ROLLBACK TO lock_acc_bal;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1726: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1727: ,p_count => x_msg_count
1728: ,p_data => x_msg_data);
1726: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1727: ,p_count => x_msg_count
1728: ,p_data => x_msg_data);
1729:
1730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1731: ROLLBACK TO lock_acc_bal;
1732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1733: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1734: ,p_count => x_msg_count
1728: ,p_data => x_msg_data);
1729:
1730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1731: ROLLBACK TO lock_acc_bal;
1732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1733: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1734: ,p_count => x_msg_count
1735: ,p_data => x_msg_data);
1736:
1740: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1741: ,p_count => x_msg_count
1742: ,p_data => x_msg_data);
1743: -- notify caller of an UNEXPECTED error
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1745:
1746: END lock_acc_bal;
1747:
1748:
1760: ,x_msg_data OUT NOCOPY VARCHAR2
1761:
1762: ,p_agbv_tbl IN agbv_tbl_type) IS
1763:
1764: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1765:
1766: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_bal';
1767:
1768: i NUMBER;
1766: l_api_name CONSTANT VARCHAR2(30) := 'lock_acc_bal';
1767:
1768: i NUMBER;
1769:
1770: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1771:
1772:
1773: BEGIN
1774:
1773: BEGIN
1774:
1775: --Initialize the return status
1776:
1777: x_return_status := FND_API.G_RET_STS_SUCCESS;
1778: SAVEPOINT lock_acc_bal;
1779:
1780: IF (p_agbv_tbl.COUNT > 0) THEN
1781:
1798: ,p_agbv_rec => p_agbv_tbl(i)
1799:
1800: );
1801: -- store the highest degree of error
1802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1803: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1804: l_overall_status := l_return_status;
1805: END IF;
1806: END IF;
1799:
1800: );
1801: -- store the highest degree of error
1802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1803: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1804: l_overall_status := l_return_status;
1805: END IF;
1806: END IF;
1807:
1815: l_return_status := l_overall_status;
1816:
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1816:
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1817: END IF;
1818:
1819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: EXCEPTION
1818:
1819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: EXCEPTION
1826: WHEN FND_API.G_EXC_ERROR THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: EXCEPTION
1826: WHEN FND_API.G_EXC_ERROR THEN
1827: ROLLBACK TO lock_acc_bal;
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829:
1830: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1824:
1825: EXCEPTION
1826: WHEN FND_API.G_EXC_ERROR THEN
1827: ROLLBACK TO lock_acc_bal;
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829:
1830: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1831: ,p_count => x_msg_count
1832: ,p_data => x_msg_data);
1830: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1831: ,p_count => x_msg_count
1832: ,p_data => x_msg_data);
1833:
1834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1835: ROLLBACK TO lock_acc_bal;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1838: ,p_count => x_msg_count
1832: ,p_data => x_msg_data);
1833:
1834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1835: ROLLBACK TO lock_acc_bal;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1838: ,p_count => x_msg_count
1839: ,p_data => x_msg_data);
1840:
1844: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1845: ,p_count => x_msg_count
1846: ,p_data => x_msg_data);
1847: -- notify caller of an UNEXPECTED error
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1849:
1850: END lock_acc_bal;
1851:
1852:
1866: ,p_agbv_rec IN agbv_rec_type
1867:
1868: ,x_agbv_rec OUT NOCOPY agbv_rec_type) IS
1869:
1870: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1871:
1872: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1873:
1874: l_agbv_rec agbv_rec_type := p_agbv_rec;
1875:
1876: BEGIN
1877:
1878: SAVEPOINT update_acc_bal;
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881:
1882:
1883: -- customer pre-processing
1913: ,x_agbv_rec => x_agbv_rec
1914:
1915: );
1916:
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1914:
1915: );
1916:
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922:
1915: );
1916:
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922:
1923: l_agbv_rec := x_agbv_rec;
1916:
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922:
1923: l_agbv_rec := x_agbv_rec;
1924:
1937:
1938:
1939: EXCEPTION
1940:
1941: WHEN FND_API.G_EXC_ERROR THEN
1942: ROLLBACK TO update_acc_bal;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944:
1945: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1939: EXCEPTION
1940:
1941: WHEN FND_API.G_EXC_ERROR THEN
1942: ROLLBACK TO update_acc_bal;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944:
1945: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1946: ,p_count => x_msg_count
1947: ,p_data => x_msg_data);
1945: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1946: ,p_count => x_msg_count
1947: ,p_data => x_msg_data);
1948:
1949: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1950: ROLLBACK TO update_acc_bal;
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1952: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1953: ,p_count => x_msg_count
1947: ,p_data => x_msg_data);
1948:
1949: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1950: ROLLBACK TO update_acc_bal;
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1952: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1953: ,p_count => x_msg_count
1954: ,p_data => x_msg_data);
1955:
1959: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1960: ,p_count => x_msg_count
1961: ,p_data => x_msg_data);
1962: -- notify caller of an UNEXPECTED error
1963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964:
1965: END update_acc_bal;
1966:
1967:
1981: ,p_agbv_tbl IN agbv_tbl_type
1982:
1983: ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
1984:
1985: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1986:
1987: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1988:
1989: i NUMBER;
1987: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1988:
1989: i NUMBER;
1990:
1991: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1992:
1993: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
1994:
1995: BEGIN
1995: BEGIN
1996:
1997: --Initialize the return status
1998: SAVEPOINT update_acc_bal;
1999: x_return_status := FND_API.G_RET_STS_SUCCESS;
2000:
2001:
2002:
2003: -- customer pre-processing
2037: ,x_agbv_rec => x_agbv_tbl(i)
2038:
2039: );
2040: -- store the highest degree of error
2041: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2042: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2043: l_overall_status := l_return_status;
2044: END IF;
2045: END IF;
2038:
2039: );
2040: -- store the highest degree of error
2041: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2042: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2043: l_overall_status := l_return_status;
2044: END IF;
2045: END IF;
2046:
2053: l_return_status := l_overall_status;
2054:
2055: END IF;
2056:
2057: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2054:
2055: END IF;
2056:
2057: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062:
2055: END IF;
2056:
2057: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062:
2063: l_agbv_tbl := x_agbv_tbl;
2056:
2057: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062:
2063: l_agbv_tbl := x_agbv_tbl;
2064:
2077:
2078:
2079: EXCEPTION
2080:
2081: WHEN FND_API.G_EXC_ERROR THEN
2082: ROLLBACK TO update_acc_bal;
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084:
2085: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2079: EXCEPTION
2080:
2081: WHEN FND_API.G_EXC_ERROR THEN
2082: ROLLBACK TO update_acc_bal;
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084:
2085: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2086: ,p_count => x_msg_count
2087: ,p_data => x_msg_data);
2085: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2086: ,p_count => x_msg_count
2087: ,p_data => x_msg_data);
2088:
2089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2090: ROLLBACK TO update_acc_bal;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2093: ,p_count => x_msg_count
2087: ,p_data => x_msg_data);
2088:
2089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2090: ROLLBACK TO update_acc_bal;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2093: ,p_count => x_msg_count
2094: ,p_data => x_msg_data);
2095:
2099: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2100: ,p_count => x_msg_count
2101: ,p_data => x_msg_data);
2102: -- notify caller of an UNEXPECTED error
2103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2104:
2105:
2106:
2107: END update_acc_bal;
2125: ,p_agbv_rec IN agbv_rec_type) IS
2126:
2127: i NUMBER :=0;
2128:
2129: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2130:
2131: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
2132:
2133: l_agbv_rec agbv_rec_type := p_agbv_rec;
2134:
2135: BEGIN
2136:
2137: SAVEPOINT delete_acc_bal;
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139:
2140:
2141:
2142: -- customer pre-processing
2170: ,x_msg_data => x_msg_data
2171:
2172: ,p_agbv_rec => l_agbv_rec);
2173:
2174: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2175: RAISE FND_API.G_EXC_ERROR;
2176: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2178: END IF;
2171:
2172: ,p_agbv_rec => l_agbv_rec);
2173:
2174: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2175: RAISE FND_API.G_EXC_ERROR;
2176: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2178: END IF;
2179:
2172: ,p_agbv_rec => l_agbv_rec);
2173:
2174: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2175: RAISE FND_API.G_EXC_ERROR;
2176: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2178: END IF;
2179:
2180:
2173:
2174: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2175: RAISE FND_API.G_EXC_ERROR;
2176: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2178: END IF;
2179:
2180:
2181:
2194:
2195:
2196: EXCEPTION
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199: ROLLBACK TO delete_acc_bal;
2200: x_return_status := FND_API.G_RET_STS_ERROR;
2201:
2202: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2196: EXCEPTION
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199: ROLLBACK TO delete_acc_bal;
2200: x_return_status := FND_API.G_RET_STS_ERROR;
2201:
2202: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2203: ,p_count => x_msg_count
2204: ,p_data => x_msg_data);
2202: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2203: ,p_count => x_msg_count
2204: ,p_data => x_msg_data);
2205:
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: ROLLBACK TO delete_acc_bal;
2208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2209: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2210: ,p_count => x_msg_count
2204: ,p_data => x_msg_data);
2205:
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: ROLLBACK TO delete_acc_bal;
2208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2209: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2210: ,p_count => x_msg_count
2211: ,p_data => x_msg_data);
2212:
2216: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2217: ,p_count => x_msg_count
2218: ,p_data => x_msg_data);
2219: -- notify caller of an UNEXPECTED error
2220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2221:
2222: END delete_acc_bal;
2223:
2224:
2240:
2241:
2242: i NUMBER :=0;
2243:
2244: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2245:
2246: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
2247:
2248: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2244: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2245:
2246: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
2247:
2248: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2249:
2250: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
2251:
2252: BEGIN
2252: BEGIN
2253:
2254: --Initialize the return status
2255: SAVEPOINT delete_acc_bal;
2256: x_return_status := FND_API.G_RET_STS_SUCCESS;
2257:
2258:
2259:
2260: -- customer pre-processing
2290: ,x_msg_data => x_msg_data
2291:
2292: ,p_agbv_rec => l_agbv_tbl(i));
2293: -- store the highest degree of error
2294: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2295: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2296: l_overall_status := l_return_status;
2297: END IF;
2298: END IF;
2291:
2292: ,p_agbv_rec => l_agbv_tbl(i));
2293: -- store the highest degree of error
2294: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2295: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2296: l_overall_status := l_return_status;
2297: END IF;
2298: END IF;
2299:
2306: l_return_status := l_overall_status;
2307:
2308: END IF;
2309:
2310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2311: RAISE FND_API.G_EXC_ERROR;
2312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2307:
2308: END IF;
2309:
2310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2311: RAISE FND_API.G_EXC_ERROR;
2312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2315:
2308: END IF;
2309:
2310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2311: RAISE FND_API.G_EXC_ERROR;
2312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2315:
2316:
2309:
2310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2311: RAISE FND_API.G_EXC_ERROR;
2312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2314: END IF;
2315:
2316:
2317:
2330:
2331:
2332: EXCEPTION
2333:
2334: WHEN FND_API.G_EXC_ERROR THEN
2335: ROLLBACK TO delete_acc_bal;
2336: x_return_status := FND_API.G_RET_STS_ERROR;
2337:
2338: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2332: EXCEPTION
2333:
2334: WHEN FND_API.G_EXC_ERROR THEN
2335: ROLLBACK TO delete_acc_bal;
2336: x_return_status := FND_API.G_RET_STS_ERROR;
2337:
2338: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2339: ,p_count => x_msg_count
2340: ,p_data => x_msg_data);
2338: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2339: ,p_count => x_msg_count
2340: ,p_data => x_msg_data);
2341:
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: ROLLBACK TO delete_acc_bal;
2344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2345: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2346: ,p_count => x_msg_count
2340: ,p_data => x_msg_data);
2341:
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: ROLLBACK TO delete_acc_bal;
2344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2345: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2346: ,p_count => x_msg_count
2347: ,p_data => x_msg_data);
2348:
2352: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2353: ,p_count => x_msg_count
2354: ,p_data => x_msg_data);
2355: -- notify caller of an UNEXPECTED error
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357:
2358: END delete_acc_bal;
2359:
2360:
2372: ,x_msg_data OUT NOCOPY VARCHAR2
2373:
2374: ,p_agbv_rec IN agbv_rec_type) IS
2375:
2376: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2377:
2378: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_bal';
2379:
2380: l_agbv_rec agbv_rec_type := p_agbv_rec;
2381:
2382: BEGIN
2383:
2384: SAVEPOINT validate_acc_bal;
2385: x_return_status := FND_API.G_RET_STS_SUCCESS;
2386:
2387:
2388:
2389: -- customer pre-processing
2419: ,p_agbv_rec => l_agbv_rec
2420:
2421: );
2422:
2423: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2420:
2421: );
2422:
2423: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428:
2421: );
2422:
2423: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428:
2429:
2422:
2423: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428:
2429:
2430:
2443:
2444:
2445: EXCEPTION
2446:
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: ROLLBACK TO validate_acc_bal;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450:
2451: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2445: EXCEPTION
2446:
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: ROLLBACK TO validate_acc_bal;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450:
2451: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2452: ,p_count => x_msg_count
2453: ,p_data => x_msg_data);
2451: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2452: ,p_count => x_msg_count
2453: ,p_data => x_msg_data);
2454:
2455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2456: ROLLBACK TO validate_acc_bal;
2457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2458: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2459: ,p_count => x_msg_count
2453: ,p_data => x_msg_data);
2454:
2455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2456: ROLLBACK TO validate_acc_bal;
2457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2458: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2459: ,p_count => x_msg_count
2460: ,p_data => x_msg_data);
2461:
2465: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2466: ,p_count => x_msg_count
2467: ,p_data => x_msg_data);
2468: -- notify caller of an UNEXPECTED error
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470:
2471: END validate_acc_bal;
2472:
2473:
2485: ,x_msg_data OUT NOCOPY VARCHAR2
2486:
2487: ,p_agbv_tbl IN agbv_tbl_type) IS
2488:
2489: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2490:
2491: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_bal';
2492:
2493: i NUMBER;
2491: l_api_name CONSTANT VARCHAR2(30) := 'validate_acc_bal';
2492:
2493: i NUMBER;
2494:
2495: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2496:
2497: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
2498:
2499: BEGIN
2499: BEGIN
2500:
2501: --Initialize the return status
2502: SAVEPOINT validate_acc_bal;
2503: x_return_status := FND_API.G_RET_STS_SUCCESS;
2504:
2505:
2506:
2507: -- customer pre-processing
2539: ,p_agbv_rec => l_agbv_tbl(i)
2540:
2541: );
2542: -- store the highest degree of error
2543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2544: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2545: l_overall_status := l_return_status;
2546: END IF;
2547: END IF;
2540:
2541: );
2542: -- store the highest degree of error
2543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2544: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
2545: l_overall_status := l_return_status;
2546: END IF;
2547: END IF;
2548:
2555: l_return_status := l_overall_status;
2556:
2557: END IF;
2558:
2559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2556:
2557: END IF;
2558:
2559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564:
2557: END IF;
2558:
2559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564:
2565:
2558:
2559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564:
2565:
2566: -- vertical industry-post-processing
2578:
2579:
2580: EXCEPTION
2581:
2582: WHEN FND_API.G_EXC_ERROR THEN
2583: ROLLBACK TO validate_acc_bal;
2584: x_return_status := FND_API.G_RET_STS_ERROR;
2585:
2586: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2580: EXCEPTION
2581:
2582: WHEN FND_API.G_EXC_ERROR THEN
2583: ROLLBACK TO validate_acc_bal;
2584: x_return_status := FND_API.G_RET_STS_ERROR;
2585:
2586: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2587: ,p_count => x_msg_count
2588: ,p_data => x_msg_data);
2586: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2587: ,p_count => x_msg_count
2588: ,p_data => x_msg_data);
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: ROLLBACK TO validate_acc_bal;
2592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2593: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2594: ,p_count => x_msg_count
2588: ,p_data => x_msg_data);
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: ROLLBACK TO validate_acc_bal;
2592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2593: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2594: ,p_count => x_msg_count
2595: ,p_data => x_msg_data);
2596:
2600: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
2601: ,p_count => x_msg_count
2602: ,p_data => x_msg_data);
2603: -- notify caller of an UNEXPECTED error
2604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2605:
2606: END validate_acc_bal;
2607:
2608: