//Шкала индекса риска ишемических исходов GRACE
Переменные: киллип,г1,г2,г3,г4,г5,г6,г7,г8, грэйс
БЛОК ВХОД
	киллип=ВЫБОР("Классы риска смерти от инфаркта миокарда по Killip","Нет признаков сердечной недостаточности",1, "Влажные хрипы в нижней половине лёгочных полей и/или выслушивающийся III тон сердца",2,\
"Отёк лёгких: влажные хрипы распространяющиеся более чем до середины лопаток", 3, "Кардиогенный шок: САД<=90 мм.рт.ст. в сочетании с признаками переферической гипоперфузии", 4)
	ЕСЛИ киллип==1 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 6 %.", 5 мин)
		г5=0
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==2 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 17 %.", 5 мин)
		г5=20
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==3 то
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 38 %.", 5 мин)
		г5=39
	КОНЕЦ_ЕСЛИ
	ЕСЛИ киллип==4 то
		г5=59
		ВЫЗОВ_ВРАЧА("Смертность в течение первых 30 дней составляет 67 %.", 5 мин)
	КОНЕЦ_ЕСЛИ
	МУЛЬТИВЫБОР("GRACE. Укажите клинические признаки", "Возраст/(менее 30)=0/30-39=8/40-49=25/50-59=41/60-69=58/70-79=75/80-89=91/90 или более=100", г1,\
 "ЧСС/(менее 50=0)/50-69=3/70-89=9/90-109=15/110-149=24/150-199=38/200 или более=46", г2,\
 "Систолическое АД/менее 80=58/80-99=53/100-119=43/(120-139=34)/140-159=24/160-199=10/200 или более=0", г3,\
 "Уровень креатинина, мкмоль//л/(менее 35=1)/35-70=4/71-105=7/106-140=10/141-176=13/177-353=21/354 или более=28",г4,\
 "Остановка сердца на момент поступления пациента/(Не было=0)/Была=39",г6,\
 "Девиация сегмента ST/(Отсутствует=0)/Присутствует=28",г7,\
 "Повышение тропонина/(Отсутствует=0)/Присутствует=14",г8)
	грэйс=г1+г2+г3+г4+г5+г6+г7+г8
	ЕСЛИ грэйс<109 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности низкий, менее 1%.", 5мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ грэйс>=109 и грэйс<140 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности средний, от 1% до 3%.", 5мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ грэйс>=140 то
		ВЫЗОВ_ВРАЧА("Индекс GRACE равен "+строка(грэйс)+". Риск смертности высокий, более 3%.", 5мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА