//Острый респираторный дистресс-синдром (РДСВ) лечение
Переменные: МАССА, РОСТ, ПОЛ, ИД_МАССА, ПАО2, ФИО2_НАЧАЛЬНОЕ,\
	    ПИИП_верх[17]={5, 5, 8, 8, 10, 10, 10, 12, 14, 14, 14, 16, 18, 18, 20, 22, 24},\
	    ПИИП_низ[17]={5, 8, 10, 12, 14, 14, 16, 16, 18, 20, 20, 20, 22, 22, 22, 24, 24},\
	    счётчик, ФИО2_верх[17]={0.3,0.4,0.4,0.5,0.5,0.6,0.7,0.7, 0.7,0.8, 0.9, 0.9, 0.9, 1, 1,1,1},\
	    ФИО2_низ[17]={0.3, 0.3, 0.3, 0.3, 0.3, 0.4, 0.4, 0.5, 0.5, 0.6, 0.7, 0.8, 0.8, 0.9, 1, 1, 1},\
	    Вт, Дых_неадекватно,ПП, фио2, пиип, сад, флаг, ППЛАТО, ПИАШ

БЛОК ВХОД
	//ПИИП_верх[17]={5, 5, 8, 8, 10, 10, 10, 12, 14, 14, 14, 16, 18, 18, 20, 22, 24}
	//ПИИП_низ[17]={5, 8, 10, 12, 14, 14, 16, 16, 18, 20, 20, 20, 22, 22, 22, 24, 24}
	счётчик=0.0
	//ФИО2_верх[17]={0.3,0.4,0.4,0.5,0.5,0.6,0.7,0.7, 0.7,0.8, 0.9, 0.9, 0.9, 1, 1,1,1}
	//ФИО2_низ[17]={0.3, 0.3, 0.3, 0.3, 0.3, 0.4, 0.4, 0.5, 0.5, 0.6, 0.7, 0.8, 0.8, 0.9, 1, 1, 1}
	Вт=8.0
	ПП=16.0
	//ввод постоянных данных о пациенте
	МАССА=ВВОД("Введите массу пациента", 10, 250)
	РОСТ= ВВОД("Введите рост пациента", 10, 300)
	ПОЛ=ВЫБОР("Пол", "Муж",0, "Жен",1)
	ЕСЛИ ПОЛ==0 то 
		ИД_МАССА=0.9*РОСТ-88 
	иначе 
		ИД_МАССА=0.9*РОСТ-98 
	КОНЕЦ_ЕСЛИ
	//установка интервалов измерения переменных параметров (стандартных //переменных)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2,30 сек) //1мин
        ПАО2=ВВОД("Введите PaO2, %", 0 , 100)
	ФИО2_НАЧАЛЬНОЕ=ВВОД("Введите FiO2", 0, 1)
	
	//УСТАНОВИТЬ_ИНТЕРВАЛ(ППЛАТО, 2мин) //4 час
	//УСТАНОВИТЬ_ИНТЕРВАЛ(ПИАШ, 90 сек)    //3час
	//установить начальные параметры ИВЛ
	ВЫЗОВ_ВРАЧА("Подключите НИВЛ, РЕЕР=5cmH2O, PIP=30cmH2O, RR=16/мин, 1:1, Vt=(8*ИД_МАССА) мл", 10мин)

	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_СПО2, 1 час) //1 час уточнить интервалы контроля у всех трёх!
	АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ППЛАТО, 4 час)
        АКТИВИРОВАТЬ_БЛОК(КОНТРОЛЬ_ПИАШ, 3 час)

	//ЕСЛИ времени_прошло>48 час то
	//	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 1мин)
	//	АКТИВИРОВАТЬ_БЛОК(ОТУЧЕНИЕ_ОТ_ИВЛ, 60мин)
	//КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА 
//==================================================================

БЛОК КОНТРОЛЬ_СПО2()
        ЕСЛИ счётчик>17 или СпО2>88 то
	иначе
	ЕСЛИ ПАО2/ФИО2_НАЧАЛЬНОЕ>=200 и СпО2<88 то
		фио2= ФИО2_верх[счётчик]
		пиип= ПИИП_верх[счётчик]
		ВЫЗОВ_ВРАЧА("Установите FiO2="+строка(фио2)+", PEEP="+строка(пиип), 1мин)
	КОНЕЦ_ЕСЛИ

	ЕСЛИ ПАО2/ФИО2_НАЧАЛЬНОЕ<200 и СпО2<88 то
		фио2= ФИО2_низ[счётчик]
		пиип= ПИИП_низ[счётчик]
		ВЫЗОВ_ВРАЧА("Установите FiO2="+строка(фио2)+", PEEP="+строка(пиип), 1мин)
	КОНЕЦ_ЕСЛИ
	счётчик=счётчик+1
	КОНЕЦ_ЕСЛИ
	//СПАТЬ(30 сек) //1 час
КОНЕЦ_БЛОКА 
// ===================================================================

БЛОК КОНТРОЛЬ_ППЛАТО()
	ППЛАТО=ВВОД("Введите PPlato", 0, 40)
	ЕСЛИ ППЛАТО>=30 то
		Вт=Вт-1
  		ЕСЛИ Вт==3 то 
			ВЫЗОВ_ВРАЧА("Vt="+строка(Вт*ИД_МАССА)+" достигло критического значения, ППЛАТО не удалось нормализовать. Завершение работы алгоритма", 1мин)
    			ОСТАНОВИТЬ_АЛГОРИТМ
 		КОНЕЦ_ЕСЛИ
		ВЫЗОВ_ВРАЧА("Понизить Vt до "+строка(Вт*ИД_МАССА), 1мин)
	КОНЕЦ_ЕСЛИ

	ЕСЛИ ППЛАТО<25 и Вт<6 то
		Вт=Вт+1
  		ЕСЛИ Вт==7 то 
			ВЫЗОВ_ВРАЧА("Vt="+строка(Вт*ИД_МАССА)+" достигло критического значения, ППЛАТО не удалось нормализовать. Завершение работы алгоритма", 1мин)
     			ОСТАНОВИТЬ_АЛГОРИТМ
  		КОНЕЦ_ЕСЛИ
		ВЫЗОВ_ВРАЧА("Повысить Vt до "+строка(Вт*ИД_МАССА), 1мин)
	КОНЕЦ_ЕСЛИ

	ЕСЛИ ППЛАТО<30 то
   		Дых_Неадекватно=ВЫБОР("Дыхание неадекватно?", "Да", 1,  "Нет",2)
   		ЕСЛИ Дых_Неадекватно==1 то
     			Вт=Вт+1
      		ЕСЛИ Вт==9 то 
			ВЫЗОВ_ВРАЧА("Vt="+строка(Вт*ИД_МАССА)+" достигло критического значения, ППЛАТО не удалось нормализовать. Завершение работы алгоритма", 1мин)
      			ОСТАНОВИТЬ_АЛГОРИТМ
    		КОНЕЦ_ЕСЛИ
     		ВЫЗОВ_ВРАЧА("Повысить Vt до "+строка(Вт*ИД_МАССА), 1мин)
   		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	//СПАТЬ(2 мин) //4 час
КОНЕЦ_БЛОКА
//===================================================================

БЛОК КОНТРОЛЬ_ПИАШ()
	ПИАШ=ВВОД("Введите pH", 0, 10)
	ЕСЛИ ПИАШ<=7.35 и ПИАШ>=7.15 то
  		ПП=ПП+2
  		ЕСЛИ ПП>=35 то 
			ВЫЗОВ_ВРАЧА("РР="+строка(ПП*ИД_МАССА)+" достигло критического значения, pH не удалось нормализовать. Завершение работы алгоритма", 1мин)
     		ОСТАНОВИТЬ_АЛГОРИТМ
  		КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Повысить PP до "+строка(ПП*ИД_МАССА), 1мин)
	КОНЕЦ_ЕСЛИ

	ЕСЛИ ПИАШ<7.15 то
  		ВЫЗОВ_ВРАЧА("Повысить PP до "+строка(35*ИД_МАССА), 1мин)
  		СПАТЬ(3600сек)//есть подозрение что этот слип не работает
		ПИАШ=ВВОД("Введите ПИАШ", 0, 10)
  		ЕСЛИ ПИАШ<7.15 то
    			Вт=Вт+1
    			ВЫЗОВ_ВРАЧА("Повысить Vt до "+строка(Вт*ИД_МАССА)+". Начать Алгоритм Декомпенсированного Ацидоза", 1мин)
                        СПАТЬ(1 час) //или сколько длится алгоритм декомпенс ацидоза или 30 мин
  		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//====================================================================

БЛОК ОТУЧЕНИЕ_ОТ_ИВЛ()

	флаг=ВЫБОР("Пациент делает более 50 процентов спонтанных попыток вдоха, а так же нет нейромышечного блока, а так же текущие значения FiO2,  PEEP,  Vt и RR не менялись как минимум 12 часов", "Нет", 0, "Да", 1) 
	ЕСЛИ (фио2<=0.4 и пиип<=8 и срад>=90 и флаг==1) или (фио2<=0.4 и пиип<=8 и СРАД>=90 и флаг==1) то  
	ВЫЗОВ_ВРАЧА("Выполнить тест спонтанного дыхания в режиме СРАР с FiO2<=0,5  и PS<=5", 120мин)
	флаг=ВЫБОР("Верно ли, SpO2>=90, PaO2>=60, Vt<=4мл/кг, RR<=35, pH>=7.5, Респираторный дистресс отсутствует?", "Да", 1, "Нет", 0)
	ЕСЛИ флаг==1 то
		ВЫЗОВ_ВРАЧА("Выполнить экстубацию", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА// конец ОТУЧЕНИЕ ОТ ЭВЛ

