//РДСВ, ОСН, Кардиогенный отёк лёгких диагностика

Переменные: а, а1, а2, а3, а4, а5, а6, а7, а8, отек1, отек2, отек3, ФиО2, отек
БЛОК ВХОД
	а=0.0
	отек=0.0
	ФиО2=0.0
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 1 мин)
	//АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 1мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 30сек)
	//АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ЧДД, 30 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 30сек)
	//АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_СПО2, 30 сек)
	МУЛЬТИВЫБОР("Общий осмотр и физикальное обследование", "Септические состояния/Отсутствуют=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) 
	ЕСЛИ станд_возраст>45 то
	а1=0.5
	иначе 
	а1=0
	КОНЕЦ_ЕСЛИ
	а=а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.5/Отсутствует=0/(Неизвестно=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 ТО
			ВЫЗОВ_ВРАЧА("Диагностирован кардиогенный отёк лёгких.", 1мин)
			Алгоритм("Кардиогенный отёк легких")
		ИНАЧЕ
			ВЫЗОВ_ВРАЧА("Диагностирован некардиогенный отёк лёгких.", 1мин)
		КОНЕЦ_ЕСЛИ
	иначе
		ВЫЗОВ_ВРАЧА("Отёк лёгких не диагностирован.", 1мин)
	КОНЕЦ_ЕСЛИ
	ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_БЛОКА
//========================================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД>=120 то  
		ВЫЗОВ_ВРАЧА("Критически высокое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================
БЛОК ОБРАБОТКА_ЧДД()
	ЕСЛИ ЧДД<=10 то  
		ВЫЗОВ_ВРАЧА("Критически низкая ЧДД (ЧДД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ   // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧДД>=40 то  
		ВЫЗОВ_ВРАЧА("Критически высокая ЧДД (ЧДД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
   КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================
БЛОК ОБРАБОТКА_СПО2()
	ЕСЛИ СПО2<=60 то  
		ВЫЗОВ_ВРАЧА("Критически низкое СПО2 (СПО2). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ	// СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА