function jour_arrivee_plus_trois_heures($formx)
{
global $patient;
$dateArrivee = new clDate($patient->getDateAdmission());
$dateArrivee->addHours(3);
return $dateArrivee->getSimpleDate();
}
function addLog($type, $description, $idcible = '')
{
if ($description != "Configuration|cron" and $description != "Importation") {
$date = new clDate();
$data['idapplication'] = IDAPPLICATION;
if (isset($session)) {
$data['iduser'] = $this->xham->user->getLogin();
} elseif (is_object($this->xham) && is_object($this->xham->user)) {
$data['iduser'] = $this->xham->user->getLogin();
} else {
$data['iduser'] = $_SESSION['informations']['iduser'] ? $_SESSION['informations']['iduser'] : "******";
}
$data['idcible'] = $idcible;
// print $this->logSup ;
$data['type'] = $type;
$data['ip'] = $_SERVER['REMOTE_ADDR'];
$data['date'] = $date->getDatetime();
$data['description'] = $description;
$finTemps = XhamTools::temps();
$tpPage = $finTemps - $this->xham->debTemps;
$data['tempsPage'] = $tpPage;
$data['tempsSQL'] = $this->xham->tpRequetes;
$data['nombreSQL'] = $this->xham->nbRequetes + 1;
// Appel de la classe Requete.
$req = new XhamRequete(BASEXHAM, TABLELOGS, $data);
// Exécution de la requete.
$res = $req->addRecord();
// print affTab ( $res ) ;
// Limitation du nombre de lignes dans la table logs... Désactivé, mais fonctionne parfaitement.
//$mini = $res['cur_id'] - 150 ;
//$res = $requete->delRecord ( "idlog<=$mini" ) ;
}
}
function get_jour_pecm_default($formx)
{
global $patient;
$dateArrivee = new clDate($patient->getDateAdmission());
$dateArrivee->addHours(1);
return $dateArrivee->getSimpleDate();
}
function addLog($type, $description, $idcible = '')
{
global $session;
global $debTemps;
global $nbRequetes;
global $tpRequetes;
if ($description != "Configuration|cron" and $description != "Importation") {
$date = new clDate();
$data['idapplication'] = IDAPPLICATION;
if (isset($session)) {
$data['iduser'] = $session->getUid();
} else {
$data['iduser'] = $_SESSION['informations']['iduser'] ? $_SESSION['informations']['iduser'] : "******";
}
if ($idcible) {
$data['idcible'] = $idcible;
}
$data['type'] = $type;
$data['ip'] = $_SERVER['REMOTE_ADDR'];
$data['date'] = $date->getDatetime();
$data['description'] = $description;
$finTemps = temps();
$tpPage = $finTemps - $debTemps;
$data['tempsPage'] = $tpPage;
$data['tempsSQL'] = $tpRequetes;
$data['nombreSQL'] = $nbRequetes + 1;
// Appel de la classe Requete.
$requete = new clRequete(BASEXHAM, TABLELOGS, $data);
// Exécution de la requete.
$res = $requete->addRecord();
// Limitation du nombre de lignes dans la table logs... Désactivé, mais fonctionne parfaitement.
//$mini = $res['cur_id'] - 150 ;
//$res = $requete->delRecord ( "idlog<=$mini" ) ;
}
}
function heure_simple($str)
{
$date = new clDate($str);
$hours = $date->getHours();
$mins = 15 * floor($date->getMinutes() / 15);
return two_dec($hours) . ':' . two_dec($mins);
}
function getDateE3($formx)
{
global $tool;
global $patient;
$date = new clDate($patient->getDateNaissance());
return $date->getSimpleDate();
/*
$idu = $formx->getVar('ids');
$req = new clResultQuery ;
$param = array();
$param['cw']="dt_naissance";
$param['idu']=$idu;
$res = $req -> Execute ( "Fichier", "getInfoPatientFromIDU", $param, "ResultQuery" ) ;
//eko($res);
$DateNPat=$res['dt_naissance'][0];
//eko($DateNPat);
$tab= explode(" ",$DateNPat);
$tab2= explode("-",$tab[0]);
//eko($tab2);
// Calcul sur les différentes dates.
//$age = new clDate ( $DateNPat ) ;
//$dateSimple = $age -> getDate ( "d-m-Y" ) ;
//$dateComple = $age -> getDateText ( ) ;
//$duree = new clDuree ( ) ;
//eko($dateComple);
return "".utf8_encode($tab2[2])."/".utf8_encode($tab2[1])."/".utf8_encode($tab2[0])."";
*/
}
public function getInfo($ind = '', $defaut = '', $date = '')
{
if ($ind) {
if (isset($this->info) and isset($this->info[$ind])) {
if ($this->info[$ind][$this->i]) {
if ($date) {
$date = new clDate($this->info[$ind][$this->i]);
if ($this->info[$ind][$this->i] != '0000-00-00 00:00:00') {
return $date->getDatetime();
} else {
return $defaut;
}
} else {
return $this->info[$ind][$this->i];
}
} else {
return $defaut;
}
}
} else {
if (isset($this->info)) {
return $this->info;
}
}
}
function heure_moins_trois()
{
$date = new clDate('');
$date->addHours(-3);
$hours = $date->getHours();
$mins = 15 * floor($date->getMinutes() / 15);
return two_dec($hours) . ':' . two_dec($mins);
}
static function getDataTransfertsSamu(clDate $date1, clDate $date2)
{
$strDate1 = $date1->getDate();
$strDate2 = $date2->addDays(1)->getDate();
$obRequete = new clRequete(BDD, 'patients_sortis', array(), MYSQL_HOST, MYSQL_USER, MYSQL_PASS);
$requete = "SELECT * FROM `patients_sortis` WHERE `dt_admission` >= '{$strDate1}' and dt_sortie <= '{$strDate2}' AND `type_destination` = 'T' AND moyen_transport LIKE '%SMUR%' ";
return $obRequete->exec_requete($requete, 'tab');
}
function get_heure_pecm_default($formx)
{
global $patient;
$dateArrivee = new clDate($patient->getDateAdmission());
$dateArrivee->addHours(1);
$hours = $dateArrivee->getHours();
$mins = 15 * floor($dateArrivee->getMinutes() / 15);
return two_dec($hours) . ':' . two_dec($mins);
}
function getAge2($formx)
{
global $patient;
global $tool;
$dateToday = new clDate();
$dateNaiss = new clDate($patient->getDateNaissance());
$ageSec = $dateToday->getDifference($dateNaiss);
return floor($ageSec / (365.25 * 24 * 3600)) . ' ans';
}
function getAffichage()
{
global $session;
$af = '<h2>Gestion des enquetes</h2>';
$link = 'index.php?navi=' . $session->genNavi($session->getNaviFull());
foreach (clTuFormxTrigger::getTriggers() as $trigger) {
$af .= '<br />' . utf8_decode($trigger->getNomEnquete()) . ' ';
if ($trigger->isActive()) {
if ($trigger->isClosable()) {
$af .= clTools::genLinkPost($link, "Cloturez l'enquête", array('desactivate' => 'y', 'idTrigger' => $trigger->getIdTrigger()), array('alert' => 'Cloturer l\'enquête ' . $trigger->getNomEnquete() . '?'));
}
} else {
if ($trigger->isActivable()) {
$af .= clTools::genLinkPost($link, "Activez l'enquête", array('activate' => 'y', 'idTrigger' => $trigger->getIdTrigger()), array('alert' => 'Commencer l\'enquête ' . $trigger->getNomEnquete() . '?'));
}
}
}
$af .= '<h2>Enquetes finies</h2>';
$af .= 'L\'export peut parfois se révéler assez long. C\'est un comportement normal.<br />';
foreach (clTuFormxTrigger::getTabEnquetesFinies() as $tabEnquete) {
$trigger = new clTuFormxTrigger($tabEnquete['id_trigger']);
$af .= '<br />' . utf8_decode($trigger->getNomEnquete()) . " du " . clDate::getInstance($tabEnquete['date_debut'])->getSimpleDate();
$af .= " au " . clDate::getInstance($tabEnquete['date_fin'])->getSimpleDate();
$af .= ' ' . clTools::genLinkPost($link, "Exporter", array('export' => $tabEnquete['id_enquete']));
}
return $af;
}
function addItem($titre = '', $description = '', $date = '', $lien = '', $auteur = '', $categorie = '', $comments = '')
{
$this->mod->MxText('item.titre', strip_tags($titre));
$this->mod->MxText('item.description', strip_tags($description));
$dateR = new clDate($date);
$this->mod->MxText('item.date', $dateR->getDateRSS());
//$this -> mod -> MxText ( 'item.datedc', $dateR->getDateRSSDC ( ) ) ;
$this->mod->MxText('item.lien', $lien);
$this->mod->MxText('item.auteur', $auteur);
$this->mod->MxText('item.categorie', $categorie);
if ($comments) {
$this->mod->MxText('item.comments.comments', $comments);
} else {
$this->mod->MxBloc('item.comments', 'delete');
}
$this->mod->MxBloc('item', 'loop');
}
function getDateE2($formx)
{
global $tool;
$idu = $formx->getVar('ids');
$req = new clResultQuery();
$param = array();
$param['cw'] = "dt_naissance";
$param['idu'] = $idu;
$res = $req->Execute("Fichier", "getInfoPatientFromIDU", $param, "ResultQuery");
$DateNPat = $res['dt_naissance'][0];
//eko($DateNPat);
// Calcul sur les différentes dates.
$age = new clDate($DateNPat);
$dateSimple = $age->getDate("d-m-Y");
$dateComple = $age->getDateText();
$duree = new clDuree();
return "" . utf8_encode($dateComple) . "";
}
function Calcul_Delai_Traumatologie_Main($formx)
{
global $session;
global $options;
$date_accident = utf8_decode($formx->getFormVar('Val_Horaire_Date_Accident'));
$heure_accident = utf8_decode($formx->getFormVar('Val_Horaire_Heure_Accident'));
$date_examen = utf8_decode($formx->getFormVar('Val_Horaire_Date_Examen'));
$heure_examen = utf8_decode($formx->getFormVar('Val_Horaire_Heure_Examen'));
$posted = explode("-", $date_accident);
$date_accident = $posted[2] . "-" . $posted[1] . "-" . $posted[0];
$posted = explode("-", $date_examen);
$date_examen = $posted[2] . "-" . $posted[1] . "-" . $posted[0];
$accident = new clDate($date_accident . " " . $heure_accident . ":00");
$examen = new clDate($date_examen . " " . $heure_examen);
$duree = new clDuree($examen->getDifference($accident));
//eko ($accident->getDatetime());
//eko ($examen->getDatetime());
return $duree->getDuree();
}
function genListe($res)
{
// Chargement du template ModeliXe.
$mod = new ModeliXe("recherchePatients.html");
$mod->SetModeliXe();
for ($i = 0; isset($res['idpatient'][$i]) and $i < 29; $i++) {
$dateN = new clDate($res['dt_naissance'][$i]);
$mod->MxText("patient.ib", clPatient::genInfoBulle($res, $i) . " onClick=\"document.forms.creationPatient.nom.value='" . $res['nom'][$i] . "';" . "document.forms.creationPatient.prenom.value='" . $res['prenom'][$i] . "';" . "document.forms.creationPatient.sexe.value='" . $res['sexe'][$i] . "';" . "document.forms.creationPatient.naissance.value='" . $dateN->getDate("d/m/Y") . "';" . "document.forms.creationPatient.adresse.value='" . $res['adresse_libre'][$i] . "';" . "document.forms.creationPatient.cp.value='" . $res['adresse_cp'][$i] . "';" . "document.forms.creationPatient.ville.value='" . $res['adresse_ville'][$i] . "';" . "document.forms.creationPatient.telephone.value='" . $res['telephone'][$i] . "';" . "" . "" . "\"");
$mod->MxText("patient.nom", $res['nom'][$i]);
$mod->MxText("patient.prenom", $res['prenom'][$i]);
$mod->MxText("patient.naissance", $dateN->getDate('d/m/Y'));
if (strlen($res['adresse_libre'][$i]) > 46) {
$trr = '...';
} else {
$trr = '';
}
$mod->MxText("patient.adresse", substr($res['adresse_libre'][$i], 0, 46) . $trr);
$mod->MxBloc("patient", "loop");
}
$this->af .= $mod->MxWrite("1");
}
function delta_temps($formx)
{
global $patient;
//si heure PEC inconnue:
//if(! $formx->getValueForm('date_pec_urgences') )
// return 99;
$obDatePecIoa = new clDate($formx->getFormVar('date_pec_urgences') . ' ' . $formx->getFormVar('heure_pec_urgences'));
$obDateDebutSympt = new clDate($formx->getFormVar('debut_symptomes_jour') . ' ' . $formx->getFormVar('debut_symptomes_heure'));
$obDateDebutSymptNeuro = new clDate($formx->getFormVar('debut_symptomes_neuro_jour') . ' ' . $formx->getFormVar('debut_symptomes_neuro_heure'));
$obDateDebutVueAsympt = new clDate($formx->getFormVar('date_asympt') . ' ' . $formx->getFormVar('heure_asympt'));
if ($formx->getFormVar('is_heure_debut_symptoneuro') == 'oui') {
$delta = $obDatePecIoa->getDifference($obDateDebutSymptNeuro) / 3600;
}
if ($formx->getFormVar('is_heure_debut_sympto') == 'oui') {
$delta = $obDatePecIoa->getDifference($obDateDebutSympt) / 3600;
}
if ($formx->getFormVar('is_heure_debut_sympto') == 'non') {
$delta = $obDatePecIoa->getDifference($obDateDebutVueAsympt) / 3600;
}
$delta = max(0, $delta);
$formx->setVar('der_delta_avc', $delta);
return $delta;
}
function getPatientMineur($formx)
{
global $tool;
$idu = $formx->getVar('ids');
$req = new clResultQuery();
$param = array();
$param['cw'] = "dt_naissance";
$param['idu'] = $idu;
$res = $req->Execute("Fichier", "getInfoPatientFromIDU", $param, "ResultQuery");
$DateNPat = $res['dt_naissance'][0];
//eko($DateNPat);
// Calcul sur les différentes dates.
$age = new clDate($DateNPat);
$dateSimple = $age->getDate("d-m-Y");
$dateComple = $age->getDateText();
$duree = new clDuree();
$duree->getAgePrecis($age->getTimestamp());
if ($duree->getYears() < 18) {
return "mineur";
} else {
return "majeur";
}
}
function runImportHL7()
{
// On parcourt le répertoire 'hprim' à la recherche des nouveaux fichiers HPRIM.
$r = opendir("hprim");
while ($fic = readdir($r)) {
if ($fic != "." and $fic != ".." and $fic != "ok" and $fic != "ko") {
if (stristr($fic, ".HL7") or stristr($fic, ".hl7")) {
$tmp = explode(".", $fic);
//if ( file_exists ( "hprim/".$tmp[0].'.OK' ) OR file_exists ( "hprim/".$tmp[0].'.ok' ) ) {
$this->readHL7("hprim/{$fic}");
$date = new clDate();
$tmpDate = $date->getTimestamp();
// Les 4 lignes suivantes sont à commenter si on veut tester l'intégration de fichiers
// HL7 sans les déplacer dans le répertoire ok/ après traitement (en cas de test donc)
//rename ( "hprim/$fic", "hprim/ok/".$tmpDate.$fic ) ;
//if ( file_exists ( "hprim/".$tmp[0].'.OK' ) )
//rename ( "hprim/".$tmp[0].".OK", "hprim/ok/".$tmpDate.$tmp[0].".OK" ) ;
//elseif ( file_exists ( "hprim/".$tmp[0].'.ok' ) )
//rename ( "hprim/".$tmp[0].".ok", "hprim/ok/".$tmpDate.$tmp[0].".ok" ) ;
//}
}
}
}
}
static function getPatientsFromDateToDate(clDate $date1, clDate $date2)
{
$req = " SELECT idpatient from patients_sortis WHERE dt_admission >= '" . $date1->getDatetime() . "' AND dt_admission <= '" . $date2->getDatetime() . "' ";
$obReq = new clRequete(BDD, 'patients_sortis');
$resTab = $obReq->exec_requete($req, 'tab');
$tabRet = array();
foreach ($resTab as $ligne) {
$tabRet[] = self::getObjPatientFromIdPassage($ligne['idpass']);
}
return $tabRet;
}
function launchAES()
{
global $options;
$mails = '';
$codes = '';
$contenu = '';
$config[type] = "MySQL";
$config[host] = MYSQL_HOST;
$config[login] = MYSQL_USER;
$config[password] = MYSQL_PASS;
$config[db] = BDD;
$date = new clDate();
$date_naissance = new clDate();
$date_admission = new clDate();
//$aujourdhui =getdate();
//$date ->getHours ( )
$date1 = $date->getDate("Y-m-d");
// aujourdhui J
$date->addDays("-1");
$date2 = $date->getDate("Y-m-d");
// date J-1
$heure = $date->getDate("H:i:00");
$date->addHours("-8");
$hour1 = $date->getDate("H:i:00");
$date->addHours("8");
$date->addHours("-16");
$hour2 = $date->getDate("H:i:00");
$requete = new clResultQuery();
$listeGen = new clListesGenerales("recup");
$listeMails = $listeGen->getListeItems("Mails Alertes AES", "1", '', '', "1");
$listeCodesR = $listeGen->getListeItems("Alertes AES - Code Recours", "1", '', '', "1");
$listeCodesD = $listeGen->getListeItems("Alertes AES - Code Diagnostics", "1", '', '', "1");
while (list($key, $val) = each($listeMails)) {
if ($mails) {
$virgule = ',';
} else {
$virgule = '';
}
if ($val != "--") {
$mails .= $virgule . $val;
}
}
//print "Mails : $mails" ;
while (list($key, $val) = each($listeCodesR)) {
if ($codes) {
$or = ' OR ';
} else {
$or = '';
}
if ($val != "--") {
$codes .= $or . "recours_code='" . $val . "'";
}
}
while (list($key, $val) = each($listeCodesD)) {
if ($codes) {
$or = ' OR ';
} else {
$or = '';
}
if ($val != "--") {
$codes .= $or . "diagnostic_code='" . $val . "'";
}
}
if ($heure >= "15:00:00") {
$req2 = "SELECT * FROM patients_sortis WHERE ({$codes}) AND dt_sortie BETWEEN '{$date1} {$hour1}' AND '{$date1} {$heure}'";
$res1 = $requete->Execute("Query", $req2, $config);
} else {
$req2 = "SELECT * FROM patients_sortis WHERE ({$codes}) AND dt_sortie BETWEEN '{$date2} {$hour2}' AND '{$date1} {$heure}'";
$res1 = $requete->Execute("Query", $req2, $config);
}
$contenu1 = $contenu1 . "\n";
if ($res1[idpatient] > 0) {
if ($options->getOption("typeMail") == "HTML") {
$contenu1 = "<table align=\"center\" border =1>\n\t\t\t <tr bgcolor=\"Silver\">\n\t\t\t <th colspan=\"5\">Informations AES (Patients sortis)</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr bgcolor=\"Silver\">\n\t\t\t\t<th>Nom</th>\n\t\t\t\t<th>Prénom</th>\n\t\t\t\t<th>Né(e) le</th>\n\t\t\t\t<th>Admission le</th>\n\t\t\t\t<th>Médecin Urg.</th>\n\t\t\t\t</tr>";
} else {
$contenu1 = "Informations AES (Patients sortis)\tNom\tPrénom\tNé(e) le\tAdmission le\tMédecin Urg.\n";
}
for ($i = 0; isset($res1[idpatient][$i]); ++$i) {
// Affectation de resultats dans le tableau entrants
$date_naissance->setDate($res1[dt_naissance][$i]);
$date_admission->setDate($res1[dt_admission][$i]);
if ($options->getOption("typeMail") == "HTML") {
$contenu1 .= "<tr>";
$contenu1 .= "<td>" . $res1[nom][$i] . "</td>";
$contenu1 .= "<td>" . $res1[prenom][$i] . "</td>";
$contenu1 .= "<td>" . $date_naissance->getDate('d-m-Y H:i:s') . "</td>";
$contenu1 .= "<td>" . $date_admission->getDate('d-m-Y H:i:s') . "</td>";
$contenu1 .= "<td>Dr " . $res1[medecin_urgences][$i] . "</td>";
$contenu1 .= "</tr>";
//Ecriture du log
} else {
$contenu1 .= $res1[nom][$i] . "\t" . $res1[prenom][$i] . "\t";
$contenu1 .= $date_naissance->getDate('d-m-Y H:i:s') . "\t";
$contenu1 .= $date_admission->getDate('d-m-Y H:i:s') . "\t";
$contenu1 .= "Dr " . $res1[medecin_urgences][$i] . '\\n';
}
$text_log1 .= $text_log1 . "\n";
$text_log1 .= $res1[nom][$i] . ";";
$text_log1 .= $res1[prenom][$i] . ";";
$text_log1 .= $res1[dt_naissance][$i] . ";";
$text_log1 .= $res1[dt_admission][$i] . ";";
$text_log1 .= $res1[medecin_urgences][$i] . ";";
$text_log1 .= " patients sortis ";
$fp = fopen("fichier_log.txt", "a");
fputs($fp, $text_log1);
}
if ($options->getOption("typeMail") == "HTML") {
$contenu1 .= "</table>";
}
eko($contenu1);
} else {
$verif2 = 1;
eko("Aucun enregistrement correspondant à la requête de patients sortis.");
$contenu1 .= "Aucun enregistrement correspondant à la requête de patients sortis.";
}
// Paramètre de mail
$reply = Erreurs_MailApp;
if ($options->getOption("typeMail") == "HTML") {
$comment = "<hr><i>Ce message a été envoyé automatiquement par un serveur !</i> ";
} else {
$comment = "\n\nCe message a été envoyé automatiquement par un serveur !";
}
$contenu2 = $contenu;
$contenu2 .= $contenu1;
$contenu2 .= $comment;
//$contenu2 .= "<br>req1 : $req<br>" ;
//$contenu2 .= "req2 : $req2<br>" ;
$from = Erreurs_MailApp;
//$dest_mail = "*****@*****.**" ;
$dest_mail = $mails;
eko("\nContenu : {$contenu2}\n");
if ($options->getOption("typeMail") == "HTML") {
$content = "Content-Type: text/html; charset=\"iso-8859-1\"";
} else {
$content = "Content-Type: text/plain; charset=\"iso-8859-1\"";
}
$head = "From: {$from}\n{$content}\n";
$obj = "Alerte AES";
if ($verif2) {
$dest_mail = "*****@*****.**";
$obj = "Alerte AES (RAS)";
} else {
mail($dest_mail, $obj, $contenu2, $head);
}
eko($comment);
}
function getAllValuesFromFormx($idformx, $values = '', $ids = '', $options = "")
{
if (!$ids) {
$ids = $this->ids;
}
if ($values) {
if (!is_array($values)) {
$values = array($values);
}
}
$array_oef = array();
if (ereg("idinstance", $options)) {
$res['id_instance'][0] = $idformx;
$nb = 1;
} else {
$base = $this->getSession()->getBase();
$table = $this->getSession()->getTable();
$obReq = $this->getSession()->getObjRequete('', $base, $table);
return $obReq->getGen(" idformx = '{$idformx}' AND ids = '{$ids}' ORDER BY dt_modif DESC ", 'resultquery');
/*
$req = new clResultQuery ;
$param = array();
$param['table']=$this->session->tableInstances;
$param['idformx']=$idformx;
$param['ids']=$ids;
$res = $req -> Execute ( "Fichier", "FX_getValuesInstance", $param, "ResultQuery" ) ;
$nb = $res['INDIC_SVC'][2];
if ( $nb == 0 ) return array("INDIC_SVC" => array( 2 => 0 ) );
* */
}
$ret = array();
for ($i = 0; $i < $nb; $i++) {
$newInstance = new clFoRmX($this->ids, 'NO_POST_THREAT');
$r = $newInstance->loadInstance($res['id_instance'][$i]);
if (!$r) {
return array("INDIC_SVC" => array(2 => 0));
}
if (!$values) {
$values = $newInstance->getAllItems();
//eko("ttval");
} else {
//eko($values);
}
foreach ($values as $val) {
if (!isset($ret[$val])) {
$ret[$val] = array();
}
$ret[$val][$i] = utf8_decode($newInstance->getFormVar($val));
}
if (ereg("moreinfos", $options, $array_oef)) {
$ret["infosmore_auteur"][$i] = $res['author'][$i];
$date_creation = new clDate($res['dt_creation'][$i]);
$ret["infosmore_dt_creation"][$i] = $date_creation->getDateTextFull();
}
}
unset($newInstance);
$ret['INDIC_SVC'][2] = $nb;
return $ret;
}
function mbtv2Traited($id, $dateT = '')
{
$date = new clDate($dateT);
$param['DTTRT'] = $date->getDatetime();
$param['ETAT'] = "W";
$majrq = new clRequete(CCAM_BDD, "MBTV2", $param);
$sql = $majrq->updRecord("ID={$id}");
}
function genGraphs($mod, $dateG = '', $nbDays = '7')
{
$param['cs'] = "*";
$req = new clResultQuery();
$date = new clDate($dateG);
$dateT = new clDate($date->getDate("Y-m-d 00:00:00"));
$dateT->addDays(-1);
$dateH = new clDate($dateT->getDate("Y-m-d"));
$dateT->addDays(1);
$dateT->addDays(-$nbDays);
$dateS = new clDate($dateT->getDate("Y-m-d"));
$dateT->addDays($nbDays);
$j = 0;
for ($dateDeb = $dateH; $dateDeb->getTimestamp() < $dateT->getTimestamp();) {
$heureA = $dateDeb->getHours();
$dateA = $dateDeb->getDatetime();
$dateDeb->addHours(1);
$param['cs'] = "*";
$param['cw'] = "WHERE iduser LIKE '" . $_POST['choix'] . "' AND ( date BETWEEN '" . $dateA . "' AND '" . $dateDeb->getDatetime() . "' ) AND idapplication=" . IDAPPLICATION . " AND type='navi'";
$res = $req->Execute("Fichier", "getLogs", $param, "ResultQuery");
$tab[0][0][] = $res['INDIC_SVC'][2];
//eko ( $res['INDIC_SVC'] ) ;
$tab[1][0][$j] = 0;
$tab[1][1][$j] = 0;
// $tab[0][1][$j] = 0 ;
$titres[1][] = $heureA . "h - " . $dateDeb->getHours() . "h";
for ($i = 0; isset($res['idlog'][$i]); $i++) {
$tab[1][0][$j] += $res['tempsPage'][$i];
$tab[1][1][$j] += $res['tempsSQL'][$i];
//$tab[0][1][$j] += $res['nombreSQL'][$i] ;
}
if ($res['INDIC_SVC'][2]) {
$tab[1][0][$j] = $tab[1][0][$j] / $res['INDIC_SVC'][2];
$tab[1][1][$j] = $tab[1][1][$j] / $res['INDIC_SVC'][2];
}
$j++;
}
$dateH->addDays(-1);
$jpG = new clJpGraph();
$jpG->arh_graph("Nombre de clics et requetes par heure (" . $_POST['choix'] . ") - " . $dateH->getDateText(), '', '', $tab[0], array('Clics', 'Requetes'), array('#DDCC55', '#CC3355'), 800, 500, "image1.png", $titres[1], "45", '#C8DE3D', "groupbar", '#FFFFFF', "%d");
$jpG->arh_graph("Temps moyen par heure (" . $_POST['choix'] . ") - " . $dateH->getDateText(), '', '', $tab[1], array('Temps total', 'Temps SQL'), array('#DDCC55', '#CC3355'), 800, 400, "image2.png", $titres[1], "45", '#C8DE3D', "groupbar", '#FFFFFF', "%2.2f");
$j = 0;
for ($dateDeb = $dateS; $dateDeb->getTimestamp() < $dateT->getTimestamp();) {
$jourA = $dateDeb->getDayWeek();
$dateA = $dateDeb->getDatetime();
$dateDeb->addDays(1);
$param['cs'] = "*";
$param['cw'] = "WHERE iduser LIKE '" . $_POST['choix'] . "' AND ( date BETWEEN '" . $dateA . "' AND '" . $dateDeb->getDatetime() . "' ) AND idapplication=" . IDAPPLICATION . " AND type='navi'";
$res = $req->Execute("Fichier", "getLogs", $param, "ResultQuery");
$tab[2][0][] = $res['INDIC_SVC'][2];
$titres[2][] = $jourA;
/*
//eko ( $res['INDIC_SVC'] ) ;
$tab[3][0][$j] = 0 ;
$tab[3][1][$j] = 0 ;
//$tab[2][1][$j] = 0 ;
$titres[2][] = $jourA ;
for ( $i = 0 ; isset ( $res['idlog'][$i] ) ; $i++ ) {
$tab[3][0][$j] += $res['tempsPage'][$i] ;
$tab[3][1][$j] += $res['tempsSQL'][$i] ;
//$tab[2][1][$j] += $res['nombreSQL'][$i] ;
}
if ( $res['INDIC_SVC'][2] ) {
$tab[3][0][$j] = $tab[3][0][$j] / $res['INDIC_SVC'][2] ;
$tab[3][1][$j] = $tab[3][1][$j] / $res['INDIC_SVC'][2] ;
}
$j++ ;
*/
}
// eko ( $tab[3][1] ) ;
$jpG->arh_graph("Nombre de clics et requetes par jour (" . $_POST['choix'] . ") ", '', '', $tab[2], array('Clics', 'Requetes'), array('#DDCC55', '#CC3355'), 800, 500, "image3.png", $titres[2], "45", '#C8DE3D', "groupbar", '#FFFFFF', "%d");
//$jpG->arh_graph( "Temps moyen par jour - ".$date->getDateText ( ),'','', $tab[3], array ( 'Temps total', 'Temps SQL' ), array ( '#DDCC55', '#CC3355' ), 800, 400, "image4.png", $titres[2], "45", '#C8DE3D', "groupbar", '#FFFFFF', "%2.2f" ) ;
}
function addPatientPresent()
{
global $session;
global $listeMois;
global $options;
// Si la confirmation d'ajout est présente, alors on ajoute le nouveau patient dans la table.
if ($_POST['ValiderAjouter'] or $_POST['ValiderAjouter_x']) {
global $errs;
// Préparation de la date d'admission.
$date = new clDate();
$dateN = new clDate($_POST['naissance']);
/*if ( $options -> getOption ( "DoubleEtablissement" ) AND ! ( $options -> getOption ( 'DoubleSansCom' ) ) ) {
$req = new clResultQuery ;
$ras = $req -> Execute ( "Fichier", "getMaxIdToulon", array(), "ResultQuery" ) ;
$max = 1 ;
for ( $j = 0 ; isset ( $ras['idpatient'][$j] ) ; $j++ )
if ( $ras['idpatient'][$j] > $max ) $max = $ras['idpatient'][$j] ;
$max++ ;
eko ( "Double Etablissement : Calcul du max ($max)" ) ;
$data['idpatient'] = $max ;
}*/
// Remplissage des champs pour la requête.
$data['idu'] = "X";
$data['ilp'] = "X";
$data['nsej'] = "X";
$data['uf'] = $options->getOption("AjoutManuelUF");
$data['sexe'] = $_POST['sexe'];
$data['prenom'] = $_POST['prenom'];
$data['nom'] = $_POST['nom'];
$data['dt_admission'] = $date->getDatetime();
$data['dt_naissance'] = $dateN->getDatetime();
$data['adresse_libre'] = $_POST['adresse'];
$data['adresse_cp'] = $_POST['cp'];
$data['adresse_ville'] = $_POST['ville'];
$data['telephone'] = $_POST['telephone'];
$data['salle_examen'] = $_POST['salle'];
$data['dest_souhaitee'] = $_POST['destSouhaitee'];
$data['dest_attendue'] = $_POST['destAttendue'];
$data['adresseur'] = $_POST['adresseur'];
$data['medecin_urgences'] = $_POST['medecin'];
if ($_POST['medecin']) {
$data[dt_examen] = $date->getDatetime();
}
$data['recours_categorie'] = $_POST['categorieRecours'];
$data['manuel'] = 1;
// Préparation de la requête.
$requete = new clRequete(BDD, PPRESENTS, $data);
// Exécution de la requête.
$resu = $requete->addRecord();
// On signale les éventuelles erreurs rencontrées.
if ($resu['error']) {
$errs->addErreur("clListesPatients : Erreur lors de la bascule d'un patient attendu en patient présent (" . $resu[error] . ").");
}
$param['table'] = PPRESENTS;
$param['cw'] = "WHERE idu='X'";
$req = new clResultQuery();
$res = $req->Execute("Fichier", "getPatients", $param, "ResultQuery");
for ($i = 0; isset($res['idpatient'][$i]); $i++) {
$data2['idu'] = "MANU" . $res['idpatient'][$i];
$data2['ilp'] = "MANU" . $res['idpatient'][$i];
$data2['nsej'] = "MANU" . $res['idpatient'][$i];
// Préparation de la requête.
$requete = new clRequete(BDD, PPRESENTS, $data2);
// Exécution de la requête.
$requete->updRecord("idpatient='" . $res['idpatient'][$i] . "'");
header('Location:' . URLNAVI . $session->genNavi($session->getNavi(0)));
}
} else {
// Sinon, nous affichons le formulaire d'ajout d'un nouveau patient présent.
// Chargement du template ModeliXe.
$mod = new ModeliXe("addPresent.html");
$mod->SetModeliXe();
// Préparation du titre, des images, des urls...
$mod->MxText("titre", "Ajouter un nouveau patient présent");
$mod->MxImage("imgClose", URLIMGFER, "Annuler");
$mod->MxUrl("lienClose", URLNAVI . $session->genNavi($session->getNavi(0)));
// Champs IDU, IPP, et nsej...
// $mod -> MxFormField ( "idu", "text", "idu", $_POST['idu'], "size=\"47\" maxlength=\"50\"" ) ;
// $mod -> MxFormField ( "ilp", "text", "ilp", $_POST['ilp'], "size=\"47\" maxlength=\"50\"" ) ;
// $mod -> MxFormField ( "nsej", "text", "nsej", $_POST['nsej'], "size=\"47\" maxlength=\"50\"" ) ;
// Champs de l'état civil du patient.
$data['M'] = "Homme";
$data['F'] = "Femme";
$data['I'] = "Indéterminé";
$javascript1 = XhamTools::genAjax('onKeyUp', 'getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$javascript3 = XhamTools::genAjax('onChange', 'getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$javascript1 = XhamTools::genAjaxWithTempo('getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$mod->MxSelect("sexe", "sexe", $_POST['sexe'], $data, '', '', 'class="w300" ' . "{$javascript3}");
$mod->MxFormField("prenom", "text", "prenom", $_POST['prenom'], "size=\"47\" maxlength=\"50\" {$javascript1} {$javascript3}");
$mod->MxFormField("nom", "text", "nom", $_POST['nom'], "size=\"47\" maxlength=\"50\" {$javascript1} {$javascript3}");
// Gestion des champs de la date de naissance.
$_POST['naissance'] = date('d/m/Y');
$mod->MxFormField("naissance", "text", "naissance", $_POST['naissance'], "id=\"naissance\"");
// Adresse et téléphone du patient.
$mod->MxFormField("adresse", "text", "adresse", $_POST['adresse'], "size=\"47\" maxlength=\"128\"");
$mod->MxFormField("telephone", "text", "telephone", $_POST['telephone'], "size=\"47\" maxlength=\"64\"");
$mod->MxFormField("cp", "text", "cp", $_POST['cp'], "size=\"5\" maxlength=\"5\"");
$mod->MxFormField("ville", "text", "ville", $_POST['ville'], "size=\"38\" maxlength=\"64\"");
// Préparation des listes dynamiques.
$listeCom = new clListes("Recours", "recup");
$listeGen = new clListesGenerales("recup");
$listeMedecins = $listeGen->getListeItems("Médecins", "1", '', '', "1");
$listeSalles = $listeGen->getListeItems("Salles d'examens", "1", '', '', "1");
$listeCategoriesRecours = $listeCom->getListes("", "1");
$listeDestSouhaitees = $listeGen->getListeItems("Destinations souhaitées", "1", '', '', "1");
$listeDestAttendues = $listeGen->getListeItems("Destinations attendues", "1", '', '', "1");
// Affichage des listes dynamiques.
$mod->MxSelect("medecin", "medecin", $_POST['medecin'], $listeMedecins, '', '', 'class="w300"');
$mod->MxSelect("salle", "salle", $_POST['salle'], $listeSalles, '', '', 'class="w300"');
$mod->MxSelect("categorieRecours", "categorieRecours", $_POST['categorieRecours'], $listeCategoriesRecours, '', '', 'class="w300"');
$mod->MxSelect("destSouhaitee", "destSouhaitee", $_POST['destSouhaitee'], $listeDestSouhaitees, '', '', 'class="w300"');
$mod->MxSelect("destAttendue", "destAttendue", $_POST['destAttendue'], $listeDestAttendues, '', '', 'class="w300"');
// Suppression du bouton de modification inutile ici.
$mod->MxBloc("modifier", "modify", " ");
// Variable de navigation.
$mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), "addPatientPresent"));
// Récupération du code HTML généré par le template ModeliXe.
$this->af .= $mod->MxWrite("1");
}
}
function jour_moins_trois_heures()
{
$date = new clDate('');
$date->addHours(-3);
return $date->getSimpleDate();
}
function get($lib)
{
$reg = array();
//renommage éventuel libelles
$renommage = array('nom' => 'NOMU', 'prenom' => 'PREN', 'nomjf' => 'NOMPAT', 'idu' => 'IDU');
if (array_key_exists($lib, $renommage)) {
$lib = $renommage[$lib];
}
//liste d'items à distinguer : mutuelle
//memes items que secu mais precedes par "mutuelle_"
if (ereg("mutuelle_(.*)", $lib, $reg)) {
$tabcouv =& $this->mutuelle;
$lib = $reg[1];
}
if (ereg("secu_(.*)", $lib, $reg)) {
$tabcouv =& $this->secu;
$lib = $reg[1];
}
if (isset($tabcouv)) {
switch ($lib) {
case 'adresse_totale':
return $tabcouv['DEBNOM'][0] . ' ' . $tabcouv['DEBADR'][0] . ' ' . $tabcouv['DEBCDPOST'][0] . ' ' . $tabcouv['ASS_VILLE'][0];
case 'nom_assure_complet':
return $tabcouv['ASS_NOM'][0] . " " . $tabcouv['ASS_PRN'][0];
default:
if (!array_key_exists($lib, $tabcouv)) {
return "-donnée secu inconnue-";
}
return $tabcouv[$lib][0];
}
}
//donnee basique
switch ($lib) {
case 'nom_complet':
$a = $this->patient['NOMU'][0] . " " . $this->patient['PREN'][0];
if ($this->patient['NOMPAT'][0]) {
$a .= " né(e) " . $this->patient['NOMU'][0];
}
return $a;
case 'medecinT':
return $this->getMedT();
case 'derhopi':
$a = $this->getHospis();
if (!isset($a['DTENT'][0])) {
return '';
}
$a = $a['DTENT'][0];
$a = new clDate($a);
return $a->getSimpleDate('-');
case 'prevenir':
return $this->getAPrev();
case 'ilp':
case 'ipp':
case 'IPP':
return $this->getHopiILP();
case 'situation_famille':
return $this->getSitFamT();
case 'datenaiss':
$a = new clDate($this->patient['DTNAI'][0]);
return $a->getSimpleDate();
default:
if (!array_key_exists($lib, $this->patient)) {
return '-donnée inconnue-';
}
return $this->patient[$lib][0];
}
}
function majPatientSQL($idimport, $idpatient, $table)
{
global $errs;
global $news1;
global $mods1;
global $errs1;
global $news2;
global $mods2;
global $errs2;
// Récupération des informations sur le patient à mettre à jour.
$param['cw'] = "WHERE idimport='{$idimport}'";
$req = new clResultQuery();
$res = $req->Execute("Fichier", "getImports", $param, "ResultQuery");
if ($res['INDIC_SVC'][2]) {
$i = 0;
$data['idu'] = $res['idu'][$i];
$data['ilp'] = $res['ilp'][$i];
$data['nsej'] = $res['idpass'][$i];
$data['uf'] = $res['uf'][$i];
$data['nom'] = $res['nom'][$i];
$data['prenom'] = $res['prenom'][$i];
$data['sexe'] = $res['sexe'][$i];
$data['dt_naissance'] = $res['dt_naissance'][$i];
$data['adresse_libre'] = $res['adresse_libre'][$i];
$data['adresse_cp'] = $res['adresse_cp'][$i];
$data['adresse_ville'] = $res['adresse_ville'][$i];
$data['telephone'] = $res['telephone'][$i];
$data['prevenir'] = str_replace('^', '<br/>', $res['prevenir'][$i]);
$data['medecin_traitant'] = $res['medecin_nom'][$i];
$data['dt_admission'] = $res['dt_admission'][$i];
$data['mode_admission'] = $res['mode_admission'][$i];
$data['iduser'] = "******";
$data['manuel'] = 0;
//newfct ( gen_affiche_tableau, $data ) ;
if ($res['uf'][$i] == '6004') {
$base = 'terminal2_tuv2';
$mods2++;
} else {
$base = BDD;
$mods1++;
}
// Appel de la classe Requete.
$requete = new clRequete($base, $table, $data);
// Exécution de la requete.
$requete->updRecord("idpatient='{$idpatient}'");
// Mise à jour de la date de traitement de l'import.
$date = new clDate();
$data2['dt_traitement'] = $date->getDatetime();
// Appel de la classe Requete.
$requete = new clRequete(BDD, IMPORTS, $data2);
// Exécution de la requete.
$requete->updRecord("idimport='{$idimport}'");
} else {
// En cas d'erreur, on la signale...
$errs->addErreur("clImportation : Impossible d'importer ce nouveau patient, l'identifiant de l'import est introuvable (idimport=\"{$idimport}\").");
$errs1++;
$errs2++;
}
}
static function getAV($val, $type = '')
{
if ($type) {
if ($val == '0000-00-00 00:00:00') {
return VIDEDEFAUT;
} else {
$date = new clDate($val);
return $date->getDate($type);
}
} else {
if ($val) {
return $val;
} else {
return VIDEDEFAUT;
}
}
}
function genAffichage($dt1, $dt2)
{
global $session;
global $options;
global $jj;
global $titreCCMU;
global $titreGEMSA;
global $titreTraumato;
$fic = '';
// Chargement du template ModeliXe.
$mod = new ModeliXe("Export.mxt");
$mod->SetModeliXe();
// Initialisation des dates en fonction de l'état actuel :
// A la date du jour si aucune valeur n'a été passée.
// Retrait d'un jour à la date1 si date1 == date2
if ($dt1->getTimestamp() == $dt2->getTimestamp()) {
$dt1->addDays(-1);
}
// Inversion des dates 1 et 2 si la date 1 est supérieur à la date 2.
if ($dt1->getTimestamp() > $dt2->getTimestamp()) {
$tmp_dt3 = $dt1->getTimestamp();
$tmp_dt4 = $dt2->getTimestamp();
$dt1 = new clDate($tmp_dt4);
$dt2 = new clDate($tmp_dt3);
}
// Calcul de la liste des valeurs possibles pour la date1.
$old = '';
for ($dt = new clDate(DATELANCEMENT); $dt->getTimestamp() < $dt2->getTimestamp(); $dt->addDays(1)) {
if ($old == $dt->getDate("Y-m-d")) {
$dt->addHours(5);
$enleverHeure = 1;
} else {
$enleverHeure = 0;
}
$old = $dt->getDate("Y-m-d");
$dttmp = new clDate($dt->getDate("Y-m-d"));
$listeDates1[$dttmp->getTimestamp()] = $dt->getDate("d-m-Y");
// if ( $enleverHeure ) $dt -> addHours ( -2 ) ;
//eko ( $dttmp->getDatetime ( ).' -> '.$dt->getDatetime ( ) ) ;
}
if (!is_array($listeDates1)) {
$listeDates1 = array();
}
// Calcul de la liste des valeurs possibles pour la date2.
$dtj = new clDate(date("Y-m-d 00:00:00"));
$dtj->addDays(1);
$dt = new clDate(DATELANCEMENT);
$old = '';
for ($dt->addDays(1); $dt->getTimestamp() <= $dtj->getTimestamp(); $dt->addDays(1)) {
if ($old == $dt->getDate("Y-m-d")) {
$dt->addHours(5);
$enleverHeure = 1;
} else {
$enleverHeure = 0;
}
$old = $dt->getDate("Y-m-d");
$dttmp = new clDate($dt->getDate("Y-m-d"));
$listeDates2[$dttmp->getTimestamp()] = $dt->getDate("d-m-Y");
//if ( $enleverHeure ) $dt -> addHours ( -2 ) ;
//eko ( $dttmp->getDatetime ( ).' -> '.$dt->getDatetime ( ) ) ;
}
if (!is_array($listeDates2)) {
$listeDates2 = array();
}
// Fabrication des listes dans ModeliXe.
$mod->MxSelect("date1", "date1", $dt1->getTimestamp(), $listeDates1, '', '', "onChange=\"reload(this.form)\"");
$mod->MxSelect("date2", "date2", $dt2->getTimestamp(), $listeDates2, '', '', "onChange=\"reload(this.form)\"");
// Gestion du filtre avec des bouttons radio.
if (!isset($_POST['filtre'])) {
$_POST['filtre'] = "tous";
}
$mod->MxCheckerField("filtre1", "radio", "filtre", "tous", $_POST['filtre'] == "tous" ? true : false);
$mod->MxCheckerField("filtre2", "radio", "filtre", "norm", $_POST['filtre'] == "norm" ? true : false);
$mod->MxCheckerField("filtre3", "radio", "filtre", "uhcd", $_POST['filtre'] == "uhcd" ? true : false);
// Si le bouton "Chercher" n'a pas été pressé, alors on n'affiche pas
// le bloc contenant le lien vers l'export.
if (!$_POST['Chercher'] and !$_POST['Chercher_x']) {
$mod->MxBloc("donnees", "modify", " ");
} else {
// Affichage du lien vers le fichier contenant l'export.
// Récupération de tous les patients entre les deux dates données.
$req = new clResultQuery();
$param[table] = PSORTIS;
// En fonction du filtre sélectionné.
switch ($_POST['filtre']) {
/*
case 'norm': $filter = "AND salle_examen NOT LIKE 'UHCD%'" ; break ;
case 'uhcd': $filter = "AND salle_examen LIKE 'UHCD%'" ; break;
*/
case 'norm':
$filter = "AND uf!=" . $options->getOption('numUFUHCD') . "";
break;
case 'uhcd':
$filter = "AND uf=" . $options->getOption('numUFUHCD') . "";
break;
default:
$filter = "";
break;
}
$param[cw] = "WHERE dt_admission BETWEEN '" . $dt1->getDatetime() . "' AND '" . $dt2->getDatetime() . "' {$filter}";
//$param[cw] = " p, logs_mails m WHERE p.idpatient=m.idpatient AND dt_naissance>'1932-01-01 00:00:00' AND `dt_mail` >= '2006-10-01 00:00:00' AND type_mail='Procédure dépistage maltraitance'" ;
$res = $req->Execute("Fichier", "getPatients", $param, "ResultQuery");
// newfct ( gen_affiche_tableau, $res[INDIC_SVC] ) ;
//eko ( $res['INDIC_SVC'] ) ;
if ($res[INDIC_SVC][2] > 1) {
$s = "s";
}
// Affichage d'un résumé des résultats.
$mod->MxText("donnees.nombre", $res[INDIC_SVC][2]);
$mod->MxText("donnees.resultat", "entrée{$s} exportée{$s}");
if (!$options->getOption('CCAMExterne')) {
$jj = new clCCAMExportActesDiags(array('dateDebut' => $dt1->getDate('Y-m-d'), 'dateFin' => $dt2->getDate('Y-m-d')));
$jj->initTableauActesDiag($res);
}
if ($options->getOption("GestionCCMU")) {
if ($res[ccmu][$i]) {
$ccmu = "\t" . $res[ccmu][$i];
} else {
$ccmu = "\t";
}
$titreCCMU = "\tCCMU";
} else {
$ccmu = '';
$titreCCMU = '';
}
if ($options->getOption("GestionGEMSA")) {
if ($res[gemsa][$i]) {
$gemsa = "\t" . $res[gemsa][$i];
} else {
$gemsa = "\t";
}
$titreGEMSA = "\tGEMSA";
} else {
$gemsa = '';
$titreGEMSA = '';
}
if ($options->getOption("GestionTraumato")) {
if ($res[traumato][$i]) {
$traumato = "\t" . $res[traumato][$i];
} else {
$traumato = "\t";
}
$titreTraumato = "\tTraumato";
} else {
$traumato = '';
$titreTraumato = '';
}
// Parcours des différents résultats.
for ($i = 0; isset($res[idpatient][$i]); $i++) {
// Préparation des différentes dates pour affichage.
set_time_limit(30);
$naissance = new clDate($res[dt_naissance][$i]);
$dtn = $naissance->getDate("d/m/Y");
if ($res[dt_admission][$i] != '0000-00-00 00:00:00') {
$admission = new clDate($res[dt_admission][$i]);
$dta = $admission->getDate("d/m/Y");
$hma = $admission->getDate("H:i");
} else {
$dta = '--';
$hma = '--';
}
if ($res[dt_examen][$i] != '0000-00-00 00:00:00') {
$examen = new clDate($res[dt_examen][$i]);
$dte = $examen->getDate("d/m/Y");
$hme = $examen->getDate("H:i");
} else {
$dte = '--';
$hme = '--';
}
if ($res[dt_sortie][$i] != '0000-00-00 00:00:00') {
$sortie = new clDate($res[dt_sortie][$i]);
$dts = $sortie->getDate("d/m/Y");
$hms = $sortie->getDate("H:i");
} else {
$dts = '--';
$hme = '--';
}
$uf = $res[uf][$i];
$ufUHCD = $options->getOption('numUFUHCD');
$ufUHCDrepere = $options->getOption('numUFUHCDrepere');
if ($ufUHCD && ereg($ufUHCD, $uf) or $ufUHCDrepere && ereg($ufUHCDrepere, $uf)) {
$isuhcd = 1;
} else {
$isuhcd = 0;
}
//eko($jj -> tabExport);
// Préparation des différents champs de l'enregistrement parcouru.
if ($res[ilp][$i]) {
$ilp = $res[ilp][$i];
} else {
$ilp = "-";
}
if ($res[uf][$i]) {
$uf = $res[uf][$i];
} else {
$uf = "-";
}
$dateUhcd = new clDate($res[dt_UHCD][$i]);
if ($res[dt_UHCD][$i] and $isuhcd) {
$dtUHCD = $dateUhcd->getDate('Y-m-d H:i:00');
} else {
$dtUHCD = "";
}
if ($res[nsej][$i]) {
$nsej = $res[nsej][$i];
} else {
$nsej = "-";
}
if ($res[nom][$i]) {
$nom = $res[nom][$i];
} else {
$nom = "-";
}
if ($res[prenom][$i]) {
$prenom = $res[prenom][$i];
} else {
$prenom = "-";
}
if ($res[sexe][$i]) {
$sexe = $res[sexe][$i];
} else {
$sexe = "-";
}
if ($res[adresse_cp][$i]) {
$adresse_cp = $res[adresse_cp][$i];
} else {
$adresse_cp = "-";
}
if ($res[medecin_traitant][$i]) {
$medecin_traitant = preg_replace("/(\r\n|\n|\r)/", " ", $res[medecin_traitant][$i]);
} else {
$medecin_traitant = "-";
}
if ($res[adresseur][$i]) {
$adresseur = $res[adresseur][$i];
} else {
$adresseur = "-";
}
if ($res[mode_admission][$i]) {
$mode_admission = $res[mode_admission][$i];
} else {
$mode_admission = "-";
}
if ($res[medecin_urgences][$i]) {
$medecin_urgences = $res[medecin_urgences][$i];
} else {
$medecin_urgences = "-";
}
if ($res[salle_examen][$i]) {
$salle_examen = $res[salle_examen][$i];
} else {
$salle_examen = "-";
}
if ($res[recours_categorie][$i]) {
$recours_categorie = $res[recours_categorie][$i];
} else {
$recours_categorie = "-";
}
if ($res[motif_recours][$i]) {
$motif_recours = $res[motif_recours][$i];
} else {
$motif_recours = "-";
}
if (!$options->getOption('getRecoursCIM10')) {
if ($res[recours_code][$i]) {
$recours_code = $res[recours_code][$i];
} else {
$recours_code = "-";
}
} else {
if ($res[recours_code][$i]) {
$recours_code = strtr($res[recours_code][$i], '.', '');
} else {
$recours_code = "-";
}
}
if ($res[code_gravite][$i]) {
$code_gravite = $res[code_gravite][$i];
} else {
$code_gravite = "-";
}
if ($res[dest_souhaitee][$i]) {
$dest_souhaitee = $res[dest_souhaitee][$i];
} else {
$dest_souhaitee = "-";
}
if ($res[dest_attendue][$i]) {
$dest_attendue = ' ' . $res[dest_attendue][$i];
} else {
$dest_attendue = "-";
}
if ($res[ide][$i]) {
$ide = $res[ide][$i];
} else {
$ide = "-";
}
if ($res[motif_transfert][$i]) {
$motif_transfert = $res[motif_transfert][$i];
} else {
$motif_transfert = "-";
}
if ($res[moyen_transport][$i]) {
$moyen_transport = $res[moyen_transport][$i];
} else {
$moyen_transport = "-";
}
if ($res[type_destination][$i]) {
$type_destination = $res[type_destination][$i];
} else {
$type_destination = "-";
}
if ($res[diagnostic_categorie][$i]) {
$diagnostic_categorie = $res[diagnostic_categorie][$i];
} else {
$diagnostic_categorie = "-";
}
if ($res[diagnostic_libelle][$i]) {
$diagnostic_libelle = $res[diagnostic_libelle][$i];
} else {
$diagnostic_libelle = "-";
}
if ($res[diagnostic_code][$i]) {
$diagnostic_code = $res[diagnostic_code][$i];
} else {
$diagnostic_code = "-";
}
if ($options->getOption("GestionCCMU")) {
if ($res[ccmu][$i]) {
$ccmu = "\t" . $res[ccmu][$i];
} else {
$ccmu = "\t";
}
$titreCCMU = "\tCCMU";
} else {
$ccmu = '';
$titreCCMU = '';
}
if ($options->getOption("GestionGEMSA")) {
if ($res[gemsa][$i]) {
$gemsa = "\t" . $res[gemsa][$i];
} else {
$gemsa = "\t";
}
$titreGEMSA = "\tGEMSA";
} else {
$gemsa = '';
$titreGEMSA = '';
}
if ($options->getOption("GestionTraumato")) {
if ($res[traumato][$i]) {
$traumato = "\t" . $res[traumato][$i];
} else {
$traumato = "\t";
}
$titreTraumato = "\tTraumato";
} else {
$traumato = '';
$titreTraumato = '';
}
// Génération de la ligne correspondant à l'enregistrement.
// $fic .= "$ilp\t$nsej\t$nom\t$prenom\t$dtn\t$sexe\t$adresse_cp\t$medecin_traitant\t$dta\t$hma\t$adresseur\t$mode_admission\t$dte\t$hme\t$medecin_urgences\t$salle_examen\t$recours_categorie\t$motif_recours\t$recours_code\t$code_gravite\t$dest_souhaitee\t$dest_attendue\t$dts\t$hms\t$ide\t$moyen_transport\t$motif_transfert\t$type_destination\t$diagnostic_categorie\t$diagnostic_libelle\t$diagnostic_code\n" ;
if ($options->getOption('CCAMExterne')) {
$fic .= "{$ilp}\t{$nsej}\t{$uf}\t{$dtn}\t{$sexe}\t{$adresse_cp}\t{$medecin_traitant}\t{$dta}\t{$hma}\t{$mode_admission}\t{$dte}\t{$hme}\t{$medecin_urgences}\t{$salle_examen}\t{$recours_categorie}\t{$motif_recours}\t{$recours_code}\t{$code_gravite}\t{$dtUHCD}" . $gemsa . $ccmu . $traumato . "\t{$dest_souhaitee}\t{$dest_attendue}\t{$dts}\t{$hms}\t{$ide}\t{$moyen_transport}\t{$motif_transfert}\t{$type_destination}\t{$diagnostic_categorie}\t{$diagnostic_libelle}\t{$diagnostic_code}\n";
} else {
$fic .= "{$ilp}\t{$nsej}\t{$uf}\t{$dtn}\t{$sexe}\t{$adresse_cp}\t{$medecin_traitant}\t{$dta}\t{$hma}\t{$mode_admission}\t{$dte}\t{$hme}\t{$medecin_urgences}\t{$salle_examen}\t{$recours_categorie}\t{$motif_recours}\t{$recours_code}\t{$code_gravite}\t{$dtUHCD}" . $gemsa . $ccmu . $traumato . "\t{$dest_souhaitee}\t{$dest_attendue}\t{$dts}\t{$hms}\t{$ide}\t{$moyen_transport}\t{$motif_transfert}\t{$type_destination}\t{$diagnostic_categorie}\t{$diagnostic_libelle}\t{$diagnostic_code}\t" . $jj->getActesDiagsPatient($i);
}
}
// Calcul du lien vers ce fichier.
}
return $fic;
}
