//ОКС с подъёмом сегмента 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, э1,э2\
	э3, купирование, эффект_нитро, боль_купирована, стратегия, режим, КОЭФФ_АЛЬТЕПЛАЗА, ИНФ_НОМЕР_АЛЬТЕПЛАЗА, ДОЗА_АЛЬТЕПЛАЗА, МАССА, МАССА_скор, НМГ, ВОЗРАСТ, КОЭФФ_ЭНОКСАПАРИН, клиренс_креатинина, ЧКВ, НФГ_невелась, АЧТВ_начальное,\
ИНФ_НОМЕР_НФГ, АЧТВ, ингаляция, ИНФ_НОМЕР_НИТРАТЫ, облегчение_симптомов, ДОЗА_НИТРАТЫ, КОЭФФ_НИТРАТЫ, начать_нитраты,\
начать_бетаблокаторы,непереносимость_иапф, начать_иапф, без_инсульта_анамнезе, тикагрелор_доступен, МАССА_скор80, ИНФ_НОМЕР_Абциксимаб, КОЭФФ_Абциксимаб, риск_кровотечений, КОЭФФ_Бивалирудин, ИНФ_НОМЕР_Бивалирудин, тромболитический_препарат

БЛОК ВХОД
	КОЭФФ_НИТРАТЫ=1
	КОЭФФ_ЭНОКСАПАРИН=1/100
	КОЭФФ_АЛЬТЕПЛАЗА=1.0
	купирование=0
	ингаляция=0
	КОЭФФ_Абциксимаб=1/2
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_спо2, 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5сек)
	облегчение_симптомов=0
	МУЛЬТИВЫБОР("Оценка характера боли.", "боль или дискомфорт, ощущение сдавления, стеснения за грудиной, длительностью более 20 минут/(Отсутствуют=0)/Присутствуют=1", б1,"боль или ощущение тяжести за грудиной, иррадиирующие в нижнюю челюсть, плечи,спину, обе или одну руку, длительностью более 20 минут/(Отсутствуют=0)/Присутствуют=1", б2, "появление стенокардии при ходьбе до 100-200 метров или подъеме на один лестничный пролет/(Отсутствует=0)/Присутствует=1", б3,"появление симптомов при физической нагрузке/(Отсутствует=0)/Присутствует=1", б4,"уменьшение симптомов после прекращения физической нагрузки/(Отсутствует=0)/Присутствует=1", б5,"появление приступов стенокардии в покое/(Отсутствует=0)/Присутствует=1", б6, "постинфарктная стенокардия/(Отсутствует=0)/Присутствует=1", б7,"связанное с болями обильное потоотделение/(Отсутствует=0)/Присутствует=1", б8,"одышка/(Отсутствует=0)/Присутствует=1",б9 )
	МУЛЬТИВЫБОР("Оценка характера боли. Атипичные проявления.","боль в эпигастрии/(Отсутствует=0)/Присутствует=1", аб1,"тошнота, рвота/(Отсутствует=0)/Присутствует=1", аб2,"колющая боль в грудной клетке, боль с признаками, присущими поражению плевры/(Отсутствует=0)/Присутствует=1", аб3,"предобморочное состояние/(Отсутствует=0)/Присутствует=1", аб4)
	МУЛЬТИВЫБОР("Физикальное обследование.","общие признаки (беспокойство, взволнованность)/(Отсутствует=0)/Присутствует=1",ф1, "пациент в сознании/(Да=0)/Нет=1",ф2, "оценка кожных покровов (влажность, бледность, цианотичность)/(Отсутствует=0)/Присутствует=1",ф3,"оценка пульса («малый пульс»)/(Отсутствует=0)/Присутствует=1",ф4, "преходящий шум митральной регургитации/(Отсутствует=0)/Присутствует=1", ф5, "преходящий шум аортальной регургитации/(Отсутствует=0)/Присутствует=1", ф6, "ритм галопа/(Отсутствует=0)/Присутствует=1",ф7,"хрипы в легких (отек легких)/(Отсутствует=0)/Присутствует=1",ф8, "оценка ЧСС и правильности сердечного ритма/(Норма=0)/Патология=1", ф9, "дискомфорт в грудной клетке, воспроизводимый при пальпации/(Отсутствует=0)/Присутствует=1", ф10)
	ЕСЛИ САД>=140 или (САД<=90 и САД>0) то
		гипо_гипертензия=1
	иначе
		гипо_гипертензия=0
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Вероятность ИБС /факторы риска.","перенесенный ранее инфаркт миокарда/(Отсутствует=0)/Присутствует=1",р1, "стабильная стенокардия/(Отсутствует=0)/Присутствует=1", р2, "операция коронарного шунтирования, ЧКВ/(Не проводились=0)/Проводились=1",р3, "возраст старше 70 лет/(Нет=0)/Да=1", р4, "мужской пол/(Да=1)/Нет=0", р5, "сахарный диабет или почечная недостаточност/(Отсутствует=0)/Присутствует=1",р6, "наличие атеросклероза некоронарных артерий (периферических, сонных)/(Отсутствует=0)/Присутствует=1", р7, "отягощенный семейный анамнез/(Отсутствует=0)/Присутствует=1", р8)
	МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","подъем сегмента ST на 1 мВ или более в двух или более смежных отведениях в течение 20 или более минут/(Отсутствует=0)/Присутствует=1", э1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э2)
	ЕСЛИ э1+э2>0 то
		ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST.", 1мин)
	иначе
		ВЫЗОВ_ВРАЧА("ОКС с подъёмом сегмента ST не диагностирован. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Госпитализация в отделение реанимации и интенсивной терапии минуя приемное отделение.",1 мин)
//подтверждение диагноза
	эффект_нитро=ВЫБОР("Оценка эффективности нитроглицерина.", "Боль (дискомфорт) купирована/ослабевает", 1, "Боль (дискомфорт) усилилась/не ослабевает", 0)
	МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","элевация сегмента ST >0,2 мВ в отведениях V2–V3 или >0,1 мВ в других отведениях/(Отсутствует=0)/Присутствует=1", э1, "депрессия сегмента ST или инверсия зубца Т. Клинически установленным ОИМ может быть при наличии любого зубца q в отведениях v1–v3 или зубца q>0,03 с в отведениях I, аvl, avf, v4,v5 или v6/(Отсутствует=0)/Присутствует=1", э2, "остро возникшая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э3)
	ЕСЛИ э1+э2+э3>0 то
		ВЫЗОВ_ВРАЧА("Диагноз ОКС с подъёмом сегмента ST подтверждён.", 1мин)
	иначе
		ВЫЗОВ_ВРАЧА("ОКС с подъёмом сегмента ST не подтверждён. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Рекомендуется повторная регистрация ЭКГ в случае ее первоначальной диагностической  недостоверности (5 минут интервал между съемками), а также дополнительных отведений V7,V8, V4 r. Показан ЭКГ–мониторинг для диагностики витальных аритмий.", 1мин)
	ВЫЗОВ_ВРАЧА("Взять анализы на определение МВ-КФК, миоглобина, сердечного тропонина.", 1мин)
	ВЫЗОВ_ВРАЧА("Забор крови на клинический анализ крови с тромбоцитами, АЧТВ, калий, натрий, креатинин, мочевина, глюкоза.", 1мин)
//2ой этап купирование боли
	АКТИВИРОВАТЬ_БЛОК(купирование_боли, 10 мин)
	МАССА=ВВОД("Введите массу пациента.", 20 , 250)
	ВОЗРАСТ=ВВОД("Введите возраст пациента.", 10, 120)
	стратегия=ВЫБОР("Определение стратегии лечения.", "Тромболитическая терапия на догоспитальном этапе не проведена.",1,"Проведена тромболитическая терапия на догоспитальном этапе.", 2,"Без реперфузии.",3 )
	ЕСЛИ стратегия==1 то
	ВЫЗОВ_ВРАЧА("Первичное ЧКВ проводится в первые 90 минут после первого контакта с врачом (менее 60 минут при ранней госпитализации  и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("ЧКВ предпочтительнее тромболитической терапии, в случае возможности его проведения в сроки менее 120 минут (менее 90 минут при ранней госпитализации и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("При невозможности проведения ЧКВ в указанные сроки следует проводить тромболитическую терапию",1мин)
	ЧКВ=ВЫБОР("Примите решение о проведении ЧКВ?", "Проводить ЧКВ", 1, "Не проводить ЧКВ.", 0)
	ЕСЛИ ЧКВ==1 то
		АКТИВИРОВАТЬ_БЛОК(терапия_ЧКВ, 1000 час)
	иначе
		АКТИВИРОВАТЬ_БЛОК(терапия_без_ЧКВ, 1000 час)
	КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ стратегия==2 то
	ВЫЗОВ_ВРАЧА("Первичное ЧКВ проводится в первые 90 минут после первого контакта с врачом (менее 60 минут при ранней госпитализации  и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("ЧКВ предпочтительнее тромболитической терапии, в случае возможности его проведения в сроки менее 120 минут (менее 90 минут при ранней госпитализации и обширном инфаркте миокарда).", 1мин)
	ВЫЗОВ_ВРАЧА("При невозможности проведения ЧКВ в указанные сроки следует проводить тромболитическую терапию",1мин)
	ЧКВ=ВЫБОР("Примите решение о проведении ЧКВ?", "Проводить ЧКВ", 1, "Не проводить ЧКВ.", 0)
	ЕСЛИ ЧКВ==1 то
		ВЫЗОВ_ВРАЧА("В случае предшествующего проведения успешного тромболизиса проведение коронарной ангиографии с возможным эндоваскулярным вмешательством через 3-24 часа.", 1мин)
		ВЫЗОВ_ВРАЧА("В случае рецидивирующей ишемии, реокклюзии после эффективного тромболизиса - немедленное проведение коронарной ангиографии с возможным эндоваскулярным вмешательством.", 1мин)
		АКТИВИРОВАТЬ_БЛОК(терапия_ЧКВ, 1000 час)
	иначе
		
		АКТИВИРОВАТЬ_БЛОК(терапия_без_ЧКВ, 1000 час)
	КОНЕЦ_ЕСЛИ	
	КОНЕЦ_ЕСЛИ
	ЕСЛИ стратегия==3 то
		АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 1000 час)
		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===========================
БЛОК купирование_боли()
	ЕСЛИ купирование==0 то
	ВЫЗОВ_ВРАЧА("Подготовить раствор морфина 10 мг в физиологическом растворе 20 мл.", 1мин)
	//ВВЕСТИ_БЫСТРО(1, Морфин, 10мл, в/в)
	купирование=1
	иначе
	боль_купирована=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
	ЕСЛИ боль_купирована==1 то
		ВЫХОД
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД< 100 то
		ВЫЗОВ_ВРАЧА("Низкое систалическое давление, (САД) мм.рт.ст.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ купирование==1 то
		
		ВВЕСТИ_БЫСТРО(1, Морфин, 8мл, в/в)
	КОНЕЦ_ЕСЛИ
	
	ЕСЛИ купирование>1 и купирование<4 то
		
		ВВЕСТИ_БЫСТРО(1, Морфин, 4мл, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ купирование==4 то
		ВЫЗОВ_ВРАЧА("Болевой синдром не удаётся купировать. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	купирование=купирование+1
	
КОНЕЦ_БЛОКА
//===================
БЛОК терапия_без_ЧКВ()
	АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 1000час)
	НМГ=ВЫБОР("Терапия низкомолекулярным гепарином велась на предыдущем этапе?","Велась",0, "Не велась", 1)
	клиренс_креатинина=выбор("Оцените клиренс креатинина", "более 30 мл/мин.", 1, "менее 30 мл/мин.", 2)
	АКТИВИРОВАТЬ_БЛОК(эноксапарин_терапия, 24 час)
	НФГ_невелась=ВЫБОР("Терапия нефракционированным гепарином велась на предыдущем этапе?","Велась",0, "Не велась", 1)
	ЕСЛИ МАССА>=66 то
		МАССА_скор=66
	иначе
		МАССА_скор=МАССА
	КОНЕЦ_ЕСЛИ
	АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ НФГ_невелась==1 или (АЧТВ<50 и НФГ_невелась==0) то
		ВВЕСТИ_БЫСТРО(4, нфг,  МАССА_скор*60/5000 мл, в/в)
		СПАТЬ(30 сек)
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
	иначе
		ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ АЧТВ>70 то
			СПАТЬ(30 мин)
			АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
			ЕСЛИ АЧТВ> 70 то
				СПАТЬ(30 мин)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
			АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ<50 то
				ВВЕСТИ_БЫСТРО(4, нфг,  МАССА_скор*60/5000 мл, в/в)
				СПАТЬ(30 сек)
				АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	режим=ВЫБОР("Определите режим тромболитической терапии.","90-минутный ускоренный режим для пациентов , у которых лечение м.б. начато в течение 6 часов после начала симптомов.",1, "3х часовой режим дозирования для пациентов, у которых лечение м.б. начато в промежутке между 6 и 12 часами после развития симптомов.", 2)
	ВЫЗОВ_ВРАЧА("Препарат Альтеплаза нельзя смешивать с другими лекарственными средствами (даже с гепарином) ни во флаконе для инфузии, ни в общей системе для внутривенного введения.", 1мин)
	тромболитический_препарат=ВЫБОР("Выберите тромболитический препарат.", "Тенектеплаза", 1, "Альтеплаза", 2)
	ЕСЛИ тромболитический_препарат==1 то
	ЕСЛИ  МАССА>0 и МАССА<=60 то
		ВВЕСТИ_БЫСТРО(3, Тенектеплаза, 30 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>60 и МАССА<=70 то
		ВВЕСТИ_БЫСТРО(3, Тенектеплаза, 35 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>70 и МАССА<=80 то
		ВВЕСТИ_БЫСТРО(3, Тенектеплаза, 40 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>80 и МАССА<=90 то
		ВВЕСТИ_БЫСТРО(3, Тенектеплаза, 45 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  МАССА>90 то
		ВВЕСТИ_БЫСТРО(3, Тенектеплаза, 50 мг, в/в)
	КОНЕЦ_ЕСЛИ
	иначе
	
	ЕСЛИ режим==1 то
		ВВЕСТИ_БЫСТРО(2, Альтеплаза, 15*КОЭФФ_АЛЬТЕПЛАЗА мл, в/в)
		СПАТЬ(30 сек)
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ(2, Альтеплаза, 0.75*КОЭФФ_АЛЬТЕПЛАЗА*МАССА_скор мл/час)//, 30мин)
		СПАТЬ(30мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза, 0.5*КОЭФФ_АЛЬТЕПЛАЗА*МАССА_скор мл/час)//, 60 мин)
		СПАТЬ(60мин)
		
	иначе
		ВВЕСТИ_БЫСТРО(2, Альтеплаза, 10*КОЭФФ_АЛЬТЕПЛАЗА мл, в/в)
		СПАТЬ(30 сек)
		ИНФ_НОМЕР_АЛЬТЕПЛАЗА=ВВЕСТИ(2, Альтеплаза, 0.75*КОЭФФ_АЛЬТЕПЛАЗА*МАССА_скор мл/час)//, 60мин)
		СПАТЬ(60мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АЛЬТЕПЛАЗА, Альтеплаза, 0.3*КОЭФФ_АЛЬТЕПЛАЗА*МАССА_скор мл/час)//, 120 мин)
		СПАТЬ(120мин)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=============
БЛОК эноксапарин_терапия()
	СПАТЬ(1мин)
	ЕСЛИ НМГ==1 и ВОЗРАСТ< 75 то
		ВВЕСТИ_БЫСТРО(3, Эноксапарин, 30*КОЭФФ_ЭНОКСАПАРИН мл, в/в)
		СПАТЬ(15мин) 
		
	иначе
		ЕСЛИ НМГ==0 то
			клиренс_креатинина=0
		КОНЕЦ_ЕСЛИ
		НМГ=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ МАССА>100 то
		МАССА=100
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ВОЗРАСТ>75 и клиренс_креатинина==1 то 
	ВВЕСТИ_БЫСТРО(3, Эноксапарин, 0.75*МАССА*КОЭФФ_ЭНОКСАПАРИН мл, в/в)
	СПАТЬ(12 час)
	ВВЕСТИ_БЫСТРО(3,Эноксапарин, 0.75*МАССА*КОЭФФ_ЭНОКСАПАРИН мл, в/в)
	иначе
	ВВЕСТИ_БЫСТРО(3,Эноксапарин, МАССА*КОЭФФ_ЭНОКСАПАРИН мл, в/в)
	СПАТЬ(12 час)
	ВВЕСТИ_БЫСТРО(3,Эноксапарин, МАССА*КОЭФФ_ЭНОКСАПАРИН мл, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ клиренс_креатинина == 0 то
		ВЫЗОВ_ВРАЧА("Ввести 1 мкг креатинина подкожно.", 2мин)
	КОНЕЦ_ЕСЛИ
	НМГ=НМГ+1
	ЕСЛИ НМГ==9 то
		ВЫЗОВ_ВРАЧА("Терапия креатинином закончена.", 1мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА

//===============================
БЛОК нфг_терапия()
	ИНФ_НОМЕР_НФГ=ВВЕСТИ(4, нфг, 12*МАССА_скор/5000 мл/час)
	спать(3час)	
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)

	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	спать(6 час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< 1.3*АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)

	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ	
	СПАТЬ(12 час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< 1.5*АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)

	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(24 час)
	АЧТВ=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ АЧТВ_начальное< АЧТВ то
		ВЫЗОВ_ВРАЧА("АЧТВ увеличивается. Продолжать терапию.", 1мин)

	иначе
		ВЫЗОВ_ВРАЧА("АЧТВ не увеличивается!", 1мин)
	КОНЕЦ_ЕСЛИ
	ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_НФГ)
КОНЕЦ_БЛОКА
//==============================
БЛОК трикагрелол()
	СПАТЬ(20 час)
	ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 90 мг.", 1час)
	СПАТЬ(12час)
	ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 90 мг.", 1час)
	ЕСЛИ МАССА>60 и ВОЗРАСТ<75 и без_инсульта_анамнезе==1 то
	ВЫЗОВ_ВРАЧА("Дайте пациенту Прасугрель 10 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==============================
БЛОК терапия_ЧКВ()
	ВЫЗОВ_ВРАЧА("При отсутсвии приема Аспирина на догоспитальном этапе, дать пациенту Аспирин 150-300 мг перорально или 75-150 мг внутривенно, с последующей поддерживающей дозой 75-100 мг/день.",1мин)
	тикагрелор_доступен=ВЫБОР("Тикагрелор доступен?", "Доступен", 1, "Не доступен", 0)
	ЕСЛИ тикагрелор_доступен==1 то
	ВЫЗОВ_ВРАЧА("Дайте пациенту Тикагрелор 180 мг.",1мин)	
	АКТИВИРОВАТЬ_БЛОК(трикагрелол, 24 час)
	иначе
	ЕСЛИ ВОЗРАСТ<=75 то
	ВЫЗОВ_ВРАЧА("Дайте пациенту Клопидогрел 300 мг.", 1мин)
	иначе
	ВЫЗОВ_ВРАЧА("Дате пациенту Клопидогрел 75 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ МАССА>60 и ВОЗРАСТ<75 то
	без_инсульта_анамнезе=ВЫБОР("У пациента в анамнезе не было ни инсульта, ни транзиторной ишемической атаки.", "Верно.", 1, "Неверно, хотя бы одно из перечисленных состояний есть в анамнезе.", 2)
	ЕСЛИ без_инсульта_анамнезе==1 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту Прасугрель 60 мг.", 1мин)	
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ВВЕСТИ_БЫСТРО(5, Абциксимаб, 0.25*МАССА*КОЭФФ_АБЦИКСИМАБ мл, в/в)
	ЕСЛИ МАССА>=80 то
	МАССА_скор80=80
	иначе
	МАССА_скор80=МАССА
	КОНЕЦ_ЕСЛИ
	ИНФ_НОМЕР_Абциксимаб=ВВЕСТИ(5, Абциксимаб, МАССА_скор80*0.125*КОЭФФ_Абциксимаб*60 мл/час)//, 12 час)
	
	клиренс_креатинина=выбор("Оцените клиренс креатинина", "более 30 мл/мин.", 1, "менее 30 мл/мин.", 2)
	АКТИВИРОВАТЬ_БЛОК(эноксапарин_терапия, 24 час)
	НФГ_невелась=ВЫБОР("Терапия нефракционированным гепарином велась на предыдущем этапе?","Велась",0, "Не велась", 1)
	ЕСЛИ МАССА>=66 то
		МАССА_скор=66
	иначе
		МАССА_скор=МАССА
	КОНЕЦ_ЕСЛИ
	АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
	ЕСЛИ НФГ_невелась==1 или (АЧТВ<50 и НФГ_невелась==0) то
		ВВЕСТИ_БЫСТРО(4, нфг,  МАССА_скор*60/5000 мл, в/в)
		СПАТЬ(30 сек)
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
	иначе
		ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
		АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ АЧТВ>70 то
			СПАТЬ(30 мин)
			АЧТВ_начальное=ВВОД("Введите показатель АЧТВ (Активированное частичное тромбопластиновое время), (сек)", 10, 200)
			ЕСЛИ АЧТВ> 70 то
				СПАТЬ(30 мин)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ>=50 и АЧТВ<=70 то
			АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ АЧТВ<50 то
				ВВЕСТИ_БЫСТРО(4, нфг,  МАССА_скор*60/5000 мл, в/в)
				СПАТЬ(30 сек)
				АКТИВИРОВАТЬ_БЛОК(нфг_терапия, 200 час)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	риск_кровотечений=ВЫБОР("Высокий риск опасных кровотечений?", "Присутствует", 1, "Отсутствует", 0)
	ЕСЛИ риск_кровотечений==1 то
		ВВЕСТИ_БЫСТРО(6, Бивалирудин, 0.75*МАССА*КОЭФФ_Бивалирудин*1 мл, в/в)
		ИНФ_НОМЕР_Бивалирудин=ВВЕСТИ(6, Бивалирудин, 1.75*МАССА*КОЭФФ_Бивалирудин мл/час)
	КОНЕЦ_ЕСЛИ
	НМГ=ВЫБОР("Терапия низкомолекулярным гепарином велась на предыдущем этапе?","Велась менее 8 часов назад",0, "Велась менее 8 часов назад и была введена одна доза НМГ.", 1, "Велась более 8 часов назад, но менее 12.", 2, "Велась более 12 часов назад.",3)
	ЕСЛИ НМГ==1 или НМГ==2 то
		ВЫЗОВ_ВРАЧА("Перед  ЧКВ дополнительно внутривенно  ввести клексан 0,3 мг/кг.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ НМГ==0 то
		ВЫЗОВ_ВРАЧА("Перед ЧКВ дополнительно НМГ не вводитью", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ НМГ==3 то
		ВЫЗОВ_ВРАЧА("Возможно введение как НМГ, так и НФГ", 1мин)
	КОНЕЦ_ЕСЛИ
	АКТИВИРОВАТЬ_БЛОК(медикаментозная_терапия, 1000час)
КОНЕЦ_БЛОКА
//========================
БЛОК медикаментозная_терапия()
	СПАТЬ(150 сек)
	ВЫЗОВ_ВРАЧА("При отсутсвии приема Аспирина на догоспитальном этапе, дать пациенту Аспирин 250 мг.",1мин)
	ЕСЛИ ВОЗРАСТ<=75 и стратегия<3 то
	ВЫЗОВ_ВРАЧА("Дать пациенту Клопидогрел 300 мг.", 1мин)
	иначе
	ВЫЗОВ_ВРАЧА("Дать пациенту Клопидогрел 75 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Внутривенное введение нитратов показано пациентам с рецидивирующей стенокардией + СН.", 1мин)
	ВЫЗОВ_ВРАЧА("Нитраты противопоказаны в случае приема силденафина (Viagra), варденафила, тадалафила  в течение предшествующих 24 часов.", 1мин)
	начать_нитраты=ВЫБОР("Начать терапию нитратами?", "Да", 1, "Нет", 0)
	ЕСЛИ начать_нитраты==1 то
		ДОЗА_НИТРАТЫ=10
		ИНФ_НОМЕР_НИТРАТЫ=ВВЕСТИ(5, нитраты, ДОЗА_НИТРАТЫ*КОЭФФ_НИТРАТЫ*60 мл/час)
		АКТИВИРОВАТЬ_БЛОК(терапия_нитратами, 5 сек)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(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 час)
	КОНЕЦ_ЕСЛИ
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Дать пациенту Аторвастатин 40 мг.", 1мин)
	СПАТЬ(1мин)
	ВЫЗОВ_ВРАЧА("Дать пациенту пантопразол 20 мг или лансопразол 30 мг или эзомепразол 40 мг. Внимание! Омепразол противопоказан.", 1мин)
КОНЕЦ_БЛОКА
//==========================
БЛОК контроль_спо2()
	ЕСЛИ СПО2<90 и ингаляция==0 то
	ВЫЗОВ_ВРАЧА("Проводить ингаляцию увлажненного кислорода через носовые канюли, скорость потока 2-8 л/мин.",2мин)
	ингаляция=1
	КОНЕЦ_ЕСЛИ
	СПАТЬ(30 мин)
	ЕСЛИ СПО2>94 и ингаляция==1 то
	ВЫЗОВ_ВРАЧА("Прекратить ингаляцию кислорода. SpO2 в норме.", 1мин)
	ингаляция=0
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================
БЛОК терапия_нитратами()
        СПАТЬ(5мин)
	ЕСЛИ облегчение_симптомов==0 то
	облегчение_симптомов=ВЫБОР("У пациента наступило облегчение симптомов после терапии нитратами?", "Да",1, "Нет", 0)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ облегчение_симптомов==0 то
		ДОЗА_НИТРАТЫ=ДОЗА_НИТРАТЫ+10
		ИЗМЕНИТЬ_СКОРОСТЬ(5, нитраты, ДОЗА_НИТРАТЫ*КОЭФФ_НИТРАТЫ*60 мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД< 100 то
		ВЫЗОВ_ВРАЧА("Низкое систалическое АД!", 1мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================
БЛОК верапамил()
	ВЫЗОВ_ВРАЧА("Дайте пациенту Верапамил 80-160 мг, под контролем АД и ЧСС.", 1мин)
КОНЕЦ_БЛОКА
//=====================
БЛОК каптоприл()
	ЕСЛИ САД>=110 то
	ЕСЛИ непереносимость_иапф==0 то
		ВЫЗОВ_ВРАЧА("Дайте пациенту Каптоприл 12,5-25 мг", 1мин)
	иначе	
		ВЫЗОВ_ВРАЧА("Дайте пациенту Валсартан 20 мг или Лозартан 12,5 мг.", 1мин)
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//========================















