//Шкала SOFA
Переменные:ШКГ, г1, г2, г3, с1, с2, с3, с4, с5, СОФА
Блок ВХОД
УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5 мин)
мультивыбор("Шкала SOFA", "Дыхание (РаО2//FiO2)/>400=0/<400=1/<300=2/<200 с респираторной поддержкой=3/<100 с респираторной поддержкой=4", с1, "Коагуляция (тромбоциты 10^9)/>150=0/<150=1/<100=2/<50=3/<20=4", с2, "Печень (билирубин ммоль//л)/<20=0/20-32=1/33-101=2/102-204=3/>204=4", с3, "Почки (креатинин ммоль//л) или объем диуреза/<110=0/110-170=1/171-299=2/креатинин 300-400 или диурез 500 мл в день=3/ креатинин>440 или диурез<200 мл в день=4", с3) 
МУЛЬТИВЫБОР("Шкала ГЛАЗГО(GLASGOW)", "Открывание глаз/Спонтанно=5/На речь=4/На боль=3/Не открывает=2", г1, "Речь/Разговаривает//Ориентирован=5/Разговаривает//Дезориентирован=4/Непонятные слова=3/Нечленораздельные звуки=2/Отсутсвует=1", г2, "Моторика/Выполняет команды=5/Целенаправленная на болевой раздражитель=4/Нецеленаправленная на болевой раздражитель=3/Тоническое сгибание=2/Тоническое разгибание=1/Отсутсвует=0", г3)
ШКГ=г1+г2+г3
ЕСЛИ ШКГ==15 то
с4=0
КОНЕЦ_ЕСЛИ
ЕСЛИ ШКГ==13 или ШКГ==14 то
с4=1
КОНЕЦ_ЕСЛИ
ЕСЛИ ШКГ>=10 и ШКГ<=12 то
с4=2
КОНЕЦ_ЕСЛИ
ЕСЛИ ШКГ>6 и ШКГ<=9 то
с4=3
КОНЕЦ_ЕСЛИ
ЕСЛИ ШКГ==6 то
с4=4
КОНЕЦ_ЕСЛИ
ЕСЛИ СРАД>=70 то 
с5=0
иначе
с5=ВЫБОР("Артериальная гипотензия", "Нет инотропной подержки", 1, "допамин<5мкг/кг/мин или добутамин",2, "допамин<5 мкг/кг/мин или адреналин<0,1 или норадреналин<0,1",3, "допамин>5 мкг/кг/мин или адреналин>0,1 или норадреналин>0,1", 4)
КОНЕЦ_ЕСЛИ
СОФА=с1+с2+с3+с4+с5
ВЫЗОВ_ВРАЧА("Состояние пациента оценивается в "+строка(СОФА)+" баллов(а) по шкале SOFA", 1мин)
КОНЕЦ_БЛОКА