57: WHERE transaction_type_id = 123
58: AND source_line_ref = 'MASS_ADD_ID'
59: AND source_line_ref_id = p_mass_addition_id
60: ORDER by source_transaction_date desc;
61: l_csi_txn_id number := fnd_api.g_miss_num;
62: BEGIN
63: IF p_mass_addition_id is not null THEN
64: FOR ma_txn_rec IN ma_txn_cur
65: LOOP
79: l_asset_count_rec csi_asset_pvt.asset_count_rec;
80: l_asset_id_tbl csi_asset_pvt.asset_id_tbl;
81: l_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
82:
83: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
84: l_msg_count number;
85: l_msg_data varchar2(2000);
86: BEGIN
87:
84: l_msg_count number;
85: l_msg_data varchar2(2000);
86: BEGIN
87:
88: x_return_status := fnd_api.g_ret_sts_success;
89:
90: px_inst_asset_rec.fa_sync_flag := 'Y';
91:
92: csi_asset_pvt.create_instance_asset(
90: px_inst_asset_rec.fa_sync_flag := 'Y';
91:
92: csi_asset_pvt.create_instance_asset(
93: p_api_version => 1.0 ,
94: p_commit => fnd_api.g_false,
95: p_init_msg_list => fnd_api.g_true,
96: p_validation_level => fnd_api.g_valid_level_full,
97: p_instance_asset_rec => px_inst_asset_rec,
98: p_txn_rec => px_csi_txn_rec,
91:
92: csi_asset_pvt.create_instance_asset(
93: p_api_version => 1.0 ,
94: p_commit => fnd_api.g_false,
95: p_init_msg_list => fnd_api.g_true,
96: p_validation_level => fnd_api.g_valid_level_full,
97: p_instance_asset_rec => px_inst_asset_rec,
98: p_txn_rec => px_csi_txn_rec,
99: x_return_status => l_return_status,
92: csi_asset_pvt.create_instance_asset(
93: p_api_version => 1.0 ,
94: p_commit => fnd_api.g_false,
95: p_init_msg_list => fnd_api.g_true,
96: p_validation_level => fnd_api.g_valid_level_full,
97: p_instance_asset_rec => px_inst_asset_rec,
98: p_txn_rec => px_csi_txn_rec,
99: x_return_status => l_return_status,
100: x_msg_count => l_msg_count,
103: p_asset_count_rec => l_asset_count_rec,
104: p_asset_id_tbl => l_asset_id_tbl,
105: p_asset_loc_tbl => l_asset_loc_tbl);
106:
107: IF l_return_status <> fnd_api.g_ret_sts_success THEN
108: RAISE fnd_api.g_exc_error;
109: END IF;
110:
111: EXCEPTION
104: p_asset_id_tbl => l_asset_id_tbl,
105: p_asset_loc_tbl => l_asset_loc_tbl);
106:
107: IF l_return_status <> fnd_api.g_ret_sts_success THEN
108: RAISE fnd_api.g_exc_error;
109: END IF;
110:
111: EXCEPTION
112: WHEN fnd_api.g_exc_error THEN
108: RAISE fnd_api.g_exc_error;
109: END IF;
110:
111: EXCEPTION
112: WHEN fnd_api.g_exc_error THEN
113: x_return_status := fnd_api.g_ret_sts_error;
114: END create_inst_asset;
115:
116:
109: END IF;
110:
111: EXCEPTION
112: WHEN fnd_api.g_exc_error THEN
113: x_return_status := fnd_api.g_ret_sts_error;
114: END create_inst_asset;
115:
116:
117: PROCEDURE update_inst_asset(
124: l_asset_count_rec csi_asset_pvt.asset_count_rec;
125: l_asset_id_tbl csi_asset_pvt.asset_id_tbl;
126: l_asset_loc_tbl csi_asset_pvt.asset_loc_tbl;
127:
128: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
129: l_msg_count number;
130: l_msg_data varchar2(2000);
131: BEGIN
132:
129: l_msg_count number;
130: l_msg_data varchar2(2000);
131: BEGIN
132:
133: x_return_status := fnd_api.g_ret_sts_success;
134:
135: px_inst_asset_rec.fa_sync_flag := 'Y';
136: px_inst_asset_rec.check_for_instance_expiry := fnd_api.g_false;
137:
132:
133: x_return_status := fnd_api.g_ret_sts_success;
134:
135: px_inst_asset_rec.fa_sync_flag := 'Y';
136: px_inst_asset_rec.check_for_instance_expiry := fnd_api.g_false;
137:
138: csi_asset_pvt.update_instance_asset (
139: p_api_version => 1.0,
140: p_commit => fnd_api.g_false,
136: px_inst_asset_rec.check_for_instance_expiry := fnd_api.g_false;
137:
138: csi_asset_pvt.update_instance_asset (
139: p_api_version => 1.0,
140: p_commit => fnd_api.g_false,
141: p_init_msg_list => fnd_api.g_true,
142: p_validation_level => fnd_api.g_valid_level_full,
143: p_instance_asset_rec => px_inst_asset_rec,
144: p_txn_rec => px_csi_txn_rec,
137:
138: csi_asset_pvt.update_instance_asset (
139: p_api_version => 1.0,
140: p_commit => fnd_api.g_false,
141: p_init_msg_list => fnd_api.g_true,
142: p_validation_level => fnd_api.g_valid_level_full,
143: p_instance_asset_rec => px_inst_asset_rec,
144: p_txn_rec => px_csi_txn_rec,
145: x_return_status => l_return_status,
138: csi_asset_pvt.update_instance_asset (
139: p_api_version => 1.0,
140: p_commit => fnd_api.g_false,
141: p_init_msg_list => fnd_api.g_true,
142: p_validation_level => fnd_api.g_valid_level_full,
143: p_instance_asset_rec => px_inst_asset_rec,
144: p_txn_rec => px_csi_txn_rec,
145: x_return_status => l_return_status,
146: x_msg_count => l_msg_count,
149: p_asset_count_rec => l_asset_count_rec,
150: p_asset_id_tbl => l_asset_id_tbl,
151: p_asset_loc_tbl => l_asset_loc_tbl);
152:
153: IF l_return_status <> fnd_api.g_ret_sts_success THEN
154: RAISE fnd_api.g_exc_error;
155: END IF;
156:
157: EXCEPTION
150: p_asset_id_tbl => l_asset_id_tbl,
151: p_asset_loc_tbl => l_asset_loc_tbl);
152:
153: IF l_return_status <> fnd_api.g_ret_sts_success THEN
154: RAISE fnd_api.g_exc_error;
155: END IF;
156:
157: EXCEPTION
158: WHEN fnd_api.g_exc_error THEN
154: RAISE fnd_api.g_exc_error;
155: END IF;
156:
157: EXCEPTION
158: WHEN fnd_api.g_exc_error THEN
159: x_return_status := fnd_api.g_ret_sts_error;
160: END update_inst_asset;
161:
162: FUNCTION addition(
155: END IF;
156:
157: EXCEPTION
158: WHEN fnd_api.g_exc_error THEN
159: x_return_status := fnd_api.g_ret_sts_error;
160: END update_inst_asset;
161:
162: FUNCTION addition(
163: p_trans_rec IN fa_api_types.trans_rec_type,
176: l_inst_asset_query_rec csi_datastructures_pub.instance_asset_query_rec;
177: l_inst_asset_tbl csi_datastructures_pub.instance_asset_header_tbl;
178: l_time_stamp date := null;
179:
180: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
181: l_msg_count number;
182: l_msg_data varchar2(2000);
183:
184: CURSOR cia_cur(p_mass_addition_id IN number) IS
257: px_csi_txn_rec => l_csi_txn_rec,
258: px_inst_asset_rec => l_inst_asset_rec,
259: x_return_status => l_return_status);
260:
261: IF l_return_status <> fnd_api.g_ret_sts_success THEN
262: RAISE fnd_api.g_exc_error;
263: END IF;
264:
265: END LOOP;
258: px_inst_asset_rec => l_inst_asset_rec,
259: x_return_status => l_return_status);
260:
261: IF l_return_status <> fnd_api.g_ret_sts_success THEN
262: RAISE fnd_api.g_exc_error;
263: END IF;
264:
265: END LOOP;
266:
287: l_inst_asset_query_rec.instance_id := l_instance_id;
288:
289: csi_asset_pvt.get_instance_assets(
290: p_api_version => 1.0,
291: p_commit => fnd_api.g_false,
292: p_init_msg_list => fnd_api.g_true,
293: p_validation_level => fnd_api.g_valid_level_full,
294: p_instance_asset_query_rec => l_inst_asset_query_rec,
295: p_resolve_id_columns => fnd_api.g_false,
288:
289: csi_asset_pvt.get_instance_assets(
290: p_api_version => 1.0,
291: p_commit => fnd_api.g_false,
292: p_init_msg_list => fnd_api.g_true,
293: p_validation_level => fnd_api.g_valid_level_full,
294: p_instance_asset_query_rec => l_inst_asset_query_rec,
295: p_resolve_id_columns => fnd_api.g_false,
296: p_time_stamp => l_time_stamp,
289: csi_asset_pvt.get_instance_assets(
290: p_api_version => 1.0,
291: p_commit => fnd_api.g_false,
292: p_init_msg_list => fnd_api.g_true,
293: p_validation_level => fnd_api.g_valid_level_full,
294: p_instance_asset_query_rec => l_inst_asset_query_rec,
295: p_resolve_id_columns => fnd_api.g_false,
296: p_time_stamp => l_time_stamp,
297: x_instance_asset_tbl => l_inst_asset_tbl,
291: p_commit => fnd_api.g_false,
292: p_init_msg_list => fnd_api.g_true,
293: p_validation_level => fnd_api.g_valid_level_full,
294: p_instance_asset_query_rec => l_inst_asset_query_rec,
295: p_resolve_id_columns => fnd_api.g_false,
296: p_time_stamp => l_time_stamp,
297: x_instance_asset_tbl => l_inst_asset_tbl,
298: x_return_status => l_return_status,
299: x_msg_count => l_msg_count,
298: x_return_status => l_return_status,
299: x_msg_count => l_msg_count,
300: x_msg_data => l_msg_data);
301:
302: IF l_return_status <> fnd_api.g_ret_sts_success THEN
303: RAISE fnd_api.g_exc_error;
304: END IF;
305:
306: IF l_inst_asset_tbl.COUNT = 0 THEN
299: x_msg_count => l_msg_count,
300: x_msg_data => l_msg_data);
301:
302: IF l_return_status <> fnd_api.g_ret_sts_success THEN
303: RAISE fnd_api.g_exc_error;
304: END IF;
305:
306: IF l_inst_asset_tbl.COUNT = 0 THEN
307:
304: END IF;
305:
306: IF l_inst_asset_tbl.COUNT = 0 THEN
307:
308: l_inst_asset_rec.instance_asset_id := fnd_api.g_miss_num; -- Bug 12687801
309: l_inst_asset_rec.fa_asset_id := p_asset_hdr_rec.asset_id;
310: l_inst_asset_rec.fa_book_type_code := p_asset_hdr_rec.book_type_code;
311: l_inst_asset_rec.asset_quantity := p_asset_dist_tbl(1).units_assigned;
312: l_inst_asset_rec.fa_location_id := p_asset_dist_tbl(1).location_ccid;
311: l_inst_asset_rec.asset_quantity := p_asset_dist_tbl(1).units_assigned;
312: l_inst_asset_rec.fa_location_id := p_asset_dist_tbl(1).location_ccid;
313: l_inst_asset_rec.instance_id := l_instance_Id;
314: l_inst_asset_rec.update_status := cse_datastructures_pub.g_in_service;
315: l_inst_asset_rec.check_for_instance_expiry:= fnd_api.g_false;
316:
317: create_inst_asset(
318: px_csi_txn_rec => l_csi_txn_rec,
319: px_inst_asset_rec => l_inst_asset_rec,
318: px_csi_txn_rec => l_csi_txn_rec,
319: px_inst_asset_rec => l_inst_asset_rec,
320: x_return_status => l_return_status);
321:
322: IF l_return_status <> fnd_api.g_ret_sts_success THEN
323: RAISE fnd_api.g_exc_error;
324: END IF;
325:
326: ELSE
319: px_inst_asset_rec => l_inst_asset_rec,
320: x_return_status => l_return_status);
321:
322: IF l_return_status <> fnd_api.g_ret_sts_success THEN
323: RAISE fnd_api.g_exc_error;
324: END IF;
325:
326: ELSE
327:
342: px_csi_txn_rec => l_csi_txn_rec,
343: px_inst_asset_rec => l_inst_asset_rec,
344: x_return_status => l_return_status);
345:
346: IF l_return_status <> fnd_api.g_ret_sts_success THEN
347: RAISE fnd_api.g_exc_error;
348: END IF;
349: ELSE
350: null;
343: px_inst_asset_rec => l_inst_asset_rec,
344: x_return_status => l_return_status);
345:
346: IF l_return_status <> fnd_api.g_ret_sts_success THEN
347: RAISE fnd_api.g_exc_error;
348: END IF;
349: ELSE
350: null;
351: END IF;
406:
407: END IF;
408: RETURN TRUE;
409: EXCEPTION
410: WHEN fnd_api.g_exc_error THEN
411: rollback to cse_addition;
412: RETURN FALSE;
413: WHEN others THEN
414: rollback to cse_addition;
431: null;
432: END IF;
433: RETURN TRUE;
434: EXCEPTION
435: WHEN fnd_api.g_exc_error THEN
436: RETURN FALSE;
437: WHEN others THEN
438: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
439: fnd_message.set_token('API_NAME','csi_fa_integration_grp.unit_adjustment');
466: l_xml_string varchar2(2000);
467: l_error_message varchar2(4000);
468: l_msg_count number;
469: l_msg_data varchar2(4000);
470: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
471:
472: CURSOR exp_inst_cur(p_project_asset_line_id IN number) IS
473: SELECT pei.expenditure_item_id,
474: pei.orig_transaction_reference txn_ref,
582: debug('calling csi_transactions_pvt.create_txn_error to create unit adjustment entry');
583:
584: csi_transactions_pvt.create_txn_error(
585: p_api_version => 1.0,
586: p_init_msg_list => fnd_api.g_true,
587: p_commit => fnd_api.g_false,
588: p_validation_level => fnd_api.g_valid_level_full,
589: p_txn_error_rec => l_txn_error_rec,
590: x_return_status => l_return_status,
583:
584: csi_transactions_pvt.create_txn_error(
585: p_api_version => 1.0,
586: p_init_msg_list => fnd_api.g_true,
587: p_commit => fnd_api.g_false,
588: p_validation_level => fnd_api.g_valid_level_full,
589: p_txn_error_rec => l_txn_error_rec,
590: x_return_status => l_return_status,
591: x_msg_count => l_msg_count,
584: csi_transactions_pvt.create_txn_error(
585: p_api_version => 1.0,
586: p_init_msg_list => fnd_api.g_true,
587: p_commit => fnd_api.g_false,
588: p_validation_level => fnd_api.g_valid_level_full,
589: p_txn_error_rec => l_txn_error_rec,
590: x_return_status => l_return_status,
591: x_msg_count => l_msg_count,
592: x_msg_data => l_msg_data,
602:
603: RETURN TRUE;
604:
605: EXCEPTION
606: WHEN fnd_api.g_exc_error THEN
607: RETURN FALSE;
608: WHEN others THEN
609: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
610: fnd_message.set_token('API_NAME','csi_fa_integration_grp.adjustment');
625: null;
626: END IF;
627: RETURN TRUE;
628: EXCEPTION
629: WHEN fnd_api.g_exc_error THEN
630: RETURN FALSE;
631: WHEN others THEN
632: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
633: fnd_message.set_token('API_NAME','csi_fa_integration_grp.transfer');
643: p_retirement_date IN date,
644: p_retirement_units IN number)
645: RETURN boolean
646: IS
647: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
648: l_error_message varchar2(2000);
649: BEGIN
650: IF is_oat_enabled THEN
651: null;
651: null;
652: END IF;
653: RETURN TRUE;
654: EXCEPTION
655: WHEN fnd_api.g_exc_error THEN
656: RETURN FALSE;
657: WHEN others THEN
658: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
659: fnd_message.set_token('API_NAME','csi_fa_integration_grp.retire');
669: p_reinstatement_date IN date,
670: p_reinstatement_units IN number)
671: RETURN boolean
672: IS
673: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
674: l_error_message varchar2(2000);
675: BEGIN
676: IF is_oat_enabled THEN
677: -- invoke oat routines
684: p_trans_by => fnd_global.user_id,
685: x_return_status => l_return_status,
686: x_error_message => l_error_message);
687:
688: IF l_return_status <> fnd_api.g_ret_sts_success THEN
689: RAISE fnd_api.g_exc_error;
690: END IF;
691:
692: END IF;
685: x_return_status => l_return_status,
686: x_error_message => l_error_message);
687:
688: IF l_return_status <> fnd_api.g_ret_sts_success THEN
689: RAISE fnd_api.g_exc_error;
690: END IF;
691:
692: END IF;
693: RETURN TRUE;
691:
692: END IF;
693: RETURN TRUE;
694: EXCEPTION
695: WHEN fnd_api.g_exc_error THEN
696: RETURN FALSE;
697: WHEN others THEN
698: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
699: fnd_message.set_token('API_NAME','csi_fa_integration_grp.reinstate');