//ТЭЛА диагностика и лечение
Переменные: клиническая_вероятность, а1, а2, а3, а4, а5, а6, а7, а8, а9, а10, а11, фактор_риска, тропонин, дисфункция_пж, шок, риск, АД_нач, ТЭЛА, ЭХО, кт, д_димер, КОЭФФ_нфг, ИНФ_НОМЕР_нфг, ДОЗА_нфг, МАССА, АЧТВ, АЧТВ_нач, КОЭФФ_НОРАДРЕНАЛИН, ДОЗА_НОРАДРЕНАЛИН, ИНФ_НОМЕР_НОРАДРЕНАЛИН, КОЭФФ_ДОПАМИН, ИНФ_НОМЕР_ДОПАМИН, ДОЗА_ДОПАМИН, тромболизис, реаним, инф_номер_Стрептокиназа, коэфф_Стрептокиназа, инф_номер_Урокиназа, коэфф_Урокиназа, инф_номер_Альтеплаза, коэфф_Альтеплаза, МАССА_83, антикоагул_терапия, препарат, доза_фондапаринукс

БЛОК ВХОД
	КОЭФФ_нфг=1/5000
	КОЭФФ_ДОПАМИН=1/10
	КОЭФФ_НОРАДРЕНАЛИН=1/2
	коэфф_Стрептокиназа=1 // в 1 мл 100000 Ед
	коэфф_Урокиназа=1 // в флаконе 10000 Ед
	коэфф_Альтеплаза=1 // 1мл после разведения содерж 1мг лекарства
	ВЫЗОВ_ВРАЧА("Забор крови на анализ тропонина.", 1мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 3сек)
	АД_нач=АД
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 3сек)
	ЕСЛИ ЧСС>100 то
		клиническая_вероятность=1.5
	иначе
		клиническая_вероятность=0			
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("Оценка клинической вероятности ТЭЛА.", "Клинические симптомы тромбоза глубоких вен нижних конечностей/Присутствуют=3/(Отсутствуют=0)", а1, "При проведении дифференциального диагноза ТЭЛА более вероятна, чем другие патологии/Верно=3/(Неверно=0)", а2, "Иммобилизация или хирургическое вмешательство на протяжении последних 3 дней./Проводились=1.5/(Не проводились=0)", а3, "Тромбоз глубоких вен нижних конечностей или ТЭЛА в анамнезе/Присутствует=1.5/(Отсутствует=0)", а4, "Кровохарканье/Присутствует=1/(Отсутствует=0)", а5, "Онкологическая патология в настоящее время или давностью до 6 месяцев/Присутствует=1/(Отсутствует=0)", а6,"Диффузный цианоз и острая правожелудочковая недостаточность/Присутствует=7/(Отсутствует=0)", а7,"Плевральные боли/Присутствуют=7/(Отсутствуют=0)", а8, "Появление или резкое усиление одышки./Присутствует=7/(Отсутствует=0)", а9,"Боли в грудной клетке/Присутствуют=7/(Отсутствуют=0)", а10, "Синкопальное состояние/Присутствует=7/(Отсутствует=0)", а11)
	клиническая_вероятность=клиническая_вероятность+а1+а2+а3+а4+а5+а6+а7+а8+а9+а10+а11
	ЕСЛИ клиническая_вероятность<=6 то
	//ВЫЗОВ_ВРАЧА(строка(клиническая_вероятность), 1мин)
	МУЛЬТИВЫБОР("Оценка факторов риска. Сильные предрасполагающие факторы.", "Переломы нижних конечностей (костей голени, бедренной кости)/Присутствуют=1/(Отсутствуют=0)", а1, "Протезирование тазобедренных или коленных суставов/Проводилась=1/(Не проводилась=0)", а2, "Большие хирургические операции/Проводились=1/(Не проводились=0)", а3, "Тяжелые травмы/Присутствуют=1/(Отсутствуют=0)", а4,"Повреждение спинного мозга/Присутствует=1/(Отсутствует=0)", а5)
	фактор_риска=а1+а2+а3+а4+а5
	ЕСЛИ фактор_риска==0 то
	МУЛЬТИВЫБОР("Оценка факторов риска. Средние предрасполагающие факторы.", "Артроскопические операции на коленном суставе/Проводились=1/(Не проводились=0)", а1, "Венозные катетеры/Присутствуют=1/(Отсутствуют=0)", а2, "Химиотерапия/Проводилась=1/(Не проводилась=0)", а3, "Хроническая сердечная или дыхательная недостаточность/Присутствует=1/(Отсутствует=0)", а4, "Заместительная гормональная терапия/Проводилась=1/(Не проводилась=0)", а5, "Злокачественные новообразования/Присутствуют=1/(Отсутствуют=0)", а6, "Приём пероральных контрацептивов/Осуществлялся=1/(Не осуществлялся=0)", а7, "Инсульты с развитием параличей/Присутствуют=1/(Отсутствуют=0)", а8, "Послеродовый период/Да=1/(Нет=0)", а9, "Предшествующие эпизоды ВТЭ/Присутствуют=1/(Отсутствуют=0)",а10, "Наследственные тромбофилии/Присутствуют=1/(Отсутствуют=0)",а11)
	фактор_риска=а1+а2+а3+а4+а5+а6+а7+а8+а9+а10+а11
	иначе
		фактор_риска=3
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ фактор_риска<2 и клиническая_вероятность<=6 то
	МУЛЬТИВЫБОР("Оценка факторов риска. Слабые предрасполагающие факторы.", "Постельный режим более 3 дней/Верно=1/(Неверно=0)",а1, "Длительное пребывание в положении сидя (например, в самолёте, в машине)/Имело место=0/(Не имело место=0)", а2, "Возраст/Более 60 лет=1/(Менее 60 лет=0)", а3, "Лапароскопические операции (например, холецистэктомия)/Проводились=1/(Не проводились=0)", а4, "Ожирение/Есть=1/(Нет=0)",а5, "Беременность/Есть=1/(Нет=0)", а6, "Варикозная болезнь/Есть=1/(Нет=0)", а7)
	ЕСЛИ а1+а2+а3+а4+а5+а6+а7>=3 или (а1+а2+а3+а4+а5+а6+а7==2 и фактор_риска==1)то
		фактор_риска=3
	иначе 
		ЕСЛИ фактор_риска==1 ИЛИ а1+а2+а3+а4+а5+а6+а7==2 то
			фактор_риска=2
		иначе
			фактор_риска=1
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	иначе
	фактор_риска=3
	КОНЕЦ_ЕСЛИ
	ЕСЛИ фактор_риска==1 и клиническая_вероятность<2 то
		клиническая_вероятность=1
		ВЫЗОВ_ВРАЧА("Клиническая вероятность ТЭЛА с учётом предрасполагающих факторов низкая.", 1мин)
	иначе
		ЕСЛИ (фактор_риска==1 и клиническая_вероятность>=2 и клиническая_вероятность<=6) или (фактор_риска>=2 и клиническая_вероятность<2) то
			клиническая_вероятность=2
			ВЫЗОВ_ВРАЧА("Клиническая вероятность ТЭЛА с учётом предрасполагающих факторов средняя.", 1мин)
		иначе
			клиническая_вероятность=3
			ВЫЗОВ_ВРАЧА("Клиническая вероятность ТЭЛА с учётом предрасполагающих факторов высокая.", 1мин)
		КОНЕЦ_ЕСЛИ

	КОНЕЦ_ЕСЛИ
//СТРАТИФИКАЦИЯ РИСКА
	шок=ВЫБОР("У пациента есть шок?", "Да", 1, "Нет", 0)
	ЕСЛИ шок==1 или (САД<90 и ДАД<50) или (АД_нач-АД>40) то
		ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА высокого риска.", 1мин)
		риск=3
	иначе
	тропонин=ВЫБОР("Содержание тропонина в крови.","Выше нормы", 1, "В норме", 0)
	МУЛЬТИВЫБОР("Дисфункция правого желудочка.", "ЭхоКГ-признаки дилатации, гипокинезии или перегрузки ПЖ/(Отсутствуют=0)/Присутствуют=1", а1, "дилатация ПЖ по результатам спиральной компьютерной томографии/(Отсутствует=0)/Присутствует=1", а2, "повышение в крови уровня мозгового натрийуретического пептида (BNP) или его N-концевого предшественника (NT-Pro-BNP)/(Отсутствует=0)/Присутствует=1", а3, "повышение давления в полостях правых отделов сердца по результатам катетеризации сердца/(Отсутствует=0)/Присутствует=1", а4)
		ЕСЛИ а1+а2+а3+а4>0 то
		дисфункция_пж=1
		иначе
		дисфункция_пж=0
		КОНЕЦ_ЕСЛИ
		ЕСЛИ дисфункция_пж==1 или тропонин==1 то
			ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА среднего риска.", 1мин)
			риск=2
		иначе
			ВЫЗОВ_ВРАЧА("Диагностирована ТЭЛА низкого риска.", 1мин)
			риск=1
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
//непосредственно диагностика
	ЕСЛИ риск<=2 то
		ЕСЛИ клиническая_вероятность<=2  то
			д_димер=ВЫБОР("Определите D-димер.", "Повышен", 1, "В норме", 0)
			ЕСЛИ д_димер==1 то
				ТЭЛА=ВЫБОР("Проведите Мультидетекторное КТ.", "Подтверждение ТЭЛА.", 1, "Исключение ТЭЛА.", 0)
			иначе
				ВЫЗОВ_ВРАЧА("Исключение ТЭЛА. Завершение работы алгоритма.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		иначе
			ТЭЛА=ВЫБОР("Проведите Мультидетекторное КТ.", "Подтверждение ТЭЛА.", 1, "Исключение ТЭЛА.", 0)	
		КОНЕЦ_ЕСЛИ
		
	иначе
		кт=ВЫБОР("Возможно ли немедленно выполнить КТ?", "Да", 1, "Нет", 0)
		ЕСЛИ кт==1 то
			ТЭЛА=ВЫБОР("Проведите КТ.", "Подтверждение ТЭЛА.", 1, "Исключение ТЭЛА.", 0)
		иначе
			ЭХО=ВЫБОР("Сделайте Эхо-КГ. Есть ли признаки перегрузки ПЖ?", "Да, есть.", 1, "Нет.", 0)
			ЕСЛИ ЭХО==1 то
				кт=ВЫБОР("Возможно ли немедленно выполнить КТ (КТ доступна, пациент стабилен)?", "Да", 1, "Нет", 0)
				ЕСЛИ кт==1 то
					ТЭЛА=ВЫБОР("Проведите КТ.", "Подтверждение ТЭЛА.", 1, "Исключение ТЭЛА.", 0)
				иначе
					ВЫЗОВ_ВРАЧА("Рассмотреть целесообразность проведения тромболизиса или тромбоэктомии.", 5мин)
					ТЭЛА=1
				КОНЕЦ_ЕСЛИ
			иначе
				ВЫЗОВ_ВРАЧА("Исключение ТЭЛА. Завершение работы алгоритма.", 1мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ ТЭЛА==0 то
		ВЫЗОВ_ВРАЧА("ТЭЛА исключена. Завершение работы алгоритма.", 1мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	МАССА=ВВОД("Введите массу пациента, (кг).", 20, 250)
//лечение ТЭЛА высокого риска
	ЕСЛИ риск==3 то
	
	ВЫЗОВ_ВРАЧА("Забор крови на анализ АЧТВ.", 10 мин)
	АЧТВ_нач=ВВОД("Введите показатель АЧТВ, (сек).", 10, 240)
	ВВЕСТИ_БЫСТРО(1, нфг, 5000*КОЭФФ_нфг мл, в/в)
	СПАТЬ(1 мин)
	ДОЗА_ДОПАМИН=3
	ИНФ_НОМЕР_ДОПАМИН=ВВЕСТИ(2, допамин, 3*МАССА*60*КОЭФФ_ДОПАМИН/1000 мл/час)
	ДОЗА_НОРАДРЕНАЛИН=1
	ИНФ_НОМЕР_НОРАДРЕНАЛИН=ВВЕСТИ(3, норадреналин, 1*МАССА*60*КОЭФФ_НОРАДРЕНАЛИН мл/час)
	АКТИВИРОВАТЬ_БЛОК(коррекция_гипотонии, 1сек)
	АКТИВИРОВАТЬ_БЛОК(антикоагулянтная_терапия, 1мин)
	МУЛЬТИВЫБОР("Абсолютные противопоказания к проведению тромболизиса.","Геморрагический инсульт или инсульт неясной природы любой давности/(Отсутствует=0)/Присутствует=1", а1, "Ишемический инсульт в течение 6 месяцев, исключая первые 3 часа/(Отсутствует=0)/Присутствует=1", а2, "Большая травма/хирургия/повреждение головы в последние 3 недели/(Отсутствуют=0)/Присутствуют=1", а3, "Травма или новообразование центральной нервной системы/(Отсутствует=0)/Присутствует=1", а4, "Гастроинтестинальное кровотечение в последний месяц/(Отсутствовало=0)/Присутствовало=1", а5, "Известное геморрагическое заболевание/(Отсутствует=0)/Присутствует=1", а6)
	ЕСЛИ а1+а2+а3+а4+а5+а6>0 то
		ВЫЗОВ_ВРАЧА("Тромболизис абсолютно противопоказан. Рассмотрите варианты хирургического вмешательства (хирургическая эмболэктомия и/или катетерная эмболэктомия и фрагментация тромба).", 1мин)
	иначе
		МУЛЬТИВЫБОР("Относительные противопоказания к проведению тромболизиса.", "Транзисторная ишемическая атака в предшествующие 6 месяцев/(Отсутствовала=0)/Присутствовала=1", а1, "Пероральная терапия антикоагулянтами/(Отсутствует=0)/Присутствует=1", а2, "Беременность или первая неделя после родов/(Не имеет место=0)/Имеет место=1", а3, "Некомпрессируемые пункции (например, печени или люмбальная)/(Отсутствуют=0)/Присутствуют=1", а4, "Рефрактерная артериальная гипертензия более 180/110 мм.рт.ст./(Отсутствует=0)/Присутствует=1", а5, "Тяжелые заболевания печени/(Отсутствуют=0)/Присутствуют=1", а6,"Активная гастродуоденальная язва/(Отсутствует=0)/Присутствует=1", а7, "Инфекционный эндокардит/(Отсутствует=0)/Присутствует=1", а8)
		ЕСЛИ а1+а2+а3+а4+а5+а6+а7+а8>0 то
			тромболизис=ВЫБОР("Решение о целесообразности тромболизиса должен принять консилиум.", "Тромболизис показан.", 1, "Тромболизис не показан.", 0)
			ЕСЛИ тромболизис==1 то
				ВЫЗОВ_ВРАЧА("Начать тромболизис.", 2мин)
				АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 100час)
			КОНЕЦ_ЕСЛИ
		иначе
			ВЫЗОВ_ВРАЧА("Начать тромболизис.", 2мин)
			АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 100час)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
//лечение ТЭЛА среднего и низкого риска
	ЕСЛИ риск<3 то
		ЕСЛИ риск==2 то
			МУЛЬТИВЫБОР("Абсолютные противопоказания к проведению тромболизиса.","Геморрагический инсульт или инсульт неясной природы любой давности/(Отсутствует=0)/Присутствует=1", а1, "Ишемический инсульт в течение 6 месяцев, исключая первые 3 часа/(Отсутствует=0)/Присутствует=1", а2, "Большая травма/хирургия/повреждение головы в последние 3 недели/(Отсутствуют=0)/Присутствуют=1", а3, "Травма или новообразование центральной нервной системы/(Отсутствует=0)/Присутствует=1", а4, "Гастроинтестинальное кровотечение в последний месяц/(Отсутствовало=0)/Присутствовало=1", а5, "Известное геморрагическое заболевание/(Отсутствует=0)/Присутствует=1", а6)
	ЕСЛИ а1+а2+а3+а4+а5+а6>0 то
		ВЫЗОВ_ВРАЧА("Тромболизис абсолютно противопоказан. Рассмотрите варианты хирургического вмешательства (хирургическая эмболэктомия и/или катетерная эмболэктомия и фрагментация тромба).", 1мин)
	иначе
		МУЛЬТИВЫБОР("Относительные противопоказания к проведению тромболизиса.", "Транзисторная ишемическая атака в предшествующие 6 месяцев/(Отсутствовала=0)/Присутствовала=1", а1, "Пероральная терапия антикоагулянтами/(Отсутствует=0)/Присутствует=1", а2, "Беременность или первая неделя после родов/(Не имеет место=0)/Имеет место=1", а3, "Некомпрессируемые пункции (например, печени или люмбальная)/(Отсутствуют=0)/Присутствуют=1", а4, "Рефрактерная артериальная гипертензия более 180/110 мм.рт.ст./(Отсутствует=0)/Присутствует=1", а5, "Тяжелые заболевания печени/(Отсутствуют=0)/Присутствуют=1", а6,"Активная гастродуоденальная язва/(Отсутствует=0)/Присутствует=1", а7, "Инфекционный эндокардит/(Отсутствует=0)/Присутствует=1", а8)
		ЕСЛИ а1+а2+а3+а4+а5+а6+а7+а8>0 то
			тромболизис=ВЫБОР("Решение о целесообразности тромболизиса должен принять консилиум.", "Тромболизис показан.", 1, "Тромболизис не показан.", 0)
			ЕСЛИ тромболизис==1 то
				ВЫЗОВ_ВРАЧА("Начать тромболизис.", 2мин)
				АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 100час)
			КОНЕЦ_ЕСЛИ
		иначе
			ВЫЗОВ_ВРАЧА("Начать тромболизис.", 2мин)
			АКТИВИРОВАТЬ_БЛОК(терапия_тромболизис, 100час)
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
//антикоагулянтная терапия	
	

	АКТИВИРОВАТЬ_БЛОК(антикоагулянтная_терапия_средн, 1 мин)
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("ТЭЛА", 1мин)	
КОНЕЦ_БЛОКА
//==============
БЛОК антикоагулянтная_терапия_средн()
	ВЫЗОВ_ВРАЧА("Определите клиренс креатинина.", 10 мин)
	антикоагул_терапия=ВЫБОР("Выберите верное.", "Клиренс креатинина более 30 мл в час, нет коагулопатии и высокого риска кровотечений.", 1, "Хроническая почечная недостаточность, клиренс креатинина менее 30 мл в час, высокий риск кровотечений.", 0)
	ЕСЛИ антикоагул_терапия==1 то
		препарат=ВЫБОР("Выберите препарат для проведения антикоагулянтной терапии:","Эноксапарин (клексан)",1,"Дальтепарин (фрагмин, для онкобольных)",2,"Фондапаринукс (арикстра)",3)
		ЕСЛИ препарат==1 то
			ПОВТОРЯТЬ_В_ТЕЧЕНИЕ (450000 сек)
			ВЫЗОВ_ВРАЧА("тест", 1мин)
			ВВЕСТИ_БЫСТРО(5, эноксапарин, 1*МАССА мл, в/в)
			СПАТЬ(12 час)
			КОНЕЦ_ПОВТОРА
		КОНЕЦ_ЕСЛИ
		ЕСЛИ препарат==2 то
			ПОВТОРЯТЬ_В_ТЕЧЕНИЕ (450000 сек)
			ВВЕСТИ_БЫСТРО(5, дальтепарин, 100*МАССА/10000 мл, в/в)
			СПАТЬ(12 час)
			КОНЕЦ_ПОВТОРА
		КОНЕЦ_ЕСЛИ
		ЕСЛИ препарат==3 то
			ПОВТОРЯТЬ_В_ТЕЧЕНИЕ (450000 сек)
			ЕСЛИ МАССА<50 то
			доза_фондапаринукс=5
			КОНЕЦ_ЕСЛИ
			ЕСЛИ МАССА>=50 и МАССА<=100 то
			доза_фондапаринукс=7.5
			КОНЕЦ_ЕСЛИ
			ЕСЛИ МАССА>100 то
			доза_фондапаринукс=10
			КОНЕЦ_ЕСЛИ
			ВВЕСТИ_БЫСТРО(5, фондапаринукс, доза_фондапаринукс мл, в/в)
			СПАТЬ(12 час)
			КОНЕЦ_ПОВТОРА
		КОНЕЦ_ЕСЛИ
	иначе
		АКТИВИРОВАТЬ_БЛОК(антикоагулянтная_терапия, 1мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==============
БЛОК терапия_тромболизис()
	тромболизис=ВЫБОР("Выберите препарат для проедения тромболизиса:", "Стрептокиназа", 1, "Урокиназа", 2, "Альтеплаза", 3)
	реаним=ВЫБОР("Выбрать режим быстрого введения (используется при проведении реанимационных мероприятий)?", "Нет", 0, "Да", 1)
	ЕСЛИ тромболизис==1 то
	ЕСЛИ реаним==0 то
		инф_номер_Стрептокиназа=ВВЕСТИ(4, Стрептокиназа, 5*коэфф_Стрептокиназа мл/час)//,30мин)
		СПАТЬ(30 мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(4, Стрептокиназа, 1*коэфф_Стрептокиназа мл/час)//, 12час)
		СПАТЬ(12 час)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		инф_номер_Стрептокиназа=ВВЕСТИ(4, Стрептокиназа, 7.5*коэфф_Стрептокиназа мл/час)//,30мин)
		СПАТЬ(2час)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тромболизис==2 то
	ЕСЛИ реаним==0 то
		инф_номер_Урокиназа=ВВЕСТИ(4, Урокиназа, 0.44*коэфф_Урокиназа*6*МАССА мл/час)//,10мин)
		СПАТЬ(10 мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(4, Урокиназа, 0.44*коэфф_Урокиназа*МАССА мл/час)//, 12час)
		СПАТЬ(12 час)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		инф_номер_Урокиназа=ВВЕСТИ(4, Урокиназа, 150*коэфф_Урокиназа мл/час)//,2 час)
		СПАТЬ(2час)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тромболизис==3 то
	ЕСЛИ реаним==0 то
		инф_номер_Альтеплаза=ВВЕСТИ(4, Альтеплаза, 50*коэфф_Альтеплаза мл/час)//,2час)
		СПАТЬ(2 час)
		
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	иначе
		ЕСЛИ МАССА> 83 то
		МАССА_83=83
		иначе
		МАССА_83=МАССА
		КОНЕЦ_ЕСЛИ
		инф_номер_Альтеплаза=ВВЕСТИ(4, Альтеплаза, 0.6*коэфф_Альтеплаза*МАССА_83*4 мл/час)//,15мин)
		СПАТЬ(15 мин)
		ВЫЗОВ_ВРАЧА("Тромболизис закончен.", 1мин)
	КОНЕЦ_ЕСЛИ		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==============
БЛОК коррекция_гипотонии()
	СПАТЬ(5мин)
	ЕСЛИ САД<90 то
		ДОЗА_НОРАДРЕНАЛИН=ДОЗА_НОРАДРЕНАЛИН+1
		ИЗМЕНИТЬ_СКОРОСТЬ(3, норадреналин, ДОЗА_НОРАДРЕНАЛИН*МАССА*60*КОЭФФ_НОРАДРЕНАЛИН мл/час)
		ДОЗА_ДОПАМИН=ДОЗА_ДОПАМИН+1
		ИЗМЕНИТЬ_СКОРОСТЬ(2, допамин, ДОЗА_ДОПАМИН*МАССА*60*КОЭФФ_ДОПАМИН/1000 мл/час)
	КОНЕЦ_ЕСЛИ
	
КОНЕЦ_БЛОКА
//==============
БЛОК антикоагулянтная_терапия()
	ИНФ_НОМЕР_нфг=ВВЕСТИ(1, нфг, 18*МАССА*КОЭФФ_нфг мл/час)
	СПАТЬ(6 час)
	ДОЗА_нфг=18*МАССА*КОЭФФ_нфг
	ВЫЗОВ_ВРАЧА("Забор крови на анализ АЧТВ.", 10 мин)
	АЧТВ=ВВОД("Введите показатель АЧТВ, (сек).", 10, 240)
	ЕСЛИ АЧТВ<=35 и АЧТВ>0 то
		ДОЗА_нфг=ДОЗА_нфг+150*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ<=44 и АЧТВ>35 то
		ДОЗА_нфг=ДОЗА_нфг+100*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ<=49 и АЧТВ>44 то
		ДОЗА_нфг=ДОЗА_нфг+50*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ<=85 и АЧТВ>70 то
		ДОЗА_нфг=ДОЗА_нфг-50*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ<=110 и АЧТВ>85 то
		ДОЗА_нфг=ДОЗА_нфг-100*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ>110 то
		ДОЗА_нфг=ДОЗА_нфг-150*КОЭФФ_нфг
		ИЗМЕНИТЬ_СКОРОСТЬ(1, нфг, ДОЗА_нфг мл/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АЧТВ<=70 и АЧТВ>49 то
		ВЫЗОВ_ВРАЧА("АЧТВ в 1,5-2,5 раза выше нормы. Продолжать терапию без изменений.", 1мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
















