API to reset apps login password

DECLARE
   l_Flag   BOOLEAN;
BEGIN
   l_Flag :=
      fnd_user_pkg. ChangePassword (username => 'USERNAME', newpassword => 'PASSWORD');
   IF l_Flag
   THEN
      DBMS_OUTPUT.put_line ('The password has been resetted');
   ELSE
      DBMS_OUTPUT.put_line ('The password has not been resetted');
   END IF;
END;