Mutating DB Trigger Problem

Question

Hello all, i have a ' Mutating DB Trigger Problem' for the following Trigger :
=============================================
CREATE OR REPLACE TRIGGER ASSIUT.EMP_ATTENDANCEE_MONA
AFTER INSERT
ON ASSIUT.ACCESSLOG
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE
V_COUNT CHAR(2);
--V_COUNT_OUT CHAR(2);
BEGIN
IF :NEW.INOUT = 'IN' THEN
    INSERT INTO EMP_ATTENDANCEE (EMP_ID, DATE_IN ,DATE_OUT ,TIME_IN ,TIME_OUT)
     VALUES (TO_NUMBER(TO_CHAR(:NEW.employeeid,99999)),
             TO_DATE(:NEW.LOGDATE,'dd/mm/rrrr'),       -- DATE_IN
             NULL,
             TO_DATE(:NEW.LOGTIME,'HH24:MI:SS'),      -- TIME_IN
             NULL );      -- TIME_OUT
                 SELECT COUNT(employeeid )
                 INTO V_COUNT
                FROM ACCESSLOG
                WHERE employeeid =:NEW.employeeid
                AND LOGDATE =:NEW.LOGDATE
                AND  LOGTIME  =:NEW.LOGTIME
                AND INOUT ='IN';
                IF V_COUNT > 0 THEN
     INSERT INTO ATT_INCOMPLETE  (  EMP_ID , ATT_DATE , ATT_TIME ,  ATT_FLAG)
     VALUES (TO_NUMBER(TO_CHAR(:NEW.employeeid,99999)),
             TO_DATE(:NEW.LOGDATE,'dd/mm/rrrr'),       -- DATE_IN
      TO_DATE(:NEW.LOGTIME,'HH24:MI:SS'),        -- TIME_IN
      1); -- check in
      END IF;
ELSIF :NEW.INOUT = 'OUT' THEN
    UPDATE  EMP_ATTENDANCEE
    SET           DATE_OUT   =  TO_DATE(:NEW.LOGDATE,'dd/mm/rrrr'), -- DATE_OUT,
                  TIME_OUT   =   TO_DATE(:NEW.LOGTIME,'HH24:MI:SS') -- TIME_OUT
    WHERE   EMP_ID           =   TO_NUMBER(TO_CHAR(:NEW.employeeid,99999))
    AND DATE_IN =  (SELECT MAX (DATE_IN )
                    FROM EMP_ATTENDANCEE
                    WHERE EMP_ID = EMP_ID
                    AND   DATE_OUT IS NULL
                    AND   TIME_OUT IS NULL ) ;
              SELECT COUNT(employeeid )
                 INTO V_COUNT
                FROM ACCESSLOG
                WHERE employeeid =:NEW.employeeid
                AND LOGDATE =:NEW.LOGDATE
                AND  LOGTIME  =:NEW.LOGTIME
                AND INOUT ='OUT';
                IF V_COUNT > 0 THEN
INSERT INTO ATT_INCOMPLETE  (  EMP_ID , ATT_DATE , ATT_TIME ,  ATT_FLAG)
     VALUES (TO_NUMBER(TO_CHAR(:NEW.employeeid,99999)),
             TO_DATE(:NEW.LOGDATE,'dd/mm/rrrr'),       -- DATE_IN
      TO_DATE(:NEW.LOGTIME,'HH24:MI:SS'),        -- TIME_IN
     0); -- check in
END IF;
END IF;
  EXCEPTION
   WHEN OTHERS  THEN RAISE;
END EMP_ATTENDANCEE_MONA ;The above Trigger generates the following error:
ORA-04091: table ASSIUT.ACCESSLOG is mutating, trigger/function may not see it
ORA-06512: at "ASSIUT.EMP_ATTENDANCEE_MONA'", line 65
ORA-04088: error during execution of trigger 'ASSIUT.EMP_ATTENDANCEE_MONA'i want an easy and a straight forward solution to this problem which occured on selecting or manipulating from the same table i triggered it.
Best regards,
Abdetu..

Answer 1

Create a package
CREATE OR REPLACE PACKAGE PK_TRIGGER IS
  PROCEDURE PR_BS;
  PROCEDURE PR_ARIU(i_vcType IN TABLE.COLUM%TYPE, i_nEmpId TABLE.COLUM%TYPE, i_vcLogDate IN TABLE.COLUMN%TYPE, i_vcLogTime IN TABLE.COLUMN%TYPE);
  PROCEDURE PR_AS;
END;
CREATE OR REPLACE PACKAGE BODY IS
  TYPE tData IS RECORD (
    vcType     TABLE.COLUMN%TYPE,
    nEmpid     TABLE.COLUMN%TYPE,
    vcLogDate TABLE.COLUMN%TYPE,
    vcLogTime TABLE.COLUMN%TYPE
  TYPE tDataList IS TABLE OF tData INDEX BY BINARY_INTEGER;
  lData tData;
  PROCEDURE PR_BS IS
  BEGIN
    lData.DELETE;
  END;
  PROCEDURE PR_ARIU(i_vcType IN TABLE.COLUM%TYPE, i_nEmpId TABLE.COLUM%TYPE, i_vcLogDate IN TABLE.COLUMN%TYPE, i_vcLogTime IN TABLE.COLUMN%TYPE) IS
    iPos PLS_INTEGER:=lData.COUNT+1;
  BEGIN
    lData(iPos).vcType:=i_vcType;
    lData(iPos).nEmpId:=i_nEmpId;
    lData(iPos).vcLogDate:=i_vcLogDate;
    lData(iPos).vcLogTime:=i_vcLogTime;
  END;
  PROCEDURE PR_AS IS
    CURSOR crCheck(i_nIdentnum IN NUMBER) IS
      SELECT 1
        FROM <YOURTABLE> A,
             <YOURTABLE> B
       WHERE A.IDEN_NUM=B.IDENT_NUM
         AND (   A.BEGIN_DATE BETWEEN B.BEGIN_DATE AND B.END_DATE
              OR A.END_DATE BETWEEN B.BEGIN_DATE AND B.END_DATE
    iPos PLS_INTEGER;
    nDummy NUMBER;
  BEGIN
    iPos:=lData.FIRST;
    LOOP
      EXIT WHEN iPos IS NULL;
      -- Do whatever you want with the data in the record
      -- Process next record
      iPos:=lIds.NEXT(iPos);
    END LOOP;
    lIds.DELETE;
  END;
END;replace TABLE.COLUM%TYPE with appropiate table and column
Now create a
- Before Statement trigger on your table calling PK_TRIGGER.PR_BS;
- After Insert on Update for each row Trigger calling PK_TRIGGER.PR_ARIU(...values...);
- After Statement trigger on your table calling PK_TRIGGER.PR_AS;
Hope the code compiles for i have no database at hand.
Andreas