//ОКС с подъёмом ST диагностика и лечение стационар
Переменные:инф_номер_нитроглицерин,б1,б2,б3,б4,б5,б6,б7,б8,б9,аб1,аб2,аб3,аб4,ф1,ф2,ф3,ф4,ф5,Ф6,ф7,ф8,ф9,ф10, гипо_гипертензия,р1,р2,р3,р4,р5,р6,р7,р8,р9,р10,р11,р12,р13,р14, э1,э2\
	э3, купирование, эффект_нитро, боль_купирована, стратегия, режим, ИНФ_НОМЕР_АЛЬТЕПЛАЗА, ДОЗА_АЛЬТЕПЛАЗА, МАССА, МАССА_скор, НМГ, ВОЗРАСТ, клиренс_креатинина, клиренс, креатининПлазмы, ПОЛ, ЧКВ, НФГ_невелась, АЧТВ_начальное,\
ИНФ_НОМЕР_НФГ, АЧТВ, ингаляция, ИНФ_НОМЕР_НИТРАТЫ, повышение_ад, облегчение_симптомов, ДОЗА_НИТРАТЫ, начать_нитраты, тропонин, антикоагулянт,\
начать_бетаблокаторы,непереносимость_иапф, начать_иапф, без_инсульта_анамнезе, доза_нитроглицерин, п2у12_ингибитор, МАССА_скор80, ИНФ_НОМЕР_Абциксимаб, риск_кровотечений, ИНФ_НОМЕР_Бивалирудин, тромболитический_препарат, кардиотоники, ИНФ_НОМЕР_допамин, доза_допамин, ритм, ритм1, ритм2, ритм3, ритм4, ИВЛ_подключен, МассивДата[6], ПеременнаяМинуты


БЛОК ВХОД
	ИВЛ_подключен=0
	купирование=0
	ингаляция=0
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_спо2, 5мин)
	АКТИВИРОВАТЬ_БЛОК(контроль_дыхания, 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5сек)
	облегчение_симптомов=0
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_дыхания, 5сек )
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД_ШОК, 1 мин)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 5 мин)
	ВЫЗОВ_ВРАЧА("Взять анализ на тропонин.", 2мин)
	ВЫЗОВ_ВРАЧА("Рекомендуется повторная регистрация ЭКГ в случае ее первоначальной диагностической  недостоверности (5 минут интервал между съемками), а также дополнительных отведений V7,V8, V4 r. Показан ЭКГ–мониторинг для диагностики витальных аритмий.", 10мин)
	ВЫЗОВ_ВРАЧА("Взять анализы на определение МВ-КФК.", 10мин)
	ВЫЗОВ_ВРАЧА("Забор крови на клинический анализ крови с тромбоцитами, АЧТВ, калий, натрий, креатинин, мочевина, глюкоза.", 10мин)
//2ой этап купирование боли медикаментозная терапия
	ЕСЛИ ИВЛ_подключен==0 и ингаляция==0 то
	ВЫЗОВ_ВРАЧА("Ингаляция увлажненного кислорода через носовые канюли при насыщении кислородом менее 90% скорость потока 4 л/минуту.", 5 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>90 то
	АКТИВИРОВАТЬ_БЛОК(купирование_нитроглицерином, 5 мин)
	иначе
	АКТИВИРОВАТЬ_БЛОК(купирование_боли, 5 мин)
	КОНЕЦ_ЕСЛИ
ВЫЗОВ_ВРАЧА("Дать пациенту Аспирин 150-300 мг разжевать, если не было на догоспитальном этапе.", 2мин)
	ВЫЗОВ_ВРАЧА("Дать пациенту Клопидогрел  300 мг, а для лиц старше 75 лет доза 75 мг.", 2 мин)
	МАССА=ВВОД("Введите массу пациента.", 20 , 250,станд_вес)
	ВОЗРАСТ=ВВОД("Введите возраст пациента.", 18, 120, станд_возраст)
	стратегия=ВЫБОР("Определение стратегии лечения.", "Тромболитическая терапия на догоспитальном этапе не проведена",1,"Проведена тромболитическая терапия на догоспитальном этапе", 2,"Позднее поступление в стационар",3 )
	ЕСЛИ стратегия==1 то
	ВЫЗОВ_ВРАЧА("Первичное ЧКВ проводится в первые 90 минут после первого контакта с врачом (менее 60 минут при ранней госпитализации  и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("ЧКВ предпочтительнее тромболитической терапии, в случае возможности его проведения в сроки менее 120 минут (менее 90 минут при ранней госпитализации и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("При невозможности проведения ЧКВ в указанные сроки следует проводить тромболитическую терапию",1мин)
	ЧКВ=ВЫБОР("Примите решение о проведении ЧКВ?", "Проводить ЧКВ", 1, "Не проводить ЧКВ", 0)
	ЕСЛИ ЧКВ==1 то
		АКТИВИРОВАТЬ_БЛОК(терапия_ЧКВ, 24 час)
	иначе
		АКТИВИРОВАТЬ_БЛОК(терапия_без_ЧКВ, 24 час)
	КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ стратегия==2 то
	ВЫЗОВ_ВРАЧА("Первичное ЧКВ проводится в первые 90 минут после первого контакта с врачом (менее 60 минут при ранней госпитализации  и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("ЧКВ предпочтительнее тромболитической терапии, в случае возможности его проведения в сроки менее 120 минут (менее 90 минут при ранней госпитализации и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("При невозможности проведения ЧКВ в указанные сроки следует проводить тромболитическую терапию",1мин)
	ЧКВ=ВЫБОР("Примите решение о проведении ЧКВ?", "Проводить ЧКВ", 1, "Не проводить ЧКВ.", 0)
	ЕСЛИ ЧКВ==1 то
		ВЫЗОВ_ВРАЧА("В случае предшествующего проведения успешного тромболизиса проведение коронарной ангиографии с возможным эндоваскулярным вмешательством через 3-24 часа.", 1мин)
		ВЫЗОВ_ВРАЧА("В случае рецидивирующей ишемии, реокклюзии после эффективного тромболизиса - немедленное проведение коронарной ангиографии с возможным эндоваскулярным вмешательством.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(терапия_ЧКВ, 1 мин)
	иначе
		
		АКТИВИРОВАТЬ_БЛОК(терапия_без_ЧКВ, 24 час)
	КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ стратегия==3 то
		АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 24 час)
		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===========================
БЛОК купирование_нитроглицерином()
	боль_купирована=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
		ЕСЛИ боль_купирована==0 то
		ВЫЗОВ_ВРАЧА("Дать пациенту нитроглицерин спрей 0,4 мг под язык или таблетку нитроглицерин 0,5 мг.", 5 мин)
		иначе
		ВЫХОД
		КОНЕЦ_ЕСЛИ
	СПАТЬ(5 мин)
	эффект_нитро=ВЫБОР("Оценка эффективности нитроглицерина.", "Боль (дискомфорт) купирована/ослабевает", 1, "Боль (дискомфорт) усилилась/не ослабевает", 0)
	ЕСЛИ эффект_нитро==0 то
		ВЫЗОВ_ВРАЧА("Дать пациенту нитроглицерин спрей 0,4 мг под язык или таблетку нитроглицерин 0,5 мг.", 5 мин)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(5мин)
		эффект_нитро=ВЫБОР("Оценка эффективности нитроглицерина.", "Боль (дискомфорт) купирована/ослабевает", 1, "Боль (дискомфорт) усилилась/не ослабевает", 0)
		ЕСЛИ эффект_нитро==0 то
			ВЫЗОВ_ВРАЧА("Дать пациенту нитроглицерин спрей 0,4 мг под язык или таблетку нитроглицерин 0,5 мг.", 5 мин)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+5
			МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
			СПАТЬ(5мин)
			эффект_нитро=ВЫБОР("Оценка эффективности нитроглицерина.", "Боль (дискомфорт) купирована/ослабевает", 1, "Боль (дискомфорт) усилилась/не ослабевает", 0)
			ЕСЛИ эффект_нитро==0 то
				ВЫЗОВ_ВРАЧА("Нитроглицерин неэффективен для купирования боли. Начать купирование боли морфином.", 5 мин)
				АКТИВИРОВАТЬ_БЛОК(купирование_боли, 10 мин) 
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ВЫХОД
КОНЕЦ_БЛОКА
//===========================
БЛОК купирование_боли()
	боль_купирована=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
		ЕСЛИ боль_купирована==0 то
		ВЫЗОВ_ВРАЧА("Подготовить раствор морфина 10 мг в физиологическом растворе 20 мл.",5 мин)
		Разведение("20x20")
		ВВЕСТИ_БЫСТРО(1, Морфин, 4мг, в/в)
		купирование=1
		иначе
		ВЫХОД
		КОНЕЦ_ЕСЛИ
		СПАТЬ(10 мин)
		
	ЕСЛИ САД< 100 то
		ВЫЗОВ_ВРАЧА("Низкое систолическое давление, (САД) мм.рт.ст.", 1мин)
	КОНЕЦ_ЕСЛИ
	
	
	ЕСЛИ купирование>1 и купирование<5 то
		Разведение("20x20")
		ВВЕСТИ_БЫСТРО(1, Морфин, 2мг, в/в)
		СПАТЬ(5мин)
		КОНЕЦ_ЕСЛИ
	ЕСЛИ купирование==5 то
		ВЫЗОВ_ВРАЧА("Болевой синдром не удаётся купировать. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	купирование=купирование+1 
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+10
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка характера болевого синдрома через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка характера болевого синдрома через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
БЛОК терапия_без_ЧКВ()
	АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 1 мин)
	НМГ=ВЫБОР("Терапия низкомолекулярным гепарином велась на предыдущем этапе?","Не велась", 1, "Велась",0, "Велась более 8 часов назад", 1)
	КреатининПлазмы=ВВОД("Введите показатель креатинина плазмы(мг/дл)", 0, 200)
	ПОЛ=ВЫБОР("Укажите пол пациента", "Муж",1, "Жен", 0, 1-станд_пол)
	ЕСЛИ ПОЛ==1 то
	клиренс=(140-ВОЗРАСТ)*МАССА/(72*КреатининПлазмы)
	иначе
	клиренс=(140-ВОЗРАСТ)*МАССА/(72*КреатининПлазмы)*0.85
	КОНЕЦ_ЕСЛИ
ЕСЛИ клиренс>30 то
клиренс_креатинина=1
иначе 
клиренс_креатинина=0
КОНЕЦ_ЕСЛИ
ВЫЗОВ_ВРАЧА("Клиренс креатинина оценивается в "+строка(клиренс)+"мл/мин", 1мин)
	НФГ_невелась=ВЫБОР("Терапия нефракционированным гепарином велась на предыдущем этапе?", "Не велась", 1,"Велась",0)
	антикоагулянт=ВЫБОР("Выберите доступный антикоагулянт", "Эноксапарин (низкомолекулярный гепарин)", 1, "Нефракционированный гепарин", 2)
	ЕСЛИ антикоагулянт==1 то
		АКТИВИРОВАТЬ_БЛОК(эноксапарин_терапия, 1 мин)
	КОНЕЦ_ЕСЛИ
ЕСЛИ антикоагулянт == 2 то	
	ЕСЛИ МАССА>=66 то
		МАССА_скор=66
	иначе
		МАССА_скор=МАССА
	КОНЕЦ_ЕСЛИ
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	АЧТВ_начальное=АЧТВ
	ЕСЛИ НФГ_невелась==1 или (АЧТВ<50 и НФГ_невелась==0) то
		ВВЕСТИ_БЫСТРО(3, нфг,  МАССА_скор*60 Ед, в/в)
		СПАТЬ(30 сек)
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
	иначе
		ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ АЧТВ>70 то
			
			СПАТЬ(30 мин)
			АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
			ЕСЛИ АЧТВ> 70 то
				МассивДата = ТекущееВремя
				ПеременнаяМинуты = минуты(МассивДата)+30
				МассивДата = дата(ПеременнаяМинуты)
				ЕСЛИ (МассивДата[4])<10 то
				Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
				иначе
				Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
				КОНЕЦ_ЕСЛИ
				СПАТЬ(30 мин)
				АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
				ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
					АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
				КОНЕЦ_ЕСЛИ
				ЕСЛИ АЧТВ<50 то
					ВВЕСТИ_БЫСТРО(3, нфг,  МАССА_скор*60 Ед, в/в)
					СПАТЬ(30 сек)
					АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
				КОНЕЦ_ЕСЛИ
				ЕСЛИ АЧТВ>70 то
					ВЫЗОВ_ВРАЧА("АЧТВ не уменьшается. Завершение работы алгоритма.", 30 мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
			АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ<50 то
				ВВЕСТИ_БЫСТРО(3, нфг,  МАССА_скор*60 Ед, в/в)
				СПАТЬ(30 сек)
				АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Абсолютные противопоказания к проведению тромболизиса:", "ранее перенесенный геморрагический инсульт или НМК неизвестной этиологии/(Отсутствует=0)/Присутствует=1", р1, "ишемический инсульт, перенесенный в течение последних 6-и месяцев/(Отсутствует=0)/Присутствует=1", р2, "повреждения ЦНС или ее новообразования или артериовенозные мальформации/(Отсутствуют=0)/Присутствуют=1", р3, "недавняя серьёзная травма, хирургическое вмешательство, травма головы (в течение предыдущих 3-х недель)/(Отсутствует=0)/Присутствует=1", р4, "желудочно-кишечное кровотечение (в течение последнего месяца)/(Отсутствует=0)/Присутствует=1", р5, "геморрагический диатез (кроме menses)/(Отсутствует=0)/Присутствует=1", р6, "расслоение аорты/(Отсутствует=0)/Присутствует=1", р7, "пункция некомпрессируемых сосудов (биопсия печени,спинно-мозговая пункция) в течение последних суток/(Отсутствует=0)/Присутствует=1", р8)
	ЕСЛИ 	р1+р2+р3+р4+р5+р6+р7+р8>0 то
		ВЫЗОВ_ВРАЧА("Тромболитическая терапия абсолютно противопоказана.")
	ВЫХОД
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Относительные противопоказания:", "транзиторная ишемическая атака в предыдущие 6 месяцев/(Отсутствует=0)/Присутствует=1", р1, "плохо контролируемая АГ (в момент госпитализации САД >180 мм.рт.ст. или ДАД>110 мм.рт.ст.)/(Отсутствует=0)/Присутствует=1", р2, "тяжелое заболевание печени/(Отсутствует=0)/Присутствует=1", р3, "инфекционный эндокардит/(Отсутствует=0)/Присутствует=1", р4, "травматичная или длительная (>10 мин) сердечно-легочная реанимация/(Отсутствует=0)/Присутствует=1", р5, "при использовании стрептокиназы, введение стрептокиназы, в т.ч.модифицированной, более 5 суток назад или известная аллергия на нее/(Отсутствует=0)/Присутствует=1", р6, "беременность и 1-я неделя после родов/(Отсутствует=0)/Присутствует=1", р7, "обострение язвенной болезни/(Отсутствует=0)/Присутствует=1", р8, "прием антагонистов витамина К (чем выше МНО, тем выше риск кровотечения)/(Отсутствовал=0)/Присутствовал=1", р9)
	
	ЕСЛИ р1+р2+р3+р4+р5+р6+р7+р8+р9>0 то
		ВЫЗОВ_ВРАЧА("Тромболитическая терапия проводится по решению врача.")
	КОНЕЦ_ЕСЛИ
	режим=ВЫБОР("Проводить тромболитическую терапию?", "Да",1, "Нет", 0)
	ЕСЛИ режим==1 то 
	ВЫЗОВ_ВРАЧА("Подготовьте дефибриллятор, необходим контроль сердечного ритма")
	тромболитический_препарат=ВЫБОР("Выберите тромболитический препарат.", "Тенектеплаза", 1, "Альтеплаза", 2)
	ЕСЛИ тромболитический_препарат==1 то
	ЕСЛИ  МАССА>0 и МАССА<=60 то
		ВВЕСТИ_БЫСТРО(0, Тенектеплаза, 30 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>60 и МАССА<=70 то
		ВВЕСТИ_БЫСТРО(0, Тенектеплаза, 35 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>70 и МАССА<=80 то
		ВВЕСТИ_БЫСТРО(0, Тенектеплаза, 40 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>80 и МАССА<=90 то
		ВВЕСТИ_БЫСТРО(0, Тенектеплаза, 45 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>90 то
		ВВЕСТИ_БЫСТРО(0, Тенектеплаза, 50 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тромболитический_препарат==2 то
		режим=ВЫБОР("Определите режим тромболитической терапии.","При назначении в период до 6 час после появления симптомов",1, " При назначении через 6–12 ч с момента появления симптомов", 2)
		ВЫЗОВ_ВРАЧА("Препарат Альтеплаза нельзя смешивать с другими лекарственными средствами (даже с гепарином) ни во флаконе для инфузии, ни в общей системе для внутривенного введения.", 1мин)
		ЕСЛИ МАССА>65 то
		ЕСЛИ режим==1 то
		ВВЕСТИ_БЫСТРО(2, Альтеплаза, 15 мг, в/в)
		СПАТЬ(45 сек)
		Доза(50, "мг")
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ_НАЧАТЬ(2, Альтеплаза, 100 мг/час,30 мин)
		
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+30
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(30мин)
		Доза(35, "мг/час")
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза, 35 мг/час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(60мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА)
		иначе
		ВВЕСТИ_БЫСТРО("Болюсно введите альтеплаза 10 мг в/в.", 2, Альтеплаза, 10 мг, в/в)
		СПАТЬ(30 сек)
		Доза(50, "мг/час")
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ_НАЧАТЬ(2, Альтеплаза, 50 мг/час, 1 час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(60мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза,20 мг/час)
		ВЫЗОВ_ВРАЧА("Введение альтеплазы по 10 мг в течение получаса, общая доза за 2 часа составляет 40 мг", 1 мин)		
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+2*60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 120 минут (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 120 минут (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(120мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
ЕСЛИ МАССА<=65 то
		ЕСЛИ режим==1 то
		ВВЕСТИ_БЫСТРО(2, Альтеплаза, 15 мг, в/в)
		СПАТЬ(45 сек)
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ_НАЧАТЬ(2, Альтеплаза, 100 мг/час,30 мин)
		
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+30
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(30мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза, (МАССА*1.5-65) мг/час) 
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(60мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА)
		иначе
		ВВЕСТИ_БЫСТРО("Болюсно введите альтеплаза 10 мг в/в.", 2, Альтеплаза, 10 мг, в/в)
		СПАТЬ(30 сек)
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ_НАЧАТЬ(2, Альтеплаза, 50 мг/час, 1 час)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров изменение скорости введения Альтеплазы через 60 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(60мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза, (МАССА*1.5-60)/2 мг/час) 
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+2*60
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 2 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения параметров окончание введения Альтеплазы через 2 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(120мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА)
		КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
	
КОНЕЦ_БЛОКА
//=============
БЛОК эноксапарин_терапия()
	СПАТЬ(1мин)
	ЕСЛИ НМГ==1 и ВОЗРАСТ<= 75 то
		ВВЕСТИ_БЫСТРО(0, Эноксапарин, 30 мг, в/в)
		СПАТЬ(15мин) 
		
	иначе
		ЕСЛИ НМГ==0 то
			клиренс_креатинина=0  //??
		КОНЕЦ_ЕСЛИ
		НМГ=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ МАССА>100 то
		МАССА=100
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ВОЗРАСТ>75 и клиренс_креатинина==1 то 
	ВВЕСТИ_БЫСТРО(0, Эноксапарин, 0.75*МАССА мг, в/в)
	СПАТЬ(12 час)
	ВВЕСТИ_БЫСТРО(0,Эноксапарин, 0.75*МАССА мг, в/в)
	иначе
	ВВЕСТИ_БЫСТРО(0,Эноксапарин, 1*МАССА мг, в/в)
	СПАТЬ(12 час)
	ВВЕСТИ_БЫСТРО(0,Эноксапарин, 1*МАССА мг, в/в)
	ВЫХОД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ клиренс_креатинина == 0 то
		ВЫЗОВ_ВРАЧА("Ввести 1 мкг Эноксапарина подкожно.", 2мин)
	КОНЕЦ_ЕСЛИ
	НМГ=НМГ+1
	ЕСЛИ НМГ==9 то
		ВЫЗОВ_ВРАЧА("Терапия Эноксапарином закончена.", 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

//===============================
БЛОК нфг_терапия()	
	ЕСЛИ МАССА>=83.3 то
		МАССА_скор=83.3
	иначе
		МАССА_скор=МАССА
	КОНЕЦ_ЕСЛИ
	Доза(12, "ЕД/кг/час")
	 	РАЗВЕДЕНИЕ("10x20")
	 	ИНФ_НОМЕР_НФГ=ВВЕСТИ_НАЧАТЬ(3, нфг, 12*МАССА_скор ЕД/час)
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+3*60
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 3 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 3 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ
	спать(3час)	
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)
		АЧТВ_начальное=АЧТВ
	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	Доза(12, "ЕД/кгчас")
		РАЗВЕДЕНИЕ("10x20")
	ИНФ_НОМЕР_НФГ=ВВЕСТИ_НАЧАТЬ(3, нфг, 12*МАССА_скор ЕД/час)
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+6*60
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 6 часа (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 15 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения параметров повторный осмотр, забор крови и измерение АЧТВ через 6 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 15 мин )
	КОНЕЦ_ЕСЛИ
	спать(6час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< 1.3*АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)
		АЧТВ_начальное=АЧТВ
	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ	
	Доза(12, "ЕД/кгчас")
		РАЗВЕДЕНИЕ("10х20")
	ИНФ_НОМЕР_НФГ=ВВОДИТЬ_И_ЖДАТЬ(3, нфг, 12*МАССА_скор ЕД/час, 12 час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< 1.5*АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)
		АЧТВ_начальное=АЧТВ
	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	Доза(12, "ЕД/кгчас")
		РАЗВЕДЕНИЕ("10х20")
	ИНФ_НОМЕР_НФГ=ВВОДИТЬ_И_ЖДАТЬ(3, нфг, 12*МАССА_скор ЕД/час, 24 час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)
		//АЧТВ_начальное=АЧТВ
	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Инфузия нфг закончена.", 30 мин)
	ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_НФГ)
	ВЫХОД
КОНЕЦ_БЛОКА
//==============================
БЛОК тикагрелор()
	ЕСЛИ п2у12_ингибитор==2 то
	СПАТЬ(20 час)
	ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 90 мг.", 1час)
	СПАТЬ(12час)
	ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 90 мг.", 1час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ п2у12_ингибитор==1 то
	СПАТЬ(20 час)
	ВЫЗОВ_ВРАЧА("Дайте пациенту Прасугрель 10 мг.", 1мин)
	СПАТЬ(4час)
	КОНЕЦ_ЕСЛИ
	выход
КОНЕЦ_БЛОКА
//==============================
БЛОК терапия_ЧКВ()
	ВЫЗОВ_ВРАЧА("При отсутсвии приема Аспирина на догоспитальном этапе, дать пациенту Аспирин 150-300 мг перорально или 75-150 мг внутривенно, с последующей поддерживающей дозой 75-100 мг/день.",1мин)
	п2у12_ингибитор=ВЫБОР("Выберите доступный P2Y12 ингибитор", "Тикагрелор", 2, "Прасугрель (возраст менее 75 лет, масса более 60 кг, без инсульта и транзиторной ишемической атаки в анамнезе)", 1, "Клопидогрел", 0)
	ЕСЛИ п2у12_ингибитор==2 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 180 мг.",10 мин)	
		АКТИВИРОВАТЬ_БЛОК(тикагрелор, 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ п2у12_ингибитор==1 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту Прасугрель 60 мг.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(тикагрелор, 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  п2у12_ингибитор==0 то
		ЕСЛИ ВОЗРАСТ<=75 то
			ВЫЗОВ_ВРАЧА("Дайте пациенту Клопидогрел 300 мг.", 10 мин)
			ВЫЗОВ_ВРАЧА("Если планируется чрескоронарное вмешательство нагрузочная доза клопидогреля 600 мг или дополнительный прием 300 мг ( если начальная нагрузочная доза 300 мг была уже принята).", 10 мин)
		иначе
			ВЫЗОВ_ВРАЧА("Дате пациенту Клопидогрел 75 мг.", 10 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	
	ВЫЗОВ_ВРАЧА("Блокаторы GP IIb/IIIa рецепторов показаны пациентам с признаками крупного внутрикоронарного тромбоза (более 20 мм), высоким риском интраоперационных тромботических осложнений.", 20 мин)
	ВЫЗОВ_ВРАЧА("При проведении ЧКВ Абциксимаб внутривенно болюсом "+строка(0.25*МАССА)+" мг, затем внутривенная инфузия по "+строка(0.125*МАССА)+" мг/мин.", 20 мин)
	//ВВЕСТИ_БЫСТРО(0, Абциксимаб, 0.25*МАССА мг, в/в)
	//ЕСЛИ МАССА>=80 то
	//МАССА_скор80=80
	//иначе
	//МАССА_скор80=МАССА
	//КОНЕЦ_ЕСЛИ
	//Доза(0.125, "мг/кг/мин")
	//ИНФ_НОМЕР_Абциксимаб=ВВЕСТИ_НАЧАТЬ(0, Абциксимаб, МАССА_скор80*0.125*60 мг/час, 12 час)
	
КреатининПлазмы=ВВОД("Введите показатель креатинина плазмы(мг/дл)", 0, 200)
	ПОЛ=ВЫБОР("Укажите пол пациента", "Муж",1, "Жен", 0, 1-станд_пол)
	ЕСЛИ ПОЛ==1 то
	клиренс=(140-ВОЗРАСТ)*МАССА/(72*КреатининПлазмы)
	иначе
	клиренс=(140-ВОЗРАСТ)*МАССА/(72*КреатининПлазмы)*0.85
	КОНЕЦ_ЕСЛИ
ЕСЛИ клиренс>30 то
клиренс_креатинина=1
иначе 
клиренс_креатинина=0
КОНЕЦ_ЕСЛИ
ВЫЗОВ_ВРАЧА("Клиренс креатинина оценивается в "+строка(клиренс)+"мл/мин", 1мин)
	АКТИВИРОВАТЬ_БЛОК(эноксапарин_терапия, 24 час)
	НФГ_невелась=ВЫБОР("Терапия нефракционированным гепарином велась на предыдущем этапе?","Велась",0, "Не велась", 1)
	ЕСЛИ МАССА>=66 то
		МАССА_скор=66
	иначе
		МАССА_скор=МАССА
	КОНЕЦ_ЕСЛИ
	АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ НФГ_невелась==1 или (АЧТВ<50 и НФГ_невелась==0) то
		ВВЕСТИ_БЫСТРО(3, нфг,  МАССА_скор*60 мг, в/в)
		СПАТЬ(30 сек)
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
	иначе
		ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ АЧТВ>70 то
			СПАТЬ(30 мин)
			АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
			ЕСЛИ АЧТВ> 70 то
				СПАТЬ(30 мин)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
			АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ<50 то
				ВВЕСТИ_БЫСТРО(3, нфг,  МАССА_скор*60 мг, в/в)
				СПАТЬ(30 сек)
				АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 1 мин)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	риск_кровотечений=ВЫБОР("Высокий риск опасных кровотечений?", "Присутствует", 1, "Отсутствует", 0)
	ЕСЛИ риск_кровотечений==1 то
		ВВЕСТИ_БЫСТРО(0, Бивалирудин, 0.75*МАССА*1 мг, в/в)
		Доза(1.75, "мг/кгчас")
		ИНФ_НОМЕР_Бивалирудин=ВВЕСТИ_НАЧАТЬ(0, Бивалирудин, 1.75*МАССА мг/час)
	КОНЕЦ_ЕСЛИ
	НМГ=ВЫБОР("Терапия низкомолекулярным гепарином велась на предыдущем этапе?","Велась менее 8 часов назад",0, "Велась менее 8 часов назад и была введена одна доза НМГ.", 1, "Велась более 8 часов назад, но менее 12.", 2, "Велась более 12 часов назад.",3)
	ЕСЛИ НМГ==1 или НМГ==2 то
		ВЫЗОВ_ВРАЧА("Перед  ЧКВ дополнительно внутривенно  ввести клексан 0,3 мг/кг.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ НМГ==0 то
		ВЫЗОВ_ВРАЧА("Перед ЧКВ дополнительно НМГ не вводить", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ НМГ==3 то
		ВЫЗОВ_ВРАЧА("Возможно введение как НМГ, так и НФГ", 1мин)
	КОНЕЦ_ЕСЛИ
	АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 1 мин)
	спать(1мин)
	выход
КОНЕЦ_БЛОКА
//========================
БЛОК медикаментозная_терапия()
	СПАТЬ(150 сек)
	ВЫЗОВ_ВРАЧА("При отсутствии приема Аспирина на предыдущем этапе, дать пациенту Аспирин 250 мг.",1мин)
	ЕСЛИ ВОЗРАСТ<=75 и стратегия<3 то
	ВЫЗОВ_ВРАЧА("При отсутсвии приема Клопидогрела на предыдущем этапе, дать пациенту Клопидогрел 300 мг.", 1мин)
	иначе
	ВЫЗОВ_ВРАЧА("При отсутсвии приема Клопидогрела на предыдущем этапе, дать пациенту Клопидогрел 75 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Внутривенное введение нитратов показано пациентам с рецидивирующей стенокардией или сердечной недостаточночти.", 1мин)
	ЕСЛИ САД>=90 или (ЧСС>=50 и ЧСС<=100) то
	ВЫЗОВ_ВРАЧА("Нитраты противопоказаны в случае приема силденафина (Viagra), варденафила, тадалафила  в течение предшествующих 24 часов. Подозрение на инфаркт правого желудочка, АД < 90 мм.рт.ст. или при понижении более чем на 30 мм.рт.ст. от исходного, ЧСС менее 50 или более 100 в минуту.",1мин)
	начать_нитраты=ВЫБОР("Начать внутривенную терапию нитратами?", "Да", 1, "Нет", 0)
	ЕСЛИ начать_нитраты==1 то
		доза_нитроглицерин=10
		АКТИВИРОВАТЬ_БЛОК(терапия_нитратами, 5мин)
		иначе
		УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5мин)
		ЕСЛИ САД>100 то
		АКТИВИРОВАТЬ_БЛОК(терапия_нитратами, 5мин)
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
иначе
ВЫЗОВ_ВРАЧА("При АД менее 90 мм.рт.ст, ЧСС менее 50 или более 100 введение нитратов противопоказано", 1 мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Бета-блокаторы рекомендованы при стабилизации состояния пациента, отсутствии признаков СН (Killip < III).", 1мин)
	ВЫЗОВ_ВРАЧА("Противопоказания для приема бета-блокаторов: кардиогенный шок, артериальная гипотония (менее 90 мм рт ст), брадикардия менее 50 ударов в минуту, нарушение предсердно-желудочковой проводимости интервал PQ более 240 мс, АВ блокада II-III степени, бронхоспазм", 1мин)
	начать_бетаблокаторы=ВЫБОР("Начать терапию бета-блокаторами?", "Да", 1, "Нет", 0)
ЕСЛИ начать_бетаблокаторы==1  то
	ЕСЛИ ЧСС>=110 и САД>=140 то
		ВЫЗОВ_ВРАЧА("Дать пациенту 100 мг метопролола.", 1мин)
	иначе
	ЕСЛИ (ЧСС>=80 и ЧСС<= 110) и САД>=110 то
		ВЫЗОВ_ВРАЧА("Дать пациенту 50 мг метопролола.", 1мин)
	иначе
	ЕСЛИ ЧСС>=60 и САД>=100 то
		ВЫЗОВ_ВРАЧА("Дать пациенту 25 мг метопролола.", 1мин)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
иначе
		АКТИВИРОВАТЬ_БЛОК(верапамил, 8час)
		
КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Ингибиторы АПФ/БРА показаны при снижении систолической функции ЛЖ ФВ <= 40% или с признаками СН.",1мин)
	начать_иапф=ВЫБОР("Начать терапию ингибиторами АПФ/БРА?", "Да", 1, "Нет", 0)
	ЕСЛИ начать_иапф==1 то
	непереносимость_иапф=ВЫБОР("У пациента есть непереносимость ИАПФ?", "Да", 1, "Нет",0)
	АКТИВИРОВАТЬ_БЛОК(каптоприл, 8 час)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(12час)
	ВЫЗОВ_ВРАЧА("Дать пациенту пантопразол 20 мг или лансопразол 30 мг или эзомепразол 40 мг. При недоступности Омепразол 20 мг.", 1мин)
	СПАТЬ(12час)
	ВЫЗОВ_ВРАЧА("Дать пациенту Аторвастатин 40 мг.", 1мин)
	ВЫХОД
КОНЕЦ_БЛОКА
//==========================
БЛОК контроль_спо2()
	ЕСЛИ СПО2<=90 и ингаляция==0 то
	ВЫЗОВ_ВРАЧА("Проводить ингаляцию увлажненного кислорода через носовые канюли, скорость потока 2-8 л/мин.",2мин)
	ингаляция=1
	КОНЕЦ_ЕСЛИ
	СПАТЬ(30 мин)
	ЕСЛИ СПО2>94 и ингаляция==1 то
	ВЫЗОВ_ВРАЧА("Прекратить ингаляцию кислорода. SpO2 в норме.", 1мин)
	ингаляция=0
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================
БЛОК терапия_нитратами()
	ВЫЗОВ_ВРАЧА("Раствор нитроглицерина быстро разрушается на свету. Необходимо экранировать светонепроницаемым материалом")
	инф_номер_нитроглицерин=ВВЕСТИ_НАЧАТЬ(1, нитроглицерин, ДОЗА_НИТРОГЛИЦЕРИН*60*0.001 мг/час)
	СПАТЬ(30мин)
	ПОКА САД>100
	повышение_ад=ВЫБОР("Наблюдается ли тенденция к повышению АД?", "Да", 1, "Нет", 0)
	ЕСЛИ повышение_ад==1 то
		доза_нитроглицерин=доза_нитроглицерин+10
			ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_нитроглицерин, нитроглицерин, доза_нитроглицерин*60*0.001 мг/час)
				ЕСЛИ САД<90 или СРАД<70 то 
				ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_нитроглицерин)
				КОНЕЦ_ЕСЛИ
		ЕСЛИ доза_нитроглицерин==200 то
			ВЫЗОВ_ВРАЧА("Терапия нитроглицерином не эффективна. Завершение работы алгоритма.Переход в экспертный режим", 2 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		иначе
		ВЫЗОВ_ВРАЧА("Продолжать инфузию нитроглицерина в прежней дозе.", 15 мин)
	КОНЕЦ_ЕСЛИ 
	КОНЕЦ_ПОКА
		
	
	ЕСЛИ САД<=90 или СРАД<=70 то 
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_нитроглицерин)
	КОНЕЦ_ЕСЛИ
	
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+5
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии ухудшения параметров коррекция дозы нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения параметров коррекция дозы нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================
БЛОК верапамил()
	ВЫЗОВ_ВРАЧА("Дайте пациенту Верапамил 80-160 мг, под контролем АД и ЧСС.", 1мин)
	
КОНЕЦ_БЛОКА
//=====================
БЛОК каптоприл()
	ЕСЛИ САД>=110 то
	ЕСЛИ непереносимость_иапф==0 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту Каптоприл 12,5-25 мг", 1мин)
	иначе	
		ВЫЗОВ_ВРАЧА("Дайте пациенту Валсартан 20 мг или Лозартан 12,5 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	
КОНЕЦ_БЛОКА
//========================
БЛОК контроль_дыхания()
	ЕСЛИ (ЧДД<8 или ЧДД>28) и ИВЛ_подключен==0 то
		ВЫЗОВ_ВРАЧА("Проведите интубацию! Подключите пациента к ИВЛ.", 10 мин)
		ИВЛ_подключен=1
		СПАТЬ(5мин)
		ЕСЛИ (ЧДД<8 или ЧДД>28) и ИВЛ_подключен==0 то
			ВЫЗОВ_ВРАЧА("ЧДД не нормализуется. Проверьте правильность подключения аппарата ИВЛ.", 10 мин)
			ВЫХОД
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======
БЛОК ОБРАБОТКА_АД_ШОК()
	ЕСЛИ САД<=90 или СРАД<70 то 
	ВЫЗОВ_ВРАЧА("Проведите регистрацию и анализ дополнительных ЭКГ отведений V7, V8, V9, V3R,V4R, V5R,V6R")
    	кардиотоники=ВЫБОР("Начать внутривенную терапию кардиотоническими препаратами? ", "Да", 1, "Нет", 0)
		ЕСЛИ ЧСС>90 то
		ритм=ВЫБОР("Необходимо исключить нарушения ритма. Есть нарушения ритма? ", "Да", 1, "Нет", 0)
			ЕСЛИ ритм==1 то
			ВЫЗОВ_ВРАЧА("Возможно требуется проведение электроимпульсной терапии с начальной дозой 100 ДЖ, при необходимости повторить и повысить дозу до 200 ДЖ")
			СПАТЬ(1мин)
ритм1=ВЫБОР("Ритм восстановлен ", "Да", 1, "Нет", 0)
ЕСЛИ ритм1==0 то
ВЫЗОВ_ВРАЧА("Повторите проведение электроимпульсной терапии с дозой 150 ДЖ")
ритм2=ВЫБОР("Ритм восстановлен ", "Да", 1, "Нет", 0)
ЕСЛИ ритм2==0 то
ВЫЗОВ_ВРАЧА("Повторите проведение электроимпульсной терапии с дозой 200 ДЖ")
ритм3=ВЫБОР("Ритм восстановлен ", "Да", 1, "Нет", 0)
ЕСЛИ ритм3==0 то
ВЫЗОВ_ВРАЧА("Развести 450 мг амиодарона до 50 мл в 5% растворе глюкозы.", 2мин)
ВВЕСТИ_БЫСТРО(1, амиодарон, 5*МАССА мг,в/в)
ритм4=ВЫБОР("Ритм восстановлен ", "Да", 1, "Нет", 0)
ЕСЛИ ритм4==0 то
ВЫЗОВ_ВРАЧА("Повторите проведение электроимпульсной терапии с дозой 200 ДЖ, при необходимости перейдите в экспертный режим")
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
	ЕСЛИ кардиотоники==1 то
	доза_допамин=5
	Доза(5, "мкг/кгмин")
	ИНФ_НОМЕР_ДОПАМИН=ВВЕСТИ_НАЧАТЬ(1,ДОПАМИН,0.005*МАССА*60 мг/час)
	СПАТЬ(1мин)
	иначе
	ВЫХОД
	КОНЕЦ_ЕСЛИ
	СПАТЬ (15 мин)
			ЕСЛИ САД>90 то 
			доза_допамин=3
			Доза(ДОЗА_ДОПАМИН, "мкг/кг/мин")
			ИНФ_НОМЕР_ДОПАМИН=ВВЕСТИ_НАЧАТЬ(1,ДОПАМИН,ДОЗА_ДОПАМИН*МАССА*60/1000 мг/час)
			КОНЕЦ_ЕСЛИ
	ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================================================================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). При необходимости перейдите в экспертный режим", 10мин)
		КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС<60 или ЧСС>90 то
	ВЫЗОВ_ВРАЧА("Оцените регулярность сердечного ритма", 1 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА












