Oracle EBS TROCAR SENHA VIA SQL – BACKEND

DECLARE
  v_user_name    VARCHAR2(30):= UPPER('USUARIO');
  v_new_password VARCHAR2(30):= 'Trocar123';
  v_status       BOOLEAN;
BEGIN
  v_status   := fnd_user_pkg.ChangePassword ( username => v_user_name, 
                                              newpassword => v_new_password 
                                            );
  IF v_status  THEN
    dbms_output.put_line ('Senha trocada com sucesso para o usuario:'||v_user_name);
    COMMIT;
  ELSE
    DBMS_OUTPUT.put_line ('Nao foi possivel trocar a senha'||SQLCODE||' '||SUBSTR(SQLERRM, 1, 100));
    ROLLBACK;
  END IF;
END;