API to Assign Roles - Assigned via User Management using SYSADMIN

DECLARE

   CURSOR c1

   IS

      SELECT *

        FROM wf_roles

       WHERE display_name like 'Approvals%'

       and parent_orig_system = 'UMX';

   l_user_name   VARCHAR2 (100) := 'BIJOY';

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         wf_local_synch.propagateuserrole (p_user_name   => l_user_name,

                                           p_role_name   => i.name);

         COMMIT;

         DBMS_OUTPUT.put_line (

            i.display_name || ' has been assigned to ' || l_user_name);

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.put_line (

               i.display_name || '--  Failure --> ' || SQLERRM);

      END;

   END LOOP;

END;