[Home] [Help]
190: -- Changed access to check for value N
191: --
192: if AMS_ACCESS_PVT.check_update_access(l_act_Product_rec.act_product_used_by_id,l_act_Product_rec.arc_act_product_used_by, l_res_id, 'USER') = 'N' then
193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
194: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
195: FND_MSG_PUB.add;
196: END IF;
197: RAISE FND_API.g_exc_error;
198: end if;
468: --
469: if l_act_Product_rec.arc_act_product_used_by NOT IN ('OFFR') THEN
470: if AMS_ACCESS_PVT.check_update_access(l_act_Product_rec.act_product_used_by_id,l_act_Product_rec.arc_act_product_used_by, l_res_id, 'USER') = 'N' then
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
476: end if;
527: -- Error, check the msg level and added an error message to the
528: -- API message list
529: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
530: THEN -- MMSG
531: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
532: FND_MSG_PUB.Add;
533: END IF;
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
679: -- as it does not work for Messages tab. GDEODHAR : Oct 06, 2000
680: /*
681: if AMS_ACCESS_PVT.check_update_access(l_acc_obj_id, l_acc_obj, l_res_id, 'USER') <> 'F' then
682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
683: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
684: FND_MSG_PUB.add;
685: END IF;
686: RAISE FND_API.g_exc_error;
687: end if;
702: -- Add error message to API message list.
703: --
704: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
705: THEN
706: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
707: FND_MSG_PUB.add;
708: END IF;
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
857: -- Error, check the msg level and added an error message to the
858: -- API message list
859: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
860: THEN -- MMSG
861: FND_MESSAGE.Set_Name('AMS', 'AMS_API_RECORD_NOT_FOUND');
862: FND_MSG_PUB.Add;
863: END IF;
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
890: );
891: WHEN AMS_Utility_PVT.resource_locked THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
894: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
895: FND_MSG_PUB.add;
896: END IF;
897: FND_MSG_PUB.Count_AND_Get
898: ( p_count => x_msg_count,
1093: IF l_primary_flag = 'Y'
1094: THEN
1095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1096: THEN
1097: FND_MESSAGE.set_name('AMS', 'AMS_CANNOT_UPD_PRIMARY_FLAG');
1098: FND_MSG_PUB.add;
1099: END IF;
1100: x_return_status := FND_API.g_ret_sts_error;
1101: RETURN;
1164: THEN
1165: -- missing required fields
1166: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1167: THEN -- MMSG
1168: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_USEDBYID');
1169: FND_MSG_PUB.add;
1170: END IF;
1171: x_return_status := FND_API.G_RET_STS_ERROR;
1172: -- If any error happens abort API.
1179: THEN
1180: -- missing required fields
1181: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1182: THEN -- MMSG
1183: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_USEDBY');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: -- If any error happens abort API.
1199: AND (p_act_Product_rec.category_id IS NULL
1200: OR p_act_Product_rec.category_id = FND_API.G_MISS_NUM))
1201: THEN
1202: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1203: FND_MESSAGE.set_name('AMS', 'AMS_CAT_NAME_MISSING');
1204: FND_MSG_PUB.add;
1205: END IF;
1206: x_return_status := FND_API.G_RET_STS_ERROR;
1207: RETURN;
1214: AND (p_act_Product_rec.category_set_id IS NULL
1215: OR p_act_Product_rec.category_set_id = FND_API.G_MISS_NUM))
1216: THEN
1217: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1218: FND_MESSAGE.set_name('AMS', 'AMS_CAT_SET_ID_MISSING');
1219: FND_MSG_PUB.add;
1220: END IF;
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: RETURN;
1227: AND (p_act_Product_rec.inventory_item_id IS NULL
1228: OR p_act_Product_rec.inventory_item_id = FND_API.G_MISS_NUM))
1229: THEN
1230: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1231: FND_MESSAGE.set_name('AMS', 'AMS_INVENTORY_ITEM_ID_MISSING');
1232: FND_MSG_PUB.add;
1233: END IF;
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: RETURN;
1245: IF p_act_Product_rec.uom_code = FND_API.G_MISS_CHAR
1246: OR p_act_Product_rec.uom_code IS NULL
1247: THEN
1248: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1249: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UOM');
1250: FND_MSG_PUB.add;
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: RETURN;
1257: IF p_act_Product_rec.quantity = FND_API.G_MISS_NUM
1258: OR p_act_Product_rec.quantity IS NULL
1259: THEN
1260: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1261: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_QUANTITY');
1262: FND_MSG_PUB.add;
1263: END IF;
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: RETURN;
1269: IF p_act_Product_rec.channel_id = FND_API.G_MISS_NUM
1270: OR p_act_Product_rec.channel_id IS NULL
1271: THEN
1272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1273: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_TYPE');
1274: FND_MSG_PUB.add;
1275: END IF;
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: RETURN;
1281: IF p_act_Product_rec.scan_value = FND_API.G_MISS_NUM
1282: OR p_act_Product_rec.scan_value IS NULL
1283: THEN
1284: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1285: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_VALUE');
1286: FND_MSG_PUB.add;
1287: END IF;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: RETURN;
1292: IF p_act_Product_rec.scan_unit_forecast = FND_API.G_MISS_NUM
1293: OR p_act_Product_rec.scan_unit_forecast IS NULL
1294: THEN
1295: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1296: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UNIT_FCST');
1297: FND_MSG_PUB.add;
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: RETURN;
1312: ) = FND_API.g_false
1313: THEN
1314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1315: THEN
1316: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPLICATE_ID');
1317: FND_MSG_PUB.add;
1318: END IF;
1319: x_return_status := FND_API.g_ret_sts_error;
1320: RETURN;
1330: ) = FND_API.g_false
1331: THEN
1332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1333: THEN
1334: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_USEDBY');
1335: FND_MSG_PUB.add;
1336: END IF;
1337: x_return_status := FND_API.g_ret_sts_error;
1338: RETURN;
1348: ) = FND_API.g_false
1349: THEN
1350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1351: THEN
1352: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_LEVELTYPE');
1353: FND_MSG_PUB.add;
1354: END IF;
1355: x_return_status := FND_API.g_ret_sts_error;
1356: RETURN;
1375: if (l_budget_flag = 'Y') then
1376:
1377: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1378: THEN
1379: FND_MESSAGE.set_name('AMS', 'AMS_CANNOT_ASSOCIATE_PROD');
1380: FND_MSG_PUB.add;
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: -- If any errors happen abort API/Procedure.
1451: ) = FND_API.G_FALSE
1452: THEN
1453: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1454: THEN
1455: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_REFERENCE');
1456: FND_MSG_PUB.add;
1457: END IF;
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: -- If any errors happen abort API/Procedure.
1473: ) = FND_API.G_FALSE
1474: THEN
1475: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1476: THEN
1477: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEM');
1478: FND_MSG_PUB.add;
1479: END IF;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: -- If any errors happen abort API/Procedure.
1496: ) = FND_API.G_FALSE
1497: THEN
1498: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1499: THEN
1500: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ORG');
1501: FND_MSG_PUB.add;
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: -- If any errors happen abort API/Procedure.
1518: ) = FND_API.G_FALSE
1519: THEN
1520: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1521: THEN
1522: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_CAT');
1523: FND_MSG_PUB.add;
1524: END IF;
1525: x_return_status := FND_API.G_RET_STS_ERROR;
1526: -- If any errors happen abort API/Procedure.
1540: ) = FND_API.G_FALSE
1541: THEN
1542: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1543: THEN
1544: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEMCAT');
1545: FND_MSG_PUB.add;
1546: END IF;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: -- If any errors happen abort API/Procedure.
1560: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.enabled_flag) = FND_API.g_false
1561: THEN
1562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1563: THEN
1564: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_ENABLED_FLAG');
1565: FND_MSG_PUB.add;
1566: END IF;
1567: x_return_status := FND_API.g_ret_sts_error;
1568: RETURN;
1575: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.excluded_flag) = FND_API.g_false
1576: THEN
1577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1578: THEN
1579: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_EXCLUDED_FLAG');
1580: FND_MSG_PUB.add;
1581: END IF;
1582: x_return_status := FND_API.g_ret_sts_error;
1583: RETURN;
1591: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.primary_product_flag) = FND_API.g_false
1592: THEN
1593: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1594: THEN
1595: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_PRIMARY_FLAG');
1596: FND_MSG_PUB.add;
1597: END IF;
1598: x_return_status := FND_API.g_ret_sts_error;
1599: RETURN;
1603: -------------------- Product Name --------------------
1604: -- bug 4102448
1605: IF p_act_product_rec.category_id IS NULL AND p_act_product_rec.inventory_item_id IS NULL THEN
1606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1607: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_PROD');
1608: FND_MSG_PUB.add;
1609: END IF;
1610: x_return_status := FND_API.g_ret_sts_error;
1611: END IF;
1628: -- if level =PROD, error out.. no more include/exclude rows allowed
1629: IF l_level = 'PRODUCT' THEN
1630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1631: THEN
1632: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_MORE_ROWS');
1633: FND_MSG_PUB.add;
1634: END IF;
1635: x_return_status := FND_API.g_ret_sts_error;
1636: RETURN;
1640: -- in this release though.. this stage not necessary as CAT/subCAT wont be allowed to be excluded
1641: IF l_level = 'FAMILY' and p_act_Product_rec.excluded_flag <> 'Y' THEN
1642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1643: THEN
1644: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_MORE_ROWS');
1645: FND_MSG_PUB.add;
1646: END IF;
1647: x_return_status := FND_API.g_ret_sts_error;
1648: RETURN;
1651:
1652: IF l_level = 'NEW' and p_act_Product_rec.excluded_flag = 'Y' THEN
1653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1654: THEN
1655: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_INCLUDE_ROWS');
1656: FND_MSG_PUB.add;
1657: END IF;
1658: x_return_status := FND_API.g_ret_sts_error;
1659: RETURN;
1843: END IF;
1844:
1845: IF l_count1 > 0 THEN
1846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1847: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUP_ITEM');
1848: FND_MSG_PUB.add;
1849: END IF;
1850:
1851: x_return_status := FND_API.g_ret_sts_error;
1862: CLOSE c_check_item_in_cat;
1863:
1864: IF l_count2 = 1 THEN
1865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1866: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_ITEM_IN_CAT');
1867: FND_MSG_PUB.add;
1868: END IF;
1869:
1870: x_return_status := FND_API.g_ret_sts_error;
1878: CLOSE c_check_item_in_cat;
1879:
1880: IF l_count2 = 1 THEN
1881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1882: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_ITEM_IN_CAT');
1883: FND_MSG_PUB.add;
1884: END IF;
1885:
1886: x_return_status := FND_API.g_ret_sts_error;
1903: END IF;
1904:
1905: IF l_count1 > 0 THEN
1906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1907: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUP_CAT');
1908: FND_MSG_PUB.add;
1909: END IF;
1910:
1911: x_return_status := FND_API.g_ret_sts_error;
1922: CLOSE c_check_item_in_cat;
1923:
1924: IF l_count2 = 1 THEN
1925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1926: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CAT_HAS_ITEM');
1927: FND_MSG_PUB.add;
1928: END IF;
1929:
1930: x_return_status := FND_API.g_ret_sts_error;
1938: CLOSE c_check_item_in_cat;
1939:
1940: IF l_count2 = 1 THEN
1941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1942: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CAT_HAS_ITEM');
1943: FND_MSG_PUB.add;
1944: END IF;
1945:
1946: x_return_status := FND_API.g_ret_sts_error;
1962:
1963: IF p_act_Product_rec.category_id = cat_id THEN
1964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1965: THEN
1966: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPE_CAT');
1967: FND_MSG_PUB.add;
1968: END IF;
1969: x_return_status := FND_API.g_ret_sts_error;
1970: CLOSE c_get_all_categories;
1986:
1987: IF p_act_Product_rec.inventory_item_id = item_id THEN
1988: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1989: THEN
1990: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPE_ITEM');
1991: FND_MSG_PUB.add;
1992: END IF;
1993: x_return_status := FND_API.g_ret_sts_error;
1994: CLOSE c_get_all_items;
2002: IF p_act_Product_rec.level_type_code = 'FAMILY'
2003: AND p_act_Product_rec.excluded_flag = 'Y' THEN
2004: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2005: THEN
2006: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CANT_EXCLUDE_CAT');
2007: FND_MSG_PUB.add;
2008: END IF;
2009: x_return_status := FND_API.g_ret_sts_error;
2010: RETURN;
2033: CLOSE c_get_categories;
2034: IF item_in_cat <> 1 THEN
2035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2036: THEN
2037: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NOT_IN_CAT');
2038: FND_MSG_PUB.add;
2039: END IF;
2040: x_return_status := FND_API.g_ret_sts_error;
2041: RETURN;
2080: FETCH c_product INTO l_act_Product_rec;
2081: IF c_product%NOTFOUND THEN
2082: CLOSE c_product;
2083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2084: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2085: FND_MSG_PUB.add;
2086: END IF;
2087: RAISE FND_API.g_exc_error;
2088: END IF;
2630: FETCH c_item_cat_check into l_count;
2631: CLOSE c_item_cat_check;
2632: IF l_count = 0 THEN
2633: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2634: FND_MESSAGE.set_name('AMS', 'AMS_API_PRD_ITEM_IN_CAT');
2635: FND_MSG_PUB.add;
2636: END IF;
2637: END IF;
2638: l_count := 0;
2702: END IF;
2703: --- both hierarch doesn't exist raising an error
2704: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2705: THEN
2706: FND_MESSAGE.set_name('AMS', 'AMS_PROD_ASSOC_NOT_IN_CAMP');
2707: FND_MSG_PUB.add;
2708: END IF;
2709: x_return_status := FND_API.g_ret_sts_error;
2710: RETURN;
2712: END IF;
2713: ELSE --- if there is no category passed, which means the product assoc doesnot there in campaign
2714: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2715: THEN
2716: FND_MESSAGE.set_name('AMS', 'AMS_PROD_ASSOC_NOT_IN_CAMP');
2717: FND_MSG_PUB.add;
2718: END IF;
2719: x_return_status := FND_API.g_ret_sts_error;
2720: RETURN;
2743: AMS_UTILITY_PVT.debug_message(AMS_LOG_STATEMENT,G_module_name,'HIERARCHY ALSO DOESNT EXIST');
2744: END IF;
2745: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2746: THEN
2747: FND_MESSAGE.set_name('AMS', 'AMS_CAT_ASSOC_NOT_IN_CAMP');
2748: FND_MSG_PUB.add;
2749: END IF;
2750: x_return_status := FND_API.g_ret_sts_error;
2751: RETURN;