2: /* $Header: OKLPTXSB.pls 120.0 2005/08/26 19:51:24 sechawla noship $ */
3:
4: PROCEDURE insert_tax_sources(
5: p_api_version IN NUMBER,
6: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7: x_return_status OUT NOCOPY VARCHAR2,
8: x_msg_count OUT NOCOPY NUMBER,
9: x_msg_data OUT NOCOPY VARCHAR2,
10: p_txsv_rec IN txsv_rec_type,
45: ,l_msg_data
46: ,lp_txsv_rec
47: ,lx_txsv_rec);
48:
49: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50: RAISE FND_API.G_EXC_ERROR;
51: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
46: ,lp_txsv_rec
47: ,lx_txsv_rec);
48:
49: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50: RAISE FND_API.G_EXC_ERROR;
51: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
47: ,lx_txsv_rec);
48:
49: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50: RAISE FND_API.G_EXC_ERROR;
51: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: --Copy value of OUT variable in the IN record type
48:
49: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50: RAISE FND_API.G_EXC_ERROR;
51: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: --Copy value of OUT variable in the IN record type
56: lp_txsv_rec := lx_txsv_rec;
66: x_msg_data := l_msg_data ;
67:
68: EXCEPTION
69:
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO txs_insert;
72: x_return_status := FND_API.G_RET_STS_ERROR;
73: x_msg_count := l_msg_count ;
74: x_msg_data := l_msg_data ;
68: EXCEPTION
69:
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO txs_insert;
72: x_return_status := FND_API.G_RET_STS_ERROR;
73: x_msg_count := l_msg_count ;
74: x_msg_data := l_msg_data ;
75: FND_MSG_PUB.count_and_get(
76: p_count => x_msg_count
74: x_msg_data := l_msg_data ;
75: FND_MSG_PUB.count_and_get(
76: p_count => x_msg_count
77: ,p_data => x_msg_data);
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79: ROLLBACK TO txs_insert;
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: x_msg_count := l_msg_count ;
82: x_msg_data := l_msg_data ;
76: p_count => x_msg_count
77: ,p_data => x_msg_data);
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79: ROLLBACK TO txs_insert;
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: x_msg_count := l_msg_count ;
82: x_msg_data := l_msg_data ;
83: FND_MSG_PUB.count_and_get(
84: p_count => x_msg_count
84: p_count => x_msg_count
85: ,p_data => x_msg_data);
86: WHEN OTHERS THEN
87: ROLLBACK TO txs_insert;
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: x_msg_count := l_msg_count ;
90: x_msg_data := l_msg_data ;
91: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','insert_tax_sources');
92: FND_MSG_PUB.count_and_get(
134: ,l_msg_data
135: ,lp_txsv_tbl
136: ,lx_txsv_tbl);
137:
138: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142: END IF;
135: ,lp_txsv_tbl
136: ,lx_txsv_tbl);
137:
138: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
136: ,lx_txsv_tbl);
137:
138: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: --Copy value of OUT variable in the IN record type
137:
138: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139: RAISE FND_API.G_EXC_ERROR;
140: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: --Copy value of OUT variable in the IN record type
145: lp_txsv_tbl := lx_txsv_tbl;
154:
155:
156: EXCEPTION
157:
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO txs_insert;
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: x_msg_count := l_msg_count ;
162: x_msg_data := l_msg_data ;
156: EXCEPTION
157:
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO txs_insert;
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: x_msg_count := l_msg_count ;
162: x_msg_data := l_msg_data ;
163: FND_MSG_PUB.count_and_get(
164: p_count => x_msg_count
162: x_msg_data := l_msg_data ;
163: FND_MSG_PUB.count_and_get(
164: p_count => x_msg_count
165: ,p_data => x_msg_data);
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: ROLLBACK TO txs_insert;
168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169: x_msg_count := l_msg_count ;
170: x_msg_data := l_msg_data ;
164: p_count => x_msg_count
165: ,p_data => x_msg_data);
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: ROLLBACK TO txs_insert;
168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169: x_msg_count := l_msg_count ;
170: x_msg_data := l_msg_data ;
171: FND_MSG_PUB.count_and_get(
172: p_count => x_msg_count
172: p_count => x_msg_count
173: ,p_data => x_msg_data);
174: WHEN OTHERS THEN
175: ROLLBACK TO txs_insert;
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: x_msg_count := l_msg_count ;
178: x_msg_data := l_msg_data ;
179: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','insert_tax_sources');
180: FND_MSG_PUB.count_and_get(
198: x_msg_count,
199: x_msg_data,
200: p_txsv_rec);
201:
202: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
203: RAISE FND_API.G_EXC_ERROR;
204: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
199: x_msg_data,
200: p_txsv_rec);
201:
202: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
203: RAISE FND_API.G_EXC_ERROR;
204: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207:
200: p_txsv_rec);
201:
202: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
203: RAISE FND_API.G_EXC_ERROR;
204: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207:
208:
201:
202: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
203: RAISE FND_API.G_EXC_ERROR;
204: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207:
208:
209: EXCEPTION
207:
208:
209: EXCEPTION
210:
211: WHEN FND_API.G_EXC_ERROR THEN
212: FND_MSG_PUB.count_and_get(
213: p_count => x_msg_count
214: ,p_data => x_msg_data);
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
211: WHEN FND_API.G_EXC_ERROR THEN
212: FND_MSG_PUB.count_and_get(
213: p_count => x_msg_count
214: ,p_data => x_msg_data);
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: FND_MSG_PUB.count_and_get(
217: p_count => x_msg_count
218: ,p_data => x_msg_data);
219: WHEN OTHERS THEN
216: FND_MSG_PUB.count_and_get(
217: p_count => x_msg_count
218: ,p_data => x_msg_data);
219: WHEN OTHERS THEN
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','lock_tax_sources');
222: FND_MSG_PUB.count_and_get(
223: p_count => x_msg_count
224: ,p_data => x_msg_data);
241: x_msg_count,
242: x_msg_data,
243: p_txsv_tbl);
244:
245: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
242: x_msg_data,
243: p_txsv_tbl);
244:
245: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
243: p_txsv_tbl);
244:
245: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251:
244:
245: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251:
252: EXCEPTION
250:
251:
252: EXCEPTION
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255: FND_MSG_PUB.count_and_get(
256: p_count => x_msg_count
257: ,p_data => x_msg_data);
258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254: WHEN FND_API.G_EXC_ERROR THEN
255: FND_MSG_PUB.count_and_get(
256: p_count => x_msg_count
257: ,p_data => x_msg_data);
258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
259: FND_MSG_PUB.count_and_get(
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN OTHERS THEN
259: FND_MSG_PUB.count_and_get(
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN OTHERS THEN
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','lock_tax_sources');
265: FND_MSG_PUB.count_and_get(
266: p_count => x_msg_count
267: ,p_data => x_msg_data);
310: ,l_msg_data
311: ,lp_txsv_rec
312: ,lx_txsv_rec);
313:
314: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
315: RAISE FND_API.G_EXC_ERROR;
316: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
311: ,lp_txsv_rec
312: ,lx_txsv_rec);
313:
314: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
315: RAISE FND_API.G_EXC_ERROR;
316: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
319:
312: ,lx_txsv_rec);
313:
314: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
315: RAISE FND_API.G_EXC_ERROR;
316: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
319:
320: --Copy value of OUT variable in the IN record type
313:
314: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
315: RAISE FND_API.G_EXC_ERROR;
316: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: END IF;
319:
320: --Copy value of OUT variable in the IN record type
321: lp_txsv_rec := lx_txsv_rec;
331:
332:
333: EXCEPTION
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336: ROLLBACK TO txs_update;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: x_msg_count := l_msg_count ;
339: x_msg_data := l_msg_data ;
333: EXCEPTION
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336: ROLLBACK TO txs_update;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: x_msg_count := l_msg_count ;
339: x_msg_data := l_msg_data ;
340: FND_MSG_PUB.count_and_get(
341: p_count => x_msg_count
339: x_msg_data := l_msg_data ;
340: FND_MSG_PUB.count_and_get(
341: p_count => x_msg_count
342: ,p_data => x_msg_data);
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: ROLLBACK TO txs_update;
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: x_msg_count := l_msg_count ;
347: x_msg_data := l_msg_data ;
341: p_count => x_msg_count
342: ,p_data => x_msg_data);
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: ROLLBACK TO txs_update;
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: x_msg_count := l_msg_count ;
347: x_msg_data := l_msg_data ;
348: FND_MSG_PUB.count_and_get(
349: p_count => x_msg_count
349: p_count => x_msg_count
350: ,p_data => x_msg_data);
351: WHEN OTHERS THEN
352: ROLLBACK TO txs_update;
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354: x_msg_count := l_msg_count ;
355: x_msg_data := l_msg_data ;
356: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','update_tax_sources');
357: FND_MSG_PUB.count_and_get(
400: ,l_msg_data
401: ,lp_txsv_tbl
402: ,lx_txsv_tbl);
403:
404: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
401: ,lp_txsv_tbl
402: ,lx_txsv_tbl);
403:
404: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
402: ,lx_txsv_tbl);
403:
404: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: --Copy value of OUT variable in the IN record type
403:
404: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: --Copy value of OUT variable in the IN record type
411: lp_txsv_tbl := lx_txsv_tbl;
420:
421:
422: EXCEPTION
423:
424: WHEN FND_API.G_EXC_ERROR THEN
425: ROLLBACK TO txs_update;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: x_msg_count := l_msg_count ;
428: x_msg_data := l_msg_data ;
422: EXCEPTION
423:
424: WHEN FND_API.G_EXC_ERROR THEN
425: ROLLBACK TO txs_update;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: x_msg_count := l_msg_count ;
428: x_msg_data := l_msg_data ;
429: FND_MSG_PUB.count_and_get(
430: p_count => x_msg_count
428: x_msg_data := l_msg_data ;
429: FND_MSG_PUB.count_and_get(
430: p_count => x_msg_count
431: ,p_data => x_msg_data);
432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: ROLLBACK TO txs_update;
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: x_msg_count := l_msg_count ;
436: x_msg_data := l_msg_data ;
430: p_count => x_msg_count
431: ,p_data => x_msg_data);
432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: ROLLBACK TO txs_update;
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: x_msg_count := l_msg_count ;
436: x_msg_data := l_msg_data ;
437: FND_MSG_PUB.count_and_get(
438: p_count => x_msg_count
438: p_count => x_msg_count
439: ,p_data => x_msg_data);
440: WHEN OTHERS THEN
441: ROLLBACK TO txs_update;
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443: x_msg_count := l_msg_count ;
444: x_msg_data := l_msg_data ;
445: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','update_tax_sources');
446: FND_MSG_PUB.count_and_get(
489: ,l_msg_count
490: ,l_msg_data
491: ,lp_txsv_rec);
492:
493: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494: RAISE FND_API.G_EXC_ERROR;
495: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: END IF;
490: ,l_msg_data
491: ,lp_txsv_rec);
492:
493: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494: RAISE FND_API.G_EXC_ERROR;
495: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: END IF;
498:
491: ,lp_txsv_rec);
492:
493: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494: RAISE FND_API.G_EXC_ERROR;
495: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: END IF;
498:
499:
492:
493: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494: RAISE FND_API.G_EXC_ERROR;
495: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: END IF;
498:
499:
500:
506: x_return_status := l_return_status ;
507:
508: EXCEPTION
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: ROLLBACK TO txs_delete;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: x_msg_count := l_msg_count ;
514: x_msg_data := l_msg_data ;
508: EXCEPTION
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: ROLLBACK TO txs_delete;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: x_msg_count := l_msg_count ;
514: x_msg_data := l_msg_data ;
515: FND_MSG_PUB.count_and_get(
516: p_count => x_msg_count
514: x_msg_data := l_msg_data ;
515: FND_MSG_PUB.count_and_get(
516: p_count => x_msg_count
517: ,p_data => x_msg_data);
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: ROLLBACK TO txs_delete;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: x_msg_count := l_msg_count ;
522: x_msg_data := l_msg_data ;
516: p_count => x_msg_count
517: ,p_data => x_msg_data);
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: ROLLBACK TO txs_delete;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: x_msg_count := l_msg_count ;
522: x_msg_data := l_msg_data ;
523: FND_MSG_PUB.count_and_get(
524: p_count => x_msg_count
524: p_count => x_msg_count
525: ,p_data => x_msg_data);
526: WHEN OTHERS THEN
527: ROLLBACK TO txs_delete;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: x_msg_count := l_msg_count ;
530: x_msg_data := l_msg_data ;
531: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','delete_tax_sources');
532: FND_MSG_PUB.count_and_get(
575: ,l_msg_count
576: ,l_msg_data
577: ,lp_txsv_tbl);
578:
579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
576: ,l_msg_data
577: ,lp_txsv_tbl);
578:
579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
577: ,lp_txsv_tbl);
578:
579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585:
578:
579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
580: RAISE FND_API.G_EXC_ERROR;
581: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585:
586:
591: x_msg_data := l_msg_data ;
592: x_return_status := l_return_status ;
593: EXCEPTION
594:
595: WHEN FND_API.G_EXC_ERROR THEN
596: ROLLBACK TO txs_delete;
597: x_return_status := FND_API.G_RET_STS_ERROR;
598: x_msg_count := l_msg_count ;
599: x_msg_data := l_msg_data ;
593: EXCEPTION
594:
595: WHEN FND_API.G_EXC_ERROR THEN
596: ROLLBACK TO txs_delete;
597: x_return_status := FND_API.G_RET_STS_ERROR;
598: x_msg_count := l_msg_count ;
599: x_msg_data := l_msg_data ;
600: FND_MSG_PUB.count_and_get(
601: p_count => x_msg_count
599: x_msg_data := l_msg_data ;
600: FND_MSG_PUB.count_and_get(
601: p_count => x_msg_count
602: ,p_data => x_msg_data);
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: ROLLBACK TO txs_delete;
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: x_msg_count := l_msg_count ;
607: x_msg_data := l_msg_data ;
601: p_count => x_msg_count
602: ,p_data => x_msg_data);
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: ROLLBACK TO txs_delete;
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: x_msg_count := l_msg_count ;
607: x_msg_data := l_msg_data ;
608: FND_MSG_PUB.count_and_get(
609: p_count => x_msg_count
609: p_count => x_msg_count
610: ,p_data => x_msg_data);
611: WHEN OTHERS THEN
612: ROLLBACK TO txsdelete;
613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: x_msg_count := l_msg_count ;
615: x_msg_data := l_msg_data ;
616: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','delete_tax_sources');
617: FND_MSG_PUB.count_and_get(
659: ,l_msg_count
660: ,l_msg_data
661: ,lp_txsv_rec);
662:
663: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
660: ,l_msg_data
661: ,lp_txsv_rec);
662:
663: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668:
661: ,lp_txsv_rec);
662:
663: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668:
669: --Copy value of OUT variable in the IN record type
662:
663: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668:
669: --Copy value of OUT variable in the IN record type
670: lp_txsv_rec := lx_txsv_rec;
683: x_return_status := l_return_status ;
684:
685: EXCEPTION
686:
687: WHEN FND_API.G_EXC_ERROR THEN
688: ROLLBACK TO txs_validate;
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: x_msg_count := l_msg_count ;
691: x_msg_data := l_msg_data ;
685: EXCEPTION
686:
687: WHEN FND_API.G_EXC_ERROR THEN
688: ROLLBACK TO txs_validate;
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: x_msg_count := l_msg_count ;
691: x_msg_data := l_msg_data ;
692: FND_MSG_PUB.count_and_get(
693: p_count => x_msg_count
691: x_msg_data := l_msg_data ;
692: FND_MSG_PUB.count_and_get(
693: p_count => x_msg_count
694: ,p_data => x_msg_data);
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: ROLLBACK TO txs_validate;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: x_msg_count := l_msg_count ;
699: x_msg_data := l_msg_data ;
693: p_count => x_msg_count
694: ,p_data => x_msg_data);
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: ROLLBACK TO txs_validate;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: x_msg_count := l_msg_count ;
699: x_msg_data := l_msg_data ;
700: FND_MSG_PUB.count_and_get(
701: p_count => x_msg_count
701: p_count => x_msg_count
702: ,p_data => x_msg_data);
703: WHEN OTHERS THEN
704: ROLLBACK TO txs_validate;
705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
706: x_msg_count := l_msg_count ;
707: x_msg_data := l_msg_data ;
708: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','validate_tax_sources');
709: FND_MSG_PUB.count_and_get(
748: ,x_msg_count
749: ,x_msg_data
750: ,lp_txsv_tbl);
751:
752: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
749: ,x_msg_data
750: ,lp_txsv_tbl);
751:
752: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757:
750: ,lp_txsv_tbl);
751:
752: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757:
758: --Copy value of OUT variable in the IN record type
751:
752: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757:
758: --Copy value of OUT variable in the IN record type
759: lp_txsv_tbl := lx_txsv_tbl;
769: x_return_status := l_return_status ;
770:
771: EXCEPTION
772:
773: WHEN FND_API.G_EXC_ERROR THEN
774: ROLLBACK TO txs_validate;
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: x_msg_count := l_msg_count ;
777: x_msg_data := l_msg_data ;
771: EXCEPTION
772:
773: WHEN FND_API.G_EXC_ERROR THEN
774: ROLLBACK TO txs_validate;
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: x_msg_count := l_msg_count ;
777: x_msg_data := l_msg_data ;
778: FND_MSG_PUB.count_and_get(
779: p_count => x_msg_count
777: x_msg_data := l_msg_data ;
778: FND_MSG_PUB.count_and_get(
779: p_count => x_msg_count
780: ,p_data => x_msg_data);
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO txs_validate;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: x_msg_count := l_msg_count ;
785: x_msg_data := l_msg_data ;
779: p_count => x_msg_count
780: ,p_data => x_msg_data);
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO txs_validate;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: x_msg_count := l_msg_count ;
785: x_msg_data := l_msg_data ;
786: FND_MSG_PUB.count_and_get(
787: p_count => x_msg_count
787: p_count => x_msg_count
788: ,p_data => x_msg_data);
789: WHEN OTHERS THEN
790: ROLLBACK TO txs_validate;
791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
792: x_msg_count := l_msg_count ;
793: x_msg_data := l_msg_data ;
794: FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_SOURCES_PUB','validate_tax_sources');
795: FND_MSG_PUB.count_and_get(