Author: Jiltin

Expecting a table like this: Hence, you may need to create the table before compiling this procedure

create table XXCUS_ERROR_LOG (
        log_time        date,
        Program_step    number,
        Calling_Routine varchar2(255),
        Program_Message varchar2(255),
        ATTRIBUTE1      varchar2(255),
        ATTRIBUTE2      varchar2(255),
        ATTRIBUTE3      varchar2(255)
)

*/

PROCEDURE XXCUS_ERROR_PRC(
        PROGRAM_STEP     VARCHAR2,
       ,CALLING_ROUTINE  VARCHAR2
       ,PROGRAM_MESSAGE  VARCHAR2
       ,ATTRIBUTE1       VARCHAR2     – ERROR INDICATOR
       ,ATTRIBUTE2       VARCHAR2     – ERROR MESSAGE
       ,ATTRIBUTE3       VARCHAR2)    – LOCATION/SUCCESS/FAIL
IS
   PRAGMA AUTONOMOUS_TRANSACTION;
   l_log_enable_flag     VARCHAR2(1) := ‘N’;
BEGIN
   BEGIN
      SELECT ENABLED_FLAG
        INTO l_log_enable_flag
        FROM FND_LOOKUP_VALUES
       WHERE lookup_type = ‘ERROR MESSAGE’;
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         l_log_enable_flag := ‘N’;
   END;

   IF l_log_enable_flag = ‘Y’ THEN
      INSERT INTO XXCUS_ERROR_LOG
           VALUES(SYSDATE
                 ,Program_Step
                 ,Calling_Routine
                 ,Program_Message
                 ,ATTRIBUTE1
                 ,ATTRIBUTE2
                 ,ATTRIBUTE3);
   END IF;
   COMMIT;
EXCEPTION
   WHEN OTHERS THEN
      NULL;
END XXCUS_ERROR_PRC;