API to Delete Batch Header

DECLARE
   CURSOR c1
   IS
      SELECT   *
        FROM   pay_batch_headers
       WHERE   batch_name = 'OVERTIME_ALLOWANCE_02APR2013';
BEGIN
   FOR i IN c1
   LOOP  
      pay_batch_element_entry_api.delete_batch_header (
         p_validate                => FALSE,
         p_batch_id                => i.batch_id,
         p_object_version_number   => i.object_version_number
      );
      COMMIT;
      DBMS_OUTPUT.put_line (i.batch_name || ' has been Deleted !!!!');
   END LOOP;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);
END;