[Home] [Help]
454: material_ctrl => 1,
455: err_msg => l_err_msg,
456: error_code => l_error_code);
457: IF l_Error_Code <> 0 THEN
458: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
459: IF l_Error_Code < 0 THEN
460: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
461: ELSIF l_Error_Code > 0 THEN
462: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
456: error_code => l_error_code);
457: IF l_Error_Code <> 0 THEN
458: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
459: IF l_Error_Code < 0 THEN
460: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
461: ELSIF l_Error_Code > 0 THEN
462: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
463: END IF;
464: FND_MESSAGE.SET_NAME('CSI','CSI_API_CORE_BOM_EXPL_ERROR');
458: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
459: IF l_Error_Code < 0 THEN
460: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
461: ELSIF l_Error_Code > 0 THEN
462: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
463: END IF;
464: FND_MESSAGE.SET_NAME('CSI','CSI_API_CORE_BOM_EXPL_ERROR');
465: FND_MSG_PUB.Add;
466: l_return_status := FALSE;
4039: WHILE l_msg_count > 0 LOOP
4040: x_msg_data := FND_MSG_PUB.GET
4041: ( l_msg_index,
4042: FND_API.G_FALSE );
4043: csi_gen_utility_pvt.put_line( ' Error from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS.. ');
4044: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4045: l_msg_index := l_msg_index + 1;
4046: l_msg_count := l_msg_count - 1;
4047: END LOOP;
4040: x_msg_data := FND_MSG_PUB.GET
4041: ( l_msg_index,
4042: FND_API.G_FALSE );
4043: csi_gen_utility_pvt.put_line( ' Error from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS.. ');
4044: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4045: l_msg_index := l_msg_index + 1;
4046: l_msg_count := l_msg_count - 1;
4047: END LOOP;
4048: RAISE FND_API.G_EXC_ERROR;
4640: -- Check the profile option debug_level for debug message reporting
4641: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
4642: -- If debug_level = 1 then dump the procedure name
4643: IF (l_debug_level > 0) THEN
4644: csi_gen_utility_pvt.put_line ('create_item_instance_pvt');
4645: END IF;
4646:
4647: -- If the debug level = 2 then dump all the parameters values.
4648: IF (l_debug_level > 1) THEN
4645: END IF;
4646:
4647: -- If the debug level = 2 then dump all the parameters values.
4648: IF (l_debug_level > 1) THEN
4649: csi_gen_utility_pvt.put_line ( 'create_item_instance_pvt' ||
4650: p_api_version ||'-'||
4651: p_commit ||'-'||
4652: p_init_msg_list );
4653: -- Dump the records in the log file
4650: p_api_version ||'-'||
4651: p_commit ||'-'||
4652: p_init_msg_list );
4653: -- Dump the records in the log file
4654: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
4655: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
4656: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
4657: END IF;
4658:
4651: p_commit ||'-'||
4652: p_init_msg_list );
4653: -- Dump the records in the log file
4654: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
4655: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
4656: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
4657: END IF;
4658:
4659: -- Start API body
4652: p_init_msg_list );
4653: -- Dump the records in the log file
4654: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
4655: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
4656: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
4657: END IF;
4658:
4659: -- Start API body
4660: CSI_Item_Instance_vld_pvt.Check_Reqd_Param_Num
4957: -- Added the following code to fix bug 5506231
4958: IF p_instance_rec.instance_usage_code IS NULL OR
4959: p_instance_rec.instance_usage_code = fnd_api.g_miss_char
4960: THEN
4961: csi_gen_utility_pvt.put_line ('Instance_usage_code is passed as null or g_miss value');
4962: csi_gen_utility_pvt.put_line ('Hence deriving instance usage code');
4963: IF l_serial_control = 6 AND
4964: p_instance_rec.serial_number IS NOT NULL AND
4965: p_instance_rec.location_type_code = 'INVENTORY'
4958: IF p_instance_rec.instance_usage_code IS NULL OR
4959: p_instance_rec.instance_usage_code = fnd_api.g_miss_char
4960: THEN
4961: csi_gen_utility_pvt.put_line ('Instance_usage_code is passed as null or g_miss value');
4962: csi_gen_utility_pvt.put_line ('Hence deriving instance usage code');
4963: IF l_serial_control = 6 AND
4964: p_instance_rec.serial_number IS NOT NULL AND
4965: p_instance_rec.location_type_code = 'INVENTORY'
4966: THEN
4975: ELSE
4976: p_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
4977: END IF;
4978: END IF;
4979: csi_gen_utility_pvt.put_line ('Value of derived instance_usage_code is : '||p_instance_rec.instance_usage_code);
4980: END IF;
4981: -- End addition of code to fix bug 5506231
4982:
4983: -- Checking for Trackable Flag
5049: )
5050: THEN
5051: -- FND_MESSAGE.SET_NAME('CSI', l_reason_failed); -- commented for bug 5351886
5052: -- FND_MSG_PUB.Add; -- commented for bug 5351886
5053: csi_gen_utility_pvt.put_line('Call to eam_assetnumber_pub.validate_fields failed with following reason');
5054: csi_gen_utility_pvt.put_line(l_reason_failed);
5055: RAISE FND_API.G_EXC_ERROR;
5056: END IF;
5057: ELSE
5050: THEN
5051: -- FND_MESSAGE.SET_NAME('CSI', l_reason_failed); -- commented for bug 5351886
5052: -- FND_MSG_PUB.Add; -- commented for bug 5351886
5053: csi_gen_utility_pvt.put_line('Call to eam_assetnumber_pub.validate_fields failed with following reason');
5054: csi_gen_utility_pvt.put_line(l_reason_failed);
5055: RAISE FND_API.G_EXC_ERROR;
5056: END IF;
5057: ELSE
5058: FND_MESSAGE.SET_NAME('CSI', 'CSI_NON_EAM_ITEM');
5108: -- Bug# 4011408
5109: IF ((p_instance_rec.lot_number <> FND_API.G_MISS_CHAR) AND
5110: (p_instance_rec.lot_number IS NOT NULL))
5111: THEN
5112: csi_gen_utility_pvt.put_line('Calling Create_Lot routine...');
5113: csi_item_instance_vld_pvt.Create_Lot
5114: (
5115: p_inv_org_id => p_instance_rec.vld_organization_id,
5116: p_inv_item_id => p_instance_rec.inventory_item_id,
5128: IF ((p_instance_rec.serial_number <> FND_API.G_MISS_CHAR) AND
5129: (p_instance_rec.serial_number IS NOT NULL)) /* AND
5130: (nvl(p_instance_rec.mfg_serial_number_flag,'N') <> 'Y') ) */
5131: THEN
5132: csi_gen_utility_pvt.put_line('Calling Create_Serial...');
5133: csi_item_instance_vld_pvt.Create_Serial
5134: (
5135: p_inv_org_id => p_instance_rec.vld_organization_id,
5136: p_inv_item_id => p_instance_rec.inventory_item_id,
5159: END IF;
5160:
5161: IF l_eam_item
5162: THEN
5163: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5160:
5161: IF l_eam_item
5162: THEN
5163: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5168: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
5161: IF l_eam_item
5162: THEN
5163: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5168: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
5169: eam_common_utilities_pvt.update_logical_asset
5162: THEN
5163: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5168: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
5169: eam_common_utilities_pvt.update_logical_asset
5170: ( p_inventory_item_id => p_instance_rec.inventory_item_id
5163: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5168: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
5169: eam_common_utilities_pvt.update_logical_asset
5170: ( p_inventory_item_id => p_instance_rec.inventory_item_id
5171: ,p_serial_number => p_instance_rec.serial_number
5164: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||p_instance_rec.inventory_item_id);
5165: csi_gen_utility_pvt.put_line( 'Serial_number is :'||p_instance_rec.serial_number);
5166: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||p_instance_rec.network_asset_flag);
5167: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||p_instance_rec.pn_location_id);
5168: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
5169: eam_common_utilities_pvt.update_logical_asset
5170: ( p_inventory_item_id => p_instance_rec.inventory_item_id
5171: ,p_serial_number => p_instance_rec.serial_number
5172: ,p_network_asset_flag => p_instance_rec.network_asset_flag
5175: ,x_return_status => x_return_status
5176: );
5177: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS)
5178: THEN
5179: csi_gen_utility_pvt.put_line( 'Error from eam_common_utilities_pvt.update_logical_asset...');
5180: RAISE fnd_api.g_exc_error;
5181: END IF;
5182: END IF;
5183:
5191: l_check_instance_rec.inventory_item_id := p_instance_rec.inventory_item_id;
5192: l_check_instance_rec.serial_number := p_instance_rec.serial_number;
5193: l_check_instance_rec.lot_number := p_instance_rec.lot_number;
5194: l_check_instance_rec.last_txn_line_detail_id := p_instance_rec.last_txn_line_detail_id;
5195: csi_gen_utility_pvt.put_line('Calling Check_Prior_Txn');
5196: csi_Item_Instance_Vld_pvt.Check_Prior_Txn
5197: (
5198: p_instance_rec => l_check_instance_rec
5199: ,p_txn_rec => p_txn_rec
5205: RAISE fnd_api.g_exc_error;
5206: END IF;
5207: END IF;
5208: -- Validation for the Serial Number
5209: csi_gen_utility_pvt.put_line('Calling Validate_Serial_Number...');
5210: csi_Item_Instance_Vld_pvt.Validate_Serial_Number
5211: (
5212: p_inv_org_id => p_instance_rec.vld_organization_id,
5213: p_inv_item_id => p_instance_rec.inventory_item_id ,
5345: RAISE fnd_api.g_exc_error;
5346: END IF;
5347: --
5348: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5349: csi_gen_utility_pvt.populate_install_param_rec;
5350: END IF;
5351: --
5352: l_int_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5353: --
5974: FND_MSG_PUB.Add;
5975: RAISE FND_API.G_EXC_ERROR;
5976: END IF;
5977: END IF;
5978: csi_gen_utility_pvt.put_line('Before Insert row...');
5979: -- End addition by sk on 02/06/02 for bug 2213922
5980: IF p_called_from_grp <> fnd_api.g_true THEN
5981: -- Create a row in csi_item_instances
5982: CSI_ITEM_INSTANCES_PKG.Insert_Row
6247: ,x_msg_data => x_msg_data
6248: );
6249: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
6250: THEN
6251: csi_gen_utility_pvt.put_line( 'Error from eam_objectinstantiation_pub.instantiate_object...');
6252: RAISE fnd_api.g_exc_error;
6253: END IF;
6254: END IF;
6255: -- End code addition for eam integration
6854: -- Check the profile option debug_level for debug message reporting
6855: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
6856: -- If debug_level = 1 then dump the procedure name
6857: IF (l_debug_level > 0) THEN
6858: csi_gen_utility_pvt.put_line ('get_and_update_acct_class');
6859: END IF;
6860:
6861: -- If the debug level = 2 then dump all the parameters values.
6862: IF (l_debug_level > 1) THEN
6859: END IF;
6860:
6861: -- If the debug level = 2 then dump all the parameters values.
6862: IF (l_debug_level > 1) THEN
6863: csi_gen_utility_pvt.put_line ( 'get_and_update_acct_class' ||
6864: p_api_version ||'-'||
6865: p_commit
6866: );
6867: END IF;
7430: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
7431:
7432: -- If debug_level = 1 then dump the procedure name
7433: IF (l_debug_level > 0) THEN
7434: csi_gen_utility_pvt.put_line ( 'update_child_instance_pvt');
7435: END IF;
7436:
7437: -- If the debug level = 2 then dump all the parameters values.
7438: IF (l_debug_level > 1) THEN
7435: END IF;
7436:
7437: -- If the debug level = 2 then dump all the parameters values.
7438: IF (l_debug_level > 1) THEN
7439: csi_gen_utility_pvt.put_line ( 'update_child_instance_pvt:' ||
7440: p_api_version ||'-'||
7441: p_commit ||'-'||
7442: p_init_msg_list );
7443: END IF;
7443: END IF;
7444:
7445: -- Start API body
7446: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
7447: csi_gen_utility_pvt.populate_install_param_rec;
7448: END IF;
7449: --
7450: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
7451: --
7479: --
7480: IF p_rel_query_rec.object_id IS NOT NULL AND
7481: p_rel_query_rec.object_id <> FND_API.G_MISS_NUM THEN
7482: IF p_unexpire = FND_API.G_TRUE THEN
7483: csi_gen_utility_pvt.put_line ( 'Calling Get_Children for Un-expiry...');
7484: csi_ii_relationships_pvt.Get_Children
7485: ( p_relationship_query_rec => p_rel_query_rec,
7486: p_rel_tbl => l_rel_tbl,
7487: p_depth => NULL,
7500: FND_MSG_PUB.Add;
7501: RAISE FND_API.G_EXC_ERROR;
7502: END IF;
7503: ELSE
7504: csi_gen_utility_pvt.put_line ( 'Calling Get_Children for Regular Inheritance...');
7505: csi_ii_relationships_pvt.Get_Children
7506: ( p_relationship_query_rec => p_rel_query_rec,
7507: p_rel_tbl => l_rel_tbl,
7508: p_depth => NULL,
7522: END IF;
7523: END IF;
7524: END IF;
7525: --
7526: csi_gen_utility_pvt.put_line ( 'Rel Table count is : '||to_char(l_rel_tbl.count));
7527: --
7528: -- FOR l_child_instance_id IN child_instances
7529: IF l_rel_tbl.count > 0 THEN
7530: FOR j IN l_rel_tbl.FIRST .. l_rel_tbl.LAST
7529: IF l_rel_tbl.count > 0 THEN
7530: FOR j IN l_rel_tbl.FIRST .. l_rel_tbl.LAST
7531: LOOP
7532: BEGIN
7533: csi_gen_utility_pvt.put_line ( 'Processing Child Instance : '||to_char(l_rel_tbl(j).subject_id));
7534: -- Opening Cursor to retrieve Child Id records Details
7535: OPEN curr_instance_rec(l_rel_tbl(j).subject_id);
7536: FETCH curr_instance_rec INTO l_curr_instance_rec;
7537: IF curr_instance_rec%NOTFOUND THEN
7609: IF NOT eam_common_utilities_pvt.check_deactivate
7610: (p_maintenance_object_id => l_rel_tbl(j).subject_id
7611: ,p_maintenance_object_type => l_maintenance_object_type)
7612: THEN
7613: csi_gen_utility_pvt.put_line('Error from eam_common_utilities_pvt.check_deactivate API ');
7614: RAISE fnd_api.g_exc_error;
7615: END IF;
7616: END IF;
7617: -- End code addition for eam integration
7779:
7780: -- Get the full_dump_frequency from csi_install_parameter
7781: --
7782: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
7783: csi_gen_utility_pvt.populate_install_param_rec;
7784: END IF;
7785: --
7786: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
7787: --
10055: x_msg_data := FND_MSG_PUB.GET
10056: ( l_msg_index,
10057: FND_API.G_FALSE
10058: );
10059: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
10060: l_msg_index := l_msg_index + 1;
10061: l_msg_count := l_msg_count - 1;
10062: END LOOP;
10063: RAISE FND_API.G_EXC_ERROR;
10112: x_msg_data := FND_MSG_PUB.GET
10113: ( l_msg_index,
10114: FND_API.G_FALSE
10115: );
10116: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
10117: l_msg_index := l_msg_index + 1;
10118: l_msg_count := l_msg_count - 1;
10119: END LOOP;
10120: RAISE FND_API.G_EXC_ERROR;
10150: x_msg_data := FND_MSG_PUB.GET
10151: ( l_msg_index,
10152: FND_API.G_FALSE
10153: );
10154: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
10155: l_msg_index := l_msg_index + 1;
10156: l_msg_count := l_msg_count - 1;
10157: END LOOP;
10158: RAISE FND_API.G_EXC_ERROR;
10187: ,p_ref_id => l_instance_history_id
10188: ,p_event_date => sysdate);
10189: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
10190: THEN
10191: csi_gen_utility_pvt.put_line('Error from eam_asset_log_pvt.instance_update_event API');
10192: RAISE fnd_api.g_exc_error;
10193: END IF;
10194: END IF;
10195: -- Calling eam API to log instance update event
10831: IF UPPER(l_contracts_status) <> 'Y' THEN
10832: RETURN;
10833: END IF;
10834: --
10835: csi_gen_utility_pvt.put_line('Begin Call_to_Contracts : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10836: csi_gen_utility_pvt.put_line('Contracts Transaction Type: '||p_transaction_type);
10837: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
10838: csi_gen_utility_pvt.populate_install_param_rec;
10839: END IF;
10832: RETURN;
10833: END IF;
10834: --
10835: csi_gen_utility_pvt.put_line('Begin Call_to_Contracts : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10836: csi_gen_utility_pvt.put_line('Contracts Transaction Type: '||p_transaction_type);
10837: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
10838: csi_gen_utility_pvt.populate_install_param_rec;
10839: END IF;
10840: --
10834: --
10835: csi_gen_utility_pvt.put_line('Begin Call_to_Contracts : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10836: csi_gen_utility_pvt.put_line('Contracts Transaction Type: '||p_transaction_type);
10837: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
10838: csi_gen_utility_pvt.populate_install_param_rec;
10839: END IF;
10840: --
10841: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
10842: --
10849: OPEN instance_csr (p_instance_id);
10850: FETCH instance_csr INTO l_instance_csr;
10851: CLOSE instance_csr;
10852: --
10853: csi_gen_utility_pvt.put_line('p_transaction_date: '||p_transaction_date);
10854: csi_gen_utility_pvt.put_line('p_source_transaction_date: '||p_source_transaction_date);
10855: --
10856: IF p_transaction_date IS NULL OR p_transaction_date = fnd_api.g_miss_date THEN
10857: l_txn_date:= SYSDATE;
10850: FETCH instance_csr INTO l_instance_csr;
10851: CLOSE instance_csr;
10852: --
10853: csi_gen_utility_pvt.put_line('p_transaction_date: '||p_transaction_date);
10854: csi_gen_utility_pvt.put_line('p_source_transaction_date: '||p_source_transaction_date);
10855: --
10856: IF p_transaction_date IS NULL OR p_transaction_date = fnd_api.g_miss_date THEN
10857: l_txn_date:= SYSDATE;
10858: ELSE
10874: ELSE
10875: l_transaction_date:= p_source_transaction_date;
10876: END IF;
10877: --
10878: csi_gen_utility_pvt.put_line('l_transaction_date: '||l_transaction_date);
10879:
10880: IF p_oks_txn_inst_tbl.count > 0 THEN
10881: csi_gen_utility_pvt.put_line('p_oks_txn_inst_tbl has records ...');
10882: FOR J in p_oks_txn_inst_tbl.FIRST .. p_oks_txn_inst_tbl.LAST LOOP
10877: --
10878: csi_gen_utility_pvt.put_line('l_transaction_date: '||l_transaction_date);
10879:
10880: IF p_oks_txn_inst_tbl.count > 0 THEN
10881: csi_gen_utility_pvt.put_line('p_oks_txn_inst_tbl has records ...');
10882: FOR J in p_oks_txn_inst_tbl.FIRST .. p_oks_txn_inst_tbl.LAST LOOP
10883: IF p_oks_txn_inst_tbl.EXISTS(J) THEN
10884: IF p_oks_txn_inst_tbl(J).old_customer_product_id = p_instance_id THEN
10885: IF p_transaction_type = 'TRM' THEN
10888: l_instance_csr.active_end_date = fnd_api.g_miss_date
10889: THEN
10890: p_oks_txn_inst_tbl(J).termination_date := l_transaction_date;
10891: ELSE
10892: csi_gen_utility_pvt.put_line('1. Assigning user entered end date');
10893: p_oks_txn_inst_tbl(J).termination_date := l_instance_csr.active_end_date;
10894: END IF;
10895: p_oks_txn_inst_tbl(J).transaction_date := l_txn_date;
10896: p_oks_txn_inst_tbl(J).TRM := 'Y';
11030: END LOOP;
11031: END IF;
11032: --
11033: IF l_exists = 'N' THEN
11034: csi_gen_utility_pvt.put_line('l_exists is N ...');
11035: l_oks_txn_count := p_oks_txn_inst_tbl.count + 1;
11036: --
11037: p_oks_txn_inst_tbl(l_oks_txn_count).installation_date := l_instance_csr.install_date;
11038: --
11070: p_oks_txn_inst_tbl(l_oks_txn_count).old_inventory_item_id := l_instance_csr.inventory_item_id;
11071: p_oks_txn_inst_tbl(l_oks_txn_count).old_customer_acct_id := l_instance_csr.owner_party_account_id;
11072: --
11073: IF p_transaction_type ='TRM' THEN
11074: csi_gen_utility_pvt.put_line('TRM Transaction Type');
11075: -- p_party_account_id1 will be passed only for TRF
11076: -- p_oks_txn_inst_tbl(l_oks_txn_count).old_customer_acct_id := p_party_account_id1;
11077: p_oks_txn_inst_tbl(l_oks_txn_count).TRM := 'Y';
11078: -- Modified for bug 5442038
11080: l_instance_csr.active_end_date = fnd_api.g_miss_date
11081: THEN
11082: p_oks_txn_inst_tbl(l_oks_txn_count).termination_date := l_transaction_date;
11083: ELSE
11084: csi_gen_utility_pvt.put_line('2. Assigning user entered end date');
11085: p_oks_txn_inst_tbl(l_oks_txn_count).termination_date := l_instance_csr.active_end_date;
11086: END IF;
11087:
11088: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11088: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11089: END IF;
11090: --
11091: IF p_transaction_type ='RET' THEN
11092: csi_gen_utility_pvt.put_line('RET Transaction Type');
11093: p_oks_txn_inst_tbl(l_oks_txn_count).RET := 'Y';
11094: p_oks_txn_inst_tbl(l_oks_txn_count).termination_date := l_transaction_date;
11095: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11096: END IF;
11095: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11096: END IF;
11097: --
11098: IF p_transaction_type ='IDC' THEN
11099: csi_gen_utility_pvt.put_line('IDC Transaction Type');
11100: p_oks_txn_inst_tbl(l_oks_txn_count).IDC := 'Y';
11101: p_oks_txn_inst_tbl(l_oks_txn_count).termination_date := l_transaction_date;
11102: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11103: END IF;
11102: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11103: END IF;
11104: --
11105: IF p_transaction_type = 'UPD' THEN
11106: csi_gen_utility_pvt.put_line('UPD Transaction Type');
11107: p_oks_txn_inst_tbl(l_oks_txn_count).new_quantity :=
11108: p_oks_txn_inst_tbl(l_oks_txn_count).old_quantity;
11109: p_oks_txn_inst_tbl(l_oks_txn_count).old_quantity := p_quantity; -- Passed old Qty
11110: p_oks_txn_inst_tbl(l_oks_txn_count).UPD := 'Y';
11121: p_oks_txn_inst_tbl(l_oks_txn_count).return_reason_code := NULL;
11122: END IF;
11123: --
11124: IF p_transaction_type = 'NEW' THEN
11125: csi_gen_utility_pvt.put_line('NEW Transaction Type');
11126: IF p_call_from_bom_expl = FND_API.G_TRUE THEN
11127: p_oks_txn_inst_tbl(l_oks_txn_count).bom_explosion_flag := 'Y';
11128: ELSE
11129: p_oks_txn_inst_tbl(l_oks_txn_count).bom_explosion_flag := 'N';
11154: l_rma_line_id := l_instance_csr.last_oe_rma_line_id;
11155: --
11156: IF l_rma_line_id IS NOT NULL THEN
11157: BEGIN
11158: csi_gen_utility_pvt.put_line('Calling package oe_service_credit_grp.get_service_credit_eligible');
11159: csi_gen_utility_pvt.put_line('to retreive service_credit_eligible_code for rma line id :'||l_rma_line_id);
11160: --l_sql := 'BEGIN oe_service_credit_grp.get_service_credit_eligible( :l_line_id, :l_service_code); END;';
11161: oe_service_credit_grp.get_service_credit_eligible
11162: ( p_line_id => l_rma_line_id
11155: --
11156: IF l_rma_line_id IS NOT NULL THEN
11157: BEGIN
11158: csi_gen_utility_pvt.put_line('Calling package oe_service_credit_grp.get_service_credit_eligible');
11159: csi_gen_utility_pvt.put_line('to retreive service_credit_eligible_code for rma line id :'||l_rma_line_id);
11160: --l_sql := 'BEGIN oe_service_credit_grp.get_service_credit_eligible( :l_line_id, :l_service_code); END;';
11161: oe_service_credit_grp.get_service_credit_eligible
11162: ( p_line_id => l_rma_line_id
11163: ,p_service_credit_eligible => p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit
11162: ( p_line_id => l_rma_line_id
11163: ,p_service_credit_eligible => p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit
11164: );
11165: -- EXECUTE IMMEDIATE l_sql USING IN l_rma_line_id, OUT p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit;
11166: csi_gen_utility_pvt.put_line( 'Value of raise_credit is : '||p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit);
11167: EXCEPTION
11168: WHEN OTHERS THEN
11169: csi_gen_utility_pvt.put_line('Into when others exception. ');
11170: csi_gen_utility_pvt.put_line( 'Nothing is assigned to raise_credit. ');
11165: -- EXECUTE IMMEDIATE l_sql USING IN l_rma_line_id, OUT p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit;
11166: csi_gen_utility_pvt.put_line( 'Value of raise_credit is : '||p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit);
11167: EXCEPTION
11168: WHEN OTHERS THEN
11169: csi_gen_utility_pvt.put_line('Into when others exception. ');
11170: csi_gen_utility_pvt.put_line( 'Nothing is assigned to raise_credit. ');
11171: END;
11172: ELSE
11173: csi_gen_utility_pvt.put_line('RMA line id is null');
11166: csi_gen_utility_pvt.put_line( 'Value of raise_credit is : '||p_oks_txn_inst_tbl(l_oks_txn_count).raise_credit);
11167: EXCEPTION
11168: WHEN OTHERS THEN
11169: csi_gen_utility_pvt.put_line('Into when others exception. ');
11170: csi_gen_utility_pvt.put_line( 'Nothing is assigned to raise_credit. ');
11171: END;
11172: ELSE
11173: csi_gen_utility_pvt.put_line('RMA line id is null');
11174: END IF;
11169: csi_gen_utility_pvt.put_line('Into when others exception. ');
11170: csi_gen_utility_pvt.put_line( 'Nothing is assigned to raise_credit. ');
11171: END;
11172: ELSE
11173: csi_gen_utility_pvt.put_line('RMA line id is null');
11174: END IF;
11175: -- End addition for ER 3381250
11176: --
11177: IF p_transaction_type= 'SPL' THEN
11174: END IF;
11175: -- End addition for ER 3381250
11176: --
11177: IF p_transaction_type= 'SPL' THEN
11178: csi_gen_utility_pvt.put_line('SPL Transaction Type');
11179: OPEN instance_csr (p_new_instance_id);
11180: FETCH instance_csr INTO l_new_ins_csr;
11181: CLOSE instance_csr;
11182: --
11193: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11194: END IF;
11195: --
11196: IF p_transaction_type = 'TRF' THEN
11197: csi_gen_utility_pvt.put_line('TRF Transaction Type');
11198: -- Need to notify contracts with the system_id during 'TRF'.
11199: IF p_system_id IS NOT NULL AND
11200: p_system_id <> FND_API.G_MISS_NUM THEN
11201: p_oks_txn_inst_tbl(l_oks_txn_count).system_id := p_system_id;
11262: END IF;
11263: --
11264: -- Start addition for 'RPL'
11265: IF p_transaction_type= 'RPL' THEN
11266: csi_gen_utility_pvt.put_line('RPL Transaction Type');
11267: OPEN instance_csr (p_new_instance_id);
11268: FETCH instance_csr INTO l_new_instance_csr;
11269: CLOSE instance_csr;
11270: --
11279: p_oks_txn_inst_tbl(l_oks_txn_count).RPL := 'Y';
11280: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11281:
11282: --Added for bug 6617569--
11283: csi_gen_utility_pvt.put_line('Addition of order line id........');
11284: p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id := l_new_instance_csr.last_oe_order_line_id;
11285: csi_gen_utility_pvt.put_line('New order line id........'||p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id);
11286: csi_gen_utility_pvt.put_line('New instance id........'||p_oks_txn_inst_tbl(l_oks_txn_count).new_customer_product_id);
11287:
11281:
11282: --Added for bug 6617569--
11283: csi_gen_utility_pvt.put_line('Addition of order line id........');
11284: p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id := l_new_instance_csr.last_oe_order_line_id;
11285: csi_gen_utility_pvt.put_line('New order line id........'||p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id);
11286: csi_gen_utility_pvt.put_line('New instance id........'||p_oks_txn_inst_tbl(l_oks_txn_count).new_customer_product_id);
11287:
11288: END IF;
11289: END IF;
11282: --Added for bug 6617569--
11283: csi_gen_utility_pvt.put_line('Addition of order line id........');
11284: p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id := l_new_instance_csr.last_oe_order_line_id;
11285: csi_gen_utility_pvt.put_line('New order line id........'||p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id);
11286: csi_gen_utility_pvt.put_line('New instance id........'||p_oks_txn_inst_tbl(l_oks_txn_count).new_customer_product_id);
11287:
11288: END IF;
11289: END IF;
11290: IF p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id IS NULL THEN
11291: p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id := okc_api.g_miss_num;
11292: END IF;
11293: -- Pass G_MISS order line ID while un-expiring an Instance if there is no change to the line_id.
11294: IF p_transaction_type= 'NEW' THEN
11295: csi_gen_utility_pvt.put_line('NEW Transaction Type');
11296: IF nvl(p_order_line_id,-99999) <> FND_API.G_MISS_NUM THEN
11297: p_oks_txn_inst_tbl(l_oks_txn_count).order_line_id := nvl(p_order_line_id,FND_API.G_MISS_NUM);
11298: END IF;
11299: END IF;
11299: END IF;
11300: END IF;
11301: END IF;
11302: --
11303: csi_gen_utility_pvt.put_line('End Call_to_Contracts : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11304: EXCEPTION
11305: WHEN fnd_api.g_exc_error THEN
11306: RAISE fnd_api.g_exc_error;
11307: WHEN OTHERS THEN
11909: -- Check the profile option debug_level for debug message reporting
11910: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
11911: -- If debug_level = 1 then dump the procedure name
11912: IF (l_debug_level > 0) THEN
11913: csi_gen_utility_pvt.put_line ( 'update_item_instance_pvt');
11914: END IF;
11915: -- If the debug level = 2 then dump all the parameters values.
11916:
11917: IF (l_debug_level > 1) THEN
11914: END IF;
11915: -- If the debug level = 2 then dump all the parameters values.
11916:
11917: IF (l_debug_level > 1) THEN
11918: csi_gen_utility_pvt.put_line ( 'update_item_instance_pvt:' ||
11919: p_api_version ||'-'||
11920: p_commit ||'-'||
11921: p_init_msg_list );
11922:
11920: p_commit ||'-'||
11921: p_init_msg_list );
11922:
11923: --dump the records in a log file
11924: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
11925: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
11926: END IF;
11927: -- Start API body
11928: --
11921: p_init_msg_list );
11922:
11923: --dump the records in a log file
11924: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
11925: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
11926: END IF;
11927: -- Start API body
11928: --
11929: -- Initialize the Instance count
12704: )
12705: THEN
12706: -- FND_MESSAGE.SET_NAME('CSI', l_reason_failed); -- commented for bug 5351886
12707: -- FND_MSG_PUB.Add; -- commented for bug 5351886
12708: csi_gen_utility_pvt.put_line('Call to eam_assetnumber_pub.validate_fields failed with following reason');
12709: csi_gen_utility_pvt.put_line(l_reason_failed);
12710: RAISE FND_API.G_EXC_ERROR;
12711: END IF;
12712: ELSE
12705: THEN
12706: -- FND_MESSAGE.SET_NAME('CSI', l_reason_failed); -- commented for bug 5351886
12707: -- FND_MSG_PUB.Add; -- commented for bug 5351886
12708: csi_gen_utility_pvt.put_line('Call to eam_assetnumber_pub.validate_fields failed with following reason');
12709: csi_gen_utility_pvt.put_line(l_reason_failed);
12710: RAISE FND_API.G_EXC_ERROR;
12711: END IF;
12712: ELSE
12713: FND_MESSAGE.SET_NAME('CSI', 'CSI_NON_EAM_ITEM');
12735: -- instance location.
12736: IF l_get_instance_rec.lot_number IS NOT NULL AND
12737: l_get_instance_rec.lot_number <> FND_API.G_MISS_CHAR
12738: THEN
12739: csi_gen_utility_pvt.put_line('Calling Validate_Lot_Number..');
12740: -- Added for Bug# 4011408
12741: csi_Item_Instance_Vld_pvt.Validate_Lot_Number
12742: (
12743: p_inv_org_id => p_instance_rec.vld_organization_id,
12755: -- Commented for Bug# 4011408 since Validate_Lot_Number will do the basic validation
12756: --
12757: -- Validates the lot uniqueness and creates lot numbers in MLNs for manually created Instances
12758: -- Bug# 4011408
12759: csi_gen_utility_pvt.put_line('Calling Create_Lot routine in Update_Item_Instance API...');
12760: csi_item_instance_vld_pvt.Create_Lot
12761: (
12762: p_inv_org_id => p_instance_rec.vld_organization_id,
12763: p_inv_item_id => l_get_instance_rec.inventory_item_id,
12795: IF p_instance_rec.serial_number IS NOT NULL AND
12796: p_instance_rec.serial_number <> fnd_api.g_miss_char AND
12797: p_instance_rec.serial_number <> nvl(l_curr_instance_rec.serial_number,fnd_api.g_miss_char)
12798: THEN
12799: csi_gen_utility_pvt.put_line('before csi_item_instance_vld_pvt.validate_serial_for_upd');
12800: csi_item_instance_vld_pvt.validate_serial_for_upd(
12801: p_instance_rec => l_get_instance_rec,
12802: p_txn_rec => p_txn_rec,
12803: p_old_serial_number => l_curr_instance_rec.serial_number,
12825:
12826: IF l_get_instance_rec.serial_number IS NOT NULL AND
12827: l_get_instance_rec.serial_number <> FND_API.G_MISS_CHAR
12828: THEN
12829: csi_gen_utility_pvt.put_line('Calling Create_Serial...');
12830: csi_item_instance_vld_pvt.Create_Serial (
12831: p_inv_org_id => p_instance_rec.vld_organization_id,
12832: p_inv_item_id => l_get_instance_rec.inventory_item_id,
12833: p_serial_number => l_get_instance_rec.serial_number,
12868: ELSE
12869: l_pn_location_id := p_instance_rec.pn_location_id;
12870: END IF;
12871:
12872: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12869: l_pn_location_id := p_instance_rec.pn_location_id;
12870: END IF;
12871:
12872: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12877: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
12870: END IF;
12871:
12872: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12877: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
12878: eam_common_utilities_pvt.update_logical_asset
12871:
12872: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12877: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
12878: eam_common_utilities_pvt.update_logical_asset
12879: ( p_inventory_item_id => l_get_instance_rec.inventory_item_id
12872: csi_gen_utility_pvt.put_line( 'Calling eam_common_utilities_pvt.update_logical_asset...');
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12877: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
12878: eam_common_utilities_pvt.update_logical_asset
12879: ( p_inventory_item_id => l_get_instance_rec.inventory_item_id
12880: ,p_serial_number => l_get_instance_rec.serial_number
12873: csi_gen_utility_pvt.put_line( 'Inventory_item_id is :'||l_get_instance_rec.inventory_item_id);
12874: csi_gen_utility_pvt.put_line( 'Serial_number is :'||l_get_instance_rec.serial_number);
12875: csi_gen_utility_pvt.put_line( 'Network_asset_flag is :'||l_network_asset_flag);
12876: csi_gen_utility_pvt.put_line( 'Pn_location_id is :'||l_pn_location_id);
12877: csi_gen_utility_pvt.put_line( 'Equipment_gen_object_id is :'||p_instance_rec.equipment_gen_object_id);
12878: eam_common_utilities_pvt.update_logical_asset
12879: ( p_inventory_item_id => l_get_instance_rec.inventory_item_id
12880: ,p_serial_number => l_get_instance_rec.serial_number
12881: ,p_network_asset_flag => l_network_asset_flag
12885: );
12886:
12887: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS)
12888: THEN
12889: csi_gen_utility_pvt.put_line( 'Error from eam_common_utilities_pvt.update_logical_asset...');
12890: RAISE fnd_api.g_exc_error;
12891: END IF;
12892: END IF;
12893:
12901: IF l_get_instance_rec.serial_number IS NOT NULL AND
12902: l_get_instance_rec.serial_number <> FND_API.G_MISS_CHAR
12903: THEN
12904: IF nvl(l_get_instance_rec.instance_usage_code,'$#$') <> 'IN_RELATIONSHIP' THEN
12905: csi_gen_utility_pvt.put_line('Calling Validate_Srl_Num_for_Inst_Upd');
12906: csi_Item_Instance_Vld_pvt.Validate_Srl_Num_for_Inst_Upd(
12907: p_inv_org_id => p_instance_rec.vld_organization_id,
12908: p_inv_item_id => l_get_instance_rec.inventory_item_id , -- l_get
12909: p_serial_number => l_get_instance_rec.serial_number,
12941: l_check_instance_rec.inventory_item_id := l_get_instance_rec.inventory_item_id;
12942: l_check_instance_rec.serial_number := l_get_instance_rec.serial_number;
12943: l_check_instance_rec.lot_number := l_get_instance_rec.lot_number;
12944: l_check_instance_rec.last_txn_line_detail_id := p_instance_rec.last_txn_line_detail_id;
12945: csi_gen_utility_pvt.put_line('Calling Check_Prior_Txn');
12946: csi_Item_Instance_Vld_pvt.Check_Prior_Txn
12947: (
12948: p_instance_rec => l_check_instance_rec
12949: ,p_txn_rec => p_txn_rec
12960: IF nvl(l_get_instance_rec.instance_usage_code,'$#$') <> 'IN_RELATIONSHIP' THEN
12961: IF l_get_instance_rec.inventory_revision IS NOT NULL AND
12962: l_get_instance_rec.inventory_revision <> FND_API.G_MISS_CHAR
12963: THEN
12964: csi_gen_utility_pvt.put_line('Calling Update_Revision');
12965: csi_item_instance_vld_pvt.Update_Revision
12966: (
12967: p_inv_item_id => l_get_instance_rec.inventory_item_id ,
12968: p_inv_org_id => p_instance_rec.vld_organization_id,
14144: IF NOT eam_common_utilities_pvt.check_deactivate
14145: (p_maintenance_object_id => p_instance_rec.instance_id
14146: ,p_maintenance_object_type => l_maintenance_object_type)
14147: THEN
14148: csi_gen_utility_pvt.put_line('Error from eam_common_utilities_pvt.check_deactivate API ');
14149: RAISE fnd_api.g_exc_error;
14150: END IF;
14151: END IF;
14152: -- End code addition for eam integration
14336: ,x_msg_data => x_msg_data);
14337:
14338: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
14339: THEN
14340: csi_gen_utility_pvt.put_line('Error from eam_maint_attributes_pub.update_maint_attributes..');
14341: RAISE FND_API.G_EXC_ERROR;
14342: END IF;
14343: END IF;
14344: END IF;
14344: END IF;
14345: -- calling the Counters API to associate counters to an instance
14346: -- Added to restrict the counter instantiation for an item in 'INVENTORY', by rtalluri for the enh. 2308703.
14347: -- Start of Fix for Bug: 2411622 by rtalluri - 06/25/02
14348: csi_gen_utility_pvt.put_line('p_instance_rec.quantity is '||to_char(p_instance_rec.quantity));
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14345: -- calling the Counters API to associate counters to an instance
14346: -- Added to restrict the counter instantiation for an item in 'INVENTORY', by rtalluri for the enh. 2308703.
14347: -- Start of Fix for Bug: 2411622 by rtalluri - 06/25/02
14348: csi_gen_utility_pvt.put_line('p_instance_rec.quantity is '||to_char(p_instance_rec.quantity));
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14346: -- Added to restrict the counter instantiation for an item in 'INVENTORY', by rtalluri for the enh. 2308703.
14347: -- Start of Fix for Bug: 2411622 by rtalluri - 06/25/02
14348: csi_gen_utility_pvt.put_line('p_instance_rec.quantity is '||to_char(p_instance_rec.quantity));
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14354: csi_gen_utility_pvt.put_line('l_serial_control is '||l_serial_control);
14347: -- Start of Fix for Bug: 2411622 by rtalluri - 06/25/02
14348: csi_gen_utility_pvt.put_line('p_instance_rec.quantity is '||to_char(p_instance_rec.quantity));
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14354: csi_gen_utility_pvt.put_line('l_serial_control is '||l_serial_control);
14355: --
14348: csi_gen_utility_pvt.put_line('p_instance_rec.quantity is '||to_char(p_instance_rec.quantity));
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14354: csi_gen_utility_pvt.put_line('l_serial_control is '||l_serial_control);
14355: --
14356: -- srramakr Bug # 2484611. Eliminated counter instantiation for serialized items since it is already
14349: csi_gen_utility_pvt.put_line('l_curr_instance_rec.quantity is '||to_char(l_curr_instance_rec.quantity));
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14354: csi_gen_utility_pvt.put_line('l_serial_control is '||l_serial_control);
14355: --
14356: -- srramakr Bug # 2484611. Eliminated counter instantiation for serialized items since it is already
14357: -- instantiated when the instance is in INV. Also used Accounting_class_code in the check for the case
14350: csi_gen_utility_pvt.put_line('p_instance_rec.location_type_code is '||p_instance_rec.location_type_code);
14351: csi_gen_utility_pvt.put_line('l_get_instance_rec.location_type_code is '||l_get_instance_rec.location_type_code);
14352: csi_gen_utility_pvt.put_line('p_instance_rec.accounting_class_code is '||p_instance_rec.accounting_class_code);
14353: csi_gen_utility_pvt.put_line('l_curr_instance_rec.accounting_class_code is '||l_curr_instance_rec.accounting_class_code);
14354: csi_gen_utility_pvt.put_line('l_serial_control is '||l_serial_control);
14355: --
14356: -- srramakr Bug # 2484611. Eliminated counter instantiation for serialized items since it is already
14357: -- instantiated when the instance is in INV. Also used Accounting_class_code in the check for the case
14358: -- where shipping finds exact match in staging. (It just updates in this case).
14406: IF l_exists = 'N' THEN
14407:
14408: FND_File.Put_Line(Fnd_File.LOG,'Calling counter instantiate');
14409:
14410: csi_gen_utility_pvt.put_line('Calling Autoinstantiate counters');
14411:
14412: csi_counter_template_pub.autoinstantiate_counters
14413: ( p_api_version => 1.0
14414: ,p_init_msg_list => FND_API.G_FALSE
14525: l_exists := 'N';
14526: WHEN OTHERS THEN
14527: l_exists := 'Y';
14528: END;
14529: csi_gen_utility_pvt.put_line('Value of l_exists '||l_exists);
14530:
14531: IF l_exists='Y' AND
14532: l_eam_item AND
14533: (NVL(l_curr_instance_rec.network_asset_flag,'N')<>'Y' AND
14544: INTO l_latest_maint_org_id
14545: FROM mtl_parameters
14546: WHERE organization_id = l_get_instance_rec.vld_organization_id;
14547: l_ctr:=1;
14548: csi_gen_utility_pvt.put_line('There is a change in vld organization...');
14549: csi_gen_utility_pvt.put_line('Value of current maint org is :'||l_curr_maint_org_id);
14550: csi_gen_utility_pvt.put_line('Value of new maint org is :'||l_latest_maint_org_id);
14551: IF NVL(l_curr_maint_org_id,fnd_api.g_miss_num) <>
14552: NVL(l_latest_maint_org_id,fnd_api.g_miss_num)
14545: FROM mtl_parameters
14546: WHERE organization_id = l_get_instance_rec.vld_organization_id;
14547: l_ctr:=1;
14548: csi_gen_utility_pvt.put_line('There is a change in vld organization...');
14549: csi_gen_utility_pvt.put_line('Value of current maint org is :'||l_curr_maint_org_id);
14550: csi_gen_utility_pvt.put_line('Value of new maint org is :'||l_latest_maint_org_id);
14551: IF NVL(l_curr_maint_org_id,fnd_api.g_miss_num) <>
14552: NVL(l_latest_maint_org_id,fnd_api.g_miss_num)
14553: THEN
14546: WHERE organization_id = l_get_instance_rec.vld_organization_id;
14547: l_ctr:=1;
14548: csi_gen_utility_pvt.put_line('There is a change in vld organization...');
14549: csi_gen_utility_pvt.put_line('Value of current maint org is :'||l_curr_maint_org_id);
14550: csi_gen_utility_pvt.put_line('Value of new maint org is :'||l_latest_maint_org_id);
14551: IF NVL(l_curr_maint_org_id,fnd_api.g_miss_num) <>
14552: NVL(l_latest_maint_org_id,fnd_api.g_miss_num)
14553: THEN
14554: FOR l_upd_ctr_assn_csr IN upd_ctr_assn_csr(p_instance_rec.instance_id)
14591: END LOOP;
14592:
14593: IF l_ctr_associations_tbl.COUNT >0
14594: THEN
14595: csi_gen_utility_pvt.put_line('Calling update counter associations.');
14596: CSI_COUNTER_PUB.update_ctr_associations
14597: (p_api_version => 1.0
14598: ,p_commit => FND_API.G_FALSE
14599: ,p_init_msg_list => FND_API.G_FALSE
14604: ,x_msg_data => x_msg_data
14605: );
14606: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
14607: THEN
14608: csi_gen_utility_pvt.put_line('Error from csi_counter_pub.update_ctr_associations..');
14609: RAISE FND_API.G_EXC_ERROR;
14610: END IF;
14611: END IF;
14612: END IF;
14638:
14639: -- Get the full_dump_frequency from csi_install_parameter
14640: --
14641: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
14642: csi_gen_utility_pvt.populate_install_param_rec;
14643: END IF;
14644: --
14645: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
14646: --
18507: ,p_ref_id => l_instance_history_id
18508: ,p_event_date => sysdate);
18509: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
18510: THEN
18511: csi_gen_utility_pvt.put_line('Error from eam_asset_log_pvt.instance_update_event API');
18512: RAISE fnd_api.g_exc_error;
18513: END IF;
18514: END IF;
18515: -- Calling eam API to log instance update event
18733: );
18734: --
18735: --
18736: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
18737: csi_gen_utility_pvt.put_line('Error from UPDATE_CHILD_INSTANCE_LOCATION..');
18738: RAISE FND_API.G_EXC_ERROR;
18739: END IF;
18740:
18741: END IF;
19019: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
19020:
19021: -- If debug_level = 1 then dump the procedure name
19022: IF (l_debug_level > 0) THEN
19023: csi_gen_utility_pvt.put_line ( 'expire_child_instance_pvt');
19024: END IF;
19025:
19026: -- If the debug level = 2 then dump all the parameters values.
19027: IF (l_debug_level >1) THEN
19024: END IF;
19025:
19026: -- If the debug level = 2 then dump all the parameters values.
19027: IF (l_debug_level >1) THEN
19028: csi_gen_utility_pvt.put_line ( 'expire_child_instance_pvt :'||
19029: p_api_version ||'-'||
19030: p_commit ||'-'||
19031: p_init_msg_list );
19032: END IF;
19056: END IF;
19057: END IF;
19058: --
19059: -- FOR l_child_instance_id IN child_instances
19060: csi_gen_utility_pvt.put_line('Child 2 count is '||to_char(l_rel_tbl.count));
19061: IF l_rel_tbl.count > 0 THEN
19062: FOR j IN l_rel_tbl.FIRST .. l_rel_tbl.LAST
19063: LOOP
19064: -- Opening Cursor to retrieve Child Id records Details
19161: IF NOT eam_common_utilities_pvt.check_deactivate
19162: (p_maintenance_object_id => p_instance_rec.instance_id
19163: ,p_maintenance_object_type => l_maintenance_object_type)
19164: THEN
19165: csi_gen_utility_pvt.put_line('Error from eam_common_utilities_pvt.check_deactivate API ');
19166: RAISE fnd_api.g_exc_error;
19167: END IF;
19168: END IF;
19169: -- End code addition for eam integration
19335: END IF;
19336:
19337: -- Get the full_dump_frequency from csi_install_parameter
19338: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
19339: csi_gen_utility_pvt.populate_install_param_rec;
19340: END IF;
19341: --
19342: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
19343: --
19824: ,p_ref_id => l_instance_history_id
19825: ,p_event_date => sysdate);
19826: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
19827: THEN
19828: csi_gen_utility_pvt.put_line('Error from eam_asset_log_pvt.instance_update_event API');
19829: RAISE fnd_api.g_exc_error;
19830: END IF;
19831: END IF;
19832: -- Calling eam API to log instance update event
19872: x_msg_data := FND_MSG_PUB.GET
19873: ( l_msg_index,
19874: FND_API.G_FALSE
19875: );
19876: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
19877: l_msg_index := l_msg_index + 1;
19878: l_msg_count := l_msg_count - 1;
19879: END LOOP;
19880: RAISE FND_API.G_EXC_ERROR;
20136: l_debug_level:=fnd_profile.value('DEBUG_LEVEL');
20137:
20138: -- If debug_level = 1 then dump the procedure name
20139: IF (l_debug_level > 0) THEN
20140: csi_gen_utility_pvt.put_line ( 'expire_item_instance_pvt');
20141: END IF;
20142:
20143: -- If the debug level = 2 then dump all the parameters values.
20144: IF (l_debug_level > 1) THEN
20141: END IF;
20142:
20143: -- If the debug level = 2 then dump all the parameters values.
20144: IF (l_debug_level > 1) THEN
20145: csi_gen_utility_pvt.put_line ( 'expire_item_instance_pvt :'||
20146: p_api_version ||'-'||
20147: p_commit ||'-'||
20148: p_init_msg_list );
20149:
20147: p_commit ||'-'||
20148: p_init_msg_list );
20149:
20150: --dump the records in to a log file
20151: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
20152: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
20153: END IF;
20154:
20155: -- Start API body
20148: p_init_msg_list );
20149:
20150: --dump the records in to a log file
20151: csi_gen_utility_pvt.dump_instance_rec(p_instance_rec);
20152: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
20153: END IF;
20154:
20155: -- Start API body
20156: -- Check if all the required parameters are passed
20253: RAISE FND_API.G_EXC_ERROR;
20254: END IF;
20255: END IF;
20256: --
20257: csi_gen_utility_pvt.put_line('Child count is ..'||to_char(l_rel_tbl.count));
20258: l_dummy := l_rel_tbl.count;
20259: IF l_dummy > 0 THEN
20260: l_has_unexpired_children := TRUE;
20261: ELSE
20340: END IF;
20341: -- End addition for bug 2416193
20342:
20343: -- Added code to expire relationship where the instance expired is the child, bug 6788183
20344: csi_gen_utility_pvt.put_line('Expiring relationship for the instance id - ' || p_instance_rec.instance_id);
20345: FOR l_inst_relationship_rec in relationship_csr(p_instance_rec.instance_id)
20346: LOOP
20347: BEGIN
20348: csi_gen_utility_pvt.put_line('Expiring relationship with id - ' || l_inst_relationship_rec.relationship_id);
20344: csi_gen_utility_pvt.put_line('Expiring relationship for the instance id - ' || p_instance_rec.instance_id);
20345: FOR l_inst_relationship_rec in relationship_csr(p_instance_rec.instance_id)
20346: LOOP
20347: BEGIN
20348: csi_gen_utility_pvt.put_line('Expiring relationship with id - ' || l_inst_relationship_rec.relationship_id);
20349: l_exp_rltns_rec.relationship_id := l_inst_relationship_rec.relationship_id;
20350: l_exp_rltns_rec.object_version_number := l_inst_relationship_rec.object_version_number;
20351:
20352: csi_t_gen_utility_pvt.dump_api_info(
20370: END IF;
20371: END;
20372: END LOOP;
20373:
20374: csi_gen_utility_pvt.put_line('End of expiring relationships for instance with id - ' || p_instance_rec.instance_id);
20375: -- End of addition for the bug 6788183
20376:
20377: -- Added the following code for eam integration
20378: IF p_instance_rec.vld_organization_id IS NULL OR
20407: IF NOT eam_common_utilities_pvt.check_deactivate
20408: (p_maintenance_object_id => p_instance_rec.instance_id
20409: ,p_maintenance_object_type => l_maintenance_object_type)
20410: THEN
20411: csi_gen_utility_pvt.put_line('Error from eam_common_utilities_pvt.check_deactivate API ');
20412: RAISE fnd_api.g_exc_error;
20413: END IF;
20414: END IF;
20415: -- End code addition for eam integration
20592:
20593: -- Get the full_dump_frequency from csi_install_parameter
20594: --
20595: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
20596: csi_gen_utility_pvt.populate_install_param_rec;
20597: END IF;
20598: --
20599: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
20600: --
21311: ,p_ref_id => l_instance_history_id
21312: ,p_event_date => sysdate);
21313: IF NOT(x_return_status = fnd_api.g_ret_sts_success)
21314: THEN
21315: csi_gen_utility_pvt.put_line('Error from eam_asset_log_pvt.instance_update_event API');
21316: RAISE fnd_api.g_exc_error;
21317: END IF;
21318: END IF;
21319: -- Calling eam API to log instance update event
21359: x_msg_data := FND_MSG_PUB.GET
21360: ( l_msg_index,
21361: FND_API.G_FALSE
21362: );
21363: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
21364: l_msg_index := l_msg_index + 1;
21365: l_msg_count := l_msg_count - 1;
21366: END LOOP;
21367: RAISE FND_API.G_EXC_ERROR;
21515: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
21516:
21517: -- If debug_level = 1 then dump the procedure name
21518: IF (l_debug_level > 0) THEN
21519: csi_gen_utility_pvt.put_line ( 'split_item_instance_pvt');
21520: END IF;
21521:
21522: -- If the debug level = 2 then dump all the parameters values.
21523: IF (l_debug_level > 1) THEN
21520: END IF;
21521:
21522: -- If the debug level = 2 then dump all the parameters values.
21523: IF (l_debug_level > 1) THEN
21524: csi_gen_utility_pvt.put_line ('split_item_instance_pvt' ||
21525: p_api_version ||'-'||
21526: p_commit ||'-'||
21527: p_init_msg_list );
21528: -- Dump the records in the log file
21525: p_api_version ||'-'||
21526: p_commit ||'-'||
21527: p_init_msg_list );
21528: -- Dump the records in the log file
21529: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
21530: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
21531: END IF;
21532:
21533: -- Start API body
21526: p_commit ||'-'||
21527: p_init_msg_list );
21528: -- Dump the records in the log file
21529: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
21530: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
21531: END IF;
21532:
21533: -- Start API body
21534:
21827: RAISE FND_API.G_EXC_ERROR;
21828: END IF;
21829: --
21830: IF px_oks_txn_inst_tbl.count > 0 THEN
21831: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
21832: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
21833: --
21834: IF p_txn_rec.transaction_type_id = 3 THEN
21835: l_batch_id := p_txn_rec.source_header_ref_id;
21828: END IF;
21829: --
21830: IF px_oks_txn_inst_tbl.count > 0 THEN
21831: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
21832: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
21833: --
21834: IF p_txn_rec.transaction_type_id = 3 THEN
21835: l_batch_id := p_txn_rec.source_header_ref_id;
21836: l_batch_type := p_txn_rec.source_group_ref;
21862: WHILE l_msg_count > 0 LOOP
21863: x_msg_data := FND_MSG_PUB.GET
21864: ( l_msg_index,
21865: FND_API.G_FALSE );
21866: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
21867: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
21868: l_msg_index := l_msg_index + 1;
21869: l_msg_count := l_msg_count - 1;
21870: END LOOP;
21863: x_msg_data := FND_MSG_PUB.GET
21864: ( l_msg_index,
21865: FND_API.G_FALSE );
21866: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
21867: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
21868: l_msg_index := l_msg_index + 1;
21869: l_msg_count := l_msg_count - 1;
21870: END LOOP;
21871: RAISE FND_API.G_EXC_ERROR;
22014: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
22015:
22016: -- If debug_level = 1 then dump the procedure name
22017: IF (l_debug_level > 0) THEN
22018: csi_gen_utility_pvt.put_line ( 'split_item_instance_lines_pvt');
22019: END IF;
22020:
22021: -- If the debug level = 2 then dump all the parameters values.
22022: IF (l_debug_level > 1) THEN
22019: END IF;
22020:
22021: -- If the debug level = 2 then dump all the parameters values.
22022: IF (l_debug_level > 1) THEN
22023: csi_gen_utility_pvt.put_line ('split_item_instance_lines_pvt' ||
22024: p_api_version ||'-'||
22025: p_commit ||'-'||
22026: p_init_msg_list );
22027: -- Dump the records in the log file
22024: p_api_version ||'-'||
22025: p_commit ||'-'||
22026: p_init_msg_list );
22027: -- Dump the records in the log file
22028: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
22029: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
22030: END IF;
22031:
22032: -- Start API body
22025: p_commit ||'-'||
22026: p_init_msg_list );
22027: -- Dump the records in the log file
22028: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
22029: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
22030: END IF;
22031:
22032: -- Start API body
22033:
22267: RAISE FND_API.G_EXC_ERROR;
22268: END IF;
22269: --
22270: IF px_oks_txn_inst_tbl.count > 0 THEN
22271: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
22272: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
22273: --
22274: IF p_txn_rec.transaction_type_id = 3 THEN
22275: l_batch_id := p_txn_rec.source_header_ref_id;
22268: END IF;
22269: --
22270: IF px_oks_txn_inst_tbl.count > 0 THEN
22271: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
22272: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
22273: --
22274: IF p_txn_rec.transaction_type_id = 3 THEN
22275: l_batch_id := p_txn_rec.source_header_ref_id;
22276: l_batch_type := p_txn_rec.source_group_ref;
22302: WHILE l_msg_count > 0 LOOP
22303: x_msg_data := FND_MSG_PUB.GET
22304: ( l_msg_index,
22305: FND_API.G_FALSE );
22306: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
22307: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
22308: l_msg_index := l_msg_index + 1;
22309: l_msg_count := l_msg_count - 1;
22310: END LOOP;
22303: x_msg_data := FND_MSG_PUB.GET
22304: ( l_msg_index,
22305: FND_API.G_FALSE );
22306: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
22307: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
22308: l_msg_index := l_msg_index + 1;
22309: l_msg_count := l_msg_count - 1;
22310: END LOOP;
22311: RAISE FND_API.G_EXC_ERROR;
23074: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
23075:
23076: -- If debug_level = 1 then dump the procedure name
23077: IF (l_debug_level > 0) THEN
23078: csi_gen_utility_pvt.put_line ( 'create_version_label');
23079: END IF;
23080:
23081: -- If the debug level = 2 then dump all the parameters values.
23082: IF (l_debug_level > 1) THEN
23079: END IF;
23080:
23081: -- If the debug level = 2 then dump all the parameters values.
23082: IF (l_debug_level > 1) THEN
23083: csi_gen_utility_pvt.put_line ( 'create_version_label:'||
23084: p_api_version ||'-'||
23085: p_commit ||'-'||
23086: p_init_msg_list );
23087: -- Dump the records in the log file
23084: p_api_version ||'-'||
23085: p_commit ||'-'||
23086: p_init_msg_list );
23087: -- Dump the records in the log file
23088: csi_gen_utility_pvt.dump_version_label_rec(p_version_label_rec);
23089: END IF;
23090:
23091: -- Start API body
23092: --
23220: WHILE x_msg_count > 0 LOOP
23221: x_msg_data := FND_MSG_PUB.GET(
23222: l_msg_index,
23223: FND_API.G_FALSE );
23224: CSI_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
23225: l_msg_index := l_msg_index + 1;
23226: x_msg_count := x_msg_count - 1;
23227: END LOOP;
23228: RAISE FND_API.G_EXC_ERROR;
23433: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
23434:
23435: -- If debug_level = 1 then dump the procedure name
23436: IF (l_debug_level > 0) THEN
23437: CSI_gen_utility_pvt.put_line( 'update_version_label');
23438: END IF;
23439:
23440: -- If the debug level = 2 then dump all the parameters values.
23441: IF (l_debug_level > 1) THEN
23438: END IF;
23439:
23440: -- If the debug level = 2 then dump all the parameters values.
23441: IF (l_debug_level > 1) THEN
23442: CSI_gen_utility_pvt.put_line( 'update_version_label:'||
23443: p_api_version ||'-'||
23444: p_commit ||'-'||
23445: p_init_msg_list ||'-'||
23446: p_validation_level );
23543: FND_MSG_PUB.Get(p_msg_index => i,
23544: p_encoded => 'F',
23545: p_data => x_msg_data,
23546: p_msg_index_out => x_msg_index_out );
23547: CSI_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
23548: End LOOP;
23549: RAISE FND_API.G_EXC_ERROR;
23550: END IF;
23551: END IF;
23554:
23555: -- Get the full_dump_frequency from csi_install_parameter
23556: --
23557: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
23558: csi_gen_utility_pvt.populate_install_param_rec;
23559: END IF;
23560: --
23561: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
23562: --
24546: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
24547:
24548: -- If debug_level = 1 then dump the procedure name
24549: IF (l_debug_level > 0) THEN
24550: CSI_gen_utility_pvt.put_line( 'update_version_label');
24551: END IF;
24552:
24553: -- If the debug level = 2 then dump all the parameters values.
24554: IF (l_debug_level > 1) THEN
24551: END IF;
24552:
24553: -- If the debug level = 2 then dump all the parameters values.
24554: IF (l_debug_level > 1) THEN
24555: CSI_gen_utility_pvt.put_line( 'update_version_label:'||
24556: p_api_version ||'-'||
24557: p_commit ||'-'||
24558: p_init_msg_list );
24559: END IF;
24655: FND_MSG_PUB.Get(p_msg_index => i,
24656: p_encoded => 'F',
24657: p_data => x_msg_data,
24658: p_msg_index_out => x_msg_index_out );
24659: CSI_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
24660: End LOOP;
24661: RAISE FND_API.G_EXC_ERROR;
24662: END IF;
24663:
24665: l_version_label_hist_id := CSI_Instance_parties_vld_pvt.gen_ver_label_hist_id;
24666:
24667: -- Get the full_dump_frequency from csi_install_parameter
24668: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
24669: csi_gen_utility_pvt.populate_install_param_rec;
24670: END IF;
24671: --
24672: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
24673: --
25476: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
25477:
25478: -- If debug_level = 1 then dump the procedure name
25479: IF (l_debug_level > 0) THEN
25480: csi_gen_utility_pvt.put_line( 'create_extended_attrib_values');
25481: END IF;
25482:
25483:
25484: -- If the debug level = 2 then dump all the parameters values.
25482:
25483:
25484: -- If the debug level = 2 then dump all the parameters values.
25485: IF (l_debug_level > 1) THEN
25486: csi_gen_utility_pvt.put_line( p_api_version ||'-'
25487: || p_commit ||'-'
25488: || p_init_msg_list ||'-'
25489: || p_validation_level );
25490: -- Dump extended attribute rec
25487: || p_commit ||'-'
25488: || p_init_msg_list ||'-'
25489: || p_validation_level );
25490: -- Dump extended attribute rec
25491: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
25492: -- Dump txn_rec
25493: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
25494: END IF;
25495:
25489: || p_validation_level );
25490: -- Dump extended attribute rec
25491: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
25492: -- Dump txn_rec
25493: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
25494: END IF;
25495:
25496:
25497: -- Start API body
25670: x_msg_data := FND_MSG_PUB.GET
25671: (l_msg_index,
25672: FND_API.G_FALSE );
25673:
25674: csi_gen_utility_pvt.put_line( ' Failed Pvt:update_extended_attrib_values..');
25675: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
25676: l_msg_index := l_msg_index + 1;
25677: l_msg_count := l_msg_count - 1;
25678: END LOOP;
25671: (l_msg_index,
25672: FND_API.G_FALSE );
25673:
25674: csi_gen_utility_pvt.put_line( ' Failed Pvt:update_extended_attrib_values..');
25675: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
25676: l_msg_index := l_msg_index + 1;
25677: l_msg_count := l_msg_count - 1;
25678: END LOOP;
25679: RAISE FND_API.G_EXC_ERROR;
25861: x_msg_data := FND_MSG_PUB.GET
25862: (l_msg_index,
25863: FND_API.G_FALSE );
25864:
25865: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
25866: l_msg_index := l_msg_index + 1;
25867: l_msg_count := l_msg_count - 1;
25868: END LOOP;
25869: RAISE FND_API.G_EXC_ERROR;
26056: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
26057:
26058: -- If debug_level = 1 then dump the procedure name
26059: IF (l_debug_level > 0) THEN
26060: csi_gen_utility_pvt.put_line( 'update_extended_attrib_values');
26061: END IF;
26062:
26063:
26064: -- If the debug level = 2 then dump all the parameters values.
26062:
26063:
26064: -- If the debug level = 2 then dump all the parameters values.
26065: IF (l_debug_level > 1) THEN
26066: csi_gen_utility_pvt.put_line(
26067: p_api_version ||'-'
26068: || p_commit ||'-'
26069: || p_init_msg_list ||'-'
26070: || p_validation_level );
26068: || p_commit ||'-'
26069: || p_init_msg_list ||'-'
26070: || p_validation_level );
26071: -- Dump extended attribute rec
26072: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
26073: -- Dump txn_rec
26074: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
26075: END IF;
26076:
26070: || p_validation_level );
26071: -- Dump extended attribute rec
26072: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
26073: -- Dump txn_rec
26074: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
26075: END IF;
26076:
26077:
26078: -- Start API body
26222: x_msg_data := FND_MSG_PUB.GET
26223: (l_msg_index,
26224: FND_API.G_FALSE );
26225:
26226: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
26227: l_msg_index := l_msg_index + 1;
26228: l_msg_count := l_msg_count - 1;
26229: END LOOP;
26230: RAISE FND_API.G_EXC_ERROR;
27131: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
27132:
27133: -- If debug_level = 1 then dump the procedure name
27134: IF (l_debug_level > 0) THEN
27135: csi_gen_utility_pvt.put_line( 'expire_extended_attrib_values');
27136: END IF;
27137:
27138:
27139: -- If the debug level = 2 then dump all the parameters values.
27137:
27138:
27139: -- If the debug level = 2 then dump all the parameters values.
27140: IF (l_debug_level > 1) THEN
27141: csi_gen_utility_pvt.put_line(
27142: p_api_version ||'-'
27143: || p_commit ||'-'
27144: || p_init_msg_list ||'-'
27145: || p_validation_level);
27143: || p_commit ||'-'
27144: || p_init_msg_list ||'-'
27145: || p_validation_level);
27146: -- Dump extended attribute rec
27147: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
27148: -- Dump txn_rec
27149: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
27150: END IF;
27151:
27145: || p_validation_level);
27146: -- Dump extended attribute rec
27147: csi_gen_utility_pvt.dump_ext_attrib_values_rec(p_ext_attrib_rec);
27148: -- Dump txn_rec
27149: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
27150: END IF;
27151:
27152:
27153: -- Start API body
27205: x_msg_data := FND_MSG_PUB.GET
27206: (l_msg_index,
27207: FND_API.G_FALSE );
27208:
27209: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
27210: l_msg_index := l_msg_index + 1;
27211: l_msg_count := l_msg_count - 1;
27212: END LOOP;
27213: RAISE FND_API.G_EXC_ERROR;
27376: -- Check the profile option debug_level for debug message reporting
27377: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
27378: -- If debug_level = 1 then dump the procedure name
27379: IF (l_debug_level > 0) THEN
27380: csi_gen_utility_pvt.put_line('copy_single_item_instance ');
27381: END IF;
27382: -- If the debug level = 2 then dump all the parameters values.
27383: IF (l_debug_level > 1) THEN
27384: csi_gen_utility_pvt.put_line('copy_single_item_instance '||
27380: csi_gen_utility_pvt.put_line('copy_single_item_instance ');
27381: END IF;
27382: -- If the debug level = 2 then dump all the parameters values.
27383: IF (l_debug_level > 1) THEN
27384: csi_gen_utility_pvt.put_line('copy_single_item_instance '||
27385: p_api_version ||'-'
27386: || p_commit ||'-'
27387: || p_init_msg_list ||'-'
27388: || p_validation_level ||'-'
27394: || p_copy_asset_assignments ||'-'
27395: || p_copy_pricing_attribs
27396: );
27397: -- Dump item instanc red
27398: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
27399: -- Dump txn_rec
27400: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
27401:
27402: END IF;
27396: );
27397: -- Dump item instanc red
27398: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
27399: -- Dump txn_rec
27400: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
27401:
27402: END IF;
27403: -- Start API body
27404: -- Check if an instance id is passed in p_source_instance_rec or not.
27475: WHILE l_msg_count > 0 LOOP
27476: x_msg_data := FND_MSG_PUB.GET
27477: (l_msg_index,
27478: FND_API.G_FALSE );
27479: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
27480: l_msg_index := l_msg_index + 1;
27481: l_msg_count := l_msg_count - 1;
27482: END LOOP;
27483: RAISE FND_API.G_EXC_ERROR;
27508: x_msg_data := FND_MSG_PUB.GET
27509: (l_msg_index,
27510: FND_API.G_FALSE );
27511:
27512: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
27513: l_msg_index := l_msg_index + 1;
27514: l_msg_count := l_msg_count - 1;
27515: END LOOP;
27516: RAISE FND_API.G_EXC_ERROR;
27620: WHILE l_msg_count > 0 LOOP
27621: x_msg_data := FND_MSG_PUB.GET
27622: (l_msg_index,
27623: FND_API.G_FALSE );
27624: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
27625: l_msg_index := l_msg_index + 1;
27626: l_msg_count := l_msg_count - 1;
27627: END LOOP;
27628: RAISE FND_API.G_EXC_ERROR;
28402: x_msg_data := FND_MSG_PUB.GET
28403: (l_msg_index,
28404: FND_API.G_FALSE );
28405:
28406: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28407: l_msg_index := l_msg_index + 1;
28408: l_msg_count := l_msg_count - 1;
28409: END LOOP;
28410: RAISE FND_API.G_EXC_ERROR;
28446: WHILE l_msg_count > 0 LOOP
28447: x_msg_data := FND_MSG_PUB.GET
28448: (l_msg_index,
28449: FND_API.G_FALSE );
28450: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28451: l_msg_index := l_msg_index + 1;
28452: l_msg_count := l_msg_count - 1;
28453: END LOOP;
28454: RAISE FND_API.G_EXC_ERROR;
28570: x_msg_data := FND_MSG_PUB.GET
28571: (l_msg_index,
28572: FND_API.G_FALSE );
28573:
28574: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28575: l_msg_index := l_msg_index + 1;
28576: l_msg_count := l_msg_count - 1;
28577: END LOOP;
28578: RAISE FND_API.G_EXC_ERROR;
28654: WHILE l_msg_count > 0 LOOP
28655: x_msg_data := FND_MSG_PUB.GET
28656: (l_msg_index,
28657: FND_API.G_FALSE );
28658: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28659: l_msg_index := l_msg_index + 1;
28660: l_msg_count := l_msg_count - 1;
28661: END LOOP;
28662: RAISE FND_API.G_EXC_ERROR;
28709: WHILE l_msg_count > 0 LOOP
28710: x_msg_data := FND_MSG_PUB.GET
28711: (l_msg_index,
28712: FND_API.G_FALSE );
28713: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28714: l_msg_index := l_msg_index + 1;
28715: l_msg_count := l_msg_count - 1;
28716: END LOOP;
28717: RAISE FND_API.G_EXC_ERROR;
28744: WHILE l_msg_count > 0 LOOP
28745: x_msg_data := FND_MSG_PUB.GET
28746: (l_msg_index,
28747: FND_API.G_FALSE );
28748: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28749: l_msg_index := l_msg_index + 1;
28750: l_msg_count := l_msg_count - 1;
28751: END LOOP;
28752: RAISE FND_API.G_EXC_ERROR;
28791: WHILE l_msg_count > 0 LOOP
28792: x_msg_data := FND_MSG_PUB.GET
28793: (l_msg_index,
28794: FND_API.G_FALSE );
28795: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28796: l_msg_index := l_msg_index + 1;
28797: l_msg_count := l_msg_count - 1;
28798: END LOOP;
28799: RAISE FND_API.G_EXC_ERROR;
28830: WHILE l_msg_count > 0 LOOP
28831: x_msg_data := FND_MSG_PUB.GET
28832: (l_msg_index,
28833: FND_API.G_FALSE );
28834: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28835: l_msg_index := l_msg_index + 1;
28836: l_msg_count := l_msg_count - 1;
28837: END LOOP;
28838: RAISE FND_API.G_EXC_ERROR;
28898: x_msg_data := FND_MSG_PUB.GET
28899: (l_msg_index,
28900: FND_API.G_FALSE );
28901:
28902: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28903: l_msg_index := l_msg_index + 1;
28904: l_msg_count := l_msg_count - 1;
28905: END LOOP;
28906: RAISE FND_API.G_EXC_ERROR;
28931: WHILE l_msg_count > 0 LOOP
28932: x_msg_data := FND_MSG_PUB.GET
28933: (l_msg_index,
28934: FND_API.G_FALSE );
28935: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28936: l_msg_index := l_msg_index + 1;
28937: l_msg_count := l_msg_count - 1;
28938: END LOOP;
28939:
28966: WHILE l_msg_count > 0 LOOP
28967: x_msg_data := FND_MSG_PUB.GET
28968: (l_msg_index,
28969: FND_API.G_FALSE );
28970: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
28971: l_msg_index := l_msg_index + 1;
28972: l_msg_count := l_msg_count - 1;
28973: END LOOP;
28974: RAISE FND_API.G_EXC_ERROR;
29013: ,x_msg_data => x_msg_data
29014: );
29015:
29016: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
29017: csi_gen_utility_pvt.put_line( ' Error from COPY_SINGLE_ITEM_INSTANCE.CREATE_VERSION_LABEL..');
29018: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
29019: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_CREATE_VERSION');
29020: FND_MESSAGE.SET_TOKEN('API_ERROR','CREATE_VERSION_LABEL');
29021: FND_MSG_PUB.Add;
29014: );
29015:
29016: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
29017: csi_gen_utility_pvt.put_line( ' Error from COPY_SINGLE_ITEM_INSTANCE.CREATE_VERSION_LABEL..');
29018: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
29019: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_CREATE_VERSION');
29020: FND_MESSAGE.SET_TOKEN('API_ERROR','CREATE_VERSION_LABEL');
29021: FND_MSG_PUB.Add;
29022: RAISE FND_API.G_EXC_ERROR;
29030: x_new_instance_tbl(1).instance_id <> fnd_api.g_miss_num
29031: THEN
29032: -- Added by sk for fixing bug 2245976
29033: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
29034: csi_gen_utility_pvt.populate_install_param_rec;
29035: END IF;
29036: --
29037: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
29038: --
29083: x_msg_data := FND_MSG_PUB.GET
29084: ( l_msg_index,
29085: FND_API.G_FALSE
29086: );
29087: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
29088: l_msg_index := l_msg_index + 1;
29089: l_msg_count := l_msg_count - 1;
29090: END LOOP;
29091: RAISE FND_API.G_EXC_ERROR;
29091: RAISE FND_API.G_EXC_ERROR;
29092: END IF;
29093: --
29094: IF px_oks_txn_inst_tbl.count > 0 THEN
29095: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
29096: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
29097: --
29098: IF p_txn_rec.transaction_type_id = 3 THEN
29099: l_batch_id := p_txn_rec.source_header_ref_id;
29092: END IF;
29093: --
29094: IF px_oks_txn_inst_tbl.count > 0 THEN
29095: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
29096: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
29097: --
29098: IF p_txn_rec.transaction_type_id = 3 THEN
29099: l_batch_id := p_txn_rec.source_header_ref_id;
29100: l_batch_type := p_txn_rec.source_group_ref;
29126: WHILE l_msg_count > 0 LOOP
29127: x_msg_data := FND_MSG_PUB.GET
29128: ( l_msg_index,
29129: FND_API.G_FALSE );
29130: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
29131: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
29132: l_msg_index := l_msg_index + 1;
29133: l_msg_count := l_msg_count - 1;
29134: END LOOP;
29127: x_msg_data := FND_MSG_PUB.GET
29128: ( l_msg_index,
29129: FND_API.G_FALSE );
29130: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
29131: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
29132: l_msg_index := l_msg_index + 1;
29133: l_msg_count := l_msg_count - 1;
29134: END LOOP;
29135: RAISE FND_API.G_EXC_ERROR;
29289: -- Check the profile option debug_level for debug message reporting
29290: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
29291: -- If debug_level = 1 then dump the procedure name
29292: IF (l_debug_level > 0) THEN
29293: csi_gen_utility_pvt.put_line( 'explode_bom');
29294: END IF;
29295: -- If the debug level = 2 then dump all the parameters values.
29296: IF (l_debug_level > 1) THEN
29297: csi_gen_utility_pvt.put_line('explode_standard_bom'||'-'
29293: csi_gen_utility_pvt.put_line( 'explode_bom');
29294: END IF;
29295: -- If the debug level = 2 then dump all the parameters values.
29296: IF (l_debug_level > 1) THEN
29297: csi_gen_utility_pvt.put_line('explode_standard_bom'||'-'
29298: || p_api_version ||'-'
29299: || p_commit ||'-'
29300: || p_init_msg_list ||'-'
29301: || p_validation_level ||'-'
29300: || p_init_msg_list ||'-'
29301: || p_validation_level ||'-'
29302: || p_explosion_level);
29303: -- Dump item instanc rec
29304: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
29305: END IF;
29306: -- Start API body
29307: IF l_csi_explode_bom = 'Y' THEN
29308: -- Verify if the a Valid item and Org id is being passed
29334: from MTL_PARAMETERS
29335: where organization_id = p_source_instance_rec.VLD_ORGANIZATION_ID;
29336: EXCEPTION
29337: when others then
29338: csi_gen_utility_pvt.put_line('Unable to get the Master organization ID for '
29339: ||to_char(p_source_instance_rec.VLD_ORGANIZATION_ID));
29340: RAISE FND_API.G_EXC_ERROR;
29341: END;
29342: --
29342: --
29343: IF NOT csi_item_instance_vld_pvt.Is_Trackable
29344: (p_inv_item_id => p_source_instance_rec.INVENTORY_ITEM_ID,
29345: p_org_id => l_master_organization_id) THEN
29346: csi_gen_utility_pvt.put_line('Passed Inventory Item is not Trackable..');
29347: RAISE FND_API.G_EXC_ERROR;
29348: END IF;
29349: -- Instance_id should be passed if Instance needs to be created for the Exploded Items
29350: --
29358: --
29359: -- Verify if configruation has been exploded before
29360: IF (csi_Item_Instance_Vld_pvt.Is_config_exploded
29361: ( p_source_instance_rec.INSTANCE_ID)) THEN
29362: csi_gen_utility_pvt.put_line('Configuration already Exploded');
29363: RAISE FND_API.G_EXC_ERROR;
29364: END IF;
29365: END IF;
29366: --
29390: error_code => l_error_code
29391: );
29392: --
29393: IF l_Error_Code <> 0 THEN
29394: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
29395: IF l_Error_Code < 0 THEN
29396: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
29397: ELSIF l_Error_Code > 0 THEN
29398: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
29392: --
29393: IF l_Error_Code <> 0 THEN
29394: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
29395: IF l_Error_Code < 0 THEN
29396: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
29397: ELSIF l_Error_Code > 0 THEN
29398: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
29399: END IF;
29400: FND_MESSAGE.SET_NAME('CSI','CSI_API_CORE_BOM_EXPL_ERROR');
29394: csi_gen_utility_pvt.put_line (' Bom explosion error code <> 0 '|| l_Error_Code ||' '||l_err_msg);
29395: IF l_Error_Code < 0 THEN
29396: csi_gen_utility_pvt.put_line (' Bom explosion error code > 0 '|| l_Error_Code ||' '||l_err_msg);
29397: ELSIF l_Error_Code > 0 THEN
29398: csi_gen_utility_pvt.put_line (' Bom explosion error code < 0'|| l_Error_Code ||' '||l_err_msg);
29399: END IF;
29400: FND_MESSAGE.SET_NAME('CSI','CSI_API_CORE_BOM_EXPL_ERROR');
29401: FND_MSG_PUB.Add;
29402: RAISE FND_API.G_EXC_ERROR;
29404: --
29405: l_init_sort_code := Bom_Common_Definitions.get_initial_sort_code;
29406: --
29407: -- Loop thru' the cursor and create the Parent_child_tbl
29408: csi_gen_utility_pvt.put_line('Start of BOM Explosion..');
29409: For v_rec in BOM_CSR(l_group_id)
29410: Loop
29411: l_parent_count := l_parent_count + 1;
29412: l_parent_child_tbl(l_parent_count).parent_sort_order := v_rec.parent_sort_order;
29607: --
29608: IF x_ins_tbl.count > 0 THEN
29609: For ins_tab in l_bom_sort_order_tbl.FIRST .. l_bom_sort_order_tbl.LAST
29610: Loop
29611: csi_gen_utility_pvt.put_line(l_bom_sort_order_tbl(ins_tab).parent_sort_order ||' '
29612: ||to_char(x_ins_tbl(ins_tab).inventory_item_id)||' '
29613: ||to_char(x_ins_tbl(ins_tab).quantity)||' '
29614: ||l_bom_sort_order_tbl(ins_tab).child_sort_order);
29615: End Loop;
29617: --
29618: IF x_rel_tbl.count > 0 THEN
29619: For rel_tab in x_rel_tbl.FIRST .. x_rel_tbl.LAST
29620: Loop
29621: csi_gen_utility_pvt.put_line(to_char(x_rel_tbl(rel_tab).subject_id) ||' '
29622: ||to_char(x_rel_tbl(rel_tab).object_id));
29623: End Loop;
29624: END IF;
29625: --
29625: --
29626: -- Create Instance and II Relationships if the p_create_instance is TRUE
29627: IF p_create_instance = FND_API.G_TRUE THEN
29628: IF x_ins_tbl.count > 0 THEN
29629: csi_gen_utility_pvt.put_line('Calling Copy Single Item Instance..');
29630: For ins_tab in x_ins_tbl.FIRST .. x_ins_tbl.LAST
29631: Loop
29632: l_source_instance_rec := x_ins_tbl(ins_tab);
29633: l_source_instance_rec.instance_id := p_source_instance_rec.instance_id;
29653: ,x_msg_count => x_msg_count
29654: ,x_msg_data => x_msg_data
29655: );
29656: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
29657: csi_gen_utility_pvt.put_line('Error while trying to Copy the Instance..');
29658: FOR i in 1..x_msg_Count LOOP
29659: FND_MSG_PUB.Get(p_msg_index => i,
29660: p_encoded => 'F',
29661: p_data => x_msg_data,
29659: FND_MSG_PUB.Get(p_msg_index => i,
29660: p_encoded => 'F',
29661: p_data => x_msg_data,
29662: p_msg_index_out => x_msg_index_out );
29663: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
29664: End LOOP;
29665: RAISE FND_API.G_EXC_ERROR;
29666: END IF;
29667: -- Assign the new instance_id to x_ins_tbl.instance_id
29687: END IF;
29688: End Loop;
29689: --
29690: IF x_rel_tbl.count > 0 THEN
29691: csi_gen_utility_pvt.put_line('Calling II Relationship PUB...');
29692: csi_ii_relationships_pub.create_relationship
29693: (
29694: p_api_version => 1.0,
29695: p_commit => fnd_api.g_false,
29701: x_msg_count => x_msg_count,
29702: x_msg_data => x_msg_data
29703: );
29704: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
29705: csi_gen_utility_pvt.put_line('Error while trying to Create II Relationships..');
29706: FOR i in 1..x_msg_Count LOOP
29707: FND_MSG_PUB.Get(p_msg_index => i,
29708: p_encoded => 'F',
29709: p_data => x_msg_data,
29707: FND_MSG_PUB.Get(p_msg_index => i,
29708: p_encoded => 'F',
29709: p_data => x_msg_data,
29710: p_msg_index_out => x_msg_index_out );
29711: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
29712: End LOOP;
29713: RAISE FND_API.G_EXC_ERROR;
29714: END IF;
29715: END IF;
32197: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
32198:
32199: -- If debug_level = 1 then dump the procedure name
32200: IF (l_debug_level > 0) THEN
32201: csi_gen_utility_pvt.put_line('copy_item_instance ');
32202: END IF;
32203:
32204:
32205:
32205:
32206: -- If the debug level = 2 then dump all the parameters values.
32207: IF (l_debug_level > 1) THEN
32208:
32209: csi_gen_utility_pvt.put_line('copy_item_instance '||
32210: p_api_version ||'-'
32211: || p_commit ||'-'
32212: || p_init_msg_list ||'-'
32213: || p_validation_level ||'-'
32220: || p_copy_pricing_attribs ||'-'
32221: || p_copy_inst_children
32222: );
32223: -- Dump item instanc red
32224: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
32225: -- Dump txn_rec
32226: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
32227: END IF;
32228:
32222: );
32223: -- Dump item instanc red
32224: csi_gen_utility_pvt.dump_instance_rec(p_source_instance_rec);
32225: -- Dump txn_rec
32226: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
32227: END IF;
32228:
32229: -- Start API body
32230:
32298: WHILE l_msg_count > 0 LOOP
32299: x_msg_data := FND_MSG_PUB.GET
32300: (l_msg_index,
32301: FND_API.G_FALSE );
32302: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
32303: l_msg_index := l_msg_index + 1;
32304: l_msg_count := l_msg_count - 1;
32305: END LOOP;
32306: RAISE FND_API.G_EXC_ERROR;
32332: WHILE l_msg_count > 0 LOOP
32333: x_msg_data := FND_MSG_PUB.GET
32334: (l_msg_index,
32335: FND_API.G_FALSE );
32336: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
32337: l_msg_index := l_msg_index + 1;
32338: l_msg_count := l_msg_count - 1;
32339: END LOOP;
32340: RAISE FND_API.G_EXC_ERROR;
32443: WHILE l_msg_count > 0 LOOP
32444: x_msg_data := FND_MSG_PUB.GET
32445: (l_msg_index,
32446: FND_API.G_FALSE );
32447: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
32448: l_msg_index := l_msg_index + 1;
32449: l_msg_count := l_msg_count - 1;
32450: END LOOP;
32451: RAISE FND_API.G_EXC_ERROR;
33156: x_msg_data := FND_MSG_PUB.GET
33157: (l_msg_index,
33158: FND_API.G_FALSE );
33159:
33160: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33161: l_msg_index := l_msg_index + 1;
33162: l_msg_count := l_msg_count - 1;
33163: END LOOP;
33164: RAISE FND_API.G_EXC_ERROR;
33206: WHILE l_msg_count > 0 LOOP
33207: x_msg_data := FND_MSG_PUB.GET
33208: (l_msg_index,
33209: FND_API.G_FALSE );
33210: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33211: l_msg_index := l_msg_index + 1;
33212: l_msg_count := l_msg_count - 1;
33213: END LOOP;
33214: RAISE FND_API.G_EXC_ERROR;
33338: WHILE l_msg_count > 0 LOOP
33339: x_msg_data := FND_MSG_PUB.GET
33340: (l_msg_index,
33341: FND_API.G_FALSE );
33342: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33343: l_msg_index := l_msg_index + 1;
33344: l_msg_count := l_msg_count - 1;
33345: END LOOP;
33346: RAISE FND_API.G_EXC_ERROR;
33417: WHILE l_msg_count > 0 LOOP
33418: x_msg_data := FND_MSG_PUB.GET
33419: (l_msg_index,
33420: FND_API.G_FALSE );
33421: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33422: l_msg_index := l_msg_index + 1;
33423: l_msg_count := l_msg_count - 1;
33424: END LOOP;
33425: RAISE FND_API.G_EXC_ERROR;
33471: WHILE l_msg_count > 0 LOOP
33472: x_msg_data := FND_MSG_PUB.GET
33473: (l_msg_index,
33474: FND_API.G_FALSE );
33475: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33476: l_msg_index := l_msg_index + 1;
33477: l_msg_count := l_msg_count - 1;
33478: END LOOP;
33479: RAISE FND_API.G_EXC_ERROR;
33506: WHILE l_msg_count > 0 LOOP
33507: x_msg_data := FND_MSG_PUB.GET
33508: (l_msg_index,
33509: FND_API.G_FALSE );
33510: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33511: l_msg_index := l_msg_index + 1;
33512: l_msg_count := l_msg_count - 1;
33513: END LOOP;
33514: RAISE FND_API.G_EXC_ERROR;
33550: WHILE l_msg_count > 0 LOOP
33551: x_msg_data := FND_MSG_PUB.GET
33552: (l_msg_index,
33553: FND_API.G_FALSE );
33554: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33555: l_msg_index := l_msg_index + 1;
33556: l_msg_count := l_msg_count - 1;
33557: END LOOP;
33558: RAISE FND_API.G_EXC_ERROR;
33586: WHILE l_msg_count > 0 LOOP
33587: x_msg_data := FND_MSG_PUB.GET
33588: (l_msg_index,
33589: FND_API.G_FALSE );
33590: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33591: l_msg_index := l_msg_index + 1;
33592: l_msg_count := l_msg_count - 1;
33593: END LOOP;
33594: RAISE FND_API.G_EXC_ERROR;
33650: WHILE l_msg_count > 0 LOOP
33651: x_msg_data := FND_MSG_PUB.GET
33652: (l_msg_index,
33653: FND_API.G_FALSE );
33654: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33655: l_msg_index := l_msg_index + 1;
33656: l_msg_count := l_msg_count - 1;
33657: END LOOP;
33658: RAISE FND_API.G_EXC_ERROR;
33683: WHILE l_msg_count > 0 LOOP
33684: x_msg_data := FND_MSG_PUB.GET
33685: (l_msg_index,
33686: FND_API.G_FALSE );
33687: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33688: l_msg_index := l_msg_index + 1;
33689: l_msg_count := l_msg_count - 1;
33690: END LOOP;
33691: RAISE FND_API.G_EXC_ERROR;
33721: WHILE l_msg_count > 0 LOOP
33722: x_msg_data := FND_MSG_PUB.GET
33723: (l_msg_index,
33724: FND_API.G_FALSE );
33725: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33726: l_msg_index := l_msg_index + 1;
33727: l_msg_count := l_msg_count - 1;
33728: END LOOP;
33729: RAISE FND_API.G_EXC_ERROR;
33769: ,x_msg_data => x_msg_data
33770: );
33771:
33772: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33773: csi_gen_utility_pvt.put_line( ' Error from COPY_ITEM_INSTANCE.CREATE_VERSION_LABEL..');
33774: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
33775: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_CREATE_VERSION');
33776: FND_MESSAGE.SET_TOKEN('API_ERROR','CREATE_VERSION_LABEL');
33777: FND_MSG_PUB.Add;
33770: );
33771:
33772: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33773: csi_gen_utility_pvt.put_line( ' Error from COPY_ITEM_INSTANCE.CREATE_VERSION_LABEL..');
33774: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
33775: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_CREATE_VERSION');
33776: FND_MESSAGE.SET_TOKEN('API_ERROR','CREATE_VERSION_LABEL');
33777: FND_MSG_PUB.Add;
33778: RAISE FND_API.G_EXC_ERROR;
33786: x_new_instance_tbl(1).instance_id <> fnd_api.g_miss_num
33787: THEN
33788: -- Added by sk for fixing bug 2245976
33789: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
33790: csi_gen_utility_pvt.populate_install_param_rec;
33791: END IF;
33792: --
33793: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
33794: --
33838: x_msg_data := FND_MSG_PUB.GET
33839: ( l_msg_index,
33840: FND_API.G_FALSE
33841: );
33842: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
33843: l_msg_index := l_msg_index + 1;
33844: l_msg_count := l_msg_count - 1;
33845: END LOOP;
33846: RAISE FND_API.G_EXC_ERROR;
33846: RAISE FND_API.G_EXC_ERROR;
33847: END IF;
33848: --
33849: IF px_oks_txn_inst_tbl.count > 0 THEN
33850: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
33851: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
33852: --
33853: IF p_txn_rec.transaction_type_id = 3 THEN
33854: l_batch_id := p_txn_rec.source_header_ref_id;
33847: END IF;
33848: --
33849: IF px_oks_txn_inst_tbl.count > 0 THEN
33850: csi_gen_utility_pvt.dump_oks_txn_inst_tbl(px_oks_txn_inst_tbl);
33851: csi_gen_utility_pvt.put_line('Calling OKS Core API...');
33852: --
33853: IF p_txn_rec.transaction_type_id = 3 THEN
33854: l_batch_id := p_txn_rec.source_header_ref_id;
33855: l_batch_type := p_txn_rec.source_group_ref;
33881: WHILE l_msg_count > 0 LOOP
33882: x_msg_data := FND_MSG_PUB.GET
33883: ( l_msg_index,
33884: FND_API.G_FALSE );
33885: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
33886: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
33887: l_msg_index := l_msg_index + 1;
33888: l_msg_count := l_msg_count - 1;
33889: END LOOP;
33882: x_msg_data := FND_MSG_PUB.GET
33883: ( l_msg_index,
33884: FND_API.G_FALSE );
33885: csi_gen_utility_pvt.put_line( 'Error from OKS_IBINT_PUB.IB_interface..');
33886: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
33887: l_msg_index := l_msg_index + 1;
33888: l_msg_count := l_msg_count - 1;
33889: END LOOP;
33890: RAISE FND_API.G_EXC_ERROR;
33972: FND_MSG_PUB.Get(p_msg_index => i,
33973: p_encoded => 'F',
33974: p_data => x_msg_data,
33975: p_msg_index_out => x_msg_index_out );
33976: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
33977: End LOOP;
33978: RAISE fnd_api.g_exc_error;
33979: ELSE
33980: l_map_count := l_map_count + 1;
34031: FND_MSG_PUB.Get(p_msg_index => i,
34032: p_encoded => 'F',
34033: p_data => x_msg_data,
34034: p_msg_index_out => x_msg_index_out );
34035: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
34036: END LOOP;
34037: RAISE fnd_api.g_exc_error;
34038: END IF;
34039: END IF;
34040: END IF; -- l_rel_tbl count check
34041: END IF;
34042:
34043: -- Begin Add Code for Siebel Genesis Project
34044: csi_gen_utility_pvt.put_line('Calling Siebel Genesis Event in Copy Item Instance');
34045:
34046: IF l_raise_bes_event = 'Y' THEN
34047: BEGIN
34048: SELECT internal_party_id
34062: when no_data_found then
34063: l_owner_party_id := null;
34064: END;
34065:
34066: csi_gen_utility_pvt.put_line(' l_internal_party_Id = '||to_char(l_internal_party_id));
34067: csi_gen_utility_pvt.put_line(' l_party_Id = '||to_char(l_owner_party_id));
34068: csi_gen_utility_pvt.put_line(' fnd_api.g_miss_num = '||to_char(fnd_api.g_miss_num));
34069: IF l_internal_party_id <> l_owner_party_id THEN
34070: IF (l_new_instance_rec.last_oe_order_line_id IS NULL OR l_new_instance_rec.last_oe_order_line_id = fnd_api.g_miss_num) THEN
34063: l_owner_party_id := null;
34064: END;
34065:
34066: csi_gen_utility_pvt.put_line(' l_internal_party_Id = '||to_char(l_internal_party_id));
34067: csi_gen_utility_pvt.put_line(' l_party_Id = '||to_char(l_owner_party_id));
34068: csi_gen_utility_pvt.put_line(' fnd_api.g_miss_num = '||to_char(fnd_api.g_miss_num));
34069: IF l_internal_party_id <> l_owner_party_id THEN
34070: IF (l_new_instance_rec.last_oe_order_line_id IS NULL OR l_new_instance_rec.last_oe_order_line_id = fnd_api.g_miss_num) THEN
34071: csi_gen_utility_pvt.put_line('Firing the CREATE INSTANCE EVENT ');
34064: END;
34065:
34066: csi_gen_utility_pvt.put_line(' l_internal_party_Id = '||to_char(l_internal_party_id));
34067: csi_gen_utility_pvt.put_line(' l_party_Id = '||to_char(l_owner_party_id));
34068: csi_gen_utility_pvt.put_line(' fnd_api.g_miss_num = '||to_char(fnd_api.g_miss_num));
34069: IF l_internal_party_id <> l_owner_party_id THEN
34070: IF (l_new_instance_rec.last_oe_order_line_id IS NULL OR l_new_instance_rec.last_oe_order_line_id = fnd_api.g_miss_num) THEN
34071: csi_gen_utility_pvt.put_line('Firing the CREATE INSTANCE EVENT ');
34072: CSI_BUSINESS_EVENT_PVT.CREATE_INSTANCE_EVENT
34067: csi_gen_utility_pvt.put_line(' l_party_Id = '||to_char(l_owner_party_id));
34068: csi_gen_utility_pvt.put_line(' fnd_api.g_miss_num = '||to_char(fnd_api.g_miss_num));
34069: IF l_internal_party_id <> l_owner_party_id THEN
34070: IF (l_new_instance_rec.last_oe_order_line_id IS NULL OR l_new_instance_rec.last_oe_order_line_id = fnd_api.g_miss_num) THEN
34071: csi_gen_utility_pvt.put_line('Firing the CREATE INSTANCE EVENT ');
34072: CSI_BUSINESS_EVENT_PVT.CREATE_INSTANCE_EVENT
34073: (p_api_version => p_api_version
34074: ,p_commit => fnd_api.g_false
34075: ,p_init_msg_list => p_init_msg_list
34088: WHILE l_msg_count > 0 LOOP
34089: x_msg_data := FND_MSG_PUB.GET
34090: (l_msg_index,
34091: FND_API.G_FALSE );
34092: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.CREATE_INSTANCE_EVENT');
34093: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34094: l_msg_index := l_msg_index + 1;
34095: l_msg_count := l_msg_count - 1;
34096: END LOOP;
34089: x_msg_data := FND_MSG_PUB.GET
34090: (l_msg_index,
34091: FND_API.G_FALSE );
34092: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.CREATE_INSTANCE_EVENT');
34093: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34094: l_msg_index := l_msg_index + 1;
34095: l_msg_count := l_msg_count - 1;
34096: END LOOP;
34097: RAISE FND_API.G_EXC_ERROR;
34096: END LOOP;
34097: RAISE FND_API.G_EXC_ERROR;
34098: END IF;
34099: ELSIF (l_new_instance_rec.last_oe_order_line_id IS NOT NULL OR l_new_instance_rec.last_oe_order_line_id <> fnd_api.g_miss_num) THEN
34100: csi_gen_utility_pvt.put_line('Before link to line id ');
34101: BEGIN
34102: SELECT link_to_line_id, item_type_code
34103: INTO l_link_to_line_id, l_item_type_code
34104: FROM oe_order_lines_all
34129: WHILE l_msg_count > 0 LOOP
34130: x_msg_data := FND_MSG_PUB.GET
34131: (l_msg_index,
34132: FND_API.G_FALSE );
34133: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.CREATE_INSTANCE_EVENT');
34134: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34135: l_msg_index := l_msg_index + 1;
34136: l_msg_count := l_msg_count - 1;
34137: END LOOP;
34130: x_msg_data := FND_MSG_PUB.GET
34131: (l_msg_index,
34132: FND_API.G_FALSE );
34133: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.CREATE_INSTANCE_EVENT');
34134: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34135: l_msg_index := l_msg_index + 1;
34136: l_msg_count := l_msg_count - 1;
34137: END LOOP;
34138: RAISE FND_API.G_EXC_ERROR;
34303: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
34304:
34305: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
34306: IF (l_csi_debug_level > 0) THEN
34307: csi_gen_utility_pvt.put_line( 'get_version_label_history');
34308: END IF;
34309:
34310: -- If the debug level = 2 then dump all the parameters values.
34311: IF (l_csi_debug_level > 1) THEN
34308: END IF;
34309:
34310: -- If the debug level = 2 then dump all the parameters values.
34311: IF (l_csi_debug_level > 1) THEN
34312: csi_gen_utility_pvt.put_line( 'get_version_label_history' ||
34313: p_api_version ||'-'||
34314: p_commit ||'-'||
34315: p_init_msg_list ||'-'||
34316: p_validation_level ||'-'||
34320: END IF;
34321:
34322: /***** srramakr commented for bug # 3304439
34323: -- Check for the profile option and enable trace
34324: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
34325: -- End enable trace
34326: ****/
34327:
34328: -- Start API body
34486: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
34487:
34488: -- If debug_level = 1 then dump the procedure name
34489: IF (l_debug_level > 0) THEN
34490: csi_gen_utility_pvt.put_line( 'get_instance_link_locations');
34491: END IF;
34492:
34493: -- If the debug level = 2 then dump all the parameters values.
34494: IF (l_debug_level > 1) THEN
34491: END IF;
34492:
34493: -- If the debug level = 2 then dump all the parameters values.
34494: IF (l_debug_level > 1) THEN
34495: csi_gen_utility_pvt.put_line( 'get_instance_link_locations' ||
34496: p_api_version ||'-'||
34497: p_commit ||'-'||
34498: p_init_msg_list ||'-'||
34499: p_validation_level );
34497: p_commit ||'-'||
34498: p_init_msg_list ||'-'||
34499: p_validation_level );
34500: -- dump the query records into a log file
34501: csi_gen_utility_pvt.put_line(p_instance_id);
34502: END IF;
34503:
34504: /***** srramakr commented for bug # 3304439
34505: -- Check for the profile option and enable trace
34502: END IF;
34503:
34504: /***** srramakr commented for bug # 3304439
34505: -- Check for the profile option and enable trace
34506: l_flag:=CSI_GEN_UTILITY_PVT.enable_trace(l_trace_flag => l_flag);
34507: -- End enable trace
34508: ****/
34509:
34510: -- Start API body
34663: WHILE l_msg_count > 0 LOOP
34664: x_msg_data := FND_MSG_PUB.GET
34665: ( l_msg_index,
34666: FND_API.G_FALSE );
34667: csi_gen_utility_pvt.put_line( ' Error from update_version_label..');
34668: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34669: l_msg_index := l_msg_index + 1;
34670: l_msg_count := l_msg_count - 1;
34671: END LOOP;
34664: x_msg_data := FND_MSG_PUB.GET
34665: ( l_msg_index,
34666: FND_API.G_FALSE );
34667: csi_gen_utility_pvt.put_line( ' Error from update_version_label..');
34668: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
34669: l_msg_index := l_msg_index + 1;
34670: l_msg_count := l_msg_count - 1;
34671: END LOOP;
34672: RAISE FND_API.G_EXC_ERROR;
34722: EXCEPTION
34723: WHEN NO_DATA_FOUND THEN
34724: p_lock_status := l_lock_status;
34725: WHEN TOO_MANY_ROWS THEN
34726: csi_gen_utility_pvt.put_line ('In csi_item_instance_pvt.get_instance_lock_status - too_many_rows exception ');
34727: p_lock_status := 2;
34728: END get_instance_lock_status;
34729:
34730: -- Return TRUE if instance is locked
34846: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
34847:
34848: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
34849: IF (l_csi_debug_level > 0) THEN
34850: csi_gen_utility_pvt.put_line( 'lock_item_instances');
34851: END IF;
34852:
34853:
34854: -- If the debug level = 2 then dump all the parameters values.
34852:
34853:
34854: -- If the debug level = 2 then dump all the parameters values.
34855: IF (l_csi_debug_level > 1) THEN
34856: csi_gen_utility_pvt.put_line( 'lock_item_instances'||
34857: p_api_version ||'-'||
34858: p_commit ||'-'||
34859: p_init_msg_list ||'-'||
34860: p_validation_level );
34862: IF px_config_tbl.COUNT > 0
34863: THEN
34864: FOR tab_row IN px_config_tbl.FIRST .. px_config_tbl.LAST
34865: LOOP
34866: csi_gen_utility_pvt.put_line(' ');
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34863: THEN
34864: FOR tab_row IN px_config_tbl.FIRST .. px_config_tbl.LAST
34865: LOOP
34866: csi_gen_utility_pvt.put_line(' ');
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34864: FOR tab_row IN px_config_tbl.FIRST .. px_config_tbl.LAST
34865: LOOP
34866: csi_gen_utility_pvt.put_line(' ');
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34865: LOOP
34866: csi_gen_utility_pvt.put_line(' ');
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34866: csi_gen_utility_pvt.put_line(' ');
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34867: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34868: csi_gen_utility_pvt.put_line('source_application_id :'||px_config_tbl(tab_row).source_application_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34869: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||px_config_tbl(tab_row).source_txn_header_ref);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34870: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||px_config_tbl(tab_row).source_txn_line_ref1);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34871: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||px_config_tbl(tab_row).source_txn_line_ref2);
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34879: END LOOP;
34872: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||px_config_tbl(tab_row).source_txn_line_ref3);
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34879: END LOOP;
34880: END IF;
34873: csi_gen_utility_pvt.put_line('instance_id :'||px_config_tbl(tab_row).instance_id);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34879: END LOOP;
34880: END IF;
34881: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
34874: csi_gen_utility_pvt.put_line('lock_id :'||px_config_tbl(tab_row).lock_id);
34875: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||px_config_tbl(tab_row).config_inst_hdr_id);
34876: csi_gen_utility_pvt.put_line('config_inst_item_id :'||px_config_tbl(tab_row).config_inst_item_id);
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34879: END LOOP;
34880: END IF;
34881: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
34882: END IF;
34877: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||px_config_tbl(tab_row).config_inst_rev_num);
34878: csi_gen_utility_pvt.put_line('lock_status :'||px_config_tbl(tab_row).lock_status);
34879: END LOOP;
34880: END IF;
34881: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
34882: END IF;
34883:
34884: l_lock_tbl.DELETE;
34885:
35621: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
35622:
35623: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
35624: IF (l_csi_debug_level > 0) THEN
35625: csi_gen_utility_pvt.put_line( 'unlock_item_instances');
35626: END IF;
35627:
35628:
35629: -- If the debug level = 2 then dump all the parameters values.
35627:
35628:
35629: -- If the debug level = 2 then dump all the parameters values.
35630: IF (l_csi_debug_level > 1) THEN
35631: csi_gen_utility_pvt.put_line( 'unlock_item_instances'||
35632: p_api_version ||'-'||
35633: p_commit ||'-'||
35634: p_init_msg_list ||'-'||
35635: p_validation_level );
35637: IF p_config_tbl.COUNT > 0
35638: THEN
35639: FOR tab_row IN p_config_tbl.FIRST .. p_config_tbl.LAST
35640: LOOP
35641: csi_gen_utility_pvt.put_line(' ');
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35638: THEN
35639: FOR tab_row IN p_config_tbl.FIRST .. p_config_tbl.LAST
35640: LOOP
35641: csi_gen_utility_pvt.put_line(' ');
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35639: FOR tab_row IN p_config_tbl.FIRST .. p_config_tbl.LAST
35640: LOOP
35641: csi_gen_utility_pvt.put_line(' ');
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35640: LOOP
35641: csi_gen_utility_pvt.put_line(' ');
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35641: csi_gen_utility_pvt.put_line(' ');
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35642: csi_gen_utility_pvt.put_line('Dumping the values for config tbl Rec # :'||tab_row);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35643: csi_gen_utility_pvt.put_line('source_application_id :'||p_config_tbl(tab_row).source_application_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35644: csi_gen_utility_pvt.put_line('source_txn_header_ref :'||p_config_tbl(tab_row).source_txn_header_ref);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35645: csi_gen_utility_pvt.put_line('source_txn_line_ref1 :'||p_config_tbl(tab_row).source_txn_line_ref1);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35646: csi_gen_utility_pvt.put_line('source_txn_line_ref2 :'||p_config_tbl(tab_row).source_txn_line_ref2);
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35654: END LOOP;
35647: csi_gen_utility_pvt.put_line('source_txn_line_ref3 :'||p_config_tbl(tab_row).source_txn_line_ref3);
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35654: END LOOP;
35655: END IF;
35648: csi_gen_utility_pvt.put_line('instance_id :'||p_config_tbl(tab_row).instance_id);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35654: END LOOP;
35655: END IF;
35656: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
35649: csi_gen_utility_pvt.put_line('lock_id :'||p_config_tbl(tab_row).lock_id);
35650: csi_gen_utility_pvt.put_line('config_inst_hdr_id :'||p_config_tbl(tab_row).config_inst_hdr_id);
35651: csi_gen_utility_pvt.put_line('config_inst_item_id :'||p_config_tbl(tab_row).config_inst_item_id);
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35654: END LOOP;
35655: END IF;
35656: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
35657: END IF;
35652: csi_gen_utility_pvt.put_line('config_inst_rev_num :'||p_config_tbl(tab_row).config_inst_rev_num);
35653: csi_gen_utility_pvt.put_line('lock_status :'||p_config_tbl(tab_row).lock_status);
35654: END LOOP;
35655: END IF;
35656: --csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
35657: END IF;
35658:
35659:
35660:
35658:
35659:
35660:
35661: l_unlock_tbl.DELETE;
35662: csi_gen_utility_pvt.put_line('p_unlock_all :'||p_unlock_all);
35663: IF p_unlock_all IS NOT NULL AND
35664: p_unlock_all = fnd_api.g_true
35665: THEN
35666: csi_gen_utility_pvt.put_line('Processing to unlock all locked instances.');
35662: csi_gen_utility_pvt.put_line('p_unlock_all :'||p_unlock_all);
35663: IF p_unlock_all IS NOT NULL AND
35664: p_unlock_all = fnd_api.g_true
35665: THEN
35666: csi_gen_utility_pvt.put_line('Processing to unlock all locked instances.');
35667: -- This is the case where root node(instance_id) is passed and
35668: -- we need to get all its children and unlock them.
35669: IF p_config_tbl.COUNT >0
35670: THEN
35680: p_config_tbl(i).config_inst_rev_num <> fnd_api.g_miss_num )) AND
35681: (p_config_tbl(i).lock_id IS NOT NULL AND
35682: p_config_tbl(i).lock_id <> fnd_api.g_miss_num)
35683: THEN
35684: csi_gen_utility_pvt.put_line('Processing where config keys were passed.');
35685: l_found:='N';
35686: IF l_unlock_config.count>0
35687: THEN
35688: FOR l_un_csr IN l_unlock_config.FIRST .. l_unlock_config.LAST
35789: END IF;
35790:
35791: ELSE -- Case where p_unlock_all is fnd_api.g_false
35792:
35793: csi_gen_utility_pvt.put_line('P_unlock_all is false : Processing to unlock instances ');
35794: IF p_config_tbl.COUNT >0
35795: THEN
35796: FOR i IN p_config_tbl.FIRST .. p_config_tbl.LAST
35797: LOOP
35967: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKID_NOT_PASSED');
35968: FND_MSG_PUB.Add;
35969: RAISE FND_API.G_EXC_ERROR;
35970: END IF;
35971: csi_gen_utility_pvt.put_line('Count of l_unlock_tbl is :'||l_unlock_tbl.count);
35972: IF l_unlock_tbl.COUNT>0
35973: THEN
35974: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in instance mode. ');
35975: unlock_tbl_handler (l_unlock_tbl,'INSTANCE',SYSDATE);
35970: END IF;
35971: csi_gen_utility_pvt.put_line('Count of l_unlock_tbl is :'||l_unlock_tbl.count);
35972: IF l_unlock_tbl.COUNT>0
35973: THEN
35974: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in instance mode. ');
35975: unlock_tbl_handler (l_unlock_tbl,'INSTANCE',SYSDATE);
35976: END IF;
35977:
35978: csi_gen_utility_pvt.put_line('Count of l_unlock_config is :'||l_unlock_config.count);
35974: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in instance mode. ');
35975: unlock_tbl_handler (l_unlock_tbl,'INSTANCE',SYSDATE);
35976: END IF;
35977:
35978: csi_gen_utility_pvt.put_line('Count of l_unlock_config is :'||l_unlock_config.count);
35979: IF l_unlock_config.COUNT>0
35980: THEN
35981: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in config mode. ');
35982: unlock_tbl_handler (l_unlock_config,'CONFIG',SYSDATE);
35977:
35978: csi_gen_utility_pvt.put_line('Count of l_unlock_config is :'||l_unlock_config.count);
35979: IF l_unlock_config.COUNT>0
35980: THEN
35981: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in config mode. ');
35982: unlock_tbl_handler (l_unlock_config,'CONFIG',SYSDATE);
35983: END IF;
35984:
35985: csi_gen_utility_pvt.put_line('Count of l_unlock_ins_tbl is :'||l_unlock_ins_tbl.count);
35981: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in config mode. ');
35982: unlock_tbl_handler (l_unlock_config,'CONFIG',SYSDATE);
35983: END IF;
35984:
35985: csi_gen_utility_pvt.put_line('Count of l_unlock_ins_tbl is :'||l_unlock_ins_tbl.count);
35986: IF l_unlock_ins_tbl.COUNT>0
35987: THEN
35988: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in instance root mode. ');
35989:
35984:
35985: csi_gen_utility_pvt.put_line('Count of l_unlock_ins_tbl is :'||l_unlock_ins_tbl.count);
35986: IF l_unlock_ins_tbl.COUNT>0
35987: THEN
35988: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in instance root mode. ');
35989:
35990: FOR i IN l_unlock_ins_tbl.FIRST .. l_unlock_ins_tbl.LAST
35991: LOOP
35992: IF l_unlock_ins_tbl.EXISTS(i)
36013: END IF;
36014:
36015: IF l_unlock_root.COUNT>0
36016: THEN
36017: csi_gen_utility_pvt.put_line('Before calling unlock_tbl_handler in config root mode. ');
36018:
36019: FOR i IN l_unlock_root.FIRST .. l_unlock_root.LAST
36020: LOOP
36021: IF l_unlock_root.EXISTS(i)
36055: FND_MSG_PUB.Count_And_Get
36056: (p_count => x_msg_count ,
36057: p_data => x_msg_data );
36058:
36059: csi_gen_utility_pvt.put_line('Reached to the end of csi_unlock_item_instance procedure.');
36060:
36061: EXCEPTION
36062: WHEN FND_API.G_EXC_ERROR THEN
36063: ROLLBACK TO csi_unlock_item_instance;