2: /* $Header: OKLPAJLB.pls 120.4 2006/07/07 10:24:09 pagarg noship $ */
3:
4: PROCEDURE insert_txl_adjsts_lns(
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_ajlv_rec IN ajlv_rec_type
48: ,l_msg_data
49: ,lp_ajlv_rec
50: ,lx_ajlv_rec);
51:
52: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
49: ,lp_ajlv_rec
50: ,lx_ajlv_rec);
51:
52: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
50: ,lx_ajlv_rec);
51:
52: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: --Copy value of OUT variable in the IN record type
51:
52: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: --Copy value of OUT variable in the IN record type
59: lp_ajlv_rec := lx_ajlv_rec;
69: x_msg_data := l_msg_data ;
70:
71: EXCEPTION
72:
73: WHEN FND_API.G_EXC_ERROR THEN
74: ROLLBACK TO txl_adjsts_lns_insert;
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: x_msg_count := l_msg_count ;
77: x_msg_data := l_msg_data ;
71: EXCEPTION
72:
73: WHEN FND_API.G_EXC_ERROR THEN
74: ROLLBACK TO txl_adjsts_lns_insert;
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: x_msg_count := l_msg_count ;
77: x_msg_data := l_msg_data ;
78: FND_MSG_PUB.count_and_get(
79: p_count => x_msg_count
77: x_msg_data := l_msg_data ;
78: FND_MSG_PUB.count_and_get(
79: p_count => x_msg_count
80: ,p_data => x_msg_data);
81: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
82: ROLLBACK TO txl_adjsts_lns_insert;
83: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84: x_msg_count := l_msg_count ;
85: x_msg_data := l_msg_data ;
79: p_count => x_msg_count
80: ,p_data => x_msg_data);
81: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
82: ROLLBACK TO txl_adjsts_lns_insert;
83: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84: x_msg_count := l_msg_count ;
85: x_msg_data := l_msg_data ;
86: FND_MSG_PUB.count_and_get(
87: p_count => x_msg_count
87: p_count => x_msg_count
88: ,p_data => x_msg_data);
89: WHEN OTHERS THEN
90: ROLLBACK TO txl_adjsts_lns_insert;
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92: x_msg_count := l_msg_count ;
93: x_msg_data := l_msg_data ;
94: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','insert_txl_adjsts_lns');
95: FND_MSG_PUB.count_and_get(
98: END insert_txl_adjsts_lns;
99:
100: PROCEDURE insert_txl_adjsts_lns(
101: p_api_version IN NUMBER
102: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
103: ,x_return_status OUT NOCOPY VARCHAR2
104: ,x_msg_count OUT NOCOPY NUMBER
105: ,x_msg_data OUT NOCOPY VARCHAR2
106: ,p_ajlv_tbl IN ajlv_tbl_type
142: ,l_msg_data
143: ,lp_ajlv_tbl
144: ,lx_ajlv_tbl);
145:
146: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
147: RAISE FND_API.G_EXC_ERROR;
148: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
143: ,lp_ajlv_tbl
144: ,lx_ajlv_tbl);
145:
146: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
147: RAISE FND_API.G_EXC_ERROR;
148: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
144: ,lx_ajlv_tbl);
145:
146: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
147: RAISE FND_API.G_EXC_ERROR;
148: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: --Copy value of OUT variable in the IN record type
145:
146: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
147: RAISE FND_API.G_EXC_ERROR;
148: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: --Copy value of OUT variable in the IN record type
153: lp_ajlv_tbl := lx_ajlv_tbl;
162:
163:
164: EXCEPTION
165:
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO txl_adjsts_lns_insert;
168: x_return_status := FND_API.G_RET_STS_ERROR;
169: x_msg_count := l_msg_count ;
170: x_msg_data := l_msg_data ;
164: EXCEPTION
165:
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO txl_adjsts_lns_insert;
168: x_return_status := FND_API.G_RET_STS_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
170: x_msg_data := l_msg_data ;
171: FND_MSG_PUB.count_and_get(
172: p_count => x_msg_count
173: ,p_data => x_msg_data);
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: ROLLBACK TO txl_adjsts_lns_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 ;
172: p_count => x_msg_count
173: ,p_data => x_msg_data);
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
180: p_count => x_msg_count
180: p_count => x_msg_count
181: ,p_data => x_msg_data);
182: WHEN OTHERS THEN
183: ROLLBACK TO txl_adjsts_lns_insert;
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: x_msg_count := l_msg_count ;
186: x_msg_data := l_msg_data ;
187: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','insert_txl_adjsts_lns');
188: FND_MSG_PUB.count_and_get(
191: END insert_txl_adjsts_lns;
192:
193: PROCEDURE lock_txl_adjsts_lns(
194: p_api_version IN NUMBER
195: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
196: ,x_return_status OUT NOCOPY VARCHAR2
197: ,x_msg_count OUT NOCOPY NUMBER
198: ,x_msg_data OUT NOCOPY VARCHAR2
199: ,p_ajlv_rec IN ajlv_rec_type) IS
206: x_msg_count,
207: x_msg_data,
208: p_ajlv_rec);
209:
210: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF;
207: x_msg_data,
208: p_ajlv_rec);
209:
210: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF;
215:
208: p_ajlv_rec);
209:
210: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF;
215:
216:
209:
210: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF;
215:
216:
217: EXCEPTION
215:
216:
217: EXCEPTION
218:
219: WHEN FND_API.G_EXC_ERROR THEN
220: FND_MSG_PUB.count_and_get(
221: p_count => x_msg_count
222: ,p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
219: WHEN FND_API.G_EXC_ERROR THEN
220: FND_MSG_PUB.count_and_get(
221: p_count => x_msg_count
222: ,p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: FND_MSG_PUB.count_and_get(
225: p_count => x_msg_count
226: ,p_data => x_msg_data);
227: WHEN OTHERS THEN
224: FND_MSG_PUB.count_and_get(
225: p_count => x_msg_count
226: ,p_data => x_msg_data);
227: WHEN OTHERS THEN
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','lock_txl_adjsts_lns');
230: FND_MSG_PUB.count_and_get(
231: p_count => x_msg_count
232: ,p_data => x_msg_data);
233: END lock_txl_adjsts_lns;
234:
235: PROCEDURE lock_txl_adjsts_lns(
236: p_api_version IN NUMBER
237: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
238: ,x_return_status OUT NOCOPY VARCHAR2
239: ,x_msg_count OUT NOCOPY NUMBER
240: ,x_msg_data OUT NOCOPY VARCHAR2
241: ,p_ajlv_tbl IN ajlv_tbl_type) IS
248: x_msg_count,
249: x_msg_data,
250: p_ajlv_tbl);
251:
252: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
253: RAISE FND_API.G_EXC_ERROR;
254: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
249: x_msg_data,
250: p_ajlv_tbl);
251:
252: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
253: RAISE FND_API.G_EXC_ERROR;
254: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
250: p_ajlv_tbl);
251:
252: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
253: RAISE FND_API.G_EXC_ERROR;
254: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
258:
251:
252: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
253: RAISE FND_API.G_EXC_ERROR;
254: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
258:
259: EXCEPTION
257:
258:
259: EXCEPTION
260:
261: WHEN FND_API.G_EXC_ERROR THEN
262: FND_MSG_PUB.count_and_get(
263: p_count => x_msg_count
264: ,p_data => x_msg_data);
265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: WHEN FND_API.G_EXC_ERROR THEN
262: FND_MSG_PUB.count_and_get(
263: p_count => x_msg_count
264: ,p_data => x_msg_data);
265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
266: FND_MSG_PUB.count_and_get(
267: p_count => x_msg_count
268: ,p_data => x_msg_data);
269: WHEN OTHERS THEN
266: FND_MSG_PUB.count_and_get(
267: p_count => x_msg_count
268: ,p_data => x_msg_data);
269: WHEN OTHERS THEN
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','lock_txl_adjsts_lns');
272: FND_MSG_PUB.count_and_get(
273: p_count => x_msg_count
274: ,p_data => x_msg_data);
275: END lock_txl_adjsts_lns;
276:
277: PROCEDURE update_txl_adjsts_lns(
278: p_api_version IN NUMBER
279: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
280: ,x_return_status OUT NOCOPY VARCHAR2
281: ,x_msg_count OUT NOCOPY NUMBER
282: ,x_msg_data OUT NOCOPY VARCHAR2
283: ,p_ajlv_rec IN ajlv_rec_type
316: ,l_msg_data
317: ,lp_ajlv_rec
318: ,lx_ajlv_rec);
319:
320: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
321: RAISE FND_API.G_EXC_ERROR;
322: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
317: ,lp_ajlv_rec
318: ,lx_ajlv_rec);
319:
320: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
321: RAISE FND_API.G_EXC_ERROR;
322: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
325:
318: ,lx_ajlv_rec);
319:
320: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
321: RAISE FND_API.G_EXC_ERROR;
322: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
325:
326: --Copy value of OUT variable in the IN record type
319:
320: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
321: RAISE FND_API.G_EXC_ERROR;
322: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
325:
326: --Copy value of OUT variable in the IN record type
327: lp_ajlv_rec := lx_ajlv_rec;
337:
338:
339: EXCEPTION
340:
341: WHEN FND_API.G_EXC_ERROR THEN
342: ROLLBACK TO txl_adjsts_lns_update;
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: x_msg_count := l_msg_count ;
345: x_msg_data := l_msg_data ;
339: EXCEPTION
340:
341: WHEN FND_API.G_EXC_ERROR THEN
342: ROLLBACK TO txl_adjsts_lns_update;
343: x_return_status := FND_API.G_RET_STS_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
345: x_msg_data := l_msg_data ;
346: FND_MSG_PUB.count_and_get(
347: p_count => x_msg_count
348: ,p_data => x_msg_data);
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: ROLLBACK TO txl_adjsts_lns_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 ;
347: p_count => x_msg_count
348: ,p_data => x_msg_data);
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
355: p_count => x_msg_count
355: p_count => x_msg_count
356: ,p_data => x_msg_data);
357: WHEN OTHERS THEN
358: ROLLBACK TO txl_adjsts_lns_update;
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: x_msg_count := l_msg_count ;
361: x_msg_data := l_msg_data ;
362: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','update_txl_adjsts_lns');
363: FND_MSG_PUB.count_and_get(
366: END update_txl_adjsts_lns;
367:
368: PROCEDURE update_txl_adjsts_lns(
369: p_api_version IN NUMBER
370: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
371: ,x_return_status OUT NOCOPY VARCHAR2
372: ,x_msg_count OUT NOCOPY NUMBER
373: ,x_msg_data OUT NOCOPY VARCHAR2
374: ,p_ajlv_tbl IN ajlv_tbl_type
406: ,l_msg_data
407: ,lp_ajlv_tbl
408: ,lx_ajlv_tbl);
409:
410: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
407: ,lp_ajlv_tbl
408: ,lx_ajlv_tbl);
409:
410: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
415:
408: ,lx_ajlv_tbl);
409:
410: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
415:
416: --Copy value of OUT variable in the IN record type
409:
410: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
415:
416: --Copy value of OUT variable in the IN record type
417: lp_ajlv_tbl := lx_ajlv_tbl;
426:
427:
428: EXCEPTION
429:
430: WHEN FND_API.G_EXC_ERROR THEN
431: ROLLBACK TO txl_adjsts_lns_update;
432: x_return_status := FND_API.G_RET_STS_ERROR;
433: x_msg_count := l_msg_count ;
434: x_msg_data := l_msg_data ;
428: EXCEPTION
429:
430: WHEN FND_API.G_EXC_ERROR THEN
431: ROLLBACK TO txl_adjsts_lns_update;
432: x_return_status := FND_API.G_RET_STS_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
434: x_msg_data := l_msg_data ;
435: FND_MSG_PUB.count_and_get(
436: p_count => x_msg_count
437: ,p_data => x_msg_data);
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439: ROLLBACK TO txl_adjsts_lns_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 ;
436: p_count => x_msg_count
437: ,p_data => x_msg_data);
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
444: p_count => x_msg_count
444: p_count => x_msg_count
445: ,p_data => x_msg_data);
446: WHEN OTHERS THEN
447: ROLLBACK TO txl_adjsts_lns_update;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: x_msg_count := l_msg_count ;
450: x_msg_data := l_msg_data ;
451: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','update_txl_adjsts_lns');
452: FND_MSG_PUB.count_and_get(
456:
457: --Put custom code for cascade delete by developer
458: PROCEDURE delete_txl_adjsts_lns(
459: p_api_version IN NUMBER
460: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
461: ,x_return_status OUT NOCOPY VARCHAR2
462: ,x_msg_count OUT NOCOPY NUMBER
463: ,x_msg_data OUT NOCOPY VARCHAR2
464: ,p_ajlv_rec IN ajlv_rec_type) IS
495: ,l_msg_count
496: ,l_msg_data
497: ,lp_ajlv_rec);
498:
499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
496: ,l_msg_data
497: ,lp_ajlv_rec);
498:
499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
497: ,lp_ajlv_rec);
498:
499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505:
498:
499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505:
506:
512: x_return_status := l_return_status ;
513:
514: EXCEPTION
515:
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO txl_adjsts_lns_delete_rec;
518: x_return_status := FND_API.G_RET_STS_ERROR;
519: x_msg_count := l_msg_count ;
520: x_msg_data := l_msg_data ;
514: EXCEPTION
515:
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO txl_adjsts_lns_delete_rec;
518: x_return_status := FND_API.G_RET_STS_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
520: x_msg_data := l_msg_data ;
521: FND_MSG_PUB.count_and_get(
522: p_count => x_msg_count
523: ,p_data => x_msg_data);
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: ROLLBACK TO txl_adjsts_lns_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 ;
522: p_count => x_msg_count
523: ,p_data => x_msg_data);
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
530: p_count => x_msg_count
530: p_count => x_msg_count
531: ,p_data => x_msg_data);
532: WHEN OTHERS THEN
533: ROLLBACK TO txl_adjsts_lns_delete_rec;
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: x_msg_count := l_msg_count ;
536: x_msg_data := l_msg_data ;
537: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','delete_txl_adjsts_lns');
538: FND_MSG_PUB.count_and_get(
541: END delete_txl_adjsts_lns;
542:
543: PROCEDURE delete_txl_adjsts_lns(
544: p_api_version IN NUMBER
545: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
546: ,x_return_status OUT NOCOPY VARCHAR2
547: ,x_msg_count OUT NOCOPY NUMBER
548: ,x_msg_data OUT NOCOPY VARCHAR2
549: ,p_ajlv_tbl IN ajlv_tbl_type) IS
589: EXIT WHEN (i = lp_ajlv_tbl.LAST);
590: i := p_ajlv_tbl.NEXT(i);
591: END LOOP;
592: END IF;
593: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
594: RAISE FND_API.G_EXC_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
590: i := p_ajlv_tbl.NEXT(i);
591: END LOOP;
592: END IF;
593: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
594: RAISE FND_API.G_EXC_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598:
591: END LOOP;
592: END IF;
593: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
594: RAISE FND_API.G_EXC_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598:
599: END;
592: END IF;
593: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
594: RAISE FND_API.G_EXC_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598:
599: END;
600:
609: x_return_status := l_return_status ;
610:
611: EXCEPTION
612:
613: WHEN FND_API.G_EXC_ERROR THEN
614: ROLLBACK TO txl_adjsts_lns_delete_tbl;
615: x_return_status := FND_API.G_RET_STS_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
611: EXCEPTION
612:
613: WHEN FND_API.G_EXC_ERROR THEN
614: ROLLBACK TO txl_adjsts_lns_delete_tbl;
615: x_return_status := FND_API.G_RET_STS_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
617: x_msg_data := l_msg_data ;
618: FND_MSG_PUB.count_and_get(
619: p_count => x_msg_count
620: ,p_data => x_msg_data);
621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
622: ROLLBACK TO txl_adjsts_lns_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 ;
619: p_count => x_msg_count
620: ,p_data => x_msg_data);
621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
622: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
627: p_count => x_msg_count
627: p_count => x_msg_count
628: ,p_data => x_msg_data);
629: WHEN OTHERS THEN
630: ROLLBACK TO txl_adjsts_lns_delete_tbl;
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: x_msg_count := l_msg_count ;
633: x_msg_data := l_msg_data ;
634: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','delete_txl_adjsts_lns');
635: FND_MSG_PUB.count_and_get(
638: END delete_txl_adjsts_lns;
639:
640: PROCEDURE validate_txl_adjsts_lns(
641: p_api_version IN NUMBER
642: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
643: ,x_return_status OUT NOCOPY VARCHAR2
644: ,x_msg_count OUT NOCOPY NUMBER
645: ,x_msg_data OUT NOCOPY VARCHAR2
646: ,p_ajlv_rec IN ajlv_rec_type) IS
675: ,l_msg_count
676: ,l_msg_data
677: ,lp_ajlv_rec);
678:
679: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
676: ,l_msg_data
677: ,lp_ajlv_rec);
678:
679: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684:
677: ,lp_ajlv_rec);
678:
679: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684:
685: --Copy value of OUT variable in the IN record type
678:
679: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
680: RAISE FND_API.G_EXC_ERROR;
681: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END IF;
684:
685: --Copy value of OUT variable in the IN record type
686: lp_ajlv_rec := lx_ajlv_rec;
699: x_return_status := l_return_status ;
700:
701: EXCEPTION
702:
703: WHEN FND_API.G_EXC_ERROR THEN
704: ROLLBACK TO txl_adjsts_lns_validate;
705: x_return_status := FND_API.G_RET_STS_ERROR;
706: x_msg_count := l_msg_count ;
707: x_msg_data := l_msg_data ;
701: EXCEPTION
702:
703: WHEN FND_API.G_EXC_ERROR THEN
704: ROLLBACK TO txl_adjsts_lns_validate;
705: x_return_status := FND_API.G_RET_STS_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
707: x_msg_data := l_msg_data ;
708: FND_MSG_PUB.count_and_get(
709: p_count => x_msg_count
710: ,p_data => x_msg_data);
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: ROLLBACK TO txl_adjsts_lns_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 ;
709: p_count => x_msg_count
710: ,p_data => x_msg_data);
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
717: p_count => x_msg_count
717: p_count => x_msg_count
718: ,p_data => x_msg_data);
719: WHEN OTHERS THEN
720: ROLLBACK TO txl_adjsts_lns_validate;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: x_msg_count := l_msg_count ;
723: x_msg_data := l_msg_data ;
724: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','validate_txl_adjsts_lns');
725: FND_MSG_PUB.count_and_get(
728: END validate_txl_adjsts_lns;
729:
730: PROCEDURE validate_txl_adjsts_lns(
731: p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
733: x_return_status OUT NOCOPY VARCHAR2,
734: x_msg_count OUT NOCOPY NUMBER,
735: x_msg_data OUT NOCOPY VARCHAR2,
736: p_ajlv_tbl IN ajlv_tbl_type) IS
763: ,x_msg_count
764: ,x_msg_data
765: ,lp_ajlv_tbl);
766:
767: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
764: ,x_msg_data
765: ,lp_ajlv_tbl);
766:
767: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
765: ,lp_ajlv_tbl);
766:
767: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
773: --Copy value of OUT variable in the IN record type
766:
767: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
773: --Copy value of OUT variable in the IN record type
774: lp_ajlv_tbl := lx_ajlv_tbl;
784: x_return_status := l_return_status ;
785:
786: EXCEPTION
787:
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO txl_adjsts_lns_validate;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: x_msg_count := l_msg_count ;
792: x_msg_data := l_msg_data ;
786: EXCEPTION
787:
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO txl_adjsts_lns_validate;
790: x_return_status := FND_API.G_RET_STS_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
792: x_msg_data := l_msg_data ;
793: FND_MSG_PUB.count_and_get(
794: p_count => x_msg_count
795: ,p_data => x_msg_data);
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO txl_adjsts_lns_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 ;
794: p_count => x_msg_count
795: ,p_data => x_msg_data);
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO txl_adjsts_lns_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.count_and_get(
802: p_count => x_msg_count
802: p_count => x_msg_count
803: ,p_data => x_msg_data);
804: WHEN OTHERS THEN
805: ROLLBACK TO txl_adjsts_lns_validate;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: x_msg_count := l_msg_count ;
808: x_msg_data := l_msg_data ;
809: FND_MSG_PUB.ADD_EXC_MSG('OKL_TXL_ADJSTS_LNS_PUB','validate_txl_adjsts_lns');
810: FND_MSG_PUB.count_and_get(