259: WHERE transaction_id = c_transaction_id ;
260:
261: BEGIN
262:
263: x_return_status := fnd_api.g_ret_sts_success;
264:
265: debug('Inside API update_txn_status');
266:
267: IF p_src_move_trans_tbl.COUNT > 0 THEN
288: debug(' transaction_status : '||l_txn_rec.transaction_status_code);
289:
290: csi_transactions_pvt.update_transactions(
291: p_api_version => 1.0,
292: p_init_msg_list => fnd_api.g_true,
293: p_commit => fnd_api.g_false,
294: p_validation_level => fnd_api.g_valid_level_full,
295: p_transaction_rec => l_txn_rec,
296: x_return_status => l_return_status,
289:
290: csi_transactions_pvt.update_transactions(
291: p_api_version => 1.0,
292: p_init_msg_list => fnd_api.g_true,
293: p_commit => fnd_api.g_false,
294: p_validation_level => fnd_api.g_valid_level_full,
295: p_transaction_rec => l_txn_rec,
296: x_return_status => l_return_status,
297: x_msg_count => l_msg_count,
290: csi_transactions_pvt.update_transactions(
291: p_api_version => 1.0,
292: p_init_msg_list => fnd_api.g_true,
293: p_commit => fnd_api.g_false,
294: p_validation_level => fnd_api.g_valid_level_full,
295: p_transaction_rec => l_txn_rec,
296: x_return_status => l_return_status,
297: x_msg_count => l_msg_count,
298: x_msg_data => l_msg_data);
296: x_return_status => l_return_status,
297: x_msg_count => l_msg_count,
298: x_msg_data => l_msg_data);
299:
300: IF l_return_status <> fnd_api.G_RET_STS_success THEN
301: l_error_msg := cse_util_pkg.dump_error_stack ;
302: RAISE fnd_api.g_exc_error ;
303: END IF;
304:
298: x_msg_data => l_msg_data);
299:
300: IF l_return_status <> fnd_api.G_RET_STS_success THEN
301: l_error_msg := cse_util_pkg.dump_error_stack ;
302: RAISE fnd_api.g_exc_error ;
303: END IF;
304:
305: END IF ; ---src_move_tbl.transaction
306: END IF ; --p_src_trans_tbl.COUNT > 0
347: debug(' transaction_status : '||l_txn_rec.transaction_status_code);
348:
349: csi_transactions_pvt.update_transactions(
350: p_api_version => 1.0,
351: p_init_msg_list => fnd_api.g_true,
352: p_commit => fnd_api.g_false,
353: p_validation_level => fnd_api.g_valid_level_full,
354: p_transaction_rec => l_txn_rec,
355: x_return_status => l_return_status,
348:
349: csi_transactions_pvt.update_transactions(
350: p_api_version => 1.0,
351: p_init_msg_list => fnd_api.g_true,
352: p_commit => fnd_api.g_false,
353: p_validation_level => fnd_api.g_valid_level_full,
354: p_transaction_rec => l_txn_rec,
355: x_return_status => l_return_status,
356: x_msg_count => l_msg_count,
349: csi_transactions_pvt.update_transactions(
350: p_api_version => 1.0,
351: p_init_msg_list => fnd_api.g_true,
352: p_commit => fnd_api.g_false,
353: p_validation_level => fnd_api.g_valid_level_full,
354: p_transaction_rec => l_txn_rec,
355: x_return_status => l_return_status,
356: x_msg_count => l_msg_count,
357: x_msg_data => l_msg_data);
355: x_return_status => l_return_status,
356: x_msg_count => l_msg_count,
357: x_msg_data => l_msg_data);
358:
359: IF l_return_status <> fnd_api.G_RET_STS_success THEN
360: l_error_msg := cse_util_pkg.dump_error_stack ;
361: RAISE fnd_api.g_exc_error ;
362: END IF;
363: END IF; ---l_dest_move_trans_tbl.
357: x_msg_data => l_msg_data);
358:
359: IF l_return_status <> fnd_api.G_RET_STS_success THEN
360: l_error_msg := cse_util_pkg.dump_error_stack ;
361: RAISE fnd_api.g_exc_error ;
362: END IF;
363: END IF; ---l_dest_move_trans_tbl.
364: END LOOP ; --L-dest_trans_id_tbl
365: END IF ; ---L-dest_trans_id_tbl.COUNT > 0
364: END LOOP ; --L-dest_trans_id_tbl
365: END IF ; ---L-dest_trans_id_tbl.COUNT > 0
366:
367: EXCEPTION
368: WHEN fnd_api.g_exc_error THEN
369: x_return_status := fnd_api.G_RET_STS_ERROR ;
370: x_error_msg := l_error_msg ;
371: END update_txn_status ;
372:
365: END IF ; ---L-dest_trans_id_tbl.COUNT > 0
366:
367: EXCEPTION
368: WHEN fnd_api.g_exc_error THEN
369: x_return_status := fnd_api.G_RET_STS_ERROR ;
370: x_error_msg := l_error_msg ;
371: END update_txn_status ;
372:
373: ------------------------------------------------------------------------------------------
385: l_error_msg VARCHAR2(2000);
386:
387: BEGIN
388:
389: x_return_status := fnd_api.g_ret_sts_success ;
390:
391: px_txn_rec.object_version_number := 1;
392: px_txn_rec.transaction_date := sysdate;
393:
392: px_txn_rec.transaction_date := sysdate;
393:
394: csi_transactions_pvt.create_transaction(
395: p_api_version => 1.0,
396: p_commit => fnd_api.g_false,
397: p_init_msg_list => fnd_api.g_true,
398: p_validation_level => fnd_api.g_valid_level_full,
399: p_success_if_exists_flag => 'Y',
400: p_transaction_rec => px_txn_rec,
393:
394: csi_transactions_pvt.create_transaction(
395: p_api_version => 1.0,
396: p_commit => fnd_api.g_false,
397: p_init_msg_list => fnd_api.g_true,
398: p_validation_level => fnd_api.g_valid_level_full,
399: p_success_if_exists_flag => 'Y',
400: p_transaction_rec => px_txn_rec,
401: x_return_status => l_return_status,
394: csi_transactions_pvt.create_transaction(
395: p_api_version => 1.0,
396: p_commit => fnd_api.g_false,
397: p_init_msg_list => fnd_api.g_true,
398: p_validation_level => fnd_api.g_valid_level_full,
399: p_success_if_exists_flag => 'Y',
400: p_transaction_rec => px_txn_rec,
401: x_return_status => l_return_status,
402: x_msg_count => l_msg_count,
401: x_return_status => l_return_status,
402: x_msg_count => l_msg_count,
403: x_msg_data => l_msg_data);
404:
405: IF l_return_status <> fnd_api.g_ret_sts_success THEN
406: RAISE fnd_api.g_exc_error;
407: END IF;
408:
409:
402: x_msg_count => l_msg_count,
403: x_msg_data => l_msg_data);
404:
405: IF l_return_status <> fnd_api.g_ret_sts_success THEN
406: RAISE fnd_api.g_exc_error;
407: END IF;
408:
409:
410: EXCEPTION
407: END IF;
408:
409:
410: EXCEPTION
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: x_error_message := cse_util_pkg.dump_error_stack;
414: END create_csi_txn;
415: -----------------------------------------------------------------------------------------
408:
409:
410: EXCEPTION
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: x_error_message := cse_util_pkg.dump_error_stack;
414: END create_csi_txn;
415: -----------------------------------------------------------------------------------------
416: -- Derives the unit cost of the FA based on FA_UNITS and FA_COST
449: BETWEEN fcgd.start_dpis AND NVL(fcgd.end_dpis, fb.date_placed_in_service);
450:
451: BEGIN
452:
453: x_return_status := fnd_api.g_ret_sts_success;
454: debug('Inside API retire_asset');
455:
456: SELECT sysdate INTO l_sysdate FROM sys.dual ;
457:
496: p_ext_ret_rec => l_ext_ret_rec,
497: x_return_status => l_return_status,
498: x_error_msg => l_error_msg) ;
499:
500: IF l_return_status <> fnd_api.g_ret_sts_success THEN
501: debug('Insert into Retirements table failed ');
502: RAISE fnd_api.g_exc_error ;
503: END IF ;
504:
498: x_error_msg => l_error_msg) ;
499:
500: IF l_return_status <> fnd_api.g_ret_sts_success THEN
501: debug('Insert into Retirements table failed ');
502: RAISE fnd_api.g_exc_error ;
503: END IF ;
504:
505: cse_fa_txn_pkg.asset_retirement(
506: p_instance_id => p_fa_inst_dtls_rec.instance_id,
512: px_txn_rec => l_txn_rec,
513: x_return_status => l_return_status,
514: x_error_message => l_error_msg);
515:
516: IF l_return_status <> fnd_api.g_ret_sts_success THEN
517: RAISE fnd_api.g_exc_error;
518: END IF;
519:
520: EXCEPTION
513: x_return_status => l_return_status,
514: x_error_message => l_error_msg);
515:
516: IF l_return_status <> fnd_api.g_ret_sts_success THEN
517: RAISE fnd_api.g_exc_error;
518: END IF;
519:
520: EXCEPTION
521: WHEN fnd_api.g_exc_error THEN
517: RAISE fnd_api.g_exc_error;
518: END IF;
519:
520: EXCEPTION
521: WHEN fnd_api.g_exc_error THEN
522: x_return_status := fnd_api.g_ret_sts_error;
523: x_error_msg := l_error_msg ;
524: END retire_asset ;
525:
518: END IF;
519:
520: EXCEPTION
521: WHEN fnd_api.g_exc_error THEN
522: x_return_status := fnd_api.g_ret_sts_error;
523: x_error_msg := l_error_msg ;
524: END retire_asset ;
525:
526: PROCEDURE get_fa_details (
598: AND fma.add_to_asset_id = c_asset_id;
599:
600: BEGIN
601:
602: x_return_status := fnd_api.g_ret_sts_success ;
603:
604: debug('Inside API get_fa_details');
605:
606: FOR src_fa_inst_dtl_rec IN src_fa_inst_dtl_cur(p_src_move_trans_rec.instance_id)
700: FROM csi_i_assets cia
701: WHERE cia.instance_asset_id = c_instance_asset_id ;
702:
703: BEGIN
704: x_return_status := fnd_api.g_ret_sts_success ;
705:
706: debug('Inside API update_inst_asset');
707:
708: debug(' p_transaction_units : '||p_transaction_units);
722:
723: l_csi_txn_rec := p_csi_txn_rec ;
724: l_inst_asset_rec := p_inst_asset_rec ;
725:
726: IF nvl(p_inst_asset_rec.instance_asset_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
727:
728: l_inst_asset_rec.asset_quantity := l_inst_asset_rec.asset_quantity + p_transaction_units ;
729: l_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
730:
725:
726: IF nvl(p_inst_asset_rec.instance_asset_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
727:
728: l_inst_asset_rec.asset_quantity := l_inst_asset_rec.asset_quantity + p_transaction_units ;
729: l_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
730:
731: OPEN inst_asset_cur (p_inst_asset_rec.instance_asset_id);
732: FETCH inst_asset_cur INTO l_inst_asset_rec.object_version_number ;
733: CLOSE inst_asset_cur ;
739: debug('Calling csi_asset_pvt.update_instance_asset');
740:
741: csi_asset_pvt.update_instance_asset (
742: p_api_version => 1.0,
743: p_commit => fnd_api.g_false,
744: p_init_msg_list => fnd_api.g_false,
745: p_validation_level => fnd_api.g_valid_level_full,
746: p_instance_asset_rec => l_inst_asset_rec,
747: p_txn_rec => l_csi_txn_rec,
740:
741: csi_asset_pvt.update_instance_asset (
742: p_api_version => 1.0,
743: p_commit => fnd_api.g_false,
744: p_init_msg_list => fnd_api.g_false,
745: p_validation_level => fnd_api.g_valid_level_full,
746: p_instance_asset_rec => l_inst_asset_rec,
747: p_txn_rec => l_csi_txn_rec,
748: x_return_status => l_return_status,
741: csi_asset_pvt.update_instance_asset (
742: p_api_version => 1.0,
743: p_commit => fnd_api.g_false,
744: p_init_msg_list => fnd_api.g_false,
745: p_validation_level => fnd_api.g_valid_level_full,
746: p_instance_asset_rec => l_inst_asset_rec,
747: p_txn_rec => l_csi_txn_rec,
748: x_return_status => l_return_status,
749: x_msg_count => l_msg_count,
752: p_asset_count_rec => l_asset_count_rec,
753: p_asset_id_tbl => l_asset_id_tbl,
754: p_asset_loc_tbl => l_asset_loc_tbl );
755:
756: IF l_return_status <> fnd_api.g_ret_sts_success THEN
757: l_error_msg := cse_util_pkg.dump_error_stack ;
758: RAISE fnd_api.g_exc_error;
759: END IF ;
760: ELSE
754: p_asset_loc_tbl => l_asset_loc_tbl );
755:
756: IF l_return_status <> fnd_api.g_ret_sts_success THEN
757: l_error_msg := cse_util_pkg.dump_error_stack ;
758: RAISE fnd_api.g_exc_error;
759: END IF ;
760: ELSE
761:
762: --Call get_inst_asset API
771: debug('Inside API csi_asset_pvt.get_instance_assets');
772:
773: csi_asset_pvt.get_instance_assets(
774: p_api_version => 1.0,
775: p_commit => fnd_api.g_false,
776: p_init_msg_list => fnd_api.g_false,
777: p_validation_level => fnd_api.g_valid_level_full,
778: p_instance_asset_query_rec => l_dest_inst_asset_query_rec,
779: p_resolve_id_columns => NULL ,
772:
773: csi_asset_pvt.get_instance_assets(
774: p_api_version => 1.0,
775: p_commit => fnd_api.g_false,
776: p_init_msg_list => fnd_api.g_false,
777: p_validation_level => fnd_api.g_valid_level_full,
778: p_instance_asset_query_rec => l_dest_inst_asset_query_rec,
779: p_resolve_id_columns => NULL ,
780: p_time_stamp => l_time_stamp ,
773: csi_asset_pvt.get_instance_assets(
774: p_api_version => 1.0,
775: p_commit => fnd_api.g_false,
776: p_init_msg_list => fnd_api.g_false,
777: p_validation_level => fnd_api.g_valid_level_full,
778: p_instance_asset_query_rec => l_dest_inst_asset_query_rec,
779: p_resolve_id_columns => NULL ,
780: p_time_stamp => l_time_stamp ,
781: x_instance_asset_tbl => l_dest_inst_asset_header_tbl,
782: x_return_status => l_return_status,
783: x_msg_count => l_msg_count,
784: x_msg_data => l_msg_data );
785:
786: IF l_return_status <> fnd_api.g_ret_sts_success THEN
787: l_error_msg := cse_util_pkg.dump_error_stack ;
788: RAISE fnd_api.g_exc_error ;
789: END IF ;
790:
784: x_msg_data => l_msg_data );
785:
786: IF l_return_status <> fnd_api.g_ret_sts_success THEN
787: l_error_msg := cse_util_pkg.dump_error_stack ;
788: RAISE fnd_api.g_exc_error ;
789: END IF ;
790:
791: debug(' x_inst_asset_tbl.count : '||l_dest_inst_asset_header_tbl.count);
792:
797: l_dest_inst_asset_tbl(1).asset_quantity :=
798: l_dest_inst_asset_header_tbl(1).asset_quantity + p_transaction_units;
799: l_dest_inst_asset_tbl(1).object_version_number := l_dest_inst_asset_header_tbl(1).object_version_number;
800: l_dest_inst_asset_tbl(1).active_end_date := p_inst_asset_rec.active_end_date;
801: l_dest_inst_asset_tbl(1).check_for_instance_expiry := fnd_api.g_false;
802:
803: debug('Inside API csi_asset_pvt.update_instance_asset');
804: debug(' instance_asset_id : '||l_dest_inst_asset_tbl(1).instance_asset_id);
805: debug(' instance_asset_qty : '||l_dest_inst_asset_tbl(1).asset_quantity);
805: debug(' instance_asset_qty : '||l_dest_inst_asset_tbl(1).asset_quantity);
806:
807: csi_asset_pvt.update_instance_asset (
808: p_api_version => 1.0,
809: p_commit => fnd_api.g_false,
810: p_init_msg_list => fnd_api.g_false,
811: p_validation_level => fnd_api.g_valid_level_full,
812: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
813: p_txn_rec => l_csi_txn_rec,
806:
807: csi_asset_pvt.update_instance_asset (
808: p_api_version => 1.0,
809: p_commit => fnd_api.g_false,
810: p_init_msg_list => fnd_api.g_false,
811: p_validation_level => fnd_api.g_valid_level_full,
812: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
813: p_txn_rec => l_csi_txn_rec,
814: x_return_status => l_return_status,
807: csi_asset_pvt.update_instance_asset (
808: p_api_version => 1.0,
809: p_commit => fnd_api.g_false,
810: p_init_msg_list => fnd_api.g_false,
811: p_validation_level => fnd_api.g_valid_level_full,
812: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
813: p_txn_rec => l_csi_txn_rec,
814: x_return_status => l_return_status,
815: x_msg_count => l_msg_count,
818: p_asset_count_rec => l_asset_count_rec,
819: p_asset_id_tbl => l_asset_id_tbl,
820: p_asset_loc_tbl => l_asset_loc_tbl );
821:
822: IF l_return_status <> fnd_api.g_ret_sts_success THEN
823: l_error_msg := cse_util_pkg.dump_error_stack ;
824: RAISE fnd_api.g_exc_error;
825: END IF;
826: ELSE
820: p_asset_loc_tbl => l_asset_loc_tbl );
821:
822: IF l_return_status <> fnd_api.g_ret_sts_success THEN
823: l_error_msg := cse_util_pkg.dump_error_stack ;
824: RAISE fnd_api.g_exc_error;
825: END IF;
826: ELSE
827: ---Create a new destination Instance
828: l_dest_inst_asset_tbl(1).update_status := cse_datastructures_pub.G_IN_SERVICE ;
832: l_dest_inst_asset_tbl(1).fa_location_id := l_inst_asset_rec.fa_location_id ;
833: l_dest_inst_asset_tbl(1).fa_book_type_code := l_inst_asset_rec.fa_book_type_code ;
834: l_dest_inst_asset_tbl(1).active_start_date := l_sysdate;
835: l_dest_inst_asset_tbl(1).asset_quantity := p_transaction_units ;
836: l_dest_inst_asset_tbl(1).check_for_instance_expiry := fnd_api.G_FALSE ;
837: l_dest_inst_asset_tbl(1).fa_sync_flag := 'Y';
838: l_dest_inst_asset_tbl(1).fa_sync_validation_reqd := fnd_api.g_false;
839:
840: debug('Inside API csi_asset_pvt.create_instance_asset');
834: l_dest_inst_asset_tbl(1).active_start_date := l_sysdate;
835: l_dest_inst_asset_tbl(1).asset_quantity := p_transaction_units ;
836: l_dest_inst_asset_tbl(1).check_for_instance_expiry := fnd_api.G_FALSE ;
837: l_dest_inst_asset_tbl(1).fa_sync_flag := 'Y';
838: l_dest_inst_asset_tbl(1).fa_sync_validation_reqd := fnd_api.g_false;
839:
840: debug('Inside API csi_asset_pvt.create_instance_asset');
841: debug(' fa_asset_id : '||l_dest_inst_asset_tbl(1).fa_asset_id);
842: debug(' fa_book_type_code : '||l_dest_inst_asset_tbl(1).fa_book_type_code);
844: debug(' instance_asset_qty : '||l_dest_inst_asset_tbl(1).asset_quantity);
845:
846: csi_asset_pvt.create_instance_asset (
847: p_api_version => 1.0,
848: p_commit => fnd_api.g_false,
849: p_init_msg_list => fnd_api.g_false,
850: p_validation_level => fnd_api.g_valid_level_full,
851: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
852: p_txn_rec => l_csi_txn_rec,
845:
846: csi_asset_pvt.create_instance_asset (
847: p_api_version => 1.0,
848: p_commit => fnd_api.g_false,
849: p_init_msg_list => fnd_api.g_false,
850: p_validation_level => fnd_api.g_valid_level_full,
851: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
852: p_txn_rec => l_csi_txn_rec,
853: x_return_status => l_return_status,
846: csi_asset_pvt.create_instance_asset (
847: p_api_version => 1.0,
848: p_commit => fnd_api.g_false,
849: p_init_msg_list => fnd_api.g_false,
850: p_validation_level => fnd_api.g_valid_level_full,
851: p_instance_asset_rec => l_dest_inst_asset_tbl(1),
852: p_txn_rec => l_csi_txn_rec,
853: x_return_status => l_return_status,
854: x_msg_count => l_msg_count,
857: p_asset_count_rec => l_asset_count_rec,
858: p_asset_id_tbl => l_asset_id_tbl,
859: p_asset_loc_tbl => l_asset_loc_tbl );
860:
861: IF l_return_status <> fnd_api.g_ret_sts_success THEN
862: l_error_msg := cse_util_pkg.dump_error_stack ;
863: RAISE fnd_api.g_exc_error;
864: END IF;
865:
859: p_asset_loc_tbl => l_asset_loc_tbl );
860:
861: IF l_return_status <> fnd_api.g_ret_sts_success THEN
862: l_error_msg := cse_util_pkg.dump_error_stack ;
863: RAISE fnd_api.g_exc_error;
864: END IF;
865:
866: debug(' instance_asset_id : '||l_dest_inst_asset_tbl(1).instance_asset_id);
867:
868: END IF ;---dest instance asset found
869: END IF ; -- p_src_inst_asset_rec.instance_asset_id IS NOT NULL
870:
871: EXCEPTION
872: WHEN fnd_api.g_exc_error THEN
873: x_return_status := fnd_api.g_ret_sts_error ;
874: x_error_msg := l_error_msg ;
875: END update_inst_asset ;
876:
869: END IF ; -- p_src_inst_asset_rec.instance_asset_id IS NOT NULL
870:
871: EXCEPTION
872: WHEN fnd_api.g_exc_error THEN
873: x_return_status := fnd_api.g_ret_sts_error ;
874: x_error_msg := l_error_msg ;
875: END update_inst_asset ;
876:
877: PROCEDURE do_dist_transfer (
908:
909:
910: BEGIN
911:
912: l_fnd_success := FND_API.G_RET_STS_SUCCESS;
913: l_fnd_error := FND_API.G_RET_STS_ERROR;
914: x_return_status := l_fnd_success ;
915: l_calling_fn := 'OAT';
916: l_upd_csi_i_assets := 'N';
909:
910: BEGIN
911:
912: l_fnd_success := FND_API.G_RET_STS_SUCCESS;
913: l_fnd_error := FND_API.G_RET_STS_ERROR;
914: x_return_status := l_fnd_success ;
915: l_calling_fn := 'OAT';
916: l_upd_csi_i_assets := 'N';
917:
963: debug('Destination Transaction Units :'|| l_asset_dist_tbl(i).transaction_units );
964:
965: fa_transfer_pub.do_transfer (
966: p_api_version => 1.0 ,
967: p_init_msg_list => fnd_api.g_false,
968: p_commit => fnd_api.g_false,
969: p_validation_level => fnd_api.g_valid_level_full,
970: p_calling_fn => l_calling_fn ,
971: x_return_status => l_return_status,
964:
965: fa_transfer_pub.do_transfer (
966: p_api_version => 1.0 ,
967: p_init_msg_list => fnd_api.g_false,
968: p_commit => fnd_api.g_false,
969: p_validation_level => fnd_api.g_valid_level_full,
970: p_calling_fn => l_calling_fn ,
971: x_return_status => l_return_status,
972: x_msg_count => l_msg_count,
965: fa_transfer_pub.do_transfer (
966: p_api_version => 1.0 ,
967: p_init_msg_list => fnd_api.g_false,
968: p_commit => fnd_api.g_false,
969: p_validation_level => fnd_api.g_valid_level_full,
970: p_calling_fn => l_calling_fn ,
971: x_return_status => l_return_status,
972: x_msg_count => l_msg_count,
973: x_msg_data => l_msg_data ,
1074: l_err_inst_rec cse_asset_creation_pkg.instance_rec;
1075:
1076: BEGIN
1077:
1078: x_return_status := fnd_api.g_ret_sts_success;
1079:
1080: retire_asset (
1081: p_fa_inst_dtls_rec => p_src_fa_inst_dtls_rec,
1082: p_units_to_retire => p_transaction_units,
1082: p_units_to_retire => p_transaction_units,
1083: x_return_status => l_return_status,
1084: x_error_msg => l_error_message);
1085:
1086: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
1087: RAISE fnd_api.g_exc_error;
1088: END IF ;
1089:
1090:
1083: x_return_status => l_return_status,
1084: x_error_msg => l_error_message);
1085:
1086: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
1087: RAISE fnd_api.g_exc_error;
1088: END IF ;
1089:
1090:
1091: l_inst_tbl(1).instance_id := p_dest_move_trans_rec.instance_id;
1125: p_inst_tbl => l_inst_tbl,
1126: x_return_status => l_return_status,
1127: x_err_inst_rec => l_err_inst_rec);
1128:
1129: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1130: RAISE fnd_api.g_exc_error;
1131: END IF;
1132:
1133: EXCEPTION
1126: x_return_status => l_return_status,
1127: x_err_inst_rec => l_err_inst_rec);
1128:
1129: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1130: RAISE fnd_api.g_exc_error;
1131: END IF;
1132:
1133: EXCEPTION
1134: WHEN fnd_api.g_exc_error THEN
1130: RAISE fnd_api.g_exc_error;
1131: END IF;
1132:
1133: EXCEPTION
1134: WHEN fnd_api.g_exc_error THEN
1135: x_return_status := fnd_api.g_ret_sts_error;
1136: x_error_msg := l_error_message ;
1137: END do_inter_asset_transfer ;
1138:
1131: END IF;
1132:
1133: EXCEPTION
1134: WHEN fnd_api.g_exc_error THEN
1135: x_return_status := fnd_api.g_ret_sts_error;
1136: x_error_msg := l_error_message ;
1137: END do_inter_asset_transfer ;
1138:
1139: PROCEDURE process_adjustment_trans(
1186: l_qty_to_process NUMBER ;
1187: l_qty_canbe_process NUMBER ;
1188: l_qty_being_process NUMBER ;
1189:
1190: l_fnd_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
1191: l_fnd_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
1192: l_sysdate DATE := sysdate;
1193: l_txn_rec CSI_DATASTRUCTURES_PUB.transaction_rec ;
1194: l_error_msg VARCHAR2(4000);
1187: l_qty_canbe_process NUMBER ;
1188: l_qty_being_process NUMBER ;
1189:
1190: l_fnd_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
1191: l_fnd_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
1192: l_sysdate DATE := sysdate;
1193: l_txn_rec CSI_DATASTRUCTURES_PUB.transaction_rec ;
1194: l_error_msg VARCHAR2(4000);
1195: l_return_status VARCHAR2(1);
1202:
1203: ---For Public API's
1204: l_api_name VARCHAR2(100) := 'cse_asset_move_pkg.process_adjustment_trans';
1205: l_api_version NUMBER := 1.0;
1206: l_commit VARCHAR2(1) := fnd_api.g_false;
1207: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
1208: l_validation_level NUMBER := fnd_api.g_valid_level_full;
1209: l_msg_index NUMBER;
1210: l_msg_data VARCHAR2(2000);
1203: ---For Public API's
1204: l_api_name VARCHAR2(100) := 'cse_asset_move_pkg.process_adjustment_trans';
1205: l_api_version NUMBER := 1.0;
1206: l_commit VARCHAR2(1) := fnd_api.g_false;
1207: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
1208: l_validation_level NUMBER := fnd_api.g_valid_level_full;
1209: l_msg_index NUMBER;
1210: l_msg_data VARCHAR2(2000);
1211: l_msg_count NUMBER;
1204: l_api_name VARCHAR2(100) := 'cse_asset_move_pkg.process_adjustment_trans';
1205: l_api_version NUMBER := 1.0;
1206: l_commit VARCHAR2(1) := fnd_api.g_false;
1207: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
1208: l_validation_level NUMBER := fnd_api.g_valid_level_full;
1209: l_msg_index NUMBER;
1210: l_msg_data VARCHAR2(2000);
1211: l_msg_count NUMBER;
1212: l_trx_error_rec csi_datastructures_pub.transaction_error_rec ;
1242: x_return_status => l_return_status,
1243: x_error_msg => l_error_msg);
1244:
1245: IF l_return_status = l_fnd_error THEN
1246: RAISE fnd_api.g_exc_error;
1247: END IF ;
1248:
1249: IF l_valid_to_process <> 'Y' THEN
1250: debug('this transaction cannot be processed as there are prior pending transaction ');
1247: END IF ;
1248:
1249: IF l_valid_to_process <> 'Y' THEN
1250: debug('this transaction cannot be processed as there are prior pending transaction ');
1251: RAISE fnd_api.g_exc_error ;
1252: END IF ;
1253:
1254: l_src_move_trans_rec.transaction_id := p_transaction_id ;
1255: l_src_move_trans_rec.transaction_date := cse_neg_adj_rec.transaction_date ;
1273: x_error_msg => l_error_msg) ;
1274:
1275: debug('after get_fa_details. count : ' ||l_src_fa_inst_dtls_tbl.COUNT);
1276:
1277: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1278: RAISE fnd_api.g_exc_error ;
1279: END IF ;
1280:
1281: IF l_src_fa_inst_dtls_tbl.COUNT > 0 THEN
1274:
1275: debug('after get_fa_details. count : ' ||l_src_fa_inst_dtls_tbl.COUNT);
1276:
1277: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1278: RAISE fnd_api.g_exc_error ;
1279: END IF ;
1280:
1281: IF l_src_fa_inst_dtls_tbl.COUNT > 0 THEN
1282:
1304: x_return_status => l_return_status,
1305: x_error_msg => l_error_msg);
1306:
1307: IF l_return_status = l_fnd_error THEN
1308: RAISE fnd_api.g_exc_error ;
1309: END IF ;
1310:
1311: l_qty_to_process := l_qty_to_process - l_qty_being_process ;
1312:
1319: ELSE
1320: fnd_message.set_name('CSE','CSE_SRC_INST_ASSET_NOTFOUND');
1321: fnd_message.set_token('CSI_TRANSACTION', l_src_transaction_id);
1322: fnd_msg_pub.add;
1323: RAISE fnd_api.g_exc_error ;
1324: END IF;
1325:
1326: l_src_move_trans_tbl(1) := l_src_move_trans_rec ;
1327: update_txn_status (
1330: p_conc_request_id => p_conc_request_id,
1331: x_return_status => l_return_status,
1332: x_error_msg => l_error_msg);
1333:
1334: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
1335: debug ('Update Status Failed ..');
1336: RAISE fnd_api.g_exc_error ;
1337: END IF ;
1338:
1332: x_error_msg => l_error_msg);
1333:
1334: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
1335: debug ('Update Status Failed ..');
1336: RAISE fnd_api.g_exc_error ;
1337: END IF ;
1338:
1339: END; ---cse_neg_adj_cur
1340: END LOOP; ---cse_neg_adj_cur
1339: END; ---cse_neg_adj_cur
1340: END LOOP; ---cse_neg_adj_cur
1341:
1342: EXCEPTION
1343: WHEN fnd_api.g_exc_error THEN
1344: l_error_msg := l_error_msg ;
1345: x_return_status := fnd_api.G_RET_STS_ERROR ;
1346: l_trx_error_rec.transaction_id := l_src_transaction_id ;
1347: l_trx_error_rec.error_text := l_error_msg;
1341:
1342: EXCEPTION
1343: WHEN fnd_api.g_exc_error THEN
1344: l_error_msg := l_error_msg ;
1345: x_return_status := fnd_api.G_RET_STS_ERROR ;
1346: l_trx_error_rec.transaction_id := l_src_transaction_id ;
1347: l_trx_error_rec.error_text := l_error_msg;
1348: l_trx_error_rec.source_type := 'ASSET_MOVE';
1349: l_trx_error_rec.source_id := l_src_transaction_id ;
1376: debug ('Error in process_adjustment_trans p_conc_req id ' || l_error_msg );
1377: x_error_msg := l_error_msg ;
1378: WHEN OTHERS THEN
1379: l_error_msg := l_error_msg || SQLERRM ;
1380: x_return_status := fnd_api.G_RET_STS_ERROR ;
1381: fnd_message.set_name('CSE','CSE_UNEXP_SQL_ERROR');
1382: fnd_message.set_token('API_NAME','process_adjustment_trans');
1383: fnd_message.set_token('SQL_ERROR',SQLERRM);
1384: x_error_msg := fnd_message.get;
1476: debug(' l_time_stamp : '||to_char(l_time_stamp, 'dd-mon-yyyy hh24:mi:ss'));
1477:
1478: csi_item_instance_pub.get_item_instance_details (
1479: p_api_version => 1.0,
1480: p_commit => fnd_api.g_false,
1481: p_init_msg_list => fnd_api.g_true,
1482: p_validation_level => fnd_api.g_valid_level_full,
1483: p_instance_rec => g_inst_rec,
1484: p_get_parties => fnd_api.g_false,
1477:
1478: csi_item_instance_pub.get_item_instance_details (
1479: p_api_version => 1.0,
1480: p_commit => fnd_api.g_false,
1481: p_init_msg_list => fnd_api.g_true,
1482: p_validation_level => fnd_api.g_valid_level_full,
1483: p_instance_rec => g_inst_rec,
1484: p_get_parties => fnd_api.g_false,
1485: p_party_header_tbl => g_pty_tbl,
1478: csi_item_instance_pub.get_item_instance_details (
1479: p_api_version => 1.0,
1480: p_commit => fnd_api.g_false,
1481: p_init_msg_list => fnd_api.g_true,
1482: p_validation_level => fnd_api.g_valid_level_full,
1483: p_instance_rec => g_inst_rec,
1484: p_get_parties => fnd_api.g_false,
1485: p_party_header_tbl => g_pty_tbl,
1486: p_get_accounts => fnd_api.g_false,
1480: p_commit => fnd_api.g_false,
1481: p_init_msg_list => fnd_api.g_true,
1482: p_validation_level => fnd_api.g_valid_level_full,
1483: p_instance_rec => g_inst_rec,
1484: p_get_parties => fnd_api.g_false,
1485: p_party_header_tbl => g_pty_tbl,
1486: p_get_accounts => fnd_api.g_false,
1487: p_account_header_tbl => g_pa_tbl,
1488: p_get_org_assignments => fnd_api.g_false,
1482: p_validation_level => fnd_api.g_valid_level_full,
1483: p_instance_rec => g_inst_rec,
1484: p_get_parties => fnd_api.g_false,
1485: p_party_header_tbl => g_pty_tbl,
1486: p_get_accounts => fnd_api.g_false,
1487: p_account_header_tbl => g_pa_tbl,
1488: p_get_org_assignments => fnd_api.g_false,
1489: p_org_header_tbl => g_ou_tbl,
1490: p_get_pricing_attribs => fnd_api.g_false,
1484: p_get_parties => fnd_api.g_false,
1485: p_party_header_tbl => g_pty_tbl,
1486: p_get_accounts => fnd_api.g_false,
1487: p_account_header_tbl => g_pa_tbl,
1488: p_get_org_assignments => fnd_api.g_false,
1489: p_org_header_tbl => g_ou_tbl,
1490: p_get_pricing_attribs => fnd_api.g_false,
1491: p_pricing_attrib_tbl => g_prc_tbl,
1492: p_get_ext_attribs => fnd_api.g_false,
1486: p_get_accounts => fnd_api.g_false,
1487: p_account_header_tbl => g_pa_tbl,
1488: p_get_org_assignments => fnd_api.g_false,
1489: p_org_header_tbl => g_ou_tbl,
1490: p_get_pricing_attribs => fnd_api.g_false,
1491: p_pricing_attrib_tbl => g_prc_tbl,
1492: p_get_ext_attribs => fnd_api.g_false,
1493: p_ext_attrib_tbl => g_eav_tbl,
1494: p_ext_attrib_def_tbl => g_ea_tbl,
1488: p_get_org_assignments => fnd_api.g_false,
1489: p_org_header_tbl => g_ou_tbl,
1490: p_get_pricing_attribs => fnd_api.g_false,
1491: p_pricing_attrib_tbl => g_prc_tbl,
1492: p_get_ext_attribs => fnd_api.g_false,
1493: p_ext_attrib_tbl => g_eav_tbl,
1494: p_ext_attrib_def_tbl => g_ea_tbl,
1495: p_get_asset_assignments => fnd_api.g_false,
1496: p_asset_header_tbl => g_asset_tbl,
1491: p_pricing_attrib_tbl => g_prc_tbl,
1492: p_get_ext_attribs => fnd_api.g_false,
1493: p_ext_attrib_tbl => g_eav_tbl,
1494: p_ext_attrib_def_tbl => g_ea_tbl,
1495: p_get_asset_assignments => fnd_api.g_false,
1496: p_asset_header_tbl => g_asset_tbl,
1497: p_resolve_id_columns => fnd_api.g_false,
1498: p_time_stamp => l_time_stamp,
1499: x_return_status => l_return_status,
1493: p_ext_attrib_tbl => g_eav_tbl,
1494: p_ext_attrib_def_tbl => g_ea_tbl,
1495: p_get_asset_assignments => fnd_api.g_false,
1496: p_asset_header_tbl => g_asset_tbl,
1497: p_resolve_id_columns => fnd_api.g_false,
1498: p_time_stamp => l_time_stamp,
1499: x_return_status => l_return_status,
1500: x_msg_count => l_msg_count,
1501: x_msg_data => l_msg_data);
1499: x_return_status => l_return_status,
1500: x_msg_count => l_msg_count,
1501: x_msg_data => l_msg_data);
1502:
1503: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1504: RAISE fnd_api.g_exc_error;
1505: END IF;
1506:
1507: x_instance_rec := g_inst_rec;
1500: x_msg_count => l_msg_count,
1501: x_msg_data => l_msg_data);
1502:
1503: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1504: RAISE fnd_api.g_exc_error;
1505: END IF;
1506:
1507: x_instance_rec := g_inst_rec;
1508:
1515: debug(' instance_usage_code : '||x_instance_rec.instance_usage_code);
1516:
1517:
1518: EXCEPTION
1519: WHEN fnd_api.g_exc_error THEN
1520: x_return_status := fnd_api.g_ret_sts_error;
1521: END get_inst_txn_dtls_srl;
1522:
1523:
1516:
1517:
1518: EXCEPTION
1519: WHEN fnd_api.g_exc_error THEN
1520: x_return_status := fnd_api.g_ret_sts_error;
1521: END get_inst_txn_dtls_srl;
1522:
1523:
1524: PROCEDURE get_move_txn_details(
1622:
1623: s_ind binary_integer := 0;
1624: d_ind binary_integer := 0;
1625:
1626: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1627: l_instance_id number;
1628: l_transaction_id number;
1629: l_nsrl_asset_rec nsrl_asset_cur%ROWTYPE;
1630: l_nsrl_inst_rec nsrl_inst_cur%ROWTYPE;
1671: p_source_dest_flag => 'S',
1672: x_instance_rec => l_src_inst_rec,
1673: x_return_status => l_return_status);
1674:
1675: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1676: RAISE fnd_api.g_exc_error;
1677: END IF;
1678:
1679: s_ind := inst_cur%rowcount;
1672: x_instance_rec => l_src_inst_rec,
1673: x_return_status => l_return_status);
1674:
1675: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1676: RAISE fnd_api.g_exc_error;
1677: END IF;
1678:
1679: s_ind := inst_cur%rowcount;
1680:
1704: p_source_dest_flag => 'D',
1705: x_instance_rec => l_dest_inst_rec,
1706: x_return_status => l_return_status);
1707:
1708: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1709: RAISE fnd_api.g_exc_error;
1710: END IF;
1711:
1712: d_ind := inst_cur%rowcount;
1705: x_instance_rec => l_dest_inst_rec,
1706: x_return_status => l_return_status);
1707:
1708: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1709: RAISE fnd_api.g_exc_error;
1710: END IF;
1711:
1712: d_ind := inst_cur%rowcount;
1713:
1783: p_source_dest_flag => 'D',
1784: x_instance_rec => l_src_inst_rec,
1785: x_return_status => l_return_status);
1786:
1787: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1788: RAISE fnd_api.g_exc_error;
1789: END IF;
1790:
1791: IF l_txn_quantity = 0 THEN
1784: x_instance_rec => l_src_inst_rec,
1785: x_return_status => l_return_status);
1786:
1787: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1788: RAISE fnd_api.g_exc_error;
1789: END IF;
1790:
1791: IF l_txn_quantity = 0 THEN
1792: l_txn_quantity := l_src_inst_rec.quantity;
1864: x_return_status => l_return_status);
1865:
1866: DEBUG(' return Status '||l_return_status );
1867:
1868: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871:
1872: IF l_txn_quantity = 0 THEN
1865:
1866: DEBUG(' return Status '||l_return_status );
1867:
1868: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871:
1872: IF l_txn_quantity = 0 THEN
1873: l_txn_quantity := l_dest_inst_rec.quantity;
1915: x_src_move_trans_tbl := l_src_move_tbl;
1916: x_dest_move_trans_tbl := l_dest_move_tbl;
1917:
1918: EXCEPTION
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: END get_move_txn_details;
1922:
1923: -- CASE ACTION
1916: x_dest_move_trans_tbl := l_dest_move_tbl;
1917:
1918: EXCEPTION
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: END get_move_txn_details;
1922:
1923: -- CASE ACTION
1924: -------------------------------------------------------------------------------
2048: temp_str VARCHAR2(512);
2049:
2050: l_return_status VARCHAR2(1);
2051: l_error_msg VARCHAR2(4000);
2052: l_fnd_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
2053: l_fnd_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
2054: e_error Exception; --added by sreeram
2055: BEGIN
2056:
2049:
2050: l_return_status VARCHAR2(1);
2051: l_error_msg VARCHAR2(4000);
2052: l_fnd_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
2053: l_fnd_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
2054: e_error Exception; --added by sreeram
2055: BEGIN
2056:
2057: x_return_status := l_fnd_success ;
2075: create_csi_txn(l_txn_rec, l_return_status, l_error_msg);
2076:
2077: IF l_return_status <> l_fnd_success THEN
2078: x_error_msg := l_error_msg ;
2079: RAISE fnd_api.g_exc_error;
2080: END IF ;
2081:
2082: FOR s_ind IN p_src_move_trans_tbl.FIRST .. p_src_move_trans_tbl.LAST
2083: LOOP
2095: x_return_status => l_return_status,
2096: x_error_msg => l_error_msg) ;
2097:
2098: IF l_return_status = l_fnd_error THEN
2099: RAISE fnd_api.g_exc_error ;
2100: END IF ;
2101:
2102: IF l_src_fa_inst_dtls_tbl.COUNT = 0 THEN
2103: fnd_message.set_name('CSE','CSE_SRC_INST_ASSET_NOTFOUND');
2102: IF l_src_fa_inst_dtls_tbl.COUNT = 0 THEN
2103: fnd_message.set_name('CSE','CSE_SRC_INST_ASSET_NOTFOUND');
2104: fnd_message.set_token('CSI_TRANSACTION', l_src_transaction_id);
2105: fnd_msg_pub.add;
2106: RAISE fnd_api.g_exc_error ;
2107: END IF ;
2108:
2109: <
2110: FOR d_ind IN p_dest_move_trans_tbl.FIRST .. p_dest_move_trans_tbl.LAST
2168: x_return_status => l_return_status,
2169: x_error_msg => l_error_msg);
2170:
2171: IF l_return_status = l_fnd_error THEN
2172: RAISE fnd_api.g_exc_error ;
2173: END IF ;
2174:
2175: l_dest_fa_dist_rec.location_id := l_dest_fa_location_id ;
2176: IF l_src_fa_inst_dtls_tbl.COUNT > 0 THEN
2251: debug('inside api fa_reclass_pub.do_reclass');
2252:
2253: fa_reclass_pub.do_reclass (
2254: p_api_version => 1.0 ,
2255: p_init_msg_list => fnd_api.g_false,
2256: p_commit => fnd_api.g_false,
2257: p_validation_level => fnd_api.g_valid_level_full,
2258: p_calling_fn => l_calling_fn ,
2259: x_return_status => l_return_status,
2252:
2253: fa_reclass_pub.do_reclass (
2254: p_api_version => 1.0 ,
2255: p_init_msg_list => fnd_api.g_false,
2256: p_commit => fnd_api.g_false,
2257: p_validation_level => fnd_api.g_valid_level_full,
2258: p_calling_fn => l_calling_fn ,
2259: x_return_status => l_return_status,
2260: x_msg_count => l_msg_count,
2253: fa_reclass_pub.do_reclass (
2254: p_api_version => 1.0 ,
2255: p_init_msg_list => fnd_api.g_false,
2256: p_commit => fnd_api.g_false,
2257: p_validation_level => fnd_api.g_valid_level_full,
2258: p_calling_fn => l_calling_fn ,
2259: x_return_status => l_return_status,
2260: x_msg_count => l_msg_count,
2261: x_msg_data => l_msg_data,
2265: p_recl_opt_rec => l_recl_opt_rec );
2266:
2267: IF (l_return_status = l_fnd_error) THEN
2268: l_error_msg := cse_util_pkg.dump_error_stack;
2269: RAISE fnd_api.g_exc_error ;
2270: END IF;
2271: */
2272:
2273: -- For updating the FA Location.
2283: x_return_status => l_return_status,
2284: x_error_msg => l_error_msg);
2285:
2286: IF l_return_status = l_fnd_error THEN
2287: RAISE fnd_api.g_exc_error ;
2288: END IF ;
2289:
2290: l_asset_hdr_rec.asset_id := l_src_fa_inst_dtls_tbl(j).fa_asset_id ;
2291: l_asset_cat_rec_new.category_id := l_dest_fa_category_id ;
2293: debug('inside api fa_reclass_pub.do_reclass');
2294:
2295: fa_reclass_pub.do_reclass (
2296: p_api_version => 1.0 ,
2297: p_init_msg_list => fnd_api.g_false,
2298: p_commit => fnd_api.g_false,
2299: p_validation_level => fnd_api.g_valid_level_full,
2300: p_calling_fn => l_calling_fn ,
2301: x_return_status => l_return_status,
2294:
2295: fa_reclass_pub.do_reclass (
2296: p_api_version => 1.0 ,
2297: p_init_msg_list => fnd_api.g_false,
2298: p_commit => fnd_api.g_false,
2299: p_validation_level => fnd_api.g_valid_level_full,
2300: p_calling_fn => l_calling_fn ,
2301: x_return_status => l_return_status,
2302: x_msg_count => l_msg_count,
2295: fa_reclass_pub.do_reclass (
2296: p_api_version => 1.0 ,
2297: p_init_msg_list => fnd_api.g_false,
2298: p_commit => fnd_api.g_false,
2299: p_validation_level => fnd_api.g_valid_level_full,
2300: p_calling_fn => l_calling_fn ,
2301: x_return_status => l_return_status,
2302: x_msg_count => l_msg_count,
2303: x_msg_data => l_msg_data,
2307: p_recl_opt_rec => l_recl_opt_rec );
2308:
2309: IF (l_return_status = l_fnd_error) THEN
2310: l_error_msg := cse_util_pkg.dump_error_stack;
2311: RAISE fnd_api.g_exc_error ;
2312: END IF;
2313:
2314: ELSIF l_fa_action_code = '2' THEN --INTER-ASSET transfer
2315: --Create a new FA with a new DPI.
2338: x_return_status => l_return_status,
2339: x_error_msg => l_error_msg);
2340:
2341: IF (l_return_status = l_fnd_error) THEN
2342: RAISE fnd_api.g_exc_error ;
2343: END IF ;
2344: ELSIF l_fa_action_code = '3' THEN -- INTRA-ASSET
2345:
2346: l_dest_fa_dist_rec.employee_id := l_src_fa_inst_dtls_tbl(j).fa_employee_id ;
2357: x_return_status => l_return_status,
2358: x_error_msg => l_error_msg);
2359:
2360: IF (l_return_status = l_fnd_error) THEN
2361: RAISE fnd_api.g_exc_error ;
2362: END IF ;
2363: END IF ; --l_fa_action_code (1,2,3).
2364:
2365: -- Done with processing txn_qty?
2394:
2395: END IF ; --p_src_move_trans_tbl.COUNT
2396:
2397: EXCEPTION
2398: WHEN fnd_api.g_exc_error THEN
2399: x_return_status := fnd_api.G_RET_STS_ERROR ;
2400: x_error_msg := nvl(l_error_msg, cse_util_pkg.dump_error_stack);
2401: debug ('Error : '||x_error_msg);
2402: END update_fa ;
2395: END IF ; --p_src_move_trans_tbl.COUNT
2396:
2397: EXCEPTION
2398: WHEN fnd_api.g_exc_error THEN
2399: x_return_status := fnd_api.G_RET_STS_ERROR ;
2400: x_error_msg := nvl(l_error_msg, cse_util_pkg.dump_error_stack);
2401: debug ('Error : '||x_error_msg);
2402: END update_fa ;
2403:
2407: x_return_status OUT nocopy varchar2,
2408: x_error_message OUT nocopy varchar2)
2409: IS
2410: l_txn_rec csi_datastructures_pub.transaction_rec;
2411: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2412: l_msg_count number;
2413: l_msg_data varchar2(2000);
2414: BEGIN
2415:
2412: l_msg_count number;
2413: l_msg_data varchar2(2000);
2414: BEGIN
2415:
2416: x_return_status := fnd_api.g_ret_sts_success;
2417:
2418: l_txn_rec.transaction_id := p_csi_txn_id;
2419: l_txn_rec.source_group_ref_id := fnd_global.conc_request_id;
2420: l_txn_rec.transaction_status_code := cse_datastructures_pub.g_complete ;
2425: WHERE transaction_id = l_txn_rec.transaction_id;
2426:
2427: csi_transactions_pvt.update_transactions(
2428: p_api_version => 1.0,
2429: p_init_msg_list => fnd_api.g_true,
2430: p_commit => fnd_api.g_false,
2431: p_validation_level => fnd_api.g_valid_level_full,
2432: p_transaction_rec => l_txn_rec,
2433: x_return_status => l_return_status,
2426:
2427: csi_transactions_pvt.update_transactions(
2428: p_api_version => 1.0,
2429: p_init_msg_list => fnd_api.g_true,
2430: p_commit => fnd_api.g_false,
2431: p_validation_level => fnd_api.g_valid_level_full,
2432: p_transaction_rec => l_txn_rec,
2433: x_return_status => l_return_status,
2434: x_msg_count => l_msg_count,
2427: csi_transactions_pvt.update_transactions(
2428: p_api_version => 1.0,
2429: p_init_msg_list => fnd_api.g_true,
2430: p_commit => fnd_api.g_false,
2431: p_validation_level => fnd_api.g_valid_level_full,
2432: p_transaction_rec => l_txn_rec,
2433: x_return_status => l_return_status,
2434: x_msg_count => l_msg_count,
2435: x_msg_data => l_msg_data);
2433: x_return_status => l_return_status,
2434: x_msg_count => l_msg_count,
2435: x_msg_data => l_msg_data);
2436:
2437: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2438: RAISE fnd_api.g_exc_error;
2439: END IF;
2440:
2441: EXCEPTION
2434: x_msg_count => l_msg_count,
2435: x_msg_data => l_msg_data);
2436:
2437: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2438: RAISE fnd_api.g_exc_error;
2439: END IF;
2440:
2441: EXCEPTION
2442: WHEN fnd_api.g_exc_error THEN
2438: RAISE fnd_api.g_exc_error;
2439: END IF;
2440:
2441: EXCEPTION
2442: WHEN fnd_api.g_exc_error THEN
2443: x_return_status := fnd_api.g_ret_sts_error;
2444: END complete_csi_txn;
2445:
2446:
2439: END IF;
2440:
2441: EXCEPTION
2442: WHEN fnd_api.g_exc_error THEN
2443: x_return_status := fnd_api.g_ret_sts_error;
2444: END complete_csi_txn;
2445:
2446:
2447:
2469: WHERE transaction_id = c_transaction_id ;
2470:
2471: BEGIN
2472:
2473: x_return_status := fnd_api.g_ret_sts_success;
2474: debug('Inside API cse_asset_move_pkg.process_a_move_txn');
2475: debug(' transaction_id : '||p_transaction_id);
2476:
2477: get_move_txn_details(
2479: x_src_move_trans_tbl => l_src_move_trans_tbl,
2480: x_dest_move_trans_tbl => l_dest_move_trans_tbl,
2481: x_return_status => l_return_status);
2482:
2483: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2484: RAISE fnd_api.g_exc_error ;
2485: END IF ;
2486:
2487: IF l_src_move_trans_tbl.COUNT = 0 OR l_dest_move_trans_tbl.COUNT=0 THEN
2480: x_dest_move_trans_tbl => l_dest_move_trans_tbl,
2481: x_return_status => l_return_status);
2482:
2483: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2484: RAISE fnd_api.g_exc_error ;
2485: END IF ;
2486:
2487: IF l_src_move_trans_tbl.COUNT = 0 OR l_dest_move_trans_tbl.COUNT=0 THEN
2488: l_error_msg := 'No changes pending for this transaction..';
2495: p_dest_move_trans_tbl => l_dest_move_trans_tbl,
2496: x_return_status => l_return_status,
2497: x_error_msg => l_error_msg) ;
2498:
2499: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
2500: RAISE fnd_api.g_exc_error ;
2501: END IF ;
2502:
2503: --Assign Out parameters
2496: x_return_status => l_return_status,
2497: x_error_msg => l_error_msg) ;
2498:
2499: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
2500: RAISE fnd_api.g_exc_error ;
2501: END IF ;
2502:
2503: --Assign Out parameters
2504: x_src_move_trans_tbl := l_src_move_trans_tbl ;
2508: complete_csi_txn(
2509: p_csi_txn_id => p_transaction_id,
2510: x_return_status => l_return_status,
2511: x_error_message => l_error_msg);
2512: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2513: RAISE fnd_api.g_exc_error;
2514: END IF;
2515:
2516: END IF ; ---l_src_move_trans_tbl.COUNT is 0.
2509: p_csi_txn_id => p_transaction_id,
2510: x_return_status => l_return_status,
2511: x_error_message => l_error_msg);
2512: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2513: RAISE fnd_api.g_exc_error;
2514: END IF;
2515:
2516: END IF ; ---l_src_move_trans_tbl.COUNT is 0.
2517: EXCEPTION
2514: END IF;
2515:
2516: END IF ; ---l_src_move_trans_tbl.COUNT is 0.
2517: EXCEPTION
2518: WHEN fnd_api.g_exc_error THEN
2519: x_move_processed_flag := 'N' ;
2520: x_return_status := fnd_api.G_RET_STS_ERROR ;
2521: x_error_msg := l_error_msg ;
2522: END process_a_move_txn ;
2516: END IF ; ---l_src_move_trans_tbl.COUNT is 0.
2517: EXCEPTION
2518: WHEN fnd_api.g_exc_error THEN
2519: x_move_processed_flag := 'N' ;
2520: x_return_status := fnd_api.G_RET_STS_ERROR ;
2521: x_error_msg := l_error_msg ;
2522: END process_a_move_txn ;
2523:
2524: ---------------------------------------------------------------------------------
2666:
2667: BEGIN
2668: l_cost_api_ver := 1;
2669: l_api_version := 1.0;
2670: l_commit := fnd_api.g_false;
2671: l_init_msg_list := fnd_api.g_true;
2672: l_validation_level := fnd_api.g_valid_level_full;
2673: l_api_name := 'CSE_ASSET_MOVE_PKG.process_misc_moves';
2674: l_sysdate := SYSDATE ;
2667: BEGIN
2668: l_cost_api_ver := 1;
2669: l_api_version := 1.0;
2670: l_commit := fnd_api.g_false;
2671: l_init_msg_list := fnd_api.g_true;
2672: l_validation_level := fnd_api.g_valid_level_full;
2673: l_api_name := 'CSE_ASSET_MOVE_PKG.process_misc_moves';
2674: l_sysdate := SYSDATE ;
2675: l_time_stamp := NULL ;
2668: l_cost_api_ver := 1;
2669: l_api_version := 1.0;
2670: l_commit := fnd_api.g_false;
2671: l_init_msg_list := fnd_api.g_true;
2672: l_validation_level := fnd_api.g_valid_level_full;
2673: l_api_name := 'CSE_ASSET_MOVE_PKG.process_misc_moves';
2674: l_sysdate := SYSDATE ;
2675: l_time_stamp := NULL ;
2676: l_move_processed_flag := 'N';
2755: l_src_inst_asset_Rec := CSE_Util_Pkg.Init_Instance_Asset_Rec;
2756: l_src_inst_asset_rec.instance_asset_id := instance_assets_rec.instance_asset_id ;
2757: l_src_inst_asset_rec.asset_quantity := instance_assets_rec.asset_quantity - l_adj_units ;
2758: l_src_inst_asset_rec.object_version_number := instance_assets_rec.object_version_number ;
2759: l_src_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
2760: l_txn_rec.transaction_status_code := cse_datastructures_pub.G_COMPLETE ;
2761: l_txn_rec.transaction_date := l_sysdate;
2762: l_txn_rec.source_transaction_date := l_sysdate;
2763: l_txn_rec.object_version_number := 1 ;
2766: debug ('Update Source Inst Asset');
2767: ---Update Source Instant Asset.
2768: csi_asset_pvt.update_instance_asset (
2769: p_api_version => 1.0
2770: ,p_commit => fnd_api.g_false
2771: ,p_init_msg_list => fnd_api.g_false
2772: ,p_validation_level => fnd_api.g_valid_level_full
2773: ,p_instance_asset_rec => l_src_inst_asset_rec
2774: ,p_txn_rec => l_txn_rec
2767: ---Update Source Instant Asset.
2768: csi_asset_pvt.update_instance_asset (
2769: p_api_version => 1.0
2770: ,p_commit => fnd_api.g_false
2771: ,p_init_msg_list => fnd_api.g_false
2772: ,p_validation_level => fnd_api.g_valid_level_full
2773: ,p_instance_asset_rec => l_src_inst_asset_rec
2774: ,p_txn_rec => l_txn_rec
2775: ,x_return_status => l_return_status
2768: csi_asset_pvt.update_instance_asset (
2769: p_api_version => 1.0
2770: ,p_commit => fnd_api.g_false
2771: ,p_init_msg_list => fnd_api.g_false
2772: ,p_validation_level => fnd_api.g_valid_level_full
2773: ,p_instance_asset_rec => l_src_inst_asset_rec
2774: ,p_txn_rec => l_txn_rec
2775: ,x_return_status => l_return_status
2776: ,x_msg_count => l_msg_count
2781: ,p_asset_loc_tbl => l_asset_loc_tbl );
2782:
2783:
2784: debug ('After Update Source Inst Asset');
2785: IF l_return_status = fnd_api.G_RET_STS_ERROR
2786: THEN
2787: l_error_msg := cse_util_pkg.dump_error_stack ;
2788: RAISE e_goto_next_trans ;
2789: END IF;
2831: l_return_status,
2832: l_msg_count,
2833: l_msg_data);
2834:
2835: IF NOT l_return_status = fnd_api.G_RET_STS_SUCCESS
2836: THEN
2837: l_error_msg := cse_util_pkg.dump_error_stack ;
2838: RAISE e_goto_next_trans ;
2839: END IF;
2854: l_txn_rec.source_transaction_date := l_sysdate;
2855: l_txn_rec.object_version_number := 1 ;
2856: ---l_txn_rec.transaction_id := NULL ;
2857: l_dest_inst_asset_rec.object_version_number := l_dest_inst_asset_header_tbl(1).object_version_number ;
2858: l_dest_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
2859:
2860: csi_asset_pvt.update_instance_asset (
2861: p_api_version => 1.0
2862: ,p_commit => fnd_api.g_false
2858: l_dest_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
2859:
2860: csi_asset_pvt.update_instance_asset (
2861: p_api_version => 1.0
2862: ,p_commit => fnd_api.g_false
2863: ,p_init_msg_list => fnd_api.g_false
2864: ,p_validation_level => fnd_api.g_valid_level_full
2865: ,p_instance_asset_rec => l_dest_inst_asset_rec
2866: ,p_txn_rec => l_txn_rec
2859:
2860: csi_asset_pvt.update_instance_asset (
2861: p_api_version => 1.0
2862: ,p_commit => fnd_api.g_false
2863: ,p_init_msg_list => fnd_api.g_false
2864: ,p_validation_level => fnd_api.g_valid_level_full
2865: ,p_instance_asset_rec => l_dest_inst_asset_rec
2866: ,p_txn_rec => l_txn_rec
2867: ,x_return_status => l_return_status
2860: csi_asset_pvt.update_instance_asset (
2861: p_api_version => 1.0
2862: ,p_commit => fnd_api.g_false
2863: ,p_init_msg_list => fnd_api.g_false
2864: ,p_validation_level => fnd_api.g_valid_level_full
2865: ,p_instance_asset_rec => l_dest_inst_asset_rec
2866: ,p_txn_rec => l_txn_rec
2867: ,x_return_status => l_return_status
2868: ,x_msg_count => l_msg_count
2871: ,p_asset_count_rec => l_asset_count_rec
2872: ,p_asset_id_tbl => l_asset_id_tbl
2873: ,p_asset_loc_tbl => l_asset_loc_tbl );
2874:
2875: IF l_return_status = fnd_api.G_RET_STS_ERROR
2876: THEN
2877: l_error_msg := cse_util_pkg.dump_error_stack ;
2878: RAISE e_goto_next_trans ;
2879: END IF;
2895: l_dest_inst_asset_rec.object_version_number := 1 ;
2896: l_dest_inst_asset_rec.active_start_date := l_sysdate;
2897: l_dest_inst_asset_rec.asset_quantity := l_adj_units ;
2898: l_dest_inst_asset_rec.instance_asset_id := NULL ;
2899: l_dest_inst_asset_rec.check_for_instance_expiry := fnd_api.G_FALSE ;
2900: l_dest_inst_asset_rec.fa_sync_flag := 'Y' ;
2901:
2902: debug (l_dest_inst_asset_rec.fa_asset_id);
2903: debug('Dest Instance ID : '||l_dest_inst_asset_rec.instance_id);
2908:
2909: --l_txn_rec.transaction_id := NULL ;
2910: csi_asset_pvt.create_instance_asset (
2911: p_api_version => 1.0
2912: ,p_commit => fnd_api.g_false
2913: ,p_init_msg_list => fnd_api.g_false
2914: ,p_validation_level => fnd_api.g_valid_level_full
2915: ,p_instance_asset_rec => l_dest_inst_asset_rec
2916: ,p_txn_rec => l_txn_rec
2909: --l_txn_rec.transaction_id := NULL ;
2910: csi_asset_pvt.create_instance_asset (
2911: p_api_version => 1.0
2912: ,p_commit => fnd_api.g_false
2913: ,p_init_msg_list => fnd_api.g_false
2914: ,p_validation_level => fnd_api.g_valid_level_full
2915: ,p_instance_asset_rec => l_dest_inst_asset_rec
2916: ,p_txn_rec => l_txn_rec
2917: ,x_return_status => l_return_status
2910: csi_asset_pvt.create_instance_asset (
2911: p_api_version => 1.0
2912: ,p_commit => fnd_api.g_false
2913: ,p_init_msg_list => fnd_api.g_false
2914: ,p_validation_level => fnd_api.g_valid_level_full
2915: ,p_instance_asset_rec => l_dest_inst_asset_rec
2916: ,p_txn_rec => l_txn_rec
2917: ,x_return_status => l_return_status
2918: ,x_msg_count => l_msg_count
2921: ,p_asset_count_rec => l_asset_count_rec
2922: ,p_asset_id_tbl => l_asset_id_tbl
2923: ,p_asset_loc_tbl => l_asset_loc_tbl );
2924:
2925: IF l_return_status = fnd_api.G_RET_STS_ERROR
2926: THEN
2927: l_error_msg := cse_util_pkg.dump_error_stack ;
2928: RAISE e_goto_next_trans ;
2929: END IF;
2963: ,x_msg_data => l_msg_data
2964: );
2965:
2966:
2967: IF l_return_status = fnd_api.G_RET_STS_ERROR
2968: THEN
2969: l_error_msg := cse_util_pkg.dump_error_stack ;
2970: RAISE e_goto_next_trans ;
2971: END IF;
2995: ,x_msg_data => l_msg_data
2996: );
2997:
2998:
2999: IF l_return_status = fnd_api.G_RET_STS_ERROR
3000: THEN
3001: l_error_msg := cse_util_pkg.dump_error_stack ;
3002: RAISE e_goto_next_trans ;
3003: END IF;
3111: ,x_msg_data => l_msg_data
3112: );
3113:
3114:
3115: IF l_return_status = fnd_api.G_RET_STS_ERROR
3116: THEN
3117: l_error_msg := cse_util_pkg.dump_error_stack ;
3118: RAISE e_error ;
3119: END IF;
3182: AND mmt.inventory_item_id = msib.inventory_item_id
3183: AND mmt.transfer_organization_id = msib.organization_id ;
3184:
3185: BEGIN
3186: x_return_status := fnd_api.G_RET_STS_SUCCESS ;
3187:
3188: OPEN get_srl_code_from_org ;
3189: FETCH get_srl_code_from_org INTO x_src_inst_srl_code;
3190: CLOSE get_srl_code_from_org ;
3195:
3196: EXCEPTION
3197: WHEN OTHERS
3198: THEN
3199: x_return_status := fnd_api.G_RET_STS_ERROR ;
3200: x_error_msg := SQLERRM ;
3201: END get_src_dest_inst_srl_code ;
3202:
3203: -------------------------------------------------------------------------------
3397:
3398: SELECT sysdate INTO l_sysdate FROM DUAL ;
3399: i := 0;
3400: j := 0;
3401: x_return_status := fnd_api.g_ret_sts_success;
3402:
3403: SELECT inventory_item_id,
3404: shipment_number,
3405: transfer_organization_id
3464: p_dest_move_trans_tbl => l_dest_move_trans_tbl,
3465: x_return_status => l_return_status,
3466: x_error_msg => l_error_msg) ;
3467:
3468: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
3469: debug ('Update Status Failed ..');
3470: RAISE e_error ;
3471: END IF ;
3472:
3477: p_conc_request_id => p_conc_request_id,
3478: x_return_status => l_return_status,
3479: x_error_msg => l_error_msg);
3480:
3481: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
3482: debug ('Update Status Failed ..');
3483: RAISE e_error ;
3484: END IF ;
3485:
3546: p_dest_move_trans_tbl => l_dest_move_trans_tbl,
3547: x_return_status => l_return_status,
3548: x_error_msg => l_error_msg) ;
3549:
3550: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
3551: debug ('Update Status Failed ..');
3552: RAISE e_error ;
3553: END IF ;
3554:
3559: p_conc_request_id => p_conc_request_id,
3560: x_return_status => l_return_status,
3561: x_error_msg => l_error_msg);
3562:
3563: IF l_return_status = fnd_api.G_RET_STS_ERROR THEN
3564: debug ('Update Status Failed ..');
3565: RAISE e_error ;
3566: END IF ;
3567:
3592:
3593: IF l_txn_error_id IS NULL
3594: THEN
3595: csi_transactions_pvt.create_txn_error
3596: (1.0, fnd_api.g_true, fnd_api.g_false, fnd_api.g_valid_level_full,
3597: l_trx_error_rec, l_return_status, l_msg_count,l_msg_data,
3598: l_txn_error_id);
3599: ELSE
3600: UPDATE csi_txn_errors
3603: last_update_date = l_sysdate
3604: WHERE transaction_error_id = l_txn_error_id ;
3605: END IF ;
3606: --For better error reporting
3607: x_return_status := fnd_api.g_ret_sts_error;
3608: x_error_msg := l_error_msg ;
3609:
3610: WHEN OTHERS
3611: THEN
3630:
3631: IF l_txn_error_id IS NULL
3632: THEN
3633: csi_transactions_pvt.create_txn_error
3634: (1.0, fnd_api.g_true, fnd_api.g_false, fnd_api.g_valid_level_full,
3635: l_trx_error_rec, l_return_status, l_msg_count,l_msg_data,
3636: l_txn_error_id);
3637: ELSE
3638: UPDATE csi_txn_errors
3641: last_update_date = l_sysdate
3642: WHERE transaction_error_id = l_txn_error_id ;
3643: END IF ;
3644: --For better error reporting
3645: x_return_status := fnd_api.g_ret_sts_error;
3646:
3647: x_error_msg := l_error_msg || SQLERRM;
3648: END process_srl_nosrl_xorg_txn ;
3649: --------------------------------------------------------------------------------------
4149: l_error_id number;
4150: l_source_type varchar2(20);
4151: l_error_message varchar2(2000);
4152:
4153: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4154: l_msg_count number;
4155: l_msg_data varchar2(2000);
4156:
4157: BEGIN
4198: WHEN no_data_found THEN
4199:
4200: csi_transactions_pvt.create_txn_error (
4201: p_api_version => 1.0,
4202: p_init_msg_list => fnd_api.g_true,
4203: p_commit => fnd_api.g_false,
4204: p_validation_level => fnd_api.g_valid_level_full,
4205: p_txn_error_rec => l_error_rec,
4206: x_transaction_error_id => l_error_id,
4199:
4200: csi_transactions_pvt.create_txn_error (
4201: p_api_version => 1.0,
4202: p_init_msg_list => fnd_api.g_true,
4203: p_commit => fnd_api.g_false,
4204: p_validation_level => fnd_api.g_valid_level_full,
4205: p_txn_error_rec => l_error_rec,
4206: x_transaction_error_id => l_error_id,
4207: x_return_status => l_return_status,
4200: csi_transactions_pvt.create_txn_error (
4201: p_api_version => 1.0,
4202: p_init_msg_list => fnd_api.g_true,
4203: p_commit => fnd_api.g_false,
4204: p_validation_level => fnd_api.g_valid_level_full,
4205: p_txn_error_rec => l_error_rec,
4206: x_transaction_error_id => l_error_id,
4207: x_return_status => l_return_status,
4208: x_msg_count => l_msg_count,
4207: x_return_status => l_return_status,
4208: x_msg_count => l_msg_count,
4209: x_msg_data => l_msg_data);
4210:
4211: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4212: RAISE fnd_api.g_exc_error;
4213: END IF;
4214:
4215: debug(' new error logged. transaction_error_id : '||l_error_id);
4208: x_msg_count => l_msg_count,
4209: x_msg_data => l_msg_data);
4210:
4211: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4212: RAISE fnd_api.g_exc_error;
4213: END IF;
4214:
4215: debug(' new error logged. transaction_error_id : '||l_error_id);
4216: END;
4215: debug(' new error logged. transaction_error_id : '||l_error_id);
4216: END;
4217:
4218: EXCEPTION
4219: WHEN fnd_api.g_exc_error THEN
4220: NULL;
4221: -- i mean if you can't log the error then what else will you do.
4222: -- just leave the transaction as pending so that atleast the next run
4223: -- will pick it yp
4351: debug(' param.inv_item_id : '||p_inventory_item_id);
4352:
4353: l_api_name :='cse_asset_move_pkg.process_move_transactions';
4354: l_api_version := 1.0;
4355: l_commit := fnd_api.g_false;
4356: l_init_msg_list := fnd_api.g_true;
4357: l_validation_level := fnd_api.g_valid_level_full;
4358: l_sysdate := sysdate ;
4359:
4352:
4353: l_api_name :='cse_asset_move_pkg.process_move_transactions';
4354: l_api_version := 1.0;
4355: l_commit := fnd_api.g_false;
4356: l_init_msg_list := fnd_api.g_true;
4357: l_validation_level := fnd_api.g_valid_level_full;
4358: l_sysdate := sysdate ;
4359:
4360: FOR pending_rec IN csi_pending_txn_cur (p_inventory_item_id)
4353: l_api_name :='cse_asset_move_pkg.process_move_transactions';
4354: l_api_version := 1.0;
4355: l_commit := fnd_api.g_false;
4356: l_init_msg_list := fnd_api.g_true;
4357: l_validation_level := fnd_api.g_valid_level_full;
4358: l_sysdate := sysdate ;
4359:
4360: FOR pending_rec IN csi_pending_txn_cur (p_inventory_item_id)
4361: LOOP
4390: p_txn_context => l_txn_context,
4391: px_action => l_txn_action,
4392: x_instance_tbl => l_instance_tbl,
4393: x_return_status => l_return_status);
4394: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4395: RAISE fnd_api.g_exc_error;
4396: END IF;
4397: END IF;
4398: END IF;
4391: px_action => l_txn_action,
4392: x_instance_tbl => l_instance_tbl,
4393: x_return_status => l_return_status);
4394: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4395: RAISE fnd_api.g_exc_error;
4396: END IF;
4397: END IF;
4398: END IF;
4399:
4406: complete_csi_txn(
4407: p_csi_txn_id => pending_rec.transaction_id,
4408: x_return_status => l_return_status,
4409: x_error_message => l_error_message);
4410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4411: RAISE fnd_api.g_exc_error;
4412: END IF;
4413: END IF;
4414:
4407: p_csi_txn_id => pending_rec.transaction_id,
4408: x_return_status => l_return_status,
4409: x_error_message => l_error_message);
4410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4411: RAISE fnd_api.g_exc_error;
4412: END IF;
4413: END IF;
4414:
4415: IF l_txn_action = 'MOVE' THEN
4475: END IF;
4476:
4477: END IF;
4478:
4479: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4480: RAISE fnd_api.g_exc_error;
4481: END IF;
4482:
4483: IF l_txn_action = 'COMPLETE' THEN
4476:
4477: END IF;
4478:
4479: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4480: RAISE fnd_api.g_exc_error;
4481: END IF;
4482:
4483: IF l_txn_action = 'COMPLETE' THEN
4484: l_total_skipped_txns := l_total_skipped_txns + 1;
4492: WHEN skip_txn THEN
4493:
4494: l_total_skipped_txns := l_total_skipped_txns + 1;
4495:
4496: WHEN fnd_api.g_exc_error THEN
4497:
4498: l_total_failure_txns := l_total_failure_txns + 1;
4499: l_failure_txn_tbl(l_total_failure_txns).txn_id := pending_rec.transaction_id;
4500: l_failure_txn_tbl(l_total_failure_txns).txn_action := l_txn_action;