API to End Date/Delete Responsibility from FND User (FND_USER_PKG.DELRESP)

DECLARE
   v_user_name             VARCHAR2 (100) := 'TEST';
   v_responsibility_name   VARCHAR2 (100) := 'Application Developer';
   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;

   DBMS_OUTPUT.put_line(   'Responsiblity '
                        || v_responsibility_name
                        || ' is removed from the user '
                        || v_user_name
                        || ' Successfully');
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line('Error encountered while deleting responsibilty from the user and the error is '
                           || SQLERRM);
END;
/