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


БЛОК ВХОД
	риск_инвазивная=0
	купирование_боли_активирован=0
	ИВЛ_подключен=0
	купирование=0
	ингаляция=0
	облегчение_симптомов=0
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 5сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_спо2, 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5сек)
	АКТИВИРОВАТЬ_БЛОК(контроль_дыхания, 5сек )
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД_ШОК, 1 мин)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 5 мин)
	МУЛЬТИВЫБОР("Оценка характера боли.", "боль или дискомфорт, ощущение сдавления, стеснения за грудиной, длительностью более 20 минут/(Отсутствуют=0)/Присутствуют=1", б1,"боль или ощущение тяжести за грудиной, иррадиирующие в нижнюю челюсть, плечи,спину, обе или одну руку, длительностью более 20 минут/(Отсутствуют=0)/Присутствуют=1", б2, "впервые появление стенокардии при ходьбе до 100-200 метров или подъеме на один лестничный пролет/(Отсутствует=0)/Присутствует=1", б3,"появление симптомов при физической нагрузке/(Отсутствует=0)/Присутствует=0.5", б4,"уменьшение симптомов после прекращения физической нагрузки/(Отсутствует=0)/Присутствует=0.5", б5,"появление приступов стенокардии в покое/(Отсутствует=0)/Присутствует=1", б6, "постинфарктная стенокардия/(Отсутствует=0)/Присутствует=0.5", б7,"связанное с болями обильное потоотделение/(Отсутствует=0)/Присутствует=0.5", б8,"одышка/(Отсутствует=0)/Присутствует=0.5",б9)
	МУЛЬТИВЫБОР("Оценка характера боли. Атипичные проявления.","боль в эпигастрии/(Отсутствует=0)/Присутствует=0.25", аб1,"тошнота, рвота/(Отсутствует=0)/Присутствует=0.25", аб2,"колющая боль в грудной клетке, боль с признаками, присущими поражению плевры/(Отсутствует=0)/Присутствует=0.05", аб3)
	МУЛЬТИВЫБОР("Физикальное обследование.", "преходящий шум митральной регургитации/(Отсутствует=0)/Присутствует=0.25", ф5, "преходящий шум аортальной регургитации/(Отсутствует=0)/Присутствует=0.25", ф6, "ритм галопа/(Отсутствует=0)/Присутствует=0.25",ф7,"хрипы в легких (отек легких)/(Отсутствует=0)/Присутствует=0.25",ф8, "оценка ЧСС и правильности сердечного ритма/(Норма=0)/Патология=0.25", ф9)
	МУЛЬТИВЫБОР("Вероятность ИБС /факторы риска.","перенесенный ранее инфаркт миокарда/(Отсутствует=0)/Присутствует=0.1",р1, "стабильная стенокардия/(Отсутствует=0)/Присутствует=0.1", р2, "операция коронарного шунтирования, ЧКВ/(Не проводились=0)/Проводились=0.1",р3, "мужской пол/(Да=0.1)/Нет=0", р5, "сахарный диабет или почечная недостаточност/(Отсутствует=0)/Присутствует=0.1",р6, "наличие атеросклероза некоронарных артерий (периферических, сонных)/(Отсутствует=0)/Присутствует=0.1", р7, "отягощенный семейный анамнез/(Отсутствует=0)/Присутствует=0.1", р8)
	ЕСЛИ станд_возраст>70 то
р4=0.1
иначе
р4=0
КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST более 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и//или более 0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", э1, "новая блокада левой ножки пучка Гиса/(Отсутствует=0)/Присутствует=1", э2, "депрессия сегмента ST 0.05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", э3,"инверсия//реверсия зубца Т/(Отсутствует=0)/Присутствует=1", э4, "кратковременный менее 20 минут подъем сегмента ST 0.1 мВ/(Отсутствует=0)/Присутствует=1", э5)

ЭКГ=э1+э2+э3+э4+э5
Если САД<100 то
ф4=0.25
иначе 
ф4=0
КОНЕЦ_ЕСЛИ
диагноз=б1+б2+б3+б4+б5+б6+б7+аб1+аб2+аб3+ф4+ф5+Ф6+ф7+ф8+ф9+р1+р2+р3+р4+р5+р6+р7+р8
ЕСЛИ диагноз<1 то
ВЫЗОВ_ВРАЧА("ОКС маловероятен. Завершение работы алгоритма.", 1мин)
ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_ЕСЛИ
ЕСЛИ диагноз>=1 и ЭКГ==0 то
	ВЫЗОВ_ВРАЧА("Диагностирован ОКС без подъёма сегмента ST.", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ диагноз>=1 и э1+э2>0 то
	ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма.Переход в алгоритм с подъёмом сегмента ST", 1мин)
	АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение стационар")
	ВЫХОД
	ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
ЕСЛИ диагноз>=1 и э3+э4+э5>0 то
		ВЫЗОВ_ВРАЧА("Для проведения диагностики необходимо снятие дополнительных отведений ЭКГ (V3R, V4R, V5R, V7R, V8R,V9R)", 1мин)
		МУЛЬТИВЫБОР("Оценка ЭКГ в 12 отведениях.","Подъем ST > 0.2 мВ у мужчин и 0.15 мВ у женщин V2, V3 и или > 0.1 мВ в других отведениях, в случаях, когда нет блокады левой ножки пучка Гиса и гипертрофии левого желудочка/(Отсутствует=0)/Присутствует=1", эк1, "новая блокада одной из ножек ветвей пучка Гиса/(Отсутствует=0)/Присутствует=1", эк2, "депрессия сегмента ST 0,05 мВ в двух или более соседних отведениях/(Отсутствует=0)/Присутствует=1", эк3,"инверсия/реверсия зубца Т/(Отсутствует=0)/Присутствует=1", эк4, "кратковременный менее 20 минут подъем сегмента ST 0,1 мВ/(Отсутствует=0)/Присутствует=1", эк5)
			ЕСЛИ эк1+эк2>0 то
			ВЫЗОВ_ВРАЧА("Диагностирован ОКС с подъёмом сегмента ST. Завершение работы алгоритма. Переход в алгоритм с подъёмом сегмента ST", 1мин)
			АЛГОРИТМ("ОКС с подъёмом ST диагностика и лечение мобильная")
			ОСТАНОВИТЬ_АЛГОРИТМ
			ВЫХОД
			иначе
			ВЫЗОВ_ВРАЧА("Диагностирован ОКС без подъёма сегмента ST", 1мин)
			КОНЕЦ_ЕСЛИ			
		КОНЕЦ_ЕСЛИ
		ЕСЛИ ф8==0.25 то
		ВЫЗОВ_ВРАЧА("Не исключен отёк легких легких. При необходимости перейдите в экспертный режим")
		КОНЕЦ_ЕСЛИ

	ЕСЛИ б1+б2+б3+б4>0 то
		АКТИВИРОВАТЬ_БЛОК(купирование_боли, 1 мин)
		купирование_боли_активирован=1
		СПАТЬ(20 сек)
	КОНЕЦ_ЕСЛИ
	//ВЫЗОВ_ВРАЧА("Взять анализ на тропонин.", 2мин)
	//тропонин=ВЫБОР("Тропонин", "в норме", 0, "выше нормы или положительный", 1)
	МАССА=ВВОД("Введите массу пациента, (кг)", 20, 250,станд_вес)
	ВЫЗОВ_ВРАЧА("Забор крови на клинический анализ тропонина, гемоглобина, лейкоформулы, креатинина, глюкозы крови.", 10мин)
	ВЫЗОВ_ВРАЧА("Необходимо выполнение обзорной рентгенографии грудной клетки в течение первых 30 минут. При возможности выполнить Эхо-КГ в течение первых 3-х часов.", 30 мин)
	ВЫЗОВ_ВРАЧА("Установите время первичного контакта с врачом (время прибытия СМП).", 10 мин)
//шкала GRACE	
	киллип=ВЫБОР("Классы риска смерти от инфаркта миокарда по Killip","Нет признаков сердечной недостаточности",1, "Влажные хрипы в нижней половине лёгочных полей и/или выслушивающийся III тон сердца",2,\
"Отёк лёгких: влажные хрипы распространяющиеся более чем до середины лопаток", 3, "Кардиогенный шок: САД<=90 мм.рт.ст. в сочетании с признаками периферической гипоперфузии", 4)
	ЕСЛИ киллип==1 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 6 %.", 5 мин)
		г5=0
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==2 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 17 %.", 5 мин)
		г5=20
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==3 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 38 %.", 5 мин)
		г5=39
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==4 то
		г5=59
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 67 %.", 5 мин)
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("GRACE. Укажите клинические признаки", "Возраст/(менее 30)=0/30-39=8/40-49=25/50-59=41/60-69=58/70-79=75/80-89=91/90 или более=100", г1,\
 "ЧСС/(менее 50=0)/50-69=3/70-89=9/90-109=15/110-149=24/150-199=38/200 или более=46", г2,\
 "Систолическое АД/менее 80=58/80-99=53/100-119=43/(120-139=34)/140-159=24/160-199=10/200 или более=0", г3,\
 "Уровень креатинина, мкмоль//л/(менее 35=1)/35-70=4/71-105=7/106-140=10/141-176=13/177-353=21/354 или более=28",г4,\
 "Остановка сердца на момент поступления пациента/(Не было=0)/Была=39",г6,\
 "Девиация сегмента ST/(Отсутствует=0)/Присутствует=28",г7,\
 "Повышение тропонина/(Отсутствует=0)/Присутствует=14",г8)
	грэйс=г1+г2+г3+г4+г5+г6+г7+г8
	ЕСЛИ грэйс<109 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности низкий, менее 1%.", 5мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ грэйс>=109 и грэйс<140 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности средний, от 1% до 3%.", 5мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ грэйс>=140 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности высокий, более 3%.", 5мин)
	КОНЕЦ_ЕСЛИ
//конец шкалы GRACE
	ВЫЗОВ_ВРАЧА("По данным обзорной рентгенографии грудной клетки исключение застоя в малом круге кровообращения, зон инфильтрации, подозрительных на пневмонию.", 30 мин)
	ВЫЗОВ_ВРАЧА("По данным исследования Эхо-КГ проведите оценку зон нарушения региональной сократимости, пропульсивной способности ЛЖ (фракция выброса).", 30 мин)
	МУЛЬТИВЫБОР("Укажите критерии ОКС высокого риска","Стенокардия, рефрактерная к проводимому лечению/(Отсутствует=0)/Присутствует=1", вр1,\
 "Рецидивирующая стенокардия и динамика ЭКГ (депрессия сегмента ST >= 2 мм или глубокие отрицательные Т)/(Отсутствуют=0)/Присутствуют=1", вр2,\
 "Формирующийся инфаркт миокарда/(Отсутствует=0)/Присутствует=1", вр3,\
 "Появление симптомов острой сердечной недостаточности/(Отсутствует=0)/Присутствует=1", вр4,\
 "Упорное снижение АД менее 90 мм рт ст, развитие шока/(Отсутствует=0)/Присутствует=1", вр5,\
 "Жизнеугрожающие аритмии (желудочковая тахикардия, фибрилляция желудочков)/(Отсутствуют=0)/Присутствуют=1", вр6)
	ЕСЛИ вр1+вр2+вр3+вр4+вр5+вр6>0 то
		стратегия=1
		ВЫЗОВ_ВРАЧА("Показана неотложная инвазивная стратегия в первые 120 минут после первого контакта с врачом.", 10 мин)
		риск_инвазивная=1
	иначе
	//признаки за раннюю стратегию
		мультивыбор("Укажите дополнительные критерии ОКС высокого риска", \
"Подъем или снижение уровня сердечного тропонина, соответствующие инфакту миокарда/(Отсутствует=0)/Присутствует=1", вр1,\
"Динамические изменения сегмента ST или зубца T (с симптомами или без)/(Отсутствует=0)/Присутствует=1", вр2)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (грэйс>=140 или вр1+вр2>0) и риск_инвазивная==0 то
		стратегия=2
		риск_инвазивная=1
		ВЫЗОВ_ВРАЧА("Показана ранняя инвазивная стратегия в первые 24 часа после первого контакта с врачом.", 10 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ риск_инвазивная==0 то
	//признаки за до 72часов инвазивную стратегию
		МУЛЬТИВЫБОР("Укажите критерии ОКС промежуточного риска","Сахарный диабет/(Отсутствует=0)/Присутствует=1", вр1,\
 "Почечная недостаточность (СКФ ниже 60 мл//мин//1,73 м2)/(Отсутствуют=0)/Присутствуют=1", вр2,\
 "Фракция выброса левого желудочка менее 40% или застойная сердечная недостаточность/(Отсутствует=0)/Присутствует=1", вр3,\
 "Ранняя постинфарктная стенокардия/(Отсутствует=0)/Присутствует=1", вр4,\
 "Недавнее ЧКВ/(Отсутствует=0)/Присутствует=1", вр5,\
 "Аортокоронарное шунтирование в прошлом/(Отсутствуют=0)/Присутствуют=1", вр6)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ((грэйс<140 и грэйс>=109) или вр1+вр2+вр3+вр4+вр5+вр6>0 ) и риск_инвазивная==0 то
		стратегия=3
		ВЫЗОВ_ВРАЧА("Показана инвазивная стратегия в течение 72 часов после первого контакта с врачом.", 10 мин)
		риск_инвазивная=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ риск_инвазивная==0 то
		стратегия=-1
		ВЫЗОВ_ВРАЧА("Инвазивная стратегия лечения не показана.", 10 мин)
	КОНЕЦ_ЕСЛИ
//консервативное лечение для лёгкого ОКС
	ЕСЛИ стратегия == -1 то  
		//АКТИВИРОВАТЬ_БЛОК(купирование_боли, 5 час)  //купирование боли активировано ранее	
		АКТИВИРОВАТЬ_БЛОК(антитромботическая_терапия, 1 мин)
		АКТИВИРОВАТЬ_БЛОК(прочая_терапия, 1 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ стратегия>0 То
	стратегия=ВЫБОР("Возможно ли проведение ЧКВ?", "Возможно, проводить ЧКВ",1,"Невозможно, консервативная стратегия лечения без ЧКВ",0)
	КОНЕЦ_ЕСЛИ
//консервативная стратегия при невозможности ЧКВ	
	ЕСЛИ стратегия == 0 то
		//АКТИВИРОВАТЬ_БЛОК(купирование_боли, 5 час) //купирование боли активировано ранее
		АКТИВИРОВАТЬ_БЛОК(антитромботическая_терапия, 1 мин)
		АКТИВИРОВАТЬ_БЛОК(прочая_терапия, 1 мин)
	КОНЕЦ_ЕСЛИ
//стратегия с ЧКВ
	ЕСЛИ стратегия == 1 то
		//АКТИВИРОВАТЬ_БЛОК(купирование_боли, 5 час) //купирование боли активировано ранее
		АКТИВИРОВАТЬ_БЛОК(антитромботическая_терапия, 1 мин)
		АКТИВИРОВАТЬ_БЛОК(прочая_терапия, 1 мин)
		АКТИВИРОВАТЬ_БЛОК(сопровождение_чкв, 1 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА 

//==========================
БЛОК сопровождение_чкв()
	СПАТЬ(10 мин)
	ВЫЗОВ_ВРАЧА("в случае предварительного назначения фондапаринукса – дополнительно нефракционированный гепарин НФГ", 10 мин)
	ВЫЗОВ_ВРАЧА("предварительная терапия эноксапарином- при необходимости дополнительное введение препарата", 10 мин)
	ВЫЗОВ_ВРАЧА("предварительная терапия нефракционированным гепарином НФГ- титрование дозы до АСВ менее 250 сек", 10  мин)
	СПАТЬ(1 мин)
	ВЫЗОВ_ВРАЧА("при высоком риске кровотечений, наличии препарата:бивалирудин при неотложной и плановой ЧКВ 0,75 мг/кг внутривенно болюсно, затем 1,75 мг/кг/час до окончания процедуры.", 10 мин) 
	ВЫЗОВ_ВРАЧА("При наличии препарата, блокаторы GP IIb/IIIa- при наличии признаков крупного   внутрикоронарного тромбоза (более 20 мм), высокого риска интраоперационных тромботических осложнений:\
Абциксимаб внутривенно болюсом 0,25 мг/кг, затем внутривенная инфузия по 0,125 мг/кг/минуту (максимально 10 мкг/мин в течение 12 часов).", 10 мин)
	ВЫХОД
КОНЕЦ_БЛОКА

//==========================
БЛОК прочая_терапия()
	СПАТЬ(30 сек)
	антикоагулянт=ВЫБОР("Выберите доступный антикоагулянт", "Фондапаринукс", 3, "Эноксапарин", 2, "Нефракционированный гепарин НФГ", 1)
	ЕСЛИ антикоагулянт == 3 то
		ВЫЗОВ_ВРАЧА("Введите Фондапаринукс 2.5 мг подкожно.", 30 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ антикоагулянт == 2 то
		ВЫЗОВ_ВРАЧА("Введите Эноксапарин "+строка(1*МАССА)+" мг подкожно.", 30 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ антикоагулянт == 1 то
                масса_скор=масса
		ЕСЛИ масса>83 то
			масса_скор=66.66666666
		КОНЕЦ_ЕСЛИ
		ВВЕСТИ_БЫСТРО(100, НФГ, 60*МАССА_СКОР Ед, в/в)
		СПАТЬ(30сек)
		РАЗВЕДЕНИЕ("10х20")
		инф_номер_нфг=ВВЕСТИ_НАЧАТЬ(1, нфг, 12*масса_скор Ед/час)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Внутривенное введение нитратов показано пациентам с рецидивирующей стенокардий +/- СН.", 20 мин)
	ЕСЛИ САД>=90 или (ЧСС>=50 и ЧСС<=100) то
	ВЫЗОВ_ВРАЧА("Нитраты противопоказаны в случае приема силденафина (Viagra), варденафила, тадалафила  в течение предшествующих 24 часов. Подозрение на инфаркт правого желудочка, АД < 90 мм.рт.ст. или при понижении более чем на 30 мм.рт.ст. от исходного, ЧСС менее 50 или более 100 в минуту.",1мин)
	начать_нитраты=ВЫБОР("Начать внутривенную терапию нитратами?", "Да", 1, "Нет", 0)
	ЕСЛИ начать_нитраты==1 то
		доза_нитроглицерин=10
		АКТИВИРОВАТЬ_БЛОК(терапия_нитратами, 5мин)
		иначе
		УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5мин)
		ЕСЛИ САД>100 то
		АКТИВИРОВАТЬ_БЛОК(терапия_нитратами, 5мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
иначе
ВЫЗОВ_ВРАЧА("При АД менее 90 мм.рт.ст, ЧСС менее 50 или более 100 введение нитратов противопоказано", 1 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип<3 то
  		ВЫЗОВ_ВРАЧА("Бета-блокаторы показаны при тахикардии и повышении АД, дисфункции ЛЖ.", 20 час) //??!! верно ли условие на киллип?
	КОНЕЦ_ЕСЛИ
	ЕСЛИ (ЧСС>=80 и ЧСС< 110) и САД>=110 то
		вызов_врача("Дать пациенту метопролол 50 мг.", 20 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС>=110 или САД>=140 то
		вызов_врача("Дать пациенту метопролол 100 мг.", 20 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ  ЧСС>=60 и САД>=110 то
		вызов_врача("Дать пациенту метопролол 25 мг.", 20 мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Дать пациенту Аторвастатин 40 мг.", 20 мин)
	ВЫЗОВ_ВРАЧА("Дать пациенту Пантопразол 20 мг или Лансопразол 30 мг или Эзомепразол 40 мг или Омепразол 20 мг в случае недоступности вышеперечисленных.", 20 мин)
	ВЫХОД
КОНЕЦ_БЛОКА

//==========================
БЛОК антитромботическая_терапия()
	ВЫЗОВ_ВРАЧА("Дать пациенту Аспирин, не кишечно-растворимая форма, 150-300 мг, только при отсутствии приема аспирина на догоспитальном этапе.", 10 мин)
	игибитор_п2у12=ВЫБОР("Укажите доступный ингибитор P2Y12", "Тикагрелол", 2, "Прасугрель", 1,"Клопидогрель", 0)
	ЕСЛИ игибитор_п2у12==2 то
		ЕСЛИ стратегия >= 0 то
		ВЫЗОВ_ВРАЧА("Дать пациенту Тикагрелол 180 мг.", 10 мин)
		стратегия = -1
		КОНЕЦ_ЕСЛИ	
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+24*60
			МассивДата = дата(ПеременнаяМинуты)
			//Вызов_Врача("При отсутствии ухудшения показателей повторный приём Тикагрелола через 24 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 15 мин )	
		СПАТЬ(24 час)
		ВЫЗОВ_ВРАЧА("Дать пациенту Тикагрелол 90 мг.", 10 мин)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+12*60
			МассивДата = дата(ПеременнаяМинуты)
			//Вызов_Врача("При отсутствии ухудшения показателей повторный приём Тикагрелола через 12 часов (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 15 мин )
		СПАТЬ(12 час)
		ВЫЗОВ_ВРАЧА("Дать пациенту Тикагрелол 90 мг.", 10 мин)
		СПАТЬ(12 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ игибитор_п2у12==1 то
		ЕСЛИ стратегия >= 0 то
		ВЫЗОВ_ВРАЧА("Дать пациенту Прасугрель 60 мг, для пациентов моложе 75 лет, массой тела более 60 кг, без инсульта и транзиторной ишемической атаки в анамнезе.", 10 мин)
		стратегия = -1
		КОНЕЦ_ЕСЛИ
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+24*60
			МассивДата = дата(ПеременнаяМинуты)
			//Вызов_Врача("При отсутствии ухудшения показателей повторный приём Прасугреля через 24 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 15 мин )
		СПАТЬ(24 час)
		ВЫЗОВ_ВРАЧА("Дать пациенту Прасугрель 10 мг, для пациентов моложе 75 лет, массой тела более 60 кг, без инсульта и транзиторной ишемической атаки в анамнезе.", 10 мин)
		СПАТЬ(24 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ игибитор_п2у12==0 то
		ЕСЛИ стратегия >= 0 то
		ВЫЗОВ_ВРАЧА("Дать пациенту Клопидогрель 300 мг.", 10 мин)
		стратегия = -1
		КОНЕЦ_ЕСЛИ
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+24*60
			МассивДата = дата(ПеременнаяМинуты)
			//Вызов_Врача("При отсутствии ухудшения показателей повторный приём Клопидогреля через 24 часа (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 15 мин )
		СПАТЬ(24 час)
		ВЫЗОВ_ВРАЧА("Дать пациенту Клопидогрель 75 мг.", 10 мин)
		СПАТЬ(24 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК купирование_боли()
	ЕСЛИ САД > 90 то
		ВЫЗОВ_ВРАЧА("Нитроглицерин - спрей 0,4 мг под язык или Нитроглицерин таблетка 0,5 мг.", 2мин)
		иначе
		АКТИВИРОВАТЬ_БЛОК(купирование_боли_морфин, 5 сек)
	КОНЕЦ_ЕСЛИ
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4]<10) то
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
	СПАТЬ(5мин)
	боль=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
	ЕСЛИ САД > 90 и боль==0 то
		ВЫЗОВ_ВРАЧА("Нитроглицерин - спрей 0,4 мг под язык или Нитроглицерин таблетка 0,5 мг.", 2мин)
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 и САД>90 то
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
		Вызов_Врача("При отсутствии улучшения повторный приём Нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	Если боль==1 то
		выход
	КОНЕЦ_ЕСЛИ
		
	СПАТЬ(5мин)
	боль=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
	ЕСЛИ боль==0 то
	купирование=1
	АКТИВИРОВАТЬ_БЛОК(купирование_боли_морфин, 10мин)
	
	иначе
	ВЫХОД
	КОНЕЦ_ЕСЛИ
	выход
КОНЕЦ_БЛОКА
//==========================
БЛОК купирование_боли_морфин()
	ЕСЛИ купирование==1 то
		ВЫЗОВ_ВРАЧА("Подготовить раствор морфина 10 мг в физиологическом растворе 20 мл.", 1мин)
	иначе
		боль=ВЫБОР("Болевой синдром купирован?", "Да", 1, "Нет", 0)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД< 100 то
		ВЫЗОВ_ВРАЧА("Низкое систолическое давление, (САД) мм.рт.ст.Вызов врача", 1мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ купирование==1 то
		Разведение("20х20")
		ВВЕСТИ_БЫСТРО(1, Морфин, 4 мг, в/в)
	КОНЕЦ_ЕСЛИ
	
	ЕСЛИ купирование>1 и купирование<4 и боль==0 то
		Разведение("20х20")
		ВВЕСТИ_БЫСТРО(1, Морфин, 2 мг, в/в)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ купирование==4 и боль==0 то
		ВЫЗОВ_ВРАЧА("Болевой синдром не удаётся купировать. Завершение работы алгоритма.Переход в экспертный режим", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	купирование=купирование+1
	
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+10
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии улучшения повторная инъекция морфина через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5мин )
		иначе
		Вызов_Врача("При отсутствии улучшения повторная инъекция морфина через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================
//========================
БЛОК контроль_дыхания()
	ЕСЛИ ЧДД<8 или ЧДД>28 и ИВЛ_подключен==0 то
		ВЫЗОВ_ВРАЧА("Проведите интубацию! Подключите пациента к ИВЛ.", 10 мин)
		ингаляция=1
		ИВЛ_подключен=1
		СПАТЬ(5мин)
		ЕСЛИ ЧДД<8 или ЧДД>28 то
			ВЫЗОВ_ВРАЧА("ЧДД не нормализуется. Проверьте правильность подключения аппарата ИВЛ.", 10 мин)
			ВЫХОД
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================
БЛОК контроль_спо2()
	ЕСЛИ СПО2<=90 и ингаляция==0 то
	ВЫЗОВ_ВРАЧА("Проводить ингаляцию увлажненного кислорода через носовые канюли, скорость потока 2-8 л/мин.",2мин)
	ингаляция=1
	КОНЕЦ_ЕСЛИ
	СПАТЬ(30 мин)
	ЕСЛИ СПО2>94 и ингаляция==1 то
	ВЫЗОВ_ВРАЧА("Прекратить ингаляцию кислорода. SpO2 в норме.", 1мин)
	ингаляция=0
	КОНЕЦ_ЕСЛИ
ЕСЛИ СПО2<90 и ингаляция==1 то
ВЫЗОВ_ВРАЧА("Требуется интубация трахеи, перевод дыхания на АИВЛ")
ИВЛ_подключен=1
КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======
БЛОК ОБРАБОТКА_АД_ШОК()
СПАТЬ(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 мг/час)
			КОНЕЦ_ЕСЛИ
	ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================
БЛОК терапия_нитратами()
	
ВЫЗОВ_ВРАЧА("Раствор нитроглицерина быстро разрушается на свету. Необходимо экранировать светонепроницаемым материалом")
	инф_номер_нитроглицерин=ВВЕСТИ_НАЧАТЬ(1, нитроглицерин, ДОЗА_НИТРОГЛИЦЕРИН*60*0.001 мг/час)
	СПАТЬ(30мин)
	ПОКА САД>100
	повышение_ад=ВЫБОР("Наблюдается ли тенденция к повышению АД?", "Да", 1, "Нет", 0)
	ЕСЛИ повышение_ад==1 то
		доза_нитроглицерин=доза_нитроглицерин+10
			ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_нитроглицерин, нитроглицерин, доза_нитроглицерин*60*0.001 мг/час)
				ЕСЛИ САД<90 или СРАД<70 то 
				ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_нитроглицерин)
				КОНЕЦ_ЕСЛИ
		ЕСЛИ доза_нитроглицерин==200 то
			ВЫЗОВ_ВРАЧА("Терапия нитроглицерином не эффективна. Завершение работы алгоритма.Переход в экспертный режим", 2 мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		иначе
		ВЫЗОВ_ВРАЧА("Продолжать инфузию нитроглицерина в прежней дозе.", 15 мин)
	КОНЕЦ_ЕСЛИ 
	СПАТЬ(5мин)
	КОНЕЦ_ПОКА
		
	
	ЕСЛИ САД<=90 или СРАД<=70 то 
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_нитроглицерин)
	КОНЕЦ_ЕСЛИ
	
МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+5
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ (МассивДата[4])<10 то
		Вызов_Врача("При отсутствии ухудшения параметров коррекция дозы нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения параметров коррекция дозы нитроглицерина через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ	
КОНЕЦ_БЛОКА
//===================================================================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). При необходимости перейдите в экспертный режим", 10мин)
		КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС<60 или ЧСС>90 то
	ВЫЗОВ_ВРАЧА("Оцените регулярность сердечного ритма", 1 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
	