script to change password through backend

DECLARE
   flag_value   BOOLEAN;
BEGIN
   flag_value :=
      fnd_user_pkg.changepassword (username      => 'Username',
                                   newpassword   => 'fusion$123');

   IF flag_value
   THEN
      DBMS_OUTPUT.PUT_LINE ('The password reset successfully');
   ELSE
      DBMS_OUTPUT.PUT_LINE ('The password reset has failed');
   END IF;

   COMMIT;
END;