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 "";
}
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 "";
}
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 "";
}
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='******'");
}
/**
* 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);
}
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 "";
}
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");
}
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;
}
}
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.");
}
}
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++;
}
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++;
}
}
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();
}
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;
}
}
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();
}
public function del()
{
$requete = new clRequete(BDD, $this->nomTable);
$sql = $requete->delRecord($this->nomId . '=' . $this->id);
}
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é.";
}
}
}
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.";
}
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;
}
function addPatientPresent()
{
global $session;
global $listeMois;
global $options;
// Si la confirmation d'ajout est présente, alors on ajoute le nouveau patient dans la table.
if ($_POST['ValiderAjouter'] or $_POST['ValiderAjouter_x']) {
global $errs;
// Préparation de la date d'admission.
$date = new clDate();
$dateN = new clDate($_POST['naissance']);
/*if ( $options -> getOption ( "DoubleEtablissement" ) AND ! ( $options -> getOption ( 'DoubleSansCom' ) ) ) {
$req = new clResultQuery ;
$ras = $req -> Execute ( "Fichier", "getMaxIdToulon", array(), "ResultQuery" ) ;
$max = 1 ;
for ( $j = 0 ; isset ( $ras['idpatient'][$j] ) ; $j++ )
if ( $ras['idpatient'][$j] > $max ) $max = $ras['idpatient'][$j] ;
$max++ ;
eko ( "Double Etablissement : Calcul du max ($max)" ) ;
$data['idpatient'] = $max ;
}*/
// Remplissage des champs pour la requête.
$data['idu'] = "X";
$data['ilp'] = "X";
$data['nsej'] = "X";
$data['uf'] = $options->getOption("AjoutManuelUF");
$data['sexe'] = $_POST['sexe'];
$data['prenom'] = $_POST['prenom'];
$data['nom'] = $_POST['nom'];
$data['dt_admission'] = $date->getDatetime();
$data['dt_naissance'] = $dateN->getDatetime();
$data['adresse_libre'] = $_POST['adresse'];
$data['adresse_cp'] = $_POST['cp'];
$data['adresse_ville'] = $_POST['ville'];
$data['telephone'] = $_POST['telephone'];
$data['salle_examen'] = $_POST['salle'];
$data['dest_souhaitee'] = $_POST['destSouhaitee'];
$data['dest_attendue'] = $_POST['destAttendue'];
$data['adresseur'] = $_POST['adresseur'];
$data['medecin_urgences'] = $_POST['medecin'];
if ($_POST['medecin']) {
$data[dt_examen] = $date->getDatetime();
}
$data['recours_categorie'] = $_POST['categorieRecours'];
$data['manuel'] = 1;
// Préparation de la requête.
$requete = new clRequete(BDD, PPRESENTS, $data);
// Exécution de la requête.
$resu = $requete->addRecord();
// On signale les éventuelles erreurs rencontrées.
if ($resu['error']) {
$errs->addErreur("clListesPatients : Erreur lors de la bascule d'un patient attendu en patient présent (" . $resu[error] . ").");
}
$param['table'] = PPRESENTS;
$param['cw'] = "WHERE idu='X'";
$req = new clResultQuery();
$res = $req->Execute("Fichier", "getPatients", $param, "ResultQuery");
for ($i = 0; isset($res['idpatient'][$i]); $i++) {
$data2['idu'] = "MANU" . $res['idpatient'][$i];
$data2['ilp'] = "MANU" . $res['idpatient'][$i];
$data2['nsej'] = "MANU" . $res['idpatient'][$i];
// Préparation de la requête.
$requete = new clRequete(BDD, PPRESENTS, $data2);
// Exécution de la requête.
$requete->updRecord("idpatient='" . $res['idpatient'][$i] . "'");
header('Location:' . URLNAVI . $session->genNavi($session->getNavi(0)));
}
} else {
// Sinon, nous affichons le formulaire d'ajout d'un nouveau patient présent.
// Chargement du template ModeliXe.
$mod = new ModeliXe("addPresent.html");
$mod->SetModeliXe();
// Préparation du titre, des images, des urls...
$mod->MxText("titre", "Ajouter un nouveau patient présent");
$mod->MxImage("imgClose", URLIMGFER, "Annuler");
$mod->MxUrl("lienClose", URLNAVI . $session->genNavi($session->getNavi(0)));
// Champs IDU, IPP, et nsej...
// $mod -> MxFormField ( "idu", "text", "idu", $_POST['idu'], "size=\"47\" maxlength=\"50\"" ) ;
// $mod -> MxFormField ( "ilp", "text", "ilp", $_POST['ilp'], "size=\"47\" maxlength=\"50\"" ) ;
// $mod -> MxFormField ( "nsej", "text", "nsej", $_POST['nsej'], "size=\"47\" maxlength=\"50\"" ) ;
// Champs de l'état civil du patient.
$data['M'] = "Homme";
$data['F'] = "Femme";
$data['I'] = "Indéterminé";
$javascript1 = XhamTools::genAjax('onKeyUp', 'getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$javascript3 = XhamTools::genAjax('onChange', 'getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$javascript1 = XhamTools::genAjaxWithTempo('getPatients', 'navi=' . $session->genNavi('Ajax', 'getPatientsSortis'));
$mod->MxSelect("sexe", "sexe", $_POST['sexe'], $data, '', '', 'class="w300" ' . "{$javascript3}");
$mod->MxFormField("prenom", "text", "prenom", $_POST['prenom'], "size=\"47\" maxlength=\"50\" {$javascript1} {$javascript3}");
$mod->MxFormField("nom", "text", "nom", $_POST['nom'], "size=\"47\" maxlength=\"50\" {$javascript1} {$javascript3}");
// Gestion des champs de la date de naissance.
$_POST['naissance'] = date('d/m/Y');
$mod->MxFormField("naissance", "text", "naissance", $_POST['naissance'], "id=\"naissance\"");
// Adresse et téléphone du patient.
$mod->MxFormField("adresse", "text", "adresse", $_POST['adresse'], "size=\"47\" maxlength=\"128\"");
$mod->MxFormField("telephone", "text", "telephone", $_POST['telephone'], "size=\"47\" maxlength=\"64\"");
$mod->MxFormField("cp", "text", "cp", $_POST['cp'], "size=\"5\" maxlength=\"5\"");
$mod->MxFormField("ville", "text", "ville", $_POST['ville'], "size=\"38\" maxlength=\"64\"");
// Préparation des listes dynamiques.
$listeCom = new clListes("Recours", "recup");
$listeGen = new clListesGenerales("recup");
$listeMedecins = $listeGen->getListeItems("Médecins", "1", '', '', "1");
$listeSalles = $listeGen->getListeItems("Salles d'examens", "1", '', '', "1");
$listeCategoriesRecours = $listeCom->getListes("", "1");
$listeDestSouhaitees = $listeGen->getListeItems("Destinations souhaitées", "1", '', '', "1");
$listeDestAttendues = $listeGen->getListeItems("Destinations attendues", "1", '', '', "1");
// Affichage des listes dynamiques.
$mod->MxSelect("medecin", "medecin", $_POST['medecin'], $listeMedecins, '', '', 'class="w300"');
$mod->MxSelect("salle", "salle", $_POST['salle'], $listeSalles, '', '', 'class="w300"');
$mod->MxSelect("categorieRecours", "categorieRecours", $_POST['categorieRecours'], $listeCategoriesRecours, '', '', 'class="w300"');
$mod->MxSelect("destSouhaitee", "destSouhaitee", $_POST['destSouhaitee'], $listeDestSouhaitees, '', '', 'class="w300"');
$mod->MxSelect("destAttendue", "destAttendue", $_POST['destAttendue'], $listeDestAttendues, '', '', 'class="w300"');
// Suppression du bouton de modification inutile ici.
$mod->MxBloc("modifier", "modify", " ");
// Variable de navigation.
$mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), "addPatientPresent"));
// Récupération du code HTML généré par le template ModeliXe.
$this->af .= $mod->MxWrite("1");
}
}
function 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 "";
}
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.";
}
}
}
static function getPatientsFromDateToDate(clDate $date1, clDate $date2)
{
$req = " SELECT idpatient from patients_sortis WHERE dt_admission >= '" . $date1->getDatetime() . "' AND dt_admission <= '" . $date2->getDatetime() . "' ";
$obReq = new clRequete(BDD, 'patients_sortis');
$resTab = $obReq->exec_requete($req, 'tab');
$tabRet = array();
foreach ($resTab as $ligne) {
$tabRet[] = self::getObjPatientFromIdPassage($ligne['idpass']);
}
return $tabRet;
}
function 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;
}
