* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
$patient_id = CValue::get("patient_id");
$sejour_id = CValue::get("sejour_id");
$check_collision = CValue::get("check_collision");
$date_entree_prevue = CValue::get("date_entree_prevue");
$hour_entree_prevue = CValue::get("hour_entree_prevue");
$min_entree_prevue = CValue::get("min_entree_prevue");
$collision_sejour = null;
$patient = new CPatient();
$patient->load($patient_id);
$patient->loadRefsSejours();
if (!$patient->_id) {
CAppUI::stepMessage(UI_MSG_WARNING, "Patient '%s' inexistant", $patient_id);
return;
}
$date = $date_entree_prevue;
$date .= " " . str_pad($hour_entree_prevue, 2, "0", STR_PAD_LEFT);
$date .= ":" . str_pad($min_entree_prevue, 2, "0", STR_PAD_LEFT);
$date .= ":00";
foreach ($patient->_ref_sejours as $_sejour) {
// Séjours proches
if ($_sejour->sortie) {
$_date = CMbDT::dateTime("+" . CAppUI::conf("dPplanningOp CSejour hours_sejour_proche") . "HOUR", $_sejour->sortie);
if ($_date > $date && $date > $_sejour->sortie) {
$_sejour->_is_proche = 1;
}
}
$_sejour->loadNDA();
$accordDossier = CValue::get("accordDossier", 0);
$category_id = CValue::get("category_id");
$only_list = isset($_GET["category_id"]);
// Liste des Class
$listCategory = CFilesCategory::listCatClass($object_class);
// Chargement de l'utilisateur courant
$mediuser = CMediusers::get();
$mediuser->loadRefs();
$object = null;
$canFile = false;
$canDoc = false;
$praticienId = null;
$affichageFile = array();
$nbItems = 0;
if (!$object_class && !$object_id) {
CAppUI::stepMessage(UI_MSG_ERROR, "Problème de récupération de la liste des fichiers");
CApp::rip();
}
// Chargement de l'objet
/** @var CMbObject $object */
$object = new $object_class();
$object->load($object_id);
$file = new CFile();
$canFile = $file->canCreate($object);
$cr = new CCompteRendu();
$canDoc = $cr->canCreate($object);
// To add the modele selector in the toolbar
if ($object_class == 'CConsultation') {
$object->loadRefPlageConsult();
$praticienId = $object->_praticien_id;
} else {
* $Id: export_actes_pmsi.php 28465 2015-06-02 08:54:31Z lryo $
*
* @package Mediboard
* @subpackage PMSI
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision: 28465 $
*/
global $m, $tab;
$module = CValue::get("module");
if (!$module) {
$module = $m;
}
$canUnlockActes = $module == "dPpmsi" || CModule::getCanDo("dPsalleOp")->admin;
if (null == ($object_class = CValue::get("object_class"))) {
CAppUI::stepMessage(UI_MSG_WARNING, "{$tab}-msg-mode-missing");
return;
}
$unlock_dossier = CValue::get("unlock_dossier", 0);
$NDA = "";
$IPP = "";
switch ($object_class) {
case "COperation":
$object = new COperation();
// Chargement de l'opération et génération du document
$operation_id = CValue::post("mb_operation_id", CValue::getOrSession("object_id"));
if ($object->load($operation_id)) {
$object->loadRefs();
$codes = explode("|", $object->codes_ccam);
$actes = CMbArray::pluck($object->_ref_actes_ccam, "code_acte");
foreach ($object->_ref_actes_ccam as $acte_ccam) {
* $Id$
*
* @package Mediboard
* @subpackage dPprescription
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
$sejour_id = CValue::get("sejour_id");
$offline = CValue::get("offline");
$in_modal = CValue::get("in_modal");
$embed = CValue::get("embed");
$period = CValue::get("period");
$forms_limit = CValue::get("forms_limit");
if (!$sejour_id) {
CAppUI::stepMessage(UI_MSG_WARNING, "Veuillez sélectionner un sejour pour visualiser le dossier complet");
return;
}
$fiches_anesthesies = array();
$formulaires = null;
global $atc_classes;
$atc_classes = array();
$datetime_min = "";
if ($period) {
$datetime_min = CMbDT::dateTime("- {$period} HOURS");
}
// Chargement du sejour
$sejour = new CSejour();
$sejour->load($sejour_id);
$sejour->loadNDA();
$sejour->loadExtDiagnostics();
/**
* Trace a query chrono
*
* @param string $trace Trace label
*
* @return void
*/
static function traceChrono($trace)
{
// Allways log slow queries
$log_step = floor(self::$chrono->latestStep);
if ($log_step) {
$query = self::$last_query;
$values = implode(", ", self::$last_values);
mbLog("slow '{$trace}' in '{$log_step}' seconds", "CRecordSante400");
if ($trace != "connection") {
mbLog("last query was \n {$query} \n with values [{$values}]", "CRecordSante400");
}
}
// Trace to output
if (self::$verbose) {
$step = self::$chrono->latestStep * 1000;
$total = self::$chrono->total * 1000;
$pace = floor(2 * log10($step));
$pace = max(0, min(6, $pace));
$message = "query-pace-{$pace}";
$type = floor(($pace + 3) / 2);
CAppUI::stepMessage($type, $message, $trace, $step, $total);
}
}
<?php
/**
* $Id$
*
* @package Mediboard
* @subpackage SSR
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
CCanDo::checkRead();
$code = CValue::get("code");
$activite = CActiviteCsARR::get($code);
if (!$activite->code) {
CAppUI::stepMessage(UI_MSG_ERROR, "Activité CsARR '{$code}' non trouvée");
return;
}
$activite->loadRefsElementsByCat();
$activite->loadRefsAllExecutants();
// Création du template
$smarty = new CSmartyDP();
$smarty->assign("activite", $activite);
$smarty->display("vw_activite_srr_stats.tpl");
* @version $Revision$
* @author SARL OpenXtrem
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
*/
global $m;
CCanDo::checkEdit();
$service_id = CValue::getOrSession('service_id');
$endowment_id = CValue::getOrSession('endowment_id');
// Services list
$service = new CService();
$where = array();
$where["group_id"] = "= '" . CGroups::loadCurrent()->_id . "'";
$where["cancelled"] = "= '0'";
$list_services = $service->loadListWithPerms(PERM_READ, $where);
if ($m == "dPurgences") {
foreach ($list_services as $_id => $_service) {
if (!$_service->urgence) {
unset($list_services[$_id]);
}
}
}
if (count($list_services) == 0) {
CAppUI::stepMessage(UI_MSG_WARNING, "Vous n'avez accès à aucun service pour effectuer des commandes");
return;
}
// Création du template
$smarty = new CSmartyDP("modules/soins");
$smarty->assign('service_id', $service_id);
$smarty->assign('list_services', $list_services);
$smarty->assign('endowment_id', $endowment_id);
$smarty->display('vw_stocks_service.tpl');
* $Id$
*
* @category Hprimsante
* @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
*/
CCanDo::checkRead();
$message_string = CValue::post("message");
if (!$message_string) {
return;
}
$message_string = stripslashes($message_string);
CValue::setSession("message", $message_string);
try {
$message = new CHPrimSanteMessage();
$message->parse($message_string);
$message->_errors_msg = !$message->isOK(CHL7v2Error::E_ERROR);
$message->_warnings_msg = !$message->isOK(CHL7v2Error::E_WARNING);
$message->_xml = CMbString::highlightCode("xml", $message->toXML()->saveXML());
} catch (CHL7v2Exception $e) {
CAppUI::stepMessage(UI_MSG_ERROR, $e->getMessage() . " (" . $e->extraData . ")");
return;
}
// Création du template
$smarty = new CSmartyDP();
$smarty->assign("message", $message);
$smarty->assign("key", "input");
$smarty->display("inc_display_hprim_message.tpl");
list($action, $extention) = explode(".", $view);
$user = CUser::get();
$params["m"] = $module;
$params["raw"] = $action;
$params["info"] = 1;
// Could be done throw session cookie forwarding too
$token = new CViewAccessToken();
$token->_spec->loggable = false;
$token->user_id = $user->_id;
$token->params = CMbString::toQuery($params);
$token->datetime_start = "now";
$token->ttl_hours = 1;
$token->store();
$base = CAppUI::conf("base_url");
$url = "{$base}/?token={$token->hash}";
$content = file_get_contents($url);
$token->delete();
// Try and get view properties
if (null == ($props = json_decode($content))) {
CAppUI::stepMessage(UI_MSG_ERROR, "regression_checker-noviewinfo");
return;
}
CAppUI::stepMessage(UI_MSG_OK, "regression_checker-viewinfo-found");
$plan = CView::sampleCheckPlan($props);
// Création du template
$smarty = new CSmartyDP();
$smarty->assign("module", $module);
$smarty->assign("action", $action);
$smarty->assign("props", $props);
$smarty->assign("plan", $plan);
$smarty->display("regression_view_check.tpl");
<?php
/**
* $Id$
*
* @category Files
* @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
*/
CCanDo::checkAdmin();
if (CFile::shrinkPDF(CAppUI::conf("root_dir") . "/modules/printing/samples/test_page.pdf")) {
CAppUI::stepMessage(UI_MSG_OK, "Le fichier a été shrinké");
} else {
CAppUI::stepMessage(UI_MSG_ERROR, "Le fichier n'a pas été shrinké");
}
$max = CValue::get("max", CAppUI::conf("sante400 nb_rows"));
// Load mouvements
$class = CValue::get("class");
$type = CValue::getOrSession("type");
$mouvs = array();
$count = 0;
$procs = 0;
if (!in_array($type, $types)) {
$type = null;
}
// Mouvement type (or class) provided
if ($type || $class) {
// Mouvement construction by factory
$mouv = $class ? new $class() : CMouvFactory::create($type);
if (!$mouv) {
CAppUI::stepMessage(UI_MSG_ERROR, "CMouvFactory-error-noclass", CValue::first($type, $class));
return;
}
// Initialisation d'un fichier de verrou
$class = $mouv->class;
$lock = new CMbLock("synchro_sante400/{$class}");
// Mouvements counting
$count = $mouv->count($marked);
// Mouvements loading
/** @var CMouvement400[] $mouvs */
$mouvs = array();
if ($rec = CValue::get("rec")) {
try {
$mouv->load($rec);
$mouvs = array($mouv);
} catch (Exception $e) {
$prop_type = explode(" ", $prop);
$prop_type = reset($prop_type);
if ($spec_type) {
if (!array_key_exists($prop_type, CMbFieldSpecFact::$classes)) {
$prop = "{$spec_type} {$prop}";
} else {
if (strpos($prop, " ") !== false) {
$prop = $spec_type . " " . substr($prop, strpos($prop, " ") + 1);
} else {
$prop = $spec_type;
}
}
}
$spec = CExConcept::getConceptSpec($prop);
if (!$spec->prop) {
CAppUI::stepMessage(UI_MSG_ALERT, "Enregistrez le champ avant de pouvoir changer les propriétés");
return;
}
// UGLY hack because of the default value of the Boolspec
if ($spec instanceof CBoolSpec && strpos($prop, "default|") === false) {
$spec->default = null;
}
if ($spec instanceof CEnumSpec || $spec instanceof CBoolSpec) {
if ($spec->typeEnum === null || !in_array($spec->typeEnum, $spec->_options["typeEnum"])) {
$spec->typeEnum = reset($spec->_options["typeEnum"]);
}
}
$exclude = array("confidential", "mask", "format", "reported", "perm", "seekable", "pattern", "autocomplete", "cascade", "delimiter", "canonical", "protected", "class", "alphaAndNum", "byteUnit", "length", "loggable");
$boolean = array("notNull", "vertical", "progressive", "cascade");
$options = $spec->_options;
foreach ($exclude as $_exclude) {
function warnUsage()
{
/** @var self $that */
$that = new $this->_class();
$that->loadMatchingObject("date DESC");
$warn = $that->date >= CMbDT::date("-1 DAY") ? 1 : 0;
CAppUI::stepMessage($warn ? UI_MSG_OK : UI_MSG_WARNING, "COperationMiner-warnusage-{$warn}", CAppUI::tr("{$that->_class}"), $that->date);
}
/**
* Displays the SQL report
*
* @return void
*/
static function displayReport()
{
$totals = array();
$distribution = array();
foreach (self::$report_data as $_hash => $_data) {
$totals[$_hash] = array_sum(CMbArray::pluck($_data, 0));
$_distribution = array("", "", "", "", "", "", "", "", "");
foreach ($_data as $_pair) {
$duration = $_pair[0] * 1000;
$log = (int) floor(log10($duration) + 0.5);
if (!isset($_distribution[$log])) {
$_distribution[$log] = "";
}
$_distribution[$log] .= "#";
}
$distribution[$_hash] = $_distribution;
}
arsort($totals);
foreach ($totals as $_hash => $_total) {
CAppUI::stepMessage(UI_MSG_OK, "Query was called %d times for %01.3fms", count(self::$report_data[$_hash]), $_total);
echo utf8_decode(CMbString::highlightCode("sql", self::$report_data[$_hash][0][1], false, "white-space: pre-wrap;"));
$_dist = $distribution[$_hash];
// No input for 1µs and 10µs magnitudes (< 31.6µs)
$lines = array("100µs {$_dist['2']}", " 1ms {$_dist['3']}", " 10ms {$_dist['4']}", "100ms {$_dist['5']}", " 1s {$_dist['6']}", " 10s {$_dist['7']}");
echo "<pre>" . implode("\n", $lines) . "</pre>";
}
}
* @category Modèles
* @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
*/
CCanDo::checkRead();
$modeles_ids = CView::post("modeles_ids", "str");
$object_class = CView::post("object_class", "str");
$owner = CView::post("owner", "str");
CView::checkin();
$modeles_ids = explode("-", $modeles_ids);
CMbArray::removeValue(array(), $modeles_ids);
if (!count($modeles_ids)) {
CAppUI::stepMessage("Aucun modèle à exporter");
CApp::rip();
}
$doc = new CMbXMLDocument(null);
$root = $doc->createElement("modeles");
$doc->appendChild($root);
$where = array("compte_rendu_id" => CSQLDataSource::prepareIn($modeles_ids));
// Récupération des header_id, footer_id, preface_id et ending_id
$ds = CSQLDataSource::get("std");
$request = new CRequest();
$request->addTable("compte_rendu");
$request->addWhere($where);
$components_ids = array();
foreach (array("header_id", "footer_id", "preface_id", "ending_id") as $_component) {
$request->select = array();
$request->addSelect($_component);
<?php
/**
* $Id: ajax_vw_dossier_soin.php 28685 2015-06-23 12:01:35Z flaviencrochard $
*
* @package Mediboard
* @subpackage soins
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision: 28685 $
*/
CCanDo::checkRead();
if (CMedicament::getBase() == "vidal") {
CAppUI::stepMessage(UI_MSG_WARNING, "Cette fonctionnalité n'est pas encore présente.");
CApp::rip();
}
$group = CGroups::loadCurrent();
$sejour_id = CValue::getOrSession("sejour_id");
$date = CValue::getOrSession("date_plan_soins");
$nb_decalage = CValue::get("nb_decalage");
$mode_dossier = CValue::get("mode_dossier", "administration");
$chapitre = CValue::get("chapitre");
// Chapitre a rafraichir
$object_id = CValue::get("object_id");
$object_class = CValue::get("object_class");
$unite_prise = CValue::get("unite_prise");
$without_check_date = CValue::get("without_check_date", "0");
$hide_close = CValue::get("hide_close", 0);
$regroup_lines = CValue::get("regroup_lines");
$hide_old_lines = CValue::get("hide_old_lines", CAppUI::conf("soins suivi hide_old_line", $group->_guid));
$hide_line_inactive = CValue::get("hide_line_inactive", CAppUI::pref("hide_line_inactive"));
* @category dPsante400
* @package Mediboard
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version SVN: $Id:$
* @link http://www.mediboard.org
*/
$idex_id = CValue::get("idex_id");
$dialog = CValue::get("dialog");
$page = intval(CValue::get('page', 0));
$object_id = CValue::get("object_id");
$object_class = CValue::get("object_class");
$tag = CValue::get("tag");
$id400 = CValue::get("id400");
if (!$object_id && !$object_class && !$tag && !$id400) {
CAppUI::stepMessage(UI_MSG_WARNING, "No filter");
CApp::rip();
}
// Chargement de la liste des id4Sante400 pour le filtre
$filter = new CIdSante400();
$filter->object_id = $object_id;
$filter->object_class = $object_class;
$filter->tag = $tag;
$filter->id400 = $id400;
$filter->nullifyEmptyFields();
// Chargement de la cible si objet unique
$target = null;
if ($filter->object_id && $filter->object_class) {
$target = new $filter->object_class();
$target->load($filter->object_id);
}
$tplHeader->assign("allInOne", CValue::get("_aio"));
$tplHeader->assign("portal", array("help" => mbPortalURL($m, $tab), "tracker" => mbPortalURL("tracker")));
$tplHeader->display("header.tpl");
}
// Check muters
if ($muters = CValue::get("muters")) {
$muters = explode("-", $muters);
if (count($muters) % 2 != 0) {
trigger_error("Muters should come by min-max intervals time pairs", E_USER_WARNING);
} else {
$time_now = CMbDT::time();
while (count($muters)) {
$time_min = array_shift($muters);
$time_max = array_shift($muters);
if (CMbRange::in($time_now, $time_min, $time_max)) {
CAppUI::stepMessage(UI_MSG_OK, "msg-common-system-muted", $time_now, $time_min, $time_max);
return;
}
}
}
}
// Check whether we should trace SQL queries
if ($query_trace = CValue::get("query_trace")) {
CSQLDataSource::$trace = true;
}
if ($query_report = CValue::get("query_report")) {
CSQLDataSource::$report = true;
}
// tabBox et inclusion du fichier demandé
if ($tab !== null) {
$module->showTabs();
$operation_id = CValue::post('operation_id');
$consult_anesth_id = CValue::post('consult_anesth_id');
$operation = new COperation();
$operation->load($operation_id);
$consult_anesth = new CConsultAnesth();
$consult_anesth->load($consult_anesth_id);
$fields = array();
$fields['type_anesth'] = CValue::post('type_anesth', 'COperation');
$fields['ASA'] = CValue::post('ASA', 'COperation');
$fields['position'] = CValue::post('position', 'COperation');
$fields['rques'] = CValue::post('rques', 'COperation');
if (CAppUI::conf('dPplanningOp COperation show_duree_uscpo')) {
$fields['passage_uscpo'] = CValue::post('passage_uscpo', 'COperation');
$fields['duree_uscpo'] = CValue::post('duree_uscpo', 'COperation');
}
foreach ($fields as $_field => $_object) {
if ($_object == 'CConsultAnesth') {
$operation->{$_field} = $consult_anesth->{$_field};
} else {
$consult_anesth->{$_field} = $operation->{$_field};
}
}
$consult_anesth->operation_id = $operation_id;
if ($msg = $operation->store()) {
CAppUI::stepAjax($msg, UI_MSG_ERROR);
}
if ($msg = $consult_anesth->store()) {
CAppUI::stepAjax($msg, UI_MSG_ERROR);
}
CAppUI::stepMessage(UI_MSG_OK, 'CConsultAnesth.operation_linked');
CApp::rip();
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
CCanDo::checkEdit();
// Période
$filter = new CPlageconsult();
$filter->_date_min = CValue::getOrSession("_date_min");
$filter->_date_max = CValue::getOrSession("_date_max");
// Tri sur les praticiens
$mediuser = CMediusers::get();
$mediuser->loadRefFunction();
$prat = new CMediusers();
$prat->load(CValue::getOrSession("chir"));
if (!$prat->_id) {
CAppUI::stepMessage(UI_MSG_WARNING, "CMediusers-warning-undefined");
return;
}
$prat->loadRefFunction();
$listPrat = array($prat->_id => $prat);
$plageconsult = new CPlageconsult();
$ljoin = array();
$ljoin["consultation"] = "consultation.plageconsult_id = plageconsult.plageconsult_id";
$where = array();
$where[] = "\n (plageconsult.chir_id <> '{$prat->_id}' AND \n (plageconsult.remplacant_id = '{$prat->_id}' OR plageconsult.pour_compte_id = '{$prat->_id}'))\n OR \n (plageconsult.chir_id = '{$prat->_id}' AND \n ((plageconsult.remplacant_id <> '{$prat->_id}' AND plageconsult.remplacant_id IS NOT NULL)\n OR \n (plageconsult.pour_compte_id <> '{$prat->_id}' AND plageconsult.pour_compte_id IS NOT NULL))\n )";
$where["plageconsult.date"] = " BETWEEN '{$filter->_date_min}' AND '{$filter->_date_max}'";
$where["consultation.annule"] = "= '0'";
$order = "chir_id ASC";
$listPlages = $plageconsult->loadList($where, $order, null, null, $ljoin);
$plages = array();
foreach ($listPlages as $plage) {
* @subpackage System
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
CCanDo::checkRead();
// Minute courante
$time = CMbDT::time();
$minute = intval(CMbDT::transform($time, null, "%M"));
$hour = intval(CMbDT::transform($time, null, "%H"));
// Opératue de l'envoi
$user = new CUser();
$user->user_username = CValue::get("username", CUser::get()->user_username);
$user->user_password = CValue::get("password");
if (!$user->user_password) {
CAppUI::stepMessage(UI_MSG_WARNING, "CViewSender-send-no-password");
}
// Chargement des senders
$sender = new CViewSender();
$where = array("active" => "= '1'");
/** @var CViewSender[] $senders */
$senders = $sender->loadList($where, "name");
// Envoi de vues
foreach ($senders as $_sender) {
$_sender->makeUrl($user);
if (!$_sender->getActive($minute, $hour)) {
unset($senders[$_sender->_id]);
continue;
}
if ($user->user_password) {
$_sender->makeUrl($user);
* @package Mediboard
* @subpackage ecap
* @version $Revision: 8419 $
* @author SARL OpenXtrem
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
*/
CCanDo::checkAdmin();
$max_rows = CView::request("max_rows", "num default|1000");
$max_lines = CView::request("max_lines", "num default|1000000");
$phase = CView::request("phase", "enum list|connection|query|multiple_load_execute");
$min_duration = CView::request("min_duration", "num default|1");
CView::checkin();
$phase = strtr($phase, "_", " ");
$path = CAppUI::getTmpPath("mb-log.html");
if (false == ($resource = fopen($path, "r"))) {
CAppUI::stepMessage("no log available");
}
$lines_count = 0;
$entries = array();
while (($line = fgets($resource)) !== false) {
if ($max_lines && $lines_count >= $max_lines) {
break;
}
$lines_count++;
$matches = array();
if (preg_match("/\\[(.*)\\] CRecordSante400: slow '(.*)' in '(.*)' seconds/", $line, $matches)) {
$entry = array("datetime" => $matches[1], "phase" => $matches[2], "duration" => $matches[3]);
// Filter on actions
if ($phase && $entry["phase"] != $phase) {
continue;
}
/**
* Renders a failed acquisition message
*
* @return void
*/
function failedMessage()
{
CAppUI::stepMessage(UI_MSG_OK, "CMbLock-failed-message", $this->key);
}
/**
* $Id$
*
* @category Modèles
* @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
*/
CCanDo::checkRead();
$owner_guid = CView::post("owner_guid", "str");
CView::checkin();
$owner = CMbObject::loadFromGuid($owner_guid);
if (!$owner || !$owner->_id) {
CAppUI::stepMessage(UI_MSG_WARNING, "Le propriétaire souhaité n'existe pas.");
}
$user_id = "";
$function_id = "";
$group_id = "";
switch ($owner->_class) {
case "CMediusers":
default:
$user_id = $owner->_id;
break;
case "CFunctions":
$function_id = $owner->_id;
break;
case "CGroups":
$group_id = $owner->_id;
}
<?php
/**
* $Id: $
*
* @package Mediboard
* @subpackage Cabinet
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision: $
*/
CCanDo::checkRead();
if (!CModule::getActive('bcb')) {
CAppUI::stepMessage(UI_MSG_ERROR, "Le module de médicament autonome est en cours de developpement.\n Pour être utilisé, ce module a pour le moment besoin d'être connecté à une base de données de médicaments externe");
return;
}
$lettre = CValue::get("lettre");
$category_id = CValue::getOrSession("category_id", CAppUI::conf('dPmedicament CBcbProduitLivretTherapeutique product_category_id'));
$listProduits = array();
// Chargement des functions
$function = new CFunctions();
$functions = $function->loadSpecialites(PERM_EDIT);
// Si on est admin ou que $functions contient plus d'un élément,
// on récupère la fonction en session
if (CAppUI::$user->isAdmin() || count($functions) > 1) {
$function_guid = CValue::getOrSession("function_guid", reset($functions)->_guid);
} else {
// Sinon, c'est la fonction de l'utilisateur
$function_guid = "CFunctions-" . CAppUI::$user->function_id;
}
$function = CMbObject::loadFromGuid($function_guid);
<?php
/**
* $Id$
*
* @package Mediboard
* @subpackage developpement
* @author SARL OpenXtrem <*****@*****.**>
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
* @version $Revision$
*/
CCanDo::checkRead();
if (!class_exists("CMbCodeSniffer")) {
CAppUI::stepMessage(UI_MSG_WARNING, "CMbCodeSniffer-error-PEAR_needed");
return;
}
$file = CValue::get("file");
$file = str_replace(":", "/", $file);
// Has to be a file, not a directory
if (!is_file($file)) {
CAppUI::stepAjax("sniff-file-nofile-error", UI_MSG_ERROR, $file);
}
$sniffer = new CMbCodeSniffer();
$sniffer->process($file);
$sniffer->report($file);
$stats = $sniffer->stat($file);
$errors = reset($sniffer->getFilesErrors());
$alerts = $sniffer->getFlattenAlerts();
// Cuz sniffer changes work dir but restores it at destruction
// Be aware that unset() won't call __destruct() anyhow
$sniffer->__destruct();
$dates[] = array(count($dates), CMbDT::dateToLocale($date_temp));
$date_temp = CMbDT::date("+1 day", $date_temp);
}
// Table temporaraire de dates pour les jointures
$tab_name = CSQLDataSource::tempTableDates($date_min, $date_max);
// Nombre de lits totaux sur le service
$lit = new C**t();
$where = array();
$ljoin = array();
$ljoin["chambre"] = "chambre.chambre_id = lit.chambre_id";
$where["service_id"] = " = '{$service_id}'";
$where["lit.annule"] = " = '0'";
$nb_lits = $lit->countList($where, null, $ljoin);
if (!$nb_lits) {
$smarty->display("inc_form_stats.tpl");
CAppUI::stepMessage(UI_MSG_WARNING, "warning-hospi-stats-no_beds");
return;
}
// Lits ouverts (non bloqués - non compris les blocages des urgence)
$serie = array("data" => array(), "label" => utf8_encode("Ouvert / Total"), "markers" => array("show" => true));
// Sauvegarde des lits ouverts par date
$lits_ouverts_par_date = array();
foreach ($dates as $key => $_date) {
$date = CMbDT::dateFromLocale($_date[1]);
$query = "SELECT count(DISTINCT l.lit_id) as lits_ouverts\n FROM lit l\n JOIN affectation a ON a.lit_id = l.lit_id AND\n DATE_FORMAT(a.entree, '%Y-%m-%d') <= '{$date}' AND DATE_FORMAT(a.sortie, '%Y-%m-%d') >= '{$date}'\n AND a.sejour_id != 0\n LEFT JOIN chambre c ON c.chambre_id = l.chambre_id\n WHERE c.service_id = '{$service_id}'";
$lits_ouverts = $ds->loadResult($query);
$serie['data'][] = array(count($serie['data']) - 0.3, $lits_ouverts, $lits_ouverts / $nb_lits);
$lits_ouverts_par_date[$date] = $lits_ouverts;
}
// Pour les autres stats, on a besoin du nombre de lits ouverts,
// donc la calculer dans tous les cas
