143: END IF;
144:
145: -- Initialize message list if p_init_msg_list is set to TRUE.
146: IF FND_API.to_Boolean( p_init_msg_list ) THEN
147: FND_MSG_PUB.initialize;
148: END IF;
149:
150: -- Initialize API return status to success
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
241: WHERE inventory_item_id = p_target_activity_id
242: AND organization_id = p_target_org_id;
243: EXCEPTION
244: WHEN OTHERS THEN
245: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
246: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_PROPERTIES');
247: FND_MSG_PUB.ADD;
248: END IF;
249: RAISE FND_API.G_EXC_ERROR;
243: EXCEPTION
244: WHEN OTHERS THEN
245: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
246: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_PROPERTIES');
247: FND_MSG_PUB.ADD;
248: END IF;
249: RAISE FND_API.G_EXC_ERROR;
250: END;
251:
500: -- Handle errors
501: IF l_x_assoc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
502: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_AN_ASSOC_FAILED');
503: -- FND_MESSAGE.SET_ENCODED('Failed to create Asset Number Associations.');
504: EAM_ActivityUtilities_PVT.Add_Message(FND_MSG_PUB.G_MSG_LVL_ERROR);
505: RAISE FND_API.G_EXC_ERROR;
506: END IF;
507:
508: -- Bug # 4089189 : Need to default WAC and dept from WO to the Activity Association with the Asset in WO.
552: IF FND_API.To_Boolean( p_commit ) THEN
553: COMMIT WORK;
554: END IF;
555: -- Standard call to get message count and if count is 1, get message info.
556: FND_MSG_PUB.Count_And_Get
557: ( p_count => x_msg_count ,
558: p_data => x_msg_data
559: );
560: x_msg_data := substr(x_msg_data,1,4000);
561: EXCEPTION
562: WHEN FND_API.G_EXC_ERROR THEN
563: ROLLBACK TO Create_Association_PVT;
564: x_return_status := FND_API.G_RET_STS_ERROR ;
565: FND_MSG_PUB.Count_And_Get
566: ( p_count => x_msg_count ,
567: p_data => x_msg_data
568: );
569: x_msg_data := substr(x_msg_data,1,4000);
569: x_msg_data := substr(x_msg_data,1,4000);
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: ROLLBACK TO Create_Association_PVT;
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
573: FND_MSG_PUB.Count_And_Get
574: ( p_count => x_msg_count ,
575: p_data => x_msg_data
576: );
577: x_msg_data := substr(x_msg_data,1,4000);
577: x_msg_data := substr(x_msg_data,1,4000);
578: WHEN OTHERS THEN
579: ROLLBACK TO Create_Association_PVT;
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
581: IF FND_MSG_PUB.Check_Msg_Level
582: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
583: THEN
584: FND_MSG_PUB.Add_Exc_Msg
585: ( G_PKG_NAME ,
578: WHEN OTHERS THEN
579: ROLLBACK TO Create_Association_PVT;
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
581: IF FND_MSG_PUB.Check_Msg_Level
582: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
583: THEN
584: FND_MSG_PUB.Add_Exc_Msg
585: ( G_PKG_NAME ,
586: l_api_name
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
581: IF FND_MSG_PUB.Check_Msg_Level
582: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
583: THEN
584: FND_MSG_PUB.Add_Exc_Msg
585: ( G_PKG_NAME ,
586: l_api_name
587: );
588: END IF;
585: ( G_PKG_NAME ,
586: l_api_name
587: );
588: END IF;
589: FND_MSG_PUB.Count_And_Get
590: ( p_count => x_msg_count ,
591: p_data => x_msg_data
592: );
593: x_msg_data := substr(x_msg_data,1,4000);
650: END IF;
651:
652: -- Initialize message list if p_init_msg_list is set to TRUE.
653: IF FND_API.to_Boolean( p_init_msg_list ) THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656: -- Initialize API return status to success
657:
658: x_return_status := FND_API.G_RET_STS_SUCCESS;
1485: IF FND_API.To_Boolean( p_commit ) THEN
1486: COMMIT WORK;
1487: END IF;
1488: -- Standard call to get message count and if count is 1, get message info.
1489: FND_MSG_PUB.Count_And_Get
1490: ( p_count => x_msg_count ,
1491: p_data => x_msg_data
1492: );
1493: x_msg_data := substr(x_msg_data,1,4000);
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1497: x_return_status := FND_API.G_RET_STS_ERROR ;
1498: FND_MSG_PUB.Count_And_Get
1499: ( p_count => x_msg_count ,
1500: p_data => x_msg_data
1501: );
1502: x_msg_data := substr(x_msg_data,1,4000);
1502: x_msg_data := substr(x_msg_data,1,4000);
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1506: FND_MSG_PUB.Count_And_Get
1507: ( p_count => x_msg_count ,
1508: p_data => x_msg_data
1509: );
1510: x_msg_data := substr(x_msg_data,1,4000);
1510: x_msg_data := substr(x_msg_data,1,4000);
1511: WHEN OTHERS THEN
1512: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1514: IF FND_MSG_PUB.Check_Msg_Level
1515: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1516: THEN
1517: FND_MSG_PUB.Add_Exc_Msg
1518: ( G_PKG_NAME ,
1511: WHEN OTHERS THEN
1512: ROLLBACK TO Create_AssetNumberAssoc_PVT;
1513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1514: IF FND_MSG_PUB.Check_Msg_Level
1515: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1516: THEN
1517: FND_MSG_PUB.Add_Exc_Msg
1518: ( G_PKG_NAME ,
1519: l_api_name
1513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1514: IF FND_MSG_PUB.Check_Msg_Level
1515: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1516: THEN
1517: FND_MSG_PUB.Add_Exc_Msg
1518: ( G_PKG_NAME ,
1519: l_api_name
1520: );
1521: END IF;
1518: ( G_PKG_NAME ,
1519: l_api_name
1520: );
1521: END IF;
1522: FND_MSG_PUB.Count_And_Get
1523: ( p_count => x_msg_count ,
1524: p_data => x_msg_data
1525: );
1526: x_msg_data := substr(x_msg_data,1,4000);
1626: END IF;
1627:
1628: -- Initialize message list if p_init_msg_list is set to TRUE.
1629: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1630: FND_MSG_PUB.initialize;
1631: END IF;
1632:
1633: -- Initialize API return status to success
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
1638:
1639:
1640: -- maintenance object type should be 3
1641: IF p_maintenance_object_type <> 3 THEN
1642: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1643: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVALID_MAINT_OBJ_TYPE');
1644: FND_MSG_PUB.ADD;
1645: END IF;
1646: RAISE FND_API.G_EXC_ERROR;
1640: -- maintenance object type should be 3
1641: IF p_maintenance_object_type <> 3 THEN
1642: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1643: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVALID_MAINT_OBJ_TYPE');
1644: FND_MSG_PUB.ADD;
1645: END IF;
1646: RAISE FND_API.G_EXC_ERROR;
1647: END IF;
1648:
1654: WHERE cii.instance_id = p_maintenance_object_id
1655: AND mp.organization_id = cii.last_vld_organization_id ;
1656: EXCEPTION
1657: WHEN OTHERS THEN
1658: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1659: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVLD_MT_GEN_OBJ_ID');
1660: FND_MSG_PUB.ADD;
1661: END IF;
1662: RAISE FND_API.G_EXC_ERROR;
1656: EXCEPTION
1657: WHEN OTHERS THEN
1658: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1659: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INVLD_MT_GEN_OBJ_ID');
1660: FND_MSG_PUB.ADD;
1661: END IF;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END;
1664:
1676: INTO l_next_association_id
1677: FROM dual;
1678: EXCEPTION
1679: WHEN OTHERS THEN
1680: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1681: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_ASSOC_ID');
1682: FND_MSG_PUB.ADD;
1683: END IF;
1684: RAISE FND_API.G_EXC_ERROR;
1678: EXCEPTION
1679: WHEN OTHERS THEN
1680: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1681: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ACT_ASSOC_ID');
1682: FND_MSG_PUB.ADD;
1683: END IF;
1684: RAISE FND_API.G_EXC_ERROR;
1685: END;
1686:
1792: l_asset_activity_row.Activity_Association_Id
1793: );
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1797: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INSERT_ASSOC');
1798: FND_MSG_PUB.ADD;
1799: END IF;
1800: RAISE FND_API.G_EXC_ERROR;
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1797: FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_INSERT_ASSOC');
1798: FND_MSG_PUB.ADD;
1799: END IF;
1800: RAISE FND_API.G_EXC_ERROR;
1801: END;
1802:
1848: IF FND_API.To_Boolean( p_commit ) THEN
1849: COMMIT WORK;
1850: END IF;
1851: -- Standard call to get message count and if count is 1, get message info.
1852: FND_MSG_PUB.Count_And_Get
1853: ( p_count => x_msg_count ,
1854: p_data => x_msg_data
1855: );
1856:
1865: EXCEPTION
1866: WHEN FND_API.G_EXC_ERROR THEN
1867: ROLLBACK TO Inst_Activity_Template_PVT;
1868: x_return_status := FND_API.G_RET_STS_ERROR ;
1869: FND_MSG_PUB.Count_And_Get
1870: ( p_count => x_msg_count ,
1871: p_data => x_msg_data
1872: );
1873: x_msg_data := substr(x_msg_data,1,4000);
1873: x_msg_data := substr(x_msg_data,1,4000);
1874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1875: ROLLBACK TO Inst_Activity_Template_PVT;
1876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1877: FND_MSG_PUB.Count_And_Get
1878: ( p_count => x_msg_count ,
1879: p_data => x_msg_data
1880: );
1881: x_msg_data := substr(x_msg_data,1,4000);
1881: x_msg_data := substr(x_msg_data,1,4000);
1882: WHEN OTHERS THEN
1883: ROLLBACK TO Inst_Activity_Template_PVT;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1885: IF FND_MSG_PUB.Check_Msg_Level
1886: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1887: THEN
1888: FND_MSG_PUB.Add_Exc_Msg
1889: ( G_PKG_NAME ,
1882: WHEN OTHERS THEN
1883: ROLLBACK TO Inst_Activity_Template_PVT;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1885: IF FND_MSG_PUB.Check_Msg_Level
1886: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1887: THEN
1888: FND_MSG_PUB.Add_Exc_Msg
1889: ( G_PKG_NAME ,
1890: l_api_name
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1885: IF FND_MSG_PUB.Check_Msg_Level
1886: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1887: THEN
1888: FND_MSG_PUB.Add_Exc_Msg
1889: ( G_PKG_NAME ,
1890: l_api_name
1891: );
1892: END IF;
1889: ( G_PKG_NAME ,
1890: l_api_name
1891: );
1892: END IF;
1893: FND_MSG_PUB.Count_And_Get
1894: ( p_count => x_msg_count ,
1895: p_data => x_msg_data
1896: );
1897: