Trigger insert on 2nd table with raise_application_error ?

Question

Hi,
Is it possible to use a raise_application_error IF you want an insert to fail on the table the insert trigger is based upon YET still allow an INSERT ON A SECOND TABLE ?
Here is the trigger.
CREATE OR REPLACE TRIGGER "SYSADM"."TBI_EARLY_RECEIPT_WARNING"
BEFORE INSERT
ON "RECEIVER_LINE" REFERENCING OLD AS OLDDATA NEW AS NEWDATA
FOR EACH ROW
DECLARE mDate SYSADM.PURC_ORDER_LINE.PROMISE_DATE%type;
BEGIN
SELECT
SYSADM.PURC_ORDER_LINE.PROMISE_DATE
INTO mDate
FROM SYSADM.PURC_ORDER_LINE
WHERE :NEWDATA.PURC_ORDER_LINE_NO = SYSADM.PURC_ORDER_LINE.LINE_NO
AND :NEWDATA.PURC_ORDER_ID = SYSADM.PURC_ORDER_LINE.PURC_ORDER_ID;
IF mDate > (SYSDATE + 30) THEN
          INSERT INTO BARCODERECEIVER_LINE
          (RECEIVER_ID, LINE_NO, PRINTED, QTY, PO, VENDOR, DESCRIPTION, PART, RECEIVED_DATE, PRINTER, EARLY, TRANSTIME)
          SELECT
     :NEWDATA.RECEIVER_ID,
     :NEWDATA.LINE_NO,
     'N',
     :NEWDATA.RECEIVED_QTY,
     :NEWDATA.PURC_ORDER_ID,
     SYSADM.VENDOR.NAME,
     SYSADM.PART.DESCRIPTION,
     NVL(SYSADM.PURC_ORDER_LINE.PART_ID, SYSADM.PURC_ORDER_LINE.VENDOR_PART_ID),
     SYSADM.RECEIVER.RECEIVED_DATE,
     DECODE(SYSADM.RECEIVER.USER_ID, 'CARL', 1, 'ORLANDO', 2, 'TONYA', 3, 'MATT', 'TOM', 3, 'SYSADM', 3),
'Y',
to_char(sysdate, 'Dy DD-Mon-YYYY HH24:MI:SS')
     FROM SYSADM.RECEIVER, SYSADM.PURC_ORDER_LINE, SYSADM.PART, SYSADM.PURCHASE_ORDER, SYSADM.VENDOR
     WHERE :NEWDATA.RECEIVER_ID = SYSADM.RECEIVER.ID
     AND :NEWDATA.PURC_ORDER_LINE_NO = SYSADM.PURC_ORDER_LINE.LINE_NO
     AND :NEWDATA.PURC_ORDER_ID = SYSADM.PURC_ORDER_LINE.PURC_ORDER_ID
     AND SYSADM.PURC_ORDER_LINE.PART_ID = SYSADM.PART.ID (+)
     AND SYSADM.RECEIVER.PURC_ORDER_ID = SYSADM.PURCHASE_ORDER.ID (+)
     AND SYSADM.PURCHASE_ORDER.VENDOR_ID = SYSADM.VENDOR.ID (+)
     AND SYSADM.RECEIVER.USER_ID IN ('ORLANDO', 'TONYA', 'MATT', 'TOM', 'SYSADM');
raise_application_error(-20000, 'Check with Purchasing please Exceeds Early Need Date');
END IF;
END;
If you comment out the raise_error message insert on the second table works perfectly. Now we need to prevent the insert on the main table. Again the insert into BARCODERECEIVER_LINE should succeed but the insert on the RECEIVER_LINE table should fail. Is there any work-around for this ? Many thanks for any reply.
Steve.

Answer 1

Hello
Here's an example of what you are trying to achieve(i think). I've not put any validation code in or anything but hopefully it demonstrates the principal...
CREATE TABLE test_audit(PURC_ORDER_ID varchar2(20),
                     PURC_ORDER_LINE_NO NUMBER,
                     RECEIVER_ID varchar2(20),
                     LINE_NO varchar2(20),
                     PRINTED varchar2(20),
                     RECEIVED_QTY NUMBER,
                     PO varchar2(20),
                     VENDOR varchar2(20),
                     DESCRIPTION varchar2(20),
                     RECEIVED_DATE DATE) ;
CREATE OR REPLACE PROCEDURE p_audit_insert(        v_PURC_ORDER_ID IN VARCHAR2,
                                               v_PURC_ORDER_LINE_NO IN NUMBER,
                                               v_RECEIVER_ID IN VARCHAR2,
                                               v_LINE_NO IN VARCHAR2,
                                               v_PRINTED IN VARCHAR2,
                                               v_RECEIVED_QTY IN NUMBER,
                                               v_PO IN VARCHAR2,
                                               v_VENDOR IN VARCHAR2,
                                               v_DESCRIPTION IN VARCHAR2,
                                              v_RECEIVED_DATE IN DATE
   IS
      --Could be replaced with a function call to get the pipe name
      lv_PipeName     VARCHAR2(30) := 'Test_Audit_Pipe';
      ln_Status       NUMBER;
   BEGIN
      DBMS_PIPE.pack_message(v_PURC_ORDER_ID );
      DBMS_PIPE.pack_message(v_PURC_ORDER_LINE_NO );
      DBMS_PIPE.pack_message(v_RECEIVER_ID );
      DBMS_PIPE.pack_message(v_LINE_NO );
      DBMS_PIPE.pack_message(v_PRINTED );
      DBMS_PIPE.pack_message(v_RECEIVED_QTY );
      DBMS_PIPE.pack_message(v_PO );
      DBMS_PIPE.pack_message(v_VENDOR );
      DBMS_PIPE.pack_message(v_DESCRIPTION );
      DBMS_PIPE.pack_message(v_RECEIVED_DATE );
      ln_Status := DBMS_PIPE.send_Message(lv_PipeName);
     dbms_output.put_line(ln_Status);
   END;
CREATE TABLE test_table(text       varchar2(20));
CREATE OR REPLACE TRIGGER test_table_trigger BEFORE INSERT ON test_table
FOR EACH ROW
DECLARE
BEGIN
   IF :NEW.text = 'Create audit row' THEN
           p_audit_insert( 'Purch order',
                           123,
                           'Receiver id',
                           'Line no',
                           'Printed',
                           456,
                           'PO number',
                           'Vendor',
                           :NEW.Text,
                           SYSDATE
           RAISE_APPLICATION_ERROR(-20001,'Audit row generated');
   END IF;
END;
CREATE OR REPLACE PROCEDURE p_Read_Audit_Pipe
IS
   lv_PipeName     VARCHAR2(30) := 'Test_Audit_Pipe';
   ln_Status       NUMBER;
   ln_DataType     NUMBER;
   ln_NumData      NUMBER;
   lv_CharData     VARCHAR2(32767);
   ldt_DateData    DATE;
   lv_PURC_ORDER_ID        VARCHAR2(20);
   lv_PURC_ORDER_LINE_NO   NUMBER;
   lv_RECEIVER_ID          VARCHAR2(20);
   lv_LINE_NO              VARCHAR2(20);
   lv_PRINTED              VARCHAR2(20);
   lv_RECEIVED_QTY         NUMBER;
   lv_PO                   VARCHAR2(20);
   lv_VENDOR               VARCHAR2(20);
   lv_DESCRIPTION          VARCHAR2(20);
   lv_RECEIVED_DATE        DATE;
BEGIN
   ln_Status := dbms_pipe.receive_message(lv_PipeName);
   dbms_pipe.unpack_message(lv_PURC_ORDER_ID);
   dbms_pipe.unpack_message(lv_PURC_ORDER_LINE_NO);
   dbms_pipe.unpack_message(lv_RECEIVER_ID);
   dbms_pipe.unpack_message(lv_LINE_NO);
   dbms_pipe.unpack_message(lv_PRINTED);
   dbms_pipe.unpack_message(lv_RECEIVED_QTY);
   dbms_pipe.unpack_message(lv_PO);
   dbms_pipe.unpack_message(lv_VENDOR);
   dbms_pipe.unpack_message(lv_DESCRIPTION);
   dbms_pipe.unpack_message(lv_RECEIVED_DATE);
   INSERT
   INTO
           test_audit
   VALUES( lv_PURC_ORDER_ID,
           lv_PURC_ORDER_LINE_NO,
           lv_RECEIVER_ID,
           lv_LINE_NO,
           lv_PRINTED,
           lv_RECEIVED_QTY,
           lv_PO,
           lv_VENDOR,
           lv_DESCRIPTION,
           lv_RECEIVED_DATE
   COMMIT;
END;
SQL> insert into test_table values('Test table row');
1 row created.
SQL> insert into test_table values('Create audit row');
insert into test_table values('Create audit row')
ERROR at line 1:
ORA-20001: Audit row generated
ORA-06512: at "TEST.TEST_TABLE_TRIGGER", line 19
ORA-04088: error during execution of trigger 'TEST.TEST_TABLE_TRIGGER'
--This bit is done in another session
SQL> exec p_Read_Audit_Pipe;
SQL> select * from test_audit;
Purch order   123 Receiver id    Line no   456   PO Number Vendor   Create audit row    06/09/2004
SQL> select * from test_table;
TEXT
Test table row