52: ,p_early_termination_yn => lp_early_termination_yn
53: ,p_quote_eff_date => l_quote_eff_date -- rmunjulu EDAT Pass additional parameters
54: ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
53: ,p_quote_eff_date => l_quote_eff_date -- rmunjulu EDAT Pass additional parameters
54: ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
54: ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62:
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62:
63:
70: x_msg_data := l_msg_data ;
71:
72: EXCEPTION
73:
74: WHEN FND_API.G_EXC_ERROR THEN
75: ROLLBACK TO trx_create_offlease_asset_trx;
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: x_msg_count := l_msg_count ;
78: x_msg_data := l_msg_data ;
72: EXCEPTION
73:
74: WHEN FND_API.G_EXC_ERROR THEN
75: ROLLBACK TO trx_create_offlease_asset_trx;
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: x_msg_count := l_msg_count ;
78: x_msg_data := l_msg_data ;
79: FND_MSG_PUB.count_and_get(
80: p_count => x_msg_count
78: x_msg_data := l_msg_data ;
79: FND_MSG_PUB.count_and_get(
80: p_count => x_msg_count
81: ,p_data => x_msg_data);
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83: ROLLBACK TO trx_create_offlease_asset_trx;
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: x_msg_count := l_msg_count ;
86: x_msg_data := l_msg_data ;
80: p_count => x_msg_count
81: ,p_data => x_msg_data);
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83: ROLLBACK TO trx_create_offlease_asset_trx;
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85: x_msg_count := l_msg_count ;
86: x_msg_data := l_msg_data ;
87: FND_MSG_PUB.count_and_get(
88: p_count => x_msg_count
88: p_count => x_msg_count
89: ,p_data => x_msg_data);
90: WHEN OTHERS THEN
91: ROLLBACK TO trx_create_offlease_asset_trx;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: x_msg_count := l_msg_count ;
94: x_msg_data := l_msg_data ;
95: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','create_offlease_asset_trx');
96: FND_MSG_PUB.count_and_get(
150: ,p_quote_eff_date => l_quote_eff_date -- rmunjulu EDAT Pass additional parameters
151: ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
152:
153:
154: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
151: ,p_quote_accpt_date => l_quote_accpt_date) ; -- rmunjulu EDAT Pass additional parameters
152:
153:
154: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
152:
153:
154: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
153:
154: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
161:
168: x_msg_data := l_msg_data ;
169:
170: EXCEPTION
171:
172: WHEN FND_API.G_EXC_ERROR THEN
173: ROLLBACK TO trx_create_offlease_asset_trx;
174: x_return_status := FND_API.G_RET_STS_ERROR;
175: x_msg_count := l_msg_count ;
176: x_msg_data := l_msg_data ;
170: EXCEPTION
171:
172: WHEN FND_API.G_EXC_ERROR THEN
173: ROLLBACK TO trx_create_offlease_asset_trx;
174: x_return_status := FND_API.G_RET_STS_ERROR;
175: x_msg_count := l_msg_count ;
176: x_msg_data := l_msg_data ;
177: FND_MSG_PUB.count_and_get(
178: p_count => x_msg_count
176: x_msg_data := l_msg_data ;
177: FND_MSG_PUB.count_and_get(
178: p_count => x_msg_count
179: ,p_data => x_msg_data);
180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
181: ROLLBACK TO trx_create_offlease_asset_trx;
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: x_msg_count := l_msg_count ;
184: x_msg_data := l_msg_data ;
178: p_count => x_msg_count
179: ,p_data => x_msg_data);
180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
181: ROLLBACK TO trx_create_offlease_asset_trx;
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: x_msg_count := l_msg_count ;
184: x_msg_data := l_msg_data ;
185: FND_MSG_PUB.count_and_get(
186: p_count => x_msg_count
186: p_count => x_msg_count
187: ,p_data => x_msg_data);
188: WHEN OTHERS THEN
189: ROLLBACK TO trx_create_offlease_asset_trx;
190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191: x_msg_count := l_msg_count ;
192: x_msg_data := l_msg_data ;
193: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','create_offlease_asset_trx');
194: FND_MSG_PUB.count_and_get(
235: ,x_return_status => l_return_status
236: ,p_header_rec => lp_header_rec,
237: p_lines_rec => lp_lines_rec) ;
238:
239: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
236: ,p_header_rec => lp_header_rec,
237: p_lines_rec => lp_lines_rec) ;
238:
239: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244:
237: p_lines_rec => lp_lines_rec) ;
238:
239: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244:
245:
238:
239: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
240: RAISE FND_API.G_EXC_ERROR;
241: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244:
245:
246:
253: x_msg_data := l_msg_data ;
254:
255: EXCEPTION
256:
257: WHEN FND_API.G_EXC_ERROR THEN
258: ROLLBACK TO trx_update_offlease_asset_trx;
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: x_msg_count := l_msg_count ;
261: x_msg_data := l_msg_data ;
255: EXCEPTION
256:
257: WHEN FND_API.G_EXC_ERROR THEN
258: ROLLBACK TO trx_update_offlease_asset_trx;
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: x_msg_count := l_msg_count ;
261: x_msg_data := l_msg_data ;
262: FND_MSG_PUB.count_and_get(
263: p_count => x_msg_count
261: x_msg_data := l_msg_data ;
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: ROLLBACK TO trx_update_offlease_asset_trx;
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268: x_msg_count := l_msg_count ;
269: x_msg_data := l_msg_data ;
263: p_count => x_msg_count
264: ,p_data => x_msg_data);
265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
266: ROLLBACK TO trx_update_offlease_asset_trx;
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268: x_msg_count := l_msg_count ;
269: x_msg_data := l_msg_data ;
270: FND_MSG_PUB.count_and_get(
271: p_count => x_msg_count
271: p_count => x_msg_count
272: ,p_data => x_msg_data);
273: WHEN OTHERS THEN
274: ROLLBACK TO trx_update_offlease_asset_trx;
275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276: x_msg_count := l_msg_count ;
277: x_msg_data := l_msg_data ;
278: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_offlease_asset_trx');
279: FND_MSG_PUB.count_and_get(
327: ,p_header_tbl => lp_header_tbl,
328: p_lines_tbl => lp_lines_tbl,
329: x_record_status => lx_record_status) ;
330:
331: IF (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
332: IF (l_record_status <> FND_API.G_RET_STS_SUCCESS) THEN
333: -- assign the overall status to l_return_status
334: l_return_status := l_record_status;
335: END IF;
328: p_lines_tbl => lp_lines_tbl,
329: x_record_status => lx_record_status) ;
330:
331: IF (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
332: IF (l_record_status <> FND_API.G_RET_STS_SUCCESS) THEN
333: -- assign the overall status to l_return_status
334: l_return_status := l_record_status;
335: END IF;
336: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
332: IF (l_record_status <> FND_API.G_RET_STS_SUCCESS) THEN
333: -- assign the overall status to l_return_status
334: l_return_status := l_record_status;
335: END IF;
336: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
333: -- assign the overall status to l_return_status
334: l_return_status := l_record_status;
335: END IF;
336: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
334: l_return_status := l_record_status;
335: END IF;
336: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342:
335: END IF;
336: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342:
343:
350: x_msg_data := l_msg_data ;
351: x_record_status := lx_record_status;
352: EXCEPTION
353:
354: WHEN FND_API.G_EXC_ERROR THEN
355: ROLLBACK TO trx_update_offlease_asset_trx;
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: x_msg_count := l_msg_count ;
358: x_msg_data := l_msg_data ;
352: EXCEPTION
353:
354: WHEN FND_API.G_EXC_ERROR THEN
355: ROLLBACK TO trx_update_offlease_asset_trx;
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: x_msg_count := l_msg_count ;
358: x_msg_data := l_msg_data ;
359: FND_MSG_PUB.count_and_get(
360: p_count => x_msg_count
358: x_msg_data := l_msg_data ;
359: FND_MSG_PUB.count_and_get(
360: p_count => x_msg_count
361: ,p_data => x_msg_data);
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: ROLLBACK TO trx_update_offlease_asset_trx;
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365: x_msg_count := l_msg_count ;
366: x_msg_data := l_msg_data ;
360: p_count => x_msg_count
361: ,p_data => x_msg_data);
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: ROLLBACK TO trx_update_offlease_asset_trx;
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365: x_msg_count := l_msg_count ;
366: x_msg_data := l_msg_data ;
367: FND_MSG_PUB.count_and_get(
368: p_count => x_msg_count
368: p_count => x_msg_count
369: ,p_data => x_msg_data);
370: WHEN OTHERS THEN
371: ROLLBACK TO trx_update_offlease_asset_trx;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: x_msg_count := l_msg_count ;
374: x_msg_data := l_msg_data ;
375: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_offlease_asset_trx');
376: FND_MSG_PUB.count_and_get(
425: x_msg_count => l_msg_count,
426: x_msg_data => l_msg_data,
427: p_deprn_rec => lp_deprn_rec);
428:
429: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
426: x_msg_data => l_msg_data,
427: p_deprn_rec => lp_deprn_rec);
428:
429: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
434:
427: p_deprn_rec => lp_deprn_rec);
428:
429: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
434:
435: x_return_status := l_return_status ;
428:
429: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
430: RAISE FND_API.G_EXC_ERROR;
431: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
434:
435: x_return_status := l_return_status ;
436: x_msg_count := l_msg_count ;
437: x_msg_data := l_msg_data ;
438:
439: EXCEPTION
440:
441: WHEN FND_API.G_EXC_ERROR THEN
442: ROLLBACK TO trx_update_deprn;
443: x_return_status := FND_API.G_RET_STS_ERROR;
444: x_msg_count := l_msg_count ;
445: x_msg_data := l_msg_data ;
439: EXCEPTION
440:
441: WHEN FND_API.G_EXC_ERROR THEN
442: ROLLBACK TO trx_update_deprn;
443: x_return_status := FND_API.G_RET_STS_ERROR;
444: x_msg_count := l_msg_count ;
445: x_msg_data := l_msg_data ;
446: FND_MSG_PUB.count_and_get(
447: p_count => x_msg_count
445: x_msg_data := l_msg_data ;
446: FND_MSG_PUB.count_and_get(
447: p_count => x_msg_count
448: ,p_data => x_msg_data);
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: ROLLBACK TO trx_update_deprn;
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: x_msg_count := l_msg_count ;
453: x_msg_data := l_msg_data ;
447: p_count => x_msg_count
448: ,p_data => x_msg_data);
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: ROLLBACK TO trx_update_deprn;
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: x_msg_count := l_msg_count ;
453: x_msg_data := l_msg_data ;
454: FND_MSG_PUB.count_and_get(
455: p_count => x_msg_count
455: p_count => x_msg_count
456: ,p_data => x_msg_data);
457: WHEN OTHERS THEN
458: ROLLBACK TO trx_update_deprn;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460: x_msg_count := l_msg_count ;
461: x_msg_data := l_msg_data ;
462: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_AMORTIZE_PUB','update_depreciation');
463: FND_MSG_PUB.count_and_get(