62: g_bad_date DATE := fnd_date.canonical_to_date('1970/11/11');
63:
64: /* Define the exception that will be used for reraising exception */
65: /* concerning a call to deprecated APIs */
66: FND_MESSAGE_RAISED_ERR EXCEPTION;
67: pragma exception_init(FND_MESSAGE_RAISED_ERR, -20001);
68:
69:
70: ---This is an internal procedure. Not for general use.
63:
64: /* Define the exception that will be used for reraising exception */
65: /* concerning a call to deprecated APIs */
66: FND_MESSAGE_RAISED_ERR EXCEPTION;
67: pragma exception_init(FND_MESSAGE_RAISED_ERR, -20001);
68:
69:
70: ---This is an internal procedure. Not for general use.
71: -- Initializes the max vpd predicate size depending on the database version.
272: /* records, which is unsupportable from a performance */
273: /* perspective. */
274: /* So we raise a runtime exception to help people to know */
275: /* they need to change their code. */
276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
277: fnd_message.set_token('ROUTINE',
278: c_pkg_name || '.'|| l_api_name);
279: fnd_message.set_token('REASON',
280: 'Invalid API call. API '
273: /* perspective. */
274: /* So we raise a runtime exception to help people to know */
275: /* they need to change their code. */
276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
277: fnd_message.set_token('ROUTINE',
278: c_pkg_name || '.'|| l_api_name);
279: fnd_message.set_token('REASON',
280: 'Invalid API call. API '
281: ||c_pkg_name || '.'|| l_api_name ||
275: /* they need to change their code. */
276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
277: fnd_message.set_token('ROUTINE',
278: c_pkg_name || '.'|| l_api_name);
279: fnd_message.set_token('REASON',
280: 'Invalid API call. API '
281: ||c_pkg_name || '.'|| l_api_name ||
282: ' is desupported and should not be called in R12.'||
283: ' Any product team that calls it '||
295: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
296: c_log_head || l_api_name || '.end_unsupported',
297: FALSE);
298: end if;
299: fnd_message.raise_error;
300: end if;
301:
302: x_orig_system := NULL;
303: x_orig_system_id := NULL;
533: x_pk5_column_type ,
534: x_database_object_name;
535:
536: IF(c_pk%NOTFOUND) THEN
537: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
538: fnd_message.set_token('ROUTINE',
539: c_pkg_name || '.'|| l_api_name);
540: fnd_message.set_token('REASON',
541: 'FND_OBJECTS does not have column obj_name with value:'||
534: x_database_object_name;
535:
536: IF(c_pk%NOTFOUND) THEN
537: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
538: fnd_message.set_token('ROUTINE',
539: c_pkg_name || '.'|| l_api_name);
540: fnd_message.set_token('REASON',
541: 'FND_OBJECTS does not have column obj_name with value:'||
542: p_object_name);
536: IF(c_pk%NOTFOUND) THEN
537: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
538: fnd_message.set_token('ROUTINE',
539: c_pkg_name || '.'|| l_api_name);
540: fnd_message.set_token('REASON',
541: 'FND_OBJECTS does not have column obj_name with value:'||
542: p_object_name);
543: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
544: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
886: end if;
887:
888: -- check for call compatibility.
889: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
890: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
891: fnd_message.set_token('ROUTINE',
892: c_pkg_name || '.'|| l_api_name);
893: fnd_message.set_token('REASON',
894: 'Unsupported version '|| to_char(p_api_version)||
887:
888: -- check for call compatibility.
889: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
890: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
891: fnd_message.set_token('ROUTINE',
892: c_pkg_name || '.'|| l_api_name);
893: fnd_message.set_token('REASON',
894: 'Unsupported version '|| to_char(p_api_version)||
895: ' passed to API; expecting version '||
889: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
890: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
891: fnd_message.set_token('ROUTINE',
892: c_pkg_name || '.'|| l_api_name);
893: fnd_message.set_token('REASON',
894: 'Unsupported version '|| to_char(p_api_version)||
895: ' passed to API; expecting version '||
896: to_char(l_api_version));
897: if (fnd_log.LEVEL_EXCEPTION >=
904: END IF;
905:
906: -- Check for null arguments.
907: if (p_function is NULL) THEN
908: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
909: fnd_message.set_token('ROUTINE',
910: c_pkg_name || '.'|| l_api_name);
911: fnd_message.set_token('REASON',
912: 'NULL value passed for p_function:'||p_function);
905:
906: -- Check for null arguments.
907: if (p_function is NULL) THEN
908: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
909: fnd_message.set_token('ROUTINE',
910: c_pkg_name || '.'|| l_api_name);
911: fnd_message.set_token('REASON',
912: 'NULL value passed for p_function:'||p_function);
913:
907: if (p_function is NULL) THEN
908: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
909: fnd_message.set_token('ROUTINE',
910: c_pkg_name || '.'|| l_api_name);
911: fnd_message.set_token('REASON',
912: 'NULL value passed for p_function:'||p_function);
913:
914: if (fnd_log.LEVEL_EXCEPTION >=
915: fnd_log.g_current_runtime_level) then
930: l_object_id := -1;
931: else
932: l_object_id := get_object_id(p_object_name);
933: if (l_object_id is NULL) THEN
934: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
935: fnd_message.set_token('ROUTINE',
936: c_pkg_name || '.'|| l_api_name);
937: fnd_message.set_token('REASON',
938: 'The parameter value p_object_name is not a valid object.'||
931: else
932: l_object_id := get_object_id(p_object_name);
933: if (l_object_id is NULL) THEN
934: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
935: fnd_message.set_token('ROUTINE',
936: c_pkg_name || '.'|| l_api_name);
937: fnd_message.set_token('REASON',
938: 'The parameter value p_object_name is not a valid object.'||
939: ' p_object_name:'||p_object_name);
933: if (l_object_id is NULL) THEN
934: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
935: fnd_message.set_token('ROUTINE',
936: c_pkg_name || '.'|| l_api_name);
937: fnd_message.set_token('REASON',
938: 'The parameter value p_object_name is not a valid object.'||
939: ' p_object_name:'||p_object_name);
940: if (fnd_log.LEVEL_EXCEPTION >=
941: fnd_log.g_current_runtime_level) then
960: /* In R12 we do not allow passing values other than */
961: /* the current user name (which is the default), */
962: /* so we raise a runtime exception if that deprecated */
963: /* kind of call is made to this routine. */
964: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
965: fnd_message.set_token('ROUTINE',
966: c_pkg_name || '.'|| l_api_name);
967: fnd_message.set_token('REASON',
968: 'Invalid API call. Parameter p_user_name: '||p_user_name||
961: /* the current user name (which is the default), */
962: /* so we raise a runtime exception if that deprecated */
963: /* kind of call is made to this routine. */
964: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
965: fnd_message.set_token('ROUTINE',
966: c_pkg_name || '.'|| l_api_name);
967: fnd_message.set_token('REASON',
968: 'Invalid API call. Parameter p_user_name: '||p_user_name||
969: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
963: /* kind of call is made to this routine. */
964: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
965: fnd_message.set_token('ROUTINE',
966: c_pkg_name || '.'|| l_api_name);
967: fnd_message.set_token('REASON',
968: 'Invalid API call. Parameter p_user_name: '||p_user_name||
969: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
970: '. p_object_name: '||p_object_name||'. '||
971: ' In Release 12 and beyond the p_user_name parameter '||
986: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
987: c_log_head || l_api_name || '.end_depr_param',
988: FALSE);
989: end if;
990: fnd_message.raise_error;
991: end if;
992: l_user_name := p_user_name;
993: end if;
994:
994:
995: -- look up function id from function name
996: l_function_id:=get_function_id(p_function);
997: if (l_function_id is NULL) THEN
998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
999: fnd_message.set_token('ROUTINE',
1000: c_pkg_name || '.'|| l_api_name);
1001: fnd_message.set_token('REASON',
1002: 'The parameter value p_function is not a valid function name.'||
995: -- look up function id from function name
996: l_function_id:=get_function_id(p_function);
997: if (l_function_id is NULL) THEN
998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
999: fnd_message.set_token('ROUTINE',
1000: c_pkg_name || '.'|| l_api_name);
1001: fnd_message.set_token('REASON',
1002: 'The parameter value p_function is not a valid function name.'||
1003: ' p_function:'||p_function);
997: if (l_function_id is NULL) THEN
998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
999: fnd_message.set_token('ROUTINE',
1000: c_pkg_name || '.'|| l_api_name);
1001: fnd_message.set_token('REASON',
1002: 'The parameter value p_function is not a valid function name.'||
1003: ' p_function:'||p_function);
1004: if (fnd_log.LEVEL_EXCEPTION >=
1005: fnd_log.g_current_runtime_level) then
1095:
1096: EXCEPTION
1097: /* If API called with deprecated p_user_name arg, */
1098: /* propagate that up so the caller gets exception */
1099: WHEN FND_MESSAGE_RAISED_ERR THEN
1100: /* Re raise the error for the caller */
1101: fnd_message.raise_error;
1102: return 'U'; /* This line should never be executed */
1103:
1097: /* If API called with deprecated p_user_name arg, */
1098: /* propagate that up so the caller gets exception */
1099: WHEN FND_MESSAGE_RAISED_ERR THEN
1100: /* Re raise the error for the caller */
1101: fnd_message.raise_error;
1102: return 'U'; /* This line should never be executed */
1103:
1104: WHEN OTHERS THEN
1105: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1101: fnd_message.raise_error;
1102: return 'U'; /* This line should never be executed */
1103:
1104: WHEN OTHERS THEN
1105: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1106: fnd_message.set_token('ROUTINE',
1107: c_pkg_name||','||l_api_name);
1108: fnd_message.set_token('ERRNO', SQLCODE);
1109: fnd_message.set_token('REASON', SQLERRM);
1102: return 'U'; /* This line should never be executed */
1103:
1104: WHEN OTHERS THEN
1105: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1106: fnd_message.set_token('ROUTINE',
1107: c_pkg_name||','||l_api_name);
1108: fnd_message.set_token('ERRNO', SQLCODE);
1109: fnd_message.set_token('REASON', SQLERRM);
1110:
1104: WHEN OTHERS THEN
1105: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1106: fnd_message.set_token('ROUTINE',
1107: c_pkg_name||','||l_api_name);
1108: fnd_message.set_token('ERRNO', SQLCODE);
1109: fnd_message.set_token('REASON', SQLERRM);
1110:
1111: if (fnd_log.LEVEL_EXCEPTION >=
1112: fnd_log.g_current_runtime_level) then
1105: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1106: fnd_message.set_token('ROUTINE',
1107: c_pkg_name||','||l_api_name);
1108: fnd_message.set_token('ERRNO', SQLCODE);
1109: fnd_message.set_token('REASON', SQLERRM);
1110:
1111: if (fnd_log.LEVEL_EXCEPTION >=
1112: fnd_log.g_current_runtime_level) then
1113: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1150: end if;
1151:
1152: -- check for call compatibility.
1153: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1154: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1155: fnd_message.set_token('ROUTINE',
1156: c_pkg_name || '.'|| l_api_name);
1157: fnd_message.set_token('REASON',
1158: 'Unsupported version '|| to_char(p_api_version)||
1151:
1152: -- check for call compatibility.
1153: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1154: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1155: fnd_message.set_token('ROUTINE',
1156: c_pkg_name || '.'|| l_api_name);
1157: fnd_message.set_token('REASON',
1158: 'Unsupported version '|| to_char(p_api_version)||
1159: ' passed to API; expecting version '||
1153: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1154: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1155: fnd_message.set_token('ROUTINE',
1156: c_pkg_name || '.'|| l_api_name);
1157: fnd_message.set_token('REASON',
1158: 'Unsupported version '|| to_char(p_api_version)||
1159: ' passed to API; expecting version '||
1160: to_char(l_api_version));
1161: if (fnd_log.LEVEL_EXCEPTION >=
1254: end if;
1255:
1256: -- check for call compatibility.
1257: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1258: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1259: fnd_message.set_token('ROUTINE',
1260: c_pkg_name || '.'|| l_api_name);
1261: fnd_message.set_token('REASON',
1262: 'Unsupported version '|| to_char(p_api_version)||
1255:
1256: -- check for call compatibility.
1257: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1258: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1259: fnd_message.set_token('ROUTINE',
1260: c_pkg_name || '.'|| l_api_name);
1261: fnd_message.set_token('REASON',
1262: 'Unsupported version '|| to_char(p_api_version)||
1263: ' passed to API; expecting version '||
1257: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1258: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1259: fnd_message.set_token('ROUTINE',
1260: c_pkg_name || '.'|| l_api_name);
1261: fnd_message.set_token('REASON',
1262: 'Unsupported version '|| to_char(p_api_version)||
1263: ' passed to API; expecting version '||
1264: to_char(l_api_version));
1265:
1273: END IF;
1274:
1275: -- Check for null arguments.
1276: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1277: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1278: fnd_message.set_token('ROUTINE',
1279: c_pkg_name || '.'|| l_api_name);
1280: fnd_message.set_token('REASON',
1281: 'NULL value passed for p_function:'||p_function||
1274:
1275: -- Check for null arguments.
1276: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1277: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1278: fnd_message.set_token('ROUTINE',
1279: c_pkg_name || '.'|| l_api_name);
1280: fnd_message.set_token('REASON',
1281: 'NULL value passed for p_function:'||p_function||
1282: ' or for p_object_name:'||p_object_name);
1276: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1277: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1278: fnd_message.set_token('ROUTINE',
1279: c_pkg_name || '.'|| l_api_name);
1280: fnd_message.set_token('REASON',
1281: 'NULL value passed for p_function:'||p_function||
1282: ' or for p_object_name:'||p_object_name);
1283: if (fnd_log.LEVEL_EXCEPTION >=
1284: fnd_log.g_current_runtime_level) then
1303: /* In R12 we do not allow passing values other than */
1304: /* the current user name (which is the default), */
1305: /* so we raise a runtime exception if that deprecated */
1306: /* kind of call is made to this routine. */
1307: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1308: fnd_message.set_token('ROUTINE',
1309: c_pkg_name || '.'|| l_api_name);
1310: fnd_message.set_token('REASON',
1311: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1304: /* the current user name (which is the default), */
1305: /* so we raise a runtime exception if that deprecated */
1306: /* kind of call is made to this routine. */
1307: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1308: fnd_message.set_token('ROUTINE',
1309: c_pkg_name || '.'|| l_api_name);
1310: fnd_message.set_token('REASON',
1311: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1312: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1306: /* kind of call is made to this routine. */
1307: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1308: fnd_message.set_token('ROUTINE',
1309: c_pkg_name || '.'|| l_api_name);
1310: fnd_message.set_token('REASON',
1311: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1312: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1313: '. p_object_name: '||p_object_name||'. '||
1314: ' In Release 12 and beyond the p_user_name parameter '||
1329: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1330: c_log_head || l_api_name || '.end_depr_param',
1331: FALSE);
1332: end if;
1333: fnd_message.raise_error;
1334: end if;
1335: l_user_name := p_user_name;
1336: end if;
1337:
1659:
1660: EXCEPTION
1661: /* If API called with deprecated p_user_name arg, */
1662: /* propagate that up so the caller gets exception */
1663: WHEN FND_MESSAGE_RAISED_ERR THEN
1664: /* Re raise the error for the caller */
1665: fnd_message.raise_error;
1666: return 'U'; /* This line should never be executed */
1667:
1661: /* If API called with deprecated p_user_name arg, */
1662: /* propagate that up so the caller gets exception */
1663: WHEN FND_MESSAGE_RAISED_ERR THEN
1664: /* Re raise the error for the caller */
1665: fnd_message.raise_error;
1666: return 'U'; /* This line should never be executed */
1667:
1668: WHEN OTHERS THEN
1669:
1666: return 'U'; /* This line should never be executed */
1667:
1668: WHEN OTHERS THEN
1669:
1670: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1671: fnd_message.set_token('ROUTINE',
1672: c_pkg_name||','||l_api_name);
1673: fnd_message.set_token('ERRNO', SQLCODE);
1674: fnd_message.set_token('REASON', SQLERRM);
1667:
1668: WHEN OTHERS THEN
1669:
1670: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1671: fnd_message.set_token('ROUTINE',
1672: c_pkg_name||','||l_api_name);
1673: fnd_message.set_token('ERRNO', SQLCODE);
1674: fnd_message.set_token('REASON', SQLERRM);
1675:
1669:
1670: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1671: fnd_message.set_token('ROUTINE',
1672: c_pkg_name||','||l_api_name);
1673: fnd_message.set_token('ERRNO', SQLCODE);
1674: fnd_message.set_token('REASON', SQLERRM);
1675:
1676: if (fnd_log.LEVEL_EXCEPTION >=
1677: fnd_log.g_current_runtime_level) then
1670: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1671: fnd_message.set_token('ROUTINE',
1672: c_pkg_name||','||l_api_name);
1673: fnd_message.set_token('ERRNO', SQLCODE);
1674: fnd_message.set_token('REASON', SQLERRM);
1675:
1676: if (fnd_log.LEVEL_EXCEPTION >=
1677: fnd_log.g_current_runtime_level) then
1678: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1745: end if;
1746:
1747: -- check for call compatibility.
1748: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1749: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1750: fnd_message.set_token('ROUTINE',
1751: c_pkg_name || '.'|| l_api_name);
1752: fnd_message.set_token('REASON',
1753: 'Unsupported version '|| to_char(p_api_version)||
1746:
1747: -- check for call compatibility.
1748: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1749: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1750: fnd_message.set_token('ROUTINE',
1751: c_pkg_name || '.'|| l_api_name);
1752: fnd_message.set_token('REASON',
1753: 'Unsupported version '|| to_char(p_api_version)||
1754: ' passed to API; expecting version '||
1748: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1749: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1750: fnd_message.set_token('ROUTINE',
1751: c_pkg_name || '.'|| l_api_name);
1752: fnd_message.set_token('REASON',
1753: 'Unsupported version '|| to_char(p_api_version)||
1754: ' passed to API; expecting version '||
1755: to_char(l_api_version));
1756:
1765: END IF;
1766:
1767: -- Check for null arguments.
1768: if (p_object_name is NULL) THEN
1769: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1770: fnd_message.set_token('ROUTINE',
1771: c_pkg_name || '.'|| l_api_name);
1772: fnd_message.set_token('REASON',
1773: 'NULL value passed for p_object_name:'|| p_object_name);
1766:
1767: -- Check for null arguments.
1768: if (p_object_name is NULL) THEN
1769: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1770: fnd_message.set_token('ROUTINE',
1771: c_pkg_name || '.'|| l_api_name);
1772: fnd_message.set_token('REASON',
1773: 'NULL value passed for p_object_name:'|| p_object_name);
1774:
1768: if (p_object_name is NULL) THEN
1769: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1770: fnd_message.set_token('ROUTINE',
1771: c_pkg_name || '.'|| l_api_name);
1772: fnd_message.set_token('REASON',
1773: 'NULL value passed for p_object_name:'|| p_object_name);
1774:
1775: if (fnd_log.LEVEL_EXCEPTION >=
1776: fnd_log.g_current_runtime_level) then
1800: /* In R12 we do not allow passing values other than */
1801: /* the current user name (which is the default), */
1802: /* so we raise a runtime exception if that deprecated */
1803: /* kind of call is made to this routine. */
1804: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1805: fnd_message.set_token('ROUTINE',
1806: c_pkg_name || '.'|| l_api_name);
1807: fnd_message.set_token('REASON',
1808: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1801: /* the current user name (which is the default), */
1802: /* so we raise a runtime exception if that deprecated */
1803: /* kind of call is made to this routine. */
1804: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1805: fnd_message.set_token('ROUTINE',
1806: c_pkg_name || '.'|| l_api_name);
1807: fnd_message.set_token('REASON',
1808: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1809: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1803: /* kind of call is made to this routine. */
1804: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1805: fnd_message.set_token('ROUTINE',
1806: c_pkg_name || '.'|| l_api_name);
1807: fnd_message.set_token('REASON',
1808: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1809: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1810: '. p_object_name: '||p_object_name||'. '||
1811: ' In Release 12 and beyond the p_user_name parameter '||
1826: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1827: c_log_head || l_api_name || '.end_depr_param',
1828: FALSE);
1829: end if;
1830: fnd_message.raise_error;
1831: end if;
1832: l_user_name := p_user_name;
1833: end if;
1834:
1960:
1961: EXCEPTION
1962: /* If API called with deprecated p_user_name arg, */
1963: /* propagate that up so the caller gets exception */
1964: WHEN FND_MESSAGE_RAISED_ERR THEN
1965: /* Re raise the error for the caller */
1966: fnd_message.raise_error;
1967:
1968: x_return_status := 'U'; /* This line should never be executed */
1962: /* If API called with deprecated p_user_name arg, */
1963: /* propagate that up so the caller gets exception */
1964: WHEN FND_MESSAGE_RAISED_ERR THEN
1965: /* Re raise the error for the caller */
1966: fnd_message.raise_error;
1967:
1968: x_return_status := 'U'; /* This line should never be executed */
1969: return;
1970:
1968: x_return_status := 'U'; /* This line should never be executed */
1969: return;
1970:
1971: WHEN OTHERS THEN
1972: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1973: fnd_message.set_token('ROUTINE',
1974: c_pkg_name || '.'|| l_api_name);
1975: fnd_message.set_token('ERRNO', SQLCODE);
1976: fnd_message.set_token('REASON', SQLERRM);
1969: return;
1970:
1971: WHEN OTHERS THEN
1972: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1973: fnd_message.set_token('ROUTINE',
1974: c_pkg_name || '.'|| l_api_name);
1975: fnd_message.set_token('ERRNO', SQLCODE);
1976: fnd_message.set_token('REASON', SQLERRM);
1977:
1971: WHEN OTHERS THEN
1972: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1973: fnd_message.set_token('ROUTINE',
1974: c_pkg_name || '.'|| l_api_name);
1975: fnd_message.set_token('ERRNO', SQLCODE);
1976: fnd_message.set_token('REASON', SQLERRM);
1977:
1978: if (fnd_log.LEVEL_EXCEPTION >=
1979: fnd_log.g_current_runtime_level) then
1972: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1973: fnd_message.set_token('ROUTINE',
1974: c_pkg_name || '.'|| l_api_name);
1975: fnd_message.set_token('ERRNO', SQLCODE);
1976: fnd_message.set_token('REASON', SQLERRM);
1977:
1978: if (fnd_log.LEVEL_EXCEPTION >=
1979: fnd_log.g_current_runtime_level) then
1980: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2035: end if;
2036:
2037: -- check for call compatibility.
2038: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2039: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2040: fnd_message.set_token('ROUTINE',
2041: c_pkg_name || '.'|| l_api_name);
2042: fnd_message.set_token('REASON',
2043: 'Unsupported version '|| to_char(p_api_version)||
2036:
2037: -- check for call compatibility.
2038: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2039: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2040: fnd_message.set_token('ROUTINE',
2041: c_pkg_name || '.'|| l_api_name);
2042: fnd_message.set_token('REASON',
2043: 'Unsupported version '|| to_char(p_api_version)||
2044: ' passed to API; expecting version '||
2038: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2039: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2040: fnd_message.set_token('ROUTINE',
2041: c_pkg_name || '.'|| l_api_name);
2042: fnd_message.set_token('REASON',
2043: 'Unsupported version '|| to_char(p_api_version)||
2044: ' passed to API; expecting version '||
2045: to_char(l_api_version));
2046: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
2338: /* In R12 we do not allow passing values other than */
2339: /* the current user name (which is the default), */
2340: /* so we raise a runtime exception if that deprecated */
2341: /* kind of call is made to this routine. */
2342: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2343: fnd_message.set_token('ROUTINE',
2344: c_pkg_name || '.'|| l_api_name);
2345: fnd_message.set_token('REASON',
2346: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2339: /* the current user name (which is the default), */
2340: /* so we raise a runtime exception if that deprecated */
2341: /* kind of call is made to this routine. */
2342: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2343: fnd_message.set_token('ROUTINE',
2344: c_pkg_name || '.'|| l_api_name);
2345: fnd_message.set_token('REASON',
2346: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2347: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2341: /* kind of call is made to this routine. */
2342: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2343: fnd_message.set_token('ROUTINE',
2344: c_pkg_name || '.'|| l_api_name);
2345: fnd_message.set_token('REASON',
2346: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2347: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2348: '. p_object_name: '||p_object_name||'. '||
2349: ' In Release 12 and beyond the p_user_name parameter '||
2364: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2365: c_log_head || l_api_name || '.end_depr_param',
2366: FALSE);
2367: end if;
2368: fnd_message.raise_error;
2369: end if;
2370: l_user_name := SUBSTR(p_user_name,
2371: LENGTH('GET_MNUIDS_NBVCXDS:')+1);
2372: else
2394: /* In R12 we do not allow passing values other than */
2395: /* the current user name (which is the default), */
2396: /* so we raise a runtime exception if that deprecated */
2397: /* kind of call is made to this routine. */
2398: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2399: fnd_message.set_token('ROUTINE',
2400: c_pkg_name || '.'|| l_api_name);
2401: fnd_message.set_token('REASON',
2402: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2395: /* the current user name (which is the default), */
2396: /* so we raise a runtime exception if that deprecated */
2397: /* kind of call is made to this routine. */
2398: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2399: fnd_message.set_token('ROUTINE',
2400: c_pkg_name || '.'|| l_api_name);
2401: fnd_message.set_token('REASON',
2402: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2403: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2397: /* kind of call is made to this routine. */
2398: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2399: fnd_message.set_token('ROUTINE',
2400: c_pkg_name || '.'|| l_api_name);
2401: fnd_message.set_token('REASON',
2402: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2403: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2404: '. p_object_name: '||p_object_name||'. '||
2405: ' In Release 12 and beyond the p_user_name parameter '||
2420: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2421: c_log_head || l_api_name || '.end_depr_param',
2422: FALSE);
2423: end if;
2424: fnd_message.raise_error;
2425: end if;
2426: l_user_name := p_user_name;
2427: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2428: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
2436: -- Check to make sure a valid role is passed or defaulted for user_name
2437: if (check_user_role(l_user_name) = 'F') then
2438: -- If we got here then the grantee will never be found because
2439: -- it isn't even a role, so we know there won't be a matching grant.
2440: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2441: fnd_message.set_token('ROUTINE',
2442: c_pkg_name || '.'|| l_api_name);
2443: fnd_message.set_token('REASON',
2444: 'The user_name passed or defaulted is not a valid user_name '||
2437: if (check_user_role(l_user_name) = 'F') then
2438: -- If we got here then the grantee will never be found because
2439: -- it isn't even a role, so we know there won't be a matching grant.
2440: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2441: fnd_message.set_token('ROUTINE',
2442: c_pkg_name || '.'|| l_api_name);
2443: fnd_message.set_token('REASON',
2444: 'The user_name passed or defaulted is not a valid user_name '||
2445: 'in wf_user_roles. '||
2439: -- it isn't even a role, so we know there won't be a matching grant.
2440: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2441: fnd_message.set_token('ROUTINE',
2442: c_pkg_name || '.'|| l_api_name);
2443: fnd_message.set_token('REASON',
2444: 'The user_name passed or defaulted is not a valid user_name '||
2445: 'in wf_user_roles. '||
2446: 'Invalid user_name: '||l_user_name ||
2447: ' Passed p_user_name: '||p_user_name);
2517: end if;
2518: END IF;
2519:
2520: if (p_object_name is NULL) THEN
2521: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2522: fnd_message.set_token('ROUTINE',
2523: c_pkg_name || '.'|| l_api_name);
2524: fnd_message.set_token('REASON',
2525: 'The parameter p_object_name can not be NULL.');
2518: END IF;
2519:
2520: if (p_object_name is NULL) THEN
2521: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2522: fnd_message.set_token('ROUTINE',
2523: c_pkg_name || '.'|| l_api_name);
2524: fnd_message.set_token('REASON',
2525: 'The parameter p_object_name can not be NULL.');
2526: if (fnd_log.LEVEL_EXCEPTION >=
2520: if (p_object_name is NULL) THEN
2521: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2522: fnd_message.set_token('ROUTINE',
2523: c_pkg_name || '.'|| l_api_name);
2524: fnd_message.set_token('REASON',
2525: 'The parameter p_object_name can not be NULL.');
2526: if (fnd_log.LEVEL_EXCEPTION >=
2527: fnd_log.g_current_runtime_level) then
2528: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2550: * identified.
2551: */
2552: /******
2553: if (l_menulist_flag = FALSE) then
2554: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2555: fnd_message.set_token('ROUTINE',
2556: c_pkg_name || '.'|| l_api_name);
2557: fnd_message.set_token('REASON',
2558: 'The parameter p_object_name can not be ''GLOBAL''. ');
2551: */
2552: /******
2553: if (l_menulist_flag = FALSE) then
2554: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2555: fnd_message.set_token('ROUTINE',
2556: c_pkg_name || '.'|| l_api_name);
2557: fnd_message.set_token('REASON',
2558: 'The parameter p_object_name can not be ''GLOBAL''. ');
2559: if (fnd_log.LEVEL_EXCEPTION >=
2553: if (l_menulist_flag = FALSE) then
2554: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2555: fnd_message.set_token('ROUTINE',
2556: c_pkg_name || '.'|| l_api_name);
2557: fnd_message.set_token('REASON',
2558: 'The parameter p_object_name can not be ''GLOBAL''. ');
2559: if (fnd_log.LEVEL_EXCEPTION >=
2560: fnd_log.g_current_runtime_level) then
2561: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2567: else
2568: l_object_id := -1;
2569: end if;
2570: ********/
2571: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2572: fnd_message.set_token('ROUTINE',
2573: c_pkg_name || '.'|| l_api_name);
2574: fnd_message.set_token('REASON',
2575: 'The parameter p_object_name can not be ''GLOBAL''. ');
2568: l_object_id := -1;
2569: end if;
2570: ********/
2571: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2572: fnd_message.set_token('ROUTINE',
2573: c_pkg_name || '.'|| l_api_name);
2574: fnd_message.set_token('REASON',
2575: 'The parameter p_object_name can not be ''GLOBAL''. ');
2576: if (fnd_log.LEVEL_EXCEPTION >=
2570: ********/
2571: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2572: fnd_message.set_token('ROUTINE',
2573: c_pkg_name || '.'|| l_api_name);
2574: fnd_message.set_token('REASON',
2575: 'The parameter p_object_name can not be ''GLOBAL''. ');
2576: if (fnd_log.LEVEL_EXCEPTION >=
2577: fnd_log.g_current_runtime_level) then
2578: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2607: end if;
2608:
2609: l_object_id :=get_object_id(p_object_name );
2610: if (l_object_id is NULL) THEN
2611: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2612: fnd_message.set_token('ROUTINE',
2613: c_pkg_name || '.'|| l_api_name);
2614: fnd_message.set_token('REASON',
2615: 'The parameter value p_object_name is not a valid object.'||
2608:
2609: l_object_id :=get_object_id(p_object_name );
2610: if (l_object_id is NULL) THEN
2611: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2612: fnd_message.set_token('ROUTINE',
2613: c_pkg_name || '.'|| l_api_name);
2614: fnd_message.set_token('REASON',
2615: 'The parameter value p_object_name is not a valid object.'||
2616: ' p_object_name:'||p_object_name);
2610: if (l_object_id is NULL) THEN
2611: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2612: fnd_message.set_token('ROUTINE',
2613: c_pkg_name || '.'|| l_api_name);
2614: fnd_message.set_token('REASON',
2615: 'The parameter value p_object_name is not a valid object.'||
2616: ' p_object_name:'||p_object_name);
2617: if (fnd_log.LEVEL_EXCEPTION >=
2618: fnd_log.g_current_runtime_level) then
2629: l_function_id := -1;
2630: else
2631: l_function_id := get_function_id(p_function);
2632: if (l_function_id is NULL) THEN
2633: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2634: fnd_message.set_token('ROUTINE',
2635: c_pkg_name || '.'|| l_api_name);
2636: fnd_message.set_token('REASON',
2637: 'The parameter value p_function is not a valid function name.'||
2630: else
2631: l_function_id := get_function_id(p_function);
2632: if (l_function_id is NULL) THEN
2633: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2634: fnd_message.set_token('ROUTINE',
2635: c_pkg_name || '.'|| l_api_name);
2636: fnd_message.set_token('REASON',
2637: 'The parameter value p_function is not a valid function name.'||
2638: ' p_function:'||p_function);
2632: if (l_function_id is NULL) THEN
2633: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2634: fnd_message.set_token('ROUTINE',
2635: c_pkg_name || '.'|| l_api_name);
2636: fnd_message.set_token('REASON',
2637: 'The parameter value p_function is not a valid function name.'||
2638: ' p_function:'||p_function);
2639: if (fnd_log.LEVEL_EXCEPTION >=
2640: fnd_log.g_current_runtime_level) then
3054: /* tmorrow- for bug 4592098 check x_predicate rather than l_aggreg..*/
3055: if ( (lengthb(x_predicate) > g_vpd_buf_limit)
3056: AND ( (p_statement_type = 'VPD')
3057: OR (p_statement_type = 'BASE'/* deprecated */)))then
3058: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3059: FND_MESSAGE.SET_TOKEN('ROUTINE',
3060: c_pkg_name || '.'|| l_api_name);
3061: FND_MESSAGE.SET_TOKEN('REASON',
3062: 'The predicate was longer than the database VPD limit of '||
3055: if ( (lengthb(x_predicate) > g_vpd_buf_limit)
3056: AND ( (p_statement_type = 'VPD')
3057: OR (p_statement_type = 'BASE'/* deprecated */)))then
3058: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3059: FND_MESSAGE.SET_TOKEN('ROUTINE',
3060: c_pkg_name || '.'|| l_api_name);
3061: FND_MESSAGE.SET_TOKEN('REASON',
3062: 'The predicate was longer than the database VPD limit of '||
3063: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
3057: OR (p_statement_type = 'BASE'/* deprecated */)))then
3058: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3059: FND_MESSAGE.SET_TOKEN('ROUTINE',
3060: c_pkg_name || '.'|| l_api_name);
3061: FND_MESSAGE.SET_TOKEN('REASON',
3062: 'The predicate was longer than the database VPD limit of '||
3063: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
3064:
3065: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
3073:
3074: EXCEPTION
3075: /* If API called with deprecated p_user_name arg, */
3076: /* propagate that up so the caller gets exception */
3077: WHEN FND_MESSAGE_RAISED_ERR THEN
3078: /* Re raise the error for the caller */
3079: fnd_message.raise_error;
3080:
3081: x_return_status := 'U'; /* This line should never be executed */
3075: /* If API called with deprecated p_user_name arg, */
3076: /* propagate that up so the caller gets exception */
3077: WHEN FND_MESSAGE_RAISED_ERR THEN
3078: /* Re raise the error for the caller */
3079: fnd_message.raise_error;
3080:
3081: x_return_status := 'U'; /* This line should never be executed */
3082: return;
3083:
3081: x_return_status := 'U'; /* This line should never be executed */
3082: return;
3083:
3084: WHEN OTHERS THEN
3085: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3086: fnd_message.set_token('ROUTINE',
3087: c_pkg_name || '.'|| l_api_name);
3088: fnd_message.set_token('ERRNO', SQLCODE);
3089: fnd_message.set_token('REASON', SQLERRM);
3082: return;
3083:
3084: WHEN OTHERS THEN
3085: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3086: fnd_message.set_token('ROUTINE',
3087: c_pkg_name || '.'|| l_api_name);
3088: fnd_message.set_token('ERRNO', SQLCODE);
3089: fnd_message.set_token('REASON', SQLERRM);
3090:
3084: WHEN OTHERS THEN
3085: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3086: fnd_message.set_token('ROUTINE',
3087: c_pkg_name || '.'|| l_api_name);
3088: fnd_message.set_token('ERRNO', SQLCODE);
3089: fnd_message.set_token('REASON', SQLERRM);
3090:
3091: if (fnd_log.LEVEL_EXCEPTION >=
3092: fnd_log.g_current_runtime_level) then
3085: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3086: fnd_message.set_token('ROUTINE',
3087: c_pkg_name || '.'|| l_api_name);
3088: fnd_message.set_token('ERRNO', SQLCODE);
3089: fnd_message.set_token('REASON', SQLERRM);
3090:
3091: if (fnd_log.LEVEL_EXCEPTION >=
3092: fnd_log.g_current_runtime_level) then
3093: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3744: colon := instr(p_user_name, 'PER:');
3745:
3746: -- check for call compatibility.
3747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3749: fnd_message.set_token('ROUTINE',
3750: c_pkg_name || '.'|| l_api_name);
3751: fnd_message.set_token('REASON',
3752: 'Unsupported version '|| to_char(p_api_version)||
3745:
3746: -- check for call compatibility.
3747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3749: fnd_message.set_token('ROUTINE',
3750: c_pkg_name || '.'|| l_api_name);
3751: fnd_message.set_token('REASON',
3752: 'Unsupported version '|| to_char(p_api_version)||
3753: ' passed to API; expecting version '||
3747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3749: fnd_message.set_token('ROUTINE',
3750: c_pkg_name || '.'|| l_api_name);
3751: fnd_message.set_token('REASON',
3752: 'Unsupported version '|| to_char(p_api_version)||
3753: ' passed to API; expecting version '||
3754: to_char(l_api_version));
3755: if (fnd_log.LEVEL_EXCEPTION >=
3786: /* In R12 we do not allow passing values other than */
3787: /* the current user name (which is the default), */
3788: /* so we raise a runtime exception if that deprecated */
3789: /* kind of call is made to this routine. */
3790: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3791: fnd_message.set_token('ROUTINE',
3792: c_pkg_name || '.'|| l_api_name);
3793: fnd_message.set_token('REASON',
3794: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3787: /* the current user name (which is the default), */
3788: /* so we raise a runtime exception if that deprecated */
3789: /* kind of call is made to this routine. */
3790: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3791: fnd_message.set_token('ROUTINE',
3792: c_pkg_name || '.'|| l_api_name);
3793: fnd_message.set_token('REASON',
3794: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3795: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
3789: /* kind of call is made to this routine. */
3790: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3791: fnd_message.set_token('ROUTINE',
3792: c_pkg_name || '.'|| l_api_name);
3793: fnd_message.set_token('REASON',
3794: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3795: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
3796: '. p_object_name: '||p_object_name||'. '||
3797: ' In Release 12 and beyond the p_user_name parameter '||
3812: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3813: c_log_head || l_api_name || '.end_depr_param',
3814: FALSE);
3815: end if;
3816: fnd_message.raise_error;
3817: end if;
3818: l_user_name := p_user_name;
3819: end if;
3820:
3868: -- current last_update_date as needed. Without any code changes
3869: -- They have just been moved from post cache comparision to before cache
3870: -- comparision
3871: if (p_object_name is NULL) THEN
3872: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3873: fnd_message.set_token('ROUTINE',
3874: c_pkg_name || '.'|| l_api_name);
3875: fnd_message.set_token('REASON',
3876: 'The parameter p_object_name can not be NULL.');
3869: -- They have just been moved from post cache comparision to before cache
3870: -- comparision
3871: if (p_object_name is NULL) THEN
3872: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3873: fnd_message.set_token('ROUTINE',
3874: c_pkg_name || '.'|| l_api_name);
3875: fnd_message.set_token('REASON',
3876: 'The parameter p_object_name can not be NULL.');
3877: if (fnd_log.LEVEL_EXCEPTION >=
3871: if (p_object_name is NULL) THEN
3872: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3873: fnd_message.set_token('ROUTINE',
3874: c_pkg_name || '.'|| l_api_name);
3875: fnd_message.set_token('REASON',
3876: 'The parameter p_object_name can not be NULL.');
3877: if (fnd_log.LEVEL_EXCEPTION >=
3878: fnd_log.g_current_runtime_level) then
3879: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3885: END IF;
3886:
3887: l_object_id :=get_object_id(p_object_name );
3888: if (l_object_id is NULL) THEN
3889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3890: fnd_message.set_token('ROUTINE',
3891: c_pkg_name || '.'|| l_api_name);
3892: fnd_message.set_token('REASON',
3893: 'The parameter value p_object_name is not a valid object.'||
3886:
3887: l_object_id :=get_object_id(p_object_name );
3888: if (l_object_id is NULL) THEN
3889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3890: fnd_message.set_token('ROUTINE',
3891: c_pkg_name || '.'|| l_api_name);
3892: fnd_message.set_token('REASON',
3893: 'The parameter value p_object_name is not a valid object.'||
3894: ' p_object_name:'||p_object_name);
3888: if (l_object_id is NULL) THEN
3889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3890: fnd_message.set_token('ROUTINE',
3891: c_pkg_name || '.'|| l_api_name);
3892: fnd_message.set_token('REASON',
3893: 'The parameter value p_object_name is not a valid object.'||
3894: ' p_object_name:'||p_object_name);
3895: if (fnd_log.LEVEL_EXCEPTION >=
3896: fnd_log.g_current_runtime_level) then
3906: l_function_id := -1;
3907: else
3908: l_function_id := get_function_id(p_function);
3909: if (l_function_id is NULL) THEN
3910: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3911: fnd_message.set_token('ROUTINE',
3912: c_pkg_name || '.'|| l_api_name);
3913: fnd_message.set_token('REASON',
3914: 'The parameter value p_function is not a valid function name.'||
3907: else
3908: l_function_id := get_function_id(p_function);
3909: if (l_function_id is NULL) THEN
3910: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3911: fnd_message.set_token('ROUTINE',
3912: c_pkg_name || '.'|| l_api_name);
3913: fnd_message.set_token('REASON',
3914: 'The parameter value p_function is not a valid function name.'||
3915: ' p_function:'||p_function);
3909: if (l_function_id is NULL) THEN
3910: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3911: fnd_message.set_token('ROUTINE',
3912: c_pkg_name || '.'|| l_api_name);
3913: fnd_message.set_token('REASON',
3914: 'The parameter value p_function is not a valid function name.'||
3915: ' p_function:'||p_function);
3916: if (fnd_log.LEVEL_EXCEPTION >=
3917: fnd_log.g_current_runtime_level) then
3994: if ( (p_statement_type <> 'VPD')
3995: AND (p_statement_type <> 'BASE' /* Deprecated, same as VPD */)
3996: AND (p_statement_type <> 'OTHER')
3997: AND (p_statement_type <> 'EXISTS')) then
3998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3999: fnd_message.set_token('ROUTINE',
4000: c_pkg_name || '.'|| l_api_name);
4001: fnd_message.set_token('REASON',
4002: 'Unsupported p_statement_type: '|| p_statement_type);
3995: AND (p_statement_type <> 'BASE' /* Deprecated, same as VPD */)
3996: AND (p_statement_type <> 'OTHER')
3997: AND (p_statement_type <> 'EXISTS')) then
3998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3999: fnd_message.set_token('ROUTINE',
4000: c_pkg_name || '.'|| l_api_name);
4001: fnd_message.set_token('REASON',
4002: 'Unsupported p_statement_type: '|| p_statement_type);
4003: if (fnd_log.LEVEL_EXCEPTION >=
3997: AND (p_statement_type <> 'EXISTS')) then
3998: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3999: fnd_message.set_token('ROUTINE',
4000: c_pkg_name || '.'|| l_api_name);
4001: fnd_message.set_token('REASON',
4002: 'Unsupported p_statement_type: '|| p_statement_type);
4003: if (fnd_log.LEVEL_EXCEPTION >=
4004: fnd_log.g_current_runtime_level) then
4005: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4044: if (check_user_role (l_user_name) = 'F') then
4045:
4046: -- If we got here then the grantee will never be found because
4047: -- it isn't even a role, so we know there won't be a matching grant.
4048: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4049: fnd_message.set_token('ROUTINE',
4050: c_pkg_name || '.'|| l_api_name);
4051: fnd_message.set_token('REASON',
4052: 'The user_name passed or defaulted is not a valid user_name '||
4045:
4046: -- If we got here then the grantee will never be found because
4047: -- it isn't even a role, so we know there won't be a matching grant.
4048: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4049: fnd_message.set_token('ROUTINE',
4050: c_pkg_name || '.'|| l_api_name);
4051: fnd_message.set_token('REASON',
4052: 'The user_name passed or defaulted is not a valid user_name '||
4053: 'in wf_user_roles. '||
4047: -- it isn't even a role, so we know there won't be a matching grant.
4048: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4049: fnd_message.set_token('ROUTINE',
4050: c_pkg_name || '.'|| l_api_name);
4051: fnd_message.set_token('REASON',
4052: 'The user_name passed or defaulted is not a valid user_name '||
4053: 'in wf_user_roles. '||
4054: 'Invalid user_name: '||l_user_name ||
4055: ' Passed p_user_name: '||p_user_name);
4099: l_user_name_bind);
4100:
4101:
4102: if(p_object_name = 'GLOBAL') then
4103: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4104: fnd_message.set_token('ROUTINE',
4105: c_pkg_name || '.'|| l_api_name);
4106: fnd_message.set_token('REASON',
4107: 'The parameter p_object_name can not be ''GLOBAL''. ');
4100:
4101:
4102: if(p_object_name = 'GLOBAL') then
4103: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4104: fnd_message.set_token('ROUTINE',
4105: c_pkg_name || '.'|| l_api_name);
4106: fnd_message.set_token('REASON',
4107: 'The parameter p_object_name can not be ''GLOBAL''. ');
4108: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
4102: if(p_object_name = 'GLOBAL') then
4103: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4104: fnd_message.set_token('ROUTINE',
4105: c_pkg_name || '.'|| l_api_name);
4106: fnd_message.set_token('REASON',
4107: 'The parameter p_object_name can not be ''GLOBAL''. ');
4108: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
4109: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4110: c_log_head || l_api_name || '.end_glob_obj',
4623: c_log_head || l_api_name || '.open_glob_nofn_cursor',
4624: ' open');
4625: end if;
4626: else
4627: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4628: fnd_message.set_token('ROUTINE',
4629: c_pkg_name || '.'|| l_api_name);
4630: fnd_message.set_token('REASON',
4631: ' Fell through where we shouldnt have (1)');
4624: ' open');
4625: end if;
4626: else
4627: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4628: fnd_message.set_token('ROUTINE',
4629: c_pkg_name || '.'|| l_api_name);
4630: fnd_message.set_token('REASON',
4631: ' Fell through where we shouldnt have (1)');
4632: if (fnd_log.LEVEL_EXCEPTION >=
4626: else
4627: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4628: fnd_message.set_token('ROUTINE',
4629: c_pkg_name || '.'|| l_api_name);
4630: fnd_message.set_token('REASON',
4631: ' Fell through where we shouldnt have (1)');
4632: if (fnd_log.LEVEL_EXCEPTION >=
4633: fnd_log.g_current_runtime_level) then
4634: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4825: l_cursor_is_open := FALSE;
4826: exit; -- exit loop
4827: end if;
4828: else
4829: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4830: fnd_message.set_token('ROUTINE',
4831: c_pkg_name || '.'|| l_api_name);
4832: fnd_message.set_token('REASON',
4833: ' Fell through where we shouldnt have (2)');
4826: exit; -- exit loop
4827: end if;
4828: else
4829: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4830: fnd_message.set_token('ROUTINE',
4831: c_pkg_name || '.'|| l_api_name);
4832: fnd_message.set_token('REASON',
4833: ' Fell through where we shouldnt have (2)');
4834: if (fnd_log.LEVEL_EXCEPTION >=
4828: else
4829: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4830: fnd_message.set_token('ROUTINE',
4831: c_pkg_name || '.'|| l_api_name);
4832: fnd_message.set_token('REASON',
4833: ' Fell through where we shouldnt have (2)');
4834: if (fnd_log.LEVEL_EXCEPTION >=
4835: fnd_log.g_current_runtime_level) then
4836: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4980: close isg_glob_fn_c;
4981: elsif (l_glob_nofn) then
4982: close isg_glob_nofn_c;
4983: else
4984: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4985: fnd_message.set_token('ROUTINE',
4986: c_pkg_name || '.'|| l_api_name);
4987: fnd_message.set_token('REASON',
4988: ' Fell through where we shouldnt have (3)');
4981: elsif (l_glob_nofn) then
4982: close isg_glob_nofn_c;
4983: else
4984: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4985: fnd_message.set_token('ROUTINE',
4986: c_pkg_name || '.'|| l_api_name);
4987: fnd_message.set_token('REASON',
4988: ' Fell through where we shouldnt have (3)');
4989: if (fnd_log.LEVEL_EXCEPTION >=
4983: else
4984: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4985: fnd_message.set_token('ROUTINE',
4986: c_pkg_name || '.'|| l_api_name);
4987: fnd_message.set_token('REASON',
4988: ' Fell through where we shouldnt have (3)');
4989: if (fnd_log.LEVEL_EXCEPTION >=
4990: fnd_log.g_current_runtime_level) then
4991: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5199:
5200: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
5201: AND ( (p_statement_type = 'BASE') /* deprecated, same as VPD*/
5202: or (p_statement_type = 'VPD')))then
5203: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5204: FND_MESSAGE.SET_TOKEN('ROUTINE',
5205: c_pkg_name || '.'|| l_api_name);
5206: FND_MESSAGE.SET_TOKEN('REASON',
5207: 'The predicate was longer than the database VPD limit of '||
5200: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
5201: AND ( (p_statement_type = 'BASE') /* deprecated, same as VPD*/
5202: or (p_statement_type = 'VPD')))then
5203: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5204: FND_MESSAGE.SET_TOKEN('ROUTINE',
5205: c_pkg_name || '.'|| l_api_name);
5206: FND_MESSAGE.SET_TOKEN('REASON',
5207: 'The predicate was longer than the database VPD limit of '||
5208: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
5202: or (p_statement_type = 'VPD')))then
5203: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5204: FND_MESSAGE.SET_TOKEN('ROUTINE',
5205: c_pkg_name || '.'|| l_api_name);
5206: FND_MESSAGE.SET_TOKEN('REASON',
5207: 'The predicate was longer than the database VPD limit of '||
5208: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
5209:
5210: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
5254:
5255: EXCEPTION
5256: /* If API called with deprecated p_user_name arg, */
5257: /* propagate that up so the caller gets exception */
5258: WHEN FND_MESSAGE_RAISED_ERR THEN
5259: /* Re raise the error for the caller */
5260: fnd_message.raise_error;
5261:
5262: x_return_status := 'U'; /* This line should never be executed */
5256: /* If API called with deprecated p_user_name arg, */
5257: /* propagate that up so the caller gets exception */
5258: WHEN FND_MESSAGE_RAISED_ERR THEN
5259: /* Re raise the error for the caller */
5260: fnd_message.raise_error;
5261:
5262: x_return_status := 'U'; /* This line should never be executed */
5263: return;
5264:
5262: x_return_status := 'U'; /* This line should never be executed */
5263: return;
5264:
5265: WHEN OTHERS THEN
5266: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5267: fnd_message.set_token('ROUTINE',
5268: c_pkg_name || '.'|| l_api_name);
5269: fnd_message.set_token('ERRNO', SQLCODE);
5270: fnd_message.set_token('REASON', SQLERRM);
5263: return;
5264:
5265: WHEN OTHERS THEN
5266: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5267: fnd_message.set_token('ROUTINE',
5268: c_pkg_name || '.'|| l_api_name);
5269: fnd_message.set_token('ERRNO', SQLCODE);
5270: fnd_message.set_token('REASON', SQLERRM);
5271:
5265: WHEN OTHERS THEN
5266: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5267: fnd_message.set_token('ROUTINE',
5268: c_pkg_name || '.'|| l_api_name);
5269: fnd_message.set_token('ERRNO', SQLCODE);
5270: fnd_message.set_token('REASON', SQLERRM);
5271:
5272: if (fnd_log.LEVEL_EXCEPTION >=
5273: fnd_log.g_current_runtime_level) then
5266: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5267: fnd_message.set_token('ROUTINE',
5268: c_pkg_name || '.'|| l_api_name);
5269: fnd_message.set_token('ERRNO', SQLCODE);
5270: fnd_message.set_token('REASON', SQLERRM);
5271:
5272: if (fnd_log.LEVEL_EXCEPTION >=
5273: fnd_log.g_current_runtime_level) then
5274: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5323:
5324:
5325: -- check for call compatibility.
5326: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5327: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5328: fnd_message.set_token('ROUTINE',
5329: c_pkg_name || '.'|| l_api_name);
5330: fnd_message.set_token('REASON',
5331: 'Unsupported version '|| to_char(p_api_version)||
5324:
5325: -- check for call compatibility.
5326: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5327: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5328: fnd_message.set_token('ROUTINE',
5329: c_pkg_name || '.'|| l_api_name);
5330: fnd_message.set_token('REASON',
5331: 'Unsupported version '|| to_char(p_api_version)||
5332: ' passed to API; expecting version '||
5326: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5327: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5328: fnd_message.set_token('ROUTINE',
5329: c_pkg_name || '.'|| l_api_name);
5330: fnd_message.set_token('REASON',
5331: 'Unsupported version '|| to_char(p_api_version)||
5332: ' passed to API; expecting version '||
5333: to_char(l_api_version));
5334: if (fnd_log.LEVEL_EXCEPTION >=
5400: end if;
5401:
5402: -- check for call compatibility.
5403: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5404: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5405: fnd_message.set_token('ROUTINE',
5406: c_pkg_name || '.'|| l_api_name);
5407: fnd_message.set_token('REASON',
5408: 'Unsupported version '|| to_char(p_api_version)||
5401:
5402: -- check for call compatibility.
5403: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5404: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5405: fnd_message.set_token('ROUTINE',
5406: c_pkg_name || '.'|| l_api_name);
5407: fnd_message.set_token('REASON',
5408: 'Unsupported version '|| to_char(p_api_version)||
5409: ' passed to API; expecting version '||
5403: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5404: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5405: fnd_message.set_token('ROUTINE',
5406: c_pkg_name || '.'|| l_api_name);
5407: fnd_message.set_token('REASON',
5408: 'Unsupported version '|| to_char(p_api_version)||
5409: ' passed to API; expecting version '||
5410: to_char(l_api_version));
5411: if (fnd_log.LEVEL_EXCEPTION >=
5476: OR (p_pk3_alias is not NULL)
5477: OR (p_pk4_alias is not NULL)
5478: OR (p_pk5_alias is not NULL))) then
5479:
5480: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5481: fnd_message.set_token('ROUTINE',
5482: c_pkg_name || '.'|| l_api_name);
5483: fnd_message.set_token('REASON',
5484: 'Unsupported mode arguments: '||
5477: OR (p_pk4_alias is not NULL)
5478: OR (p_pk5_alias is not NULL))) then
5479:
5480: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5481: fnd_message.set_token('ROUTINE',
5482: c_pkg_name || '.'|| l_api_name);
5483: fnd_message.set_token('REASON',
5484: 'Unsupported mode arguments: '||
5485: 'p_statement_type = BASE|VPD,'||
5479:
5480: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5481: fnd_message.set_token('ROUTINE',
5482: c_pkg_name || '.'|| l_api_name);
5483: fnd_message.set_token('REASON',
5484: 'Unsupported mode arguments: '||
5485: 'p_statement_type = BASE|VPD,'||
5486: ' or p_pkX_alias values passed.');
5487: if (fnd_log.LEVEL_EXCEPTION >=
5497: if (fnd_data_security.DISALLOW_DEPRECATED = 'Y') then
5498: /* In R12 this routine is deprecated */
5499: /* So we raise a runtime exception to help people to know */
5500: /* they need to change their code. */
5501: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5502: fnd_message.set_token('ROUTINE',
5503: c_pkg_name || '.'|| l_api_name);
5504: fnd_message.set_token('REASON',
5505: 'Invalid API call. API '
5498: /* In R12 this routine is deprecated */
5499: /* So we raise a runtime exception to help people to know */
5500: /* they need to change their code. */
5501: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5502: fnd_message.set_token('ROUTINE',
5503: c_pkg_name || '.'|| l_api_name);
5504: fnd_message.set_token('REASON',
5505: 'Invalid API call. API '
5506: ||c_pkg_name || '.'|| l_api_name ||
5500: /* they need to change their code. */
5501: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5502: fnd_message.set_token('ROUTINE',
5503: c_pkg_name || '.'|| l_api_name);
5504: fnd_message.set_token('REASON',
5505: 'Invalid API call. API '
5506: ||c_pkg_name || '.'|| l_api_name ||
5507: ' is desupported and should not be called in R12.'||
5508: ' Any product team that calls it '||
5522: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5523: c_log_head || l_api_name || '.end_unsupported',
5524: FALSE);
5525: end if;
5526: fnd_message.raise_error;
5527: end if;
5528:
5529:
5530: fnd_data_security.get_security_predicate(
5582: /* records, which is unsupportable from a performance */
5583: /* perspective. */
5584: /* So we raise a runtime exception to help people to know */
5585: /* they need to change their code. */
5586: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5587: fnd_message.set_token('ROUTINE',
5588: c_pkg_name || '.'|| l_api_name);
5589: fnd_message.set_token('REASON',
5590: 'Invalid API call. API '
5583: /* perspective. */
5584: /* So we raise a runtime exception to help people to know */
5585: /* they need to change their code. */
5586: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5587: fnd_message.set_token('ROUTINE',
5588: c_pkg_name || '.'|| l_api_name);
5589: fnd_message.set_token('REASON',
5590: 'Invalid API call. API '
5591: ||c_pkg_name || '.'|| l_api_name ||
5585: /* they need to change their code. */
5586: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5587: fnd_message.set_token('ROUTINE',
5588: c_pkg_name || '.'|| l_api_name);
5589: fnd_message.set_token('REASON',
5590: 'Invalid API call. API '
5591: ||c_pkg_name || '.'|| l_api_name ||
5592: ' is desupported and should not be called in R12.'||
5593: ' Any product team that calls it '||
5607: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5608: c_log_head || l_api_name || '.end_unsupported',
5609: FALSE);
5610: end if;
5611: fnd_message.raise_error;
5612: end if;
5613:
5614: get_security_predicate(p_api_version=>1.0,
5615: p_function =>p_function,
5747:
5748: EXCEPTION
5749: /* If API called where it is unsupported, */
5750: /* propagate that up so the caller gets exception */
5751: WHEN FND_MESSAGE_RAISED_ERR THEN
5752: /* Re raise the error for the caller */
5753: fnd_message.raise_error;
5754: x_return_status := 'U'; /* This line should never be executed */
5755: return;
5749: /* If API called where it is unsupported, */
5750: /* propagate that up so the caller gets exception */
5751: WHEN FND_MESSAGE_RAISED_ERR THEN
5752: /* Re raise the error for the caller */
5753: fnd_message.raise_error;
5754: x_return_status := 'U'; /* This line should never be executed */
5755: return;
5756:
5757: WHEN OTHERS THEN
5754: x_return_status := 'U'; /* This line should never be executed */
5755: return;
5756:
5757: WHEN OTHERS THEN
5758: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5759: fnd_message.set_token('ROUTINE',
5760: c_pkg_name || '.'|| l_api_name);
5761: fnd_message.set_token('ERRNO', SQLCODE);
5762: fnd_message.set_token('REASON', SQLERRM);
5755: return;
5756:
5757: WHEN OTHERS THEN
5758: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5759: fnd_message.set_token('ROUTINE',
5760: c_pkg_name || '.'|| l_api_name);
5761: fnd_message.set_token('ERRNO', SQLCODE);
5762: fnd_message.set_token('REASON', SQLERRM);
5763:
5757: WHEN OTHERS THEN
5758: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5759: fnd_message.set_token('ROUTINE',
5760: c_pkg_name || '.'|| l_api_name);
5761: fnd_message.set_token('ERRNO', SQLCODE);
5762: fnd_message.set_token('REASON', SQLERRM);
5763:
5764: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
5765: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5758: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5759: fnd_message.set_token('ROUTINE',
5760: c_pkg_name || '.'|| l_api_name);
5761: fnd_message.set_token('ERRNO', SQLCODE);
5762: fnd_message.set_token('REASON', SQLERRM);
5763:
5764: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
5765: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5766: c_log_head || l_api_name || '.other_err',
5804: ', p_instance_pk4_value=>'|| p_instance_pk4_value ||
5805: ', p_instance_pk5_value=>'|| p_instance_pk5_value ||')');
5806: end if;
5807:
5808: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5809: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5810: fnd_message.set_token('REASON',
5811: 'Desupported API called. This routine is no longer '||
5812: 'supported because it is incompatible with '||
5805: ', p_instance_pk5_value=>'|| p_instance_pk5_value ||')');
5806: end if;
5807:
5808: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5809: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5810: fnd_message.set_token('REASON',
5811: 'Desupported API called. This routine is no longer '||
5812: 'supported because it is incompatible with '||
5813: 'parameterized instance sets which were introduced '||
5806: end if;
5807:
5808: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5809: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5810: fnd_message.set_token('REASON',
5811: 'Desupported API called. This routine is no longer '||
5812: 'supported because it is incompatible with '||
5813: 'parameterized instance sets which were introduced '||
5814: 'in 4/2002. ');
5817: c_log_head || l_api_name || '.end_desupported',
5818: FALSE);
5819: end if;
5820:
5821: fnd_message.raise_error;
5822: return 'u';/* unexpected error */
5823:
5824: end check_instance_in_set;
5825:
6276: end if;
6277:
6278: RETURN TRUE;
6279: EXCEPTION WHEN OTHERS THEN
6280: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
6281: FND_MESSAGE.SET_TOKEN('ROUTINE',
6282: C_PKG_NAME||','||L_API_NAME);
6283: FND_MESSAGE.SET_TOKEN('ERRNO', SQLCODE);
6284: FND_MESSAGE.SET_TOKEN('REASON', SQLERRM);
6277:
6278: RETURN TRUE;
6279: EXCEPTION WHEN OTHERS THEN
6280: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
6281: FND_MESSAGE.SET_TOKEN('ROUTINE',
6282: C_PKG_NAME||','||L_API_NAME);
6283: FND_MESSAGE.SET_TOKEN('ERRNO', SQLCODE);
6284: FND_MESSAGE.SET_TOKEN('REASON', SQLERRM);
6285: RETURN FALSE;
6279: EXCEPTION WHEN OTHERS THEN
6280: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
6281: FND_MESSAGE.SET_TOKEN('ROUTINE',
6282: C_PKG_NAME||','||L_API_NAME);
6283: FND_MESSAGE.SET_TOKEN('ERRNO', SQLCODE);
6284: FND_MESSAGE.SET_TOKEN('REASON', SQLERRM);
6285: RETURN FALSE;
6286: END GET_FUNCTIONS_BY_PROMPT;
6287:
6280: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
6281: FND_MESSAGE.SET_TOKEN('ROUTINE',
6282: C_PKG_NAME||','||L_API_NAME);
6283: FND_MESSAGE.SET_TOKEN('ERRNO', SQLCODE);
6284: FND_MESSAGE.SET_TOKEN('REASON', SQLERRM);
6285: RETURN FALSE;
6286: END GET_FUNCTIONS_BY_PROMPT;
6287:
6288: