FA Asset Update API SCRIPT

Asset Update API SCRIPT IN R12 Fixed assets
----------------------------------------------------------

/* Formatted on 2013/05/06 13:01 (Formatter Plus v4.8.8) */
DECLARE
l_trans_rec fa_api_types.trans_rec_type;
l_asset_hdr_rec fa_api_types.asset_hdr_rec_type;
l_asset_fin_rec_adj fa_api_types.asset_fin_rec_type;
l_asset_fin_rec_new fa_api_types.asset_fin_rec_type;
l_asset_fin_mrc_tbl_new fa_api_types.asset_fin_tbl_type;
l_inv_trans_rec fa_api_types.inv_trans_rec_type;
l_inv_tbl fa_api_types.inv_tbl_type;
l_inv_rate_tbl fa_api_types.inv_rate_tbl_type;
l_asset_deprn_rec_adj fa_api_types.asset_deprn_rec_type;
l_asset_deprn_rec_new fa_api_types.asset_deprn_rec_type;
l_asset_deprn_mrc_tbl_new fa_api_types.asset_deprn_tbl_type;
l_inv_rec fa_api_types.inv_rec_type;
l_group_reclass_options_rec fa_api_types.group_reclass_options_rec_type;
l_return_status VARCHAR2 (1);
l_mesg_count NUMBER := 0;
l_mesg_len NUMBER;
l_mesg VARCHAR2 (4000);
l_asset_id NUMBER;
--l_new_life FA_API_TYPES.asset_hr_attr_rec_type;
CURSOR cur_fa_addition
IS
SELECT *
FROM oomco_fa_upload
WHERE assetnumber IN (
SELECT a.asset_number
FROM fa_additions_b a, fa_books_v b
WHERE a.asset_id = b.asset_id
AND b.COST IN (0)
AND a.asset_number IN (SELECT assetnumber
FROM oomco_fa_upload));
BEGIN
FOR c1 IN cur_fa_addition
LOOP
BEGIN
SELECT asset_id
INTO l_asset_id
FROM fa_additions_b
WHERE asset_number = c1.assetnumber;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ( ' Asset number does not exit'
|| c1.assetnumber
);
END;
fnd_profile.put ('PRINT_DEBUG', 'Y');
DBMS_OUTPUT.ENABLE (1000000);
fa_srvr_msg.init_server_message;
fa_debug_pkg.initialize;
--asset header info
l_asset_hdr_rec.asset_id := l_asset_id;
l_asset_hdr_rec.book_type_code := 'CORPORATE BOOK';
-- fin info
l_asset_fin_rec_adj.COST := c1.asset_cost;
--l_new_life.life_in_months:=100;
fa_adjustment_pub.do_adjustment
(p_api_version => 1.0,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_false,
p_validation_level => fnd_api.g_valid_level_full,
x_return_status => l_return_status,
x_msg_count => l_mesg_count,
x_msg_data => l_mesg,
p_calling_fn => 'ADJ_TEST_SCRIPT',
px_trans_rec => l_trans_rec,
px_asset_hdr_rec => l_asset_hdr_rec,
p_asset_fin_rec_adj => l_asset_fin_rec_adj,
x_asset_fin_rec_new => l_asset_fin_rec_new,
x_asset_fin_mrc_tbl_new => l_asset_fin_mrc_tbl_new,
px_inv_trans_rec => l_inv_trans_rec,
px_inv_tbl => l_inv_tbl,
-- px_inv_rate_tbl => l_inv_rate_tbl,
p_asset_deprn_rec_adj => l_asset_deprn_rec_adj,
x_asset_deprn_rec_new => l_asset_deprn_rec_new,
x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
p_group_reclass_options_rec => l_group_reclass_options_rec
);
DBMS_OUTPUT.put_line (l_return_status);
IF (l_return_status <> fnd_api.g_ret_sts_success)
THEN
fa_debug_pkg.dump_debug_messages (max_mesgs => 0);
l_mesg_count := fnd_msg_pub.count_msg;
IF l_mesg_count > 0
THEN
l_mesg :=
SUBSTR (fnd_msg_pub.get (fnd_msg_pub.g_first, fnd_api.g_false),
1,
512
);
DBMS_OUTPUT.put_line (SUBSTR (l_mesg, 1, 255));
FOR i IN 1 .. l_mesg_count - 1
LOOP
l_mesg :=
SUBSTR (fnd_msg_pub.get (fnd_msg_pub.g_next,
fnd_api.g_false),
1,
512
);
DBMS_OUTPUT.put_line (SUBSTR (l_mesg, 1, 255));
END LOOP;
fnd_msg_pub.delete_msg ();
END IF;
ELSE
DBMS_OUTPUT.put_line ('SUCCESS');
COMMIT;
DBMS_OUTPUT.put_line ( 'THID'
|| TO_CHAR (l_trans_rec.transaction_header_id)
);
END IF;
END LOOP;
END;