Не останавливается кровь ..

Мужчина , 60 лет , Болезнь Бехтерева, как результат почечная недостаточность и малокровие.
Вчера выдернули один зуб и рядом разрезали десну возле другого зуба спровоцировавшего флюс.
Второй день идёт обильная кровопотеря и не похоже что собирается останавливаться..Ухудшилось самочувствие, кружиться голова.
Что в этом случае делать ? Есть ли какие мази , аппликации.
А также что следует пить , что бы поддерживать и восстанавливать кровь.