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: ,x_msg_data OUT NOCOPY VARCHAR2
438: ,p_agcv_rec IN agcv_rec_type
439: ,x_agcv_rec OUT NOCOPY agcv_rec_type) IS
440:
441: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
442: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
443: l_agcv_rec agcv_rec_type := p_agcv_rec;
444:
445: BEGIN
444:
445: BEGIN
446:
447: SAVEPOINT update_acc_ccid;
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
449:
450:
451: -- customer pre-processing
452:
471: ,p_agcv_rec => l_agcv_rec
472: ,x_agcv_rec => x_agcv_rec
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END IF;
472: ,x_agcv_rec => x_agcv_rec
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END IF;
480:
473: );
474:
475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END IF;
480:
481: l_agcv_rec := x_agcv_rec;
474:
475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END IF;
480:
481: l_agcv_rec := x_agcv_rec;
482:
492:
493:
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO update_acc_ccid;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499:
500: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO update_acc_ccid;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499:
500: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
501: ,p_count => x_msg_count
502: ,p_data => x_msg_data);
500: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
501: ,p_count => x_msg_count
502: ,p_data => x_msg_data);
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: ROLLBACK TO update_acc_ccid;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
508: ,p_count => x_msg_count
502: ,p_data => x_msg_data);
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: ROLLBACK TO update_acc_ccid;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
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: -- notify caller of an UNEXPECTED error
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519:
520: END update_acc_ccid;
521:
522:
528: ,x_msg_data OUT NOCOPY VARCHAR2
529: ,p_agcv_tbl IN agcv_tbl_type
530: ,x_agcv_tbl OUT NOCOPY agcv_tbl_type) IS
531:
532: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
533: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
534: i NUMBER;
535:
536: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
532: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
533: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_ccid';
534: i NUMBER;
535:
536: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
537: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
538:
539: BEGIN
540:
539: BEGIN
540:
541: --Initialize the return status
542:
543: x_return_status := FND_API.G_RET_STS_SUCCESS;
544: SAVEPOINT update_acc_ccid;
545:
546: -- customer pre-processing
547:
580: ,x_agcv_rec => x_agcv_tbl(i)
581:
582: );
583: -- store the highest degree of error
584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
585: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
586: l_overall_status := l_return_status;
587: END IF;
588: END IF;
581:
582: );
583: -- store the highest degree of error
584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
585: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
586: l_overall_status := l_return_status;
587: END IF;
588: END IF;
589:
596: -- return overall status
597: l_return_status := l_overall_status;
598: END IF;
599:
600: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
597: l_return_status := l_overall_status;
598: END IF;
599:
600: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
598: END IF;
599:
600: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606:
599:
600: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606:
607: l_agcv_tbl := x_agcv_tbl;
621:
622:
623: EXCEPTION
624:
625: WHEN FND_API.G_EXC_ERROR THEN
626: ROLLBACK TO update_acc_ccid;
627: x_return_status := FND_API.G_RET_STS_ERROR;
628:
629: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
623: EXCEPTION
624:
625: WHEN FND_API.G_EXC_ERROR THEN
626: ROLLBACK TO update_acc_ccid;
627: x_return_status := FND_API.G_RET_STS_ERROR;
628:
629: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
630: ,p_count => x_msg_count
631: ,p_data => x_msg_data);
629: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
630: ,p_count => x_msg_count
631: ,p_data => x_msg_data);
632:
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: ROLLBACK TO update_acc_ccid;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
637: ,p_count => x_msg_count
631: ,p_data => x_msg_data);
632:
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: ROLLBACK TO update_acc_ccid;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
637: ,p_count => x_msg_count
638: ,p_data => x_msg_data);
639:
643: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
644: ,p_count => x_msg_count
645: ,p_data => x_msg_data);
646: -- notify caller of an UNEXPECTED error
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648:
649:
650:
651: END update_acc_ccid;
669: ,p_agcv_rec IN agcv_rec_type) IS
670:
671: i NUMBER :=0;
672:
673: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
674:
675: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
676:
677: l_agcv_rec agcv_rec_type := p_agcv_rec;
680:
681: BEGIN
682:
683: SAVEPOINT delete_acc_ccid;
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686:
687:
688: -- customer pre-processing
718: );
719:
720:
721:
722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
719:
720:
721:
722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
720:
721:
722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728:
721:
722: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728:
729:
742:
743:
744: EXCEPTION
745:
746: WHEN FND_API.G_EXC_ERROR THEN
747: ROLLBACK TO delete_acc_ccid;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749:
750: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
744: EXCEPTION
745:
746: WHEN FND_API.G_EXC_ERROR THEN
747: ROLLBACK TO delete_acc_ccid;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749:
750: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
751: ,p_count => x_msg_count
752: ,p_data => x_msg_data);
750: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
751: ,p_count => x_msg_count
752: ,p_data => x_msg_data);
753:
754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
755: ROLLBACK TO delete_acc_ccid;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
758: ,p_count => x_msg_count
752: ,p_data => x_msg_data);
753:
754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
755: ROLLBACK TO delete_acc_ccid;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
758: ,p_count => x_msg_count
759: ,p_data => x_msg_data);
760:
764: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
765: ,p_count => x_msg_count
766: ,p_data => x_msg_data);
767: -- notify caller of an UNEXPECTED error
768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
769:
770: END delete_acc_ccid;
771:
772:
786: ,p_agcv_tbl IN agcv_tbl_type) IS
787:
788: i NUMBER :=0;
789:
790: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
791:
792: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
793:
794: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
790: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
791:
792: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_ccid';
793:
794: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
795:
796: l_agcv_tbl agcv_tbl_type := p_agcv_tbl;
797:
798: BEGIN
798: BEGIN
799:
800: --Initialize the return status
801:
802: x_return_status := FND_API.G_RET_STS_SUCCESS;
803: SAVEPOINT delete_acc_ccid;
804:
805: -- customer pre-processing
806:
838:
839: );
840:
841: -- store the highest degree of error
842: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
843: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
844: l_overall_status := l_return_status;
845: END IF;
846: END IF;
839: );
840:
841: -- store the highest degree of error
842: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
843: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
844: l_overall_status := l_return_status;
845: END IF;
846: END IF;
847:
854: l_return_status := l_overall_status;
855:
856: END IF;
857:
858: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
859: RAISE FND_API.G_EXC_ERROR;
860: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
855:
856: END IF;
857:
858: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
859: RAISE FND_API.G_EXC_ERROR;
860: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863:
856: END IF;
857:
858: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
859: RAISE FND_API.G_EXC_ERROR;
860: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863:
864:
857:
858: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
859: RAISE FND_API.G_EXC_ERROR;
860: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863:
864:
865:
878:
879:
880: EXCEPTION
881:
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO delete_acc_ccid;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885:
886: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
880: EXCEPTION
881:
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO delete_acc_ccid;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885:
886: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
887: ,p_count => x_msg_count
888: ,p_data => x_msg_data);
886: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
887: ,p_count => x_msg_count
888: ,p_data => x_msg_data);
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO delete_acc_ccid;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
894: ,p_count => x_msg_count
888: ,p_data => x_msg_data);
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO delete_acc_ccid;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
894: ,p_count => x_msg_count
895: ,p_data => x_msg_data);
896:
900: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
901: ,p_count => x_msg_count
902: ,p_data => x_msg_data);
903: -- notify caller of an UNEXPECTED error
904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905:
906:
907:
908: END delete_acc_ccid;
925: ,p_agbv_rec IN agbv_rec_type
926:
927: ,x_agbv_rec OUT NOCOPY agbv_rec_type) IS
928:
929: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
930:
931: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
932:
933: l_agbv_rec agbv_rec_type := p_agbv_rec;
934:
935: BEGIN
936:
937: SAVEPOINT create_acc_bal;
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940:
941:
942: -- customer pre-processing
976: ,x_agbv_rec => x_agbv_rec
977:
978: );
979:
980: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
977:
978: );
979:
980: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
978: );
979:
980: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: l_agbv_rec := x_agbv_rec;
979:
980: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: l_agbv_rec := x_agbv_rec;
987:
1000:
1001:
1002: EXCEPTION
1003:
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: ROLLBACK TO create_acc_bal;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007:
1008: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1002: EXCEPTION
1003:
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: ROLLBACK TO create_acc_bal;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007:
1008: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1009: ,p_count => x_msg_count
1010: ,p_data => x_msg_data);
1008: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1009: ,p_count => x_msg_count
1010: ,p_data => x_msg_data);
1011:
1012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: ROLLBACK TO create_acc_bal;
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1016: ,p_count => x_msg_count
1010: ,p_data => x_msg_data);
1011:
1012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: ROLLBACK TO create_acc_bal;
1014: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1016: ,p_count => x_msg_count
1017: ,p_data => x_msg_data);
1018:
1022: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1023: ,p_count => x_msg_count
1024: ,p_data => x_msg_data);
1025: -- notify caller of an UNEXPECTED error
1026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1027:
1028: END create_acc_bal;
1029:
1030:
1044: ,p_agbv_tbl IN agbv_tbl_type
1045:
1046: ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
1047:
1048: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1049:
1050: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
1051:
1052: i NUMBER;
1050: l_api_name CONSTANT VARCHAR2(30) := 'create_acc_bal';
1051:
1052: i NUMBER;
1053:
1054: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1055:
1056: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
1057:
1058: BEGIN
1058: BEGIN
1059:
1060: --Initialize the return status
1061: SAVEPOINT create_acc_bal;
1062: x_return_status := FND_API.G_RET_STS_SUCCESS;
1063:
1064:
1065:
1066: -- customer pre-processing
1100: ,x_agbv_rec => x_agbv_tbl(i)
1101:
1102: );
1103: -- store the highest degree of error
1104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1105: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1106: l_overall_status := l_return_status;
1107: END IF;
1108: END IF;
1101:
1102: );
1103: -- store the highest degree of error
1104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1105: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1106: l_overall_status := l_return_status;
1107: END IF;
1108: END IF;
1109:
1116: l_return_status := l_overall_status;
1117:
1118: END IF;
1119:
1120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1117:
1118: END IF;
1119:
1120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1125:
1118: END IF;
1119:
1120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1125:
1126:
1119:
1120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1125:
1126:
1127: l_agbv_tbl := x_agbv_tbl;
1141:
1142:
1143: EXCEPTION
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO create_acc_bal;
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1143: EXCEPTION
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO create_acc_bal;
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1150: ,p_count => x_msg_count
1151: ,p_data => x_msg_data);
1149: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1150: ,p_count => x_msg_count
1151: ,p_data => x_msg_data);
1152:
1153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1154: ROLLBACK TO create_acc_bal;
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1157: ,p_count => x_msg_count
1151: ,p_data => x_msg_data);
1152:
1153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1154: ROLLBACK TO create_acc_bal;
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1157: ,p_count => x_msg_count
1158: ,p_data => x_msg_data);
1159:
1163: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1164: ,p_count => x_msg_count
1165: ,p_data => x_msg_data);
1166: -- notify caller of an UNEXPECTED error
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168:
1169:
1170:
1171: END create_acc_bal;
1188: ,p_agbv_rec IN agbv_rec_type
1189:
1190: ,x_agbv_rec OUT NOCOPY agbv_rec_type) IS
1191:
1192: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1193:
1194: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1195:
1196: l_agbv_rec agbv_rec_type := p_agbv_rec;
1197:
1198: BEGIN
1199:
1200: SAVEPOINT update_acc_bal;
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
1202:
1203:
1204:
1205: -- customer pre-processing
1235: ,x_agbv_rec => x_agbv_rec
1236:
1237: );
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1236:
1237: );
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244:
1237: );
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244:
1245: l_agbv_rec := x_agbv_rec;
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244:
1245: l_agbv_rec := x_agbv_rec;
1246:
1259:
1260:
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: ROLLBACK TO update_acc_bal;
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266:
1267: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: ROLLBACK TO update_acc_bal;
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266:
1267: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1268: ,p_count => x_msg_count
1269: ,p_data => x_msg_data);
1267: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1268: ,p_count => x_msg_count
1269: ,p_data => x_msg_data);
1270:
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: ROLLBACK TO update_acc_bal;
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1275: ,p_count => x_msg_count
1269: ,p_data => x_msg_data);
1270:
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: ROLLBACK TO update_acc_bal;
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1275: ,p_count => x_msg_count
1276: ,p_data => x_msg_data);
1277:
1281: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1282: ,p_count => x_msg_count
1283: ,p_data => x_msg_data);
1284: -- notify caller of an UNEXPECTED error
1285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286:
1287: END update_acc_bal;
1288:
1289:
1303: ,p_agbv_tbl IN agbv_tbl_type
1304:
1305: ,x_agbv_tbl OUT NOCOPY agbv_tbl_type) IS
1306:
1307: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1308:
1309: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1310:
1311: i NUMBER;
1309: l_api_name CONSTANT VARCHAR2(30) := 'update_acc_bal';
1310:
1311: i NUMBER;
1312:
1313: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1314:
1315: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
1316:
1317: BEGIN
1317: BEGIN
1318:
1319: --Initialize the return status
1320: SAVEPOINT update_acc_bal;
1321: x_return_status := FND_API.G_RET_STS_SUCCESS;
1322:
1323:
1324:
1325: -- customer pre-processing
1359: ,x_agbv_rec => x_agbv_tbl(i)
1360:
1361: );
1362: -- store the highest degree of error
1363: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1364: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: l_overall_status := l_return_status;
1366: END IF;
1367: END IF;
1360:
1361: );
1362: -- store the highest degree of error
1363: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1364: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: l_overall_status := l_return_status;
1366: END IF;
1367: END IF;
1368:
1375: l_return_status := l_overall_status;
1376:
1377: END IF;
1378:
1379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1376:
1377: END IF;
1378:
1379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384:
1377: END IF;
1378:
1379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384:
1385: l_agbv_tbl := x_agbv_tbl;
1378:
1379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384:
1385: l_agbv_tbl := x_agbv_tbl;
1386:
1399:
1400:
1401: EXCEPTION
1402:
1403: WHEN FND_API.G_EXC_ERROR THEN
1404: ROLLBACK TO update_acc_bal;
1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406:
1407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1401: EXCEPTION
1402:
1403: WHEN FND_API.G_EXC_ERROR THEN
1404: ROLLBACK TO update_acc_bal;
1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406:
1407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1408: ,p_count => x_msg_count
1409: ,p_data => x_msg_data);
1407: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1408: ,p_count => x_msg_count
1409: ,p_data => x_msg_data);
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412: ROLLBACK TO update_acc_bal;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1415: ,p_count => x_msg_count
1409: ,p_data => x_msg_data);
1410:
1411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412: ROLLBACK TO update_acc_bal;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1415: ,p_count => x_msg_count
1416: ,p_data => x_msg_data);
1417:
1421: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1422: ,p_count => x_msg_count
1423: ,p_data => x_msg_data);
1424: -- notify caller of an UNEXPECTED error
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426:
1427:
1428:
1429: END update_acc_bal;
1447: ,p_agbv_rec IN agbv_rec_type) IS
1448:
1449: i NUMBER :=0;
1450:
1451: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1452:
1453: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
1454:
1455: l_agbv_rec agbv_rec_type := p_agbv_rec;
1456:
1457: BEGIN
1458:
1459: SAVEPOINT delete_acc_bal;
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462:
1463:
1464: -- customer pre-processing
1492: ,x_msg_data => x_msg_data
1493:
1494: ,p_agbv_rec => l_agbv_rec);
1495:
1496: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1497: RAISE FND_API.G_EXC_ERROR;
1498: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1493:
1494: ,p_agbv_rec => l_agbv_rec);
1495:
1496: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1497: RAISE FND_API.G_EXC_ERROR;
1498: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1501:
1494: ,p_agbv_rec => l_agbv_rec);
1495:
1496: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1497: RAISE FND_API.G_EXC_ERROR;
1498: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1501:
1502:
1495:
1496: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1497: RAISE FND_API.G_EXC_ERROR;
1498: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500: END IF;
1501:
1502:
1503:
1516:
1517:
1518: EXCEPTION
1519:
1520: WHEN FND_API.G_EXC_ERROR THEN
1521: ROLLBACK TO delete_acc_bal;
1522: x_return_status := FND_API.G_RET_STS_ERROR;
1523:
1524: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1518: EXCEPTION
1519:
1520: WHEN FND_API.G_EXC_ERROR THEN
1521: ROLLBACK TO delete_acc_bal;
1522: x_return_status := FND_API.G_RET_STS_ERROR;
1523:
1524: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1525: ,p_count => x_msg_count
1526: ,p_data => x_msg_data);
1524: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1525: ,p_count => x_msg_count
1526: ,p_data => x_msg_data);
1527:
1528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1529: ROLLBACK TO delete_acc_bal;
1530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1531: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1532: ,p_count => x_msg_count
1526: ,p_data => x_msg_data);
1527:
1528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1529: ROLLBACK TO delete_acc_bal;
1530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1531: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1532: ,p_count => x_msg_count
1533: ,p_data => x_msg_data);
1534:
1538: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1539: ,p_count => x_msg_count
1540: ,p_data => x_msg_data);
1541: -- notify caller of an UNEXPECTED error
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1543:
1544: END delete_acc_bal;
1545:
1546:
1562:
1563:
1564: i NUMBER :=0;
1565:
1566: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1567:
1568: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
1569:
1570: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1566: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1567:
1568: l_api_name CONSTANT VARCHAR2(30) := 'delete_acc_bal';
1569:
1570: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1571:
1572: l_agbv_tbl agbv_tbl_type := p_agbv_tbl;
1573:
1574: BEGIN
1574: BEGIN
1575:
1576: --Initialize the return status
1577: SAVEPOINT delete_acc_bal;
1578: x_return_status := FND_API.G_RET_STS_SUCCESS;
1579:
1580:
1581:
1582: -- customer pre-processing
1612: ,x_msg_data => x_msg_data
1613:
1614: ,p_agbv_rec => l_agbv_tbl(i));
1615: -- store the highest degree of error
1616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1617: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1618: l_overall_status := l_return_status;
1619: END IF;
1620: END IF;
1613:
1614: ,p_agbv_rec => l_agbv_tbl(i));
1615: -- store the highest degree of error
1616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1617: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1618: l_overall_status := l_return_status;
1619: END IF;
1620: END IF;
1621:
1628: l_return_status := l_overall_status;
1629:
1630: END IF;
1631:
1632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1629:
1630: END IF;
1631:
1632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1630: END IF;
1631:
1632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1638:
1631:
1632: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1633: RAISE FND_API.G_EXC_ERROR;
1634: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1636: END IF;
1637:
1638:
1639:
1652:
1653:
1654: EXCEPTION
1655:
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: ROLLBACK TO delete_acc_bal;
1658: x_return_status := FND_API.G_RET_STS_ERROR;
1659:
1660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1654: EXCEPTION
1655:
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: ROLLBACK TO delete_acc_bal;
1658: x_return_status := FND_API.G_RET_STS_ERROR;
1659:
1660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1661: ,p_count => x_msg_count
1662: ,p_data => x_msg_data);
1660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1661: ,p_count => x_msg_count
1662: ,p_data => x_msg_data);
1663:
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: ROLLBACK TO delete_acc_bal;
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1668: ,p_count => x_msg_count
1662: ,p_data => x_msg_data);
1663:
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: ROLLBACK TO delete_acc_bal;
1666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1667: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1668: ,p_count => x_msg_count
1669: ,p_data => x_msg_data);
1670:
1674: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1675: ,p_count => x_msg_count
1676: ,p_data => x_msg_data);
1677: -- notify caller of an UNEXPECTED error
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679:
1680: END delete_acc_bal;
1681:
1682: