//Бронхиальная астма диагностика и лечение мобильная версия

Переменные: ПСВ, ПСВ_реф, ПаО2, ПаЦО2, речь, обострение, ИВЛ, а1, а2, а3, а4, а5, а6, а7, ПСВ_флаг, КОЭФФ_МАГНЕЗИЯ, ИНФ_НОМЕР_МАГНЕЗИЯ, жизнеугрожающие_симптомы, ИНФ_НОМЕР_ГИДРОКОРТИЗОН, КОЭФФ_ГИДРОКОРТИЗОН

БЛОК ВХОД
	КОЭФФ_МАГНЕЗИЯ=1/500
	КОЭФФ_ГИДРОКОРТИЗОН=1.0
	ИВЛ=ВЫБОР("Есть необходимость в ИВЛ с повышенным давлением на вдохе?", "Да", 1, "Нет", 0)
	ПаЦО2=ВВОД("Введите показатель PaCO2, (мм.рт.ст.)", 0, 60)
	ЕСЛИ ИВЛ==1 или ПаЦО2>45 то
		ВЫЗОВ_ВРАЧА("Диагностировано околофатальное обострение. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ПСВ_реф=ВВОД("Введите пиковую скорость вдоха из анамнеза или расчётную.", 0, 100)
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 1 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 1 мин)
	ПаО2=ВВОД("Введите показатель PaO2, (мм.рт.ст.)", 0, 120)
	речь=ВЫБОР("Пациент может сказать предолжение на одном вдохе?","Да, может", 1,"Нет, не может", 0)
	ЕСЛИ ПСВ<0.5*ПСВ_реф и СПО2<92 или ЧДД>25 или ЧСС>110 или речь==0 или ПаЦО2>= 35 или ПаО2< 60 то
		обострение=2
	иначе
		обострение=1
		ВЫЗОВ_ВРАЧА("Диагностировано умеренное обострение бронхиальной астмы.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ обострение==2 то
		ЕСЛИ ПаО2<60 или ( ПаЦО2>=35 и ПаЦО2<=45 ) или ПСВ<0.3*ПСВ_реф то
			ВЫЗОВ_ВРАЧА("Диагностировано обострение бронхиальной астмы с угрозой жизни.", 1мин)
		иначе
		МУЛЬТИВЫБОР("Укажите наличие следующих жизнеугрожающих признаков признаков.", "Нарушение сознания/(Нет=0)/Да=1", а1, "Истощение/(Нет=0)/Да=1", а2, "Аритмия/(Нет=0)/Да=1", а3, "Гипотензия/(Нет=0)/Да=1", а4, "Цианоз/(Нет=0)/Да=1", а5, "Отсутствие дыхательных шумов/(Нет=0)/Да=1", а6, "Слабое дыхательное усилие/(Нет=0)/Да=1", а7)
		ЕСЛИ а1+а2+а3+а4+а5+а6+а7>0 то
			обострение=3
			ВЫЗОВ_ВРАЧА("Диагностировано обострение бронхиальной астмы с угрозой жизни.", 1мин)
		иначе
			ВЫЗОВ_ВРАЧА("Диагностировано тяжелое обострение бронхиальной астмы.", 1мин)
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	//лечение
	ЕСЛИ обострение==1 то
		АКТИВИРОВАТЬ_БЛОК(умеренное_обострение, 10 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ обострение==2 то
		АКТИВИРОВАТЬ_БЛОК(тяжелое_обострение, 10 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ обострение==3 то
		АКТИВИРОВАТЬ_БЛОК(обострение_угрозой_жизни, 10 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК умеренное_обострение()
	ВЫЗОВ_ВРАЧА("Произведите четыре нажатия (вдоха) сольбутамола.", 1мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Произведите два нажатия (вдоха) сольбутамола.", 1мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Произведите два нажатия (вдоха) сольбутамола.", 1мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Произведите два нажатия (вдоха) сольбутамола.", 1мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	АКТИВИРОВАТЬ_БЛОК(ПСВ75, 1мин)	
КОНЕЦ_БЛОКА
//===================
БЛОК ПСВ75()
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	ЕСЛИ ПСВ<0.75*ПСВ_реф и ПрошлоМинут<= 60 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту 5 мг сальбутамола через небулайзер и 40 мг преднизолона перорально.", 1мин)	
		СПАТЬ(5мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		//ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		//ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ПрошлоМинут>60 то
		//ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
			ЕСЛИ ПСВ<0.5*ПСВ_реф то
				ВЫЗОВ_ВРАЧА("Перейти к алгоритму стационарного лечения.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК ПСВ50()
	ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг и ипратропиум бромид 0,5 мг через небулайзер с кислородом.", 1мин)
	ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ(1, Магнезия, 1.2/20*60*КОЭФФ_МАГНЕЗИЯ мл/час)//, 20 мин)
	ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 1мин)
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 1мин)
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 1мин)
	СПАТЬ(38 мин)
	ВЫЗОВ_ВРАЧА("Перейти к алгоритму стационарного лечения.", 1мин)
	ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_обострение()
	ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг через небулайзер с кислородом.", 1мин)
	СПАТЬ(4мин)
	АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ75, 1мин)
	//ВЫХОД
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_ПСВ75()
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	жизнеугрожающие_симптомы=ВЫБОР("Появились жизнеугрожающие симптомы?", "Да",1,"Нет", 0)
	ЕСЛИ (ПСВ<0.75*ПСВ_реф и ПСВ>=0.5*ПСВ_реф) или СПО2<92 или ЧДД>25 или ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту 5 мг сальбутамола через небулайзер и 40 мг преднизолона перорально.", 1мин)	
		ПОКА ПрошлоМинут<=20
			СПАТЬ(1мин)
		КОНЕЦ_ПОКА
		АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ50, 1мин)
		//ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ПСВ<0.5*ПСВ_реф или жизнеугрожающие_симптомы==1 то
		ВЫЗОВ_ВРАЧА("Установите кислородную маску.", 1мин)
		ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг и ипратропиум бромид 0,5 мг через небулайзер с кислородом.", 1мин)
		ВВЕСТИ_БЫСТРО(1, Гидрокортизон, 100*КОЭФФ_ГИДРОКОРТИЗОН мл, в/в)//, 20 мин)
		СПАТЬ(12 мин)
		ЕСЛИ СПО2<94 то
			ВЫЗОВ_ВРАЧА("Переведите пациента на ИВЛ в режиме CPAP, FiO2 = 50%.", 10мин)
		КОНЕЦ_ЕСЛИ
		АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ50, 1мин)
		//ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ПрошлоМинут>60 то
			ЕСЛИ ПСВ<0.5*ПСВ_реф то
				ВЫЗОВ_ВРАЧА("Перейти к алгоритму стационарного лечения.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_ПСВ50()
	ПСВ=ВВОД("Введите текущую пиковую скорость вдоха.", 0, 100)
	жизнеугрожающие_симптомы=ВЫБОР("Появились жизнеугрожающие симптомы?", "Да",1,"Нет", 0)
	ЕСЛИ ПСВ<0.5*ПСВ_реф или жизнеугрожающие_симптомы==1 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг и ипратропиум бромид 0,5 мг через небулайзер с кислородом.", 1мин)
		ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ(2, Магнезия, 1.2/20*60*КОЭФФ_МАГНЕЗИЯ мл/час)//, 20 мин)
		ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 1мин)
		СПАТЬ(1мин)
		ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 1мин)
		СПАТЬ(1мин)
		ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 1мин)
		СПАТЬ(38 мин)
		ВЫЗОВ_ВРАЧА("Перейти к алгоритму стационарного лечения.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК обострение_угрозой_жизни()
	ВЫЗОВ_ВРАЧА("Установите кислородную маску.", 1мин)
	ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг и ипратропиум бромид 0,5 мг через небулайзер с кислородом.",1мин)
	ВВЕСТИ_БЫСТРО(1, Гидрокортизон, 100*КОЭФФ_ГИДРОКОРТИЗОН мл, в/в)//, 20 мин)
	СПАТЬ(12 мин)
	ЕСЛИ СПО2<94 то
		ВЫЗОВ_ВРАЧА("Переведите пациента на ИВЛ в режиме CPAP, FiO2 = 50%.", 10мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Дайте пациенту сальбутамол 5мг и ипратропиум бромид 0,5 мг через небулайзер с кислородом.", 1мин)
	ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ(2, Магнезия, 1.2/20*60*КОЭФФ_МАГНЕЗИЯ мл/час)//, 20 мин)
	ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 1мин)
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 1мин)
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 1мин)
	СПАТЬ(38 мин)
	ВЫЗОВ_ВРАЧА("Перейти к алгоритму стационарного лечения.", 1мин)
	ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_БЛОКА