//Диабетическая кома. Мобильная версия. Диагностика и лечение

Переменные: сознание, повреждения, глюкоза, диабет, КОЭФФ_ИНСУЛИН, МАССА, КОЕФФ_ИНСУЛИН, лечение,\
	    ИНФ_НОМЕР_ГЛЮКОЗА, КОЭФФ_ГЛЮКОЗА, ИНФ_НОМЕР_ИНСУЛИН

БЛОК ВХОД
	сознание=1.0
	повреждения=0.0 
	глюкоза=0.0 
	диабет=1.0 
	КОЭФФ_ИНСУЛИН=1.0
	КОЕФФ_ИНСУЛИН=1.0
	лечение=3.0
	КОЭФФ_ГЛЮКОЗА=1.0
	ВЫЗОВ_ВРАЧА("Катетеризация вены.", 2мин)
	сознание=ВЫБОР("Пациент находится без сознания?", "без сознания", 0, "в сознании", 1)
	ЕСЛИ сознание==0 то
	повреждения=ВЫБОР("У пациента отсутствуют признаки внешних повреждений?", "отсутствуют", 0, "присутствуют", 1)
	ЕСЛИ повреждения==1 то
	ВЫЗОВ_ВРАЧА("Необходимо исключение травматического генеза комы. Завершение работы алгоритма.", 1мин)
	иначе
	глюкоза=ВЫБОР("Есть ли возможность взять анализ глюкозы?", "Да", 1, "Нет", 0)
	ВЫЗОВ_ВРАЧА("Установить назогастральный зонд.", 2мин)  //зачем?
	МАССА=ВВОД("Оцените массу пациента, кг", 30, 250)
	ЕСЛИ глюкоза==1 то
		глюкоза=ВВОД("Введите показания уровня глюкозы, ммоль/г", 0, 20)
	иначе
		диабет=ВЫБОР("Есть ли подозрение на сахарный диабет?", "Да", 1, "Нет", 0)
		ЕСЛИ диабет==1 то
		ВВЕСТИ_БЫСТРО(1, глюкоза_40, КОЭФФ_ГЛЮКОЗА*50 мл, в/в)
		сознание=ВЫБОР("Пациент пришёл в сознание?", "Да",1, "Нет", 0)
		ЕСЛИ сознание==1 то
			ВЫЗОВ_ВРАЧА("Приступ гипогликэмии купирован. Заврешение работы алгоритма.", 1мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ИНФ_НОМЕР_ГЛЮКОЗА=ВВЕСТИ(1, глюкоза_5, 1*КОЭФФ_ГЛЮКОЗА*60 мл/час)
			ВЫЗОВ_ВРАЧА("Госпитализировать пациента.", 1мин)
		КОНЕЦ_ЕСЛИ
		иначе
			ВЫЗОВ_ВРАЧА("Исключить инсульт. Завершение работы алгоритма.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ глюкоза>13.9 то
		ВЫЗОВ_ВРАЧА("Добавьте в раствор инсулина 1 мл 0,9% раствора NaCl", 1мин)
		ИНФ_НОМЕР_ИНСУЛИН=ВВЕСТИ(1, инсулин, КОЭФФ_ИНСУЛИН*МАССА*0.15/3*60 мл/час)
		СПАТЬ(3мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ИНСУЛИН)
		СПАТЬ(50мин)
		ИНФ_НОМЕР_ИНСУЛИН=ВВЕСТИ(1, инсулин, КОЭФФ_ИНСУЛИН*МАССА*0.1 мл/час) //уточнить скорость
		ВЫЗОВ_ВРАЧА("Госпитализировать пациента.", 1мин)
		СПАТЬ(1 час)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ИНСУЛИН)
		ВЫЗОВ_ВРАЧА("Введение инсулина закончено. Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ глюкоза<3.3 и глюкоза>0 то
		лечение=ВЫБОР("Для купирования гипогликэмии выберите и выполните одно из следующих действий:", "дать пациенту 15-20 г легкоусваиваемых углеводов (сахар)", 1, "ввести внутремышечно 1 мг глюкагона", 2, "ввести внутривенно 60 мл 40% раствора глюкозы", 3)
		ЕСЛИ лечение==3 то
			ВВЕСТИ_БЫСТРО(1, глюкоза_40, КОЭФФ_ГЛЮКОЗА*60 мл, в/в)
		КОНЕЦ_ЕСЛИ
		СПАТЬ(10 мин) //уточнить это время
		сознание=ВЫБОР("Пациент пришёл в сознание?", "Да",1, "Нет", 0)
		ЕСЛИ сознание==1 то
			ВЫЗОВ_ВРАЧА("Приступ гипогликэмии купирован. Заврешение работы алгоритма.", 1мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		иначе
			ИНФ_НОМЕР_ГЛЮКОЗА=ВВЕСТИ(1, глюкоза_5, 1*КОЭФФ_ГЛЮКОЗА*60 мл/час)
			ВЫЗОВ_ВРАЧА("Госпитализировать пациента.", 1мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ глюкоза>=3.3 и  глюкоза<14 то
		ВЫЗОВ_ВРАЧА("Исключить инсульт. Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	Иначе
		ВЫЗОВ_ВРАЧА("Завершение работы алгоритма.", 2мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ	
КОНЕЦ_БЛОКА