[Home] [Help]
86: -- HISTORY
87: -- 25-Apr-2000 skarumur Created.
88: -- 26-Apr-2000 choang Modified to handle <> conditions.
89: ---------------------------------------------------------------------
90: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
91: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
92: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
93: G_OZF_APP_ID CONSTANT NUMBER := 682;
94:
87: -- 25-Apr-2000 skarumur Created.
88: -- 26-Apr-2000 choang Modified to handle <> conditions.
89: ---------------------------------------------------------------------
90: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
91: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
92: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
93: G_OZF_APP_ID CONSTANT NUMBER := 682;
94:
95: PROCEDURE bind_parse (
88: -- 26-Apr-2000 choang Modified to handle <> conditions.
89: ---------------------------------------------------------------------
90: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
91: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
92: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
93: G_OZF_APP_ID CONSTANT NUMBER := 682;
94:
95: PROCEDURE bind_parse (
96: p_string IN VARCHAR2,
496: IS
497: BEGIN
498: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
499: FND_MESSAGE.set_token('TEXT', REPLACE (p_message_text, FND_API.G_MISS_CHAR, 'G_MISS_CHAR'));
500: FND_MSG_PUB.add;
501: END debug_message;
502:
503:
504: ---------------------------------------------------------------------
514: P_token_value VARCHAR2 := NULL
515: )
516: IS
517: BEGIN
518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
519: FND_MESSAGE.set_name('OZF', p_message_name);
520: IF p_token_name IS NOT NULL THEN
521: FND_MESSAGE.set_token(p_token_name, p_token_value);
522: END IF;
519: FND_MESSAGE.set_name('OZF', p_message_name);
520: IF p_token_name IS NOT NULL THEN
521: FND_MESSAGE.set_token(p_token_name, p_token_value);
522: END IF;
523: FND_MSG_PUB.add;
524: END IF;
525: END error_message;
526:
527:
536: IS
537: l_count NUMBER;
538: l_msg VARCHAR2(2000);
539: BEGIN
540: l_count := FND_MSG_PUB.count_msg;
541: FOR i IN 1 .. l_count LOOP
542: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
543: -- holiu: remove since adchkdrv does not like it
544: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
538: l_msg VARCHAR2(2000);
539: BEGIN
540: l_count := FND_MSG_PUB.count_msg;
541: FOR i IN 1 .. l_count LOOP
542: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
543: -- holiu: remove since adchkdrv does not like it
544: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
545: END LOOP;
546: END display_messages;
983: x_rate => l_rate
984: );
985: EXCEPTION
986: WHEN GL_Currency_API.NO_RATE THEN
987: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
988: FND_MESSAGE.Set_Name ('OZF', 'OZF_NO_RATE');
989: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
990: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
991: FND_MSG_PUB.Add;
987: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
988: FND_MESSAGE.Set_Name ('OZF', 'OZF_NO_RATE');
989: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
990: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
991: FND_MSG_PUB.Add;
992: END IF;
993: x_return_status := FND_API.G_RET_STS_ERROR;
994: WHEN GL_Currency_API.INVALID_CURRENCY THEN
995: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
991: FND_MSG_PUB.Add;
992: END IF;
993: x_return_status := FND_API.G_RET_STS_ERROR;
994: WHEN GL_Currency_API.INVALID_CURRENCY THEN
995: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
996: FND_MESSAGE.Set_Name ('OZF', 'OZF_INVALID_CURR');
997: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
998: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
999: FND_MSG_PUB.Add;
995: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
996: FND_MESSAGE.Set_Name ('OZF', 'OZF_INVALID_CURR');
997: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
998: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
999: FND_MSG_PUB.Add;
1000: END IF;
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002: END Convert_Currency;
1003:
1282: -----------------------------------
1283: IF l_eq_pos = 0 AND l_not_pos = 0 THEN
1284: -- Could not find either an = or an <>
1285: -- operator.
1286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1287: FND_MESSAGE.set_name('OZF', 'OZF_UTIL_NO_WHERE_OPERATOR');
1288: FND_MSG_PUB.add;
1289: RAISE FND_API.g_exc_unexpected_error;
1290: END IF;
1284: -- Could not find either an = or an <>
1285: -- operator.
1286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1287: FND_MESSAGE.set_name('OZF', 'OZF_UTIL_NO_WHERE_OPERATOR');
1288: FND_MSG_PUB.add;
1289: RAISE FND_API.g_exc_unexpected_error;
1290: END IF;
1291: ELSIF l_eq_pos > 0 AND l_not_pos = 0 THEN
1292: l_curr_pos := l_eq_pos;
1652: l_msg VARCHAR2(2000);
1653: l_cnt NUMBER ;
1654: BEGIN
1655: IF p_text IS NULL THEN
1656: l_count := FND_MSG_PUB.count_msg;
1657: FOR l_cnt IN 1 .. l_count
1658: LOOP
1659: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1660: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1655: IF p_text IS NULL THEN
1656: l_count := FND_MSG_PUB.count_msg;
1657: FOR l_cnt IN 1 .. l_count
1658: LOOP
1659: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1660: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1661: END LOOP;
1662: ELSE
1663: FND_FILE.PUT_LINE(FND_FILE.LOG, p_text );
2009:
2010: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2011:
2012: IF l_org_id IS NULL THEN
2013: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2014: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2015: fnd_msg_pub.add;
2016: END IF;
2017: RAISE fnd_api.g_exc_error;
2011:
2012: IF l_org_id IS NULL THEN
2013: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2014: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2015: fnd_msg_pub.add;
2016: END IF;
2017: RAISE fnd_api.g_exc_error;
2018: END IF;
2019:
2020: OPEN c_get_gl_info(l_org_id);
2021: FETCH c_get_gl_info INTO l_sob, l_to_currency;
2022:
2023: IF c_get_gl_info%NOTFOUND THEN
2024: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2025: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2026: fnd_msg_pub.add;
2027: END IF;
2028:
2022:
2023: IF c_get_gl_info%NOTFOUND THEN
2024: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2025: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2026: fnd_msg_pub.add;
2027: END IF;
2028:
2029: RAISE fnd_api.g_exc_error;
2030: END IF;
2048: EXCEPTION
2049: WHEN fnd_api.g_exc_error THEN
2050: x_return_status := fnd_api.g_ret_sts_error;
2051: WHEN gl_currency_api.no_rate THEN
2052: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2053: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2054: fnd_msg_pub.add;
2055: END IF;
2056:
2050: x_return_status := fnd_api.g_ret_sts_error;
2051: WHEN gl_currency_api.no_rate THEN
2052: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2053: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2054: fnd_msg_pub.add;
2055: END IF;
2056:
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: WHEN gl_currency_api.invalid_currency THEN
2055: END IF;
2056:
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: WHEN gl_currency_api.invalid_currency THEN
2059: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2060: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2061: fnd_msg_pub.add;
2062: END IF;
2063:
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: WHEN gl_currency_api.invalid_currency THEN
2059: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2060: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2061: fnd_msg_pub.add;
2062: END IF;
2063:
2064: x_return_status := fnd_api.g_ret_sts_error;
2065: WHEN OTHERS THEN
2196: l_conversion_type := x_exchange_rate_type;
2197: END IF;
2198:
2199: IF l_conversion_type IS NULL THEN
2200: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2201: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2202: fnd_msg_pub.add;
2203: END IF;
2204:
2198:
2199: IF l_conversion_type IS NULL THEN
2200: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2201: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2202: fnd_msg_pub.add;
2203: END IF;
2204:
2205: x_return_status := fnd_api.g_ret_sts_error;
2206: RETURN;
2208: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2209: 'CONVERSION_TYPE'
2210: ,l_conversion_type) = fnd_api.g_false
2211: THEN
2212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2213: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2214: fnd_msg_pub.add;
2215: END IF;
2216: x_return_status := fnd_api.g_ret_sts_error;
2210: ,l_conversion_type) = fnd_api.g_false
2211: THEN
2212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2213: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2214: fnd_msg_pub.add;
2215: END IF;
2216: x_return_status := fnd_api.g_ret_sts_error;
2217: RETURN;
2218: END IF;
2227:
2228: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2229:
2230: IF l_org_id IS NULL THEN
2231: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2232: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2233: fnd_msg_pub.add;
2234: END IF;
2235:
2229:
2230: IF l_org_id IS NULL THEN
2231: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2232: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2233: fnd_msg_pub.add;
2234: END IF;
2235:
2236: RAISE fnd_api.g_exc_error;
2237: END IF;
2247: OPEN c_get_gl_info(l_org_id);
2248: FETCH c_get_gl_info INTO x_set_of_books_id, x_fc_currency_code;
2249:
2250: IF c_get_gl_info%NOTFOUND THEN
2251: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2252: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2253: fnd_msg_pub.add;
2254: END IF;
2255:
2249:
2250: IF c_get_gl_info%NOTFOUND THEN
2251: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2252: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2253: fnd_msg_pub.add;
2254: END IF;
2255:
2256: RAISE fnd_api.g_exc_error;
2257: END IF;
2277: EXCEPTION
2278: WHEN fnd_api.g_exc_error THEN
2279: x_return_status := fnd_api.g_ret_sts_error;
2280: WHEN gl_currency_api.no_rate THEN
2281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2282: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2283: fnd_msg_pub.add;
2284: END IF;
2285:
2279: x_return_status := fnd_api.g_ret_sts_error;
2280: WHEN gl_currency_api.no_rate THEN
2281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2282: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2283: fnd_msg_pub.add;
2284: END IF;
2285:
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: WHEN gl_currency_api.invalid_currency THEN
2284: END IF;
2285:
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: WHEN gl_currency_api.invalid_currency THEN
2288: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2289: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2290: fnd_msg_pub.add;
2291: END IF;
2292:
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: WHEN gl_currency_api.invalid_currency THEN
2288: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2289: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2290: fnd_msg_pub.add;
2291: END IF;
2292:
2293: x_return_status := fnd_api.g_ret_sts_error;
2294: WHEN OTHERS THEN
2293: x_return_status := fnd_api.g_ret_sts_error;
2294: WHEN OTHERS THEN
2295: x_return_status := fnd_api.g_ret_sts_unexp_error;
2296:
2297: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2298: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2299: END IF;
2300: END calculate_functional_curr;
2301:
2294: WHEN OTHERS THEN
2295: x_return_status := fnd_api.g_ret_sts_unexp_error;
2296:
2297: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2298: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2299: END IF;
2300: END calculate_functional_curr;
2301:
2302:
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377: x_return_status := fnd_api.g_ret_sts_unexp_error;
2378:
2379: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2380: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2381: fnd_message.set_token('ROUTINE', 'OZF_UTLITY_PVT');
2382: fnd_message.set_token('ERRNO', sqlcode);
2383: fnd_message.set_token('REASON', sqlerrm);
2520: EXCEPTION
2521: WHEN OTHERS THEN
2522: x_return_status := fnd_api.g_ret_sts_unexp_error;
2523:
2524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2525: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2526: fnd_message.set_token('ROUTINE', 'OZF_UTLITY_PVT');
2527: fnd_message.set_token('ERRNO', sqlcode);
2528: fnd_message.set_token('REASON', sqlerrm);
2580: l_conversion_type := x_exchange_rate_type;
2581: END IF;
2582:
2583: IF l_conversion_type IS NULL THEN
2584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2585: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2586: fnd_msg_pub.add;
2587: END IF;
2588:
2582:
2583: IF l_conversion_type IS NULL THEN
2584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2585: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2586: fnd_msg_pub.add;
2587: END IF;
2588:
2589: x_return_status := fnd_api.g_ret_sts_error;
2590: RETURN;
2592: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2593: 'CONVERSION_TYPE'
2594: ,l_conversion_type) = fnd_api.g_false
2595: THEN
2596: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2597: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2598: fnd_msg_pub.add;
2599: END IF;
2600: x_return_status := fnd_api.g_ret_sts_error;
2594: ,l_conversion_type) = fnd_api.g_false
2595: THEN
2596: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2597: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2598: fnd_msg_pub.add;
2599: END IF;
2600: x_return_status := fnd_api.g_ret_sts_error;
2601: RETURN;
2602: END IF;
2627: EXCEPTION
2628: WHEN fnd_api.g_exc_error THEN
2629: x_return_status := fnd_api.g_ret_sts_error;
2630: WHEN gl_currency_api.no_rate THEN
2631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2632: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2633: fnd_msg_pub.add;
2634: END IF;
2635:
2629: x_return_status := fnd_api.g_ret_sts_error;
2630: WHEN gl_currency_api.no_rate THEN
2631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2632: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2633: fnd_msg_pub.add;
2634: END IF;
2635:
2636: x_return_status := fnd_api.g_ret_sts_error;
2637: WHEN gl_currency_api.invalid_currency THEN
2634: END IF;
2635:
2636: x_return_status := fnd_api.g_ret_sts_error;
2637: WHEN gl_currency_api.invalid_currency THEN
2638: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2639: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2640: fnd_msg_pub.add;
2641: END IF;
2642:
2636: x_return_status := fnd_api.g_ret_sts_error;
2637: WHEN gl_currency_api.invalid_currency THEN
2638: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2639: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2640: fnd_msg_pub.add;
2641: END IF;
2642:
2643: x_return_status := fnd_api.g_ret_sts_error;
2644: WHEN OTHERS THEN
2643: x_return_status := fnd_api.g_ret_sts_error;
2644: WHEN OTHERS THEN
2645: x_return_status := fnd_api.g_ret_sts_unexp_error;
2646:
2647: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2648: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2649: END IF;
2650: END calculate_functional_currency;
2651:
2644: WHEN OTHERS THEN
2645: x_return_status := fnd_api.g_ret_sts_unexp_error;
2646:
2647: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2648: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2649: END IF;
2650: END calculate_functional_currency;
2651:
2652: ---------------------------------------------------------------------
2700: -- Get the currency conversion type from profile option
2701: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2702: -- Conversion type cannot be null in profile
2703: IF l_conversion_type IS NULL THEN
2704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2705: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2706: fnd_msg_pub.add;
2707: END IF;
2708: x_return_status := fnd_api.g_ret_sts_error;
2702: -- Conversion type cannot be null in profile
2703: IF l_conversion_type IS NULL THEN
2704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2705: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2706: fnd_msg_pub.add;
2707: END IF;
2708: x_return_status := fnd_api.g_ret_sts_error;
2709: RETURN;
2710: END IF;
2728: --
2729:
2730: EXCEPTION
2731: WHEN gl_currency_api.no_rate THEN
2732: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2733: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2734: fnd_msg_pub.add;
2735: END IF;
2736:
2730: EXCEPTION
2731: WHEN gl_currency_api.no_rate THEN
2732: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2733: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2734: fnd_msg_pub.add;
2735: END IF;
2736:
2737: x_return_status := fnd_api.g_ret_sts_error;
2738: WHEN gl_currency_api.invalid_currency THEN
2735: END IF;
2736:
2737: x_return_status := fnd_api.g_ret_sts_error;
2738: WHEN gl_currency_api.invalid_currency THEN
2739: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2740: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2741: fnd_msg_pub.add;
2742: END IF;
2743:
2737: x_return_status := fnd_api.g_ret_sts_error;
2738: WHEN gl_currency_api.invalid_currency THEN
2739: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2740: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2741: fnd_msg_pub.add;
2742: END IF;
2743:
2744: x_return_status := fnd_api.g_ret_sts_error;
2745: WHEN OTHERS THEN
2744: x_return_status := fnd_api.g_ret_sts_error;
2745: WHEN OTHERS THEN
2746: x_return_status := fnd_api.g_ret_sts_unexp_error;
2747:
2748: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2749: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2750: END IF;
2751: END convert_currency;
2752:
2745: WHEN OTHERS THEN
2746: x_return_status := fnd_api.g_ret_sts_unexp_error;
2747:
2748: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2749: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2750: END IF;
2751: END convert_currency;
2752:
2753: /*============================================================================*/
2822: END IF;
2823: EXCEPTION
2824: WHEN OTHERS THEN
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2827: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Get_Resource_Role');
2828: END IF;
2829: RAISE;
2830: END Get_Resource_Role;
2823: EXCEPTION
2824: WHEN OTHERS THEN
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2827: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Get_Resource_Role');
2828: END IF;
2829: RAISE;
2830: END Get_Resource_Role;
2831:
3053:
3054: EXCEPTION
3055: WHEN FND_API.G_EXC_ERROR THEN
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3058: p_data => x_msg_data);
3059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3057: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3058: p_data => x_msg_data);
3059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3062: p_data => x_msg_data);
3063: WHEN OTHERS THEN
3064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3065: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3061: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3062: p_data => x_msg_data);
3063: WHEN OTHERS THEN
3064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3065: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3066: THEN
3067: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3068: END IF;
3069: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3063: WHEN OTHERS THEN
3064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3065: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3066: THEN
3067: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3068: END IF;
3069: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3070: p_data => x_msg_data);
3071:
3065: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3066: THEN
3067: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3068: END IF;
3069: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3070: p_data => x_msg_data);
3071:
3072: END Get_Object_Name;
3073: