How can i get procedule name in a package if knowing the line num?

Question

There is package and serveral procedules in it. How can i get a procedule name if i know the line num? Thx a lot

Answer 1

# Works in most of cases where the procedure is the first word [optionally starting with blanks or spaces ]
# However there may be cases like /* My PROCEDURE */ PROCEDURE <proc_name> IS where below wont work
WITH GET_PROCEDURE_NAME AS
  SELECT owner,NAME, line, text
  FROM   dba_source
  WHERE  NAME = '&pkg_name'
  AND    TYPE = 'PACKAGE BODY'
  AND    upper(ltrim(text)) LIKE 'PROCEDURE %'
  AND    line <= &line_no
  ORDER BY line DESC
SELECT *
FROM GET_PROCEDURE_NAME
WHERE ROWNUM = 1