//Аритмия фибрилляция предсердий диагностика и лечение
Переменные:ф1, ф2, ф3, пароксизм_до_48_часов, гемодинамика_нестабильна, МАССА, органическое_заболевание_сердца, инф_номер_амиодарон, препарат, инф_номер_пропафенон, инф_номер_ибутилид,\
 сердечная_недостаточность, инф_номер_эсмолол, инф_номер_метопролол, инф_номер_верапамил, продолжать_дефибрилляцию, амиодарон_начат, инф_номер_гепарин, счетчик_дефибрилляция, выраженная_брадикардия, МассивДата[6], ПеременнаяМинуты

БЛОК ВХОД
	амиодарон_начат=0
	ВЫЗОВ_ВРАЧА("Произведите общий осмотр и физикальное обследование пациента.", 15 мин)
	ВЫЗОВ_ВРАЧА("Подключите ЭКГ, начните измерять АД, SpO2, ЧДД, ЧСС.", 2мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 3 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 1 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 1сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СпО2, 1сек)
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ПАРАМЕТРОВ, 1 сек)
	МАССА=ВВОД("Введите массу пациента, (кг)", 30, 250,станд_вес)
	МУЛЬТИВЫБОР("Диагностические критерии фибрилляции предсердий.","Абсолютно нерегулярные интервалы RR/(Отсутствуют=0)/Присутствуют=1", ф1, "Зубцы Р на ЭКГ/(Присутствуют=0)/Отсутствуют=1", ф2)
	ЕСЛИ ф1+ф2==2 то
		ВЫЗОВ_ВРАЧА("Диагностирована фибрилляция предсердий.", 2мин)
	иначе
		ВЫЗОВ_ВРАЧА("Фибрилляция предсердий не диагностирована. Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	пароксизм_до_48_часов=ВЫБОР("Пароксизм фибрилляции предсердий происходит","менее 48 часов", 1, "более 48 часов", 0)
	ЕСЛИ пароксизм_до_48_часов==1 то
		гемодинамика_нестабильна=ВЫБОР("Оцените характер гемодинамики", "стабильная", 0, "нестабильная", 1)
		ЕСЛИ гемодинамика_нестабильна==1 то
			ВЫЗОВ_ВРАЧА("Подготовить гепарин 5000 Ед.", 2 мин)
			ВВЕСТИ_БЫСТРО("Гепарин 5000 Ед развести в 10 мл физраствора, вводить вручную.",0, гепарин, 5000 Ед, в/в)
			ВЫЗОВ_ВРАЧА("Подготовить пропофол "+строка(МАССА*1.5)+"мг (1.5мг/кг).", 2мин)
			ВВЕСТИ_БЫСТРО(0, пропофол, МАССА*1.5 мг, в/в)
			ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Установить режим синхронизации. Разряд 200 Дж монофазный или 150 Дж бифазный. Начать электроимпульсную терапию.", 10 мин)
			продолжать_дефибрилляцию=1
			ПОКА продолжать_дефибрилляцию==1
				ВЫЗОВ_ВРАЧА("Все от пациента! Разряд!", 1мин)
				СПАТЬ(1 мин)
				продолжать_дефибрилляцию=ВЫБОР("Аритмию удалось купировать", "Да", 0, "Нет", 1)
			КОНЕЦ_ПОКА
		иначе
			органическое_заболевание_сердца=ВЫБОР("Органическое заболевание сердца", "присутствует", 1, "отсутствует", 0)
			ЕСЛИ органическое_заболевание_сердца==1 то
				АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100час)
				
			иначе
				препарат=ВЫБОР("Выберите препарат:", "Пропафенон", 1, "Ибутилид", 2, "Амиодарон", 3)
				ЕСЛИ препарат==1 то
					ВЫЗОВ_ВРАЧА("Подготовить пропафенон "+строка(2*МАССА)+" мг (2 мг/кг), вводить в/в в течение 10 мин.", 2мин)
					Доза(2*6, "мг/кгчас")
					инф_номер_пропафенон=ВВЕСТИ_НАЧАТЬ(1, пропафенон, 2*МАССА*6 мг/час, 10 мин)
				КОНЕЦ_ЕСЛИ
				ЕСЛИ препарат==2 то
					АКТИВИРОВАТЬ_БЛОК(терапия_ибутилид, 100час)
				КОНЕЦ_ЕСЛИ
				ЕСЛИ препарат==3 то
					АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
//восстановление синусового ритма
	СПАТЬ(30 сек)
	ЕСЛИ амиодарон_начат==0 то
		АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100час)
	КОНЕЦ_ЕСЛИ
	АКТИВИРОВАТЬ_БЛОК(восстановление_синусового_ритма, 100час)
	
	иначе
		сердечная_недостаточность=ВЫБОР("Сердечная недостаточность","Есть",1,"Нет", 0)
		ЕСЛИ сердечная_недостаточность==1 то
			ВЫЗОВ_ВРАЧА("Подготовьте дигоксин 0.5 мг.", 2 мин)
			ВВЕСТИ_БЫСТРО(1, дигоксин, 0.5 мг, в/в)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+10
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
			СПАТЬ(10мин)
				ЕСЛИ ЧСС>110 то
					АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100 час)
				КОНЕЦ_ЕСЛИ
		иначе
			препарат=ВЫБОР("Выберите препарат:", "Эсмолол", 1, "Метопролол", 2, "Верапамил", 3)
			ЕСЛИ препарат==1 то
				ВЫЗОВ_ВРАЧА("Подготовьте эсмолол "+строка(0.1*МАССА)+"мг (100мкг/кг), вводить в/в в течение 1 мин.", 2мин)
				Доза(0.1, "мг/кгмин")
				инф_номер_эсмолол=ВВЕСТИ_НАЧАТЬ(2, эсмолол, 0.1*60*МАССА мг/час, 1 мин)
				МассивДата = ТекущееВремя
				ПеременнаяМинуты = минуты(МассивДата)+10
				МассивДата = дата(ПеременнаяМинуты)
				ЕСЛИ МассивДата[4]<10 то
					Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
				иначе
					Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
				КОНЕЦ_ЕСЛИ
				СПАТЬ(10мин)
				ЕСЛИ ЧСС>110 то
					АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100 час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ препарат==2 то
				АКТИВИРОВАТЬ_БЛОК(терапия_метопролол, 100 час)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ препарат==3 то
				ВЫЗОВ_ВРАЧА("Подготовить верапамил "+строка(0.1*МАССА)+"мг (0.1мг/кг), вводить в/в в течение 2 мин.",2мин)
				Доза(0.05, "мг/кгмин")
				инф_номер_верапамил=ВВЕСТИ_НАЧАТЬ(2, верапамил, 0.05*МАССА*60 мг/час, 2 мин)
				МассивДата = ТекущееВремя
				ПеременнаяМинуты = минуты(МассивДата)+10
				МассивДата = дата(ПеременнаяМинуты)
				ЕСЛИ МассивДата[4]<10 то
					Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
				иначе
					Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
				КОНЕЦ_ЕСЛИ
				СПАТЬ(10мин)
				ЕСЛИ ЧСС>110 то
					АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100 час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//**************
БЛОК восстановление_синусового_ритма()
	СПАТЬ(30 сек)
	//ВЫЗОВ_ВРАЧА("Восстановление синусового ритма.", 1 мин) 
	МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+30
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 30 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 30 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
	СПАТЬ(30 мин)
	ЕСЛИ ЧСС>150 то
		ЕСЛИ САД>100 то
			препарат=ВЫБОР("Выберите препарат:", "Эсмолол", 1, "Метопролол", 2, "Верапамил", 3)
			ЕСЛИ препарат==1 то
			        Доза(0.1, "мг/кгмин")
				инф_номер_эсмолол=ВВЕСТИ_НАЧАТЬ(2, эсмолол, 0.1*60*МАССА мг/час, 1 мин)
				МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+10
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
				СПАТЬ(10мин)
				ЕСЛИ ЧСС>150 то
					ВВЕСТИ_БЫСТРО("Гепарин 5000 Ед развести в 10 мл физраствора, вводить вручную.",0, гепарин, 5000 Ед, в/в)
					СПАТЬ(30 сек)
					инф_номер_гепарин=ВВЕСТИ_НАЧАТЬ(1, гепарин, 1000 Ед/час)
					ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Установить режим синхронизации. Разряд 200 Дж монофазный или 150 Дж бифазный. Начать электроимпульсную терапию.", 10 мин)
					продолжать_дефибрилляцию=1
					счетчик_дефибрилляция=0
					ПОКА продолжать_дефибрилляцию==1
						ЕСЛИ счетчик_дефибрилляция==4 то
							ВЫЗОВ_ВРАЧА("Начать алгоритм сердечно-лёгочной реанимации. Завершение работы алгоритма.", 2мин)
							ОСТАНОВИТЬ_АЛГОРИТМ
						КОНЕЦ_ЕСЛИ
						ВЫЗОВ_ВРАЧА("Все от пациента! Разряд!", 1мин)
						счетчик_дефибрилляция=счетчик_дефибрилляция+1
						СПАТЬ(1 мин)
						продолжать_дефибрилляцию=ВЫБОР("Аритмию удалось купировать", "Да", 0, "Нет", 1)
					КОНЕЦ_ПОКА
				иначе
					ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
					СПАТЬ(1 час)
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ препарат==2 то
				АКТИВИРОВАТЬ_БЛОК(терапия_метопролол, 100 час)
			КОНЕЦ_ЕСЛИ
			ЕСЛИ препарат==3 то
			        Доза(0.05, "мг/кгмин")
				инф_номер_верапамил=ВВЕСТИ_НАЧАТЬ(2, верапамил, 0.05*МАССА*60 мг/час, 2 мин)
				МассивДата = ТекущееВремя
				ПеременнаяМинуты = минуты(МассивДата)+10
				МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
				СПАТЬ(10мин)
				ЕСЛИ ЧСС>150 то
					ВВЕСТИ_БЫСТРО("Гепарин 5000 Ед развести в 10 мл физраствора, вводить вручную.",0, гепарин, 5000 Ед, в/в)
					СПАТЬ(30 сек)
					инф_номер_гепарин=ВВЕСТИ_НАЧАТЬ(1, гепарин, 1000 Ед/час)
					ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Установить режим синхронизации. Разряд 200 Дж монофазный или 150 Дж бифазный. Начать электроимпульсную терапию.", 10 мин)
					продолжать_дефибрилляцию=1
					счетчик_дефибрилляция=0
					ПОКА продолжать_дефибрилляцию==1
						ЕСЛИ счетчик_дефибрилляция==4 то
							ВЫЗОВ_ВРАЧА("Начать алгоритм сердечно-лёгочной реанимации. Завершение работы алгоритма.", 2мин)
							ОСТАНОВИТЬ_АЛГОРИТМ
						КОНЕЦ_ЕСЛИ
						ВЫЗОВ_ВРАЧА("Все от пациента! Разряд!", 1мин)
						счетчик_дефибрилляция=счетчик_дефибрилляция+1
						СПАТЬ(1 мин)
						продолжать_дефибрилляцию=ВЫБОР("Аритмию удалось купировать", "Да", 0, "Нет", 1)
					КОНЕЦ_ПОКА
			ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
				иначе
					ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
					СПАТЬ(1 час)	
				КОНЕЦ_ЕСЛИ
			КОНЕЦ_ЕСЛИ
		иначе
			ВВЕСТИ_БЫСТРО("Гепарин 5000 Ед развести в 10 мл физраствора, вводить вручную.",0, гепарин, 5000 Ед, в/в)
			СПАТЬ(30 сек)
			инф_номер_гепарин=ВВЕСТИ_НАЧАТЬ(1, гепарин, 1000 Ед/час)
			ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Установить режим синхронизации. Разряд 200 Дж монофазный или 150 Дж бифазный. Начать электроимпульсную терапию.", 10 мин)
			продолжать_дефибрилляцию=1
			счетчик_дефибрилляция=0
			ПОКА продолжать_дефибрилляцию==1
				ЕСЛИ счетчик_дефибрилляция==4 то
					ВЫЗОВ_ВРАЧА("Начать алгоритм сердечно-лёгочной реанимации. Завершение работы алгоритма.", 2мин)
					ОСТАНОВИТЬ_АЛГОРИТМ
				КОНЕЦ_ЕСЛИ
				ВЫЗОВ_ВРАЧА("Все от пациента! Разряд!", 1мин)
				счетчик_дефибрилляция=счетчик_дефибрилляция+1
				СПАТЬ(1 мин)
				продолжать_дефибрилляцию=ВЫБОР("Аритмию удалось купировать", "Да", 0, "Нет", 1)
			КОНЕЦ_ПОКА
			ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС<40 и ЧСС>0 то
		ВВЕСТИ_БЫСТРО(2, атропин, 1мл, в/в)
		СПАТЬ(100 сек)
		ЕСЛИ ЧСС< 40 то
			ВЫЗОВ_ВРАЧА("Отменить амиодарон.", 1 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_амиодарон)
			ВЫЗОВ_ВРАЧА("Начать алгоритм сердечно-лёгочной реанимации. Завершение работы алгоритма.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
			СПАТЬ(1час)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ

КОНЕЦ_БЛОКА

БЛОК терапия_метопролол()
	ВЫЗОВ_ВРАЧА("Подготовить метопролол 5мг, вводить в/в в течение 2 мин.", 2мин)
	инф_номер_метопролол=ВВОДИТЬ_И_ЖДАТЬ(2, метопролол, 2.5*60 мг/час, 2мин)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+5
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
	СПАТЬ(5 мин)
	ЕСЛИ ЧСС>110 то
		ВЫЗОВ_ВРАЧА("Подготовить метопролол 5мг, вводить в/в в течение 2 мин.", 2мин)
		инф_номер_метопролол=ВВОДИТЬ_И_ЖДАТЬ(2, метопролол, 2.5*60 мг/час, 2мин)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+5
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 5 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 5 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
		СПАТЬ(5 мин)
		ЕСЛИ чсс>110 то
			ВЫЗОВ_ВРАЧА("Подготовить метопролол 5мг, вводить в/в в течение 2 мин.", 2мин)
			инф_номер_метопролол=ВВОДИТЬ_И_ЖДАТЬ(2, метопролол, 2.5*60 мг/час, 2мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+10
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
	СПАТЬ(10 мин)
	ЕСЛИ ЧСС>110 и амиодарон_начат == 0 то
		АКТИВИРОВАТЬ_БЛОК(терапия_амиодарон, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС>150 и амиодарон_начат==1 то //(это ветка САД>100)
		ВВЕСТИ_БЫСТРО("Гепарин 5000 Ед развести в 10 мл физраствора, ввести вручную.", 0, гепарин, 5000 Ед, в/в)
		СПАТЬ(30 сек)
		инф_номер_гепарин=ВВЕСТИ_НАЧАТЬ(1, гепарин, 1000 Ед/час)
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Установить режим синхронизации. Разряд 200 Дж монофазный или 150 Дж бифазный. Начать электроимпульсную терапию.", 10 мин)
		продолжать_дефибрилляцию=1
		счетчик_дефибрилляция=0
		ПОКА продолжать_дефибрилляцию==1
			ЕСЛИ счетчик_дефибрилляция==4 то
				ВЫЗОВ_ВРАЧА("Начать алгоритм сердечно-лёгочной реанимации. Завершение работы алгоритма.", 2мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ВЫЗОВ_ВРАЧА("Все от пациента! Разряд!", 1мин)
			счетчик_дефибрилляция=счетчик_дефибрилляция+1
			СПАТЬ(1 мин)
			продолжать_дефибрилляцию=ВЫБОР("Аритмию удалось купировать", "Да", 0, "Нет", 1)
		КОНЕЦ_ПОКА
	иначе
		ВЫЗОВ_ВРАЧА("Продолжать терапию под наблюдением ЧСС.", 1мин)
		СПАТЬ(1 час)			
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
БЛОК терапия_ибутилид()
	ВЫЗОВ_ВРАЧА("Подготовить ибутилид 1 мг (100мкг/мин), вводить в/в в течение 10 мин.", 2 мин)
	инф_номер_ибутилид=ВВОДИТЬ_И_ЖДАТЬ(1, ибутилид, 6 мг/час, 10 мин)
			МассивДата = ТекущееВремя
			ПеременнаяМинуты = минуты(МассивДата)+10
			МассивДата = дата(ПеременнаяМинуты)
			ЕСЛИ МассивДата[4]<10 то
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":0"+строка(МассивДата[4])+")", 5 мин )
			иначе
				Вызов_Врача("При отсутствии ухудшения показателей повторная оценка ЧСС через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 5 мин )
			КОНЕЦ_ЕСЛИ
	СПАТЬ(10мин)
	ВЫЗОВ_ВРАЧА("Подготовить ибутилид 1 мг (100мкг/мин), вводить в/в в течение 10 мин.", 2 мин)
	инф_номер_ибутилид=ВВОДИТЬ_И_ЖДАТЬ(1, ибутилид, 6 мг/час, 10 мин)
КОНЕЦ_БЛОКА
БЛОК терапия_амиодарон()
	выраженная_брадикардия=ВЫБОР("Присутствует выраженная брадикардия (ЧСС менее 50/мин)", "Нет", 0, "Да", 1)
	ЕСЛИ выраженная_брадикардия==1 то
		ВЫЗОВ_ВРАЧА("Завершение работы алгоритма.", 2 мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	амиодарон_начат=1
	ВЫЗОВ_ВРАЧА("Развести 450 мг амиодарона в 250 мл 5% растворе глюкозы, вводить в/в в течение 30 мин.", 2мин)
	инф_номер_амиодарон=ВВОДИТЬ_И_ЖДАТЬ(1, амиодарон, 15*60 мг/час, 30 мин)
	ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_амиодарон, амиодарон, 50 мг/час)
КОНЕЦ_БЛОКА

БЛОК КОНТРОЛЬ_ПАРАМЕТРОВ()
	ЕСЛИ ЧСС>0 и ЧСС<40 то 
		ВЫЗОВ_ВРАЧА("Критически низкая ЧСС (ЧСС). Завершение работы алгоритма.", 2мин)
		//ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС>250 то
		ВЫЗОВ_ВРАЧА("Критически высокая ЧСС (ЧСС). Завершение работы алгоритма.", 2мин)
		//ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧДД>28 то
		ВЫЗОВ_ВРАЧА("Критически высокая ЧДД (ЧДД). Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ

КОНЕЦ_БЛОКА


































