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

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

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

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

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

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

КОНЕЦ_БЛОКА// конец ПРОЧЕЕ
//====================================================================

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