function syncPatient($update = true) { $medecin_id = $this->consume("medecin_id"); // Gestion des id400 $tag = "medecin-patient"; $idex = new CIdSante400(); $idex->object_class = "CPatient"; $idex->id400 = $medecin_id; $idex->tag = $tag; // Identité $patient = new CPatient(); $patient->nom = $this->consume("nom"); $patient->prenom = CValue::first($this->consume("prenom"), $patient->nom); // Simulation de l'âge $year = 1980 - strlen($patient->nom); $month = '01'; $day = str_pad(strlen($patient->prenom) % 30, 2, '0', STR_PAD_LEFT); $patient->naissance = "{$year}-{$month}-{$day}"; // Binding $this->trace($patient->getProperties(true), "Patient à enregistrer"); $idex->bindObject($patient); $this->markStatus(self::STATUS_PATIENT); }
/** * Catalogue import */ function importCatalogue($cat, $parent_id = null) { global $remote_name; CApp::setTimeLimit(180); // On rend toutes les analyses du catalogue obsoletes $idAnalyse = new CIdSante400(); $idAnalyse->tag = $remote_name; $idAnalyse->object_class = "CExamenLabo"; $idAnalyses = $idAnalyse->loadMatchingList(); foreach ($idAnalyses as $_id_analyse) { $examenLabo = new CExamenLabo(); $examenLabo->identifiant = $_id_analyse->id400; $examenLabo->loadMatchingObject(); if ($examenLabo->_id) { $examenLabo->obsolete = 1; $examenLabo->store(); } } $idCatalogue = new CIdSante400(); $idCatalogue->tag = $remote_name; $idCatalogue->object_class = "CCatalogueLabo"; $idCatalogues = $idCatalogue->loadMatchingList(); foreach ($idCatalogues as $_id_catalogue) { $catalogueLabo = new CCatalogueLabo(); $catalogueLabo->identifiant = $_id_catalogue->id400; $catalogueLabo->loadMatchingObject(); if ($catalogueLabo->_id) { $catalogueLabo->obsolete = 1; $catalogueLabo->store(); } } $compteur["analyses"] = 0; $compteur["chapitres"] = 0; $compteur["sousChapitre"] = 0; $catalogues = array(); // Creation du catalogue global LABO $catal = new CCatalogueLabo(); $catalogue = new CCatalogueLabo(); $catal->identifiant = substr(hash('md5', $remote_name), 0, 4); // libelle modifié par hash $catal->libelle = $remote_name; $catal->pere_id = $parent_id; // creation de son id400 $idCat = new CIdSante400(); $idCat->tag = $remote_name; $idCat->id400 = $remote_name; $catal->obsolete = 0; $idCat->bindObject($catal); //CAppUI::stepAjax("Catalogue '$catal->libelle' importé", UI_MSG_OK); $path = $remote_name; // on met a jour $catalogues $catalogues[$path] = $catal; //Parcours des analyses foreach ($cat->analyse as $_analyse) { $chapitre = (string) $_analyse->chapitre; $path = "{$remote_name}/{$chapitre}/"; if (!$chapitre) { $path = $remote_name; } $catChapitre = new CCatalogueLabo(); // si le catalogue n'existe pas deja if (!array_key_exists($path, $catalogues)) { // creation du catalogue $catChapitre->identifiant = substr(hash('md5', $chapitre), 0, 4); // libelle modifié par hash; $catChapitre->libelle = $chapitre; $catChapitre->pere_id = $catal->_id; $catChapitre->decodeUtfStrings(); //creation de l'id400 $idCatChapitre = new CIdSante400(); $idCatChapitre->tag = $remote_name; $idCatChapitre->id400 = substr(hash('md5', $chapitre), 0, 4); $catChapitre->obsolete = 0; $idCatChapitre->bindObject($catChapitre); //CAppUI::stepAjax("Catalogue '$catChapitre->libelle' importé", UI_MSG_OK); $compteur["chapitres"]++; // on met a jour $catalogues $catalogues[$path] = $catChapitre; } $catChapitre = $catalogues[$path]; $catalogue = $catChapitre; // si il y a un sous chapitre a creer==> le pere du sous chapitre est $catalogue->_id; $sschapitre = (string) $_analyse->sschapitre; if ($sschapitre) { // modification du path $path .= $sschapitre; $catssChapitre = new CCatalogueLabo(); if (!array_key_exists($path, $catalogues)) { // creation du catalogue $catssChapitre->identifiant = substr(hash('md5', $sschapitre), 0, 4); // libelle modifié par hash; $catssChapitre->libelle = $sschapitre; $catssChapitre->pere_id = $catChapitre->_id; $catssChapitre->decodeUtfStrings(); //creation de l'id400 $idCatssChapitre = new CIdSante400(); $idCatssChapitre->tag = $remote_name; $idCatssChapitre->id400 = substr(hash('md5', $sschapitre), 0, 4); $catssChapitre->obsolete = 0; $idCatssChapitre->bindObject($catssChapitre); //CAppUI::stepAjax("Sous Catalogue '$catssChapitre->libelle' importé", UI_MSG_OK); $compteur["sousChapitre"]++; //on met à jour les catalogues $catalogues[$path] = $catssChapitre; } $catssChapitre = $catalogues[$path]; $catalogue = $catssChapitre; } // Code de l'analyse $catAtt = $_analyse->attributes(); $code = $catAtt["code"]; $idAnalyse = new CIdSante400(); $idAnalyse->tag = $remote_name; $idAnalyse->id400 = (string) $code; $analyse = new CExamenLabo(); $analyse->identifiant = (string) $code; $analyse->libelle = (string) $_analyse->libelle; $analyse->decodeUtfStrings(); $analyse->technique = (string) $_analyse->technique; $analyse->duree_execution = (string) $_analyse->delaitechnique; $materiel = utf8_decode((string) $_analyse->materiel); $materiel = trim($materiel); switch ($materiel) { case "SANG VEINEUX": $analyse->type_prelevement = "sang"; break; case "URINE": $analyse->type_prelevement = "urine"; break; case "BIOPSIE": $analyse->type_prelevement = "biopsie"; break; } //$analyse->applicabilite = (string) $_analyse->applicablesexe; $analyse->execution_lun = (string) $_analyse->joursrealisation->lundi; $analyse->execution_mar = (string) $_analyse->joursrealisation->mardi; $analyse->execution_mer = (string) $_analyse->joursrealisation->mercredi; $analyse->execution_jeu = (string) $_analyse->joursrealisation->jeudi; $analyse->execution_ven = (string) $_analyse->joursrealisation->vendredi; $analyse->execution_sam = (string) $_analyse->joursrealisation->samedi; $analyse->execution_dim = (string) $_analyse->joursrealisation->dimanche; $analyse->catalogue_labo_id = $catalogue->_id; $analyse->type = "num"; $analyse->obsolete = 0; $idAnalyse->bindObject($analyse); //CAppUI::stepAjax("Analyse '$analyse->identifiant' importée", UI_MSG_OK); $compteur["analyses"]++; } // fin du foreach CAppUI::stepAjax("Analyses Importées: " . $compteur["analyses"] . ", Chapitres Importés: " . $compteur["chapitres"] . ", Sous chapitres Importés: " . $compteur["sousChapitre"], UI_MSG_OK); }
/** * Packs import */ function importPacks($packs) { global $m, $remote_name; // Chargement des identifiants externes des packs $idPackExamen = new CIdSante400(); $idPackExamen->tag = $remote_name; $idPackExamen->object_class = "CPackExamensLabo"; $idPackExamens = $idPackExamen->loadMatchingList(); // Parcours des identifiants externes des Packs d'examens foreach ($idPackExamens as $_id_pack_examen) { $packExamen = new CPackExamensLabo(); $packExamen->load($_id_pack_examen->object_id); // Chargement des items de packs $packExamen->loadRefsItemExamenLabo(); // On vide chaque pack foreach ($packExamen->_ref_items_examen_labo as $_packItemExamen) { // Chargement de l'examen labo pour obtenir l'identifiant necessaire pour supprime l'id externe $_packItemExamen->loadRefExamen(); // Suppression de l'id400 du packItem $_id_pack_examen = new CIdSante400(); $_id_pack_examen->tag = $remote_name; $_id_pack_examen->object_class = $_packItemExamen->_class; $_id_pack_examen->object_id = $_packItemExamen->_id; $_id_pack_examen->loadMatchingObject(); if ($_id_pack_examen->_id) { $_id_pack_examen->delete(); } // Suppression du pack item $_packItemExamen->delete(); } if ($packExamen->_id) { $packExamen->obsolete = 1; $packExamen->store(); } } // Nombre de packs et d'analyses $nb["packs"] = 0; $nb["analysesOK"] = 0; $nb["analysesKO"] = 0; // Liste des analyses nono trouvees $erreurs = array(); // On crée chaque pack ainsi qu'un id400 associé foreach ($packs->bilan as $_pack) { $pack = new CPackExamensLabo(); $pack->function_id = ""; $pack->libelle = utf8_decode((string) $_pack->libelle); $pack->code = (int) $_pack->code; // Sauvegarde du pack $idPack = new CIdSante400(); // tag des id externe des packs => nom du laboatoire ==> LABO $idPack->tag = $remote_name; $idPack->id400 = (int) $_pack->code; $pack->obsolete = 0; $idPack->bindObject($pack); // On crée les analyses correspondantes foreach ($_pack->analyses->cana as $_analyse) { // Creation de l'analyse $analyse = new CPackItemExamenLabo(); // Chargement de l'analyse $examLabo = new CExamenLabo(); $whereExam = array(); $whereExam['identifiant'] = (string) " = '{$_analyse}'"; $examLabo->loadObject($whereExam); if ($examLabo->_id) { $analyse->pack_examens_labo_id = $pack->_id; $analyse->examen_labo_id = $examLabo->examen_labo_id; // Sauvegarde de l'analyse et de son id400 $idExamen = new CIdSante400(); $idExamen->tag = $remote_name; $idExamen->id400 = (string) $_analyse; $idExamen->bindObject($analyse); $nb["analysesOK"]++; } else { $erreurs[][(string) $_pack->libelle] = (string) $_analyse; $nb["analysesKO"]++; } } $nb["packs"]++; } // Recapitulatif des importations CAppUI::stepAjax("Packs Importés: " . $nb["packs"], UI_MSG_OK); CAppUI::stepAjax("Analyses Importées: " . $nb["analysesOK"], UI_MSG_OK); CAppUI::stepAjax("Analyses non importées: " . $nb["analysesKO"], UI_MSG_WARNING); foreach ($erreurs as $erreur) { foreach ($erreur as $_key => $_erreur) { CAppUI::stepAjax("Analyse non trouvée: " . $_erreur . " dans le pack " . utf8_decode($_key), UI_MSG_WARNING); } } }