After insert trigger with :NEW.ROWID

Question

Hi All,
I am using a After insert trigger to generate history record as following:
CREATE TABLE TB_TEST (classID number(3), classNm varchar2(12));
CREATE TABLE TB_HIST_TEST (hist_dttm timestamp(6), classID number(3), classNm varchar2(12));
CREATE or REPLACE TRIGGER air_test AFTER INSERT ON tb_test FOR EACH ROW
BEGIN PK_SRVC.CRT_NewRec('TB_TEST', 'TB_HIST_TEST', :new.ROWID); END:
In PK_SRVC package, I use the following statment to create new record in TB_HIST_TABLE:
     Insert into tb_hist_test (hist_dttm, classID, classNm)
     values (select systimestamp, classID, classNm from tb_test where rowid = ROWID )
The trigger DOES fire when a new row is inserted into TB_TEST. However there is no record inserted into TB_HIST_TEST. Any suggestion?
Thanks,

Answer 1

The PK_SRVC.CRT_NewRec is a generic service package that can be shared by many tables. It uses dynamic SQL to get all the collumns for different tables based on USER_TAB_COLUMNS.  The following is the code of this package:
PROCEDURE CRT_NewRec ( p_TableName IN VARCHAR2, p_AudTableName IN VARCHAR2, p_RowID)
IS
       TYPE TabCol_RecTyp IS RECORD (COLUMN_NAME VARCHAR2(30), COLUMN_ID NUMBER);
       TYPE TabCol_CurTyp IS REF CURSOR;
        c_TabCol TabCol_CurTyp;
        rc_TabCol TabCol_RecTyp;
        v_Sql_TabCol VARCHAR2(1000);
        v_ColNames VARCHAR2(1000);
        v_Sql VARCHAR2(1000);
        PRAGMA AUTONOMOUSE_TRANSCATION;
BEGIN
        v_SQL_TabCol := ' SELECT column_name, column_id FROM USER_TAB_COLUMNS'
                                  ||  ' WHERE table_name = ' || CHR(39) || p_TableName || CHR(39)
                                  || '  ORDER BY column_id';
        v_ColNames := NULL;
        OPEN c_TabCol FOR v_Sql_TabCol;
        Loop
               FETCH c_TabCol INTO rc_TabCol; Exit WHEN c_TabCol%NOTFOUND:
               v_ColNames := v_ColNames || ',' || rc_TabCol.COLUMN_NAME;
        End Loop;
        CLOSE c_TabCol;
        v_Sql := 'INSERT INTO ' || p_AudTableName || '(HIST_DTTM, ' || v_ColNames || ' )'  
                  || ' SELECT systimestamp, ' || v_ColNames || ' FROM ' || p_TableName
                  || ' WHEN ROWID = chartorowid(' || CHR(39) || p_RowId || CHR(39) || ')';
         EXECUTE IMMEDIATE v_Sql;
         COMMIT;
END;    
(charmingholidays-yyz)