2: /* $Header: OKLPINFB.pls 120.5 2009/05/27 22:11:07 sechawla ship $ */
3:
4: PROCEDURE insert_invoice_formats(
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_infv_rec IN infv_rec_type
45: ,l_msg_data
46: ,lp_infv_rec
47: ,lx_infv_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_infv_rec
47: ,lx_infv_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_infv_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_infv_rec := lx_infv_rec;
66: x_msg_data := l_msg_data ;
67:
68: EXCEPTION
69:
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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_INVOICE_FORMATS_PUB','insert_invoice_formats');
92: FND_MSG_PUB.count_and_get(
95: END insert_invoice_formats;
96:
97: PROCEDURE insert_invoice_formats(
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_infv_tbl IN infv_tbl_type
134: ,l_msg_data
135: ,lp_infv_tbl
136: ,lx_infv_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_infv_tbl
136: ,lx_infv_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_infv_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_infv_tbl := lx_infv_tbl;
154:
155:
156: EXCEPTION
157:
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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_INVOICE_FORMATS_PUB','insert_invoice_formats');
180: FND_MSG_PUB.count_and_get(
183: END insert_invoice_formats;
184:
185: PROCEDURE lock_invoice_formats(
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_infv_rec IN infv_rec_type) IS
198: x_msg_count,
199: x_msg_data,
200: p_infv_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_infv_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_infv_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_INVOICE_FORMATS_PUB','lock_invoice_formats');
222: FND_MSG_PUB.count_and_get(
223: p_count => x_msg_count
224: ,p_data => x_msg_data);
225: END lock_invoice_formats;
226:
227: PROCEDURE lock_invoice_formats(
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_infv_tbl IN infv_tbl_type) IS
240: x_msg_count,
241: x_msg_data,
242: p_infv_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_infv_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_infv_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_INVOICE_FORMATS_PUB','lock_invoice_formats');
264: FND_MSG_PUB.count_and_get(
265: p_count => x_msg_count
266: ,p_data => x_msg_data);
267: END lock_invoice_formats;
268:
269: PROCEDURE update_invoice_formats(
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_infv_rec IN infv_rec_type
308: ,l_msg_data
309: ,lp_infv_rec
310: ,lx_infv_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_infv_rec
310: ,lx_infv_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_infv_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_infv_rec := lx_infv_rec;
329:
330:
331: EXCEPTION
332:
333: WHEN FND_API.G_EXC_ERROR THEN
334: ROLLBACK TO invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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_INVOICE_FORMATS_PUB','update_invoice_formats');
355: FND_MSG_PUB.count_and_get(
358: END update_invoice_formats;
359:
360: PROCEDURE update_invoice_formats(
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_infv_tbl IN infv_tbl_type
398: ,l_msg_data
399: ,lp_infv_tbl
400: ,lx_infv_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_infv_tbl
400: ,lx_infv_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_infv_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_infv_tbl := lx_infv_tbl;
418:
419:
420: EXCEPTION
421:
422: WHEN FND_API.G_EXC_ERROR THEN
423: ROLLBACK TO invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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 invoice_formats_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_INVOICE_FORMATS_PUB','update_invoice_formats');
444: FND_MSG_PUB.count_and_get(
448:
449: --Put custom code for cascade delete by developer
450: PROCEDURE delete_invoice_formats(
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_infv_rec IN infv_rec_type) IS
505: p_app_name => G_APP_NAME,
506: p_msg_name => 'OKL_INV_FORMAT_LINK_TO_KHR',
507: p_token1 => 'TEXT',
508: p_token1_value => inv_format_assoc_to_khr_rec.name);
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: Raise FND_API.G_EXC_ERROR;
511: ELSE
512: --Delete the Master
513: okl_inf_pvt.delete_row(
506: p_msg_name => 'OKL_INV_FORMAT_LINK_TO_KHR',
507: p_token1 => 'TEXT',
508: p_token1_value => inv_format_assoc_to_khr_rec.name);
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: Raise FND_API.G_EXC_ERROR;
511: ELSE
512: --Delete the Master
513: okl_inf_pvt.delete_row(
514: l_api_version
517: ,l_msg_count
518: ,l_msg_data
519: ,lp_infv_rec);
520:
521: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
522: RAISE FND_API.G_EXC_ERROR;
523: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
518: ,l_msg_data
519: ,lp_infv_rec);
520:
521: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
522: RAISE FND_API.G_EXC_ERROR;
523: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
526: END IF;
519: ,lp_infv_rec);
520:
521: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
522: RAISE FND_API.G_EXC_ERROR;
523: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
526: END IF;
527: -- gboomina added for bug 6079088 - End
520:
521: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
522: RAISE FND_API.G_EXC_ERROR;
523: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
526: END IF;
527: -- gboomina added for bug 6079088 - End
528:
532: x_return_status := l_return_status ;
533:
534: EXCEPTION
535:
536: WHEN FND_API.G_EXC_ERROR THEN
537: ROLLBACK TO invoice_formats_delete_rec;
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: x_msg_count := l_msg_count ;
540: x_msg_data := l_msg_data ;
534: EXCEPTION
535:
536: WHEN FND_API.G_EXC_ERROR THEN
537: ROLLBACK TO invoice_formats_delete_rec;
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: x_msg_count := l_msg_count ;
540: x_msg_data := l_msg_data ;
541: FND_MSG_PUB.count_and_get(
542: p_count => x_msg_count
540: x_msg_data := l_msg_data ;
541: FND_MSG_PUB.count_and_get(
542: p_count => x_msg_count
543: ,p_data => x_msg_data);
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: ROLLBACK TO invoice_formats_delete_rec;
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: x_msg_count := l_msg_count ;
548: x_msg_data := l_msg_data ;
542: p_count => x_msg_count
543: ,p_data => x_msg_data);
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545: ROLLBACK TO invoice_formats_delete_rec;
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: x_msg_count := l_msg_count ;
548: x_msg_data := l_msg_data ;
549: FND_MSG_PUB.count_and_get(
550: p_count => x_msg_count
550: p_count => x_msg_count
551: ,p_data => x_msg_data);
552: WHEN OTHERS THEN
553: ROLLBACK TO invoice_formats_delete_rec;
554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
555: x_msg_count := l_msg_count ;
556: x_msg_data := l_msg_data ;
557: FND_MSG_PUB.ADD_EXC_MSG('OKL_INVOICE_FORMATS_PUB','delete_invoice_formats');
558: FND_MSG_PUB.count_and_get(
561: END delete_invoice_formats;
562:
563: PROCEDURE delete_invoice_formats(
564: p_api_version IN NUMBER
565: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
566: ,x_return_status OUT NOCOPY VARCHAR2
567: ,x_msg_count OUT NOCOPY NUMBER
568: ,x_msg_data OUT NOCOPY VARCHAR2
569: ,p_infv_tbl IN infv_tbl_type) IS
609: EXIT WHEN (i = lp_infv_tbl.LAST);
610: i := p_infv_tbl.NEXT(i);
611: END LOOP;
612: END IF;
613: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
614: RAISE FND_API.G_EXC_ERROR;
615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
610: i := p_infv_tbl.NEXT(i);
611: END LOOP;
612: END IF;
613: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
614: RAISE FND_API.G_EXC_ERROR;
615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618:
611: END LOOP;
612: END IF;
613: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
614: RAISE FND_API.G_EXC_ERROR;
615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618:
619: END;
612: END IF;
613: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
614: RAISE FND_API.G_EXC_ERROR;
615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618:
619: END;
620:
629: x_return_status := l_return_status ;
630:
631: EXCEPTION
632:
633: WHEN FND_API.G_EXC_ERROR THEN
634: ROLLBACK TO invoice_formats_delete_tbl;
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: x_msg_count := l_msg_count ;
637: x_msg_data := l_msg_data ;
631: EXCEPTION
632:
633: WHEN FND_API.G_EXC_ERROR THEN
634: ROLLBACK TO invoice_formats_delete_tbl;
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: x_msg_count := l_msg_count ;
637: x_msg_data := l_msg_data ;
638: FND_MSG_PUB.count_and_get(
639: p_count => x_msg_count
637: x_msg_data := l_msg_data ;
638: FND_MSG_PUB.count_and_get(
639: p_count => x_msg_count
640: ,p_data => x_msg_data);
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642: ROLLBACK TO invoice_formats_delete_tbl;
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: x_msg_count := l_msg_count ;
645: x_msg_data := l_msg_data ;
639: p_count => x_msg_count
640: ,p_data => x_msg_data);
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642: ROLLBACK TO invoice_formats_delete_tbl;
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: x_msg_count := l_msg_count ;
645: x_msg_data := l_msg_data ;
646: FND_MSG_PUB.count_and_get(
647: p_count => x_msg_count
647: p_count => x_msg_count
648: ,p_data => x_msg_data);
649: WHEN OTHERS THEN
650: ROLLBACK TO invoice_formats_delete_tbl;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652: x_msg_count := l_msg_count ;
653: x_msg_data := l_msg_data ;
654: FND_MSG_PUB.ADD_EXC_MSG('OKL_INVOICE_FORMATS_PUB','delete_invoice_formats');
655: FND_MSG_PUB.count_and_get(
658: END delete_invoice_formats;
659:
660: PROCEDURE validate_invoice_formats(
661: p_api_version IN NUMBER
662: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
663: ,x_return_status OUT NOCOPY VARCHAR2
664: ,x_msg_count OUT NOCOPY NUMBER
665: ,x_msg_data OUT NOCOPY VARCHAR2
666: ,p_infv_rec IN infv_rec_type) IS
695: ,l_msg_count
696: ,l_msg_data
697: ,lp_infv_rec);
698:
699: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
696: ,l_msg_data
697: ,lp_infv_rec);
698:
699: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704:
697: ,lp_infv_rec);
698:
699: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704:
705: --Copy value of OUT variable in the IN record type
698:
699: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704:
705: --Copy value of OUT variable in the IN record type
706: lp_infv_rec := lx_infv_rec;
719: x_return_status := l_return_status ;
720:
721: EXCEPTION
722:
723: WHEN FND_API.G_EXC_ERROR THEN
724: ROLLBACK TO invoice_formats_validate;
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: x_msg_count := l_msg_count ;
727: x_msg_data := l_msg_data ;
721: EXCEPTION
722:
723: WHEN FND_API.G_EXC_ERROR THEN
724: ROLLBACK TO invoice_formats_validate;
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: x_msg_count := l_msg_count ;
727: x_msg_data := l_msg_data ;
728: FND_MSG_PUB.count_and_get(
729: p_count => x_msg_count
727: x_msg_data := l_msg_data ;
728: FND_MSG_PUB.count_and_get(
729: p_count => x_msg_count
730: ,p_data => x_msg_data);
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: ROLLBACK TO invoice_formats_validate;
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: x_msg_count := l_msg_count ;
735: x_msg_data := l_msg_data ;
729: p_count => x_msg_count
730: ,p_data => x_msg_data);
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: ROLLBACK TO invoice_formats_validate;
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: x_msg_count := l_msg_count ;
735: x_msg_data := l_msg_data ;
736: FND_MSG_PUB.count_and_get(
737: p_count => x_msg_count
737: p_count => x_msg_count
738: ,p_data => x_msg_data);
739: WHEN OTHERS THEN
740: ROLLBACK TO invoice_formats_validate;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: x_msg_count := l_msg_count ;
743: x_msg_data := l_msg_data ;
744: FND_MSG_PUB.ADD_EXC_MSG('OKL_INVOICE_FORMATS_PUB','validate_invoice_formats');
745: FND_MSG_PUB.count_and_get(
748: END validate_invoice_formats;
749:
750: PROCEDURE validate_invoice_formats(
751: p_api_version IN NUMBER,
752: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
753: x_return_status OUT NOCOPY VARCHAR2,
754: x_msg_count OUT NOCOPY NUMBER,
755: x_msg_data OUT NOCOPY VARCHAR2,
756: p_infv_tbl IN infv_tbl_type) IS
783: ,x_msg_count
784: ,x_msg_data
785: ,lp_infv_tbl);
786:
787: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
784: ,x_msg_data
785: ,lp_infv_tbl);
786:
787: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
785: ,lp_infv_tbl);
786:
787: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
793: --Copy value of OUT variable in the IN record type
786:
787: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
788: RAISE FND_API.G_EXC_ERROR;
789: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: END IF;
792:
793: --Copy value of OUT variable in the IN record type
794: lp_infv_tbl := lx_infv_tbl;
804: x_return_status := l_return_status ;
805:
806: EXCEPTION
807:
808: WHEN FND_API.G_EXC_ERROR THEN
809: ROLLBACK TO invoice_formats_validate;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: x_msg_count := l_msg_count ;
812: x_msg_data := l_msg_data ;
806: EXCEPTION
807:
808: WHEN FND_API.G_EXC_ERROR THEN
809: ROLLBACK TO invoice_formats_validate;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: x_msg_count := l_msg_count ;
812: x_msg_data := l_msg_data ;
813: FND_MSG_PUB.count_and_get(
814: p_count => x_msg_count
812: x_msg_data := l_msg_data ;
813: FND_MSG_PUB.count_and_get(
814: p_count => x_msg_count
815: ,p_data => x_msg_data);
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: ROLLBACK TO invoice_formats_validate;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: x_msg_count := l_msg_count ;
820: x_msg_data := l_msg_data ;
814: p_count => x_msg_count
815: ,p_data => x_msg_data);
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: ROLLBACK TO invoice_formats_validate;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: x_msg_count := l_msg_count ;
820: x_msg_data := l_msg_data ;
821: FND_MSG_PUB.count_and_get(
822: p_count => x_msg_count
822: p_count => x_msg_count
823: ,p_data => x_msg_data);
824: WHEN OTHERS THEN
825: ROLLBACK TO invoice_formats_validate;
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: x_msg_count := l_msg_count ;
828: x_msg_data := l_msg_data ;
829: FND_MSG_PUB.ADD_EXC_MSG('OKL_INVOICE_FORMATS_PUB','validate_invoice_formats');
830: FND_MSG_PUB.count_and_get(