select text
 from dba_source
 where owner = '<Владелец>'
   and name = '<Имя>'
   and type like 'PACKAGE%'
 order by type, line   

select text 
  from dba_source
 where owner like 'SOME_OWNER'
   and TYPE  like 'PACKAGE_BODY'

 and line >=
 (select line from dba_source where upper(text) like 'PROCEDURE PROC_NAME'
 and line <=
 (select line from dba_source where upper(text) like 'END PROC_NAME')     

CREATE OR REPLACE VIEW V$ 99012  AS select
     t1.object_id,
	 t1.owner,
	 t1.package_name||decode(T1.package_name,null,null,'.')||T1.object_name as module_name,
     trim(T1.package_name) as package_name,
	 T1.object_name,
	 T1.argument_name,
	 (select 
	        DECODE(min(position), 0 ,'FUNCTION','PROCEDURE') 
	  from 
	        all_arguments 
	  where 
	        owner in (select username from v$ 99010 ) AND 
			object_id=T1.object_id AND
	        object_name=T1.object_name and
		    nvl(overload, 0 )=nvl(T1.overload, 0 )
	  ) as MODULE_TYPE,
	  T1.data_type,
	  T1.in_out,
	  T1.position,
	  decode(T1.overload,null, 1 ,T1.overload) as overload,
	  t1.sequence,
	  t1.data_level,
	  t1.default_value,
	  t1.default_length,
	  t1.data_length,
	  t1.data_precision,
	  t1.data_scale,
	  t1.type_owner,
	  t1.type_name,
	  t1.type_subname,
	  t1.type_link,
	  t1.pls_type,
	  t1.char_length,
	  t1.char_used
from
     all_arguments T1
where owner in ('СИС НАПРИМЕР')

-- (тип объекта, имя объекта, хозяин)
SELECT dbms_metadata.get_ddl('PACKAGE', 'PKG1', 'HR2') AS Ddl 
FROM dual