How to recover deleted Procedure Package Table

Backup your current Procedure:-SQL> select text from dba_source where name='XXQTL_DATA';
TEXT
--------------------------------------------------------------------------------
PACKAGE BODY XXQTL_DATA
PACKAGE              xxqtl_data
PACKAGE BODY              xxqtl_data
IS
IS   --Set of global variable for holding event sources to get DN and  EN values
IS
/******************************************************************************
   g_delen               VARCHAR2 (50)  := 'EN';
/******************************************************************************
Package       : APPS_APPLMGR.xxqtl_data
   --Global variable to hold DEL  EN event source.
Package       : APPS_APPLMGR.xxqtl_comptel
.............
         fnd_file.put_line (fnd_file.LOG, 'Exception Occured ' || SQLERRM);
         DBMS_OUTPUT.put_line ('Exception Occured ' || SQLERRM);
   END process;
END;
27551 rows selected.
Drop your Current Procedure :-
SQL> drop procedure XXQTL_DATA;
Procedure dropped.
SQL> connect / as sysdba
Connected.
Recover your old Procedure :-
SQL> SELECT text FROM dba_source AS OF TIMESTAMP SYSTIMESTAMP - INTERVAL '180' MINUTE WHERE name = 'XXQTL_DATA';
TEXT
--------------------------------------------------------------------------------
PACKAGE BODY XXQTL_DATA
PACKAGE              xxqtl_data
PACKAGE BODY              xxqtl_data
IS
IS   --Set of global variable for holding event sources to get DN and  EN values
IS
/******************************************************************************
   g_delen               VARCHAR2 (50)  := 'EN';
/******************************************************************************
Package       : APPS_APPLMGR.xxqtl_data
   --Global variable to hold DEL  EN event source.
Package       : APPS_APPLMGR.xxqtl_comptel
.............
         fnd_file.put_line (fnd_file.LOG, 'Exception Occured ' || SQLERRM);
         DBMS_OUTPUT.put_line ('Exception Occured ' || SQLERRM);
   END process;
END;
27551 rows selected.