1092: from fnd_objects
1093: where obj_name=p_object_name;
1094: BEGIN
1095: x_grant_guid := NULL;
1096: x_success := FND_API.G_FALSE ;
1097: x_errorcode:=-1;
1098:
1099: IF NOT FND_API.Compatible_API_Call (l_api_version,
1100: p_api_version ,
1095: x_grant_guid := NULL;
1096: x_success := FND_API.G_FALSE ;
1097: x_errorcode:=-1;
1098:
1099: IF NOT FND_API.Compatible_API_Call (l_api_version,
1100: p_api_version ,
1101: l_api_name ,
1102: G_PKG_NAME)
1103: THEN
1114: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1115: G_log_head || l_api_name || '.end_bad_api_ver',
1116: FALSE);
1117: end if;
1118: x_success := FND_API.G_FALSE;
1119: x_errorcode:=-1;
1120: return;
1121: END IF;
1122:
1121: END IF;
1122:
1123:
1124: -- Initialize API return status to success
1125: x_success := FND_API.G_TRUE;
1126:
1127:
1128: -- Step 2
1129: -- get role id for from FND_MENUS
1136: /* the past this API put messages on fnd_msg_pub */
1137: /* stack. That's obsolete. FND_MESSAGE is now */
1138: /* used. */
1139: fnd_message.set_name('FND','FND_INVALID_MENU_NAME');
1140: x_success := FND_API.G_FALSE ;
1141: x_errorcode:=1;
1142: return;
1143: END IF;
1144: CLOSE get_menu_id;
1157: /* the past this API put messages on fnd_msg_pub */
1158: /* stack. That's obsolete. FND_MESSAGE is now */
1159: /* used. */
1160: fnd_message.set_name('FND','FND_INVALID_OBJECT_NAME');
1161: x_success := FND_API.G_FALSE ;
1162: x_errorcode:=1;
1163: return;
1164: end if ;
1165: close get_object_id;
1215: X_DESCRIPTION => p_description
1216: ) ;
1217:
1218: x_grant_guid:=l_grant_guid;
1219: x_success := FND_API.G_TRUE;
1220: x_errorcode := NULL;
1221:
1222: END grant_function;
1223:
1240: l_api_version CONSTANT NUMBER := 1.0;
1241:
1242:
1243: BEGIN
1244: x_success := FND_API.G_FALSE ;
1245: x_errorcode:=-1;
1246:
1247: -- Standard call to check for call compatibility.
1248: IF NOT FND_API.Compatible_API_Call (l_api_version,
1244: x_success := FND_API.G_FALSE ;
1245: x_errorcode:=-1;
1246:
1247: -- Standard call to check for call compatibility.
1248: IF NOT FND_API.Compatible_API_Call (l_api_version,
1249: p_api_version ,
1250: l_api_name ,
1251: G_PKG_NAME)
1252: THEN
1262: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1263: G_log_head || l_api_name || '.end_bad_api_ver',
1264: FALSE);
1265: end if;
1266: x_success := FND_API.G_FALSE ;
1267: x_errorcode:=-1;
1268: return;
1269: END IF;
1270:
1268: return;
1269: END IF;
1270:
1271: DELETE_ROW ( X_GRANT_GUID=> p_grant_guid);
1272: x_success := FND_API.G_TRUE;
1273: x_errorcode:=NULL;
1274:
1275: END revoke_grant;
1276: ----------------------------------------------------------------------------
1321: l_grantee_key VARCHAR2(240);
1322: l_object_id NUMBER;
1323:
1324: BEGIN
1325: x_success := FND_API.G_FALSE ;
1326:
1327: -- Standard call to check for call compatibility.
1328: IF NOT FND_API.Compatible_API_Call (l_api_version,
1329: p_api_version ,
1324: BEGIN
1325: x_success := FND_API.G_FALSE ;
1326:
1327: -- Standard call to check for call compatibility.
1328: IF NOT FND_API.Compatible_API_Call (l_api_version,
1329: p_api_version ,
1330: l_api_name ,
1331: G_PKG_NAME)
1332: THEN
1342: fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
1343: G_log_head || l_api_name || '.end_bad_api_ver',
1344: FALSE);
1345: end if;
1346: x_success := FND_API.G_FALSE ;
1347: return;
1348: END IF;
1349:
1350: if((p_name = '*NOTPASSED*') or (p_description = '*NOTPASSED*')) then
1384: if ( l_object_id = -1 ) then
1385: fnd_function_security_cache.update_grant(p_grant_guid, l_grantee_type, l_grantee_key);
1386: end if;
1387:
1388: x_success:=fnd_api.g_true;
1389:
1390: END update_grant;
1391:
1392: