[Home] [Help]
263: END IF;
264: l_valid := FALSE;
265: fnd_message.set_name('INV','INV_MISSING_REQUIRED_PARAMETER');
266: fnd_msg_pub.ADD;
267: RAISE fnd_api.g_EXC_ERROR;
268: END IF;
269: IF l_debug = 1 THEN
270: mdebug('Validate Params: Required params passed. ');
271: END IF;
278: mdebug('Validate Params: Same Parent and Category Set Id');
279: END IF;
280: fnd_message.set_name('INV','INV_SAME_CATEGORY_SETS');
281: fnd_msg_pub.ADD;
282: RAISE fnd_api.g_EXC_ERROR;
283: END IF;
284: IF l_debug = 1 THEN
285: mdebug('Validate Params: Parent and Child category ids are diff');
286: END IF;
301: fnd_message.set_name('INV','INV_INVALID_PARAMETER');
302: fnd_message.set_token('PARAM_NAME', 'CATEGORY_ID');
303: fnd_message.set_token('PROGRAM_NAME', G_PKG_NAME||'.'||p_calling_api);
304: fnd_msg_pub.ADD;
305: RAISE fnd_api.g_EXC_ERROR;
306: END IF;
307: IF l_debug = 1 THEN
308: mdebug('Validate Params: Category Id is valid for insert');
309: END IF;
322: mdebug('Validate Params: Record not available for update');
323: END IF;
324: fnd_message.set_name('INV','INV_CATEGORY_UNAVAIL_UPDATE');
325: fnd_msg_pub.ADD;
326: RAISE fnd_api.g_EXC_ERROR;
327: END IF;
328: IF l_debug = 1 THEN
329: mdebug('Validate Params: Record exists in mtl_category_set_valid_cats ');
330: END IF;
348: mdebug('Validate Params: You might create loops!! ');
349: END IF;
350: fnd_message.set_name('INV','INV_CATEGORY_LOOPS_ERR');
351: fnd_msg_pub.ADD;
352: RAISE fnd_api.g_EXC_ERROR;
353: END IF;
354: IF l_debug = 1 THEN
355: mdebug('Validate Params: No loops after updation ');
356: END IF;
371: mdebug('Validate Params: User wishes to create a leaf node ');
372: END IF;
373: -- fnd_message.set_name('INV','INV_MISSING_PARENT_CAT');
374: -- fnd_msg_pub.ADD;
375: -- RAISE fnd_api.g_EXC_ERROR;
376: ELSE
377: --
378: -- check whether the parent category id is valid
379: --
388: fnd_message.set_token('PARAM_NAME', 'PARENT_CATEGORY_ID');
389: fnd_message.set_token('PROGRAM_NAME',
390: G_PKG_NAME||'.'||p_calling_api);
391: fnd_msg_pub.ADD;
392: RAISE fnd_api.g_EXC_ERROR;
393: END IF;
394: IF l_debug = 1 THEN
395: mdebug('Validate Params: Parent category id is valid in mtl_categories_b ');
396: END IF;
528: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
529: BEGIN
530:
531: IF ( p_bool = TRUE ) THEN
532: RETURN fnd_api.g_TRUE ;
533: ELSIF ( p_bool = FALSE ) THEN
534: RETURN fnd_api.g_FALSE ;
535: ELSE
536: NULL;
530:
531: IF ( p_bool = TRUE ) THEN
532: RETURN fnd_api.g_TRUE ;
533: ELSIF ( p_bool = FALSE ) THEN
534: RETURN fnd_api.g_FALSE ;
535: ELSE
536: NULL;
537: END IF;
538:
695: IF (l_debug = 1) THEN
696: mdebug('ERR: No Product Categories structure');
697: END IF;
698: CLOSE get_structure_id;
699: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
700: END IF;
701: CLOSE get_structure_id;
702: /* Bug 5474569 End */
703:
724: fnd_msg_pub.ADD;
725: IF (l_debug = 1) THEN
726: mdebug('Flex Structure Information needed');
727: END IF;
728: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
729: END IF;
730:
731: IF (x_category_rec.structure_id = g_MISS_NUM OR
732: x_category_rec.structure_id IS NULL) AND
745: IF (l_debug = 1) THEN
746: mdebug('ERR: Invalid Flex Structure information provided');
747: END IF;
748: CLOSE get_structure_id;
749: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
750: END IF;
751: CLOSE get_structure_id;
752: END IF;
753:
762: IF (l_debug = 1) THEN
763: mdebug('Invalid Flex Structure information provided');
764: END IF;
765: CLOSE validate_structure_id;
766: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
767: END IF;
768: CLOSE validate_structure_id;
769: END IF;
770: --Bug: 2645153
774: if (l_product_str_id <> x_category_rec.structure_id and
775: nvl(x_category_rec.summary_flag, 'N' ) = 'Y' ) then
776: fnd_message.set_name('INV','INV_CAT_SUM_FLAG_ERR');
777: fnd_msg_pub.ADD;
778: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
779: end if;
780: /* Bug 5474569 End */
781:
782: IF x_category_rec.attribute_category = g_MISS_CHAR THEN
960: fnd_msg_pub.ADD;
961: IF (l_debug = 1) THEN
962: mdebug('Category Id needed for Update');
963: END IF;
964: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
965: END IF;
966:
967: IF (x_category_rec.structure_id = g_MISS_NUM OR
968: x_category_rec.structure_id IS NULL) AND
977: IF (l_debug = 1) THEN
978: mdebug('Invalid Flex Structure information provided');
979: END IF;
980: CLOSE get_category_structure_id;
981: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
982: END IF;
983: CLOSE get_category_structure_id;
984: /*
985: fnd_message.set_name('INV','INV_FLEX_STRUCTURE_REQ');
986: fnd_msg_pub.ADD;
987: IF (l_debug = 1) THEN
988: mdebug('Flex Structure Information needed');
989: END IF;
990: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
991: */
992: END IF;
993:
994: IF (x_category_rec.structure_id = g_MISS_NUM OR
1003: fnd_msg_pub.ADD;
1004: IF (l_debug = 1) THEN
1005: mdebug('Invalid Flex Structure information provided');
1006: END IF;
1007: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
1008: END IF;
1009: CLOSE get_structure_id;
1010: END IF;
1011:
1016: if (l_product_str_id <> x_category_rec.structure_id and
1017: nvl(x_category_rec.summary_flag, 'N' ) = 'Y' ) then
1018: fnd_message.set_name('INV','INV_CAT_SUM_FLAG_ERR');
1019: fnd_msg_pub.ADD;
1020: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
1021: end if;
1022: /* Bug 5474569 End */
1023:
1024: /* Before further processing we get the info. from Database */
1075: IF (l_debug = 1) THEN
1076: mdebug('Invalid Category Id provided');
1077: END IF;
1078: CLOSE category_rec_cursor;
1079: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
1080: END IF;
1081: CLOSE category_rec_cursor;
1082:
1083: IF x_category_rec.description = g_MISS_CHAR THEN
1314: IF (l_debug = 1) THEN
1315: mdebug('ValueSet Validation Error : '||l_trim_str);
1316: END IF;
1317:
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: END ValueSet_Validate;
1321:
1322: ----------------------------------------------------------------------------
1377: fnd_msg_pub.ADD;
1378: IF (l_debug = 1) THEN
1379: mdebug('Delimiter is NULL...Error');
1380: END IF;
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END IF;
1383:
1384: --Start: 3893482
1385: l_indx := 1;
1491: fnd_msg_pub.ADD;
1492: IF (l_debug = 1) THEN
1493: mdebug('CCID already exists => '|| To_char(FND_FLEX_KEYVAL.combination_id));
1494: END IF;
1495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1496:
1497: ELSIF (p_operation = G_UPDATE) THEN
1498: IF (FND_FLEX_KEYVAL.combination_id <>
1499: p_category_rec.category_id) THEN
1502: fnd_msg_pub.ADD;
1503: IF (l_debug = 1) THEN
1504: mdebug( 'Code combination already used for another category');
1505: END IF;
1506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1507: ELSE
1508: ValueSet_Validate(l_structure_id, l_concat_segs, p_operation); -- added p_operation for 13850442
1509: IF (l_debug = 1) THEN
1510: mdebug('Updating CCID/Category_Id => '|| To_char(FND_FLEX_KEYVAL.combination_id));
1546: fnd_msg_pub.ADD;
1547: IF (l_debug = 1) THEN
1548: mdebug('Trying to update a non-existant ROW');
1549: END IF;
1550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1551:
1552: ELSE -- neither insert nor update
1553: NULL;
1554: END IF;
1561: ----------------------------------------------------------------------------
1562: PROCEDURE Create_Category
1563: (
1564: p_api_version IN NUMBER ,
1565: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1566: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1567: x_return_status OUT NOCOPY VARCHAR2 ,
1568: x_errorcode OUT NOCOPY NUMBER,
1569: x_msg_count OUT NOCOPY NUMBER ,
1562: PROCEDURE Create_Category
1563: (
1564: p_api_version IN NUMBER ,
1565: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1566: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1567: x_return_status OUT NOCOPY VARCHAR2 ,
1568: x_errorcode OUT NOCOPY NUMBER,
1569: x_msg_count OUT NOCOPY NUMBER ,
1570: x_msg_data OUT NOCOPY VARCHAR2 ,
1608: -- Standard Start of API savepoint
1609: SAVEPOINT Create_Category_PUB;
1610:
1611: -- Check for call compatibility.
1612: IF NOT FND_API.Compatible_API_Call (l_api_version,
1613: p_api_version,
1614: l_api_name,
1615: G_PKG_NAME)
1616: THEN
1613: p_api_version,
1614: l_api_name,
1615: G_PKG_NAME)
1616: THEN
1617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1618: END IF;
1619: -- Initialize API message list if necessary.
1620: -- Initialize message list if p_init_msg_list is set to TRUE.
1621: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1618: END IF;
1619: -- Initialize API message list if necessary.
1620: -- Initialize message list if p_init_msg_list is set to TRUE.
1621: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1622: FND_MSG_PUB.initialize;
1623: END IF;
1624:
1625: IF (l_debug = 1) THEN
1729: mdebug('Tracing....10');
1730: END IF;
1731:
1732: -- Standard check of p_commit.
1733: IF FND_API.To_Boolean( p_commit ) THEN
1734: COMMIT WORK;
1735: END IF;
1736:
1737: x_return_status := FND_API.G_RET_STS_SUCCESS;
1733: IF FND_API.To_Boolean( p_commit ) THEN
1734: COMMIT WORK;
1735: END IF;
1736:
1737: x_return_status := FND_API.G_RET_STS_SUCCESS;
1738: -- Standard call to get message count and if count is 1,
1739: -- get message info.
1740: -- The client will directly display the x_msg_data (which is already
1741: -- translated) if the x_msg_count = 1;
1749: ( p_count => x_msg_count,
1750: p_data => x_msg_data
1751: );
1752: EXCEPTION
1753: WHEN FND_API.G_EXC_ERROR THEN
1754: IF (l_debug = 1) THEN
1755: mdebug('Ending : Returning ERROR');
1756: END IF;
1757: ROLLBACK TO Create_Category_PUB;
1754: IF (l_debug = 1) THEN
1755: mdebug('Ending : Returning ERROR');
1756: END IF;
1757: ROLLBACK TO Create_Category_PUB;
1758: x_return_status := FND_API.G_RET_STS_ERROR;
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_count => x_msg_count,
1761: p_data => x_msg_data
1762: );
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_count => x_msg_count,
1761: p_data => x_msg_data
1762: );
1763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1764: ROLLBACK TO Create_Category_PUB;
1765: IF (l_debug = 1) THEN
1766: mdebug('Ending : Returning UNEXPECTED ERROR');
1767: END IF;
1764: ROLLBACK TO Create_Category_PUB;
1765: IF (l_debug = 1) THEN
1766: mdebug('Ending : Returning UNEXPECTED ERROR');
1767: END IF;
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1769: FND_MSG_PUB.Count_And_Get
1770: ( p_count => x_msg_count,
1771: p_data => x_msg_data
1772: );
1774: ROLLBACK TO Create_Category_PUB;
1775: IF (l_debug = 1) THEN
1776: mdebug('Ending : Returning UNEXPECTED ERROR');
1777: END IF;
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1779: IF FND_MSG_PUB.Check_Msg_Level
1780: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1781: THEN
1782: FND_MSG_PUB.Add_Exc_Msg
1797: ----------------------------------------------------------------------------
1798: PROCEDURE Update_Category
1799: (
1800: p_api_version IN NUMBER ,
1801: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1802: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1803: x_return_status OUT NOCOPY VARCHAR2 ,
1804: x_errorcode OUT NOCOPY NUMBER,
1805: x_msg_count OUT NOCOPY NUMBER ,
1798: PROCEDURE Update_Category
1799: (
1800: p_api_version IN NUMBER ,
1801: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1802: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1803: x_return_status OUT NOCOPY VARCHAR2 ,
1804: x_errorcode OUT NOCOPY NUMBER,
1805: x_msg_count OUT NOCOPY NUMBER ,
1806: x_msg_data OUT NOCOPY VARCHAR2 ,
1837: -- Standard Start of API savepoint
1838: SAVEPOINT Update_Category_PUB;
1839:
1840:
1841: IF NOT FND_API.Compatible_API_Call (l_api_version,
1842: p_api_version ,
1843: l_api_name ,
1844: G_PKG_NAME)
1845: THEN
1842: p_api_version ,
1843: l_api_name ,
1844: G_PKG_NAME)
1845: THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: END IF;
1848: -- Initialize API message list if necessary.
1849: -- Initialize message list if p_init_msg_list is set to TRUE.
1850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: END IF;
1848: -- Initialize API message list if necessary.
1849: -- Initialize message list if p_init_msg_list is set to TRUE.
1850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1851: FND_MSG_PUB.initialize;
1852: END IF;
1853:
1854: IF (l_debug = 1) THEN
1942: mdebug('Update_Category:: Tracing....10');
1943: END IF;
1944:
1945: -- Standard check of p_commit.
1946: IF FND_API.To_Boolean( p_commit ) THEN
1947: COMMIT WORK;
1948: END IF;
1949:
1950: x_return_status := FND_API.G_RET_STS_SUCCESS;
1946: IF FND_API.To_Boolean( p_commit ) THEN
1947: COMMIT WORK;
1948: END IF;
1949:
1950: x_return_status := FND_API.G_RET_STS_SUCCESS;
1951: -- Standard call to get message count and if count is 1,
1952: -- get message info.
1953: -- The client will directly display the x_msg_data (which is already
1954: -- translated) if the x_msg_count = 1;
1959: ( p_count => x_msg_count,
1960: p_data => x_msg_data
1961: );
1962: EXCEPTION
1963: WHEN FND_API.G_EXC_ERROR THEN
1964: ROLLBACK TO Update_Category_PUB;
1965: x_return_status := FND_API.G_RET_STS_ERROR;
1966: FND_MSG_PUB.Count_And_Get
1967: ( p_count => x_msg_count,
1961: );
1962: EXCEPTION
1963: WHEN FND_API.G_EXC_ERROR THEN
1964: ROLLBACK TO Update_Category_PUB;
1965: x_return_status := FND_API.G_RET_STS_ERROR;
1966: FND_MSG_PUB.Count_And_Get
1967: ( p_count => x_msg_count,
1968: p_data => x_msg_data
1969: );
1966: FND_MSG_PUB.Count_And_Get
1967: ( p_count => x_msg_count,
1968: p_data => x_msg_data
1969: );
1970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1971: ROLLBACK TO Update_Category_PUB;
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1973: FND_MSG_PUB.Count_And_Get
1974: ( p_count => x_msg_count,
1968: p_data => x_msg_data
1969: );
1970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1971: ROLLBACK TO Update_Category_PUB;
1972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1973: FND_MSG_PUB.Count_And_Get
1974: ( p_count => x_msg_count,
1975: p_data => x_msg_data
1976: );
1975: p_data => x_msg_data
1976: );
1977: WHEN OTHERS THEN
1978: ROLLBACK TO Update_Category_PUB;
1979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1980: IF FND_MSG_PUB.Check_Msg_Level
1981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1982: THEN
1983: FND_MSG_PUB.Add_Exc_Msg
2000: ----------------------------------------------------------------------------
2001: PROCEDURE Update_Category_Description
2002: (
2003: p_api_version IN NUMBER ,
2004: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2005: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2006: x_return_status OUT NOCOPY VARCHAR2 ,
2007: x_errorcode OUT NOCOPY NUMBER,
2008: x_msg_count OUT NOCOPY NUMBER ,
2001: PROCEDURE Update_Category_Description
2002: (
2003: p_api_version IN NUMBER ,
2004: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2005: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2006: x_return_status OUT NOCOPY VARCHAR2 ,
2007: x_errorcode OUT NOCOPY NUMBER,
2008: x_msg_count OUT NOCOPY NUMBER ,
2009: x_msg_data OUT NOCOPY VARCHAR2 ,
2036: SAVEPOINT Update_Category_Desc_PUB;
2037:
2038:
2039: -- Check for call compatibility.
2040: IF NOT FND_API.Compatible_API_Call (l_api_version,
2041: p_api_version ,
2042: l_api_name ,
2043: G_PKG_NAME)
2044: THEN
2041: p_api_version ,
2042: l_api_name ,
2043: G_PKG_NAME)
2044: THEN
2045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2046: END IF;
2047: -- Initialize API message list if necessary.
2048: -- Initialize message list if p_init_msg_list is set to TRUE.
2049: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2046: END IF;
2047: -- Initialize API message list if necessary.
2048: -- Initialize message list if p_init_msg_list is set to TRUE.
2049: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2050: FND_MSG_PUB.initialize;
2051: END IF;
2052:
2053: UPDATE mtl_categories_tl
2069: RAISE NO_DATA_FOUND;
2070: END IF;
2071:
2072: -- Standard check of p_commit.
2073: IF FND_API.To_Boolean( p_commit ) THEN
2074: COMMIT WORK;
2075: END IF;
2076:
2077: x_return_status := FND_API.G_RET_STS_SUCCESS;
2073: IF FND_API.To_Boolean( p_commit ) THEN
2074: COMMIT WORK;
2075: END IF;
2076:
2077: x_return_status := FND_API.G_RET_STS_SUCCESS;
2078: -- Standard call to get message count and if count is 1,
2079: -- get message info.
2080: -- The client will directly display the x_msg_data (which is already
2081: -- translated) if the x_msg_count = 1;
2087: p_data => x_msg_data
2088: );
2089:
2090: EXCEPTION
2091: WHEN FND_API.G_EXC_ERROR THEN
2092: ROLLBACK TO Update_Category_Desc_PUB;
2093: x_return_status := FND_API.G_RET_STS_ERROR;
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => x_msg_count,
2089:
2090: EXCEPTION
2091: WHEN FND_API.G_EXC_ERROR THEN
2092: ROLLBACK TO Update_Category_Desc_PUB;
2093: x_return_status := FND_API.G_RET_STS_ERROR;
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => x_msg_count,
2096: p_data => x_msg_data
2097: );
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => x_msg_count,
2096: p_data => x_msg_data
2097: );
2098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2099: ROLLBACK TO Update_Category_Desc_PUB;
2100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2101: FND_MSG_PUB.Count_And_Get
2102: ( p_count => x_msg_count,
2096: p_data => x_msg_data
2097: );
2098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2099: ROLLBACK TO Update_Category_Desc_PUB;
2100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2101: FND_MSG_PUB.Count_And_Get
2102: ( p_count => x_msg_count,
2103: p_data => x_msg_data
2104: );
2103: p_data => x_msg_data
2104: );
2105: WHEN OTHERS THEN
2106: ROLLBACK TO Update_Category_Desc_PUB;
2107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2108: IF FND_MSG_PUB.Check_Msg_Level
2109: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2110: THEN
2111: FND_MSG_PUB.Add_Exc_Msg
2129:
2130: PROCEDURE Delete_Category
2131: (
2132: p_api_version IN NUMBER ,
2133: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2134: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2135: x_return_status OUT NOCOPY VARCHAR2 ,
2136: x_errorcode OUT NOCOPY NUMBER,
2137: x_msg_count OUT NOCOPY NUMBER ,
2130: PROCEDURE Delete_Category
2131: (
2132: p_api_version IN NUMBER ,
2133: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2134: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2135: x_return_status OUT NOCOPY VARCHAR2 ,
2136: x_errorcode OUT NOCOPY NUMBER,
2137: x_msg_count OUT NOCOPY NUMBER ,
2138: x_msg_data OUT NOCOPY VARCHAR2 ,
2195: -- Standard Start of API savepoint
2196: SAVEPOINT Delete_Category_PUB;
2197:
2198: -- Check for call compatibility.
2199: IF NOT FND_API.Compatible_API_Call (l_api_version,
2200: p_api_version ,
2201: l_api_name ,
2202: G_PKG_NAME)
2203: THEN
2200: p_api_version ,
2201: l_api_name ,
2202: G_PKG_NAME)
2203: THEN
2204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2205: END IF;
2206: -- Initialize API message list if necessary.
2207: -- Initialize message list if p_init_msg_list is set to TRUE.
2208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2205: END IF;
2206: -- Initialize API message list if necessary.
2207: -- Initialize message list if p_init_msg_list is set to TRUE.
2208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2209: FND_MSG_PUB.initialize;
2210: END IF;
2211:
2212: OPEN category_assignment_exists(p_category_id);
2222: fnd_msg_pub.ADD;
2223: IF (l_debug = 1) THEN
2224: mdebug('Cannot delete: Category part of a Category Assignment');
2225: END IF;
2226: RAISE FND_API.G_EXC_ERROR;
2227: END IF;
2228:
2229: OPEN default_category_exists(p_category_id);
2230: FETCH default_category_exists INTO l_default_category_exists;
2239: fnd_msg_pub.ADD;
2240: IF (l_debug = 1) THEN
2241: mdebug('Cannot delete: Category specified is a default category to one of the Category Sets.');
2242: END IF;
2243: RAISE FND_API.G_EXC_ERROR;
2244: END IF;
2245:
2246: OPEN valid_category_exists(p_category_id);
2247: FETCH valid_category_exists INTO l_valid_category_exists;
2256: fnd_msg_pub.ADD;
2257: IF (l_debug = 1) THEN
2258: mdebug('Cannot delete: Category specified is part of a valid category set');
2259: END IF;
2260: RAISE FND_API.G_EXC_ERROR;
2261: END IF;
2262:
2263: delete from mtl_categories_tl
2264: where category_id = p_category_id ;
2287: IF (l_debug = 1) THEN
2288: mdebug('Category deleted successfully: '||p_category_id);
2289: END IF;
2290: -- Standard check of p_commit.
2291: IF FND_API.To_Boolean( p_commit ) THEN
2292: COMMIT WORK;
2293: END IF;
2294:
2295: x_return_status := FND_API.G_RET_STS_SUCCESS;
2291: IF FND_API.To_Boolean( p_commit ) THEN
2292: COMMIT WORK;
2293: END IF;
2294:
2295: x_return_status := FND_API.G_RET_STS_SUCCESS;
2296: -- Standard call to get message count and if count is 1,
2297: -- get message info.
2298: -- The client will directly display the x_msg_data (which is already
2299: -- translated) if the x_msg_count = 1;
2304: ( p_count => x_msg_count,
2305: p_data => x_msg_data
2306: );
2307: EXCEPTION
2308: WHEN FND_API.G_EXC_ERROR THEN
2309: ROLLBACK TO Delete_Category_PUB;
2310: x_return_status := FND_API.G_RET_STS_ERROR;
2311: FND_MSG_PUB.Count_And_Get
2312: ( p_count => x_msg_count,
2306: );
2307: EXCEPTION
2308: WHEN FND_API.G_EXC_ERROR THEN
2309: ROLLBACK TO Delete_Category_PUB;
2310: x_return_status := FND_API.G_RET_STS_ERROR;
2311: FND_MSG_PUB.Count_And_Get
2312: ( p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2311: FND_MSG_PUB.Count_And_Get
2312: ( p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316: ROLLBACK TO Delete_Category_PUB;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2318: FND_MSG_PUB.Count_And_Get
2319: ( p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316: ROLLBACK TO Delete_Category_PUB;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2318: FND_MSG_PUB.Count_And_Get
2319: ( p_count => x_msg_count,
2320: p_data => x_msg_data
2321: );
2320: p_data => x_msg_data
2321: );
2322: WHEN OTHERS THEN
2323: ROLLBACK TO Delete_Category_PUB;
2324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2325: IF FND_MSG_PUB.Check_Msg_Level
2326: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2327: THEN
2328: FND_MSG_PUB.Add_Exc_Msg
2346: ----------------------------------------------------------------------------
2347: PROCEDURE Create_Category_Assignment
2348: (
2349: p_api_version IN NUMBER,
2350: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2351: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2352: x_return_status OUT NOCOPY VARCHAR2,
2353: x_errorcode OUT NOCOPY NUMBER,
2354: x_msg_count OUT NOCOPY NUMBER,
2347: PROCEDURE Create_Category_Assignment
2348: (
2349: p_api_version IN NUMBER,
2350: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2351: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2352: x_return_status OUT NOCOPY VARCHAR2,
2353: x_errorcode OUT NOCOPY NUMBER,
2354: x_msg_count OUT NOCOPY NUMBER,
2355: x_msg_data OUT NOCOPY VARCHAR2,
2383: -- Standard Start of API savepoint
2384: SAVEPOINT Create_Category_Assignment_PUB;
2385:
2386: -- Check for call compatibility.
2387: IF NOT FND_API.Compatible_API_Call (l_api_version,
2388: p_api_version ,
2389: l_api_name ,
2390: G_PKG_NAME)
2391: THEN
2388: p_api_version ,
2389: l_api_name ,
2390: G_PKG_NAME)
2391: THEN
2392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2393: END IF;
2394: -- Initialize API message list if necessary.
2395: -- Initialize message list if p_init_msg_list is set to TRUE.
2396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2393: END IF;
2394: -- Initialize API message list if necessary.
2395: -- Initialize message list if p_init_msg_list is set to TRUE.
2396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2397: FND_MSG_PUB.initialize;
2398: END IF;
2399: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2400:
2424:
2425: IF (l_debug = 1) THEN
2426: mdebug('begin Raise EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT business event');
2427: END IF;
2428: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
2429:
2430: INV_ITEM_EVENTS_PVT.Raise_Events (
2431: p_commit => FND_API.To_Boolean(p_commit)
2432: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
2427: END IF;
2428: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
2429:
2430: INV_ITEM_EVENTS_PVT.Raise_Events (
2431: p_commit => FND_API.To_Boolean(p_commit)
2432: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
2433: ,p_dml_type => 'CREATE'
2434: ,p_inventory_item_id => p_inventory_item_id
2435: ,p_organization_id => p_organization_id
2449: END IF;
2450: END;
2451: --mdebug('Create_Category_Assignment: Done!!');
2452: -- Standard check of p_commit.
2453: IF FND_API.To_Boolean( p_commit ) THEN
2454: COMMIT WORK;
2455: END IF;
2456:
2457: INV_ITEM_MSG.Write_List;
2460: p_data => x_msg_data
2461: );
2462:
2463: EXCEPTION
2464: WHEN FND_API.G_EXC_ERROR THEN
2465: ROLLBACK TO Create_Category_Assignment_PUB;
2466: x_return_status := FND_API.G_RET_STS_ERROR;
2467: FND_MSG_PUB.Count_And_Get
2468: ( p_count => x_msg_count,
2462:
2463: EXCEPTION
2464: WHEN FND_API.G_EXC_ERROR THEN
2465: ROLLBACK TO Create_Category_Assignment_PUB;
2466: x_return_status := FND_API.G_RET_STS_ERROR;
2467: FND_MSG_PUB.Count_And_Get
2468: ( p_count => x_msg_count,
2469: p_data => x_msg_data
2470: );
2467: FND_MSG_PUB.Count_And_Get
2468: ( p_count => x_msg_count,
2469: p_data => x_msg_data
2470: );
2471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2472: ROLLBACK TO Create_Category_Assignment_PUB;
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2474: FND_MSG_PUB.Count_And_Get
2475: ( p_count => x_msg_count,
2469: p_data => x_msg_data
2470: );
2471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2472: ROLLBACK TO Create_Category_Assignment_PUB;
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2474: FND_MSG_PUB.Count_And_Get
2475: ( p_count => x_msg_count,
2476: p_data => x_msg_data
2477: );
2476: p_data => x_msg_data
2477: );
2478: WHEN OTHERS THEN
2479: ROLLBACK TO Create_Category_Assignment_PUB;
2480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2481: IF FND_MSG_PUB.Check_Msg_Level
2482: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2483: THEN
2484: FND_MSG_PUB.Add_Exc_Msg
2499: ----------------------------------------------------------------------------
2500: PROCEDURE Delete_Category_Assignment
2501: (
2502: p_api_version IN NUMBER,
2503: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2504: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2505: x_return_status OUT NOCOPY VARCHAR2,
2506: x_errorcode OUT NOCOPY NUMBER,
2507: x_msg_count OUT NOCOPY NUMBER,
2500: PROCEDURE Delete_Category_Assignment
2501: (
2502: p_api_version IN NUMBER,
2503: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2504: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2505: x_return_status OUT NOCOPY VARCHAR2,
2506: x_errorcode OUT NOCOPY NUMBER,
2507: x_msg_count OUT NOCOPY NUMBER,
2508: x_msg_data OUT NOCOPY VARCHAR2,
2535: -- Standard Start of API savepoint
2536: SAVEPOINT Delete_Category_Assignment_PUB;
2537:
2538: -- Check for call compatibility.
2539: IF NOT FND_API.Compatible_API_Call (l_api_version,
2540: p_api_version ,
2541: l_api_name ,
2542: G_PKG_NAME)
2543: THEN
2540: p_api_version ,
2541: l_api_name ,
2542: G_PKG_NAME)
2543: THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546: -- Initialize API message list if necessary.
2547: -- Initialize message list if p_init_msg_list is set to TRUE.
2548: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546: -- Initialize API message list if necessary.
2547: -- Initialize message list if p_init_msg_list is set to TRUE.
2548: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2549: FND_MSG_PUB.initialize;
2550: END IF;
2551: --Added code for bug 2527058
2552: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2599: mdebug('begin Raise EGO_WF_WRAPPER_PVP.G_ITEM_CAT_ASSIGN_EVENT business event');
2600: END IF;
2601:
2602: dbms_output.put_line('return status: '|| x_return_status);
2603: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
2604: INV_ITEM_EVENTS_PVT.Raise_Events (
2605: p_commit => FND_API.To_Boolean(p_commit)
2606: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
2607: ,p_dml_type => 'DELETE'
2601:
2602: dbms_output.put_line('return status: '|| x_return_status);
2603: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
2604: INV_ITEM_EVENTS_PVT.Raise_Events (
2605: p_commit => FND_API.To_Boolean(p_commit)
2606: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
2607: ,p_dml_type => 'DELETE'
2608: ,p_inventory_item_id => p_inventory_item_id
2609: ,p_organization_id => p_organization_id
2623: END IF;
2624: END;
2625:
2626: -- Standard check of p_commit.
2627: IF FND_API.To_Boolean( p_commit ) THEN
2628: COMMIT WORK;
2629: END IF;
2630:
2631: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
2627: IF FND_API.To_Boolean( p_commit ) THEN
2628: COMMIT WORK;
2629: END IF;
2630:
2631: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
2632: INV_ITEM_MSG.Write_List;
2633: -- Standard call to get message count and if count is 1,
2634: -- get message info.
2635: -- The client will directly display the x_msg_data (which is already
2641: ( p_count => x_msg_count,
2642: p_data => x_msg_data
2643: );
2644: EXCEPTION
2645: WHEN FND_API.G_EXC_ERROR THEN
2646: ROLLBACK TO Delete_Category_Assignment_PUB;
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: FND_MSG_PUB.Count_And_Get
2649: ( p_count => x_msg_count,
2643: );
2644: EXCEPTION
2645: WHEN FND_API.G_EXC_ERROR THEN
2646: ROLLBACK TO Delete_Category_Assignment_PUB;
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: FND_MSG_PUB.Count_And_Get
2649: ( p_count => x_msg_count,
2650: p_data => x_msg_data
2651: );
2648: FND_MSG_PUB.Count_And_Get
2649: ( p_count => x_msg_count,
2650: p_data => x_msg_data
2651: );
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: ROLLBACK TO Delete_Category_Assignment_PUB;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2655: FND_MSG_PUB.Count_And_Get
2656: ( p_count => x_msg_count,
2650: p_data => x_msg_data
2651: );
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: ROLLBACK TO Delete_Category_Assignment_PUB;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2655: FND_MSG_PUB.Count_And_Get
2656: ( p_count => x_msg_count,
2657: p_data => x_msg_data
2658: );
2657: p_data => x_msg_data
2658: );
2659: WHEN OTHERS THEN
2660: ROLLBACK TO Delete_Category_Assignment_PUB;
2661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2662: IF FND_MSG_PUB.Check_Msg_Level
2663: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2664: THEN
2665: FND_MSG_PUB.Add_Exc_Msg
2711: IF x_category_rec.supplier_enabled_flag NOT IN (g_YES,g_MISS_CHAR) THEN -- g_NO is modifed to g_YES for bug#6278190
2712: fnd_message.set_name('INV','INV_NOT_VALID_FLAG');
2713: fnd_message.set_token('COLUMN_NAME', 'SUPPLIER_ENABLED_FLAG');
2714: fnd_msg_pub.ADD;
2715: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2716: IF (l_debug = 1) THEN
2717: mdebug('Invalid supplier enabled flag information provided');
2718: END IF;
2719: END IF;*/
2724: IF x_category_rec.web_status NOT IN (g_YES,g_MISS_CHAR) THEN
2725: fnd_message.set_name('INV','INV_NOT_VALID_FLAG');
2726: fnd_message.set_token('COLUMN_NAME', 'WEB_STATUS');
2727: fnd_msg_pub.ADD;
2728: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2729: IF (l_debug = 1) THEN
2730: mdebug('Invalid web status flag information provided');
2731: END IF;
2732: END IF;
2742: IF (l_debug = 1) THEN
2743: mdebug('No Default purchasing category set provided');
2744: END IF;
2745: CLOSE get_po_structure_id;
2746: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2747: ELSE
2748: IF (l_po_structure_id <> x_category_rec.structure_id) THEN
2749: IF (x_category_rec.supplier_enabled_flag = g_NO) THEN
2750: fnd_message.set_name('INV','INV_SUP_ENABLED_PO_CAT_ONLY');
2759: IF (l_debug = 1) THEN
2760: mdebug('Only purchasing cat can be viewable by supplier');
2761: END IF;
2762: CLOSE get_po_structure_id;
2763: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2764: END IF;
2765: END IF;
2766: CLOSE get_po_structure_id;
2767: END IF; --if flag = 'Y'
2773: -- API to create a valid Category in Category Sets
2774: ----------------------------------------------------------------------------
2775: PROCEDURE Create_Valid_Category(
2776: p_api_version IN NUMBER,
2777: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2778: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2779: p_category_set_id IN NUMBER,
2780: p_category_id IN NUMBER,
2781: p_parent_category_id IN NUMBER,
2774: ----------------------------------------------------------------------------
2775: PROCEDURE Create_Valid_Category(
2776: p_api_version IN NUMBER,
2777: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2778: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2779: p_category_set_id IN NUMBER,
2780: p_category_id IN NUMBER,
2781: p_parent_category_id IN NUMBER,
2782: x_return_status OUT NOCOPY VARCHAR2,
2812: IF l_debug = 1 THEN
2813: mdebug('Create_Valid_Category: Tracing...1');
2814: END IF;
2815: -- Standard Start of API savepoint
2816: IF FND_API.To_Boolean( p_commit ) THEN
2817: SAVEPOINT Create_Valid_Category_PUB;
2818: END IF;
2819: -- Check for call compatibility.
2820: IF NOT FND_API.Compatible_API_Call (l_api_version,
2816: IF FND_API.To_Boolean( p_commit ) THEN
2817: SAVEPOINT Create_Valid_Category_PUB;
2818: END IF;
2819: -- Check for call compatibility.
2820: IF NOT FND_API.Compatible_API_Call (l_api_version,
2821: p_api_version,
2822: l_api_name,
2823: G_PKG_NAME) THEN
2824: IF l_debug = 1 THEN
2823: G_PKG_NAME) THEN
2824: IF l_debug = 1 THEN
2825: mdebug('Create_Valid_Category: Invalid API Call');
2826: END IF;
2827: RAISE FND_API.g_EXC_ERROR;
2828: END IF;
2829: -- Initialize API message list if necessary.
2830: -- Initialize message list if p_init_msg_list is set to TRUE.
2831: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2827: RAISE FND_API.g_EXC_ERROR;
2828: END IF;
2829: -- Initialize API message list if necessary.
2830: -- Initialize message list if p_init_msg_list is set to TRUE.
2831: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2832: FND_MSG_PUB.initialize;
2833: END IF;
2834: IF validate_category_set_params
2835: (p_validation_type => G_INSERT
2878: , SYSDATE
2879: );
2880: ELSE
2881: -- passed parameters are invalid
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884:
2885: -- Standard check of p_commit.
2886: IF FND_API.To_Boolean( p_commit ) THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884:
2885: -- Standard check of p_commit.
2886: IF FND_API.To_Boolean( p_commit ) THEN
2887: COMMIT WORK;
2888: END IF;
2889:
2890: x_return_status := FND_API.G_RET_STS_SUCCESS;
2886: IF FND_API.To_Boolean( p_commit ) THEN
2887: COMMIT WORK;
2888: END IF;
2889:
2890: x_return_status := FND_API.G_RET_STS_SUCCESS;
2891: -- Standard call to get message count and if count is 1,
2892: -- get message info.
2893: -- The client will directly display the x_msg_data (which is already
2894: -- translated) if the x_msg_count = 1;
2900: p_data => x_msg_data
2901: );
2902:
2903: EXCEPTION
2904: WHEN FND_API.G_EXC_ERROR THEN
2905: IF l_debug = 1 THEN
2906: mdebug('Create_Valid_Category: Apps Exception raised');
2907: END IF;
2908: IF FND_API.To_Boolean( p_commit ) THEN
2904: WHEN FND_API.G_EXC_ERROR THEN
2905: IF l_debug = 1 THEN
2906: mdebug('Create_Valid_Category: Apps Exception raised');
2907: END IF;
2908: IF FND_API.To_Boolean( p_commit ) THEN
2909: ROLLBACK TO Create_Valid_Category_PUB;
2910: END IF;
2911: x_return_status := FND_API.G_RET_STS_ERROR;
2912: FND_MSG_PUB.Count_And_Get
2907: END IF;
2908: IF FND_API.To_Boolean( p_commit ) THEN
2909: ROLLBACK TO Create_Valid_Category_PUB;
2910: END IF;
2911: x_return_status := FND_API.G_RET_STS_ERROR;
2912: FND_MSG_PUB.Count_And_Get
2913: ( p_count => x_msg_count,
2914: p_data => x_msg_data
2915: );
2912: FND_MSG_PUB.Count_And_Get
2913: ( p_count => x_msg_count,
2914: p_data => x_msg_data
2915: );
2916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2917: IF l_debug = 1 THEN
2918: mdebug('Create_Valid_Category: Apps Unexpected Error');
2919: END IF;
2920: IF FND_API.To_Boolean( p_commit ) THEN
2916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2917: IF l_debug = 1 THEN
2918: mdebug('Create_Valid_Category: Apps Unexpected Error');
2919: END IF;
2920: IF FND_API.To_Boolean( p_commit ) THEN
2921: ROLLBACK TO Create_Valid_Category_PUB;
2922: END IF;
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2924: FND_MSG_PUB.Count_And_Get
2919: END IF;
2920: IF FND_API.To_Boolean( p_commit ) THEN
2921: ROLLBACK TO Create_Valid_Category_PUB;
2922: END IF;
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2924: FND_MSG_PUB.Count_And_Get
2925: ( p_count => x_msg_count,
2926: p_data => x_msg_data
2927: );
2928: WHEN OTHERS THEN
2929: IF l_debug = 1 THEN
2930: mdebug('Create_Valid_Category: Exception -- OTHERS ');
2931: END IF;
2932: IF FND_API.To_Boolean( p_commit ) THEN
2933: ROLLBACK TO Create_Valid_Category_PUB;
2934: END IF;
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2936: IF FND_MSG_PUB.Check_Msg_Level
2931: END IF;
2932: IF FND_API.To_Boolean( p_commit ) THEN
2933: ROLLBACK TO Create_Valid_Category_PUB;
2934: END IF;
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2936: IF FND_MSG_PUB.Check_Msg_Level
2937: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2938: THEN
2939: FND_MSG_PUB.Add_Exc_Msg
2953: -- API to update a valid Category
2954: ----------------------------------------------------------------------------
2955: PROCEDURE Update_Valid_Category(
2956: p_api_version IN NUMBER,
2957: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2958: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2959: p_category_set_id IN NUMBER,
2960: p_category_id IN NUMBER,
2961: p_parent_category_id IN NUMBER,
2954: ----------------------------------------------------------------------------
2955: PROCEDURE Update_Valid_Category(
2956: p_api_version IN NUMBER,
2957: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2958: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2959: p_category_set_id IN NUMBER,
2960: p_category_id IN NUMBER,
2961: p_parent_category_id IN NUMBER,
2962: x_return_status OUT NOCOPY VARCHAR2,
2988: IF l_debug = 1 THEN
2989: mdebug('Update_Valid_Category: Tracing...1');
2990: END IF;
2991: -- Standard Start of API savepoint
2992: IF FND_API.To_Boolean( p_commit ) THEN
2993: SAVEPOINT Update_Valid_Category_PUB;
2994: END IF;
2995: -- Check for call compatibility.
2996: IF NOT FND_API.Compatible_API_Call (l_api_version,
2992: IF FND_API.To_Boolean( p_commit ) THEN
2993: SAVEPOINT Update_Valid_Category_PUB;
2994: END IF;
2995: -- Check for call compatibility.
2996: IF NOT FND_API.Compatible_API_Call (l_api_version,
2997: p_api_version,
2998: l_api_name,
2999: G_PKG_NAME) THEN
3000: IF l_debug = 1 THEN
2999: G_PKG_NAME) THEN
3000: IF l_debug = 1 THEN
3001: mdebug('Update_Valid_Category: Invalid API call');
3002: END IF;
3003: RAISE FND_API.g_EXC_ERROR;
3004: END IF;
3005: -- Initialize API message list if necessary.
3006: -- Initialize message list if p_init_msg_list is set to TRUE.
3007: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3003: RAISE FND_API.g_EXC_ERROR;
3004: END IF;
3005: -- Initialize API message list if necessary.
3006: -- Initialize message list if p_init_msg_list is set to TRUE.
3007: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3008: FND_MSG_PUB.initialize;
3009: END IF;
3010:
3011: IF validate_category_set_params
3035: mdebug('Update_Valid_Category: Record not available for update');
3036: END IF;
3037: fnd_message.set_name('INV','INV_CATEGORY_UNAVAIL_UPDATE');
3038: fnd_msg_pub.ADD;
3039: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041: ELSE
3042: -- passed parameters are invalid
3043: RAISE FND_API.G_EXC_ERROR;
3039: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
3040: END IF;
3041: ELSE
3042: -- passed parameters are invalid
3043: RAISE FND_API.G_EXC_ERROR;
3044: END IF;
3045: -- Standard check of p_commit.
3046: IF FND_API.To_Boolean( p_commit ) THEN
3047: COMMIT WORK;
3042: -- passed parameters are invalid
3043: RAISE FND_API.G_EXC_ERROR;
3044: END IF;
3045: -- Standard check of p_commit.
3046: IF FND_API.To_Boolean( p_commit ) THEN
3047: COMMIT WORK;
3048: END IF;
3049:
3050: x_return_status := FND_API.G_RET_STS_SUCCESS;
3046: IF FND_API.To_Boolean( p_commit ) THEN
3047: COMMIT WORK;
3048: END IF;
3049:
3050: x_return_status := FND_API.G_RET_STS_SUCCESS;
3051: -- Standard call to get message count and if count is 1,
3052: -- get message info.
3053: -- The client will directly display the x_msg_data (which is already
3054: -- translated) if the x_msg_count = 1;
3060: p_data => x_msg_data
3061: );
3062:
3063: EXCEPTION
3064: WHEN FND_API.G_EXC_ERROR THEN
3065: IF l_debug = 1 THEN
3066: mdebug('Update_Valid_Category: Apps Exception raised');
3067: END IF;
3068: IF FND_API.To_Boolean( p_commit ) THEN
3064: WHEN FND_API.G_EXC_ERROR THEN
3065: IF l_debug = 1 THEN
3066: mdebug('Update_Valid_Category: Apps Exception raised');
3067: END IF;
3068: IF FND_API.To_Boolean( p_commit ) THEN
3069: ROLLBACK TO Update_Valid_Category_PUB;
3070: END IF;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: FND_MSG_PUB.Count_And_Get
3067: END IF;
3068: IF FND_API.To_Boolean( p_commit ) THEN
3069: ROLLBACK TO Update_Valid_Category_PUB;
3070: END IF;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: FND_MSG_PUB.Count_And_Get
3073: ( p_count => x_msg_count,
3074: p_data => x_msg_data
3075: );
3072: FND_MSG_PUB.Count_And_Get
3073: ( p_count => x_msg_count,
3074: p_data => x_msg_data
3075: );
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3077: IF l_debug = 1 THEN
3078: mdebug('Update_Valid_Category: Apps Unexpected Error');
3079: END IF;
3080: IF FND_API.To_Boolean( p_commit ) THEN
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3077: IF l_debug = 1 THEN
3078: mdebug('Update_Valid_Category: Apps Unexpected Error');
3079: END IF;
3080: IF FND_API.To_Boolean( p_commit ) THEN
3081: ROLLBACK TO Update_Valid_Category_PUB;
3082: END IF;
3083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3084: FND_MSG_PUB.Count_And_Get
3079: END IF;
3080: IF FND_API.To_Boolean( p_commit ) THEN
3081: ROLLBACK TO Update_Valid_Category_PUB;
3082: END IF;
3083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3084: FND_MSG_PUB.Count_And_Get
3085: ( p_count => x_msg_count,
3086: p_data => x_msg_data
3087: );
3088: WHEN OTHERS THEN
3089: IF l_debug = 1 THEN
3090: mdebug('Update_Valid_Category: Exception -- OTHERS ');
3091: END IF;
3092: IF FND_API.To_Boolean( p_commit ) THEN
3093: ROLLBACK TO Update_Valid_Category_PUB;
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3096: IF FND_MSG_PUB.Check_Msg_Level
3091: END IF;
3092: IF FND_API.To_Boolean( p_commit ) THEN
3093: ROLLBACK TO Update_Valid_Category_PUB;
3094: END IF;
3095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3096: IF FND_MSG_PUB.Check_Msg_Level
3097: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3098: THEN
3099: FND_MSG_PUB.Add_Exc_Msg
3113: -- API to Delete a valid Category
3114: ----------------------------------------------------------------------------
3115: PROCEDURE Delete_Valid_Category(
3116: p_api_version IN NUMBER,
3117: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3118: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3119: p_category_set_id IN NUMBER,
3120: p_category_id IN NUMBER,
3121: x_return_status OUT NOCOPY VARCHAR2,
3114: ----------------------------------------------------------------------------
3115: PROCEDURE Delete_Valid_Category(
3116: p_api_version IN NUMBER,
3117: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3118: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3119: p_category_set_id IN NUMBER,
3120: p_category_id IN NUMBER,
3121: x_return_status OUT NOCOPY VARCHAR2,
3122: x_errorcode OUT NOCOPY NUMBER,
3211: IF l_debug = 1 THEN
3212: mdebug('Delete_Valid_Category: Tracing...1');
3213: END IF;
3214: -- Standard Start of API savepoint
3215: IF FND_API.To_Boolean( p_commit ) THEN
3216: SAVEPOINT Delete_Valid_Category_PUB;
3217: END IF;
3218: -- Check for call compatibility.
3219: IF NOT FND_API.Compatible_API_Call (l_api_version,
3215: IF FND_API.To_Boolean( p_commit ) THEN
3216: SAVEPOINT Delete_Valid_Category_PUB;
3217: END IF;
3218: -- Check for call compatibility.
3219: IF NOT FND_API.Compatible_API_Call (l_api_version,
3220: p_api_version,
3221: l_api_name,
3222: G_PKG_NAME) THEN
3223: IF l_debug = 1 THEN
3222: G_PKG_NAME) THEN
3223: IF l_debug = 1 THEN
3224: mdebug('Delete_Valid_Category: Invalid API call');
3225: END IF;
3226: RAISE FND_API.G_EXC_ERROR;
3227: END IF;
3228: -- Initialize API message list if necessary.
3229: -- Initialize message list if p_init_msg_list is set to TRUE.
3230: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3226: RAISE FND_API.G_EXC_ERROR;
3227: END IF;
3228: -- Initialize API message list if necessary.
3229: -- Initialize message list if p_init_msg_list is set to TRUE.
3230: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3231: FND_MSG_PUB.initialize;
3232: END IF;
3233:
3234: IF (p_category_set_id IS NULL OR p_category_id IS NULL) THEN
3236: mdebug('Delete_Valid_Category: Mandatory parameters missing');
3237: END IF;
3238: fnd_message.set_name('INV','INV_MISSING_REQUIRED_PARAMETER');
3239: fnd_msg_pub.ADD;
3240: RAISE fnd_api.G_EXC_ERROR;
3241: END IF;
3242:
3243: IF NOT get_category_set_type(p_category_set_id => p_category_set_id
3244: ,p_category_id => p_category_id
3247: mdebug('Delete_Valid_Category: Record not available for deletion');
3248: END IF;
3249: fnd_message.set_name('INV','INV_CATEGORY_UNAVAIL_DELETE');
3250: fnd_msg_pub.ADD;
3251: RAISE fnd_api.g_EXC_ERROR;
3252: END IF;
3253:
3254: -- check if the user tries to delete default cateogy of the category set
3255: IF UPPER(l_hrchy_enabled) = 'Y' THEN
3282: END IF;
3283: fnd_message.set_name('INV','INV_DELETE_DEF_CAT_ERR');
3284: fnd_message.set_token('CATEGORY_NAME', l_description);
3285: fnd_msg_pub.ADD;
3286: RAISE fnd_api.G_EXC_ERROR;
3287: END IF;
3288:
3289: -- check if there are any items associated to the category / category set
3290: IF UPPER(l_hrchy_enabled) = 'Y' THEN
3339: END IF;
3340: fnd_message.set_name('INV','INV_CATEGORY_ITEMS_EXIST');
3341: fnd_message.set_token('CATEGORY_NAME', l_description);
3342: fnd_msg_pub.ADD;
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3345:
3346: -- Standard check of p_commit.
3347: IF FND_API.To_Boolean( p_commit ) THEN
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3345:
3346: -- Standard check of p_commit.
3347: IF FND_API.To_Boolean( p_commit ) THEN
3348: COMMIT WORK;
3349: END IF;
3350:
3351: x_return_status := FND_API.G_RET_STS_SUCCESS;
3347: IF FND_API.To_Boolean( p_commit ) THEN
3348: COMMIT WORK;
3349: END IF;
3350:
3351: x_return_status := FND_API.G_RET_STS_SUCCESS;
3352: -- Standard call to get message count and if count is 1,
3353: -- get message info.
3354: -- The client will directly display the x_msg_data (which is already
3355: -- translated) if the x_msg_count = 1;
3361: p_data => x_msg_data
3362: );
3363:
3364: EXCEPTION
3365: WHEN FND_API.G_EXC_ERROR THEN
3366: IF l_debug = 1 THEN
3367: mdebug('Delete_Valid_Category: Apps Exception raised');
3368: END IF;
3369: IF FND_API.To_Boolean( p_commit ) THEN
3365: WHEN FND_API.G_EXC_ERROR THEN
3366: IF l_debug = 1 THEN
3367: mdebug('Delete_Valid_Category: Apps Exception raised');
3368: END IF;
3369: IF FND_API.To_Boolean( p_commit ) THEN
3370: ROLLBACK TO Delete_Valid_Category_PUB;
3371: END IF;
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: FND_MSG_PUB.Count_And_Get
3368: END IF;
3369: IF FND_API.To_Boolean( p_commit ) THEN
3370: ROLLBACK TO Delete_Valid_Category_PUB;
3371: END IF;
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: FND_MSG_PUB.Count_And_Get
3374: ( p_count => x_msg_count,
3375: p_data => x_msg_data
3376: );
3373: FND_MSG_PUB.Count_And_Get
3374: ( p_count => x_msg_count,
3375: p_data => x_msg_data
3376: );
3377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3378: IF l_debug = 1 THEN
3379: mdebug('Delete_Valid_Category: Apps Unexpected Error');
3380: END IF;
3381: IF FND_API.To_Boolean( p_commit ) THEN
3377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3378: IF l_debug = 1 THEN
3379: mdebug('Delete_Valid_Category: Apps Unexpected Error');
3380: END IF;
3381: IF FND_API.To_Boolean( p_commit ) THEN
3382: ROLLBACK TO Delete_Valid_Category_PUB;
3383: END IF;
3384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3385: FND_MSG_PUB.Count_And_Get
3380: END IF;
3381: IF FND_API.To_Boolean( p_commit ) THEN
3382: ROLLBACK TO Delete_Valid_Category_PUB;
3383: END IF;
3384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3385: FND_MSG_PUB.Count_And_Get
3386: ( p_count => x_msg_count,
3387: p_data => x_msg_data
3388: );
3389: WHEN OTHERS THEN
3390: IF l_debug = 1 THEN
3391: mdebug('Delete_Valid_Category: Exception -- OTHERS ');
3392: END IF;
3393: IF FND_API.To_Boolean( p_commit ) THEN
3394: ROLLBACK TO Delete_Valid_Category_PUB;
3395: END IF;
3396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3397: IF c_get_items_in_cat%ISOPEN THEN
3392: END IF;
3393: IF FND_API.To_Boolean( p_commit ) THEN
3394: ROLLBACK TO Delete_Valid_Category_PUB;
3395: END IF;
3396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3397: IF c_get_items_in_cat%ISOPEN THEN
3398: CLOSE c_get_items_in_cat;
3399: END IF;
3400: IF FND_MSG_PUB.Check_Msg_Level
3451: ,p_class_code_name_value_pairs => NULL
3452: ,p_data_level_name_value_pairs => l_data_column_name_value_pairs
3453: ,p_attr_name_value_pairs => null
3454: ,p_mode => p_mode
3455: ,p_use_def_vals_on_insert => FND_API.G_TRUE
3456: ,x_return_status => x_return_status
3457: ,x_errorcode => x_errorcode
3458: ,x_msg_count => x_msg_count
3459: ,x_msg_data => x_msg_data );
3459: ,x_msg_data => x_msg_data );
3460: EXCEPTION
3461:
3462: WHEN OTHERS THEN
3463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3464: x_msg_data := 'Executing - '||G_PKG_NAME||'.Process_Dml_On_Row '||SQLERRM;
3465:
3466: END Process_Dml_On_Row;
3467:
3512: -- Standard Start of API savepoint
3513: SAVEPOINT Update_Category_Assignment_PUB;
3514:
3515: -- Check for call compatibility.
3516: IF NOT FND_API.Compatible_API_Call (l_api_version,
3517: p_api_version ,
3518: l_api_name ,
3519: G_PKG_NAME)
3520: THEN
3517: p_api_version ,
3518: l_api_name ,
3519: G_PKG_NAME)
3520: THEN
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522: END IF;
3523: -- Initialize API message list if necessary.
3524: -- Initialize message list if p_init_msg_list is set to TRUE.
3525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522: END IF;
3523: -- Initialize API message list if necessary.
3524: -- Initialize message list if p_init_msg_list is set to TRUE.
3525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3526: FND_MSG_PUB.initialize;
3527: END IF;
3528:
3529: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3558: BEGIN
3559: IF (l_debug = 1) THEN
3560: mdebug('begin Raise EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT business event');
3561: END IF;
3562: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
3563: INV_ITEM_EVENTS_PVT.Raise_Events (
3564: p_commit => FND_API.To_Boolean(p_commit)
3565: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
3566: ,p_dml_type => 'UPDATE'
3560: mdebug('begin Raise EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT business event');
3561: END IF;
3562: IF (x_return_status = fnd_api.g_RET_STS_SUCCESS) THEN
3563: INV_ITEM_EVENTS_PVT.Raise_Events (
3564: p_commit => FND_API.To_Boolean(p_commit)
3565: ,p_event_name => 'EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT'
3566: ,p_dml_type => 'UPDATE'
3567: ,p_inventory_item_id => p_inventory_item_id
3568: ,p_organization_id => p_organization_id
3582: mdebug('error occured when Raise EGO_WF_WRAPPER_PVT.G_ITEM_CAT_ASSIGN_EVENT business event');
3583: END IF;
3584: END;
3585: -- Standard check of p_commit.
3586: IF FND_API.To_Boolean( p_commit ) THEN
3587: COMMIT WORK;
3588: END IF;
3589:
3590: --- Bug 6272365 Start
3587: COMMIT WORK;
3588: END IF;
3589:
3590: --- Bug 6272365 Start
3591: --- x_return_status := FND_API.G_RET_STS_SUCCESS;
3592: INV_ITEM_MSG.Write_List;
3593: --- Bug 6272365 End
3594: -- Standard call to get message count and if count is 1,
3595: -- get message info.
3602: ( p_count => x_msg_count,
3603: p_data => x_msg_data
3604: );
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: ROLLBACK TO Update_Category_Assignment_PUB;
3608: x_return_status := FND_API.G_RET_STS_ERROR;
3609: FND_MSG_PUB.Count_And_Get
3610: ( p_count => x_msg_count,
3604: );
3605: EXCEPTION
3606: WHEN FND_API.G_EXC_ERROR THEN
3607: ROLLBACK TO Update_Category_Assignment_PUB;
3608: x_return_status := FND_API.G_RET_STS_ERROR;
3609: FND_MSG_PUB.Count_And_Get
3610: ( p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3609: FND_MSG_PUB.Count_And_Get
3610: ( p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3614: ROLLBACK TO Update_Category_Assignment_PUB;
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3616: FND_MSG_PUB.Count_And_Get
3617: ( p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3614: ROLLBACK TO Update_Category_Assignment_PUB;
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3616: FND_MSG_PUB.Count_And_Get
3617: ( p_count => x_msg_count,
3618: p_data => x_msg_data
3619: );
3618: p_data => x_msg_data
3619: );
3620: WHEN OTHERS THEN
3621: ROLLBACK TO Update_Category_Assignment_PUB;
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3623: IF FND_MSG_PUB.Check_Msg_Level
3624: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3625: THEN
3626: FND_MSG_PUB.Add_Exc_Msg
3695: fnd_msg_pub.ADD;
3696: IF (l_debug = 1) THEN
3697: mdebug('Delimiter is NULL...Error');
3698: END IF;
3699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3700: END IF;
3701:
3702: l_indx := 1;
3703: FOR c_segments in c_get_segments(l_structure_id) LOOP
3764: structure_number => l_structure_id,
3765: concat_segments => l_concat_segs
3766: );
3767: IF l_success THEN
3768: x_return_status := FND_API.G_RET_STS_SUCCESS;
3769: x_category_id := FND_FLEX_KEYVAL.combination_id;
3770: ELSE
3771:
3772: x_msg_data := FND_FLEX_KEYVAL.error_message;
3773: FND_MESSAGE.Set_Name('FND','FLEX-NO DYNAMIC INSERTS');
3774: l_msg_text := FND_MESSAGE.Get();
3775:
3776: IF (INSTR(x_msg_data,l_msg_text) > 0) THEN
3777: x_return_status := FND_API.G_RET_STS_SUCCESS;
3778: x_category_id := -1;
3779: ELSE
3780: x_return_status := FND_API.G_RET_STS_ERROR;
3781: END IF;
3776: IF (INSTR(x_msg_data,l_msg_text) > 0) THEN
3777: x_return_status := FND_API.G_RET_STS_SUCCESS;
3778: x_category_id := -1;
3779: ELSE
3780: x_return_status := FND_API.G_RET_STS_ERROR;
3781: END IF;
3782:
3783: END IF;
3784: EXCEPTION
3782:
3783: END IF;
3784: EXCEPTION
3785: WHEN OTHERS THEN
3786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3787: x_msg_data := 'Executing - '||G_PKG_NAME||'.get_category_id_from_cat_rec: '||SQLERRM;
3788:
3789: END Get_Category_Id_From_Cat_Rec;
3790: