declare
  l_request_id number;
  p_message    varchar2(255);
 
  v_app         varchar2(30);
  v_name        varchar2(30);
  v_method      varchar2(30);
  v_source_file varchar2(80);
  v_desc        varchar2(80);
 
begin

  v_app         := 'INV'; --簡稱
  V_NAME        := 'IMPORT_MES_PROD_ATT_TO_INFCE1'; --
  v_method      := 'PL/SQL Stored Procedure';--SQL*Plus  PL/SQL Stored Procedure
  V_SOURCE_FILE := 'TJ_ONT_ITEM_CATALOG_PKG.import_mes_prod_att_to_infce';
  v_desc        := '拋轉MES料號屬性資料到臨時表1';

   --fnd_global.APPS_INITIALIZE(1001934, 20560, 706, NULL);
  fnd_global.APPS_INITIALIZE(1001934, 20707, 201, NULL); --PURCHASING SUPER
  l_request_id := apps.FND_REQUEST.submit_request(v_app, --'Oracle Purchasing',
                                                  V_NAME,
                                                  v_desc,
                                                  TO_CHAR(SYSDATE,
                                                          'YYYY/MM/DD HH24:MI:SS'),
                                                  FALSE,
                                                  null,
                                                  'Standard',
                                                  null,
                                                  'No',
                                                  'No',
                                                  'Incomplete',
                                                  null,
                                                  null,
                                                  chr(0));
  if l_request_id > 0 then
    p_message := 'Request ID : ' || to_char(l_request_id);
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    commit;
  else
    p_message := apps.fnd_message.get;
    dbms_output.put_line('l_request_id : ' || l_request_id || ',');
    dbms_output.put_line('p_message : ' || p_message);
    rollback;
  end if;
end;