* @package Mediboard
* @subpackage Patients
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision:$
*/
CCanDo::checkRead();
$dossier_medical_id = CValue::get("dossier_medical_id");
$object_guid = CValue::get("object_guid");
$type = CValue::get("type");
$exclude = CValue::get("exclude");
if ($object_guid) {
$dossier_medical = CMbObject::loadFromGuid($object_guid);
} else {
$dossier_medical = new CDossierMedical();
$dossier_medical->load($dossier_medical_id);
}
if ($type) {
$dossier_medical->loadRefsAntecedentsOfType($type);
} else {
$dossier_medical->loadRefsAntecedents();
}
$tab_atc = array();
$ant_communs = array();
$patient = null;
if ($dossier_medical->object_class == "CSejour") {
$dossier_medical->loadRefObject();
/* @var CSejour $sejour*/
$sejour = $dossier_medical->_ref_object;
$doss_patient = $sejour->loadRefPatient()->loadRefDossierMedical();
if ($type) {
/**
* Vérifie et extrait les codes CIM des remarques pour les sauvegarder dans le dossier médical
*
* @return void
*/
function checkCodeCim10()
{
preg_match_all('/\\b[A-Z]\\d{2}\\.?\\d{0,2}\\b/i', $this->rques, $matches);
foreach ($matches as $match_) {
foreach ($match_ as &$match) {
// Transformation du code CIM pour le tester
$match = str_replace(".", "", $match);
$match = strtoupper($match);
// Chargement du code CIM 10
$code_cim10 = CCodeCIM10::get($match);
if ($code_cim10->libelle != "Code CIM inexistant") {
// Cas du code valide, sauvegarde du code CIM
$dossier_medical = new CDossierMedical();
$dossier_medical->load($this->dossier_medical_id);
// si le code n'est pas deja present, on le rajoute
if (!array_key_exists($match, $dossier_medical->_ext_codes_cim)) {
if ($dossier_medical->codes_cim != "") {
$dossier_medical->codes_cim .= "|";
}
$dossier_medical->codes_cim .= $match;
$dossier_medical->store();
}
}
}
}
}
