//ТЭЛА диагностика и лечение стационар

Переменные: признаки_пж_недостаточности, песи, клиническая_вероятность, НИВЛ_подключен, Инсуфляция,  тропонин_повышен, ЭКГ, а1, а2, а3, а4, а5, а6, а7, а8, а9, а10, а11, м1, м2, м3, б1, б2, б3, б4, б5, б6, б7,  э1, э2, э3, э4, э5, эк1, эк2, эк3, эк4, эк5, шок, риск, мскт, эхо, подтверждение_тэла, д_димер, АЧТВ_нач, ИНФ_НОМЕР_нфг, ДОЗА_нфг, масса, АЧТВ, АЧТВ_контр, ДОЗА_ДОПАМИН, ДОЗА_НОРАДРЕНАЛИН, ИНФ_НОМЕР_ДОПАМИН, ИНФ_НОМЕР_НОРАДРЕНАЛИН, тромболизис, инф_номер_Стрептокиназа, инф_номер_Урокиназа, инф_номер_Альтеплаза, МАССА_83, реаним, антикоагулянт, доза_б, доза_ф, консилиум, масса_введена, д_димер_запрошен, гипотония_норадреналин, р1, р2,р3,р4,р5,р6,р7,р8,р9, МассивДата[6], ПеременнаяМинуты, коррекцию_проводить
БЛОК ВХОД
УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5 мин)
УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5 сек)
УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 1 мин)
АКТИВИРОВАТЬ_БЛОК(контроль_спо2, 1мин)
АКТИВИРОВАТЬ_БЛОК(обработка_ад, 2мин)
АКТИВИРОВАТЬ_БЛОК(МОРФИН, 60мин)
масса_введена=0
д_димер_запрошен=0
коррекцию_проводить=0
НИВЛ_подключен=0 
Инсуфляция=0
ЭКГ=0
//добавить диагност признаки ТЭЛА
ВЫЗОВ_ВРАЧА("Произведите съем ЭКГ", 1 мин)
МУЛЬТИВЫБОР("Диагностические признаки ТЭЛА", "Акцент второго тона при аскультации во втором межреберье по средней ключичной линии/Присутствует=1/(Отсутствует=0)", б1, "Набухание вен шеи/Присутствует=1/(Отсутствует=0)", б2, "Появление или резкое усиление одышки/Присутствует=1/(Отсутствует=0)", б4, "Синкопальное состояние/Присутствует=1/(Отсутствует=0)", б5, "Боли в грудной клетке/Присутствуют=1/(Отсутствуют=0)", б6, "Диффузный цианоз/Присутствует=1/(Отсутствует=0)", б7)
	ЕСЛИ СРАД<70 то
	б3=1
	иначе
	б3=0
	КОНЕЦ_ЕСЛИ
ЕСЛИ (б1+б2+б3)>=1 то
МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и или 0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", э1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э2, "депрессия сегмента ST 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э3,"инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э4, "кратковременный менее 20 минут подъем сегмента ST 0,1 мВ/(Отсутствует=0)/Присутствует=1", э5)
ЭКГ=1
	ЕСЛИ (э1+э2)>0 то
	ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма.Переход в алгоритм с подъёмом сегмента ST", 1мин)
	АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение стационарная")
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (э3+э4+э5)>0 то
		ВЫЗОВ_ВРАЧА("Для проведения диагностики необходимо снятие дополнительных отведений ЭКГ (V3R, V4R, V5R, V7R, V8R,V9R)", 1мин)
		МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и или  0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", эк1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", эк2, "депрессия сегмента ST 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", эк3,"инверсия/реверсия зубца Т/(Отсутствует=0)/Присутствует=1", эк4, "кратковременный менее 20 минут подъем сегмента ST 0,1 мВ/(Отсутствует=0)/Присутствует=1", эк5)
			ЕСЛИ (эк1+эк2)>0 то
			ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма. Переход в алгоритм с подъёмом сегмента ST", 1мин)
			АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение стационарная")
			КОНЕЦ_ЕСЛИ
		ЕСЛИ СРАД<70 и (б1+б2)>=1 и (эк3+эк4+эк5)>=0 то
		ВЫЗОВ_ВРАЧА("ТЭЛА вероятна", 1 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД<70 и (б1+б2)>=1 и (э1+э2+э3+э4+э5)==0 то
	ВЫЗОВ_ВРАЧА("ТЭЛА вероятна", 1 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
ЕСЛИ (б1+б2+б3)<1 то
МУЛЬТИВЫБОР("Оценка клинической вероятности ТЭЛА.", "Тромбоз глубоких вен или ТЭЛА в анамнезе/(Отсутствует=0)/Присутствует=1", а2, "Кровохарканье/(Отсутствует=0)/Присутствует=1", а3, "Онкозаболевание (в настоящее время, либо излечено в предшествующий год)/(Отсутствует=0)/Присутствует=1", а4, "Операция или перелом нижней конечности в предшествующий месяц/(Отсутствует=0)/Присутствует=1", а5, "Боль в ноге с одной стороны/(Отсутствует=0)/Присутствует=1", а6, "Болезненная пальпация по ходу глубоких вен и односторонний отек/(Отсутствуют=0)/Присутствуют=1", а7)
	ЕСЛИ станд_возраст<65 то
	а1=0
	иначе 
	а1=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС>95 то
		а9=2
		иначе
		а9=0
	КОНЕЦ_ЕСЛИ
			ЕСЛИ ЧСС>75 и ЧСС<94 то
			а8=1
			КОНЕЦ_ЕСЛИ
клиническая_вероятность=а1+а2+а3+а4+а5+а6+а7+а8+а9
ЕСЛИ ЭКГ==0 то
МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и или 0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", э1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э2, "депрессия сегмента ST 0.05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э3,"инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э4, "кратковременный менее 20 минут подъем сегмента ST 0.1 мВ/(Отсутствует=0)/Присутствует=1", э5)
		ЕСЛИ (э1+э2)>0 то
		ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма.Переход в алгоритм с подъёмом сегмента ST", 1мин)
		АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение стационарная")
		ОСТАНОВИТЬ_АЛГОРИТМ	
		КОНЕЦ_ЕСЛИ
	ЕСЛИ (э3+э4+э5)>0 то
		ВЫЗОВ_ВРАЧА("Для проведения диагностики необходимо снятие дополнительных отведений ЭКГ (V3R, V4R, V5R, V7R, V8R,V9R)", 1мин)
		МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и или  0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", эк1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", эк2, "депрессия сегмента ST 0.05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", эк3,"инверсия/реверсия зубца Т/(Отсутствует=0)/Присутствует=1", эк4, "кратковременный менее 20 минут подъем сегмента ST 0.1 мВ/(Отсутствует=0)/Присутствует=1", эк5)
			ЕСЛИ (эк1+эк2)>0 то
			ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма. Переход в алгоритм с подъёмом сегмента ST", 1мин)
			АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение стационарная")
				ЕСЛИ (эк3+эк4+эк5)==0 то
					ЕСЛИ  клиническая_вероятность>3 то
					ВЫЗОВ_ВРАЧА("Диагноз ТЭЛА вероятен", 1 мин)
					клиническая_вероятность=1
					КОНЕЦ_ЕСЛИ
					ЕСЛИ  клиническая_вероятность<=3 то
					ВЫЗОВ_ВРАЧА("ТЭЛА маловероятна",5 мин)
					клиническая_вероятность=0
					КОНЕЦ_ЕСЛИ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (э1+э2+э3+э4+э5)==0 то
		ЕСЛИ  клиническая_вероятность>3 то
					ВЫЗОВ_ВРАЧА("Диагноз ТЭЛА вероятен", 1 мин)
					клиническая_вероятность=1
					КОНЕЦ_ЕСЛИ
					ЕСЛИ  клиническая_вероятность<=3 то
					ВЫЗОВ_ВРАЧА("ТЭЛА маловероятна",5 мин)
					клиническая_вероятность=0
					КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
ЕСЛИ (б4+б5+б6+б7)>=1 и клиническая_вероятность>3 и (э1+э2+э3+э4+э5)==0 то 
ВЫЗОВ_ВРАЧА("Диагноз ТЭЛА вероятен", 1 мин)
клиническая_вероятность=1
КОНЕЦ_ЕСЛИ
ЕСЛИ (б4+б5+б6+б7)<=1 и клиническая_вероятность<=3 и (э1+э2+э3+э4+э5)==0 то 
ВЫЗОВ_ВРАЧА("Диагноз ТЭЛА маловероятен, переход в экспертный режим", 1 мин)
ОСТАНОВИТЬ_АЛГОРИТМ	
КОНЕЦ_ЕСЛИ
МУЛЬТИВЫБОР("Оценка риска по упрощённой шкале PESI", "Злокачественное новообразование/(Отсутствует=0)/Присутствует=1", а2, "Хроническое заболевание лёгких/(Отсутствует=0)/Присутствует=1", а4, "SaO2/(>=90%=0)/<90%=1", а7)
ЕСЛИ ЧСС>=110 то
	а5=1
КОНЕЦ_ЕСЛИ
ЕСЛИ САД<100 то
	а6=1
КОНЕЦ_ЕСЛИ
ЕСЛИ станд_возраст<81 то
а1=0
иначе 
а1=1
КОНЕЦ_ЕСЛИ
песи=а1+а2+а4+а5+а6+а7
ЕСЛИ песи>=1 то
	ВЫЗОВ_ВРАЧА("Ожидаемая смертность в ближайшие 30 дней составляет 10,9%.", 20 мин)
иначе 
ВЫЗОВ_ВРАЧА("Ожидаемая смертность в ближайшие 30 дней составляет 1,0 %.", 20 мин)
КОНЕЦ_ЕСЛИ



шок=ВЫБОР("Наблюдалось беспричинное снижение АД более чем на 40 мм.рт.ст. за последние 15 минут.", "Неверно", 0, "Верно",1, "Неизвестно", 0)


ЕСЛИ шок==1 или САД<90 или ДАД<50  то
	ВЫЗОВ_ВРАЧА("Предварительный диагноз - ТЭЛА с высоким риском летального исхода.", 20 мин)
	риск=3
	мскт=ВЫБОР("Есть клиническая возможность проведения Мультиспиральной КТ?", "Да", 1, "Нет", 0)
	эхо=ВЫБОР("Есть клиническая возможность проведения Эхо-КГ?", "Да", 1, "Нет", 0)
	
иначе
	ВЫЗОВ_ВРАЧА("Забор крови на анализ Д-димера.", 60 мин)
	д_димер=ВЫБОР("Определите Д-димер.", "Д-димер в норме", 0, "Д-димер повышен", 1)
	д_димер_запрошен=1
	ЕСЛИ д_димер==0 то
			ВЫЗОВ_ВРАЧА("ТЭЛА не диагностирована, специфического лечения не требуется, поиск иных причин.", 30 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
	иначе
		мскт=ВЫБОР("Есть клиническая возможность проведения Мультиспиральной КТ?", "Да", 1, "Нет", 0)
		эхо=ВЫБОР("Есть клиническая возможность проведения Эхо-КГ?", "Да", 1, "Нет", 0)
		ЕСЛИ мскт==1 то
			ВЫЗОВ_ВРАЧА("Проведите МСКТ.", 30 мин)
			подтверждение_тэла=ВЫБОР("По результатам Мультиспиральной КТ диагноз ТЭЛА", "не подтверждён", 0, "подтверждён", 1)
			ЕСЛИ подтверждение_тэла==0 то
				ВЫЗОВ_ВРАЧА("ТЭЛА не диагностирована, специфического лечения не требуется, поиск иных причин.", 30 мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе   
				ВЫЗОВ_ВРАЧА("Забор крови на анализ тропонина. Выполнить трансторакальное Эхо-КГ исследование.", 30 мин)
				Мультивыбор("Укажите признаки среднего риска", "Есть признаки правожелудочковой недостаточности (дилатация, гипокинез ПЖ), легочная гипертензия/(Верно=0)/Верно=1/Неизвестно=0", признаки_пж_недостаточности, "Повышен уровень тропонина/(Неверно=0)/Верно=1", тропонин_повышен)
				ЕСЛИ признаки_пж_недостаточности==1 и тропонин_повышен==1 и песи>0 то
					ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА с промежуточным высоким риском летального исхода.", 20 мин)
					риск=2
				иначе
					ЕСЛИ признаки_пж_недостаточности==1 или тропонин_повышен==1 или песи>0 то
						ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА с промежуточным низким риском летального исхода.", 20 мин)
						риск=1
					иначе
						ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА с низким риском летального исхода.", 20 мин)
						риск=0
					КОНЕЦ_ЕСЛИ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ мскт==0 и эхо==1 то
			ВЫЗОВ_ВРАЧА("Забор крови на анализ тропонина. Выполнить трансторакальное Эхо-КГ исследование.", 30 мин)
				Мультивыбор("Укажите признаки среднего риска", "Есть признаки правожелудочковой недостаточности (дилатация, гипокинез ПЖ), легочная гипертензия/(Неверно=0)/Верно=1/Неизвестно=0", признаки_пж_недостаточности, "Повышен уровень тропонина/(Неверно=0)/Верно=1", тропонин_повышен)
				ЕСЛИ признаки_пж_недостаточности==1 и тропонин_повышен==1 и песи>0 то
					ВЫЗОВ_ВРАЧА("Вероятна ТЭЛА с промежуточным риском летального исхода.", 20 мин)
					риск=1 // без ТЛТ тк не подтверждён
				иначе
					ЕСЛИ признаки_пж_недостаточности==1 или тропонин_повышен==1 или песи>0 то
						ВЫЗОВ_ВРАЧА("Вероятна ТЭЛА с промежуточным риском летального исхода.", 20 мин)
						риск=1
					иначе
						ВЫЗОВ_ВРАЧА("ТЭЛА маловероятна. Окажите экстренную симптоматическую помощь. Поиск иных причин.", 20 мин)
						ОСТАНОВИТЬ_АЛГОРИТМ
					КОНЕЦ_ЕСЛИ
				КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	
КОНЕЦ_ЕСЛИ


//*******кусок при недоступности мскт эхо-кг
ЕСЛИ мскт==0 и эхо==0 то
	ЕСЛИ д_димер_запрошен==0 то
	ВЫЗОВ_ВРАЧА("Забор крови на анализ Д-димера.", 60 мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Необходимо проведение обзорной рентгенографии грудной клетки и исследование ЭКГ.", 30 мин)
	МУЛЬТИВЫБОР("Результаты клинических исследований.", "Расширение корней лёгких/(Отсутствует=0)/Присутствует=1",а1, "Плевральный выпот/(Отсутствует=0)/Присутствует=1", а2, "SI-QIII/(Отсутствует=0)/Присутствует=1", а3, "Блокада правой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", а4, "Д-димер/(В норме=0)/Повышен=1", а5 ,"Наблюдалось беспричинное снижение АД более чем на 40 мм.рт.ст. за последние 15 минут/(Неверно=0)/Верно=1", а6)	
	ЕСЛИ (а1+а2+а3+а5>0 и а4==1) или (клиническая_вероятность==1 и а4==1) то 
		ВЫЗОВ_ВРАЧА("Вероятна ТЭЛА. Показана антикоагулянтная терапия.", 20 мин)
		АКТИВИРОВАТЬ_БЛОК(лечение_без_ТЛТ, 1 мин)
	иначе
		ВЫЗОВ_ВРАЧА("ТЭЛА маловероятна. Окажите симптоматическую помощь.", 30 мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	//коррекция гипотонии
	ЕСЛИ САД<60 то
		ДОЗА_НОРАДРЕНАЛИН=1
			ЕСЛИ масса_введена==0 то
			МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250,станд_вес)
			масса_введена=1
			КОНЕЦ_ЕСЛИ
		Доза(1, "мкг/кгмин")
		ИНФ_НОМЕР_НОРАДРЕНАЛИН=ВВЕСТИ_НАЧАТЬ(3, норадреналин, 0.001*МАССА*60 мг/час)
		гипотония_норадреналин=1
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		Вызов_Врача("Коррекция дозы вводимых препаратов через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 15 мин )
		АКТИВИРОВАТЬ_БЛОК(коррекция_гипотонии, 1сек)
		СПАТЬ(30 сек)
	иначе
		ЕСЛИ САД<90 или ДАД<50 то
			ЕСЛИ масса_введена==0 то
			МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250,станд_вес)
			масса_введена=1
			КОНЕЦ_ЕСЛИ
		ДОЗА_ДОПАМИН=3
		Доза(3, "мкг/кгмин")
		ИНФ_НОМЕР_ДОПАМИН=ВВЕСТИ_НАЧАТЬ(2, допамин, 0.003*МАССА*60 мг/час)  //доза 3 мкг/кг*мин
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		Вызов_Врача("Коррекция дозы вводимых препаратов через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 15 мин )
		АКТИВИРОВАТЬ_БЛОК(коррекция_гипотонии, 1сек)
		СПАТЬ(30 сек)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ

	
КОНЕЦ_ЕСЛИ
//*******конец кусок при недоступности мскт эхо-кг


ЕСЛИ риск==3 то

	ЕСЛИ мскт==1 то
		ВЫЗОВ_ВРАЧА("Проведите МСКТ.", 30 мин)
		подтверждение_тэла=ВЫБОР("По результатам Мультиспиральной КТ диагноз ТЭЛА", "не подтверждён", 0, "подтверждён", 1)
		ЕСЛИ подтверждение_тэла==0 то
			ВЫЗОВ_ВРАЧА("Окажите экстренную симптоматическую помощь, проведите поиск других причин шока. Завершение работы алгоритма.", 30 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
//лечение высок ТЭЛА
			ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА с высоким риском летального исхода.", 20 мин)
			АКТИВИРОВАТЬ_БЛОК(лечение_ТЛТ, 1 мин)
		КОНЕЦ_ЕСЛИ
	иначе //если мскт==0
		ЕСЛИ эхо==1 то
		ВЫЗОВ_ВРАЧА("Необходимо проведение трансторакальной Эхо-КГ.", 30 мин)
		подтверждение_тэла=ВЫБОР("По результатам исследования Эхо-КГ", "есть признаки дисфункции правого желудочка (дилатация, гипокинез ПЖ), легочная гипертензия", 1, "нет признаков  дисфункции правого желудочка", 0)
		ЕСЛИ подтверждение_тэла==0 то
			ВЫЗОВ_ВРАЧА("Окажите экстренную симптоматическую помощь, проведите поиск других причин шока. Завершение работы алгоритма.", 30 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА с высоким риском летального исхода.", 20 мин)
			АКТИВИРОВАТЬ_БЛОК(лечение_ТЛТ, 1 мин)
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
иначе // если риск== 0 1 2
	если риск==2 то
		ВЫЗОВ_ВРАЧА("Целесообразность проведения ТЛТ в случае ТЭЛА высокого промежуточного риска определяется консилиумом.", 60 мин)
		консилиум=ВЫБОР("Проводить ТЛТ?", "Нет", 0, "Да", 1)
		ЕСЛИ консилиум ==1 то
			АКТИВИРОВАТЬ_БЛОК(лечение_ТЛТ, 1 мин)
		иначе
			АКТИВИРОВАТЬ_БЛОК(лечение_без_ТЛТ, 1 мин)
		КОНЕЦ_ЕСЛИ
	иначе
		АКТИВИРОВАТЬ_БЛОК(лечение_без_ТЛТ, 1 мин)
	КОНЕЦ_ЕСЛИ
			
КОНЕЦ_ЕСЛИ //конец если риск==3
//конец_ЕСЛИ//конец если мскт==1 или эхо==1 то
	
КОНЕЦ_БЛОКА
//=========================
БЛОК антикоагулянтная_терапия()
	ЕСЛИ антикоагулянт==1 то
		СПАТЬ(6 час)
	ВЫЗОВ_ВРАЧА("Забор крови на анализ АЧТВ.", 10 мин)
	АЧТВ=ВВОД("Введите показатель АЧТВ, (сек).", 10, 240)
	АЧТВ_контр=ВВОД("Введите показатель верхней границы нормы для вашей лаборатории, (сек).", 10, 240)
			ЕСЛИ масса_введена==0 то
			МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250,станд_вес)
			ДОЗА_нфг=18*МАССА
			масса_введена=1
			КОНЕЦ_ЕСЛИ
	ДОЗА_нфг=18*МАССА
	ЕСЛИ (АЧТВ/АЧТВ_контр)<=1.2 то
		ЕСЛИ МАССА>=63 то 
		МАССА=62.5
		КОНЕЦ_ЕСЛИ
		ВВЕСТИ_БЫСТРО(0, нфг, 80*МАССА ед, в/в)
		ДОЗА_нфг=ДОЗА_нфг+4
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_нфг, нфг, ДОЗА_нфг Ед/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (АЧТВ/АЧТВ_контр)>1.2 и (АЧТВ/АЧТВ_контр)<=1.5 то
		ВВЕСТИ_БЫСТРО(0, нфг, 40*МАССА ед, в/в)
		ДОЗА_нфг=ДОЗА_нфг+2
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_нфг, нфг, ДОЗА_нфг ЕД/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (АЧТВ/АЧТВ_контр)>1.5 и (АЧТВ/АЧТВ_контр)<=2.3 то
	ВЫЗОВ_ВРАЧА("Продолжать терапию без изменений в прежней дозе", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (АЧТВ/АЧТВ_контр)>2.3 и (АЧТВ/АЧТВ_контр)<=3.0 то
		ДОЗА_нфг=ДОЗА_нфг-2
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_нфг, нфг, ДОЗА_нфг Ед/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (АЧТВ/АЧТВ_контр)>3 то
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_нфг)
		СПАТЬ(1час)
		ДОЗА_нфг=ДОЗА_нфг-3
		ИНФ_НОМЕР_нфг=ВВЕСТИ_НАЧАТЬ(0, нфг, ДОЗА_нфг Ед/час)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ антикоагулянт==2 то
		СПАТЬ (12 час)
		ВЫЗОВ_ВРАЧА("Введите Эноксапарин подкожно "+строка(масса)+" мг.", 20 мин )	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ антикоагулянт==3 то
		СПАТЬ (12 час)
		ВЫЗОВ_ВРАЧА("Введите Дальтепарин подкожно "+строка(100*масса)+" Ед.", 20 мин )
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========================================
БЛОК коррекция_гипотонии()
	СПАТЬ(5мин)
	ЕСЛИ САД<90 и гипотония_норадреналин==0 то
		ПОКА ДОЗА_ДОПАМИН<=19 и САД<110
		ДОЗА_ДОПАМИН=ДОЗА_ДОПАМИН+1
		Доза(ДОЗА_ДОПАМИН, "мкг/кг/мин")
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_ДОПАМИН, допамин, ДОЗА_ДОПАМИН*0.001*МАССА*60 мг/час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		Вызов_Врача("Коррекция дозы вводимых препаратов через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 15 мин )
		СПАТЬ(5 мин)
		КОНЕЦ_ПОКА		
		коррекцию_проводить=1
	КОНЕЦ_ЕСЛИ
ЕСЛИ САД<90 и ДОЗА_ДОПАМИН==20 то 
гипотония_норадреналин=1
ДОЗА_НОРАДРЕНАЛИН=1
КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>100 и САД<120 и гипотония_норадреналин==0 и ДОЗА_ДОПАМИН>1 то
		ДОЗА_ДОПАМИН=ДОЗА_ДОПАМИН-1
		Доза(ДОЗА_ДОПАМИН, "мкг/кг/мин")
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_ДОПАМИН, допамин, ДОЗА_ДОПАМИН*0.001*МАССА*60 мг/час)
		коррекцию_проводить=1
	КОНЕЦ_ЕСЛИ
ЕСЛИ САД<90 и ДОЗА_ДОПАМИН==20 то 
гипотония_норадреналин=1
ДОЗА_НОРАДРЕНАЛИН=1
КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<90 и САД<120 и гипотония_норадреналин==1 то
		ДОЗА_НОРАДРЕНАЛИН=ДОЗА_НОРАДРЕНАЛИН+1
		Доза(ДОЗА_НОРАДРЕНАЛИН, "мкг/кг/мин")
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_НОРАДРЕНАЛИН, норадреналин, ДОЗА_НОРАДРЕНАЛИН*0.001*МАССА*60 мг/час)
		коррекцию_проводить=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>100 и САД<120 и гипотония_норадреналин==0  и ДОЗА_НОРАДРЕНАЛИН>1 то
		ДОЗА_НОРАДРЕНАЛИН=ДОЗА_НОРАДРЕНАЛИН-1
		Доза(ДОЗА_НОРАДРЕНАЛИН, "мкг/кг/мин")
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_НОРАДРЕНАЛИН, норадреналин, ДОЗА_НОРАДРЕНАЛИН*0.001*МАССА*60 мг/час)
		коррекцию_проводить=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>=120 то
ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ДОПАМИН)
ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_НОРАДРЕНАЛИН)
	КОНЕЦ_ЕСЛИ
ЕСЛИ коррекцию_проводить==0 то
		ВЫЗОВ_ВРАЧА("На данном этапе коррекцию вводимых препаратов проводить не требуется.", 20 мин)
	КОНЕЦ_ЕСЛИ
	коррекцию_проводить=0
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+5
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("Коррекция дозы вводимых препаратов через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 15 мин )
		иначе
		Вызов_Врача("Коррекция дозы вводимых препаратов через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 15 мин )
		КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==============
БЛОК терапия_тромболизис()
	тромболизис=ВЫБОР("Выберите препарат для проведения тромболизиса:", "Стрептокиназа", 1, "Урокиназа", 2, "Альтеплаза", 3)
	реаним=ВЫБОР("Выбрать режим ускоренного введения (в частности,используется при проведении реанимационных мероприятий)?", "Нет", 0, "Да", 1)
	ЕСЛИ тромболизис==1 то
	ЕСЛИ реаним==0 то
		инф_номер_Стрептокиназа=ВВЕСТИ_НАЧАТЬ(2, Стрептокиназа, 500000*2 ЕД/час, 30 мин)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+30
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей коррекция скорости введения Стрептокиназы через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей коррекция скорости введения Стрептокиназы через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(30 мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_Стрептокиназа, Стрептокиназа, 100000 ЕД/час)//, 12час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+12*60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 12 часов (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 12 часов (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(12 час)
		закончить_введение(инф_номер_Стрептокиназа)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		инф_номер_Стрептокиназа=ВВЕСТИ_НАЧАТЬ(2, Стрептокиназа, 7500000 ЕД/час, 2 час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+120
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(2час)
		закончить_введение(инф_номер_Стрептокиназа)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тромболизис==2 то
	ЕСЛИ реаним==0 то
	    ВЫЗОВ_ВРАЧА("Инфузия урокиназы в дозе 4400 Ед на кг за 15 минут", 1мин)  
		инф_номер_Урокиназа=ВВЕСТИ_НАЧАТЬ(2, Урокиназа, 4400*4*МАССА ЕД/час, 15 мин)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+15
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей коррекция скорости введения Урокиназы через 15 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей коррекция скорости введения Урокиназы через 15 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(15 мин)
		Доза(4400, "Ед/кг/час")
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_Урокиназа, Урокиназа, 4400*МАССА Ед/час)//, 12час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+12*60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 12 часов (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 12 часов (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(12 час)
		закончить_введение(инф_номер_Урокиназа)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		ВЫЗОВ_ВРАЧА("Введение урокиназы 3 млн МЕ за 2 ч", 1мин)
		инф_номер_Урокиназа=ВВЕСТИ_НАЧАТЬ(2, Урокиназа, 1500000 ЕД/час, 2 час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+120
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(2час)
		закончить_введение(инф_номер_Урокиназа)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тромболизис==3 то
	ЕСЛИ реаним==0 то
		ВВЕСТИ_БЫСТРО(2, Альтеплаза, 10 мг, в/в)
		СПАТЬ (2мин)
		ВЫЗОВ_ВРАЧА("Введите 90 мг альтеплазы за 2 часа", 1 мин)
		Вводить_и_ждать(2, Альтеплаза, 45 мг/час,2час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+120
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 2 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(2 час)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		ЕСЛИ МАССА> 83 то
		МАССА_83=83
		иначе
		МАССА_83=МАССА
		КОНЕЦ_ЕСЛИ
		Доза(0.6*4, "мг/кг/час")
		инф_номер_Альтеплаза=ВВЕСТИ_НАЧАТЬ(2, Альтеплаза, 0.6*МАССА_83*4 мг/час, 15мин)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+15
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 15 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей окончание тромболизиса через 15 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(15 мин)
		закончить_введение(инф_номер_Альтеплаза)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	выход
КОНЕЦ_БЛОКА

//=====================
БЛОК лечение_ТЛТ()
		ВЫЗОВ_ВРАЧА("Необходимо проведение антикоагулянтной терапии.", 20 мин)
		антикоагулянт=ВЫБОР("Выберите антикоагулянт", "Нефракционированный гепарин ", 1, "Эноксапарин", 2, "Дальтепарин (в случае наличия онкологических заболеваний)", 3, "Фондапаринукс (арикстра)", 4, "Бемипарин (цибор)", 5)
		ЕСЛИ масса_введена==0 то
			МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250,станд_вес)
			ДОЗА_нфг=18*МАССА
			масса_введена=1
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==1 то
			ВЫЗОВ_ВРАЧА("Забор крови на анализ АЧТВ.", 30 мин)
			АЧТВ_нач=ВВОД("Введите показатель АЧТВ, (сек).", 10, 240)
			ВВЕСТИ_БЫСТРО(0, нфг, 5000 ед, в/в)
			СПАТЬ(60 сек)
			ИНФ_НОМЕР_нфг=ВВЕСТИ_НАЧАТЬ(0, нфг, ДОЗА_нфг Ед/час)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==2 то
			ВЫЗОВ_ВРАЧА("Введите Эноксапарин подкожно "+строка(масса)+" мг.", 20 мин )	
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==3 то
			ВЫЗОВ_ВРАЧА("Введите Дальтепарин подкожно "+строка(100*масса)+" Ед.", 20 мин )
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==4 то
				ЕСЛИ МАССА<50 то 
				доза_ф=5
				КОНЕЦ_ЕСЛИ
				ЕСЛИ МАССА>=50 и МАССА<100 то 
				доза_ф=7.5
				КОНЕЦ_ЕСЛИ
				ЕСЛИ МАССА>=100 то 
				доза_ф=10
				КОНЕЦ_ЕСЛИ
			ВЫЗОВ_ВРАЧА("Введите Фондапаринукс подкожно "+строка(доза_ф)+" мг.", 20 мин )
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==5 то
				ЕСЛИ МАССА<50 то 
				доза_б=5000
				КОНЕЦ_ЕСЛИ
				ЕСЛИ МАССА>=50 и МАССА<70 то 
				доза_б=7500
				КОНЕЦ_ЕСЛИ
				ЕСЛИ МАССА>=100 то 
				доза_б=115*МАССА
				КОНЕЦ_ЕСЛИ
			ВЫЗОВ_ВРАЧА("Введите Бемипарин подкожно "+строка(доза_б)+" МЕ.", 20 мин )
		КОНЕЦ_ЕСЛИ
		АКТИВИРОВАТЬ_БЛОК(антикоагулянтная_терапия, 1мин)
			СПАТЬ(10 сек)
			ЕСЛИ риск==3 и САД<90 то //коррекция АД только при ТЭЛА высокого риска
				ДОЗА_ДОПАМИН=3
				Доза(3, "мкг/кгмин")
				ИНФ_НОМЕР_ДОПАМИН=ВВЕСТИ_НАЧАТЬ(100, допамин, 0.003*МАССА*60 мг/час)  //доза 3 мкг/кг*мин
				СПАТЬ(10 мин)
				АКТИВИРОВАТЬ_БЛОК(коррекция_гипотонии, 1сек)
				СПАТЬ(30 сек)
			КОНЕЦ_ЕСЛИ

			МУЛЬТИВЫБОР("Абсолютные противопоказания к проведению тромболизиса:", "ранее перенесенный геморрагический инсульт или НМК неизвестной этиологии/(Отсутствует=0)/Присутствует=1", р1, "ишемический инсульт, перенесенный в течение последних 6-и месяцев/(Отсутствует=0)/Присутствует=1", р2, "повреждения ЦНС или ее новообразования или артериовенозные мальформации/(Отсутствуют=0)/Присутствуют=1", р3, "недавняя серьёзная травма, хирургическое вмешательство, травма головы (в течение предыдущих 3-х недель)/(Отсутствует=0)/Присутствует=1", р4, "желудочно-кишечное кровотечение (в течение последнего месяца)/(Отсутствует=0)/Присутствует=1", р5, "геморрагический диатез (кроме menses)/(Отсутствует=0)/Присутствует=1", р6, "расслоение аорты/(Отсутствует=0)/Присутствует=1", р7, "пункция некомпрессируемых сосудов (биопсия печени,спинно-мозговая пункция) в течение последних суток/(Отсутствует=0)/Присутствует=1", р8)
			ЕСЛИ р1+р2+р3+р4+р5+р6+р7+р8>0 то
				ВЫЗОВ_ВРАЧА("Тромболизис абсолютно противопоказан. Рассмотрите варианты хирургического вмешательства (хирургическая эмболэктомия и/или катетерная эмболэктомия и фрагментация тромба).", 10мин)
			иначе
				МУЛЬТИВЫБОР("Относительные противопоказания:", "транзиторная ишемическая атака в предыдущие 6 месяцев/(Отсутствует=0)/Присутствует=1", р1, "плохо контролируемая АГ (в момент госпитализации САД >180 мм.рт.ст. или ДАД>110 мм.рт.ст.)/(Отсутствует=0)/Присутствует=1", р2, "тяжелое заболевание печени/(Отсутствует=0)/Присутствует=1", р3, "инфекционный эндокардит/(Отсутствует=0)/Присутствует=1", р4, "травматичная или длительная (>10 мин) сердечно-легочная реанимация/(Отсутствует=0)/Присутствует=1", р5, "при использовании стрептокиназы, введение стрептокиназы, в т.ч.модифицированной, более 5 суток назад или известная аллергия на нее/(Отсутствует=0)/Присутствует=1", р6, "беременность и 1-я неделя после родов/(Отсутствует=0)/Присутствует=1", р7, "обострение язвенной болезни/(Отсутствует=0)/Присутствует=1", р8, "прием антагонистов витамина К (чем выше МНО, тем выше риск кровотечения)/(Отсутствовал=0)/Присутствовал=1", р9)
				ВЫЗОВ_ВРАЧА("Хирургические методы лечения показаны больным, которые нуждаются в сердечно-легочной реанимации, больным с открытым овальным окном и внутрисердечным тромбозом, а так же в случае неэффективности тромболизиса. ", 20 мин)
				ЕСЛИ р1+р2+р3+р4+р5+р6+р7+р8+р9>0 то
					тромболизис=ВЫБОР("Решение о целесообразности тромболизиса должен принять консилиум.", "Тромболизис показан.", 1, "Тромболизис не показан.", 0)
				ЕСЛИ тромболизис==1 то
					ВЫЗОВ_ВРАЧА("Начать тромболизис.", 20мин)
					АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 1 сек)
				КОНЕЦ_ЕСЛИ
				иначе
					тромболизис=ВЫБОР("Принять решение о целесообразности тромболизиса", "Тромболизис показан.", 1, "Тромболизис не показан.", 0)
					ЕСЛИ тромболизис==1 то
						ВЫЗОВ_ВРАЧА("Начать тромболизис.", 20мин)
						АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 1 сек)
					КОНЕЦ_ЕСЛИ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
	
	выход
КОНЕЦ_БЛОКА

//=====================
БЛОК лечение_без_ТЛТ()
		ВЫЗОВ_ВРАЧА("Необходимо проведение антикоагулянтной терапии.", 20 мин)
		антикоагулянт=ВЫБОР("Выберите антикоагулянт", "Нефракционированный гепарин", 1, "Эноксапарин", 2, "Дальтепарин (в случае наличия онкологических заболеваний)", 3)
		ЕСЛИ масса_введена==0 то
			МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250)
			ДОЗА_нфг=18*МАССА
			масса_введена=1
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==1 то
			ВЫЗОВ_ВРАЧА("Забор крови на анализ АЧТВ.", 30 мин)
			АЧТВ_нач=ВВОД("Введите показатель АЧТВ, (сек).", 10, 240)
			ВВЕСТИ_БЫСТРО(0, нфг, 5000 ед, в/в)
			СПАТЬ(60 сек)
			ИНФ_НОМЕР_нфг=ВВЕСТИ_НАЧАТЬ(1, нфг, ДОЗА_нфг Ед/час)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==2 то
			ВЫЗОВ_ВРАЧА("Введите Эноксапарин подкожно "+строка(масса)+" мг.", 20 мин )	
		КОНЕЦ_ЕСЛИ
		ЕСЛИ антикоагулянт==3 то
			ВЫЗОВ_ВРАЧА("Введите Дальтепарин подкожно "+строка(100*масса)+" Ед.", 20 мин )
		КОНЕЦ_ЕСЛИ
		АКТИВИРОВАТЬ_БЛОК(антикоагулянтная_терапия, 1мин)
		ВЫЗОВ_ВРАЧА("Тромболизис не показан.", 20 мин)
		выход
		
КОНЕЦ_БЛОКА
//==========================
БЛОК контроль_спо2()
	ЕСЛИ СПО2<94 и НИВЛ_подключен==0 и Инсуфляция==0 то
		ВЫЗОВ_ВРАЧА("Инсуффляция О2 через носовые канюли, скорость потока 4-8 л/мин (SpO2)", 5мин)
		Инсуфляция=1
		СПАТЬ(2 мин)
	КОНЕЦ_ЕСЛИ

	ЕСЛИ СПО2>=90 и СПО2<95 и НИВЛ_подключен==0 и Инсуфляция==1 то
	    ВЫЗОВ_ВРАЧА("Проверьте правильность работы инсуффлятора (SpO2)", 2мин) 
		Инсуфляция=2
		СПАТЬ(2 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<90 и НИВЛ_подключен==0 и инсуфляция==2 то
		ВЫЗОВ_ВРАЧА("Подключите НИВЛ", 10мин)
		НИВЛ_подключен=1
		СПАТЬ(2 мин)
        КОНЕЦ_ЕСЛИ

	ЕСЛИ СПО2<90 и НИВЛ_подключен==1 то
	    ВЫЗОВ_ВРАЧА("Низкое SpO2 (SpO2)! Проверьте правильность работы НИВЛ", 2мин)
		СПАТЬ(2 мин)  
		НИВЛ_подключен=2  
	КОНЕЦ_ЕСЛИ  
КОНЕЦ_БЛОКА
//======================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). Завершение работы алгоритма.Переход в экспертный режим", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД>=140 то  
		ВЫЗОВ_ВРАЧА("Критически высокое среднее АД (СРАД). Завершение работы алгоритма.Переход в экспертный режим", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//___________
БЛОК МОРФИН()
СПАТЬ(10 мин)
МУЛЬТИВЫБОР("Присутствует ли у пациента:", "Выраженная одышка/(Отсутствует=0)/Присутствует=1",м1, "Болевой синдром/(Отсутствует=0)/Присутствует=1", м2,"Выраженное психомоторное возбуждение/(Отсутствует=0)/Присутствует=1", м3)
	ЕСЛИ (м1+м2+м3)>0 то
	ВЫЗОВ_ВРАЧА("Подготовить раствор морфина 10 мг в физиологическом растворе 20 мл.", 1мин)
		ЕСЛИ САД<100 то
		ВЫЗОВ_ВРАЧА("Низкое систолическое давление, введение под контролем врача", 1 мин)
		КОНЕЦ_ЕСЛИ
	Разведение("2х20")
	ВВЕСТИ_БЫСТРО(1, Морфин, 2 мг, в/в)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

















