平凡的幸福(備站）

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;