利用fnd_user_pkg.delresp的API停用帳號的responsibility

ERP是11i的版本,正好有需要把某個帳號的Responsibility給停用,
雖然只有一個帳號,但是還是找到可以用API來停用,以利未來有大量帳號停用的需要。

----------------------------------------------------------------------------------

DECLARE
   v_user_name             VARCHAR2 (100) := 'USER01';
   v_responsibility_name   VARCHAR2 (100) := 'Alert Manager';
   v_application_name      VARCHAR2 (100) := NULL;
   v_responsibility_key    VARCHAR2 (100) := NULL;
   v_security_group        VARCHAR2 (100) := NULL;


BEGIN
   SELECT  fa.application_short_name,
                     fr.responsibility_key,
                     frg.security_group_key
    INTO        v_application_name,
                      v_responsibility_key,
                      v_security_group
    FROM      fnd_responsibility       fr,
                     fnd_application            fa,
                     fnd_security_groups  frg,
                     fnd_responsibility_tl   frt
    WHERE  fr.application_id               = fa.application_id
     AND        fr.data_group_id             = frg.security_group_id
     AND        fr.responsibility_id          = frt.responsibility_id
     AND        frt.LANGUAGE                 = USERENV ('LANG')
     AND        frt.responsibility_name  = v_responsibility_name;

      fnd_user_pkg.delresp
      (    username           => v_user_name,
           resp_app            => v_application_name,
           resp_key             => v_responsibility_key,
           security_group   => v_security_group
      );

     COMMIT;

EXCEPTION
     WHEN OTHERS THEN
              DBMS_OUTPUT.put_line ('Error : '  || SQLERRM );
END;