API to Delete Lookup Values

DECLARE

   CURSOR c1

   IS

      SELECT lookup_type,

             lookup_code,

             security_group_id,

             view_application_id

        FROM fnd_lookup_values_vl

       WHERE lookup_type = 'NATIONALITY' AND lookup_code LIKE 'PQH%';

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 || ' has been Purged !!!');

      EXCEPTION

         WHEN OTHERS

         THEN

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

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

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

END;