44: ,l_msg_data
45: ,lp_oinv_rec
46: ,lx_oinv_rec);
47:
48: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
45: ,lp_oinv_rec
46: ,lx_oinv_rec);
47:
48: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
46: ,lx_oinv_rec);
47:
48: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: --Copy value of OUT variable in the IN record type
47:
48: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: --Copy value of OUT variable in the IN record type
55: lp_oinv_rec := lx_oinv_rec;
64: x_msg_count := l_msg_count ;
65: x_msg_data := l_msg_data ;
66: EXCEPTION
67:
68: WHEN FND_API.G_EXC_ERROR THEN
69: ROLLBACK TO open_int_insert;
70: x_return_status := FND_API.G_RET_STS_ERROR;
71: x_msg_count := l_msg_count ;
72: x_msg_data := l_msg_data ;
66: EXCEPTION
67:
68: WHEN FND_API.G_EXC_ERROR THEN
69: ROLLBACK TO open_int_insert;
70: x_return_status := FND_API.G_RET_STS_ERROR;
71: x_msg_count := l_msg_count ;
72: x_msg_data := l_msg_data ;
73: FND_MSG_PUB.count_and_get(
74: p_count => x_msg_count
72: x_msg_data := l_msg_data ;
73: FND_MSG_PUB.count_and_get(
74: p_count => x_msg_count
75: ,p_data => x_msg_data);
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK TO open_int_insert;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: x_msg_count := l_msg_count ;
80: x_msg_data := l_msg_data ;
74: p_count => x_msg_count
75: ,p_data => x_msg_data);
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK TO open_int_insert;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: x_msg_count := l_msg_count ;
80: x_msg_data := l_msg_data ;
81: FND_MSG_PUB.count_and_get(
82: p_count => x_msg_count
82: p_count => x_msg_count
83: ,p_data => x_msg_data);
84: WHEN OTHERS THEN
85: ROLLBACK TO open_int_insert;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := l_msg_count ;
88: x_msg_data := l_msg_data ;
89: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','insert_open_int');
90: FND_MSG_PUB.count_and_get(
131: ,l_msg_data
132: ,lp_oinv_tbl
133: ,lx_oinv_tbl);
134:
135: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
132: ,lp_oinv_tbl
133: ,lx_oinv_tbl);
134:
135: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
133: ,lx_oinv_tbl);
134:
135: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: --Copy value of OUT variable in the IN record type
134:
135: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: --Copy value of OUT variable in the IN record type
142: lp_oinv_tbl := lx_oinv_tbl;
149: x_msg_count := l_msg_count ;
150: x_msg_data := l_msg_data ;
151: EXCEPTION
152:
153: WHEN FND_API.G_EXC_ERROR THEN
154: ROLLBACK TO open_int_insert;
155: x_return_status := FND_API.G_RET_STS_ERROR;
156: x_msg_count := l_msg_count ;
157: x_msg_data := l_msg_data ;
151: EXCEPTION
152:
153: WHEN FND_API.G_EXC_ERROR THEN
154: ROLLBACK TO open_int_insert;
155: x_return_status := FND_API.G_RET_STS_ERROR;
156: x_msg_count := l_msg_count ;
157: x_msg_data := l_msg_data ;
158: FND_MSG_PUB.count_and_get(
159: p_count => x_msg_count
157: x_msg_data := l_msg_data ;
158: FND_MSG_PUB.count_and_get(
159: p_count => x_msg_count
160: ,p_data => x_msg_data);
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162: ROLLBACK TO open_int_insert;
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: x_msg_count := l_msg_count ;
165: x_msg_data := l_msg_data ;
159: p_count => x_msg_count
160: ,p_data => x_msg_data);
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162: ROLLBACK TO open_int_insert;
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: x_msg_count := l_msg_count ;
165: x_msg_data := l_msg_data ;
166: FND_MSG_PUB.count_and_get(
167: p_count => x_msg_count
167: p_count => x_msg_count
168: ,p_data => x_msg_data);
169: WHEN OTHERS THEN
170: ROLLBACK TO open_int_insert;
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172: x_msg_count := l_msg_count ;
173: x_msg_data := l_msg_data ;
174: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','insert_open_int');
175: FND_MSG_PUB.count_and_get(
193: x_msg_count,
194: x_msg_data,
195: p_oinv_rec);
196:
197: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
198: RAISE FND_API.G_EXC_ERROR;
199: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
194: x_msg_data,
195: p_oinv_rec);
196:
197: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
198: RAISE FND_API.G_EXC_ERROR;
199: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
195: p_oinv_rec);
196:
197: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
198: RAISE FND_API.G_EXC_ERROR;
199: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: EXCEPTION
196:
197: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
198: RAISE FND_API.G_EXC_ERROR;
199: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: EXCEPTION
204:
201: END IF;
202:
203: EXCEPTION
204:
205: WHEN FND_API.G_EXC_ERROR THEN
206: FND_MSG_PUB.count_and_get(
207: p_count => x_msg_count
208: ,p_data => x_msg_data);
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: WHEN FND_API.G_EXC_ERROR THEN
206: FND_MSG_PUB.count_and_get(
207: p_count => x_msg_count
208: ,p_data => x_msg_data);
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210: FND_MSG_PUB.count_and_get(
211: p_count => x_msg_count
212: ,p_data => x_msg_data);
213: WHEN OTHERS THEN
210: FND_MSG_PUB.count_and_get(
211: p_count => x_msg_count
212: ,p_data => x_msg_data);
213: WHEN OTHERS THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','lock_open_int');
216: FND_MSG_PUB.count_and_get(
217: p_count => x_msg_count
218: ,p_data => x_msg_data);
234: x_msg_count,
235: x_msg_data,
236: p_oinv_tbl);
237:
238: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
235: x_msg_data,
236: p_oinv_tbl);
237:
238: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: EXCEPTION
236: p_oinv_tbl);
237:
238: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: EXCEPTION
244:
237:
238: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246: FND_MSG_PUB.count_and_get(
247: p_count => x_msg_count
248: ,p_data => x_msg_data);
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: WHEN FND_API.G_EXC_ERROR THEN
246: FND_MSG_PUB.count_and_get(
247: p_count => x_msg_count
248: ,p_data => x_msg_data);
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: FND_MSG_PUB.count_and_get(
251: p_count => x_msg_count
252: ,p_data => x_msg_data);
253: WHEN OTHERS THEN
250: FND_MSG_PUB.count_and_get(
251: p_count => x_msg_count
252: ,p_data => x_msg_data);
253: WHEN OTHERS THEN
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','lock_open_int');
256: FND_MSG_PUB.count_and_get(
257: p_count => x_msg_count
258: ,p_data => x_msg_data);
299: ,l_msg_data
300: ,lp_oinv_rec
301: ,lx_oinv_rec);
302:
303: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
304: RAISE FND_API.G_EXC_ERROR;
305: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
300: ,lp_oinv_rec
301: ,lx_oinv_rec);
302:
303: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
304: RAISE FND_API.G_EXC_ERROR;
305: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
301: ,lx_oinv_rec);
302:
303: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
304: RAISE FND_API.G_EXC_ERROR;
305: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: --Copy value of OUT variable in the IN record type
302:
303: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
304: RAISE FND_API.G_EXC_ERROR;
305: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: --Copy value of OUT variable in the IN record type
310: lp_oinv_rec := lx_oinv_rec;
319: x_msg_data := l_msg_data ;
320:
321: EXCEPTION
322:
323: WHEN FND_API.G_EXC_ERROR THEN
324: ROLLBACK TO open_int_update;
325: x_return_status := FND_API.G_RET_STS_ERROR;
326: x_msg_count := l_msg_count ;
327: x_msg_data := l_msg_data ;
321: EXCEPTION
322:
323: WHEN FND_API.G_EXC_ERROR THEN
324: ROLLBACK TO open_int_update;
325: x_return_status := FND_API.G_RET_STS_ERROR;
326: x_msg_count := l_msg_count ;
327: x_msg_data := l_msg_data ;
328: FND_MSG_PUB.count_and_get(
329: p_count => x_msg_count
327: x_msg_data := l_msg_data ;
328: FND_MSG_PUB.count_and_get(
329: p_count => x_msg_count
330: ,p_data => x_msg_data);
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO open_int_update;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: x_msg_count := l_msg_count ;
335: x_msg_data := l_msg_data ;
329: p_count => x_msg_count
330: ,p_data => x_msg_data);
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO open_int_update;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: x_msg_count := l_msg_count ;
335: x_msg_data := l_msg_data ;
336: FND_MSG_PUB.count_and_get(
337: p_count => x_msg_count
337: p_count => x_msg_count
338: ,p_data => x_msg_data);
339: WHEN OTHERS THEN
340: ROLLBACK TO open_int_update;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: x_msg_count := l_msg_count ;
343: x_msg_data := l_msg_data ;
344: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','update_open_int');
345: FND_MSG_PUB.count_and_get(
387: ,l_msg_data
388: ,lp_oinv_tbl
389: ,lx_oinv_tbl);
390:
391: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
388: ,lp_oinv_tbl
389: ,lx_oinv_tbl);
390:
391: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
389: ,lx_oinv_tbl);
390:
391: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397: --Copy value of OUT variable in the IN record type
390:
391: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
392: RAISE FND_API.G_EXC_ERROR;
393: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397: --Copy value of OUT variable in the IN record type
398: lp_oinv_tbl := lx_oinv_tbl;
406: x_msg_data := l_msg_data ;
407:
408: EXCEPTION
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO open_int_update;
412: x_return_status := FND_API.G_RET_STS_ERROR;
413: x_msg_count := l_msg_count ;
414: x_msg_data := l_msg_data ;
408: EXCEPTION
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO open_int_update;
412: x_return_status := FND_API.G_RET_STS_ERROR;
413: x_msg_count := l_msg_count ;
414: x_msg_data := l_msg_data ;
415: FND_MSG_PUB.count_and_get(
416: p_count => x_msg_count
414: x_msg_data := l_msg_data ;
415: FND_MSG_PUB.count_and_get(
416: p_count => x_msg_count
417: ,p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO open_int_update;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: x_msg_count := l_msg_count ;
422: x_msg_data := l_msg_data ;
416: p_count => x_msg_count
417: ,p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO open_int_update;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: x_msg_count := l_msg_count ;
422: x_msg_data := l_msg_data ;
423: FND_MSG_PUB.count_and_get(
424: p_count => x_msg_count
424: p_count => x_msg_count
425: ,p_data => x_msg_data);
426: WHEN OTHERS THEN
427: ROLLBACK TO open_int_update;
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: x_msg_count := l_msg_count ;
430: x_msg_data := l_msg_data ;
431: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','update_open_int');
432: FND_MSG_PUB.count_and_get(
474: ,l_msg_count
475: ,l_msg_data
476: ,lp_oinv_rec);
477:
478: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
475: ,l_msg_data
476: ,lp_oinv_rec);
477:
478: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483:
476: ,lp_oinv_rec);
477:
478: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483:
484:
477:
478: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483:
484:
485:
490: x_msg_data := l_msg_data ;
491: x_return_status := l_return_status ;
492: EXCEPTION
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO open_int_delete_rec;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: x_msg_count := l_msg_count ;
498: x_msg_data := l_msg_data ;
492: EXCEPTION
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO open_int_delete_rec;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: x_msg_count := l_msg_count ;
498: x_msg_data := l_msg_data ;
499: FND_MSG_PUB.count_and_get(
500: p_count => x_msg_count
498: x_msg_data := l_msg_data ;
499: FND_MSG_PUB.count_and_get(
500: p_count => x_msg_count
501: ,p_data => x_msg_data);
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: ROLLBACK TO open_int_delete_rec;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: x_msg_count := l_msg_count ;
506: x_msg_data := l_msg_data ;
500: p_count => x_msg_count
501: ,p_data => x_msg_data);
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: ROLLBACK TO open_int_delete_rec;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: x_msg_count := l_msg_count ;
506: x_msg_data := l_msg_data ;
507: FND_MSG_PUB.count_and_get(
508: p_count => x_msg_count
508: p_count => x_msg_count
509: ,p_data => x_msg_data);
510: WHEN OTHERS THEN
511: ROLLBACK TO open_int_delete_rec;
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513: x_msg_count := l_msg_count ;
514: x_msg_data := l_msg_data ;
515: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','delete_open_int');
516: FND_MSG_PUB.count_and_get(
566: EXIT WHEN (i = lp_oinv_tbl.LAST);
567: i := p_oinv_tbl.NEXT(i);
568: END LOOP;
569: END IF;
570: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
571: RAISE FND_API.G_EXC_ERROR;
572: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: END IF;
567: i := p_oinv_tbl.NEXT(i);
568: END LOOP;
569: END IF;
570: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
571: RAISE FND_API.G_EXC_ERROR;
572: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: END IF;
575:
568: END LOOP;
569: END IF;
570: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
571: RAISE FND_API.G_EXC_ERROR;
572: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: END IF;
575:
576: END;
569: END IF;
570: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
571: RAISE FND_API.G_EXC_ERROR;
572: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574: END IF;
575:
576: END;
577:
585:
586: x_return_status := l_return_status ;
587: EXCEPTION
588:
589: WHEN FND_API.G_EXC_ERROR THEN
590: ROLLBACK TO open_int_delete_tbl;
591: x_return_status := FND_API.G_RET_STS_ERROR;
592: x_msg_count := l_msg_count ;
593: x_msg_data := l_msg_data ;
587: EXCEPTION
588:
589: WHEN FND_API.G_EXC_ERROR THEN
590: ROLLBACK TO open_int_delete_tbl;
591: x_return_status := FND_API.G_RET_STS_ERROR;
592: x_msg_count := l_msg_count ;
593: x_msg_data := l_msg_data ;
594: FND_MSG_PUB.count_and_get(
595: p_count => x_msg_count
593: x_msg_data := l_msg_data ;
594: FND_MSG_PUB.count_and_get(
595: p_count => x_msg_count
596: ,p_data => x_msg_data);
597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
598: ROLLBACK TO open_int_delete_tbl;
599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600: x_msg_count := l_msg_count ;
601: x_msg_data := l_msg_data ;
595: p_count => x_msg_count
596: ,p_data => x_msg_data);
597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
598: ROLLBACK TO open_int_delete_tbl;
599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600: x_msg_count := l_msg_count ;
601: x_msg_data := l_msg_data ;
602: FND_MSG_PUB.count_and_get(
603: p_count => x_msg_count
603: p_count => x_msg_count
604: ,p_data => x_msg_data);
605: WHEN OTHERS THEN
606: ROLLBACK TO open_int_delete_tbl;
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
610: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','delete_open_int');
611: FND_MSG_PUB.count_and_get(
650: ,l_msg_count
651: ,l_msg_data
652: ,lp_oinv_rec);
653:
654: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
655: RAISE FND_API.G_EXC_ERROR;
656: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
651: ,l_msg_data
652: ,lp_oinv_rec);
653:
654: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
655: RAISE FND_API.G_EXC_ERROR;
656: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
652: ,lp_oinv_rec);
653:
654: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
655: RAISE FND_API.G_EXC_ERROR;
656: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660: --Copy value of OUT variable in the IN record type
653:
654: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
655: RAISE FND_API.G_EXC_ERROR;
656: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660: --Copy value of OUT variable in the IN record type
661: lp_oinv_rec := lx_oinv_rec;
673:
674: x_return_status := l_return_status ;
675: EXCEPTION
676:
677: WHEN FND_API.G_EXC_ERROR THEN
678: ROLLBACK TO open_int_validate;
679: x_return_status := FND_API.G_RET_STS_ERROR;
680: x_msg_count := l_msg_count ;
681: x_msg_data := l_msg_data ;
675: EXCEPTION
676:
677: WHEN FND_API.G_EXC_ERROR THEN
678: ROLLBACK TO open_int_validate;
679: x_return_status := FND_API.G_RET_STS_ERROR;
680: x_msg_count := l_msg_count ;
681: x_msg_data := l_msg_data ;
682: FND_MSG_PUB.count_and_get(
683: p_count => x_msg_count
681: x_msg_data := l_msg_data ;
682: FND_MSG_PUB.count_and_get(
683: p_count => x_msg_count
684: ,p_data => x_msg_data);
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO open_int_validate;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: x_msg_count := l_msg_count ;
689: x_msg_data := l_msg_data ;
683: p_count => x_msg_count
684: ,p_data => x_msg_data);
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: ROLLBACK TO open_int_validate;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: x_msg_count := l_msg_count ;
689: x_msg_data := l_msg_data ;
690: FND_MSG_PUB.count_and_get(
691: p_count => x_msg_count
691: p_count => x_msg_count
692: ,p_data => x_msg_data);
693: WHEN OTHERS THEN
694: ROLLBACK TO open_int_validate;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: x_msg_count := l_msg_count ;
697: x_msg_data := l_msg_data ;
698: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','validate_open_int');
699: FND_MSG_PUB.count_and_get(
736: ,x_msg_count
737: ,x_msg_data
738: ,lp_oinv_tbl);
739:
740: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
744: END IF;
737: ,x_msg_data
738: ,lp_oinv_tbl);
739:
740: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
744: END IF;
745:
738: ,lp_oinv_tbl);
739:
740: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
744: END IF;
745:
746: --Copy value of OUT variable in the IN record type
739:
740: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
744: END IF;
745:
746: --Copy value of OUT variable in the IN record type
747: lp_oinv_tbl := lx_oinv_tbl;
757: x_return_status := l_return_status ;
758: null;
759: EXCEPTION
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: ROLLBACK TO open_int_validate;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: x_msg_count := l_msg_count ;
765: x_msg_data := l_msg_data ;
759: EXCEPTION
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: ROLLBACK TO open_int_validate;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: x_msg_count := l_msg_count ;
765: x_msg_data := l_msg_data ;
766: FND_MSG_PUB.count_and_get(
767: p_count => x_msg_count
765: x_msg_data := l_msg_data ;
766: FND_MSG_PUB.count_and_get(
767: p_count => x_msg_count
768: ,p_data => x_msg_data);
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: ROLLBACK TO open_int_validate;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: x_msg_count := l_msg_count ;
773: x_msg_data := l_msg_data ;
767: p_count => x_msg_count
768: ,p_data => x_msg_data);
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770: ROLLBACK TO open_int_validate;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: x_msg_count := l_msg_count ;
773: x_msg_data := l_msg_data ;
774: FND_MSG_PUB.count_and_get(
775: p_count => x_msg_count
775: p_count => x_msg_count
776: ,p_data => x_msg_data);
777: WHEN OTHERS THEN
778: ROLLBACK TO open_int_validate;
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: x_msg_count := l_msg_count ;
781: x_msg_data := l_msg_data ;
782: FND_MSG_PUB.ADD_EXC_MSG('OKL_OPEN_INT_PUB','validate_open_int');
783: FND_MSG_PUB.count_and_get(