/**
* $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();
$consult_id = CValue::get("consult_id");
$consult = new CConsultation();
$consult->_id = $consult_id;
$consult->load();
$consult->loadRefPatient();
$consult->loadRefGrossesse();
$type = "";
switch ($consult->type_assurance) {
case "classique":
$type = "assurance_classique";
break;
case "at":
$type = "accident_travail";
break;
case "smg":
$type = "soins_medicaux_gratuits";
break;
case "maternite":
$type = "maternite";
break;
}
if ($date_planning) {
// On a fourni une date
$consult->_date = $date_planning;
}
if ($heure) {
// On a fourni une heure
$consult->heure = $heure;
$consult->plageconsult_id = $plageconsult_id;
$chir->load($plageConsult->chir_id);
}
// grossesse
if (!$consult->grossesse_id && $grossesse_id) {
$consult->grossesse_id = $grossesse_id;
}
if (CModule::getActive("maternite")) {
$grossesse = $consult->loadRefGrossesse();
if (!$consult->patient_id) {
$consult->patient_id = $grossesse->parturiente_id;
}
}
if ($line_element_id) {
// RDV issu d'une ligne d'élément
$consult->sejour_id = $sejour_id;
$line = new CPrescriptionLineElement();
$line->load($line_element_id);
$func_categ = reset($line->_ref_element_prescription->_ref_category_prescription->loadBackRefs("functions_category", null, "1"));
$plageconsult = new CPlageconsult();
$where = $ljoin = array();
$where["pour_tiers"] = "= '1'";
$where["date"] = "BETWEEN '" . CMbDT::date() . "' AND '" . CMbDT::date("+3 month") . "'";
if ($func_categ) {
