EBS开发_批量给用户分配职责

--以下代码于20180117在Tony环境成功实现
declare
  -- Local variables here
  x_owner varchar2(30);
  cursor cur_resp is
    select t.user_name, 'GT_付款申请查询' RESP_NAME
      from Fnd_user t ---需要修改
    
     where not exists (
            
            select 1
              from FND_USER_RESP_GROUPS_DIRECT fug,
                    fnd_responsibility_tl       frt,
                    fnd_user                    fu
             where frt.LANGUAGE = 'ZHS'
               AND FUG.RESPONSIBILITY_ID = FRT.RESPONSIBILITY_ID
               AND FU.USER_ID = FUG.user_id
               AND FU.USER_NAME = T.USER_NAME
               AND FRT.RESPONSIBILITY_NAME = 'GT_付款申请查询')
       AND T.USER_ID in
           (select fu.user_id
              from Fnd_user fu
             where fu.employee_id in
                   (select he.employee_