Функция SaveMentalAutomatizm
Сохранить автоматизм
Функция вызывается из:
SaveAllPsihicMemory