How do I get the procedure name

Question

Hi,
With help of our application we are updating one table (P_Balance) in this account status and date through some procedures.
in some situation only account status column get proper value, but date column having NULL value.
Now we decided to track this, through which procedure this date column get updated null value.
For this I decided to write one trigger for the table "P_BALANCE" through which procedure this update is happening.
How do I get the procedure name.

Answer 1

You could use DBMS_UTILITY.FORMAT_CALL_STACK and do it. Something like this.
SQL> create table track_call_stack
  2  (
  3     program_name varchar2(30),
  4     call_stack varchar2(4000)
  5  );
Table created.
SQL> create table t
  2  (
  3    no integer
  4  );
Table created.
SQL> create or replace trigger t_trig before insert on t for each row
  2  begin
  3    if :new.no is null then
  4       insert into track_call_stack
  5       (
  6          program_name,
  7          call_stack
  8       )
  9       values
10       (
11          'T_TRIG',
12          dbms_utility.format_call_stack
13       );
14    end if;
15  end;
16  /
Trigger created.
SQL> insert into t values (null);
1 row created.
SQL> select * from track_call_stack;
PROGRAM_NAME                   CALL_STACK
T_TRIG                         ----- PL/SQL Call Stack -----
                                 object      line  object
                                 handle    number  name
                               3a7ac0ea8         1  anonymous block
                               3a2bb9d78         3  ARBORU.T_TRIG
SQL> create or replace procedure p1
  2  as
  3  begin
  4      insert into t values (null);
  5  end;
  6  /
Procedure created.
SQL> create or replace procedure p2
  2  as
  3  begin
  4      insert into t values (1);
  5      p1;
  6  end;
  7  /
Procedure created.
SQL> exec p2;
PL/SQL procedure successfully completed.
SQL> select * from track_call_stack;
PROGRAM_NAME                   CALL_STACK
T_TRIG                         ----- PL/SQL Call Stack -----
                                 object      line  object
                                 handle    number  name
                               3a7ac0ea8         1  anonymous block
                               3a2bb9d78         3  ARBORU.T_TRIG
T_TRIG                         ----- PL/SQL Call Stack -----
                                 object      line  object
                                 handle    number  name
                               3a7ac0ea8         1  anonymous block
                               3a2bb9d78         3  ARBORU.T_TRIG
                               3a2b32a10         4  procedure ARBORU.P1
                               3a61db6a8         5  procedure ARBORU.P2
                               3a653c3a0         1  anonymous block