function hop() { //Appel du fichier de configuration. global $errs; global $options; global $logs; global $session; global $navi; global $pi; include_once "config.php"; global $errs; global $options; global $logs; global $session; global $navi; global $pi; // On instancie les objets globaux. // Appel de la classe Erreurs. $errs = new clErreurs(); // Appel de la classe Options. $options = new clOptions(); // Appel de la classe Logs. $logs = new clLogs(); // Appel de la classe PostIt. $pi = new clPostIt(); // Appel de la classe session. $session = new clSession(); // Ajout des statistiques. $session->setStats(); // Fabrication de la page. $navi = new clNavigation(); /* if ( $_POST['date2'] ) { $dt1 = new clDate ( $_POST['date1'] ) ; $dt2 = new clDate ( $_POST['date2'] ) ; } else { $dt2 = new clDate ( date ( "Y-m-d 00:00:00" ) ) ; $dt1 = new clDate ( date ( "Y-m-d 00:00:00" ) ) ; $dt1 -> addDays ( -1 ) ; } */ // Préparation du fichier contenant l'export. // Ecriture de la première ligne contenant le titre des colonnes. // $fic .= "ILP\tIDPASS\tNom\tPrénom\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tAdresseur\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n" ; $fic = ''; $_POST['Chercher'] = "Chercher"; $_POST[' filtre'] = "tous"; global $jj; global $titreCCMU; global $titreGEMSA; global $titreTraumato; print "\n janvier "; $export = new clExport2010(); $contenu1 = $export->genAffichage(new clDate('2010-01-01 00:00:00'), new clDate('2010-01-31 23:59:59')); $headerbase = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag"; if ($options->getOption('CCAMExterne')) { $header1 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header1 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n fevrier "; $contenu2 = $export->genAffichage(new clDate('2010-02-01 00:00:00'), new clDate('2010-02-29 23:59:59')); if ($options->getOption('CCAMExterne')) { $header2 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header2 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n mars "; $contenu3 = $export->genAffichage(new clDate('2010-03-01 00:00:00'), new clDate('2010-03-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header3 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header3 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n avril"; $contenu4 = $export->genAffichage(new clDate('2010-04-01 00:00:00'), new clDate('2010-04-30 23:59:59')); if ($options->getOption('CCAMExterne')) { $header4 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header4 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n mai"; $contenu5 = $export->genAffichage(new clDate('2010-05-01 00:00:00'), new clDate('2010-05-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header5 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header5 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n juin"; $contenu6 = $export->genAffichage(new clDate('2010-06-01 00:00:00'), new clDate('2010-06-30 23:59:59')); if ($options->getOption('CCAMExterne')) { $header6 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header6 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n juillet"; $contenu7 = $export->genAffichage(new clDate('2010-07-01 00:00:00'), new clDate('2010-07-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header7 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header7 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n aout"; $contenu8 = $export->genAffichage(new clDate('2010-08-01 00:00:00'), new clDate('2010-08-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header8 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header8 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n septembre"; $contenu9 = $export->genAffichage(new clDate('2010-09-01 00:00:00'), new clDate('2010-09-30 23:59:59')); if ($options->getOption('CCAMExterne')) { $header9 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header9 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n octobre"; $contenu10 = $export->genAffichage(new clDate('2010-10-01 00:00:00'), new clDate('2010-10-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header10 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header10 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n novembre"; $contenu11 = $export->genAffichage(new clDate('2010-11-01 00:00:00'), new clDate('2010-11-30 23:59:59')); if ($options->getOption('CCAMExterne')) { $header11 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header11 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } print "\n decembre"; $contenu12 = $export->genAffichage(new clDate('2010-12-01 00:00:00'), new clDate('2010-12-31 23:59:59')); if ($options->getOption('CCAMExterne')) { $header12 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\n"; } else { $header12 = "ILP\tIDPASS\tUF\tNaissance\tSexe\tCP\tMed trait\tDate Adm\tHeure Adm\tMode admission\tDate exam\tHeure exam\tMed urg\tSalle exam\tCatégorie recours\tMotif recours\tCode recours\tCode grav.\tDate UHCD" . $titreGEMSA . $titreCCMU . $titreTraumato . "\tDest souhaitée\tDest attendue\tDate sortie\tHeure sortie\tIDE\tMoyen transport\tMotif transfert\tType dest\tCat Diag\tDiagnostic\tCode Diag\t" . $jj->getTitreColonnes(); } $gligne = -1; $nbccam = 0; $nbngap = 0; $nbdiag = 0; $export = array(); $tcols = explode("\t", $headerbase); for ($i = 1; $i <= 12; $i++) { eval('$header = $header' . $i . ' ; '); eval('$contenu = $contenu' . $i . ' ; '); $tlignes = explode("\n", $contenu); $tcolsligne = explode("\t", $header); foreach ($tlignes as $ligne) { set_time_limit(30); if ($ligne == '') { continue; } $gligne++; //print "\no".$ligne.'o'; $tchamps = explode("\t", $ligne); $varccam = 0; $varngap = 0; $vardiag = 0; print "\n ligne {$gligne} , contient " . count($tchamps) . " champs"; for ($j = 0; $j <= count($tchamps); $j++) { //print "\ncolonne ".$tcolsligne[$j]; if (false !== strpos($tcolsligne[$j], 'CCAM')) { $export[$gligne]['ccam'][] = $tchamps[$j]; $varccam++; $nbccam = max($varccam, $nbccam); } else { if (false !== strpos($tcolsligne[$j], 'DIAG')) { $export[$gligne]['diag'][] = $tchamps[$j]; $vardiag++; $nbdiag = max($vardiag, $nbdiag); } else { if (false !== strpos($tcolsligne[$j], 'NGAP')) { $export[$gligne]['ngap'][] = $tchamps[$j]; $varngap++; $nbngap = max($varngap, $nbngap); } else { $export[$gligne]['global'][] = $tchamps[$j]; } } } } } } $nbreste = count($tcols); $nomfic = "export2010.csv"; $FIC = fopen($nomfic, "w"); //gen header fwrite($FIC, "\n"); for ($i = 0; $i < $nbreste; $i++) { fwrite($FIC, $tcols[$i] . "\t"); } for ($i = 1; $i <= $nbccam; $i++) { fwrite($FIC, 'CCAM_' . $i . "\t"); } for ($i = 1; $i <= $nbdiag; $i++) { fwrite($FIC, 'DIAG_' . $i . "\t"); } for ($i = 1; $i <= $nbngap; $i++) { fwrite($FIC, 'NGAP_' . $i . "\t"); } fwrite($FIC, "\n"); print "generation du fic"; for ($i = 0; $i < $gligne; $i++) { set_time_limit(30); print "\n ligne {$i} , {$nbreste} colonnes {$nbccam} ccam {$nbdiag} diag {$nbngap} ngap "; for ($j = 0; $j < $nbreste; $j++) { fwrite($FIC, $export[$i]['global'][$j] . "\t"); } for ($j = 0; $j < $nbccam; $j++) { fwrite($FIC, $export[$i]['ccam'][$j] . "\t"); } for ($j = 0; $j < $nbdiag; $j++) { fwrite($FIC, $export[$i]['diag'][$j] . "\t"); } for ($j = 0; $j < $nbngap; $j++) { fwrite($FIC, $export[$i]['ngap'][$j] . "\t"); } fwrite($FIC, "\n"); } print "\nfin generation du fic\n"; fclose($FIC); }
<?php // Titre : Fichier index du terminal // Auteur : Damien Borel <*****@*****.**> // Date : 05 Janvier 2005 // Description : // Le squelette du site est fabriqué ici et les objets "globaux" sont // instanciés à ce niveau. // Appel du fichier de configuration. include_once "config.php"; // On instancie les objets globaux. // Appel de la classe Erreurs. $errs = new clErreurs(); // Appel de la classe Options. $options = new clOptions(); // Appel de la classe Logs. $logs = new clLogs(); // Appel de la classe PostIt. $pi = new clPostIt(); // Appel de la classe session. $session = new clSession(); // Récupération de la date du jour. $date = new clDate(); // Fabrication du menu. $menu = new clMenu(); // Ajout des statistiques. $session->setStats(); // Fabrication de la page. $navi = new clNavigation(); $pi->addMove("messagenew", "handlem"); $pi->addMove("ajouterattendu", "handlep");