24: x_return_status OUT nocopy varchar2,
25: x_error_message OUT nocopy varchar2)
26: IS
27: l_txn_rec csi_datastructures_pub.transaction_rec;
28: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
29: l_msg_count number;
30: l_msg_data varchar2(2000);
31: BEGIN
32:
29: l_msg_count number;
30: l_msg_data varchar2(2000);
31: BEGIN
32:
33: x_return_status := fnd_api.g_ret_sts_success;
34:
35: l_txn_rec.transaction_id := p_csi_txn_id;
36: l_txn_rec.source_group_ref_id := fnd_global.conc_request_id;
37: l_txn_rec.transaction_status_code := cse_datastructures_pub.g_complete ;
42: WHERE transaction_id = l_txn_rec.transaction_id;
43:
44: csi_transactions_pvt.update_transactions(
45: p_api_version => 1.0,
46: p_init_msg_list => fnd_api.g_true,
47: p_commit => fnd_api.g_false,
48: p_validation_level => fnd_api.g_valid_level_full,
49: p_transaction_rec => l_txn_rec,
50: x_return_status => l_return_status,
43:
44: csi_transactions_pvt.update_transactions(
45: p_api_version => 1.0,
46: p_init_msg_list => fnd_api.g_true,
47: p_commit => fnd_api.g_false,
48: p_validation_level => fnd_api.g_valid_level_full,
49: p_transaction_rec => l_txn_rec,
50: x_return_status => l_return_status,
51: x_msg_count => l_msg_count,
44: csi_transactions_pvt.update_transactions(
45: p_api_version => 1.0,
46: p_init_msg_list => fnd_api.g_true,
47: p_commit => fnd_api.g_false,
48: p_validation_level => fnd_api.g_valid_level_full,
49: p_transaction_rec => l_txn_rec,
50: x_return_status => l_return_status,
51: x_msg_count => l_msg_count,
52: x_msg_data => l_msg_data);
50: x_return_status => l_return_status,
51: x_msg_count => l_msg_count,
52: x_msg_data => l_msg_data);
53:
54: IF l_return_status <> fnd_api.g_ret_sts_success THEN
55: RAISE fnd_api.g_exc_error;
56: END IF;
57:
58: EXCEPTION
51: x_msg_count => l_msg_count,
52: x_msg_data => l_msg_data);
53:
54: IF l_return_status <> fnd_api.g_ret_sts_success THEN
55: RAISE fnd_api.g_exc_error;
56: END IF;
57:
58: EXCEPTION
59: WHEN fnd_api.g_exc_error THEN
55: RAISE fnd_api.g_exc_error;
56: END IF;
57:
58: EXCEPTION
59: WHEN fnd_api.g_exc_error THEN
60: x_return_status := fnd_api.g_ret_sts_error;
61: END complete_csi_txn;
62:
63: PROCEDURE create_expitem(
56: END IF;
57:
58: EXCEPTION
59: WHEN fnd_api.g_exc_error THEN
60: x_return_status := fnd_api.g_ret_sts_error;
61: END complete_csi_txn;
62:
63: PROCEDURE create_expitem(
64: x_return_status OUT NOCOPY VARCHAR2,
67: p_task_num IN VARCHAR2 ,
68: p_conc_request_id IN NUMBER )
69: IS
70: l_Api_Version NUMBER :=1;
71: l_Commit VARCHAR2(1) := FND_API.G_False;
72: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
73: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
74: l_Msg_Data VARCHAR2(2000);
75: l_Msg_Count NUMBER;
68: p_conc_request_id IN NUMBER )
69: IS
70: l_Api_Version NUMBER :=1;
71: l_Commit VARCHAR2(1) := FND_API.G_False;
72: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
73: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
74: l_Msg_Data VARCHAR2(2000);
75: l_Msg_Count NUMBER;
76: l_Return_Status VARCHAR2(1);
69: IS
70: l_Api_Version NUMBER :=1;
71: l_Commit VARCHAR2(1) := FND_API.G_False;
72: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
73: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
74: l_Msg_Data VARCHAR2(2000);
75: l_Msg_Count NUMBER;
76: l_Return_Status VARCHAR2(1);
77: l_Error_Message VARCHAR2(2000);
239: x_error_message => l_error_message);
240:
241: IF NOT l_Return_Status = g_ret_sts_success THEN
242: debug('error interfacing nl_to_pa '||substr(l_error_message,1,200));
243: RAISE fnd_api.g_exc_error;
244: END IF;
245:
246: ELSE
247:
249: p_csi_txn_id => inservice_txn_rec.transaction_id,
250: x_return_status => l_return_status,
251: x_error_message => l_error_message);
252:
253: IF l_return_status <> fnd_api.g_ret_sts_success THEN
254: RAISE fnd_api.g_exc_error;
255: END IF;
256:
257: END IF;
250: x_return_status => l_return_status,
251: x_error_message => l_error_message);
252:
253: IF l_return_status <> fnd_api.g_ret_sts_success THEN
254: RAISE fnd_api.g_exc_error;
255: END IF;
256:
257: END IF;
258:
259: END LOOP;
260:
261:
262: EXCEPTION
263: WHEN fnd_api.g_exc_error THEN
264: rollback to start_csi_transaction;
265:
266: x_return_status := g_ret_sts_error;
267:
420: l_err_stage varchar2(640);
421: l_err_code varchar2(640);
422: l_rejection_code varchar2(640);
423: l_error_message varchar2(2000);
424: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
425: l_msg_count number;
426: l_msg_data varchar2(4000);
427: l_hook_used number;
428:
426: l_msg_data varchar2(4000);
427: l_hook_used number;
428:
429: l_Api_Version NUMBER :=1;
430: l_Commit VARCHAR2(1) := FND_API.G_False;
431: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
432: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
433: l_Msg_Text VARCHAR2(4000);
434: l_Transaction_Error_Id NUMBER;
427: l_hook_used number;
428:
429: l_Api_Version NUMBER :=1;
430: l_Commit VARCHAR2(1) := FND_API.G_False;
431: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
432: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
433: l_Msg_Text VARCHAR2(4000);
434: l_Transaction_Error_Id NUMBER;
435: l_txn_error_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_Error_Rec;
428:
429: l_Api_Version NUMBER :=1;
430: l_Commit VARCHAR2(1) := FND_API.G_False;
431: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
432: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
433: l_Msg_Text VARCHAR2(4000);
434: l_Transaction_Error_Id NUMBER;
435: l_txn_error_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_Error_Rec;
436:
461: AND pal.project_asset_id >= 1);
462:
463: BEGIN
464:
465: x_return_status := fnd_api.g_ret_sts_success;
466: x_processed_flag := 'N';
467:
468: debug('Inside API create_project_asset');
469:
548: debug('processing_mode : CREATE');
549:
550: l_asset_attrib_rec.Transaction_ID :=p_csi_txn_id;
551:
552: l_error_message := fnd_api.g_miss_char;
553:
554: cse_asset_client_ext_stub.get_asset_name(
555: p_asset_attrib_rec => l_asset_attrib_rec,
556: x_asset_name => l_asset_name,
556: x_asset_name => l_asset_name,
557: x_hook_used => l_hook_used,
558: x_error_msg => l_error_message);
559:
560: IF nvl(l_error_message,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
561: x_error_message := l_error_message; --- Added for bug 6030501
562: RAISE fnd_api.g_exc_error;
563: END IF;
564:
558: x_error_msg => l_error_message);
559:
560: IF nvl(l_error_message,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
561: x_error_message := l_error_message; --- Added for bug 6030501
562: RAISE fnd_api.g_exc_error;
563: END IF;
564:
565: SELECT csi_pa_interface_s.nextval
566: INTO l_suffix
658: p_asset_attrib_rec => l_asset_attrib_rec,
659: x_error_msg => l_error_message,
660: x_return_status => l_return_status);
661:
662: IF l_return_status <> fnd_api.g_ret_sts_success THEN
663: x_error_message := l_error_message; --- Added for bug 6030501
664: RAISE fnd_api.g_exc_error;
665: END IF;
666:
660: x_return_status => l_return_status);
661:
662: IF l_return_status <> fnd_api.g_ret_sts_success THEN
663: x_error_message := l_error_message; --- Added for bug 6030501
664: RAISE fnd_api.g_exc_error;
665: END IF;
666:
667: debug(' book_type_code : '||l_book_type_code);
668:
666:
667: debug(' book_type_code : '||l_book_type_code);
668:
669:
670: IF l_return_status <> fnd_api.g_ret_sts_success THEN
671: RAISE fnd_api.g_exc_error;
672: END IF;
673:
674: debug(' book_type_code : '||l_book_type_code);
667: debug(' book_type_code : '||l_book_type_code);
668:
669:
670: IF l_return_status <> fnd_api.g_ret_sts_success THEN
671: RAISE fnd_api.g_exc_error;
672: END IF;
673:
674: debug(' book_type_code : '||l_book_type_code);
675:
672: END IF;
673:
674: debug(' book_type_code : '||l_book_type_code);
675:
676: l_error_message := fnd_api.g_miss_char;
677: cse_asset_client_ext_stub.get_deprn_expense_ccid(
678: p_asset_attrib_rec => l_asset_attrib_rec,
679: x_deprn_expense_ccid => l_deprn_expense_ccid,
680: x_hook_used => l_hook_used,
679: x_deprn_expense_ccid => l_deprn_expense_ccid,
680: x_hook_used => l_hook_used,
681: x_error_msg => l_error_message);
682:
683: IF nvl(l_error_message,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
684: x_error_message := l_error_message; --- Added for bug 6030501
685: RAISE fnd_api.g_exc_error;
686: END IF;
687:
681: x_error_msg => l_error_message);
682:
683: IF nvl(l_error_message,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
684: x_error_message := l_error_message; --- Added for bug 6030501
685: RAISE fnd_api.g_exc_error;
686: END IF;
687:
688: IF l_hook_used = 0 THEN
689: ipa_client_extension_pkg.get_default_deprn_expense(
752:
753: l_msg_data := fnd_message.get;
754: debug('l_msg_data : '||l_msg_data);
755:
756: IF l_return_status <> fnd_api.g_ret_sts_success THEN
757: x_error_message := l_msg_data; --- Added for bug 6030501
758: RAISE fnd_api.g_exc_error;
759: END IF;
760:
754: debug('l_msg_data : '||l_msg_data);
755:
756: IF l_return_status <> fnd_api.g_ret_sts_success THEN
757: x_error_message := l_msg_data; --- Added for bug 6030501
758: RAISE fnd_api.g_exc_error;
759: END IF;
760:
761: END IF; -- l_asset_key_required
762:
766: debug('Inside API pa_project_assets_pub.add_project_asset');
767:
768: pa_project_assets_pub.add_project_asset(
769: p_api_version_number => 1.0,
770: p_init_msg_list => fnd_api.g_true,
771: p_pm_product_code => 'CSE',
772: p_pm_project_reference => l_project_num,
773: p_pa_project_id => p_project_id,
774: p_pa_asset_name => l_asset_name,
800:
801: l_msg_data := fnd_message.get;
802: debug('l_msg_data : '||l_msg_data);
803:
804: IF l_return_status <> fnd_api.g_ret_sts_success THEN
805: debug('Error in API pa_project_assets_pub.add_project_asset'); -- Added for Bug 6152305
806: -- x_error_message := l_msg_data; --- Added for bug 6030501
807: --debug('l_msg_data : '||l_msg_data);
808: RAISE fnd_api.g_exc_error;
804: IF l_return_status <> fnd_api.g_ret_sts_success THEN
805: debug('Error in API pa_project_assets_pub.add_project_asset'); -- Added for Bug 6152305
806: -- x_error_message := l_msg_data; --- Added for bug 6030501
807: --debug('l_msg_data : '||l_msg_data);
808: RAISE fnd_api.g_exc_error;
809: END IF;
810:
811: debug(' pa_project_asset_id : '||l_pa_project_asset_id);
812:
813: debug('Inside API pa_project_assets_pub.add_asset_assignment');
814:
815: pa_project_assets_pub.add_asset_assignment(
816: p_api_version_number => 1.0,
817: p_init_msg_list => fnd_api.g_true,
818: p_pm_product_code => 'CSE',
819: p_pm_project_reference => l_project_num,
820: p_pa_project_id => p_project_id,
821: p_pm_task_reference => l_task_num,
832: p_return_status => l_return_status,
833: p_msg_count => l_msg_count,
834: p_msg_data => l_msg_data);
835:
836: IF l_return_status <> fnd_api.g_ret_sts_success THEN
837: debug('Error in API pa_project_assets_pub.add_asset_assignment'); -- Added for Bug 6152305
838: --x_error_message := l_msg_data; --- Added for bug 6030501
839: RAISE fnd_api.g_exc_error;
840: END IF;
835:
836: IF l_return_status <> fnd_api.g_ret_sts_success THEN
837: debug('Error in API pa_project_assets_pub.add_asset_assignment'); -- Added for Bug 6152305
838: --x_error_message := l_msg_data; --- Added for bug 6030501
839: RAISE fnd_api.g_exc_error;
840: END IF;
841:
842: x_processed_flag := 'Y';
843:
866:
867: x_project_asset_id := l_pa_project_asset_id;
868:
869: EXCEPTION
870: WHEN fnd_api.g_exc_error THEN
871: ----- Code start for bug 6030501
872: IF x_error_message IS NULL then
873: x_error_message := nvl(cse_util_pkg.dump_error_stack, l_error_message);
874: END IF;
871: ----- Code start for bug 6030501
872: IF x_error_message IS NULL then
873: x_error_message := nvl(cse_util_pkg.dump_error_stack, l_error_message);
874: END IF;
875: x_return_status := fnd_api.g_ret_sts_error;
876:
877: debug(' Error Message '||x_error_message);
878: l_txn_error_rec := CSE_UTIL_PKG.Init_Txn_Error_Rec;
879: l_txn_error_rec.ERROR_TEXT := x_error_message;
893: x_msg_data => l_Msg_Data,
894: x_transaction_error_id => l_Transaction_Error_Id);
895:
896: -- x_error_message := nvl(cse_util_pkg.dump_error_stack, l_error_message);
897: x_return_status := fnd_api.g_ret_sts_error;
898:
899: ---- Code end for bug 6030501
900: END create_project_asset ;
901:
907: p_task_id IN number,
908: P_conc_request_id IN NUMBER)
909: IS
910:
911: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
912: l_error_message varchar2(2000);
913: l_project_asset_id number;
914: l_fa_group_by varchar2(30);
915: l_serial_number varchar2(200);
947: AND cii.instance_id = ciih.instance_id
948: AND (ciih.new_operational_status_code = 'IN_SERVICE' OR cii.operational_status_code = 'IN_SERVICE');
949:
950: l_Api_Version NUMBER :=1;
951: l_Commit VARCHAR2(1) := FND_API.G_False;
952: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
953: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
954: l_Msg_Text VARCHAR2(4000);
955: l_Transaction_Error_Id NUMBER;
948: AND (ciih.new_operational_status_code = 'IN_SERVICE' OR cii.operational_status_code = 'IN_SERVICE');
949:
950: l_Api_Version NUMBER :=1;
951: l_Commit VARCHAR2(1) := FND_API.G_False;
952: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
953: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
954: l_Msg_Text VARCHAR2(4000);
955: l_Transaction_Error_Id NUMBER;
956: l_txn_error_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_Error_Rec;
949:
950: l_Api_Version NUMBER :=1;
951: l_Commit VARCHAR2(1) := FND_API.G_False;
952: l_Validation_Level NUMBER := FND_API.G_Valid_Level_Full;
953: l_Init_Msg_List VARCHAR2(1) := FND_API.G_True;
954: l_Msg_Text VARCHAR2(4000);
955: l_Transaction_Error_Id NUMBER;
956: l_txn_error_rec CSI_DATASTRUCTURES_PUB.TRANSACTION_Error_Rec;
957: l_msg_count number;
1008: AND fcp.calendar_type = fbc.deprn_calendar
1009: AND trunc(insrv_txn_rec.dpis,'DDD') BETWEEN fcp.start_date AND fcp.end_date;
1010: EXCEPTION
1011: WHEN no_data_found THEN
1012: RAISE fnd_api.g_exc_error;
1013: END;
1014: ELSE
1015: l_dpis := insrv_txn_rec.dpis;
1016: END IF;
1039: x_return_status => l_return_status,
1040: x_error_message => l_error_message,
1041: P_conc_request_id => P_conc_request_id);
1042:
1043: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1044: RAISE fnd_api.g_exc_error;
1045: END IF;
1046:
1047: IF l_processed_flag = 'Y' THEN
1040: x_error_message => l_error_message,
1041: P_conc_request_id => P_conc_request_id);
1042:
1043: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1044: RAISE fnd_api.g_exc_error;
1045: END IF;
1046:
1047: IF l_processed_flag = 'Y' THEN
1048: l_process_flag := TRUE;
1056: p_csi_txn_id => insrv_txn_rec.transaction_id,
1057: x_return_status => l_return_status,
1058: x_error_message => l_error_message);
1059:
1060: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1061: RAISE fnd_api.g_exc_error;
1062: END IF;
1063:
1064: debug('csi transaction interfaced to project asset successfully.');
1057: x_return_status => l_return_status,
1058: x_error_message => l_error_message);
1059:
1060: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1061: RAISE fnd_api.g_exc_error;
1062: END IF;
1063:
1064: debug('csi transaction interfaced to project asset successfully.');
1065:
1067:
1068: END IF;
1069:
1070: EXCEPTION
1071: WHEN fnd_api.g_exc_error THEN
1072: debug(l_error_message);
1073: rollback to insrv_txn;
1074: debug(' Error Message '||l_error_message);
1075: l_txn_error_rec := CSE_UTIL_PKG.Init_Txn_Error_Rec;
1101:
1102: END LOOP;
1103: EXCEPTION
1104: WHEN others THEN
1105: --x_return_status := fnd_api.g_ret_sts_error;
1106: retcode := -1;
1107: errbuf := sqlerrm;
1108: END create_pa_asset_headers;
1109:
1147: AND source_type = 'FA_UNIT_ADJUSTMENT_NORMAL';
1148:
1149: BEGIN
1150:
1151: x_return_status := fnd_api.g_ret_sts_success;
1152: x_error_message := NULL;
1153:
1154: debug('inside api cse_fac_inservice_pkg.update_units');
1155:
1246: l_inst_asset_rec.instance_asset_id := l_instance_asset_id;
1247: l_inst_asset_rec.object_version_number := l_object_version_number;
1248: l_inst_asset_rec.update_status := cse_datastructures_pub.g_in_service;
1249: l_inst_asset_rec.active_end_date := null;
1250: l_inst_asset_rec.check_for_instance_expiry := fnd_api.g_false;
1251:
1252: debug(' instance_asset_id : '||l_inst_asset_rec.instance_asset_id);
1253: debug(' asset_quantity : '||l_inst_asset_rec.asset_quantity);
1254:
1255: debug('calling csi_asset_pvt.update_instance_asset');
1256:
1257: csi_asset_pvt.update_instance_asset(
1258: p_api_version => 1.0,
1259: p_commit => fnd_api.g_false,
1260: p_init_msg_list => fnd_api.g_true,
1261: p_validation_level => fnd_api.g_valid_level_full,
1262: p_instance_asset_rec => l_inst_asset_rec,
1263: p_txn_rec => l_csi_txn_rec,
1256:
1257: csi_asset_pvt.update_instance_asset(
1258: p_api_version => 1.0,
1259: p_commit => fnd_api.g_false,
1260: p_init_msg_list => fnd_api.g_true,
1261: p_validation_level => fnd_api.g_valid_level_full,
1262: p_instance_asset_rec => l_inst_asset_rec,
1263: p_txn_rec => l_csi_txn_rec,
1264: x_return_status => l_return_status,
1257: csi_asset_pvt.update_instance_asset(
1258: p_api_version => 1.0,
1259: p_commit => fnd_api.g_false,
1260: p_init_msg_list => fnd_api.g_true,
1261: p_validation_level => fnd_api.g_valid_level_full,
1262: p_instance_asset_rec => l_inst_asset_rec,
1263: p_txn_rec => l_csi_txn_rec,
1264: x_return_status => l_return_status,
1265: x_msg_count => l_msg_count,
1268: p_asset_count_rec => l_asset_count_rec,
1269: p_asset_id_tbl => l_asset_id_tbl,
1270: p_asset_loc_tbl => l_asset_loc_tbl);
1271:
1272: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1273: RAISE fnd_api.g_exc_error;
1274: END IF;
1275:
1276: END IF;
1269: p_asset_id_tbl => l_asset_id_tbl,
1270: p_asset_loc_tbl => l_asset_loc_tbl);
1271:
1272: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1273: RAISE fnd_api.g_exc_error;
1274: END IF;
1275:
1276: END IF;
1277:
1285: x_new_dist_id => l_new_dist_id,
1286: x_return_status => l_return_status,
1287: x_error_msg => l_error_message);
1288:
1289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1290: RAISE fnd_api.g_exc_error;
1291: END IF;
1292:
1293: UPDATE csi_txn_errors
1286: x_return_status => l_return_status,
1287: x_error_msg => l_error_message);
1288:
1289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1290: RAISE fnd_api.g_exc_error;
1291: END IF;
1292:
1293: UPDATE csi_txn_errors
1294: SET processed_flag = 'S',
1299:
1300: commit work;
1301:
1302: EXCEPTION
1303: WHEN fnd_api.g_exc_error THEN
1304:
1305: rollback to eachtxn;
1306:
1307: UPDATE csi_txn_errors
1317: END LOOP;
1318:
1319: EXCEPTION
1320: WHEN OTHERS THEN
1321: x_return_status := fnd_api.g_ret_sts_unexp_error;
1322: x_error_message := sqlerrm;
1323: debug(' ERROR : '||x_error_message);
1324: END Update_Units;
1325: