API to Delete Form Personalization

DECLARE

   CURSOR c1

   IS

      SELECT *

        FROM fnd_form_custom_rules

       WHERE id = 2470;

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         fnd_form_custom_rules_pkg.

          delete_set (x_rule_key        => i.rule_key,

                      x_rule_type       => i.rule_type,

                      x_function_name   => i.function_name,

                      x_form_name       => i.form_name);

         COMMIT;

         DBMS_OUTPUT.

          put_line (

            i.description

            || ' Personalization has been Successfully Zapped !!!');

      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;