#!/usr/bin/php
<?php
// Ce script est appelé par MedinTux avec les arguments Créatininémie (mg), âge, sexe, coefficient de couleur (1 pour les blancs, 1.21 pour les noirs) et le chemin complet du fichier temporaire.
//Il peut être appelé à la main de la même manière. 
//Il renvoie la clearance calculée par la formule MDRD
//var_dump($argc);
//print_r($argv);
//Recuperation des variables de la ligne de commande
$creat=$argv[1];
$age=$argv[2];
$sexe=$argv[3];
$coeff_couleur=$argv[4];
$fichier_temp=$argv[5];

//pour test
//$test=fopen ("/mnt/sda2/MedinTux-V2.13-Mac-Intel-105-src/Programmes/Plug/clearance/log.txt",w);
//$test=fopen ("./log.txt",w);
//fwrite($test,"creat".$creat." age ".$age." sexe ".$sexe." coeff ".$coeff_couleur." temp  ".$fichier_temp);

// test en dur
//$creat=10;
//$age=50;
//$sexe="F";
//$couleur="N";
//fin du test

//Attribution du coefficient selon le sexe
if ($sexe=="Féminin")
        $coeff_sexe=0.742;
else
        $coeff_sexe=1;

//Le calcul, avec un arrondi a 2 décimales
$clearance=round($coeff_couleur*186.3 /((pow($creat/10,'1.154'))*(pow($age,'0.203')))*$coeff_sexe,2);

//On écrit les données dans un fichier temporaire pour que MedinTux puisse les récupérer
if (!$ouverture_fichier=fopen ($fichier_temp,w))
        exit;
fwrite($ouverture_fichier, $clearance);
//fwrite($ouverture_fichier, $coeff_couleur);
//fclose($fichier_temp);

/*
MDRD - 4 variables (abbreviated) (2000, Levey)
DFG = 186.3 (Pcr / 88.4)  -1.154 x (Age) -0.203 x (0.742 si Femme)
                                                mL/min/1.73m2
Avec ici des Pcr en µmol/L
*/
?>