[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;
1290: ELSE
1291: l_trim_str := FND_FLEX_KEYVAL.error_message;
1292: fnd_message.set_name('FND','FLEX-SSV EXCEPTION');
1293: fnd_message.set_token('MSG', 'Value set validation error in ValueSet_Validate()');
1294: fnd_msg_pub.ADD;
1295: IF (l_debug = 1) THEN
1296: mdebug('ValueSet Validation Error : '||l_trim_str);
1297: END IF;
1298:
1354: G_CAT_FLEX_CODE,
1355: l_structure_id);
1356: IF l_delim is NULL then
1357: fnd_message.set_name('OFA','FA_BUDGET_NO_SEG_DELIM');
1358: fnd_msg_pub.ADD;
1359: IF (l_debug = 1) THEN
1360: mdebug('Delimiter is NULL...Error');
1361: END IF;
1362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: IF (p_operation = G_INSERT) THEN
1469:
1470: fnd_message.set_name('INV','INV_NEW_ENT');
1471: fnd_message.set_token('TOKEN', 'Category Segment Combination');
1472: fnd_msg_pub.ADD;
1473: IF (l_debug = 1) THEN
1474: mdebug('CCID already exists => '|| To_char(FND_FLEX_KEYVAL.combination_id));
1475: END IF;
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: IF (FND_FLEX_KEYVAL.combination_id <>
1480: p_category_rec.category_id) THEN
1481: fnd_message.set_name('INV','INV_NEW_ENT');
1482: fnd_message.set_token('TOKEN', 'Category segment combination. Specified Combination used by another Category.');
1483: fnd_msg_pub.ADD;
1484: IF (l_debug = 1) THEN
1485: mdebug( 'Code combination already used for another category');
1486: END IF;
1487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1523: --------------------------------------------------------- */
1524:
1525: ELSIF (p_operation = G_UPDATE) THEN
1526: fnd_message.set_name('INV','INV_VALID_CAT');
1527: fnd_msg_pub.ADD;
1528: IF (l_debug = 1) THEN
1529: mdebug('Trying to update a non-existant ROW');
1530: END IF;
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1599: END IF;
1600: -- Initialize API message list if necessary.
1601: -- Initialize message list if p_init_msg_list is set to TRUE.
1602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1603: FND_MSG_PUB.initialize;
1604: END IF;
1605:
1606: IF (l_debug = 1) THEN
1607: mdebug('Tracing....1');
1719: -- Standard call to get message count and if count is 1,
1720: -- get message info.
1721: -- The client will directly display the x_msg_data (which is already
1722: -- translated) if the x_msg_count = 1;
1723: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1724: -- Server-side procedure to access the messages, and consolidate them
1725: -- and display (or) to display one message after another.
1726: IF (l_debug = 1) THEN
1727: mdebug('Tracing....11');
1725: -- and display (or) to display one message after another.
1726: IF (l_debug = 1) THEN
1727: mdebug('Tracing....11');
1728: END IF;
1729: FND_MSG_PUB.Count_And_Get
1730: ( p_count => x_msg_count,
1731: p_data => x_msg_data
1732: );
1733: EXCEPTION
1736: mdebug('Ending : Returning ERROR');
1737: END IF;
1738: ROLLBACK TO Create_Category_PUB;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1740: FND_MSG_PUB.Count_And_Get
1741: ( p_count => x_msg_count,
1742: p_data => x_msg_data
1743: );
1744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1746: IF (l_debug = 1) THEN
1747: mdebug('Ending : Returning UNEXPECTED ERROR');
1748: END IF;
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1750: FND_MSG_PUB.Count_And_Get
1751: ( p_count => x_msg_count,
1752: p_data => x_msg_data
1753: );
1754: WHEN OTHERS THEN
1756: IF (l_debug = 1) THEN
1757: mdebug('Ending : Returning UNEXPECTED ERROR');
1758: END IF;
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1757: mdebug('Ending : Returning UNEXPECTED ERROR');
1758: END IF;
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1765: l_api_name
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1765: l_api_name
1766: );
1767: END IF;
1764: ( G_PKG_NAME ,
1765: l_api_name
1766: );
1767: END IF;
1768: FND_MSG_PUB.Count_And_Get
1769: ( p_count => x_msg_count,
1770: p_data => x_msg_data
1771: );
1772:
1828: END IF;
1829: -- Initialize API message list if necessary.
1830: -- Initialize message list if p_init_msg_list is set to TRUE.
1831: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1832: FND_MSG_PUB.initialize;
1833: END IF;
1834:
1835: IF (l_debug = 1) THEN
1836: mdebug('Tracing....1');
1932: -- Standard call to get message count and if count is 1,
1933: -- get message info.
1934: -- The client will directly display the x_msg_data (which is already
1935: -- translated) if the x_msg_count = 1;
1936: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1937: -- Server-side procedure to access the messages, and consolidate them
1938: -- and display (or) to display one message after another.
1939: FND_MSG_PUB.Count_And_Get
1940: ( p_count => x_msg_count,
1935: -- translated) if the x_msg_count = 1;
1936: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
1937: -- Server-side procedure to access the messages, and consolidate them
1938: -- and display (or) to display one message after another.
1939: FND_MSG_PUB.Count_And_Get
1940: ( p_count => x_msg_count,
1941: p_data => x_msg_data
1942: );
1943: EXCEPTION
1943: EXCEPTION
1944: WHEN FND_API.G_EXC_ERROR THEN
1945: ROLLBACK TO Update_Category_PUB;
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: FND_MSG_PUB.Count_And_Get
1948: ( p_count => x_msg_count,
1949: p_data => x_msg_data
1950: );
1951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1950: );
1951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1952: ROLLBACK TO Update_Category_PUB;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1954: FND_MSG_PUB.Count_And_Get
1955: ( p_count => x_msg_count,
1956: p_data => x_msg_data
1957: );
1958: WHEN OTHERS THEN
1957: );
1958: WHEN OTHERS THEN
1959: ROLLBACK TO Update_Category_PUB;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.Check_Msg_Level
1962: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1963: THEN
1964: FND_MSG_PUB.Add_Exc_Msg
1965: ( G_PKG_NAME ,
1958: WHEN OTHERS THEN
1959: ROLLBACK TO Update_Category_PUB;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.Check_Msg_Level
1962: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1963: THEN
1964: FND_MSG_PUB.Add_Exc_Msg
1965: ( G_PKG_NAME ,
1966: l_api_name
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.Check_Msg_Level
1962: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1963: THEN
1964: FND_MSG_PUB.Add_Exc_Msg
1965: ( G_PKG_NAME ,
1966: l_api_name
1967: );
1968: END IF;
1965: ( G_PKG_NAME ,
1966: l_api_name
1967: );
1968: END IF;
1969: FND_MSG_PUB.Count_And_Get
1970: ( p_count => x_msg_count,
1971: p_data => x_msg_data
1972: );
1973:
2027: END IF;
2028: -- Initialize API message list if necessary.
2029: -- Initialize message list if p_init_msg_list is set to TRUE.
2030: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033:
2034: UPDATE mtl_categories_tl
2035: SET
2042: AND userenv('LANG') IN (language, source_lang) ;
2043:
2044: IF (sql%notfound) THEN
2045: fnd_message.set_name('INV','INV_VALID_CAT');
2046: fnd_msg_pub.ADD;
2047: IF (l_debug = 1) THEN
2048: mdebug('Trying to Update a non-existant Category.');
2049: END IF;
2050: RAISE NO_DATA_FOUND;
2059: -- Standard call to get message count and if count is 1,
2060: -- get message info.
2061: -- The client will directly display the x_msg_data (which is already
2062: -- translated) if the x_msg_count = 1;
2063: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2064: -- Server-side procedure to access the messages, and consolidate them
2065: -- and display (or) to display one message after another.
2066: FND_MSG_PUB.Count_And_Get
2067: ( p_count => x_msg_count,
2062: -- translated) if the x_msg_count = 1;
2063: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2064: -- Server-side procedure to access the messages, and consolidate them
2065: -- and display (or) to display one message after another.
2066: FND_MSG_PUB.Count_And_Get
2067: ( p_count => x_msg_count,
2068: p_data => x_msg_data
2069: );
2070:
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: ROLLBACK TO Update_Category_Desc_PUB;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: FND_MSG_PUB.Count_And_Get
2076: ( p_count => x_msg_count,
2077: p_data => x_msg_data
2078: );
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2078: );
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: ROLLBACK TO Update_Category_Desc_PUB;
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2082: FND_MSG_PUB.Count_And_Get
2083: ( p_count => x_msg_count,
2084: p_data => x_msg_data
2085: );
2086: WHEN OTHERS THEN
2085: );
2086: WHEN OTHERS THEN
2087: ROLLBACK TO Update_Category_Desc_PUB;
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2089: IF FND_MSG_PUB.Check_Msg_Level
2090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2091: THEN
2092: FND_MSG_PUB.Add_Exc_Msg
2093: ( G_PKG_NAME ,
2086: WHEN OTHERS THEN
2087: ROLLBACK TO Update_Category_Desc_PUB;
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2089: IF FND_MSG_PUB.Check_Msg_Level
2090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2091: THEN
2092: FND_MSG_PUB.Add_Exc_Msg
2093: ( G_PKG_NAME ,
2094: l_api_name
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2089: IF FND_MSG_PUB.Check_Msg_Level
2090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2091: THEN
2092: FND_MSG_PUB.Add_Exc_Msg
2093: ( G_PKG_NAME ,
2094: l_api_name
2095: );
2096: END IF;
2093: ( G_PKG_NAME ,
2094: l_api_name
2095: );
2096: END IF;
2097: FND_MSG_PUB.Count_And_Get
2098: ( p_count => x_msg_count,
2099: p_data => x_msg_data
2100: );
2101:
2186: END IF;
2187: -- Initialize API message list if necessary.
2188: -- Initialize message list if p_init_msg_list is set to TRUE.
2189: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2190: FND_MSG_PUB.initialize;
2191: END IF;
2192:
2193: OPEN category_assignment_exists(p_category_id);
2194: FETCH category_assignment_exists INTO l_category_assignment_exists;
2199: END IF;
2200: CLOSE category_assignment_exists;
2201: IF (l_category_assignment_exists = 'x') THEN
2202: fnd_message.set_name('INV','INV_CATEGORY_ASSIGNED');
2203: fnd_msg_pub.ADD;
2204: IF (l_debug = 1) THEN
2205: mdebug('Cannot delete: Category part of a Category Assignment');
2206: END IF;
2207: RAISE FND_API.G_EXC_ERROR;
2216: END IF;
2217: CLOSE default_category_exists;
2218: IF (l_default_category_exists = 'x') THEN
2219: fnd_message.set_name('INV','INV_CATEGORY_DEFAULT');
2220: fnd_msg_pub.ADD;
2221: IF (l_debug = 1) THEN
2222: mdebug('Cannot delete: Category specified is a default category to one of the Category Sets.');
2223: END IF;
2224: RAISE FND_API.G_EXC_ERROR;
2233: END IF;
2234: CLOSE valid_category_exists;
2235: IF (l_valid_category_exists = 'x') THEN
2236: fnd_message.set_name('INV','INV_CATEGORY_IN_USE');
2237: fnd_msg_pub.ADD;
2238: IF (l_debug = 1) THEN
2239: mdebug('Cannot delete: Category specified is part of a valid category set');
2240: END IF;
2241: RAISE FND_API.G_EXC_ERROR;
2245: where category_id = p_category_id ;
2246:
2247: if (sql%notfound) then
2248: fnd_message.set_name('INV','INV_VALID_CAT');
2249: fnd_msg_pub.ADD;
2250: IF (l_debug = 1) THEN
2251: mdebug('Trying to delete non-existant Category Id from MTL_CATEGORIES_TL.');
2252: END IF;
2253: RAISE NO_DATA_FOUND;
2257: where category_id = p_category_id ;
2258:
2259: if (sql%notfound) then
2260: fnd_message.set_name('INV','INV_VALID_CAT');
2261: fnd_msg_pub.ADD;
2262: IF (l_debug = 1) THEN
2263: mdebug('Trying to delete non-existant Category Id from MTL_CATEGORIES_B.');
2264: END IF;
2265: RAISE NO_DATA_FOUND;
2277: -- Standard call to get message count and if count is 1,
2278: -- get message info.
2279: -- The client will directly display the x_msg_data (which is already
2280: -- translated) if the x_msg_count = 1;
2281: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2282: -- Server-side procedure to access the messages, and consolidate them
2283: -- and display (or) to display one message after another.
2284: FND_MSG_PUB.Count_And_Get
2285: ( p_count => x_msg_count,
2280: -- translated) if the x_msg_count = 1;
2281: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2282: -- Server-side procedure to access the messages, and consolidate them
2283: -- and display (or) to display one message after another.
2284: FND_MSG_PUB.Count_And_Get
2285: ( p_count => x_msg_count,
2286: p_data => x_msg_data
2287: );
2288: EXCEPTION
2288: EXCEPTION
2289: WHEN FND_API.G_EXC_ERROR THEN
2290: ROLLBACK TO Delete_Category_PUB;
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2292: FND_MSG_PUB.Count_And_Get
2293: ( p_count => x_msg_count,
2294: p_data => x_msg_data
2295: );
2296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2295: );
2296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2297: ROLLBACK TO Delete_Category_PUB;
2298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2299: FND_MSG_PUB.Count_And_Get
2300: ( p_count => x_msg_count,
2301: p_data => x_msg_data
2302: );
2303: WHEN OTHERS THEN
2302: );
2303: WHEN OTHERS THEN
2304: ROLLBACK TO Delete_Category_PUB;
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2306: IF FND_MSG_PUB.Check_Msg_Level
2307: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2308: THEN
2309: FND_MSG_PUB.Add_Exc_Msg
2310: ( G_PKG_NAME ,
2303: WHEN OTHERS THEN
2304: ROLLBACK TO Delete_Category_PUB;
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2306: IF FND_MSG_PUB.Check_Msg_Level
2307: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2308: THEN
2309: FND_MSG_PUB.Add_Exc_Msg
2310: ( G_PKG_NAME ,
2311: l_api_name
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2306: IF FND_MSG_PUB.Check_Msg_Level
2307: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2308: THEN
2309: FND_MSG_PUB.Add_Exc_Msg
2310: ( G_PKG_NAME ,
2311: l_api_name
2312: );
2313: END IF;
2310: ( G_PKG_NAME ,
2311: l_api_name
2312: );
2313: END IF;
2314: FND_MSG_PUB.Count_And_Get
2315: ( p_count => x_msg_count,
2316: p_data => x_msg_data
2317: );
2318:
2374: END IF;
2375: -- Initialize API message list if necessary.
2376: -- Initialize message list if p_init_msg_list is set to TRUE.
2377: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2378: FND_MSG_PUB.initialize;
2379: END IF;
2380: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2381:
2382: IF FND_MSG_PUB.Check_Msg_Level
2378: FND_MSG_PUB.initialize;
2379: END IF;
2380: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2381:
2382: IF FND_MSG_PUB.Check_Msg_Level
2383: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2384: THEN
2385: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2386: END IF;
2379: END IF;
2380: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2381:
2382: IF FND_MSG_PUB.Check_Msg_Level
2383: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2384: THEN
2385: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2386: END IF;
2387:
2406: COMMIT WORK;
2407: END IF;
2408:
2409: INV_ITEM_MSG.Write_List;
2410: FND_MSG_PUB.Count_And_Get
2411: ( p_count => x_msg_count,
2412: p_data => x_msg_data
2413: );
2414:
2415: EXCEPTION
2416: WHEN FND_API.G_EXC_ERROR THEN
2417: ROLLBACK TO Create_Category_Assignment_PUB;
2418: x_return_status := FND_API.G_RET_STS_ERROR;
2419: FND_MSG_PUB.Count_And_Get
2420: ( p_count => x_msg_count,
2421: p_data => x_msg_data
2422: );
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2422: );
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2424: ROLLBACK TO Create_Category_Assignment_PUB;
2425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2426: FND_MSG_PUB.Count_And_Get
2427: ( p_count => x_msg_count,
2428: p_data => x_msg_data
2429: );
2430: WHEN OTHERS THEN
2429: );
2430: WHEN OTHERS THEN
2431: ROLLBACK TO Create_Category_Assignment_PUB;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2433: IF FND_MSG_PUB.Check_Msg_Level
2434: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2435: THEN
2436: FND_MSG_PUB.Add_Exc_Msg
2437: ( G_PKG_NAME ,
2430: WHEN OTHERS THEN
2431: ROLLBACK TO Create_Category_Assignment_PUB;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2433: IF FND_MSG_PUB.Check_Msg_Level
2434: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2435: THEN
2436: FND_MSG_PUB.Add_Exc_Msg
2437: ( G_PKG_NAME ,
2438: l_api_name
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2433: IF FND_MSG_PUB.Check_Msg_Level
2434: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2435: THEN
2436: FND_MSG_PUB.Add_Exc_Msg
2437: ( G_PKG_NAME ,
2438: l_api_name
2439: );
2440: END IF;
2437: ( G_PKG_NAME ,
2438: l_api_name
2439: );
2440: END IF;
2441: FND_MSG_PUB.Count_And_Get
2442: ( p_count => x_msg_count,
2443: p_data => x_msg_data
2444: );
2445:
2497: END IF;
2498: -- Initialize API message list if necessary.
2499: -- Initialize message list if p_init_msg_list is set to TRUE.
2500: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2501: FND_MSG_PUB.initialize;
2502: END IF;
2503: --Added code for bug 2527058
2504: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2505:
2502: END IF;
2503: --Added code for bug 2527058
2504: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2505:
2506: IF FND_MSG_PUB.Check_Msg_Level
2507: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2508: THEN
2509: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2510: END IF;
2503: --Added code for bug 2527058
2504: INV_ITEM_MSG.set_Message_Mode('PLSQL');
2505:
2506: IF FND_MSG_PUB.Check_Msg_Level
2507: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2508: THEN
2509: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
2510: END IF;
2511:
2555: -- Standard call to get message count and if count is 1,
2556: -- get message info.
2557: -- The client will directly display the x_msg_data (which is already
2558: -- translated) if the x_msg_count = 1;
2559: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2560: -- Server-side procedure to access the messages, and consolidate them
2561: -- and display (or) to display one message after another.
2562: FND_MSG_PUB.Count_And_Get
2563: ( p_count => x_msg_count,
2558: -- translated) if the x_msg_count = 1;
2559: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2560: -- Server-side procedure to access the messages, and consolidate them
2561: -- and display (or) to display one message after another.
2562: FND_MSG_PUB.Count_And_Get
2563: ( p_count => x_msg_count,
2564: p_data => x_msg_data
2565: );
2566: EXCEPTION
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: ROLLBACK TO Delete_Category_Assignment_PUB;
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: FND_MSG_PUB.Count_And_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data
2573: );
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: );
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK TO Delete_Category_Assignment_PUB;
2576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2577: FND_MSG_PUB.Count_And_Get
2578: ( p_count => x_msg_count,
2579: p_data => x_msg_data
2580: );
2581: WHEN OTHERS THEN
2580: );
2581: WHEN OTHERS THEN
2582: ROLLBACK TO Delete_Category_Assignment_PUB;
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2584: IF FND_MSG_PUB.Check_Msg_Level
2585: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2586: THEN
2587: FND_MSG_PUB.Add_Exc_Msg
2588: ( G_PKG_NAME ,
2581: WHEN OTHERS THEN
2582: ROLLBACK TO Delete_Category_Assignment_PUB;
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2584: IF FND_MSG_PUB.Check_Msg_Level
2585: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2586: THEN
2587: FND_MSG_PUB.Add_Exc_Msg
2588: ( G_PKG_NAME ,
2589: l_api_name
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2584: IF FND_MSG_PUB.Check_Msg_Level
2585: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2586: THEN
2587: FND_MSG_PUB.Add_Exc_Msg
2588: ( G_PKG_NAME ,
2589: l_api_name
2590: );
2591: END IF;
2588: ( G_PKG_NAME ,
2589: l_api_name
2590: );
2591: END IF;
2592: FND_MSG_PUB.Count_And_Get
2593: ( p_count => x_msg_count,
2594: p_data => x_msg_data
2595: );
2596:
2631: END IF;
2632: 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
2633: fnd_message.set_name('INV','INV_NOT_VALID_FLAG');
2634: fnd_message.set_token('COLUMN_NAME', 'SUPPLIER_ENABLED_FLAG');
2635: fnd_msg_pub.ADD;
2636: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2637: IF (l_debug = 1) THEN
2638: mdebug('Invalid supplier enabled flag information provided');
2639: END IF;
2644: /*Bug: 4494727 Commenting out the following IF condition
2645: IF x_category_rec.web_status NOT IN (g_YES,g_MISS_CHAR) THEN
2646: fnd_message.set_name('INV','INV_NOT_VALID_FLAG');
2647: fnd_message.set_token('COLUMN_NAME', 'WEB_STATUS');
2648: fnd_msg_pub.ADD;
2649: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2650: IF (l_debug = 1) THEN
2651: mdebug('Invalid web status flag information provided');
2652: END IF;
2658: OPEN get_po_structure_id;
2659: FETCH get_po_structure_id INTO l_po_structure_id;
2660: IF (get_po_structure_id%NOTFOUND) THEN
2661: fnd_message.set_name('INV','INV_NO_DEFAULT_CSET');
2662: fnd_msg_pub.ADD;
2663: IF (l_debug = 1) THEN
2664: mdebug('No Default purchasing category set provided');
2665: END IF;
2666: CLOSE get_po_structure_id;
2668: ELSE
2669: IF (l_po_structure_id <> x_category_rec.structure_id) THEN
2670: IF (x_category_rec.supplier_enabled_flag = g_NO) THEN
2671: fnd_message.set_name('INV','INV_SUP_ENABLED_PO_CAT_ONLY');
2672: fnd_msg_pub.ADD;
2673: END IF;
2674: /*Bug: 4494727 Commenting out the following IF condition
2675: IF (x_category_rec.web_status = g_YES) THEN
2676: fnd_message.set_name('INV','INV_CAT_ENABLED_PO_CAT_ONLY');
2673: END IF;
2674: /*Bug: 4494727 Commenting out the following IF condition
2675: IF (x_category_rec.web_status = g_YES) THEN
2676: fnd_message.set_name('INV','INV_CAT_ENABLED_PO_CAT_ONLY');
2677: fnd_msg_pub.ADD;
2678: END IF;
2679: */
2680: IF (l_debug = 1) THEN
2681: mdebug('Only purchasing cat can be viewable by supplier');
2749: END IF;
2750: -- Initialize API message list if necessary.
2751: -- Initialize message list if p_init_msg_list is set to TRUE.
2752: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2753: FND_MSG_PUB.initialize;
2754: END IF;
2755: IF validate_category_set_params
2756: (p_validation_type => G_INSERT
2757: ,p_category_set_id => p_category_set_id
2812: -- Standard call to get message count and if count is 1,
2813: -- get message info.
2814: -- The client will directly display the x_msg_data (which is already
2815: -- translated) if the x_msg_count = 1;
2816: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2817: -- Server-side procedure to access the messages, and consolidate them
2818: -- and display (or) to display one message after another.
2819: FND_MSG_PUB.Count_And_Get
2820: ( p_count => x_msg_count,
2815: -- translated) if the x_msg_count = 1;
2816: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2817: -- Server-side procedure to access the messages, and consolidate them
2818: -- and display (or) to display one message after another.
2819: FND_MSG_PUB.Count_And_Get
2820: ( p_count => x_msg_count,
2821: p_data => x_msg_data
2822: );
2823:
2829: IF FND_API.To_Boolean( p_commit ) THEN
2830: ROLLBACK TO Create_Valid_Category_PUB;
2831: END IF;
2832: x_return_status := FND_API.G_RET_STS_ERROR;
2833: FND_MSG_PUB.Count_And_Get
2834: ( p_count => x_msg_count,
2835: p_data => x_msg_data
2836: );
2837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2841: IF FND_API.To_Boolean( p_commit ) THEN
2842: ROLLBACK TO Create_Valid_Category_PUB;
2843: END IF;
2844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2845: FND_MSG_PUB.Count_And_Get
2846: ( p_count => x_msg_count,
2847: p_data => x_msg_data
2848: );
2849: WHEN OTHERS THEN
2853: IF FND_API.To_Boolean( p_commit ) THEN
2854: ROLLBACK TO Create_Valid_Category_PUB;
2855: END IF;
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2857: IF FND_MSG_PUB.Check_Msg_Level
2858: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2859: THEN
2860: FND_MSG_PUB.Add_Exc_Msg
2861: ( G_PKG_NAME ,
2854: ROLLBACK TO Create_Valid_Category_PUB;
2855: END IF;
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2857: IF FND_MSG_PUB.Check_Msg_Level
2858: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2859: THEN
2860: FND_MSG_PUB.Add_Exc_Msg
2861: ( G_PKG_NAME ,
2862: l_api_name
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2857: IF FND_MSG_PUB.Check_Msg_Level
2858: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2859: THEN
2860: FND_MSG_PUB.Add_Exc_Msg
2861: ( G_PKG_NAME ,
2862: l_api_name
2863: );
2864: END IF;
2861: ( G_PKG_NAME ,
2862: l_api_name
2863: );
2864: END IF;
2865: FND_MSG_PUB.Count_And_Get
2866: ( p_count => x_msg_count,
2867: p_data => x_msg_data
2868: );
2869: END Create_Valid_Category;
2925: END IF;
2926: -- Initialize API message list if necessary.
2927: -- Initialize message list if p_init_msg_list is set to TRUE.
2928: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2929: FND_MSG_PUB.initialize;
2930: END IF;
2931:
2932: IF validate_category_set_params
2933: (p_validation_type => G_UPDATE
2955: IF l_debug = 1 THEN
2956: mdebug('Update_Valid_Category: Record not available for update');
2957: END IF;
2958: fnd_message.set_name('INV','INV_CATEGORY_UNAVAIL_UPDATE');
2959: fnd_msg_pub.ADD;
2960: RAISE fnd_api.g_EXC_UNEXPECTED_ERROR;
2961: END IF;
2962: ELSE
2963: -- passed parameters are invalid
2972: -- Standard call to get message count and if count is 1,
2973: -- get message info.
2974: -- The client will directly display the x_msg_data (which is already
2975: -- translated) if the x_msg_count = 1;
2976: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2977: -- Server-side procedure to access the messages, and consolidate them
2978: -- and display (or) to display one message after another.
2979: FND_MSG_PUB.Count_And_Get
2980: ( p_count => x_msg_count,
2975: -- translated) if the x_msg_count = 1;
2976: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
2977: -- Server-side procedure to access the messages, and consolidate them
2978: -- and display (or) to display one message after another.
2979: FND_MSG_PUB.Count_And_Get
2980: ( p_count => x_msg_count,
2981: p_data => x_msg_data
2982: );
2983:
2989: IF FND_API.To_Boolean( p_commit ) THEN
2990: ROLLBACK TO Update_Valid_Category_PUB;
2991: END IF;
2992: x_return_status := FND_API.G_RET_STS_ERROR;
2993: FND_MSG_PUB.Count_And_Get
2994: ( p_count => x_msg_count,
2995: p_data => x_msg_data
2996: );
2997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3001: IF FND_API.To_Boolean( p_commit ) THEN
3002: ROLLBACK TO Update_Valid_Category_PUB;
3003: END IF;
3004: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3005: FND_MSG_PUB.Count_And_Get
3006: ( p_count => x_msg_count,
3007: p_data => x_msg_data
3008: );
3009: WHEN OTHERS THEN
3013: IF FND_API.To_Boolean( p_commit ) THEN
3014: ROLLBACK TO Update_Valid_Category_PUB;
3015: END IF;
3016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3017: IF FND_MSG_PUB.Check_Msg_Level
3018: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3019: THEN
3020: FND_MSG_PUB.Add_Exc_Msg
3021: ( G_PKG_NAME ,
3014: ROLLBACK TO Update_Valid_Category_PUB;
3015: END IF;
3016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3017: IF FND_MSG_PUB.Check_Msg_Level
3018: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3019: THEN
3020: FND_MSG_PUB.Add_Exc_Msg
3021: ( G_PKG_NAME ,
3022: l_api_name
3016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3017: IF FND_MSG_PUB.Check_Msg_Level
3018: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3019: THEN
3020: FND_MSG_PUB.Add_Exc_Msg
3021: ( G_PKG_NAME ,
3022: l_api_name
3023: );
3024: END IF;
3021: ( G_PKG_NAME ,
3022: l_api_name
3023: );
3024: END IF;
3025: FND_MSG_PUB.Count_And_Get
3026: ( p_count => x_msg_count,
3027: p_data => x_msg_data
3028: );
3029: END Update_Valid_Category;
3148: END IF;
3149: -- Initialize API message list if necessary.
3150: -- Initialize message list if p_init_msg_list is set to TRUE.
3151: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3152: FND_MSG_PUB.initialize;
3153: END IF;
3154:
3155: IF (p_category_set_id IS NULL OR p_category_id IS NULL) THEN
3156: IF l_debug = 1 THEN
3156: IF l_debug = 1 THEN
3157: mdebug('Delete_Valid_Category: Mandatory parameters missing');
3158: END IF;
3159: fnd_message.set_name('INV','INV_MISSING_REQUIRED_PARAMETER');
3160: fnd_msg_pub.ADD;
3161: RAISE fnd_api.G_EXC_ERROR;
3162: END IF;
3163:
3164: IF NOT get_category_set_type(p_category_set_id => p_category_set_id
3167: IF l_debug = 1 THEN
3168: mdebug('Delete_Valid_Category: Record not available for deletion');
3169: END IF;
3170: fnd_message.set_name('INV','INV_CATEGORY_UNAVAIL_DELETE');
3171: fnd_msg_pub.ADD;
3172: RAISE fnd_api.g_EXC_ERROR;
3173: END IF;
3174:
3175: -- check if the user tries to delete default cateogy of the category set
3202: l_description := NULL;
3203: END IF;
3204: fnd_message.set_name('INV','INV_DELETE_DEF_CAT_ERR');
3205: fnd_message.set_token('CATEGORY_NAME', l_description);
3206: fnd_msg_pub.ADD;
3207: RAISE fnd_api.G_EXC_ERROR;
3208: END IF;
3209:
3210: -- check if there are any items associated to the category / category set
3259: l_description := NULL;
3260: END IF;
3261: fnd_message.set_name('INV','INV_CATEGORY_ITEMS_EXIST');
3262: fnd_message.set_token('CATEGORY_NAME', l_description);
3263: fnd_msg_pub.ADD;
3264: RAISE FND_API.G_EXC_ERROR;
3265: END IF;
3266:
3267: -- Standard check of p_commit.
3273: -- Standard call to get message count and if count is 1,
3274: -- get message info.
3275: -- The client will directly display the x_msg_data (which is already
3276: -- translated) if the x_msg_count = 1;
3277: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3278: -- Server-side procedure to access the messages, and consolidate them
3279: -- and display (or) to display one message after another.
3280: FND_MSG_PUB.Count_And_Get
3281: ( p_count => x_msg_count,
3276: -- translated) if the x_msg_count = 1;
3277: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3278: -- Server-side procedure to access the messages, and consolidate them
3279: -- and display (or) to display one message after another.
3280: FND_MSG_PUB.Count_And_Get
3281: ( p_count => x_msg_count,
3282: p_data => x_msg_data
3283: );
3284:
3290: IF FND_API.To_Boolean( p_commit ) THEN
3291: ROLLBACK TO Delete_Valid_Category_PUB;
3292: END IF;
3293: x_return_status := FND_API.G_RET_STS_ERROR;
3294: FND_MSG_PUB.Count_And_Get
3295: ( p_count => x_msg_count,
3296: p_data => x_msg_data
3297: );
3298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3302: IF FND_API.To_Boolean( p_commit ) THEN
3303: ROLLBACK TO Delete_Valid_Category_PUB;
3304: END IF;
3305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3306: FND_MSG_PUB.Count_And_Get
3307: ( p_count => x_msg_count,
3308: p_data => x_msg_data
3309: );
3310: WHEN OTHERS THEN
3317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3318: IF c_get_items_in_cat%ISOPEN THEN
3319: CLOSE c_get_items_in_cat;
3320: END IF;
3321: IF FND_MSG_PUB.Check_Msg_Level
3322: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3323: THEN
3324: FND_MSG_PUB.Add_Exc_Msg
3325: ( G_PKG_NAME ,
3318: IF c_get_items_in_cat%ISOPEN THEN
3319: CLOSE c_get_items_in_cat;
3320: END IF;
3321: IF FND_MSG_PUB.Check_Msg_Level
3322: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3323: THEN
3324: FND_MSG_PUB.Add_Exc_Msg
3325: ( G_PKG_NAME ,
3326: l_api_name
3320: END IF;
3321: IF FND_MSG_PUB.Check_Msg_Level
3322: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3323: THEN
3324: FND_MSG_PUB.Add_Exc_Msg
3325: ( G_PKG_NAME ,
3326: l_api_name
3327: );
3328: END IF;
3325: ( G_PKG_NAME ,
3326: l_api_name
3327: );
3328: END IF;
3329: FND_MSG_PUB.Count_And_Get
3330: ( p_count => x_msg_count,
3331: p_data => x_msg_data
3332: );
3333: END Delete_Valid_Category;
3443: END IF;
3444: -- Initialize API message list if necessary.
3445: -- Initialize message list if p_init_msg_list is set to TRUE.
3446: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3447: FND_MSG_PUB.initialize;
3448: END IF;
3449:
3450: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3451:
3448: END IF;
3449:
3450: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3451:
3452: IF FND_MSG_PUB.Check_Msg_Level
3453: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3454: THEN
3455: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
3456: END IF;
3449:
3450: INV_ITEM_MSG.set_Message_Mode('PLSQL');
3451:
3452: IF FND_MSG_PUB.Check_Msg_Level
3453: (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3454: THEN
3455: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
3456: END IF;
3457:
3487: -- Standard call to get message count and if count is 1,
3488: -- get message info.
3489: -- The client will directly display the x_msg_data (which is already
3490: -- translated) if the x_msg_count = 1;
3491: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3492: -- Server-side procedure to access the messages, and consolidate them
3493: -- and display (or) to display one message after another.
3494: FND_MSG_PUB.Count_And_Get
3495: ( p_count => x_msg_count,
3490: -- translated) if the x_msg_count = 1;
3491: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
3492: -- Server-side procedure to access the messages, and consolidate them
3493: -- and display (or) to display one message after another.
3494: FND_MSG_PUB.Count_And_Get
3495: ( p_count => x_msg_count,
3496: p_data => x_msg_data
3497: );
3498: EXCEPTION
3498: EXCEPTION
3499: WHEN FND_API.G_EXC_ERROR THEN
3500: ROLLBACK TO Update_Category_Assignment_PUB;
3501: x_return_status := FND_API.G_RET_STS_ERROR;
3502: FND_MSG_PUB.Count_And_Get
3503: ( p_count => x_msg_count,
3504: p_data => x_msg_data
3505: );
3506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3505: );
3506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3507: ROLLBACK TO Update_Category_Assignment_PUB;
3508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3509: FND_MSG_PUB.Count_And_Get
3510: ( p_count => x_msg_count,
3511: p_data => x_msg_data
3512: );
3513: WHEN OTHERS THEN
3512: );
3513: WHEN OTHERS THEN
3514: ROLLBACK TO Update_Category_Assignment_PUB;
3515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3516: IF FND_MSG_PUB.Check_Msg_Level
3517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3518: THEN
3519: FND_MSG_PUB.Add_Exc_Msg
3520: ( G_PKG_NAME ,
3513: WHEN OTHERS THEN
3514: ROLLBACK TO Update_Category_Assignment_PUB;
3515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3516: IF FND_MSG_PUB.Check_Msg_Level
3517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3518: THEN
3519: FND_MSG_PUB.Add_Exc_Msg
3520: ( G_PKG_NAME ,
3521: l_api_name
3515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3516: IF FND_MSG_PUB.Check_Msg_Level
3517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3518: THEN
3519: FND_MSG_PUB.Add_Exc_Msg
3520: ( G_PKG_NAME ,
3521: l_api_name
3522: );
3523: END IF;
3520: ( G_PKG_NAME ,
3521: l_api_name
3522: );
3523: END IF;
3524: FND_MSG_PUB.Count_And_Get
3525: ( p_count => x_msg_count,
3526: p_data => x_msg_data
3527: );
3528: