API to Change password for FND User (FND_USER_PKG.CHANGEPASSWORD)

DECLARE
   v_user_name      VARCHAR2 (30) := UPPER ('&Enter_User_Name');
   v_new_password   VARCHAR2 (30) := '&Enter_New_Password';
   v_status         BOOLEAN;
BEGIN
   v_status :=
      FND_USER_PKG.CHANGEPASSWORD (username      => v_user_name,
                                   newpassword   => v_new_password);

   IF v_status = TRUE
   THEN
      DBMS_OUTPUT.put_line (
         'The password reset successfully for the User:' || v_user_name
      );
      COMMIT;
   ELSE
      DBMS_OUTPUT.put_line(   'Unable to reset password due to'
                           || SQLCODE
                           || ' '
                           || SUBSTR (SQLERRM, 1, 100));
      ROLLBACK;
   END IF;
END;
/