[Home] [Help]
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;
467: RETURN l_return_status;
468: END IF;
469: --
1202: IF p_time_stamp < l_time_stamp THEN
1203: FND_MESSAGE.SET_NAME('CSI','CSI_H_DATE_BEFORE_CRE_DATE');
1204: FND_MESSAGE.SET_TOKEN('CREATION_DATE',to_char(l_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
1205: FND_MESSAGE.SET_TOKEN('USER_DATE',to_char(p_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
1206: FND_MSG_PUB.Add;
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1209: END IF;
1210: FOR C2 IN get_instance_hist(x_instance_rec.instance_id ,l_nearest_full_dump,p_time_stamp ) LOOP
1840: EXCEPTION
1841: WHEN NO_DATA_FOUND THEN
1842: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
1843: fnd_message.set_token('ORGANIZATION_ID',x_instance_rec.vld_organization_id);
1844: fnd_msg_pub.ADD;
1845: RAISE fnd_api.g_exc_error;
1846: END;
1847: END IF;
1848:
4036: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4037: l_msg_index := 1;
4038: l_msg_count := x_msg_count;
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);
4630: END IF;
4631:
4632: -- Initialize message list if p_init_msg_list is set to TRUE.
4633: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4634: FND_MSG_PUB.initialize;
4635: END IF;
4636:
4637: -- Initialize API return status to success
4638: x_return_status := FND_API.G_RET_STS_SUCCESS;
4732: THEN
4733: IF NOT (csi_Item_Instance_Vld_Pvt.Is_Valid_Master_Org
4734: (p_instance_rec.inv_master_organization_id)) THEN
4735: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_MAST_ORG');
4736: FND_MSG_PUB.Add;
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF;
4739: p_instance_rec.vld_organization_id := p_instance_rec.inv_master_organization_id;
4740: --If both vld_organization_id and inv_master_organization_id are
4752: AND master_organization_id = p_instance_rec.inv_master_organization_id;
4753: EXCEPTION
4754: WHEN NO_DATA_FOUND THEN
4755: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_VLD_MAST_COMB');
4756: FND_MSG_PUB.Add;
4757: RAISE FND_API.G_EXC_ERROR;
4758: END;
4759: ELSE
4760: FND_MESSAGE.SET_NAME('CSI','CSI_NO_VLD_ORG');
4757: RAISE FND_API.G_EXC_ERROR;
4758: END;
4759: ELSE
4760: FND_MESSAGE.SET_NAME('CSI','CSI_NO_VLD_ORG');
4761: FND_MSG_PUB.Add;
4762: RAISE FND_API.G_EXC_ERROR;
4763: END IF;
4764: -- End of modifications by sk on 02/19/02 for bug 2198575
4765:
4799: EXCEPTION
4800: WHEN NO_DATA_FOUND THEN
4801: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
4802: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4803: fnd_msg_pub.ADD;
4804: RAISE fnd_api.g_exc_error;
4805: END;
4806: IF p_instance_rec.location_id IS NULL
4807: THEN
4806: IF p_instance_rec.location_id IS NULL
4807: THEN
4808: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
4809: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4810: fnd_msg_pub.ADD;
4811: RAISE fnd_api.g_exc_error;
4812: END IF;
4813: END IF;
4814: END IF;
4826: EXCEPTION
4827: WHEN NO_DATA_FOUND THEN
4828: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
4829: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4830: fnd_msg_pub.ADD;
4831: RAISE fnd_api.g_exc_error;
4832: END;
4833: IF p_instance_rec.install_location_id IS NULL
4834: THEN
4833: IF p_instance_rec.install_location_id IS NULL
4834: THEN
4835: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
4836: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4837: fnd_msg_pub.ADD;
4838: RAISE fnd_api.g_exc_error;
4839: END IF;
4840: END IF;
4841: END IF;
4882: THEN
4883: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
4884: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
4885: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4886: FND_MSG_PUB.Add;
4887: RAISE fnd_api.g_exc_error;
4888: END IF;
4889: END IF;
4890: --
4912: p_item_attribute_tbl(p_ins_count_rec.inv_count).valid_flag := 'N';
4913: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
4914: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
4915: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4916: FND_MSG_PUB.Add;
4917: RAISE fnd_api.g_exc_error;
4918: End;
4919: --
4920: BEGIN
4949: p_item_attribute_tbl(p_ins_count_rec.inv_count).valid_flag := 'N';
4950: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
4951: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
4952: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
4953: FND_MSG_PUB.Add;
4954: RAISE fnd_api.g_exc_error;
4955: END;
4956: End if;
4957: -- Added the following code to fix bug 5506231
5048: ,x_token => l_token
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;
5055: RAISE FND_API.G_EXC_ERROR;
5056: END IF;
5057: ELSE
5058: FND_MESSAGE.SET_NAME('CSI', 'CSI_NON_EAM_ITEM');
5059: FND_MSG_PUB.Add;
5060: RAISE FND_API.G_EXC_ERROR;
5061: END IF;
5062: END IF;
5063: -- Adding the following code as there could be a case
5243: IF p_instance_rec.location_type_code = FND_API.G_MISS_CHAR OR
5244: p_instance_rec.location_type_code IS NULL THEN
5245: IF p_instance_rec.creation_complete_flag = 'Y' THEN
5246: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOCATION');
5247: FND_MSG_PUB.ADD;
5248: RAISE fnd_api.g_exc_error;
5249: ELSE
5250: p_instance_rec.creation_complete_flag := 'N';
5251: END IF;
5252: ELSE
5253: IF p_instance_rec.location_id IS NULL OR
5254: p_instance_rec.location_id = FND_API.G_MISS_NUM THEN
5255: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
5256: FND_MSG_PUB.ADD;
5257: RAISE fnd_api.g_exc_error;
5258: ELSE
5259: -- Validate location_id
5260: l_exists_flag := 'N';
5271: End Loop;
5272: --
5273: IF l_valid_flag <> 'Y' THEN
5274: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
5275: FND_MSG_PUB.ADD;
5276: RAISE fnd_api.g_exc_error;
5277: END IF;
5278: END IF; -- p_location_tbl count
5279: --
5326: END IF;
5327: --validation for accounting classification_code
5328: IF (p_party_tbl.count < 1) THEN
5329: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PARTY_RECORD');
5330: FND_MSG_PUB.Add;
5331: RAISE FND_API.G_EXC_ERROR;
5332: ELSE
5333: FOR l_count IN p_party_tbl.FIRST..p_party_tbl.LAST LOOP
5334: IF p_party_tbl.EXISTS(l_count) THEN
5340: END LOOP;
5341: IF l_owner_count <> 1 THEN
5342: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_OWNER_EXISTS');
5343: FND_MESSAGE.SET_TOKEN('OWNER',l_owner);
5344: FND_MSG_PUB.Add;
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
5352: l_int_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5353: --
5354: IF l_int_party_id IS NULL THEN
5355: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5356: FND_MSG_PUB.ADD;
5357: RAISE FND_API.G_EXC_ERROR;
5358: END IF;
5359: --
5360: -- Start code addition for eam integration
5382: ELSE
5383: IF ((p_instance_rec.accounting_class_code = 'WIP') OR
5384: (p_instance_rec.accounting_class_code = 'PROJECT')) THEN
5385: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_CLASS');
5386: FND_MSG_PUB.Add;
5387: RAISE FND_API.G_EXC_ERROR;
5388: END IF;
5389: END IF;
5390: END IF;
5430: (p_instance_rec.active_start_date <> FND_API.G_MISS_DATE)) AND
5431: (p_instance_rec.active_start_date > SYSDATE)
5432: THEN
5433: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_START_DATE');
5434: FND_MSG_PUB.Add;
5435: RAISE FND_API.G_EXC_ERROR;
5436: END IF;
5437:
5438: -- validating the effective active start date
5461: --
5462: IF l_valid_flag <> 'Y' THEN
5463: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
5464: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_rec.instance_condition_id);
5465: FND_MSG_PUB.Add;
5466: RAISE fnd_api.g_exc_error;
5467: END IF;
5468: END IF;
5469: --
5501: --
5502: IF nvl(l_terminated_flag,'N') = 'Y' THEN
5503: FND_MESSAGE.SET_NAME('CSI','CSI_API_STATUS_NOT_ALLOWED');
5504: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5505: FND_MSG_PUB.Add;
5506: RAISE FND_API.G_EXC_ERROR;
5507: END IF;
5508: EXCEPTION
5509: WHEN NO_DATA_FOUND THEN
5508: EXCEPTION
5509: WHEN NO_DATA_FOUND THEN
5510: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
5511: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5512: FND_MSG_PUB.Add;
5513: RAISE FND_API.G_EXC_ERROR;
5514: END;
5515: ELSIF (p_instance_rec.instance_status_id = 1) THEN
5516: FND_MESSAGE.SET_NAME('CSI','CSI_API_STATUS_NOT_ALLOWED');
5514: END;
5515: ELSIF (p_instance_rec.instance_status_id = 1) THEN
5516: FND_MESSAGE.SET_NAME('CSI','CSI_API_STATUS_NOT_ALLOWED');
5517: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5518: FND_MSG_PUB.Add;
5519: RAISE FND_API.G_EXC_ERROR;
5520: ELSE
5521: IF p_generic_id_tbl.count > 0 THEN
5522: For gen_count in p_generic_id_tbl.FIRST .. p_generic_id_tbl.LAST
5532: --
5533: IF l_valid_flag <> 'Y' THEN
5534: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
5535: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5536: FND_MSG_PUB.Add;
5537: RAISE FND_API.G_EXC_ERROR;
5538: END IF;
5539: --
5540: IF nvl(l_terminated_flag,'N') = 'Y' THEN
5539: --
5540: IF nvl(l_terminated_flag,'N') = 'Y' THEN
5541: FND_MESSAGE.SET_NAME('CSI','CSI_API_STATUS_NOT_ALLOWED');
5542: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5543: FND_MSG_PUB.Add;
5544: RAISE FND_API.G_EXC_ERROR;
5545: END IF;
5546: END IF;
5547: --
5560: --
5561: IF nvl(l_terminated_flag,'N') = 'Y' THEN
5562: FND_MESSAGE.SET_NAME('CSI','CSI_API_STATUS_NOT_ALLOWED');
5563: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5564: FND_MSG_PUB.Add;
5565: RAISE FND_API.G_EXC_ERROR;
5566: END IF;
5567: Exception
5568: when others then
5569: p_generic_id_tbl(p_ins_count_rec.generic_count).valid_flag := 'N';
5570: p_generic_id_tbl(p_ins_count_rec.generic_count).terminated_flag := NULL;
5571: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
5572: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',p_instance_rec.instance_status_id);
5573: FND_MSG_PUB.Add;
5574: RAISE FND_API.G_EXC_ERROR;
5575: End;
5576: END IF;
5577: END IF;
5594: --
5595: IF l_valid_flag <> 'Y' THEN
5596: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
5597: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_instance_rec.system_id);
5598: FND_MSG_PUB.Add;
5599: RAISE fnd_api.g_exc_error;
5600: END IF;
5601: END IF;
5602: --
5632: --
5633: IF l_valid_flag <> 'Y' THEN
5634: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
5635: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_rec.instance_type_code);
5636: FND_MSG_PUB.Add;
5637: RAISE fnd_api.g_exc_error;
5638: END IF;
5639: END IF;
5640: --
5669: --
5670: if l_valid_flag <> 'Y' then
5671: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
5672: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_instance_rec.instance_usage_code);
5673: FND_MSG_PUB.Add;
5674: RAISE fnd_api.g_exc_error;
5675: end if;
5676: End if;
5677: --
5708: --
5709: if l_valid_flag <> 'Y' then
5710: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
5711: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_instance_rec.operational_status_code);
5712: FND_MSG_PUB.Add;
5713: RAISE fnd_api.g_exc_error;
5714: end if;
5715: End if;
5716: --
5839: p_instance_rec.sales_unit_price <> FND_API.G_MISS_NUM))
5840: )
5841: THEN
5842: FND_MESSAGE.SET_NAME('CSI','CSI_NO_PRICE_OR_CODE');
5843: FND_MSG_PUB.Add;
5844: RAISE fnd_api.g_exc_error;
5845: END IF;
5846: -- End addition of columns for FA Integration
5847:
5927: THEN
5928: IF p_instance_rec.install_location_id IS NULL OR
5929: p_instance_rec.install_location_id = FND_API.G_MISS_NUM THEN
5930: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
5931: FND_MSG_PUB.ADD;
5932: RAISE fnd_api.g_exc_error;
5933: END IF;
5934: --
5935: l_exists_flag := 'N';
5946: End Loop;
5947: --
5948: IF l_valid_flag <> 'Y' THEN
5949: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
5950: FND_MSG_PUB.ADD;
5951: RAISE fnd_api.g_exc_error;
5952: END IF;
5953: END IF;
5954: --
5970: END IF;
5971: END IF;
5972: ELSE
5973: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
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...');
6156: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
6157: THEN
6158: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_COUNTER_ASSOCIATION');
6159: FND_MESSAGE.SET_TOKEN('COUNTER','CSI_COUNTER_TEMPLATE_PUB.AUTOINSTANTIATE_COUNTERS');
6160: FND_MSG_PUB.Add;
6161: RAISE FND_API.G_EXC_ERROR;
6162: END IF;
6163: -- srramakr Bug # 2255391. In CTO, since the configured item is created as a part of Sales Order
6164: -- processing, there is no way a counter gets attached to this new item.
6221: );
6222: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6223: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_COUNTER_ASSOCIATION');
6224: FND_MESSAGE.SET_TOKEN('COUNTER','CSI_COUNTER_TEMPLATE_PUB.AUTOINSTANTIATE_COUNTERS');
6225: FND_MSG_PUB.Add;
6226: RAISE FND_API.G_EXC_ERROR;
6227: END IF; -- return status
6228: END IF; -- ctr. grp template exists1
6229: END IF; -- for l_base_item
6269:
6270: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6271: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_VALIDATE_TXN');
6272: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_txn_rec.transaction_id );
6273: FND_MSG_PUB.Add;
6274: RAISE FND_API.G_EXC_ERROR;
6275: END IF;
6276:
6277: -- Get a unique history item instance id from the sequence
6500:
6501:
6502: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6503: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_CREATE_HISTORY');
6504: FND_MSG_PUB.Add;
6505: RAISE FND_API.G_EXC_ERROR;
6506: END IF;
6507:
6508: END IF; -- Check for p_called_from_grp
6513: COMMIT WORK;
6514: END IF;
6515:
6516: -- Standard call to get message count and IF count is get message info.
6517: FND_MSG_PUB.Count_And_Get
6518: (p_count => x_msg_count,
6519: p_data => x_msg_data
6520: );
6521:
6522: EXCEPTION
6523: WHEN FND_API.G_EXC_ERROR THEN
6524: ROLLBACK TO create_item_instance_pvt;
6525: x_return_status := FND_API.G_RET_STS_ERROR ;
6526: FND_MSG_PUB.Count_And_Get
6527: (p_count => x_msg_count,
6528: p_data => x_msg_data
6529: );
6530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6529: );
6530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6532: ROLLBACK TO create_item_instance_pvt;
6533: FND_MSG_PUB.Count_And_Get
6534: ( p_count => x_msg_count,
6535: p_data => x_msg_data
6536: );
6537: WHEN OTHERS THEN
6536: );
6537: WHEN OTHERS THEN
6538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6539: ROLLBACK TO create_item_instance_pvt;
6540: IF FND_MSG_PUB.Check_Msg_Level
6541: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6542: THEN
6543: FND_MSG_PUB.Add_Exc_Msg
6544: (G_PKG_NAME ,
6537: WHEN OTHERS THEN
6538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6539: ROLLBACK TO create_item_instance_pvt;
6540: IF FND_MSG_PUB.Check_Msg_Level
6541: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6542: THEN
6543: FND_MSG_PUB.Add_Exc_Msg
6544: (G_PKG_NAME ,
6545: l_api_name
6539: ROLLBACK TO create_item_instance_pvt;
6540: IF FND_MSG_PUB.Check_Msg_Level
6541: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6542: THEN
6543: FND_MSG_PUB.Add_Exc_Msg
6544: (G_PKG_NAME ,
6545: l_api_name
6546: );
6547: END IF;
6544: (G_PKG_NAME ,
6545: l_api_name
6546: );
6547: END IF;
6548: FND_MSG_PUB.Count_And_Get
6549: (p_count => x_msg_count,
6550: p_data => x_msg_data
6551: );
6552:
6844: END IF;
6845:
6846: -- Initialize message list if p_init_msg_list is set to TRUE.
6847: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6848: FND_MSG_PUB.initialize;
6849: END IF;
6850:
6851: -- Initialize API return status to success
6852: x_return_status := FND_API.G_RET_STS_SUCCESS;
6886: EXCEPTION
6887: WHEN NO_DATA_FOUND THEN
6888: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
6889: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', l_instance_rec.instance_id);
6890: FND_MSG_PUB.Add;
6891: RAISE FND_API.G_EXC_ERROR;
6892: END;
6893:
6894:
6924: );
6925:
6926: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6927: FOR i in 1..x_msg_Count LOOP
6928: FND_MSG_PUB.Get(p_msg_index => i,
6929: p_encoded => 'F',
6930: p_data => x_msg_data,
6931: p_msg_index_out => x_msg_index_out );
6932:
6941: COMMIT WORK;
6942: END IF;
6943:
6944: -- Standard call to get message count and IF count is get message info.
6945: FND_MSG_PUB.Count_And_Get
6946: (p_count => x_msg_count,
6947: p_data => x_msg_data
6948: );
6949:
6953: THEN
6954: ROLLBACK TO get_and_update_acct_class;
6955: END IF;
6956: x_return_status := FND_API.G_RET_STS_ERROR ;
6957: FND_MSG_PUB.Count_And_Get
6958: (p_count => x_msg_count,
6959: p_data => x_msg_data
6960: );
6961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6963: IF FND_API.To_Boolean( p_commit )
6964: THEN
6965: ROLLBACK TO get_and_update_acct_class;
6966: END IF;
6967: FND_MSG_PUB.Count_And_Get
6968: ( p_count => x_msg_count,
6969: p_data => x_msg_data
6970: );
6971: WHEN OTHERS THEN
6973: IF FND_API.To_Boolean( p_commit )
6974: THEN
6975: ROLLBACK TO get_and_update_acct_class;
6976: END IF;
6977: IF FND_MSG_PUB.Check_Msg_Level
6978: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6979: THEN
6980: FND_MSG_PUB.Add_Exc_Msg
6981: (G_PKG_NAME ,
6974: THEN
6975: ROLLBACK TO get_and_update_acct_class;
6976: END IF;
6977: IF FND_MSG_PUB.Check_Msg_Level
6978: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6979: THEN
6980: FND_MSG_PUB.Add_Exc_Msg
6981: (G_PKG_NAME ,
6982: l_api_name
6976: END IF;
6977: IF FND_MSG_PUB.Check_Msg_Level
6978: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6979: THEN
6980: FND_MSG_PUB.Add_Exc_Msg
6981: (G_PKG_NAME ,
6982: l_api_name
6983: );
6984: END IF;
6981: (G_PKG_NAME ,
6982: l_api_name
6983: );
6984: END IF;
6985: FND_MSG_PUB.Count_And_Get
6986: (p_count => x_msg_count,
6987: p_data => x_msg_data
6988: );
6989:
7420: END IF;
7421:
7422: -- Initialize message list if p_init_msg_list is set to TRUE.
7423: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7424: FND_MSG_PUB.initialize;
7425: END IF;
7426: -- Initialize API return status to success
7427: x_return_status := FND_API.G_RET_STS_SUCCESS;
7428:
7450: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
7451: --
7452: IF l_internal_party_id IS NULL THEN
7453: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
7454: FND_MSG_PUB.ADD;
7455: RAISE FND_API.G_EXC_ERROR;
7456: END IF;
7457: --
7458: -- ADDED FOR BUG 2957236
7496: );
7497: --
7498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7499: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
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...');
7516: );
7517: --
7518: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7519: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
7520: FND_MSG_PUB.Add;
7521: RAISE FND_API.G_EXC_ERROR;
7522: END IF;
7523: END IF;
7524: END IF;
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
7538: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
7539: FND_MSG_PUB.ADD;
7540: RAISE FND_API.G_EXC_ERROR;
7541: END IF;
7542: CLOSE curr_instance_rec;
7543: --This code has been added to make sure that the expired child instance should not get inherited
7786: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
7787: --
7788: IF l_full_dump_frequency IS NULL THEN
7789: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
7790: FND_MSG_PUB.ADD;
7791: RAISE FND_API.G_EXC_ERROR;
7792: END IF;
7793: --
7794: -- Get a unique history item instance id from the sequence
9997: OPEN new_instance_rec(l_rel_tbl(j).subject_id);
9998: FETCH new_instance_rec INTO l_new_instance_rec;
9999: IF new_instance_rec%NOTFOUND THEN
10000: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
10001: FND_MSG_PUB.ADD;
10002: RAISE FND_API.G_EXC_ERROR;
10003: END IF;
10004: CLOSE new_instance_rec;
10005: --
10051: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10052: l_msg_index := 1;
10053: l_msg_count := x_msg_count;
10054: WHILE l_msg_count > 0 LOOP
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);
10108: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10109: l_msg_index := 1;
10110: l_msg_count := x_msg_count;
10111: WHILE l_msg_count > 0 LOOP
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);
10146: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10147: l_msg_index := 1;
10148: l_msg_count := x_msg_count;
10149: WHILE l_msg_count > 0 LOOP
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);
10649: COMMIT WORK;
10650: END IF;
10651:
10652: -- Standard call to get message count and if count is get message info.
10653: FND_MSG_PUB.Count_And_Get
10654: (p_count => x_msg_count ,
10655: p_data => x_msg_data
10656: );
10657:
10661: IF FND_API.To_Boolean( p_commit ) THEN
10662: ROLLBACK TO update_child_instance_pvt;
10663: END IF;
10664: x_return_status := FND_API.G_RET_STS_ERROR ;
10665: FND_MSG_PUB.Count_And_Get
10666: ( p_count => x_msg_count,
10667: p_data => x_msg_data
10668: );
10669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10670: IF FND_API.To_Boolean( p_commit ) THEN
10671: ROLLBACK TO update_child_instance_pvt;
10672: END IF;
10673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10674: FND_MSG_PUB.Count_And_Get
10675: ( p_count => x_msg_count,
10676: p_data => x_msg_data
10677: );
10678: WHEN OTHERS THEN
10680: ROLLBACK TO update_child_instance_pvt;
10681: END IF;
10682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10683:
10684: IF FND_MSG_PUB.Check_Msg_Level
10685: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10686: THEN
10687: FND_MSG_PUB.Add_Exc_Msg
10688: ( G_PKG_NAME ,
10681: END IF;
10682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10683:
10684: IF FND_MSG_PUB.Check_Msg_Level
10685: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10686: THEN
10687: FND_MSG_PUB.Add_Exc_Msg
10688: ( G_PKG_NAME ,
10689: l_api_name
10683:
10684: IF FND_MSG_PUB.Check_Msg_Level
10685: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10686: THEN
10687: FND_MSG_PUB.Add_Exc_Msg
10688: ( G_PKG_NAME ,
10689: l_api_name
10690: );
10691: END IF;
10688: ( G_PKG_NAME ,
10689: l_api_name
10690: );
10691: END IF;
10692: FND_MSG_PUB.Count_And_Get
10693: ( p_count => x_msg_count,
10694: p_data => x_msg_data
10695: );
10696:
10841: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
10842: --
10843: IF l_internal_party_id IS NULL THEN
10844: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
10845: FND_MSG_PUB.ADD;
10846: RAISE FND_API.G_EXC_ERROR;
10847: END IF;
10848: --
10849: OPEN instance_csr (p_instance_id);
10947: x_return_status := fnd_api.g_ret_sts_error ;
10948: fnd_message.set_name('CSI', 'CSI_HAS_TXNS_GT_SYS');
10949: fnd_message.set_token('INSTANCE_ID',p_instance_id );
10950: fnd_message.set_token('SOURCE_TXN_DATE',to_char(p_source_transaction_date, 'DD-MON-YYYY HH24:MI:SS'));
10951: fnd_msg_pub.add;
10952: RAISE fnd_api.g_exc_error;
10953: END IF;
10954: EXCEPTION
10955: WHEN fnd_api.g_exc_error THEN
10961: p_source_transaction_date <> fnd_api.g_miss_date THEN
10962: x_return_status := fnd_api.g_ret_sts_error ;
10963: fnd_message.set_name('CSI', 'CSI_PASS_TXNS_GT_SYS');
10964: fnd_message.set_token('SOURCE_TXN_DATE',to_char(p_source_transaction_date, 'DD-MON-YYYY HH24:MI:SS'));
10965: fnd_msg_pub.add;
10966: RAISE fnd_api.g_exc_error;
10967: END IF;
10968: p_oks_txn_inst_tbl(J).transfer_date := l_transaction_date;
10969: p_oks_txn_inst_tbl(J).transaction_date := l_txn_date;
11235: x_return_status := fnd_api.g_ret_sts_error ;
11236: fnd_message.set_name('CSI', 'CSI_HAS_TXNS_GT_SYS');
11237: fnd_message.set_token('INSTANCE_ID',p_instance_id );
11238: fnd_message.set_token('SOURCE_TXN_DATE',to_char(p_source_transaction_date, 'DD-MON-YYYY HH24:MI:SS'));
11239: fnd_msg_pub.add;
11240: RAISE fnd_api.g_exc_error;
11241: END IF;
11242: EXCEPTION
11243: WHEN fnd_api.g_exc_error THEN
11249: p_source_transaction_date <> fnd_api.g_miss_date THEN
11250: x_return_status := fnd_api.g_ret_sts_error ;
11251: fnd_message.set_name('CSI', 'CSI_PASS_TXNS_GT_SYS');
11252: fnd_message.set_token('SOURCE_TXN_DATE',to_char(p_source_transaction_date, 'DD-MON-YYYY HH24:MI:SS'));
11253: fnd_msg_pub.add;
11254: RAISE fnd_api.g_exc_error;
11255: END IF;
11256: p_oks_txn_inst_tbl(l_oks_txn_count).transfer_date := l_transaction_date;
11257: p_oks_txn_inst_tbl(l_oks_txn_count).transaction_date := l_txn_date;
11307: WHEN OTHERS THEN
11308: FND_MESSAGE.Set_Name('CSI', 'CSI_UNEXP_SQL_ERROR');
11309: FND_MESSAGE.Set_Token('API_NAME', 'Call_to_Contracts');
11310: FND_MESSAGE.Set_Token('SQL_ERROR', sqlerrm);
11311: FND_MSG_PUB.Add;
11312: RAISE fnd_api.g_exc_error;
11313: END Call_to_Contracts;
11314:
11315: PROCEDURE update_txn_status(
11900: END IF;
11901:
11902: -- Initialize message list if p_init_msg_list is set to TRUE.
11903: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11904: FND_MSG_PUB.initialize;
11905: END IF;
11906:
11907: -- Initialize API return status to success
11908: x_return_status := FND_API.G_RET_STS_SUCCESS;
11953: OPEN curr_instance_rec(p_instance_rec.INSTANCE_ID);
11954: FETCH curr_instance_rec INTO l_curr_instance_rec;
11955: IF (l_curr_instance_rec.object_version_number <> nvl(p_instance_rec.OBJECT_VERSION_NUMBER,0)) THEN
11956: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
11957: FND_MSG_PUB.ADD;
11958: RAISE FND_API.G_EXC_ERROR;
11959: END IF;
11960: CLOSE curr_instance_rec;
11961:
11997: NULL;
11998: ELSE
11999: FND_MESSAGE.SET_NAME('CSI','CSI_INSTANCE_LOCKED');
12000: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_rec.instance_id);
12001: FND_MSG_PUB.ADD;
12002: RAISE FND_API.G_EXC_ERROR;
12003: END IF;
12004: END IF;
12005: -- End addition for MACD lock functionality
12143: l_cur_instance_rec.last_vld_organization_id <> l_get_instance_rec.vld_organization_id
12144: AND l_curr_instance_rec.instance_usage_code <> 'IN_TRANSIT' --Added for bug 6188180
12145: THEN
12146: FND_MESSAGE.Set_Name('CSI', 'CSI_CANNOT_MODIFY_VLD_ORG');
12147: FND_MSG_PUB.ADD;
12148: RAISE FND_API.G_EXC_ERROR;
12149: END IF;
12150:
12151: -- Check if all the required parameters are passed
12183: p_stop_all_txn => fnd_api.g_true,
12184: p_mtl_txn_id => fnd_api.g_miss_num)) THEN
12185: FND_MESSAGE.Set_Name('CSI', 'CSI_API_NO_FORWARD_SYNCH');
12186: FND_MESSAGE.Set_Token('INSTANCE', p_instance_rec.INSTANCE_ID);
12187: FND_MSG_PUB.ADD;
12188: RAISE FND_API.G_EXC_ERROR;
12189: END IF;
12190: ELSE -- Even if seq exists, stop later txns
12191: IF NOT(CSI_Item_Instance_vld_pvt.Is_Forward_Synch
12193: p_stop_all_txn => fnd_api.g_false, -- Stop only later txns
12194: p_mtl_txn_id => p_txn_rec.inv_material_transaction_id)) THEN
12195: FND_MESSAGE.Set_Name('CSI', 'CSI_API_NO_FORWARD_SYNCH');
12196: FND_MESSAGE.Set_Token('INSTANCE', p_instance_rec.INSTANCE_ID);
12197: FND_MSG_PUB.ADD;
12198: RAISE FND_API.G_EXC_ERROR;
12199: END IF;
12200: END IF;
12201: --
12205: IF ((p_instance_rec.instance_id IS NULL) OR
12206: (p_instance_rec.instance_id <> l_curr_instance_rec.instance_id)) THEN
12207: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12208: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_ID');
12209: FND_MSG_PUB.ADD;
12210: RAISE FND_API.G_EXC_ERROR;
12211: END IF;
12212: END IF;
12213:
12227: -- End addition for eam integration
12228: /*
12229: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12230: FND_MESSAGE.Set_Token('COLUMN', 'INSTANCE_NUMBER');
12231: FND_MSG_PUB.ADD;
12232: RAISE FND_API.G_EXC_ERROR;
12233: */
12234: END IF;
12235: END IF;
12257: IF(l_number_open_ro>0)
12258: THEN
12259: FND_MESSAGE.Set_Name('CSI', 'CSI_OPEN_RO_EXISTS');
12260: FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID OR SERIAL_NUMBER');
12261: FND_MSG_PUB.ADD;
12262: RAISE FND_API.G_EXC_ERROR;
12263:
12264: END IF;
12265: END IF;
12269: IF p_instance_rec.inventory_item_id IS NULL THEN
12270: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_ITEM');
12271: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
12272: fnd_message.set_token('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12273: FND_MSG_PUB.ADD;
12274: RAISE FND_API.G_EXC_ERROR;
12275: ELSE
12276: IF (p_instance_rec.inventory_item_id <> FND_API.G_MISS_NUM)
12277: AND
12283: l_part_or_serial_change := TRUE;
12284: ELSE
12285: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12286: FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID');
12287: FND_MSG_PUB.ADD;
12288: RAISE FND_API.G_EXC_ERROR;
12289: END IF;
12290: END IF;
12291: END IF;
12309: x_mtl_txn_tbl => l_mtl_txn_tbl);
12310: IF NVL(l_mtl_txn_tbl.Count,0) > 0 THEN
12311: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12312: FND_MESSAGE.Set_Token('COLUMN', 'SERIAL_NUMBER');
12313: FND_MSG_PUB.ADD;
12314: RAISE FND_API.G_EXC_ERROR;
12315: END IF;
12316: ELSE
12317: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12315: END IF;
12316: ELSE
12317: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12318: FND_MESSAGE.Set_Token('COLUMN', 'SERIAL_NUMBER');
12319: FND_MSG_PUB.ADD;
12320: RAISE FND_API.G_EXC_ERROR;
12321: END IF;
12322: */ -- Commented for bug 6965008
12323: END IF;
12326:
12327: --
12328: IF p_instance_rec.instance_status_id IS NULL THEN
12329: FND_MESSAGE.Set_Name('CSI','CSI_API_MANDATORY_STATUS');
12330: FND_MSG_PUB.ADD;
12331: RAISE FND_API.G_EXC_ERROR;
12332: END IF;
12333: --
12334: IF p_instance_rec.quantity IS NULL THEN
12332: END IF;
12333: --
12334: IF p_instance_rec.quantity IS NULL THEN
12335: FND_MESSAGE.Set_Name('CSI','CSI_API_MANDATORY_QUANTITY');
12336: FND_MSG_PUB.ADD;
12337: RAISE FND_API.G_EXC_ERROR;
12338: END IF;
12339: --
12340: IF p_instance_rec.unit_of_measure IS NULL THEN
12338: END IF;
12339: --
12340: IF p_instance_rec.unit_of_measure IS NULL THEN
12341: FND_MESSAGE.Set_Name('CSI','CSI_API_MANDATORY_UOM');
12342: FND_MSG_PUB.ADD;
12343: RAISE FND_API.G_EXC_ERROR;
12344: END IF;
12345: --
12346: -- validation for Inv Master Organization Id
12363: AND master_organization_id = p_instance_rec.inv_master_organization_id;
12364: EXCEPTION
12365: WHEN NO_DATA_FOUND THEN
12366: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_VLD_MAST_COMB');
12367: FND_MSG_PUB.Add;
12368: RAISE FND_API.G_EXC_ERROR;
12369: END;
12370: /***** FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12371: FND_MESSAGE.Set_Token('COLUMN', 'INV_MASTER_ORGANIZATION_ID');
12368: RAISE FND_API.G_EXC_ERROR;
12369: END;
12370: /***** FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12371: FND_MESSAGE.Set_Token('COLUMN', 'INV_MASTER_ORGANIZATION_ID');
12372: FND_MSG_PUB.ADD;
12373: RAISE FND_API.G_EXC_ERROR; *****/
12374: END IF;
12375: END IF;
12376: --
12392: EXCEPTION
12393: WHEN NO_DATA_FOUND THEN
12394: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
12395: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12396: fnd_msg_pub.ADD;
12397: RAISE fnd_api.g_exc_error;
12398: END;
12399: IF p_instance_rec.location_id IS NULL
12400: THEN
12399: IF p_instance_rec.location_id IS NULL
12400: THEN
12401: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
12402: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12403: fnd_msg_pub.ADD;
12404: RAISE fnd_api.g_exc_error;
12405: END IF;
12406: END IF;
12407: END IF;
12419: EXCEPTION
12420: WHEN NO_DATA_FOUND THEN
12421: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
12422: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12423: fnd_msg_pub.ADD;
12424: RAISE fnd_api.g_exc_error;
12425: END;
12426: IF p_instance_rec.install_location_id IS NULL
12427: THEN
12426: IF p_instance_rec.install_location_id IS NULL
12427: THEN
12428: fnd_message.set_name('CSI','CSI_NO_HR_LOCATIONS');
12429: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12430: fnd_msg_pub.ADD;
12431: RAISE fnd_api.g_exc_error;
12432: END IF;
12433: END IF;
12434: END IF;
12442: IF ((p_instance_rec.active_start_date IS NULL) OR
12443: (p_instance_rec.active_start_date <> l_curr_instance_rec.active_start_date)) THEN
12444: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
12445: FND_MESSAGE.Set_Token('COLUMN', 'ACTIVE_START_DATE');
12446: FND_MSG_PUB.ADD;
12447: RAISE FND_API.G_EXC_ERROR;
12448: END IF;
12449: END IF;
12450:
12455: IF (p_instance_rec.check_for_instance_expiry = fnd_api.g_true) THEN
12456: IF NOT (p_called_from_rel = fnd_api.g_true OR p_txn_rec.transaction_type_id = 401)
12457: THEN
12458: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANT_UPD_EXP_ITEM');
12459: FND_MSG_PUB.ADD;
12460: RAISE FND_API.G_EXC_ERROR;
12461: END IF;
12462: END IF;
12463: END IF;
12488: THEN
12489: IF ((p_instance_rec.ACTIVE_END_DATE IS NULL) OR
12490: (p_instance_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE)) THEN
12491: FND_MESSAGE.Set_Name('CSI', 'CSI_API_TER_DATE');
12492: FND_MSG_PUB.ADD;
12493: RAISE FND_API.G_EXC_ERROR;
12494: ELSIF p_instance_rec.ACTIVE_END_DATE < sysdate THEN
12495: IF NOT(CSI_Item_Instance_vld_pvt.EndDate_Valid
12496: (l_curr_instance_rec.ACTIVE_START_DATE,
12500: END IF;
12501: ELSIF ((p_instance_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE) AND
12502: (p_instance_rec.ACTIVE_END_DATE > sysdate)) THEN
12503: FND_MESSAGE.Set_Name('CSI', 'CSI_API_FUTURE_DATE');
12504: FND_MSG_PUB.ADD;
12505: RAISE FND_API.G_EXC_ERROR;
12506: END IF;
12507: END IF;
12508:
12533: IF l_valid_flag = 'N' then
12534: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
12535: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
12536: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12537: FND_MSG_PUB.Add;
12538: RAISE fnd_api.g_exc_error;
12539: END IF;
12540: END IF;
12541: --
12565: p_item_attribute_tbl(p_ins_count_rec.inv_count).valid_flag := 'N';
12566: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
12567: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',l_get_instance_rec.inventory_item_id);
12568: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12569: FND_MSG_PUB.Add;
12570: RAISE fnd_api.g_exc_error;
12571: END;
12572:
12573: --
12603: p_item_attribute_tbl(p_ins_count_rec.inv_count).valid_flag := 'N';
12604: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
12605: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',l_get_instance_rec.inventory_item_id);
12606: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
12607: FND_MSG_PUB.Add;
12608: RAISE fnd_api.g_exc_error;
12609: END;
12610: END IF;
12611:
12703: ,x_token => l_token
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;
12710: RAISE FND_API.G_EXC_ERROR;
12711: END IF;
12712: ELSE
12713: FND_MESSAGE.SET_NAME('CSI', 'CSI_NON_EAM_ITEM');
12714: FND_MSG_PUB.Add;
12715: RAISE FND_API.G_EXC_ERROR;
12716: END IF;
12717: END IF;
12718:
12722: IF NOT csi_Item_Instance_Vld_pvt.Is_Valid_System_id(
12723: l_get_instance_rec.system_id) THEN
12724: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
12725: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',l_get_instance_rec.system_id);
12726: FND_MSG_PUB.Add;
12727: RAISE FND_API.G_EXC_ERROR;
12728: END IF;
12729: END IF;
12730: --
12775: --start code fix for 6176621
12776:
12777: IF l_serial_control not in (2, 5) and l_part_or_serial_change THEN
12778: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANNOT_UPD_SRL');
12779: FND_MSG_PUB.Add;
12780: RAISE FND_API.g_exc_error;
12781: END IF;
12782:
12783: --end code fix for 6176621
12785: -- Updating a Serial Number to NULL is not allowed.
12786: IF l_curr_instance_rec.serial_number IS NOT NULL AND
12787: p_instance_rec.serial_number IS NULL THEN
12788: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANNOT_UPD_SRL_NULL');
12789: FND_MSG_PUB.Add;
12790: RAISE FND_API.G_EXC_ERROR;
12791: END IF;
12792: --
12793: -- Serial number changes for CMRO
12926: ,l_return_value => l_return_value
12927: );
12928: IF l_return_value = FALSE THEN
12929: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
12930: fnd_msg_pub.add;
12931: RAISE fnd_api.g_exc_error;
12932: END IF;
12933: END IF;
12934: END IF;
13006:
13007: IF l_return_value = FALSE
13008: THEN
13009: FND_MESSAGE.Set_Name('CSI', 'CSI_CHANGE_VLD_ORG');
13010: FND_MSG_PUB.ADD;
13011: RAISE FND_API.G_EXC_ERROR;
13012: END IF;
13013: END IF;
13014: END IF;
13056: -- END IF;
13057: ELSE
13058: IF (p_instance_rec.accounting_class_code <> l_acct_class_code) THEN
13059: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_CLASS');
13060: FND_MSG_PUB.Add;
13061: RAISE FND_API.G_EXC_ERROR;
13062: END IF;
13063: END IF; -- not null
13064:
13096: AND ((p_instance_rec.quantity = 0) OR (p_instance_rec.quantity = FND_API.G_MISS_NUM))
13097: AND ((p_instance_rec.active_end_date IS NULL) OR (p_instance_rec.active_end_date > SYSDATE))
13098: THEN
13099: FND_MESSAGE.Set_Name('CSI', 'CSI_API_CANNOT_UNEXPIRE');
13100: FND_MSG_PUB.ADD;
13101: RAISE FND_API.G_EXC_ERROR;
13102: END IF;
13103:
13104: -- added by rtalluri for Bugfix 2318211 on 04/16/02
13119: IF (CSI_Item_Instance_vld_pvt.val_inst_ter_flag --added first change
13120: (l_get_instance_rec.instance_status_id))
13121: THEN
13122: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_STATUS');
13123: FND_MSG_PUB.ADD;
13124: RAISE FND_API.G_EXC_ERROR;
13125: END IF;
13126: END IF;
13127: END IF;
13148: --
13149: if l_valid_flag <> 'Y' then
13150: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
13151: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_rec.instance_condition_id);
13152: FND_MSG_PUB.Add;
13153: RAISE fnd_api.g_exc_error;
13154: end if;
13155: end if;
13156: --
13204: --
13205: if l_valid_flag <> 'Y' then
13206: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
13207: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_rec.instance_type_code);
13208: FND_MSG_PUB.Add;
13209: RAISE fnd_api.g_exc_error;
13210: end if;
13211: End if;
13212: --
13244: --
13245: if l_valid_flag <> 'Y' then
13246: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
13247: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_instance_rec.instance_usage_code);
13248: FND_MSG_PUB.Add;
13249: RAISE fnd_api.g_exc_error;
13250: end if;
13251: End if;
13252: --
13287: --
13288: if l_valid_flag <> 'Y' then
13289: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
13290: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_instance_rec.operational_status_code);
13291: FND_MSG_PUB.Add;
13292: RAISE fnd_api.g_exc_error;
13293: end if;
13294: End if;
13295: --
13322: from csi_install_parameters;
13323:
13324: IF l_int_party_id IS NULL THEN
13325: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
13326: FND_MSG_PUB.ADD;
13327: RAISE FND_API.G_EXC_ERROR;
13328: END IF;
13329: END IF;
13330:
13659: )
13660: )
13661: THEN
13662: FND_MESSAGE.SET_NAME('CSI','CSI_NO_PRICE_OR_CODE');
13663: FND_MSG_PUB.Add;
13664: RAISE fnd_api.g_exc_error;
13665: END IF;
13666: -- End addition of columns for FA Integration
13667:
13694: l_get_instance_rec.instance_usage_code = fnd_api.g_miss_char) AND
13695: l_temp_rec IS NOT NULL
13696: THEN
13697: FND_MESSAGE.Set_Name('CSI', 'CSI_INVALID_USAGE_CODE');
13698: FND_MSG_PUB.ADD;
13699: RAISE fnd_api.g_exc_error;
13700: END IF;
13701:
13702:
13725: IF l_temp_rec1 IS NOT NULL
13726: THEN
13727: FND_MESSAGE.Set_Name('CSI', 'CSI_MODIFY_USAGE_CODE');
13728: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_rec.instance_id);
13729: FND_MSG_PUB.ADD;
13730: RAISE fnd_api.g_exc_error;
13731: END IF;
13732: EXCEPTION
13733: WHEN NO_DATA_FOUND THEN
13827: IF csi_Item_Instance_Vld_Pvt.Instance_has_Parent(
13828: p_instance_id => p_instance_rec.instance_id
13829: ) THEN
13830: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INSTANCE_HAS_PARENT');
13831: FND_MSG_PUB.ADD;
13832: RAISE fnd_api.g_exc_error;
13833: END IF;
13834: -- Validate Location ID
13835: IF l_get_instance_rec.location_type_code IS NULL OR
13836: l_get_instance_rec.location_type_code = FND_API.G_MISS_CHAR OR
13837: l_get_instance_rec.location_id IS NULL OR
13838: l_get_instance_rec.location_id = FND_API.G_MISS_NUM THEN
13839: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
13840: FND_MSG_PUB.ADD;
13841: RAISE fnd_api.g_exc_error;
13842: END IF;
13843: --
13844: l_exists_flag := 'N';
13855: End Loop;
13856: --
13857: IF l_valid_flag <> 'Y' THEN
13858: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
13859: FND_MSG_PUB.ADD;
13860: RAISE fnd_api.g_exc_error;
13861: END IF;
13862: END IF; -- p_location_tbl count
13863: --
14013: IF ((l_serial_control = 6) and (l_get_instance_rec.serial_number is null)) THEN
14014: p_instance_rec.creation_complete_flag := 'N';
14015: ELSE
14016: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTES');
14017: FND_MSG_PUB.Add;
14018: RAISE fnd_api.g_exc_error;
14019: END IF;
14020: ELSE
14021: p_instance_rec.creation_complete_flag := 'N';
14058: AND csi.customer_product_id = p_instance_rec.instance_id
14059: AND NVL(close_flag,'N')<>'Y';
14060:
14061: FND_MESSAGE.SET_NAME('CSI','CSI_IB_HAS_OPEN_SR');
14062: FND_MSG_PUB.ADD;
14063: RAISE FND_API.G_EXC_ERROR;
14064:
14065: EXCEPTION
14066: WHEN TOO_MANY_ROWS THEN
14064:
14065: EXCEPTION
14066: WHEN TOO_MANY_ROWS THEN
14067: FND_MESSAGE.SET_NAME('CSI','CSI_IB_HAS_OPEN_SR');
14068: FND_MSG_PUB.ADD;
14069: RAISE FND_API.G_EXC_ERROR;
14070:
14071: WHEN NO_DATA_FOUND THEN -- modfied for bug 3693511
14072: NULL;
14087: THEN
14088: IF p_instance_rec.install_location_id IS NULL OR
14089: p_instance_rec.install_location_id = FND_API.G_MISS_NUM THEN
14090: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
14091: FND_MSG_PUB.ADD;
14092: RAISE fnd_api.g_exc_error;
14093: END IF;
14094: --
14095: l_exists_flag := 'N';
14106: End Loop;
14107: --
14108: IF l_valid_flag <> 'Y' THEN
14109: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
14110: FND_MSG_PUB.ADD;
14111: RAISE fnd_api.g_exc_error;
14112: END IF;
14113: END IF;
14114: --
14130: END IF;
14131: END IF;
14132: ELSE
14133: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INSTALL_LOC');
14134: FND_MSG_PUB.Add;
14135: RAISE FND_API.G_EXC_ERROR;
14136: END IF;
14137: END IF;
14138: -- End addition by sk on 02/06/02 for bug 2213922
14428: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS)
14429: THEN
14430: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_COUNTER_ASSOCIATION');
14431: FND_MESSAGE.SET_TOKEN('COUNTER','CSI_COUNTER_TEMPLATE_PUB.AUTOINSTANTIATE_COUNTERS');
14432: FND_MSG_PUB.Add;
14433: RAISE FND_API.G_EXC_ERROR;
14434: END IF;
14435: END IF;
14436:
14496: );
14497: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14498: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_COUNTER_ASSOCIATION');
14499: FND_MESSAGE.SET_TOKEN('COUNTER','CSI_COUNTER_TEMPLATE_PUB.AUTOINSTANTIATE_COUNTERS');
14500: FND_MSG_PUB.Add;
14501: RAISE FND_API.G_EXC_ERROR;
14502: END IF;
14503: END IF; -- COunter template existance check for the new item
14504: END IF; -- Base Item ID check
14631:
14632: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14633: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_VALIDATE_TXN');
14634: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_txn_rec.transaction_id );
14635: FND_MSG_PUB.Add;
14636: RAISE FND_API.G_EXC_ERROR;
14637: END IF;
14638:
14639: -- Get the full_dump_frequency from csi_install_parameter
14645: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
14646: --
14647: IF l_full_dump_frequency IS NULL THEN
14648: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
14649: FND_MSG_PUB.ADD;
14650: RAISE FND_API.G_EXC_ERROR;
14651: END IF;
14652: --
14653: -- Get a unique history item instance id from the sequence
18769: COMMIT WORK;
18770: END IF;
18771:
18772: -- Standard call to get message count and if count is get message info.
18773: FND_MSG_PUB.Count_And_Get
18774: (p_count => x_msg_count ,
18775: p_data => x_msg_data
18776: );
18777:
18782: THEN
18783: ROLLBACK TO update_item_instance_pvt;
18784: END IF;
18785: x_return_status := FND_API.G_RET_STS_ERROR ;
18786: FND_MSG_PUB.Count_And_Get
18787: ( p_count => x_msg_count,
18788: p_data => x_msg_data
18789: );
18790:
18794: THEN
18795: ROLLBACK TO update_item_instance_pvt;
18796: END IF;
18797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
18798: FND_MSG_PUB.Count_And_Get
18799: ( p_count => x_msg_count,
18800: p_data => x_msg_data
18801: );
18802: WHEN OTHERS THEN
18805: ROLLBACK TO update_item_instance_pvt;
18806: END IF;
18807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
18808:
18809: IF FND_MSG_PUB.Check_Msg_Level
18810: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18811: THEN
18812: FND_MSG_PUB.Add_Exc_Msg
18813: ( G_PKG_NAME ,
18806: END IF;
18807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
18808:
18809: IF FND_MSG_PUB.Check_Msg_Level
18810: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18811: THEN
18812: FND_MSG_PUB.Add_Exc_Msg
18813: ( G_PKG_NAME ,
18814: l_api_name
18808:
18809: IF FND_MSG_PUB.Check_Msg_Level
18810: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18811: THEN
18812: FND_MSG_PUB.Add_Exc_Msg
18813: ( G_PKG_NAME ,
18814: l_api_name
18815: );
18816: END IF;
18813: ( G_PKG_NAME ,
18814: l_api_name
18815: );
18816: END IF;
18817: FND_MSG_PUB.Count_And_Get
18818: ( p_count => x_msg_count,
18819: p_data => x_msg_data
18820: );
18821:
19008: END IF;
19009:
19010: -- Initialize message list if p_init_msg_list is set to TRUE.
19011: IF FND_API.to_Boolean( p_init_msg_list ) THEN
19012: FND_MSG_PUB.initialize;
19013: END IF;
19014:
19015: -- Initialize API return status to success
19016: x_return_status := FND_API.G_RET_STS_SUCCESS;
19050: x_msg_data => x_msg_data
19051: );
19052: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19053: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
19054: FND_MSG_PUB.Add;
19055: RAISE FND_API.G_EXC_ERROR;
19056: END IF;
19057: END IF;
19058: --
19066: OPEN curr_instance_rec(l_rel_tbl(j).subject_id);
19067: FETCH curr_instance_rec INTO l_curr_instance_rec;
19068: IF curr_instance_rec%NOTFOUND THEN
19069: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
19070: FND_MSG_PUB.ADD;
19071: RAISE FND_API.G_EXC_ERROR;
19072: END IF;
19073: CLOSE curr_instance_rec;
19074:
19089: THEN
19090: x_return_status := FND_API.G_RET_STS_ERROR ;
19091: FND_MESSAGE.Set_Name('CSI', 'CSI_CHILD_HAS_TXN');
19092: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_instance_rec.instance_number);
19093: FND_MSG_PUB.ADD;
19094: RAISE FND_API.G_EXC_ERROR;
19095: END IF;
19096: EXCEPTION
19097: WHEN FND_API.G_EXC_ERROR THEN
19113: p_instance_rec.instance_status_id <> fnd_api.g_miss_num THEN
19114: IF NOT (CSI_Item_Instance_vld_pvt.val_inst_ter_flag(
19115: p_instance_rec.instance_status_id)) THEN
19116: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_TERM_STATUS');
19117: FND_MSG_PUB.ADD;
19118: RAISE FND_API.G_EXC_ERROR;
19119: END IF;
19120: l_instance_rec.instance_status_id := p_instance_rec.instance_status_id;
19121: ELSE
19140: EXCEPTION
19141: WHEN NO_DATA_FOUND THEN
19142: fnd_message.set_name('CSI','CSI_API_INVALID_INSTANCE_ID');
19143: fnd_message.set_token('INSTANCE_ID',p_instance_rec.instance_id);
19144: fnd_msg_pub.ADD;
19145: END;
19146: ELSE
19147: l_vld_org := p_instance_rec.vld_organization_id;
19148: END IF;
19329: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
19330:
19331: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_VALIDATE_TXN');
19332: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_txn_rec.transaction_id );
19333: FND_MSG_PUB.Add;
19334: RAISE FND_API.G_EXC_ERROR;
19335: END IF;
19336:
19337: -- Get the full_dump_frequency from csi_install_parameter
19342: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
19343: --
19344: IF l_full_dump_frequency IS NULL THEN
19345: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
19346: FND_MSG_PUB.ADD;
19347: RAISE FND_API.G_EXC_ERROR;
19348: END IF;
19349:
19350: -- Get a unique history item instance id from the sequence
19868: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
19869: l_msg_index := 1;
19870: l_msg_count := x_msg_count;
19871: WHILE l_msg_count > 0 LOOP
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);
19883:
19884: END LOOP;
19885: END IF; -- l_rel_tbl count check
19886: -- Standard call to get message count and if count is get message info.
19887: FND_MSG_PUB.Count_And_Get
19888: (p_count => x_msg_count ,
19889: p_data => x_msg_data
19890: );
19891:
19893:
19894: WHEN FND_API.G_EXC_ERROR THEN
19895: ROLLBACK TO expire_child_instance_pvt;
19896: x_return_status := FND_API.G_RET_STS_ERROR ;
19897: FND_MSG_PUB.Count_And_Get
19898: (p_count => x_msg_count,
19899: p_data => x_msg_data
19900: );
19901:
19901:
19902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19903: ROLLBACK TO expire_child_instance_pvt;
19904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
19905: FND_MSG_PUB.Count_And_Get
19906: (p_count => x_msg_count,
19907: p_data => x_msg_data
19908: );
19909: WHEN OTHERS THEN
19908: );
19909: WHEN OTHERS THEN
19910: ROLLBACK TO expire_child_instance_pvt;
19911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
19912: IF FND_MSG_PUB.Check_Msg_Level
19913: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19914: THEN
19915: FND_MSG_PUB.Add_Exc_Msg
19916: ( G_PKG_NAME, l_api_name );
19909: WHEN OTHERS THEN
19910: ROLLBACK TO expire_child_instance_pvt;
19911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
19912: IF FND_MSG_PUB.Check_Msg_Level
19913: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19914: THEN
19915: FND_MSG_PUB.Add_Exc_Msg
19916: ( G_PKG_NAME, l_api_name );
19917: END IF;
19911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
19912: IF FND_MSG_PUB.Check_Msg_Level
19913: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
19914: THEN
19915: FND_MSG_PUB.Add_Exc_Msg
19916: ( G_PKG_NAME, l_api_name );
19917: END IF;
19918: FND_MSG_PUB.Count_And_Get
19919: ( p_count => x_msg_count,
19914: THEN
19915: FND_MSG_PUB.Add_Exc_Msg
19916: ( G_PKG_NAME, l_api_name );
19917: END IF;
19918: FND_MSG_PUB.Count_And_Get
19919: ( p_count => x_msg_count,
19920: p_data => x_msg_data
19921: );
19922:
20125: END IF;
20126:
20127: -- Initialize message list if p_init_msg_list is set to TRUE.
20128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
20129: FND_MSG_PUB.initialize;
20130: END IF;
20131:
20132: -- Initialize API return status to success
20133: x_return_status := FND_API.G_RET_STS_SUCCESS;
20176: OPEN get_instance_rec(p_instance_rec.instance_id);
20177: FETCH get_instance_rec INTO l_curr_instance_rec;
20178: IF (l_curr_instance_rec.object_version_number <> nvl(p_instance_rec.OBJECT_VERSION_NUMBER,0)) THEN
20179: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
20180: FND_MSG_PUB.ADD;
20181: RAISE FND_API.G_EXC_ERROR;
20182: END IF;
20183:
20184: IF get_instance_rec%NOTFOUND THEN
20182: END IF;
20183:
20184: IF get_instance_rec%NOTFOUND THEN
20185: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
20186: FND_MSG_PUB.ADD;
20187: RAISE FND_API.G_EXC_ERROR;
20188: END IF;
20189: CLOSE get_instance_rec;
20190:
20207: x_return_status := FND_API.G_RET_STS_ERROR ;
20208: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
20209: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_curr_instance_rec.instance_number );
20210: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
20211: FND_MSG_PUB.ADD;
20212: RAISE FND_API.G_EXC_ERROR;
20213: END IF;
20214: EXCEPTION
20215: WHEN FND_API.G_EXC_ERROR THEN
20248: );
20249: --
20250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20251: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
20252: FND_MSG_PUB.Add;
20253: RAISE FND_API.G_EXC_ERROR;
20254: END IF;
20255: END IF;
20256: --
20264:
20265: IF l_has_unexpired_children = TRUE THEN
20266: IF p_expire_children = 'F' THEN
20267: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANT_EXPIRE_INSTANCE');
20268: FND_MSG_PUB.Add;
20269: RAISE FND_API.G_EXC_ERROR;
20270:
20271: ELSE
20272: -- Call the expire_child_instances api
20294: p_instance_rec.instance_status_id <> fnd_api.g_miss_num THEN
20295: IF NOT (CSI_Item_Instance_vld_pvt.val_inst_ter_flag(
20296: p_instance_rec.instance_status_id)) THEN
20297: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_TERM_STATUS');
20298: FND_MSG_PUB.ADD;
20299: RAISE FND_API.G_EXC_ERROR;
20300: END IF;
20301: l_instance_rec.instance_status_id := p_instance_rec.instance_status_id;
20302: ELSE
20324: AND csi.customer_product_id = p_instance_rec.instance_id
20325: AND NVL(close_flag,'N')<>'Y';
20326:
20327: FND_MESSAGE.SET_NAME('CSI','CSI_IB_HAS_OPEN_SR');
20328: FND_MSG_PUB.ADD;
20329: RAISE FND_API.G_EXC_ERROR;
20330:
20331: EXCEPTION
20332: WHEN TOO_MANY_ROWS THEN
20330:
20331: EXCEPTION
20332: WHEN TOO_MANY_ROWS THEN
20333: FND_MESSAGE.SET_NAME('CSI','CSI_IB_HAS_OPEN_SR');
20334: FND_MSG_PUB.ADD;
20335: RAISE FND_API.G_EXC_ERROR;
20336:
20337: WHEN NO_DATA_FOUND THEN -- modfied for bug 3693511
20338: NULL;
20386: EXCEPTION
20387: WHEN NO_DATA_FOUND THEN
20388: fnd_message.set_name('CSI','CSI_API_INVALID_INSTANCE_ID');
20389: fnd_message.set_token('INSTANCE_ID',p_instance_rec.instance_id);
20390: fnd_msg_pub.ADD;
20391: END;
20392: ELSE
20393: l_vld_org := p_instance_rec.vld_organization_id;
20394: END IF;
20580: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
20581:
20582: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_VALIDATE_TXN');
20583: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_txn_rec.transaction_id );
20584: FND_MSG_PUB.Add;
20585: RAISE FND_API.G_EXC_ERROR;
20586: END IF;
20587: -- END IF;
20588:
20599: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
20600: --
20601: IF l_full_dump_frequency IS NULL THEN
20602: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
20603: FND_MSG_PUB.ADD;
20604: RAISE FND_API.G_EXC_ERROR;
20605: END IF;
20606:
20607: SELECT MOD(l_instance_rec.object_version_number,l_full_dump_frequency)
21355: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
21356: l_msg_index := 1;
21357: l_msg_count := x_msg_count;
21358: WHILE l_msg_count > 0 LOOP
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);
21376: COMMIT WORK;
21377: END IF;
21378:
21379: -- Standard call to get message count and if count is get message info.
21380: FND_MSG_PUB.Count_And_Get
21381: (p_count => x_msg_count ,
21382: p_data => x_msg_data
21383: );
21384:
21386:
21387: WHEN FND_API.G_EXC_ERROR THEN
21388: ROLLBACK TO expire_item_instance_pvt;
21389: x_return_status := FND_API.G_RET_STS_ERROR ;
21390: FND_MSG_PUB.Count_And_Get
21391: (p_count => x_msg_count,
21392: p_data => x_msg_data
21393: );
21394:
21394:
21395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
21396: ROLLBACK TO expire_item_instance_pvt;
21397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21398: FND_MSG_PUB.Count_And_Get
21399: (p_count => x_msg_count,
21400: p_data => x_msg_data
21401: );
21402: WHEN OTHERS THEN
21401: );
21402: WHEN OTHERS THEN
21403: ROLLBACK TO expire_item_instance_pvt;
21404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21405: IF FND_MSG_PUB.Check_Msg_Level
21406: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21407: THEN
21408: FND_MSG_PUB.Add_Exc_Msg
21409: ( G_PKG_NAME, l_api_name );
21402: WHEN OTHERS THEN
21403: ROLLBACK TO expire_item_instance_pvt;
21404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21405: IF FND_MSG_PUB.Check_Msg_Level
21406: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21407: THEN
21408: FND_MSG_PUB.Add_Exc_Msg
21409: ( G_PKG_NAME, l_api_name );
21410: END IF;
21404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21405: IF FND_MSG_PUB.Check_Msg_Level
21406: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21407: THEN
21408: FND_MSG_PUB.Add_Exc_Msg
21409: ( G_PKG_NAME, l_api_name );
21410: END IF;
21411: FND_MSG_PUB.Count_And_Get
21412: ( p_count => x_msg_count,
21407: THEN
21408: FND_MSG_PUB.Add_Exc_Msg
21409: ( G_PKG_NAME, l_api_name );
21410: END IF;
21411: FND_MSG_PUB.Count_And_Get
21412: ( p_count => x_msg_count,
21413: p_data => x_msg_data
21414: );
21415:
21504: END IF;
21505:
21506: -- Initialize message list if p_init_msg_list is set to TRUE.
21507: IF FND_API.to_Boolean( p_init_msg_list ) THEN
21508: FND_MSG_PUB.initialize;
21509: END IF;
21510:
21511: -- Initialize API return status to success
21512: x_return_status := FND_API.G_RET_STS_SUCCESS;
21544: OR p_source_instance_rec.location_type_code = 'WIP'
21545: OR p_source_instance_rec.location_type_code = 'PROJECT'
21546: THEN
21547: FND_MESSAGE.SET_NAME('CSI','CSI_CANNOT_SPLIT');
21548: FND_MSG_PUB.ADD;
21549: RAISE FND_API.G_EXC_ERROR;
21550: END IF;
21551:
21552: BEGIN
21555: FROM csi_i_assets
21556: WHERE instance_id =p_source_instance_rec.instance_id;
21557:
21558: FND_MESSAGE.SET_NAME('CSI','CSI_CANNOT_SPLIT');
21559: FND_MSG_PUB.ADD;
21560: RAISE FND_API.G_EXC_ERROR;
21561: EXCEPTION
21562: WHEN OTHERS THEN
21563: NULL;
21576: THEN
21577: l_return_value := FALSE;
21578: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANNOT_BE_SERIALIZED');
21579: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER', 'serial_number');
21580: FND_MSG_PUB.ADD;
21581: RAISE FND_API.G_EXC_ERROR;
21582: END IF;
21583: END IF;
21584: CLOSE C1;
21592: WHERE instance_id = p_source_instance_rec.instance_id;
21593: EXCEPTION
21594: WHEN NO_DATA_FOUND THEN
21595: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANITY');
21596: FND_MSG_PUB.Add;
21597: RAISE FND_API.G_EXC_ERROR;
21598: END;
21599:
21600: --verifying the quantity
21599:
21600: --verifying the quantity
21601: IF (p_quantity1 + p_quantity2) <> l_quantity THEN
21602: FND_MESSAGE.SET_NAME('CSI','CSI_API_INCORRECT_QUANTITY');
21603: FND_MSG_PUB.Add;
21604: RAISE FND_API.G_EXC_ERROR;
21605: END IF;
21606:
21607: -- Added by sk for bug 2186683
21646: );
21647:
21648: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
21649: FOR i in 1..x_msg_Count LOOP
21650: FND_MSG_PUB.Get(p_msg_index => i,
21651: p_encoded => 'F',
21652: p_data => x_msg_data,
21653: p_msg_index_out => x_msg_index_out );
21654:
21741: x_msg_count => x_msg_count,
21742: x_msg_data => x_msg_data);
21743: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
21744: FOR i in 1..x_msg_Count LOOP
21745: FND_MSG_PUB.Get(p_msg_index => i,
21746: p_encoded => 'F',
21747: p_data => x_msg_data,
21748: p_msg_index_out => x_msg_index_out );
21749: END LOOP;
21760: WHERE instance_id = p_source_instance_rec.instance_id;
21761: EXCEPTION
21762: WHEN NO_DATA_FOUND THEN
21763: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_OBJ_NUM');
21764: FND_MSG_PUB.ADD;
21765: RAISE FND_API.G_EXC_ERROR;
21766: END;
21767: l_new_instance_rec.instance_id := p_source_instance_rec.instance_id;
21768: l_new_instance_rec.quantity := p_quantity1;
21794: );
21795:
21796: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
21797: FOR i in 1..x_msg_Count LOOP
21798: FND_MSG_PUB.Get(p_msg_index => i,
21799: p_encoded => 'F',
21800: p_data => x_msg_data,
21801: p_msg_index_out => x_msg_index_out );
21802: End LOOP;
21859: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
21860: l_msg_index := 1;
21861: l_msg_count := x_msg_count;
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);
21882:
21883: -- End disable trace
21884:
21885: -- Standard call to get message count and IF count is get message info.
21886: FND_MSG_PUB.Count_And_Get
21887: (p_count => x_msg_count ,
21888: p_data => x_msg_data
21889: );
21890:
21892:
21893: WHEN FND_API.G_EXC_ERROR THEN
21894: ROLLBACK TO split_item_instance_pvt;
21895: x_return_status := FND_API.G_RET_STS_ERROR ;
21896: FND_MSG_PUB.Count_And_Get
21897: ( p_count => x_msg_count,
21898: p_data => x_msg_data
21899: );
21900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
21899: );
21900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
21901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21902: ROLLBACK TO split_item_instance_pvt;
21903: FND_MSG_PUB.Count_And_Get
21904: ( p_count => x_msg_count,
21905: p_data => x_msg_data
21906: );
21907: WHEN OTHERS THEN
21906: );
21907: WHEN OTHERS THEN
21908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21909: ROLLBACK TO split_item_instance_pvt;
21910: IF FND_MSG_PUB.Check_Msg_Level
21911: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21912: THEN
21913: FND_MSG_PUB.Add_Exc_Msg
21914: ( G_PKG_NAME ,
21907: WHEN OTHERS THEN
21908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
21909: ROLLBACK TO split_item_instance_pvt;
21910: IF FND_MSG_PUB.Check_Msg_Level
21911: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21912: THEN
21913: FND_MSG_PUB.Add_Exc_Msg
21914: ( G_PKG_NAME ,
21915: l_api_name
21909: ROLLBACK TO split_item_instance_pvt;
21910: IF FND_MSG_PUB.Check_Msg_Level
21911: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
21912: THEN
21913: FND_MSG_PUB.Add_Exc_Msg
21914: ( G_PKG_NAME ,
21915: l_api_name
21916: );
21917: END IF;
21914: ( G_PKG_NAME ,
21915: l_api_name
21916: );
21917: END IF;
21918: FND_MSG_PUB.Count_And_Get
21919: ( p_count => x_msg_count,
21920: p_data => x_msg_data
21921: );
21922:
22003: END IF;
22004:
22005: -- Initialize message list if p_init_msg_list is set to TRUE.
22006: IF FND_API.to_Boolean( p_init_msg_list ) THEN
22007: FND_MSG_PUB.initialize;
22008: END IF;
22009:
22010: -- Initialize API return status to success
22011: x_return_status := FND_API.G_RET_STS_SUCCESS;
22043: OR p_source_instance_rec.location_type_code = 'WIP'
22044: OR p_source_instance_rec.location_type_code = 'PROJECT'
22045: THEN
22046: FND_MESSAGE.SET_NAME('CSI','CSI_CANNOT_SPLIT');
22047: FND_MSG_PUB.ADD;
22048: RAISE FND_API.G_EXC_ERROR;
22049: END IF;
22050:
22051: BEGIN
22054: FROM csi_i_assets
22055: WHERE instance_id =p_source_instance_rec.instance_id;
22056:
22057: FND_MESSAGE.SET_NAME('CSI','CSI_CANNOT_SPLIT');
22058: FND_MSG_PUB.ADD;
22059: RAISE FND_API.G_EXC_ERROR;
22060: EXCEPTION
22061: WHEN OTHERS THEN
22062: NULL;
22074: THEN
22075: l_return_value := FALSE;
22076: FND_MESSAGE.SET_NAME('CSI','CSI_API_CANNOT_BE_SERIALIZED');
22077: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER', 'serial_number');
22078: FND_MSG_PUB.ADD;
22079: RAISE FND_API.G_EXC_ERROR;
22080: END IF;
22081: END IF;
22082: CLOSE C1;
22089: WHERE instance_id = p_source_instance_rec.instance_id;
22090: EXCEPTION
22091: WHEN NO_DATA_FOUND THEN
22092: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANITY');
22093: FND_MSG_PUB.Add;
22094: RAISE FND_API.G_EXC_ERROR;
22095: END;
22096: -- Added by sk for bug 2186683
22097: IF p_source_instance_rec.vld_organization_id IS NULL OR
22142:
22143: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
22144: -- x_error_message := 'copy_item_instance failed ' ;
22145: FOR i in 1..x_msg_Count LOOP
22146: FND_MSG_PUB.Get(p_msg_index => i,
22147: p_encoded => 'F',
22148: p_data => x_msg_data,
22149: p_msg_index_out => x_msg_index_out );
22150: End LOOP;
22228: x_msg_count => x_msg_count,
22229: x_msg_data => x_msg_data);
22230: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
22231: FOR i in 1..x_msg_Count LOOP
22232: FND_MSG_PUB.Get(p_msg_index => i,
22233: p_encoded => 'F',
22234: p_data => x_msg_data,
22235: p_msg_index_out => x_msg_index_out );
22236: END LOOP;
22299: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
22300: l_msg_index := 1;
22301: l_msg_count := x_msg_count;
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);
22320: Else --l_quantity is <= 1
22321:
22322: FND_MESSAGE.SET_NAME('CSI','CSI_API_QUANTITY_NOT_VALID');
22323: FND_MESSAGE.SET_TOKEN('QUANTITY', l_quantity);
22324: FND_MSG_PUB.ADD;
22325: -- RAISE fnd_api.g_exc_error;
22326: End If;
22327:
22328: --update the existing record with 'p_quantity1')
22333: WHERE instance_id = p_source_instance_rec.instance_id;
22334: EXCEPTION
22335: WHEN NO_DATA_FOUND THEN
22336: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_OBJ_NUM');
22337: FND_MSG_PUB.ADD;
22338: RAISE FND_API.G_EXC_ERROR;
22339: END;
22340: --
22341: px_oks_txn_inst_tbl.DELETE;
22368: );
22369:
22370: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
22371: FOR i in 1..x_msg_Count LOOP
22372: FND_MSG_PUB.Get(p_msg_index => i,
22373: p_encoded => 'F',
22374: p_data => x_msg_data,
22375: p_msg_index_out => x_msg_index_out );
22376: End LOOP;
22393:
22394: -- End disable trace
22395:
22396: -- Standard call to get message count and IF count is get message info.
22397: FND_MSG_PUB.Count_And_Get
22398: (p_count => x_msg_count ,
22399: p_data => x_msg_data
22400: );
22401:
22403:
22404: WHEN FND_API.G_EXC_ERROR THEN
22405: ROLLBACK TO split_item_instance_lines_pvt;
22406: x_return_status := FND_API.G_RET_STS_ERROR ;
22407: FND_MSG_PUB.Count_And_Get
22408: ( p_count => x_msg_count,
22409: p_data => x_msg_data
22410: );
22411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22410: );
22411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22413: ROLLBACK TO split_item_instance_lines_pvt;
22414: FND_MSG_PUB.Count_And_Get
22415: ( p_count => x_msg_count,
22416: p_data => x_msg_data
22417: );
22418: WHEN OTHERS THEN
22417: );
22418: WHEN OTHERS THEN
22419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22420: ROLLBACK TO split_item_instance_lines_pvt;
22421: IF FND_MSG_PUB.Check_Msg_Level
22422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
22423: THEN
22424: FND_MSG_PUB.Add_Exc_Msg
22425: ( G_PKG_NAME ,
22418: WHEN OTHERS THEN
22419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22420: ROLLBACK TO split_item_instance_lines_pvt;
22421: IF FND_MSG_PUB.Check_Msg_Level
22422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
22423: THEN
22424: FND_MSG_PUB.Add_Exc_Msg
22425: ( G_PKG_NAME ,
22426: l_api_name
22420: ROLLBACK TO split_item_instance_lines_pvt;
22421: IF FND_MSG_PUB.Check_Msg_Level
22422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
22423: THEN
22424: FND_MSG_PUB.Add_Exc_Msg
22425: ( G_PKG_NAME ,
22426: l_api_name
22427: );
22428: END IF;
22425: ( G_PKG_NAME ,
22426: l_api_name
22427: );
22428: END IF;
22429: FND_MSG_PUB.Count_And_Get
22430: ( p_count => x_msg_count,
22431: p_data => x_msg_data
22432: );
22433:
22676: IF p_time_stamp < l_time_stamp THEN
22677: FND_MESSAGE.SET_NAME('CSI','CSI_H_DATE_BEFORE_CRE_DATE');
22678: FND_MESSAGE.SET_TOKEN('CREATION_DATE',to_char(l_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
22679: FND_MESSAGE.SET_TOKEN('USER_DATE',to_char(p_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
22680: FND_MSG_PUB.Add;
22681: RAISE FND_API.G_EXC_ERROR;
22682: END IF;
22683:
22684: END IF;
23063: END IF;
23064:
23065: -- Initialize message list if p_init_msg_list is set to TRUE.
23066: IF FND_API.to_Boolean( p_init_msg_list ) THEN
23067: FND_MSG_PUB.initialize;
23068: END IF;
23069:
23070: -- Initialize API return status to success
23071: x_return_status := FND_API.G_RET_STS_SUCCESS;
23217:
23218: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
23219: l_msg_index := 1;
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;
23298: COMMIT WORK;
23299: END IF;
23300:
23301: -- Standard call to get message count and if count is get message info.
23302: FND_MSG_PUB.Count_And_Get
23303: (p_count => x_msg_count ,
23304: p_data => x_msg_data );
23305:
23306: EXCEPTION
23306: EXCEPTION
23307: WHEN FND_API.G_EXC_ERROR THEN
23308: ROLLBACK TO create_version_label_pvt;
23309: x_return_status := FND_API.G_RET_STS_ERROR ;
23310: FND_MSG_PUB.Count_And_Get
23311: ( p_count => x_msg_count,
23312: p_data => x_msg_data);
23313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23314: ROLLBACK TO create_version_label_pvt;
23312: p_data => x_msg_data);
23313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
23314: ROLLBACK TO create_version_label_pvt;
23315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
23316: FND_MSG_PUB.Count_And_Get
23317: ( p_count => x_msg_count,
23318: p_data => x_msg_data);
23319: WHEN OTHERS THEN
23320: ROLLBACK TO create_version_label_pvt;
23318: p_data => x_msg_data);
23319: WHEN OTHERS THEN
23320: ROLLBACK TO create_version_label_pvt;
23321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
23322: IF FND_MSG_PUB.Check_Msg_Level
23323: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
23324: THEN
23325: FND_MSG_PUB.Add_Exc_Msg
23326: ( G_PKG_NAME, l_api_name );
23319: WHEN OTHERS THEN
23320: ROLLBACK TO create_version_label_pvt;
23321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
23322: IF FND_MSG_PUB.Check_Msg_Level
23323: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
23324: THEN
23325: FND_MSG_PUB.Add_Exc_Msg
23326: ( G_PKG_NAME, l_api_name );
23327: END IF;
23321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
23322: IF FND_MSG_PUB.Check_Msg_Level
23323: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
23324: THEN
23325: FND_MSG_PUB.Add_Exc_Msg
23326: ( G_PKG_NAME, l_api_name );
23327: END IF;
23328: FND_MSG_PUB.Count_And_Get
23329: ( p_count => x_msg_count,
23324: THEN
23325: FND_MSG_PUB.Add_Exc_Msg
23326: ( G_PKG_NAME, l_api_name );
23327: END IF;
23328: FND_MSG_PUB.Count_And_Get
23329: ( p_count => x_msg_count,
23330: p_data => x_msg_data);
23331: END create_version_label;
23332:
23422: END IF;
23423:
23424: -- Initialize message list if p_init_msg_list is set to TRUE.
23425: IF FND_API.to_Boolean( p_init_msg_list ) THEN
23426: FND_MSG_PUB.initialize;
23427: END IF;
23428:
23429: -- Initialize API return status to success
23430: x_return_status := FND_API.G_RET_STS_SUCCESS;
23476: OPEN get_curr_ver_label_rec(p_version_label_rec.VERSION_LABEL_ID);
23477: FETCH get_curr_ver_label_rec INTO l_curr_ver_label_rec;
23478: IF (l_curr_ver_label_rec.object_version_number <> nvl(p_version_label_rec.OBJECT_VERSION_NUMBER,-1)) THEN
23479: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
23480: FND_MSG_PUB.ADD;
23481: RAISE FND_API.G_EXC_ERROR;
23482: END IF;
23483: IF get_curr_ver_label_rec%NOTFOUND THEN
23484: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
23481: RAISE FND_API.G_EXC_ERROR;
23482: END IF;
23483: IF get_curr_ver_label_rec%NOTFOUND THEN
23484: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
23485: FND_MSG_PUB.ADD;
23486: RAISE FND_API.G_EXC_ERROR;
23487: END IF;
23488: CLOSE get_curr_ver_label_rec;
23489:
23539: ,x_msg_data => x_msg_data );
23540:
23541: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
23542: FOR i in 1..x_msg_Count LOOP
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);
23561: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
23562: --
23563: IF l_full_dump_frequency IS NULL THEN
23564: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
23565: FND_MSG_PUB.ADD;
23566: RAISE FND_API.G_EXC_ERROR;
23567: END IF;
23568: --
23569: select mod(l_object_version_number,l_full_dump_frequency)
24425: COMMIT WORK;
24426: END IF;
24427:
24428: -- Standard call to get message count and if count is get message info.
24429: FND_MSG_PUB.Count_And_Get
24430: (p_count => x_msg_count ,
24431: p_data => x_msg_data );
24432:
24433: EXCEPTION
24433: EXCEPTION
24434: WHEN FND_API.G_EXC_ERROR THEN
24435: ROLLBACK TO update_version_label_pvt;
24436: x_return_status := FND_API.G_RET_STS_ERROR ;
24437: FND_MSG_PUB.Count_And_Get
24438: ( p_count => x_msg_count,
24439: p_data => x_msg_data);
24440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24441: ROLLBACK TO update_version_label_pvt;
24439: p_data => x_msg_data);
24440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24441: ROLLBACK TO update_version_label_pvt;
24442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24443: FND_MSG_PUB.Count_And_Get
24444: ( p_count => X_msg_count,
24445: p_data => X_msg_data);
24446: WHEN OTHERS THEN
24447: ROLLBACK TO update_version_label_pvt;
24445: p_data => X_msg_data);
24446: WHEN OTHERS THEN
24447: ROLLBACK TO update_version_label_pvt;
24448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24449: IF FND_MSG_PUB.Check_Msg_Level
24450: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24451: THEN
24452: FND_MSG_PUB.Add_Exc_Msg
24453: ( G_PKG_NAME, l_api_name );
24446: WHEN OTHERS THEN
24447: ROLLBACK TO update_version_label_pvt;
24448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24449: IF FND_MSG_PUB.Check_Msg_Level
24450: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24451: THEN
24452: FND_MSG_PUB.Add_Exc_Msg
24453: ( G_PKG_NAME, l_api_name );
24454: END IF;
24448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24449: IF FND_MSG_PUB.Check_Msg_Level
24450: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24451: THEN
24452: FND_MSG_PUB.Add_Exc_Msg
24453: ( G_PKG_NAME, l_api_name );
24454: END IF;
24455: FND_MSG_PUB.Count_And_Get
24456: ( p_count => x_msg_count,
24451: THEN
24452: FND_MSG_PUB.Add_Exc_Msg
24453: ( G_PKG_NAME, l_api_name );
24454: END IF;
24455: FND_MSG_PUB.Count_And_Get
24456: ( p_count => x_msg_count,
24457: p_data => x_msg_data );
24458: END update_version_label;
24459:
24536: END IF;
24537:
24538: -- Initialize message list if p_init_msg_list is set to TRUE.
24539: IF FND_API.to_Boolean( p_init_msg_list ) THEN
24540: FND_MSG_PUB.initialize;
24541: END IF;
24542: -- Initialize API return status to success
24543: x_return_status := FND_API.G_RET_STS_SUCCESS;
24544:
24590: OPEN get_curr_ver_label_rec(p_version_label_rec.version_label_id);
24591: FETCH get_curr_ver_label_rec INTO l_curr_ver_label_rec;
24592: IF (l_curr_ver_label_rec.object_version_number <> nvl(p_version_label_rec.OBJECT_VERSION_NUMBER,-1)) THEN
24593: FND_MESSAGE.Set_Name('CSI', 'CSI_API_OBJ_VER_MISMATCH');
24594: FND_MSG_PUB.ADD;
24595: RAISE FND_API.G_EXC_ERROR;
24596: END IF;
24597:
24598: IF get_curr_ver_label_rec%NOTFOUND THEN
24596: END IF;
24597:
24598: IF get_curr_ver_label_rec%NOTFOUND THEN
24599: FND_MESSAGE.Set_Name('CSI', 'CSI_API_RECORD_LOCKED');
24600: FND_MSG_PUB.ADD;
24601: RAISE FND_API.G_EXC_ERROR;
24602: END IF;
24603: CLOSE get_curr_ver_label_rec;
24604:
24651: ,x_msg_data => x_msg_data );
24652:
24653: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
24654: FOR i in 1..x_msg_Count LOOP
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);
24672: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
24673: --
24674: IF l_full_dump_frequency IS NULL THEN
24675: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
24676: FND_MSG_PUB.ADD;
24677: RAISE FND_API.G_EXC_ERROR;
24678: END IF;
24679:
24680: select mod(l_object_version_number,l_full_dump_frequency)
24813: COMMIT WORK;
24814: END IF;
24815:
24816: -- Standard call to get message count and if count is get message info.
24817: FND_MSG_PUB.Count_And_Get
24818: (p_count => x_msg_count ,
24819: p_data => x_msg_data );
24820: EXCEPTION
24821: WHEN FND_API.G_EXC_ERROR THEN
24820: EXCEPTION
24821: WHEN FND_API.G_EXC_ERROR THEN
24822: ROLLBACK TO expire_version_label_pvt;
24823: x_return_status := FND_API.G_RET_STS_ERROR ;
24824: FND_MSG_PUB.Count_And_Get
24825: ( p_count => x_msg_count,
24826: p_data => x_msg_data);
24827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24828: ROLLBACK TO expire_version_label_pvt;
24826: p_data => x_msg_data);
24827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24828: ROLLBACK TO expire_version_label_pvt;
24829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24830: FND_MSG_PUB.Count_And_Get
24831: ( p_count => x_msg_count,
24832: p_data => x_msg_data);
24833: WHEN OTHERS THEN
24834: ROLLBACK TO expire_version_label_pvt;
24832: p_data => x_msg_data);
24833: WHEN OTHERS THEN
24834: ROLLBACK TO expire_version_label_pvt;
24835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24836: IF FND_MSG_PUB.Check_Msg_Level
24837: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24838: THEN
24839: FND_MSG_PUB.Add_Exc_Msg
24840: ( G_PKG_NAME, l_api_name );
24833: WHEN OTHERS THEN
24834: ROLLBACK TO expire_version_label_pvt;
24835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24836: IF FND_MSG_PUB.Check_Msg_Level
24837: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24838: THEN
24839: FND_MSG_PUB.Add_Exc_Msg
24840: ( G_PKG_NAME, l_api_name );
24841: END IF;
24835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24836: IF FND_MSG_PUB.Check_Msg_Level
24837: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
24838: THEN
24839: FND_MSG_PUB.Add_Exc_Msg
24840: ( G_PKG_NAME, l_api_name );
24841: END IF;
24842: FND_MSG_PUB.Count_And_Get
24843: ( p_count => x_msg_count,
24838: THEN
24839: FND_MSG_PUB.Add_Exc_Msg
24840: ( G_PKG_NAME, l_api_name );
24841: END IF;
24842: FND_MSG_PUB.Count_And_Get
24843: ( p_count => x_msg_count,
24844: p_data => x_msg_data);
24845: END expire_version_label;
24846:
25078: -- Messages Commented for bug 2423342. Records that do not qualify should get deleted.
25079: -- FND_MESSAGE.SET_NAME('CSI','CSI_H_DATE_BEFORE_CRE_DATE');
25080: -- FND_MESSAGE.SET_TOKEN('CREATION_DATE',to_char(l_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
25081: -- FND_MESSAGE.SET_TOKEN('USER_DATE',to_char(p_time_stamp, 'DD-MON-YYYY HH24:MI:SS'));
25082: -- FND_MSG_PUB.Add;
25083: -- RAISE FND_API.G_EXC_ERROR;
25084: l_ext_tbl.DELETE(i);
25085: RAISE Process_next;
25086: END IF;
25463:
25464:
25465: -- Initialize message list if p_init_msg_list is set to TRUE.
25466: IF FND_API.to_Boolean( p_init_msg_list ) THEN
25467: FND_MSG_PUB.initialize;
25468: END IF;
25469:
25470:
25471: -- Initialize API return status to success
25534: IF l_valid_flag <> 'Y'
25535: THEN
25536: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
25537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_ext_attrib_rec.instance_id);
25538: FND_MSG_PUB.Add;
25539: RAISE fnd_api.g_exc_error;
25540: END IF;
25541: END IF;
25542: --
25586: IF l_valid_flag <> 'Y'
25587: THEN
25588: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
25589: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ext_attrib_rec.attribute_id);
25590: FND_MSG_PUB.Add;
25591: RAISE fnd_api.g_exc_error;
25592: END IF;
25593: END IF;
25594: --
25617: END IF;
25618: ELSE
25619: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
25620: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ext_attrib_rec.attribute_id);
25621: FND_MSG_PUB.Add;
25622: END IF;
25623: --
25624:
25625: -- Added by sk for bug 2232880
25666: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
25667: l_msg_index := 1;
25668: l_msg_count := x_msg_count;
25669: WHILE l_msg_count > 0 LOOP
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..');
25738: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ATT_LEV_CAT');
25739: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_LEVEL_ITEM',l_ori_inventory_item_id);
25740: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_LEVEL_ORG',l_ori_master_org_id);
25741: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_LEVEL_CAT',l_item_category_id);
25742: FND_MSG_PUB.Add;
25743: RAISE fnd_api.g_exc_error;
25744: END IF;
25745: END IF;
25746: --
25857: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
25858: l_msg_index := 1;
25859: l_msg_count := x_msg_count;
25860: WHILE l_msg_count > 0 LOOP
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);
25937: COMMIT WORK;
25938: END IF;
25939:
25940: -- Standard call to get message count and if count is get message info.
25941: FND_MSG_PUB.Count_And_Get
25942: (p_count => x_msg_count ,
25943: p_data => x_msg_data
25944: );
25945:
25948:
25949: WHEN FND_API.G_EXC_ERROR THEN
25950: ROLLBACK TO create_extended_attrib_values;
25951: x_return_status := FND_API.G_RET_STS_ERROR ;
25952: FND_MSG_PUB.Count_And_Get
25953: ( p_count => x_msg_count,
25954: p_data => x_msg_data
25955: );
25956:
25956:
25957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25958: ROLLBACK TO create_extended_attrib_values;
25959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
25960: FND_MSG_PUB.Count_And_Get
25961: ( p_count => x_msg_count,
25962: p_data => x_msg_data
25963: );
25964:
25966:
25967: ROLLBACK TO create_extended_attrib_values;
25968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
25969:
25970: IF FND_MSG_PUB.Check_Msg_Level
25971: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25972: THEN
25973: FND_MSG_PUB.Add_Exc_Msg
25974: ( g_pkg_name,
25967: ROLLBACK TO create_extended_attrib_values;
25968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
25969:
25970: IF FND_MSG_PUB.Check_Msg_Level
25971: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25972: THEN
25973: FND_MSG_PUB.Add_Exc_Msg
25974: ( g_pkg_name,
25975: l_api_name
25969:
25970: IF FND_MSG_PUB.Check_Msg_Level
25971: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25972: THEN
25973: FND_MSG_PUB.Add_Exc_Msg
25974: ( g_pkg_name,
25975: l_api_name
25976: );
25977: END IF;
25975: l_api_name
25976: );
25977: END IF;
25978:
25979: FND_MSG_PUB.Count_And_Get
25980: ( p_count => x_msg_count,
25981: p_data => x_msg_data
25982: );
25983:
26043:
26044:
26045: -- Initialize message list if p_init_msg_list is set to TRUE.
26046: IF FND_API.to_Boolean( p_init_msg_list ) THEN
26047: FND_MSG_PUB.initialize;
26048: END IF;
26049:
26050:
26051: -- Initialize API return status to success
26129: IF ( p_ext_attrib_rec.active_start_date <> FND_API.G_MISS_DATE) THEN
26130: IF (p_ext_attrib_rec.active_start_date <> l_ext_attrib_rec.active_start_date) THEN
26131: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
26132: FND_MESSAGE.Set_Token('COLUMN', 'EXTENDED ATTRIBUTE START_DATE');
26133: FND_MSG_PUB.ADD;
26134: RAISE FND_API.G_EXC_ERROR;
26135: END IF;
26136: END IF;
26137:
26155: IF ( p_ext_attrib_rec.attribute_id <> FND_API.G_MISS_NUM) THEN
26156: IF (l_ext_attrib_rec.attribute_id <> l_ext_attrib_rec.attribute_id) THEN
26157: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
26158: FND_MESSAGE.Set_Token('COLUMN', 'EXTENDED ATTRIBUTE_ID');
26159: FND_MSG_PUB.ADD;
26160: RAISE FND_API.G_EXC_ERROR;
26161: END IF;
26162: END IF;
26163:
26218: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
26219: l_msg_index := 1;
26220: l_msg_count := x_msg_count;
26221: WHILE l_msg_count > 0 LOOP
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);
27029: COMMIT WORK;
27030: END IF;
27031:
27032: -- Standard call to get message count and if count is get message info.
27033: FND_MSG_PUB.Count_And_Get
27034: (p_count => x_msg_count ,
27035: p_data => x_msg_data
27036: );
27037:
27039:
27040: WHEN FND_API.G_EXC_ERROR THEN
27041: ROLLBACK TO update_extended_attrib_values;
27042: x_return_status := FND_API.G_RET_STS_ERROR ;
27043: FND_MSG_PUB.Count_And_Get
27044: ( p_count => x_msg_count,
27045: p_data => x_msg_data
27046: );
27047:
27047:
27048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27049: ROLLBACK TO update_extended_attrib_values;
27050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
27051: FND_MSG_PUB.Count_And_Get
27052: ( p_count => x_msg_count,
27053: p_data => x_msg_data
27054: );
27055:
27056: WHEN OTHERS THEN
27057: ROLLBACK TO update_extended_attrib_values;
27058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
27059:
27060: IF FND_MSG_PUB.Check_Msg_Level
27061: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27062: THEN
27063: FND_MSG_PUB.Add_Exc_Msg
27064: ( g_pkg_name,
27057: ROLLBACK TO update_extended_attrib_values;
27058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
27059:
27060: IF FND_MSG_PUB.Check_Msg_Level
27061: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27062: THEN
27063: FND_MSG_PUB.Add_Exc_Msg
27064: ( g_pkg_name,
27065: l_api_name
27059:
27060: IF FND_MSG_PUB.Check_Msg_Level
27061: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27062: THEN
27063: FND_MSG_PUB.Add_Exc_Msg
27064: ( g_pkg_name,
27065: l_api_name
27066: );
27067: END IF;
27065: l_api_name
27066: );
27067: END IF;
27068:
27069: FND_MSG_PUB.Count_And_Get
27070: ( p_count => x_msg_count,
27071: p_data => x_msg_data
27072: );
27073:
27118: END IF;
27119:
27120: -- Initialize message list if p_init_msg_list is set to TRUE.
27121: IF FND_API.to_Boolean( p_init_msg_list ) THEN
27122: FND_MSG_PUB.initialize;
27123: END IF;
27124:
27125: -- Initialize API return status to success
27126: x_return_status := FND_API.G_RET_STS_SUCCESS;
27201: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
27202: l_msg_index := 1;
27203: l_msg_count := x_msg_count;
27204: WHILE l_msg_count > 0 LOOP
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);
27222: COMMIT WORK;
27223: END IF;
27224:
27225: -- Standard call to get message count and if count is get message info.
27226: FND_MSG_PUB.Count_And_Get
27227: (p_count => x_msg_count ,
27228: p_data => x_msg_data
27229: );
27230:
27233:
27234: WHEN FND_API.G_EXC_ERROR THEN
27235: ROLLBACK TO expire_extended_attrib_values;
27236: x_return_status := FND_API.G_RET_STS_ERROR ;
27237: FND_MSG_PUB.Count_And_Get
27238: ( p_count => x_msg_count,
27239: p_data => x_msg_data
27240: );
27241:
27241:
27242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27243: ROLLBACK TO expire_extended_attrib_values;
27244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
27245: FND_MSG_PUB.Count_And_Get
27246: ( p_count => x_msg_count,
27247: p_data => x_msg_data
27248: );
27249:
27250: WHEN OTHERS THEN
27251: ROLLBACK TO expire_extended_attrib_values;
27252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27253:
27254: IF FND_MSG_PUB.Check_Msg_Level
27255: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27256: THEN
27257: FND_MSG_PUB.Add_Exc_Msg
27258: (g_pkg_name,
27251: ROLLBACK TO expire_extended_attrib_values;
27252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27253:
27254: IF FND_MSG_PUB.Check_Msg_Level
27255: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27256: THEN
27257: FND_MSG_PUB.Add_Exc_Msg
27258: (g_pkg_name,
27259: l_api_name
27253:
27254: IF FND_MSG_PUB.Check_Msg_Level
27255: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27256: THEN
27257: FND_MSG_PUB.Add_Exc_Msg
27258: (g_pkg_name,
27259: l_api_name
27260: );
27261: END IF;
27259: l_api_name
27260: );
27261: END IF;
27262:
27263: FND_MSG_PUB.Count_And_Get
27264: ( p_count => x_msg_count,
27265: p_data => x_msg_data
27266: );
27267:
27368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27369: END IF;
27370: -- Initialize message list if p_init_msg_list is set to TRUE.
27371: IF FND_API.to_Boolean( p_init_msg_list ) THEN
27372: FND_MSG_PUB.initialize;
27373: END IF;
27374: -- Initialize API return status to success
27375: x_return_status := FND_API.G_RET_STS_SUCCESS;
27376: -- Check the profile option debug_level for debug message reporting
27407: /*
27408: IF ((p_source_instance_rec.VLD_ORGANIZATION_ID = FND_API.G_MISS_NUM)
27409: OR (p_source_instance_rec.VLD_ORGANIZATION_ID IS NULL)) THEN
27410: FND_MESSAGE.SET_NAME('CSI','CSI_API_VLD_ORG_ID_NULL');
27411: FND_MSG_PUB.Add;
27412: RAISE FND_API.G_EXC_ERROR;
27413: ELSE
27414: l_new_instance_rec.VLD_ORGANIZATION_ID := p_source_instance_rec.VLD_ORGANIZATION_ID;
27415: END IF;
27433:
27434: IF (p_source_instance_rec.instance_id IS NULL) OR
27435: (p_source_instance_rec.instance_id = FND_API.G_MISS_NUM) THEN
27436: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_ID_NULL');
27437: FND_MSG_PUB.Add;
27438: RAISE FND_API.G_EXC_ERROR;
27439: ELSIF NOT (csi_Item_Instance_Vld_pvt.Val_and_get_inst_rec(
27440: p_source_instance_rec.instance_id ,
27441: l_curr_instance_rec )) THEN
27445: -- Check if the user has not passed incorrect options for contacts
27446: IF ((p_copy_parties = fnd_api.g_false)
27447: AND (p_copy_contacts = fnd_api.g_true)) THEN
27448: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_PTY_CONTACT_OPT');
27449: FND_MSG_PUB.Add;
27450: RAISE FND_API.G_EXC_ERROR;
27451: END IF;
27452: -- If the user has passed p_copy_parties as false get only the owner, else get all the parties
27453: IF (p_copy_parties = fnd_api.g_true) THEN
27472: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
27473: l_msg_index := 1;
27474: l_msg_count := x_msg_count;
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;
27504: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
27505: l_msg_index := 1;
27506: l_msg_count := x_msg_count;
27507: WHILE l_msg_count > 0 LOOP
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);
27617: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
27618: l_msg_index := 1;
27619: l_msg_count := x_msg_count;
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;
28398: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28399: l_msg_index := 1;
28400: l_msg_count := x_msg_count;
28401: WHILE l_msg_count > 0 LOOP
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);
28443: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28444: l_msg_index := 1;
28445: l_msg_count := x_msg_count;
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;
28566: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28567: l_msg_index := 1;
28568: l_msg_count := x_msg_count;
28569: WHILE l_msg_count > 0 LOOP
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);
28619: OR NOT(l_contact_found_flag) ) THEN
28620: FND_MESSAGE.SET_NAME('CSI','CSI_API_CONTACT_IP_ID_NULL');
28621: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',
28622: l_contact_tbl(tab_row_contact).instance_party_id);
28623: FND_MSG_PUB.Add;
28624: RAISE FND_API.G_EXC_ERROR;
28625: END IF;
28626:
28627: -- Build other fiels of the contact table
28651: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28652: l_msg_index := 1;
28653: l_msg_count := x_msg_count;
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;
28706: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28707: l_msg_index := 1;
28708: l_msg_count := x_msg_count;
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;
28741: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28742: l_msg_index := 1;
28743: l_msg_count := x_msg_count;
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;
28788: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28789: l_msg_index := 1;
28790: l_msg_count := x_msg_count;
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;
28827: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28828: l_msg_index := 1;
28829: l_msg_count := x_msg_count;
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;
28894: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28895: l_msg_index := 1;
28896: l_msg_count := x_msg_count;
28897: WHILE l_msg_count > 0 LOOP
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);
28928: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28929: l_msg_index := 1;
28930: l_msg_count := x_msg_count;
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;
28963: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
28964: l_msg_index := 1;
28965: l_msg_count := x_msg_count;
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;
28982: (p_source_instance_rec.VERSION_LABEL = FND_API.G_MISS_CHAR) THEN
28983: l_version_label := FND_PROFILE.VALUE('CSI_DEFAULT_VERSION_LABEL');
28984: IF l_version_label IS NULL THEN
28985: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VERSION_LABEL');
28986: FND_MSG_PUB.ADD;
28987: RAISE FND_API.G_EXC_ERROR;
28988: ELSE
28989: l_new_instance_rec.version_label := l_version_label;
28990: END IF;
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;
29023: END IF;
29024: -- End of Addition by rtalluri for Bug: 2420897 on 08/19/02
29025:
29037: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
29038: --
29039: IF l_internal_party_id IS NULL THEN
29040: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
29041: FND_MSG_PUB.ADD;
29042: RAISE FND_API.G_EXC_ERROR;
29043: END IF;
29044: --
29045: BEGIN
29079: THEN
29080: l_msg_index := 1;
29081: l_msg_count := x_msg_count;
29082: WHILE l_msg_count > 0 LOOP
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);
29123: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
29124: l_msg_index := 1;
29125: l_msg_count := x_msg_count;
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);
29144: IF FND_API.To_Boolean( p_commit ) THEN
29145: COMMIT WORK;
29146: END IF;
29147: -- Standard call to get message count and if count is get message info.
29148: FND_MSG_PUB.Count_And_Get
29149: (p_count => x_msg_count ,
29150: p_data => x_msg_data
29151: );
29152: EXCEPTION
29152: EXCEPTION
29153: WHEN FND_API.G_EXC_ERROR THEN
29154: ROLLBACK TO copy_single_item_instance;
29155: x_return_status := FND_API.G_RET_STS_ERROR ;
29156: FND_MSG_PUB.Count_And_Get
29157: ( p_count => x_msg_count,
29158: p_data => x_msg_data
29159: );
29160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29159: );
29160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29161: ROLLBACK TO copy_single_item_instance;
29162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29163: FND_MSG_PUB.Count_And_Get
29164: ( p_count => x_msg_count,
29165: p_data => x_msg_data
29166: );
29167:
29167:
29168: WHEN OTHERS THEN
29169: ROLLBACK TO copy_single_item_instance;
29170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29171: IF FND_MSG_PUB.Check_Msg_Level
29172: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29173: THEN
29174: FND_MSG_PUB.Add_Exc_Msg
29175: ( G_PKG_NAME ,
29168: WHEN OTHERS THEN
29169: ROLLBACK TO copy_single_item_instance;
29170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29171: IF FND_MSG_PUB.Check_Msg_Level
29172: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29173: THEN
29174: FND_MSG_PUB.Add_Exc_Msg
29175: ( G_PKG_NAME ,
29176: l_api_name
29170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29171: IF FND_MSG_PUB.Check_Msg_Level
29172: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29173: THEN
29174: FND_MSG_PUB.Add_Exc_Msg
29175: ( G_PKG_NAME ,
29176: l_api_name
29177: );
29178: END IF;
29175: ( G_PKG_NAME ,
29176: l_api_name
29177: );
29178: END IF;
29179: FND_MSG_PUB.Count_And_Get
29180: ( p_count => x_msg_count,
29181: p_data => x_msg_data
29182: );
29183: END copy_single_item_instance;
29281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29282: END IF;
29283: -- Initialize message list if p_init_msg_list is set to TRUE.
29284: IF FND_API.to_Boolean( p_init_msg_list ) THEN
29285: FND_MSG_PUB.initialize;
29286: END IF;
29287: -- Initialize API return status to success
29288: x_return_status := FND_API.G_RET_STS_SUCCESS;
29289: -- Check the profile option debug_level for debug message reporting
29322: OR (p_source_instance_rec.QUANTITY = FND_API.G_MISS_NUM )
29323: OR (p_source_instance_rec.QUANTITY <> 1)) THEN
29324: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
29325: FND_MESSAGE.SET_TOKEN('QUANTITY',p_source_instance_rec.QUANTITY);
29326: FND_MSG_PUB.Add;
29327: RAISE FND_API.G_EXC_ERROR;
29328: END IF;
29329: -- Verify the Passed Inventory Item is Trackable
29330: -- Get the Master Organization ID
29351: IF p_create_instance = FND_API.G_TRUE THEN
29352: IF (p_source_instance_rec.instance_id IS NULL) OR
29353: (p_source_instance_rec.instance_id = FND_API.G_MISS_NUM) THEN
29354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_ID_NULL');
29355: FND_MSG_PUB.Add;
29356: RAISE FND_API.G_EXC_ERROR;
29357: END IF;
29358: --
29359: -- Verify if configruation has been exploded before
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;
29403: END IF; -- error
29404: --
29405: l_init_sort_code := Bom_Common_Definitions.get_initial_sort_code;
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,
29662: p_msg_index_out => x_msg_index_out );
29663: csi_gen_utility_pvt.put_line('message 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,
29710: p_msg_index_out => x_msg_index_out );
29711: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
29728: IF FND_API.To_Boolean( p_commit ) THEN
29729: COMMIT WORK;
29730: END IF;
29731: -- Standard call to get message count and if count is get message info.
29732: FND_MSG_PUB.Count_And_Get
29733: ( p_count => x_msg_count ,
29734: p_data => x_msg_data
29735: );
29736: EXCEPTION
29736: EXCEPTION
29737: WHEN FND_API.G_EXC_ERROR THEN
29738: ROLLBACK TO explode_bom;
29739: x_return_status := FND_API.G_RET_STS_ERROR ;
29740: FND_MSG_PUB.Count_And_Get
29741: ( p_count => x_msg_count,
29742: p_data => x_msg_data
29743: );
29744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29743: );
29744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29745: ROLLBACK TO explode_bom;
29746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29747: FND_MSG_PUB.Count_And_Get
29748: ( p_count => x_msg_count,
29749: p_data => x_msg_data
29750: );
29751: WHEN OTHERS THEN
29750: );
29751: WHEN OTHERS THEN
29752: ROLLBACK TO explode_bom;
29753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29754: IF FND_MSG_PUB.Check_Msg_Level
29755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29756: THEN
29757: FND_MSG_PUB.Add_Exc_Msg
29758: ( G_PKG_NAME ,
29751: WHEN OTHERS THEN
29752: ROLLBACK TO explode_bom;
29753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29754: IF FND_MSG_PUB.Check_Msg_Level
29755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29756: THEN
29757: FND_MSG_PUB.Add_Exc_Msg
29758: ( G_PKG_NAME ,
29759: l_api_name
29753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
29754: IF FND_MSG_PUB.Check_Msg_Level
29755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29756: THEN
29757: FND_MSG_PUB.Add_Exc_Msg
29758: ( G_PKG_NAME ,
29759: l_api_name
29760: );
29761: END IF;
29758: ( G_PKG_NAME ,
29759: l_api_name
29760: );
29761: END IF;
29762: FND_MSG_PUB.Count_And_Get
29763: ( p_count => x_msg_count,
29764: p_data => x_msg_data
29765: );
29766: END Explode_Bom;
29824: END IF;
29825:
29826: -- Initialize message list if p_init_msg_list is set to TRUE.
29827: IF FND_API.to_Boolean( p_init_msg_list ) THEN
29828: FND_MSG_PUB.initialize;
29829: END IF;
29830:
29831: -- Initialize API return status to success
29832: x_return_status := FND_API.G_RET_STS_SUCCESS;
31649: -- End disable trace
31650: ****/
31651:
31652: -- Standard call to get message count and if count is get message info.
31653: FND_MSG_PUB.Count_And_Get
31654: (p_count => x_msg_count ,
31655: p_data => x_msg_data );
31656: EXCEPTION
31657: WHEN OTHERS THEN
31661: THEN
31662: ROLLBACK TO get_instance_hist;
31663: END IF;
31664: */
31665: IF FND_MSG_PUB.Check_Msg_Level
31666: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
31667: THEN
31668: FND_MSG_PUB.Add_Exc_Msg
31669: ( G_PKG_NAME, l_api_name );
31662: ROLLBACK TO get_instance_hist;
31663: END IF;
31664: */
31665: IF FND_MSG_PUB.Check_Msg_Level
31666: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
31667: THEN
31668: FND_MSG_PUB.Add_Exc_Msg
31669: ( G_PKG_NAME, l_api_name );
31670: END IF;
31664: */
31665: IF FND_MSG_PUB.Check_Msg_Level
31666: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
31667: THEN
31668: FND_MSG_PUB.Add_Exc_Msg
31669: ( G_PKG_NAME, l_api_name );
31670: END IF;
31671: FND_MSG_PUB.Count_And_Get
31672: ( p_count => x_msg_count,
31667: THEN
31668: FND_MSG_PUB.Add_Exc_Msg
31669: ( G_PKG_NAME, l_api_name );
31670: END IF;
31671: FND_MSG_PUB.Count_And_Get
31672: ( p_count => x_msg_count,
31673: p_data => x_msg_data);
31674:
31675:
31770: END IF;
31771:
31772: -- Initialize message list if p_init_msg_list is set to TRUE.
31773: IF FND_API.to_Boolean( p_init_msg_list ) THEN
31774: FND_MSG_PUB.initialize;
31775: END IF;
31776:
31777: -- Initialize API return status to success
31778: x_return_status := FND_API.G_RET_STS_SUCCESS;
32032: -- End disable trace
32033: ****/
32034:
32035: -- Standard call to get message count and if count is get message info.
32036: FND_MSG_PUB.Count_And_Get
32037: (p_count => x_msg_count ,
32038: p_data => x_msg_data );
32039: EXCEPTION
32040: WHEN OTHERS THEN
32044: THEN
32045: ROLLBACK TO get_ext_attrib_val_hist;
32046: END IF;
32047: */
32048: IF FND_MSG_PUB.Check_Msg_Level
32049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
32050: THEN
32051: FND_MSG_PUB.Add_Exc_Msg
32052: ( G_PKG_NAME, l_api_name );
32045: ROLLBACK TO get_ext_attrib_val_hist;
32046: END IF;
32047: */
32048: IF FND_MSG_PUB.Check_Msg_Level
32049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
32050: THEN
32051: FND_MSG_PUB.Add_Exc_Msg
32052: ( G_PKG_NAME, l_api_name );
32053: END IF;
32047: */
32048: IF FND_MSG_PUB.Check_Msg_Level
32049: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
32050: THEN
32051: FND_MSG_PUB.Add_Exc_Msg
32052: ( G_PKG_NAME, l_api_name );
32053: END IF;
32054: FND_MSG_PUB.Count_And_Get
32055: ( p_count => x_msg_count,
32050: THEN
32051: FND_MSG_PUB.Add_Exc_Msg
32052: ( G_PKG_NAME, l_api_name );
32053: END IF;
32054: FND_MSG_PUB.Count_And_Get
32055: ( p_count => x_msg_count,
32056: p_data => x_msg_data);
32057:
32058:
32186: END IF;
32187:
32188: -- Initialize message list if p_init_msg_list is set to TRUE.
32189: IF FND_API.to_Boolean( p_init_msg_list ) THEN
32190: FND_MSG_PUB.initialize;
32191: END IF;
32192:
32193: -- Initialize API return status to success
32194: x_return_status := FND_API.G_RET_STS_SUCCESS;
32250:
32251: IF (p_source_instance_rec.instance_id IS NULL) OR
32252: (p_source_instance_rec.instance_id = FND_API.G_MISS_NUM) THEN
32253: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_ID_NULL');
32254: FND_MSG_PUB.Add;
32255: RAISE FND_API.G_EXC_ERROR;
32256: ELSIF NOT (csi_Item_Instance_Vld_pvt.Val_and_get_inst_rec(
32257: p_source_instance_rec.instance_id ,
32258: l_curr_instance_rec )) THEN
32263: -- Check if the user has not passed incorrect options for contacts
32264: IF ((p_copy_parties = fnd_api.g_false)
32265: AND (p_copy_contacts = fnd_api.g_true)) THEN
32266: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_PTY_CONTACT_OPT');
32267: FND_MSG_PUB.Add;
32268: RAISE FND_API.G_EXC_ERROR;
32269: END IF;
32270:
32271:
32295: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
32296: l_msg_index := 1;
32297: l_msg_count := x_msg_count;
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;
32329: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
32330: l_msg_index := 1;
32331: l_msg_count := x_msg_count;
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;
32440: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
32441: l_msg_index := 1;
32442: l_msg_count := x_msg_count;
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;
33152: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33153: l_msg_index := 1;
33154: l_msg_count := x_msg_count;
33155: WHILE l_msg_count > 0 LOOP
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);
33203: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33204: l_msg_index := 1;
33205: l_msg_count := x_msg_count;
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;
33335: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33336: l_msg_index := 1;
33337: l_msg_count := x_msg_count;
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;
33383: OR NOT(l_contact_found_flag) ) THEN
33384: FND_MESSAGE.SET_NAME('CSI','CSI_API_CONTACT_IP_ID_NULL');
33385: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',
33386: l_contact_tbl(tab_row_contact).instance_party_id);
33387: FND_MSG_PUB.Add;
33388: RAISE FND_API.G_EXC_ERROR;
33389: END IF;
33390: -- Build other fiels of the contact table
33391: l_contact_tbl(tab_row_contact).instance_party_id := FND_API.G_MISS_NUM;
33414: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33415: l_msg_index := 1;
33416: l_msg_count := x_msg_count;
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;
33468: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33469: l_msg_index := 1;
33470: l_msg_count := x_msg_count;
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;
33503: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33504: l_msg_index := 1;
33505: l_msg_count := x_msg_count;
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;
33547: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33548: l_msg_index := 1;
33549: l_msg_count := x_msg_count;
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;
33583: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33584: l_msg_index := 1;
33585: l_msg_count := x_msg_count;
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;
33647: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33648: l_msg_index := 1;
33649: l_msg_count := x_msg_count;
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;
33680: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33681: l_msg_index := 1;
33682: l_msg_count := x_msg_count;
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;
33718: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33719: l_msg_index := 1;
33720: l_msg_count := x_msg_count;
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;
33738: (p_source_instance_rec.VERSION_LABEL = FND_API.G_MISS_CHAR) THEN
33739: l_version_label := FND_PROFILE.VALUE('CSI_DEFAULT_VERSION_LABEL');
33740: IF l_version_label IS NULL THEN
33741: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VERSION_LABEL');
33742: FND_MSG_PUB.ADD;
33743: RAISE FND_API.G_EXC_ERROR;
33744: ELSE
33745: l_new_instance_rec.version_label := l_version_label;
33746: END IF;
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;
33779: END IF;
33780: -- End of Addition by rtalluri for Bug: 2420897 on 08/19/02
33781:
33793: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
33794: --
33795: IF l_internal_party_id IS NULL THEN
33796: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
33797: FND_MSG_PUB.ADD;
33798: RAISE FND_API.G_EXC_ERROR;
33799: END IF;
33800:
33801: BEGIN
33834: THEN
33835: l_msg_index := 1;
33836: l_msg_count := x_msg_count;
33837: WHILE l_msg_count > 0 LOOP
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);
33878: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33879: l_msg_index := 1;
33880: l_msg_count := x_msg_count;
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);
33917: );
33918: --
33919: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33920: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
33921: FND_MSG_PUB.Add;
33922: RAISE FND_API.G_EXC_ERROR;
33923: END IF;
33924: END IF;
33925: --
33968: ,x_msg_data => x_msg_data
33969: );
33970: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
33971: FOR i in 1..x_msg_Count LOOP
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);
34027: );
34028:
34029: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
34030: FOR i in 1..x_msg_Count LOOP
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);
34085: l_msg_index := 1;
34086: l_msg_count := x_msg_count;
34087:
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);
34126: l_msg_index := 1;
34127: l_msg_count := x_msg_count;
34128:
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);
34151: END IF;
34152:
34153:
34154: -- Standard call to get message count and if count is get message info.
34155: FND_MSG_PUB.Count_And_Get
34156: (p_count => x_msg_count ,
34157: p_data => x_msg_data
34158: );
34159: EXCEPTION
34160:
34161: WHEN FND_API.G_EXC_ERROR THEN
34162: ROLLBACK TO copy_item_instance;
34163: x_return_status := FND_API.G_RET_STS_ERROR ;
34164: FND_MSG_PUB.Count_And_Get
34165: ( p_count => x_msg_count,
34166: p_data => x_msg_data
34167: );
34168:
34168:
34169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34170: ROLLBACK TO copy_item_instance;
34171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34172: FND_MSG_PUB.Count_And_Get
34173: ( p_count => x_msg_count,
34174: p_data => x_msg_data
34175: );
34176:
34176:
34177: WHEN OTHERS THEN
34178: ROLLBACK TO copy_item_instance;
34179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34180: IF FND_MSG_PUB.Check_Msg_Level
34181: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34182: THEN
34183: FND_MSG_PUB.Add_Exc_Msg
34184: ( G_PKG_NAME ,
34177: WHEN OTHERS THEN
34178: ROLLBACK TO copy_item_instance;
34179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34180: IF FND_MSG_PUB.Check_Msg_Level
34181: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34182: THEN
34183: FND_MSG_PUB.Add_Exc_Msg
34184: ( G_PKG_NAME ,
34185: l_api_name
34179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34180: IF FND_MSG_PUB.Check_Msg_Level
34181: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34182: THEN
34183: FND_MSG_PUB.Add_Exc_Msg
34184: ( G_PKG_NAME ,
34185: l_api_name
34186: );
34187: END IF;
34185: l_api_name
34186: );
34187: END IF;
34188:
34189: FND_MSG_PUB.Count_And_Get
34190: ( p_count => x_msg_count,
34191: p_data => x_msg_data
34192: );
34193:
34292: END IF;
34293:
34294: -- Initialize message list if p_init_msg_list is set to TRUE.
34295: IF FND_API.to_Boolean( p_init_msg_list ) THEN
34296: FND_MSG_PUB.initialize;
34297: END IF;
34298:
34299: -- Initialize API return status to success
34300: x_return_status := FND_API.G_RET_STS_SUCCESS;
34402: -- End disable trace
34403: ****/
34404:
34405: -- Standard call to get message count and if count is get message info.
34406: FND_MSG_PUB.Count_And_Get
34407: (p_count => x_msg_count ,
34408: p_data => x_msg_data );
34409: EXCEPTION
34410: WHEN FND_API.G_EXC_ERROR THEN
34409: EXCEPTION
34410: WHEN FND_API.G_EXC_ERROR THEN
34411: -- ROLLBACK TO get_version_label_history;
34412: x_return_status := FND_API.G_RET_STS_ERROR ;
34413: FND_MSG_PUB.Count_And_Get
34414: ( p_count => x_msg_count,
34415: p_data => x_msg_data );
34416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34417: -- ROLLBACK TO get_version_label_history;
34415: p_data => x_msg_data );
34416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34417: -- ROLLBACK TO get_version_label_history;
34418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34419: FND_MSG_PUB.Count_And_Get
34420: ( p_count => x_msg_count,
34421: p_data => x_msg_data );
34422: WHEN OTHERS THEN
34423: -- ROLLBACK TO get_version_label_history;
34421: p_data => x_msg_data );
34422: WHEN OTHERS THEN
34423: -- ROLLBACK TO get_version_label_history;
34424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34426: FND_MSG_PUB.Add_Exc_Msg
34427: ( g_pkg_name ,
34428: l_api_name );
34429: END IF;
34422: WHEN OTHERS THEN
34423: -- ROLLBACK TO get_version_label_history;
34424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34425: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34426: FND_MSG_PUB.Add_Exc_Msg
34427: ( g_pkg_name ,
34428: l_api_name );
34429: END IF;
34430: FND_MSG_PUB.Count_And_Get
34426: FND_MSG_PUB.Add_Exc_Msg
34427: ( g_pkg_name ,
34428: l_api_name );
34429: END IF;
34430: FND_MSG_PUB.Count_And_Get
34431: ( p_count => x_msg_count,
34432: p_data => x_msg_data );
34433:
34434: END get_version_label_history;
34475: END IF;
34476:
34477: -- Initialize message list if p_init_msg_list is set to TRUE.
34478: IF FND_API.to_Boolean( p_init_msg_list ) THEN
34479: FND_MSG_PUB.initialize;
34480: END IF;
34481:
34482: -- Initialize API return status to success
34483: x_return_status := FND_API.G_RET_STS_SUCCESS;
34511: IF (p_instance_id IS NULL)
34512: THEN
34513: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INSTANCE_ID');
34514: FND_MESSAGE.Set_Token('INSTANCE_ID', p_instance_id);
34515: FND_MSG_PUB.ADD;
34516: RAISE FND_API.G_EXC_ERROR;
34517: END IF;
34518:
34519: l_instance_header_tbl(1).instance_id := p_instance_id;
34573: -- End disable trace
34574: ****/
34575:
34576: -- Standard call to get message count and if count is get message info.
34577: FND_MSG_PUB.Count_And_Get
34578: (p_count => x_msg_count ,
34579: p_data => x_msg_data
34580: );
34581:
34583:
34584: WHEN FND_API.G_EXC_ERROR THEN
34585: -- ROLLBACK TO get_instance_link_locations;
34586: x_return_status := FND_API.G_RET_STS_ERROR ;
34587: FND_MSG_PUB.Count_And_Get
34588: ( p_count => x_msg_count,
34589: p_data => x_msg_data );
34590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34591: -- ROLLBACK TO get_instance_link_locations;
34589: p_data => x_msg_data );
34590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34591: -- ROLLBACK TO get_instance_link_locations;
34592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34593: FND_MSG_PUB.Count_And_Get
34594: ( p_count => x_msg_count,
34595: p_data => x_msg_data );
34596: WHEN OTHERS THEN
34597: -- ROLLBACK TO get_instance_link_locations;
34595: p_data => x_msg_data );
34596: WHEN OTHERS THEN
34597: -- ROLLBACK TO get_instance_link_locations;
34598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34599: IF FND_MSG_PUB.Check_Msg_Level
34600: ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34601: THEN
34602: FND_MSG_PUB.Add_Exc_Msg
34603: ( G_PKG_NAME, l_api_name );
34596: WHEN OTHERS THEN
34597: -- ROLLBACK TO get_instance_link_locations;
34598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34599: IF FND_MSG_PUB.Check_Msg_Level
34600: ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34601: THEN
34602: FND_MSG_PUB.Add_Exc_Msg
34603: ( G_PKG_NAME, l_api_name );
34604: END IF;
34598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34599: IF FND_MSG_PUB.Check_Msg_Level
34600: ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34601: THEN
34602: FND_MSG_PUB.Add_Exc_Msg
34603: ( G_PKG_NAME, l_api_name );
34604: END IF;
34605: FND_MSG_PUB.Count_And_Get
34606: ( p_count => x_msg_count,
34601: THEN
34602: FND_MSG_PUB.Add_Exc_Msg
34603: ( G_PKG_NAME, l_api_name );
34604: END IF;
34605: FND_MSG_PUB.Count_And_Get
34606: ( p_count => x_msg_count,
34607: p_data => x_msg_data );
34608:
34609: END get_instance_link_locations;
34660: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
34661: l_msg_index := 1;
34662: l_msg_count := x_msg_count;
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);
34677: NULL;
34678: WHEN FND_API.G_EXC_ERROR THEN
34679: ROLLBACK TO Update_version_time;
34680: x_return_status := FND_API.G_RET_STS_ERROR ;
34681: FND_MSG_PUB.Count_And_Get
34682: ( p_count => x_msg_count,
34683: p_data => x_msg_data );
34684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34685: ROLLBACK TO Update_version_time;
34683: p_data => x_msg_data );
34684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34685: ROLLBACK TO Update_version_time;
34686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
34687: FND_MSG_PUB.Count_And_Get
34688: ( p_count => x_msg_count,
34689: p_data => x_msg_data );
34690: END Update_version_time;
34691:
34835: END IF;
34836:
34837: -- Initialize message list if p_init_msg_list is set to TRUE.
34838: IF FND_API.to_Boolean( p_init_msg_list ) THEN
34839: FND_MSG_PUB.initialize;
34840: END IF;
34841:
34842: -- Initialize API return status to success
34843: x_return_status := FND_API.G_RET_STS_SUCCESS;
34917: IF l_dup_count > 1
34918: THEN
34919: FND_MESSAGE.SET_NAME('CSI','CSI_DUPLICATE_INS_KEY');
34920: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',px_config_tbl(i).instance_id);
34921: FND_MSG_PUB.Add;
34922: RAISE FND_API.G_EXC_ERROR;
34923: END IF;
34924: END IF;
34925:
34953: FND_MESSAGE.SET_NAME('CSI','CSI_DUPLICATE_KEYS_LOCKED');
34954: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',px_config_tbl(i).config_inst_hdr_id);
34955: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',px_config_tbl(i).config_inst_item_id);
34956: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',px_config_tbl(i).config_inst_rev_num);
34957: FND_MSG_PUB.Add;
34958: RAISE FND_API.G_EXC_ERROR;
34959: END IF;
34960: END IF;
34961:
34966: IF csi_item_instance_pvt.check_item_instance_lock (p_instance_id => px_config_tbl(i).instance_id)
34967: THEN
34968: FND_MESSAGE.SET_NAME('CSI','CSI_INS_ALREADY_LOCKED');
34969: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',px_config_tbl(i).instance_id);
34970: FND_MSG_PUB.Add;
34971: RAISE FND_API.G_EXC_ERROR;
34972: ELSE
34973: l_found:='N';
34974: IF l_lock_tbl.COUNT > 0
35013:
35014:
35015: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
35016: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
35017: FND_MSG_PUB.Add;
35018: RAISE FND_API.G_EXC_ERROR;
35019: END IF;
35020: l_lock_count:=l_lock_tbl.COUNT+1;
35021: l_lock_tbl(l_lock_count).instance_id:=l_root_node;
35046: IF csi_item_instance_pvt.check_item_instance_lock (p_instance_id => l_rel_tbl(l_chld_csr).subject_id)
35047: THEN
35048: FND_MESSAGE.SET_NAME('CSI','CSI_INS_ALREADY_LOCKED');
35049: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_lock_tbl(l_lock_count).instance_id);
35050: FND_MSG_PUB.Add;
35051: RAISE FND_API.G_EXC_ERROR;
35052: END IF;
35053: l_lock_tbl(l_lock_count).root_instance_id:=l_root_node;
35054: l_lock_tbl(l_lock_count).root_config_inst_hdr_id := l_root_hdr_id;
35073: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_KEYS_LOCKED');
35074: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',px_config_tbl(i).config_inst_hdr_id);
35075: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',px_config_tbl(i).config_inst_item_id);
35076: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',px_config_tbl(i).config_inst_rev_num);
35077: FND_MSG_PUB.Add;
35078: RAISE FND_API.G_EXC_ERROR;
35079: ELSE
35080: l_lock_count:=l_lock_tbl.COUNT+1;
35081: l_lock_tbl(l_lock_count).config_inst_hdr_id :=px_config_tbl(i).config_inst_hdr_id;
35109: END IF;
35110: END IF;
35111: ELSE
35112: FND_MESSAGE.SET_NAME('CSI','CSI_PASSED_INVALID_KEYS');
35113: FND_MSG_PUB.Add;
35114: RAISE FND_API.G_EXC_ERROR;
35115: END IF;
35116:
35117: END IF;
35311:
35312: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
35313: FND_MESSAGE.SET_NAME('CSI','CSI_FAILED_TO_VALIDATE_TXN');
35314: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_txn_rec.transaction_id );
35315: FND_MSG_PUB.Add;
35316: RAISE FND_API.G_EXC_ERROR;
35317: END IF;
35318: */
35319: END IF;
35322: COMMIT WORK;
35323: END IF;
35324:
35325: -- Standard call to get message count and if count is get message info.
35326: FND_MSG_PUB.Count_And_Get
35327: (p_count => x_msg_count ,
35328: p_data => x_msg_data );
35329:
35330: EXCEPTION
35330: EXCEPTION
35331: WHEN FND_API.G_EXC_ERROR THEN
35332: ROLLBACK TO csi_lock_item_instance;
35333: x_return_status := FND_API.G_RET_STS_ERROR ;
35334: FND_MSG_PUB.Count_And_Get
35335: ( p_count => x_msg_count,
35336: p_data => x_msg_data );
35337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35338: ROLLBACK TO csi_lock_item_instance;
35336: p_data => x_msg_data );
35337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35338: ROLLBACK TO csi_lock_item_instance;
35339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
35340: FND_MSG_PUB.Count_And_Get
35341: ( p_count => x_msg_count,
35342: p_data => x_msg_data );
35343: WHEN OTHERS THEN
35344: ROLLBACK TO csi_lock_item_instance;
35342: p_data => x_msg_data );
35343: WHEN OTHERS THEN
35344: ROLLBACK TO csi_lock_item_instance;
35345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
35346: IF FND_MSG_PUB.Check_Msg_Level
35347: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
35348: THEN
35349: FND_MSG_PUB.Add_Exc_Msg
35350: ( g_pkg_name, l_api_name );
35343: WHEN OTHERS THEN
35344: ROLLBACK TO csi_lock_item_instance;
35345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
35346: IF FND_MSG_PUB.Check_Msg_Level
35347: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
35348: THEN
35349: FND_MSG_PUB.Add_Exc_Msg
35350: ( g_pkg_name, l_api_name );
35351: END IF;
35345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
35346: IF FND_MSG_PUB.Check_Msg_Level
35347: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
35348: THEN
35349: FND_MSG_PUB.Add_Exc_Msg
35350: ( g_pkg_name, l_api_name );
35351: END IF;
35352: FND_MSG_PUB.Count_And_Get
35353: ( p_count => x_msg_count,
35348: THEN
35349: FND_MSG_PUB.Add_Exc_Msg
35350: ( g_pkg_name, l_api_name );
35351: END IF;
35352: FND_MSG_PUB.Count_And_Get
35353: ( p_count => x_msg_count,
35354: p_data => x_msg_data );
35355: END lock_item_instances;
35356:
35610: END IF;
35611:
35612: -- Initialize message list if p_init_msg_list is set to TRUE.
35613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
35614: FND_MSG_PUB.initialize;
35615: END IF;
35616:
35617: -- Initialize API return status to success
35618: x_return_status := FND_API.G_RET_STS_SUCCESS;
35748: FND_MESSAGE.SET_NAME('CSI','CSI_CANT_UNLOCK_TREE');
35749: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',l_bld_unlock_tbl(l_bld).config_inst_hdr_id);
35750: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',l_bld_unlock_tbl(l_bld).config_inst_item_id);
35751: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',l_bld_unlock_tbl(l_bld).config_inst_rev_num);
35752: FND_MSG_PUB.Add;
35753: RAISE FND_API.G_EXC_ERROR;
35754: ELSIF (p_config_tbl(i).lock_status IS NULL OR
35755: p_config_tbl(i).lock_status NOT IN (0,1)) OR
35756: p_config_tbl(i).lock_status > l_bld_unlock_tbl(l_bld).lock_status
35760: FND_MESSAGE.SET_TOKEN('LOCK_STATUS',p_config_tbl(i).lock_status);
35761: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',l_bld_unlock_tbl(l_bld).config_inst_hdr_id);
35762: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',l_bld_unlock_tbl(l_bld).config_inst_item_id);
35763: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',l_bld_unlock_tbl(l_bld).config_inst_rev_num);
35764: FND_MSG_PUB.Add;
35765: RAISE FND_API.G_EXC_ERROR;
35766: END IF;
35767: END IF;
35768: END LOOP;
35859: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INS_STATUS');
35860: FND_MESSAGE.SET_TOKEN('ORIGINAL_STATUS',l_valid_lock_status);
35861: FND_MESSAGE.SET_TOKEN('LOCK_STATUS',p_config_tbl(i).lock_status);
35862: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_config_tbl(i).instance_id);
35863: FND_MSG_PUB.Add;
35864: RAISE FND_API.G_EXC_ERROR;
35865: END IF;
35866: ELSE
35867: IF l_valid_lock_status=3
35933: FND_MESSAGE.SET_TOKEN('LOCK_STATUS',p_config_tbl(i).lock_status);
35934: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',p_config_tbl(i).config_inst_hdr_id);
35935: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',p_config_tbl(i).config_inst_item_id);
35936: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',p_config_tbl(i).config_inst_rev_num);
35937: FND_MSG_PUB.Add;
35938: RAISE FND_API.G_EXC_ERROR;
35939: END IF;
35940: ELSE
35941: IF l_valid_lock_status=3
35960:
35961: IF l_warning = 'Y'
35962: THEN
35963: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_LOCKS');
35964: FND_MSG_PUB.Add;
35965: ELSIF l_warning = 'E'
35966: THEN
35967: FND_MESSAGE.SET_NAME('CSI','CSI_LOCKID_NOT_PASSED');
35968: FND_MSG_PUB.Add;
35964: FND_MSG_PUB.Add;
35965: ELSIF l_warning = 'E'
35966: THEN
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
36002: IF l_instance_ctr >1 -- this includes root
36003: THEN
36004: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_INST_STATUS');
36005: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_unlock_ins_tbl(i).instance_id);
36006: FND_MSG_PUB.Add;
36007: RAISE FND_API.G_EXC_ERROR;
36008: END IF;
36009: END IF;
36010: END IF;
36035: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CONF_STATUS');
36036: FND_MESSAGE.SET_TOKEN('CONFIG_INST_HDR_ID',l_unlock_root(i).config_inst_hdr_id);
36037: FND_MESSAGE.SET_TOKEN('CONFIG_INST_ITEM_ID',l_unlock_root(i).config_inst_item_id);
36038: FND_MESSAGE.SET_TOKEN('CONFIG_INST_REV_NUM',l_unlock_root(i).config_inst_rev_num);
36039: FND_MSG_PUB.Add;
36040: RAISE FND_API.G_EXC_ERROR;
36041: END IF;
36042: END IF;
36043: END IF;
36051: COMMIT WORK;
36052: END IF;
36053:
36054: -- Standard call to get message count and if count is get message info.
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.');
36061: EXCEPTION
36062: WHEN FND_API.G_EXC_ERROR THEN
36063: ROLLBACK TO csi_unlock_item_instance;
36064: x_return_status := FND_API.G_RET_STS_ERROR ;
36065: FND_MSG_PUB.Count_And_Get
36066: ( p_count => x_msg_count,
36067: p_data => x_msg_data );
36068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36069: ROLLBACK TO csi_unlock_item_instance;
36067: p_data => x_msg_data );
36068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36069: ROLLBACK TO csi_unlock_item_instance;
36070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
36071: FND_MSG_PUB.Count_And_Get
36072: ( p_count => x_msg_count,
36073: p_data => x_msg_data );
36074: WHEN OTHERS THEN
36075: ROLLBACK TO csi_unlock_item_instance;
36073: p_data => x_msg_data );
36074: WHEN OTHERS THEN
36075: ROLLBACK TO csi_unlock_item_instance;
36076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
36077: IF FND_MSG_PUB.Check_Msg_Level
36078: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
36079: THEN
36080: FND_MSG_PUB.Add_Exc_Msg
36081: ( g_pkg_name, l_api_name );
36074: WHEN OTHERS THEN
36075: ROLLBACK TO csi_unlock_item_instance;
36076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
36077: IF FND_MSG_PUB.Check_Msg_Level
36078: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
36079: THEN
36080: FND_MSG_PUB.Add_Exc_Msg
36081: ( g_pkg_name, l_api_name );
36082: END IF;
36076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
36077: IF FND_MSG_PUB.Check_Msg_Level
36078: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
36079: THEN
36080: FND_MSG_PUB.Add_Exc_Msg
36081: ( g_pkg_name, l_api_name );
36082: END IF;
36083: FND_MSG_PUB.Count_And_Get
36084: ( p_count => x_msg_count,
36079: THEN
36080: FND_MSG_PUB.Add_Exc_Msg
36081: ( g_pkg_name, l_api_name );
36082: END IF;
36083: FND_MSG_PUB.Count_And_Get
36084: ( p_count => x_msg_count,
36085: p_data => x_msg_data );
36086: END unlock_item_instances;
36087: