[Home] [Help]
70: -- HISTORY
71: -- 25-Apr-2000 skarumur Created.
72: -- 26-Apr-2000 choang Modified to handle <> conditions.
73: ---------------------------------------------------------------------
74: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
75: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
76: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
77:
78: PROCEDURE bind_parse (
71: -- 25-Apr-2000 skarumur Created.
72: -- 26-Apr-2000 choang Modified to handle <> conditions.
73: ---------------------------------------------------------------------
74: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
75: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
76: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
77:
78: PROCEDURE bind_parse (
79: p_string IN VARCHAR2,
72: -- 26-Apr-2000 choang Modified to handle <> conditions.
73: ---------------------------------------------------------------------
74: AMS_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
75: AMS_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
76: AMS_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
77:
78: PROCEDURE bind_parse (
79: p_string IN VARCHAR2,
80: x_col_val_tbl OUT NOCOPY col_val_tbl
457: IS
458: BEGIN
459: FND_MESSAGE.set_name('AMS', 'AMS_API_DEBUG_MESSAGE');
460: FND_MESSAGE.set_token('TEXT', REPLACE (p_message_text, FND_API.G_MISS_CHAR, 'G_MISS_CHAR'));
461: FND_MSG_PUB.add;
462: END debug_message;
463:
464:
465: ---------------------------------------------------------------------
475: P_token_value VARCHAR2 := NULL
476: )
477: IS
478: BEGIN
479: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
480: FND_MESSAGE.set_name('AMS', p_message_name);
481: IF p_token_name IS NOT NULL THEN
482: FND_MESSAGE.set_token(p_token_name, p_token_value);
483: END IF;
480: FND_MESSAGE.set_name('AMS', p_message_name);
481: IF p_token_name IS NOT NULL THEN
482: FND_MESSAGE.set_token(p_token_name, p_token_value);
483: END IF;
484: FND_MSG_PUB.add;
485: END IF;
486: END error_message;
487:
488:
497: IS
498: l_count NUMBER;
499: l_msg VARCHAR2(2000);
500: BEGIN
501: l_count := FND_MSG_PUB.count_msg;
502: FOR i IN 1 .. l_count LOOP
503: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
504: -- holiu: remove since adchkdrv does not like it
505: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
499: l_msg VARCHAR2(2000);
500: BEGIN
501: l_count := FND_MSG_PUB.count_msg;
502: FOR i IN 1 .. l_count LOOP
503: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
504: -- holiu: remove since adchkdrv does not like it
505: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
506: END LOOP;
507: END display_messages;
946: x_rate => l_rate
947: );
948: EXCEPTION
949: WHEN GL_Currency_API.NO_RATE THEN
950: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
951: FND_MESSAGE.Set_Name ('AMS', 'AMS_NO_RATE');
952: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
953: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
954: FND_MSG_PUB.Add;
950: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
951: FND_MESSAGE.Set_Name ('AMS', 'AMS_NO_RATE');
952: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
953: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
954: FND_MSG_PUB.Add;
955: END IF;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: WHEN GL_Currency_API.INVALID_CURRENCY THEN
958: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
954: FND_MSG_PUB.Add;
955: END IF;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: WHEN GL_Currency_API.INVALID_CURRENCY THEN
958: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
959: FND_MESSAGE.Set_Name ('AMS', 'AMS_INVALID_CURR');
960: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
961: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
962: FND_MSG_PUB.Add;
958: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
959: FND_MESSAGE.Set_Name ('AMS', 'AMS_INVALID_CURR');
960: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
961: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
962: FND_MSG_PUB.Add;
963: END IF;
964: x_return_status := FND_API.G_RET_STS_ERROR;
965: END Convert_Currency;
966:
1247: -----------------------------------
1248: IF l_eq_pos = 0 AND l_not_pos = 0 THEN
1249: -- Could not find either an = or an <>
1250: -- operator.
1251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1252: FND_MESSAGE.set_name('AMS', 'AMS_UTIL_NO_WHERE_OPERATOR');
1253: FND_MSG_PUB.add;
1254: RAISE FND_API.g_exc_unexpected_error;
1255: END IF;
1249: -- Could not find either an = or an <>
1250: -- operator.
1251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1252: FND_MESSAGE.set_name('AMS', 'AMS_UTIL_NO_WHERE_OPERATOR');
1253: FND_MSG_PUB.add;
1254: RAISE FND_API.g_exc_unexpected_error;
1255: END IF;
1256: ELSIF l_eq_pos > 0 AND l_not_pos = 0 THEN
1257: l_curr_pos := l_eq_pos;
1601: l_msg VARCHAR2(2000);
1602: l_cnt NUMBER ;
1603: BEGIN
1604: IF p_text IS NULL THEN
1605: l_count := FND_MSG_PUB.count_msg;
1606: FOR l_cnt IN 1 .. l_count
1607: LOOP
1608: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1609: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1604: IF p_text IS NULL THEN
1605: l_count := FND_MSG_PUB.count_msg;
1606: FOR l_cnt IN 1 .. l_count
1607: LOOP
1608: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1609: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1610: END LOOP;
1611: ELSE
1612: FND_FILE.PUT_LINE(FND_FILE.LOG, p_text );
1964: OPEN c_org_cur;
1965: FETCH c_org_cur INTO l_org_id;
1966:
1967: IF c_org_cur%NOTFOUND THEN
1968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1969: fnd_message.set_name('AMS', 'AMS_ORG_ID_NOTFOUND');
1970: fnd_msg_pub.add;
1971: END IF;
1972: RAISE fnd_api.g_exc_error;
1966:
1967: IF c_org_cur%NOTFOUND THEN
1968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1969: fnd_message.set_name('AMS', 'AMS_ORG_ID_NOTFOUND');
1970: fnd_msg_pub.add;
1971: END IF;
1972: RAISE fnd_api.g_exc_error;
1973: END IF;
1974: CLOSE c_org_cur;
1976: OPEN c_get_gl_info(l_org_id);
1977: FETCH c_get_gl_info INTO l_sob, l_to_currency;
1978:
1979: IF c_get_gl_info%NOTFOUND THEN
1980: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1981: fnd_message.set_name('AMS', 'AMS_GL_SOB_NOTFOUND');
1982: fnd_msg_pub.add;
1983: END IF;
1984:
1978:
1979: IF c_get_gl_info%NOTFOUND THEN
1980: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1981: fnd_message.set_name('AMS', 'AMS_GL_SOB_NOTFOUND');
1982: fnd_msg_pub.add;
1983: END IF;
1984:
1985: RAISE fnd_api.g_exc_error;
1986: END IF;
2004: EXCEPTION
2005: WHEN fnd_api.g_exc_error THEN
2006: x_return_status := fnd_api.g_ret_sts_error;
2007: WHEN gl_currency_api.no_rate THEN
2008: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2009: fnd_message.set_name('AMS', 'AMS_NO_RATE');
2010: fnd_msg_pub.add;
2011: END IF;
2012:
2006: x_return_status := fnd_api.g_ret_sts_error;
2007: WHEN gl_currency_api.no_rate THEN
2008: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2009: fnd_message.set_name('AMS', 'AMS_NO_RATE');
2010: fnd_msg_pub.add;
2011: END IF;
2012:
2013: x_return_status := fnd_api.g_ret_sts_error;
2014: WHEN gl_currency_api.invalid_currency THEN
2011: END IF;
2012:
2013: x_return_status := fnd_api.g_ret_sts_error;
2014: WHEN gl_currency_api.invalid_currency THEN
2015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2016: fnd_message.set_name('AMS', 'AMS_INVALID_CURR');
2017: fnd_msg_pub.add;
2018: END IF;
2019:
2013: x_return_status := fnd_api.g_ret_sts_error;
2014: WHEN gl_currency_api.invalid_currency THEN
2015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2016: fnd_message.set_name('AMS', 'AMS_INVALID_CURR');
2017: fnd_msg_pub.add;
2018: END IF;
2019:
2020: x_return_status := fnd_api.g_ret_sts_error;
2021: WHEN OTHERS THEN
2157: l_conversion_type := x_exchange_rate_type;
2158: END IF;
2159:
2160: IF l_conversion_type IS NULL THEN
2161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2162: fnd_message.set_name('AMS', 'AMS_NO_EXCHANGE_TYPE');
2163: fnd_msg_pub.add;
2164: END IF;
2165:
2159:
2160: IF l_conversion_type IS NULL THEN
2161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2162: fnd_message.set_name('AMS', 'AMS_NO_EXCHANGE_TYPE');
2163: fnd_msg_pub.add;
2164: END IF;
2165:
2166: x_return_status := fnd_api.g_ret_sts_error;
2167: RETURN;
2169: IF ams_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2170: 'CONVERSION_TYPE'
2171: ,l_conversion_type) = fnd_api.g_false
2172: THEN
2173: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2174: fnd_message.set_name('AMS', 'AMS_WRONG_CONVERSION_TYPE');
2175: fnd_msg_pub.add;
2176: END IF;
2177: x_return_status := fnd_api.g_ret_sts_error;
2171: ,l_conversion_type) = fnd_api.g_false
2172: THEN
2173: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2174: fnd_message.set_name('AMS', 'AMS_WRONG_CONVERSION_TYPE');
2175: fnd_msg_pub.add;
2176: END IF;
2177: x_return_status := fnd_api.g_ret_sts_error;
2178: RETURN;
2179: END IF;
2188: OPEN c_org_cur;
2189: FETCH c_org_cur INTO l_org_id;
2190:
2191: IF c_org_cur%NOTFOUND THEN
2192: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2193: fnd_message.set_name('AMS', 'AMS_ORG_ID_NOTFOUND');
2194: fnd_msg_pub.add;
2195: END IF;
2196:
2190:
2191: IF c_org_cur%NOTFOUND THEN
2192: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2193: fnd_message.set_name('AMS', 'AMS_ORG_ID_NOTFOUND');
2194: fnd_msg_pub.add;
2195: END IF;
2196:
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2208: OPEN c_get_gl_info(l_org_id);
2209: FETCH c_get_gl_info INTO x_set_of_books_id, x_fc_currency_code;
2210:
2211: IF c_get_gl_info%NOTFOUND THEN
2212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2213: fnd_message.set_name('AMS', 'AMS_GL_SOB_NOTFOUND');
2214: fnd_msg_pub.add;
2215: END IF;
2216:
2210:
2211: IF c_get_gl_info%NOTFOUND THEN
2212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2213: fnd_message.set_name('AMS', 'AMS_GL_SOB_NOTFOUND');
2214: fnd_msg_pub.add;
2215: END IF;
2216:
2217: RAISE fnd_api.g_exc_error;
2218: END IF;
2238: EXCEPTION
2239: WHEN fnd_api.g_exc_error THEN
2240: x_return_status := fnd_api.g_ret_sts_error;
2241: WHEN gl_currency_api.no_rate THEN
2242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2243: fnd_message.set_name('AMS', 'AMS_NO_RATE');
2244: fnd_msg_pub.add;
2245: END IF;
2246:
2240: x_return_status := fnd_api.g_ret_sts_error;
2241: WHEN gl_currency_api.no_rate THEN
2242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2243: fnd_message.set_name('AMS', 'AMS_NO_RATE');
2244: fnd_msg_pub.add;
2245: END IF;
2246:
2247: x_return_status := fnd_api.g_ret_sts_error;
2248: WHEN gl_currency_api.invalid_currency THEN
2245: END IF;
2246:
2247: x_return_status := fnd_api.g_ret_sts_error;
2248: WHEN gl_currency_api.invalid_currency THEN
2249: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2250: fnd_message.set_name('AMS', 'AMS_INVALID_CURR');
2251: fnd_msg_pub.add;
2252: END IF;
2253:
2247: x_return_status := fnd_api.g_ret_sts_error;
2248: WHEN gl_currency_api.invalid_currency THEN
2249: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2250: fnd_message.set_name('AMS', 'AMS_INVALID_CURR');
2251: fnd_msg_pub.add;
2252: END IF;
2253:
2254: x_return_status := fnd_api.g_ret_sts_error;
2255: WHEN OTHERS THEN
2254: x_return_status := fnd_api.g_ret_sts_error;
2255: WHEN OTHERS THEN
2256: x_return_status := fnd_api.g_ret_sts_unexp_error;
2257:
2258: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2259: fnd_msg_pub.add_exc_msg('AMS_UTLITY_PVT', 'Convert_functional_curency');
2260: END IF;
2261: END calculate_functional_curr;
2262:
2255: WHEN OTHERS THEN
2256: x_return_status := fnd_api.g_ret_sts_unexp_error;
2257:
2258: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2259: fnd_msg_pub.add_exc_msg('AMS_UTLITY_PVT', 'Convert_functional_curency');
2260: END IF;
2261: END calculate_functional_curr;
2262:
2263: ---------------------------------------------------------------------
2311: -- Get the currency conversion type from profile option
2312: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2313: -- Conversion type cannot be null in profile
2314: IF l_conversion_type IS NULL THEN
2315: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2316: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2317: fnd_msg_pub.add;
2318: END IF;
2319: x_return_status := fnd_api.g_ret_sts_error;
2313: -- Conversion type cannot be null in profile
2314: IF l_conversion_type IS NULL THEN
2315: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2316: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2317: fnd_msg_pub.add;
2318: END IF;
2319: x_return_status := fnd_api.g_ret_sts_error;
2320: RETURN;
2321: END IF;
2339: --
2340:
2341: EXCEPTION
2342: WHEN gl_currency_api.no_rate THEN
2343: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2344: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2345: fnd_msg_pub.add;
2346: END IF;
2347:
2341: EXCEPTION
2342: WHEN gl_currency_api.no_rate THEN
2343: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2344: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2345: fnd_msg_pub.add;
2346: END IF;
2347:
2348: x_return_status := fnd_api.g_ret_sts_error;
2349: WHEN gl_currency_api.invalid_currency THEN
2346: END IF;
2347:
2348: x_return_status := fnd_api.g_ret_sts_error;
2349: WHEN gl_currency_api.invalid_currency THEN
2350: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2351: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2352: fnd_msg_pub.add;
2353: END IF;
2354:
2348: x_return_status := fnd_api.g_ret_sts_error;
2349: WHEN gl_currency_api.invalid_currency THEN
2350: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2351: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2352: fnd_msg_pub.add;
2353: END IF;
2354:
2355: x_return_status := fnd_api.g_ret_sts_error;
2356: WHEN OTHERS THEN
2355: x_return_status := fnd_api.g_ret_sts_error;
2356: WHEN OTHERS THEN
2357: x_return_status := fnd_api.g_ret_sts_unexp_error;
2358:
2359: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2360: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2361: END IF;
2362: END convert_currency;
2363:
2356: WHEN OTHERS THEN
2357: x_return_status := fnd_api.g_ret_sts_unexp_error;
2358:
2359: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2360: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2361: END IF;
2362: END convert_currency;
2363:
2364: /*============================================================================*/
2433: END IF;
2434: EXCEPTION
2435: WHEN OTHERS THEN
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2438: fnd_msg_pub.add_exc_msg('AMS_UTLITY_PVT', 'Get_Resource_Role');
2439: END IF;
2440: RAISE;
2441: END Get_Resource_Role;
2434: EXCEPTION
2435: WHEN OTHERS THEN
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2438: fnd_msg_pub.add_exc_msg('AMS_UTLITY_PVT', 'Get_Resource_Role');
2439: END IF;
2440: RAISE;
2441: END Get_Resource_Role;
2442:
2697:
2698: EXCEPTION
2699: WHEN FND_API.G_EXC_ERROR THEN
2700: x_return_status := FND_API.G_RET_STS_ERROR;
2701: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2702: p_data => x_msg_data);
2703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2705: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2701: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2702: p_data => x_msg_data);
2703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2705: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2706: p_data => x_msg_data);
2707: WHEN OTHERS THEN
2708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2709: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2705: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2706: p_data => x_msg_data);
2707: WHEN OTHERS THEN
2708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2709: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2710: THEN
2711: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2712: END IF;
2713: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2707: WHEN OTHERS THEN
2708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2709: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2710: THEN
2711: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2712: END IF;
2713: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2714: p_data => x_msg_data);
2715:
2709: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2710: THEN
2711: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2712: END IF;
2713: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2714: p_data => x_msg_data);
2715:
2716: END Get_Object_Name;
2717:
2874:
2875: if ( l_found_error ) then
2876: FND_MESSAGE.Set_Name ('AMS', 'AMS_VALIDATE_LOCKING_RULES');
2877: FND_MESSAGE.Set_Token ('ATTRIBUTES', l_attribute_token);
2878: FND_MSG_PUB.Add;
2879: -- DBMS_OUTPUT.put_line('Sam Error 3 ' || l_ak_attribute_value);
2880: end if;
2881:
2882: CLOSE c_get_ak_region_items;