API to Delete HR Lookup Values

DECLARE

   l_err_msg   VARCHAR2 (500) := NULL;

   CURSOR c1

   IS

      SELECT *

        FROM fnd_lookup_values

       WHERE lookup_type = 'AE_BANK_NAMES' AND language = 'US';

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         fnd_lookup_values_pkg.

          delete_row (x_lookup_type           => i.lookup_type,

                      X_SECURITY_GROUP_ID     => i.security_group_id,

                      x_view_application_id   => i.view_application_id,

                      x_lookup_code           => i.lookup_code);

         COMMIT;

         DBMS_OUTPUT.

          put_line (i.lookup_code || ' Deleted  Successfully !!!!');

      EXCEPTION

         WHEN OTHERS

         THEN

            l_err_msg := SQLERRM;

            DBMS_OUTPUT.

             put_line (

               'Inner Exception: ' || i.lookup_code || ' - ' || l_err_msg);

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      l_err_msg := SQLERRM;

      DBMS_OUTPUT.put_line ('Exception: ' || l_err_msg);

END;