2: /* $Header: OKLPXPIB.pls 115.7 2004/04/13 11:27:54 rnaik noship $ */
3:
4: PROCEDURE insert_ext_pay_invs(
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_xpiv_rec IN xpiv_rec_type
45: ,l_msg_data
46: ,lp_xpiv_rec
47: ,lx_xpiv_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_xpiv_rec
47: ,lx_xpiv_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_xpiv_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_xpiv_rec := lx_xpiv_rec;
66: x_msg_data := l_msg_data ;
67:
68: EXCEPTION
69:
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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_EXT_PAY_INVS_PUB','insert_ext_pay_invs');
92: FND_MSG_PUB.count_and_get(
95: END insert_ext_pay_invs;
96:
97: PROCEDURE insert_ext_pay_invs(
98: p_api_version IN NUMBER
99: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
100: ,x_return_status OUT NOCOPY VARCHAR2
101: ,x_msg_count OUT NOCOPY NUMBER
102: ,x_msg_data OUT NOCOPY VARCHAR2
103: ,p_xpiv_tbl IN xpiv_tbl_type
134: ,l_msg_data
135: ,lp_xpiv_tbl
136: ,lx_xpiv_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_xpiv_tbl
136: ,lx_xpiv_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_xpiv_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_xpiv_tbl := lx_xpiv_tbl;
154:
155:
156: EXCEPTION
157:
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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 ext_pay_invs_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_EXT_PAY_INVS_PUB','insert_ext_pay_invs');
180: FND_MSG_PUB.count_and_get(
183: END insert_ext_pay_invs;
184:
185: PROCEDURE lock_ext_pay_invs(
186: p_api_version IN NUMBER
187: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
188: ,x_return_status OUT NOCOPY VARCHAR2
189: ,x_msg_count OUT NOCOPY NUMBER
190: ,x_msg_data OUT NOCOPY VARCHAR2
191: ,p_xpiv_rec IN xpiv_rec_type) IS
198: x_msg_count,
199: x_msg_data,
200: p_xpiv_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_xpiv_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_xpiv_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_EXT_PAY_INVS_PUB','lock_ext_pay_invs');
222: FND_MSG_PUB.count_and_get(
223: p_count => x_msg_count
224: ,p_data => x_msg_data);
225: END lock_ext_pay_invs;
226:
227: PROCEDURE lock_ext_pay_invs(
228: p_api_version IN NUMBER
229: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
230: ,x_return_status OUT NOCOPY VARCHAR2
231: ,x_msg_count OUT NOCOPY NUMBER
232: ,x_msg_data OUT NOCOPY VARCHAR2
233: ,p_xpiv_tbl IN xpiv_tbl_type) IS
240: x_msg_count,
241: x_msg_data,
242: p_xpiv_tbl);
243:
244: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
245: RAISE FND_API.G_EXC_ERROR;
246: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
241: x_msg_data,
242: p_xpiv_tbl);
243:
244: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
245: RAISE FND_API.G_EXC_ERROR;
246: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
242: p_xpiv_tbl);
243:
244: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
245: RAISE FND_API.G_EXC_ERROR;
246: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
250:
243:
244: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
245: RAISE FND_API.G_EXC_ERROR;
246: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249:
250:
251: EXCEPTION
249:
250:
251: EXCEPTION
252:
253: WHEN FND_API.G_EXC_ERROR THEN
254: FND_MSG_PUB.count_and_get(
255: p_count => x_msg_count
256: ,p_data => x_msg_data);
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: WHEN FND_API.G_EXC_ERROR THEN
254: FND_MSG_PUB.count_and_get(
255: p_count => x_msg_count
256: ,p_data => x_msg_data);
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: FND_MSG_PUB.count_and_get(
259: p_count => x_msg_count
260: ,p_data => x_msg_data);
261: WHEN OTHERS THEN
258: FND_MSG_PUB.count_and_get(
259: p_count => x_msg_count
260: ,p_data => x_msg_data);
261: WHEN OTHERS THEN
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','lock_ext_pay_invs');
264: FND_MSG_PUB.count_and_get(
265: p_count => x_msg_count
266: ,p_data => x_msg_data);
267: END lock_ext_pay_invs;
268:
269: PROCEDURE update_ext_pay_invs(
270: p_api_version IN NUMBER
271: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
272: ,x_return_status OUT NOCOPY VARCHAR2
273: ,x_msg_count OUT NOCOPY NUMBER
274: ,x_msg_data OUT NOCOPY VARCHAR2
275: ,p_xpiv_rec IN xpiv_rec_type
308: ,l_msg_data
309: ,lp_xpiv_rec
310: ,lx_xpiv_rec);
311:
312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: END IF;
309: ,lp_xpiv_rec
310: ,lx_xpiv_rec);
311:
312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: END IF;
317:
310: ,lx_xpiv_rec);
311:
312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: END IF;
317:
318: --Copy value of OUT variable in the IN record type
311:
312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: END IF;
317:
318: --Copy value of OUT variable in the IN record type
319: lp_xpiv_rec := lx_xpiv_rec;
329:
330:
331: EXCEPTION
332:
333: WHEN FND_API.G_EXC_ERROR THEN
334: ROLLBACK TO ext_pay_invs_update;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: x_msg_count := l_msg_count ;
337: x_msg_data := l_msg_data ;
331: EXCEPTION
332:
333: WHEN FND_API.G_EXC_ERROR THEN
334: ROLLBACK TO ext_pay_invs_update;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: x_msg_count := l_msg_count ;
337: x_msg_data := l_msg_data ;
338: FND_MSG_PUB.count_and_get(
339: p_count => x_msg_count
337: x_msg_data := l_msg_data ;
338: FND_MSG_PUB.count_and_get(
339: p_count => x_msg_count
340: ,p_data => x_msg_data);
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: ROLLBACK TO ext_pay_invs_update;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: x_msg_count := l_msg_count ;
345: x_msg_data := l_msg_data ;
339: p_count => x_msg_count
340: ,p_data => x_msg_data);
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: ROLLBACK TO ext_pay_invs_update;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: x_msg_count := l_msg_count ;
345: x_msg_data := l_msg_data ;
346: FND_MSG_PUB.count_and_get(
347: p_count => x_msg_count
347: p_count => x_msg_count
348: ,p_data => x_msg_data);
349: WHEN OTHERS THEN
350: ROLLBACK TO ext_pay_invs_update;
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352: x_msg_count := l_msg_count ;
353: x_msg_data := l_msg_data ;
354: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','update_ext_pay_invs');
355: FND_MSG_PUB.count_and_get(
358: END update_ext_pay_invs;
359:
360: PROCEDURE update_ext_pay_invs(
361: p_api_version IN NUMBER
362: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
363: ,x_return_status OUT NOCOPY VARCHAR2
364: ,x_msg_count OUT NOCOPY NUMBER
365: ,x_msg_data OUT NOCOPY VARCHAR2
366: ,p_xpiv_tbl IN xpiv_tbl_type
398: ,l_msg_data
399: ,lp_xpiv_tbl
400: ,lx_xpiv_tbl);
401:
402: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
399: ,lp_xpiv_tbl
400: ,lx_xpiv_tbl);
401:
402: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
400: ,lx_xpiv_tbl);
401:
402: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: --Copy value of OUT variable in the IN record type
401:
402: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
403: RAISE FND_API.G_EXC_ERROR;
404: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: --Copy value of OUT variable in the IN record type
409: lp_xpiv_tbl := lx_xpiv_tbl;
418:
419:
420: EXCEPTION
421:
422: WHEN FND_API.G_EXC_ERROR THEN
423: ROLLBACK TO ext_pay_invs_update;
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: x_msg_count := l_msg_count ;
426: x_msg_data := l_msg_data ;
420: EXCEPTION
421:
422: WHEN FND_API.G_EXC_ERROR THEN
423: ROLLBACK TO ext_pay_invs_update;
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: x_msg_count := l_msg_count ;
426: x_msg_data := l_msg_data ;
427: FND_MSG_PUB.count_and_get(
428: p_count => x_msg_count
426: x_msg_data := l_msg_data ;
427: FND_MSG_PUB.count_and_get(
428: p_count => x_msg_count
429: ,p_data => x_msg_data);
430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431: ROLLBACK TO ext_pay_invs_update;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: x_msg_count := l_msg_count ;
434: x_msg_data := l_msg_data ;
428: p_count => x_msg_count
429: ,p_data => x_msg_data);
430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431: ROLLBACK TO ext_pay_invs_update;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: x_msg_count := l_msg_count ;
434: x_msg_data := l_msg_data ;
435: FND_MSG_PUB.count_and_get(
436: p_count => x_msg_count
436: p_count => x_msg_count
437: ,p_data => x_msg_data);
438: WHEN OTHERS THEN
439: ROLLBACK TO ext_pay_invs_update;
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: x_msg_count := l_msg_count ;
442: x_msg_data := l_msg_data ;
443: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','update_ext_pay_invs');
444: FND_MSG_PUB.count_and_get(
448:
449: --Put custom code for cascade delete by developer
450: PROCEDURE delete_ext_pay_invs(
451: p_api_version IN NUMBER
452: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
453: ,x_return_status OUT NOCOPY VARCHAR2
454: ,x_msg_count OUT NOCOPY NUMBER
455: ,x_msg_data OUT NOCOPY VARCHAR2
456: ,p_xpiv_rec IN xpiv_rec_type) IS
487: ,l_msg_count
488: ,l_msg_data
489: ,lp_xpiv_rec);
490:
491: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
488: ,l_msg_data
489: ,lp_xpiv_rec);
490:
491: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
489: ,lp_xpiv_rec);
490:
491: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497:
490:
491: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497:
498:
504: x_return_status := l_return_status ;
505:
506: EXCEPTION
507:
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO ext_pay_invs_delete_rec;
510: x_return_status := FND_API.G_RET_STS_ERROR;
511: x_msg_count := l_msg_count ;
512: x_msg_data := l_msg_data ;
506: EXCEPTION
507:
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO ext_pay_invs_delete_rec;
510: x_return_status := FND_API.G_RET_STS_ERROR;
511: x_msg_count := l_msg_count ;
512: x_msg_data := l_msg_data ;
513: FND_MSG_PUB.count_and_get(
514: p_count => x_msg_count
512: x_msg_data := l_msg_data ;
513: FND_MSG_PUB.count_and_get(
514: p_count => x_msg_count
515: ,p_data => x_msg_data);
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO ext_pay_invs_delete_rec;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: x_msg_count := l_msg_count ;
520: x_msg_data := l_msg_data ;
514: p_count => x_msg_count
515: ,p_data => x_msg_data);
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO ext_pay_invs_delete_rec;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: x_msg_count := l_msg_count ;
520: x_msg_data := l_msg_data ;
521: FND_MSG_PUB.count_and_get(
522: p_count => x_msg_count
522: p_count => x_msg_count
523: ,p_data => x_msg_data);
524: WHEN OTHERS THEN
525: ROLLBACK TO ext_pay_invs_delete_rec;
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527: x_msg_count := l_msg_count ;
528: x_msg_data := l_msg_data ;
529: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','delete_ext_pay_invs');
530: FND_MSG_PUB.count_and_get(
533: END delete_ext_pay_invs;
534:
535: PROCEDURE delete_ext_pay_invs(
536: p_api_version IN NUMBER
537: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
538: ,x_return_status OUT NOCOPY VARCHAR2
539: ,x_msg_count OUT NOCOPY NUMBER
540: ,x_msg_data OUT NOCOPY VARCHAR2
541: ,p_xpiv_tbl IN xpiv_tbl_type) IS
581: EXIT WHEN (i = lp_xpiv_tbl.LAST);
582: i := p_xpiv_tbl.NEXT(i);
583: END LOOP;
584: END IF;
585: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
582: i := p_xpiv_tbl.NEXT(i);
583: END LOOP;
584: END IF;
585: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
583: END LOOP;
584: END IF;
585: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
591: END;
584: END IF;
585: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
591: END;
592:
601: x_return_status := l_return_status ;
602:
603: EXCEPTION
604:
605: WHEN FND_API.G_EXC_ERROR THEN
606: ROLLBACK TO ext_pay_invs_delete_tbl;
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
603: EXCEPTION
604:
605: WHEN FND_API.G_EXC_ERROR THEN
606: ROLLBACK TO ext_pay_invs_delete_tbl;
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
610: FND_MSG_PUB.count_and_get(
611: p_count => x_msg_count
609: x_msg_data := l_msg_data ;
610: FND_MSG_PUB.count_and_get(
611: p_count => x_msg_count
612: ,p_data => x_msg_data);
613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
614: ROLLBACK TO ext_pay_invs_delete_tbl;
615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
611: p_count => x_msg_count
612: ,p_data => x_msg_data);
613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
614: ROLLBACK TO ext_pay_invs_delete_tbl;
615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
618: FND_MSG_PUB.count_and_get(
619: p_count => x_msg_count
619: p_count => x_msg_count
620: ,p_data => x_msg_data);
621: WHEN OTHERS THEN
622: ROLLBACK TO ext_pay_invs_delete_tbl;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: x_msg_count := l_msg_count ;
625: x_msg_data := l_msg_data ;
626: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','delete_ext_pay_invs');
627: FND_MSG_PUB.count_and_get(
630: END delete_ext_pay_invs;
631:
632: PROCEDURE validate_ext_pay_invs(
633: p_api_version IN NUMBER
634: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
635: ,x_return_status OUT NOCOPY VARCHAR2
636: ,x_msg_count OUT NOCOPY NUMBER
637: ,x_msg_data OUT NOCOPY VARCHAR2
638: ,p_xpiv_rec IN xpiv_rec_type) IS
667: ,l_msg_count
668: ,l_msg_data
669: ,lp_xpiv_rec);
670:
671: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
668: ,l_msg_data
669: ,lp_xpiv_rec);
670:
671: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
669: ,lp_xpiv_rec);
670:
671: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: --Copy value of OUT variable in the IN record type
670:
671: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: --Copy value of OUT variable in the IN record type
678: lp_xpiv_rec := lx_xpiv_rec;
691: x_return_status := l_return_status ;
692:
693: EXCEPTION
694:
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO ext_pay_invs_validate;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: x_msg_count := l_msg_count ;
699: x_msg_data := l_msg_data ;
693: EXCEPTION
694:
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO ext_pay_invs_validate;
697: x_return_status := FND_API.G_RET_STS_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
699: x_msg_data := l_msg_data ;
700: FND_MSG_PUB.count_and_get(
701: p_count => x_msg_count
702: ,p_data => x_msg_data);
703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
704: ROLLBACK TO ext_pay_invs_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 ;
701: p_count => x_msg_count
702: ,p_data => x_msg_data);
703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
704: ROLLBACK TO ext_pay_invs_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.count_and_get(
709: p_count => x_msg_count
709: p_count => x_msg_count
710: ,p_data => x_msg_data);
711: WHEN OTHERS THEN
712: ROLLBACK TO ext_pay_invs_validate;
713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714: x_msg_count := l_msg_count ;
715: x_msg_data := l_msg_data ;
716: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','validate_ext_pay_invs');
717: FND_MSG_PUB.count_and_get(
720: END validate_ext_pay_invs;
721:
722: PROCEDURE validate_ext_pay_invs(
723: p_api_version IN NUMBER,
724: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
725: x_return_status OUT NOCOPY VARCHAR2,
726: x_msg_count OUT NOCOPY NUMBER,
727: x_msg_data OUT NOCOPY VARCHAR2,
728: p_xpiv_tbl IN xpiv_tbl_type) IS
755: ,x_msg_count
756: ,x_msg_data
757: ,lp_xpiv_tbl);
758:
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
756: ,x_msg_data
757: ,lp_xpiv_tbl);
758:
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764:
757: ,lp_xpiv_tbl);
758:
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764:
765: --Copy value of OUT variable in the IN record type
758:
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764:
765: --Copy value of OUT variable in the IN record type
766: lp_xpiv_tbl := lx_xpiv_tbl;
776: x_return_status := l_return_status ;
777:
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781: ROLLBACK TO ext_pay_invs_validate;
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: x_msg_count := l_msg_count ;
784: x_msg_data := l_msg_data ;
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781: ROLLBACK TO ext_pay_invs_validate;
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: x_msg_count := l_msg_count ;
784: x_msg_data := l_msg_data ;
785: FND_MSG_PUB.count_and_get(
786: p_count => x_msg_count
784: x_msg_data := l_msg_data ;
785: FND_MSG_PUB.count_and_get(
786: p_count => x_msg_count
787: ,p_data => x_msg_data);
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: ROLLBACK TO ext_pay_invs_validate;
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: x_msg_count := l_msg_count ;
792: x_msg_data := l_msg_data ;
786: p_count => x_msg_count
787: ,p_data => x_msg_data);
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: ROLLBACK TO ext_pay_invs_validate;
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: x_msg_count := l_msg_count ;
792: x_msg_data := l_msg_data ;
793: FND_MSG_PUB.count_and_get(
794: p_count => x_msg_count
794: p_count => x_msg_count
795: ,p_data => x_msg_data);
796: WHEN OTHERS THEN
797: ROLLBACK TO ext_pay_invs_validate;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: x_msg_count := l_msg_count ;
800: x_msg_data := l_msg_data ;
801: FND_MSG_PUB.ADD_EXC_MSG('OKL_EXT_PAY_INVS_PUB','validate_ext_pay_invs');
802: FND_MSG_PUB.count_and_get(