I don't think there is, but you could query the user_source view ...
Code:
SQL> select * from user_source where upper(text) like '%EXCEPTION_INIT%'
  2  /

NAME                           TYPE               LINE
------------------------------ ------------ ----------
TEXT
--------------------------------------------------------------------------------
ETL                            PACKAGE BODY        378
                pragma exception_init(l_index_mismatch,-14098);