Revoke user Indirect responsibilities in R12

Using API:

DECLARE
  CURSOR cur_main IS
SELECT user_name,
   role_name,
   user_start_date,
   user_end_date,
   role_start_date,
   role_end_date,
   effective_end_date

  FROM apps.wf_local_user_roles
     WHERE user_name = UPPER('user_name');
BEGIN
FOR r_main IN cur_main
LOOP
Wf_local_synch.PropagateUserRole(p_user_name =>r_main.user_name,
p_role_name =>r_main.role_name,
p_start_date =>SYSDATE,
p_expiration_date =>NULL);
COMMIT;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
         dbms_output.put_line('Error in API');
END;