How to Generate a Custom Message for A Custom Code.

Question

Hello,
Can anyone guide me on this -
Application : 11.5.10.2
We have a cutom Trigger through which we want to display a custom message.
We have re-generated the .msb, but it seems that something is missing.
Following are the Steps We have followed to generate a custom message.
1. Responsibility "Application Developer"
2. Go to Applications
3. Select Message
4. Define a new custom message.
5. Save
6. Run Request " Generate Message"
Now when the trigger gets fired , we are not able to see our Custom message.
How do we call this messge in the custom code.
Pl. help on this , also can i get some reference note id's on this.
Thanks in advance.
Regards,
Jenny

Answer 1

CREATE OR REPLACE TRIGGER KPC_RCV_TRANSACTIONS_INTERFACE
     AFTER INSERT OR UPDATE ON APPS.RCV_TRANSACTIONS_INTERFACE
     REFERENCING NEW AS NEW OLD AS OLD
     FOR EACH ROW
---     This Trigger Validates following things
---     1.     Creation date is not modified and is greater than system date.
---     2.     RTV should not be possible before ERS is generated.
---     3.     Inspection should not be possible through Deliver Transactions Responsibility
---     4.     Delivery of Material should not be possible through Inspection Responsibility
---     5.     Item is Excisable and Excise Invoice No Or Excise Invoice Date is Missing
---     6.     Only Inspected and Accepted material is Delivered to Subinventory
---     7.     Check for Existance of 57F4 for Subcon Job Receipts
---     8.     Check Taxes are not Missing
---     9.     Check Taxes are Correct
---     Declaring The Variables
DECLARE
     v_grade                    number          :=     0;
     v_employee_id               number          :=     0;
     v_responsibility          varchar2(100)     :=     'Z';
     v_closed_taxes_count          number          :=     0;
     v_taxes_count               number          :=     0;
     v_invoiced_status_code          varchar2(01)     :=     'N';
     v_57f4_id               number          :=     0;
     l_date_ok               varchar2(01)     :=     'N';
     l_gate_date_ok               varchar2(01)     :=     'N';
     l_cenvatable_flag          varchar2(01)     :=     'N';
     l_excise_ok               varchar2(01)     :=     'N';
     l_rtv_ok               varchar2(01)     :=     'N';
     l_inspection_ok               varchar2(01)     :=     'N';
     l_delivery_ok               varchar2(01)     :=     'N';
     l_rej_delivery_ok          varchar2(01)     :=     'N';
BEGIN     
--      Get Looged in Responsibility Name
     begin
          SELECT      upper(responsibility_name)
               INTO v_responsibility
          FROM      apps.fnd_responsibility_vl
          WHERE      responsibility_id = apps.fnd_global.resp_id;
     EXCEPTION
          WHEN      NO_DATA_FOUND THEN
               v_responsibility := 'Z';
          WHEN      OTHERS THEN
               v_responsibility := 'Z';
     END;
---     Modifications Done by SMT to Bypass checking for following Users
     if     (apps.fnd_global.user_id     <     1091)     then
          return;
     end     if;
---     if     (apps.fnd_global.user_id     in     (1090,1111,1112,1126,1540,1591,1570,1881))     then
---          return;
---     end     if;
----     Collect the Information Required from Other Tables
---     Check whether item is cenvatable
     l_cenvatable_flag     :=     'N';
     begin
          select     'Y'
          into     l_cenvatable_flag
          from     apps.ja_in_po_line_location_taxes     jipll
          where     upper(jipll.tax_type)          in     ('EXCISE','CVD')
          and     jipll.po_header_id          =     :new.po_header_id
          and     jipll.po_line_id          =     :new.po_line_id
          and     jipll.line_location_id          =     :New.po_line_location_id;
     EXCEPTION
          WHEN      NO_DATA_FOUND THEN
               l_cenvatable_flag     :=     'N';
          WHEN      OTHERS THEN
               l_cenvatable_flag     :=     'N';
     end;
---     Check whether Taxes are closed
     v_closed_taxes_count     :=     0;
     begin
          select     count(distinct jit.tax_id)
          into     v_closed_taxes_count
          from     apps.ja_in_tax_codes               jit,
               apps.ja_in_po_line_location_taxes     jipl     
          where     nvl(jit.end_date,sysdate)<     sysdate               
          and     jit.tax_id          =     jipl.tax_id
          and     po_header_id          =     :new.po_header_id
          and     po_line_id          =     :new.po_line_id
          and     line_location_id     =     :new.po_line_location_id;
     EXCEPTION
          WHEN      NO_DATA_FOUND THEN
               v_closed_taxes_count     :=     0;
          WHEN      OTHERS THEN
               v_closed_taxes_count     :=     0;
     end;
---     Check Existance of Taxes
     v_closed_taxes_count     :=     0;
     begin
          select     count(distinct jit.tax_id)
          into     v_taxes_count
          from     apps.ja_in_tax_codes               jit,
               apps.ja_in_po_line_location_taxes     jipl     
          where     nvl(jit.end_date,sysdate)<     sysdate               
          and     jit.tax_id          =     jipl.tax_id
          and     po_header_id          =     :new.po_header_id
          and     po_line_id          =     :new.po_line_id
          and     line_location_id     =     :new.po_line_location_id;
     EXCEPTION
          WHEN      NO_DATA_FOUND THEN
               v_taxes_count     :=     0;
          WHEN      OTHERS THEN
               v_taxes_count     :=     0;
     end;
---     Modifications Done by SMT to Get Invoice Status Code of the Original Transaction
     v_invoiced_status_code     :=     'N';
     BEGIN
          SELECT      'Y'
          INTO      v_invoiced_status_code
          FROM      apps.ap_invoices_all          ap,
               apps.rcv_shipment_headers     rcv
          WHERE      ap.invoice_num               like     '%'||rcv.receipt_num||'%'
          AND     ap.org_id               =     rcv.ship_to_org_id
          AND     rcv.shipment_header_id          =     :NEW.shipment_header_id;
     EXCEPTION
          WHEN      NO_DATA_FOUND THEN
               v_invoiced_status_code          :=     'N';
          WHEN      OTHERS THEN
               v_invoiced_status_code          :=     'N';
     END;
---     RAISE_APPLICATION_ERROR(-200151,'Incorrect Transaction Date...');     
---     Check the transaction_date is correct or not
     l_gate_date_ok          :=     'Y';
     IF     ((:new.ship_head_attribute6     is     null)                                        or
          (to_date(:new.ship_head_attribute7,'DD-MON-YYYY')     <     (sysdate-3))                    or
          (to_date(:new.ship_head_attribute7,'DD-MON-YYYY')     >     sysdate))                    then
          l_gate_date_ok     :=     'N';
     END      IF;
---     Check the transaction_date is correct or not
     l_date_ok          :=     'Y';
     IF     (to_date(:new.transaction_date,'DD-MON-YYYY')     <     to_char(sysdate,'DD-MON-YYYY'))     then
          l_date_ok     :=     'N';
     END      IF;
---     Check whether Excise Invoice No and Excise Date is present
     l_excise_ok          :=     'Y';     
     if     (l_cenvatable_flag               =     'Y'               and
          :new.ship_head_attribute1          is     null               and
          upper(:new.destination_type_code)     =     'RECEIVING')          then
          l_excise_ok          :=     'N';
     end     if;
     if     (l_cenvatable_flag               =     'Y'               and
          :new.ship_head_attribute2          is     null               and
          upper(:new.destination_type_code)     =     'RECEIVING')          then
          l_excise_ok          :=     'N';
     end     if;
---     Check whether Inspection transaction is being made in correct Responsibility
     l_inspection_ok               :=     'Y';
     if     (upper(:new.destination_type_code) = 'RECEIVING')               then
          if     (v_responsibility like '%RECEIPT%QA%')                    then
               l_inspection_ok     :=     'Y';
          else
               l_inspection_ok     :=     'N';
          end     if;
     else     l_inspection_ok          :=     'Y';
     end     if;
---     Check whether Delivery transaction is being made in correct Responsibility
     l_delivery_ok               :=     'Y';
     if     (upper(:new.destination_type_code) in ('INVENTORY','SHOP FLOOR'))          then
          if     (v_responsibility not like ('%RECEIPT%QA%'))     then
               l_delivery_ok     :=     'Y';
          else
               l_delivery_ok     :=     'N';
          end     if;
     else     l_delivery_ok          :=     'Y';
     end     if;
---     Check whether RTV is made prior to generating the ERS Invoice
     l_rtv_ok               :=     'Y';
     if     (upper(:new.transaction_type) in ('REJECT','RETURN TO VENDOR'))          then
          if     (v_invoiced_status_code = 'INVOICED')                    then
               l_rtv_ok     :=     'Y';
          else
               l_rtv_ok     :=     'N';
          end     if;
     else     l_rtv_ok          :=     'Y';
     end     if;
---     Check Error and Display Proper error message
---     Transaction Date Error
     if     (nvl(l_date_ok,'N') != 'Y')          then
          apps.fnd_message.set_name('FND','Wrong GRR Date');
          apps.fnd_message.raise_error;
     end     if;
---     Gate Entry Date Error
     if     (nvl(l_gate_date_ok,'N') != 'Y')          then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Wrong Gate Entry Date');
          apps.fnd_message.raise_error;
     end     if;
---     Return CENVAT Error
     if     (nvl(l_excise_ok,'N') != 'Y')          then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Enter Excise Invoice No');
          apps.fnd_message.raise_error;
     end     if;
---     Return Closed Taxex Error
     if     (nvl(v_closed_taxes_count,1) != 0)     then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Taxes Wrong');
          apps.fnd_message.raise_error;
     end     if;
---     Return Taxes Missing Error
     if     (nvl(v_taxes_count,0) = 0)     then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Taxes Missing');
          apps.fnd_message.raise_error;
     end     if;
---     Return from trigger, if Transaction Type = 'RECEIVE'
     if     (upper(:new.transaction_type) = 'RECEIVE')     then
          return;
     end     if;
---     Return Inspection Error
     if     (nvl(l_inspection_ok,'N') != 'Y')     then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Inspection Not Allowed');
          apps.fnd_message.raise_error;
     end     if;
---     Return Material Delivery Error
     if     (nvl(l_delivery_ok,'N') != 'Y')          then
          apps.fnd_message.set_name('FND','KPC_RCV_CHEK:Delivery not Allowed');
          apps.fnd_message.raise_error;
     end     if;
     return;
END KPC_RCV_TRANSACTIONS_INTERFACE;