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 ""; }
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 delPatient() { global $session; global $errs; // Appel de la classe Requete. $requete = new clRequete(BDD, PATTENDUS); // Exécution de la requete. $res = $requete->delRecord("idpatient='" . $session->getNavi(2) . "'"); // Si une erreur est présente, alors on la signale. if ($res['error']) { $errs->addErreur("clListesPatients : Erreur à la suppression d'un patient (idpatient=\"" . $session->getNavi(2) . "\").<br />Erreur : " . $res[error]); } }
function delMedecins() { /*****************************************************************************/ global $session; if (is_array($_POST['listeDroite'])) { while (list($key, $val) = each($_POST['listeDroite'])) { if ($val and $val != "aucun#") { $requete = new clRequete(CCAM_BDD, "ccam_anesthesie_domaine"); $requete->delRecord("codeMedecin='{$val}' AND idDomaine=" . CCAM_IDDOMAINE); } } $retourInfos = "Les médecins sélectionnés ont été supprimés de la liste"; return $retourInfos; } }
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 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 Creation_Dossier_Colectomie_Periode_P3($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_P3' and ids='" . $ids . "'"); $formx2 = new clFoRmX($ids, 'NO_POST_THREAT'); $formx2->loadForm('Dossier_Colectomie_Periode_P3'); //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_P3_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Actes']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Med', '<span style="color:#336666;font-weight:bold;">---- PRESCRIPTIONS MEDICALES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Med']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Bil_San', '<span style="color:green;">Bilan sanguin et urinaire</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Bil_San']); if ($tabValeurs['Colectomie_Periode_P3_Bil_San_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Bil_San_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Bil_San_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Pri_Cha', '<span style="color:green;">Prise en charge de la douleur réajustement</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pri_Cha']); if ($tabValeurs['Colectomie_Periode_P3_Pri_Cha_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Pri_Cha_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pri_Cha_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Abl_Per', '<span style="color:green;">Ablation KT péridural</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Abl_Per']); if ($tabValeurs['Colectomie_Periode_P3_Abl_Per_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Abl_Per_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Abl_Per_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Rec_Trai', '<span style="color:green;">Reconduction du traitement antérieur</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Rec_Trai']); if ($tabValeurs['Colectomie_Periode_P3_Rec_Trai_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Rec_Trai_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Rec_Trai_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Soi', '<span style="color:#336666;font-weight:bold;">---- SOINS</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Soi']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Ref_Pan', '<span style="color:green;">Réfection du pansement</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Ref_Pan']); if ($tabValeurs['Colectomie_Periode_P3_Ref_Pan_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Ref_Pan_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Ref_Pan_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Son', '<span style="color:green;">Présence de la sonde nasogastrique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Son']); if ($tabValeurs['Colectomie_Periode_P3_Pre_Son_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Son_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Son_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Soi_Dra', '<span style="color:green;">Soins sur les drains</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Soi_Dra']); if ($tabValeurs['Colectomie_Periode_P3_Soi_Dra_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Soi_Dra_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Soi_Dra_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Sonb', '<span style="color:green;">Présence de la sonde à demeure</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Sonb']); if ($tabValeurs['Colectomie_Periode_P3_Pre_Sonb_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Sonb_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Sonb_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Aut', '<span style="color:#336666;font-weight:bold;">---- AUTONOMIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Aut']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Lev', '<span style="color:green;">Premier levé</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Lev']); if ($tabValeurs['Colectomie_Periode_P3_Pre_Lev_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre_Lev_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre_Lev_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Vis', '<span style="color:#336666;font-weight:bold;">---- VISITE MEDICALE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Vis']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Ren_Fam', '<span style="color:green;">Rencontre avec la famille faite</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Ren_Fam']); if ($tabValeurs['Colectomie_Periode_P3_Ren_Fam_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Ren_Fam_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Ren_Fam_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Vis_Ane', '<span style="color:green;">Visite anesthésiste faite</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Vis_Ane']); if ($tabValeurs['Colectomie_Periode_P3_Vis_Ane_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Vis_Ane_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Vis_Ane_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Pre', '<span style="color:#336666;font-weight:bold;">---- PREPARATION DE LA SORTIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pre']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Sas_Mod', '<span style="color:green;">S\'assurer que les modalités de sortie sont en cours</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Sas_Mod']); if ($tabValeurs['Colectomie_Periode_P3_Sas_Mod_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Sas_Mod_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Sas_Mod_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Res', '<span style="color:#336666;font-weight:bold;">---- RESULTATS OBTENUS POUR LE PATIENT</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Res']); createItem($formx2, $etape, 'Colectomie_Periode_P3_Pat_Alg', '<span style="color:green;">Patient non algique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pat_Alg']); if ($tabValeurs['Colectomie_Periode_P3_Pat_Alg_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Pat_Alg_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Pat_Alg_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P3_Mai_Fon', '<span style="color:green;">Maintien des fonctions physiologiques assuré</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Mai_Fon']); if ($tabValeurs['Colectomie_Periode_P3_Mai_Fon_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P3_Mai_Fon_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P3_Mai_Fon_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 ctrlActes() { global $session; $req = new clResultQuery(); $dateFin = date("Y-m-d"); // Appel du template $mod = new ModeliXe("CCAM_CtrlActesVersion.mxt"); $mod->SetModeliXe(); $mod->MxText("versionCCAM", CCAM_VERSION); //Liste des actions if (!$_POST['action']) { $action = "invalide"; } else { $action = $_POST['action']; } $tabAction["invalide"] = "Actes invalides"; $tabAction["liste_restreinte"] = "Actes de la liste restreinte"; $tabAction["tarif_nul"] = "Actes dont le tarif est nul"; while (list($key, $val) = each($tabAction)) { $mod->MxCheckerField("action.action", "radio", "action", $key, $action == $key ? true : false, "onClick=reload(this.form)"); $mod->MxText("action.libAction", $val); $mod->MxBloc("action", "loop"); } //On a validé la suppression ou le remplacement $validerRemplacer = 0; if ($_POST['imgValiderRemplacer'] or $_POST['imgValiderRemplacer_x']) { $idActe = $_POST['listeActesInvalides']; $idNvxActe = $_POST['listeARemplacer']; if ($idNvxActe == "suppr") { $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine"); $requete->delRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); $requete = new clRequete(CCAM_BDD, "ccam_actes_pack"); $requete->delRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); $requete = new clRequete(CCAM_BDD, "ccam_actes_diagnostic"); $requete->delRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); } else { if (ereg($idNvxActe, $_POST['dejaDansLR'])) { $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine"); $requete->delRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); } else { unset($param); $param["idActe"] = $idNvxActe; $param["date_fin"] = "0000-00-00"; $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine", $param); $requete->updRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); } unset($param); $param["idActe"] = $idNvxActe; $requete = new clRequete(CCAM_BDD, "ccam_actes_pack", $param); $requete->updRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); $requete = new clRequete(CCAM_BDD, "ccam_actes_diagnostic", $param); $requete->updRecord("idActe='{$idActe}' and idDomaine=" . CCAM_IDDOMAINE); } $validerRemplacer = 1; } else { $mod->MxBloc("informations", "delete"); } //Récupération des actes invalides if ($action == "invalide") { $res = $req->Execute("Fichier", "CCAM_getActesInvalides", array(), "ResultQuery"); $mod->MxText("existeActes.libelleTypeActes", "Actes invalides"); } elseif ($action == "liste_restreinte") { unset($paramRq); $paramRq["cw"] = "date_fin='0000-00-00'"; $res = $req->Execute("Fichier", "CCAM_getActesDomaine2", $paramRq, "ResultQuery"); $mod->MxText("existeActes.libelleTypeActes", "Actes de la liste restreinte"); } elseif ($action == "tarif_nul") { $res = $req->Execute("Fichier", "CCAM_getTarifCCAMNul", array(), "ResultQuery"); $mod->MxText("existeActes.libelleTypeActes", "Actes dont le tarif est nul"); } //eko($res["INDIC_SVC"]); if ($res["INDIC_SVC"][2]) { $mod->MxBloc("nonExisteActes", "delete"); $listeActes = ""; for ($i = 0; isset($res["idActe"][$i]); $i++) { $idActe = $res["idActe"][$i]; if ($i == 0) { $idActe0 = $idActe; } $tabActesInvalides[$idActe] = "{$idActe} - " . $res["libelleActe"][$i]; $listeActes .= "'{$idActe}',"; } if (!isset($_POST['listeActesInvalides']) or isset($_POST['actionPrec']) and $action != $_POST['actionPrec'] or $validerRemplacer == 1) { $listeActesInvalides = $idActe0; } else { $listeActesInvalides = $_POST['listeActesInvalides']; } $mod->MxSelect("existeActes.listeActesInvalides", "listeActesInvalides", $listeActesInvalides, $tabActesInvalides, '', '', "size=\"15\" class=\"selectngap\" onChange=\"reload(this.form)\""); //Récupération du libellé de l'acte sélectionné (liste gauche) unset($paramRq); $paramRq["idActe"] = $listeActesInvalides; $res = $req->Execute("Fichier", "CCAM_get1ActeCCAM", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $mod->MxText("existeActes.libelleActe", "{$listeActesInvalides} - " . $res["libelle"][0]); //Récupération des packs utilisant l'acte sélectionné unset($paramRq); $paramRq["cw"] = "and rel.idActe='{$listeActesInvalides}' and rel.idDomaine=" . CCAM_IDDOMAINE; $res = $req->Execute("Fichier", "CCAM_getPackActes", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $listePacks = "<p><u>Liste des packs associés :</u> "; if ($res["INDIC_SVC"][2]) { for ($i = 0; isset($res["idPack"][$i]); $i++) { $listePacks .= $res["idPack"][$i] . "-" . $res["libelleActe"][$i] . ", "; } $listePacks = substr($listePacks, 0, -2); } else { $listePacks .= "Aucun pack n'a été associé"; } $mod->MxText("existeActes.listePacks", $listePacks); //Récupération des diagnostics associés à l'acte sélectionné unset($paramRq); $paramRq["cw"] = "and rel.idActe='{$listeActesInvalides}' and rel.idDomaine=" . CCAM_IDDOMAINE; $res = $req->Execute("Fichier", "CCAM_getDiagsActe", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $listeDiags = "<p><u>Liste des diagnostics associés :</u> "; if ($res["INDIC_SVC"][2]) { for ($i = 0; isset($res["idDiag"][$i]); $i++) { $listeDiags .= $res["idDiag"][$i] . "-" . $res["nomItem"][$i] . ", "; } $listeDiags = substr($listeDiags, 0, -2); } else { $listeDiags .= "Aucun diagnostic n'a été associé"; } $mod->MxText("existeActes.listeDiags", $listeDiags); //Récupération du tarif de l'acte sélectionné unset($paramRq); $paramRq["cw"] = "and a.code='{$listeActesInvalides}' order by t.aadt_modif desc"; $res = $req->Execute("Fichier", "CCAM_get1TarifCCAM", $paramRq, "ResultQuery"); eko($res); $mod->MxText("existeActes.tarif", "<br><u>Tarif en vigueur :</u> " . number_format($res["pu_base"][0], 2, ',', '.') . " euros"); //Mise à jour de la date de fin de validité if ($action == "invalide") { $listeActes = substr($listeActes, 0, -1); unset($param); $param["date_fin"] = date("Y-m-d"); $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine", $param); $requete->updRecord("idActe in ({$listeActes}) and date_fin='0000-00-00' and idDomaine=" . CCAM_IDDOMAINE); } //Affichage de la zone début de code $mod->MxText("existeActes.codeSelectionne", $listeActesInvalides); if (!isset($_POST['debCodeActe']) or isset($_POST['listeActesPrec']) and $listeActesInvalides != $_POST['listeActesPrec']) { $debCodeActe = substr($listeActesInvalides, 0, 4); } else { $debCodeActe = strtoupper($_POST['debCodeActe']); } if (!$debCodeActe or $debCodeActe == "%") { $debCodeActe = "A"; } $mod->MxFormField("existeActes.debCodeActe", "text", "debCodeActe", $debCodeActe, "size=\"7\" \r\n onChange=\"reload(this.form)\""); //Récupération des actes correspondant au début du code déjà présents dans la liste restreinte unset($paramRq); $paramRq["cw"] = "idActe like '{$debCodeActe}%'"; $res = $req->Execute("Fichier", "CCAM_getActesDomaine2", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $listeActes = ""; for ($i = 0; isset($res["idActe"][$i]); $i++) { $listeActes .= $res["idActe"][$i] . ","; } /*if ($listeActes){ $listeActes=substr($listeActes,0,-1); $cwListeActes="and code not in ($listeActes)"; }*/ //Récupération des actes correspondant au début du code unset($paramRq); $paramRq["cw"] = "dt_fin is null and code like '{$debCodeActe}%' and code!='{$listeActesInvalides}'"; $res = $req->Execute("Fichier", "CCAM_getActesCCAM", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $tabARemplacer = array(); $dejaDansLR = ""; for ($i = 0; isset($res["CODE"][$i]); $i++) { $idActe = $res["CODE"][$i]; $idActeAff = $idActe; if (ereg($idActe, $listeActes)) { if ($idActe == $_POST["listeARemplacer"]) { $idActe .= "\"selected=\"selected\" style=\"color:green;\""; } else { $idActe .= "\"style=\"color:green;\""; } } if ($i == 0) { $idActe0 = $idActeAff; } $tabARemplacer[$idActe] = "{$idActeAff} - " . $res["LIBELLE_COURT"][$i]; } $tabARemplacer["suppr"] = "Supprimer l'acte '{$listeActesInvalides}' des différentes listes"; if (!isset($_POST['listeARemplacer']) or isset($_POST['listeActesPrec']) and $listeActesInvalides != $_POST['listeActesPrec'] or isset($_POST['debCodeActePrec']) and $debCodeActe != $_POST['debCodeActePrec']) { $listeARemplacer = $idActe0; } else { $listeARemplacer = $_POST['listeARemplacer']; } $mod->MxSelect("existeActes.listeARemplacer", "listeARemplacer", $listeARemplacer, $tabARemplacer, '', '', "size=\"15\" \r\n onChange=\"reload(this.form)\""); if ($res["INDIC_SVC"][2]) { if ($listeARemplacer != "suppr") { //Récupération du libellé de l'acte sélectionné (liste droite) unset($paramRq); $paramRq["idActe"] = $listeARemplacer; $res = $req->Execute("Fichier", "CCAM_get1ActeCCAM", $paramRq, "ResultQuery"); //eko($res["INDIC_SVC"]); $mod->MxText("existeActes.libelleARemplacer", "{$listeARemplacer} - " . $res["libelle"][0]); //Récupération du tarif de l'acte sélectionné unset($paramRq); $paramRq["cw"] = "and a.code='{$listeARemplacer}' order by t.aadt_modif desc"; $res = $req->Execute("Fichier", "CCAM_get1TarifCCAM", $paramRq, "ResultQuery"); //eko ($res); //eko($res["INDIC_SVC"]); $mod->MxText("existeActes.tarifNvx", "<br><u>Tarif en vigueur :</u> " . number_format($res["pu_base"][0], 2, ',', '.') . " euros"); } } $mod->MxFormField("existeActes.imgValiderRemplacer", "image", "imgValiderRemplacer", "", "src=\"" . URLIMG . "Ok.gif\" align=\"abscenter\" \r\n title=\"Mettre à jour l'acte invalide dans les différentes listes\""); } else { $mod->MxBloc("existeActes", "delete"); $mod->MxText("nonExisteActes.versionCCAM", CCAM_VERSION); } $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1))); $mod->MxHidden("hidden2", "actionPrec={$action}&dejaDansLR={$listeActes}&debCodeActePrec={$debCodeActe}&listeActesPrec={$listeActesInvalides}"); $this->af .= $mod->MxWrite("1"); }
function supprimerUtilisateur() { global $session; if ($session->getNavi(2) == "ValiderSupprimer") { $requete = new clRequete(BASEXHAM, TABLEUSERS); $requete->delRecord("idutilisateur=" . $_POST['iduser']); $_POST['iduser'] = ""; } else { // Chargement du template ModeliXe. $mod = new ModeliXe("FormConfirmation.mxt"); $mod->SetModeliXe(); $mod->MxText("question", "Cet utilisateur sera définitivement supprimé. Etes vous certain de vouloir continuer ?"); // Variable de navigation. $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), "ValiderSupprimer") . "&iduser="******"1"); } }
function delConsultPatient($idActe) { global $session; unset($retourInfos); //Ecriture de la suppression dans la BAL si le patient est à nouveau rentré dans la liste des présents /*unset($paramRq); $paramRq[cw]="codeActe='$idActe' and idEvent=".$this->idEvent." and idDomaine=".CCAM_IDDOMAINE; $req=new clResultQuery; $res=$req->Execute("Fichier","CCAM_getActesDiagsCotation",$paramRq,"ResultQuery"); //eko($res[INDIC_SVC]); if ($res[validDefinitive][0]=="O") $this->writeBAL($idActe,"suppression");*/ //Suppression de l'enregistrement dans la table des cotations $requete = new clRequete(CCAM_BDD, "ccam_cotation_actes", $param); $sql = $requete->delRecord("codeActe='{$idActe}' and idEvent=" . $this->idEvent . " and idDomaine=" . CCAM_IDDOMAINE); global $logs; $logs->addLog("actes", $session->getNaviFull(), "Suppression CS '{$idActe}'"); $retourInfos = "La consultation sélectionnée n'est plus affectée au patient en cours"; return $retourInfos; }
function Creation_Dossier_Colectomie_Periode_P6($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_P6' and ids='" . $ids . "'"); $formx2 = new clFoRmX($ids, 'NO_POST_THREAT'); $formx2->loadForm('Dossier_Colectomie_Periode_P6'); //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_P6_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Actes']); createItem($formx2, $etape, 'Colectomie_Periode_P6_Mot_Sor', '<span style="color:#336666;font-weight:bold;">---- MOTIFS DE LA SORTIE DIFFEREE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Mot_Sor']); createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Chi', '<span style="color:green;">Causes chirurgicales</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Chi']); if ($tabValeurs['Colectomie_Periode_P6_Cau_Chi_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Chi_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Chi_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Med', '<span style="color:green;">Causes médicales</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Med']); if ($tabValeurs['Colectomie_Periode_P6_Cau_Med_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Med_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Med_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P6_Def_Aut', '<span style="color:green;">Déficit d\'autonomie</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Def_Aut']); if ($tabValeurs['Colectomie_Periode_P6_Def_Aut_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P6_Def_Aut_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Def_Aut_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P6_Att_Mai', '<span style="color:green;">Attente maison de repos</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Att_Mai']); if ($tabValeurs['Colectomie_Periode_P6_Att_Mai_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P6_Att_Mai_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Att_Mai_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Soc', '<span style="color:green;">Causes sociales</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Soc']); if ($tabValeurs['Colectomie_Periode_P6_Cau_Soc_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P6_Cau_Soc_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P6_Cau_Soc_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 Creation_Dossier_Colectomie_Periode_P5($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_P5' and ids='" . $ids . "'"); $formx2 = new clFoRmX($ids, 'NO_POST_THREAT'); $formx2->loadForm('Dossier_Colectomie_Periode_P5'); //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_P5_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Actes']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Pre_Med', '<span style="color:#336666;font-weight:bold;">---- PRESCRIPTIONS MEDICALES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pre_Med']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Bil_Pro', '<span style="color:green;">Bilan selon le protocole à definir</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Bil_Pro']); if ($tabValeurs['Colectomie_Periode_P5_Bil_Pro_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Bil_Pro_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Bil_Pro_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Soi', '<span style="color:#336666;font-weight:bold;">---- SOINS</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Soi']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Abl_Fil', '<span style="color:green;">Ablation des fils (sur prescription médicale)</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Abl_Fil']); if ($tabValeurs['Colectomie_Periode_P5_Abl_Fil_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Abl_Fil_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Abl_Fil_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Aut', '<span style="color:#336666;font-weight:bold;">---- AUTONOMIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Aut']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Eva_Aut', '<span style="color:green;">Evaluer l\'autonomie à la sortie</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Eva_Aut']); if ($tabValeurs['Colectomie_Periode_P5_Eva_Aut_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Eva_Aut_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Eva_Aut_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Ali', '<span style="color:#336666;font-weight:bold;">---- ALIMENTATION</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Ali']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Con_Die', '<span style="color:green;">Conseil diététique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Con_Die']); if ($tabValeurs['Colectomie_Periode_P5_Con_Die_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Con_Die_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Con_Die_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Pre', '<span style="color:#336666;font-weight:bold;">---- PREPARATION DE LA SORTIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pre']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Pla_Pos', '<span style="color:green;">Planification pose portacath réalisée</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pla_Pos']); if ($tabValeurs['Colectomie_Periode_P5_Pla_Pos_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Pla_Pos_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pla_Pos_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Doc_Sor', '<span style="color:green;">Documents pour la sortie prêts</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Doc_Sor']); if ($tabValeurs['Colectomie_Periode_P5_Doc_Sor_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Doc_Sor_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Doc_Sor_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P5_Res', '<span style="color:#336666;font-weight:bold;">---- RESULTAT OBTENUS POUR LE PATIENT</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Res']); createItem($formx2, $etape, 'Colectomie_Periode_P5_Pat_Inf', '<span style="color:green;">Le patient informé et assuré par rapport à la sortie</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pat_Inf']); if ($tabValeurs['Colectomie_Periode_P5_Pat_Inf_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P5_Pat_Inf_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P5_Pat_Inf_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 majDroitsProd() { $data = array(); // On efface les droits de base (idgroupe=0) sur le serveur de production. $raq = new clRequete(BASEXHAM, TABLEDROITS, $data, 'prod'); if ($raq->getConn()) { $ris = $raq->delRecord("idgroupe=0 AND idapplication=" . IDAPPLICATION); // On récupère la liste des droits. $req = new clResultQuery(); $param[cw] = "WHERE idgroupe=0 AND idapplication=" . IDAPPLICATION; $res = $req->Execute("Fichier", "getDroitsTous", $param, "ResultQuery"); //eko ( $res[INDIC_SVC] ) ; // Récupération du nom des attributs d'un droit. while (list($key, $val) = each($res)) { if ($key != "INDIC_SVC" and $key != "iddroit") { $keys[] = $key; } } // Pacours des droits existants. for ($i = 0; isset($res['iddroit'][$i]); $i++) { // Pour chaque droit on vérifie s'il existe en production. $param['cw'] = "WHERE idgroupe=0 AND libelle='" . addslashes($res['libelle'][$i]) . "' AND idapplication=" . IDAPPLICATION; $ras = $req->Execute("Fichier", "getDroitsProd", $param, "ResultQuery"); //eko ( $ras[INDIC_SVC] ) ; // S'il n'existe pas, if (!$ras['INDIC_SVC'][2]) { // On prépare le tableau contenant toutes les données du droit. for ($j = 0; isset($keys[$j]); $j++) { $data[$keys[$j]] = $res[$keys[$j]][$i]; } // On ajoute le droit en production. $raq = new clRequete(BASEXHAM, TABLEDROITS, $data, 'prod'); $ris = $raq->addRecord(); eko("insert : " . $res['libelle'][$i]); // S'il existe déjà, } else { // On prépare le tableau contenant les champs à mettre à jour. for ($j = 0; isset($keys[$j]); $j++) { if ($keys[$j] != "valeur" and $keys[$j] != "idgroupe") { $data[$keys[$j]] = $res[$keys[$j]][$i]; } } // On met à jour le droit en production. $raq = new clRequete(BASEXHAM, TABLEDROITS, $data, 'prod'); $ris = $raq->updRecord("libelle='" . addslashes($res['libelle'][$i]) . "' AND idapplication=" . IDAPPLICATION); eko("update : " . $res['libelle'][$i]); //eko ( $ris ) ; } } // Affichage d'un message d'information. $this->infos .= "La liste des droits a été mise à jour en production."; } }
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 delItem($nomListe, $idItem) { global $errs; $req = new clResultQuery(); // Récupération des informations actuelles de l'item. $param[cw] = "WHERE iditem='" . $idItem . "'"; $param[idDomaine] = CCAM_IDDOMAINE; $param[order] = ""; $res = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery"); //newfct(gen_affiche_tableau,$res[INDIC_SVC]); // Récupération de la liste des items. $param[cw] = "WHERE nomliste='{$nomListe}'"; $param[idDomaine] = CCAM_IDDOMAINE; $param[order] = ""; $res2 = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery"); //newfct(gen_affiche_tableau,$res[INDIC_SVC]); // On vérifie qu'on n'est pas en train de supprimer le dernier item. if ($res2[INDIC_SVC][2] > 1) { // Vérification que l'item existe. if ($res[INDIC_SVC][2] > 0) { // Décalage des rangs des autres items. $rang = $res[rang][0]; $param[cw] = "WHERE rang>'{$rang}' and nomliste='{$nomListe}'"; $param[idDomaine] = CCAM_IDDOMAINE; $param[order] = ""; $res3 = $req->Execute("Fichier", "CCAM_getListesItems", $param, "ResultQuery"); //newfct(gen_affiche_tableau,$res[INDIC_SVC]); for ($i = 0; isset($res3[iditem][$i]); $i++) { $data[rang] = $res3[rang][$i] - 1; $requete = new clRequete(CCAM_BDD, "ccam_liste", $data); $requete->updRecord("iditem='" . $res3[iditem][$i] . "' and idDomaine=" . CCAM_IDDOMAINE); } // Message d'information. $this->infos .= "L'item \"" . $res[nomitem][0] . "\" a été supprimé de la liste \"" . stripslashes($nomListe) . "\"."; // Suppression de l'item. $requete = new clRequete(CCAM_BDD, "ccam_liste"); $requete->delRecord("iditem='{$idItem}' and idDomaine=" . CCAM_IDDOMAINE); } else { // Signalement $this->erreurs .= "L'item ne peut pas être supprimé (id=\"{$idItem}\") car il n'existe pas."; $errs->addErreur("clListesCCAM : L'item ne peut pas être supprimé (id=\"{$idIditem}\") \r\n\t\t\tcar il n'existe pas."); } } else { $this->erreurs .= "Impossible de supprimer le dernier item de la liste \"{$nomListe}\"."; } }
function Formulaire_Transfert_Launch($formx) { global $session; // Configuration Toulon (1) / La seyne (1) /* $uf1 = '6006' ; $uf2 = '6004' ; $ufu1 = '6010' ; $ufu2 = '6005' ; $bdd1 = 'terminal_tuv2' ; $bddc1 = 'terminal_ccam' ; $bdd2 = 'terminal2_tuv2' ; $bddc2 = 'terminal2_ccam' ; */ // configuration Avignon Adultes / Gynéco $uf1 = '1103'; $uf2 = '3251'; $ufu1 = '1101'; $ufu2 = '1101'; $bdd1 = 'terminala_tuv2'; $bddc1 = 'terminala_ccam'; $bdd2 = 'terminalg_tuv2'; $bddc2 = 'terminalg_ccam'; // Configuration de test /* $uf1 = '2701' ; $uf2 = '3000' ; $ufu1 = 'UHCD6004' ; $ufu2 = 'UHCD6006' ; $bdd1 = 'xham_tuv2' ; $bddc1 = 'xham_ccam' ; $bdd2 = 'terminal_tuv2' ; $bddc2 = 'terminal_ccam' ; */ // Récupération des informations globales du patient. $id_instance = $formx->getIdInstance(); $idu = $formx->getVar('ids'); $idpatient = $session->getNavi(2); // Récupération de toutes les informations du patient sur le terminal source. $req = new clResultQuery(); $param = array(); $param['cw'] = "where idpatient='" . $idpatient . "'"; $param['table'] = PPRESENTS; $res = $req->Execute("Fichier", "getPatients", $param, "ResultQuery"); // eko ( $res ) ; $idu = $res['idu'][0]; // Préparation des données du patient. //$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]; // En fonction de l'uf du patient, on détermine son uf de destination. // Par exemple, si l'UF du patient était celle des urgences de Toulon, alors // la nouvelle UF sera cette des urgences de La Seyne. // On détermine la table de destination aussi à cette étape. if ($res['uf'][0] == $uf1) { $data['uf'] = $uf2; $base = $bdd2; $basec = $bddc2; } elseif ($res['uf'][0] == $uf2) { $data['uf'] = $uf1; $base = $bdd1; $basec = $bddc1; } elseif (BDD == $bdd1) { $data['uf'] = $ufu2; $base = $bdd2; $basec = $bddc2; } elseif (BDD == $bdd2) { $data['uf'] = $ufu1; $base = $bdd1; $basec = $bddc1; } // On vérifie si le patient est déjà présent ou non. $param['cw'] = "where nsej='" . $res['nsej'][0] . "' UNION select * from patients_sortis where nsej='" . $res['nsej'][0] . "'"; $param['table'] = PPRESENTS; $resEx = $req->Execute("Fichier", "getPatients", $param, "ResultQuery", $base); if ($resEx['INDIC_SVC'][2]) { $newidpatient = $resEx['idpatient'][0]; $exist = 1; } else { // Création du patient sur le terminal de destination. $req = new clRequete($base, PPRESENTS, $data); $sql = $req->addRecord(); $newidpatient = $sql['cur_id']; $exist = 0; } // Suppression du patient sur le terminal source. $req = new clRequete(BDD, PPRESENTS); $req->delRecord("idpatient={$idpatient}"); // Gestion des documents // Suppression des documents édités du patient sur le terminal de destination. $req = new clRequete($base, "editions"); $req->delRecord("idpatient={$newidpatient}"); // Récupération des documents édités du patient sur le terminal source. $req = new clResultQuery(); $param['cw'] = "where idpatient='" . $idpatient . "'"; $res = $req->Execute("Fichier", "getDocumentsEdites", $param, "ResultQuery"); // Création de chaque document du terminal source sur le terminal de destination. for ($i = 0; isset($res['idedition'][$i]); $i++) { unset($data); //$data['idedition'] = $res['idedition'][$i] ; $data['iddocument'] = $res['iddocument'][$i]; $data['idpatient'] = $newidpatient; $data['nomedition'] = $res['nomedition'][$i]; $data['urledition'] = $res['urledition'][$i]; $data['date'] = $res['date'][$i]; $data['iduser'] = $res['iduser'][$i]; $req = new clRequete($base, "editions", $data); $req->addRecord(); } $req = new clRequete(BDD, "editions"); $req->delRecord("idpatient={$idpatient}"); // Gestion des messages d'alertes. // Suppression des messages du patient sur le terminal de destination. $req = new clRequete($base, "logs_mails"); $req->delRecord("idpatient={$newidpatient}"); // Récupération des documents édités du patient sur le terminal source. $req = new clResultQuery(); $param['cw'] = "where idpatient='" . $idpatient . "'"; $res = $req->Execute("Fichier", "getMessages", $param, "ResultQuery"); // Création de chaque message du terminal source sur le terminal de destination. for ($i = 0; isset($res['idmail'][$i]); $i++) { unset($data); //$data['idmail'] = $res['idmail'][$i] ; $data['idpatient'] = $newidpatient; $data['dt_mail'] = $res['dt_mail'][$i]; $data['contenu'] = $res['contenu'][$i]; $data['nsej'] = $res['nsej'][$i]; $data['type_mail'] = $res['type_mail'][$i]; $data['traite'] = $res['traite'][$i]; $data['erreur'] = $res['erreur'][$i]; $data['positif'] = $res['positif'][$i]; $req = new clRequete($base, "logs_mails", $data); $req->addRecord(); } $req = new clRequete(BDD, "logs_mails"); $req->delRecord("idpatient={$idpatient}"); // Gestion des radios. // Suppression des radios du patient sur le terminal de destination. $req = new clRequete($base, "radios"); $req->delRecord("idpatient={$newidpatient}"); // Récupération des documents édités du patient sur le terminal source. $req = new clResultQuery(); $param['cw'] = "where idpatient='" . $idpatient . "'"; $res = $req->Execute("Fichier", "getRadiosGlob", $param, "ResultQuery"); // Création de chaque document du terminal source sur le terminal de destination. for ($i = 0; isset($res['idradio'][$i]); $i++) { unset($data); $data['idpatient'] = $newidpatient; //$data['idradio'] = $res['idradio'][$i] ; $data['etat'] = $res['etat'][$i]; $data['idapplication'] = $res['idapplication'][$i]; $data['id_instance'] = $res['id_instance'][$i]; $data['retour'] = $res['retour'][$i]; $data['retourid'] = $res['retourid'][$i]; $data['commentaire'] = $res['commentaire'][$i]; $data['dt_retour'] = $res['dt_retour'][$i]; $data['dt_creation'] = $res['dt_creation'][$i]; $data['dt_pec'] = $res['dt_pec'][$i]; $data['dt_encours'] = $res['dt_encours'][$i]; $data['dt_fin'] = $res['dt_fin'][$i]; $data['radiologue'] = $res['radiologue'][$i]; $data['adeli'] = $res['adeli'][$i]; $data['ccam'] = $res['ccam'][$i]; $req = new clRequete($base, "radios", $data); $req->addRecord(); } $req = new clRequete(BDD, "radios"); $req->delRecord("idpatient={$idpatient}"); /* // Gestion des formulaires. // Suppression des formulaires du patient sur le terminal de destination. $req = new clRequete ( $base, "formx" ) ; //eko ( $base ) ; if ( ! $exist ) $req->delRecord ( "ids='$idu'" ) ; // Récupération des documents édités du patient sur le terminal source. $req = new clResultQuery ; $param['table'] = 'formx' ; $param['cw'] = "where ids='$idu'" ; $res = $req -> Execute ( "Fichier", "FX_getGen", $param, "ResultQuery" ) ; // Création de chaque document du terminal source sur le terminal de destination. for ( $i = 0 ; isset ( $res['id_instance'][$i]) ; $i++ ) { unset ( $data ) ; $data['id_instance'] = $res['id_instance'][$i] ; $data['ids'] = $res['ids'][$i] ; $data['dt_creation'] = $res['dt_creation'][$i] ; $data['dt_modif'] = $res['dt_modif'][$i] ; $data['idformx'] = $res['idformx'][$i] ; $data['libelle'] = $res['libelle'][$i] ; $data['etape'] = $res['etape'][$i] ; $data['status'] = 'F' ; $data['data'] = $res['data'][$i] ; $data['author'] = $res['author'][$i] ; $req = new clRequete ( $base, "formx", $data ) ; $req->addRecord ( ) ; } */ // Gestion des actes et diagnotics // Suppression des actes et diags du patient sur le terminal de destination. $req = new clRequete($basec, "ccam_cotation_actes"); $req->delRecord("idEvent={$newidpatient}"); // Récupération des actes et des diags du patient sur le terminal source. $req = new clResultQuery(); $param['cw'] = "idEvent='" . $idpatient . "'"; $res = $req->Execute("Fichier", "CCAM_getActesDiagsCotation", $param, "ResultQuery"); // Création de chaque document du terminal source sur le terminal de destination. for ($i = 0; isset($res['identifiant'][$i]); $i++) { unset($data); $data['idEvent'] = $newidpatient; $data['dateEvent'] = $res['dateEvent'][$i]; $data['idDomaine'] = $res['idDomaine'][$i]; $data['dtFinInterv'] = $res['dtFinInterv'][$i]; $data['idu'] = $res['idu'][$i]; $data['ipp'] = $res['ipp'][$i]; $data['nomu'] = $res['nomu'][$i]; $data['pren'] = $res['pren'][$i]; $data['sexe'] = $res['sexe'][$i]; $data['dtnai'] = $res['dtnai'][$i]; $data['dateDemande'] = $res['dateDemande'][$i]; $data['typeAdm'] = $res['typeAdm'][$i]; $data['lieuInterv'] = $res['lieuInterv'][$i]; $data['numUFexec'] = $res['numUFexec'][$i]; $data['Urgence'] = $res['Urgence'][$i]; $data['codeActe'] = $res['codeActe'][$i]; $data['libelleActe'] = $res['libelleActe'][$i]; $data['cotationNGAP'] = $res['cotationNGAP'][$i]; $data['codeActivite4'] = $res['codeActivite4'][$i]; $data['modificateurs'] = $res['modificateurs'][$i]; $data['type'] = $res['type'][$i]; $data['categorie'] = $res['categorie'][$i]; $data['extensionDoc'] = $res['extensionDoc'][$i]; $data['matriculeIntervenant'] = $res['matriculeIntervenant'][$i]; $data['nomIntervenant'] = $res['nomIntervenant'][$i]; $data['numSejour'] = $res['numSejour'][$i]; $data['numUFdem'] = $res['numUFdem'][$i]; $data['validDefinitive'] = $res['validDefinitive'][$i]; $data['quantite'] = $res['quantite'][$i]; $data['periodicite'] = $res['periodicite'][$i]; $data['lesionMultiple'] = $res['lesionMultiple'][$i]; $data['envoi_facturation'] = $res['envoi_facturation'][$i]; $data['envoi_nomIntervenant'] = $res['envoi_nomIntervenant'][$i]; $data['envoi_matriculeIntervenant'] = $res['envoi_matriculeIntervenant'][$i]; $req = new clRequete($basec, "ccam_cotation_actes", $data); $req->addRecord(); } $req = new clRequete(CCAM_BDD, "ccam_cotation_actes"); $req->delRecord("idEvent={$idpatient}"); header('Location:index.php?navi=TGlzdGVfUHJlc2VudHM='); return ""; }
public function del() { $requete = new clRequete(BDD, $this->nomTable); $sql = $requete->delRecord($this->nomId . '=' . $this->id); }
function Creation_Dossier_Colectomie_Periode_P1($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_P1' and ids='" . $ids . "'"); $formx2 = new clFoRmX($ids, 'NO_POST_THREAT'); $formx2->loadForm('Dossier_Colectomie_Periode_P1'); //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_P1_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Actes']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre_Med', '<span style="color:#336666;font-weight:bold;">---- PRESCRIPTIONS MEDICALES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre_Med']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Bil_Com', '<span style="color:green;">Bilan complémentaire</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Bil_Com']); if ($tabValeurs['Colectomie_Periode_P1_Bil_Com_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Bil_Com_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Bil_Com_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Tra_Med', '<span style="color:green;">Traitement médicamenteux</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Tra_Med']); if ($tabValeurs['Colectomie_Periode_P1_Tra_Med_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Tra_Med_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Tra_Med_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Soi', '<span style="color:#336666;font-weight:bold;">---- SOINS</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Soi']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre_Col', '<span style="color:green;">Préparation colique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre_Col']); if ($tabValeurs['Colectomie_Periode_P1_Pre_Col_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre_Col_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre_Col_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre_Par', '<span style="color:green;">Préparation pariétale</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre_Par']); if ($tabValeurs['Colectomie_Periode_P1_Pre_Par_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre_Par_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre_Par_C']); } if ($tabValeurs['Colectomie_Periode_P1_Poi'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Poi', '<span style="color:green;">Poids en Kg</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Poi']); } if ($tabValeurs['Colectomie_Periode_P1_Tai'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Tai', '<span style="color:green;">Taille en mètre</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Tai']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Ali', '<span style="color:#336666;font-weight:bold;">---- ALIMENTATION</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Ali']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Die_Hyd', '<span style="color:green;">Diète hydrique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Die_Hyd']); if ($tabValeurs['Colectomie_Periode_P1_Die_Hyd_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Die_Hyd_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Die_Hyd_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Aut', '<span style="color:#336666;font-weight:bold;">---- AUTONOMIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Aut']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Apr_Eta_CM', '<span style="color:green;">Appréciation de l\'état initial</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Apr_Eta_CM']); if ($tabValeurs['Colectomie_Periode_P1_Apr_Eta_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Apr_Eta_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Apr_Eta_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Pre', '<span style="color:#336666;font-weight:bold;">---- PREPARATION DE LA SORTIE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pre']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Dem_Soi', '<span style="color:green;">Demande de soins de suite</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Dem_Soi']); if ($tabValeurs['Colectomie_Periode_P1_Dem_Soi_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Dem_Soi_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Dem_Soi_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Rec', '<span style="color:#336666;font-weight:bold;">---- RECUEIL INFORMATION/CONTROLE DOSSIER</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Rec']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Rec_Res', '<span style="color:green;">Recueil des résultats des examens prescrits</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Rec_Res']); if ($tabValeurs['Colectomie_Periode_P1_Rec_Res_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Rec_Res_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Rec_Res_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Heu_Int', '<span style="color:green;">Heure d\'intervention connue</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Heu_Int']); if ($tabValeurs['Colectomie_Periode_P1_Heu_Int_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Heu_Int_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Heu_Int_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Vis', '<span style="color:#336666;font-weight:bold;">---- VISITE MEDICALE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Vis']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Vis_Pre', '<span style="color:green;">Visite pré anesthésique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Vis_Pre']); if ($tabValeurs['Colectomie_Periode_P1_Vis_Pre_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Vis_Pre_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Vis_Pre_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Vis_Chi', '<span style="color:green;">Visite Chirurgien</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Vis_Chi']); if ($tabValeurs['Colectomie_Periode_P1_Vis_Chi_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Vis_Chi_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Vis_Chi_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P1_Res', '<span style="color:#336666;font-weight:bold;">---- RESULTATS OBTENUS POUR LE PATIENT</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Res']); createItem($formx2, $etape, 'Colectomie_Periode_P1_Pat_Pre', '<span style="color:green;">Patient prêt pour le bloc</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pat_Pre']); if ($tabValeurs['Colectomie_Periode_P1_Pat_Pre_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P1_Pat_Pre_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P1_Pat_Pre_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 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; }
function delActes() { //eko ("coucou delActes"); global $session; if (is_array($_POST['listeDroite'])) { while (list($key, $val) = each($_POST['listeDroite'])) { if ($val and $val != "aucun#") { $requete = new clRequete(CCAM_BDD, "ccam_actes_domaine"); $requete->delRecord("idActe='{$val}' AND idDomaine=" . CCAM_IDDOMAINE); } } $retourInfos = "Les actes sélectionnés ont été supprimés de la liste restreinte"; return $retourInfos; } }
function delItem() { global $session; global $options; global $errs; $req = new clResultQuery(); // Récupération des informations actuelles de l'item. $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND nomliste='" . $_POST['liste'] . "' AND categorie='" . $this->type . "' AND iditem='" . $_POST['item'] . "'"; $res = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery"); // Récupération de la liste des 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 que l'item existe. if ($res[INDIC_SVC][2] > 0) { // Décalage des rangs des autres items. $rang = $res[rang][0]; $param[cw] = "WHERE idDomaine='" . CCAM_IDDOMAINE . "' AND rang>'{$rang}' AND categorie='" . $this->type . "' AND nomitem!='LISTE' AND nomliste='" . $_POST['liste'] . "'"; $res3 = $req->Execute("Fichier", "CCAM_getListesItemsComplexes", $param, "ResultQuery"); //newfct ( gen_affiche_tableau, $res3[INDIC_SVC] ) ; for ($i = 0; isset($res3[iditem][$i]); $i++) { $data[rang] = $res3[rang][$i] - 1; $requete = new clRequete(CCAM_BDD, "ccam_liste", $data); $requete->updRecord("iditem='" . $res3[iditem][$i] . "'"); } // Message d'information. $this->infos .= "L'item \"" . $res[nomitem][0] . "\" a été supprimé de la liste \"" . $res[nomliste][0] . "\""; // Suppression de l'item. $requete = new clRequete(CCAM_BDD, "ccam_liste"); $requete->delRecord("nomListe='" . $_POST['liste'] . "' AND iditem='" . $_POST['item'] . "'"); $_POST['item'] = ''; } else { // Signalement $this->erreurs .= "L'item ne peut pas être supprimé (id=\"{$idItem}\") car il n'existe pas."; $errs->addErreur("clListesGenerales : L'item ne peut pas être supprimé (id=\"{$idItem}\") car il n'existe pas."); } }
function setSessionSQL() { global $options; // Date actuelle. $date = new clDate(); // On met à jour la session actuelle. $data['nombre'] = "nombre+1"; $data['last'] = $date->getDatetime(); $data['localisation'] = $this->navi; $data['idapplication'] = IDAPPLICATION; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESACTU, $data); // Exécution de la requete. $res = $requete->updRecord("uid='" . $this->informations['iduser'] . "' AND type='" . $this->informations['type'] . "' AND idsession='" . $_SESSION['sidtuv2' . $this->index] . "'"); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($res); } // Si la session n'a pas pu mettre à jour, on regarde les différents cas possibles. if (!$res['affected_rows']) { // La session existe-t-elle ? $param['cw'] = "WHERE idsession='" . $_SESSION['sidtuv2' . $this->index] . "'"; $req = new clResultQuery(); $res = $req->Execute("Fichier", "getSessionsActuelles", $param, "ResultQuery"); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($res['INDIC_SVC']); } // Si la session existe. if ($res['INDIC_SVC'][2]) { // On historise son état actuel. unset($data); $data['idapplication'] = IDAPPLICATION; $data['nombre'] = $res['nombre'][0]; $data['uid'] = $res['uid'][0]; $data['type'] = $res['type'][0]; $data['ip'] = $res['ip'][0]; $data['dateshisto'] = $res['date'][0]; $data['dateslast'] = $res['last'][0]; $data['navigateur'] = $res['navigateur'][0]; $data['fonctions'] = $res['fonctions'][0]; $data['equipes'] = $res['equipes'][0]; $data['organisations'] = $res['organisations'][0]; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESHIST, $data); // Exécution de la requete. $res = $requete->addRecord(); // Affichage pour débugage. if (DEBUGLOGSESSION) { affTab($res); } // Puis on met à jour cette session. unset($data); $data['idapplication'] = IDAPPLICATION; $data['nombre'] = "1"; $data['localisation'] = $this->navi; $data['uid'] = $this->informations['iduser']; $data['type'] = $this->informations['type']; $data['ip'] = $_SERVER['REMOTE_ADDR']; $data['date'] = $date->getDatetime(); $data['last'] = $date->getDatetime(); $data['navigateur'] = $this->informations['navigateur']; $data['fonctions'] = implode('|', isset($this->informations['fonctions']) ? $this->informations['fonctions'] : array()); $data['equipes'] = implode('|', isset($this->informations['service']) ? $this->informations['service'] : array()); $data['organisations'] = $this->informations['org']; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESACTU, $data); // Exécution de la requete. $res = $requete->updRecord("idsession='" . $_SESSION['sidtuv2' . $this->index] . "'"); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($res); } } else { // Si la session n'existe pas, on la crée avec les bonnes informations. unset($data); if ($this->navi != "Importation" and $this->navi != "SW1wb3J0YXRpb24=" and $this->navi != "Q29uZmlndXJhdGlvbnxjcm9u") { $param[cw] = "WHERE uid='" . $this->informations['iduser'] . "'"; $req = new clResultQuery(); $res = $req->Execute("Fichier", "getSessionsActuelles", $param, "ResultQuery"); if (DEBUGLOGSESSION) { print affTab($res['INDIC_SVC']); } if ($res['INDIC_SVC'][2] and $options->getOption("UniqLogin") and !$_POST['AuthentificationDemandee']) { $this->informations = ''; $this->informations['type'] = "Echec"; $this->informations['nom'] = "Invité"; $this->informations['prenom'] = "Invité"; $this->informations['pseudo'] = "Invité"; $this->informations['mail'] = "*****@*****.**"; $this->informations['iduser'] = "******"; $this->informations['idgroupe'] = "1"; $this->informations['ip'] = $_SERVER['REMOTE_ADDR']; $this->informations['navigateur'] = $_SERVER["HTTP_USER_AGENT"]; $this->informations['fonctions'] = array(); $this->informations['service'] = array(); $this->informations['org'] = ''; // Sauvegarde des informations. $_SESSION['informations'] = $this->informations; } else { $data['idapplication'] = IDAPPLICATION; $data['nombre'] = "1"; $data['localisation'] = $this->navi; $data['uid'] = $this->informations['iduser']; $data['type'] = $this->informations['type']; $data['ip'] = $_SERVER['REMOTE_ADDR']; $data['date'] = $date->getDatetime(); $data['last'] = $date->getDatetime(); $data['idsession'] = $_SESSION['sidtuv2' . $this->index]; $data['navigateur'] = $this->informations['navigateur']; $data['fonctions'] = implode('|', isset($this->informations['fonctions']) ? $this->informations['fonctions'] : array()); $data['equipes'] = implode('|', isset($this->informations['service']) ? $this->informations['service'] : array()); $data['organisations'] = $this->informations['org']; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESACTU, $data); // Exécution de la requete. $res = $requete->addRecord(); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($res); } } } } } if ($options->getOption("UniqLogin")) { $requete = new clRequete(BASEXHAM, TABLESACTU); // Exécution de la requete. $res = $requete->delRecord("uid='" . $this->informations['iduser'] . "' AND last<'" . $date->getDatetime() . "' AND idsession!='" . $_SESSION['sidtuv2' . $this->index] . "'"); if (DEBUGLOGSESSION) { print affTab($res); } } // Maintenant, on historise les sessions qui ne sont plus valides et on les supprime // de la table des sessions actuelles. $dmax = $options->getOption("DureeSession"); $dact = $date->getDatetime(); $date->addMinutes("-{$dmax}"); $param['cw'] = "WHERE last<'" . $date->getDatetime() . "' AND idapplication=" . IDAPPLICATION; $req = new clResultQuery(); $res = $req->Execute("Fichier", "getSessionsActuelles", $param, "ResultQuery"); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($res[INDIC_SVC]); } for ($i = 0; isset($res['idsactu'][$i]); $i++) { unset($data); $data['idapplication'] = IDAPPLICATION; $data['nombre'] = $res['nombre'][$i]; $data['uid'] = $res['uid'][$i]; $data['type'] = $res['type'][$i]; $data['ip'] = $res['ip'][$i]; $data['dateshisto'] = $res['date'][$i]; $data['dateslast'] = $res['last'][$i]; $data['navigateur'] = $res['navigateur'][$i]; $data['fonctions'] = $res['fonctions'][$i]; $data['equipes'] = $res['equipes'][$i]; $data['organisations'] = $res['organisations'][$i]; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESHIST, $data); // Exécution de la requete. $ras = $requete->addRecord(); // Affichage pour débugage. if (DEBUGLOGSESSION) { affTab($ras); } unset($data); $data['idapplication'] = IDAPPLICATION; $data['nombre'] = "1"; // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLESACTU, $data); // Exécution de la requete. $rus = $requete->delRecord("idsession='" . $res['idsession'][$i] . "'"); // Affichage pour débugage. if (DEBUGLOGSESSION) { print affTab($rus); } } }
function supprimerActeur() { global $session; $param['ob'] = ''; $param['cw'] = "WHERE idActeur=" . $_POST['idActeur']; $req = new clResultQuery(); $res = $req->Execute("Fichier", "authCodeAcces", $param, "ResultQuery"); if (post('Supprimer') or post('Supprimer_x')) { // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLEACTEURS); // Exécution de la requete. $rs = $requete->delRecord("idActeur=" . $_POST['idActeur']); if (!$rs[1]) { $this->infos .= "L'acteur '" . $res['nomActeur'][0] . "' a bien été supprimé.<br/>"; unset($_POST['idActeur']); } else { $this->erreurs .= "Une erreur inconnue s'est produite lors de la suppression de l'acteur.<br/>"; } } else { $mod = new ModeliXe("FormConfirmation.mxt"); $mod->SetModeliXe(); $mod->MxText("question", "Confirmez-vous la suppression de l'acteur '" . $res['nomActeur'][0] . "' ?"); $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1)) . "&idActeur=" . $_POST['idActeur']); $this->af .= $mod->MxWrite("1"); } }
function Creation_Dossier_Colectomie_Periode_P2($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_P2' and ids='" . $ids . "'"); $formx2 = new clFoRmX($ids, 'NO_POST_THREAT'); $formx2->loadForm('Dossier_Colectomie_Periode_P2'); //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_P2_Actes', '<span style="color:#CC3333;font-weight:bold;">ACTES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Actes']); createItem($formx2, $etape, 'Colectomie_Periode_P2_Soi', '<span style="color:#336666;font-weight:bold;">---- SOINS</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Soi']); createItem($formx2, $etape, 'Colectomie_Periode_P2_Soi_Pre', '<span style="color:green;">Soins pré-bloc immédiat</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Soi_Pre']); if ($tabValeurs['Colectomie_Periode_P2_Soi_Pre_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Soi_Pre_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Soi_Pre_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Sur_Rap', '<span style="color:green;">Surveillance rapprochée</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sur_Rap']); if ($tabValeurs['Colectomie_Periode_P2_Sur_Rap_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Sur_Rap_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sur_Rap_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Sng', '<span style="color:green;">SNG</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sng']); if ($tabValeurs['Colectomie_Periode_P2_Sng_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Sng_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sng_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Sur_Diu', '<span style="color:green;">Surveillance diurèse sur 24 H</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sur_Diu']); if ($tabValeurs['Colectomie_Periode_P2_Sur_Diu_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Sur_Diu_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Sur_Diu_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Pre', '<span style="color:#336666;font-weight:bold;">---- PRESCRIPTIONS MEDICALES</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Pre']); createItem($formx2, $etape, 'Colectomie_Periode_P2_Pri_Cha', '<span style="color:green;">Prise en charge de la douleur</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Pri_Cha']); if ($tabValeurs['Colectomie_Periode_P2_Pri_Cha_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Pri_Cha_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Pri_Cha_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Dou_Mai', '<span style="color:green;">Douleur Maîtrisée Inférieur à 4</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Dou_Mai']); if ($tabValeurs['Colectomie_Periode_P2_Dou_Mai_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Dou_Mai_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Dou_Mai_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Dou_Eva', '<span style="color:green;">Douleur évaluée par</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Dou_Eva']); if ($tabValeurs['Colectomie_Periode_P2_Dou_Eva_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Dou_Eva_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Dou_Eva_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Tra_Ant', '<span style="color:green;">Traitement anti-thromboembolique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Tra_Ant']); if ($tabValeurs['Colectomie_Periode_P2_Tra_Ant_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Tra_Ant_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Tra_Ant_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Aut_Pre', '<span style="color:green;">Autre prescription</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Aut_Pre']); if ($tabValeurs['Colectomie_Periode_P2_Aut_Pre_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Aut_Pre_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Aut_Pre_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Vis', '<span style="color:#336666;font-weight:bold;">---- VISITE MEDICALE</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Vis']); createItem($formx2, $etape, 'Colectomie_Periode_P2_Vis_Med', '<span style="color:green;">Visite médicale</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Vis_Med']); if ($tabValeurs['Colectomie_Periode_P2_Vis_Med_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Vis_Med_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Vis_Med_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Ren_Fam', '<span style="color:green;">Rencontre avec la famille</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Ren_Fam']); if ($tabValeurs['Colectomie_Periode_P2_Ren_Fam_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Ren_Fam_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Ren_Fam_C']); } createItem($formx2, $etape, 'Colectomie_Periode_P2_Res', '<span style="color:#336666;font-weight:bold;">---- RESULTATS OBTENUS POUR LE PATIENT</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Res']); createItem($formx2, $etape, 'Colectomie_Periode_P2_Ret_Ser', '<span style="color:green;">Retour dans le service d\'un patient cadré et non algique</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Ret_Ser']); if ($tabValeurs['Colectomie_Periode_P2_Ret_Ser_C'] != "") { createItem($formx2, $etape, 'Colectomie_Periode_P2_Ret_Ser_C', '<span style="color:#666699;">Commentaires</span>', 'TXT', $tabValeurs['Colectomie_Periode_P2_Ret_Ser_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 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 delOption($idoption) { global $session; // On récupère les informations sur l'option. $param['cw'] = "WHERE idoption={$idoption}"; $req = new clResultQuery(); $res = $req->Execute("Fichier", "getOptions", $param, "ResultQuery"); // Si la confirmation de suppression est présente, alors on lance la suppression. if (isset($_POST['Supprimer']) or isset($_POST['Supprimer_x'])) { // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLEOPTS); // Exécution de la requete. $requete->delRecord("idoption={$idoption} AND idapplication=" . IDAPPLICATION); } else { // Sinon, on affiche un formulaire de confirmation (Annuler/Supprimer). $mod = new ModeliXe("FormConfirmation.mxt"); $mod->SetModeliXe(); $mod->MxText("question", "Confirmez-vous la suppression de l'option '" . $res['libelle'][0] . "' ?"); $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2), $session->getNavi(3))); return $mod->MxWrite("1"); } }
function delPatient() { // Appel de la classe Requete. $requete = new clRequete($this->base, $this->table); // Exécution de la requete. $requete->delRecord("idpatient='" . $this->idpatient . "'"); }
function delMenu($idmenu, $type) { global $session; if ($session->getDroit("Configuration_Navigation", "d")) { $param['cw'] = "WHERE idunique='{$idmenu}'" . " AND idapplication=" . IDAPPLICATION; $req = new clResultQuery(); $res = $req->Execute("Fichier", "getMenus", $param, "ResultQuery"); if ($type == "menu") { $param['cw'] = "WHERE menuparent='{$idmenu}'" . " AND idapplication=" . IDAPPLICATION; $ras = $req->Execute("Fichier", "getMenus", $param, "ResultQuery"); } if ($res['lectureseule'][0]) { $this->erreurs .= "C'est un menu système, il est impossible de le supprimer."; } elseif (isset($ras) and $ras['INDIC_SVC'][2]) { $this->erreurs .= "Ce menu contient des items, il est impossible de le supprimer."; } else { if (isset($_POST['Supprimer']) or isset($_POST['Supprimer_x'])) { // Appel de la classe Requete. $requete = new clRequete(BASEXHAM, TABLENAVI); // Exécution de la requete. $requete->delRecord("idunique='{$idmenu}'"); $this->infos .= "Le menu '" . $res['libelle'][0] . "' a bien été supprimé."; if ($type == "menu") { $this->majRangs($res['rang'][0]); } else { $this->majRangs($res['rang'][0], $res['menuparent'][0]); } } else { $mod = new ModeliXe("FormConfirmation.mxt"); $mod->SetModeliXe(); $mod->MxText("question", "Confirmez-vous la suppression du menu '" . $res['libelle'][0] . "' ?"); $mod->MxHidden("hidden", "navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2), $session->getNavi(3))); return $mod->MxWrite("1"); } } } }