예제 #1
0
  $ccam=new clCCAMCotationActesDiags($paramCCAM);
  $cw="and type='ACTE' and codeActe not like 'NGAP%' and codeActe not like 'CONS%' and idEvent<=19493";
  $ccam->writeBALSorti($cw);
  echo "Fin de traitement pour discr=".$res[DISCR][$i]."<br>";
}*/
//Reprise des données pour les consultations spécialisées
$res = $req->Execute("Fichier", "CCAM_repriseBALpatientCons", $paramRq, "ResultQuery");
//print affTab($res[INDIC_SVC]);
unset($tabIdEvent);
for ($i = 0; isset($res[DISCR][$i]); $i++) {
    $idEvent = $res[DISCR][$i];
    $id = $res[ID][$i];
    unset($paramCCAM);
    $paramCCAM[idEvent] = $idEvent;
    $ccam = new clCCAMCotationActesDiags($paramCCAM);
    $tabSpecialite = $ccam->tabSpecialite();
    //Mise à jour de l'UF de consult spécialisée dans ccam_cotation_actes
    unset($contenuMBTV2);
    $contenuMBTV2 = explode("|", $res[CONTENU][$i]);
    $codeActe = $contenuMBTV2[11];
    $codeAdeli = $contenuMBTV2[18];
    unset($paramRq);
    $paramRq[cw] = "categorie='ListeMédecins' and code='{$codeAdeli}' and idDomaine=" . CCAM_IDDOMAINE;
    $res3 = $req->Execute("Fichier", "CCAM_getSpeMedecin", $paramRq, "ResultQuery");
    $libelleSpe = $res3[nomliste][0];
    //echo "rq:".$res3[INDIC_SVC][15]."<br>idEvent:$idEvent-codeActe:$codeActe-libSpe:$libelleSpe<br>";
    unset($param);
    if ($libelleSpe) {
        if ($tabSpecialite["{$libelleSpe}"]) {
            $param[numUFexec] = $tabSpecialite["{$libelleSpe}"];
        } else {