//Геморрагический шок диагностика и лечение

Переменные:кровопотеря, степень, кровотечение, масса, КОЭФФ_Транексамовая_кислота, ИНФ_НОМЕР_Транексамовая_кислота, инф_номер_норадреналин, коэфф_норадреналин
БЛОК ВХОД
	КОЭФФ_Транексамовая_кислота=1
	коэфф_норадреналин=1/2
	ВЫЗОВ_ВРАЧА("Произведите катетеризацию вены.", 1 мин)
	ВЫЗОВ_ВРАЧА("Забор крови на определение гемоглобина, гематокрита, эритроцитов, тромбоцитов, концентрацию фибриногена, протромбинового времени, активированного парциального тромбопластинового времени.", 10 мин)
	кровопотеря=ВЫБОР("Оценка тяжести кровопотери.", "Объем кровопотери менее 1500 мл", 1, "Объем кровопотери более 1500 мл", 2, "Неизвестно", 0)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 5 сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5 сек)
	ЕСЛИ кровопотеря==0 то
		ЕСЛИ ЧДД>0 и (ЧДД<14 или ЧДД>40) то
			кровопотеря=2
			степень=4
		КОНЕЦ_ЕСЛИ
		ЕСЛИ ЧДД>30 и ЧДД<=40 то
			кровопотеря=2
			степень=3
		КОНЕЦ_ЕСЛИ
		ЕСЛИ ЧДД>20 и ЧДД<=30 то
			кровопотеря=1
			степень=2
		КОНЕЦ_ЕСЛИ
		ЕСЛИ ЧДД>=14 и ЧДД<=20 то
			кровопотеря=1
			степень=1
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	кровотечение=ВЫБОР("Кровотечение остановлено?", "Да", 1, "Нет", 0)
	ВЫЗОВ_ВРАЧА("При РaO2 < 60 torr подключить пациента к ИВЛ в режиме нормовентиляции, иначе наладить ингаляцию кислорода – при наличии кислородного концентратора 6 л/мин, при наличии госпитальной системы 8л/мин.", 5 мин)
	масса=ВВОД("Введите массу пациента, (кг).", 20, 250)
	ЕСЛИ кровопотеря==1 и кровотечение==1 то
		ВЫЗОВ_ВРАЧА("Обеспечить хирургический гемостаз.", 1 мин)
		ВЫЗОВ_ВРАЧА("Внутривенная инфузия "+строка(20*масса)+" мл, соотношение коллоиды/кристаллоиды 1:2, но не более 200% объема кровопотери.", 5 мин)
		ВВЕСТИ_БЫСТРО(1, Транексамовая_кислота, 12.5*МАССА*КОЭФФ_Транексамовая_кислота мл, в/в)
		СПАТЬ(1 мин)
		ИНФ_НОМЕР_Транексамовая_кислота=ВВЕСТИ(1, Транексамовая_кислота, 2.5*МАССА*КОЭФФ_Транексамовая_кислота мл/час)
		ВЫЗОВ_ВРАЧА("При уровне гемоглобина менее 70 г/л вводить эритроцитарная массу.", 2 мин)
		ВЫЗОВ_ВРАЧА("Если фибриноген менее 1 г/л, тромбоциты  менее 5000*е9, МНО более 1.5, вводить свежезамороженную плазму "+строка(15*МАССА)+" мл/кг.", 2 мин)
	иначе
		АКТИВИРОВАТЬ_БЛОК(контроль_АД, 100 час)
		ВЫЗОВ_ВРАЧА("Обеспечить хирургический гемостаз.", 1 мин)
		ВЫЗОВ_ВРАЧА("Внутривенная инфузия "+строка(20*масса)+" мл, соотношение коллоиды/кристаллоиды 1:2 и компонентами крови, до 300% объема кровопотери.", 5 мин)
		ВВЕСТИ_БЫСТРО(1, Транексамовая_кислота, 12.5*МАССА*КОЭФФ_Транексамовая_кислота мл, в/в)
		СПАТЬ(1 мин)
		ИНФ_НОМЕР_Транексамовая_кислота=ВВЕСТИ(1, Транексамовая_кислота, 2.5*МАССА*КОЭФФ_Транексамовая_кислота мл/час)
		ВЫЗОВ_ВРАЧА("При уровне гемоглобина менее 70 г/л вводить эритроцитарная массу.", 2 мин)
		ВЫЗОВ_ВРАЧА("Вводить свежезамороженную плазму "+строка(15*МАССА)+" мл/кг.", 2 мин)
		
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========
БЛОК контроль_ад()
	ЕСЛИ САД<70 то
		инф_номер_норадреналин=ВВЕСТИ(2, норадреналин, 0.02*МАССА*коэфф_норадреналин*60 мл/час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА