API to Delete External Learning

DECLARE

   l_error   VARCHAR2 (1000) := NULL;

   CURSOR c1

   IS

      SELECT *

        FROM ota_notrng_histories

       WHERE business_group_id = 1107;

BEGIN

   FOR i IN c1

   LOOP

      ota_nhs_api.

       delete_external_learning (

         p_validate                => FALSE,

         p_nota_history_id         => i.nota_history_id,

         p_object_version_number   => i.object_version_number);

      COMMIT;

      DBMS_OUTPUT.

       put_line (i.nota_history_id || ' has been Deleted Successfully !!!!');

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      l_error := SUBSTR (SQLERRM, 1, 1000);

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

END;