97: -- HISTORY
98: -- 25-Apr-2000 skarumur Created.
99: -- 26-Apr-2000 choang Modified to handle <> conditions.
100: ---------------------------------------------------------------------
101: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
102: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
103: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
104: OZF_UNEXP_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_unexp_error);
105: OZF_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error);
98: -- 25-Apr-2000 skarumur Created.
99: -- 26-Apr-2000 choang Modified to handle <> conditions.
100: ---------------------------------------------------------------------
101: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
102: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
103: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
104: OZF_UNEXP_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_unexp_error);
105: OZF_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error);
106:
99: -- 26-Apr-2000 choang Modified to handle <> conditions.
100: ---------------------------------------------------------------------
101: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
102: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
103: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
104: OZF_UNEXP_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_unexp_error);
105: OZF_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error);
106:
107: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_UTILITY_PVT';
100: ---------------------------------------------------------------------
101: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
102: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
103: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
104: OZF_UNEXP_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_unexp_error);
105: OZF_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error);
106:
107: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_UTILITY_PVT';
108: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ozfvutlb.pls';
101: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
102: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
103: OZF_DEBUG_MEDIUM_ON CONSTANT BOOLEAN := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
104: OZF_UNEXP_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_unexp_error);
105: OZF_ERROR CONSTANT BOOLEAN := FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error);
106:
107: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_UTILITY_PVT';
108: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ozfvutlb.pls';
109:
513: IS
514: BEGIN
515: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
516: FND_MESSAGE.set_token('TEXT', REPLACE (p_message_text, FND_API.G_MISS_CHAR, 'G_MISS_CHAR'));
517: FND_MSG_PUB.add;
518: END debug_message;
519:
520:
521: ---------------------------------------------------------------------
531: P_token_value VARCHAR2 := NULL
532: )
533: IS
534: BEGIN
535: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
536: FND_MESSAGE.set_name('OZF', p_message_name);
537: IF p_token_name IS NOT NULL THEN
538: FND_MESSAGE.set_token(p_token_name, p_token_value);
539: END IF;
536: FND_MESSAGE.set_name('OZF', p_message_name);
537: IF p_token_name IS NOT NULL THEN
538: FND_MESSAGE.set_token(p_token_name, p_token_value);
539: END IF;
540: FND_MSG_PUB.add;
541: END IF;
542: END error_message;
543:
544:
553: IS
554: l_count NUMBER;
555: l_msg VARCHAR2(2000);
556: BEGIN
557: l_count := FND_MSG_PUB.count_msg;
558: FOR i IN 1 .. l_count LOOP
559: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
560: -- holiu: remove since adchkdrv does not like it
561: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
555: l_msg VARCHAR2(2000);
556: BEGIN
557: l_count := FND_MSG_PUB.count_msg;
558: FOR i IN 1 .. l_count LOOP
559: l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
560: -- holiu: remove since adchkdrv does not like it
561: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
562: END LOOP;
563: END display_messages;
1008: x_rate => l_rate
1009: );
1010: EXCEPTION
1011: WHEN GL_Currency_API.NO_RATE THEN
1012: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1013: FND_MESSAGE.Set_Name ('OZF', 'OZF_NO_RATE');
1014: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
1015: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
1016: FND_MSG_PUB.Add;
1012: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1013: FND_MESSAGE.Set_Name ('OZF', 'OZF_NO_RATE');
1014: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
1015: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
1016: FND_MSG_PUB.Add;
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: WHEN GL_Currency_API.INVALID_CURRENCY THEN
1020: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1016: FND_MSG_PUB.Add;
1017: END IF;
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: WHEN GL_Currency_API.INVALID_CURRENCY THEN
1020: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1021: FND_MESSAGE.Set_Name ('OZF', 'OZF_INVALID_CURR');
1022: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
1023: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
1024: FND_MSG_PUB.Add;
1020: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1021: FND_MESSAGE.Set_Name ('OZF', 'OZF_INVALID_CURR');
1022: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
1023: FND_MESSAGE.Set_Token ('CURRENCY_TO', p_to_currency);
1024: FND_MSG_PUB.Add;
1025: END IF;
1026: x_return_status := FND_API.G_RET_STS_ERROR;
1027: END Convert_Currency;
1028:
1307: -----------------------------------
1308: IF l_eq_pos = 0 AND l_not_pos = 0 THEN
1309: -- Could not find either an = or an <>
1310: -- operator.
1311: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1312: FND_MESSAGE.set_name('OZF', 'OZF_UTIL_NO_WHERE_OPERATOR');
1313: FND_MSG_PUB.add;
1314: RAISE FND_API.g_exc_unexpected_error;
1315: END IF;
1309: -- Could not find either an = or an <>
1310: -- operator.
1311: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1312: FND_MESSAGE.set_name('OZF', 'OZF_UTIL_NO_WHERE_OPERATOR');
1313: FND_MSG_PUB.add;
1314: RAISE FND_API.g_exc_unexpected_error;
1315: END IF;
1316: ELSIF l_eq_pos > 0 AND l_not_pos = 0 THEN
1317: l_curr_pos := l_eq_pos;
1677: l_msg VARCHAR2(2000);
1678: l_cnt NUMBER ;
1679: BEGIN
1680: IF p_text IS NULL THEN
1681: l_count := FND_MSG_PUB.count_msg;
1682: FOR l_cnt IN 1 .. l_count
1683: LOOP
1684: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1685: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1680: IF p_text IS NULL THEN
1681: l_count := FND_MSG_PUB.count_msg;
1682: FOR l_cnt IN 1 .. l_count
1683: LOOP
1684: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1685: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1686: END LOOP;
1687: ELSE
1688: FND_FILE.PUT_LINE(FND_FILE.LOG, p_text );
2035:
2036: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2037:
2038: IF l_org_id IS NULL THEN
2039: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2040: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2041: fnd_msg_pub.add;
2042: END IF;
2043: RAISE fnd_api.g_exc_error;
2037:
2038: IF l_org_id IS NULL THEN
2039: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2040: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2041: fnd_msg_pub.add;
2042: END IF;
2043: RAISE fnd_api.g_exc_error;
2044: END IF;
2045:
2046: OPEN c_get_gl_info(l_org_id);
2047: FETCH c_get_gl_info INTO l_sob, l_to_currency;
2048:
2049: IF c_get_gl_info%NOTFOUND THEN
2050: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2051: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2052: fnd_msg_pub.add;
2053: END IF;
2054:
2048:
2049: IF c_get_gl_info%NOTFOUND THEN
2050: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2051: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2052: fnd_msg_pub.add;
2053: END IF;
2054:
2055: RAISE fnd_api.g_exc_error;
2056: END IF;
2081: EXCEPTION
2082: WHEN fnd_api.g_exc_error THEN
2083: x_return_status := fnd_api.g_ret_sts_error;
2084: WHEN gl_currency_api.no_rate THEN
2085: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2086: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2087: fnd_msg_pub.add;
2088: END IF;
2089:
2083: x_return_status := fnd_api.g_ret_sts_error;
2084: WHEN gl_currency_api.no_rate THEN
2085: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2086: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2087: fnd_msg_pub.add;
2088: END IF;
2089:
2090: x_return_status := fnd_api.g_ret_sts_error;
2091: WHEN gl_currency_api.invalid_currency THEN
2088: END IF;
2089:
2090: x_return_status := fnd_api.g_ret_sts_error;
2091: WHEN gl_currency_api.invalid_currency THEN
2092: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2093: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2094: fnd_msg_pub.add;
2095: END IF;
2096:
2090: x_return_status := fnd_api.g_ret_sts_error;
2091: WHEN gl_currency_api.invalid_currency THEN
2092: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2093: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2094: fnd_msg_pub.add;
2095: END IF;
2096:
2097: x_return_status := fnd_api.g_ret_sts_error;
2098: WHEN OTHERS THEN
2229: l_conversion_type := x_exchange_rate_type;
2230: END IF;
2231:
2232: IF l_conversion_type IS NULL THEN
2233: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2234: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2235: fnd_msg_pub.add;
2236: END IF;
2237:
2231:
2232: IF l_conversion_type IS NULL THEN
2233: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2234: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2235: fnd_msg_pub.add;
2236: END IF;
2237:
2238: x_return_status := fnd_api.g_ret_sts_error;
2239: RETURN;
2241: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2242: 'CONVERSION_TYPE'
2243: ,l_conversion_type) = fnd_api.g_false
2244: THEN
2245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2246: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2247: fnd_msg_pub.add;
2248: END IF;
2249: x_return_status := fnd_api.g_ret_sts_error;
2243: ,l_conversion_type) = fnd_api.g_false
2244: THEN
2245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2246: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2247: fnd_msg_pub.add;
2248: END IF;
2249: x_return_status := fnd_api.g_ret_sts_error;
2250: RETURN;
2251: END IF;
2260:
2261: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2262:
2263: IF l_org_id IS NULL THEN
2264: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2265: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2266: fnd_msg_pub.add;
2267: END IF;
2268:
2262:
2263: IF l_org_id IS NULL THEN
2264: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2265: fnd_message.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
2266: fnd_msg_pub.add;
2267: END IF;
2268:
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2280: OPEN c_get_gl_info(l_org_id);
2281: FETCH c_get_gl_info INTO x_set_of_books_id, x_fc_currency_code;
2282:
2283: IF c_get_gl_info%NOTFOUND THEN
2284: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2285: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2286: fnd_msg_pub.add;
2287: END IF;
2288:
2282:
2283: IF c_get_gl_info%NOTFOUND THEN
2284: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2285: fnd_message.set_name('OZF', 'OZF_GL_SOB_NOTFOUND');
2286: fnd_msg_pub.add;
2287: END IF;
2288:
2289: RAISE fnd_api.g_exc_error;
2290: END IF;
2310: EXCEPTION
2311: WHEN fnd_api.g_exc_error THEN
2312: x_return_status := fnd_api.g_ret_sts_error;
2313: WHEN gl_currency_api.no_rate THEN
2314: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2315: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2316: fnd_msg_pub.add;
2317: END IF;
2318:
2312: x_return_status := fnd_api.g_ret_sts_error;
2313: WHEN gl_currency_api.no_rate THEN
2314: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2315: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2316: fnd_msg_pub.add;
2317: END IF;
2318:
2319: x_return_status := fnd_api.g_ret_sts_error;
2320: WHEN gl_currency_api.invalid_currency THEN
2317: END IF;
2318:
2319: x_return_status := fnd_api.g_ret_sts_error;
2320: WHEN gl_currency_api.invalid_currency THEN
2321: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2322: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2323: fnd_msg_pub.add;
2324: END IF;
2325:
2319: x_return_status := fnd_api.g_ret_sts_error;
2320: WHEN gl_currency_api.invalid_currency THEN
2321: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2322: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2323: fnd_msg_pub.add;
2324: END IF;
2325:
2326: x_return_status := fnd_api.g_ret_sts_error;
2327: WHEN OTHERS THEN
2326: x_return_status := fnd_api.g_ret_sts_error;
2327: WHEN OTHERS THEN
2328: x_return_status := fnd_api.g_ret_sts_unexp_error;
2329:
2330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2331: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2332: END IF;
2333: END calculate_functional_curr;
2334:
2327: WHEN OTHERS THEN
2328: x_return_status := fnd_api.g_ret_sts_unexp_error;
2329:
2330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2331: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2332: END IF;
2333: END calculate_functional_curr;
2334:
2335:
2374: EXCEPTION
2375: WHEN OTHERS THEN
2376: x_return_status := fnd_api.g_ret_sts_unexp_error;
2377:
2378: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2379: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2380: fnd_message.set_token('ROUTINE', 'OZF_UTLITY_PVT');
2381: fnd_message.set_token('ERRNO', sqlcode);
2382: fnd_message.set_token('REASON', sqlerrm);
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: x_return_status := fnd_api.g_ret_sts_unexp_error;
2529:
2530: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2531: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2532: fnd_message.set_token('ROUTINE', 'OZF_UTLITY_PVT');
2533: fnd_message.set_token('ERRNO', sqlcode);
2534: fnd_message.set_token('REASON', sqlerrm);
2594: l_conv_date := p_conv_date;
2595: END IF;
2596:
2597: IF l_conversion_type IS NULL THEN
2598: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2599: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2600: fnd_msg_pub.add;
2601: END IF;
2602:
2596:
2597: IF l_conversion_type IS NULL THEN
2598: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2599: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2600: fnd_msg_pub.add;
2601: END IF;
2602:
2603: x_return_status := fnd_api.g_ret_sts_error;
2604: RETURN;
2606: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2607: 'CONVERSION_TYPE'
2608: ,l_conversion_type) = fnd_api.g_false
2609: THEN
2610: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2611: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2612: fnd_msg_pub.add;
2613: END IF;
2614: x_return_status := fnd_api.g_ret_sts_error;
2608: ,l_conversion_type) = fnd_api.g_false
2609: THEN
2610: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2611: fnd_message.set_name('OZF', 'OZF_WRONG_CONVERSION_TYPE');
2612: fnd_msg_pub.add;
2613: END IF;
2614: x_return_status := fnd_api.g_ret_sts_error;
2615: RETURN;
2616: END IF;
2641: EXCEPTION
2642: WHEN fnd_api.g_exc_error THEN
2643: x_return_status := fnd_api.g_ret_sts_error;
2644: WHEN gl_currency_api.no_rate THEN
2645: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2646: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2647: fnd_msg_pub.add;
2648: END IF;
2649:
2643: x_return_status := fnd_api.g_ret_sts_error;
2644: WHEN gl_currency_api.no_rate THEN
2645: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2646: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2647: fnd_msg_pub.add;
2648: END IF;
2649:
2650: x_return_status := fnd_api.g_ret_sts_error;
2651: WHEN gl_currency_api.invalid_currency THEN
2648: END IF;
2649:
2650: x_return_status := fnd_api.g_ret_sts_error;
2651: WHEN gl_currency_api.invalid_currency THEN
2652: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2653: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2654: fnd_msg_pub.add;
2655: END IF;
2656:
2650: x_return_status := fnd_api.g_ret_sts_error;
2651: WHEN gl_currency_api.invalid_currency THEN
2652: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2653: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2654: fnd_msg_pub.add;
2655: END IF;
2656:
2657: x_return_status := fnd_api.g_ret_sts_error;
2658: WHEN OTHERS THEN
2657: x_return_status := fnd_api.g_ret_sts_error;
2658: WHEN OTHERS THEN
2659: x_return_status := fnd_api.g_ret_sts_unexp_error;
2660:
2661: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2662: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2663: END IF;
2664: END calculate_functional_currency;
2665:
2658: WHEN OTHERS THEN
2659: x_return_status := fnd_api.g_ret_sts_unexp_error;
2660:
2661: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2662: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_functional_curency');
2663: END IF;
2664: END calculate_functional_currency;
2665:
2666: ---------------------------------------------------------------------
2715: -- Get the currency conversion type from profile option
2716: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2717: -- Conversion type cannot be null in profile
2718: IF l_conversion_type IS NULL THEN
2719: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2720: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2721: fnd_msg_pub.add;
2722: END IF;
2723: x_return_status := fnd_api.g_ret_sts_error;
2717: -- Conversion type cannot be null in profile
2718: IF l_conversion_type IS NULL THEN
2719: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2720: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
2721: fnd_msg_pub.add;
2722: END IF;
2723: x_return_status := fnd_api.g_ret_sts_error;
2724: RETURN;
2725: END IF;
2750: --
2751:
2752: EXCEPTION
2753: WHEN gl_currency_api.no_rate THEN
2754: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2755: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2756: fnd_msg_pub.add;
2757: END IF;
2758:
2752: EXCEPTION
2753: WHEN gl_currency_api.no_rate THEN
2754: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2755: fnd_message.set_name('OZF', 'OZF_NO_RATE');
2756: fnd_msg_pub.add;
2757: END IF;
2758:
2759: x_return_status := fnd_api.g_ret_sts_error;
2760: WHEN gl_currency_api.invalid_currency THEN
2757: END IF;
2758:
2759: x_return_status := fnd_api.g_ret_sts_error;
2760: WHEN gl_currency_api.invalid_currency THEN
2761: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2762: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2763: fnd_msg_pub.add;
2764: END IF;
2765:
2759: x_return_status := fnd_api.g_ret_sts_error;
2760: WHEN gl_currency_api.invalid_currency THEN
2761: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2762: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
2763: fnd_msg_pub.add;
2764: END IF;
2765:
2766: x_return_status := fnd_api.g_ret_sts_error;
2767: WHEN OTHERS THEN
2766: x_return_status := fnd_api.g_ret_sts_error;
2767: WHEN OTHERS THEN
2768: x_return_status := fnd_api.g_ret_sts_unexp_error;
2769:
2770: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2771: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2772: END IF;
2773: END convert_currency;
2774:
2767: WHEN OTHERS THEN
2768: x_return_status := fnd_api.g_ret_sts_unexp_error;
2769:
2770: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2771: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
2772: END IF;
2773: END convert_currency;
2774:
2775: /*============================================================================*/
2844: END IF;
2845: EXCEPTION
2846: WHEN OTHERS THEN
2847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2848: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2849: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Get_Resource_Role');
2850: END IF;
2851: RAISE;
2852: END Get_Resource_Role;
2845: EXCEPTION
2846: WHEN OTHERS THEN
2847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2848: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2849: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Get_Resource_Role');
2850: END IF;
2851: RAISE;
2852: END Get_Resource_Role;
2853:
3075:
3076: EXCEPTION
3077: WHEN FND_API.G_EXC_ERROR THEN
3078: x_return_status := FND_API.G_RET_STS_ERROR;
3079: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3080: p_data => x_msg_data);
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3079: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3080: p_data => x_msg_data);
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3084: p_data => x_msg_data);
3085: WHEN OTHERS THEN
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3084: p_data => x_msg_data);
3085: WHEN OTHERS THEN
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3088: THEN
3089: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3090: END IF;
3091: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3085: WHEN OTHERS THEN
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3088: THEN
3089: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3090: END IF;
3091: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3092: p_data => x_msg_data);
3093:
3087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3088: THEN
3089: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3090: END IF;
3091: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3092: p_data => x_msg_data);
3093:
3094: END Get_Object_Name;
3095:
3714:
3715: --insrt_flag VARCHAR2(1);
3716: insrt_count NUMBER := 0;
3717:
3718: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
3719:
3720: /*CURSOR budget_objversion_csr(p_act_budget_id IN NUMBER) IS
3721: SELECT
3722: OBJECT_VERSION_NUMBER
3841:
3842: EXCEPTION
3843: WHEN error_no_rollback THEN
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: FND_MSG_PUB.Count_And_Get (
3846: p_encoded => FND_API.G_FALSE,
3847: p_count => x_msg_count,
3848: p_data => x_msg_data
3849: );
3849: );
3850: WHEN FND_API.g_exc_error THEN
3851: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: FND_MSG_PUB.Count_And_Get (
3854: p_encoded => FND_API.G_FALSE,
3855: p_count => x_msg_count,
3856: p_data => x_msg_data
3857: );
3857: );
3858: WHEN FND_API.g_exc_unexpected_error THEN
3859: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3861: FND_MSG_PUB.Count_And_Get (
3862: p_encoded => FND_API.G_FALSE,
3863: p_count => x_msg_count,
3864: p_data => x_msg_data
3865: );
3866: WHEN OTHERS THEN
3867: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3869: IF OZF_UNEXP_ERROR THEN
3870: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3871: END IF;
3872: FND_MSG_PUB.Count_And_Get (
3873: p_encoded => FND_API.G_FALSE,
3874: p_count => x_msg_count,
3868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3869: IF OZF_UNEXP_ERROR THEN
3870: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3871: END IF;
3872: FND_MSG_PUB.Count_And_Get (
3873: p_encoded => FND_API.G_FALSE,
3874: p_count => x_msg_count,
3875: p_data => x_msg_data
3876: );
3906: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3907: x_msg_count NUMBER;
3908: x_msg_data VARCHAR2(50);
3909:
3910: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
3911:
3912: l_fund_id NUMBER;
3913: l_object_version_number NUMBER;
3914: l_fund_rec ozf_funds_pvt.fund_rec_type;
4268:
4269: EXCEPTION
4270: WHEN error_no_rollback THEN
4271: x_return_status := FND_API.G_RET_STS_ERROR;
4272: FND_MSG_PUB.Count_And_Get (
4273: p_encoded => FND_API.G_FALSE,
4274: p_count => x_msg_count,
4275: p_data => x_msg_data
4276: );
4276: );
4277: WHEN FND_API.g_exc_error THEN
4278: ROLLBACK TO UPDATE_OZF_FUNDS_ALL_B;
4279: x_return_status := FND_API.G_RET_STS_ERROR;
4280: FND_MSG_PUB.Count_And_Get (
4281: p_encoded => FND_API.G_FALSE,
4282: p_count => x_msg_count,
4283: p_data => x_msg_data
4284: );
4284: );
4285: WHEN FND_API.g_exc_unexpected_error THEN
4286: ROLLBACK TO UPDATE_OZF_FUNDS_ALL_B;
4287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4288: FND_MSG_PUB.Count_And_Get (
4289: p_encoded => FND_API.G_FALSE,
4290: p_count => x_msg_count,
4291: p_data => x_msg_data
4292: );
4293: WHEN OTHERS THEN
4294: ROLLBACK TO UPDATE_OZF_FUNDS_ALL_B;
4295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4296: IF OZF_UNEXP_ERROR THEN
4297: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4298: END IF;
4299: FND_MSG_PUB.Count_And_Get (
4300: p_encoded => FND_API.G_FALSE,
4301: p_count => x_msg_count,
4295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4296: IF OZF_UNEXP_ERROR THEN
4297: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4298: END IF;
4299: FND_MSG_PUB.Count_And_Get (
4300: p_encoded => FND_API.G_FALSE,
4301: p_count => x_msg_count,
4302: p_data => x_msg_data
4303: );