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");
}
}
}
}
