/**
* $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();
$consultation_id = CValue::get("consultation_id");
$consultations = array();
$consultation = new CConsultation();
$consultation->load($consultation_id);
$consultation->loadRefsFwd();
$date = $consultation->_ref_plageconsult->date;
$prat = $consultation->_ref_plageconsult->_ref_chir;
$prat->loadRefs();
$patient = $consultation->_ref_patient;
$patient->loadRefs();
$prat->loadRefFunction();
$chir_ids = array_keys($prat->_ref_function->loadRefsUsers());
$ds = $consultation->getDS();
// nexts rdvs for the same function
$ljoin = array("plageconsult" => "plageconsult.plageconsult_id = consultation.plageconsult_id");
$where = array();
$where["date"] = ">= '{$date}' ";
$where["patient_id"] = " = '{$consultation->patient_id}' ";
$where[] = "plageconsult.chir_id " . $ds->prepareIn($chir_ids) . " OR plageconsult.remplacant_id " . $ds->prepareIn($chir_ids);
$where["annule"] = " != '1' ";
$consult = new CConsultation();
$where = array();
$ljoin["plageconsult"] = "consultation.plageconsult_id = plageconsult.plageconsult_id";
$where["consultation.du_tiers"] = "> 0";
$where["consultation.tiers_date_reglement"] = "IS NULL";
$where["plageconsult.date"] = "BETWEEN '{$filter->_date_min}' AND '{$filter->_date_max}'";
// Filtre sur les praticiens
$chir_id = CValue::getOrSession("chir");
$listPrat = CConsultation::loadPraticiensCompta($chir_id);
$where["plageconsult.chir_id"] = CSQLDataSource::prepareIn(array_keys($listPrat));
$order = "plageconsult.date";
/** @var CConsultation[] $listConsults */
$listConsults = $consult->loadList($where, $order, null, null, $ljoin);
$total = array("nb" => 0, "value" => 0);
foreach ($listConsults as $consult) {
$consult->loadRefsFwd();
$consult->loadRefsReglements();
// Chargment de la FSE
if (CModule::getActive("fse")) {
if ($fse = CFseFactory::createFSE()) {
$fse->loadIdsFSE($consult);
}
}
// Retour Noemie déjà traité
$hasNoemie = !$consult->_current_fse || $consult->_current_fse->hasNoemie();
if ($hasNoemie) {
unset($listConsults[$consult->_id]);
continue;
}
// Nouveau règelement pour le formulaire
$consult->_new_reglement_tiers = new CReglement();
/**
* @deprecated
* @see parent::loadRefsFwd()
*/
function loadRefsFwd()
{
$this->loadRefChir();
// Chargement operation/sejour
$this->loadRefOperation();
$this->_ref_operation->loadRefsFwd();
$this->_date_op =& $this->_ref_operation->_datetime;
// Chargement consultation
$this->loadRefConsultation();
$this->_ref_consultation->loadRefsFwd();
$this->_ref_plageconsult =& $this->_ref_consultation->_ref_plageconsult;
$this->_date_consult =& $this->_ref_consultation->_date;
// Calcul de la Clairance créatinine
$patient =& $this->_ref_consultation->_ref_patient;
$patient->loadRefLatestConstantes(null, null, $this->_ref_consultation, false);
$const_med = $patient->_ref_constantes_medicales;
$const_med->updateFormFields();
$age = intval($patient->_annees);
if ($const_med->poids && $this->creatinine && $age && $age >= 18 && $age <= 110 && $const_med->poids >= 35 && $const_med->poids <= 120 && $this->creatinine >= 6 && $this->creatinine <= 70) {
$this->_clairance = $const_med->poids * (140 - $age) / (7.2 * $this->creatinine);
if ($patient->sexe == 'm') {
$this->_clairance *= 1.04;
} else {
$this->_clairance *= 0.85;
}
$this->_clairance = round($this->_clairance, 2);
}
// Calcul des Pertes Sanguines Acceptables
if ($this->ht && $this->ht_final && $const_med->_vst) {
$this->_psa = $const_med->_vst * ($this->ht - $this->ht_final) / 100;
}
}
