62: p_legal_entity_id => p_legal_entity_id); -- RRAVIKIR Legal Entity Changes
63:
64:
65:
66: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
63:
64:
65:
66: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
64:
65:
66: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72:
65:
66: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
67: RAISE FND_API.G_EXC_ERROR;
68: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72:
73:
80: x_msg_data := l_msg_data ;
81:
82: EXCEPTION
83:
84: WHEN FND_API.G_EXC_ERROR THEN
85: ROLLBACK TO trx_dispose_asset;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: x_msg_count := l_msg_count ;
88: x_msg_data := l_msg_data ;
82: EXCEPTION
83:
84: WHEN FND_API.G_EXC_ERROR THEN
85: ROLLBACK TO trx_dispose_asset;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: x_msg_count := l_msg_count ;
88: x_msg_data := l_msg_data ;
89: FND_MSG_PUB.count_and_get(
90: p_count => x_msg_count
88: x_msg_data := l_msg_data ;
89: FND_MSG_PUB.count_and_get(
90: p_count => x_msg_count
91: ,p_data => x_msg_data);
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: ROLLBACK TO trx_dispose_asset;
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95: x_msg_count := l_msg_count ;
96: x_msg_data := l_msg_data ;
90: p_count => x_msg_count
91: ,p_data => x_msg_data);
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: ROLLBACK TO trx_dispose_asset;
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95: x_msg_count := l_msg_count ;
96: x_msg_data := l_msg_data ;
97: FND_MSG_PUB.count_and_get(
98: p_count => x_msg_count
98: p_count => x_msg_count
99: ,p_data => x_msg_data);
100: WHEN OTHERS THEN
101: ROLLBACK TO trx_dispose_asset;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: x_msg_count := l_msg_count ;
104: x_msg_data := l_msg_data ;
105: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','dispose_asset');
106: FND_MSG_PUB.count_and_get(
153: p_order_line_id => lp_order_line_id);
154:
155:
156:
157: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
154:
155:
156:
157: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162:
155:
156:
157: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162:
163:
156:
157: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162:
163:
164:
171: x_msg_data := l_msg_data ;
172:
173: EXCEPTION
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: ROLLBACK TO trx_dispose_asset;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: x_msg_count := l_msg_count ;
179: x_msg_data := l_msg_data ;
173: EXCEPTION
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: ROLLBACK TO trx_dispose_asset;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: x_msg_count := l_msg_count ;
179: x_msg_data := l_msg_data ;
180: FND_MSG_PUB.count_and_get(
181: p_count => x_msg_count
179: x_msg_data := l_msg_data ;
180: FND_MSG_PUB.count_and_get(
181: p_count => x_msg_count
182: ,p_data => x_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO trx_dispose_asset;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: x_msg_count := l_msg_count ;
187: x_msg_data := l_msg_data ;
181: p_count => x_msg_count
182: ,p_data => x_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO trx_dispose_asset;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: x_msg_count := l_msg_count ;
187: x_msg_data := l_msg_data ;
188: FND_MSG_PUB.count_and_get(
189: p_count => x_msg_count
189: p_count => x_msg_count
190: ,p_data => x_msg_data);
191: WHEN OTHERS THEN
192: ROLLBACK TO trx_dispose_asset;
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: x_msg_count := l_msg_count ;
195: x_msg_data := l_msg_data ;
196: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','dispose_asset');
197: FND_MSG_PUB.count_and_get(
239: p_retirement_id => lp_retirement_id
240: );
241:
242:
243: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
240: );
241:
242:
243: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248:
241:
242:
243: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248:
249:
242:
243: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248:
249:
250:
257: x_msg_data := l_msg_data ;
258:
259: EXCEPTION
260:
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK TO trx_undo_retirement;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: x_msg_count := l_msg_count ;
265: x_msg_data := l_msg_data ;
259: EXCEPTION
260:
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK TO trx_undo_retirement;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: x_msg_count := l_msg_count ;
265: x_msg_data := l_msg_data ;
266: FND_MSG_PUB.count_and_get(
267: p_count => x_msg_count
265: x_msg_data := l_msg_data ;
266: FND_MSG_PUB.count_and_get(
267: p_count => x_msg_count
268: ,p_data => x_msg_data);
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO trx_undo_retirement;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: x_msg_count := l_msg_count ;
273: x_msg_data := l_msg_data ;
267: p_count => x_msg_count
268: ,p_data => x_msg_data);
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO trx_undo_retirement;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: x_msg_count := l_msg_count ;
273: x_msg_data := l_msg_data ;
274: FND_MSG_PUB.count_and_get(
275: p_count => x_msg_count
275: p_count => x_msg_count
276: ,p_data => x_msg_data);
277: WHEN OTHERS THEN
278: ROLLBACK TO trx_undo_retirement;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: x_msg_count := l_msg_count ;
281: x_msg_data := l_msg_data ;
282: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','undo_retirement');
283: FND_MSG_PUB.count_and_get(
329: x_return_status => l_return_status,
330: p_instance_id => lp_instance_id,
331: p_end_date => lp_end_date );
332:
333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337: END IF;
330: p_instance_id => lp_instance_id,
331: p_end_date => lp_end_date );
332:
333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337: END IF;
338:
331: p_end_date => lp_end_date );
332:
333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337: END IF;
338:
339:
332:
333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337: END IF;
338:
339:
340:
347: x_msg_data := l_msg_data ;
348:
349: EXCEPTION
350:
351: WHEN FND_API.G_EXC_ERROR THEN
352: ROLLBACK TO trx_expire_item;
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: x_msg_count := l_msg_count ;
355: x_msg_data := l_msg_data ;
349: EXCEPTION
350:
351: WHEN FND_API.G_EXC_ERROR THEN
352: ROLLBACK TO trx_expire_item;
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: x_msg_count := l_msg_count ;
355: x_msg_data := l_msg_data ;
356: FND_MSG_PUB.count_and_get(
357: p_count => x_msg_count
355: x_msg_data := l_msg_data ;
356: FND_MSG_PUB.count_and_get(
357: p_count => x_msg_count
358: ,p_data => x_msg_data);
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: ROLLBACK TO trx_expire_item;
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362: x_msg_count := l_msg_count ;
363: x_msg_data := l_msg_data ;
357: p_count => x_msg_count
358: ,p_data => x_msg_data);
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: ROLLBACK TO trx_expire_item;
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362: x_msg_count := l_msg_count ;
363: x_msg_data := l_msg_data ;
364: FND_MSG_PUB.count_and_get(
365: p_count => x_msg_count
365: p_count => x_msg_count
366: ,p_data => x_msg_data);
367: WHEN OTHERS THEN
368: ROLLBACK TO trx_expire_item;
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: x_msg_count := l_msg_count ;
371: x_msg_data := l_msg_data ;
372: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','expire_item');
373: FND_MSG_PUB.count_and_get(