嗨，这个问题我太熟悉了！ALL_DEPENDENCIES只能帮你定位到引用表的包，但没法深入到包内的具体存储过程/函数。下面给你几个实用的方案：

方法一：直接查询包体源代码手动定位 #

首先，你可以通过ALL_SOURCE视图获取目标包体的全部代码，然后搜索EXCEPTIONAL_INFO的出现位置，就能找到它所属的过程/函数了：

SELECT line, text
FROM ALL_SOURCE
WHERE owner = '你的模式名'  -- 替换成实际的模式名
  AND name = '你的包名'    -- 替换成你查到的包名
  AND type = 'PACKAGE BODY'
ORDER BY line;

拿到结果后，直接搜索EXCEPTIONAL_INFO字符串，然后往上找最近的PROCEDURE或FUNCTION关键字，后面跟着的就是你要找的对象名称。

方法二：用PL/SQL脚本自动识别引用对象 #

如果包体很大，手动找太麻烦，可以用这个PL/SQL脚本自动遍历包体，找出所有引用目标表的过程/函数：

DECLARE
  v_package_body CLOB;
  v_start_pos    NUMBER;
  v_end_pos      NUMBER;
  v_proc_name    VARCHAR2(200);
  v_owner        VARCHAR2(100) := '你的模式名';  -- 替换
  v_package_name VARCHAR2(100) := '你的包名';    -- 替换
BEGIN
  -- 获取包体的完整DDL代码
  SELECT DBMS_METADATA.GET_DDL('PACKAGE_BODY', v_package_name, v_owner)
  INTO v_package_body
  FROM DUAL;

  -- 循环查找所有表引用的位置
  v_start_pos := INSTR(v_package_body, 'EXCEPTIONAL_INFO');
  WHILE v_start_pos > 0 LOOP
    -- 往前查找最近的PROCEDURE或FUNCTION定义
    v_end_pos := INSTR(SUBSTR(v_package_body, 1, v_start_pos), 'PROCEDURE ', -1);
    IF v_end_pos = 0 THEN
      v_end_pos := INSTR(SUBSTR(v_package_body, 1, v_start_pos), 'FUNCTION ', -1);
    END IF;

    IF v_end_pos > 0 THEN
      -- 提取过程/函数名称
      v_proc_name := TRIM(
        SUBSTR(
          SUBSTR(v_package_body, v_end_pos),
          INSTR(SUBSTR(v_package_body, v_end_pos), ' ') + 1,
          INSTR(SUBSTR(v_package_body, v_end_pos), '(') - INSTR(SUBSTR(v_package_body, v_end_pos), ' ') - 1
        )
      );
      DBMS_OUTPUT.PUT_LINE('引用表的对象: ' || v_proc_name);
    END IF;

    -- 查找下一个引用位置
    v_start_pos := INSTR(v_package_body, 'EXCEPTIONAL_INFO', v_start_pos + 1);
  END LOOP;
END;
/

运行前记得替换v_owner和v_package_name，执行后在DBMS输出里就能看到所有引用目标表的过程/函数名称了。

方法三：通过ALL_PROCEDURES快速筛选 #

如果你想要更简洁的SQL语句，可以结合ALL_PROCEDURES和ALL_SOURCE直接筛选出包内引用表的对象：

SELECT DISTINCT
  p.object_name AS package_name,
  p.procedure_name AS referenced_object
FROM ALL_PROCEDURES p
JOIN ALL_SOURCE s 
  ON p.owner = s.owner 
  AND p.object_name = s.name
  AND s.type = 'PACKAGE BODY'
WHERE p.owner = '你的模式名'
  AND p.object_name = '你的包名'
  AND UPPER(s.text) LIKE '%EXCEPTIONAL_INFO%';

注意：这个方法用了LIKE模糊匹配，如果表名出现在注释或字符串常量里，可能会误判。如果你的Oracle实例区分大小写，记得调整UPPER的使用。

内容的提问来源于stack exchange，提问作者radha