Algoritmului SCORE (Systematic COronary Risk Evaluation)
pus la dispozitie de de Societatea Europeana de Cardiologie (European Society of Cardiology)
permite evaluarea riscului de deces in urmatorii 10 ani prin boala cardiovasculara aterosclerotica.
Algoritmul SCORE - construit pe baza modelului Weibull - este elaborat in urma unui studiu european de mare amploare, in cursul caruia au fost urmarite 205178 persoane (88080 femei si 117098 barbati);
detalii privind modul de calcul sunt prezentate in Anexa A a lucrarii Conroy RM et al, Estimation of ten-year risk of fatal cardiovascular disease in Europe:
the SCORE project. Eur Heart J (2003) 24, 987-1003 .";
$documF="Scorul Framingham estimeaza riscul unui accident cardiovascular
coronarian in urmatorii 10 ani pe baza a 6 factori de risc major.
Calculul
scorului are la baza modelul Weibull - descris in lucrarea
Pocket Guide to Prevention of Coronary Heart Disease (2002: Table 10, page 33/128).
Detalii despre acest
algoritm pot fi accesate la adresa: www.cvhealth.ed.ac.uk
";
$documTari=' **Tari
cu risc cardiovascular scazut:
Belgia, Franta,
Grecia, Italia, Luxemburg,
Portugalia, Spania.si Suedia.
Tari
cu risc cardiovascular crescut:
Albania, Algeria, Armenia, Austria, Belarus, Bosnia
si Herzegovina, Bulgaria, Croatia, Cipru, Cehia, Denemarca, Egipt,
Estonia, Finlanda, Georgia, Germania, Ungaria, Irlanda, Islanda, Israel, Letonia, Liban, Libia, Lituania, Macedonia, Marea Britanie,
Moldova, Maroc, Norvegia,Olanda, Polonia, Romania, Rusia, San
Marino, Serbia si Muntenegru, Slovacia, Tunisia, Turcia si Ucraina
';
if (isset( $_POST['B3']))
{$_SESSION = array();
$s="selected";
}
//verific daca s-a cerut calcularea scorului
if (isset( $_POST['B1']))
{
//salvez datele din formular ca variabile de sesiune
$_SESSION['pacient'][0]=$_POST['pacient'];
$_SESSION['medic'][0]=$_POST['medic'];
$_SESSION['cabinet'][0]=$_POST['cabinet'];
$_SESSION['adresa'][0]=$_POST['adresa'];
$_SESSION['age'][0]=$_POST['age'];
$_SESSION['sex'][0]=$_POST['sex'];
$_SESSION['TAS'][0]=$_POST['TAS'];
$_SESSION['HDL'][0]=$_POST['HDL'];
$_SESSION['colest'][0]=$_POST['colest'];
$_SESSION['HDLgr'][0]=$_POST['HDLgr'];
$_SESSION['colestgr'][0]=$_POST['colestgr'];
$_SESSION['fumat'][0]=$_POST['fum'];
$_SESSION['diab'][0]=$_POST['diab'];
$_SESSION['pop'][0]=$_POST['pop'];
$_SESSION['HVS'][0]=$_POST['HVS'];
$_SESSION['R1'][0]=$_POST['R1'];
$_SESSION['HVS'][0]=$_POST['HVS'];
$_SESSION['resetx'][0]=$_POST['resetx'];
//initializez variabilele de lucru
$pacient=$_POST['pacient'];
$medic=$_POST['medic'];
$cabinet=$_POST['cabinet'];
$adresa=$_POST['adresa'];
$age=$_POST['age'];
$sex=$_POST['sex'];
$TAS=$_POST['TAS'];
$HDL=$_POST['HDL'];
$colestgr=$_POST['colestgr'];
$HDLgr=$_POST['HDLgr'];
$colest=$_POST['colest'];
$fumat=$_POST['fum'];
$diab=$_POST['diab'];
$pop=$_POST['pop'];
$R1=$_POST['R1'];
$mesaj="Nu se poate calcula Riscul intrucat:
";
$err= 0;
$admise="";
$resetx=$_POST['resetx'];
//validez datele introduse si formulez mesajul de eroare
If ($R1=="SCORE")
{
include_once "SCORE.php"; // calculez noul scor
$ckR1= "checked";
$colorbS="99ccff";
$colorbF="CCFFFF";
$documF="";
$documTari="";
If ($_SESSION['resetx'][0])
{session_unregister('RiscFr');
session_unregister('RiscFrG');
}
If($age>65 or $age<40)
{
$mesaj=$mesaj."- Varsta trebuie sa fie intre min 40 si max 65 de ani
";
$err= 1;
}
If($sex=="sel")
{
$mesaj=$mesaj."- Nu ati selectat variabila sex
";
$err= 1;
}
If($TAS>180 or $TAS<100)
{
$mesaj=$mesaj."- TAS trebuie sa fie intre min 100 si max 180 mmHg
";
$err= 1;
}
If($colest>8 or $colest<4)
{
$mesaj=$mesaj."- Colesterolul total trebuie sa fie cuprins intre min 4 si max 8.02 mmol/l
";
$err= 1;}
}
elseif ($R1=="Fram")
{
include_once "Fram.php";
$ckR2= "checked";
$documS="";
$documTari="";
$colorbF="99ccff";
$colorbS="CCFFFF";
If ($_SESSION['resetx'][0])
{session_unregister('RiscP');
session_unregister('RiscG');
}
If($age>79 or $age<20)
{
$mesaj=$mesaj."- Varsta trebuie sa fie intre min 20 si max 79 de ani
";
$err= 1;
}
If($sex=="sel")
{
$mesaj=$mesaj."- Nu ati selectat variabila sex
";
$err= 1;
}
If($TAS>185 or $TAS<95)
{
$mesaj=$mesaj."- TAS trebuie sa fie intre min 85 si max 185 mmHg
";
$err= 1;
}
If($colest>8.5 or $colest<3.5)
{
$mesaj=$mesaj."- Colesterolul total trebuie sa fie cuprins intre min 3.5 si max 8.5 mmol/l
";
$err= 1;
}
If($HDL>2.56 or $HDL<0.65)
{
$mesaj=$mesaj."- Nivelul de HDL Colesterol trebuie sa fie cuprins intre min 0.65 si max 2.56 mmol/l
";
$err= 1; }
}
else {
if ($_SESSION['sex'][0]=="masc")
$m="selected";
else{ if ($_SESSION['sex'][0]=="fem") $f="selected";
}
$documTari="";
$documF="";
$documS="";
$mesaj=$mesaj."- Nu ati selectat modelul de calcul: SCORE sau Framingham
";
$err= 1;
$ckR1= "";
$ckR2= "";}
if (!$err)
{
switch (TRUE){
case $_SESSION['RiscP'][0]=="":
$RiscSc="";
$RiscScG="";
$RiscRelSc="";
$interpS="";
break;
case $_SESSION['RiscP'][0] <1:
$RiscSc="<1"." %";
$RiscScG=round($_SESSION['RiscG'][0],2)." %";
$RiscRelSc=round($_SESSION['RiscP'][0]/$_SESSION['RiscG'][0],2)." x";
$interpS=" SCAZUT ";
$colorfontS="ccff99";
break;
case $_SESSION['RiscP'][0]<10:
$interpS=" SCAZUT ";
$RiscSc=round($_SESSION['RiscP'][0],2)." %";
$RiscScG=round($_SESSION['RiscG'][0],2)." %";
$RiscRelSc=round($_SESSION['RiscP'][0]/$_SESSION['RiscG'][0],2)." x";
$colorfontS="ccff99";
break;
case $_SESSION['RiscP'][0] <20:
$interpS=" MODERAT ";
$RiscSc=round($_SESSION['RiscP'][0],2)." %";
$RiscScG=round($_SESSION['RiscG'][0],2)." %";
$RiscRelSc=round($_SESSION['RiscP'][0]/$_SESSION['RiscG'][0],2)." x";
$colorfontS="FFFF00";
break;
case $_SESSION['RiscP'][0]>20:
$interpS=" CRESCUT ";
$RiscSc=round($_SESSION['RiscP'][0],2)." %";
$RiscScG=round($_SESSION['RiscG'][0],2)." %";
$RiscRelSc=round($_SESSION['RiscP'][0]/$_SESSION['RiscG'][0],2)." x";
$colorfontS="FF3300";
break; }
switch (TRUE){
case $_SESSION['RiscFr'][0]=="":
$RiscFram="";
$RiscFramG="";
$RiscRelFram="";
$interpF="";
break;
case $_SESSION['RiscFr'][0] <1:
$RiscFram="<1 %";
$RiscFramG=round($_SESSION['RiscFrG'][0],2)." %";
$RiscRelFram=round($_SESSION['RiscFr'][0]/$_SESSION['RiscFrG'][0],2)." x";
$interpF=" SCAZUT ";
$colorfontF="ccff99";
break;
case $_SESSION['RiscFr'][0]<10:
$interpF=" SCAZUT ";
$RiscFram=round($_SESSION['RiscFr'][0],2)." %";
$RiscFramG=round($_SESSION['RiscFrG'][0],2)." %";
$RiscRelFram=round($_SESSION['RiscFr'][0]/$_SESSION['RiscFrG'][0],2)." x";
$colorfontF="ccff99";
break;
case $_SESSION['RiscFr'][0] <20:
$interpF=" MODERAT ";
$RiscFram=round($_SESSION['RiscFr'][0],2)." %";
$RiscFramG=round($_SESSION['RiscFrG'][0],2)." %";
$RiscRelFram=round($_SESSION['RiscFr'][0]/$_SESSION['RiscFrG'][0],2)." x";
$colorfontF="FFFF00";
break;
case $_SESSION['RiscFr'][0]>20:
$interpF=" CRESCUT ";
$RiscFram=round($_SESSION['RiscFr'][0],2)." %";
$RiscFramG=round($_SESSION['RiscFrG'][0],2)." %";
$RiscRelFram=round($_SESSION['RiscFr'][0]/$_SESSION['RiscFrG'][0],2)." x";
$colorfontF="FF3300";
break; }
}
}
?>
Calculator pentru
Riscul Cardiovascular la 10 ani
Alegeti varianta de calcul, introduceti datele apoi apasati butonul
"calcul"
|
| |
|
|
| |
| |
Riscul cardiovascular: '.$interpretat.'
| |
Framingham |
SCORE |
| - risc personal: |
'.$RiscFram.' |
'.$RiscSc.' |
| - risc general: |
'.$RiscFramG.' |
'.$RiscScG.' |
| - risc relativ: |
'.$RiscRelFram.' |
'.$RiscRelSc.' |
';
}
}
else{print ''.$mesaj.'';}
?>
|
|
| |
| |
|
|
|
|
Realizat de dr. Focsa Mircea Adrian
in cadrul proiectului de cercetare Viasan 365/2004
contact: focsam@umft.ro |