2: /* $Header: OKLPADJB.pls 120.3 2006/07/07 09:53:19 adagur noship $ */
3:
4: PROCEDURE insert_trx_ar_adjsts(
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_adjv_rec IN adjv_rec_type
45: ,l_msg_data
46: ,lp_adjv_rec
47: ,lx_adjv_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_adjv_rec
47: ,lx_adjv_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_adjv_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_adjv_rec := lx_adjv_rec;
66: x_msg_data := l_msg_data ;
67:
68: EXCEPTION
69:
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO trx_ar_adjsts_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 trx_ar_adjsts_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 trx_ar_adjsts_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 trx_ar_adjsts_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 trx_ar_adjsts_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_TRX_AR_ADJSTS_PUB','insert_trx_ar_adjsts');
92: FND_MSG_PUB.count_and_get(
95: END insert_trx_ar_adjsts;
96:
97: PROCEDURE insert_trx_ar_adjsts(
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_adjv_tbl IN adjv_tbl_type
139: ,l_msg_data
140: ,lp_adjv_tbl
141: ,lx_adjv_tbl);
142:
143: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
144: RAISE FND_API.G_EXC_ERROR;
145: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
140: ,lp_adjv_tbl
141: ,lx_adjv_tbl);
142:
143: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
144: RAISE FND_API.G_EXC_ERROR;
145: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
141: ,lx_adjv_tbl);
142:
143: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
144: RAISE FND_API.G_EXC_ERROR;
145: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
149: --Copy value of OUT variable in the IN record type
142:
143: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
144: RAISE FND_API.G_EXC_ERROR;
145: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
149: --Copy value of OUT variable in the IN record type
150: lp_adjv_tbl := lx_adjv_tbl;
159:
160:
161: EXCEPTION
162:
163: WHEN FND_API.G_EXC_ERROR THEN
164: ROLLBACK TO trx_ar_adjsts_insert;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: x_msg_count := l_msg_count ;
167: x_msg_data := l_msg_data ;
161: EXCEPTION
162:
163: WHEN FND_API.G_EXC_ERROR THEN
164: ROLLBACK TO trx_ar_adjsts_insert;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: x_msg_count := l_msg_count ;
167: x_msg_data := l_msg_data ;
168: FND_MSG_PUB.count_and_get(
169: p_count => x_msg_count
167: x_msg_data := l_msg_data ;
168: FND_MSG_PUB.count_and_get(
169: p_count => x_msg_count
170: ,p_data => x_msg_data);
171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
172: ROLLBACK TO trx_ar_adjsts_insert;
173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174: x_msg_count := l_msg_count ;
175: x_msg_data := l_msg_data ;
169: p_count => x_msg_count
170: ,p_data => x_msg_data);
171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
172: ROLLBACK TO trx_ar_adjsts_insert;
173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174: x_msg_count := l_msg_count ;
175: x_msg_data := l_msg_data ;
176: FND_MSG_PUB.count_and_get(
177: p_count => x_msg_count
177: p_count => x_msg_count
178: ,p_data => x_msg_data);
179: WHEN OTHERS THEN
180: ROLLBACK TO trx_ar_adjsts_insert;
181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182: x_msg_count := l_msg_count ;
183: x_msg_data := l_msg_data ;
184: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','insert_trx_ar_adjsts');
185: FND_MSG_PUB.count_and_get(
188: END insert_trx_ar_adjsts;
189:
190: PROCEDURE lock_trx_ar_adjsts(
191: p_api_version IN NUMBER
192: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
193: ,x_return_status OUT NOCOPY VARCHAR2
194: ,x_msg_count OUT NOCOPY NUMBER
195: ,x_msg_data OUT NOCOPY VARCHAR2
196: ,p_adjv_rec IN adjv_rec_type) IS
203: x_msg_count,
204: x_msg_data,
205: p_adjv_rec);
206:
207: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
204: x_msg_data,
205: p_adjv_rec);
206:
207: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
205: p_adjv_rec);
206:
207: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213:
206:
207: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213:
214: EXCEPTION
212:
213:
214: EXCEPTION
215:
216: WHEN FND_API.G_EXC_ERROR THEN
217: FND_MSG_PUB.count_and_get(
218: p_count => x_msg_count
219: ,p_data => x_msg_data);
220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: WHEN FND_API.G_EXC_ERROR THEN
217: FND_MSG_PUB.count_and_get(
218: p_count => x_msg_count
219: ,p_data => x_msg_data);
220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
221: FND_MSG_PUB.count_and_get(
222: p_count => x_msg_count
223: ,p_data => x_msg_data);
224: WHEN OTHERS THEN
221: FND_MSG_PUB.count_and_get(
222: p_count => x_msg_count
223: ,p_data => x_msg_data);
224: WHEN OTHERS THEN
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','lock_trx_ar_adjsts');
227: FND_MSG_PUB.count_and_get(
228: p_count => x_msg_count
229: ,p_data => x_msg_data);
230: END lock_trx_ar_adjsts;
231:
232: PROCEDURE lock_trx_ar_adjsts(
233: p_api_version IN NUMBER
234: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
235: ,x_return_status OUT NOCOPY VARCHAR2
236: ,x_msg_count OUT NOCOPY NUMBER
237: ,x_msg_data OUT NOCOPY VARCHAR2
238: ,p_adjv_tbl IN adjv_tbl_type) IS
245: x_msg_count,
246: x_msg_data,
247: p_adjv_tbl);
248:
249: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
250: RAISE FND_API.G_EXC_ERROR;
251: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
246: x_msg_data,
247: p_adjv_tbl);
248:
249: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
250: RAISE FND_API.G_EXC_ERROR;
251: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
254:
247: p_adjv_tbl);
248:
249: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
250: RAISE FND_API.G_EXC_ERROR;
251: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
254:
255:
248:
249: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
250: RAISE FND_API.G_EXC_ERROR;
251: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
254:
255:
256: EXCEPTION
254:
255:
256: EXCEPTION
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: FND_MSG_PUB.count_and_get(
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: WHEN FND_API.G_EXC_ERROR THEN
259: FND_MSG_PUB.count_and_get(
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: FND_MSG_PUB.count_and_get(
264: p_count => x_msg_count
265: ,p_data => x_msg_data);
266: WHEN OTHERS THEN
263: FND_MSG_PUB.count_and_get(
264: p_count => x_msg_count
265: ,p_data => x_msg_data);
266: WHEN OTHERS THEN
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','lock_trx_ar_adjsts');
269: FND_MSG_PUB.count_and_get(
270: p_count => x_msg_count
271: ,p_data => x_msg_data);
272: END lock_trx_ar_adjsts;
273:
274: PROCEDURE update_trx_ar_adjsts(
275: p_api_version IN NUMBER
276: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
277: ,x_return_status OUT NOCOPY VARCHAR2
278: ,x_msg_count OUT NOCOPY NUMBER
279: ,x_msg_data OUT NOCOPY VARCHAR2
280: ,p_adjv_rec IN adjv_rec_type
313: ,l_msg_data
314: ,lp_adjv_rec
315: ,lx_adjv_rec);
316:
317: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
314: ,lp_adjv_rec
315: ,lx_adjv_rec);
316:
317: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
315: ,lx_adjv_rec);
316:
317: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: --Copy value of OUT variable in the IN record type
316:
317: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: --Copy value of OUT variable in the IN record type
324: lp_adjv_rec := lx_adjv_rec;
334:
335:
336: EXCEPTION
337:
338: WHEN FND_API.G_EXC_ERROR THEN
339: ROLLBACK TO trx_ar_adjsts_update;
340: x_return_status := FND_API.G_RET_STS_ERROR;
341: x_msg_count := l_msg_count ;
342: x_msg_data := l_msg_data ;
336: EXCEPTION
337:
338: WHEN FND_API.G_EXC_ERROR THEN
339: ROLLBACK TO trx_ar_adjsts_update;
340: x_return_status := FND_API.G_RET_STS_ERROR;
341: x_msg_count := l_msg_count ;
342: x_msg_data := l_msg_data ;
343: FND_MSG_PUB.count_and_get(
344: p_count => x_msg_count
342: x_msg_data := l_msg_data ;
343: FND_MSG_PUB.count_and_get(
344: p_count => x_msg_count
345: ,p_data => x_msg_data);
346: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
347: ROLLBACK TO trx_ar_adjsts_update;
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349: x_msg_count := l_msg_count ;
350: x_msg_data := l_msg_data ;
344: p_count => x_msg_count
345: ,p_data => x_msg_data);
346: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
347: ROLLBACK TO trx_ar_adjsts_update;
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349: x_msg_count := l_msg_count ;
350: x_msg_data := l_msg_data ;
351: FND_MSG_PUB.count_and_get(
352: p_count => x_msg_count
352: p_count => x_msg_count
353: ,p_data => x_msg_data);
354: WHEN OTHERS THEN
355: ROLLBACK TO trx_ar_adjsts_update;
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: x_msg_count := l_msg_count ;
358: x_msg_data := l_msg_data ;
359: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','update_trx_ar_adjsts');
360: FND_MSG_PUB.count_and_get(
363: END update_trx_ar_adjsts;
364:
365: PROCEDURE update_trx_ar_adjsts(
366: p_api_version IN NUMBER
367: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
368: ,x_return_status OUT NOCOPY VARCHAR2
369: ,x_msg_count OUT NOCOPY NUMBER
370: ,x_msg_data OUT NOCOPY VARCHAR2
371: ,p_adjv_tbl IN adjv_tbl_type
403: ,l_msg_data
404: ,lp_adjv_tbl
405: ,lx_adjv_tbl);
406:
407: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
411: END IF;
404: ,lp_adjv_tbl
405: ,lx_adjv_tbl);
406:
407: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
411: END IF;
412:
405: ,lx_adjv_tbl);
406:
407: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
411: END IF;
412:
413: --Copy value of OUT variable in the IN record type
406:
407: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
411: END IF;
412:
413: --Copy value of OUT variable in the IN record type
414: lp_adjv_tbl := lx_adjv_tbl;
423:
424:
425: EXCEPTION
426:
427: WHEN FND_API.G_EXC_ERROR THEN
428: ROLLBACK TO trx_ar_adjsts_update;
429: x_return_status := FND_API.G_RET_STS_ERROR;
430: x_msg_count := l_msg_count ;
431: x_msg_data := l_msg_data ;
425: EXCEPTION
426:
427: WHEN FND_API.G_EXC_ERROR THEN
428: ROLLBACK TO trx_ar_adjsts_update;
429: x_return_status := FND_API.G_RET_STS_ERROR;
430: x_msg_count := l_msg_count ;
431: x_msg_data := l_msg_data ;
432: FND_MSG_PUB.count_and_get(
433: p_count => x_msg_count
431: x_msg_data := l_msg_data ;
432: FND_MSG_PUB.count_and_get(
433: p_count => x_msg_count
434: ,p_data => x_msg_data);
435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
436: ROLLBACK TO trx_ar_adjsts_update;
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: x_msg_count := l_msg_count ;
439: x_msg_data := l_msg_data ;
433: p_count => x_msg_count
434: ,p_data => x_msg_data);
435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
436: ROLLBACK TO trx_ar_adjsts_update;
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: x_msg_count := l_msg_count ;
439: x_msg_data := l_msg_data ;
440: FND_MSG_PUB.count_and_get(
441: p_count => x_msg_count
441: p_count => x_msg_count
442: ,p_data => x_msg_data);
443: WHEN OTHERS THEN
444: ROLLBACK TO trx_ar_adjsts_update;
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: x_msg_count := l_msg_count ;
447: x_msg_data := l_msg_data ;
448: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','update_trx_ar_adjsts');
449: FND_MSG_PUB.count_and_get(
453:
454: --Put custom code for cascade delete by developer
455: PROCEDURE delete_trx_ar_adjsts(
456: p_api_version IN NUMBER
457: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
458: ,x_return_status OUT NOCOPY VARCHAR2
459: ,x_msg_count OUT NOCOPY NUMBER
460: ,x_msg_data OUT NOCOPY VARCHAR2
461: ,p_adjv_rec IN adjv_rec_type) IS
492: ,l_msg_count
493: ,l_msg_data
494: ,lp_adjv_rec);
495:
496: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
497: RAISE FND_API.G_EXC_ERROR;
498: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
493: ,l_msg_data
494: ,lp_adjv_rec);
495:
496: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
497: RAISE FND_API.G_EXC_ERROR;
498: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
494: ,lp_adjv_rec);
495:
496: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
497: RAISE FND_API.G_EXC_ERROR;
498: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502:
495:
496: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
497: RAISE FND_API.G_EXC_ERROR;
498: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502:
503:
509: x_return_status := l_return_status ;
510:
511: EXCEPTION
512:
513: WHEN FND_API.G_EXC_ERROR THEN
514: ROLLBACK TO trx_ar_adjsts_delete_rec;
515: x_return_status := FND_API.G_RET_STS_ERROR;
516: x_msg_count := l_msg_count ;
517: x_msg_data := l_msg_data ;
511: EXCEPTION
512:
513: WHEN FND_API.G_EXC_ERROR THEN
514: ROLLBACK TO trx_ar_adjsts_delete_rec;
515: x_return_status := FND_API.G_RET_STS_ERROR;
516: x_msg_count := l_msg_count ;
517: x_msg_data := l_msg_data ;
518: FND_MSG_PUB.count_and_get(
519: p_count => x_msg_count
517: x_msg_data := l_msg_data ;
518: FND_MSG_PUB.count_and_get(
519: p_count => x_msg_count
520: ,p_data => x_msg_data);
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: ROLLBACK TO trx_ar_adjsts_delete_rec;
523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
524: x_msg_count := l_msg_count ;
525: x_msg_data := l_msg_data ;
519: p_count => x_msg_count
520: ,p_data => x_msg_data);
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: ROLLBACK TO trx_ar_adjsts_delete_rec;
523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
524: x_msg_count := l_msg_count ;
525: x_msg_data := l_msg_data ;
526: FND_MSG_PUB.count_and_get(
527: p_count => x_msg_count
527: p_count => x_msg_count
528: ,p_data => x_msg_data);
529: WHEN OTHERS THEN
530: ROLLBACK TO trx_ar_adjsts_delete_rec;
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
532: x_msg_count := l_msg_count ;
533: x_msg_data := l_msg_data ;
534: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','delete_trx_ar_adjsts');
535: FND_MSG_PUB.count_and_get(
538: END delete_trx_ar_adjsts;
539:
540: PROCEDURE delete_trx_ar_adjsts(
541: p_api_version IN NUMBER
542: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
543: ,x_return_status OUT NOCOPY VARCHAR2
544: ,x_msg_count OUT NOCOPY NUMBER
545: ,x_msg_data OUT NOCOPY VARCHAR2
546: ,p_adjv_tbl IN adjv_tbl_type) IS
586: EXIT WHEN (i = lp_adjv_tbl.LAST);
587: i := p_adjv_tbl.NEXT(i);
588: END LOOP;
589: END IF;
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
587: i := p_adjv_tbl.NEXT(i);
588: END LOOP;
589: END IF;
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
588: END LOOP;
589: END IF;
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: END;
589: END IF;
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: END;
597:
606: x_return_status := l_return_status ;
607:
608: EXCEPTION
609:
610: WHEN FND_API.G_EXC_ERROR THEN
611: ROLLBACK TO trx_ar_adjsts_delete_tbl;
612: x_return_status := FND_API.G_RET_STS_ERROR;
613: x_msg_count := l_msg_count ;
614: x_msg_data := l_msg_data ;
608: EXCEPTION
609:
610: WHEN FND_API.G_EXC_ERROR THEN
611: ROLLBACK TO trx_ar_adjsts_delete_tbl;
612: x_return_status := FND_API.G_RET_STS_ERROR;
613: x_msg_count := l_msg_count ;
614: x_msg_data := l_msg_data ;
615: FND_MSG_PUB.count_and_get(
616: p_count => x_msg_count
614: x_msg_data := l_msg_data ;
615: FND_MSG_PUB.count_and_get(
616: p_count => x_msg_count
617: ,p_data => x_msg_data);
618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
619: ROLLBACK TO trx_ar_adjsts_delete_tbl;
620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
621: x_msg_count := l_msg_count ;
622: x_msg_data := l_msg_data ;
616: p_count => x_msg_count
617: ,p_data => x_msg_data);
618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
619: ROLLBACK TO trx_ar_adjsts_delete_tbl;
620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
621: x_msg_count := l_msg_count ;
622: x_msg_data := l_msg_data ;
623: FND_MSG_PUB.count_and_get(
624: p_count => x_msg_count
624: p_count => x_msg_count
625: ,p_data => x_msg_data);
626: WHEN OTHERS THEN
627: ROLLBACK TO trx_ar_adjsts_delete_tbl;
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
629: x_msg_count := l_msg_count ;
630: x_msg_data := l_msg_data ;
631: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','delete_trx_ar_adjsts');
632: FND_MSG_PUB.count_and_get(
635: END delete_trx_ar_adjsts;
636:
637: PROCEDURE validate_trx_ar_adjsts(
638: p_api_version IN NUMBER
639: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
640: ,x_return_status OUT NOCOPY VARCHAR2
641: ,x_msg_count OUT NOCOPY NUMBER
642: ,x_msg_data OUT NOCOPY VARCHAR2
643: ,p_adjv_rec IN adjv_rec_type) IS
672: ,l_msg_count
673: ,l_msg_data
674: ,lp_adjv_rec);
675:
676: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
673: ,l_msg_data
674: ,lp_adjv_rec);
675:
676: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
674: ,lp_adjv_rec);
675:
676: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
682: --Copy value of OUT variable in the IN record type
675:
676: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
682: --Copy value of OUT variable in the IN record type
683: lp_adjv_rec := lx_adjv_rec;
696: x_return_status := l_return_status ;
697:
698: EXCEPTION
699:
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO trx_ar_adjsts_validate;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: x_msg_count := l_msg_count ;
704: x_msg_data := l_msg_data ;
698: EXCEPTION
699:
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO trx_ar_adjsts_validate;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: x_msg_count := l_msg_count ;
704: x_msg_data := l_msg_data ;
705: FND_MSG_PUB.count_and_get(
706: p_count => x_msg_count
704: x_msg_data := l_msg_data ;
705: FND_MSG_PUB.count_and_get(
706: p_count => x_msg_count
707: ,p_data => x_msg_data);
708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: ROLLBACK TO trx_ar_adjsts_validate;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: x_msg_count := l_msg_count ;
712: x_msg_data := l_msg_data ;
706: p_count => x_msg_count
707: ,p_data => x_msg_data);
708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: ROLLBACK TO trx_ar_adjsts_validate;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: x_msg_count := l_msg_count ;
712: x_msg_data := l_msg_data ;
713: FND_MSG_PUB.count_and_get(
714: p_count => x_msg_count
714: p_count => x_msg_count
715: ,p_data => x_msg_data);
716: WHEN OTHERS THEN
717: ROLLBACK TO trx_ar_adjsts_validate;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: x_msg_count := l_msg_count ;
720: x_msg_data := l_msg_data ;
721: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','validate_trx_ar_adjsts');
722: FND_MSG_PUB.count_and_get(
725: END validate_trx_ar_adjsts;
726:
727: PROCEDURE validate_trx_ar_adjsts(
728: p_api_version IN NUMBER,
729: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
730: x_return_status OUT NOCOPY VARCHAR2,
731: x_msg_count OUT NOCOPY NUMBER,
732: x_msg_data OUT NOCOPY VARCHAR2,
733: p_adjv_tbl IN adjv_tbl_type) IS
760: ,x_msg_count
761: ,x_msg_data
762: ,lp_adjv_tbl);
763:
764: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
765: RAISE FND_API.G_EXC_ERROR;
766: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: END IF;
761: ,x_msg_data
762: ,lp_adjv_tbl);
763:
764: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
765: RAISE FND_API.G_EXC_ERROR;
766: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: END IF;
769:
762: ,lp_adjv_tbl);
763:
764: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
765: RAISE FND_API.G_EXC_ERROR;
766: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: END IF;
769:
770: --Copy value of OUT variable in the IN record type
763:
764: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
765: RAISE FND_API.G_EXC_ERROR;
766: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: END IF;
769:
770: --Copy value of OUT variable in the IN record type
771: lp_adjv_tbl := lx_adjv_tbl;
781: x_return_status := l_return_status ;
782:
783: EXCEPTION
784:
785: WHEN FND_API.G_EXC_ERROR THEN
786: ROLLBACK TO trx_ar_adjsts_validate;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: x_msg_count := l_msg_count ;
789: x_msg_data := l_msg_data ;
783: EXCEPTION
784:
785: WHEN FND_API.G_EXC_ERROR THEN
786: ROLLBACK TO trx_ar_adjsts_validate;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: x_msg_count := l_msg_count ;
789: x_msg_data := l_msg_data ;
790: FND_MSG_PUB.count_and_get(
791: p_count => x_msg_count
789: x_msg_data := l_msg_data ;
790: FND_MSG_PUB.count_and_get(
791: p_count => x_msg_count
792: ,p_data => x_msg_data);
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: ROLLBACK TO trx_ar_adjsts_validate;
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: x_msg_count := l_msg_count ;
797: x_msg_data := l_msg_data ;
791: p_count => x_msg_count
792: ,p_data => x_msg_data);
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: ROLLBACK TO trx_ar_adjsts_validate;
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: x_msg_count := l_msg_count ;
797: x_msg_data := l_msg_data ;
798: FND_MSG_PUB.count_and_get(
799: p_count => x_msg_count
799: p_count => x_msg_count
800: ,p_data => x_msg_data);
801: WHEN OTHERS THEN
802: ROLLBACK TO trx_ar_adjsts_validate;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: x_msg_count := l_msg_count ;
805: x_msg_data := l_msg_data ;
806: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_AR_ADJSTS_PUB','validate_trx_ar_adjsts');
807: FND_MSG_PUB.count_and_get(