Creating triggers in a package

Question

Does any body has an example on how to create triggers in package/package body.
Here is an example of one of many triggers that I need to create in a package.
CREATE OR REPLACE TRIGGER distributor_q_i
BEFORE INSERT ON f_sw.WQM001Q000001
FOR EACH ROW
DECLARE
lv_sql_error_code PLS_INTEGER;
lv_sql_error_message VARCHAR2(512);--Maximum SQL error message size:512
BEGIN
INSERT INTO [email protected]
(F_PRITIME, F_STATUS, F_DELAY, F_TIMEOUT, F_USERID,
F_GROUPID, UF000, UF001, UF002, UF003, UF004, UF005,
UF006,SYS_CREATED_DATE, SYS_STATUS_DATE,
SYS_STATUS_PREV,SYS_USER_NAME, SYS_USER_IP )
VALUES (:new.f_pritime,:new.f_status,:new.f_delay,:new.f_timeout,
:new.f_userid,:new.f_groupid,:new.uf000,:new.uf001,
:new.uf002,:new.uf003,:new.uf004,:new.uf005,
:new.uf006,SYSDATE, SYSDATE, null, USER, null);
EXCEPTION
WHEN OTHERS THEN
lv_sql_error_code := SQLCODE;
lv_sql_error_message := SQLERRM(v_sql_error_code);
DBMS_OUTPUT.PUT_LINE('OTHER ERROR');
DBMS_OUTPUT.PUT_LINE(v_sql_error_message);
END distributor_q_i;
show errors;

Answer 1

Hello
That idea is pretty much fine. If you're on 9i the values(rec1) will work, if you're on 8i you'll have to specify each column i.e.
SQL> CREATE OR REPLACE PACKAGE dt_test_package
  2  AS
  3  PROCEDURE proc1 (rec1 IN dt_test_tab2%ROWTYPE);
  4  END;
  5  /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY dt_test_package
  2  AS
  3  PROCEDURE proc1 (rec1 IN dt_test_tab2%ROWTYPE)
  4  IS
  5  BEGIN
  6  INSERT INTO dt_test_tab2 VALUES(rec1.col1,rec1.col2);
  7  END;
  8  END;
  9  /
Package body created.
SQL> CREATE OR REPLACE TRIGGER dt_test_trigger BEFORE INSERT ON dt_test_tab1 FOR EACH ROW
  2
  3  DECLARE
  4  rec1 dt_test_tab2%ROWTYPE;
  5  BEGIN
  6  rec1.col1 := :NEW.col1;
  7  rec1.col2 := :NEW.col2;
  8  dt_test_package.proc1(rec1);
  9  END;
10  /
Trigger created.
SQL> insert into dt_test_tab1 values('col1','col2','col3');
1 row created.
SQL> /
1 row created.
SQL> select * from dt_test_tab1;
COL1       COL2       COL3
col1       col2       col3
col1       col2       col3
SQL> select * from dt_test_tab2;
COL1       COL2
col1       col2
col1       col2David