//Единый алгоритм сердечно-лёгочной реанимации (v1)
Переменные: МАССА, массаж_сердца_начат, адреналин_начат, В_доза, реанимация, дефибрилляция_адреналин_начаты, счетчик

БЛОК ВХОД
	дефибрилляция_адреналин_начаты=0.0
	массаж_сердца_начат=0.0
	адреналин_начат=0.0
	В_доза=0.0
	АКТИВИРОВАТЬ_БЛОК(МАССАЖ_СЕРДЦА, 1сек)
	АКТИВИРОВАТЬ_БЛОК(ВВОД_МАССЫ, 1сек) 	
	АКТИВИРОВАТЬ_БЛОК(ПРОЧЕЕ, 1сек)
	//АКТИВИРОВАТЬ_БЛОК(АДРЕНАЛИН, 1сек)
	//ВЫЗОВ_ВРАЧА("фыпе", 1мин)
КОНЕЦ_БЛОКА // конец БЛОК ВХОД
//====================================================================

БЛОК МАССАЖ_СЕРДЦА()
	ЕСЛИ массаж_сердца_начат==0 то

		массаж_сердца_начат=1
		ВЫЗОВ_ВРАЧА("НАЧАТЬ МАССАЖ СЕРДЦА!Частотой 100-120 нажатий в минуту, глубина компрессий 5 см", 2мин)
		
		СПАТЬ(3сек)
		ВЫЗОВ_ВРАЧА("ПОДКЛЮЧИТЬ ЭКГ!", 110 сек)
		реанимация=ВЫБОР("Определите состояние:", "желудочковая тахикардия (широкие комплексы QRS, частота > 100/мин)", 1, "фибрилляция (широкие комплексы QRS, частота > 200/мин)", 1, "асистолия (изолиния)", 2, "электрической активность без пульса (комплексы QRS узкие, частота вариабельна)",2, "синусовый ритм", 3)
		ЕСЛИ реанимация==3 то
			ВЫЗОВ_ВРАЧА("Реанимация окончена.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ реанимация==1 то
		АКТИВИРОВАТЬ_БЛОК(ДЕФИБРИЛЛЯЦИЯ_АДРЕНАЛИН, 1сек)
		иначе
		АКТИВИРОВАТЬ_БЛОК(АДРЕНАЛИН, 1сек)
		КОНЕЦ_ЕСЛИ
		СПАТЬ(120сек)
	иначе
		ВЫЗОВ_ВРАЧА("СТОП РЕАНИМАЦИЯ! СМЕНА РЕАНИМАТОЛОГА! ОЦЕНКА РИТМА!", 2мин)
		реанимация=ВЫБОР("Определите состояние:", "желудочковая тахикардия (широкие комплексы QRS, частота > 100/мин)", 1, "фибрилляция (широкие комплексы QRS, частота > 200/мин)", 1, "асистолия (изолиния)", 2, "электрической активность без пульса (комплексы QRS узкие, частота вариабельна)",2, "синусовый ритм", 3)
		ЕСЛИ реанимация==3 то
			ВЫЗОВ_ВРАЧА("Реанимация окончена.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
			
			ЕСЛИ реанимация==1 то
			АКТИВИРОВАТЬ_БЛОК(ДЕФИБРИЛЛЯЦИЯ_АДРЕНАЛИН, 1сек)
			иначе
			АКТИВИРОВАТЬ_БЛОК(АДРЕНАЛИН, 1сек)
			КОНЕЦ_ЕСЛИ
		//СПАТЬ(5сек)
		ВЫЗОВ_ВРАЧА("ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 2мин) 
		
		СПАТЬ(120сек)
		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА // конец МАССАЖ_СЕРДЦА
//====================================================================

БЛОК АДРЕНАЛИН()
	
		адреналин_начат=1
		СПАТЬ(1сек)
		ВЫЗОВ_ВРАЧА("ПОДГОТОВИТЬ АДРЕНАЛИН 0,1% 1 мл для в/в введения.", 1мин)
		СПАТЬ(2 сек)
		ВВЕСТИ_БЫСТРО(0, АДРЕНАЛИН_01, 1 мл, в/в)
		СПАТЬ(50сек)
		СПАТЬ(180сек)
	        ВЫХОД
КОНЕЦ_БЛОКА// конец АДРЕНАЛИН
//====================================================================

БЛОК ДЕФИБРИЛЛЯЦИЯ_АДРЕНАЛИН()
	ЕСЛИ дефибрилляция_адреналин_начаты==0 то
	СПАТЬ(5сек)
	ВЫЗОВ_ВРАЧА("ПОДГОТОВКА ДЕФИБРИЛЛЯЦИИ 360Дж для однофазного и 200Дж для двуфазного дефибриллятора. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(3сек)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1мин)
	ВЫЗОВ_ВРАЧА("ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(95 сек)//прошло 2 минуты +100сек
	КОНЕЦ_ЕСЛИ
	ЕСЛИ счетчик==1 или счетчик==2 то
	ВЫЗОВ_ВРАЧА("ПОДГОТОВКА ДЕФИБРИЛЛЯЦИИ 360Дж для однофазного и 200Дж для двуфазного дефибриллятора. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(3сек)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1мин)
	ВЫЗОВ_ВРАЧА("ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(120 сек)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ счетчик==3 то
	ВЫЗОВ_ВРАЧА("ПОДГОТОВИТЬ АДРЕНАЛИН 0,1% 1 мл в/в. Подготовить Амиодарон 300мг в/в.", 1мин)
	СПАТЬ(3сек)
	ВЫЗОВ_ВРАЧА("Ввести АДРЕНАЛИН 0,1% 1 мл в/в. Ввести Амиодарон 300мг в/в.")//прошло 8мин
	СПАТЬ(230сек)
	КОНЕЦ_ЕСЛИ
	дефибрилляция_адреналин_начаты=1
	ЕСЛИ счетчик==4 то
		ВЫЗОВ_ВРАЧА("ПОДГОТОВИТЬ АДРЕНАЛИН 0,1% 1 мл", 1мин)
		СПАТЬ(10сек)
		ВВЕСТИ_БЫСТРО(0, АДРЕНАЛИН_01, 1 мл, в/в)
		СПАТЬ(230сек)
	КОНЕЦ_ЕСЛИ
	счетчик=счетчик+1
	//ВЫХОД
КОНЕЦ_БЛОКА ДЕФИБРИЛЛЯЦИЯ_АДРЕНАЛИН
//=====================================================================
БЛОК ПРОЧЕЕ()
	СПАТЬ(25 сек)
	ВЫЗОВ_ВРАЧА("ПОДГОТОВИТЬСЯ К ИНТУБАЦИИ ТРАХЕИ! ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!",1мин)
	СПАТЬ(3сек)
	ВЫЗОВ_ВРАЧА("ИНТУБАЦИЯ ТРАХЕИ. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	В_доза=МАССА*7
	СПАТЬ(3 сек)
	ВЫЗОВ_ВРАЧА("ПОДКЛЮЧИТЬ ИВЛ V="+строка(В_доза)+"мл, FiO2=100%, PEEP=5, Частота 12-14. Либо дыхание при помоши мешка Амбу с частотой 1 вдох каждые 6 сек", 1мин)
	СПАТЬ(60сек)
	ВЫЗОВ_ВРАЧА("Аускультативный контроль. Исключение пневмоторакса. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(20сек)
	СПАТЬ(20сек)
	ВЫЗОВ_ВРАЧА("Подготовить периферический венозный или костный доступ.При наличии кровопотери или гиповолемии начать инфузию Натрия хлорид 0,9% - 1000 мл внутривенно со скоростью 2000 мл/час.ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(20сек)
	ВЫЗОВ_ВРАЧА("Анализ глюкозы и электролитов. Исключить гипер/гипокалийемию. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(10сек) //прошло 4мин
	СПАТЬ(4мин)
	ВЫЗОВ_ВРАЧА("ВЫЗОВ СПЕЦИАЛИСТА С УЗИ. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(4мин)
	СПАТЬ(60сек)
	ВЫЗОВ_ВРАЧА("УЗИ. Исключить ТЭЛА, Тампонаду сердца. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!",1мин)
	СПАТЬ(60сек) //прошло 14мин
	СПАТЬ(60сек)
	ВЫЗОВ_ВРАЧА("Изучить лист назначений. Исключить токсины. ПРОДОЛЖАТЬ МАССАЖ СЕРДЦА!", 1мин)
	СПАТЬ(60сек)//прошло 16мин
	ВЫХОД
КОНЕЦ_БЛОКА// конец ПРОЧЕЕ
//====================================================================

БЛОК ВВОД_МАССЫ()
	СПАТЬ(20сек)
	МАССА=ВВОД("Введите массу пациента", 10, 250,станд_вес)
	ВЫХОД
КОНЕЦ_БЛОКА
//====================================================================
