function genCoraExterne($img = 'images/coraexterne.gif', $text = '')
{
$pref = "CoraExterne";
if ($this->options->getOption($pref . "_Actif") and (!$this->options->getOption($pref . "_Droit") or $this->droits->getDroit($this->options->getOption($pref . "_Droit")))) {
if ($_GET['appelerCoraExterne']) {
$user = $this->options->getOption($pref . "_User");
if (!$user) {
$user = $this->user->getUid();
}
$dll = new cRPC($_SERVER[REMOTE_ADDR], $this->options->getOption('BPS_PORT'), $this->options->getOption('BPS_TIMEOUT'));
$result = $dll->Open("cora", $this->idu, $this->sej, $this->uf, $user, "E", '');
global $fenetreBloquante;
$fenetreBloquante = XhamTools::genFenetreBloquante("fenetreFermerCora.html");
}
if ($text) {
$lien = $text;
} else {
$lien = '<img src="' . $img . '" style="border: 0px;" alt="Cora externe" />';
}
$inf = XhamTools::genInfoBulle("Lancement de Cora Externe");
return '<a href="' . URLNAVI . $this->navi->genNaviFull() . '&appelerCoraExterne=1" ' . $inf . '>' . $lien . '</a>';
}
}
function gestionDiagsActes($tabPeriodicite, $diag0)
{
global $session;
global $options;
// Appel du template permettant la saisie des diagnostics et des actes
if ($options->getOption("ActiverCORAModuleActes")) {
$mod = new ModeliXe("CCAM_CotationActesCORA.mxt");
} else {
$mod = new ModeliXe("CCAM_CotationActes.mxt");
}
$mod->SetModeliXe();
$mod->MxImage("imgQuitter", URLIMG . "QuitterSansValider.gif");
$mod->MxUrl("lienQuitter", URLNAVI . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2)));
//Initialisation des valeurs
if (!$_POST['idListeSelection0']) {
if ($diag0 != "") {
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$param[code] = $diag0;
$req = new clResultQuery();
$res = $req->Execute("Fichier", "CCAM_getCat1Diag", $param, "ResultQuery");
$idListeSelection0 = $res[categorie][0];
} else {
$idListeSelection0 = "aucun#";
}
} else {
if ($_POST['actualiserListe_x']) {
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$param[code] = $_POST['actualiserListe'];
$req = new clResultQuery();
$res = $req->Execute("Fichier", "CCAM_getCat1Diag", $param, "ResultQuery");
$idListeSelection0 = $res[categorie][0];
} else {
$idListeSelection0 = $_POST['idListeSelection0'];
}
}
if (!$_POST['idListeSelection1']) {
$diag0 != "" ? $idListeSelection1 = $diag0 : ($idListeSelection1 = "aucun#");
} else {
if ($_POST['actualiserListe_x']) {
$idListeSelection1 = $_POST['actualiserListe'];
} else {
$idListeSelection1 = $_POST['idListeSelection1'];
}
}
!$_POST['idListeSelection2'] ? $idListeSelection2 = "diag" : ($idListeSelection2 = $_POST['idListeSelection2']);
($_POST['aDroite_x'] or $_POST['aDroite']) ? $aDroite = 1 : "";
($_POST['sortir_x'] or $_POST['sortir']) ? $sortir = 1 : "";
//Ajout des actes sélectionnés dans la liste des actes affectés à la liste des actes
//rattachés au patient en cours
if ($aDroite or $sortir) {
$retourInfos = $this->addActesPatient();
if ($retourInfos[infos]) {
$this->infos = $retourInfos[infos];
} elseif ($retourInfos[erreur]) {
$this->erreurs = $retourInfos[erreur];
}
}
if ($_POST['lesion'] and $_POST['lesion'] != $_POST['lesion_old']) {
unset($param);
$param[lesionMultiple] = $_POST['lesion'];
$majrq = new clRequete(CCAM_BDD, "ccam_cotation_actes", $param);
$sql = $majrq->updRecord("idEvent=" . $this->idEvent . " and idDomaine=" . CCAM_IDDOMAINE);
}
if (!$sortir) {
//Si on a choisi de modifier un acte
//if ($_POST['imgOK_x'] or $_POST['imgOK']) $retourInfos=$this->modifyActe();
//Si on a choisi de supprimer un acte ou un diagnostic
if ($_POST['supprimerActe_x'] or $_POST['supprimerActe']) {
//eko ( htmlentities($_POST['supprimerActe']) ) ;
$idActeSuppr = $_POST['supprimerActe'];
$this->infos = $this->delActesPatient($idActeSuppr);
}
if ($retourInfos[infos]) {
$this->infos = $retourInfos[infos];
}
if ($retourInfos[erreur]) {
$this->erreurs = $retourInfos[erreur];
}
//Récupération des valeurs pour Selection0
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$tabListeSelection0 = $this->tableauValeurs("CCAM_getListeCatDiag", $param, "Choisir une catégorie de diagnostics");
//Récupération des valeurs pour Selection1
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$param[idListeSelection0] = addslashes(stripslashes($idListeSelection0));
$optionTri = $options->getOption("CCAM_TriDiagnostics");
if ($optionTri == "Manuel") {
$tri = "rang";
} elseif ($optionTri == "Alphabétique") {
$tri = "libelle";
} elseif ($optionTri == "Alphabétique inversé") {
$tri = "libelle desc";
} else {
$tri = "libelle";
}
$param[order] = $tri;
$tabListeSelection1 = $this->tableauValeurs("CCAM_getListeDiags", $param, "Choisir un diagnostic");
if ($options->getOption("ActiverModuleActes") and $session->getDroit("CCAM_ACTES_ACTES", "r")) {
$tabListeSelection2[diag] = "Actes associés au diagnostic sélectionné";
$tabListeSelection2[tous] = "Tous les actes de la liste restreinte";
$tabListeSelection2[NGAP] = "Actes NGAP";
$tabListeSelection2[PACK] = "Packs d'actes";
$optionTri = $options->getOption("CCAM_TriListeActes");
if (strcmp($optionTri, "Code de l'acte") == 0) {
$tri = "code";
} elseif (strcmp($optionTri, "Libellé de l'acte") == 0) {
$tri = "libelle";
} elseif (strcmp($optionTri, "Fréquence d'utilisation") == 0) {
$tri = "frequence";
} else {
$tri = "code";
}
//Récupération des actes pour la liste de gauche en ignorant les valeurs de la liste de droite
//en fonction de la famille sélectionnéee dans Selection1
unset($paramRelation);
unset($paramA);
$paramRelation[idDomaine] = CCAM_IDDOMAINE;
$paramA[idDomaine] = CCAM_IDDOMAINE;
if ($idListeSelection2 and $idListeSelection1) {
$paramA[idListeSelection1] = $idListeSelection2;
$paramRelation[idEvent] = $this->idEvent;
if (strcmp($tri, "code") == 0) {
$paramA["order"] = "rel.idActe";
} elseif (strcmp($tri, "libelle") == 0) {
$paramA["order"] = "rel.libelleActe";
} elseif (strcmp($tri, "frequence") == 0) {
$paramA["order"] = "rel.frequence desc,rel.idActe";
}
// Nous sommes dans la fenetre de Cotation des diagnostics et des actes
eko("fenetre de Cotation des diagnostics et des actes");
eko($this->typeIntervenant);
if ($idListeSelection2 == "tous") {
$requete = new clResultQuery();
unset($paramRq);
if (strcmp($this->typeIntervenant, "URG") == 0) {
// On prend en compte l'acte NGAP des urgentistes
// Consultation urgentiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
} elseif (strcmp($this->typeIntervenant, "PED") == 0) {
// On prend en compte l'acte NGAP des urgentistes spécialistes
// Consultation urgentiste spécialiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
} elseif (strcmp($this->typeIntervenant, "SAF") == 0) {
// On prend en compte l'acte NGAP des sage-femmes
// Consultation sage-femme spécialiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
} elseif (strcmp($this->typeIntervenant, "OBS") == 0) {
// On prend en compte l'acte NGAP des obstétrique et gynécologique
// Consultation obstétrique et gynécologique spécialiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
}
eko($codeNGAPf);
eko($codeNGAPnf);
eko($codeNGAP2f);
eko($codeNGAP2nf);
eko($codeNGAP3f);
eko($codeNGAP3nf);
$paramA[cw] = " and rel.idActe not like 'NGAP%') or (rel.idActe like 'NGAP%' and rel.idActe<>'" . $codeNGAP3f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP3nf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPnf[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2nf[idActe][0] . "' and rel.cotationNGAP <>''";
//eko($paramA);
$requete = "CCAM_getActesNonListe";
} elseif ($idListeSelection2 == "NGAP") {
// Pour lister l'ensemble des actes NGAP on doit soit afficher
// l'acte de consultation urgentiste soit l'acte de consultation
// urgentiste spécialiste soit lacte de consultation de sage-femmes
// soit l'acte de consultation de gynecologie obstetrique
// (pareil pour non facturable)
$paramA[type] = "NGAP";
$requete = new clResultQuery();
unset($paramRq);
if (strcmp($this->typeIntervenant, "URG") == 0) {
// On prend en compte l'acte NGAP des urgentistes
// Consultation urgentiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramA[cw] = "and rel.idActe<>'" . $codeNGAP3f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP3nf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPnf[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2nf[idActe][0] . "' and rel.cotationNGAP<>''";
} elseif (strcmp($this->typeIntervenant, "PED") == 0) {
// On prend en compte l'acte NGAP des urgentistes spécialistes
// Consultation urgentiste spécialiste
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramA[cw] = "and rel.idActe<>'" . $codeNGAP3f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP3nf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPnf[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2nf[idActe][0] . "' and rel.cotationNGAP<>''";
} elseif (strcmp($this->typeIntervenant, "SAF") == 0) {
// On prend en compte l'acte NGAP des sage-femmes
// Consultation sage-femmes
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation gynécologie et obstétrique non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramA[cw] = "and rel.idActe<>'" . $codeNGAP3f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP3nf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPnf[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2nf[idActe][0] . "' and rel.cotationNGAP<>''";
} elseif (strcmp($this->typeIntervenant, "OBS") == 0) {
// On prend en compte l'acte NGAP gynécologie et obstétrique
// Consultation gynécologie et obstétrique
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAP2f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAP2nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme'";
$codeNGAP3f = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation sage-femme non facturable'";
$codeNGAP3nf = $requete->Execute("Fichier", "CCAM_getActesDomaine3", $paramRq, "ResultQuery");
$paramA[cw] = "and rel.idActe<>'" . $codeNGAP3f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP3nf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPf[idActe][0] . "' and rel.idActe<>'" . $codeNGAPnf[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2f[idActe][0] . "' and rel.idActe<>'" . $codeNGAP2nf[idActe][0] . "' and rel.cotationNGAP<>''";
}
$requete = "CCAM_getAutresActesNonListe";
} elseif ($idListeSelection2 == "PACK") {
$paramA[type] = "PACK";
$paramA[cw] = "";
$requete = "CCAM_getAutresActesNonListe";
} else {
/*if ( strcmp ($this->typeIntervenant,"URG") == 0 ) {
// On prend en compte l'acte NGAP des urgentistes
// Consultation urgentiste
// on récupere le code NGAP des urgentistes spécialistes
$requete = new clResultQuery;
unset($paramRq);
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste'";
$codeNGAPf = $requete->Execute("Fichier","CCAM_getActesDomaine3",$paramRq,"ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste spécialiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier","CCAM_getActesDomaine3",$paramRq,"ResultQuery");
$paramA[cw]="and act.date_fin='0000-00-00' and (rel.idActe not like 'NGAP%' or
rel.idActe like 'NGAP%' and rel.idActe<>'".$codeNGAPf[idActe][0]."' and rel.idActe<>'".$codeNGAPnf[idActe][0]."' and act.cotationNGAP<>'')";
}
else {
// On prend en compte l'acte NGAP des urgentistes spécialistes
// Consultation urgentiste spécialiste
// on récupere le code NGAP des urgentistes
$requete = new clResultQuery;
unset($paramRq);
$paramRq["cw"] = "libelleActe='Consultation urgentiste'";
$codeNGAPf = $requete->Execute("Fichier","CCAM_getActesDomaine3",$paramRq,"ResultQuery");
$paramRq["cw"] = "libelleActe='Consultation urgentiste non facturable'";
$codeNGAPnf = $requete->Execute("Fichier","CCAM_getActesDomaine3",$paramRq,"ResultQuery");
$paramA[cw]="and act.date_fin='0000-00-00' and (rel.idActe not like 'NGAP%' or
rel.idActe like 'NGAP%' and rel.idActe<>'".$codeNGAPf[idActe][0]."' and rel.idActe<>'".$codeNGAPnf[idActe][0]."' and act.cotationNGAP<>'')";
} */
$paramA[idListeSelection1] = $idListeSelection1;
$paramA[cw] = "and act.date_fin='0000-00-00' and (rel.idActe not like 'NGAP%' or \r\n\t\t\t\t\t\trel.idActe like 'NGAP%' and act.cotationNGAP<>'')";
if (strcmp($tri, "code") == 0) {
$paramA["order"] = "act.idActe";
} elseif (strcmp($tri, "libelle") == 0) {
$paramA["order"] = "act.libelleActe";
} elseif (strcmp($tri, "frequence") == 0) {
$paramA["order"] = "act.frequence desc,act.idActe";
}
$requete = "CCAM_getActesDiags";
}
$tabListeGauche = $this->valeursListeGauche($requete, "CCAM_getActesCotes", $paramA, $paramRelation, "Choisir un acte");
// On affiche d'abord les actes CCAM puis NGAP puis PACK
$ccamtableau = array();
$ngaptableau = array();
$packtableau = array();
foreach ($tabListeGauche as $cle => $valeur) {
if (substr($cle, 0, 4) == "NGAP") {
$ngaptableau[$cle] = $valeur;
} elseif (substr($cle, 0, 4) == "PACK") {
$packtableau[$cle] = $valeur;
} else {
$ccamtableau[$cle] = $valeur;
}
}
foreach ($ccamtableau as $cle => $valeur) {
$alltableau[$cle] = $valeur;
}
foreach ($ngaptableau as $cle => $valeur) {
$alltableau[$cle] = $valeur;
}
foreach ($packtableau as $cle => $valeur) {
$alltableau[$cle] = $valeur;
}
$tabListeGauche = $alltableau;
} else {
$tabListeGauche[0] = "Choisir un acte";
}
$mod->MxText("actesBlocGauche.titreSelection2", "Actes");
$mod->MxSelect("actesBlocGauche.idListeSelection2", "idListeSelection2", $idListeSelection2, $tabListeSelection2, '', '', "onChange=reload(this.form) size=\"4\"");
$mod->MxSelect("actesBlocGauche.listeGauche", "listeGauche[]", '', $tabListeGauche, '', '', "size=\"13\" multiple=\"yes\"");
//Liste des anesthésistes
// DBDEB1 : masquage de l'anesthésiste.
unset($param);
//$param[idDomaine]=CCAM_IDDOMAINE;
//$param[idListeSelection0]="Anesthésie";
//$param[order]="libelle";
//$tabAnesth=$this->tableauValeurs("CCAM_getListeDiags",$param,"Choisir un anesthésiste");
$nomUrgentiste = $this->nomIntervenant;
$matriculeUrgentiste = $this->matriculeIntervenant;
//$tabAnesth[$matriculeUrgentiste]=$nomUrgentiste;
!isset($_POST['anesthesiste']) ? $anesthesiste = $matriculeUrgentiste : ($anesthesiste = $_POST['anesthesiste']);
$mod->MxHidden("actesBlocGauche.anesthesiste", "anesthesiste={$matriculeUrgentiste}");
//$mod->MxSelect("actesBlocGauche.anesthesiste","anesthesiste",$anesthesiste,$tabAnesth);
// DBFIN1
//Récupération des actes côtés pour le patient en cours
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$param[idEvent] = $this->idEvent;
$req = new clResultQuery();
$res = $req->Execute("Fichier", "CCAM_getActesCotes", $param, "ResultQuery");
//newfct(gen_affiche_tableau,$res[INDIC_SVC]);
/*if (!$session->getDroit("CCAM_".$this->typeListe,"m")){
$mod->MxBloc("actesBlocDroite.actesCotes.actionModif","delete");
}*/
if (!$session->getDroit("CCAM_ACTES_" . $this->typeListe, "d")) {
$mod->MxBloc("actesBlocDroite.actesCotes.actionSuppr", "delete");
}
if ($res[INDIC_SVC][2] == 0) {
$mod->MxBloc("actesBlocDroite.actesCotes", "delete");
} else {
$mod->MxBloc("actesBlocDroite.aucunActe", "delete");
$idListeActes = "";
for ($i = 0; isset($res[identifiant][$i]); $i++) {
$idListeActes .= "'" . $res[identifiant][$i] . "',";
$lesion = $res[lesionMultiple][$i];
list($annee, $mois, $jour) = explode("-", substr($res[dateDemande][$i], 0, 10));
$dateActe = $jour . "/" . $mois . "/" . $annee;
$mod->MxText("actesBlocDroite.actesCotes.dateActe", $dateActe);
if ($options->getOption("AffichageTarifsCCAM")) {
unset($paramRq);
$paramRq["cw"] = "and a.code='" . $res[identifiant][$i] . "' order by t.aadt_modif desc";
$fat = $req->Execute("Fichier", "CCAM_get1TarifCCAM", $paramRq, "ResultQuery");
//eko($fat);
if ($fat[INDIC_SVC][2] == 1) {
$prix = $fat["pu_base"][0] . "€.";
$mod->MxText("actesBlocDroite.actesCotes.codeActe", $res[identifiant][$i] . "<br>" . $prix);
} else {
$mod->MxText("actesBlocDroite.actesCotes.codeActe", $res[identifiant][$i]);
}
} else {
$mod->MxText("actesBlocDroite.actesCotes.codeActe", $res[identifiant][$i]);
}
$mod->MxText("actesBlocDroite.actesCotes.libActe", $res[libelle][$i]);
$mod->MxText("actesBlocDroite.actesCotes.medecin", $res[medecin][$i]);
/*$mod->MxText("actesBlocDroite.actesCotes.actionModif.codeActe",
$res[identifiant][$i]);*/
$mod->MxText("actesBlocDroite.actesCotes.actionSuppr.codeActe", $res[identifiant][$i]);
$periodicite = $res[periodicite][$i];
if ($_POST['modifierActe_x'] and $res[identifiant][$i] == $_POST['modifierActe']) {
//$this->saisieComplementActe($res,$periodicite,$tabPeriodicite,$i);
} elseif ($res[quantite][$i] == 1) {
$mod->MxText("actesBlocDroite.actesCotes.complementActeLibQte", " ");
$mod->MxText("actesBlocDroite.actesCotes.complementActeQte", "");
} elseif ($periodicite == "aucune") {
$mod->MxText("actesBlocDroite.actesCotes.complementActeLibPeriod", "");
$mod->MxText("actesBlocDroite.actesCotes.complementActePeriod", "");
/*if ($res[quantite][$i]>1){
$mod->MxText("actesBlocDroite.actesCotes.complementActeLibQte",
"Quantité :");
$mod->MxText("actesBlocDroite.actesCotes.complementActeQte",
$res[quantite][$i]);
}*/
} else {
/*$mod->MxText("actesBlocDroite.actesCotes.complementActeLibQte","Quantité :");
$mod->MxText("actesBlocDroite.actesCotes.complementActeQte",$res[quantite][$i]);
if ($periodicite!="aucune"){
$mod->MxText("actesBlocDroite.actesCotes.complementActeLibPeriod",
"<br>Temps latence :");
$mod->MxText("actesBlocDroite.actesCotes.complementActePeriod",
$tabPeriodicite[$periodicite]);
}*/
}
$mod->MxBloc("actesBlocDroite.actesCotes", "loop");
/*//Mise à jour des modificateurs
$codeActe=$res[identifiant][$i];
unset($param);
$param[modificateurs]="";
$requete=new clRequete(CCAM_BDD,"ccam_cotation_actes",$param);
$sql=$requete->updRecord("codeActe='$codeActe' and idDomaine=".CCAM_IDDOMAINE.
" and idEvent=".$this->idEvent);
unset($param);
$param[cw]="and substring(rel.aa_code,1,7)='$codeActe' and
rel.modifi_cod in ('7')";
$req=new clResultQuery;
$res2=$req->Execute("Fichier","CCAM_getModificateursActe",$param,"ResultQuery");
//eko($res2[INDIC_SVC]);
$listeModificateurs="";
for ($j=0;isset($res2[modifi_cod][$j]);$j++){
$CCModificateur="Modificateur_".$res2[modifi_cod][$j];
//eko("CCmodificateur:$CCModificateur:".$_POST[$CCModificateur]);
if ($_POST[$CCModificateur]){
$listeModificateurs.=$res2[modifi_cod][$j]."~";
}
}
//eko("listemodif:$listeModificateurs");
if ($listeModificateurs){
$listeModificateurs=substr($listeModificateurs,0,-1);
unset($param);
$param[modificateurs]=$listeModificateurs;
$requete=new clRequete(CCAM_BDD,"ccam_cotation_actes",$param);
$sql=$requete->updRecord("codeActe='$codeActe' and idDomaine=".CCAM_IDDOMAINE.
" and idEvent=".$this->idEvent);
//eko($sql);
}*/
}
$idListeActes = substr($idListeActes, 0, -1);
/*//Récupération des modificateurs cotés pour les actes et le patient en cours
unset($param);
$param[cw]="codeActe in ($idListeActes) and idDomaine=".CCAM_IDDOMAINE.
" and idEvent=".$this->idEvent;
$req=new clResultQuery;
$res=$req->Execute("Fichier","CCAM_getModificateursCotes",$param,"ResultQuery");
//eko($res[INDIC_SVC]);
unset($tabModificateurs);
for ($i=0;isset($res[modificateurs][$i]);$i++){
unset($listeModificateurs);
$listeModificateurs=explode("~",$res[modificateurs][$i]);
while (list($key,$val)=each($listeModificateurs)){
$tabModificateurs[$val]=$val;
}
}
//eko($tabModificateurs);*/
//Gestion des modificateurs
/*unset($param);
$param[cw]="and substring(rel.aa_code,1,7) in ($idListeActes) and
rel.modifi_cod in ('7')";
$req=new clResultQuery;
$res=$req->Execute("Fichier","CCAM_getModificateursActe",$param,"ResultQuery");
//eko($res[INDIC_SVC]);
for ($i=0;isset($res[modifi_cod][$i]);$i++){
$CCModificateur="Modificateur_".$res[modifi_cod][$i];
$modificateur=$res[modifi_cod][$i];
//eko("CCmodificateur:$CCModificateur:".$_POST[$CCModificateur]);
$mod->MxCheckerField("anesthesie.ligneModificateur.CCModificateur",
"checkbox",$CCModificateur,1,
(($tabModificateurs[$modificateur]==$modificateur)?true:false));
$mod->MxText("anesthesie.ligneModificateur.libModificateur",
$res[libelle][$i]);
$mod->MxBloc("anesthesie.ligneModificateur","loop");
}
$mod->MxFormField("anesthesie.imgOK","image","imgOK","",
"value=\"".$res[identifiant][$i]."\" src=\"".URLIMG."Ok.gif\"");
$mod->MxFormField("anesthesie.imgAnnul","image","imgAnnul","",
"src=\"".URLIMG."annuler2.gif\"");*/
}
$mod->MxText("titreFormulaire", "Cotation des diagnostics et des actes");
$mod->MxText("titreDispo", "Diagnostics, actes et packs disponibles");
$mod->MxText("titreAffecte", "Diagnostics et actes affectés au patient");
} else {
$mod->MxText("titreFormulaire", "Cotation des diagnostics");
$mod->MxBloc("actesBlocGauche", "delete");
$mod->MxBloc("actesBlocDroite", "delete");
$mod->MxText("titreDispo", "Diagnostics disponibles");
$mod->MxText("titreAffecte", "Diagnostics affectés au patient");
// Nous faisons appel à la DLL de CORA ici pour l'affectation des actes CCAM
// aux patients. Seul les diagnostics seront saisies.
if ($options->getOption("ActiverCORAModuleActes")) {
$mod->MxText("titreFormulaire", "Cotation des diagnostics et appel de CORA Recueil pour les actes");
$mod->MxText("fenetreFermerCora", "");
if ($_POST['cora_x'] or $session->getNavi(3) == "AppelCora") {
$html = XhamTools::genFenetreBloquante("fenetreFermerCora.html");
$mod->MxText("fenetreFermerCora", $html);
}
}
}
/*list($anneeNais,$moisNais,$jourNais)=explode("-",$this->dtnai);
if ($this->lieuInterv=="0") $lieuInterv=""; else $lieuInterv=", ".$this->lieuInterv;
$mod->MxText("infosPatient",$this->nomu." ".$this->pren.", né(e) le ".$jourNais."/".$moisNais."/".$anneeNais.
$lieuInterv);*/
$mod->MxText("nomPatient", $this->nomu . " " . ucfirst(strtolower($this->pren)));
$mod->MxText("sallePatient", $this->lieuInterv);
if (!$_POST['lesion']) {
if (!$lesion) {
$lesion = "Non";
}
} else {
$lesion = $_POST['lesion'];
}
$tabLesion[Oui] = "Oui";
$tabLesion[Non] = "Non";
while (list($key, $val) = each($tabLesion)) {
$mod->MxCheckerField("lesionMultiple.btn", "radio", "lesion", $key, $lesion == $key ? true : false, "onChange=\"reload(this.form)\"");
$mod->MxText("lesionMultiple.libelle", $val);
$mod->MxBloc("lesionMultiple", "loop");
}
//Récupération des diagnostics côtés pour le patient en cours
unset($param);
$param[idDomaine] = CCAM_IDDOMAINE;
$param[idEvent] = $this->idEvent;
$req = new clResultQuery();
$res = $req->Execute("Fichier", "CCAM_getDiagCotes", $param, "ResultQuery");
if (!$session->getDroit("CCAM_ACTES_" . $this->typeListe, "d")) {
$mod->MxBloc("diagnostics.diagCotes.action", "delete");
}
if ($res[INDIC_SVC][2] == 0) {
$mod->MxBloc("diagnostics.diagCotes", "delete");
} else {
$mod->MxBloc("diagnostics.aucunDiag", "delete");
for ($i = 0; isset($res[identifiant][$i]); $i++) {
list($annee, $mois, $jour) = explode("-", substr($res[dateDemande][$i], 0, 10));
$dateActe = $jour . "/" . $mois . "/" . $annee;
$mod->MxText("diagnostics.diagCotes.dateActe", $dateActe);
$mod->MxText("diagnostics.diagCotes.codeActe", $res[identifiant][$i]);
$mod->MxText("diagnostics.diagCotes.libActe", ucfirst($res[libelle][$i]));
$mod->MxText("diagnostics.diagCotes.action.codeActe", $res[identifiant][$i]);
$mod->MxBloc("diagnostics.diagCotes", "loop");
}
}
//Gestion du template
$mod->MxText("titreSelection0", "Catégories");
$mod->MxSelect("idListeSelection0", "idListeSelection0", stripslashes($idListeSelection0), $tabListeSelection0, '', '', "onChange=reload(this.form)");
$mod->MxText("titreSelection1", "Diagnostics");
$mod->MxSelect("idListeSelection1", "idListeSelection1", $idListeSelection1, $tabListeSelection1, '', '', "onChange=reload(this.form)");
//Afficher les boutons suivants si droits autorisés
if (!$session->getDroit("CCAM_ACTES_" . $this->typeListe, "w")) {
$mod->MxBloc("flDroite", "delete");
$mod->MxBloc("flSortir", "delete");
}
//Ne jamais afficher les boutons suivants
// Affichage ou non du champs d'informations.
if ($this->infos) {
$mod->MxText("informations.infos", $this->infos);
} else {
$mod->MxBloc("informations", "delete");
}
// Affichage ou non du champs d'erreurs.
if ($this->erreurs) {
$mod->MxText("erreurs.errs", $this->erreurs);
} else {
$mod->MxBloc("erreurs", "delete");
}
if ($sortir) {
$mod->MxHidden("hidden", "lesion_old={$lesion}&navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2)));
} elseif ($cora) {
$mod->MxHidden("hidden", "lesion_old={$lesion}&navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2), "AppelCora"));
} else {
$mod->MxHidden("hidden", "lesion_old={$lesion}&navi=" . $session->genNavi($session->getNavi(0), $session->getNavi(1), $session->getNavi(2), "DetailDiagsActes"));
}
return $this->af .= $mod->MxWrite("1");
}
}
