Oracle Kullanıcı Şifresi Sıfırlama

DECLARE
   l_status      BOOLEAN;
   l_user_name   VARCHAR2 (100);
   l_password    VARCHAR2 (100);
BEGIN
   l_status := fnd_user_pkg.ChangePassword (l_user_name, l_password);
 
   IF l_status = TRUE
   THEN
      COMMIT;
      RETURN 'TRUE';
   ELSE
      ROLLBACK;
      RETURN 'FALSE';
   END IF;
END;