//Гипертония диагностика и лечение.

Переменные: рабочее_САД, давление_неизвестно, Х1, Х2, Х3, Л1, Д3, с1, с2, с3, с4, с5, дополнительные_симптомы, начальное_САД, первое_САД, контрольное_САД, предыдущее_САД, счетчик, инф_номер_сульфат_магния25

БЛОК ВХОД
	счетчик=0
	рабочее_САД=ВВОД("Укажите рабочее систолическое давление пациента (мм.рт.ст.), если неизвестно введите 0.", 0, 300)
	ЕСЛИ рабочее_САД==0 то
		давление_неизвестно=1
		рабочее_САД=120
		Х1=150
		Х2=180
		Х3=210
		Л1=100
	иначе
		давление_неизвестно=0
		Х1=рабочее_САД*1.17
		Х2=рабочее_САД*1.5
		Х3=рабочее_САД*1.8
		Л1=рабочее_САД*0.83
	КОНЕЦ_ЕСЛИ
	Д3=150 //уточнить!
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 3сек)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 30сек)
	ЕСЛИ САД<Х1 то
		ВЫЗОВ_ВРАЧА("Значимого повышения давления нет. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 30сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 30сек)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ЧДД_СПО2, 30сек)
	МУЛЬТИВЫБОР("Начальный опрос. Потенциальные сердчные осложнения.", "Беременность/(Нет=0)/Да=1",с1, "Риск аллергических реакций на нифедипин и сульфат магния (магнезию)/(Низкий=0)/Средний=1/Высокий=1", с2, "Боль//жжение за грудиной/(Нет=0)/Умеренная=1/Сильная=1", с3, "Боль//жжение в области левой лопатки/(Нет=0)/Умеренная=1/Сильная=1", с4, "Боль//жжение в области желудка/(Нет=0)/Умеренная=1/Сильная=1", с5)
	ЕСЛИ с1+с2+с3+с4+с5>0 то
		ВЫЗОВ_ВРАЧА("Переход в режим экспертного принятия решений. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("При появлении в процессе лечения боли/жжения за грудиной, в области левой лопатки, в области желудка, необходимо завершить текущий алгоритм и перейти в режим экспертного принятия решений.", 1мин)
	МУЛЬТИВЫБОР("Оценка дополнительных симптомов.", "Головная боль/(Нет=0)/Умеренная=1/Сильная=1", с1, "Онемение конечностей/(Нет=0)/Умеренное=1/Сильное=1", с2, "Расстройство зрения - мушки, звездочки, и т.д./(Нет=0)/Умеренное=1/Сильное=1", с3, "Тошнота/(Нет=0)/Умеренная=1/Сильная=1", с4)
	ЕСЛИ с1+с2+с3+с4>1 то
		ВЫЗОВ_ВРАЧА("Значимые дополнительные симптомы присутствуют.", 1мин)
		дополнительные_симптомы=1
	иначе
		ВЫЗОВ_ВРАЧА("Значимые дополнительные симптомы отсутствуют.", 1мин)
		дополнительные_симптомы=0
	КОНЕЦ_ЕСЛИ
	начальное_САД=САД
	ЕСЛИ САД>=Х2 или (САД>Х1 и дополнительные_симптомы==1) то
		АКТИВИРОВАТЬ_БЛОК(Инфузионная_терапия, 100час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<Х2 и САД>Х1 и дополнительные_симптомы==0 то
		АКТИВИРОВАТЬ_БЛОК(Пероральная_терапия, 100час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК ОБРАБОТКА_АД()
	ЕСЛИ САД>Х3 или ДАД>Д3 то
		ВЫЗОВ_ВРАЧА("Давление критически повышено. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК ОБРАБОТКА_ЧДД_СПО2()
	ЕСЛИ ЧДД>25 или (ЧДД<8 и ЧДД>0) или СПО2<90 то
		ВЫЗОВ_ВРАЧА("Дыхательная недостаточность. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК Пероральная_терапия()
	предыдущее_САД=САД
	ЕСЛИ счетчик==0 то
	ВЫЗОВ_ВРАЧА("Дайте пациенту таблетку нифедипин 10 мг", 2мин)
	КОНЕЦ_ЕСЛИ
	счетчик=счетчик+1
	СПАТЬ(15 мин)
	ЕСЛИ САД>1,1*предыдущее_САД или САД<0.9*предыдущее_САД то
		первое_САД=САД //?
		СПАТЬ(3 сек)
		контрольное_САД=САД
		первое_САД=0.5*(первое_САД+контрольное_САД)
	иначе
		первое_САД=САД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ первое_САД<0.8*предыдущее_САД то
		ВЫЗОВ_ВРАЧА("Слишком быстрое снижение давления. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ первое_САД<Л1 то
		ВЫЗОВ_ВРАЧА("Давление чрезмерно снижено. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ первое_САД>1.2*предыдущее_САД то
		ВЫЗОВ_ВРАЧА("Слишком резкий рост давления. Переход к инфузионной терапии.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(Инфузионная_терапия, 100час)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ первое_САД>Х2 то
		ВЫЗОВ_ВРАЧА("Давление сильно повышено. Переход к инфузионной терапии.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(Инфузионная_терапия, 100час)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>начальное_САД*1.2 и счетчик>1 то
		ВЫЗОВ_ВРАЧА("Желаемый эффект пероральной терапии не достигнут. Переход к инфузионной терапии.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(Инфузионная_терапия, 100час)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК Инфузионная_терапия()
	инф_номер_сульфат_магния25=ВВЕСТИ(1, сульфат_магния25 , 1*60 мл/час)//, 4мин)
	СПАТЬ(4мин)
	ИЗМЕНИТЬ_СКОРОСТЬ(1, сульфат_магния25 , 1 мл/час)
	
КОНЕЦ_БЛОКА




