//Бронхиальная астма диагностика и лечение стационар
Переменные: ПСВ, ПСВ_реф, ПаО2, ПаЦО2, речь, обострение, ИВЛ, ИВ, и1, и2, и3, и4,а1, а2, а3, а4, а5, а6, а7, ПСВ_флаг, ИНФ_НОМЕР_МАГНЕЗИЯ, жизнеугрожающие_симптомы, ИНФ_НОМЕР_ГИДРОКОРТИЗОН, улучшение,\
	пол, возраст, рост, выбор_препарат, ИНФ_НОМЕР_ПРЕДНИЗОЛОН, ПеременнаяМинуты,МассивДата[6]

БЛОК ВХОД
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 1 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 1 мин)
	ПаЦО2=0
ЕСЛИ СПО2<=92 то
ВЫЗОВ_ВРАЧА("Возьмите анализ крови на газы. Ингаляция кислорода, если нет показаний к переводу на АИВЛ.")
МУЛЬТИВЫБОР("Абсолютные показания к ИВЛ", "Остановка дыхания/Было=1/Не было=0",и1, "Нарушения сознания (сопор, кома)/Было=1/Не было=0",и2, "Общее утомление,истощение больного/Есть=1/Нет",и3,"Утомление дыхательных мышц/Есть=1/Нет=0",и4)
ИВ=и1+и2+и3+и4
ЕСЛИ ИВ>=1 и САД<70 и (ЧСС<50 или ЧСС>160) то
ИВЛ=1
ВЫЗОВ_ВРАЧА("Переведите пациента на ИВЛ в режиме CPAP, FiO2 = 50%.", 1мин)
иначе
ИВЛ=0
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
	ПСВ_реф=ВВОД("Введите пиковую скорость выдоха из анамнеза, если неизвестно введите 0", 0, 1000)
	ЕСЛИ ПСВ_реф==0 то
		пол=ВЫБОР("Укажите пол пациента", "Мужской", 1, "Женский", 0, 1-станд_пол)
		рост=ВВОД("Оцените рост пациента, (см)", 20, 250, станд_рост)
		возраст=ВВОД("Введите возраст пациента", 15, 120, станд_возраст)
		ЕСЛИ возраст>85 то
			возраст=85
		КОНЕЦ_ЕСЛИ
//==калькулятор ПСВ
	ЕСЛИ пол==1 то
	ЕСЛИ 187<рост то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210+12+10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3+13+13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7+12+12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 179<рост и рост<=187 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210+10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3+13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7+12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 171<рост и рост <=179 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 163<рост и рост<=171 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210-12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3-17
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7-13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ рост<=163 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210-14-12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3-16-17
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7-12-13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	иначе 
	ЕСЛИ 179<=рост то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245+9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7+9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15+7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 171<рост и рост<=179 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 163<рост и рост<=171 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 156<рост и рост<=163 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-9-9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-10-10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-7-7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ  рост<=156 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-11-18
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-12-20
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-9-14
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
//==конец калькулятор ПСВ
		//ВЫЗОВ_ВРАЧА("Референсная ПСВ равна "+строка(ПСВ_реф), 2мин)
	КОНЕЦ_ЕСЛИ
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха, (л/мин) .", 0, 1000)
	ПаО2=ВВОД("Введите показатель PaO2, если неизвестно укажите 0 (мм.рт.ст.)", 0, 120)
	ПаЦО2=ВВОД("Введите показатель PaCO2, (мм.рт.ст.)", 0, 60)
	ЕСЛИ ПаЦО2>=45 или ИВЛ==1 то
	обострение=4
	ВЫЗОВ_ВРАЧА("Диагностирована астма, близкая к фатальной.", 1мин)
	КОНЕЦ_ЕСЛИ
речь=ВЫБОР("Пациент может сказать предолжение на одном вдохе?","Да, может", 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 то
		АКТИВИРОВАТЬ_БЛОК(умеренное_обострение, 1 мин) //выход в конце
	КОНЕЦ_ЕСЛИ
	ЕСЛИ обострение==2 то
		АКТИВИРОВАТЬ_БЛОК(тяжелое_обострение, 1 мин) //выход в конце
	КОНЕЦ_ЕСЛИ
	ЕСЛИ обострение==3 то
		АКТИВИРОВАТЬ_БЛОК(обострение_угрозой_жизни, 1 мин) //выход в конце
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК умеренное_обострение()
	ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 10мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 10мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 или ПСВ<0.5*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 10мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		выход
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+20
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 20 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 20 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(20мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 1мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 или ПСВ<0.5*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		выход
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+20
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 20 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 20 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(20мин)
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	ЕСЛИ ПСВ<0.75*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 1мин)	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 или ПСВ<0.5*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		выход
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+60
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 60 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 60 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(60мин)
	АКТИВИРОВАТЬ_БЛОК(ПСВ75, 1мин)	
	выход
КОНЕЦ_БЛОКА
//===================
БЛОК ПСВ75()
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	ЕСЛИ ПСВ<0.75*ПСВ_реф и ПрошлоМинут>= 60 то
		ВЫЗОВ_ВРАЧА("Проведите ингаляцию ипратропия бромида при помощи небулайзера в дозе 500 мкг и 40 мг преднизолона перорально.", 1мин)	
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+120
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
			Вызов_Врача("При отсутствии ухудшения показателей повторный приём лекарственных средств через 120 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения показателей повторный приём лекарственных средств через 120 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(120мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 или ПСВ<0.5*ПСВ_реф то
		ВЫЗОВ_ВРАЧА("Пациент нестабилен. SpO2=(СПО2), ЧСС=(ЧСС), ЧДД=(ЧДД).", 1мин)
		АКТИВИРОВАТЬ_БЛОК(ПСВ50, 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ПрошлоМинут>60 то
		//ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
			ЕСЛИ ПСВ<0.5*ПСВ_реф то
			АКТИВИРОВАТЬ_БЛОК(тяжелое_обострение, 1 мин)	 
			КОНЕЦ_ЕСЛИ
		ВЫЗОВ_Врача("Приступ астмы купирован.", 10 мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+15
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 15 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 15 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК ПСВ50()
	ВЫЗОВ_ВРАЧА("Проведите ингаляцию ипратропия бромида при помощи небулайзера в дозе 500 мкг", 1мин)
	Разведение("2х20")
	ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ_НАЧАТЬ(1, Магнезия, 1.2/20*1000*60 мг/час, 20 мин)
	ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 20мин)
	СПАТЬ(5сек)
	ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 20мин)
	СПАТЬ(5сек)
	ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 20мин)
	ЕСЛИ СПО2<92 или ЧДД>25 или ЧСС>110 то
	АКТИВИРОВАТЬ_БЛОК(тяжелое_обострение, 1 мин)	 
	иначе
ВЫЗОВ_ВРАЧА("Продолжать терапию")		
КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_обострение()
	ЕСЛИ ИВЛ==0 то
	ВЫЗОВ_ВРАЧА("Проводите ингаляцию кислорода , скорость потока 1-4 л/мин", 1мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 1мин)
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+4
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 4 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 4 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(4мин)
	АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ75, 1мин)
	ВЫХОД
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_ПСВ75()
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	жизнеугрожающие_симптомы=ВЫБОР("Появились жизнеугрожающие симптомы?", "Да",1,"Нет", 0)
	ЕСЛИ ПСВ<0.5*ПСВ_реф или жизнеугрожающие_симптомы==1 то
		ЕСЛИ ИВЛ==0 то
		ВЫЗОВ_ВРАЧА("Проводите ингаляцию кислорода , скорость потока 1-4 л/мин", 1мин)
		КОНЕЦ_ЕСЛИ
		ВЫЗОВ_ВРАЧА("Проведите ингаляцию ипратропия при помощи небулайзера в дозе 500 мкг", 1мин)
		выбор_препарат=ВЫБОР("Выбрите для болюсного введения:", "Гидрокортизон", 1, "Преднизолон", 0)
		ЕСЛИ выбор_препарат==1 то
		ВВЕСТИ_БЫСТРО(1, Гидрокортизон, 100 мг, в/в)//, 20 мин)
		иначе
		ВВЕСТИ_БЫСТРО(1, Преднизолон, 60 мг, в/в)
		КОНЕЦ_ЕСЛИ
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+12
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 12 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 12 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(12 мин)
		ЕСЛИ ИВЛ==0 и СПО2<94 то
			ВЫЗОВ_ВРАЧА("Переведите пациента на ИВЛ в режиме CPAP, FiO2 = 50%.", 10мин)
		КОНЕЦ_ЕСЛИ
		АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ50, 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ((ПСВ<0.75*ПСВ_реф и ПСВ>=0.5*ПСВ_реф) или ЧСС>=110 или  ЧДД>=25) и жизнеугрожающие_симптомы==0 то
		ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг и 40 мг преднизолона перорально.", 1мин)	
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+4
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 4 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 4 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(4мин)
		АКТИВИРОВАТЬ_БЛОК(тяжелое_ПСВ50, 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	
	ЕСЛИ ПрошлоМинут>60 то
			ЕСЛИ ПСВ<0.5*ПСВ_реф то
				ВЫЗОВ_ВРАЧА("При необходимости переход в экспертный режим", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		ВЫЗОВ_Врача("Приступ астмы купирован.", 10 мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК тяжелое_ПСВ50()
	ПСВ=ВВОД("Введите текущую пиковую скорость выдоха.", 0, 1000)
	жизнеугрожающие_симптомы=ВЫБОР("Появились жизнеугрожающие симптомы?", "Да",1,"Нет", 0)
	ЕСЛИ ПСВ<0.5*ПСВ_реф или жизнеугрожающие_симптомы==1 то
		ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг", 1мин)
		Разведение("2х20")
	ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ_НАЧАТЬ(2, Магнезия, 1.2/20*1000*60 мг/час, 20 мин)
		ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 20мин)
		СПАТЬ(5сек)
		ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 20мин)
		СПАТЬ(5сек)
		ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 20мин)
		
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+1
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 1 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное измерение ПСВ через 1 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК обострение_угрозой_жизни()
	ЕСЛИ ИВЛ==0 то
ВЫЗОВ_ВРАЧА("Проводите ингаляцию кислорода , скорость потока 1-4 л/мин", 1мин)
	КОНЕЦ_ЕСЛИ
ВЫЗОВ_ВРАЧА("Провести ингаляцию сальбутамолом в дозе 2.5 мг.",1мин)
	выбор_препарат=ВЫБОР("Выбрите для болюсного введения:", "Гидрокортизон", 1, "Преднизолон", 0)
	ЕСЛИ выбор_препарат==1 то
		ВВЕСТИ_БЫСТРО(1, Гидрокортизон, 100 мг, в/в)//, 20 мин)
	иначе
		ВВЕСТИ_БЫСТРО(1, Преднизолон, 60 мг, в/в)
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+12
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторное введение лекарственных средств через 12 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 12 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторное введение лекарственных средств через 12 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 12 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(12 мин)
	ЕСЛИ СПО2<94 и ИВЛ==0 то
		ВЫЗОВ_ВРАЧА("Переведите пациента на ИВЛ в режиме CPAP, FiO2 = 50%.", 10мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Проведите ингаляцию ипратропия бромида при помощи небулайзера в дозе 500 мкг", 1мин)
	Разведение("2х20")
	ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ_НАЧАТЬ(2, Магнезия, 1.2*1000/20*60 мг/час, 20 мин)
	ВЫЗОВ_ВРАЧА("Проверить присутствуют ли водно-электролитные нарушения.", 20мин)
	СПАТЬ(5сек)
	ВЫЗОВ_ВРАЧА("Сделать рентгенографию грудной клетки.", 20мин)
	СПАТЬ(5сек)
	ВЫЗОВ_ВРАЧА("Забор артериальной крови на анализ КЩС.", 20мин)
	МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+240
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторная ингаляция ипратропия бромида через 4 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 1 мин )
		иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторная ингаляция ипратропия бромида через 4 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 1 мин )
		КОНЕЦ_ЕСЛИ
	СПАТЬ(240 мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_БЛОКА