//Сепсис диагностика и лечение мобильная версия

Переменные: лейкоциты, ШКГ, г1, г2, г3, с1, с2, с3, с4, коэфф_меропенем, инф_номер_меропенем, коэфф_линезолид, инф_номер_линезолид, доза_норадреналин, инф_номер_норадреналин, коэфф_норадреналин, инф_номер_кристаллоиды, МАССА, пол, рост, ид_масса, маска, нивл, ивл

БЛОК ВХОД
	маска=0
	ивл=0
	нивл=0
	коэфф_меропенем=1
	коэфф_линезолид=1
	коэфф_норадреналин=1/2
	ВЫЗОВ_ВРАЧА("Возьмите анализ крови на лейкоциты.", 1мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ТЕМП, 30 мин)
	МУЛЬТИВЫБОР("Шкала ГЛАЗГО(GLASGOW)", "Открывание глаз/Спонтанно=5/На речь=4/На боль=3/Не открывает=2", г1, "Речь/Разговаривает//Ориентирован=5/Разговаривает//Дезориентирован=4/Непонятные слова=3/Нечленораздельные звуки=2/Отсутсвует=1", г2, "Моторика/Выполняет команды=5/Целенаправленная на болевой раздражитель=4/Нецеленаправленная на болевой раздражитель=3/Тоническое сгибание=2/Тоническое разгибание=1/Отсутсвует=0", г3)
	ШКГ=г1+г2+г3
	ВЫЗОВ_ВРАЧА("Состояние пациента оценивается в "+строка(ШКГ)+" баллов по шкале ГЛАЗГО (GLASGOW).", 1мин)
	
	ЕСЛИ г1+г2+г3> 10 то
		с2=1
	иначе
		с2=0
		//ВЫЗОВ_ВРАЧА("Пациент находится в коме. Сепсис не диагностирован. Завершение работы алгоритма.", 1мин)
		//ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Темп>38.3 или Темп<36 то
		с3=1
	иначе
		с3=0
	КОНЕЦ_ЕСЛИ
	с1=ВЫБОР("Обнаружен очаг инфекции (гнойник)?", "Да",1,"Нет",0)
	лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
	ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
		с4=1
	иначе 
		с4=0
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (с4+с3>0 и с1+с2 >0) или с4+с3==2 то
		ВЫЗОВ_ВРАЧА("Диагностирован сепсис.", 1мин)
	иначе
		ВЫЗОВ_ВРАЧА("Сепсис не диагностирован. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250)
	ПОЛ=ВЫБОР("Выберите пол пациента:", "мужской", 1, "женский", 0)
	рост=ВВОД("Введите рост пациента, (см)", 50, 250)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 10мин)
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_АД, 10 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5 сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_спо2, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5сек)
	АКТИВИРОВАТЬ_БЛОК(обработка_чдд, 5сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5сек)
	ВЫЗОВ_ВРАЧА("Произведите забор крови 2 порции по 10 мл из разных доступов для микробиологического исследования.", 1мин)
	АКТИВИРОВАТЬ_БЛОК(ТЕРАПИЯ_АНТИБИОТИК, 8 час)
	АКТИВИРОВАТЬ_БЛОК(ТЕРАПИЯ_АНТИБИОТИК2, 12 час)
	
КОНЕЦ_БЛОКА
//=========
БЛОК ТЕРАПИЯ_АНТИБИОТИК()
	инф_номер_меропенем=ВВЕСТИ(1, меропенем, 1*коэфф_меропенем/3 мл/час)
	спать(3час)
КОНЕЦ_БЛОКА
//========
БЛОК ТЕРАПИЯ_АНТИБИОТИК2()
	инф_номер_ЛИНЕЗОЛИД=ВВЕСТИ(2, линезолид, 1.2*коэфф_линезолид мл/час)// капельница
	спать(30мин)
КОНЕЦ_БЛОКА
//========
БЛОК КОНТРОЛЬ_АД()
	ЕСЛИ САД > 180 то
		ВЫЗОВ_ВРАЧА("Параллельно запустите алгоритм по гипертонии.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АД< 65 то
		инф_номер_кристаллоиды=ВВЕСТИ(3, кристаллоиды, 2000 мл/час)//,30мин) //капельница
		СПАТЬ(10мин)
		ЕСЛИ АД<65 то
			доза_норадреналин=0.1
			инф_номер_норадреналин=ВВЕСТИ(4, норадреналин, 0.1*МАССА*коэфф_норадреналин*60 мл/час)
			активировать_блок(терапия_норадреналин, 1мин)
		КОНЕЦ_ЕСЛИ
		СПАТЬ(20мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(3, кристаллоиды, 500 мл/час)//, 6 час)
		СПАТЬ(6час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========
БЛОК терапия_норадреналин()
	СПАТЬ(9мин)
	
	ЕСЛИ АД<65 то
		доза_норадреналин=доза_норадреналин+0.1
		ИЗМЕНИТЬ_СКОРОСТЬ(4, норадреналин, доза_норадреналин*МАССА*коэфф_норадреналин*60 мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АД>75 то
		доза_норадреналин=доза_норадреналин-0.1
		ИЗМЕНИТЬ_СКОРОСТЬ(4, норадреналин, доза_норадреналин*МАССА*коэфф_норадреналин*60 мл/час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//========
БЛОК контроль_спо2()
	
	
	ЕСЛИ пол==1 то
		ид_масса=0.9*рост-88
	иначе
		ид_масса=0.9*рост-92
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2< 90 то
	ЕСЛИ ЧДД >=12 и ЧДД <=20 и маска==0 и ивл==0 и нивл==0 то
		ВЫЗОВ_ВРАЧА("Установите маску с кислородом, скорость потока 10 л/мин.", 2мин)
		маска=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧДД< 12 или ЧДД >20 то
		ЕСЛИ АД<85 и ивл==0 то
		ивл=1
		ВЫЗОВ_ВРАЧА("Подключите пациента к ИВЛ, режим CPAP, PEEP=7, ДО="+строка(6*ид_масса)+" мл, FiO2=0,5.", 2мин)
		СПАТЬ(15мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ АД<85 и нивл==0 и ивл==0 то
		нивл=1
		ВЫЗОВ_ВРАЧА("Подключите пациента к НИВЛ, FiO2=0,5.", 5мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧДД> 25 то
		ВЫЗОВ_ВРАЧА("Критически высокая ЧДД. Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//========
БЛОК обработка_чдд()
	ЕСЛИ ЧДД< 5 то
		ВЫЗОВ_ВРАЧА("Критически низкая ЧДД. Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

















