//Геморрагический шок диагностика и лечение
//данные о группе крови
//вводить все результаты анализов
Переменные:кровопотеря, степень, кровотечение, масса, ИНФ_НОМЕР_Транексамовая_кислота, инф_номер_норадреналин, САД_нач, скорость_уменьшена, гемоглобин, эритроциты,\
		инф_номер_кристаллоиды, блок_транексам_активирован, норадреналин_включен, скорость_увеличена, МассивДата[6],ПеременнаяМинуты, начальный_контроль_ад_активирован
БЛОК ВХОД
	скорость_увеличена=0
	скорость_уменьшена=0
	блок_транексам_активирован=0
	норадреналин_включен=0
	начальный_контроль_ад_активирован=0
	ВЫЗОВ_ВРАЧА("Осмотр пациента, поиск источника наружного кровотечения, оценка сознания.", 5 мин)
	ВЫЗОВ_ВРАЧА("Произведите катетеризацию вены.", 1 мин)
	ВЫЗОВ_ВРАЧА("Забор крови на определение гемоглобина, гематокрита, эритроцитов, КЩС, тромбоцитов, концентрацию фибриногена, протромбинового времени, активированного парциального тромбопластинового времени.", 10 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5 мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 5 сек)
	инф_номер_кристаллоиды=ВВЕСТИ_НАЧАТЬ(100, кристаллоиды, 200 мл/час)
	ВЫЗОВ_ВРАЧА("При РaO2 < 60 torr подключить пациента к ИВЛ в режиме нормовентиляции, иначе наладить ингаляцию кислорода – при наличии кислородного концентратора 6 л/мин, при наличии госпитальной системы 8 л/мин.", 5 мин)
	ВЫЗОВ_ВРАЧА("Остановить кровотечение: наложение жгута, транспортировка в операционную.", 5мин)
	гемоглобин=ВВОД("Введите содержание гемоглобина, (г/л).", 0, 200)
	эритроциты=ВВОД("Введите концентрацию эритроцитов, (х10е6/л)", 0, 20)
	ЕСЛИ АД<64 или ЧСС>120 или гемоглобин<70 или эритроциты<2 то
		кровопотеря=2
	иначе
		кровопотеря=1
	КОНЕЦ_ЕСЛИ
	САД_нач=САД
	масса=ВВОД("Введите массу пациента, (кг).", 20, 250,станд_вес)
	кровотечение=ВЫБОР("Кровотечение остановлено?", "Да", 1, "Нет", 0)
	ЕСЛИ кровопотеря==1 и кровотечение==1 то
		ВЫЗОВ_ВРАЧА("Подготовьте кристаллоиды "+строка(20*МАССА)+" мл.", 2мин)
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_кристаллоиды, кристаллоиды, 400 мл/час)
		АКТИВИРОВАТЬ_БЛОК(ввод_транексама, 8 час)
		блок_транексам_активирован=1
		АКТИВИРОВАТЬ_БЛОК(последующая_терапия_малая_кровопотеря, 100 час)
	иначе
		АКТИВИРОВАТЬ_БЛОК(большая_кровопотеря, 10 мин)
		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========
БЛОК большая_кровопотеря()
		ВЫЗОВ_ВРАЧА("Обеспечить хирургический гемостаз.", 1 час)
		//ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_кристаллоиды, кристаллоиды, 1000 мл/час)
		ЕСЛИ начальный_контроль_ад_активирован==0 то
			АКТИВИРОВАТЬ_БЛОК(начальный_контроль_ад, 5мин)
			начальный_контроль_ад_активирован=1
		конец_ЕСЛИ
		ЕСЛИ гемоглобин<70 то
			СПАТЬ(30 сек)
			ВЫЗОВ_ВРАЧА("Вводить эритроцитарная массу с максимальной скоростью.Перед введением необходимо переопределить группы крови донора и реципиента, провести пробы на индивидуальную совместимость, биологические пробы", 5 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ блок_транексам_активирован==0 то
			АКТИВИРОВАТЬ_БЛОК(ввод_транексама, 8 час)	
		КОНЕЦ_ЕСЛИ
		//ВЫЗОВ_ВРАЧА("При уровне гемоглобина менее 70 г/л вводить эритроцитарная массу.", 2 мин)
			СПАТЬ(30 сек)
		ВЫЗОВ_ВРАЧА("Вводить свежезамороженную плазму "+строка(7.5*МАССА)+" мл.", 2 мин)
		АКТИВИРОВАТЬ_БЛОК(контроль_АД, 10 мин)

	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+15
	МассивДата = дата(ПеременнаяМинуты)
	Вызов_Врача("При отсутствии ухудшения показателей повторный забор крови через 15 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 15 мин )

		СПАТЬ(15 мин)  //спим 15 анализы ещё спим 30?!
		ВЫЗОВ_ВРАЧА("Повторный забор крови на определение гемоглобина, гематокрита, эритроцитов, тромбоцитов, концентрацию фибриногена, протромбинового времени, активированного парциального тромбопластинового времени.", 10 мин)
		гемоглобин=ВВОД("Введите содержание гемоглобина, (г/л).", 0, 200)
		эритроциты=ВВОД("Введите концентрацию эритроцитов, (х10е6/л)", 0, 20)
		ЕСЛИ АД<64 или ЧСС>120 или гемоглобин<70 или эритроциты<2 то
		кровопотеря=2
			иначе
		кровопотеря=1
			ВЫХОД
		КОНЕЦ_ЕСЛИ
	
КОНЕЦ_БЛОКА
//=========
БЛОК начальный_контроль_ад()
	ЕСЛИ АД<65 то
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_кристаллоиды,кристаллоиды, 2000 мл/час)
		скорость_увеличена=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ АД>=65 и скорость_увеличена==1 то
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_кристаллоиды, кристаллоиды, 1000 мл/час)
		скорость_уменьшена=0
	КОНЕЦ_ЕСЛИ
	ВЫХОД
КОНЕЦ_БЛОКА
//=========
БЛОК последующая_терапия_малая_кровопотеря()
	
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+20
	МассивДата = дата(ПеременнаяМинуты)
	Вызов_Врача("При отсутствии ухудшения показателей повторный забор крови через 20 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+")", 20мин)

	СПАТЬ(20мин)
	ВЫЗОВ_ВРАЧА("Повторный забор крови на определение гемоглобина, гематокрита, эритроцитов, тромбоцитов, концентрацию фибриногена, протромбинового времени, активированного парциального тромбопластинового времени.", 10 мин)
	гемоглобин=ВВОД("Введите содержание гемоглобина, (г/л).", 0, 200)
	эритроциты=ВВОД("Введите концентрацию эритроцитов, (х10е6/л)", 0, 20)
	ЕСЛИ АД<64 или ЧСС>120 или гемоглобин<70 или эритроциты<2 то
		кровопотеря=2
		АКТИВИРОВАТЬ_БЛОК(большая_кровопотеря, 30 мин)
	иначе
		кровопотеря=1
		ВЫЗОВ_ВРАЧА("Если фибриноген менее 1 г/л, тромбоциты  менее 5000*е9, МНО более 1.5, вводить свежезамороженную плазму "+строка(15*МАССА)+" мл.", 2 мин)
		ВЫХОД
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========
БЛОК ввод_транексама()
	ВВЕСТИ_БЫСТРО(1, Транексам, 500 мг, в/в)
КОНЕЦ_БЛОКА
//=========
БЛОК контроль_ад()
	ЕСЛИ САД>=САД_нач+10 и скорость_уменьшена==0 то
		ВЫЗОВ_ВРАЧА("Уменьшить скорость введения коллоидов/кристаллоидов в 2 раза.", 1 мин)
		скорость_уменьшена=1
		САД_нач=САД
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<САД_нач-11 и скорость_уменьшена==1 то
		ВЫЗОВ_ВРАЧА("Увеличьте скорость введения коллоидов/кристаллоидов до максимальной.", 1 мин)
		скорость_уменьшена=2
	КОНЕЦ_ЕСЛИ

	ЕСЛИ скорость_уменьшена==2 то
		ВЫЗОВ_ВРАЧА("Оценка ЭКГ. Если наблюдается депрессия сегмента ST или увеличение зубца P во втором отведении уменьшить скорость введения коллоидов/кристаллоидов в 2 раза.", 2мин)
		скорость_уменьшена=3
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<70 и норадреналин_включен==0 то
	        Доза(0.02, "мг/кгмин")
		инф_номер_норадреналин=ВВЕСТИ_НАЧАТЬ(2, норадреналин, 0.02*МАССА*60 мг/час)
		норадреналин_включен=1
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>=90 и САД<100 и норадреналин_включен==1 то
	        Доза(0.01, "мг/кгмин")
		ИЗМЕНИТЬ_СКОРОСТЬ(инф_номер_норадреналин, норадреналин, 0.01*МАССА*60 мг/час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД>=100 и норадреналин_включен==1 то
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(инф_номер_норадреналин)
	КОНЕЦ_ЕСЛИ
	
	МассивДата = ТекущееВремя
	ПеременнаяМинуты = минуты(МассивДата)+10
	МассивДата = дата(ПеременнаяМинуты)
	Вызов_Врача("При отсутствии ухудшения показателей коррекцию дозы лекарственных средств может потребоваться выполнить через 10 мин (в "+строка(МассивДата[3])+":"+строка(МассивДата[4])+" )", 10 мин )

КОНЕЦ_БЛОКА

//пример диалога со временем
//При отсутствии ухудшения показателей повторный осмотр и коррекция дозы лекарственного средства следует выполнить через 2 часа 30 минут (в 18:21)
