コード例 #1
0
ファイル: extraction2010.php プロジェクト: jeromecc/tuv2
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);
}
コード例 #2
0
ファイル: index.php プロジェクト: jeromecc/tuv2
// 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
// "génération de pdf".$pi -> addPostIt ( "Test2", "Ceci est un test de ouf" ) ;
if (!$stopAffichage and $session->getNavi(2) != "voirDoc" and $session->getNavi(3) != "genEdition") {
    ?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr">