通过提交请求的方式导入AP发票

DECLARE
  CURSOR cur_err(t_invoice_id NUMBER) IS
    SELECT nvl(flv.meaning, err_tbl.reject_lookup_code) err_msg
      FROM (SELECT air.reject_lookup_code
              FROM ap_interface_rejections air
             WHERE air.parent_id = t_invoice_id
               AND air.parent_table = 'AP_INVOICES_INTERFACE'
            UNION
            SELECT air.reject_lookup_code
              FROM ap_invoice_lines_interface ali, ap_interface_rejections air
             WHERE air.parent_id = ali.invoice_line_id
                  --
               AND ali.invoice_id = t_invoice_id
                  --
               AND air.parent_table = 'AP_INVOICE_LINES_INTERFACE') err_tbl,
           fnd_lookup_values flv
     WHERE flv.lookup_code(+) = err_tbl.reject_lookup_code
          --
       AND flv.language(+) = userenv('lang')
       AND flv.lookup_type(+) = 'REJECT CODE';

  g_user_id  CONSTANT NUMBER := fnd_global.user_id;
  g_login_id CONSTANT NUMBER := fnd_global.login_id;

  l_iface_rec       ap_invoices_interface%ROWTYPE;
  l_iface_lines_rec ap_invoice_lines_interface%ROWTYPE;

  l_group_id   NUMBER;
  l_batch_name VARCHAR2(50) := 'TXXTEST080902';
  l_org_id     NUMBER := 82;
  --
  l_request_id NUMBER;
  l_bl_result  BOOLEAN;
  x_phase      VARCHAR2(100);
  x_status     VARCHAR2(100);
  x_dev_phase  VARCHAR2(100);
  x_dev_status VARCHAR2(100);
  x_message    VARCHAR2(100);
  x_return_msg  VARCHAR2(1000);
  l_cnt        NUMBER := 0;
  --
  l_result               BOOLEAN;
  l_batch_error_flag     VARCHAR2(30);
  l_invoices_fetched     NUMBER;
  l_invoices_created     NUMBER;
  l_total_invoice_amount NUMBER;
  l_print_batch          VARCHAR2(30);
  l_error_co