[Home] [Help]
252: END;
253: -- Bug4382865: End SQL Literal Fix
254:
255: IF l_count = 0 THEN
256: RETURN FND_API.g_false;
257: ELSE
258: RETURN FND_API.g_true;
259: END IF;
260:
254:
255: IF l_count = 0 THEN
256: RETURN FND_API.g_false;
257: ELSE
258: RETURN FND_API.g_true;
259: END IF;
260:
261: END check_fk_exists;
262:
307: WHEN NO_DATA_FOUND THEN
308: l_count := 0;
309: END;
310: IF l_count = 0 THEN
311: RETURN FND_API.g_false;
312: ELSE
313: RETURN FND_API.g_true;
314: END IF;
315: END IF;
309: END;
310: IF l_count = 0 THEN
311: RETURN FND_API.g_false;
312: ELSE
313: RETURN FND_API.g_true;
314: END IF;
315: END IF;
316:
317: END check_lookup_exists;
361: FETCH cur_check_lookup_exists INTO l_count;
362: CLOSE cur_check_lookup_exists;
363:
364: IF l_count = 0 THEN
365: RETURN FND_API.g_false;
366: ELSE
367: RETURN FND_API.g_true;
368: END IF;
369:
363:
364: IF l_count = 0 THEN
365: RETURN FND_API.g_false;
366: ELSE
367: RETURN FND_API.g_true;
368: END IF;
369:
370: END check_lookup_exists;
371:
444: l_count := 0;
445: END;
446:
447: IF l_count = 0 THEN
448: RETURN FND_API.g_true;
449: ELSE
450: RETURN FND_API.g_false;
451: END IF;
452:
446:
447: IF l_count = 0 THEN
448: RETURN FND_API.g_true;
449: ELSE
450: RETURN FND_API.g_false;
451: END IF;
452:
453: END check_uniqueness;
454:
466: RETURN VARCHAR2
467: IS
468: BEGIN
469: IF p_value = 'Y' or p_value = 'N' THEN
470: RETURN FND_API.g_true;
471: ELSE
472: RETURN FND_API.g_false;
473: END IF;
474: END is_Y_or_N;
468: BEGIN
469: IF p_value = 'Y' or p_value = 'N' THEN
470: RETURN FND_API.g_true;
471: ELSE
472: RETURN FND_API.g_false;
473: END IF;
474: END is_Y_or_N;
475:
476:
495: )
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:
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;
589: -- Standard Start of API savepoint
590: SAVEPOINT Create_act_log;
591:
592: -- Initialize API return status to success
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: --
596: -- API body
597: --
646:
647: OPEN c_log(l_act_log_id);
648: FETCH c_log INTO x_rowid;
649: IF (c_log%NOTFOUND) THEN
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
651: END IF;
652: CLOSE c_log;
653:
654: --
659: EXCEPTION
660:
661: WHEN OTHERS THEN
662: ROLLBACK TO create_act_log;
663: x_return_status := FND_API.g_ret_sts_unexp_error;
664:
665: END create_log;
666:
667:
695: )
696: IS
697: BEGIN
698: -- initialize return status
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: IF (p_sys_qual ='CSCH') THEN
702: -- Start of code modified by ptendulk on 30-Jan-2001
703: --x_table_name := 'AMS_CAMPAIGN_SCHEDULES';
774: x_table_name := 'OZF_DLG_FLOW_COMPS_B';
775: x_pk_name := 'FLOW_COMPONENT_ID';
776: ELSE
777: OZF_Utility_PVT.error_message ('OZF_INVALID_SYS_QUAL', 'SYS_QUALIFIER', p_sys_qual);
778: x_return_status := FND_API.g_ret_sts_unexp_error;
779: x_table_name := NULL;
780: x_pk_name := NULL;
781: END IF;
782:
807:
808:
809:
810: IF SQL%NOTFOUND THEN
811: x_return_status := FND_API.G_FALSE;
812: ELSE
813: x_return_status := FND_API.G_TRUE;
814: END IF;
815:
809:
810: IF SQL%NOTFOUND THEN
811: x_return_status := FND_API.G_FALSE;
812: ELSE
813: x_return_status := FND_API.G_TRUE;
814: END IF;
815:
816:
817: EXCEPTION
818:
819: WHEN OTHERS THEN
820: x_source_code := NULL;
821: x_source_id := NULL;
822: x_return_status := FND_API.G_FALSE;
823:
824: End;
825:
826:
962: l_rate NUMBER; -- Not used in Marketing.
963: l_conversion_type VARCHAR2(30); -- Currency conversion type; see API documention for details.
964: BEGIN
965: -- Initialize return status.
966: x_return_status := FND_API.G_RET_STS_SUCCESS;
967:
968: -- Get the currency conversion type from profile option
969: l_conversion_type := FND_PROFILE.Value (L_CONVERSION_TYPE_PROFILE);
970:
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
996: FND_MESSAGE.Set_Name ('OZF', 'OZF_INVALID_CURR');
997: FND_MESSAGE.Set_Token ('CURRENCY_FROM', p_from_currency);
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:
1004: ---------------------------------------------------------------------
1005: -- PROCEDURE
1030: OPEN c_meaning;
1031: FETCH c_meaning INTO x_meaning;
1032: IF c_meaning%NOTFOUND THEN
1033: CLOSE c_meaning;
1034: x_return_status := FND_API.G_RET_STS_ERROR;
1035: x_meaning:= NULL;
1036: ELSE
1037: CLOSE c_meaning;
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1034: x_return_status := FND_API.G_RET_STS_ERROR;
1035: x_meaning:= NULL;
1036: ELSE
1037: CLOSE c_meaning;
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039: END IF;
1040: EXCEPTION
1041: WHEN OTHERS THEN
1042: IF c_meaning%ISOPEN THEN
1041: WHEN OTHERS THEN
1042: IF c_meaning%ISOPEN THEN
1043: CLOSE c_meaning;
1044: END IF;
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: x_meaning := NULL;
1047: END get_lookup_meaning;
1048:
1049:
1072: where TIMEZONE_ID = l_time_id;
1073:
1074: BEGIN
1075: -- Initialize API return status to success
1076: x_return_status := FND_API.G_RET_STS_SUCCESS;
1077: l_sys_time_id := FND_PROFILE.VALUE('SERVER_TIMEZONE_ID');
1078: OPEN c_get_name(l_sys_time_id);
1079: FETCH c_get_name into l_sys_name;
1080: IF (c_get_name%NOTFOUND) THEN
1078: OPEN c_get_name(l_sys_time_id);
1079: FETCH c_get_name into l_sys_name;
1080: IF (c_get_name%NOTFOUND) THEN
1081: CLOSE c_get_name;
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1083: return;
1084: END IF;
1085: CLOSE c_get_name;
1086:
1090: WHEN NO_DATA_FOUND THEN
1091: IF (c_get_name%ISOPEN) THEN
1092: CLOSE c_get_name;
1093: END IF;
1094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1095: END get_System_Timezone;
1096:
1097: ---------------------------------------------------------------------
1098: -- PROCEDURE
1119: where TIMEZONE_ID = l_time_id;
1120:
1121: BEGIN
1122: -- Initialize API return status to success
1123: x_return_status := FND_API.G_RET_STS_SUCCESS;
1124: l_user_time_id := FND_PROFILE.VALUE('CLIENT_TIMEZONE_ID');
1125: OPEN get_name(l_user_time_id);
1126: FETCH get_name into l_user_time_name;
1127: IF (get_name%NOTFOUND) THEN
1125: OPEN get_name(l_user_time_id);
1126: FETCH get_name into l_user_time_name;
1127: IF (get_name%NOTFOUND) THEN
1128: CLOSE get_name;
1129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1130: return;
1131: END IF;
1132: CLOSE get_name;
1133:
1137: WHEN NO_DATA_FOUND THEN
1138: IF (get_name%ISOPEN) THEN
1139: CLOSE get_name;
1140: END IF;
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1142: END get_User_Timezone;
1143:
1144: -------------------------------------------------------------------------------------------------
1145: -- PROCEDURE
1156: -- converted into system timezone else it will be
1157: -- converted to user timezone .
1158: ---------------------------------------------------------------------------------------------------
1159: PROCEDURE Convert_Timezone(
1160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1161: x_return_status OUT NOCOPY VARCHAR2,
1162: x_msg_count OUT NOCOPY NUMBER,
1163: x_msg_data OUT NOCOPY VARCHAR2,
1164:
1179: l_to_timezone_id NUMBEr ;
1180: BEGIN
1181:
1182: -- Initialize API return status to success
1183: x_return_status := FND_API.G_RET_STS_SUCCESS;
1184:
1185: get_System_Timezone(
1186: l_return_status,
1187: l_sys_time_id,
1186: l_return_status,
1187: l_sys_time_id,
1188: l_sys_time_name);
1189:
1190: IF (l_return_status = FND_API.G_RET_STS_ERROR OR
1191: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1192: THEN
1193: x_return_status := l_return_status;
1194: RETURN;
1187: l_sys_time_id,
1188: l_sys_time_name);
1189:
1190: IF (l_return_status = FND_API.G_RET_STS_ERROR OR
1191: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1192: THEN
1193: x_return_status := l_return_status;
1194: RETURN;
1195: END IF;
1203: x_user_time_name => l_user_time_name
1204: ) ;
1205: END IF;
1206:
1207: IF (l_return_status = FND_API.G_RET_STS_ERROR OR
1208: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1209: THEN
1210: x_return_status := l_return_status;
1211: RETURN;
1204: ) ;
1205: END IF;
1206:
1207: IF (l_return_status = FND_API.G_RET_STS_ERROR OR
1208: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR )
1209: THEN
1210: x_return_status := l_return_status;
1211: RETURN;
1212: END IF;
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;
1293: x_col_val_tbl(i).col_op := '=';
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 );
1802: AND next_status_code = l_new_status_code;
1803:
1804: BEGIN
1805:
1806: x_return_status := FND_API.g_ret_sts_success;
1807: x_approval_type := NULL;
1808:
1809: l_status_type := get_system_status_type(p_object_type);
1810: l_old_status_code := get_system_status_code(p_old_status_id);
1816:
1817: OPEN c_approval_flag;
1818: FETCH c_approval_flag INTO l_theme_flag, l_budget_flag;
1819: IF c_approval_flag%NOTFOUND THEN
1820: x_return_status := FND_API.g_ret_sts_error;
1821: OZF_Utility_PVT.error_message('OZF_CAMP_BAD_STATUS_CHANGE');
1822: END IF;
1823: CLOSE c_approval_flag;
1824:
1823: CLOSE c_approval_flag;
1824:
1825: IF l_budget_flag = 'Y' THEN
1826: IF AMS_ObjectAttribute_PVT.check_object_attribute(
1827: p_object_type, p_object_id, 'BAPL') = FND_API.g_true
1828: THEN
1829: x_approval_type := 'BUDGET';
1830: END IF;
1831: ELSIF l_theme_flag = 'Y' THEN
1829: x_approval_type := 'BUDGET';
1830: END IF;
1831: ELSIF l_theme_flag = 'Y' THEN
1832: IF AMS_ObjectAttribute_PVT.check_object_attribute(
1833: p_object_type, p_object_id, 'TAPL') = FND_API.g_true
1834: THEN
1835: x_approval_type := 'THEME';
1836: END IF;
1837: END IF;
1909: AND next_status_code = l_new_status_code;
1910:
1911: BEGIN
1912:
1913: x_return_status := FND_API.g_ret_sts_success;
1914: x_approval_type := NULL;
1915:
1916: l_status_type := get_system_status_type(p_object_type);
1917: l_old_status_code := get_system_status_code(p_old_status_id);
1923:
1924: OPEN c_approval_flag;
1925: FETCH c_approval_flag INTO l_theme_flag, l_budget_flag;
1926: IF c_approval_flag%NOTFOUND THEN
1927: x_return_status := FND_API.g_ret_sts_error;
1928: OZF_Utility_PVT.error_message('OZF_CAMP_BAD_STATUS_CHANGE');
1929: END IF;
1930: CLOSE c_approval_flag;
1931:
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;
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;
2031: CLOSE c_get_gl_info;
2032:
2033: --
2045: ,x_rate => x_rate);
2046: --
2047:
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');
2046: --
2047:
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;
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
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;
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
2066: RAISE;
2067: x_return_status := fnd_api.g_ret_sts_unexp_error;
2068: END convert_currency;
2063:
2064: x_return_status := fnd_api.g_ret_sts_error;
2065: WHEN OTHERS THEN
2066: RAISE;
2067: x_return_status := fnd_api.g_ret_sts_unexp_error;
2068: END convert_currency;
2069:
2070: ---------------------------------------------------------------------
2071: -- PROCEDURE
2184: AND NVL(org.org_id, -99) = NVL(p_org_id, -99);
2185:
2186: BEGIN
2187: -- Initialize return status.
2188: x_return_status := fnd_api.g_ret_sts_success;
2189:
2190: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--
2191: -- Mumu Pande 09/20/2000 Updated the following
2192: -- Get the currency conversion type from profile option
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;
2207: ELSE
2208: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2209: 'CONVERSION_TYPE'
2206: RETURN;
2207: ELSE
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;
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;
2219: END IF;
2220:
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;
2238:
2239:
2240: END IF;
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;
2258:
2259: CLOSE c_get_gl_info;
2260: -- Call the proper GL API to convert the amount.
2274: x_exchange_rate_type := l_conversion_type;
2275: --
2276:
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');
2275: --
2276:
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;
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
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;
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
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
2291: END IF;
2292:
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;
2341: FETCH c_fund_ledger INTO x_ledger_id, x_org_id;
2342: CLOSE c_fund_ledger;
2343:
2344: IF x_ledger_id IS NOT NULL THEN
2345: x_return_status := fnd_api.g_ret_sts_success;
2346: RETURN;
2347: END IF;
2348:
2349: /* PENDING marketing category enhancement
2351: FETCH c_category_ledger INTO x_ledger_id;
2352: CLOSE c_category_ledger;
2353:
2354: IF x_ledger_id IS NOT NULL THEN
2355: x_return_status := fnd_api.g_ret_sts_success;
2356: RETURN;
2357: END IF;
2358: */
2359:
2358: */
2359:
2360: IF x_org_id IS NULL THEN
2361: x_ledger_id := NULL;
2362: x_return_status := fnd_api.g_ret_sts_success;
2363: RETURN;
2364: END IF;
2365:
2366: -- Get the set_of_books_id for given org_id
2368: p_operating_unit => x_org_id,
2369: p_ledger_id => x_ledger_id,
2370: p_ledger_name => l_ledger_name
2371: );
2372: x_return_status := fnd_api.g_ret_sts_success;
2373: RETURN;
2374:
2375: EXCEPTION
2376: WHEN OTHERS THEN
2373: RETURN;
2374:
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');
2465: IF OZF_DEBUG_HIGH_ON THEN
2466: ozf_utility_pvt.debug_message ('get_object_org_ledger() org_id for fund =' || x_org_id
2467: || ' ledger_id=' || x_ledger_id);
2468: END IF;
2469: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2470: RAISE FND_API.g_exc_unexpected_error;
2471: END IF;
2472: END IF;
2473:
2466: ozf_utility_pvt.debug_message ('get_object_org_ledger() org_id for fund =' || x_org_id
2467: || ' ledger_id=' || x_ledger_id);
2468: END IF;
2469: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2470: RAISE FND_API.g_exc_unexpected_error;
2471: END IF;
2472: END IF;
2473:
2474: --Bugfix - 7555174 : Modified x_org_id check
2514: IF OZF_DEBUG_HIGH_ON THEN
2515: ozf_utility_pvt.debug_message ('get_object_org_ledger() final org_id =' || x_org_id
2516: || ' ledger_id=' || x_ledger_id);
2517: END IF;
2518: x_return_status := fnd_api.g_ret_sts_success;
2519:
2520: EXCEPTION
2521: WHEN OTHERS THEN
2522: x_return_status := fnd_api.g_ret_sts_unexp_error;
2518: x_return_status := fnd_api.g_ret_sts_success;
2519:
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');
2571: WHERE ledger_id = p_ledger_id;
2572:
2573: BEGIN
2574: -- Initialize return status.
2575: x_return_status := fnd_api.g_ret_sts_success;
2576:
2577: IF x_exchange_rate_type IS NULL OR x_exchange_rate_type=FND_API.G_MISS_CHAR THEN
2578: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2579: ELSE
2573: BEGIN
2574: -- Initialize return status.
2575: x_return_status := fnd_api.g_ret_sts_success;
2576:
2577: IF x_exchange_rate_type IS NULL OR x_exchange_rate_type=FND_API.G_MISS_CHAR THEN
2578: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2579: ELSE
2580: l_conversion_type := x_exchange_rate_type;
2581: END IF;
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;
2591: ELSE
2592: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2593: 'CONVERSION_TYPE'
2590: RETURN;
2591: ELSE
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;
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;
2603: END IF;
2604:
2624:
2625: x_exchange_rate_type := l_conversion_type;
2626:
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');
2625: x_exchange_rate_type := l_conversion_type;
2626:
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;
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
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;
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
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
2641: END IF;
2642:
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;
2672:
2673: PROCEDURE convert_currency(
2674: p_from_currency IN VARCHAR2
2675: ,p_to_currency IN VARCHAR2
2676: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
2677: ,p_conv_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM
2678: ,p_conv_date IN DATE DEFAULT SYSDATE
2679: ,p_from_amount IN NUMBER
2680: ,x_return_status OUT NOCOPY VARCHAR2
2673: PROCEDURE convert_currency(
2674: p_from_currency IN VARCHAR2
2675: ,p_to_currency IN VARCHAR2
2676: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
2677: ,p_conv_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM
2678: ,p_conv_date IN DATE DEFAULT SYSDATE
2679: ,p_from_amount IN NUMBER
2680: ,x_return_status OUT NOCOPY VARCHAR2
2681: ,x_to_amount OUT NOCOPY NUMBER
2692: l_numerator NUMBER; -- Not used in Marketing.
2693: l_conversion_type VARCHAR2(30); -- Curr conversion type; see API doc for details.
2694: BEGIN
2695: -- Initialize return status.
2696: x_return_status := fnd_api.g_ret_sts_success;
2697:
2698: -- condition added to pass conversion types
2699: IF p_conv_type = FND_API.G_MISS_CHAR OR p_conv_type IS NULL THEN --Added for bug 7030415
2700: -- Get the currency conversion type from profile option
2695: -- Initialize return status.
2696: x_return_status := fnd_api.g_ret_sts_success;
2697:
2698: -- condition added to pass conversion types
2699: IF p_conv_type = FND_API.G_MISS_CHAR OR p_conv_type IS NULL THEN --Added for bug 7030415
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;
2709: RETURN;
2710: END IF;
2711: ELSE
2712: l_conversion_type := p_conv_type;
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
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;
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
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
2742: END IF;
2743:
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;
2783: l_person_id number;
2784: l_user_id number;
2785: l_category varchar2(30);
2786: BEGIN
2787: x_return_status := FND_API.G_RET_STS_SUCCESS;
2788: OPEN c_resource ;
2789: FETCH c_resource INTO l_person_id , l_user_id, l_category;
2790: IF c_resource%NOTFOUND THEN
2791: CLOSE c_resource ;
2788: OPEN c_resource ;
2789: FETCH c_resource INTO l_person_id , l_user_id, l_category;
2790: IF c_resource%NOTFOUND THEN
2791: CLOSE c_resource ;
2792: x_return_status := FND_API.G_RET_STS_ERROR;
2793: OZF_Utility_PVT.error_message ('OZF_APPR_INVALID_RESOURCE_ID');
2794: return;
2795: END IF;
2796: CLOSE c_resource ;
2802: p_name => x_role_name,
2803: p_display_name => x_role_display_name
2804: );
2805: IF x_role_name is null then
2806: x_return_status := FND_API.G_RET_STS_ERROR;
2807: OZF_Utility_PVT.error_message ('OZF_APPR_INVALID_ROLE');
2808: return;
2809: END IF;
2810: ELSE
2814: p_name => x_role_name,
2815: p_display_name => x_role_display_name
2816: );
2817: IF x_role_name is null then
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819: OZF_Utility_PVT.error_message ('OZF_APPR_INVALID_ROLE');
2820: return;
2821: END IF;
2822: END IF;
2821: END IF;
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;
2877: l_display_role_name VARCHAR2(240);
2878: l_notif_id NUMBER;
2879:
2880: BEGIN
2881: x_return_status := FND_API.G_RET_STS_SUCCESS;
2882: IF p_send_to_role_name IS NULL THEN
2883: OZF_UTILITY_PVT.get_resource_role
2884: ( p_resource_id => p_send_to_res_id,
2885: x_role_name => l_role_name,
2885: x_role_name => l_role_name,
2886: x_role_display_name => l_display_role_name,
2887: x_return_status => x_return_status
2888: );
2889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2890: return;
2891: END IF;
2892: END IF;
2893: l_notif_id := WF_NOTIFICATION.Send
2916: -- Check_Status_Change
2917: --
2918: -- PURPOSE
2919: -- Created to check if the status change is valid or not.
2920: -- Returns FND_API.G_TRUE if it is valid status change
2921: -- or will return FND_API.G_FALSE
2922: --
2923: -- HISTORY
2924: -- 09-Jul-2001 ptendulk Create.
2917: --
2918: -- PURPOSE
2919: -- Created to check if the status change is valid or not.
2920: -- Returns FND_API.G_TRUE if it is valid status change
2921: -- or will return FND_API.G_FALSE
2922: --
2923: -- HISTORY
2924: -- 09-Jul-2001 ptendulk Create.
2925: --======================================================================
2943: FETCH c_stat_det INTO l_dummy ;
2944: CLOSE c_stat_det;
2945:
2946: IF l_dummy IS NULL THEN
2947: RETURN FND_API.G_FALSE ;
2948: ELSE
2949: RETURN FND_API.G_TRUE ;
2950: END IF ;
2951: END Check_Status_Change;
2945:
2946: IF l_dummy IS NULL THEN
2947: RETURN FND_API.G_FALSE ;
2948: ELSE
2949: RETURN FND_API.G_TRUE ;
2950: END IF ;
2951: END Check_Status_Change;
2952: --======================================================================
2953: -- FUNCTION
3040:
3041: BEGIN
3042:
3043: If p_association_type_code = 'OZF_DELV' then
3044: x_return_status := FND_API.G_RET_STS_SUCCESS;
3045:
3046: OPEN Cur_Delv(p_associated_object_val1);
3047: FETCH Cur_Delv INTO x_object_name;
3048: CLOSE Cur_Delv;
3051: END IF;
3052: -- here you can add processing for other association type as the else part
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
3052: -- here you can add processing for other association type as the else part
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;
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,
3062: p_data => x_msg_data);
3063: WHEN OTHERS 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,
3062: p_data => x_msg_data);
3063: WHEN OTHERS THEN
3064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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)
3066: THEN
3067: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3068: END IF;
3251: -- FUNCTION
3252: -- Has_Sales_Rep_Role
3253: --
3254: -- PURPOSE
3255: -- This api returns FND_API.g_true if the given user has the "Sales
3256: -- Representative" role. It returns FND_API.g_false otherwise.
3257: --
3258: -- HISTORY
3259: -- 23-Feb-2004 yizhang Create.
3252: -- Has_Sales_Rep_Role
3253: --
3254: -- PURPOSE
3255: -- This api returns FND_API.g_true if the given user has the "Sales
3256: -- Representative" role. It returns FND_API.g_false otherwise.
3257: --
3258: -- HISTORY
3259: -- 23-Feb-2004 yizhang Create.
3260: --======================================================================
3280: OPEN csr_sales_rep(p_resource_id);
3281: FETCH csr_sales_rep INTO l_role_id;
3282: IF csr_sales_rep%NOTFOUND THEN
3283: CLOSE csr_sales_rep;
3284: RETURN FND_API.g_false;
3285: END IF;
3286: CLOSE csr_sales_rep;
3287:
3288: RETURN FND_API.g_true;
3284: RETURN FND_API.g_false;
3285: END IF;
3286: CLOSE csr_sales_rep;
3287:
3288: RETURN FND_API.g_true;
3289: END;
3290:
3291: --======================================================================
3292: -- FUNCTION