Железодефицитная анемия;

#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";

"week" = 7"day" end;

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

Относящихся к манипуляциям и исследованиям

prototype MResearch #Attributes count : number "val"; made : number "log"; to_ask : number "log";

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

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

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

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

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

prototype pEWA

value: string "val"; #легкое; средней тяжести; тяжелое; to_make: number "log"; dat: datetime; end;

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

prototype LResearch #Attributes count : number "val"; made : number "log"; to_ask : number "log";

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

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

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

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

prototype PLM #Attributes count : number "val"; made : number "log"; to_ask : number "log";

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

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

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

#Прототип PUPA устанавливает тип для установления причин анемии

prototype PUPA #Attributes count : number "val"; made : number "log"; to_ask : number "log";

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

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

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

prototype Treatment.Process Patientl : Patient;

place : string "val"; #место лечения больного kons : string "val"; консультации doc : string "val"; #кто ведет

c.plase : number "val"; #флаг смены места лечения

ТО : pEWA; #тяжесть обострения

asked : datetime "val";

askSG : number "log";

askPG : number "log";

PG : number "log"; #плановая госпитализация SG : number "log"; #срочная госпитализация Reab : number "log"; #Реабилитация count : numner "val";

came : datetime; #когда пациент начал лечиться в данном месте лечения asced : number "val";

#0ператоры замыкания

free : closure operator #обнуление данных condition true procedure freeP

out HbO := Patientl.Hb.to.make; out eritrO := Patientl.eritr.to.make; out MCVO := Patientl.MCV.to.maje; out MCHO := Patientl.MCH.to.make; out trombO := Pat іent1.tromb.tо.make; out leikO := Patientl.leik.to.make; out retikO := Patientl.retik.to.make; out OFeO := Patientl.OFe.to.make; out oIFO := Patientl.oIF.to.make; out IAVFeO := Patientl.IAVFe.to.make; out kaugO := Pat і ent1.kaug.t о.make; out RWO := Patientl.RW.to.make;

out ѴІСН := Patientl.VICH.to_make; out MVGO := Patientl.MVG.to_make; out BHO := Patientl.BH.to_make; out GKRFO := Patientl.GKRF.to_make; out AMO := Patientl.AM.to_make out KalO := Patientl.Kal.to_make; out IFO := Patientl.IF.to_make; out GMO := Patientl.GM.to_make;

out EKGO := Patientl.EKG.to_make; out EGDSO := Patientl.EGDS.to_make; out KolO := Patientl.Kol.to_make; out GinO := Patientl.Gin.to_make; out UZIO := Patientl.UZI.to_make; out RgO := Patientl.Rg.to_make; out ISKO := Patientl.ISK.to_make;

out EPFeO := Patientl.EPFe.to_make; out EPVFeO := Patientl.EPVFe.to_make; out TEO := Patientl.TE.to_make; out PTO := Patientl.PT.to_make;

out pAMO := Patientl.pAM.to_make; out pKalO := Patientl.pKal.to_make; out puziO := Patientl.puzi.to_make; out pEGDSO := Patientl.pEGDS.to_make; out pKol := Patientl.pKol.to_make; out pGinO := Patientl.pGin.to_make;

body

HbO = 0; eritrO = 0;

MCVO = 0;

MCHO = 0; trombO = 0; leikO = 0; retikO = 0;

OFeO = 0; oIFO = 0; lAVFeO = 0; kaugO = 0;

RWO = 0;

VICHO = 0;

MVGO = 0;

BHO = 0;

GKRFO = 0;

AMO = 0;

KalO = 0;

IFO = 0;

GM0 = 0;

EKG0 = 0;

EGDS0 = 0;

КоЮ = 0;

GinO = 0;

UZI0 = 0;

RgO = 0;

ISKO = 0;

EPFeO = 0;

EPVFeO = 0;

ТЕО = 0;

PTO = 0;

pAMO = 0; pKalO = 0;

puziO = 0; pEGDSO = 0; pKolO = 0; pGinO = 0; end;

OTA : closure operator #оценка тяжести обострения ЖДА condition true procedure ОТАР in Hbl := Patientl.Hb.value; out ОТО := ОТ.value;

body

if (HbO > 0 к HbO < 60)

ОТО = "Легкое"; if (HbO >= 60 к HbO < 80)

ОТО = "Средней тяжести"; if (HbO >= 80)

ОТО = "Тяжелое";

#0ператоры переходов

go : transition operator; # оператор смены этапа

лечения

condition c_place == 1 procedure goP

in PGI := PG; in SGI := SG; in ORITI := ORIT;

out placeO := place;

out HbO := Pat і ent1.Hb.made; out eritrO := Patientl.eritr.made; out MCVO := Patientl.MCV.made; out MCHO := Patientl.MCH.made; out trombO := Patientl.tromb.made; out leikO := Patientl.leik.made; out retikO := Patientl.retik.made; out OFeO := Patientl.OFe.made; out oIFO := Patientl.oIF.made; out IAVFeO := Patientl.IAVFe.made; out kaugO := Pat і ent1.kaug.made; out RWO := Patientl.RW.made; out VICH := Patientl.VICH.made; out MVGO := Patientl.MVG.made; out BHO := Patientl.BH.made; out GKRFO := Pat і ent1.GKRF.made; out AMO := Patientl.AM.made; out KalO := Patientl.Kal.made; out IFO := Patientl.IF.made; out GMO := Patientl.GM.made;

out EKGO := Patientl.EKG.made; out EGDSO := Patientl.EGDS.made; out KolO := Patientl.Kol.made; out GinO := Patientl.Gin.made; out UZIO := Patientl.UZI.made; out RgO := Pat і ent1.

out EPFeO := Pat і ent1.EPFe.made; out EPVFeO := Pat і ent1.EPVFe.made; out TEO := Pat і ent1.ТЕ.made; out PTO := Patientl.PT.made;

out pAMO := Patientl.pAM.made; out pKalO := Patientl.pKal.made; out puziO := Pat і ent1.puz і.made;

out pEGDSO := Patientl.pEGDS.made; out pKol := Patientl.pKol.made; out pGinO := Patientl.pGin.made;

body HbO = 1; eritrO = 1; MCVO = 1;

МСНО = 1; trombO = 1;

ІеікО = 1; retikO = 1;

OFeO = 1; oIFO = 1; lAVFeO = 1; kaugO = 1;

RWO = 1;

VICHO = 1;

MVGO = 1;

BHO = 1;

GKEFO = 1;

AMO = 1;

KalO = 1;

IFO = 1;

GMO = 1;

EKGO = 1;

EGDSO = 1;

KolO = 1;

GinO = 1;

UZIO = 1;

EgO = 1;

ISKO = 1;

EPFeO = 1;

EPVFeO = 1;

TEO = 1;

PTO = 1;

pAMO = 1; pKalO = 1; puziO = 1; pEGDSO = 1; pKolO = 1; pGinO = 1;

if (PGI == 1)

placeO = "Плановая г о с пит ализ ация'';

if (SGI == 1)

placeO = "Срочная госпитализация"; if (Eeab == 1) placeO = "Реабилитация"; end;

#операторы управления

PolR : control operator # оператор управления для назначения лечения в поликлинике condition place == "Поликлиника" procedure PolP

in camel := came;

in Hbld := Patientl.Hb.dat; in eritrld := Patientl.eritr.dat; in MCVId := Patientl.MCV.dat; in MCHId := Patientl.MCH.dat; in trombld := Patientl.tromb.dat; in leikld := Patientl.leik.dat; in retikld := Patientl.retik.dat; in OFeld := Patientl. OFe.dat;

in Hbl := Patientl.Hb.count; in eritrl := Patientl.eritr.count; in MCVI := Pat іent1.MCV.count; in MCHI := Pat і ent1.MCH.c ount; in trombl := Patientl.tromb.count; in leikl := Patientl.leik.count; in retiki := Patientl.retik.count; in OFel := Patientl.OFe.count; in oIFI := Patientl.oIF.count; in IAVFel := Patientl.IAVFe.count;

in pAMI := Pat і ent1.pAM.c ount; in pKall := Pat і ent1.pKal.c ount; in puzil := Patientl.puzi.count; in pEGDSI := Pat і ent1.pEGDS.c ount; in pKolI := Patientl.pKol.count; in pGinl := Patientl.pGin.count;

in EPFel := Patientl.EPFe.count; in EPVFel := Pat і ent1.EPVFe.c ount; in PTI := Patientl.PT.count;

out HbO := Patientl.Hb.made; out eritrO := Patientl.eritr.made; out MCVO := Patient1.MCV.made; out MCHO := Patient1.MCH.made; out trombO := Patientl.tromb.made; out leikO := Patientl.leik.made; out retikO := Patientl.retik.made; out OFeO := Patientl.OFe.made; out oIFO := Patientl.oIF.made;

out IAVFeO := Patientl.IAVFe.made;

#операторы замыкания

free : closure operator #обнуление данных condition true procedure freeP

out HbO := Patient1.Hb.to_make; out eritrO := Patientl.eritr.to_make; out MCVO := Patientl.MCV.to_maje; out MCHO := Patientl.MCH.to_make; out trombO := Patientl.tromb.to_make; out leikO := Patientl.leik.to_make; out retikO := Patientl.retik.to_make; out OFeO := Patientl.OFe.to_make; out oIFO := Patientl.oIF.to_make; out IAVFeO := Patientl.IAVFe.to_make; out kaugO := Patientl.kaug.to_make; out RWO := Patientl.RW.to_make; out VICH := Patientl.VICH.to_make; out MVGO := Patientl.MVG.to_make; out BHO := Patientl.BH.to_make; out GKRFO := Patientl.GKRF.to_make; out AMO := Patientl.AM.to_make out KalO := Patientl.Kal.to_make; out IFO := Patientl.IF.to_make;

out GM0 := Patientl.GM.to_make;

out EKGO := Pat іent1.EKG.t о_make; out EGDSO := Pat і ent1.EGDS.t о _make; out KolO := Patientl.Kol.to_make; out GinO := Patientl.Gin.to_make; out UZIO := Patientl.UZI.to_make; out RgO := Patientl.Rg.to_make; out ISKO := Patientl.ISK.to_make;

out EPFeO := Patientl.EPFe.to_make; out EPVFeO := Pat і ent1.EPVFe.t о _make; out TEO := Patientl.ТЕ.to_make; out PTO := Patientl.PT.to_make;

out pAMO := Pat і ent1.pAM.t о _make; out pKalO := Pat і ent1.pKal.t о _make; out puziO := Patientl.puzi.to_make; out pEGDSO := Pat і ent1.pEGDS.t о _make; out pKol := Patientl.pKol.to_make; out pGinO := Patientl.pGin.to_make;

OTA : closure operator #оценка тяжести обострения ЖДА condition true procedure ОТАР in Hbl := Patientl.Hb.value; out ОТО := ОТ.value;

body

if (HbO > 0 к HbO < 60)

ОТО = "Легкое"; if (HbO >= 60 к HbO < 80)

ОТО = "Средней тяжести"; if (HbO >= 80)

ОТО = "Тяжелое";

# операторы переходов

go : transition operator; # оператор переходов для

смены этапов лечения

condition c_place == 1 procedure goP

in PGI := PG; in SGI := SG;

in ORITI := ORIT;

out placeO := place;

out HbO := Pat і ent1.Hb.made; out eritrO := Patientl.eritr.made; out MCVO := Patientl.MCV.made; out MCHO := Patient1.MCH.made; out trombO := Patientl.tromb.made; out leikO := Patientl.leik.made; out retikO := Patientl.retik.made; out OFeO := Patientl.OFe.made; out oIFO := Patientl.oIF.made; out IAVFeO := Patientl.IAVFe.made; out kaugO := Patient1.kaug.made; out RWO := Patientl.RW.made; out VICH := Patientl.VICH.made; out MVGO := Patientl.MVG.made; out BHO := Patientl.BH.made; out GKRFO := Pat і ent1.GKRF.made; out AMO := Patientl.AM.made; out KalO := Patient1.Kal.made; out IFO := Patientl.IF.made; out GMO := Patientl.GM.made;

out EKGO := Pat і ent1.EKG.made; out EGDSO := Patientl.EGDS.made; out KolO := Patientl.Kol.made; out GinO := Patientl.Gin.made; out UZIO := Patientl.UZI.made; out RgO := Pat і ent1.Rg.made; out ISKO := Patientl.ISK.made;

out EPFeO := Pat і ent1.EPFe.made; out EPVFeO := Pat і ent1.EPVFe.made; out TEO := Pat і ent1.ТЕ.made; out PTO := Patientl.PT.made;

out pAMO := Patientl.pAM.made; out pKalO := Patientl.pKal.made; out puziO := Pat і ent1.puz і.made;

out pEGDSO := Patientl.pEGDS.made; out pKol := Patientl.pKol.made; out pGinO := Patientl.pGin.made;

# операторы управления

PolR : control operator # оператор управления для назначения лечения в поликлинике

5 Г.

condition place == "Поликлиника" procedure PolP

in camel := came;

in Hbld := Patientl.Hb.dat; in eritrld := Patientl.eritr.dat; in MCVId := Patientl.MCV.dat; in MCHId := Pat іent1.MCH.dat; in trombld := Patientl.tromb.dat; in leikld := Patientl.leik.dat; in retikld := Patientl.retik.dat; in OFeld := Patientl. OFe.dat;

in Hbl := Patientl.Hb.count; in eritrl := Patientl.eritr.count; in MCVI := Pat і ent1.MCV.c ount; in MCHI := Pat і ent1.MCH.c ount; in trombl := Patientl.tromb.count; in leikl := Patientl.leik.count; in retiki := Patientl.retik.count; in OFel := Patientl.OFe.count; in oIFI := Patientl.oIF.count; in IAVFel := Patientl.IAVFe.count;

in pAMI := Pat і ent1.pAM.c ount; in pKall := Pat і ent1.pKal.c ount; in puzil := Patientl.puzi.count; in pEGDSI := Pat і ent1.pEGDS.c ount; in pKolI := Patientl. pKol.count; in pGinl := Patientl.pGin.count;

in EPFel := Patientl.EPFe.count; in EPVFel := Pat і ent1.EPVFe.c ount; in PTI := Patientl.PT.count;

out HbO := Pat і ent1. Hb.made; out eritrO := Patientl.eritr.made; out MCVO := Patientl.MCV.made; out MCHO := Patientl.MCH.made; out trombO := Patientl.tromb.made; out leikO := Patientl.leik.made; out retikO := Patientl.retik.made; out OFeO := Patientl.OFe.made; out oIFO := Patientl.oIF.made; out IAVFeO := Patientl.IAVFe.made;

out рАМО := Раѣ і ent1.рАМ.made; out pKalO := Pat і ent1.pKal.made; out puziO := Pat і ent1.puz і.made; out pEGDSO := Pat і ent1.pEGDS.made;

out pKol := Patlent 1.pKol.made; out pGinO := Patіent1.pGin.made;

out EPFeO := Pat і ent1.EPFe.made; out EPVFeO := Patient 1.EPVFe.made; out PTO := Patient 1.PT.made;

out askSGO := askSG; out askPGO := askPG;

body

if (camel current_time + l"day" & camel current_time + l"week" & camel