140: debug(' l_instance_qty : '||l_instance_qty );
141: END IF;
142: csi_item_instance_pvt.update_item_instance(
143: p_api_version => 1.0,
144: p_commit => fnd_api.g_false,
145: p_init_msg_list => fnd_api.g_true,
146: p_validation_level => fnd_api.g_valid_level_full,
147: p_instance_rec => l_u_instance_rec,
148: p_txn_rec => l_u_csi_txn_rec,
141: END IF;
142: csi_item_instance_pvt.update_item_instance(
143: p_api_version => 1.0,
144: p_commit => fnd_api.g_false,
145: p_init_msg_list => fnd_api.g_true,
146: p_validation_level => fnd_api.g_valid_level_full,
147: p_instance_rec => l_u_instance_rec,
148: p_txn_rec => l_u_csi_txn_rec,
149: x_instance_id_lst => l_instance_ids_list,
142: csi_item_instance_pvt.update_item_instance(
143: p_api_version => 1.0,
144: p_commit => fnd_api.g_false,
145: p_init_msg_list => fnd_api.g_true,
146: p_validation_level => fnd_api.g_valid_level_full,
147: p_instance_rec => l_u_instance_rec,
148: p_txn_rec => l_u_csi_txn_rec,
149: x_instance_id_lst => l_instance_ids_list,
150: x_return_status => l_return_status,
160:
161: IF (l_debug = 'Y') THEN
162: debug('After Updating Item Instance Status :'|| l_return_status);
163: END IF;
164: IF l_return_status <> fnd_api.g_ret_sts_success THEN
165:
166: l_msg_index := 1;
167: l_Error_Message:=l_msg_data;
168: WHILE l_msg_count > 0 LOOP
165:
166: l_msg_index := 1;
167: l_Error_Message:=l_msg_data;
168: WHILE l_msg_count > 0 LOOP
169: l_Error_Message := FND_MSG_PUB.GET(l_msg_index,FND_API.G_FALSE);
170: IF (l_debug = 'Y') THEN
171: debug(' l_Error_Message '||l_Error_Message);
172: END IF;
173: l_msg_index := l_msg_index + 1;
172: END IF;
173: l_msg_index := l_msg_index + 1;
174: l_Msg_Count := l_Msg_Count - 1;
175: END LOOP;
176: RAISE fnd_api.g_exc_error;
177: END IF;
178: EXCEPTION
179: when fnd_api.g_exc_error THEN
180: debug('in g_exc_error '||cse_util_pkg.dump_error_stack);
175: END LOOP;
176: RAISE fnd_api.g_exc_error;
177: END IF;
178: EXCEPTION
179: when fnd_api.g_exc_error THEN
180: debug('in g_exc_error '||cse_util_pkg.dump_error_stack);
181: when others then
182: debug('in others - '||sqlerrm);
183: END Update_IB_Instance;
191: l_asset_count_rec csi_asset_pvt.asset_count_rec;
192: l_asset_id_tbl csi_asset_pvt.asset_id_tbl;
193: l_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
194:
195: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
196: l_msg_count number;
197: l_msg_data varchar2(2000);
198: BEGIN
199: x_return_status := fnd_api.g_ret_sts_success;
195: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
196: l_msg_count number;
197: l_msg_data varchar2(2000);
198: BEGIN
199: x_return_status := fnd_api.g_ret_sts_success;
200:
201: px_inst_asset_rec.fa_sync_flag := 'Y';
202:
203: csi_asset_pvt.create_instance_asset(
201: px_inst_asset_rec.fa_sync_flag := 'Y';
202:
203: csi_asset_pvt.create_instance_asset(
204: p_api_version => 1.0 ,
205: p_commit => fnd_api.g_false,
206: p_init_msg_list => fnd_api.g_true,
207: p_validation_level => fnd_api.g_valid_level_full,
208: p_instance_asset_rec => px_inst_asset_rec,
209: p_txn_rec => px_csi_txn_rec,
202:
203: csi_asset_pvt.create_instance_asset(
204: p_api_version => 1.0 ,
205: p_commit => fnd_api.g_false,
206: p_init_msg_list => fnd_api.g_true,
207: p_validation_level => fnd_api.g_valid_level_full,
208: p_instance_asset_rec => px_inst_asset_rec,
209: p_txn_rec => px_csi_txn_rec,
210: x_return_status => l_return_status,
203: csi_asset_pvt.create_instance_asset(
204: p_api_version => 1.0 ,
205: p_commit => fnd_api.g_false,
206: p_init_msg_list => fnd_api.g_true,
207: p_validation_level => fnd_api.g_valid_level_full,
208: p_instance_asset_rec => px_inst_asset_rec,
209: p_txn_rec => px_csi_txn_rec,
210: x_return_status => l_return_status,
211: x_msg_count => l_msg_count,
214: p_asset_count_rec => l_asset_count_rec,
215: p_asset_id_tbl => l_asset_id_tbl,
216: p_asset_loc_tbl => l_asset_loc_tbl);
217:
218: IF l_return_status <> fnd_api.g_ret_sts_success THEN
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: EXCEPTION
215: p_asset_id_tbl => l_asset_id_tbl,
216: p_asset_loc_tbl => l_asset_loc_tbl);
217:
218: IF l_return_status <> fnd_api.g_ret_sts_success THEN
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: EXCEPTION
223: WHEN fnd_api.g_exc_error THEN
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: EXCEPTION
223: WHEN fnd_api.g_exc_error THEN
224: x_return_status := fnd_api.g_ret_sts_error;
225: END create_inst_asset;
226:
227: PROCEDURE update_inst_asset(
220: END IF;
221:
222: EXCEPTION
223: WHEN fnd_api.g_exc_error THEN
224: x_return_status := fnd_api.g_ret_sts_error;
225: END create_inst_asset;
226:
227: PROCEDURE update_inst_asset(
228: px_inst_asset_rec IN OUT nocopy csi_datastructures_pub.instance_asset_rec,
234: l_asset_count_rec csi_asset_pvt.asset_count_rec;
235: l_asset_id_tbl csi_asset_pvt.asset_id_tbl;
236: l_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
237:
238: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
239: l_msg_count number;
240: l_msg_data varchar2(2000);
241: BEGIN
242:
239: l_msg_count number;
240: l_msg_data varchar2(2000);
241: BEGIN
242:
243: x_return_status := fnd_api.g_ret_sts_success;
244:
245: IF nvl(px_inst_asset_rec.instance_asset_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
246:
247: px_inst_asset_rec.fa_sync_flag := 'Y';
241: BEGIN
242:
243: x_return_status := fnd_api.g_ret_sts_success;
244:
245: IF nvl(px_inst_asset_rec.instance_asset_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
246:
247: px_inst_asset_rec.fa_sync_flag := 'Y';
248:
249: SELECT object_version_number
252: WHERE instance_asset_id = px_inst_asset_rec.instance_asset_id;
253:
254: csi_asset_pvt.update_instance_asset (
255: p_api_version => 1.0,
256: p_commit => fnd_api.g_false,
257: p_init_msg_list => fnd_api.g_true,
258: p_validation_level => fnd_api.g_valid_level_full,
259: p_instance_asset_rec => px_inst_asset_rec,
260: p_txn_rec => px_csi_txn_rec,
253:
254: csi_asset_pvt.update_instance_asset (
255: p_api_version => 1.0,
256: p_commit => fnd_api.g_false,
257: p_init_msg_list => fnd_api.g_true,
258: p_validation_level => fnd_api.g_valid_level_full,
259: p_instance_asset_rec => px_inst_asset_rec,
260: p_txn_rec => px_csi_txn_rec,
261: x_return_status => l_return_status,
254: csi_asset_pvt.update_instance_asset (
255: p_api_version => 1.0,
256: p_commit => fnd_api.g_false,
257: p_init_msg_list => fnd_api.g_true,
258: p_validation_level => fnd_api.g_valid_level_full,
259: p_instance_asset_rec => px_inst_asset_rec,
260: p_txn_rec => px_csi_txn_rec,
261: x_return_status => l_return_status,
262: x_msg_count => l_msg_count,
265: p_asset_count_rec => l_asset_count_rec,
266: p_asset_id_tbl => l_asset_id_tbl,
267: p_asset_loc_tbl => l_asset_loc_tbl);
268:
269: IF l_return_status <> fnd_api.g_ret_sts_success THEN
270: RAISE fnd_api.g_exc_error;
271: END IF;
272:
273: END IF;
266: p_asset_id_tbl => l_asset_id_tbl,
267: p_asset_loc_tbl => l_asset_loc_tbl);
268:
269: IF l_return_status <> fnd_api.g_ret_sts_success THEN
270: RAISE fnd_api.g_exc_error;
271: END IF;
272:
273: END IF;
274:
272:
273: END IF;
274:
275: EXCEPTION
276: WHEN fnd_api.g_exc_error THEN
277: x_return_status := fnd_api.g_ret_sts_error;
278: END update_inst_asset;
279:
280:
273: END IF;
274:
275: EXCEPTION
276: WHEN fnd_api.g_exc_error THEN
277: x_return_status := fnd_api.g_ret_sts_error;
278: END update_inst_asset;
279:
280:
281: FUNCTION total_inst_asset_qty(
307:
308: l_total_inst_asset_qty number := 0;
309: l_inst_asset_rec csi_datastructures_pub.instance_asset_rec;
310:
311: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
312: l_msg_count number;
313: l_msg_data varchar2(2000);
314:
315: BEGIN
312: l_msg_count number;
313: l_msg_data varchar2(2000);
314:
315: BEGIN
316: x_return_status := fnd_api.g_ret_sts_success;
317: debug('In reinstate_inst_asset ');
318: -- check if there is any instance asset record with in_service
319: l_inst_asset_qry_rec.fa_asset_id := p_inst_asset_rec.fa_asset_id;
320: l_inst_asset_qry_rec.fa_book_type_code := p_inst_asset_rec.fa_book_type_code;
322: l_inst_asset_qry_rec.update_status := 'IN_SERVICE';
323:
324: csi_asset_pvt.get_instance_assets(
325: p_api_version => 1.0,
326: p_commit => fnd_api.g_false,
327: p_init_msg_list => fnd_api.g_true,
328: p_validation_level => fnd_api.g_valid_level_full,
329: p_instance_asset_query_rec => l_inst_asset_qry_rec,
330: p_resolve_id_columns => fnd_api.g_false,
323:
324: csi_asset_pvt.get_instance_assets(
325: p_api_version => 1.0,
326: p_commit => fnd_api.g_false,
327: p_init_msg_list => fnd_api.g_true,
328: p_validation_level => fnd_api.g_valid_level_full,
329: p_instance_asset_query_rec => l_inst_asset_qry_rec,
330: p_resolve_id_columns => fnd_api.g_false,
331: p_time_stamp => l_time_stamp,
324: csi_asset_pvt.get_instance_assets(
325: p_api_version => 1.0,
326: p_commit => fnd_api.g_false,
327: p_init_msg_list => fnd_api.g_true,
328: p_validation_level => fnd_api.g_valid_level_full,
329: p_instance_asset_query_rec => l_inst_asset_qry_rec,
330: p_resolve_id_columns => fnd_api.g_false,
331: p_time_stamp => l_time_stamp,
332: x_instance_asset_tbl => l_inst_asset_tbl,
326: p_commit => fnd_api.g_false,
327: p_init_msg_list => fnd_api.g_true,
328: p_validation_level => fnd_api.g_valid_level_full,
329: p_instance_asset_query_rec => l_inst_asset_qry_rec,
330: p_resolve_id_columns => fnd_api.g_false,
331: p_time_stamp => l_time_stamp,
332: x_instance_asset_tbl => l_inst_asset_tbl,
333: x_return_status => l_return_status,
334: x_msg_count => l_msg_count,
333: x_return_status => l_return_status,
334: x_msg_count => l_msg_count,
335: x_msg_data => l_msg_data);
336:
337: IF l_return_status <> fnd_api.g_ret_sts_success THEN
338: RAISE fnd_api.g_exc_error;
339: END IF;
340: debug(' l_inst_asset_tbl.COUNT : '||l_inst_asset_tbl.COUNT);
341: IF l_inst_asset_tbl.COUNT > 0 THEN
334: x_msg_count => l_msg_count,
335: x_msg_data => l_msg_data);
336:
337: IF l_return_status <> fnd_api.g_ret_sts_success THEN
338: RAISE fnd_api.g_exc_error;
339: END IF;
340: debug(' l_inst_asset_tbl.COUNT : '||l_inst_asset_tbl.COUNT);
341: IF l_inst_asset_tbl.COUNT > 0 THEN
342:
343: IF l_inst_asset_tbl.COUNT = 1 THEN
344:
345: l_inst_asset_rec.instance_asset_id := l_inst_asset_tbl(1).instance_asset_id;
346: l_inst_asset_rec.asset_quantity := l_inst_asset_tbl(1).asset_quantity + p_units;
347: l_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ; --Added for bug 13459669
348: debug(' Updating instance_asset_id : '||l_inst_asset_tbl(1).instance_asset_id);
349: update_inst_asset(
350: px_inst_asset_rec => l_inst_asset_rec,
351: px_csi_txn_rec => px_csi_txn_rec,
350: px_inst_asset_rec => l_inst_asset_rec,
351: px_csi_txn_rec => px_csi_txn_rec,
352: x_return_status => l_return_status);
353:
354: IF l_return_status <> fnd_api.g_ret_sts_success THEN
355: RAISE fnd_api.g_exc_error;
356: END IF;
357: /* SELECT citdv.instance_id,citdv.*
358: FROM csi_i_assets_h ciah,
351: px_csi_txn_rec => px_csi_txn_rec,
352: x_return_status => l_return_status);
353:
354: IF l_return_status <> fnd_api.g_ret_sts_success THEN
355: RAISE fnd_api.g_exc_error;
356: END IF;
357: /* SELECT citdv.instance_id,citdv.*
358: FROM csi_i_assets_h ciah,
359: csi_item_instances_h ciih,
381: l_inst_asset_rec.instance_asset_id := p_inst_asset_rec.instance_asset_id;
382: l_inst_asset_rec.update_status := 'IN_SERVICE';
383: l_inst_asset_rec.asset_quantity := p_units;
384: l_inst_asset_rec.active_end_date := NULL; --Added for bug 13459669
385: l_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ; --Added for bug 13459669
386: debug(' Updating instance_asset_id : '||l_inst_asset_rec.instance_asset_id);
387: update_inst_asset(
388: px_inst_asset_rec => l_inst_asset_rec,
389: px_csi_txn_rec => px_csi_txn_rec,
388: px_inst_asset_rec => l_inst_asset_rec,
389: px_csi_txn_rec => px_csi_txn_rec,
390: x_return_status => l_return_status);
391:
392: IF l_return_status <> fnd_api.g_ret_sts_success THEN
393: RAISE fnd_api.g_exc_error;
394: END IF;
395: --Update_IB_Instance Added for bug 13459669
396: debug(' Update_IB_Instance : '||l_inst_asset_rec.Instance_Id);
389: px_csi_txn_rec => px_csi_txn_rec,
390: x_return_status => l_return_status);
391:
392: IF l_return_status <> fnd_api.g_ret_sts_success THEN
393: RAISE fnd_api.g_exc_error;
394: END IF;
395: --Update_IB_Instance Added for bug 13459669
396: debug(' Update_IB_Instance : '||l_inst_asset_rec.Instance_Id);
397: Update_IB_Instance (
403: );
404: END IF;
405:
406: EXCEPTION
407: WHEN fnd_api.g_exc_error THEN
408: x_return_status := fnd_api.g_ret_sts_error;
409: END reinstate_inst_asset;
410:
411: PROCEDURE retire_inst_asset(
404: END IF;
405:
406: EXCEPTION
407: WHEN fnd_api.g_exc_error THEN
408: x_return_status := fnd_api.g_ret_sts_error;
409: END reinstate_inst_asset;
410:
411: PROCEDURE retire_inst_asset(
412: p_inst_asset_id IN number,
414: x_return_status OUT nocopy varchar2)
415: IS
416:
417: l_inst_asset_rec csi_datastructures_pub.instance_asset_rec;
418: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
419:
420: BEGIN
421: x_return_status := fnd_api.g_ret_sts_success;
422:
417: l_inst_asset_rec csi_datastructures_pub.instance_asset_rec;
418: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
419:
420: BEGIN
421: x_return_status := fnd_api.g_ret_sts_success;
422:
423: l_inst_asset_rec.instance_asset_id := p_inst_asset_id;
424: l_inst_asset_rec.update_status := 'RETIRED';
425: l_inst_asset_rec.active_end_date := sysdate;
422:
423: l_inst_asset_rec.instance_asset_id := p_inst_asset_id;
424: l_inst_asset_rec.update_status := 'RETIRED';
425: l_inst_asset_rec.active_end_date := sysdate;
426: l_inst_asset_rec.check_for_instance_expiry := fnd_api.g_false;
427:
428: update_inst_asset(
429: px_inst_asset_rec => l_inst_asset_rec,
430: px_csi_txn_rec => px_csi_txn_rec,
429: px_inst_asset_rec => l_inst_asset_rec,
430: px_csi_txn_rec => px_csi_txn_rec,
431: x_return_status => l_return_status);
432:
433: IF l_return_status <> fnd_api.g_ret_sts_success THEN
434: RAISE fnd_api.g_exc_error;
435: END IF;
436:
437: EXCEPTION
430: px_csi_txn_rec => px_csi_txn_rec,
431: x_return_status => l_return_status);
432:
433: IF l_return_status <> fnd_api.g_ret_sts_success THEN
434: RAISE fnd_api.g_exc_error;
435: END IF;
436:
437: EXCEPTION
438: WHEN fnd_api.g_exc_error THEN
434: RAISE fnd_api.g_exc_error;
435: END IF;
436:
437: EXCEPTION
438: WHEN fnd_api.g_exc_error THEN
439: x_return_status := fnd_api.g_ret_sts_error;
440: END retire_inst_asset;
441:
442: PROCEDURE split_inst_asset(
435: END IF;
436:
437: EXCEPTION
438: WHEN fnd_api.g_exc_error THEN
439: x_return_status := fnd_api.g_ret_sts_error;
440: END retire_inst_asset;
441:
442: PROCEDURE split_inst_asset(
443: p_inst_asset_rec IN csi_datastructures_pub.instance_asset_header_rec,
452: l_asset_count_rec csi_asset_pvt.asset_count_rec;
453: l_asset_id_tbl csi_asset_pvt.asset_id_tbl;
454: l_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
455:
456: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
457: l_msg_count number;
458: l_msg_data varchar2(2000);
459: BEGIN
460:
457: l_msg_count number;
458: l_msg_data varchar2(2000);
459: BEGIN
460:
461: x_return_status := fnd_api.g_ret_sts_success;
462:
463: l_old_asset_qty := p_inst_asset_rec.asset_quantity - p_quantity;
464:
465: l_inst_asset_rec.instance_asset_id := p_inst_asset_rec.instance_asset_id;
469: px_inst_asset_rec => l_inst_asset_rec,
470: px_csi_txn_rec => px_csi_txn_rec,
471: x_return_status => l_return_status);
472:
473: IF l_return_status <> fnd_api.g_ret_sts_success THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: l_inst_asset_rec := null;
470: px_csi_txn_rec => px_csi_txn_rec,
471: x_return_status => l_return_status);
472:
473: IF l_return_status <> fnd_api.g_ret_sts_success THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: l_inst_asset_rec := null;
478: l_inst_asset_rec.instance_asset_id := fnd_api.g_miss_num;
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: l_inst_asset_rec := null;
478: l_inst_asset_rec.instance_asset_id := fnd_api.g_miss_num;
479: l_inst_asset_rec.instance_id := p_inst_asset_rec.instance_id;
480: l_inst_asset_rec.fa_asset_id := p_inst_asset_rec.fa_asset_id;
481: l_inst_asset_rec.fa_book_type_code := p_inst_asset_rec.fa_book_type_code;
482: l_inst_asset_rec.fa_location_id := p_inst_asset_rec.fa_location_id;
488: px_inst_asset_rec => l_inst_asset_rec,
489: px_csi_txn_rec => px_csi_txn_rec,
490: x_return_status => l_return_status);
491:
492: IF l_return_status <> fnd_api.g_ret_sts_success THEN
493: RAISE fnd_api.g_exc_error;
494: END IF;
495:
496: EXCEPTION
489: px_csi_txn_rec => px_csi_txn_rec,
490: x_return_status => l_return_status);
491:
492: IF l_return_status <> fnd_api.g_ret_sts_success THEN
493: RAISE fnd_api.g_exc_error;
494: END IF;
495:
496: EXCEPTION
497: WHEN fnd_api.g_exc_error THEN
493: RAISE fnd_api.g_exc_error;
494: END IF;
495:
496: EXCEPTION
497: WHEN fnd_api.g_exc_error THEN
498: x_return_status := fnd_api.g_ret_sts_error;
499: END split_inst_asset;
500:
501: PROCEDURE asset_retirement(
494: END IF;
495:
496: EXCEPTION
497: WHEN fnd_api.g_exc_error THEN
498: x_return_status := fnd_api.g_ret_sts_error;
499: END split_inst_asset;
500:
501: PROCEDURE asset_retirement(
502: p_instance_id IN NUMBER,
516:
517: l_new_inst_asset_id number;
518: l_total_inst_asset_qty number := 0;
519:
520: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
521: l_msg_count number;
522: l_msg_data varchar2(2000);
523:
524: BEGIN
522: l_msg_data varchar2(2000);
523:
524: BEGIN
525:
526: x_return_status := fnd_api.g_ret_sts_success;
527:
528: debug('inside api cse_fa_txn_pkg.asset_retirement');
529:
530: l_inst_asset_qry_rec.instance_id := p_instance_id;
533: l_inst_asset_qry_rec.update_status := 'IN_SERVICE';
534:
535: csi_asset_pvt.get_instance_assets(
536: p_api_version => 1.0,
537: p_commit => fnd_api.g_false,
538: p_init_msg_list => fnd_api.g_true,
539: p_validation_level => fnd_api.g_valid_level_full,
540: p_instance_asset_query_rec => l_inst_asset_qry_rec,
541: p_resolve_id_columns => fnd_api.g_false,
534:
535: csi_asset_pvt.get_instance_assets(
536: p_api_version => 1.0,
537: p_commit => fnd_api.g_false,
538: p_init_msg_list => fnd_api.g_true,
539: p_validation_level => fnd_api.g_valid_level_full,
540: p_instance_asset_query_rec => l_inst_asset_qry_rec,
541: p_resolve_id_columns => fnd_api.g_false,
542: p_time_stamp => l_time_stamp,
535: csi_asset_pvt.get_instance_assets(
536: p_api_version => 1.0,
537: p_commit => fnd_api.g_false,
538: p_init_msg_list => fnd_api.g_true,
539: p_validation_level => fnd_api.g_valid_level_full,
540: p_instance_asset_query_rec => l_inst_asset_qry_rec,
541: p_resolve_id_columns => fnd_api.g_false,
542: p_time_stamp => l_time_stamp,
543: x_instance_asset_tbl => l_inst_asset_tbl,
537: p_commit => fnd_api.g_false,
538: p_init_msg_list => fnd_api.g_true,
539: p_validation_level => fnd_api.g_valid_level_full,
540: p_instance_asset_query_rec => l_inst_asset_qry_rec,
541: p_resolve_id_columns => fnd_api.g_false,
542: p_time_stamp => l_time_stamp,
543: x_instance_asset_tbl => l_inst_asset_tbl,
544: x_return_status => l_return_status,
545: x_msg_count => l_msg_count,
544: x_return_status => l_return_status,
545: x_msg_count => l_msg_count,
546: x_msg_data => l_msg_data);
547:
548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
549: RAISE fnd_api.g_exc_error;
550: END IF;
551:
552: IF l_inst_asset_tbl.COUNT > 0 THEN
545: x_msg_count => l_msg_count,
546: x_msg_data => l_msg_data);
547:
548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
549: RAISE fnd_api.g_exc_error;
550: END IF;
551:
552: IF l_inst_asset_tbl.COUNT > 0 THEN
553:
550: END IF;
551:
552: IF l_inst_asset_tbl.COUNT > 0 THEN
553:
554: IF nvl(px_txn_rec.transaction_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
555: px_txn_rec.transaction_date := sysdate;
556: --px_txn_rec.source_transaction_date := sysdate; -- Commented for bug 16054641(16048495)
557: px_txn_rec.transaction_type_id := 104;
558: px_txn_rec.source_line_ref := 'ASSET_ID';
571: px_csi_txn_rec => px_txn_rec,
572: x_new_inst_asset_id => l_new_inst_asset_id,
573: x_return_status => l_return_status);
574:
575: IF l_return_status <> fnd_api.g_ret_sts_success THEN
576: RAISE fnd_api.g_exc_error;
577: END IF;
578:
579: retire_inst_asset(
572: x_new_inst_asset_id => l_new_inst_asset_id,
573: x_return_status => l_return_status);
574:
575: IF l_return_status <> fnd_api.g_ret_sts_success THEN
576: RAISE fnd_api.g_exc_error;
577: END IF;
578:
579: retire_inst_asset(
580: p_inst_asset_id => l_new_inst_asset_id,
580: p_inst_asset_id => l_new_inst_asset_id,
581: px_csi_txn_rec => px_txn_rec,
582: x_return_status => l_return_status);
583:
584: IF l_return_status <> fnd_api.g_ret_sts_success THEN
585: RAISE fnd_api.g_exc_error;
586: END IF;
587:
588: ELSE
581: px_csi_txn_rec => px_txn_rec,
582: x_return_status => l_return_status);
583:
584: IF l_return_status <> fnd_api.g_ret_sts_success THEN
585: RAISE fnd_api.g_exc_error;
586: END IF;
587:
588: ELSE
589:
591: p_inst_asset_id => l_inst_asset_tbl(1).instance_asset_id,
592: px_csi_txn_rec => px_txn_rec,
593: x_return_status => l_return_status);
594:
595: IF l_return_status <> fnd_api.g_ret_sts_success THEN
596: RAISE fnd_api.g_exc_error;
597: END IF;
598:
599: END IF;
592: px_csi_txn_rec => px_txn_rec,
593: x_return_status => l_return_status);
594:
595: IF l_return_status <> fnd_api.g_ret_sts_success THEN
596: RAISE fnd_api.g_exc_error;
597: END IF;
598:
599: END IF;
600:
610: p_inst_asset_id => l_inst_asset_tbl(l_ind).instance_asset_id,
611: px_csi_txn_rec => px_txn_rec,
612: x_return_status => l_return_status);
613:
614: IF l_return_status <> fnd_api.g_ret_sts_success THEN
615: RAISE fnd_api.g_exc_error;
616: END IF;
617:
618: END LOOP;
611: px_csi_txn_rec => px_txn_rec,
612: x_return_status => l_return_status);
613:
614: IF l_return_status <> fnd_api.g_ret_sts_success THEN
615: RAISE fnd_api.g_exc_error;
616: END IF;
617:
618: END LOOP;
619:
625: END IF;
626: END IF;
627:
628: EXCEPTION
629: WHEN fnd_api.g_exc_error THEN
630: x_return_status := fnd_api.g_ret_sts_error;
631: END asset_retirement;
632:
633: PROCEDURE asset_reinstatement(
626: END IF;
627:
628: EXCEPTION
629: WHEN fnd_api.g_exc_error THEN
630: x_return_status := fnd_api.g_ret_sts_error;
631: END asset_retirement;
632:
633: PROCEDURE asset_reinstatement(
634: p_retirement_id IN NUMBER,
646: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
647: l_time_stamp date := null;
648: l_new_inst_asset_id number;
649:
650: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
651: l_msg_count number;
652: l_msg_data varchar2(2000);
653:
654: CURSOR dist_cur(p_retirement_id IN number) IS
660: FROM fa_distribution_history
661: WHERE retirement_id = p_retirement_id;
662:
663: BEGIN
664: x_return_status := fnd_api.g_ret_sts_success;
665: debug('inside api cse_asset_txn_pkg.asset_reinstatement');
666: FOR dist_rec IN dist_cur(p_retirement_id)
667: LOOP
668:
672: l_inst_asset_qry_rec.fa_location_id := dist_rec.location_id;
673:
674: csi_asset_pvt.get_instance_assets(
675: p_api_version => 1.0,
676: p_commit => fnd_api.g_false,
677: p_init_msg_list => fnd_api.g_true,
678: p_validation_level => fnd_api.g_valid_level_full,
679: p_instance_asset_query_rec => l_inst_asset_qry_rec,
680: p_resolve_id_columns => fnd_api.g_false,
673:
674: csi_asset_pvt.get_instance_assets(
675: p_api_version => 1.0,
676: p_commit => fnd_api.g_false,
677: p_init_msg_list => fnd_api.g_true,
678: p_validation_level => fnd_api.g_valid_level_full,
679: p_instance_asset_query_rec => l_inst_asset_qry_rec,
680: p_resolve_id_columns => fnd_api.g_false,
681: p_time_stamp => l_time_stamp,
674: csi_asset_pvt.get_instance_assets(
675: p_api_version => 1.0,
676: p_commit => fnd_api.g_false,
677: p_init_msg_list => fnd_api.g_true,
678: p_validation_level => fnd_api.g_valid_level_full,
679: p_instance_asset_query_rec => l_inst_asset_qry_rec,
680: p_resolve_id_columns => fnd_api.g_false,
681: p_time_stamp => l_time_stamp,
682: x_instance_asset_tbl => l_inst_asset_tbl,
676: p_commit => fnd_api.g_false,
677: p_init_msg_list => fnd_api.g_true,
678: p_validation_level => fnd_api.g_valid_level_full,
679: p_instance_asset_query_rec => l_inst_asset_qry_rec,
680: p_resolve_id_columns => fnd_api.g_false,
681: p_time_stamp => l_time_stamp,
682: x_instance_asset_tbl => l_inst_asset_tbl,
683: x_return_status => l_return_status,
684: x_msg_count => l_msg_count,
683: x_return_status => l_return_status,
684: x_msg_count => l_msg_count,
685: x_msg_data => l_msg_data);
686:
687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
688: RAISE fnd_api.g_exc_error;
689: END IF;
690: debug('l_inst_asset_tbl.COUNT : '||l_inst_asset_tbl.COUNT);
691: IF l_inst_asset_tbl.COUNT > 0 THEN
684: x_msg_count => l_msg_count,
685: x_msg_data => l_msg_data);
686:
687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
688: RAISE fnd_api.g_exc_error;
689: END IF;
690: debug('l_inst_asset_tbl.COUNT : '||l_inst_asset_tbl.COUNT);
691: IF l_inst_asset_tbl.COUNT > 0 THEN
692:
689: END IF;
690: debug('l_inst_asset_tbl.COUNT : '||l_inst_asset_tbl.COUNT);
691: IF l_inst_asset_tbl.COUNT > 0 THEN
692:
693: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
694: l_csi_txn_rec.transaction_date := sysdate;
695: l_csi_txn_rec.source_transaction_date := sysdate;
696: l_csi_txn_rec.transaction_type_id := 103;
697: l_csi_txn_rec.source_line_ref := 'ASSET_ID';
706: p_units => p_units,
707: px_csi_txn_rec => l_csi_txn_rec,
708: x_return_status => l_return_status);
709:
710: IF l_return_status <> fnd_api.g_ret_sts_success THEN
711: RAISE fnd_api.g_exc_error;
712: END IF;
713:
714: ELSE
707: px_csi_txn_rec => l_csi_txn_rec,
708: x_return_status => l_return_status);
709:
710: IF l_return_status <> fnd_api.g_ret_sts_success THEN
711: RAISE fnd_api.g_exc_error;
712: END IF;
713:
714: ELSE
715:
719: p_units => p_units,
720: px_csi_txn_rec => l_csi_txn_rec,
721: x_return_status => l_return_status);
722:
723: IF l_return_status <> fnd_api.g_ret_sts_success THEN
724: RAISE fnd_api.g_exc_error;
725: END IF;
726:
727: END IF;
720: px_csi_txn_rec => l_csi_txn_rec,
721: x_return_status => l_return_status);
722:
723: IF l_return_status <> fnd_api.g_ret_sts_success THEN
724: RAISE fnd_api.g_exc_error;
725: END IF;
726:
727: END IF;
728: END IF;
729:
730: END LOOP;
731:
732: EXCEPTION
733: WHEN fnd_api.g_exc_error THEN
734: x_return_status := fnd_api.g_ret_sts_error;
735: END asset_reinstatement;
736:
737:
730: END LOOP;
731:
732: EXCEPTION
733: WHEN fnd_api.g_exc_error THEN
734: x_return_status := fnd_api.g_ret_sts_error;
735: END asset_reinstatement;
736:
737:
738: PROCEDURE populate_retirement_interface(
750: l_batch_name varchar2(30);
751: l_mass_ext_retire_id number;
752: l_prorate_convention varchar2(20);
753:
754: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
755: l_error_message varchar2(2000);
756:
757: CURSOR prorate_conv_cur(p_asset_id number,p_book_type_code varchar2) IS
758: SELECT fcbd.retirement_prorate_convention
779: l_units_retired number;
780:
781: BEGIN
782:
783: x_return_status := fnd_api.g_ret_sts_success;
784:
785: debug('inside api cse_asset_txn_pkg.populate_retirement_interface');
786:
787: l_batch_name := 'CSE-'||p_csi_txn_id;
833: p_ext_ret_rec => l_ext_ret_rec,
834: x_return_status => l_return_status,
835: x_error_msg => l_error_message);
836:
837: IF l_return_status <> fnd_api.g_ret_sts_success THEN
838: RAISE fnd_api.g_exc_error;
839: END IF;
840:
841: EXIT when l_units_retired <= 0;
834: x_return_status => l_return_status,
835: x_error_msg => l_error_message);
836:
837: IF l_return_status <> fnd_api.g_ret_sts_success THEN
838: RAISE fnd_api.g_exc_error;
839: END IF;
840:
841: EXIT when l_units_retired <= 0;
842:
842:
843: END LOOP;
844:
845: EXCEPTION
846: WHEN fnd_api.g_exc_error THEN
847: x_return_status := fnd_api.g_ret_sts_error;
848: END populate_retirement_interface;
849:
850:
843: END LOOP;
844:
845: EXCEPTION
846: WHEN fnd_api.g_exc_error THEN
847: x_return_status := fnd_api.g_ret_sts_error;
848: END populate_retirement_interface;
849:
850:
851: END cse_fa_txn_pkg;