Establishing a Mapping Between original Bind Names and Captured Binds

Hello,

I need to retrieve the parameter names used in database objects so that I can save this data for future object changes and utilize them for testing.

The package Body Example:

create or replace package body          test_pkg

is

  procedure get_bills
  (
      o_cv       out ref_cur,
      p_comp_id       in  number,
      p_plant_id      in  number,
      p_surcharges   in number,
      p_sprach     in number
  )
  is
   
   
  begin


    open o_cv for
      select /*+ <pn>test_db.test_pkg.get_bills</pn> */
       a.company_id, a.name company_name,
       b.plant_id, b.name,
       c.invoice_number,c.billing_id,c.billing_month,c.amount,c.surcharges
       ,decode(p_sprach, 1, 2)
from company a,plant b, billing c
where a.company_id=b.company_id
and  a.company_id=c.company_id
and b.plant_id=c.plant_id
and a.company_id = p_comp_id
and b.plant_id = p_plant_id
and c.surcharges = nvl(p_surcharges, c.surcharges)
and p_plant_id is not null
;
  end;
end;