Delete or Withdraw Expense Reports Pending Approval through API

set serveroutput on size unlimited;

DECLARE

CURSOR c_exp_report IS
SELECT INVOICE_NUM
,    REPORT_HEADER_ID
,      ORG_ID
FROM   APPS.AP_EXPENSE_REPORT_HEADERS_ALL
WHERE  REPORT_HEADER_ID IN (XXXXXXXX);


  l_des_ccid NUMBER;
 
BEGIN
 
  FOR rec in c_exp_report
  LOOP
dbms_output.put_line ('========================================================');
dbms_output.put_line ('Expense Report#'||rec.invoice_num);
dbms_output.put_line ('Setting Org Context...');

mo_global.set_policy_context('S', rec.org_id);


-- Withdrawing Expense Report.
BEGIN
dbms_output.put_line ('Withdrawing the Expense Report...');

ap_web_oa_mainflow_pkg.withdrawexpensereport(rec.report_header_id);

commit;
dbms_output.put_line ('Withdrawn !!');

EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line ('Error !! Unable to withdraw');
dbms_output.put_line (SQLERRM);
CONTINUE;
END;

-- Deleting Expense Report.
BEGIN
dbms_output.put_line ('Deleting the Expense Report...');

ap_web_oa_mainflow_pkg.DeleteExpenseReport(rec.report_header_id);
commit;
dbms_output.put_line ('Deleted !!');

EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line ('Error !! Unable to delete');
dbms_output.put_line (SQLERRM);
CONTINUE;
END;

END LOOP;

EXCEPTION
  WHEN OTHERS THEN
   dbms_output.put_line('Exception Occured during Script Exception : '||SQLERRM);
 
END;