//Дифференциальная диагностика стационар

Переменные:сознание, пульс, дыхание, цвет_кожи, асимметрия, гнойник, лейкоциты, гемоглобин, гематокрит, глюкоза, тахикардия, зубцы_П, КуРС, а1, а2, а3, а4, а5, ф1, ф2, ф3, э1, э2, э3, э4, э5, э6, пиковая_скорость_вдоха, астма\
	дисфункция_пж, тропонин, падение_АД, , а6, а7, а8, отек1, отек2, отек3, ФиО2, отек, а, ликвор_кровь, ликвор_мутный, шок, тэла, изменения_ЭКГ,\
	свист_немое_легкое, признаки_хирургии, влажные_хрипы, НИВЛ_подключен, индекс_алговера, кровотечение, ИВЛ_подключен, боль_груди, боль_животе, САД_анамнез,\
	гипертония, ОКС_отсутствует, одышка, д_димер, кщс

БЛОК ВХОД
	ОКС_отсутствует=0
	ИВЛ_подключен=0
	пульс=ВЫБОР("Проверьте пульс на сонной артерии.", "пульс присутствует", 1, "пульс отсутствует", 0)
	ЕСЛИ пульс==0 то	//
		ВЫЗОВ_ВРАЧА("Запустите алгоритм сердечно-лёгочной реанимации!", 20 мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	дыхание=ВЫБОР("Проверьте дыхание.", "дыхание присутствует", 1, "дыхание отсутствует", 0)
		ЕСЛИ дыхание==0 то
			ВЫЗОВ_ВРАЧА("Проведите интубацию! Подключите пациента к ИВЛ.", 20 мин)
			ИВЛ_подключен=1
		КОНЕЦ_ЕСЛИ
	НИВЛ_подключен=0
	САД_анамнез=-1
	лейкоциты=-1 
	гемоглобин=-1
	гематокрит=-1
	кровотечение=-1
	а=0.0
	изменения_ЭКГ=0
	отек=0.0
	ФиО2=0.0
	астма=0
	тэла=0
	ВЫЗОВ_ВРАЧА("Обеспечить доступный венозный доступ.", 20мин)
	ВЫЗОВ_ВРАЧА("Забор крови на анализы Hb (гемоглобин) и Ht (гематокрит), а так же Glc (глюкоза) и L (лейкоциты).", 20мин)
	ВЫЗОВ_ВРАЧА("Подключите датчики комплекса к пациенту.", 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СпО2, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(Темп, 30 мин)
	АКТИВИРОВАТЬ_БЛОК(контроль_ЧСС, 5 сек)
	индекс_алговера=ЧСС/САД
	ЕСЛИ индекс_алговера>1 то
		ВЫЗОВ_ВРАЧА("Подозрение на геморрагический шок. Произведите поиск видимых очагов кровотечения.", 5 мин)
		кровотечение= ВЫБОР("Очаг(и) кровотечения", "не найден(ы)", 0, "найден(ы)", 1 )
		ЕСЛИ кровотечение==1 то
			ВЫЗОВ_ВРАЧА("Остановите кровотечение. Диагностирован геморрагический шок. Запустите соответствующий алгоритм.", 5мин)
		иначе
			ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага кровотечения сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости, при необходимости выполните ФГДС.", 30 мин)
			ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии, УЗИ или ФГДС, нажмите ОК.", 1 час)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	
	сознание=ВЫБОР("Пациент находится в сознании?", "в сознании", 1, "сопор" , 0 , "без сознания", 0)
	ЕСЛИ сознание==1 то
//пациент в сознании---------------------------------------------------------------------------
		ЕСЛИ ЧДД>28 или ЧДД<8 или СпО2<80 и ИВЛ_подключен==0 то
			ВЫЗОВ_ВРАЧА("Подключите пациента к аппарату НИВЛ.", 5 мин)
			НИВЛ_подключен=1
			АКТИВИРОВАТЬ_БЛОК(НИВЛ_ИВЛ, 1 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ СпО2<90 и НИВЛ_подключен==0 и ИВЛ_подключен==0 то
			ВЫЗОВ_ВРАЧА("Начните ингаляцию кислорода через носовые канюли 6-8 л/мин.", 5 мин)
		КОНЕЦ_ЕСЛИ
		асимметрия=ВЫБОР("Укажите, если присутствует асимметрия зрачков, асимметрия лица, парез или плегия хотя бы одной из сторон.","патологии нет",0, "присутствует хотя бы одно из нарушений",1)
		ЕСЛИ асимметрия==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на ОНМК (инсульт). Запустите алгоритм диагностики и лечения инсульта.", 2мин)
			АЛГОРИТМ("Инсульт диагностика и лечение стационар")
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ САД> 150 то
			гипертония=ВЫБОР("Жалобы на головную боль, головокружение, мелькание мушек перед глазами.", "Отсутствуют", 0, "Присутствует хотя бы одна", 1)
			ЕСЛИ гипертония==1 то
			САД_анамнез=ВВОД("Введите рабочее систолическое АД, мм.рт.ст.", 50, 250)
			ЕСЛИ САД>1.17*САД_анамнез то
				ВЫЗОВ_ВРАЧА("Систолическое давление значимо повышено. Диагностирована гипертоническая болезнь. Начните лечение.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		цвет_кожи=ВЫБОР("Оцените цвет кожного покрова.", "обычный, без патологии", 0, "бледный", 1,"цианоз, синий", 2, "гиперемия, красный", 3)
		ЕСЛИ цвет_кожи==1 и САД>130 то
			цвет_кожи=0
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==1 и кровотечение==-1 то
			ВЫЗОВ_ВРАЧА("Подозрение на геморрагический шок. Проведите поиск и остановку кровотечения.", 2мин)
			кровотечение= ВЫБОР("Очаг(и) кровотечения", "не найден(ы)", 0, "найден(ы)", 1 )
			ЕСЛИ кровотечение==1 то
				ВЫЗОВ_ВРАЧА("Остановите кровотечение. Диагностирован геморрагический шок. Запустите соответствующий алгоритм.", 5мин)
			АЛГОРИТМ("Геморрагический шок диагностика и лечение")
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага кровотечения сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости, при необходимости выполните ФГДС.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии, УЗИ или ФГДС, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==1 и кровотечение==0 то
			цвет_кожи=0
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==2 или цвет_кожи==0 то
		//ВЫЗОВ_ВРАЧА("Подозрение на РДСВ, ОСН, Астма, ТЭЛА.", 2 мин)
		свист_немое_легкое=ВЫБОР("Укажите если присутствует свистящее дыхание, немое лёгкое.", "Отсутствуют оба признака", 0, "Присутствует хотя бы один", 1)
//в сознании. астма
		ЕСЛИ (ЧДД<=8 или ЧДД>=25) и свист_немое_легкое==1 то
			ЕСЛИ ЧДД<8 или ЧДД>28 то
				пиковая_скорость_вдоха=1
			иначе
				ВЫЗОВ_ВРАЧА("Определите пиковую скорость вдоха.", 10мин)
				пиковая_скорость_вдоха=ВЫБОР("Пиковая скорость вдоха меньше 50% расчётной/ПСВ в анамнезе.", "верно", 1, "не верно", 0)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ астма==1 или пиковая_скорость_вдоха==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован приступ астмы. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("Бронхиальная астма диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			астма=-1 //флаг что астму проверили
		КОНЕЦ_ЕСЛИ

//в сознании РДСВ/ОСН
		влажные_хрипы=ВЫБОР("Укажите если присутствуют влажные хрипы над поверхностью грудной клетки.", "Отсутствуют", 0, "Присутствуют", 1)
	ЕСЛИ влажные_хрипы==1 то
		ВЫЗОВ_ВРАЧА("Выполните обзорную рентгенографию грудной клетки.", 10 мин)	
		МУЛЬТИВЫБОР("Общий осмотр и физикальное обследование", (станд_возраст>45?"Возраст выше 45 лет/(Да=0.5)/Нет=0/Неизвестно=0":станд_возраст==0?"Возраст выше 45 лет/Да=0.5/Нет=0/(Неизвестно=0)":"Возраст выше 45 лет/Да=0.5/(Нет=0)/Неизвестно=0"),а1 , "Септические состояния/Отсутствуют=0.5/Присутствуют=0/(Неизвестно=0)",а2 , "Кашель с пеной и кровью/Присутствует=1/Отсутствует=0/(Неизвестно=0)",отек1 , "Влажные хрипы над всей поверхностью грудной клетки/(Присутствуют=1)/Отсутствуют=0/Неизвестно=0",отек2 , "Инспираторная одышка, дыхание слышно издалека/Присутствуют=1/Отсутствуют=0/(Неизвестно=0)",отек3, "Отёки на ногах/Присутствуют=0.1/Отсутствуют=0/(Неизвестно=0)", а3, "Ритм галопа/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а4, "Акцент II тона над лёгочной артерией/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а5, "Цианоз/(Присутствует=0.1)/Отсутствует=0/Неизвестно=0", а6, "Набухание яремной вены/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а7, "Ортопноэ/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а8) 
		а=а1+а2+а3+а4+а5+а6+а7+а8
		отек=отек1+отек2+отек3
		ЕСЛИ САД>=140 то
			а=а+1
		КОНЕЦ_ЕСЛИ //а=3
		ЕСЛИ ЧДД>30 то
			отек=отек+1
		КОНЕЦ_ЕСЛИ
	
		ЕСЛИ а>1.9 и отек>1.9 то
			а=а
		иначе
			МУЛЬТИВЫБОР("Анализ ЭКГ и спирометрии", "Изменения сегмента ST/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а1, "q-зубец/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а2, "Тахикардия/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а3,"Нарушения ритма/Присутствуют=0.5/Отсутствуют=0/(Неизвестно=0)", а4, "Пониженная экскреция CO2/Присутствует=0/Отсутствует=0.5/(Неизвестно=0)", отек1)	
			а=а+а1+а2+а3+а4
			отек=отек+отек1
		КОНЕЦ_ЕСЛИ
		ЕСЛИ отек>1.9 то
			а=а
		иначе
			ФиО2=ВВОД("Введите показатель FiO2", 0, 100)
			ЕСЛИ 100*СПО2/ФиО2< 290 то
			отек=отек+1
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ

		ЕСЛИ отек>1.9 и а>1.9 то
			а=а
		иначе
			МУЛЬТИВЫБОР("Анализ рентгенографии грудной клетки", "Отёк легких на рентгенограмме/Присутсвует=2/Отсутствует=0/(Неизвестно=0)", отек1, "Кардиоторакальное отношение более 0.53/Да=0.5/Нет=0/(Неизвестно=0)", а1, "Ширина сосудистого пучка более 65 мм/Да=0.5/Нет=0/(Неизвестно=0)", а2)
			отек=отек+отек1
			а=а+а1+а2
		КОНЕЦ_ЕСЛИ


		ЕСЛИ отек>1.9 то
			ЕСЛИ а>1.9 ТО
				ВЫЗОВ_ВРАЧА("Диагностирован кардиогенный отёк лёгких. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("Острая сердечная недостаточность лечение")
				ОСТАНОВИТЬ_АЛГОРИТМ
			ИНАЧЕ
				ВЫЗОВ_ВРАЧА("Диагностирован некардиогенный отёк лёгких. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		иначе
			ВЫЗОВ_ВРАЧА("Отёк лёгких не диагностирован.", 1мин)
			отек=-1// флаг что отёк проверили
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
//в сознании ТЭЛА
		одышка=ВЫБОР("Есть ли признаки одышки?", "Нет", 0, "Да", 1)
			признаки_хирургии=ВЫБОР("Присутствуют ли в анамнезе длительная иммобилизация, недавнее хирургическое вмешательство, онкология, поражение сосудов нижних конечностей?", "Отсутствуют", 0, "Присутствует хотя бы одно", 1)
		
	ЕСЛИ признаки_хирургии==1 и одышка==1 то
			
		//шок=ВЫБОР("Пациент находится в шоке?", "Нет", 0, "Да", 1)
		падение_АД=ВЫБОР("У пациента наблюдалось падение АД более чем на 40 мм.рт.ст в последние 15 минут?","Да",1, "Нет", 0)
		ВЫЗОВ_ВРАЧА("Возьмите анализ крови на Д-димер и КЩС.", 30 мин)
		д_димер=ВЫБОР("Содержание Д-димера в крови","Выше нормы", 1, "В норме", 0)
		кщс=ВЫБОР("Показатель pCO2 в крови","Выше нормы", 1, "В норме", 0)
		ЕСЛИ падение_АД==1 или д_димер==1 или (САД<90 и ДАД<50) или кщс==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на ТЭЛА. Подтверждение по результатам Эхо-КГ, КТ с контрастированием. Рассмотрите целесообразность проведения тромболизиса.", 2мин)
			Алгоритм("ТЭЛА диагностика и лечение стационар")
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ВЫЗОВ_ВРАЧА("Выполнить УЗИ сосудов нижних конечностей, Эхо-КГ.", 30 мин)
			МУЛЬТИВЫБОР("Дисфункция правого желудочка.", "ЭхоКГ-признаки дилатации, гипокинезии или перегрузки ПЖ/Отсутствуют=0/Присутствуют=1/(Неизвестно=0)", а1, "дилатация ПЖ по результатам спиральной компьютерной томографии/Отсутствует=0/Присутствует=1/(Неизвестно=0)", а2, "признаки тромбоза сосудов вен нижних конечностей/Отсутствуют=0/Присутствуют=1/(Неизвестно=0)", а3)
			ЕСЛИ а1+а2+а3>0 то
				дисфункция_пж=1
			иначе
				дисфункция_пж=0
			КОНЕЦ_ЕСЛИ
			ЕСЛИ дисфункция_пж==1 то
				ВЫЗОВ_ВРАЧА("Подозрение на ТЭЛА. Подтверждение по результатам Эхо-КГ, КТ с контрастированием. Рассмотрите целесообразность проведения тромболизиса.", 2мин)
				Алгоритм("ТЭЛА диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				тэла=-1// флаг что ТЭЛА проверена
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ // конец блока ТЭЛА	
//в сознании ОКС боли в груди -----------------------------------------------------
		боль_груди=ВЫБОР("Жалобы на боль в области груди, усиление боли при физической нагрузке.", "Отсутствуют", 0, "Присутствуют", 1)	
		ЕСЛИ боль_груди==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на ОКС.", 2 мин)
			МУЛЬТИВЫБОР("Подключите ЭКГ. Оценка в 12 отведениях.","депрессия сегмента ST >= 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э1, "инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э2, "кратковременный менее 20 минут подъем сегмента ST >= 0,1 мВ/(Отсутствует=0)/Присутствует=1", э3,\
	 "подъем сегмента ST >= 1 мВ в двух и более смежных отведениях +//- с депрессией сегмента ST в реципрокных отведениях/(Отсутствует=0)/Присутствует=1", э4, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э5, "частичная или полная блокада правой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э6)
			ЕСЛИ э1+э2+э3+э4+э5>0 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ э6==1 то
				ВЫЗОВ_ВРАЧА("Подозрение ТЭЛА. Проведите дополнительную диагностику.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			боль_груди=ВЫБОР("Боль проявляется или усиливается при дыхании или при пальпации", "Не верно", 0, "Верно", 1)
			ЕСЛИ боль_груди==1 то
				ВЫЗОВ_ВРАЧА("Выполните рентгенограмму грудной клетки. Завершение работы алгоритма.", 30 мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			боль_груди=ВЫБОР("Сжимающая боль за грудиной, возможно усиливающаяся при физической нагрузке или иррадирующяя в нижнюю челюсть, плечи, спину, руку.", "Отсутствует", 0, "Присутствует хотя бы одно", 1)
			ЕСЛИ боль_груди==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				 Алгоритм("ОКС без подъёма ST диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			боль_груди=ВЫБОР("Стенокардия в покое или при ходьбе. Постинфарктная стенокардия.", "Отсутствует", 0, "Присутствует хотя бы одно", 1)
			ЕСЛИ боль_груди==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				Алгоритм("ОКС без подъёма ST диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				
				ОКС_отсутствует=1
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
//в сознании боли в животе СЕПСИС
		боль_животе=ВЫБОР("Жалобы на боль в области живота.", "Отсутствуют", 0, "Присутствуют", 1)
		ЕСЛИ боль_животе==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на геморрагический шок. Проведите поиск и остановку кровотечения.", 2мин)
			кровотечение= ВЫБОР("Очаг(и) кровотечения", "не найден(ы)", 0, "найден(ы)", 1 )
			ЕСЛИ кровотечение==1 то
				ВЫЗОВ_ВРАЧА("Остановите кровотечение. Диагностирован геморрагический шок. Запустите соответствующий алгоритм.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага кровотечения сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости, при необходимости выполните ФГДС.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии, УЗИ или ФГДС, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
			гемоглобин=ВВОД("Введите показатель гемоглобина, (г/л)", 0, 200)
			гематокрит=ВВОД("Введите показатель гематокрита, %", 0, 100)
			ЕСЛИ гемоглобин<100 и гематокрит<30 то
				ВЫЗОВ_ВРАЧА("Диагностирован геморрагический шок. Запустите алгоритм диагностика и лечение геморрагического шока.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Поиск видимого очага воспаления.", 3мин)
			гнойник=ВЫБОР("Очаг воспаления", "не найден", 0, "найден", 1)
			ЕСЛИ гнойник==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				Алгоритм("Сепсис диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага воспаления сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии и УЗИ, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
			лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
			ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ВЫЗОВ_ВРАЧА("Подключите ЭКГ.", 2мин)
			изменения_ЭКГ=ВЫБОР("Присутствуют ли изменения ЭКГ?", "Нет" ,0 ,"Да", 1)
			ЕСЛИ изменения_ЭКГ==1 и ОКС_отсутствует==0 то
//в сознании диагностика ОКС/инфаркт 
			МУЛЬТИВЫБОР("Подключите ЭКГ. Оценка в 12 отведениях.","депрессия сегмента ST >= 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э1, "инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э2, "кратковременный менее 20 минут подъем сегмента ST >= 0,1 мВ/(Отсутствует=0)/Присутствует=1", э3,\
	 "подъем сегмента ST >= 1 мВ в двух и более смежных отведениях +//- с депрессией сегмента ST в реципрокных отведениях/(Отсутствует=0)/Присутствует=1", э4, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э5, "частичная или полная блокада правой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э6)
			ЕСЛИ э1+э2+э3+э4+э5>0 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				Алгоритм("Сепсис диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ э6==1 то
				ВЫЗОВ_ВРАЧА("Подозрение ТЭЛА. Проведите дополнительную диагностику.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ // конец оператора ЕСЛИ цвет_кожи==2 то
		ЕСЛИ цвет_кожи==3 то
			//гемоглобин=ВВОД("Введите показатель гемоглобина, (г/л)", 0, 200)
			//гематокрит=ВВОД("Введите показатель гематокрита, %", 0, 100)
			САД_анамнез=ВВОД("Введите рабочее систолическое АД, мм.рт.ст.", 50, 250)
			ЕСЛИ САД>1.17*САД_анамнез то
				ВЫЗОВ_ВРАЧА("Систолическое давление значимо повышено. Диагностирована гипертоническая болезнь. Начните лечение.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
//в сознании анализы 
		ЕСЛИ лейкоциты==-1 то
			ЕСЛИ Темп>38.3 или Темп<36 то
			ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Поиск видимого очага воспаления (гнойника).", 3мин)
			гнойник=ВЫБОР("Очаг воспаления", "найден", 1, "не найден", 0)
			ЕСЛИ гнойник==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага воспаления сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии и УЗИ, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
			лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
			ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ гемоглобин==-1 или гематокрит==-1 то
			гемоглобин=ВВОД("Введите показатель гемоглобина, (г/л)", 0, 200)
			гематокрит=ВВОД("Введите показатель гематокрита, %", 0, 100)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ гемоглобин<100 и гематокрит<30 то
			ВЫЗОВ_ВРАЧА("Диагностирован геморрагический шок. Запустите алгоритм диагностика и лечение геморрагического шока.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		//ЕСЛИ гемоглобин>140 и гематокрит>40 то
			//ВЫЗОВ_ВРАЧА("Диагностирован ОНМК (инсульт). Запустите алгоритм диагностики и лечения инсульта.", 2мин)
			//Алгоритм("Инсульт диагностика и лечение стационар")
			//ОСТАНОВИТЬ_АЛГОРИТМ
		//КОНЕЦ_ЕСЛИ
		глюкоза=ВВОД("Введите показатель концентрации глюкозы в крови, (ммоль/л).", 0, 200)
		ЕСЛИ глюкоза>13.9 то
			ВЫЗОВ_ВРАЧА("Подозрение на гиперосмолярную или кетоацидотическую кому. Запустите алгоритм диагностики и лечения комы.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ глюкоза<3.3 то
			ВЫЗОВ_ВРАЧА("Подозрение на гипогликемическую кому. Запустите алгоритм диагностики и лечения комы.", 2мин)
			Алгоритм("Комы диагностика и лечение стационар")
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ лейкоциты==-1 то
			лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
			ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
				ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Поиск очага воспаления (гнойника).", 3мин)
				гнойник=ВЫБОР("Очаг воспаления", "найден", 1, "не найден", 0)
				ЕСЛИ гнойник==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
				иначе
					ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага воспаления сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости.", 30 мин)
					ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии и УЗИ, нажмите ОК.", 1 час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
			
//подключение ЭКГ диагностика с помощью ЭКГ
		ВЫЗОВ_ВРАЧА("Подключите ЭКГ.", 2мин)
		изменения_ЭКГ=ВЫБОР("Присутствуют ли изменения ЭКГ?", "Нет" ,0 ,"Да", 1)
		ЕСЛИ изменения_ЭКГ==1 то
//в сознании диагностика ОКС/инфаркт 
		МУЛЬТИВЫБОР("Подключите ЭКГ. Оценка в 12 отведениях.","депрессия сегмента ST >= 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э1, "инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э2, "кратковременный менее 20 минут подъем сегмента ST >= 0,1 мВ/(Отсутствует=0)/Присутствует=1", э3,\
	 "подъем сегмента ST >= 1 мВ в двух и более смежных отведениях +//- с депрессией сегмента ST в реципрокных отведениях/(Отсутствует=0)/Присутствует=1", э4, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э5, "частичная или полная блокада правой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э6)
			ЕСЛИ э1+э2+э3+э4+э5>0 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				Алгоритм("ОКС с подъёмом ST диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ э6==1 то
				ВЫЗОВ_ВРАЧА("Подозрение ТЭЛА. Проведите дополнительную диагностику.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
//в сознании. диагностика тахикардии		
		ЕСЛИ ЧСС>100 то
			тахикардия=0.0
			КуРС=ВЫБОР("По данным ЭКГ оцените комплексы QRS.", "более 120 мс", 1, "менее 120 мс", 0)
				ЕСЛИ КуРС==1 то
					зубцы_П=ВЫБОР("Зубцы P по отношению к QRS", "не связаны, величины интервалов PQ различаются  более, чем на 15% за 1 минуту", 1, "не связаны, зубцы P не всегда предшествуют комплексам QRS", 2, "связаны", 0)
					ЕСЛИ зубцы_П>0 то
						ВЫЗОВ_ВРАЧА("Диагностирована устойчивая Желудочковая тахикардия.", 2 мин)
						тахикардия=1.0
					КОНЕЦ_ЕСЛИ 
				КОНЕЦ_ЕСЛИ
			ЕСЛИ тахикардия==1 то
				тахикардия=ВЫБОР("По данным ЭКГ уточните:", "ширина QRS стабильна, отличия от среднего на 20 мс", 1, "нестабильная ширина QRS с изменением электрической оси сердца на 180 градусов", 3, "нестабильная ширина QS без изменения электрической оси сердца на 180 градусов", 2)
				ЕСЛИ тахикардия==1 то
					ВЫЗОВ_ВРАЧА("Диагностирована мономорфная Желудочковая тахикардия, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
				ЕСЛИ тахикардия==2 то
					ВЫЗОВ_ВРАЧА("Диагностирована полиморфная Желудочковая тахикардия, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
				ЕСЛИ тахикардия==3 то
					ВЫЗОВ_ВРАЧА("Диагностирована Желудочковая тахикардия torsades de pointes, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		МУЛЬТИВЫБОР("Диагностические критерии преждевременного возбуждения желудочков", "Укороченный интервал PQ (<120 мс)/(Отсутствует=0)/Присутствует=1", а1, "«Дельта – волна»/(Отсутствует=0)/Присутствует=1", а2, "Уширенный комплекс QRS/(Отсутствует=0)/Присутствует=1", а3, "Дискордантные по отношению к QRS изменения T и ST/(Отсутствуют=0)/Присутствуют=1", а4, "Тахикардия с высокой ЧСС, нерегулярными интервалами RR и широкими комплексами/(Отсутствует=0)/Присутствует=1", а5)
		ЕСЛИ а1+а2+а3+а4+а5==5 или а2+а3+а4+а5==4 то
			ВЫЗОВ_ВРАЧА("Диагностирован синдром преждевременного возбуждения желудочков. Запустите соответствующий алгоритм лечения.", 2мин)
                        Алгоритм("")
		КОНЕЦ_ЕСЛИ
		МУЛЬТИВЫБОР("Диагностические критерии фибрилляции предсердий.","Абсолютно нерегулярные интервалы RR/(Отсутствуют=0)/Присутствуют=1", ф1, "Зубцы Р на ЭКГ/(Присутствуют=0)/Отсутствуют=1", ф2, "Длительность предсердного цикла  вариабельна и составляет <200 мс (>300 в мин)/(Неверно=0)/Верно=1", ф3)
		ЕСЛИ ф1+ф2+ф3==3 то
			ВЫЗОВ_ВРАЧА("Диагностирована фибрилляция предсердий. Запустите соответствующий алгоритм лечения.", 2мин)
                        Алгоритм("")
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ //конец ЕСЛИ изменения_ЭКГ==1 то
//в сознании ТЭЛА
		ЕСЛИ тэла>-1 то
		//шок=ВЫБОР("Пациент находится в шоке?", "Нет", 0, "Да", 1)
		//падение_АД=ВЫБОР("У пациента наблюдалось падение АД более чем на 40 мм.рт.ст в последние 15 минут?", "Нет", 0 ,"Да",1)
		//тропонин=ВЫБОР("Содержание тропонина в крови.", "В норме", 0,"Выше нормы", 1)
		//ВЫЗОВ_ВРАЧА("Выполните Эхо-КГ, КТ, возьмите анализы на натрийуретический пептид.", 30 мин)
		//МУЛЬТИВЫБОР("Дисфункция правого желудочка.", "ЭхоКГ-признаки дилатации, гипокинезии или перегрузки ПЖ/Отсутствуют=0/Присутствуют=1/(Неизвестно=0)", а1, "дилатация ПЖ по результатам спиральной компьютерной томографии/Отсутствует=0/Присутствует=1/(Неизвестно=0)", а2, "повышение в крови уровня мозгового натрийуретического пептида (BNP) или его N-концевого предшественника (NT-Pro-BNP)/Отсутствует=0/Присутствует=1/(Неизвестно=0)", а3, "повышение давления в полостях правых отделов сердца по результатам катетеризации сердца/Отсутствует=0/Присутствует=1/(Неизвестно=0)", а4)
		//ЕСЛИ а1+а2+а3+а4>0 то
		//	дисфункция_пж=1
		//иначе
		//	дисфункция_пж=0
		//КОНЕЦ_ЕСЛИ
		ЕСЛИ падение_АД==1 или дисфункция_пж==1 или тропонин==1 или (САД<90 и ДАД<50) то
			ВЫЗОВ_ВРАЧА("Подозрение на ТЭЛА. Подтверждение по результатам Эхо-КГ, КТ. Рассмотрите целесообразность проведения тромболизиса.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	
//анализ ликвора		
		ВЫЗОВ_ВРАЧА("Возьмите ликвор на анализ.", 5мин)
		ликвор_кровь=ВЫБОР("В анализе ликвора обнаружена кровь?", "Нет", 0, "Да", 1)
		ЕСЛИ ликвор_кровь==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на геморрагический инсульт. Начните лечение.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ликвор_мутный=ВЫБОР("Ликвор мутный.", "Нет", 0, "Да", 1)
		ЕСЛИ ликвор_кровь==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Запустите соответствующий алгоритм.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ВЫЗОВ_ВРАЧА("Необходимо проведение дополнительных диагностических мероприятий. Завершение работы алгоритма.", 2мин)	

	иначе
//пациент без сознания-------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------
		ЕСЛИ ЧДД>28 или ЧДД<8 или СпО2<80 и ИВЛ_подключен==0 то
			ВЫЗОВ_ВРАЧА("Подключите пациента к аппарату НИВЛ.", 5 мин)
			НИВЛ_подключен=1
			АКТИВИРОВАТЬ_БЛОК(НИВЛ_ИВЛ, 1 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ СпО2<90 и НИВЛ_подключен==0 и ИВЛ_подключен==0 то
			ВЫЗОВ_ВРАЧА("Начните ингаляцию кислорода через носовые канюли 6-8 л/мин.", 5 мин)
		КОНЕЦ_ЕСЛИ
		асимметрия=ВЫБОР("Укажите, если присутствует асимметрия зрачков, асимметрия лица, парез или плегия хотя бы одной из сторон.","патологии нет",0, "присутствует хотя бы одно из нарушений",1)
		ЕСЛИ асимметрия==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на ОНМК (инсульт). Запустите алгоритм диагностики и лечения инсульта.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ САД>150 то
			САД_анамнез=ВВОД("Введите рабочее систолическое АД из анамнеза, мм.рт.ст, если неизвестно введите 0.", 0, 250)
			ЕСЛИ САД>1.17*САД_анамнез и САД_анамнез>0 то
				ВЫЗОВ_ВРАЧА("Систолическое давление значимо повышено. Диагностирована гипертоническая болезнь. Начните лечение.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			
		КОНЕЦ_ЕСЛИ
		цвет_кожи=ВЫБОР("Оцените цвет кожного покрова.", "обычный, без патологии", 0, "бледный", 1,"цианоз, синий", 2, "гиперемия, красный", 3)
		ЕСЛИ цвет_кожи==1 и САД>130 то
			цвет_кожи=0
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==1 и кровотечение==-1 то
			ВЫЗОВ_ВРАЧА("Подозрение на геморрагический шок. Проведите поиск и остановку кровотечения.", 2мин)
			кровотечение= ВЫБОР("Очаг(и) кровотечения", "не найден(ы)", 0, "найден(ы)", 1 )
			ЕСЛИ кровотечение==1 то
				ВЫЗОВ_ВРАЧА("Остановите кровотечение. Диагностирован геморрагический шок. Запустите соответствующий алгоритм.", 5мин)
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага кровотечения сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости, при необходимости выполните ФГДС.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии, УЗИ или ФГДС, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==1 и кровотечение==0 то
			цвет_кожи=0
		КОНЕЦ_ЕСЛИ
		ЕСЛИ цвет_кожи==2 или цвет_кожи==0 то
		//ВЫЗОВ_ВРАЧА("Подозрение на РДСВ, ОСН, Астма, ТЭЛА.", 2 мин)
		свист_немое_легкое=ВЫБОР("Укажите если присутствует свистящее дыхание, немое лёгкое.", "Отсутствуют оба признака", 0, "Присутствует хотя бы один", 1)
//без сознания. астма
		ЕСЛИ (ЧДД<=8 или ЧДД>=25) и свист_немое_легкое==1 то
			ЕСЛИ ЧДД<8 или ЧДД>28 то
				пиковая_скорость_вдоха=1
			иначе
				ВЫЗОВ_ВРАЧА("Определите пиковую скорость вдоха.", 10мин)
				пиковая_скорость_вдоха=ВЫБОР("Пиковая скорость вдоха меньше 50% расчётной/ПСВ в анамнезе.", "верно", 1, "не верно", 0)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ астма==1 или пиковая_скорость_вдоха==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован приступ астмы. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("Бронхиальная астма диагностика и лечение стационар")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			астма=-1 //флаг что астму проверили
		КОНЕЦ_ЕСЛИ

//без сознания РДСВ/ОСН
		влажные_хрипы=ВЫБОР("Укажите если присутствуют влажные хрипы над поверхностью грудной клетки.", "Отсутствуют", 0, "Присутствуют", 1)
	ЕСЛИ влажные_хрипы==1 то
		ВЫЗОВ_ВРАЧА("Выполните обзорную рентгенографию грудной клетки.", 10 мин)	
		МУЛЬТИВЫБОР("Общий осмотр и физикальное обследование", "Возраст выше 45 лет/Да=0.5/Нет=0/(Неизвестно=0)",а1 , "Септические состояния/Отсутствуют=0.5/Присутствуют=0/(Неизвестно=0)",а2 , "Кашель с пеной и кровью/Присутствует=1/Отсутствует=0/(Неизвестно=0)",отек1 , "Влажные хрипы над всей поверхностью грудной клетки/(Присутствуют=1)/Отсутствуют=0/Неизвестно=0",отек2 , "Инспираторная одышка, дыхание слышно издалека/Присутствуют=1/Отсутствуют=0/(Неизвестно=0)",отек3, "Отёки на ногах/Присутствуют=0.1/Отсутствуют=0/(Неизвестно=0)", а3, "Ритм галопа/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а4, "Акцент II тона над лёгочной артерией/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а5, "Цианоз/(Присутствует=0.1)/Отсутствует=0/Неизвестно=0", а6, "Набухание яремной вены/Присутствует=0.1/Отсутствует=0/(Неизвестно=0)", а7, "Ортопноэ/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а8) 
		а=а1+а2+а3+а4+а5+а6+а7+а8
		отек=отек1+отек2+отек3
		ЕСЛИ САД>=140 то
			а=а+1
		КОНЕЦ_ЕСЛИ //а=3
		ЕСЛИ ЧДД>30 то
			отек=отек+1
		КОНЕЦ_ЕСЛИ
	
		ЕСЛИ а>1.9 и отек>1.9 то
			а=а
		иначе
			МУЛЬТИВЫБОР("Анализ ЭКГ и спирометрии", "Изменения сегмента ST/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а1, "q-зубец/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а2, "Тахикардия/Присутствует=0.5/Отсутствует=0/(Неизвестно=0)", а3,"Нарушения ритма/Присутствуют=0.5/Отсутствуют=0/(Неизвестно=0)", а4, "Пониженная экскреция CO2/Присутствует=0/Отсутствует=0.5/(Неизвестно=0)", отек1)	
			а=а+а1+а2+а3+а4
			отек=отек+отек1
		КОНЕЦ_ЕСЛИ
		ЕСЛИ отек>1.9 то
			а=а
		иначе
			ФиО2=ВВОД("Введите показатель FiO2", 0, 100)
			ЕСЛИ 100*СПО2/ФиО2< 290 то
			отек=отек+1
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ

		ЕСЛИ отек>1.9 и а>1.9 то
			а=а
		иначе
			МУЛЬТИВЫБОР("Анализ рентгенографии грудной клетки", "Отёк легких на рентгенограмме/Присутсвует=2/Отсутствует=0/(Неизвестно=0)", отек1, "Кардиоторакальное отношение более 0.53/Да=0.5/Нет=0/(Неизвестно=0)", а1, "Ширина сосудистого пучка более 65 мм/Да=0.5/Нет=0/(Неизвестно=0)", а2)
			отек=отек+отек1
			а=а+а1+а2
		КОНЕЦ_ЕСЛИ


		ЕСЛИ отек>1.9 то
			ЕСЛИ а>1.9 ТО
				ВЫЗОВ_ВРАЧА("Диагностирован кардиогенный отёк лёгких. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("")
				ОСТАНОВИТЬ_АЛГОРИТМ
			ИНАЧЕ
				ВЫЗОВ_ВРАЧА("Диагностирован некардиогенный отёк лёгких. Запустите соответствующий алгоритм лечения.", 2мин)
                                Алгоритм("")
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		иначе
			ВЫЗОВ_ВРАЧА("Отёк лёгких не диагностирован.", 1мин)
			отек=-1// флаг что отёк проверили
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
//без сознания ТЭЛА
		признаки_хирургии=ВЫБОР("Присутствуют ли в анамнезе длительная иммобилизация, недавнее хирургическое вмешательство, онкология, поражение сосудов нижних конечностей?", "Отсутствуют", 0, "Присутствует хотя бы одно", 1)
		ЕСЛИ признаки_хирургии==1 то
		падение_АД=ВЫБОР("У пациента наблюдалось падение АД более чем на 40 мм.рт.ст в последние 15 минут?","Да",1, "Нет", 0)
		ВЫЗОВ_ВРАЧА("Возьмите анализ крови на Д-димер и КЩС.", 30 мин)
		д_димер=ВЫБОР("Содержание Д-димера в крови","Выше нормы", 1, "В норме", 0)
		кщс=ВЫБОР("Показатель pCO2 в крови","Выше нормы", 1, "В норме", 0)
		ЕСЛИ падение_АД==1 или д_димер==1 или (САД<90 и ДАД<50) или кщс==1 то
			ВЫЗОВ_ВРАЧА("Подозрение на ТЭЛА. Подтверждение по результатам Эхо-КГ, КТ с контрастированием. Рассмотрите целесообразность проведения тромболизиса.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ВЫЗОВ_ВРАЧА("Выполнить УЗИ сосудов нижних конечностей, Эхо-КГ.", 30 мин)
			МУЛЬТИВЫБОР("Дисфункция правого желудочка.", "ЭхоКГ-признаки дилатации, гипокинезии или перегрузки ПЖ/Отсутствуют=0/Присутствуют=1/(Неизвестно=0)", а1, "дилатация ПЖ по результатам спиральной компьютерной томографии/Отсутствует=0/Присутствует=1/(Неизвестно=0)", а2, "признаки тромбоза сосудов вен нижних конечностей/Отсутствуют=0/Присутствуют=1/(Неизвестно=0)", а3)
			ЕСЛИ а1+а2+а3>0 то
				дисфункция_пж=1
			иначе
				дисфункция_пж=0
			КОНЕЦ_ЕСЛИ
			ЕСЛИ дисфункция_пж==1 то
				ВЫЗОВ_ВРАЧА("Подозрение на ТЭЛА. Подтверждение по результатам Эхо-КГ, КТ с контрастированием. Рассмотрите целесообразность проведения тромболизиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				тэла=-1// флаг что ТЭЛА проверена
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ // конец блока ТЭЛА	
		КОНЕЦ_ЕСЛИ // конец оператора ЕСЛИ цвет_кожи==2 то
		ЕСЛИ цвет_кожи==3 то
			гемоглобин=ВВОД("Введите показатель гемоглобина, (г/л)", 0, 200)
			гематокрит=ВВОД("Введите показатель гематокрита, %", 0, 100)
			//ЕСЛИ гемоглобин>140 и гематокрит>40 то
			//	ВЫЗОВ_ВРАЧА("Подозрение на ОНМК (инсульт). Запустите алгоритм диагностики и лечения инсульта.", 2мин)
			//	ОСТАНОВИТЬ_АЛГОРИТМ
			//КОНЕЦ_ЕСЛИ
			ЕСЛИ САД>150 то
				ВЫЗОВ_ВРАЧА("Подозрение на гипертоническую болезнь. Начните лечение.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ВЫЗОВ_ВРАЧА("Начните введение глюкозы 40%, 40 мл.", 2 мин)
		сознание=ВЫБОР("Пациент пришел в сознание?", "Нет", 0, "Да", 1)
		ЕСЛИ сознание==1 то
			ВЫЗОВ_ВРАЧА("Диагностирована гипогликемическая кома. Запустите алгоритм диагностики и лечения комы.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Темп>38.3 или Темп<36 то
			ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Поиск видимого очага воспаления (гнойника).", 3мин)
			гнойник=ВЫБОР("Очаг воспаления", "найден", 1, "не найден", 0)
			ЕСЛИ гнойник==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			иначе
				ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага воспаления сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости.", 30 мин)
				ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии и УЗИ, нажмите ОК.", 1 час)
			КОНЕЦ_ЕСЛИ
			лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
			ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ гемоглобин==-1 или гематокрит==-1 то
			гемоглобин=ВВОД("Введите показатель гемоглобина, (г/л)", 0, 200)
			гематокрит=ВВОД("Введите показатель гематокрита, %", 0, 100)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ гемоглобин<100 и гематокрит<30 то
			ВЫЗОВ_ВРАЧА("Подозрение на геморрагический шок. Запустите алгоритм диагностика и лечение геморрагического шока.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		//ЕСЛИ гемоглобин>140 и гематокрит>40 то
		//	ВЫЗОВ_ВРАЧА("Подозрение на ОНМК (инсульт). Запустите алгоритм диагностики и лечения инсульта.", 2мин)
		//	ОСТАНОВИТЬ_АЛГОРИТМ
		//КОНЕЦ_ЕСЛИ
		глюкоза=ВВОД("Введите показатели концентрации глюкозы в крови, (ммоль/л).", 0, 200)
		ЕСЛИ глюкоза>13.9 то
			ВЫЗОВ_ВРАЧА("Подозрение на гиперосмолярную или кетоацидотическую кому. Запустите алгоритм диагностики и лечения комы.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ лейкоциты==-1 то
			лейкоциты=ВВОД("Введите концентрацию лейкоцитов в крови, (х10е9/л)", 0, 30)
			ЕСЛИ лейкоциты > 12 или лейкоциты <4 то
				ВЫЗОВ_ВРАЧА("Подозрение на сепсис. Поиск очага воспаления (гнойника).", 3мин)
				гнойник=ВЫБОР("Очаг воспаления", "найден", 1, "не найден", 0)
				ЕСЛИ гнойник==1 то
				ВЫЗОВ_ВРАЧА("Диагностирован сепсис. Запустите алгоритм диагностики и лечения сепсиса.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
				иначе
					ВЫЗОВ_ВРАЧА("Для поиска внутреннего очага воспаления сделайте обзорный рентгеновский снимок грудной полости, брюшной полости, УЗИ брюшной полости.", 30 мин)
					ВЫЗОВ_ВРАЧА("Для продолжения диагностики не дожидаясь результатов рентгенографии и УЗИ, нажмите ОК.", 1 час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		
//подключение ЭКГ диагностика с помощью ЭКГ
		ВЫЗОВ_ВРАЧА("Подключите ЭКГ.", 2мин)
		изменения_ЭКГ=ВЫБОР("Присутствуют ли изменения ЭКГ?", "Нет" ,0 ,"Да", 1)
		ЕСЛИ изменения_ЭКГ==1 то
//без сознания. диагностика ОКС/инфаркт 
		МУЛЬТИВЫБОР("Подключите ЭКГ. Оценка в 12 отведениях.","депрессия сегмента ST >= 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э1, "инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э2, "кратковременный менее 20 минут подъем сегмента ST >= 0,1 мВ/(Отсутствует=0)/Присутствует=1", э3,\
	 "подъем сегмента ST >= 1 мВ в двух и более смежных отведениях +//- с депрессией сегмента ST в реципрокных отведениях/(Отсутствует=0)/Присутствует=1", э4, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э5, "частичная или полная блокада правой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э6)
			ЕСЛИ э1+э2+э3+э4+э5>0 то
				ВЫЗОВ_ВРАЧА("Диагностирован ОКС, возьмите анализ крови на тропонин для подтверждения. Начните лечение.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ э6==1 то
				ВЫЗОВ_ВРАЧА("Подозрение ТЭЛА. Проведите дополнительную диагностику.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
//без сознания. диагностика тахикардии		
		ЕСЛИ ЧСС>100 то
			тахикардия=0.0
			КуРС=ВЫБОР("По данным ЭКГ оцените комплексы QRS.", "более 120 мс", 1, "менее 120 мс", 0)
				ЕСЛИ КуРС==1 то
					зубцы_П=ВЫБОР("Зубцы P по отношению к QRS", "не связаны, величины интервалов PQ различаются  более, чем на 15% за 1 минуту", 1, "не связаны, зубцы P не всегда предшествуют комплексам QRS", 2, "связаны", 0)
					ЕСЛИ зубцы_П>0 то
						ВЫЗОВ_ВРАЧА("Диагностирована устойчивая Желудочковая тахикардия.", 2 мин)
						тахикардия=1.0
					КОНЕЦ_ЕСЛИ 
				КОНЕЦ_ЕСЛИ
			ЕСЛИ тахикардия==1 то
				тахикардия=ВЫБОР("По данным ЭКГ уточните:", "ширина QRS стабильна, отличия от среднего на 20 мс", 1, "нестабильная ширина QRS с изменением электрической оси сердца на 180 градусов", 3, "нестабильная ширина QS без изменения электрической оси сердца на 180 градусов", 2)
				ЕСЛИ тахикардия==1 то
					ВЫЗОВ_ВРАЧА("Диагностирована мономорфная Желудочковая тахикардия, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
				ЕСЛИ тахикардия==2 то
					ВЫЗОВ_ВРАЧА("Диагностирована полиморфная Желудочковая тахикардия, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
				ЕСЛИ тахикардия==3 то
					ВЫЗОВ_ВРАЧА("Диагностирована Желудочковая тахикардия torsades de pointes, начните лечение.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		МУЛЬТИВЫБОР("Диагностические критерии преждевременного возбуждения желудочков", "Укороченный интервал PQ (<120 мс)/(Отсутствует=0)/Присутствует=1", а1, "«Дельта – волна»/(Отсутствует=0)/Присутствует=1", а2, "Уширенный комплекс QRS/(Отсутствует=0)/Присутствует=1", а3, "Дискордантные по отношению к QRS изменения T и ST/(Отсутствуют=0)/Присутствуют=1", а4, "Тахикардия с высокой ЧСС, нерегулярными интервалами RR и широкими комплексами/(Отсутствует=0)/Присутствует=1", а5)
		ЕСЛИ а1+а2+а3+а4+а5==5 или а2+а3+а4+а5==4 то
			ВЫЗОВ_ВРАЧА("Диагностирован синдром преждевременного возбуждения желудочков. Запустите соответствующий алгоритм лечения.", 2мин)
                        Алгоритм("")
		КОНЕЦ_ЕСЛИ
		МУЛЬТИВЫБОР("Диагностические критерии фибрилляции предсердий.","Абсолютно нерегулярные интервалы RR/(Отсутствуют=0)/Присутствуют=1", ф1, "Зубцы Р на ЭКГ/(Присутствуют=0)/Отсутствуют=1", ф2, "Длительность предсердного цикла  вариабельна и составляет <200 мс (>300 в мин)/(Неверно=0)/Верно=1", ф3)
		ЕСЛИ ф1+ф2+ф3==3 то
			ВЫЗОВ_ВРАЧА("Диагностирована фибрилляция предсердий. Запустите соответствующий алгоритм лечения.", 2мин)
                        Алгоритм("")
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ //конец ЕСЛИ изменения_ЭКГ==1 то

//ввод налоксона
		ВЫЗОВ_ВРАЧА("Введите Налоксон, если не вводился на догоспитальном этапе.", 2 мин) 
		сознание=ВЫБОР("Пациент пришел в сознание?", "Нет", 0, "Да", 1)
		ЕСЛИ сознание==1 то
			ВЫЗОВ_ВРАЧА("Диагностировано отравление опиатами.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ

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

		
		

КОНЕЦ_БЛОКА
//==========================
БЛОК контроль_ЧСС()
	ЕСЛИ ЧСС<20 или ЧДД==0 то
		пульс=ВЫБОР("Низкая ЧСС! Проверьте пульс на сонной артерии.", "пульс присутствует", 1, "пульс отсутствует", 0)
		ЕСЛИ пульс==0 то	
			ВЫЗОВ_ВРАЧА("Запустите алгоритм сердечно-лёгочной реанимации!", 2 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========================
БЛОК НИВЛ_ИВЛ()
	СПАТЬ (5мин)
	ЕСЛИ ЧДД<8 или ЧДД>28 то
		ВЫЗОВ_ВРАЧА("Проведите интубацию! Подключите пациента к ИВЛ.", 10 мин)
		СПАТЬ(5мин)
		ЕСЛИ ЧДД<8 или ЧДД>28 то
			ВЫЗОВ_ВРАЧА("ЧДД не нормализуется. Проверьте правильность подключения аппарата ИВЛ.", 10 мин)
			ВЫХОД
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА