[Home] [Help]
262: mdebug('Validate Params: Missing reqd parameter');
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. ');
277: IF l_debug = 1 THEN
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');
300: 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');
321: IF l_debug = 1 THEN
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 ');
347: IF l_debug = 1 THEN
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 ');
370: IF l_debug = 1 THEN
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
387: fnd_message.set_name('INV','INV_INVALID_PARAMETER');
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 ');
433: fnd_message.set_name('INV','INV_INVALID_PARAMETER');
434: fnd_message.set_token('PARAM_NAME', 'PARENT_CATEGORY_ID');
435: fnd_message.set_token('PROGRAM_NAME',
436: G_PKG_NAME||'.'||p_calling_api);
437: fnd_msg_pub.ADD;
438: END IF; -- l_count = 0
439: ELSE
440: -- the passed parent is the default category id
441: l_valid := FALSE;
442: IF l_debug = 1 THEN
443: mdebug('Validate Params: Cannot take parent as default category id ');
444: END IF;
445: fnd_message.set_name('INV','INV_DEFAULT_CATEGORY_ADD_ERR');
446: fnd_msg_pub.ADD;
447: END IF; -- l_coount = 0
448: END IF; -- p_parent_category_id IS NULL
449: ELSE
450: -- category hierarchy is disabled
454: IF l_debug = 1 THEN
455: mdebug('Validate Params: Do not pass Parent Category Id ');
456: END IF;
457: fnd_message.set_name('INV','INV_UNWANTED_PARENT_CAT');
458: fnd_msg_pub.ADD;
459: ELSE
460: -- parent category_id should be NULL
461: IF l_debug = 1 THEN
462: mdebug('Validate Params: Parent category id is null for hierarchy disabled ');
471: END IF;
472: fnd_message.set_name('INV','INV_INVALID_PARAMETER');
473: fnd_message.set_token('PARAM_NAME', 'CATEGORY_SET_ID');
474: fnd_message.set_token('PROGRAM_NAME', G_PKG_NAME||'.'||p_calling_api);
475: fnd_msg_pub.ADD;
476: END IF;
477: IF l_debug = 1 THEN
478: mdebug('Validate Params: Returning without exceptions');
479: END IF;
690:
691: IF (get_structure_id%NOTFOUND) THEN
692: fnd_message.set_name('INV','FLEX-NO MAIN KEY FLEX DEF');
693: fnd_message.set_token('ROUTINE', 'Preprocess_Category_Rec');
694: fnd_msg_pub.ADD;
695: IF (l_debug = 1) THEN
696: mdebug('ERR: No Product Categories structure');
697: END IF;
698: CLOSE get_structure_id;
720: x_category_rec.structure_id IS NULL) AND
721: ( x_category_rec.structure_code = g_MISS_CHAR OR
722: x_category_rec.structure_code IS NULL) THEN
723: fnd_message.set_name('INV','INV_FLEX_STRUCTURE_REQ');
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;
740:
741: IF (get_structure_id%NOTFOUND) THEN
742: fnd_message.set_name('INV','FLEX-NO MAIN KEY FLEX DEF');
743: fnd_message.set_token('ROUTINE', 'Preprocess_Category_Rec');
744: fnd_msg_pub.ADD;
745: IF (l_debug = 1) THEN
746: mdebug('ERR: Invalid Flex Structure information provided');
747: END IF;
748: CLOSE get_structure_id;
757: FETCH validate_structure_id INTO l_flexstr_exists;
758: IF (validate_structure_id%NOTFOUND) THEN
759: fnd_message.set_name('INV','FLEX-NO MAIN KEY FLEX DEF');
760: fnd_message.set_token('ROUTINE', 'Preprocess_Category_Rec');
761: fnd_msg_pub.ADD;
762: IF (l_debug = 1) THEN
763: mdebug('Invalid Flex Structure information provided');
764: END IF;
765: CLOSE validate_structure_id;
773: /* Bug 5474569 Start */
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:
956:
957: IF (x_category_rec.category_id = g_MISS_NUM OR
958: x_category_rec.category_id IS NULL) THEN
959: fnd_message.set_name('INV','INV_NO_CATEGORY');
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;
972: FETCH get_category_structure_id INTO x_category_rec.structure_id;
973: IF (get_category_structure_id%NOTFOUND) THEN
974: fnd_message.set_name('INV','FLEX-NO MAIN KEY FLEX DEF');
975: fnd_message.set_token('ROUTINE', 'Preprocess_Category_Rec');
976: fnd_msg_pub.ADD;
977: IF (l_debug = 1) THEN
978: mdebug('Invalid Flex Structure information provided');
979: END IF;
980: CLOSE get_category_structure_id;
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;
999: FETCH get_structure_id INTO x_category_rec.structure_id;
1000: IF (get_structure_id%NOTFOUND) THEN
1001: fnd_message.set_name('INV','FLEX-NO MAIN KEY FLEX DEF');
1002: fnd_message.set_token('ROUTINE', 'Preprocess_Category_Rec');
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;
1015: /* Bug 5474569 Start */
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:
1070: l_category_rec.attribute15;
1071:
1072: IF (category_rec_cursor%NOTFOUND) THEN
1073: fnd_message.set_name('INV','INV_VALID_CAT');
1074: fnd_msg_pub.ADD;
1075: IF (l_debug = 1) THEN
1076: mdebug('Invalid Category Id provided');
1077: END IF;
1078: CLOSE category_rec_cursor;
1309: ELSE
1310: l_trim_str := FND_FLEX_KEYVAL.error_message;
1311: fnd_message.set_name('FND','FLEX-SSV EXCEPTION');
1312: fnd_message.set_token('MSG', 'Value set validation error in ValueSet_Validate()');
1313: fnd_msg_pub.ADD;
1314: IF (l_debug = 1) THEN
1315: mdebug('ValueSet Validation Error : '||l_trim_str);
1316: END IF;
1317:
1373: G_CAT_FLEX_CODE,
1374: l_structure_id);
1375: IF l_delim is NULL then
1376: fnd_message.set_name('OFA','FA_BUDGET_NO_SEG_DELIM');
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;
1487: IF (p_operation = G_INSERT) THEN
1488:
1489: fnd_message.set_name('INV','INV_NEW_ENT');
1490: fnd_message.set_token('TOKEN', 'Category Segment Combination');
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;
1498: IF (FND_FLEX_KEYVAL.combination_id <>
1499: p_category_rec.category_id) THEN
1500: fnd_message.set_name('INV','INV_NEW_ENT');
1501: fnd_message.set_token('TOKEN', 'Category segment combination. Specified Combination used by another Category.');
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;
1542: --------------------------------------------------------- */
1543:
1544: ELSIF (p_operation = G_UPDATE) THEN
1545: fnd_message.set_name('INV','INV_VALID_CAT');
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;
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
1626: mdebug('Tracing....1');
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;
1742: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1743: -- Server-side procedure to access the messages, and consolidate them
1744: -- and display (or) to display one message after another.
1745: IF (l_debug = 1) THEN
1746: mdebug('Tracing....11');
1744: -- and display (or) to display one message after another.
1745: IF (l_debug = 1) THEN
1746: mdebug('Tracing....11');
1747: END IF;
1748: FND_MSG_PUB.Count_And_Get
1749: ( p_count => x_msg_count,
1750: p_data => x_msg_data
1751: );
1752: EXCEPTION
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: );
1763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
1773: WHEN OTHERS THEN
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
1783: ( G_PKG_NAME ,
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
1783: ( G_PKG_NAME ,
1784: l_api_name
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
1783: ( G_PKG_NAME ,
1784: l_api_name
1785: );
1786: END IF;
1783: ( G_PKG_NAME ,
1784: l_api_name
1785: );
1786: END IF;
1787: FND_MSG_PUB.Count_And_Get
1788: ( p_count => x_msg_count,
1789: p_data => x_msg_data
1790: );
1791:
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
1855: mdebug('Tracing....1');
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;
1955: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1956: -- Server-side procedure to access the messages, and consolidate them
1957: -- and display (or) to display one message after another.
1958: FND_MSG_PUB.Count_And_Get
1959: ( p_count => x_msg_count,
1954: -- translated) if the x_msg_count = 1;
1955: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1956: -- Server-side procedure to access the messages, and consolidate them
1957: -- and display (or) to display one message after another.
1958: FND_MSG_PUB.Count_And_Get
1959: ( p_count => x_msg_count,
1960: p_data => x_msg_data
1961: );
1962: EXCEPTION
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: );
1970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
1977: WHEN OTHERS THEN
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
1984: ( G_PKG_NAME ,
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
1984: ( G_PKG_NAME ,
1985: l_api_name
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
1984: ( G_PKG_NAME ,
1985: l_api_name
1986: );
1987: END IF;
1984: ( G_PKG_NAME ,
1985: l_api_name
1986: );
1987: END IF;
1988: FND_MSG_PUB.Count_And_Get
1989: ( p_count => x_msg_count,
1990: p_data => x_msg_data
1991: );
1992:
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
2054: SET
2061: AND userenv('LANG') IN (language, source_lang) ;
2062:
2063: IF (sql%notfound) THEN
2064: fnd_message.set_name('INV','INV_VALID_CAT');
2065: fnd_msg_pub.ADD;
2066: IF (l_debug = 1) THEN
2067: mdebug('Trying to Update a non-existant Category.');
2068: END IF;
2069: RAISE NO_DATA_FOUND;
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;
2082: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2083: -- Server-side procedure to access the messages, and consolidate them
2084: -- and display (or) to display one message after another.
2085: FND_MSG_PUB.Count_And_Get
2086: ( p_count => x_msg_count,
2081: -- translated) if the x_msg_count = 1;
2082: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2083: -- Server-side procedure to access the messages, and consolidate them
2084: -- and display (or) to display one message after another.
2085: FND_MSG_PUB.Count_And_Get
2086: ( p_count => x_msg_count,
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,
2096: p_data => x_msg_data
2097: );
2098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
2105: WHEN OTHERS THEN
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
2112: ( G_PKG_NAME ,
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
2112: ( G_PKG_NAME ,
2113: l_api_name
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
2112: ( G_PKG_NAME ,
2113: l_api_name
2114: );
2115: END IF;
2112: ( G_PKG_NAME ,
2113: l_api_name
2114: );
2115: END IF;
2116: FND_MSG_PUB.Count_And_Get
2117: ( p_count => x_msg_count,
2118: p_data => x_msg_data
2119: );
2120:
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);
2213: FETCH category_assignment_exists INTO l_category_assignment_exists;
2218: END IF;
2219: CLOSE category_assignment_exists;
2220: IF (l_category_assignment_exists = 'x') THEN
2221: fnd_message.set_name('INV','INV_CATEGORY_ASSIGNED');
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;
2235: END IF;
2236: CLOSE default_category_exists;
2237: IF (l_default_category_exists = 'x') THEN
2238: fnd_message.set_name('INV','INV_CATEGORY_DEFAULT');
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;
2252: END IF;
2253: CLOSE valid_category_exists;
2254: IF (l_valid_category_exists = 'x') THEN
2255: fnd_message.set_name('INV','INV_CATEGORY_IN_USE');
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;
2264: where category_id = p_category_id ;
2265:
2266: if (sql%notfound) then
2267: fnd_message.set_name('INV','INV_VALID_CAT');
2268: fnd_msg_pub.ADD;
2269: IF (l_debug = 1) THEN
2270: mdebug('Trying to delete non-existant Category Id from MTL_CATEGORIES_TL.');
2271: END IF;
2272: RAISE NO_DATA_FOUND;
2276: where category_id = p_category_id ;
2277:
2278: if (sql%notfound) then
2279: fnd_message.set_name('INV','INV_VALID_CAT');
2280: fnd_msg_pub.ADD;
2281: IF (l_debug = 1) THEN
2282: mdebug('Trying to delete non-existant Category Id from MTL_CATEGORIES_B.');
2283: END IF;
2284: RAISE NO_DATA_FOUND;
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;
2300: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2301: -- Server-side procedure to access the messages, and consolidate them
2302: -- and display (or) to display one message after another.
2303: FND_MSG_PUB.Count_And_Get
2304: ( p_count => x_msg_count,
2299: -- translated) if the x_msg_count = 1;
2300: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2301: -- Server-side procedure to access the messages, and consolidate them
2302: -- and display (or) to display one message after another.
2303: FND_MSG_PUB.Count_And_Get
2304: ( p_count => x_msg_count,
2305: p_data => x_msg_data
2306: );
2307: EXCEPTION
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: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
2322: WHEN OTHERS THEN
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
2329: ( G_PKG_NAME ,
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
2329: ( G_PKG_NAME ,
2330: l_api_name
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
2329: ( G_PKG_NAME ,
2330: l_api_name
2331: );
2332: END IF;
2329: ( G_PKG_NAME ,
2330: l_api_name
2331: );
2332: END IF;
2333: FND_MSG_PUB.Count_And_Get
2334: ( p_count => x_msg_count,
2335: p_data => x_msg_data
2336: );
2337:
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:
2401: IF FND_MSG_PUB.Check_Msg_Level
2397: FND_MSG_PUB.initialize;
2398: END IF;
2399: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2400:
2401: IF FND_MSG_PUB.Check_Msg_Level
2402: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2403: THEN
2404: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2405: END IF;
2398: END IF;
2399: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2400:
2401: IF FND_MSG_PUB.Check_Msg_Level
2402: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2403: THEN
2404: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2405: END IF;
2406:
2454: COMMIT WORK;
2455: END IF;
2456:
2457: INV_ITEM_MSG.Write_List;
2458: FND_MSG_PUB.Count_And_Get
2459: ( p_count => x_msg_count,
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,
2469: p_data => x_msg_data
2470: );
2471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
2478: WHEN OTHERS THEN
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
2485: ( G_PKG_NAME ,
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
2485: ( G_PKG_NAME ,
2486: l_api_name
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
2485: ( G_PKG_NAME ,
2486: l_api_name
2487: );
2488: END IF;
2485: ( G_PKG_NAME ,
2486: l_api_name
2487: );
2488: END IF;
2489: FND_MSG_PUB.Count_And_Get
2490: ( p_count => x_msg_count,
2491: p_data => x_msg_data
2492: );
2493:
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');
2553:
2550: END IF;
2551: --Added code for bug 2527058
2552: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2553:
2554: IF FND_MSG_PUB.Check_Msg_Level
2555: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2556: THEN
2557: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2558: END IF;
2551: --Added code for bug 2527058
2552: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2553:
2554: IF FND_MSG_PUB.Check_Msg_Level
2555: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2556: THEN
2557: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2558: END IF;
2559:
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
2636: -- translated) if the x_msg_count = 1;
2637: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2638: -- Server-side procedure to access the messages, and consolidate them
2639: -- and display (or) to display one message after another.
2640: FND_MSG_PUB.Count_And_Get
2641: ( p_count => x_msg_count,
2636: -- translated) if the x_msg_count = 1;
2637: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2638: -- Server-side procedure to access the messages, and consolidate them
2639: -- and display (or) to display one message after another.
2640: FND_MSG_PUB.Count_And_Get
2641: ( p_count => x_msg_count,
2642: p_data => x_msg_data
2643: );
2644: EXCEPTION
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: );
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
2659: WHEN OTHERS THEN
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
2666: ( G_PKG_NAME ,
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
2666: ( G_PKG_NAME ,
2667: l_api_name
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
2666: ( G_PKG_NAME ,
2667: l_api_name
2668: );
2669: END IF;
2666: ( G_PKG_NAME ,
2667: l_api_name
2668: );
2669: END IF;
2670: FND_MSG_PUB.Count_And_Get
2671: ( p_count => x_msg_count,
2672: p_data => x_msg_data
2673: );
2674:
2710: /* Bug 11787356. Comment out following IF condition. We should allow 'Y', 'N' and NULL as the values of SUPPLIER_ENABLED_FLAG.
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;
2723: /*Bug: 4494727 Commenting out the following IF condition
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;
2737: OPEN get_po_structure_id;
2738: FETCH get_po_structure_id INTO l_po_structure_id;
2739: IF (get_po_structure_id%NOTFOUND) THEN
2740: fnd_message.set_name('INV','INV_NO_DEFAULT_CSET');
2741: fnd_msg_pub.ADD;
2742: IF (l_debug = 1) THEN
2743: mdebug('No Default purchasing category set provided');
2744: END IF;
2745: CLOSE get_po_structure_id;
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');
2751: fnd_msg_pub.ADD;
2752: END IF;
2753: /*Bug: 4494727 Commenting out the following IF condition
2754: IF (x_category_rec.web_status = g_YES) THEN
2755: fnd_message.set_name('INV','INV_CAT_ENABLED_PO_CAT_ONLY');
2752: END IF;
2753: /*Bug: 4494727 Commenting out the following IF condition
2754: IF (x_category_rec.web_status = g_YES) THEN
2755: fnd_message.set_name('INV','INV_CAT_ENABLED_PO_CAT_ONLY');
2756: fnd_msg_pub.ADD;
2757: END IF;
2758: */
2759: IF (l_debug = 1) THEN
2760: mdebug('Only purchasing cat can be viewable by supplier');
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
2836: ,p_category_set_id => p_category_set_id
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;
2895: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2896: -- Server-side procedure to access the messages, and consolidate them
2897: -- and display (or) to display one message after another.
2898: FND_MSG_PUB.Count_And_Get
2899: ( p_count => x_msg_count,
2894: -- translated) if the x_msg_count = 1;
2895: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2896: -- Server-side procedure to access the messages, and consolidate them
2897: -- and display (or) to display one message after another.
2898: FND_MSG_PUB.Count_And_Get
2899: ( p_count => x_msg_count,
2900: p_data => x_msg_data
2901: );
2902:
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: );
2916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
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
2940: ( G_PKG_NAME ,
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
2940: ( G_PKG_NAME ,
2941: l_api_name
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
2940: ( G_PKG_NAME ,
2941: l_api_name
2942: );
2943: END IF;
2940: ( G_PKG_NAME ,
2941: l_api_name
2942: );
2943: END IF;
2944: FND_MSG_PUB.Count_And_Get
2945: ( p_count => x_msg_count,
2946: p_data => x_msg_data
2947: );
2948: END Create_Valid_Category;
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
3012: (p_validation_type => G_UPDATE
3034: IF l_debug = 1 THEN
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
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;
3055: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3056: -- Server-side procedure to access the messages, and consolidate them
3057: -- and display (or) to display one message after another.
3058: FND_MSG_PUB.Count_And_Get
3059: ( p_count => x_msg_count,
3054: -- translated) if the x_msg_count = 1;
3055: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3056: -- Server-side procedure to access the messages, and consolidate them
3057: -- and display (or) to display one message after another.
3058: FND_MSG_PUB.Count_And_Get
3059: ( p_count => x_msg_count,
3060: p_data => x_msg_data
3061: );
3062:
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: );
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
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
3100: ( G_PKG_NAME ,
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
3100: ( G_PKG_NAME ,
3101: l_api_name
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
3100: ( G_PKG_NAME ,
3101: l_api_name
3102: );
3103: END IF;
3100: ( G_PKG_NAME ,
3101: l_api_name
3102: );
3103: END IF;
3104: FND_MSG_PUB.Count_And_Get
3105: ( p_count => x_msg_count,
3106: p_data => x_msg_data
3107: );
3108: END Update_Valid_Category;
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
3235: IF l_debug = 1 THEN
3235: IF l_debug = 1 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
3246: IF l_debug = 1 THEN
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
3281: l_description := NULL;
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
3338: l_description := NULL;
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.
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;
3356: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3357: -- Server-side procedure to access the messages, and consolidate them
3358: -- and display (or) to display one message after another.
3359: FND_MSG_PUB.Count_And_Get
3360: ( p_count => x_msg_count,
3355: -- translated) if the x_msg_count = 1;
3356: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3357: -- Server-side procedure to access the messages, and consolidate them
3358: -- and display (or) to display one message after another.
3359: FND_MSG_PUB.Count_And_Get
3360: ( p_count => x_msg_count,
3361: p_data => x_msg_data
3362: );
3363:
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: );
3377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
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
3401: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3402: THEN
3403: FND_MSG_PUB.Add_Exc_Msg
3404: ( G_PKG_NAME ,
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
3401: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3402: THEN
3403: FND_MSG_PUB.Add_Exc_Msg
3404: ( G_PKG_NAME ,
3405: l_api_name
3399: END IF;
3400: IF FND_MSG_PUB.Check_Msg_Level
3401: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3402: THEN
3403: FND_MSG_PUB.Add_Exc_Msg
3404: ( G_PKG_NAME ,
3405: l_api_name
3406: );
3407: END IF;
3404: ( G_PKG_NAME ,
3405: l_api_name
3406: );
3407: END IF;
3408: FND_MSG_PUB.Count_And_Get
3409: ( p_count => x_msg_count,
3410: p_data => x_msg_data
3411: );
3412: END Delete_Valid_Category;
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');
3530:
3527: END IF;
3528:
3529: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3530:
3531: IF FND_MSG_PUB.Check_Msg_Level
3532: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3533: THEN
3534: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
3535: END IF;
3528:
3529: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3530:
3531: IF FND_MSG_PUB.Check_Msg_Level
3532: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3533: THEN
3534: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
3535: END IF;
3536:
3594: -- Standard call to get message count and if count is 1,
3595: -- get message info.
3596: -- The client will directly display the x_msg_data (which is already
3597: -- translated) if the x_msg_count = 1;
3598: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3599: -- Server-side procedure to access the messages, and consolidate them
3600: -- and display (or) to display one message after another.
3601: FND_MSG_PUB.Count_And_Get
3602: ( p_count => x_msg_count,
3597: -- translated) if the x_msg_count = 1;
3598: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3599: -- Server-side procedure to access the messages, and consolidate them
3600: -- and display (or) to display one message after another.
3601: FND_MSG_PUB.Count_And_Get
3602: ( p_count => x_msg_count,
3603: p_data => x_msg_data
3604: );
3605: EXCEPTION
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: );
3613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
3620: WHEN OTHERS THEN
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
3627: ( G_PKG_NAME ,
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
3627: ( G_PKG_NAME ,
3628: l_api_name
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
3627: ( G_PKG_NAME ,
3628: l_api_name
3629: );
3630: END IF;
3627: ( G_PKG_NAME ,
3628: l_api_name
3629: );
3630: END IF;
3631: FND_MSG_PUB.Count_And_Get
3632: ( p_count => x_msg_count,
3633: p_data => x_msg_data
3634: );
3635:
3691: G_CAT_FLEX_CODE,
3692: l_structure_id);
3693: IF l_delim is NULL then
3694: fnd_message.set_name('OFA','FA_BUDGET_NO_SEG_DELIM');
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;