SQL> desc sampletab;
 Name                                                  Null?    Type
 ----------------------------------------------------- -------- ------------------------------------
 X                                                              NUMBER
 Y                                                              VARCHAR2(1)

SQL> select * from sampletab;

         X Y
---------- -
      1000 a
      1001 b
      1002 c
      1004 d

SQL> create or replace package projPak  
  2  as  
  3  x number;
  4  y varchar2(1);
  5  procedure myprocedure (code in varchar2);
  6  end;
  7  /

Package created.

SQL>  create or replace package body projpak
  2   is
  3      procedure myprocedure (code in varchar2) as
  4      begin
  5      dbms_output.put_line('this procedure does NO DML against the table');
  6      end;
  7   end;
  8  /

Package body created.

SQL>  create or replace trigger RcheckPCount
  2   before insert on sampletab
  3   for each row
  4   begin
  5   projPak.x := :new.x;
  6   projPak.y := :new.y;
  7   end;
  8  /

Trigger created.

SQL> 
SQL>  create or replace trigger mytrig
  2     after insert on sampletab
  3     for each row
  4     declare
  5     Code number;
  6     othercol varchar2(1);
  7     begin
  8     code:=projpak.x; 
  9     othercol:=projpak.y;
 10     projpak.myprocedure(code);
 11    end;
 12  
 13  /

Trigger created.

SQL> insert into sampletab values(2333,'g');
this procedure does NO DML against the table

1 row created.

SQL> select * from sampletab;

         X Y
---------- -
      1000 a
      1001 b
      1002 c
      1004 d
      2333 g

SQL>