2: /* $Header: OKLPTAIB.pls 115.9 2004/04/13 11:23:24 rnaik noship $ */
3:
4: PROCEDURE insert_trx_ar_invoices(
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_taiv_rec IN taiv_rec_type
49: ,l_msg_data
50: ,lp_taiv_rec
51: ,lx_taiv_rec);
52:
53: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
54: RAISE FND_API.G_EXC_ERROR;
55: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
50: ,lp_taiv_rec
51: ,lx_taiv_rec);
52:
53: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
54: RAISE FND_API.G_EXC_ERROR;
55: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
51: ,lx_taiv_rec);
52:
53: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
54: RAISE FND_API.G_EXC_ERROR;
55: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: --Copy value of OUT variable in the IN record type
52:
53: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
54: RAISE FND_API.G_EXC_ERROR;
55: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: --Copy value of OUT variable in the IN record type
60: lp_taiv_rec := lx_taiv_rec;
70: x_msg_data := l_msg_data ;
71:
72: EXCEPTION
73:
74: WHEN FND_API.G_EXC_ERROR THEN
75: ROLLBACK TO trx_ar_invoices_insert;
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: x_msg_count := l_msg_count ;
78: x_msg_data := l_msg_data ;
72: EXCEPTION
73:
74: WHEN FND_API.G_EXC_ERROR THEN
75: ROLLBACK TO trx_ar_invoices_insert;
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: x_msg_count := l_msg_count ;
78: x_msg_data := l_msg_data ;
79: FND_MSG_PUB.count_and_get(
80: p_count => x_msg_count
78: x_msg_data := l_msg_data ;
79: FND_MSG_PUB.count_and_get(
80: p_count => x_msg_count
81: ,p_data => x_msg_data);
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83: ROLLBACK TO trx_ar_invoices_insert;
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: x_msg_count := l_msg_count ;
86: x_msg_data := l_msg_data ;
80: p_count => x_msg_count
81: ,p_data => x_msg_data);
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83: ROLLBACK TO trx_ar_invoices_insert;
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: x_msg_count := l_msg_count ;
86: x_msg_data := l_msg_data ;
87: FND_MSG_PUB.count_and_get(
88: p_count => x_msg_count
88: p_count => x_msg_count
89: ,p_data => x_msg_data);
90: WHEN OTHERS THEN
91: ROLLBACK TO trx_ar_invoices_insert;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: x_msg_count := l_msg_count ;
94: x_msg_data := l_msg_data ;
95: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','insert_trx_ar_invoices');
96: FND_MSG_PUB.count_and_get(
99: END insert_trx_ar_invoices;
100:
101: PROCEDURE insert_trx_ar_invoices(
102: p_api_version IN NUMBER
103: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
104: ,x_return_status OUT NOCOPY VARCHAR2
105: ,x_msg_count OUT NOCOPY NUMBER
106: ,x_msg_data OUT NOCOPY VARCHAR2
107: ,p_taiv_tbl IN taiv_tbl_type
145: ,l_msg_data
146: ,lp_taiv_tbl
147: ,lx_taiv_tbl);
148:
149: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
146: ,lp_taiv_tbl
147: ,lx_taiv_tbl);
148:
149: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
147: ,lx_taiv_tbl);
148:
149: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: --Copy value of OUT variable in the IN record type
148:
149: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: --Copy value of OUT variable in the IN record type
156: lp_taiv_tbl := lx_taiv_tbl;
165:
166:
167: EXCEPTION
168:
169: WHEN FND_API.G_EXC_ERROR THEN
170: ROLLBACK TO trx_ar_invoices_insert;
171: x_return_status := FND_API.G_RET_STS_ERROR;
172: x_msg_count := l_msg_count ;
173: x_msg_data := l_msg_data ;
167: EXCEPTION
168:
169: WHEN FND_API.G_EXC_ERROR THEN
170: ROLLBACK TO trx_ar_invoices_insert;
171: x_return_status := FND_API.G_RET_STS_ERROR;
172: x_msg_count := l_msg_count ;
173: x_msg_data := l_msg_data ;
174: FND_MSG_PUB.count_and_get(
175: p_count => x_msg_count
173: x_msg_data := l_msg_data ;
174: FND_MSG_PUB.count_and_get(
175: p_count => x_msg_count
176: ,p_data => x_msg_data);
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: ROLLBACK TO trx_ar_invoices_insert;
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: x_msg_count := l_msg_count ;
181: x_msg_data := l_msg_data ;
175: p_count => x_msg_count
176: ,p_data => x_msg_data);
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: ROLLBACK TO trx_ar_invoices_insert;
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: x_msg_count := l_msg_count ;
181: x_msg_data := l_msg_data ;
182: FND_MSG_PUB.count_and_get(
183: p_count => x_msg_count
183: p_count => x_msg_count
184: ,p_data => x_msg_data);
185: WHEN OTHERS THEN
186: ROLLBACK TO trx_ar_invoices_insert;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188: x_msg_count := l_msg_count ;
189: x_msg_data := l_msg_data ;
190: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','insert_trx_ar_invoices');
191: FND_MSG_PUB.count_and_get(
194: END insert_trx_ar_invoices;
195:
196: PROCEDURE lock_trx_ar_invoices(
197: p_api_version IN NUMBER
198: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
199: ,x_return_status OUT NOCOPY VARCHAR2
200: ,x_msg_count OUT NOCOPY NUMBER
201: ,x_msg_data OUT NOCOPY VARCHAR2
202: ,p_taiv_rec IN taiv_rec_type) IS
209: x_msg_count,
210: x_msg_data,
211: p_taiv_rec);
212:
213: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217: END IF;
210: x_msg_data,
211: p_taiv_rec);
212:
213: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217: END IF;
218:
211: p_taiv_rec);
212:
213: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217: END IF;
218:
219:
212:
213: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217: END IF;
218:
219:
220: EXCEPTION
218:
219:
220: EXCEPTION
221:
222: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.count_and_get(
224: p_count => x_msg_count
225: ,p_data => x_msg_data);
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.count_and_get(
224: p_count => x_msg_count
225: ,p_data => x_msg_data);
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: FND_MSG_PUB.count_and_get(
228: p_count => x_msg_count
229: ,p_data => x_msg_data);
230: WHEN OTHERS THEN
227: FND_MSG_PUB.count_and_get(
228: p_count => x_msg_count
229: ,p_data => x_msg_data);
230: WHEN OTHERS THEN
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','lock_trx_ar_invoices');
233: FND_MSG_PUB.count_and_get(
234: p_count => x_msg_count
235: ,p_data => x_msg_data);
236: END lock_trx_ar_invoices;
237:
238: PROCEDURE lock_trx_ar_invoices(
239: p_api_version IN NUMBER
240: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
241: ,x_return_status OUT NOCOPY VARCHAR2
242: ,x_msg_count OUT NOCOPY NUMBER
243: ,x_msg_data OUT NOCOPY VARCHAR2
244: ,p_taiv_tbl IN taiv_tbl_type) IS
251: x_msg_count,
252: x_msg_data,
253: p_taiv_tbl);
254:
255: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
252: x_msg_data,
253: p_taiv_tbl);
254:
255: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260:
253: p_taiv_tbl);
254:
255: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260:
261:
254:
255: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260:
261:
262: EXCEPTION
260:
261:
262: EXCEPTION
263:
264: WHEN FND_API.G_EXC_ERROR THEN
265: FND_MSG_PUB.count_and_get(
266: p_count => x_msg_count
267: ,p_data => x_msg_data);
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264: WHEN FND_API.G_EXC_ERROR THEN
265: FND_MSG_PUB.count_and_get(
266: p_count => x_msg_count
267: ,p_data => x_msg_data);
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: FND_MSG_PUB.count_and_get(
270: p_count => x_msg_count
271: ,p_data => x_msg_data);
272: WHEN OTHERS THEN
269: FND_MSG_PUB.count_and_get(
270: p_count => x_msg_count
271: ,p_data => x_msg_data);
272: WHEN OTHERS THEN
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','lock_trx_ar_invoices');
275: FND_MSG_PUB.count_and_get(
276: p_count => x_msg_count
277: ,p_data => x_msg_data);
278: END lock_trx_ar_invoices;
279:
280: PROCEDURE update_trx_ar_invoices(
281: p_api_version IN NUMBER
282: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
283: ,x_return_status OUT NOCOPY VARCHAR2
284: ,x_msg_count OUT NOCOPY NUMBER
285: ,x_msg_data OUT NOCOPY VARCHAR2
286: ,p_taiv_rec IN taiv_rec_type
319: ,l_msg_data
320: ,lp_taiv_rec
321: ,lx_taiv_rec);
322:
323: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
320: ,lp_taiv_rec
321: ,lx_taiv_rec);
322:
323: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328:
321: ,lx_taiv_rec);
322:
323: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328:
329: --Copy value of OUT variable in the IN record type
322:
323: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328:
329: --Copy value of OUT variable in the IN record type
330: lp_taiv_rec := lx_taiv_rec;
340:
341:
342: EXCEPTION
343:
344: WHEN FND_API.G_EXC_ERROR THEN
345: ROLLBACK TO trx_ar_invoices_update;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: x_msg_count := l_msg_count ;
348: x_msg_data := l_msg_data ;
342: EXCEPTION
343:
344: WHEN FND_API.G_EXC_ERROR THEN
345: ROLLBACK TO trx_ar_invoices_update;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: x_msg_count := l_msg_count ;
348: x_msg_data := l_msg_data ;
349: FND_MSG_PUB.count_and_get(
350: p_count => x_msg_count
348: x_msg_data := l_msg_data ;
349: FND_MSG_PUB.count_and_get(
350: p_count => x_msg_count
351: ,p_data => x_msg_data);
352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
353: ROLLBACK TO trx_ar_invoices_update;
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
355: x_msg_count := l_msg_count ;
356: x_msg_data := l_msg_data ;
350: p_count => x_msg_count
351: ,p_data => x_msg_data);
352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
353: ROLLBACK TO trx_ar_invoices_update;
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
355: x_msg_count := l_msg_count ;
356: x_msg_data := l_msg_data ;
357: FND_MSG_PUB.count_and_get(
358: p_count => x_msg_count
358: p_count => x_msg_count
359: ,p_data => x_msg_data);
360: WHEN OTHERS THEN
361: ROLLBACK TO trx_ar_invoices_update;
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363: x_msg_count := l_msg_count ;
364: x_msg_data := l_msg_data ;
365: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','update_trx_ar_invoices');
366: FND_MSG_PUB.count_and_get(
369: END update_trx_ar_invoices;
370:
371: PROCEDURE update_trx_ar_invoices(
372: p_api_version IN NUMBER
373: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
374: ,x_return_status OUT NOCOPY VARCHAR2
375: ,x_msg_count OUT NOCOPY NUMBER
376: ,x_msg_data OUT NOCOPY VARCHAR2
377: ,p_taiv_tbl IN taiv_tbl_type
409: ,l_msg_data
410: ,lp_taiv_tbl
411: ,lx_taiv_tbl);
412:
413: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
410: ,lp_taiv_tbl
411: ,lx_taiv_tbl);
412:
413: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
411: ,lx_taiv_tbl);
412:
413: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: --Copy value of OUT variable in the IN record type
412:
413: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: --Copy value of OUT variable in the IN record type
420: lp_taiv_tbl := lx_taiv_tbl;
429:
430:
431: EXCEPTION
432:
433: WHEN FND_API.G_EXC_ERROR THEN
434: ROLLBACK TO trx_ar_invoices_update;
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: x_msg_count := l_msg_count ;
437: x_msg_data := l_msg_data ;
431: EXCEPTION
432:
433: WHEN FND_API.G_EXC_ERROR THEN
434: ROLLBACK TO trx_ar_invoices_update;
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: x_msg_count := l_msg_count ;
437: x_msg_data := l_msg_data ;
438: FND_MSG_PUB.count_and_get(
439: p_count => x_msg_count
437: x_msg_data := l_msg_data ;
438: FND_MSG_PUB.count_and_get(
439: p_count => x_msg_count
440: ,p_data => x_msg_data);
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: ROLLBACK TO trx_ar_invoices_update;
443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444: x_msg_count := l_msg_count ;
445: x_msg_data := l_msg_data ;
439: p_count => x_msg_count
440: ,p_data => x_msg_data);
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: ROLLBACK TO trx_ar_invoices_update;
443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444: x_msg_count := l_msg_count ;
445: x_msg_data := l_msg_data ;
446: FND_MSG_PUB.count_and_get(
447: p_count => x_msg_count
447: p_count => x_msg_count
448: ,p_data => x_msg_data);
449: WHEN OTHERS THEN
450: ROLLBACK TO trx_ar_invoices_update;
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: x_msg_count := l_msg_count ;
453: x_msg_data := l_msg_data ;
454: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','update_trx_ar_invoices');
455: FND_MSG_PUB.count_and_get(
459:
460: --Put custom code for cascade delete by developer
461: PROCEDURE delete_trx_ar_invoices(
462: p_api_version IN NUMBER
463: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
464: ,x_return_status OUT NOCOPY VARCHAR2
465: ,x_msg_count OUT NOCOPY NUMBER
466: ,x_msg_data OUT NOCOPY VARCHAR2
467: ,p_taiv_rec IN taiv_rec_type) IS
498: ,l_msg_count
499: ,l_msg_data
500: ,lp_taiv_rec);
501:
502: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
499: ,l_msg_data
500: ,lp_taiv_rec);
501:
502: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
500: ,lp_taiv_rec);
501:
502: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
508:
501:
502: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
503: RAISE FND_API.G_EXC_ERROR;
504: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
508:
509:
515: x_return_status := l_return_status ;
516:
517: EXCEPTION
518:
519: WHEN FND_API.G_EXC_ERROR THEN
520: ROLLBACK TO trx_ar_invoices_delete_rec;
521: x_return_status := FND_API.G_RET_STS_ERROR;
522: x_msg_count := l_msg_count ;
523: x_msg_data := l_msg_data ;
517: EXCEPTION
518:
519: WHEN FND_API.G_EXC_ERROR THEN
520: ROLLBACK TO trx_ar_invoices_delete_rec;
521: x_return_status := FND_API.G_RET_STS_ERROR;
522: x_msg_count := l_msg_count ;
523: x_msg_data := l_msg_data ;
524: FND_MSG_PUB.count_and_get(
525: p_count => x_msg_count
523: x_msg_data := l_msg_data ;
524: FND_MSG_PUB.count_and_get(
525: p_count => x_msg_count
526: ,p_data => x_msg_data);
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: ROLLBACK TO trx_ar_invoices_delete_rec;
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530: x_msg_count := l_msg_count ;
531: x_msg_data := l_msg_data ;
525: p_count => x_msg_count
526: ,p_data => x_msg_data);
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: ROLLBACK TO trx_ar_invoices_delete_rec;
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530: x_msg_count := l_msg_count ;
531: x_msg_data := l_msg_data ;
532: FND_MSG_PUB.count_and_get(
533: p_count => x_msg_count
533: p_count => x_msg_count
534: ,p_data => x_msg_data);
535: WHEN OTHERS THEN
536: ROLLBACK TO trx_ar_invoices_delete_rec;
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: x_msg_count := l_msg_count ;
539: x_msg_data := l_msg_data ;
540: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','delete_trx_ar_invoices');
541: FND_MSG_PUB.count_and_get(
544: END delete_trx_ar_invoices;
545:
546: PROCEDURE delete_trx_ar_invoices(
547: p_api_version IN NUMBER
548: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
549: ,x_return_status OUT NOCOPY VARCHAR2
550: ,x_msg_count OUT NOCOPY NUMBER
551: ,x_msg_data OUT NOCOPY VARCHAR2
552: ,p_taiv_tbl IN taiv_tbl_type) IS
592: EXIT WHEN (i = lp_taiv_tbl.LAST);
593: i := p_taiv_tbl.NEXT(i);
594: END LOOP;
595: END IF;
596: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
597: RAISE FND_API.G_EXC_ERROR;
598: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
593: i := p_taiv_tbl.NEXT(i);
594: END LOOP;
595: END IF;
596: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
597: RAISE FND_API.G_EXC_ERROR;
598: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601:
594: END LOOP;
595: END IF;
596: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
597: RAISE FND_API.G_EXC_ERROR;
598: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601:
602: END;
595: END IF;
596: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
597: RAISE FND_API.G_EXC_ERROR;
598: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601:
602: END;
603:
612: x_return_status := l_return_status ;
613:
614: EXCEPTION
615:
616: WHEN FND_API.G_EXC_ERROR THEN
617: ROLLBACK TO trx_ar_invoices_delete_tbl;
618: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_msg_count := l_msg_count ;
620: x_msg_data := l_msg_data ;
614: EXCEPTION
615:
616: WHEN FND_API.G_EXC_ERROR THEN
617: ROLLBACK TO trx_ar_invoices_delete_tbl;
618: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_msg_count := l_msg_count ;
620: x_msg_data := l_msg_data ;
621: FND_MSG_PUB.count_and_get(
622: p_count => x_msg_count
620: x_msg_data := l_msg_data ;
621: FND_MSG_PUB.count_and_get(
622: p_count => x_msg_count
623: ,p_data => x_msg_data);
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: ROLLBACK TO trx_ar_invoices_delete_tbl;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: x_msg_count := l_msg_count ;
628: x_msg_data := l_msg_data ;
622: p_count => x_msg_count
623: ,p_data => x_msg_data);
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: ROLLBACK TO trx_ar_invoices_delete_tbl;
626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: x_msg_count := l_msg_count ;
628: x_msg_data := l_msg_data ;
629: FND_MSG_PUB.count_and_get(
630: p_count => x_msg_count
630: p_count => x_msg_count
631: ,p_data => x_msg_data);
632: WHEN OTHERS THEN
633: ROLLBACK TO trx_ar_invoices_delete_tbl;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: x_msg_count := l_msg_count ;
636: x_msg_data := l_msg_data ;
637: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','delete_trx_ar_invoices');
638: FND_MSG_PUB.count_and_get(
641: END delete_trx_ar_invoices;
642:
643: PROCEDURE validate_trx_ar_invoices(
644: p_api_version IN NUMBER
645: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
646: ,x_return_status OUT NOCOPY VARCHAR2
647: ,x_msg_count OUT NOCOPY NUMBER
648: ,x_msg_data OUT NOCOPY VARCHAR2
649: ,p_taiv_rec IN taiv_rec_type) IS
678: ,l_msg_count
679: ,l_msg_data
680: ,lp_taiv_rec);
681:
682: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
679: ,l_msg_data
680: ,lp_taiv_rec);
681:
682: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
680: ,lp_taiv_rec);
681:
682: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
688: --Copy value of OUT variable in the IN record type
681:
682: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
688: --Copy value of OUT variable in the IN record type
689: lp_taiv_rec := lx_taiv_rec;
702: x_return_status := l_return_status ;
703:
704: EXCEPTION
705:
706: WHEN FND_API.G_EXC_ERROR THEN
707: ROLLBACK TO trx_ar_invoices_validate;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: x_msg_count := l_msg_count ;
710: x_msg_data := l_msg_data ;
704: EXCEPTION
705:
706: WHEN FND_API.G_EXC_ERROR THEN
707: ROLLBACK TO trx_ar_invoices_validate;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: x_msg_count := l_msg_count ;
710: x_msg_data := l_msg_data ;
711: FND_MSG_PUB.count_and_get(
712: p_count => x_msg_count
710: x_msg_data := l_msg_data ;
711: FND_MSG_PUB.count_and_get(
712: p_count => x_msg_count
713: ,p_data => x_msg_data);
714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
715: ROLLBACK TO trx_ar_invoices_validate;
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: x_msg_count := l_msg_count ;
718: x_msg_data := l_msg_data ;
712: p_count => x_msg_count
713: ,p_data => x_msg_data);
714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
715: ROLLBACK TO trx_ar_invoices_validate;
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: x_msg_count := l_msg_count ;
718: x_msg_data := l_msg_data ;
719: FND_MSG_PUB.count_and_get(
720: p_count => x_msg_count
720: p_count => x_msg_count
721: ,p_data => x_msg_data);
722: WHEN OTHERS THEN
723: ROLLBACK TO trx_ar_invoices_validate;
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: x_msg_count := l_msg_count ;
726: x_msg_data := l_msg_data ;
727: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','validate_trx_ar_invoices');
728: FND_MSG_PUB.count_and_get(
731: END validate_trx_ar_invoices;
732:
733: PROCEDURE validate_trx_ar_invoices(
734: p_api_version IN NUMBER,
735: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: x_return_status OUT NOCOPY VARCHAR2,
737: x_msg_count OUT NOCOPY NUMBER,
738: x_msg_data OUT NOCOPY VARCHAR2,
739: p_taiv_tbl IN taiv_tbl_type) IS
766: ,x_msg_count
767: ,x_msg_data
768: ,lp_taiv_tbl);
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
767: ,x_msg_data
768: ,lp_taiv_tbl);
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
768: ,lp_taiv_tbl);
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
776: --Copy value of OUT variable in the IN record type
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775:
776: --Copy value of OUT variable in the IN record type
777: lp_taiv_tbl := lx_taiv_tbl;
787: x_return_status := l_return_status ;
788:
789: EXCEPTION
790:
791: WHEN FND_API.G_EXC_ERROR THEN
792: ROLLBACK TO trx_ar_invoices_validate;
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: x_msg_count := l_msg_count ;
795: x_msg_data := l_msg_data ;
789: EXCEPTION
790:
791: WHEN FND_API.G_EXC_ERROR THEN
792: ROLLBACK TO trx_ar_invoices_validate;
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: x_msg_count := l_msg_count ;
795: x_msg_data := l_msg_data ;
796: FND_MSG_PUB.count_and_get(
797: p_count => x_msg_count
795: x_msg_data := l_msg_data ;
796: FND_MSG_PUB.count_and_get(
797: p_count => x_msg_count
798: ,p_data => x_msg_data);
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO trx_ar_invoices_validate;
801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: x_msg_count := l_msg_count ;
803: x_msg_data := l_msg_data ;
797: p_count => x_msg_count
798: ,p_data => x_msg_data);
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO trx_ar_invoices_validate;
801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: x_msg_count := l_msg_count ;
803: x_msg_data := l_msg_data ;
804: FND_MSG_PUB.count_and_get(
805: p_count => x_msg_count
805: p_count => x_msg_count
806: ,p_data => x_msg_data);
807: WHEN OTHERS THEN
808: ROLLBACK TO trx_ar_invoices_validate;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: x_msg_count := l_msg_count ;
811: x_msg_data := l_msg_data ;
812: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_INVOICES_PUB','validate_trx_ar_invoices');
813: FND_MSG_PUB.count_and_get(