后台刷新职责关键字

declare
  l_responsibility_name VARCHAR2(1000);
  l_responsibility_id   number;
  l_responsibility_key  VARCHAR2(30);
  l_role_name           VARCHAR2(320);
  CURSOR cur_old_resp IS
    SELECT tt.responsibility_name, t.responsibility_id, b.responsibility_key
      FROM fnd_responsibility_tl t, fnd_responsibility b,fnd_responsibility_tl tt
     WHERE b.responsibility_id = t.responsibility_id
       AND b.application_id = t.application_id
       AND t.language = 'ZHS'
       AND b.responsibility_id = tt.responsibility_id
       AND b.application_id = tt.application_id
       AND tt.language = 'US'
       AND exists
     (SELECT '1'
              FROM cux.cux_fnd_disable_resp cfd
             where cfd.responsibility_name = t.responsibility_name);         
begin
  --更新旧职责关键字
  FOR rec_old_resp IN cur_old_resp LOOP
  --
  BEGIN
    select wlr.name
      into l_role_name
      from wf_local_roles wlr
     wh