126: END IF;
127:
128: -- Initialize message list if p_init_msg_list is set to TRUE.
129: IF FND_API.to_Boolean( p_init_msg_list ) THEN
130: FND_MSG_PUB.initialize;
131: END IF;
132:
133: -- Initialize API return status to success
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
224: WHERE inventory_item_id = p_target_activity_id
225: AND organization_id = p_target_org_id;
226: EXCEPTION
227: WHEN OTHERS THEN
228: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
229: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_PROPERTIES');
230: FND_MSG_PUB.ADD;
231: END IF;
232: RAISE FND_API.G_EXC_ERROR;
226: EXCEPTION
227: WHEN OTHERS THEN
228: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
229: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_PROPERTIES');
230: FND_MSG_PUB.ADD;
231: END IF;
232: RAISE FND_API.G_EXC_ERROR;
233: END;
234:
475: -- Handle errors
476: IF l_x_assoc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
477: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_AN_ASSOC_FAILED');
478: -- FND_MESSAGE.SET_ENCODED('Failed to create Asset Number Associations.');
479: EAM_ActivityUtilities_PVT.Add_Message(FND_MSG_PUB.G_MSG_LVL_ERROR);
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
483: -- Bug # 4089189 : Need to default WAC and dept from WO to the Activity Association with the Asset in WO.
527: IF FND_API.To_Boolean( p_commit ) THEN
528: COMMIT WORK;
529: END IF;
530: -- Standard call to get message count and if count is 1, get message info.
531: FND_MSG_PUB.Count_And_Get
532: ( p_count => x_msg_count ,
533: p_data => x_msg_data
534: );
535: x_msg_data := substr(x_msg_data,1,4000);
536: EXCEPTION
537: WHEN FND_API.G_EXC_ERROR THEN
538: ROLLBACK TO Create_Association_PVT;
539: x_return_status := FND_API.G_RET_STS_ERROR ;
540: FND_MSG_PUB.Count_And_Get
541: ( p_count => x_msg_count ,
542: p_data => x_msg_data
543: );
544: x_msg_data := substr(x_msg_data,1,4000);
544: x_msg_data := substr(x_msg_data,1,4000);
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO Create_Association_PVT;
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
548: FND_MSG_PUB.Count_And_Get
549: ( p_count => x_msg_count ,
550: p_data => x_msg_data
551: );
552: x_msg_data := substr(x_msg_data,1,4000);
552: x_msg_data := substr(x_msg_data,1,4000);
553: WHEN OTHERS THEN
554: ROLLBACK TO Create_Association_PVT;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
556: IF FND_MSG_PUB.Check_Msg_Level
557: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
558: THEN
559: FND_MSG_PUB.Add_Exc_Msg
560: ( G_PKG_NAME ,
553: WHEN OTHERS THEN
554: ROLLBACK TO Create_Association_PVT;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
556: IF FND_MSG_PUB.Check_Msg_Level
557: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
558: THEN
559: FND_MSG_PUB.Add_Exc_Msg
560: ( G_PKG_NAME ,
561: l_api_name
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
556: IF FND_MSG_PUB.Check_Msg_Level
557: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
558: THEN
559: FND_MSG_PUB.Add_Exc_Msg
560: ( G_PKG_NAME ,
561: l_api_name
562: );
563: END IF;
560: ( G_PKG_NAME ,
561: l_api_name
562: );
563: END IF;
564: FND_MSG_PUB.Count_And_Get
565: ( p_count => x_msg_count ,
566: p_data => x_msg_data
567: );
568: x_msg_data := substr(x_msg_data,1,4000);
625: END IF;
626:
627: -- Initialize message list if p_init_msg_list is set to TRUE.
628: IF FND_API.to_Boolean( p_init_msg_list ) THEN
629: FND_MSG_PUB.initialize;
630: END IF;
631: -- Initialize API return status to success
632:
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
1399: IF FND_API.To_Boolean( p_commit ) THEN
1400: COMMIT WORK;
1401: END IF;
1402: -- Standard call to get message count and if count is 1, get message info.
1403: FND_MSG_PUB.Count_And_Get
1404: ( p_count => x_msg_count ,
1405: p_data => x_msg_data
1406: );
1407: x_msg_data := substr(x_msg_data,1,4000);
1408: EXCEPTION
1409: WHEN FND_API.G_EXC_ERROR THEN
1410: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: FND_MSG_PUB.Count_And_Get
1413: ( p_count => x_msg_count ,
1414: p_data => x_msg_data
1415: );
1416: x_msg_data := substr(x_msg_data,1,4000);
1416: x_msg_data := substr(x_msg_data,1,4000);
1417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1418: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.Count_And_Get
1421: ( p_count => x_msg_count ,
1422: p_data => x_msg_data
1423: );
1424: x_msg_data := substr(x_msg_data,1,4000);
1424: x_msg_data := substr(x_msg_data,1,4000);
1425: WHEN OTHERS THEN
1426: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1428: IF FND_MSG_PUB.Check_Msg_Level
1429: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: FND_MSG_PUB.Add_Exc_Msg
1432: ( G_PKG_NAME ,
1425: WHEN OTHERS THEN
1426: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1428: IF FND_MSG_PUB.Check_Msg_Level
1429: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: FND_MSG_PUB.Add_Exc_Msg
1432: ( G_PKG_NAME ,
1433: l_api_name
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1428: IF FND_MSG_PUB.Check_Msg_Level
1429: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: FND_MSG_PUB.Add_Exc_Msg
1432: ( G_PKG_NAME ,
1433: l_api_name
1434: );
1435: END IF;
1432: ( G_PKG_NAME ,
1433: l_api_name
1434: );
1435: END IF;
1436: FND_MSG_PUB.Count_And_Get
1437: ( p_count => x_msg_count ,
1438: p_data => x_msg_data
1439: );
1440: x_msg_data := substr(x_msg_data,1,4000);
1538: END IF;
1539:
1540: -- Initialize message list if p_init_msg_list is set to TRUE.
1541: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1545: -- Initialize API return status to success
1546: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550:
1551:
1552: -- maintenance object type should be 3
1553: IF p_maintenance_object_type <> 3 THEN
1554: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1555: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVALID_MAINT_OBJ_TYPE');
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: RAISE FND_API.G_EXC_ERROR;
1552: -- maintenance object type should be 3
1553: IF p_maintenance_object_type <> 3 THEN
1554: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1555: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVALID_MAINT_OBJ_TYPE');
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: RAISE FND_API.G_EXC_ERROR;
1559: END IF;
1560:
1566: WHERE cii.instance_id = p_maintenance_object_id
1567: AND mp.organization_id = cii.last_vld_organization_id ;
1568: EXCEPTION
1569: WHEN OTHERS THEN
1570: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1571: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVLD_MT_GEN_OBJ_ID');
1572: FND_MSG_PUB.ADD;
1573: END IF;
1574: RAISE FND_API.G_EXC_ERROR;
1568: EXCEPTION
1569: WHEN OTHERS THEN
1570: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1571: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVLD_MT_GEN_OBJ_ID');
1572: FND_MSG_PUB.ADD;
1573: END IF;
1574: RAISE FND_API.G_EXC_ERROR;
1575: END;
1576:
1588: INTO l_next_association_id
1589: FROM dual;
1590: EXCEPTION
1591: WHEN OTHERS THEN
1592: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1593: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_ASSOC_ID');
1594: FND_MSG_PUB.ADD;
1595: END IF;
1596: RAISE FND_API.G_EXC_ERROR;
1590: EXCEPTION
1591: WHEN OTHERS THEN
1592: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1593: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_ASSOC_ID');
1594: FND_MSG_PUB.ADD;
1595: END IF;
1596: RAISE FND_API.G_EXC_ERROR;
1597: END;
1598:
1704: l_asset_activity_row.Activity_Association_Id
1705: );
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1709: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INSERT_ASSOC');
1710: FND_MSG_PUB.ADD;
1711: END IF;
1712: RAISE FND_API.G_EXC_ERROR;
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1709: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INSERT_ASSOC');
1710: FND_MSG_PUB.ADD;
1711: END IF;
1712: RAISE FND_API.G_EXC_ERROR;
1713: END;
1714:
1755: IF FND_API.To_Boolean( p_commit ) THEN
1756: COMMIT WORK;
1757: END IF;
1758: -- Standard call to get message count and if count is 1, get message info.
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_count => x_msg_count ,
1761: p_data => x_msg_data
1762: );
1763:
1772: EXCEPTION
1773: WHEN FND_API.G_EXC_ERROR THEN
1774: ROLLBACK TO Inst_Activity_Template_PVT;
1775: x_return_status := FND_API.G_RET_STS_ERROR ;
1776: FND_MSG_PUB.Count_And_Get
1777: ( p_count => x_msg_count ,
1778: p_data => x_msg_data
1779: );
1780: x_msg_data := substr(x_msg_data,1,4000);
1780: x_msg_data := substr(x_msg_data,1,4000);
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1782: ROLLBACK TO Inst_Activity_Template_PVT;
1783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1784: FND_MSG_PUB.Count_And_Get
1785: ( p_count => x_msg_count ,
1786: p_data => x_msg_data
1787: );
1788: x_msg_data := substr(x_msg_data,1,4000);
1788: x_msg_data := substr(x_msg_data,1,4000);
1789: WHEN OTHERS THEN
1790: ROLLBACK TO Inst_Activity_Template_PVT;
1791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1792: IF FND_MSG_PUB.Check_Msg_Level
1793: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1794: THEN
1795: FND_MSG_PUB.Add_Exc_Msg
1796: ( G_PKG_NAME ,
1789: WHEN OTHERS THEN
1790: ROLLBACK TO Inst_Activity_Template_PVT;
1791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1792: IF FND_MSG_PUB.Check_Msg_Level
1793: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1794: THEN
1795: FND_MSG_PUB.Add_Exc_Msg
1796: ( G_PKG_NAME ,
1797: l_api_name
1791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1792: IF FND_MSG_PUB.Check_Msg_Level
1793: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1794: THEN
1795: FND_MSG_PUB.Add_Exc_Msg
1796: ( G_PKG_NAME ,
1797: l_api_name
1798: );
1799: END IF;
1796: ( G_PKG_NAME ,
1797: l_api_name
1798: );
1799: END IF;
1800: FND_MSG_PUB.Count_And_Get
1801: ( p_count => x_msg_count ,
1802: p_data => x_msg_data
1803: );
1804: