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);
}
// 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");
$pi->addMove("casemaincourante", "casemaincourante_handler");
if (!file_exists(URLLOCAL . "define.xml.php")) {
$errs->addErreur("La constante URLLOCAL est sûrement mal renseignée. Merci de vérifier votre fichier define.xml.php.");
}
// Il ne reste plus qu'à afficher le code XHTML si nous ne sommes pas en mode
