//ОНМК. Инсульт догоспитальный этап диагностика и лечение 

Переменные: МАССА, РОСТ, ПОЛ, ШКГ, КОМА, АД, ПаСО2, норма_ПаСО2, МОВ,\
	    Гипертония, САД, ДАД, ГИПЕРТЕНЗИЯ, ГЛЮКОЗА, ИНФ_НОМЕР_ХЛ_СОД,\
	    ИНФ_НОМЕР_ДЕКСТРОЗА, КОЭФФ_УРАПИДИЛ, ИНФ_НОМЕР_УРАПИДИЛ, ИНФ_НОМЕР_ГЭК, ВЧД,\
	    ВЧД_НОРМА, ИНФ_НОМЕР_МАННИТОЛ, КОЭФФ_МАННИТОЛ, приподнять_голову=0, температура, г1, г2, г3, фаст, ИНФ_НОМЕР_допамин, гипотензия, коэфф_допамин, интубация
//физрастворы, маннитол чз капельницу
//метамизол разовая инъекция
БЛОК ВХОД
	КОЭФФ_УРАПИДИЛ=1.0/5
	коэфф_допамин=1
	ВЧД_НОРМА=10.0
	КОЭФФ_МАННИТОЛ=1.0/150
	приподнять_голову=0.0
	температура=0.0
	гипотензия=0
	интубация=0
	ГИПЕРТОНИЯ=ВЫБОР("Пациент страдает гипертонической болезнью?", "Да", 1, "Нет", 0) //в алгоритме не используется
	
        МАССА=ВВОД("Введите массу пациента", 30, 230)
	МОВ=105*МАССА/1000
	//МОВ=ОКРУГЛИТЬ_ДО_ЦЕЛЫХ(105*МАССА/1000) // МОВ=ДО * ЧД, ДО=7мл/кг, ЧД=14-16
        //ШКГ=ВВОД("Оцените общесоматический статус по шкале Глазго от 3 до 15", 3,15)
	//АКТИВИРОВАТЬ_БЛОК(ШКАЛА_ГЛАЗГО, 200 мин)
	МУЛЬТИВЫБОР("Шкала FAST.","Состояние лица/(Симметричная мимика лица=0)/Парез половины лица=1", г1, "Движения рук, ног/(Обе руки,ноги опускаются симметрично или не опускаются вообще=0)/Одна рука, нога удерживается слабее другой=1", г2, "Речь/(Речь правильная, осмысленная=0)/Нарушенная речь, ошибки в использовании слов или отсутствие речи=1", г3)	
	фаст=г1+г2+г3
	ЕСЛИ фаст<2 то
		ВЫЗОВ_ВРАЧА("Вероятность инсульта низкая. Завершение работы алгоритма.", 1мин )
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Шкала ГЛАЗГО(GLASGOW)", "Открывание глаз/(Спонтанно=5)/На речь=4/На боль=3/Не открывает=2", г1, "Речь/(Разговаривает//Ориентирован=5)/Разговаривает//Дезориентирован=4/Непонятные слова=3/Нечленораздельные звуки=2/Отсутсвует=1", г2, "Моторика/(Выполняет команды=5)/Целенаправленная на болевой раздражитель=4/Нецеленаправленная на болевой раздражитель=3/Тоническое сгибание=2/Тоническое разгибание=1/Отсутсвует=0", г3)
	ШКГ=г1+г2+г3
	ВЫЗОВ_ВРАЧА("Состояние пациента оценивается в "+строка(ШКГ)+" баллов по шкале ГЛАЗГО (GLASGOW).", 2мин)
	//КОМА=ВЫБОР("Пациент находится в коме?", "Да", 1, "Нет", 0)
	ЕСЛИ ШКГ<=8 то
	     ВЫЗОВ_ВРАЧА("Проведите интубацию, подключите ИВЛ/ВВЛ. Параметры респираторной поддержки: МОВ= (МОВ), SpO2=50%.", 3мин)
		интубация=1
	Иначе
	     ВЫЗОВ_ВРАЧА("Оксигенация (назальный катетр): O2 4 л/мин", 2мин)
	КОНЕЦ_ЕСЛИ

	ВЫЗОВ_ВРАЧА ("Проведите катетеризацию периферической вены", 1мин)
	ВВЕСТИ_БЫСТРО (1, Натрия_хлорид_0_9, 250 мл, в/в) //уточнить скорость введения
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД,3 сек) 
	УСТАНОВИТЬ_ИНТЕРВАЛ(ТЕМП, 30мин)
        АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 1 мин)
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ДАВЛЕНИЯ, 3мин) // +2 мин в самом блоке
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ТЕМПЕРАТУРЫ, 25 мин) 
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ТЕМПЕРАТУРЫ, 30 мин)
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ВЧД, 2 мин) // +3 минуты добавлено в самом блоке
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ГЛЮКОЗЫ, 60 мин)
	активировать_блок(прочее, 10 мин)
	активировать_блок(контроль_спо2, 1мин)
	
	
	
КОНЕЦ_БЛОКА
БЛОК контроль_спо2()
	ЕСЛИ СПО2<92 и интубация==0 то
		интубация=1
		ВЫЗОВ_ВРАЧА("Проведите интубацию, подключите ИВЛ/ВВЛ. Параметры респираторной поддержки: МОВ= (МОВ), SpO2=50%.", 3мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
БЛОК прочее()
	ВЫЗОВ_ВРАЧА("При генерализованных или парциальных судорогах Вальпроевая кислота 500-1000 мг и/или Диазепам 5-10 мг в/венно медленно.", 1мин)
	ВЫЗОВ_ВРАЧА("При рвоте Метоклопрамидиум 2мл в/в.", 1мин)
	ВЫЗОВ_ВРАЧА("При психомоторном возбуждении Диазепам 10 мг в/венно медленно дробно по 10 мг до купирования возбуждения Max. разовая доза 30 мг.", 1мин)
КОНЕЦ_БЛОКА
//===================================================================
БЛОК ОБРАБОТКА_ТЕМПЕРАТУРЫ()    
	//ТЕМПЕРАТУРА=ВВОД("Измерьте температуру тела", 30, 45)
	ЕСЛИ Темп<=35 то  
		ВЫЗОВ_ВРАЧА("Критически низкая температура тела (ТЕМП). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ТЕМП>=39.5 то  
		ВЫЗОВ_ВРАЧА("Критически высокая температура тела (ТЕМП). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================================================================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД>=160 то  
		ВЫЗОВ_ВРАЧА("Критически высокое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

//=========================================
БЛОК КОНТРОЛЬ_ВЧД()
	СПАТЬ(3мин)
	//АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ВЧД) // тревогу на критич ВЧД 20//25ммрт ст
	ВЧД=ВВОД("Оцените и введите ВЧД", 0, 25)
	ЕСЛИ ВЧД>ВЧД_НОРМА и приподнять_голову==0 то // уточнить ВЧД_НОРМА=10 мм рт ст
		ВЫЗОВ_ВРАЧА("Приподнимите голову пациента", 5 мин)
                приподнять_голову=1
		СПАТЬ(5мин)
	КОНЕЦ_ЕСЛИ
	ВЧД=ВВОД("Оцените и введите ВЧД", 0, 25)
	ЕСЛИ ВЧД>ВЧД_НОРМА то
	//ВЫЗОВ_ВРАЧА(Автоматичекий ввод Mannitol (15%-400 мл) 1,0 г/кг в/венно капельно)
	ИНФ_НОМЕР_МАННИТОЛ=ВВЕСТИ (3, Маннитол_15, МАССА*1000*КОЭФФ_МАННИТОЛ мл/час)
	СПАТЬ(20мин)
	КОНЕЦ_ЕСЛИ
	ВЧД=ВВОД("Оцените и введите ВЧД", 0, 25)
	ЕСЛИ ВЧД>ВЧД_НОРМА то
	//АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ПаСО2)!!!
	ВЫЗОВ_ВРАЧА ("Проводить гипервентиляцию до РаСО2 30-35 мм.рт.ст, до достижения нормы 30-35 мм.рт.ст.", 15 мин)
	//нормаПаСО2=30-35 мм рт ст
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

//========================================================================
БЛОК КОНТРОЛЬ_ДАВЛЕНИЯ()
	СПАТЬ(2мин)
	ЕСЛИ САД>= 220 или ДАД >=110 то
		ГИПЕРТЕНЗИЯ=ВЫБОР("Гипертензия. Использовать:", "Урапидил",1, "Каптоприл", 0)
		ЕСЛИ ГИПЕРТЕНЗИЯ==1 то
			ВВЕСТИ_БЫСТРО(1, Урапидил, 30*КОЭФФ_УРАПИДИЛ мл, в/в)
			СПАТЬ(2мин)
			ИНФ_НОМЕР_УРАПИДИЛ=ВВЕСТИ(1,Урапидил, 6*КОЭФФ_УРАПИДИЛ мл/час)
	
		иначе
			ВЫЗОВ_ВРАЧА("Каптоприл, сублингвально, 6-12.5мг", 2мин )
	
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (САД<=110 или ДАД <=60) и гипотензия==1 то
		
		ИНФ_НОМЕР_допамин=ВВЕСТИ(1,допамин, 20*МАССА*коэфф_допамин мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (САД<=110 или ДАД <=60) и гипотензия==0 то
		гипотензия=1
		ИНФ_НОМЕР_ГЭК=ВВЕСТИ(1,ГЭК_6, 200 мл/час)
	КОНЕЦ_ЕСЛИ
	
КОНЕЦ_БЛОКА

//вставить два блока из файла инсульт.док
//=============================================================================
БЛОК КОНТРОЛЬ_ГЛЮКОЗЫ()
	ВЫЗОВ_ВРАЧА("Возьмите анализ крови на глюкозу.", 2мин)
	СПАТЬ(10 мин)
	ГЛЮКОЗА=ВВОД("Введите показания глюкозы", 0, 40)
	ЕСЛИ ГЛЮКОЗА >10 то
		ИНФ_НОМЕР_ХЛ_СОД=ВВЕСТИ(2, Хлорид_Соды_09, 500 мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ГЛЮКОЗА < 2.8 то
		ИНФ_НОМЕР_ДЕКСТРОЗА=ВВЕСТИ(2, Декстроза_40, 20 мл/час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===============================================================================
БЛОК КОНТРОЛЬ_ТЕМПЕРАТУРЫ()
	СПАТЬ(5 мин)
	ЕСЛИ ТЕМП>37.5  то
		ЕСЛИ температура==0 то
		температура=1.0
		ВВЕСТИ_БЫСТРО(3, Метамизол_натрий_50, 2 мл, в/в)
		ВЫЗОВ_ВРАЧА("Положите криопакеты пациенту на бедра и подмышечные впадины", 1 мин)
	
	        иначе 
	        //температура=2
	        ВЫЗОВ_ВРАЧА("Парацетамол. Детям (15*МАССА) мг, свечи ректально, взрослым 0.5 г", 1 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================================================================================
БЛОК ШКАЛА_ГЛАЗГО()
//Переменные г1, г2, г3	
	МУЛЬТИВЫБОР("Шкала ГЛАЗГО(GLASGOW)", "Открывание глаз/Спонтанно=5/На речь=4/На боль=3/Не открывает=2", г1, "Речь/Разговаривает//Ориентирован=5/Разговаривает//Дезориентирован=4/Непонятные слова=3/Нечленораздельные звуки=2/Отсутсвует=1", г2, "Моторика/Выполняет команды=5/Целенаправленная на болевой раздражитель=4/Нецеленаправленная на болевой раздражитель=3/Тоническое сгибание=2/Тоническое разгибание=1/Отсутсвует=0", г3)
	ШКГ=г1+г2+г3
	ВЫХОД
КОНЕЦ_БЛОКА