API to Delete Retro Event Process

DECLARE

   CURSOR c1

   IS

        SELECT *

          FROM pay_process_events

         WHERE assignment_id = 99654

      ORDER BY creation_date DESC;

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         pay_ppe_del.

          del (p_process_event_id        => i.process_event_id,

               p_object_version_number   => i.object_version_number);

         COMMIT;

         DBMS_OUTPUT.put_line (i.process_event_id || ' has been Purged !!!');

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.

             put_line (

               'Inner Exception: ' || SQLERRM || ' - ' || i.process_event_id);

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);

END;