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

БЛОК ВХОД 
	продолжительность=0.0
	тахикардия=0.0
	гемодинамика=1.0
	ВЫЗОВ_ВРАЧА("Произведите общий осмотр и физикальное обследование пациента.", 15 мин)
	ВЫЗОВ_ВРАЧА("Подключите ЭКГ, начните измерять АД, SpO2, ЧСС.", 2мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 3сек)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ЧСС, 3 сек) 
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 1 мин)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 1мин)
	продолжительность=ВЫБОР("Продолжительность приступа аритмии более 30 сек?", "Да", 1, "Нет", 0)
	ЕСЛИ продолжительность==1 и ЧСС>=100 то
		//КуРС=ВЫБОР("По данным ЭКГ оцените комплексы QRS.", "более 120 мс", 1, "менее 120 мс", 0)
		КуРС=ВЫБОР("По данным ЭКГ оцените комплексы QRS.", "широкий, деформированный", 1, "неизменённый", 0)
		ЕСЛИ КуРС==1 то
			//зубцы_П=ВЫБОР("Зубцы P по отношению к QRS", "не связаны, величины интервалов PQ различаются  более, чем на 15% за 1 минуту", 1, "не связаны, зубцы P не всегда предшествуют комплексам QRS", 2, "связаны", 0)
			зубцы_П=ВЫБОР("Зубцы P по отношению к QRS", "связаны", 0, "не связаны", 1)
			ЕСЛИ зубцы_П>0 то
				ВЫЗОВ_ВРАЧА("Диагностирована устойчивая Желудочковая тахикардия.", 2 мин)
				тахикардия=1.0
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<90 то 
		гемодинамика=0.0
	иначе
		гемодинамика=ВЫБОР("Оцените гемодинамику.", "Гемодинамика стабильна", 1, "систолическое АД снизилось более чем на 30 мм.рт.ст.", 0)
	КОНЕЦ_ЕСЛИ 
	
	
	ЕСЛИ тахикардия==1 то
		тахикардия=ВЫБОР("По данным ЭКГ уточните:", "ширина QRS стабильна, все комплексы одинаковой формы", 1, "нестабильная ширина QRS с изменением электрической оси сердца на 180 градусов", 3, "нестабильная ширина QS без изменения электрической оси сердца на 180 градусов", 2)
		ЕСЛИ тахикардия==1 то
			ВЫЗОВ_ВРАЧА("Диагностирована мономорфная желудочковая тахикардия, начните лечение.", 2мин)
			//ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ тахикардия==2 то
			ВЫЗОВ_ВРАЧА("Диагностирована полиморфная желудочковая тахикардия, начните лечение.", 2мин)
			//ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ тахикардия==3 то
			ВЫЗОВ_ВРАЧА("Диагностирована пируэтная желудочковая тахикардия, начните лечение.", 2мин)
			//ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ тахикардия== 0 то
		ВЫЗОВ_ВРАЧА("Желудочковая тахикардия отсутствует.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	
//лечение
	ДОЗА_НОВОКАИНАМИД=0.0
	время_введения=0.0
	ДОЗА_ЛИДОКАИН=0.0
	ДОЗА_АМИОДАРОН=0.0
	Интервал_КуТ=0.0
	ДОЗА_ЭСМОЛОЛ=0
	ДОЗА_МЕТОПРОЛОЛ=0
	ДОЗА_КАЛИЙ=0.0
	
	МАССА=ВВОД("Введите массу пациента (кг)", 30, 250,станд_вес)
	Тип_тахикардии=тахикардия
	ЕСЛИ Тип_тахикардии==1 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(МОНОМОРФНАЯ_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==1 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(МОНОМОРФНАЯ_НЕСТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==2 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(ПОЛИМОРФНАЯ_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ 
	ЕСЛИ Тип_тахикардии==2 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(ПОЛИМОРФНАЯ_НЕСТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==3 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(ТОРСАДЭС_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==3 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//============================================================================
БЛОК ОБРАБОТКА_ЧСС()
	ЕСЛИ ЧСС >= 220 то  
		ВЫЗОВ_ВРАЧА("Критически высокая ЧСС (ЧСС). Начать алгоритм сердечно-лёгочной реанимации", 20 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС <= 50 то  
		ВЫЗОВ_ВРАЧА("Критически низкая ЧСС (ЧСС). Начать алгоритм брадикардии.", 20 мин)
		СПАТЬ(5мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================================================================
БЛОК МОНОМОРФНАЯ_СТАБИЛЬНАЯ()
	Препарат=ВЫБОР("Выберите препарат:", "Амиодарон", 1, "Лидокаин", 0)
	ЕСЛИ Препарат==1 то
		ВЫЗОВ_ВРАЧА("Разведите амиодарон в растворе глюкозы 5%")
		ДОЗА_АМИОДАРОН=15
		ИНФ_НОМЕР_АМИОДАРОН=ВВОДИТЬ_И_ЖДАТЬ(1,АМИОДАРОН,ДОЗА_АМИОДАРОН*60 мг/час, 10мин) 
	иначе
		ДОЗА_ЛИДОКАИН=1
                Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
		ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин) 
		//СПАТЬ(2 мин)
		//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
		ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
                Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
		ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин)
		//СПАТЬ(2 мин)
		//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+5
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(5мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==1 то
		ЕСЛИ Препарат==1 то
		ДОЗА_НОВОКАИНАМИД=17
		ИНФ_НОМЕР_НОВОКАИНАМИД=ВВЕСТИ_НАЧАТЬ(1,НОВОКАИНАМИД, 50*60 мг/час) 
		//СПАТЬ(10мин)
		ДОЗА_АМИОДАРОН=1
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*60 мг/час)
		СПАТЬ(6 час)
		ДОЗА_АМИОДАРОН=0.5
		ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*60 мг/час)
		СПАТЬ(18 час)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_АМИОДАРОН)
		иначе
		ДОЗА_ЛИДОКАИН=1
                Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
		ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин)
		//СПАТЬ(2 мин)
		//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
			ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
                        Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
			ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин)
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ПеременнаяМинуты = минуты(МассивДата)+5
	МассивДата = дата(ПеременнаяМинуты)
	ЕСЛИ МассивДата[4]<10 то
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
	иначе
		Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
	КОНЕЦ_ЕСЛИ
	СПАТЬ(5мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================================================================
БЛОК АМИОДАРОН()
	ДОЗА_АМИОДАРОН=15
	ИНФ_НОМЕР_АМИОДАРОН=ВВОДИТЬ_И_ЖДАТЬ(1, АМИОДАРОН, ДОЗА_АМИОДАРОН*60 мг/час, 10мин)
	//СПАТЬ(10мин)
	ДОЗА_АМИОДАРОН=1
	ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*60 мг/час)
	СПАТЬ(6 час)
	ДОЗА_АМИОДАРОН=0.5
	ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*60 мг/час)
	СПАТЬ(18 час)
	ВЫЗОВ_ВРАЧА("Доза Амиодарона за последние 24 часа составила 1 г.", 2мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ЕСЛИ Интервал_КуТ==1 то
			ВЫЗОВ_ВРАЧА("Выполнить экстренную коронарографию", 10мин)
		иначе
			ВЫЗОВ_ВРАЧА("Приступ купировать не удалось. Завершение работы алгоритма.", 5 мин)
		КОНЕЦ_ЕСЛИ
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================================================================
БЛОК МОНОМОРФНАЯ_НЕСТАБИЛЬНАЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===========================================================================================
БЛОК ПОЛИМОРФНАЯ_СТАБИЛЬНАЯ()
	Отклонение_СТ=ВЫБОР("Отклонение сегмента ST от изолинии", "менее 1 мм", 1, "более 1 мм", 0)
	ЕСЛИ Отклонение_СТ==1 то
		Интервал_КуТ=ВЫБОР("Продолжительность интервала QT","Нормальная (менее 450 мс)",1,"Увеличенная (более 450 мс)",0)
		ЕСЛИ Интервал_КуТ==1 то
			АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
		иначе
			Препарат=ВЫБОР("Выберите препарат (бетаблокатор):", "Эсмолол", 1, "Метопролол", 0)
			ЕСЛИ Препарат==1 то
				ДОЗА_ЭСМОЛОЛ=0.100  //мг/кгмин
                                Доза(ДОЗА_ЭСМОЛОЛ, "мг/кгмин")
				ИНФ_НОМЕР_ЭСМОЛОЛ=ВВОДИТЬ_И_ЖДАТЬ(1,ЭСМОЛОЛ, ДОЗА_ЭСМОЛОЛ*МАССА*60 мг/час, 1 мин) 
				//СПАТЬ(1 мин)
				//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЭСМОЛОЛ)
			иначе
				ДОЗА_МЕТОПРОЛОЛ=5
				ИНФ_НОМЕР_МЕТОПРОЛОЛ=ВВОДИТЬ_И_ЖДАТЬ(1,МЕТОПРОЛОЛ, 0.5*ДОЗА_МЕТОПРОЛОЛ*60 мл/час, 2мин) 
				//СПАТЬ(2 мин)
				//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МЕТОПРОЛОЛ)
			КОНЕЦ_ЕСЛИ
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+5
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
			СПАТЬ(5мин)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
			ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
			ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
			ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			// реализовать повторять до 3х раз!!!!
		КОНЕЦ_ЕСЛИ
		
	иначе
		ДОЗА_ЛИДОКАИН=1
                Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
		ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин) 
		//СПАТЬ(2 мин)
		//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
		ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
			Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
			ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин) 
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		КОНЕЦ_ЕСЛИ
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ	
		СПАТЬ(5мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==1 то
			ДОЗА_ЛИДОКАИН=1
			Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
			ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин) 
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
			ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
			Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
			ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин)
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+5
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(5мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Выполнить экстренную коронарографию", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//====================================================================================
БЛОК ПОЛИМОРФНАЯ_НЕСТАБИЛЬНАЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================================================================================
БЛОК ТОРСАДЭС_СТАБИЛЬНАЯ()
	Брадикардия=ВЫБОР("Была ли брадикардия с ЧСС<50 в течение 1 минуты или паузы (расстояния между RR более 2 сек)?","Да",1,"Нет (или нет данных)",0)
	ЕСЛИ Брадикардия==1 то
		ВЫЗОВ_ВРАЧА("Начать Эндокардиальную электрокардиостимуляцию (если доступна)", 10 мин)
		Препарат=ВЫБОР("Выберите препарат (бетаблокатор):", "Эсмолол", 1, "Метопролол", 0)
		ЕСЛИ Препарат==1 то
			ДОЗА_ЭСМОЛОЛ=0.100  //мг/кгмин
			Доза(ДОЗА_ЭСМОЛОЛ, "мг/кгмин")
			ИНФ_НОМЕР_ЭСМОЛОЛ=ВВОДИТЬ_И_ЖДАТЬ(1,ЭСМОЛОЛ, ДОЗА_ЭСМОЛОЛ*МАССА*60 мг/час, 1мин) 
			//СПАТЬ(1 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЭСМОЛОЛ)
		иначе
			ДОЗА_МЕТОПРОЛОЛ=5
			ИНФ_НОМЕР_МЕТОПРОЛОЛ=ВВОДИТЬ_И_ЖДАТЬ(1,МЕТОПРОЛОЛ, 0.5*ДОЗА_МЕТОПРОЛОЛ*60 мл/час, 2мин) 
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МЕТОПРОЛОЛ)
		КОНЕЦ_ЕСЛИ
		МассивДата = ТекущееВремя
		ПеременнаяМинуты = минуты(МассивДата)+10
		МассивДата = дата(ПеременнаяМинуты)
		ЕСЛИ МассивДата[4]<10 то
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
		иначе
			Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
		КОНЕЦ_ЕСЛИ
		СПАТЬ(10 мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==0 то
			ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
			ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==1 то
			АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
		КОНЕЦ_ЕСЛИ	
	иначе
		Интервал_КуТ=ВЫБОР("Продолжительность интервала QT","Нормальная (менее 450 мс)",1,"Увеличенная (более 450 мс)",0)
		ЕСЛИ Интервал_КуТ==1 то
			ВЫЗОВ_ВРАЧА("Отменить препараты удлиняющие QT.", 2 мин)
			ДОЗА_КАЛИЙ=1
			ИНФ_НОМЕР_КАЛИЙ=Ввести_начать(1, калий_хлорид, ДОЗА_КАЛИЙ мг/час)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+30
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ритма через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
			СПАТЬ(30мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_КАЛИЙ)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
				ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
				ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
				АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
			КОНЕЦ_ЕСЛИ
		иначе
			ДОЗА_МАГНЕЗИЯ=1.25*1000 //г/мин
			ИНФ_НОМЕР_МАГНЕЗИЯ=ВВОДИТЬ_И_ЖДАТЬ(1, сернокислая_магнезия, ДОЗА_МАГНЕЗИЯ*60 мг/час, 2мин)
			//СПАТЬ(2мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МАГНЕЗИЯ)
			ДОЗА_ЛИДОКАИН=0.5 // мг/кг*мин
			Доза(0.5*ДОЗА_ЛИДОКАИН, "мг/кгмин")
			ИНФ_НОМЕР_ЛИДОКАИН=ВВОДИТЬ_И_ЖДАТЬ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*60 мг/час, 2мин) 
			//СПАТЬ(2 мин)
			//ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
				ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
				ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
				АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
			КОНЕЦ_ЕСЛИ	
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================================================================
БЛОК ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Электроимпульсная терапия неэффективна. Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================================================================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД>=120 то  
		ВЫЗОВ_ВРАЧА("Критически высокое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА