Esempio n. 1
0
 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 Formulaire_Radio_MAJ_Table($formx)
{
    $id_instance = $formx->getIdInstance();
    $idu = $formx->getVar('ids');
    //eko ($id_instance);
    //eko ($idu);
    $req = new clResultQuery();
    $param = array();
    $param['cw'] = "*";
    $param['idu'] = $idu;
    $res = $req->Execute("Fichier", "getInfoPatientFromIDU", $param, "ResultQuery");
    $idpatient = $res['idpatient'][0];
    //eko($res);
    $param = array();
    $param['etat'] = "a";
    $param['idpatient'] = $idpatient;
    $param['idapplication'] = IDAPPLICATION;
    $param['id_instance'] = $id_instance;
    //$param['dt_creation'] = date("Y")."-".date("m")."-".date("d")." ".date("H").":".date("i").":00";
    list($jour, $mois, $annee) = explode("-", utf8_decode($formx->getFormVar('Val_F_RADIO_Date')));
    $param['dt_creation'] = $annee . "-" . $mois . "-" . $jour . " " . utf8_decode($formx->getFormVar('Val_F_RADIO_Heure')) . ":" . utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')) . ":00";
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Heure'))  );
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')) );
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Date')) );
    //eko ( $annee."-".$mois."-".$jour." ".utf8_decode($formx->getFormVar('Val_F_RADIO_Heure')).":".utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')).":00");
    //eko ($param);
    $req = new clRequete(BDD, "radios", $param);
    $res = $req->addRecord();
    //$res = $req -> Execute ( "Fichier", "putFormulaireRadioData", $param, "ResultQuery" ) ;
    //eko($res);
    return "";
}
Esempio n. 3
0
 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 Formulaire_Colectomie1_MAJ_Table($formx)
{
    $id_instance = $formx->getIdInstance();
    $ids = $formx->getVar('ids');
    // On va supprimer tous les fichiers Dossier_Medical_Colectomie de la table formx
    $requete = new clRequete(BDD, TABLEFORMX, $param);
    $sql = $requete->delRecord("idformx='Dossier_Medical_Colectomie' and ids='" . $ids . "'");
    return "";
}
function Formulaire_AEV_MAJ_Situation($formx)
{
    // On efface les formulaires de situation de la personne qui n'ont pas ete valide
    // dans TU (presence dans la fenêtre des formulaires) )
    $req = new clResultQuery();
    $param = array();
    $req = new clRequete(FX_BDD, "formx", $param);
    $res = $req->delRecord("ids='" . $formx->getVar('ids') . "' and idformx like 'Dossier_AEV_Situation%' and (status='I' or status='E')");
    return "";
}
function Formulaire_AEV_MAJ_Formulaire($formx)
{
    // On efface les formulaires principaux qui n'ont pas ete valide
    // dans TU (presence dans la fenêtre des formulaires)
    $req = new clResultQuery();
    $param = array();
    $req = new clRequete(BDD, "formx", $param);
    $res = $req->delRecord("id_instance!='" . $formx->getIdInstance() . "' and ids='" . $formx->getVar('ids') . "' and idformx='Formulaire_AEV' and (status='I' or status='E')");
    return "";
}
Esempio n. 7
0
 static function setVar($var, $val)
 {
     if (!defined('TABLEGLOB')) {
         define('TABLEGLOB', 'variables');
     }
     $param = array();
     $param['valeur'] = $val;
     $param['nom'] = $var;
     $param['idapplication'] = IDAPPLICATION;
     $requete = new clRequete(BASEXHAM, TABLEGLOB, $param);
     $requete->uoiRecord(" nom='{$var}' AND idapplication='" . IDAPPLICATION . "'");
 }
function Formulaire_Radio_DEL_Table($formx)
{
    $id_instance = $formx->getIdInstance();
    $idu = $formx->getVar('ids');
    //eko ($id_instance);
    //eko ($idu);
    if ($id_instance) {
        $requete = new clRequete(BDD, 'radios');
        $requete->delRecord('id_instance=' . $id_instance);
    }
    return "";
}
Esempio n. 9
0
 function setPreference($libelle, $valeur, $idUser = '')
 {
     global $session;
     if ($idUser) {
         $user = $idUser;
     } else {
         $user = $session->getUid();
     }
     $data['idApplication'] = IDAPPLICATION;
     $data['libellePreference'] = $libelle;
     $data['valeurPreference'] = $valeur;
     $data['idUser'] = $user;
     $req = new clRequete(BASEXHAM, defined('TABLEPREF') ? TABLEPREF : 'preferences', $data);
     $res = $req->uoiRecord("libellePreference='{$libelle}' AND idUser='******'");
 }
Esempio n. 10
0
/**
 * contrainte sur les diagnostics interdits
 * @param clPatient $obPatient
 * @return array
 */
function contraintes_dp_cim10(clPatient $obPatient)
{
    //le patient est il hospitalisé ou UHCD ?
    if ($obPatient->isInUHCD() || $obPatient->isHospitalise()) {
        $codeDiagPpal = $obPatient->getCodeDiagnostic();
        $libDiagPpal = $obPatient->getLibelleDiagnostic();
        //on récupère les diags interdits
        $obRequete = new clRequete(CCAM_BDD, 'codescim10interdits');
        $tabDiagsIntedits = $obRequete->exec_requete("SELECT * FROM codescim10interdits ", 'tab');
        foreach ($tabDiagsIntedits as $tabInfoDiag) {
            if ($tabInfoDiag['code'] == $codeDiagPpal) {
                return array('isContrainte' => true, 'titreContrainte' => "Diagnostic Interdit", 'messageContrainte' => "Le diag principal {$codeDiagPpal} {$libDiagPpal} est interdit en cas d'hospitalisation ou d'UHCD ");
            }
        }
    }
    return array('isContrainte' => false);
}
Esempio n. 11
0
function Formulaire_Radio_MAJ_Table($formx)
{
    $id_instance = $formx->getIdInstance();
    $idu = $formx->getVar('ids');
    //eko ($id_instance);
    //eko ($idu);
    $req = new clResultQuery();
    $param = array();
    $param['cw'] = "*";
    $param['idu'] = $idu;
    $res = $req->Execute("Fichier", "getInfoPatientFromIDU", $param, "ResultQuery");
    $idpatient = $res['idpatient'][0];
    //eko($res);
    $param = array();
    $param['etat'] = "a";
    $param['idpatient'] = $idpatient;
    $param['idapplication'] = IDAPPLICATION;
    $param['id_instance'] = $id_instance;
    //$param['dt_creation'] = date("Y")."-".date("m")."-".date("d")." ".date("H").":".date("i").":00";
    list($jour, $mois, $annee) = explode("-", utf8_decode($formx->getFormVar('Val_F_RADIO_Date')));
    $param['dt_creation'] = $annee . "-" . $mois . "-" . $jour . " " . utf8_decode($formx->getFormVar('Val_F_RADIO_Heure')) . ":" . utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')) . ":00";
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Heure'))  );
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')) );
    //eko ( utf8_decode($formx->getFormVar('Val_F_RADIO_Date')) );
    //eko ( $annee."-".$mois."-".$jour." ".utf8_decode($formx->getFormVar('Val_F_RADIO_Heure')).":".utf8_decode($formx->getFormVar('Val_F_RADIO_Minute')).":00");
    //eko ($param);
    $req = new clRequete(BDD, "radios", $param);
    $res = $req->addRecord();
    unset($param);
    global $options;
    if ($options->getOption('EnquetePoumonsFace') and $formx->getFormVar('Val_F_RADIO_Centre') == "Poumons Face") {
        $idradio = $res['cur_id'];
        $param['idradio'] = $idradio;
        $param['enquete'] = 'PoumonsFace';
        $param['indication'] = $formx->getFormVar('Val_F_RADIO_Indication');
        $param['recherche'] = $formx->getFormVar('Val_F_RADIO_Recherche');
        $req = new clRequete(BDD, "radios_enquetes", $param);
        $res = $req->addRecord();
    }
    //$res = $req -> Execute ( "Fichier", "putFormulaireRadioData", $param, "ResultQuery" ) ;
    //eko($res);
    return "";
}
Esempio n. 12
0
 function genFichePassage($res, $i)
 {
     global $session;
     global $options;
     // Chargement du template ModeliXe.
     if ($options->getOption('ModuleExport') == 'V2Allegee') {
         $mod = new ModeliXe("ExportV2FicheAllegee.html");
     } else {
         $mod = new ModeliXe("ExportV2Fiche.html");
     }
     $mod->SetModeliXe();
     $req = new clRequete(BDD, '', '');
     $sql = "select * from export where idpatient='" . $res['idpatient'][$i] . "'";
     $exp = $req->exec_requete($sql, 'resultquery');
     if (isset($exp['etat1'][0]) and $exp['etat1'][0]) {
         $mod->MxText('color1', 'green');
         $date = new clDate($exp['date1'][0]);
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=invalide&type=1');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',1,\'CCAM\');"';
         $img = '<img src="images/gg.gif" id="img1' . $res['idpatient'][$i] . '" alt="annuler" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement1', '<div id="text1' . $res['idpatient'][$i] . '" style="display:inline;">La partie CCAM de cet export a été traitée par ' . $exp['iduser1'][0] . ' le ' . $date->getDateTextFull('à') . '</div> ' . $img);
     } else {
         $mod->MxText('color1', 'red');
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=valide&type=1');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',1,\'CCAM\');"';
         $img = '<img src="images/dd.gif" id="img1' . $res['idpatient'][$i] . '" alt="valider" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement1', '<div id="text1' . $res['idpatient'][$i] . '" style="display:inline;">La partie CCAM de cet export n\'est pas traitée.</div> ' . $img);
     }
     if (isset($exp['etat2'][0]) and $exp['etat2'][0]) {
         $mod->MxText('color2', 'green');
         $date = new clDate($exp['date2'][0]);
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=invalide&type=2');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',2,\'NGAP\');"';
         $img = '<img src="images/gg.gif" id="img2' . $res['idpatient'][$i] . '" alt="annuler" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement2', '<div id="text2' . $res['idpatient'][$i] . '" style="display:inline;">La partie NGAP de cet export a été traitée par ' . $exp['iduser2'][0] . ' le ' . $date->getDateTextFull('à') . '</div> ' . $img);
     } else {
         $mod->MxText('color2', 'red');
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=valide&type=2');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',2,\'NGAP\');"';
         $img = '<img src="images/dd.gif" id="img2' . $res['idpatient'][$i] . '" alt="valider" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement2', '<div id="text2' . $res['idpatient'][$i] . '" style="display:inline;">La partie NGAP de cet export n\'est pas traitée.</div> ' . $img);
     }
     if (isset($exp['etat3'][0]) and $exp['etat3'][0]) {
         $mod->MxText('color3', 'green');
         $date = new clDate($exp['date3'][0]);
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=invalide&type=3');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',3,\'diagnostics\');"';
         $img = '<img src="images/gg.gif" id="img3' . $res['idpatient'][$i] . '" alt="annuler" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement3', '<div id="text3' . $res['idpatient'][$i] . '" style="display:inline;">La partie diagnostics de cet export a été traitée par ' . $exp['iduser3'][0] . ' le ' . $date->getDateTextFull('à') . '</div> ' . $img);
     } else {
         $mod->MxText('color3', 'red');
         $aja = XhamTools::genAjax('', 'setTraitement', 'navi=' . $session->genNaviFull() . '&idpatient=' . $res['idpatient'][$i] . '&setTraitement=valide&type=3');
         $ajax = 'onclick="' . $aja . 'inverserTraitement(' . $res['idpatient'][$i] . ',3,\'diagnostics\');"';
         $img = '<img src="images/dd.gif" id="img3' . $res['idpatient'][$i] . '" alt="valider" ' . $ajax . ' style="cursor: pointer; pointer: hand;" />';
         $mod->MxText('traitement3', '<div id="text3' . $res['idpatient'][$i] . '" style="display:inline;">La partie diagnostics de cet export n\'est pas traitée.</div> ' . $img);
     }
     // Etat Civil
     $mod->MxText('idpatient', XhamTools::getAV($res['idpatient'][$i]));
     $mod->MxText('idu', XhamTools::getAV($res['idu'][$i]));
     $mod->MxText('ilp', XhamTools::getAV($res['ilp'][$i]));
     $mod->MxText('nsej', XhamTools::getAV($res['nsej'][$i]));
     $mod->MxText('uf', XhamTools::getAV($res['uf'][$i]));
     $mod->MxText('manuel', $res['manuel'][$i] ? 'Oui' : 'Non');
     $mod->MxText('sexe', XhamTools::getAV($res['sexe'][$i]));
     $mod->MxText('nom', XhamTools::getAV(strtoupper($res['nom'][$i])));
     $mod->MxText('prenom', XhamTools::getAV(ucfirst(strtolower($res['prenom'][$i]))));
     $mod->MxText('naissance', XhamTools::getAV($res['dt_naissance'][$i], 'd/m/Y'));
     $mod->MxText('adresse', nl2br(XhamTools::getAV($res['adresse_libre'][$i])));
     $mod->MxText('cp', XhamTools::getAV($res['adresse_cp'][$i]));
     $mod->MxText('ville', XhamTools::getAV($res['adresse_ville'][$i]));
     $mod->MxText('tel', XhamTools::getAV($res['telephone'][$i]));
     $mod->MxText('medecintraitant', nl2br(XhamTools::getAV($res['medecin_traitant'][$i])));
     $mod->MxText('aPrevenir', nl2br(XhamTools::getAV($res['prevenir'][$i])));
     $mod->MxText('dt_admission', XhamTools::getAV($res['dt_admission'][$i], 'd/m/Y H:i:s'));
     $mod->MxText('dt_examen', XhamTools::getAV($res['dt_examen'][$i], 'd/m/Y H:i:s'));
     $mod->MxText('dt_sortie', XhamTools::getAV($res['dt_sortie'][$i], 'd/m/Y H:i:s'));
     // Informations de passage
     $mod->MxText('medecin', XhamTools::getAV($res['medecin_urgences'][$i]));
     $mod->MxText('ide', XhamTools::getAV($res['ide'][$i]));
     $mod->MxText('mode_admission', XhamTools::getAV($res['mode_admission'][$i]));
     $mod->MxText('adresseur', XhamTools::getAV($res['adresseur'][$i]));
     $mod->MxText('provenance', XhamTools::getAV($res['provenance'][$i]));
     $mod->MxText('recours_categorie', XhamTools::getAV($res['recours_categorie'][$i]));
     $mod->MxText('recours', XhamTools::getAV($res['motif_recours'][$i]));
     $mod->MxText('recours_code', XhamTools::getAV($res['recours_code'][$i]));
     $mod->MxText('gravite', XhamTools::getAV($res['code_gravite'][$i]));
     $mod->MxText('ccmu', XhamTools::getAV($res['ccmu'][$i]));
     $mod->MxText('gemsa', XhamTools::getAV($res['gemsa'][$i]));
     $mod->MxText('souhaitee', XhamTools::getAV($res['dest_souhaitee'][$i]));
     $mod->MxText('confirmee', XhamTools::getAV($res['dest_attendue'][$i]));
     $mod->MxText('salle', XhamTools::getAV($res['salle_examen'][$i]));
     $mod->MxText('traumato', XhamTools::getAV($res['traumato'][$i]));
     $mod->MxText('motifTransfert', XhamTools::getAV($res['motif_transfert'][$i]));
     $mod->MxText('moyenTransport', XhamTools::getAV($res['motif_transport'][$i]));
     $mod->MxText('destPMSI', XhamTools::getAV($res['dest_pmsi'][$i]));
     $mod->MxText('orientation', XhamTools::getAV($res['orientation'][$i]));
     $mod->MxText('', XhamTools::getAV($res[''][$i]));
     // CCAM
     $req = new clResultQuery();
     $param['cw'] = "WHERE DISCR=" . $res['idpatient'][$i] . ' order by ID';
     $ras = $req->Execute("Fichier", "CCAM_getActesBAL", $param, "ResultQuery");
     //$mod -> MxText ( 'ccam', affTab ( $res['INDIC_SVC'] ) ) ;
     //eko ( $ras['INDIC_SVC'] ) ;
     if ($ras['INDIC_SVC'][2]) {
         $toDelete = array();
         // Epuration des actes et diagnostics supprimés
         for ($k = 0; isset($ras['ID'][$k]); $k++) {
             $tabActe = explode('|', $ras['CONTENU'][$k]);
             if ($tabActe[9] == "suppression") {
                 $toDelete[$tabActe[10] . $tabActe[22]] = $tabActe[10] . $tabActe[22];
             }
         }
         //eko ( $toDelete ) ;
         for ($i = 0; isset($ras['ID'][$i]); $i++) {
             $tabActe = explode('|', $ras['CONTENU'][$i]);
             $type = $ras['TYPE'][$i];
             $idpass = $tabActe[0];
             $idu = $tabActe[1];
             $nomu = $tabActe[2];
             $pren = $tabActe[3];
             $sexe = $tabActe[4];
             $dtnai = $tabActe[5];
             $dtdem = $tabActe[6];
             $hhdem = $tabActe[7];
             $ufd = $tabActe[8];
             $action = $tabActe[9];
             $idact = $tabActe[10];
             $cdccam = $tabActe[11];
             $cddiags = $tabActe[12];
             $cdacti = $tabActe[13];
             $cdphase = $tabActe[14];
             $dtr = $tabActe[15];
             $hhr = $tabActe[16];
             $nomumed = $tabActe[17];
             $prenmed = $tabActe[18];
             $adeli = $tabActe[19];
             $ufr = $tabActe[20];
             $modif = $tabActe[21];
             $ngapl = $tabActe[22];
             $ngapc = $tabActe[23];
             $factu = $tabActe[24];
             $cdasso = $tabActe[25];
             $nuitjf = $tabActe[26];
             if (!in_array($idact . $ngapl, $toDelete) and $action != 'suppression') {
                 //if ( ! in_array( $idact, $toDelete ) ) {
                 $lib = $this->getActeLibelle($tabActe[11], $ras['TYPE'][$i]);
                 $libSansHTML = $this->getActeLibelle($tabActe[11], $ras['TYPE'][$i], "1");
                 $mod->MxText('acte.ligne', $action);
                 //$mod -> MxText ( 'acte.action', $action ) ;
                 $mod->MxText('acte.type', $type);
                 $mod->MxText('acte.date', $dtr);
                 $mod->MxText('acte.heure', $hhr);
                 $mod->MxText('acte.uf', $ufr);
                 $mod->MxText('acte.code', $cdccam);
                 $mod->MxText('acte.autreDiags', XhamTools::getAV($cddiags));
                 $mod->MxText('acte.asso', XhamTools::getAV($cdasso));
                 $mod->MxText('acte.facture', XhamTools::getAV($factu));
                 $mod->MxText('acte.nuitjf', XhamTools::getAV($nuitjf));
                 $mod->MxText('acte.modificateurs', XhamTools::getAV($modif));
                 $mod->MxText('acte.codeActivite', XhamTools::getAV($cdacti));
                 $mod->MxText('acte.codePhase', XhamTools::getAV($cdphase));
                 $mod->MxText('acte.lettreCle', XhamTools::getAV($ngapl . '-' . $ngapc));
                 $mod->MxText('acte.medecin', XhamTools::getAV($nomumed));
                 $mod->MxText('acte.adeli', XhamTools::getAV($adeli));
                 $mod->MxText('acte.description', XhamTools::getAV($libSansHTML));
                 $mod->MxBloc('acte', 'loop');
             } else {
                 unset($toDelete[$idact . $ngapl]);
             }
         }
     } else {
         $mod->MxBloc('acte', 'replace', '<tr><td colspan=16>Aucun acte.</td></tr>');
     }
     // On retourne le code HTML généré par le template.
     return $mod->MxWrite("1");
 }
Esempio n. 13
0
 function addMedecins()
 {
     /*****************************************************************************/
     global $session;
     if (is_array($_POST['listeGauche'])) {
         while (list($key, $val) = each($_POST['listeGauche'])) {
             if ($val and $val != "aucun#") {
                 unset($paramRq);
                 // Recherche du nom du medecin
                 if ($_POST['idListeSelection1'] == "Urgentiste") {
                     $paramRq[code] = $val;
                     $paramRq[idDomaine] = CCAM_IDDOMAINE;
                     $req = new clResultQuery();
                     $res = $req->Execute("Fichier", "CCAM_getNomMedURG", $paramRq, "ResultQuery");
                     $nom = $res["nomitem"][0];
                     $type = "Urgentiste";
                 } else {
                     if ($_POST['idListeSelection1'] == "Toutes") {
                         $paramRq[code] = $val;
                         $paramRq[idDomaine] = CCAM_IDDOMAINE;
                         $req = new clResultQuery();
                         $res = $req->Execute("Fichier", "CCAM_getNomMedURG", $paramRq, "ResultQuery");
                         $nom = $res["nomitem"][0];
                         $type = "Urgentiste";
                         if ($res[INDIC_SVC]["2"] == 0) {
                             $paramRq[code] = $val;
                             $paramRq[idDomaine] = CCAM_IDDOMAINE;
                             $req = new clResultQuery();
                             $res = $req->Execute("Fichier", "CCAM_getNomMedSPEC", $paramRq, "ResultQuery");
                             $nom = $res["nomitem"][0];
                             $type = $res["nomliste"][0];
                         }
                     } else {
                         $paramRq[code] = $val;
                         $paramRq[idDomaine] = CCAM_IDDOMAINE;
                         $req = new clResultQuery();
                         $res = $req->Execute("Fichier", "CCAM_getNomMedSPEC", $paramRq, "ResultQuery");
                         $nom = $res["nomitem"][0];
                         $type = $res["nomliste"][0];
                     }
                 }
                 unset($param);
                 $param[speMedecin] = $type;
                 $param[codeMedecin] = $val;
                 $param[nomMedecin] = addslashes($nom);
                 $param[idDomaine] = CCAM_IDDOMAINE;
                 $majrq = new clRequete(CCAM_BDD, "ccam_anesthesie_domaine", $param);
                 $majrq->addRecord();
             }
         }
         $retourInfos = "Les médecins sélectionnés ont été insérés dans la liste des médecins autorisés à pratiquer une anesthésie";
         return $retourInfos;
     }
 }
Esempio n. 14
0
 function modItem()
 {
     global $session;
     global $options;
     global $errs;
     $req = new clResultQuery();
     // Récupération des anciennes informations de l'item à modifier.
     $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND nomliste='" . $_POST['liste'] . "' AND iditem='" . $_POST['item'] . "'";
     $res1 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
     // Récupération de tous les autres items.
     $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND categorie='" . $this->type . "' AND nomliste='" . $_POST['liste'] . "'";
     $res2 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
     // Vérification de la présence d'une liste portant le nouveau nom.
     $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND nomitem='" . $_POST['nomItemF'] . "' and iditem!='" . $res1[iditem][0] . "' AND nomliste='" . $_POST['liste'] . "'";
     $res3 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
     // Vérification que l'item existe.
     if ($res1[INDIC_SVC] > 0) {
         // Vérification d'un changement de nom.
         if ($res1[nomitem][0] != stripslashes($_POST['nomItemF'])) {
             // Nouveau nom libre ou pas.
             if ($res3[INDIC_SVC][2] == 0) {
                 // Nouveau nom correct.
                 if (eregi("[0-9a-zA-Z]", $_POST['nomItemF'])) {
                     // Mise à jour du nom de l'item dans la base.
                     $data[nomitem] = $_POST['nomItemF'];
                     $requete = new clRequete(CCAM_BDD, "ccam_liste", $data);
                     $requete->updRecord("iditem='" . $_POST['item'] . "'");
                     // Message d'information.
                     $this->infos .= "L'item \"" . $res1[nomitem][0] . "\" de la liste \"" . stripslashes($_POST['liste']) . "\" a changé de nom : \n                             \"" . stripslashes($_POST['nomItemF']) . "\".<br />";
                 } else {
                     // Message d'erreur.
                     $this->erreurs .= "Le nom choisi ne doit pas être vide.";
                 }
             } else {
                 // Message d'erreur.
                 $this->erreurs .= "Le nom choisi pour l'item \"" . $res1[nomitem][0] . "\" est déjà utilisé. La modification est annulée.<br />";
             }
         }
         // On vérifie si l'item a changé de position ou non.
         if ($_POST['item'] != $_POST['placerF']) {
             // Suppression du rang actuel et décalage du rang des autres items.
             $rang = $res1[rang][0];
             $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND rang>'{$rang}' AND categorie='" . $this->type . "' AND nomitem!='LISTE' AND nomliste='" . $_POST['liste'] . "'";
             $res4 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
             for ($i = 0; isset($res4[iditem][$i]); $i++) {
                 $data3[rang] = $res4[rang][$i] - 1;
                 $requete = new clRequete(CCAM_BDD, "ccam_liste", $data3);
                 $requete->updRecord("iditem='" . $res4[iditem][$i] . "'");
             }
             // Calcul du rang suivant.
             if ($_POST['placerF']) {
                 $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND iditem='" . $_POST['placerF'] . "' AND categorie='" . $this->type . "'";
                 $res6 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
                 $rang = $res6[rang][0] + 1;
             } else {
                 $rang = 1;
             }
             // Décalage de tous les items d'un rang.
             $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND rang>='{$rang}' AND categorie='" . $this->type . "' AND nomitem!='LISTE' AND nomliste='" . $_POST['liste'] . "'";
             $res5 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
             for ($i = 0; isset($res5[iditem][$i]); $i++) {
                 $data4[rang] = $res5[rang][$i] + 1;
                 $requete = new clRequete(CCAM_BDD, "ccam_liste", $data4);
                 $requete->updRecord("iditem='" . $res5[iditem][$i] . "'");
             }
             // Mise à jour du rang de l'item.
             if ($_POST['placerF']) {
                 $data5[rang] = $res6[rang][0] + 1;
             } else {
                 $data5[rang] = 1;
             }
             $requete = new clRequete(CCAM_BDD, "ccam_liste", $data5);
             $requete->updRecord("iditem='" . $res1[iditem][0] . "'");
             // Message d'information.
             $this->infos .= "L'item \"" . $res1[nomitem][0] . "\" a changé de position.<br />";
             /*if ($this->type == "ListeMédecins" ) {
                 $dataUf[code] = $_POST['ufF'] ;
                 $requete = new clRequete ( CCAM_BDD, "ccam_liste", $dataUf ) ;
                 $requete->updRecord ( "nomitem='LISTE' and nomliste='".$_REQUEST["liste"]."'" ) ;
               
               // Mise à jour de l'Uf dans la table ccam_uf_spe
                 $dataSpe[numeroUF] = $_POST['ufF'] ;
                 $requete = new clRequete ( CCAM_BDD, "ccam_uf_spe", $dataSpe ) ;
                 $requete->updRecord ( "libelleSpecialite='".$_REQUEST["liste"]."'" ) ;  
               
               }*/
         }
         // On vérifie si le code a changé.
         if ($res1[code][0] != $_POST['codeF']) {
             $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND code='" . $_POST['codeF'] . "' AND categorie='" . $this->type . "' AND nomliste='" . $_POST['liste'] . "'";
             $res6 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery");
             if (eregi("[0-9a-zA-Z]", $_POST['codeF']) && $this->type != "Documents") {
                 // code modifié pour permettre de saisir des codes ADELI non unique
                 if ($res6[INDIC_SVC][2] > 0 && $this->type != "Documents") {
                     $this->erreurs .= "L'item \"" . $res6[nomitem][0] . "\" a déjà ce code attribué. Merci d'en choisir un autre.";
                 } else {
                     // Mise à jour du rang de l'item.
                     if ($_POST['codeF']) {
                         $data6[code] = $_POST['codeF'];
                     } else {
                         $data6[code] = '_';
                     }
                     $requete = new clRequete(CCAM_BDD, "ccam_liste", $data6);
                     $requete->updRecord("iditem='" . $res1[iditem][0] . "'");
                     $this->infos .= "Le code \"" . $res1[code][0] . "\" de l'item \"" . $res1[nomitem][0] . "\" a changé : \"" . stripslashes($_POST['codeF']) . "\"<br />";
                 }
             } else {
                 $this->erreurs = "Le code ne doit pas être vide.";
             }
         }
     } else {
         // Signalement d'une erreur si l'item à modifier n'existe pas.
         $this->erreurs .= "L'item ne peut pas être modifié (id=\"{$idItem}\") car il n'existe pas.";
         $errs->addErreur("clListesGenerales : L'item ne peut pas être modifié (id=\"{$idIditem}\") car il n'existe pas.");
     }
 }
Esempio n. 15
0
 function majPatientHL7($data, $table, $ilp = '', $base = BDD, $res = '')
 {
     global $errs;
     unset($data['uf']);
     unset($data['prevenir']);
     unset($data['medecin_traitant']);
     unset($data['mode_admission']);
     if ($ilp) {
         unset($data['nsej']);
         unset($data['dt_admission']);
         $requete = new clRequete($base, $table, $data);
         $res = $requete->updRecord("ilp='" . $data['ilp'] . "'");
     } elseif ($data['nsej']) {
         if ($res['dt_sortie'][0] != '0000-00-00 00:00:00') {
             $dates = new clDate($res['dt_sortie'][0]);
             $datea = new clDate($data['dt_admission']);
             eko($data['dt_admission']);
             if ($datea->getTimestamp() > $dates->getTimestamp()) {
                 unset($data['dt_admission']);
             }
             eko($data['dt_admission']);
         }
         $requete = new clRequete($base, $table, $data);
         $res = $requete->updRecord("nsej='" . $data['nsej'] . "'");
     }
     if ($ilp) {
         //$errs->addErreur ( afftab($res) ) ;
     }
     //eko ( $data ) ;
     //eko ( $res ) ;
     $this->mods1++;
 }
Esempio n. 16
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++;
    }
}
Esempio n. 17
0
 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 Creation_Dossier_Colectomie_Periode_P4($formx)
{
    global $session;
    global $options;
    //recuperation de toutes les variables du formulaire dans un tableau pour que ça aille plus vite
    $dom = $formx->XMLDOM;
    $listItems = $dom->getElementsByTagName('ITEM');
    foreach ($listItems as $item) {
        $nomItem = $item->getAttribute('id');
        $valItem = $item->getElementsByTagName('Val')->item(0)->nodeValue;
        $tabValeurs[$nomItem] = utf8_decode($valItem);
    }
    //-------------------------------------------
    //fonctions qui utililsent DOM
    //-------------------------------------------
    function createEtape($objFormx, $idEtape, $libelleEtape, $tabAttributs)
    {
        $neudFormx = $objFormx->XMLDOM->getElementsByTagName('FORMX')->item(0);
        $etapeTemp = $objFormx->XMLDOM->createElement('ETAPE');
        $etape = $neudFormx->appendChild($etapeTemp);
        foreach ($tabAttributs as $key => $value) {
            $etape->setAttribute($key, utf8_encode($value));
        }
        $libelle = $objFormx->XMLDOM->createElement('Libelle', utf8_encode($libelleEtape));
        $etape->appendChild($libelle);
        return $etape;
    }
    function createItem($objFormx, $etape, $id, $libelle, $type, $val)
    {
        $item = $objFormx->XMLDOM->createElement('ITEM');
        $item = $etape->appendChild($item);
        //Atributs de l'item
        $item->setAttribute('id', $id);
        $item->setAttribute('type', $type);
        //libelle de l'item
        $libelle = $objFormx->XMLDOM->createElement('Libelle', utf8_encode($libelle));
        $item->appendChild($libelle);
        //creation et affectation de la balise Val
        $val = $objFormx->XMLDOM->createElement('Val', utf8_encode($val));
        $item->appendChild($val);
    }
    //-----------------------------------
    //Exemples d'utilisation
    //-----------------------------------
    //Creation d'un nouveau formulaire de type 'coin'
    $ids = $formx->getIDS();
    // On va supprimer tous les fichiers Dossier_Colectomie_Periode_P1 de la table formx
    $requete = new clRequete(BDD, TABLEFORMX, $param);
    $sql = $requete->delRecord("idformx='Dossier_Colectomie_Periode_P4' and ids='" . $ids . "'");
    $formx2 = new clFoRmX($ids, 'NO_POST_THREAT');
    $formx2->loadForm('Dossier_Colectomie_Periode_P4');
    //ajout d 'une étape
    $etape = createEtape($formx2, '1', 'IDENTITE DU PATIENT', array('etat' => 'fini'));
    createItem($formx2, $etape, 'id1', '<span style="color:green;">Nom</span>', 'TXT', $tabValeurs['Val_IDENT_NomPatient']);
    createItem($formx2, $etape, 'id2', '<span style="color:green;">Prénom</span>', 'TXT', $tabValeurs['Val_IDENT_PrenomPatient']);
    //createItem($formx2,$etape,'id3','Sexe','TXT',  $tabValeurs['Val_IDENT_SexePat']);
    createItem($formx2, $etape, 'id4', '<span style="color:green;">Date de naissance</span>', 'TXT', $tabValeurs['Val_IDENT_DateNPat2']);
    createItem($formx2, $etape, 'id5', '<span style="color:green;">Age</span>', 'TXT', $tabValeurs['Val_IDENT_AgePat']);
    createItem($formx2, $etape, 'id6', '<span style="color:green;">Adresse</span>', 'TXT', $tabValeurs['Val_IDENT_AdressePat']);
    createItem($formx2, $etape, 'id7', '<span style="color:green;">Code postal</span>', 'TXT', $tabValeurs['Val_IDENT_CodePPat']);
    createItem($formx2, $etape, 'id8', '<span style="color:green;">Ville</span>', 'TXT', $tabValeurs['Val_IDENT_VillePat']);
    createItem($formx2, $etape, 'id9', '<span style="color:green;">Telephone</span>', 'TXT', $tabValeurs['Val_IDENT_TelPat']);
    createItem($formx2, $etape, 'id10', '<span style="color:green;">Profession</span>', 'TXT', $tabValeurs['Val_Main_Profession']);
    createItem($formx2, $etape, 'id11', '<span style="color:green;">Statut profession</span>', 'TXT', $tabValeurs['Val_Main_StatutProfession']);
    createItem($formx2, $etape, 'id12', '<span style="color:green;">IDU</span>', 'TXT', $tabValeurs['Val_IDENT_IDUPatient']);
    createItem($formx2, $etape, 'id13', '<span style="color:green;">ILP</span>', 'TXT', $tabValeurs['Val_IDENT_ILPPatient']);
    createItem($formx2, $etape, 'id14', '<span style="color:green;">Jour de consultation du patient</span>', 'TXT', $tabValeurs['Val_Jour_Consultation']);
    createItem($formx2, $etape, 'id15', '<span style="color:green;">Heure de consultation du patient</span>', 'TXT', $tabValeurs['Val_Heure_Consultation']);
    createItem($formx2, $etape, 'd1', '', 'TXT', '');
    createItem($formx2, $etape, 'd2', '', 'TXT', '');
    createItem($formx2, $etape, 'd3', '', 'TXT', '');
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Actes']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Pre_Med', '<span style="color:#336666;font-weight:bold;">---- PRESCRIPTIONS MEDICALES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pre_Med']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Bil_Pro', '<span style="color:green;">Bilan selon le protocole à definir</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Bil_Pro']);
    if ($tabValeurs['Colectomie_Periode_P4_Bil_Pro_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Bil_Pro_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Bil_Pro_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Pri_Cha', '<span style="color:green;">Prise en charge de la douleur réajustement et relais per os de l\'antalgique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pri_Cha']);
    if ($tabValeurs['Colectomie_Periode_P4_Pri_Cha_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Pri_Cha_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pri_Cha_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Sng', '<span style="color:green;">Arrêt SNG</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Sng']);
    if ($tabValeurs['Colectomie_Periode_P4_Arr_Sng_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Sng_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Sng_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Son', '<span style="color:green;">Arrêt sonde urinaire</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Son']);
    if ($tabValeurs['Colectomie_Periode_P4_Arr_Son_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Son_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Son_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Cat', '<span style="color:green;">Arrêt cathéter de la péridurale</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Cat']);
    if ($tabValeurs['Colectomie_Periode_P4_Arr_Cat_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Cat_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Cat_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Voi', '<span style="color:green;">Arrêt voie veineuse</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Voi']);
    if ($tabValeurs['Colectomie_Periode_P4_Arr_Voi_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Arr_Voi_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Arr_Voi_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Mob_Dra', '<span style="color:green;">Mobilisation des drains</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Mob_Dra']);
    if ($tabValeurs['Colectomie_Periode_P4_Mob_Dra_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Mob_Dra_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Mob_Dra_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Mob_Lam', '<span style="color:green;">Mobilisation de la lame</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Mob_Lam']);
    if ($tabValeurs['Colectomie_Periode_P4_Mob_Lam_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Mob_Lam_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Mob_Lam_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Soi', '<span style="color:#336666;font-weight:bold;">---- SOINS</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Soi']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Ref_Pan', '<span style="color:green;">Réfection du pansement</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ref_Pan']);
    if ($tabValeurs['Colectomie_Periode_P4_Ref_Pan_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Ref_Pan_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ref_Pan_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Rep_Tran', '<span style="color:green;">Reprise du transit</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Rep_Tran']);
    if ($tabValeurs['Colectomie_Periode_P4_Rep_Tran_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Rep_Tran_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Rep_Tran_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut', '<span style="color:#336666;font-weight:bold;">---- AUTONOMIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Fau', '<span style="color:green;">Fauteuil</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Fau']);
    if ($tabValeurs['Colectomie_Periode_P4_Aut_Fau_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Fau_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Fau_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Mar', '<span style="color:green;">Marche</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Mar']);
    if ($tabValeurs['Colectomie_Periode_P4_Aut_Mar_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Mar_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Mar_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Kin', '<span style="color:green;">Kiné</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Kin']);
    if ($tabValeurs['Colectomie_Periode_P4_Aut_Kin_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Aut_Kin_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Aut_Kin_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Ali', '<span style="color:#336666;font-weight:bold;">---- ALIMENTATION</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ali']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Eau_Bou', '<span style="color:green;">Eau bouillon tisane</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Eau_Bou']);
    if ($tabValeurs['Colectomie_Periode_P4_Eau_Bou_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Eau_Bou_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Eau_Bou_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Com_Flo', '<span style="color:green;">Compote Floraline</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Com_Flo']);
    if ($tabValeurs['Colectomie_Periode_P4_Com_Flo_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Com_Flo_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Com_Flo_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Ali_Sol', '<span style="color:green;">Alimentation solide</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ali_Sol']);
    if ($tabValeurs['Colectomie_Periode_P4_Ali_Sol_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Ali_Sol_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ali_Sol_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Pre', '<span style="color:#336666;font-weight:bold;">---- PREPARATION DE LA SORTIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pre']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Org_Sor', '<span style="color:green;">Organisation de la sortie</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Org_Sor']);
    if ($tabValeurs['Colectomie_Periode_P4_Org_Sor_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Org_Sor_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Org_Sor_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Inf', '<span style="color:#336666;font-weight:bold;">---- INFORMATION EDUCATION</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Inf']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Ann_Sg', '<span style="color:green;">Annonce du Diag à J7</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ann_Sg']);
    if ($tabValeurs['Colectomie_Periode_P4_Ann_Sg_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Ann_Sg_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Ann_Sg_C']);
    }
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Res', '<span style="color:#336666;font-weight:bold;">---- RESULTAT OBTENUS POUR LE PATIENT</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Res']);
    createItem($formx2, $etape, 'Colectomie_Periode_P4_Pat_Par', '<span style="color:green;">Le patient participe pour retrouver progressivement son autonomie antérieure</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pat_Par']);
    if ($tabValeurs['Colectomie_Periode_P4_Pat_Par_C'] != "") {
        createItem($formx2, $etape, 'Colectomie_Periode_P4_Pat_Par_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P4_Pat_Par_C']);
    }
    //enregistrement initial du formulaire formx
    $formx2->initInstance();
    //modification pour qu'il soit en etat 'Fini'
    $formx2->makeBalVal($formx2->XMLDOM->documentElement, "STATUS", 'F');
    $formx2->close();
}
Esempio n. 19
0
 function copierActes()
 {
     global $session;
     //Récupération des actes affectés au diagnostic sélectionné
     unset($param);
     $param[idDomaine] = CCAM_IDDOMAINE;
     $param[idListeSelection1] = $_POST[idListeSelection1];
     $param[cw] = "";
     $param[order] = "identifiant";
     $req = new clResultQuery();
     $res = $req->Execute("Fichier", "CCAM_getActesDiags", $param, "ResultQuery");
     //eko($res[INDIC_SVC]);
     unset($actes);
     for ($i = 0; isset($res[identifiant][$i]); $i++) {
         $actes[] = $res[identifiant][$i];
     }
     if (is_array($_POST['listeDroite'])) {
         while (list($key, $val) = each($_POST['listeDroite'])) {
             if ($val and $val != "aucun#") {
                 reset($actes);
                 for ($i = 0; $i < count($actes); $i++) {
                     unset($param);
                     $param[idDomaine] = CCAM_IDDOMAINE;
                     $param[idListeSelection1] = $val;
                     $param[cw] = "and rel.idActe='{$actes[$i]}'";
                     $param[order] = "identifiant";
                     $req = new clResultQuery();
                     $res = $req->Execute("Fichier", "CCAM_getActesDiags", $param, "ResultQuery");
                     //eko($res[INDIC_SVC]);
                     if ($res[INDIC_SVC][2] == 0) {
                         unset($param);
                         $param[idDiag] = $val;
                         $param[idDomaine] = CCAM_IDDOMAINE;
                         $param[idActe] = $actes[$i];
                         $majrq = new clRequete(CCAM_BDD, "ccam_actes_diagnostic", $param);
                         $majrq->addRecord();
                     }
                 }
             }
         }
         $retourInfos = "Les actes rattachés au diagnostic '" . $_POST['idListeSelection1'] . "' ont été affectés aux diagnostics sélectionnés";
         return $retourInfos;
     }
 }
Esempio n. 20
0
 function addDoc()
 {
     global $session;
     global $errs;
     $date = new clDate();
     // Message d'information.
     $this->infos .= "Création du document \"" . stripslashes($_POST['nomDoc']) . "\" effectuée.";
     if ($_POST['newCategorie']) {
         $data[categorie] = $_POST['newCategorie'];
     } else {
         if ($_POST['listeCategories']) {
             $data[categorie] = $_POST['listeCategories'];
         } else {
             $data[categorie] = "Non classés";
         }
     }
     // Vérification de la validité du nom du document.
     if (eregi("[0-9a-zA-Z]", $_POST['nomDoc'])) {
         $data[nom] = stripslashes($_POST['nomDoc']);
     } else {
         $data[nom] = $date->getDatetime;
     }
     $data[contenu] = stripslashes($_POST['contenu']);
     $data[deb_validite] = $date->getDatetime();
     $data[version] = 1;
     $requete = new clRequete(BDD, "documents", $data);
     $requete->addRecord();
 }
Esempio n. 21
0
 public function del()
 {
     $requete = new clRequete(BDD, $this->nomTable);
     $sql = $requete->delRecord($this->nomId . '=' . $this->id);
 }
Esempio n. 22
0
 function delGroupe()
 {
     if (stripslashes($_POST['idGroupe']) == "Invité" or stripslashes($_POST['idGroupe']) == "HOPI") {
         $this->erreurs .= "Ce groupe ne peut être supprimé, il est nécessaire au fonctionnement de l'application.";
     } else {
         // Appel de la classe Requete.
         $requete = new clRequete(BASEXHAM, "groupes");
         // Exécution de la requete.
         $res = $requete->delRecord("nomgroupe=\"" . $_POST['idGroupe'] . "\"");
         // Gestion des messages d'erreurs ou d'informations.
         if ($res['error']) {
             $this->erreurs .= "Une erreur a été rencontré lors de la tentative de suppression du groupe \"" . stripslashes($_POST['idGroupe']) . "\".<br/>Le problème a été signalé à l'administrateur.";
         } else {
             $this->infos .= "Le groupe \"" . stripslashes($_POST['idGroupe']) . "\" a été supprimé.";
         }
     }
 }
Esempio n. 23
0
 function majOptionsProd()
 {
     // Récupération de la liste des options en dev.
     $req = new clResultQuery();
     $param['cw'] = "WHERE idapplication=" . IDAPPLICATION;
     $res = $req->Execute("Fichier", "getOptions", $param, "ResultQuery");
     //eko ( $res[INDIC_SVC] ) ;
     // Préparation de la liste des attributs d'une option.
     while (list($key, $val) = each($res)) {
         if ($key != "INDIC_SVC" and $key != "idoption") {
             $keys[] = $key;
         }
     }
     // Pour chaque option,
     for ($i = 0; isset($res['idoption'][$i]); $i++) {
         // On regarde si elle existe en production.
         $param['cw'] = "WHERE libelle='" . addslashes($res['libelle'][$i]) . "' AND idapplication=" . IDAPPLICATION;
         $ras = $req->Execute("Fichier", "getOptionsProd", $param, "ResultQuery");
         //eko ( $ras[INDIC_SVC] ) ;
         // S'il elle n'existe pas,
         if (!$ras['INDIC_SVC'][2]) {
             // On prépare le tableau contenant les données de l'option.
             for ($j = 0; isset($keys[$j]); $j++) {
                 $data[$keys[$j]] = $res[$keys[$j]][$i];
             }
             // Et on crée cette option en production.
             $raq = new clRequete(BASEXHAM, TABLEOPTS, $data, 'prod');
             $ris = $raq->addRecord();
             eko("insert : " . $res['libelle'][$i]);
             // Si elle existe,
         } else {
             // On crée le tableau contenant les champs à mettre à jour.
             for ($j = 0; isset($keys[$j]); $j++) {
                 if ($keys[$j] != "valeur") {
                     $data[$keys[$j]] = $res[$keys[$j]][$i];
                 }
             }
             // Mise à jour de l'option.
             eko("update : " . $res['libelle'][$i]);
             $raq = new clRequete(BASEXHAM, TABLEOPTS, $data, 'prod');
             $ris = $raq->updRecord("libelle='" . addslashes($res['libelle'][$i]) . "' AND idapplication=" . IDAPPLICATION);
         }
     }
     // Message d'information sur l'opération effectuée.
     $this->infos .= "La liste des droits a été mise à jour en production.";
 }
Esempio n. 24
0
 function delDiags()
 {
     global $session;
     unset($retourInfos);
     unset($param);
     $param[idActe] = $_POST['nvxCode'];
     $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine", $param);
     $requete->delRecord("idActe='{$param['idActe']}' AND idDomaine=" . CCAM_IDDOMAINE);
     $requete = new clRequete(CCAM_BDD, "ccam_actes_Diags", $param);
     $requete->delRecord("idDiags='{$param['idActe']}' AND idDomaine=" . CCAM_IDDOMAINE);
     $retourInfos[infos] = "La famille d'actes '" . $_POST['nvxCode'] . "' et les actes associés ont été supprimés";
     return $retourInfos;
 }
Esempio n. 25
0
 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");
     }
 }
Esempio n. 26
0
 function tarifsNGAP()
 {
     global $session;
     //On a lancer le rapatriement des tarifs depuis Pastel
     if ($_POST['imgCalcul_x'] and $session->getDroit("CCAM_TarifsNGAP", "w")) {
         $req = new clResultQuery();
         $res = $req->Execute("Fichier", "Tarifs_getTarifNGAP", array(), "ResultQuery");
         eko($res);
         $mail = "";
         for ($i = 0; isset($res[LC][$i]); $i++) {
             $lc = $res[LC][$i];
             unset($param);
             //if ($res[TARIF][$i]!="0"){ // code de Christophe Boulet
             if ($res[TARIF][$i] >= 0) {
                 // modification François Derock
                 $param[tarif] = str_replace(",", ".", $res[TARIF][$i]);
                 $req = new clResultQuery();
                 unset($paramRq);
                 $paramRq[cw] = "lc='{$lc}'";
                 $res2 = $req->Execute("Fichier", "CCAM_getLC", $paramRq, "ResultQuery");
                 //eko($res2[INDIC_SVC]);
                 if ($res2[INDIC_SVC][2]) {
                     $requete = new clRequete(CCAM_BDD, "ccam_lettres_cle", $param);
                     $retourRequete = $requete->updRecord("lc='{$lc}'");
                 } else {
                     $param[lc] = $param[lcNat] = $lc;
                     $requete = new clRequete(CCAM_BDD, "ccam_lettres_cle", $param);
                     $retourRequete = $requete->addRecord();
                 }
             } else {
                 $mail .= "{$lc}, ";
             }
         }
         if ($mail) {
             $mail = substr($mail, 0, -2);
             $content_type = "Content-Type: text/html; charset=\"iso-8859-1\"";
             $head = "From: " . Erreurs_MailApp . "\n" . $content_type . "\n";
             $sujetMail = "Terminal des urgences : Mise à jour des tarifs des lettres-clé NGAP";
             $txtMsg = "<b>Anomalie : </b>La mise à jour des tarifs (source PASTEL) renvoit '0' pour les lettres-clé suivantes : {$mail}<br>\r\n\t\t\t==> Les tarifs n'ont pas été mis à jour pour ces lettres-clés<p>\r\n\t\t\t<i>Ce mail est envoyé automatiquement</i>";
             mail(Erreurs_Mail . "," . Erreurs_Mail_WebMaster, $sujetMail, $txtMsg, $head);
             //
             $retourInfos[erreur] = "Certains tarifs sont à '0' dans PASTEL. Un mail de synthèse a été envoyé. Leur mise à jour a été annulée.";
         } else {
             $content_type = "Content-Type: text/html; charset=\"iso-8859-1\"";
             $head = "From: " . Erreurs_MailApp . "\n" . $content_type . "\n";
             $sujetMail = "Terminal des urgences : Mise à jour des tarifs des lettres-clé NGAP";
             $txtMsg = "Les correspondances nationales et les tarifs ont été mis à jour à partir des données PASTEL<p>\r\n\t\t<i>Ce mail est envoyé automatiquement</i>";
             mail(Erreurs_Mail . "," . Erreurs_Mail_WebMaster, $sujetMail, $txtMsg, $head);
             //
             $retourInfos[infos] = "Les correspondances nationales et les tarifs ont été mis à jour à partir des données PASTEL";
         }
     }
     //On a validé les modifications
     if ($_POST['imgValider_x'] and $session->getDroit("CCAM_TarifsNGAP", "w")) {
         $req = new clResultQuery();
         unset($paramRq);
         $paramRq[cw] = "lc!=''";
         $res = $req->Execute("Fichier", "CCAM_getLC", $paramRq, "ResultQuery");
         //eko($res[INDIC_SVC]);
         for ($i = 0; isset($res[lc][$i]); $i++) {
             $lc = $res[lc][$i];
             $varLC = "LC_" . $lc;
             $tarifLC = "tarif_" . $lc;
             unset($param);
             $param[lcNat] = $_POST[$varLC];
             $param[tarif] = str_replace(",", ".", $_POST[$tarifLC]);
             $requete = new clRequete(CCAM_BDD, "ccam_lettres_cle", $param);
             $retourRequete = $requete->updRecord("lc='{$lc}'");
         }
         $retourInfos[infos] = "Les correspondances nationales et les tarifs ont été modifiés";
     }
     // Appel du template
     $mod = new ModeliXe("CCAM_TarifsNGAP.mxt");
     $mod->SetModeliXe();
     if ($retourInfos[infos]) {
         $this->infos = $retourInfos[infos];
     } elseif ($retourInfos[erreur]) {
         $this->erreurs = $retourInfos[erreur];
     }
     if ($session->getDroit("CCAM_TarifsNGAP", "w")) {
         if (!$_POST['imgModifier_x']) {
             $mod->MxFormField("modifier.imgModifier", "image", "imgModifier", "", "src=\"" . URLIMG . "modifier2.gif\" align=\"abscenter\" \r\n\t\t\ttitle=\"Modifier les correspondances nationales et les tarifs\"");
             $mod->MxFormField("maj.imgCalcul", "image", "imgCalcul", "", "src=\"" . URLIMG . "calculer.gif\" align=\"abscenter\" \r\n\t\t\ttitle=\"Rapatrier les tarifs depuis PASTEL\"");
             $mod->MxBloc("valider", "delete");
         } else {
             $mod->MxFormField("valider.imgValider", "image", "imgValider", "", "src=\"" . URLIMG . "Ok.gif\" align=\"abscenter\" \r\n\t\t\ttitle=\"Valider les modifications\"");
             $mod->MxFormField("valider.imgAnnuler", "image", "imgAnnuler", "", "src=\"" . URLIMG . "annuler2.gif\" align=\"abscenter\" \r\n\t\t\ttitle=\"Annuler les modifications\"");
             $mod->MxBloc("maj", "delete");
             $mod->MxBloc("modifier", "delete");
         }
     } else {
         $mod->MxBloc("modifier", "delete");
         $mod->MxBloc("valider", "delete");
         $mod->MxBloc("maj", "delete");
     }
     $req = new clResultQuery();
     unset($paramRq);
     $paramRq[cw] = "lc!=''";
     $res = $req->Execute("Fichier", "CCAM_getLC", $paramRq, "ResultQuery");
     //eko($res[INDIC_SVC]);
     for ($i = 0; isset($res[lc][$i]); $i++) {
         $lc = $res[lc][$i];
         $mod->MxText("ligneLC.LC", $lc);
         if (!$_POST['imgModifier_x']) {
             $mod->MxText("ligneLC.LCnat", $res[lcNat][$i]);
             $mod->MxText("ligneLC.tarif", $res[tarif][$i]);
         } else {
             $varLC = "LC_" . $lc;
             $mod->MxFormField("ligneLC.LCnat", "text", $varLC, $res[lcNat][$i], "size=\"10\"");
             $tarifLC = "tarif_" . $lc;
             $mod->MxFormField("ligneLC.tarif", "text", $tarifLC, $res[tarif][$i], "size=\"10\"");
         }
         $mod->MxBloc("ligneLC", "loop");
     }
     //Ne jamais afficher les boutons suivants
     // Affichage ou non du champs d'informations.
     if ($this->infos) {
         $mod->MxText("informations.infos", $this->infos);
     } else {
         $mod->MxBloc("informations", "delete");
     }
     // Affichage ou non du champs d'erreurs.
     if ($this->erreurs) {
         $mod->MxText("erreurs.errs", $this->erreurs);
     } else {
         $mod->MxBloc("erreurs", "delete");
     }
     $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1)));
     $this->af .= $mod->MxWrite("1");
 }
function Formulaire_Transfert_Launch($formx)
{
    global $session;
    $id_instance = $formx->getIdInstance();
    $idu = $formx->getVar('ids');
    $idpatient = $session->getNavi(2);
    $req = new clResultQuery();
    $param = array();
    $param['cw'] = "where idpatient='" . $idpatient . "'";
    $param['table'] = PPRESENTS;
    $res = $req->Execute("Fichier", "getPatients", $param, "ResultQuery");
    //$idpatient = $res['idpatient'][0] ;
    eko($res);
    $data['idpatient'] = $res['idpatient'][0];
    $data['idu'] = $res['idu'][0];
    $data['ilp'] = $res['ilp'][0];
    $data['nsej'] = $res['nsej'][0];
    $data['uf'] = $res['uf'][0];
    $data['nom'] = $res['nom'][0];
    $data['prenom'] = $res['prenom'][0];
    $data['sexe'] = $res['sexe'][0];
    $data['dt_naissance'] = $res['dt_naissance'][0];
    $data['adresse_libre'] = $res['adresse_libre'][0];
    $data['adresse_cp'] = $res['adresse_cp'][0];
    $data['adresse_ville'] = $res['adresse_ville'][0];
    $data['telephone'] = $res['telephone'][0];
    $data['prevenir'] = $res['prevenir'][0];
    $data['medecin_traitant'] = $res['medecin_traitant'][0];
    $data['dt_admission'] = $res['dt_admission'][0];
    $data['adresseur'] = $res['adresseur'][0];
    $data['mode_admission'] = $res['mode_admission'][0];
    $data['dt_examen'] = $res['dt_examen'][0];
    $data['medecin_urgences'] = $res['medecin_urgences'][0];
    $data['ide'] = $res['ide'][0];
    $data['salle_examen'] = $res['salle_examen'][0];
    $data['motif_recours'] = $res['motif_recours'][0];
    $data['code_gravite'] = $res['code_gravite'][0];
    $data['ccmu'] = $res['ccmu'][0];
    $data['gemsa'] = $res['gemsa'][0];
    $data['traumato'] = $res['traumato'][0];
    $data['dest_souhaitee'] = $res['dest_souhaitee'][0];
    $data['dest_attendue'] = $res['dest_attendue'][0];
    $data['moyen_transport'] = $res['moyen_transport'][0];
    $data['motif_transfert'] = $res['motif_transfert'][0];
    $data['dt_sortie'] = $res['dt_sortie'][0];
    $data['recours_code'] = $res['recours_code'][0];
    $data['recours_categorie'] = $res['recours_categorie'][0];
    $data['type_destination'] = $res['type_destination'][0];
    $data['diagnostic_categorie'] = $res['diagnostic_categorie'][0];
    $data['diagnostic_libelle'] = $res['diagnostic_libelle'][0];
    $data['diagnostic_code'] = $res['diagnostic_code'][0];
    $data['etatUHCD'] = $res['etatUHCD'][0];
    $data['dt_UHCD'] = $res['dt_UHCD'][0];
    $data['provenance'] = $res['provenance'][0];
    $data['dest_pmsi'] = $res['dest_pmsi'][0];
    $data['orientation'] = $res['orientation'][0];
    $data['iduser'] = '******';
    $data['manuel'] = $res['manuel'][0];
    if ($res['uf'][0] == '6004') {
        $data['uf'] = '6006';
        $base = 'terminal2_tuv2';
    } elseif ($res['uf'][0] == '6006') {
        $data['uf'] = '6004';
        $base = 'terminal_tuv2';
    } elseif ($res['uf'][0] == 'UHCD6004') {
        $data['uf'] = 'UHCD6006';
        $base = 'terminal2_tuv2';
    } elseif ($res['uf'][0] == 'UHCD6006') {
        $data['uf'] = 'UHCD6004';
        $base = 'terminal_tuv2';
    }
    $req = new clRequete($base, PPRESENTS, $data);
    $req->addRecord();
    $req = new clRequete(BDD, PPRESENTS);
    $req->delRecord("idpatient={$idpatient}");
    header('Location:index.php?navi=TGlzdGVfUHJlc2VudHM=');
    //eko ( $data ) ;
    /*
    $param = array();
    $param['etat'] = "a";
    $param['idpatient'] = $idpatient;
    $param['id_instance'] = $id_instance;
    $param['dt_creation'] = date("Y")."-".date("m")."-".date("d")." ".date("H").":".date("i").":00";
    //eko ($param);
    $req = new clRequete(BDD,"radios",$param);
    $req->addRecord();
    */
    //$res = $req -> Execute ( "Fichier", "putFormulaireRadioData", $param, "ResultQuery" ) ;
    //eko($res);
    return "";
}
Esempio n. 28
0
 function addItem($nomListe)
 {
     global $options;
     // On vérifie qu'un item ne porte pas déjà ce nom.
     $param[cw] = "WHERE nomitem='" . $_POST['nomItemF'] . "' AND nomliste='{$nomListe}'";
     $param[idDomaine] = CCAM_IDDOMAINE;
     $param[order] = "";
     $req = new clResultQuery();
     $res = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery");
     //newfct(gen_affiche_tableau,$res[INDIC_SVC]);
     // On signale l'erreur si le nom est déjà pris.
     if ($res[INDIC_SVC][2] > 0) {
         $this->erreurs .= "Dans la liste \"{$nomListe}\", un item portant ce nom \r\n\t\t(\"" . $_POST['nomItemF'] . "\") existe déjà. La création est annulée.";
     } else {
         // Nouveau nom correct.
         if (eregi("[0-9a-zA-Z]", $_POST['nomItemF'])) {
             // On positionne correctement le nouvel item et on déplace les autres.
             if ($options->getOption(stripslashes($nomListe)) != "Manuel") {
                 $rang = 1;
             } else {
                 $param[cw] = "WHERE iditem='" . $_POST['placerF'] . "' and nomliste='{$nomListe}'";
                 $param[idDomaine] = CCAM_IDDOMAINE;
                 $param[order] = "";
                 $res2 = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery");
                 //newfct(gen_affiche_tableau,$res[INDIC_SVC]);
                 $rang = $res2[rang][0] + 1;
             }
             $param[cw] = "WHERE rang>='{$rang}' AND nomliste='{$nomListe}'";
             $param[idDomaine] = CCAM_IDDOMAINE;
             $param[order] = "";
             $req = new clResultQuery();
             $res = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery");
             //newfct(gen_affiche_tableau,$res[INDIC_SVC]);
             for ($i = 0; isset($res[iditem][$i]); $i++) {
                 $data2[rang] = $res[rang][$i] + 1;
                 $requete = new clRequete(CCAM_BDD, "ccam_liste", $data2);
                 $requete->updRecord("iditem='" . $res[iditem][$i] . "' and idDomaine=" . CCAM_IDDOMAINE);
             }
             // Insertion du nouveau item.
             $data[categorie] = "ListesCCAM";
             $data[nomliste] = $nomListe;
             $data[nomitem] = $_POST['nomItemF'];
             $data[rang] = $rang;
             $data[idDomaine] = CCAM_IDDOMAINE;
             $requete = new clRequete(CCAM_BDD, "ccam_liste", $data);
             $requete->addRecord();
             // Message d'information.
             $this->infos .= "L'item \"" . $_POST['nomItemF'] . "\" a été ajouté dans la liste \"" . stripslashes($nomListe) . "\".";
         } else {
             $this->erreurs .= "Le nom choisi ne doit pas être vide.";
         }
     }
 }
Esempio n. 29
0
 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;
 }
Esempio n. 30
0
 function delActesPatient($idActe)
 {
     global $session;
     unset($retourInfos);
     $requete = new clRequete(CCAM_BDD, "ccam_cotation_actes", $param);
     $sql = $requete->delRecord("codeActe='{$idActe}' AND idEvent=" . $this->idEvent);
     //MAJ Fréquence d'utilisation de l'acte
     $paramRq[idDomaine] = CCAM_IDDOMAINE;
     $paramRq[idActe] = $idActe;
     $req3 = new clResultQuery();
     $res3 = $req3->Execute("Fichier", "CCAM_getMaxFreqActe", $paramRq, "ResultQuery");
     //newfct(gen_affiche_tableau,$res3[INDIC_SVC]);
     unset($param);
     $param[frequence] = $res3[freq_max][0] - 1;
     $majrq = new clRequete(CCAM_BDD, "ccam_actes_domaine", $param);
     $sql = $majrq->updRecord("idActe='{$paramRq['idActe']}' AND idDomaine=" . CCAM_IDDOMAINE);
     $retourInfos = "L'acte '" . $idActe . "' n'est plus affecté au patient en cours";
     return $retourInfos;
 }