Install Base Accounting Class code

Question

Hi,
Iam using api csi_item_instance_pub.update_item_instance for updating Install base instance.
Iam able to update the partyid, account id but not accounting class code.
Can anyone please help me how to update accounting class code along with party information.
Any help is highly appreciated.
Here is my code which Iam using to update Item instance..
CREATE OR REPLACE PROCEDURE updateib_load_test
IS
g_instance_id_lst csi_datastructures_pub.id_tbl;
l_instance_rec apps.csi_datastructures_pub.instance_rec;
p_ext_attrib_values apps.csi_datastructures_pub.extend_attrib_values_tbl;
p_party_tbl apps.csi_datastructures_pub.party_tbl;
p_account_tbl apps.csi_datastructures_pub.party_account_tbl;
l_pricing_attrib_tbl apps.csi_datastructures_pub.pricing_attribs_tbl;
l_org_assignments_tbl apps.csi_datastructures_pub.organization_units_tbl;
l_asset_assignment_tbl apps.csi_datastructures_pub.instance_asset_tbl;
l_txn_rec apps.csi_datastructures_pub.transaction_rec;
x2_txn_rec apps.csi_datastructures_pub.transaction_rec;
l_return_status VARCHAR2 (100);
l_msg_count NUMBER;
l_msg_data VARCHAR2 (2000);
l_created_manually_flag VARCHAR2 (100);
----l_org_id NUMBER := 204;
n NUMBER := 1;
v_instance_id NUMBER;
p_commit VARCHAR2 (5);
p2_commit VARCHAR2 (5);
p_validation_level NUMBER;
p_init_msg_lst VARCHAR2 (500);
v_instance_party_id NUMBER;
v_ip_account_id NUMBER;
l_relationship_tbl apps.csi_datastructures_pub.ii_relationship_tbl;
v_relationship_id NUMBER;
v_success VARCHAR2 (1) := 'T';
x2_return_status VARCHAR2 (100);
x2_msg_count NUMBER;
x2_msg_data VARCHAR2 (2000);
p2_validation_level NUMBER;
p2_init_msg_lst VARCHAR2 (500);
a NUMBER;
t1_msg_dummy VARCHAR2 (1000);
t1_output VARCHAR2 (1000);
l_not_created NUMBER;
l_buffer VARCHAR2 (32767);
l_problem EXCEPTION;
l_message VARCHAR2 (2000);
CURSOR updateib_cur
IS
SELECT *
FROM ib_conv_stg
WHERE updateib = 'Y'
AND status_stg = 'V'
AND new_instance_number IS NOT NULL
AND transaction_id_stg = 8077;
BEGIN
-- DBMS_OUTPUT.put_line ('AFTER BEGIN');
apps.fnd_file.put_line (apps.fnd_file.LOG, 'AFTER BEGIN');
FOR updateib_rec IN updateib_cur
LOOP
BEGIN
l_instance_rec.accounting_class_code := fnd_api.g_miss_char;
IF p_party_tbl.EXISTS (1) IS NOT NULL
THEN
p_party_tbl.DELETE;
END IF;
IF p_account_tbl.EXISTS (1) IS NOT NULL
THEN
p_account_tbl.DELETE;
END IF;
IF p_ext_attrib_values.EXISTS (1) IS NOT NULL
THEN
p_ext_attrib_values.DELETE;
END IF;
/* SELECT apps.csi_item_instances_s.NEXTVAL
INTO v_instance_id
FROM SYS.DUAL;*/
l_instance_rec.instance_id :=
TO_NUMBER (updateib_rec.new_instance_number);
l_instance_rec.instance_number := updateib_rec.new_instance_number;
apps.fnd_file.put_line (apps.fnd_file.LOG,
l_instance_rec.instance_id);
l_instance_rec.object_version_number := updateib_rec.object_version;
apps.fnd_file.put_line (apps.fnd_file.LOG,
l_instance_rec.object_version_number
--l_instance_rec.inventory_item_id := updateib_rec.inventory_item_id;
l_instance_rec.inv_master_organization_id :=
updateib_rec.inv_master_organization_id;
--189;
l_instance_rec.mfg_serial_number_flag :=
updateib_rec.mfg_serial_number_flag;
--'Y';
--l_instance_rec.serial_number := updateib_rec.ls_serial_number;
---'LOG0005';
l_instance_rec.quantity := updateib_rec.quantity; --1;
l_instance_rec.unit_of_measure := updateib_rec.unit_of_measure;
--'EA';
l_instance_rec.accounting_class_code :=
updateib_rec.accounting_class_code;
apps.fnd_file.put_line (apps.fnd_file.LOG,
updateib_rec.new_instance_number
|| 'instance_rec'
|| l_instance_rec.accounting_class_code
|| 'updateib'
|| updateib_rec.accounting_class_code
--'CUST_PROD'; --'INV';
l_instance_rec.instance_status_id := updateib_rec.instance_status_id;
--510;
l_instance_rec.customer_view_flag := updateib_rec.customer_view_flag;
--'N'; --N
l_instance_rec.merchant_view_flag := updateib_rec.merchant_view_flag;
--'Y'; --Y
l_instance_rec.sellable_flag := updateib_rec.sellable_flag;
--'Y'; --N
--l_instance_rec.active_start_date := updateib_rec.active_start_date;
--SYSDATE;
l_instance_rec.location_type_code := updateib_rec.location_type_code;
--'HZ_PARTY_SITES';
l_instance_rec.location_id := updateib_rec.location_id; --375885;
l_instance_rec.install_date := updateib_rec.install_date;
--SYSDATE;
l_instance_rec.install_location_type_code :=
updateib_rec.install_location_type_code;
--'HZ_PARTY_SITES';
l_instance_rec.install_location_id :=
updateib_rec.install_location_id;
--375885;
--l_instance_rec.vld_organization_id :=
--updateib_rec.last_vld_organization_id;
--2104;
l_instance_rec.creation_complete_flag :=
updateib_rec.creation_complete_flag;
--'Y';
--l_instance_rec.object_version_number :=
--updateib_rec.object_version_number;
-- 1;
l_instance_rec.external_reference :=
updateib_rec.ls_external_reference;
l_instance_rec.instance_usage_code :=
updateib_rec.instance_usage_code;
l_instance_rec.inv_organization_id :=
updateib_rec.inv_organization_id;
l_instance_rec.inv_subinventory_name :=
updateib_rec.inv_subinventory_name;
l_instance_rec.inv_locator_id := updateib_rec.inv_locator_id;
l_instance_rec.manually_created_flag :=
updateib_rec.manually_created_flag;
l_instance_rec.last_oe_po_number := updateib_rec.last_oe_po_number;
l_instance_rec.instance_type_code :=
updateib_rec.ls_instance_type_code;
l_instance_rec.attribute3 := updateib_rec.ls_warranty_expiration_date;
--l_instance_rec.UPDATE_ORACLE:= updateib_rec.UPDATE_ORACLE;
-- ************* FOR PARTIES **********************************************************
/* SELECT apps.csi_i_parties_s.NEXTVAL
INTO v_instance_party_id
FROM SYS.DUAL;*/
p_party_tbl (1).instance_party_id := updateib_rec.instance_party_id;
p_party_tbl (1).instance_id :=
TO_NUMBER (updateib_rec.new_instance_number);
p_party_tbl (1).party_source_table :=
updateib_rec.owner_party_source_table;
--'HZ_PARTIES'; --
p_party_tbl (1).party_id := updateib_rec.owner_party_id;
--442143; --13478;
p_party_tbl (1).relationship_type_code := 'OWNER';
p_party_tbl (1).contact_flag := 'N';
-- l_party_tbl (1).active_start_date := updateib_rec.active_start_date;
--SYSDATE;
p_party_tbl (1).object_version_number :=
updateib_rec.object_version_p;
apps.fnd_file.put_line (apps.fnd_file.LOG,
p_party_tbl (1).object_version_number
-- *********** FOR PARTY ACCOUNT *****************************************************
/* SELECT apps.csi_ip_accounts_s.NEXTVAL
INTO v_ip_account_id
FROM SYS.DUAL;*/
p_account_tbl (1).ip_account_id := updateib_rec.ip_account_id;
p_account_tbl (1).instance_party_id := updateib_rec.instance_party_id;
p_account_tbl (1).party_account_id :=
updateib_rec.owner_party_account_id;
--755865;
p_account_tbl (1).relationship_type_code := 'OWNER';
--l_account_tbl (1).active_start_date := updateib_rec.active_start_date;
--SYSDATE;
p_account_tbl (1).object_version_number :=
updateib_rec.object_version_a;
apps.fnd_file.put_line (apps.fnd_file.LOG,
p_account_tbl (1).object_version_number
-- 1;
p_account_tbl (1).parent_tbl_index := 1;
p_account_tbl (1).call_contracts := 'Y';
-- ************************** TRANSACTION REC *****************************************
l_txn_rec.transaction_date := SYSDATE;
l_txn_rec.source_transaction_date := SYSDATE;
l_txn_rec.transaction_type_id := 1;
l_txn_rec.object_version_number := 1;
-- *************** API CALL *******************************************************
-- DBMS_OUTPUT.put_line ('BEFORE CREATE ITEM INSTANCE');
apps.fnd_file.put_line (apps.fnd_file.LOG,
'BEFORE UPDATE ITEM INSTANCE'
END;
BEGIN
fnd_msg_pub.initialize;
csi_item_instance_pub.update_item_instance
(p_api_version => 1.0,
p_commit => apps.fnd_api.g_true
--Defaults assigned in the package
p_init_msg_list => apps.fnd_api.g_true
--Defaults assigned in the package
p_validation_level => apps.fnd_api.g_valid_level_full
--Defaults assigned in the package
p_instance_rec => l_instance_rec,
p_ext_attrib_values_tbl => p_ext_attrib_values,
p_party_tbl => p_party_tbl,
p_account_tbl => p_account_tbl,
p_pricing_attrib_tbl => l_pricing_attrib_tbl,
p_org_assignments_tbl => l_org_assignments_tbl,
p_asset_assignment_tbl => l_asset_assignment_tbl,
p_txn_rec => l_txn_rec,
x_instance_id_lst => g_instance_id_lst,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
COMMIT;
apps.fnd_file.put_line (apps.fnd_file.LOG,
'AFTER UPDATE ITEM INSTANCE'
apps.fnd_file.put_line (apps.fnd_file.LOG, 'test' || l_msg_data);
/* apps.fnd_file.put_line (apps.fnd_file.LOG,
'test1'
|| apps.fnd_msg_pub.get
(l_lcv,
apps.fnd_api.g_false
IF l_return_status != apps.fnd_api.g_ret_sts_success
THEN
l_not_created := l_not_created + 1;
ROLLBACK;
RAISE l_problem;
END IF;
updating STATUS in stg table
BEGIN
IF l_return_status = 'S'
THEN
dbms_output.put_line('satus :'||l_return_status);
COMMIT;
END IF;
COMMIT;
END;
-------------exception l_problem
EXCEPTION
WHEN l_problem
THEN
IF (l_msg_count > 0)
THEN
l_buffer := '';
FOR l_lcv IN 1 .. l_msg_count
LOOP
l_message :=
apps.fnd_msg_pub.get (l_lcv, apps.fnd_api.g_false);
END LOOP;
END IF;
COMMIT;
END;
END LOOP;
END updateib_load_test;

Answer 1

Hi Nagamohan,
Thanks for your reply.
Iam using the Location type code 'HZ_PARTY_SITES'.
Actually Iam updating existing instance to update party information.
The existing instance has the accounting_class_code as 'CUST_PROD'.
I want to update accounting class code to 'INV' while updating party information.
Iam able to update party information but not able to update accounting class code.
When I digged into the api, csi_item_instance_pub.update_item_instance I found some code which was updating the accounting_class_code to null if there is party information to be updated. I think this is the reason Iam not able to update accounting class.
Please help me if there is any chance of updating accounting class code along with party information.
Thanks in advance