61: g_bad_date DATE := fnd_date.canonical_to_date('1970/11/11');
62:
63: /* Define the exception that will be used for reraising exception */
64: /* concerning a call to deprecated APIs */
65: FND_MESSAGE_RAISED_ERR EXCEPTION;
66: pragma exception_init(FND_MESSAGE_RAISED_ERR, -20001);
67:
68:
69: ---This is an internal procedure. Not for general use.
62:
63: /* Define the exception that will be used for reraising exception */
64: /* concerning a call to deprecated APIs */
65: FND_MESSAGE_RAISED_ERR EXCEPTION;
66: pragma exception_init(FND_MESSAGE_RAISED_ERR, -20001);
67:
68:
69: ---This is an internal procedure. Not for general use.
70: -- Initializes the max vpd predicate size depending on the database version.
271: /* records, which is unsupportable from a performance */
272: /* perspective. */
273: /* So we raise a runtime exception to help people to know */
274: /* they need to change their code. */
275: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
276: fnd_message.set_token('ROUTINE',
277: c_pkg_name || '.'|| l_api_name);
278: fnd_message.set_token('REASON',
279: 'Invalid API call. API '
272: /* perspective. */
273: /* So we raise a runtime exception to help people to know */
274: /* they need to change their code. */
275: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
276: fnd_message.set_token('ROUTINE',
277: c_pkg_name || '.'|| l_api_name);
278: fnd_message.set_token('REASON',
279: 'Invalid API call. API '
280: ||c_pkg_name || '.'|| l_api_name ||
274: /* they need to change their code. */
275: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
276: fnd_message.set_token('ROUTINE',
277: c_pkg_name || '.'|| l_api_name);
278: fnd_message.set_token('REASON',
279: 'Invalid API call. API '
280: ||c_pkg_name || '.'|| l_api_name ||
281: ' is desupported and should not be called in R12.'||
282: ' Any product team that calls it '||
294: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
295: c_log_head || l_api_name || '.end_unsupported',
296: FALSE);
297: end if;
298: fnd_message.raise_error;
299: end if;
300:
301: x_orig_system := NULL;
302: x_orig_system_id := NULL;
532: x_pk5_column_type ,
533: x_database_object_name;
534:
535: IF(c_pk%NOTFOUND) THEN
536: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
537: fnd_message.set_token('ROUTINE',
538: c_pkg_name || '.'|| l_api_name);
539: fnd_message.set_token('REASON',
540: 'FND_OBJECTS does not have column obj_name with value:'||
533: x_database_object_name;
534:
535: IF(c_pk%NOTFOUND) THEN
536: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
537: fnd_message.set_token('ROUTINE',
538: c_pkg_name || '.'|| l_api_name);
539: fnd_message.set_token('REASON',
540: 'FND_OBJECTS does not have column obj_name with value:'||
541: p_object_name);
535: IF(c_pk%NOTFOUND) THEN
536: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
537: fnd_message.set_token('ROUTINE',
538: c_pkg_name || '.'|| l_api_name);
539: fnd_message.set_token('REASON',
540: 'FND_OBJECTS does not have column obj_name with value:'||
541: p_object_name);
542: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
543: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
885: end if;
886:
887: -- check for call compatibility.
888: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
890: fnd_message.set_token('ROUTINE',
891: c_pkg_name || '.'|| l_api_name);
892: fnd_message.set_token('REASON',
893: 'Unsupported version '|| to_char(p_api_version)||
886:
887: -- check for call compatibility.
888: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
890: fnd_message.set_token('ROUTINE',
891: c_pkg_name || '.'|| l_api_name);
892: fnd_message.set_token('REASON',
893: 'Unsupported version '|| to_char(p_api_version)||
894: ' passed to API; expecting version '||
888: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
889: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
890: fnd_message.set_token('ROUTINE',
891: c_pkg_name || '.'|| l_api_name);
892: fnd_message.set_token('REASON',
893: 'Unsupported version '|| to_char(p_api_version)||
894: ' passed to API; expecting version '||
895: to_char(l_api_version));
896: if (fnd_log.LEVEL_EXCEPTION >=
903: END IF;
904:
905: -- Check for null arguments.
906: if (p_function is NULL) THEN
907: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
908: fnd_message.set_token('ROUTINE',
909: c_pkg_name || '.'|| l_api_name);
910: fnd_message.set_token('REASON',
911: 'NULL value passed for p_function:'||p_function);
904:
905: -- Check for null arguments.
906: if (p_function is NULL) THEN
907: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
908: fnd_message.set_token('ROUTINE',
909: c_pkg_name || '.'|| l_api_name);
910: fnd_message.set_token('REASON',
911: 'NULL value passed for p_function:'||p_function);
912:
906: if (p_function is NULL) THEN
907: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
908: fnd_message.set_token('ROUTINE',
909: c_pkg_name || '.'|| l_api_name);
910: fnd_message.set_token('REASON',
911: 'NULL value passed for p_function:'||p_function);
912:
913: if (fnd_log.LEVEL_EXCEPTION >=
914: fnd_log.g_current_runtime_level) then
929: l_object_id := -1;
930: else
931: l_object_id := get_object_id(p_object_name);
932: if (l_object_id is NULL) THEN
933: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
934: fnd_message.set_token('ROUTINE',
935: c_pkg_name || '.'|| l_api_name);
936: fnd_message.set_token('REASON',
937: 'The parameter value p_object_name is not a valid object.'||
930: else
931: l_object_id := get_object_id(p_object_name);
932: if (l_object_id is NULL) THEN
933: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
934: fnd_message.set_token('ROUTINE',
935: c_pkg_name || '.'|| l_api_name);
936: fnd_message.set_token('REASON',
937: 'The parameter value p_object_name is not a valid object.'||
938: ' p_object_name:'||p_object_name);
932: if (l_object_id is NULL) THEN
933: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
934: fnd_message.set_token('ROUTINE',
935: c_pkg_name || '.'|| l_api_name);
936: fnd_message.set_token('REASON',
937: 'The parameter value p_object_name is not a valid object.'||
938: ' p_object_name:'||p_object_name);
939: if (fnd_log.LEVEL_EXCEPTION >=
940: fnd_log.g_current_runtime_level) then
959: /* In R12 we do not allow passing values other than */
960: /* the current user name (which is the default), */
961: /* so we raise a runtime exception if that deprecated */
962: /* kind of call is made to this routine. */
963: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
964: fnd_message.set_token('ROUTINE',
965: c_pkg_name || '.'|| l_api_name);
966: fnd_message.set_token('REASON',
967: 'Invalid API call. Parameter p_user_name: '||p_user_name||
960: /* the current user name (which is the default), */
961: /* so we raise a runtime exception if that deprecated */
962: /* kind of call is made to this routine. */
963: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
964: fnd_message.set_token('ROUTINE',
965: c_pkg_name || '.'|| l_api_name);
966: fnd_message.set_token('REASON',
967: 'Invalid API call. Parameter p_user_name: '||p_user_name||
968: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
962: /* kind of call is made to this routine. */
963: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
964: fnd_message.set_token('ROUTINE',
965: c_pkg_name || '.'|| l_api_name);
966: fnd_message.set_token('REASON',
967: 'Invalid API call. Parameter p_user_name: '||p_user_name||
968: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
969: '. p_object_name: '||p_object_name||'. '||
970: ' In Release 12 and beyond the p_user_name parameter '||
985: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
986: c_log_head || l_api_name || '.end_depr_param',
987: FALSE);
988: end if;
989: fnd_message.raise_error;
990: end if;
991: l_user_name := p_user_name;
992: end if;
993:
993:
994: -- look up function id from function name
995: l_function_id:=get_function_id(p_function);
996: if (l_function_id is NULL) THEN
997: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
998: fnd_message.set_token('ROUTINE',
999: c_pkg_name || '.'|| l_api_name);
1000: fnd_message.set_token('REASON',
1001: 'The parameter value p_function is not a valid function name.'||
994: -- look up function id from function name
995: l_function_id:=get_function_id(p_function);
996: if (l_function_id is NULL) THEN
997: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
998: fnd_message.set_token('ROUTINE',
999: c_pkg_name || '.'|| l_api_name);
1000: fnd_message.set_token('REASON',
1001: 'The parameter value p_function is not a valid function name.'||
1002: ' p_function:'||p_function);
996: if (l_function_id is NULL) THEN
997: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
998: fnd_message.set_token('ROUTINE',
999: c_pkg_name || '.'|| l_api_name);
1000: fnd_message.set_token('REASON',
1001: 'The parameter value p_function is not a valid function name.'||
1002: ' p_function:'||p_function);
1003: if (fnd_log.LEVEL_EXCEPTION >=
1004: fnd_log.g_current_runtime_level) then
1094:
1095: EXCEPTION
1096: /* If API called with deprecated p_user_name arg, */
1097: /* propagate that up so the caller gets exception */
1098: WHEN FND_MESSAGE_RAISED_ERR THEN
1099: /* Re raise the error for the caller */
1100: fnd_message.raise_error;
1101: return 'U'; /* This line should never be executed */
1102:
1096: /* If API called with deprecated p_user_name arg, */
1097: /* propagate that up so the caller gets exception */
1098: WHEN FND_MESSAGE_RAISED_ERR THEN
1099: /* Re raise the error for the caller */
1100: fnd_message.raise_error;
1101: return 'U'; /* This line should never be executed */
1102:
1103: WHEN OTHERS THEN
1104: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1100: fnd_message.raise_error;
1101: return 'U'; /* This line should never be executed */
1102:
1103: WHEN OTHERS THEN
1104: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1105: fnd_message.set_token('ROUTINE',
1106: c_pkg_name||','||l_api_name);
1107: fnd_message.set_token('ERRNO', SQLCODE);
1108: fnd_message.set_token('REASON', SQLERRM);
1101: return 'U'; /* This line should never be executed */
1102:
1103: WHEN OTHERS THEN
1104: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1105: fnd_message.set_token('ROUTINE',
1106: c_pkg_name||','||l_api_name);
1107: fnd_message.set_token('ERRNO', SQLCODE);
1108: fnd_message.set_token('REASON', SQLERRM);
1109:
1103: WHEN OTHERS THEN
1104: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1105: fnd_message.set_token('ROUTINE',
1106: c_pkg_name||','||l_api_name);
1107: fnd_message.set_token('ERRNO', SQLCODE);
1108: fnd_message.set_token('REASON', SQLERRM);
1109:
1110: if (fnd_log.LEVEL_EXCEPTION >=
1111: fnd_log.g_current_runtime_level) then
1104: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1105: fnd_message.set_token('ROUTINE',
1106: c_pkg_name||','||l_api_name);
1107: fnd_message.set_token('ERRNO', SQLCODE);
1108: fnd_message.set_token('REASON', SQLERRM);
1109:
1110: if (fnd_log.LEVEL_EXCEPTION >=
1111: fnd_log.g_current_runtime_level) then
1112: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1149: end if;
1150:
1151: -- check for call compatibility.
1152: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1153: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1154: fnd_message.set_token('ROUTINE',
1155: c_pkg_name || '.'|| l_api_name);
1156: fnd_message.set_token('REASON',
1157: 'Unsupported version '|| to_char(p_api_version)||
1150:
1151: -- check for call compatibility.
1152: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1153: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1154: fnd_message.set_token('ROUTINE',
1155: c_pkg_name || '.'|| l_api_name);
1156: fnd_message.set_token('REASON',
1157: 'Unsupported version '|| to_char(p_api_version)||
1158: ' passed to API; expecting version '||
1152: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1153: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1154: fnd_message.set_token('ROUTINE',
1155: c_pkg_name || '.'|| l_api_name);
1156: fnd_message.set_token('REASON',
1157: 'Unsupported version '|| to_char(p_api_version)||
1158: ' passed to API; expecting version '||
1159: to_char(l_api_version));
1160: if (fnd_log.LEVEL_EXCEPTION >=
1253: end if;
1254:
1255: -- check for call compatibility.
1256: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1257: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1258: fnd_message.set_token('ROUTINE',
1259: c_pkg_name || '.'|| l_api_name);
1260: fnd_message.set_token('REASON',
1261: 'Unsupported version '|| to_char(p_api_version)||
1254:
1255: -- check for call compatibility.
1256: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1257: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1258: fnd_message.set_token('ROUTINE',
1259: c_pkg_name || '.'|| l_api_name);
1260: fnd_message.set_token('REASON',
1261: 'Unsupported version '|| to_char(p_api_version)||
1262: ' passed to API; expecting version '||
1256: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1257: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1258: fnd_message.set_token('ROUTINE',
1259: c_pkg_name || '.'|| l_api_name);
1260: fnd_message.set_token('REASON',
1261: 'Unsupported version '|| to_char(p_api_version)||
1262: ' passed to API; expecting version '||
1263: to_char(l_api_version));
1264:
1272: END IF;
1273:
1274: -- Check for null arguments.
1275: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1277: fnd_message.set_token('ROUTINE',
1278: c_pkg_name || '.'|| l_api_name);
1279: fnd_message.set_token('REASON',
1280: 'NULL value passed for p_function:'||p_function||
1273:
1274: -- Check for null arguments.
1275: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1277: fnd_message.set_token('ROUTINE',
1278: c_pkg_name || '.'|| l_api_name);
1279: fnd_message.set_token('REASON',
1280: 'NULL value passed for p_function:'||p_function||
1281: ' or for p_object_name:'||p_object_name);
1275: if ((p_function is NULL) or (p_object_name is NULL)) THEN
1276: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1277: fnd_message.set_token('ROUTINE',
1278: c_pkg_name || '.'|| l_api_name);
1279: fnd_message.set_token('REASON',
1280: 'NULL value passed for p_function:'||p_function||
1281: ' or for p_object_name:'||p_object_name);
1282: if (fnd_log.LEVEL_EXCEPTION >=
1283: fnd_log.g_current_runtime_level) then
1302: /* In R12 we do not allow passing values other than */
1303: /* the current user name (which is the default), */
1304: /* so we raise a runtime exception if that deprecated */
1305: /* kind of call is made to this routine. */
1306: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1307: fnd_message.set_token('ROUTINE',
1308: c_pkg_name || '.'|| l_api_name);
1309: fnd_message.set_token('REASON',
1310: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1303: /* the current user name (which is the default), */
1304: /* so we raise a runtime exception if that deprecated */
1305: /* kind of call is made to this routine. */
1306: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1307: fnd_message.set_token('ROUTINE',
1308: c_pkg_name || '.'|| l_api_name);
1309: fnd_message.set_token('REASON',
1310: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1311: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1305: /* kind of call is made to this routine. */
1306: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1307: fnd_message.set_token('ROUTINE',
1308: c_pkg_name || '.'|| l_api_name);
1309: fnd_message.set_token('REASON',
1310: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1311: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1312: '. p_object_name: '||p_object_name||'. '||
1313: ' In Release 12 and beyond the p_user_name parameter '||
1328: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1329: c_log_head || l_api_name || '.end_depr_param',
1330: FALSE);
1331: end if;
1332: fnd_message.raise_error;
1333: end if;
1334: l_user_name := p_user_name;
1335: end if;
1336:
1658:
1659: EXCEPTION
1660: /* If API called with deprecated p_user_name arg, */
1661: /* propagate that up so the caller gets exception */
1662: WHEN FND_MESSAGE_RAISED_ERR THEN
1663: /* Re raise the error for the caller */
1664: fnd_message.raise_error;
1665: return 'U'; /* This line should never be executed */
1666:
1660: /* If API called with deprecated p_user_name arg, */
1661: /* propagate that up so the caller gets exception */
1662: WHEN FND_MESSAGE_RAISED_ERR THEN
1663: /* Re raise the error for the caller */
1664: fnd_message.raise_error;
1665: return 'U'; /* This line should never be executed */
1666:
1667: WHEN OTHERS THEN
1668:
1665: return 'U'; /* This line should never be executed */
1666:
1667: WHEN OTHERS THEN
1668:
1669: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1670: fnd_message.set_token('ROUTINE',
1671: c_pkg_name||','||l_api_name);
1672: fnd_message.set_token('ERRNO', SQLCODE);
1673: fnd_message.set_token('REASON', SQLERRM);
1666:
1667: WHEN OTHERS THEN
1668:
1669: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1670: fnd_message.set_token('ROUTINE',
1671: c_pkg_name||','||l_api_name);
1672: fnd_message.set_token('ERRNO', SQLCODE);
1673: fnd_message.set_token('REASON', SQLERRM);
1674:
1668:
1669: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1670: fnd_message.set_token('ROUTINE',
1671: c_pkg_name||','||l_api_name);
1672: fnd_message.set_token('ERRNO', SQLCODE);
1673: fnd_message.set_token('REASON', SQLERRM);
1674:
1675: if (fnd_log.LEVEL_EXCEPTION >=
1676: fnd_log.g_current_runtime_level) then
1669: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1670: fnd_message.set_token('ROUTINE',
1671: c_pkg_name||','||l_api_name);
1672: fnd_message.set_token('ERRNO', SQLCODE);
1673: fnd_message.set_token('REASON', SQLERRM);
1674:
1675: if (fnd_log.LEVEL_EXCEPTION >=
1676: fnd_log.g_current_runtime_level) then
1677: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1744: end if;
1745:
1746: -- check for call compatibility.
1747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1749: fnd_message.set_token('ROUTINE',
1750: c_pkg_name || '.'|| l_api_name);
1751: fnd_message.set_token('REASON',
1752: 'Unsupported version '|| to_char(p_api_version)||
1745:
1746: -- check for call compatibility.
1747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1749: fnd_message.set_token('ROUTINE',
1750: c_pkg_name || '.'|| l_api_name);
1751: fnd_message.set_token('REASON',
1752: 'Unsupported version '|| to_char(p_api_version)||
1753: ' passed to API; expecting version '||
1747: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
1748: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1749: fnd_message.set_token('ROUTINE',
1750: c_pkg_name || '.'|| l_api_name);
1751: fnd_message.set_token('REASON',
1752: 'Unsupported version '|| to_char(p_api_version)||
1753: ' passed to API; expecting version '||
1754: to_char(l_api_version));
1755:
1764: END IF;
1765:
1766: -- Check for null arguments.
1767: if (p_object_name is NULL) THEN
1768: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1769: fnd_message.set_token('ROUTINE',
1770: c_pkg_name || '.'|| l_api_name);
1771: fnd_message.set_token('REASON',
1772: 'NULL value passed for p_object_name:'|| p_object_name);
1765:
1766: -- Check for null arguments.
1767: if (p_object_name is NULL) THEN
1768: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1769: fnd_message.set_token('ROUTINE',
1770: c_pkg_name || '.'|| l_api_name);
1771: fnd_message.set_token('REASON',
1772: 'NULL value passed for p_object_name:'|| p_object_name);
1773:
1767: if (p_object_name is NULL) THEN
1768: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1769: fnd_message.set_token('ROUTINE',
1770: c_pkg_name || '.'|| l_api_name);
1771: fnd_message.set_token('REASON',
1772: 'NULL value passed for p_object_name:'|| p_object_name);
1773:
1774: if (fnd_log.LEVEL_EXCEPTION >=
1775: fnd_log.g_current_runtime_level) then
1799: /* In R12 we do not allow passing values other than */
1800: /* the current user name (which is the default), */
1801: /* so we raise a runtime exception if that deprecated */
1802: /* kind of call is made to this routine. */
1803: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1804: fnd_message.set_token('ROUTINE',
1805: c_pkg_name || '.'|| l_api_name);
1806: fnd_message.set_token('REASON',
1807: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1800: /* the current user name (which is the default), */
1801: /* so we raise a runtime exception if that deprecated */
1802: /* kind of call is made to this routine. */
1803: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1804: fnd_message.set_token('ROUTINE',
1805: c_pkg_name || '.'|| l_api_name);
1806: fnd_message.set_token('REASON',
1807: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1808: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1802: /* kind of call is made to this routine. */
1803: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
1804: fnd_message.set_token('ROUTINE',
1805: c_pkg_name || '.'|| l_api_name);
1806: fnd_message.set_token('REASON',
1807: 'Invalid API call. Parameter p_user_name: '||p_user_name||
1808: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
1809: '. p_object_name: '||p_object_name||'. '||
1810: ' In Release 12 and beyond the p_user_name parameter '||
1825: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1826: c_log_head || l_api_name || '.end_depr_param',
1827: FALSE);
1828: end if;
1829: fnd_message.raise_error;
1830: end if;
1831: l_user_name := p_user_name;
1832: end if;
1833:
1959:
1960: EXCEPTION
1961: /* If API called with deprecated p_user_name arg, */
1962: /* propagate that up so the caller gets exception */
1963: WHEN FND_MESSAGE_RAISED_ERR THEN
1964: /* Re raise the error for the caller */
1965: fnd_message.raise_error;
1966:
1967: x_return_status := 'U'; /* This line should never be executed */
1961: /* If API called with deprecated p_user_name arg, */
1962: /* propagate that up so the caller gets exception */
1963: WHEN FND_MESSAGE_RAISED_ERR THEN
1964: /* Re raise the error for the caller */
1965: fnd_message.raise_error;
1966:
1967: x_return_status := 'U'; /* This line should never be executed */
1968: return;
1969:
1967: x_return_status := 'U'; /* This line should never be executed */
1968: return;
1969:
1970: WHEN OTHERS THEN
1971: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1972: fnd_message.set_token('ROUTINE',
1973: c_pkg_name || '.'|| l_api_name);
1974: fnd_message.set_token('ERRNO', SQLCODE);
1975: fnd_message.set_token('REASON', SQLERRM);
1968: return;
1969:
1970: WHEN OTHERS THEN
1971: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1972: fnd_message.set_token('ROUTINE',
1973: c_pkg_name || '.'|| l_api_name);
1974: fnd_message.set_token('ERRNO', SQLCODE);
1975: fnd_message.set_token('REASON', SQLERRM);
1976:
1970: WHEN OTHERS THEN
1971: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1972: fnd_message.set_token('ROUTINE',
1973: c_pkg_name || '.'|| l_api_name);
1974: fnd_message.set_token('ERRNO', SQLCODE);
1975: fnd_message.set_token('REASON', SQLERRM);
1976:
1977: if (fnd_log.LEVEL_EXCEPTION >=
1978: fnd_log.g_current_runtime_level) then
1971: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1972: fnd_message.set_token('ROUTINE',
1973: c_pkg_name || '.'|| l_api_name);
1974: fnd_message.set_token('ERRNO', SQLCODE);
1975: fnd_message.set_token('REASON', SQLERRM);
1976:
1977: if (fnd_log.LEVEL_EXCEPTION >=
1978: fnd_log.g_current_runtime_level) then
1979: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2034: end if;
2035:
2036: -- check for call compatibility.
2037: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2038: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2039: fnd_message.set_token('ROUTINE',
2040: c_pkg_name || '.'|| l_api_name);
2041: fnd_message.set_token('REASON',
2042: 'Unsupported version '|| to_char(p_api_version)||
2035:
2036: -- check for call compatibility.
2037: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2038: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2039: fnd_message.set_token('ROUTINE',
2040: c_pkg_name || '.'|| l_api_name);
2041: fnd_message.set_token('REASON',
2042: 'Unsupported version '|| to_char(p_api_version)||
2043: ' passed to API; expecting version '||
2037: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
2038: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2039: fnd_message.set_token('ROUTINE',
2040: c_pkg_name || '.'|| l_api_name);
2041: fnd_message.set_token('REASON',
2042: 'Unsupported version '|| to_char(p_api_version)||
2043: ' passed to API; expecting version '||
2044: to_char(l_api_version));
2045: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
2337: /* In R12 we do not allow passing values other than */
2338: /* the current user name (which is the default), */
2339: /* so we raise a runtime exception if that deprecated */
2340: /* kind of call is made to this routine. */
2341: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2342: fnd_message.set_token('ROUTINE',
2343: c_pkg_name || '.'|| l_api_name);
2344: fnd_message.set_token('REASON',
2345: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2338: /* the current user name (which is the default), */
2339: /* so we raise a runtime exception if that deprecated */
2340: /* kind of call is made to this routine. */
2341: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2342: fnd_message.set_token('ROUTINE',
2343: c_pkg_name || '.'|| l_api_name);
2344: fnd_message.set_token('REASON',
2345: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2346: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2340: /* kind of call is made to this routine. */
2341: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2342: fnd_message.set_token('ROUTINE',
2343: c_pkg_name || '.'|| l_api_name);
2344: fnd_message.set_token('REASON',
2345: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2346: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2347: '. p_object_name: '||p_object_name||'. '||
2348: ' In Release 12 and beyond the p_user_name parameter '||
2363: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2364: c_log_head || l_api_name || '.end_depr_param',
2365: FALSE);
2366: end if;
2367: fnd_message.raise_error;
2368: end if;
2369: l_user_name := SUBSTR(p_user_name,
2370: LENGTH('GET_MNUIDS_NBVCXDS:')+1);
2371: else
2393: /* In R12 we do not allow passing values other than */
2394: /* the current user name (which is the default), */
2395: /* so we raise a runtime exception if that deprecated */
2396: /* kind of call is made to this routine. */
2397: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2398: fnd_message.set_token('ROUTINE',
2399: c_pkg_name || '.'|| l_api_name);
2400: fnd_message.set_token('REASON',
2401: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2394: /* the current user name (which is the default), */
2395: /* so we raise a runtime exception if that deprecated */
2396: /* kind of call is made to this routine. */
2397: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2398: fnd_message.set_token('ROUTINE',
2399: c_pkg_name || '.'|| l_api_name);
2400: fnd_message.set_token('REASON',
2401: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2402: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2396: /* kind of call is made to this routine. */
2397: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2398: fnd_message.set_token('ROUTINE',
2399: c_pkg_name || '.'|| l_api_name);
2400: fnd_message.set_token('REASON',
2401: 'Invalid API call. Parameter p_user_name: '||p_user_name||
2402: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
2403: '. p_object_name: '||p_object_name||'. '||
2404: ' In Release 12 and beyond the p_user_name parameter '||
2419: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2420: c_log_head || l_api_name || '.end_depr_param',
2421: FALSE);
2422: end if;
2423: fnd_message.raise_error;
2424: end if;
2425: l_user_name := p_user_name;
2426: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2427: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
2435: -- Check to make sure a valid role is passed or defaulted for user_name
2436: if (check_user_role(l_user_name) = 'F') then
2437: -- If we got here then the grantee will never be found because
2438: -- it isn't even a role, so we know there won't be a matching grant.
2439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2440: fnd_message.set_token('ROUTINE',
2441: c_pkg_name || '.'|| l_api_name);
2442: fnd_message.set_token('REASON',
2443: 'The user_name passed or defaulted is not a valid user_name '||
2436: if (check_user_role(l_user_name) = 'F') then
2437: -- If we got here then the grantee will never be found because
2438: -- it isn't even a role, so we know there won't be a matching grant.
2439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2440: fnd_message.set_token('ROUTINE',
2441: c_pkg_name || '.'|| l_api_name);
2442: fnd_message.set_token('REASON',
2443: 'The user_name passed or defaulted is not a valid user_name '||
2444: 'in wf_user_roles. '||
2438: -- it isn't even a role, so we know there won't be a matching grant.
2439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2440: fnd_message.set_token('ROUTINE',
2441: c_pkg_name || '.'|| l_api_name);
2442: fnd_message.set_token('REASON',
2443: 'The user_name passed or defaulted is not a valid user_name '||
2444: 'in wf_user_roles. '||
2445: 'Invalid user_name: '||l_user_name ||
2446: ' Passed p_user_name: '||p_user_name);
2516: end if;
2517: END IF;
2518:
2519: if (p_object_name is NULL) THEN
2520: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2521: fnd_message.set_token('ROUTINE',
2522: c_pkg_name || '.'|| l_api_name);
2523: fnd_message.set_token('REASON',
2524: 'The parameter p_object_name can not be NULL.');
2517: END IF;
2518:
2519: if (p_object_name is NULL) THEN
2520: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2521: fnd_message.set_token('ROUTINE',
2522: c_pkg_name || '.'|| l_api_name);
2523: fnd_message.set_token('REASON',
2524: 'The parameter p_object_name can not be NULL.');
2525: if (fnd_log.LEVEL_EXCEPTION >=
2519: if (p_object_name is NULL) THEN
2520: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2521: fnd_message.set_token('ROUTINE',
2522: c_pkg_name || '.'|| l_api_name);
2523: fnd_message.set_token('REASON',
2524: 'The parameter p_object_name can not be NULL.');
2525: if (fnd_log.LEVEL_EXCEPTION >=
2526: fnd_log.g_current_runtime_level) then
2527: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2549: * identified.
2550: */
2551: /******
2552: if (l_menulist_flag = FALSE) then
2553: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2554: fnd_message.set_token('ROUTINE',
2555: c_pkg_name || '.'|| l_api_name);
2556: fnd_message.set_token('REASON',
2557: 'The parameter p_object_name can not be ''GLOBAL''. ');
2550: */
2551: /******
2552: if (l_menulist_flag = FALSE) then
2553: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2554: fnd_message.set_token('ROUTINE',
2555: c_pkg_name || '.'|| l_api_name);
2556: fnd_message.set_token('REASON',
2557: 'The parameter p_object_name can not be ''GLOBAL''. ');
2558: if (fnd_log.LEVEL_EXCEPTION >=
2552: if (l_menulist_flag = FALSE) then
2553: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2554: fnd_message.set_token('ROUTINE',
2555: c_pkg_name || '.'|| l_api_name);
2556: fnd_message.set_token('REASON',
2557: 'The parameter p_object_name can not be ''GLOBAL''. ');
2558: if (fnd_log.LEVEL_EXCEPTION >=
2559: fnd_log.g_current_runtime_level) then
2560: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2566: else
2567: l_object_id := -1;
2568: end if;
2569: ********/
2570: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2571: fnd_message.set_token('ROUTINE',
2572: c_pkg_name || '.'|| l_api_name);
2573: fnd_message.set_token('REASON',
2574: 'The parameter p_object_name can not be ''GLOBAL''. ');
2567: l_object_id := -1;
2568: end if;
2569: ********/
2570: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2571: fnd_message.set_token('ROUTINE',
2572: c_pkg_name || '.'|| l_api_name);
2573: fnd_message.set_token('REASON',
2574: 'The parameter p_object_name can not be ''GLOBAL''. ');
2575: if (fnd_log.LEVEL_EXCEPTION >=
2569: ********/
2570: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2571: fnd_message.set_token('ROUTINE',
2572: c_pkg_name || '.'|| l_api_name);
2573: fnd_message.set_token('REASON',
2574: 'The parameter p_object_name can not be ''GLOBAL''. ');
2575: if (fnd_log.LEVEL_EXCEPTION >=
2576: fnd_log.g_current_runtime_level) then
2577: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
2606: end if;
2607:
2608: l_object_id :=get_object_id(p_object_name );
2609: if (l_object_id is NULL) THEN
2610: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2611: fnd_message.set_token('ROUTINE',
2612: c_pkg_name || '.'|| l_api_name);
2613: fnd_message.set_token('REASON',
2614: 'The parameter value p_object_name is not a valid object.'||
2607:
2608: l_object_id :=get_object_id(p_object_name );
2609: if (l_object_id is NULL) THEN
2610: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2611: fnd_message.set_token('ROUTINE',
2612: c_pkg_name || '.'|| l_api_name);
2613: fnd_message.set_token('REASON',
2614: 'The parameter value p_object_name is not a valid object.'||
2615: ' p_object_name:'||p_object_name);
2609: if (l_object_id is NULL) THEN
2610: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2611: fnd_message.set_token('ROUTINE',
2612: c_pkg_name || '.'|| l_api_name);
2613: fnd_message.set_token('REASON',
2614: 'The parameter value p_object_name is not a valid object.'||
2615: ' p_object_name:'||p_object_name);
2616: if (fnd_log.LEVEL_EXCEPTION >=
2617: fnd_log.g_current_runtime_level) then
2628: l_function_id := -1;
2629: else
2630: l_function_id := get_function_id(p_function);
2631: if (l_function_id is NULL) THEN
2632: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2633: fnd_message.set_token('ROUTINE',
2634: c_pkg_name || '.'|| l_api_name);
2635: fnd_message.set_token('REASON',
2636: 'The parameter value p_function is not a valid function name.'||
2629: else
2630: l_function_id := get_function_id(p_function);
2631: if (l_function_id is NULL) THEN
2632: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2633: fnd_message.set_token('ROUTINE',
2634: c_pkg_name || '.'|| l_api_name);
2635: fnd_message.set_token('REASON',
2636: 'The parameter value p_function is not a valid function name.'||
2637: ' p_function:'||p_function);
2631: if (l_function_id is NULL) THEN
2632: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
2633: fnd_message.set_token('ROUTINE',
2634: c_pkg_name || '.'|| l_api_name);
2635: fnd_message.set_token('REASON',
2636: 'The parameter value p_function is not a valid function name.'||
2637: ' p_function:'||p_function);
2638: if (fnd_log.LEVEL_EXCEPTION >=
2639: fnd_log.g_current_runtime_level) then
3053: /* tmorrow- for bug 4592098 check x_predicate rather than l_aggreg..*/
3054: if ( (lengthb(x_predicate) > g_vpd_buf_limit)
3055: AND ( (p_statement_type = 'VPD')
3056: OR (p_statement_type = 'BASE'/* deprecated */)))then
3057: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3058: FND_MESSAGE.SET_TOKEN('ROUTINE',
3059: c_pkg_name || '.'|| l_api_name);
3060: FND_MESSAGE.SET_TOKEN('REASON',
3061: 'The predicate was longer than the database VPD limit of '||
3054: if ( (lengthb(x_predicate) > g_vpd_buf_limit)
3055: AND ( (p_statement_type = 'VPD')
3056: OR (p_statement_type = 'BASE'/* deprecated */)))then
3057: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3058: FND_MESSAGE.SET_TOKEN('ROUTINE',
3059: c_pkg_name || '.'|| l_api_name);
3060: FND_MESSAGE.SET_TOKEN('REASON',
3061: 'The predicate was longer than the database VPD limit of '||
3062: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
3056: OR (p_statement_type = 'BASE'/* deprecated */)))then
3057: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3058: FND_MESSAGE.SET_TOKEN('ROUTINE',
3059: c_pkg_name || '.'|| l_api_name);
3060: FND_MESSAGE.SET_TOKEN('REASON',
3061: 'The predicate was longer than the database VPD limit of '||
3062: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
3063:
3064: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
3072:
3073: EXCEPTION
3074: /* If API called with deprecated p_user_name arg, */
3075: /* propagate that up so the caller gets exception */
3076: WHEN FND_MESSAGE_RAISED_ERR THEN
3077: /* Re raise the error for the caller */
3078: fnd_message.raise_error;
3079:
3080: x_return_status := 'U'; /* This line should never be executed */
3074: /* If API called with deprecated p_user_name arg, */
3075: /* propagate that up so the caller gets exception */
3076: WHEN FND_MESSAGE_RAISED_ERR THEN
3077: /* Re raise the error for the caller */
3078: fnd_message.raise_error;
3079:
3080: x_return_status := 'U'; /* This line should never be executed */
3081: return;
3082:
3080: x_return_status := 'U'; /* This line should never be executed */
3081: return;
3082:
3083: WHEN OTHERS THEN
3084: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3085: fnd_message.set_token('ROUTINE',
3086: c_pkg_name || '.'|| l_api_name);
3087: fnd_message.set_token('ERRNO', SQLCODE);
3088: fnd_message.set_token('REASON', SQLERRM);
3081: return;
3082:
3083: WHEN OTHERS THEN
3084: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3085: fnd_message.set_token('ROUTINE',
3086: c_pkg_name || '.'|| l_api_name);
3087: fnd_message.set_token('ERRNO', SQLCODE);
3088: fnd_message.set_token('REASON', SQLERRM);
3089:
3083: WHEN OTHERS THEN
3084: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3085: fnd_message.set_token('ROUTINE',
3086: c_pkg_name || '.'|| l_api_name);
3087: fnd_message.set_token('ERRNO', SQLCODE);
3088: fnd_message.set_token('REASON', SQLERRM);
3089:
3090: if (fnd_log.LEVEL_EXCEPTION >=
3091: fnd_log.g_current_runtime_level) then
3084: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3085: fnd_message.set_token('ROUTINE',
3086: c_pkg_name || '.'|| l_api_name);
3087: fnd_message.set_token('ERRNO', SQLCODE);
3088: fnd_message.set_token('REASON', SQLERRM);
3089:
3090: if (fnd_log.LEVEL_EXCEPTION >=
3091: fnd_log.g_current_runtime_level) then
3092: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3742: colon := instr(p_user_name, 'PER:');
3743:
3744: -- check for call compatibility.
3745: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3746: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3747: fnd_message.set_token('ROUTINE',
3748: c_pkg_name || '.'|| l_api_name);
3749: fnd_message.set_token('REASON',
3750: 'Unsupported version '|| to_char(p_api_version)||
3743:
3744: -- check for call compatibility.
3745: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3746: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3747: fnd_message.set_token('ROUTINE',
3748: c_pkg_name || '.'|| l_api_name);
3749: fnd_message.set_token('REASON',
3750: 'Unsupported version '|| to_char(p_api_version)||
3751: ' passed to API; expecting version '||
3745: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
3746: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3747: fnd_message.set_token('ROUTINE',
3748: c_pkg_name || '.'|| l_api_name);
3749: fnd_message.set_token('REASON',
3750: 'Unsupported version '|| to_char(p_api_version)||
3751: ' passed to API; expecting version '||
3752: to_char(l_api_version));
3753: if (fnd_log.LEVEL_EXCEPTION >=
3784: /* In R12 we do not allow passing values other than */
3785: /* the current user name (which is the default), */
3786: /* so we raise a runtime exception if that deprecated */
3787: /* kind of call is made to this routine. */
3788: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3789: fnd_message.set_token('ROUTINE',
3790: c_pkg_name || '.'|| l_api_name);
3791: fnd_message.set_token('REASON',
3792: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3785: /* the current user name (which is the default), */
3786: /* so we raise a runtime exception if that deprecated */
3787: /* kind of call is made to this routine. */
3788: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3789: fnd_message.set_token('ROUTINE',
3790: c_pkg_name || '.'|| l_api_name);
3791: fnd_message.set_token('REASON',
3792: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3793: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
3787: /* kind of call is made to this routine. */
3788: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3789: fnd_message.set_token('ROUTINE',
3790: c_pkg_name || '.'|| l_api_name);
3791: fnd_message.set_token('REASON',
3792: 'Invalid API call. Parameter p_user_name: '||p_user_name||
3793: ' was passed to API '||c_pkg_name || '.'|| l_api_name ||
3794: '. p_object_name: '||p_object_name||'. '||
3795: ' In Release 12 and beyond the p_user_name parameter '||
3810: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3811: c_log_head || l_api_name || '.end_depr_param',
3812: FALSE);
3813: end if;
3814: fnd_message.raise_error;
3815: end if;
3816: l_user_name := p_user_name;
3817: end if;
3818:
3899: if ( (p_statement_type <> 'VPD')
3900: AND (p_statement_type <> 'BASE' /* Deprecated, same as VPD */)
3901: AND (p_statement_type <> 'OTHER')
3902: AND (p_statement_type <> 'EXISTS')) then
3903: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3904: fnd_message.set_token('ROUTINE',
3905: c_pkg_name || '.'|| l_api_name);
3906: fnd_message.set_token('REASON',
3907: 'Unsupported p_statement_type: '|| p_statement_type);
3900: AND (p_statement_type <> 'BASE' /* Deprecated, same as VPD */)
3901: AND (p_statement_type <> 'OTHER')
3902: AND (p_statement_type <> 'EXISTS')) then
3903: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3904: fnd_message.set_token('ROUTINE',
3905: c_pkg_name || '.'|| l_api_name);
3906: fnd_message.set_token('REASON',
3907: 'Unsupported p_statement_type: '|| p_statement_type);
3908: if (fnd_log.LEVEL_EXCEPTION >=
3902: AND (p_statement_type <> 'EXISTS')) then
3903: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3904: fnd_message.set_token('ROUTINE',
3905: c_pkg_name || '.'|| l_api_name);
3906: fnd_message.set_token('REASON',
3907: 'Unsupported p_statement_type: '|| p_statement_type);
3908: if (fnd_log.LEVEL_EXCEPTION >=
3909: fnd_log.g_current_runtime_level) then
3910: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
3949: if (check_user_role (l_user_name) = 'F') then
3950:
3951: -- If we got here then the grantee will never be found because
3952: -- it isn't even a role, so we know there won't be a matching grant.
3953: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3954: fnd_message.set_token('ROUTINE',
3955: c_pkg_name || '.'|| l_api_name);
3956: fnd_message.set_token('REASON',
3957: 'The user_name passed or defaulted is not a valid user_name '||
3950:
3951: -- If we got here then the grantee will never be found because
3952: -- it isn't even a role, so we know there won't be a matching grant.
3953: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3954: fnd_message.set_token('ROUTINE',
3955: c_pkg_name || '.'|| l_api_name);
3956: fnd_message.set_token('REASON',
3957: 'The user_name passed or defaulted is not a valid user_name '||
3958: 'in wf_user_roles. '||
3952: -- it isn't even a role, so we know there won't be a matching grant.
3953: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
3954: fnd_message.set_token('ROUTINE',
3955: c_pkg_name || '.'|| l_api_name);
3956: fnd_message.set_token('REASON',
3957: 'The user_name passed or defaulted is not a valid user_name '||
3958: 'in wf_user_roles. '||
3959: 'Invalid user_name: '||l_user_name ||
3960: ' Passed p_user_name: '||p_user_name);
4004: l_user_name_bind);
4005:
4006:
4007: if (p_object_name is NULL) THEN
4008: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4009: fnd_message.set_token('ROUTINE',
4010: c_pkg_name || '.'|| l_api_name);
4011: fnd_message.set_token('REASON',
4012: 'The parameter p_object_name can not be NULL.');
4005:
4006:
4007: if (p_object_name is NULL) THEN
4008: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4009: fnd_message.set_token('ROUTINE',
4010: c_pkg_name || '.'|| l_api_name);
4011: fnd_message.set_token('REASON',
4012: 'The parameter p_object_name can not be NULL.');
4013: if (fnd_log.LEVEL_EXCEPTION >=
4007: if (p_object_name is NULL) THEN
4008: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4009: fnd_message.set_token('ROUTINE',
4010: c_pkg_name || '.'|| l_api_name);
4011: fnd_message.set_token('REASON',
4012: 'The parameter p_object_name can not be NULL.');
4013: if (fnd_log.LEVEL_EXCEPTION >=
4014: fnd_log.g_current_runtime_level) then
4015: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4020: return;
4021: END IF;
4022:
4023: if(p_object_name = 'GLOBAL') then
4024: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4025: fnd_message.set_token('ROUTINE',
4026: c_pkg_name || '.'|| l_api_name);
4027: fnd_message.set_token('REASON',
4028: 'The parameter p_object_name can not be ''GLOBAL''. ');
4021: END IF;
4022:
4023: if(p_object_name = 'GLOBAL') then
4024: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4025: fnd_message.set_token('ROUTINE',
4026: c_pkg_name || '.'|| l_api_name);
4027: fnd_message.set_token('REASON',
4028: 'The parameter p_object_name can not be ''GLOBAL''. ');
4029: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
4023: if(p_object_name = 'GLOBAL') then
4024: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4025: fnd_message.set_token('ROUTINE',
4026: c_pkg_name || '.'|| l_api_name);
4027: fnd_message.set_token('REASON',
4028: 'The parameter p_object_name can not be ''GLOBAL''. ');
4029: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
4030: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4031: c_log_head || l_api_name || '.end_glob_obj',
4069: end if;
4070:
4071: l_object_id :=get_object_id(p_object_name );
4072: if (l_object_id is NULL) THEN
4073: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4074: fnd_message.set_token('ROUTINE',
4075: c_pkg_name || '.'|| l_api_name);
4076: fnd_message.set_token('REASON',
4077: 'The parameter value p_object_name is not a valid object.'||
4070:
4071: l_object_id :=get_object_id(p_object_name );
4072: if (l_object_id is NULL) THEN
4073: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4074: fnd_message.set_token('ROUTINE',
4075: c_pkg_name || '.'|| l_api_name);
4076: fnd_message.set_token('REASON',
4077: 'The parameter value p_object_name is not a valid object.'||
4078: ' p_object_name:'||p_object_name);
4072: if (l_object_id is NULL) THEN
4073: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4074: fnd_message.set_token('ROUTINE',
4075: c_pkg_name || '.'|| l_api_name);
4076: fnd_message.set_token('REASON',
4077: 'The parameter value p_object_name is not a valid object.'||
4078: ' p_object_name:'||p_object_name);
4079: if (fnd_log.LEVEL_EXCEPTION >=
4080: fnd_log.g_current_runtime_level) then
4091: l_function_id := -1;
4092: else
4093: l_function_id := get_function_id(p_function);
4094: if (l_function_id is NULL) THEN
4095: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4096: fnd_message.set_token('ROUTINE',
4097: c_pkg_name || '.'|| l_api_name);
4098: fnd_message.set_token('REASON',
4099: 'The parameter value p_function is not a valid function name.'||
4092: else
4093: l_function_id := get_function_id(p_function);
4094: if (l_function_id is NULL) THEN
4095: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4096: fnd_message.set_token('ROUTINE',
4097: c_pkg_name || '.'|| l_api_name);
4098: fnd_message.set_token('REASON',
4099: 'The parameter value p_function is not a valid function name.'||
4100: ' p_function:'||p_function);
4094: if (l_function_id is NULL) THEN
4095: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4096: fnd_message.set_token('ROUTINE',
4097: c_pkg_name || '.'|| l_api_name);
4098: fnd_message.set_token('REASON',
4099: 'The parameter value p_function is not a valid function name.'||
4100: ' p_function:'||p_function);
4101: if (fnd_log.LEVEL_EXCEPTION >=
4102: fnd_log.g_current_runtime_level) then
4583: c_log_head || l_api_name || '.open_glob_nofn_cursor',
4584: ' open');
4585: end if;
4586: else
4587: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4588: fnd_message.set_token('ROUTINE',
4589: c_pkg_name || '.'|| l_api_name);
4590: fnd_message.set_token('REASON',
4591: ' Fell through where we shouldnt have (1)');
4584: ' open');
4585: end if;
4586: else
4587: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4588: fnd_message.set_token('ROUTINE',
4589: c_pkg_name || '.'|| l_api_name);
4590: fnd_message.set_token('REASON',
4591: ' Fell through where we shouldnt have (1)');
4592: if (fnd_log.LEVEL_EXCEPTION >=
4586: else
4587: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4588: fnd_message.set_token('ROUTINE',
4589: c_pkg_name || '.'|| l_api_name);
4590: fnd_message.set_token('REASON',
4591: ' Fell through where we shouldnt have (1)');
4592: if (fnd_log.LEVEL_EXCEPTION >=
4593: fnd_log.g_current_runtime_level) then
4594: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4785: l_cursor_is_open := FALSE;
4786: exit; -- exit loop
4787: end if;
4788: else
4789: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4790: fnd_message.set_token('ROUTINE',
4791: c_pkg_name || '.'|| l_api_name);
4792: fnd_message.set_token('REASON',
4793: ' Fell through where we shouldnt have (2)');
4786: exit; -- exit loop
4787: end if;
4788: else
4789: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4790: fnd_message.set_token('ROUTINE',
4791: c_pkg_name || '.'|| l_api_name);
4792: fnd_message.set_token('REASON',
4793: ' Fell through where we shouldnt have (2)');
4794: if (fnd_log.LEVEL_EXCEPTION >=
4788: else
4789: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4790: fnd_message.set_token('ROUTINE',
4791: c_pkg_name || '.'|| l_api_name);
4792: fnd_message.set_token('REASON',
4793: ' Fell through where we shouldnt have (2)');
4794: if (fnd_log.LEVEL_EXCEPTION >=
4795: fnd_log.g_current_runtime_level) then
4796: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
4940: close isg_glob_fn_c;
4941: elsif (l_glob_nofn) then
4942: close isg_glob_nofn_c;
4943: else
4944: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4945: fnd_message.set_token('ROUTINE',
4946: c_pkg_name || '.'|| l_api_name);
4947: fnd_message.set_token('REASON',
4948: ' Fell through where we shouldnt have (3)');
4941: elsif (l_glob_nofn) then
4942: close isg_glob_nofn_c;
4943: else
4944: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4945: fnd_message.set_token('ROUTINE',
4946: c_pkg_name || '.'|| l_api_name);
4947: fnd_message.set_token('REASON',
4948: ' Fell through where we shouldnt have (3)');
4949: if (fnd_log.LEVEL_EXCEPTION >=
4943: else
4944: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
4945: fnd_message.set_token('ROUTINE',
4946: c_pkg_name || '.'|| l_api_name);
4947: fnd_message.set_token('REASON',
4948: ' Fell through where we shouldnt have (3)');
4949: if (fnd_log.LEVEL_EXCEPTION >=
4950: fnd_log.g_current_runtime_level) then
4951: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5159:
5160: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
5161: AND ( (p_statement_type = 'BASE') /* deprecated, same as VPD*/
5162: or (p_statement_type = 'VPD')))then
5163: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5164: FND_MESSAGE.SET_TOKEN('ROUTINE',
5165: c_pkg_name || '.'|| l_api_name);
5166: FND_MESSAGE.SET_TOKEN('REASON',
5167: 'The predicate was longer than the database VPD limit of '||
5160: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
5161: AND ( (p_statement_type = 'BASE') /* deprecated, same as VPD*/
5162: or (p_statement_type = 'VPD')))then
5163: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5164: FND_MESSAGE.SET_TOKEN('ROUTINE',
5165: c_pkg_name || '.'|| l_api_name);
5166: FND_MESSAGE.SET_TOKEN('REASON',
5167: 'The predicate was longer than the database VPD limit of '||
5168: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
5162: or (p_statement_type = 'VPD')))then
5163: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5164: FND_MESSAGE.SET_TOKEN('ROUTINE',
5165: c_pkg_name || '.'|| l_api_name);
5166: FND_MESSAGE.SET_TOKEN('REASON',
5167: 'The predicate was longer than the database VPD limit of '||
5168: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
5169:
5170: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
5213:
5214: EXCEPTION
5215: /* If API called with deprecated p_user_name arg, */
5216: /* propagate that up so the caller gets exception */
5217: WHEN FND_MESSAGE_RAISED_ERR THEN
5218: /* Re raise the error for the caller */
5219: fnd_message.raise_error;
5220:
5221: x_return_status := 'U'; /* This line should never be executed */
5215: /* If API called with deprecated p_user_name arg, */
5216: /* propagate that up so the caller gets exception */
5217: WHEN FND_MESSAGE_RAISED_ERR THEN
5218: /* Re raise the error for the caller */
5219: fnd_message.raise_error;
5220:
5221: x_return_status := 'U'; /* This line should never be executed */
5222: return;
5223:
5221: x_return_status := 'U'; /* This line should never be executed */
5222: return;
5223:
5224: WHEN OTHERS THEN
5225: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5226: fnd_message.set_token('ROUTINE',
5227: c_pkg_name || '.'|| l_api_name);
5228: fnd_message.set_token('ERRNO', SQLCODE);
5229: fnd_message.set_token('REASON', SQLERRM);
5222: return;
5223:
5224: WHEN OTHERS THEN
5225: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5226: fnd_message.set_token('ROUTINE',
5227: c_pkg_name || '.'|| l_api_name);
5228: fnd_message.set_token('ERRNO', SQLCODE);
5229: fnd_message.set_token('REASON', SQLERRM);
5230:
5224: WHEN OTHERS THEN
5225: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5226: fnd_message.set_token('ROUTINE',
5227: c_pkg_name || '.'|| l_api_name);
5228: fnd_message.set_token('ERRNO', SQLCODE);
5229: fnd_message.set_token('REASON', SQLERRM);
5230:
5231: if (fnd_log.LEVEL_EXCEPTION >=
5232: fnd_log.g_current_runtime_level) then
5225: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5226: fnd_message.set_token('ROUTINE',
5227: c_pkg_name || '.'|| l_api_name);
5228: fnd_message.set_token('ERRNO', SQLCODE);
5229: fnd_message.set_token('REASON', SQLERRM);
5230:
5231: if (fnd_log.LEVEL_EXCEPTION >=
5232: fnd_log.g_current_runtime_level) then
5233: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5282:
5283:
5284: -- check for call compatibility.
5285: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5286: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5287: fnd_message.set_token('ROUTINE',
5288: c_pkg_name || '.'|| l_api_name);
5289: fnd_message.set_token('REASON',
5290: 'Unsupported version '|| to_char(p_api_version)||
5283:
5284: -- check for call compatibility.
5285: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5286: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5287: fnd_message.set_token('ROUTINE',
5288: c_pkg_name || '.'|| l_api_name);
5289: fnd_message.set_token('REASON',
5290: 'Unsupported version '|| to_char(p_api_version)||
5291: ' passed to API; expecting version '||
5285: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5286: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5287: fnd_message.set_token('ROUTINE',
5288: c_pkg_name || '.'|| l_api_name);
5289: fnd_message.set_token('REASON',
5290: 'Unsupported version '|| to_char(p_api_version)||
5291: ' passed to API; expecting version '||
5292: to_char(l_api_version));
5293: if (fnd_log.LEVEL_EXCEPTION >=
5359: end if;
5360:
5361: -- check for call compatibility.
5362: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5363: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5364: fnd_message.set_token('ROUTINE',
5365: c_pkg_name || '.'|| l_api_name);
5366: fnd_message.set_token('REASON',
5367: 'Unsupported version '|| to_char(p_api_version)||
5360:
5361: -- check for call compatibility.
5362: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5363: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5364: fnd_message.set_token('ROUTINE',
5365: c_pkg_name || '.'|| l_api_name);
5366: fnd_message.set_token('REASON',
5367: 'Unsupported version '|| to_char(p_api_version)||
5368: ' passed to API; expecting version '||
5362: if TRUNC(l_api_version) <> TRUNC(p_api_version) THEN
5363: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5364: fnd_message.set_token('ROUTINE',
5365: c_pkg_name || '.'|| l_api_name);
5366: fnd_message.set_token('REASON',
5367: 'Unsupported version '|| to_char(p_api_version)||
5368: ' passed to API; expecting version '||
5369: to_char(l_api_version));
5370: if (fnd_log.LEVEL_EXCEPTION >=
5435: OR (p_pk3_alias is not NULL)
5436: OR (p_pk4_alias is not NULL)
5437: OR (p_pk5_alias is not NULL))) then
5438:
5439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5440: fnd_message.set_token('ROUTINE',
5441: c_pkg_name || '.'|| l_api_name);
5442: fnd_message.set_token('REASON',
5443: 'Unsupported mode arguments: '||
5436: OR (p_pk4_alias is not NULL)
5437: OR (p_pk5_alias is not NULL))) then
5438:
5439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5440: fnd_message.set_token('ROUTINE',
5441: c_pkg_name || '.'|| l_api_name);
5442: fnd_message.set_token('REASON',
5443: 'Unsupported mode arguments: '||
5444: 'p_statement_type = BASE|VPD,'||
5438:
5439: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5440: fnd_message.set_token('ROUTINE',
5441: c_pkg_name || '.'|| l_api_name);
5442: fnd_message.set_token('REASON',
5443: 'Unsupported mode arguments: '||
5444: 'p_statement_type = BASE|VPD,'||
5445: ' or p_pkX_alias values passed.');
5446: if (fnd_log.LEVEL_EXCEPTION >=
5456: if (fnd_data_security.DISALLOW_DEPRECATED = 'Y') then
5457: /* In R12 this routine is deprecated */
5458: /* So we raise a runtime exception to help people to know */
5459: /* they need to change their code. */
5460: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5461: fnd_message.set_token('ROUTINE',
5462: c_pkg_name || '.'|| l_api_name);
5463: fnd_message.set_token('REASON',
5464: 'Invalid API call. API '
5457: /* In R12 this routine is deprecated */
5458: /* So we raise a runtime exception to help people to know */
5459: /* they need to change their code. */
5460: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5461: fnd_message.set_token('ROUTINE',
5462: c_pkg_name || '.'|| l_api_name);
5463: fnd_message.set_token('REASON',
5464: 'Invalid API call. API '
5465: ||c_pkg_name || '.'|| l_api_name ||
5459: /* they need to change their code. */
5460: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5461: fnd_message.set_token('ROUTINE',
5462: c_pkg_name || '.'|| l_api_name);
5463: fnd_message.set_token('REASON',
5464: 'Invalid API call. API '
5465: ||c_pkg_name || '.'|| l_api_name ||
5466: ' is desupported and should not be called in R12.'||
5467: ' Any product team that calls it '||
5481: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5482: c_log_head || l_api_name || '.end_unsupported',
5483: FALSE);
5484: end if;
5485: fnd_message.raise_error;
5486: end if;
5487:
5488:
5489: fnd_data_security.get_security_predicate(
5541: /* records, which is unsupportable from a performance */
5542: /* perspective. */
5543: /* So we raise a runtime exception to help people to know */
5544: /* they need to change their code. */
5545: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5546: fnd_message.set_token('ROUTINE',
5547: c_pkg_name || '.'|| l_api_name);
5548: fnd_message.set_token('REASON',
5549: 'Invalid API call. API '
5542: /* perspective. */
5543: /* So we raise a runtime exception to help people to know */
5544: /* they need to change their code. */
5545: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5546: fnd_message.set_token('ROUTINE',
5547: c_pkg_name || '.'|| l_api_name);
5548: fnd_message.set_token('REASON',
5549: 'Invalid API call. API '
5550: ||c_pkg_name || '.'|| l_api_name ||
5544: /* they need to change their code. */
5545: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5546: fnd_message.set_token('ROUTINE',
5547: c_pkg_name || '.'|| l_api_name);
5548: fnd_message.set_token('REASON',
5549: 'Invalid API call. API '
5550: ||c_pkg_name || '.'|| l_api_name ||
5551: ' is desupported and should not be called in R12.'||
5552: ' Any product team that calls it '||
5566: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5567: c_log_head || l_api_name || '.end_unsupported',
5568: FALSE);
5569: end if;
5570: fnd_message.raise_error;
5571: end if;
5572:
5573: get_security_predicate(p_api_version=>1.0,
5574: p_function =>p_function,
5706:
5707: EXCEPTION
5708: /* If API called where it is unsupported, */
5709: /* propagate that up so the caller gets exception */
5710: WHEN FND_MESSAGE_RAISED_ERR THEN
5711: /* Re raise the error for the caller */
5712: fnd_message.raise_error;
5713: x_return_status := 'U'; /* This line should never be executed */
5714: return;
5708: /* If API called where it is unsupported, */
5709: /* propagate that up so the caller gets exception */
5710: WHEN FND_MESSAGE_RAISED_ERR THEN
5711: /* Re raise the error for the caller */
5712: fnd_message.raise_error;
5713: x_return_status := 'U'; /* This line should never be executed */
5714: return;
5715:
5716: WHEN OTHERS THEN
5713: x_return_status := 'U'; /* This line should never be executed */
5714: return;
5715:
5716: WHEN OTHERS THEN
5717: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5718: fnd_message.set_token('ROUTINE',
5719: c_pkg_name || '.'|| l_api_name);
5720: fnd_message.set_token('ERRNO', SQLCODE);
5721: fnd_message.set_token('REASON', SQLERRM);
5714: return;
5715:
5716: WHEN OTHERS THEN
5717: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5718: fnd_message.set_token('ROUTINE',
5719: c_pkg_name || '.'|| l_api_name);
5720: fnd_message.set_token('ERRNO', SQLCODE);
5721: fnd_message.set_token('REASON', SQLERRM);
5722:
5716: WHEN OTHERS THEN
5717: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5718: fnd_message.set_token('ROUTINE',
5719: c_pkg_name || '.'|| l_api_name);
5720: fnd_message.set_token('ERRNO', SQLCODE);
5721: fnd_message.set_token('REASON', SQLERRM);
5722:
5723: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
5724: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5717: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
5718: fnd_message.set_token('ROUTINE',
5719: c_pkg_name || '.'|| l_api_name);
5720: fnd_message.set_token('ERRNO', SQLCODE);
5721: fnd_message.set_token('REASON', SQLERRM);
5722:
5723: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.g_current_runtime_level) then
5724: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
5725: c_log_head || l_api_name || '.other_err',
5763: ', p_instance_pk4_value=>'|| p_instance_pk4_value ||
5764: ', p_instance_pk5_value=>'|| p_instance_pk5_value ||')');
5765: end if;
5766:
5767: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5768: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5769: fnd_message.set_token('REASON',
5770: 'Desupported API called. This routine is no longer '||
5771: 'supported because it is incompatible with '||
5764: ', p_instance_pk5_value=>'|| p_instance_pk5_value ||')');
5765: end if;
5766:
5767: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5768: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5769: fnd_message.set_token('REASON',
5770: 'Desupported API called. This routine is no longer '||
5771: 'supported because it is incompatible with '||
5772: 'parameterized instance sets which were introduced '||
5765: end if;
5766:
5767: fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
5768: fnd_message.set_token('ROUTINE', c_pkg_name || '.'|| l_api_name);
5769: fnd_message.set_token('REASON',
5770: 'Desupported API called. This routine is no longer '||
5771: 'supported because it is incompatible with '||
5772: 'parameterized instance sets which were introduced '||
5773: 'in 4/2002. ');
5776: c_log_head || l_api_name || '.end_desupported',
5777: FALSE);
5778: end if;
5779:
5780: fnd_message.raise_error;
5781: return 'u';/* unexpected error */
5782:
5783: end check_instance_in_set;
5784: