* dPcim10
*
* @category Cim10
* @package Mediboard
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version SVN: $Id: vw_find_code.php 27313 2015-02-25 13:23:18Z flaviencrochard $
* @link http://www.mediboard.org
*/
CCanDo::checkRead();
$lang = CValue::getOrSession("lang", CCodeCIM10::LANG_FR);
$code = CValue::getOrSession("code", "");
$keys = CValue::getOrSession("keys", "");
$level1 = CValue::getOrSession("level1", "");
$level2 = CValue::getOrSession("level2", "");
if (CValue::session("code") || CValue::session("keys")) {
$level1 = "";
CValue::setSession("level1");
}
if (!$level1) {
$level2 = "";
CValue::setSession("level2");
}
$cim10 = new CCodeCIM10();
$listLevel1 = $cim10->getSommaire($lang);
$listLevel2 = array();
$master = array();
$keys = trim($keys);
$code = trim($code);
if ($code || $keys) {
$master = $cim10->findCodes($code, $keys, $lang);
* $Id$
*
* @category DPpatients
* @package Mediboard
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
* @link http://www.mediboard.org
*/
if (!CAppUI::pref("allowed_modify_identity_status")) {
CAppUI::redirect("m=system&a=access_denied");
}
$state = CValue::get("state");
$page = (int) CValue::get("page", 0);
$date_min = CValue::session("patient_state_date_min");
$date_max = CValue::session("patient_state_date_max");
$patients = array();
$patients_state = array();
$where = array();
$leftjoin = null;
$patient = new CPatient();
if ($date_min) {
$where["entree"] = ">= '{$date_min}'";
$leftjoin["sejour"] = "patients.patient_id = sejour.patient_id";
}
if ($date_max) {
$where["sortie"] = "<= '{$date_max}'";
$leftjoin["sejour"] = "patients.patient_id = sejour.patient_id";
}
$patients_count = CPatientState::getAllNumberPatient($date_min, $date_max);
if ($patients_count[$state] > 0) {
* @package Mediboard
* @subpackage System
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
CCanDo::checkRead();
$object_class = CValue::get("object_class");
$object_guid = CValue::get("object_guid");
$hide_tree = CValue::get("hide_tree");
$tree_width = CValue::get("tree_width");
$group_id = CValue::get("group_id");
$columns = CValue::get("col");
if (!$object_class && $object_guid) {
$parts = explode("-", $object_guid);
$object_class = $parts[0];
}
if (!$object_class || !is_subclass_of($object_class, "CMbObject")) {
CAppUI::stepAjax("Nom de classe invalide <strong>{$object_class}</strong>", UI_MSG_ERROR);
}
if (!$object_guid) {
$object_guid = CValue::session("object_guid", "{$object_class}-0");
}
$smarty = new CSmartyDP("modules/system");
$smarty->assign("object_class", $object_class);
$smarty->assign("object_guid", $object_guid);
$smarty->assign("columns", $columns);
$smarty->assign("hide_tree", $hide_tree);
$smarty->assign("tree_width", $tree_width);
$smarty->assign("group_id", $group_id);
$smarty->display("vw_object_tree_explorer.tpl");
$patient->_id = "";
$patient->loadRefsFwd();
$consult = new CConsultation();
bindHashToObject($_GET + $_SESSION["dPpatients"], $consult);
$consult->loadRefsFwd();
$consult->_rques_consult = CValue::get("_rques_consult", CValue::session("_rques_consult"));
$consult->_examen_consult = CValue::get("_examen_consult", CValue::session("_examen_consult"));
$sejour = new CSejour();
bindHashToObject($_GET + $_SESSION["dPpatients"], $sejour);
$sejour->loadRefsFwd();
$sejour->_rques_sejour = CValue::get("_rques_sejour", CValue::session("_rques_sejour"));
$interv = new COperation();
bindHashToObject($_GET + $_SESSION["dPpatients"], $interv);
$interv->loadRefsFwd();
$interv->_libelle_interv = CValue::get("_libelle_interv", CValue::session("_libelle_interv"));
$interv->_rques_interv = CValue::get("_rques_interv", CValue::session("_rques_interv"));
$antecedent = new CAntecedent();
bindHashToObject($_GET + $_SESSION["dPpatients"], $antecedent);
$antecedent->loadRefsFwd();
$traitement = new CTraitement();
bindHashToObject($_GET + $_SESSION["dPpatients"], $traitement);
$traitement->loadRefsFwd();
$prescription = new CPrescription();
$prescription->type = CValue::getOrSession("type_prescription");
$line_med = new CPrescriptionLineMedicament();
$line_med->code_ucd = CValue::getOrSession("code_ucd");
$line_med->code_cis = CValue::getOrSession("code_cis");
$line_med->_ucd_view = CValue::getOrSession("produit");
$libelle_produit = CValue::getOrSession("libelle_produit");
$classes_atc = CValue::getOrSession("classes_atc");
$keywords_atc = CValue::getOrSession("keywords_atc");
}
// Chargement des banques
$orderBanque = "nom ASC";
$banque = new CBanque();
$banques = $banque->loadList(null, $orderBanque);
// Test compliqué afin de savoir quelle consultation charger
if ($consult->load($consult_id) && $consult->patient_id) {
$consult->loadRefPlageConsult();
}
// On charge le praticien
$userSel = new CMediusers();
$userSel->load($consult->_ref_plageconsult->chir_id);
$userSel->loadRefs();
$canUserSel = $userSel->canDo();
// assign to session the current consultation praticien
$chirSession = CValue::session("chirSel");
if ($chirSession != $userSel->_id && $canUserSel) {
CValue::setSession("chirSel", $userSel->_id);
}
$anesth = new CTypeAnesth();
$anesth = $anesth->loadGroupList();
$consultAnesth =& $consult->_ref_consult_anesth;
// Consultation courante
$consult->_ref_chir =& $userSel;
// Chargement de la consultation
if ($consult->_id) {
$consult->canDo()->needsEdit(array("consult_id" => null));
$consult->loadRefs();
// Chargement de la consultation d'anesthésie
// Chargement de la vue de chacun des dossiers
foreach ($consult->_refs_dossiers_anesth as $_dossier) {
if ($chap1 && $chap1 == $chap1old) {
$chap2old = CValue::session("chap2");
$chap2 = CValue::getOrSession("chap2");
} else {
$chap2 = $chap2old = "";
CValue::setSession("chap2");
}
if ($chap2 && $chap2 == $chap2old) {
$chap3old = CValue::session("chap3");
$chap3 = CValue::getOrSession("chap3");
} else {
$chap3 = $chap3old = "";
CValue::setSession("chap3");
}
if ($chap3 && $chap3 == $chap3old) {
$chap4old = CValue::session("chap4");
$chap4 = CValue::getOrSession("chap4");
} else {
$chap4 = "";
CValue::setSession("chap4");
}
// On récupère les voies d'accès
$query = "SELECT * FROM acces1";
$result = $ds->exec($query);
$i = 1;
$acces = array();
while ($row = $ds->fetchArray($result)) {
$acces[$i]["code"] = $row["CODE"];
$acces[$i]["texte"] = $row["ACCES"];
$i++;
}
$endowment_item_id = CValue::get('endowment_item_id');
$service = new CService();
$service->load($service_id);
$service->loadBackRefs("endowments");
if ($endowment_id === null && count($service->_back["endowments"])) {
$first = reset($service->_back["endowments"]);
$endowment_id = $first->_id;
}
// Calcul de date_max et date_min
$date_min = CValue::get('_date_min');
$date_max = CValue::get('_date_max');
if (!$date_min) {
$date_min = CValue::session('_date_delivrance_min', CMbDT::date("-1 DAY"));
}
if (!$date_max) {
$date_max = CValue::session('_date_delivrance_max', CMbDT::date());
}
CValue::setSession('_date_delivrance_min', $date_min);
CValue::setSession('_date_delivrance_max', $date_max);
CValue::setSession('endowment_id', $endowment_id);
$delivrance = new CProductDelivery();
$delivrance->_date_min = $date_min;
$delivrance->_date_max = $date_max;
$group_id = CProductStockGroup::getHostGroup();
$single_line = false;
$limit = "{$start},25";
$where = array("product.name " . ($letter === "#" ? "RLIKE '^[^A-Z]'" : "LIKE '{$letter}%'"));
if ($endowment_id) {
/** @var CProductEndowmentItem[] $endowment_items */
// Toute la liste
if (!$endowment_item_id) {
