Операторы, императивы и ограничения технологического процесса лечения БА

#Name : bronchial asthma;

#Language : Miracle Description;

#Description : Describes operators of bronchial asthma’s treatment process;

#

units

"val";

"log";

"sec";

"min" = 60*"sec";

"hour" = 60*"min";

"day" = 24*"hour"; end;

#Прототип MResearch устанавливает тип данных, относящихся к манипуляциям и исследованиям

prototype MResearch #Attributes

to_make: number "log"; #0тметка о том что надо делать

исследование

dat: datetime; #Дата, когда было сделано последнее исследование

value: number "val"; #3начение end;

#Прототип pEWA устанавливает тип для оценки тяжести обострения

prototype pEWA

value: number "val"; #1 - легкое; 2 - средней тяжести;

З - тяжелое; 4 - угрожающее жизни

to_make: number "log";

dat: datetime;

end;

#Прототип LResearch устанавливает тип для лабораторных исследований

prototype LResearch

#Attributes

to_make: number "log"; #0тметка о том что надо делать

исследование

dat: datetime; #Дата, когда было сделано последнее исследование value: string; #3начение end;

#Прототип pEG устанавливает тип для оценки гемодинамики

prototype pEG value: string; to_make: number "log"; dat: datetime; end;

#Прототип Patient хранит данные о пациенте

prototype Patient #Attributes:

POS: MResearch; # П0С PS¥: MResearch; #ПСВ Sa02: MResearch;

Sp02: MResearch;

RGKV: string; # Рентгенография грудной клетки RGKM: number "log";

FVDV: string; # ФВД, пробы с Ь2-агонистами FVDM: number "log";

FVDD: datetime;

EXOKGV: string; # ЭХ0КГ EXOKGM: number "log";

EKGV: string; # ЭКГ EKGM: number "log";

EKGD: datetime;

Ра02: number "val";

РаС02: number "val";

CHDD: number "val"; #ЧДД Pulse: number "val"; #Пульс

Hrips: number "val"; #Свистящие хрипы 1 - да; 2 - немое

легкое

Consciousness: number "val"; #Сознание 0 - nill;

1 - возбуждение; 2 - спутанность Talk: number "val"; #Разговор 0 - nill; 1 - фразы;

2 - слова

KABandSOE: LResearch; # Клин.

BAB: LResearch; # Биохим.

КТВ: LResearch; # Концентрация теофиллина крови

K0S: LResearch; # КОС lgE: LResearch;

AlgE: LResearch;

AlgG: LResearch;

CAM: LResearch; # Общий анализ мокроты

PMM: LResearch; # Посев мокроты на микрофлору

GB: LResearch; # Группа крови

КАМ: LResearch; Клинический анализ мочи

# HBS: LResBool;

# НСѴ: LResBool;

# RW: LResBool;

# VICH: LResBool; # ВИЧ

theofs: number "log"; #0тметка о том принимает ли пациент

пролонгированные теофиллины или нет Name: string; # Имя пациента Surname: string; # Фамилия пациента Patronymic_name: string; #0тчество пациента Address: string; # Адрес пациента

#Id: number; # Id пациента end;

#Прототип Treatment.Process проводит процесс лечения больного

prototype Treatment.Process #Attributes:

place: number "val"; #Место лечения больного: 0 -

"Приемное отделение",

#1 - "Амбулаторный этап", 2 - "ОРИТ", 3 - "Клиничесоке

#отделение", 4 - "Реабилитация"

# old.place: number "val"; #Предыдущее место лечения

4 Г. И. Назаренко, Г. С. Осипов

больного

# Duration: number "hour"; Продолжительность процесса

лечения

# Doctors: number; #Id лечащих врачей

# Consultations: number; #Id консультанта EG: pEG; #0ценка гемодинамики

Patientl: Patient;

# choice: string; #выбор места лечения при осложнении

средней тяжести

# better: string = ’нет5; # чуствует ли пациент себя

лучше

# is_fгее: logical; #выписан пациент или нет

# Consultations: number; #Id консультанта

# EG: pEG; #0ценка гемодинамики

#instances

# Patientl: Patient;

EWA: pEWA; #0ценка тяжести обострения

choice: number "log"; #согласен ли пациент при обострении

средней тяжести

#лечиться в клиническом отделении или останется

#лечиться амбулаторно (1 - да,

О - нет)

# better: string;# = ’нет5; # чуствует ли пациент себя

лучше

# is_fгее: number; # выписан пациент или нет #operators:

EstimWAL: closure operator # оператор замыкания для вычисления оценки тяжести обострения (легкое) condition (Patientl.Pulse < 110) к (Patientl.CHDD < 20) к (Patientl.POS.value > 80) к (Patientl.Pa02 == 0) к (Patientl.PaC02 < 45) к

(Patientl.Sa02.value > 95) к (Patientl.Hrips == 1) к (Patientl.Consciousness == 0) к (Patientl.Talk == 0) procedure EstimWalProc out EWAV := EWA.value;

# out EWAM: number = EWA.to_make;

body EWAV = 1;

# EWAM = 0; end;

EstimWAM: closure operator # Оператор замыкания для

вычисления оценки тяжести обострения (средней степени) condition (Patientl.Pulse >= 110) к (Patientl.Pulse < 120) к (Patientl.CHDD < 25) к (Patientl.POS.value >= 50) к (Patientl.POS.value 60) к (Patientl.PaC02 < 45) к (Patientl.Sa02.value >= 91) к (Patientl.Sa02.value 120) к (Patientl.CHDD >= 25) к (Patientl.POS.value < 50) к (Patientl.Pa02 < 60) к (Patientl.PaC02 > 45) к (Patientl.Sa02.value < 90) к (Patientl.Hrips == 1) к (Patientl.Consciousness == 1) к (Patientl.Talk == 2) procedure EstimWAHProc

out EWAV := EWA.value;

# out EWAM: number = EWA.to_make;

EWAV = 3;

# EWAM = 0; end;

EstimWAD: closure operator # Оператор замыкания для

вычисления оценки тяжести обострения (угрожающее жизни) condition (Patientl.Pulse > 120) к (Patientl.CHDD > 25) к (Patientl.POS.value < 33) к

(Patient1.Ра02 < 60) к (Patientl.РаС02 > 45) к (Patientl.Sa02.value < 90) к (Patientl.Hrips == 2) к (Patientl.Consciousness == 2) к (Patientl.Talk == 2) procedure EstimWADProc

out EWAV := EWA.value;

# out EWAM: number = EWA.to_make;

body EWAV = 4;

# EWAM = 0; end;

StandartsAE: transition operator #0ператор переходов для стандартов терапии обострения БА #(амбулаторный этап)

condition EWA.value == 1 procedure StandartsAEProc out placeO := place;

body placeO = 1; end;

StandartsKOS: transition operator # Оператор переходов для стандартов терапии обострения БА #(клиническое отделение с согласия пациента) condition (EWA.value == 2) к (choice == 1) procedure StandartsKOSProc out placeO := place;

body placeO = 3; end;

StandartsAES: transition operator #0ператор переходов для стандартов терапии обострения БА #(амбулаторный этап)

condition (EWA.value == 2) к (choice == 0) procedure StandartsAESProc out placeO := place;

body placeO = 1; end;

StandartsKO: transition operator # Оператор переходаов для стандартов терапии обострения БА #(клиническое отделение)

condition (EWA.value == 3) procedure StandartsKOProc out placeO := place;

body placeO = 3; end;

StandartsORIT: transition operator # Оператор перехода для стандартов терапии обострения БА

#(0РИТ)

condition EWA.value == 4 procedure StandartsORITProc out placeO := place;

body placeO = 2; end; end;

PhysicalDataEG: control operator # Оператор управления

для оценки гемодинамики #на всех этапах лечения condition (place == 0) I (place == 1) | (place == 2) | (place == 3) I (place == 4) & (place != old_olace) procedure PhysicalDataEGP out EGO: number = EG.to_make; body

EGO = 1; end;

PhysicalDataEWAAPO: control operator #0ператор управления

для оценки тяжести обострения #на амбулаторном этапе лечения, премном отделении и ОРИТ

condition (place == 0) | (place == 1) | (place == 2) &

(place != old_olace)

procedure PhysicalDataEWAAPOP out EWAO: number = EWA.to_make; body

EWAO = 1; end;

PhysicalDataEWAK: control operator #0ператор управления

для оценки тяжести обострения #в клиническом отделении

procedure PhysіcalDataEWAKP condition (place == 3) & (EWA.dat + 4 "hour"