// script hospiguide.fr

var yt=90;
var selFM=-1;
ovc=0;s=0;t=0;pa=0;
function menuhg(i) {

dw("<div id='listmenu'>"+
 '<ul>'+
  '<li><a onclick="self.close();focus()" href="http://www.sevlos.net/">Accueil</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(0)">Aide</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(1)">Méthodologie</a></li>'+
  '<li><a href="javascript:void(0)" onclick="listthm(1)">TOP10 des Spécialités</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(2)">Coût des Transferts</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(3)">Sources</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(4)">Mentions Légales</a></li>'+
  '<li><a href="javascript:void(0)" onclick="fenmenu(5)">Lien Prof.</a></li>'+
  '<li><a href="mailto:contact@sevlos.net?subject=Contact_HG" onmouseover="overlib(&quot;Nous contacter par messagerie&quot;,LEFT)" onmouseout="nd()">Contact</a></li>'+
 '</ul></div>');
}

 function load() {
        if (d_.images)
         {
                this.length=load.arguments.length;
                for (var i=0;i<this.length;i++)
                 { this[i+1]=new Image();
                   this[i+1].src='img/'+load.arguments[i]+'.png';
                  }
          }
}

function preload() {
 var chargim=new load("ferm","ok","info1","flb","fld","fldd","flgd","flg","etc","ipp0","ipp1","ipp2");
}
 var ol_width=350;
 var ol_wrap=1;
 var ol_border = 3;
 var ol_css = 53;
 var ol_bgclass='qbg'
 var ol_textfontclass='qfg';
 var ol_captionfontclass='fb';
 var ol_close="<img src=img/ferm.png border=0>";
 ol_closeclick=1;
 score=0;

function voircacher(id,on)
 { if (typeof on=="undefined")
     on=0;
   document.getElementById(id).className = (on? "voir": "cacher");
}
function dw(texte)
{ document.write(texte) }

var nomdep=new Array("HAUTE-CORSE","AIN","AISNE","ALLIER","ALPES DE HAUTE PROVENCE","HAUTES-ALPES","ALPES-MARITIMES","ARDECHE","ARDENNES","ARIEGE","AUBE","AUDE","AVEYRON","BOUCHES-DU-RHONE","CALVADOS","CANTAL","CHARENTE","CHARENTE-MARITIME","CHER","CORREZE","CORSE-DU-SUD","COTE-D'OR","COTES-D'ARMOR","CREUSE","DORDOGNE","DOUBS","DROME","EURE","EURE-ET-LOIR","FINISTERE","GARD","HAUTE-GARONNE","GERS","GIRONDE","HERAULT","ILLE-ET-VILAINE","INDRE","INDRE-ET-LOIRE","ISERE","JURA","LANDES","LOIR-ET-CHER","LOIRE","HAUTE-LOIRE","LOIRE-ATLANTIQUE","LOIRET","LOT","LOT-ET-GARONNE","LOZERE","MAINE-ET-LOIRE","MANCHE","MARNE","HAUTE-MARNE","MAYENNE","MEURTHE-ET-MOSELLE","MEUSE","MORBIHAN","MOSELLE","NIEVRE","NORD","OISE","ORNE","PAS-DE-CALAIS","PUY-DE-DOME","PYRENEES-ATLANTIQUES","HAUTES-PYRENEES","PYRENEES-ORIENTALES","BAS-RHIN","HAUT-RHIN","RHONE","HAUTE-SAONE","SAONE-ET-LOIRE","SARTHE","SAVOIE","HAUTE-SAVOIE","PARIS","SEINE-MARITIME","SEINE-ET-MARNE","YVELINES","DEUX-SEVRES","SOMME","TARN","TARN-ET-GARONNE","VAR","VAUCLUSE","VENDEE","VIENNE","HAUTE-VIENNE","VOSGES","YONNE","TERRITOIRE DE BELFORT","ESSONNE","HAUTS-DE-SEINE","SEINE-SAINT-DENIS","VAL DE MARNE","VAL D'OISE","FRANCE METROPOLITAINE");
coord=new Array();
coord=new Array();
coord[0]="346,362 ,318,331 ,342,308 ,348,318"; // 2B
coord[1]="265,195 ,262,214 ,275,217 ,284,223 ,287,206";
coord[2]="218,57 ,219,74 ,216,83 ,222,91 ,234,75 ,238,57";
coord[3]="211,186 ,194,197 ,230,211 ,229,201 ,234,196 ,225,189";
coord[4]="320,271 ,311,276 ,285,290 ,297,301 ,317,294 ,315,279";
coord[5]="317,249 ,281,275 ,290,281 ,305,271 ,329,264";
coord[6]="328,314 ,321,298 ,323,291 ,319,279 ,347,279";
coord[7]="253,246 ,243,259 ,237,263 ,246,278 ,254,277 ,259,243";
coord[8]="247,49 ,241,75 ,260,82 ,272,59";
coord[9]="146,342 ,166,324 ,178,330 ,177,347";
coord[10]="226,115 ,239,133 ,257,126 ,254,117 ,241,109 ,234,114";
coord[11]="177,320 ,183,343 ,208,334 ,211,324 ,198,320";
coord[12]="204,263 ,181,275 ,196,289 ,203,303 ,219,294";
coord[13]="246,317 ,263,297 ,286,309 ,286,330";
coord[14]="111,78 ,111,94 ,139,90 ,138,81";
coord[15]="196,241 ,190,252 ,189,264 ,194,263 ,203,250 ,210,259 ,217,253 ,211,244";
coord[16]="132,210 ,120,226 ,120,238 ,129,239 ,148,215 ,143,211 ,134,212";
coord[17]="116,238 ,87,217 ,95,199 ,121,212 ,110,218";
coord[18]="193,152 ,185,165 ,192,189 ,209,178 ,203,155";
coord[19]="165,234 ,166,248 ,181,253 ,193,229 ,182,225";
coord[20]="313,344 ,321,380 ,344,381 ,343,367 ,321,343";
coord[21]="250,137 ,244,159 ,254,172 ,271,170 ,275,152 ,261,144";
coord[22]="38,89 ,39,115 ,68,120 ,78,109 ,69,106 ,62,111";
coord[23]="170,200 ,174,215 ,193,224 ,195,203";
coord[24]="144,228 ,128,249 ,155,265 ,164,254 ,159,244 ,160,236";
coord[25]="303,187 ,287,161 ,312,151 ,321,161";
coord[26]="264,244 ,259,279 ,280,282 ,283,265";
coord[27]="142,77 ,147,94 ,155,100 ,178,82 ,172,76 ,160,80";
coord[28]="157,107 ,159,116 ,154,121 ,168,131 ,181,121 ,169,103 ,160,105";
coord[29]="34,93 ,34,139 ,5,130 ,4,92";
coord[30]="248,308 ,234,294 ,225,294 ,222,289 ,237,289 ,239,283 ,255,284";
coord[31]="166,303 ,139,325 ,145,333 ,150,323 ,158,323 ,161,316 ,169,319 ,175,312";
coord[32]="139,319 ,119,301 ,130,294 ,145,294 ,153,309";
coord[33]="118,280 ,84,263 ,92,227 ,124,254";
coord[34]="220,327 ,203,311 ,232,298 ,240,314";
coord[35]="82,105 ,80,117 ,74,122 ,79,138 ,101,128 ,100,116";
coord[36]="171,167 ,158,184 ,168,194 ,186,191 ,183,173";
coord[37]="139,150 ,134,163 ,142,172 ,148,171 ,154,180 ,162,167 ,150,146";
coord[38]="263,233 ,289,259 ,301,248 ,274,222";
coord[39]="280,163 ,276,173 ,278,178 ,278,197 ,289,200 ,296,187 ,295,179";
coord[40]="115,305 ,73,305 ,84,269 ,121,288";
coord[41]="158,132 ,153,142 ,171,159 ,182,161 ,188,151";
coord[42]="251,241 ,231,221 ,233,207 ,245,211 ,247,225 ,258,236";
coord[43]="235,260 ,222,254 ,214,241 ,233,241 ,249,244";
coord[44]="67,169 ,95,168 ,94,141 ,59,153";
coord[45]="206,150 ,175,140 ,186,121 ,210,135";
coord[46]="166,282 ,154,272 ,169,255 ,184,266";
coord[47]="128,290 ,123,278 ,132,265 ,152,271 ,147,284";
coord[48]="235,285 ,218,283 ,210,267 ,218,260 ,232,265";
coord[49]="102,142 ,107,155 ,99,163 ,112,167 ,128,163 ,133,150";
coord[50]="109,108 ,88,100 ,82,56 ,104,62";
coord[51]="233,82 ,227,104 ,246,103 ,255,111 ,260,87 ,243,81";
coord[52]="262,111 ,273,121 ,283,136 ,273,146 ,267,142 ,265,134 ,261,128 ,264,119 ,255,113";
coord[53]="106,114 ,107,130 ,102,138 ,118,139 ,126,114";
coord[54]="280,71 ,286,93 ,284,109 ,293,114 ,313,110 ,296,100 ,287,88 ,284,70";
coord[55]="268,72 ,265,90 ,267,108 ,281,111 ,278,77";
coord[56]="57,153 ,72,146 ,68,125 ,41,120 ,35,141";
coord[57]="316,106 ,292,90 ,289,69 ,333,86 ,324,90 ,314,87 ,313,94";
coord[58]="211,154 ,215,180 ,236,180 ,239,163 ,224,157";
coord[59]="216,50 ,214,33 ,183,9 ,203,7 ,247,43";
coord[60]="211,87 ,181,82 ,181,66 ,203,71 ,212,68";
coord[61]="114,100 ,114,111 ,129,107 ,141,111 ,149,118 ,154,112 ,140,96";
coord[62]="213,50 ,168,34 ,171,13 ,186,13 ,197,28 ,210,37";
coord[63]="199,234 ,234,235 ,225,215 ,205,208 ,199,221";
coord[64]="70,311 ,119,310 ,116,323 ,105,342";
coord[65]="132,346 ,111,341 ,122,325 ,124,312 ,137,322";
coord[66]="168,355 ,186,348 ,195,341 ,215,339 ,216,359";
coord[67]="336,83 ,332,93 ,317,93 ,321,97 ,326,98 ,322,117 ,338,127 ,347,85";
coord[68]="322,121 ,318,137 ,328,154 ,340,130";
coord[69]="259,230 ,249,226 ,248,211 ,252,205 ,258,206 ,257,217 ,268,222";
coord[70]="309,147 ,283,156 ,281,148 ,287,140 ,293,135";
coord[71]="243,171 ,242,183 ,235,186 ,243,201 ,262,191 ,274,189 ,272,178 ,254,179";
coord[72]="138,147 ,122,136 ,129,118 ,140,117 ,152,129";
coord[73]="302,246 ,302,235 ,296,232 ,290,232 ,287,229 ,289,223 ,303,227 ,310,222 ,331,239";
coord[74]="326,214 ,297,220 ,290,210 ,316,188";
coord[75]="24,41 ,28,46 ,46,47 ,45,34 ,32,34";
coord[76]="165,47 ,176,72 ,129,71";
coord[77]="202,94 ,199,123 ,206,123 ,219,110 ,219,100 ,212,93";
coord[78]="181,112 ,173,92 ,188,96";
coord[79]="110,201 ,129,206 ,126,172 ,108,173 ,114,184";
coord[80]="209,54, 208,61, 199,63, 181,61, 173,49, 179,43";
coord[81]="196,313 ,181,311 ,170,296 ,183,286 ,195,296";
coord[82]="161,299 ,151,298 ,148,291 ,154,279 ,162,285 ,175,282 ,173,286";
coord[83]="292,334 ,291,305 ,314,301 ,328,314";
coord[84]="285,304 ,265,295 ,259,282 ,271,284 ,282,289";
coord[85]="109,195 ,87,197 ,66,179 ,71,167 ,85,176 ,102,173 ,110,185";
coord[86]="132,174 ,131,193 ,138,207 ,156,195 ,148,179 ,140,177";
coord[87]="153,203 ,154,214 ,150,221 ,162,229 ,177,224 ,168,216 ,163,199";
coord[88]="279,117 ,290,129 ,314,131 ,318,117 ,298,117 ,287,119";
coord[89]="238,158 ,210,147 ,216,135 ,213,121 ,223,122 ,234,137 ,242,140";
coord[90]="317,152 ,312,148 ,313,139 ,319,141 ,323,150";
coord[91]="196,119 ,184,119 ,189,103 ,200,106";
coord[92]="34,23 ,5,20 ,6,54 ,29,72 ,29,50 ,18,37";
coord[93]="40,13 ,44,28 ,54,38 ,77,37 ,76,4";
coord[94]="37,53 ,40,65 ,71,80 ,76,53 ,59,45";
coord[95]="197,94 ,178,90 ,179,86 ,191,87 ,197,91";
coord[96]="286,13 ,293,50 ,337,53 ,330,9";
coord[97]="191,102 ,199,104 ,200,95 ,193,96"; // zone insitu rég paris

centrx=new Array(333,277,225,217,303,305,330,250,253,165,242,193,200,266,125,203,131,105,197,179,329,260,52,183,146,301,271,158,168,24,245,164,136,107,222,85,172,148,282,285,100,171,240,232,82,193,169,138,223,115,99,244,269,114,297,273,54,304,225,222,197,134,191,215,97,126,195,332,325,255,295,255,137,309,307,35,159,209,181,119,195,183,160,305,272,95,141,162,299,226,318,192,15,59,57,188,325);
centry=new Array(340,212,72,199,290,267,295,267,69,336,121,330,283,310,90,250,225,220,171,239,362,157,113,212,247,165,263,92,117,112,294,315,307,260,313,125,181,163,241,184,292,153,224,251,155,139,269,278,273,155,87,95,129,127,108,99,137,92,170,46,79,105,35,225,322,332,349,105,135,218,146,186,132,234,211,43,69,110,104,189,60,300,290,315,293,182,191,217,125,143,146,113,45,27,60,90,30);

function valide()
{ return ("<table><tr><td colspan='2' style='font-family:Arial;text-align:center;color:#f00'>Une fois votre sélection terminée :</td></tr><tr><td><img src='img/fld.png'></td><td><input type='button' style='font-family:Arial;width:11.0em;font-size:1.3em;font-weight:700;color:#ee0000;float:right;cursor:hand' value='Valider la sélection' name='vs'  onmouseout='nd()' onmouseover="+'"overlib('+"'<font color=green>Cliquez pour valider votre sélection géographique</font>',LEFT)"+'" onClick="choixmed();nd()"></td></tr></table>');
 }
function libcodd(i)
{ return (nomdep[i]+(i!=96?' ['+coder(i)+']':''));
}
 listcodd='';
 nbds=0;
function bulaffich(i,o)
 { if (typeof o=="undefined") o=0;
  if (i==97)
    { txtot="Départements de la Région Parisienne : Pointez le pictogramme en haut à gauche de la carte";
      if (o) return (txtot);
      overlib("Départements de la Région Parisienne<br>Pointez le pictogramme en haut à gauche de la carte",LEFT);
      return;
     }
   seldeja=(SelDeja(i)>-1 || selFM==1);
   txtot=(selFM==1 || i==96?'Tous Départements de FRANCE METROPOLITAINE'
         : 'Département : '+libcodd(i))+
       (o?"\n" : '<br><font color='+(seldeja?'red':'green')+'>')+
       (seldeja?'Déjà sélectionné'+(selFM==1?'s':'')+' /':'')+' Cliquez '+(seldeja?'sur le Code pour annuler la sélection !':'pour '+(i==96?'tout':'le')+' sélectionner')
   if (o) return(txtot);
     overlib(txtot+'</font>',OFFSETY,7,LEFT);
  }

function coder(c)
 { i0=''+c;
   if (i0=='0') i0='2B';
   else if (i0=='20') i0='2A';
   else if (i0.length<2)
    i0="0"+i0;
   return (i0);
 }
function transcoder(c)
 { return (c=='2B'?0:(c=='2A'?20:1*c));
 }


function SelDeja(i)
 {
  if (i==96 || selFM==1)
    return;
   i0=coder(i);
   return (listcodd.indexOf(i0));
  }
var ns4=document.layers
var ie4=document.all
var ns6=document.getElementById&&!document.all

function placer(O,X,Y) {
  if (ns6)
   {
    document.getElementById(O).style.left=X;
    document.getElementById(O).style.top =Y;
   }
  else if (ie4)
   {
    eval(O).style.pixelLeft=X;
    eval(O).style.pixelTop=Y;
   }
  else if (ns4)
   {
    document.eval(O).top =Y;
    document.eval(O).left =X;
    document.eval(O).document.close();
   }
}

function Change_txt(OTXT,vOTXT) {
  if (ns6)
    document.getElementById(OTXT).innerHTML = vOTXT;
  else if (ie4)
    eval(OTXT).innerHTML = vOTXT;
  else if (ns4)
   { document.eval(OTXT).dw(vOTXT);
     document.eval(OTXT).document.close();
    }
  else alert('Script non géré par votre navigateur');

}

function CherchVal(OTXT) {
  if (ns6)
  valeura=document.getElementById(OTXT).innerHTML;
  else if (ie4)
   valeura=eval(OTXT).innerHTML;
  else if (ns4)
  valeura=document.eval(OTXT);
  return (valeura);
}

deb=1;nbds=0;

function ftable(listc)
 {    tableaucod=listc.split(',');
      nbdep=tableaucod.length-1;
      j=1;
      vit=transcoder(tableaucod[0]);
      listdepc='&nbsp; 1. '+libcodd(vit);
      if (nbdep)
      { for (i=1;i<=nbdep;i++)
         { j++;
          vit=transcoder(tableaucod[i]);
           listdepc += '<br>'+(j<10?'&nbsp; ':'')+j+'. '+libcodd(vit);
          }
       }
   return ( (j<10?'':valide())+"<div onmouseover='"+'overlib("Séléctionner ou désélectionner les<br>départements directement sur la carte!")'+"' onmouseout='nd()'>"+listdepc+"</div><br>"+(j<10?valide():''));
  }


function selDep(d)
 {
  if (deb)
    { if (!ovc)
       { voircacher('txtcherch');
         voircacher('tetlist',1);
         voircacher('zlistdep',1);
         voircacher('imgcherch');
       //  placer('imgcherch',421,yt+85);
        }
      deb=0;
     }
  if (d==96 || selFM==1)
   { if (!ovc)
        Change_txt("zlistdep","<div style='font-size:16px;padding:10px;text-align:center'>Tous les départements de FRANCE METROPOLIAINE sont sélectionnés !</div>"+valide('ng'));
     for (i=0;i<=96;i++)
        voircacher(eval("'cod"+i+"'"),1);
     listcodd=96;
     selFM=1;
     return;
    }
  if (SelDeja(d)<0)
    {  if (listcodd=='96')
        listcodd=listcodd.replace('96','');

      listcodd += (listcodd != '' ? ',':'')+coder(d);
      if (!ovc)
       Change_txt('zlistdep',ftable(listcodd));
       voircacher(eval("'cod"+d+"'"),1);
     }
   else if (!ovc)
         overlib('<font color=red>'+d+' '+listcodd +': Département déjà sélectionné !</font>');
  }

function selnul()
{ if (!ovc)
    Change_txt('zlistdep','Aucun département sélectionné ! Cliquez sur la carte !');
      listcodd='';
      selFM=-1;
}

function supprimdep(d)
{ if (d==96 || selFM==1)
    { for (i=0;i<=96;i++)
        voircacher(eval("'cod"+i+"'"));
      selnul();
      return;
     }
   if (SelDeja(d)>-1)
    { voircacher(eval("'cod"+d+"'"));
      listcodd=listcodd.replace(coder(d)+',','');   // deb
      listcodd=listcodd.replace(','+coder(d),'');   // interm
      listcodd=listcodd.replace(coder(d),'');       // fin
      if (listcodd=='')
        selnul();
      else if (!ovc)
       Change_txt('zlistdep',ftable(listcodd));
     }
 }
function finvit(){
  if (listcodd!='') return;
  overlib("Cliquez sur la carte pour choisir un ou plusieurs départements afin de localiser géographiquement les établissements recherchés.</p><p>Une fois votre sélection géographique effectuée, la valider pour pouvoir choisir ensuite le Pôle d'Activité qui vous intéresse...",CENTER,WIDTH,370,WRAP);
}

function modifurl(){
 return (urla.replace('pg='+pga,'pg=1').replace('nl='+nl+'&e='+e+'&n='+n,'nl=0&e=0&n=0').replace('&s='+s,'&s=0'));
}

function hrefmodif(LD)
 {
    if (LD=="" || LD==listcodda)
     { alert((LD==''?"Aucun département sélectionné !" : 'Sélection non Modifiée !'));
       return (urla.repalce('&nl='+nl+'&e='+e+'&n='+n,'&nl=0&e=0&n=0'));
      }

    LDN=(listcodd=='96'?'96':(LD.length<3?LD:multireplace(LD,',','')) );
    LDA=(listcodda.length<3 ? listcodda  : multireplace(listcodda,',',''));
   URLN=urla.replace('pg='+pga,'pg=1').replace('nl='+nl+'&e='+e+'&n='+n,'nl=0&e=0&n=0').replace('&ld='+LDA,'&ld='+LDN);
   return(URLN);
  }
function opac(im,E01)
        {
        if(document.getElementById)
           {
                if (E01==0)
                  {
                     if(document.all)
                        im.filters.alpha.opacity=50;
                     else
                        im.style.setProperty("-moz-opacity", .5, "");
                   }
                else
                  {
                     if(document.all)
                       im.filters.alpha.opacity=100;
                     else
                       im.style.setProperty("-moz-opacity", 1, "");
                   }
            }
        }

function ifiltr(i,cl,br) {
return('<img src="img/'+i+'.png" border=0 class='+cl+' style="margin:0;padding:0;'+(br!='0'?'filter:alpha(opacity=50); -moz-opacity: .5;" onMouseover="opac(this,1)" onMouseout="opac(this,0)"':'"')+'>');
}
function imgpath(i,cl) {
return('<img src="img/'+i+'.png" border=0 class='+cl);
}

function menuctxt() {
 plur=(listcodd.length>2?'S':'');
 ovc=1;
 masque();
 txtaide=' class=znm onmouseover="overlib(&quot;Utilisez la flèche ci-contre&quot;)" onmouseout=nd()';
 dw('<div class=pc>'+
  '<table cellspacing="4" cellpadding="2" class=cadre>'+
  '<td rowspan=3 class=txtmenu><span onmouseover="overlib(&quot;LOGO HospiGuide > Pour le menu contextuel, cliquer sur les flèches rouges<br>ou Cliquer sur le logo pour retourner à la page d&#8217;Accueil&quot;)" onmouseout=nd()><a href=hg.php?pb=0>'+ifiltr('logohg','imgb')+'</a></td>'+
  '<td rowspan=3 class=txtmenu style="text-align:right;margin-right:0;padding-right:0"><span onmouseover="overlib(&quot;Menu Conextuel > utilisez les flèches de navigation ci-contre<br>pour modifier les critères de votre requête&quot;)" onmouseout=nd()>'+imgpath('menu','img0')+'</span></td>'+
  '<td'+txtaide+'>Zone Géographique : </td><td><a href="javascript:void(0)" onmouseover="overlib('+"'Choisir Autres Départements...')"+
  '" onclick="voircacher('+"'carte',1);affichDep()"+'" onmouseout=nd()>'+ifiltr('fld','hrl')+'</a></td><td colspan='+(s?5:4)+' class=zm>'+
  (listcodd=="96"?"FRANCE METROPOLITAINE <i>(tous départements)</i>" : "DEPARTEMENT"+plur+' : '+(plur!=''? multireplace(listcodd,',',' ') : libcodd(transcoder(listcodd))))+(listcodd=='96' || listcodd.length>2?'&nbsp;<span onmouseover="overlib(&quot;Pour afficher le nom des départements, pointez leur code dans la table&quot;,LEFT)" onmouseout=nd()>'+ifiltr('info1','hlp')+'</span>':'')+'</td>'+
  '<tr><td'+txtaide+'>Prise En Charge : </td><td>'+listovpec()+'</td><td class=zm>'+
  (t==0? '' : ' <font class='+(t==1?'fb':'f1')+'>')+ th[t]+'</font></td><td rowspan=2'+txtaide+'>Spécialité :</td>'+
   '<td rowspan=2><a href="javascript:ouvref(1)" onmouseover="overlib(&quot;Choisir une Spécilaité dans le Pôle d'+"\'"+'activité courant&quot;,LEFT)" onmouseout="nd()">'+ifiltr('fld','hrl')+'</a></td><td rowspan=2 class=zm'+
  (s? (lib.length<30?'m':'f'+(lib.length>100?'g':''))+'>'+(lib.indexOf("CMA")>0?fdescma(lib):lib)
    : '>...<br>...<br>...')+
  '</td>'+
  (s?'<td rowspan=2><a onmouseover="overlib(&quot;<b>&nbsp; Plus d&#8217;info ?<br>Essayez SevloS !</b>&quot;,LEFT)" onmouseout="nd()" href="http://www.sevlos.net/hs/index.php?m=5">'+ifiltr('ss','imglien')+'</a></td>':'')+'</tr>'+
  "<tr><td class=znm>Pôle d'Activité : </td><td>"+listovpa(s?0:1)+'<td class=zm'+(s?(libvc[pa].length>30?'p':''):'')+'>'+libvc[pa].substr(3)+
  '</tr></table>');
}

function resnul(){
  dw("<div style='margin-top:50px; margin-left:150px; width:26.5em; font-size:2.0em; color:#e00; border: 2px solid #5353ff'><table border=0 cellspacing=5px><tr><td><img src='img/alert.png'></td><td><b>HospiGuide</b> n'a trouvé aucun établissement qui satisfait à vos critères de sélection !<br><b>Veuillez modifier au moins un des critères de recherche</b>."+
  "</td><td rowspan=2><a href='javascript:history.go(-1)' title='Logo HospiGuide > Retour à la page précédente'>"+ifiltr('logohg')+"</a></td></tr><tr><td><a href='javascript:history.go(-1)'>"+ifiltr('flg','hrl')+"</a></td><td>Retour à la page précédente</td></tr></table></div></div>");
}

function masque()
{
 chaine='<div id="carte" style="position:absolute;'+
  (ovc?'left:200px;top:'+(yt-30)+'px; border:3px solid #f33' : 'left:440px;top:'+(yt+28)+'px; border:2px solid #00f')+';background:#fe9">'+
 (ovc? '<table cellspacing=0 cellpadding=0><tr class=tcart><td class=tcart>Modifier la Sélection et valider : <a href="javascript:location.href=hrefmodif(listcodd)">'+ifiltr('valid','hrl')+'</a></td><td class=tcart style="text-align:right"><a onmouseover="overlib(&quot;Fermer la carte&quot;)" onmouseout=nd() onclick="voircacher('+"'carte');cachdep()"+'">'+ifiltr('ferm','img0')+'</a></td></tr><tr><td colspan=3>':'')+
 '<map name="FPMap0">';
 zoncoch='';
 for (i=0;i<=96;i++)
{ chaine += '<area onmouseover=bulaffich('+i+') onmouseout=nd() onclick=selDep('+i+') onDblClick=supprim() shape="polygon" coords="'+coord[i]+'">';
  zoncoch += '<div id="cod'+i+'" class="'+(!ovc && SelDeja(i)>-1?'voir':'cacher')+'" style="cursor:move;position:absolute;left:'+
  (centrx[i]+(ovc?200:435))+'px;top:'+(centry[i]+(ovc?yt-17:20+yt))+
  'px; z-index:501" onmouseover=txtannul('+i+') onmouseout=nd() onclick=supprimdep('+i+')>'+
  (i!=96?coder(i):'F')+'</div>';
 }

chaine += '<area onmouseover=bulaffich(97) onmouseout=nd() shape="polygon" coords="'+coord[97]+
           '"></map><img border=0 src="img/franced.png" usemap="#FPMap0">'+
           (ovc?'</td></tr></table>':'')+'</div>';
 dw(chaine);
 dw(zoncoch);

 chaine='';zoncoch='';
 if (ovc)
 { LDep=(listcodd.length<3?listcodd : multireplace(listcodd,',',''));
   voircacher("carte");
   return;
  }
 dw('<input type="text" class="cacher" value="" name="ld">'+
  '<div id="txtreq" class="cacher" style="position:absolute;left:70px; top:'+(yt+13)+'px;font-size:15px;color:#ccc">Préparation de la requête suite...</div>'+
  '<div id="zinvit" class="invit" style="background:#9999ff;font-size:14px;position:absolute;left:12px; top:'+(yt+5)+'px; width:'+(ns6?416:430)+'px;text-align:right;border:2px solid #0000ff;color:#fe3; padding:5px"><span onmouseover="finvit()'+'" onmouseout="nd()">Choisir à la Carte, 1 ou plusieurs départements à la fois, voire France Entière</b>. Ensuite, Valider la sélection</span></div>'+
  '<div id="zmed" class="cacher" style="background:#ffee99;font-size:14px;position:absolute;left:70px; top:'+(yt+75)+'px; width:'+(ns6?680:695)+'px;text-align:right;border:2px solid #0000ff; padding:5px"></div>'+
  '<div id="tetlist" class="cacher" style="background:#ffee99;position:absolute;left:45px;top:'+(yt+60)+'px;width:'+(ns6?117:125)+'px;height:32px; font-size:14px;vertical-align:center;text-align:right;border:2px solid #5353ff;padding:2px;color:#0000ee">Départements sélectionnés</div>'+
  '<div id="zlistdep" class="cacher" style="font-size:12px;position:absolute;left:168px;top:'+(yt+78)+'px;width:'+(ns6?240:248)+'px;padding:2px; color:#0000ee;border:2px solid #5353ff"></div>'+
   "</div></form>");
}

function cachdep()
 { if (listcodd=='96' || selFM==1)
    { for (i=0;i<=96;i++)
       voircacher(eval("'cod"+i+"'"));
      return;
     }
    tableaucod=listcodd.split(',');
      nbdep=tableaucod.length-1;
    for (i=0;i<=nbdep;i++)
      { idd='cod'+transcoder(tableaucod[i]);
        voircacher(idd);
       }
 }
function affichDep()
{ selFM=(listcodd=='96'?1:0);
  for (i=0;i<=96;i++)
   {    d=coder(i);
    if (selFM || listcodd.indexOf(d) >-1)
     { idd='cod'+i;
       voircacher(idd,1);
      }
    }

}


function txtannul(d)
 { seldeja=SelDeja(d);
    tout=(d==96 || selFM==1);
   bultexte=(tout?'Cliquez pour Annuler la sélection "Tous Départements !"':
         "Cliquez pour Annuler sa sélection ");
  overlib((tout?'':'Département : '+libcodd(d)+'<br>')+'<font color=red>'+bultexte+'</font>',OFFSETY,17,CENTER);
  }

var libvc=new Array("Choisissez un Pôle d'Activité",
'1. Système Digestif',
'2. Orthopédie Rhumatologie',
'3. Urologie néphrologie',
'4. Système nerveux',
'5. Cardiologie hors Vasculaire',
'6. Vasculaire périphérique',
'7. Vasculaire interventionnel',
'8. Pneumologie',
'9. ORL Stomatologie',
'10. Ophtalmologie',
'11. Gynécologie',
'12. Obstétrique',
'13. Nouveau-nés',
'14. Hématologie',
'15. Chimiothérapie, Radiothérapie, Transfusion',
'16. Endocrinologie',
'17. Peau, Tissu cutané et sous-cutané dont chir',
'18. Brûlures',
'19. Maladies infectieuses hors VIH(sida)',
'20. Maladie VIH(sida)',
'21. Traumatismes multiples ou complexes graves',
'22. Psychiatrie, Toxicologie, Intoxications, Alcoologie',
'23. Autres prises en charge');

function multireplace(chaine,motif,txtr)
{
  var reg=new RegExp(motif, "g");
   return (chaine.replace(reg,txtr));
 }

function modiflpa(onof)
{ t=onof;
  nd();
  Change_txt('zpa', "<span class='f"+(t==0?'n':(t>1?'1':'b'))+"'>"+libvc[0]+(t==0?"":" [Filtre actif : "+th[t]+"]")+"</span>");
 }
th=new Array('Indifférenciée','Médecine','Chirurgie','Chirurgie Ambulatoire');
repli=" => Repli du Critère Spécialité";

function listovpec()
{
 chainpec='<div id="listovp"><ul>';
 incomp=0;
 for (i=0;i<=3;i++)
  {
   testpec = ((i==2 && (pa==7 || pa==13 || pa==15)) ||
              (i==3 &&  (pa==7 || pa==13 || pa==15 || pa==20 || pa==21))
              );
     chainpec +="<li>"+
     (i!=t && !testpec? "<a href='"+modifurl().replace('th='+t,'th='+i)+"'>":'')+
     i+'. '+th[i]+
      (testpec?' * ' : (i==t?'':'</a>'))+'</li>';
  if (testpec)
    incomp=1;
   }
  txtpec="Choisir Autre Type de Prise En Charge"+(s?repli:'');
  chainpec += (incomp?'<li>* PEC incompatible avec le Pôle actif</li>':'')+'</ul></div>';
   return ('<a href="javascript:void(0)" onmouseover="overlib(txtpec)"'+
   ' onclick="overlib(chainpec,CAPTION,txtpec,STICKY,CENTER)" onmouseout=nd()>'+ifiltr('fld','hrl')+'</a>');
}

function selpa(i){
 Change_txt('zpa',"<span class='f"+(t==0?'n':(t>1?'1':'b'))+"'>"+libvc[i].substr(3)+'</span>');
}

function tablepa(hr01) {
  chainpa='<div id="listov"><ul>';
 for (i=1;i<=23;i++)
  {
    test= ( (t==2 && (i==7 || i==13 || i==15)) ||
            (t==3 && (i==7 || i==13 || i==15 || i==20 || i==21))
           )
    hron=(i==pa?(s?1:0):1);
    if (!test)
     chainpa += '<li>'+(hron?"<a href='"+(hr01?modifurl().replace('pa='+pa,'pa='+i) : "hgresult.php?pg=1&s=0&nl=0&e=0&n=0&ld="+(listcodd.length>2?multireplace(listcodd,',',''):listcodd)+"&th="+t+"&pa="+i+"' onclick='selpa("+i+")")+"'>":'')+
             i+'. '+  libvc[i].substr((i<9?2:3))+(hron?'</a>':'')+'</li>';
   }
  return (chainpa +"</ul></div>");
 }

function listovpa(hr01)
{ txtpa='Choisir '+(t?'Autre':'un')+" Pôle d'Activité"+(s?repli:'');
  return ('<a href="javascript:void(0)" onmouseover="overlib(txtpa)" onclick="overlib(tablepa('+hr01+'),CAPTION,txtpa,STICKY,CENTER'+(hr01?'':',OFFSETY,-7')+',WRAP)" onmouseout=nd()>'+ifiltr('fld','hrl')+'</a>');
  }

function choixmed()
{ // nd();
    paramreq = "<div><span class=znm style='vertical-align:top;height:17px'>Zone Géographique : </span>"+
      "<span class=zm onclick='"+'overlib("Cliquer sur le bouton Réinitialiser<br>ou retour à la page précédente pour modifier ce choix",LEFT)'+"' onmouseout=nd()>"+
     (listcodd=='96'?'Tous Départements de France Métropolitaine ! ' :
             (listcodd.length==2?(nomdep[transcoder(listcodd)].length<20?'1 Département sélectionné : ':'')+nomdep[transcoder(listcodd)]+' ['+listcodd+']' : 'Départements sélectionnés : '+multireplace(listcodd,',',', ')))+
  "</span></div>"+
  "<div style='text-align:left; padding-top:5px'><font color='#000'>Choisir dans l'ordre</font></div>"+
  '<table cellspacing=1><tr><td class=znm>Prise en Charge : <td nowrap class=zm style="color:#00f;white-space:nowrap">'+
  "<INPUT TYPE='radio' NAME='th' VALUE=0 checked onClick='modiflpa(0)'>i<font class=f1>n</font>d<font color='red'>i</font>f<font color='red'>f</font>é<font color='red'>r</font>e<font color='red'>n</font>c<font color='red'>i</font>é<font color='red'>e &nbsp;</INPUT>"+
  "<INPUT TYPE='radio' NAME='th' VALUE=1 OnClick='modiflpa(1)'><font color='blue'>Médecine &nbsp;</font></INPUT>"+
  "<INPUT TYPE='radio' NAME='th' VALUE=2 OnClick='modiflpa(2)'><font color='red'>Chirurgie &nbsp;</font></INPUT>"+
  "<INPUT TYPE='radio' NAME='th' VALUE=3 OnClick='modiflpa(3)'><font color='red'>Chirurgie Ambulatoire</font></INPUT></span>"+
  "</td><td class=zmg onmouseover='"+'overlib("<b>Type de PEC</b> : Critère permettant de sélectionner le type de Prise En Charge au niveau du Pôle d&#8217;Activité qui sera choisi.<br><b>N.B.</b> : Comme certains Pôles ne comportent pas systématiquement tout type de prise en charge, ce critère sert à filtrer la liste ci-dessous pour écarter les pôles qui lui sont incompatibles !",ABOVE,LEFT,WRAP,WIDTH,500)'+"' onmouseout='nd()' style='color:#99f'>&nbsp;<img class=ihlp src=img/info1.png></td></tr>"+
  "<INPUT TYPE='text' NAME='pa' class=cacher VALUE=''></INPUT>"+
  "<tr><td class=znm>Pôle d'Activité : </td><td class=zmg><div id='zpa'><span style='float:right'>"+libvc[0]+"</span></div></td><td class=zmg>"+listovpa(0)+"</td></tr></table>"
    voircacher('zinvit');
    voircacher('carte');
    cachdep();
    voircacher('tetlist');
    voircacher('zlistdep');
    placer('des',360,60);
    voircacher('zmed',1);
    voircacher('txtreq',1);

    Change_txt('zmed', paramreq);
    placer('zmed',70,(yt+30));
    document.forms.choix.ld.value=(listcodd.length>2?multireplace(listcodd,',',''):listcodd);
}


function ouvref(furl,opt){
 if (typeof opt=='undefined')
    opt='width=650,height=450,left=300,top=240';
 if (furl==1)
   furl=urla.replace('hgresult','rechspe'); // ).replace('&s=0','&s=999');
 var fliste=window.open(furl,"fliste",opt+ ',resizable=1, status=0, scrollbars=auto');
 if (!fliste.closed)
  fliste.focus();
}

function fenmenu(no){
 var fmenu=window.open('menuhg.php?no='+no,"fmenu",'width=870,height=500,left=5,top=5,resizable=1, status=0, scrollbars=1');
 if (!fmenu.closed)
      fmenu.focus();
 }


function fmille(val) {
  if (val<1000) return (val);
  var val_format=val+"";
  var nb=val_format.length;
  for (var j=1;j<4;j++)
   {
    if (val>=Math.pow(10,(3*j)))
     { val_format=val_format.substring(0,nb-(3*j))+' '+val_format.substring(nb-(3*j));
      }
    }
   return val_format;
}

function fdescma(lib)
 {   cmas=(lib.indexOf("CMAS")>0?'CMAS':'CMA');
      return (lib.replace(cmas,'<span class=rq onmouseover="overlib(&quot;Complication ou Morbidité Associée'+(cmas=='CMAS'?' Sévère':'')+'&quot;,LEFT)" onmouseout=nd()>'+cmas+"</span>"));
 }

function datahg() {
  longzon=listcodd.length ;
  nc=(s==196 || s==141 || s==195 ? 1 : 0 );  // transf ou DC
  // test séances
  sea=(s?(s==48 || s==152 || s==155 || s==156 || s==199 ? 1:0):0);
ndc0=(s==20 || s==21 || s==37 || s==53 || s==54 || s==71 || s==82 || s==104 || s==105 ||
s==115 || s==116 || s==122 || s==123 || s==132 || s==133 || s==139 || s==141 || s==151 ||
s==162 || s==169 || s==171 || s==179 || s==185|| s==194 || s==195 || s>198 ?1:0);
//  ndc0=(s&&t!=3?(s==196 ?1:0):0);

  dcnnul=(t!=3 && !ndc0 ? 1:0);
  indmoy=(D1[2]==D2[2] && D3[2]==D4[2] && D5[2]==D6[2] && D7[2]==D8[2] ? 0:1);
  basnote=(nc?0:(2+(indmoy?1:0)+(sea?0:1)+ (dcnnul?(ndc0?0:1):0)));
  zdep=(longzon>2 || listcodd=='96'?1:0);
  ntr = 5+zdep+indmoy+2*(sea==1?0:1)+2*dcnnul;

  dw('<table cellspacing="2" cellpadding="1" id="cadred">'+
   '<tr class=th><th rowspan=2><span class=hlp onmouseover="def(0)" onmouseout="nd()">'+
   nl+'</font> ETABLISSEMENT'+(nl>1?'S':'')+' SELECTIONNE'+(nl>1?'S':'')+
   '<br>[Statut : '+imgpath('ipp1','img0')+"><font class=f1> Public</font> "+imgpath('ipp2','img0')+"><font class=f2> Parapub.</font> "+imgpath('ipp0','img0')+'><font class=f0> Privé</font>]</th>'+
  (zdep?'<th rowspan=2 onmouseover="'+"overlib('Départements sélectionnés :<br>Pointez les codes pour afficher les libellés en clair',RIGHT)"+'" onmouseout=nd()>Code<br>Dép.</th>':'')+
   "<th rowspan=2 onmouseover=def(1) onmouseout='nd()'>N"+(nsej[0]<100?'':'om')+"bre&nbsp;de<br>"+(sea?'Séances':'Séjours')+"</th>"+
   '<th class="thi" colspan='+(indmoy?3:2)+' onmouseover="overlib('+"'Cf. plus bas !')"+'" onmouseout="nd()">Valeur des Soins en €</th>'+
  (!sea? '<th class="thi" onmouseover="'+"overlib('Cf. plus bas !')"+'" colspan=2 onmouseout="nd()">Durée<br>Moyenne</th>':'')+
   (dcnnul?'<th class="thi" onmouseover="'+"overlib('Cf. plus bas !')"+'" colspan=2 onmouseout="nd()">Taux de Décès</th>':"") +
  '<th class="thi" rowspan=2 onmouseover="overlib('+"'"+(nc?'Pas de scoring pour les GHS avec issue fatale ou transfert':'Total sur 20 des Scores affectés aux indicateurs en bleu sur fond vert')+"',LEFT)"+'" onmouseout=nd()>SCORE<br>/&nbsp;20</th>'+
  "<tr class=th><th class='thi' onmouseover='def(3)' onmouseout='nd()'>Total</th>"+
  "<th class='thi' onmouseover='def(4)' onmouseout='nd()'>"+(nc?'%':'Part&nbsp;D.M.')+"</th>"+
 (indmoy?"<th class='thi' onmouseover='def(5)' onmouseout='nd()'>Moyenne</th>":'') +
 (!sea?"<th class='thi' onmouseover='def(6)' onmouseout='nd()'>Observ.</th>"+
  "<th onmouseover='def(8)' onmouseout='nd()'>Réf.</th>":'') +
 (dcnnul?"<th class='thi' onmouseover='def(9)' onmouseout='nd()'>Observ.</th>"+
  "<th onmouseover='def(10)' onmouseout='nd()'>Réf.</th>" : '')+
  "</tr>");

 for (i=0;i<=imax;i++)
 { pair=(Math.round(i/2)==i/2?1:0); score=0; hcl=(libetab[i]=='HOSPICES CIVILS DE LYON'?1:0);
   dw( "<tr class='tr"+pair+"'"+' onmouseout="'+"if(this.className!='trs') this.className='tr"+pair+"'"+'" onmouseover="'+"if(this.className!='trs')this.className='tra'"+'" onclick="'+"if(this.className=='trs')this.className='tra';else this.className='trs'"+'">' +
    "<td class=tdg"+(hcl?' style="color:#999"':'')+"><img src='img/ipp"+pp[i]+".png'> <span class=f"+pp[i]+">"+((pga>1?20*(pga-1):0)+i+1)+". </span>"+libetab[i]+(hcl?' <span class=hlp style="color:#f00" onmouseover='+"'"+'overlib("Structure constituée par des établissements décentrés mais non identifiables :<br>Classement biaisé par rapport aux établissements de l&#8217;AP-HP et AP-Marseille ! cf. méthodo")'+"'"+' onmouseout="nd()"> <b>( ! )</b></span>':'')+"</td>"+
    (longzon>2 || listcodd=='96'?'<td style="text-align:center;cursor:help" onmouseover="ovcdep(ndep['+i+'])" onmouseout=nd()>'+ndep[i]+"</td>":'')+
    "<td class=tdr>"+fmille(nsej[i])+(nc?'':decil(i,1))+"</td>"+
    "<td class=tdr>"+fmille(neuro[i])+(nc?'':decil(i,3))+"</td>"+
    "<td class=tdr>"+(pdm[i]==0.00?'-0.01':pdm[i])+"<font class=fp>%</font>"+(nc?'':fperf(i,4))+"</td>"+
   (indmoy?"<td class=tdr>"+fmille(cm[i])+(nc?'':decil(i,5))+"</td>":'')+
   (!sea? "<td class=td"+(sea?' align=center':'r')+">"+dms[i]+'&nbsp;'+(nc||sea?'':fperf(i,6))+"</td>" : '')+
   (!sea? "<td class=tdg>"+dmsr[i]+"</td>" : '')+
    (dcnnul? "<td class=tdr>"+txdc[i]+"<font class=fp>%</font>"+(nc||ndc0?'':fperf(i,8))+"</td>"+
     "<td class=tdg>"+txdcr[i]+"<font class=fp>%</font></td>":""));
   ns=(nsej[i]<5 && pdm[i]<1?1:0);
  if (!nc)
   {
    score=Math.round(20*score/basnote)/10;
     nivn=(nc?'0':(score>=18?10: (score>=16?9 :(score>=14? 8 : (score>=12? 7 :(score>=10? 6 :(score>=8? 5 :(score>=6? 4 :(score>=4? 3 :(score>=2? 2 :1))))))))));
     nivc=(score>=15?4:(score>=10?3:(score>=5?2:1)));
     if (Math.round(score)==score) score=score+'.0';
     if (score<10) score='0'+score;
    }
  else nivn=5;
   dw( "<td class=not"+nivn+' onmouseover="overlib(&quot;'+
   (nc?'Pas de scoring pour les séjours avec issue fatale ou transfert' :(ns?'Activité non signficative' : 'Somme des scores partiels = niveau '+nivn+' / 10 niveaux'))+'&quot;,LEFT)" onmouseout=nd()>'+(nc?'SansObj':(ns?'NS':score))+'</td></tr>');
   }
   bord=(pga<np?' class=tht':'');
   libmco=(!sea && dcnnul?' colspan=5':(!sea || dcnnul? ' colspan=3':''));
   libmco +=(libmco==''?'>':'>ACTIVITE ')+'MCO 2005';
dw('<tr><th'+bord+(zdep?' colspan=2':'')+'>');
if ((np>1 && pga>=2) || np==2 || pga<(np-1) )
 { pgsuite=1;
 // dw('<table border=0 cellspacing=0 cellpadding=2px align="left"><tr>');
   lienpages() ;
  dw('<span class=tdr>&nbsp;&nbsp;&nbsp; Total'+(np==1?'':' Général')+'</span>');
  }
dw('</th><th'+bord+'>'+fmille(n)+'</th><th'+bord+'>'+fmille(e)+'</th><th'+bord+'>100%'+'</th>'+(indmoy?'<th'+bord+'>'+fmille(Math.round(e/n))+'</th>':'')+'<th class="thi"'+libmco+'</th></tr>');
dw('<tr><td class=tdr style="color:#77f;margin:0;padding:0" colspan='+ntr+'><i><span onmouseover="overlib(&quot;Nombre de Requêtes lancées dans la session active&quot;,ABOVE)" onmouseout=nd()>Nbre de requêtes soumises = '+NPg+'</span> &nbsp; - &nbsp; Durée de traitement = '+DurTRT+' Sec. &nbsp; - Tous droits réservés : M. Qafli &copy; SantéValue 2007</i>'+
"</td></tr></table>"+
"</td></tr></table>"+
(NPg>10? "<div style='color:#f33;font-size:1.1em;padding:0'><img style='vertical-align:bottom' src='img/alert.png'>...Hospiguide est à usage personnel, exception faite pour les médecins prescripteurs d'hospitalisation...<img style='vertical-align:bottom' src='img/alert.png'>"+(NPg>30?'<br>Vous avez requêté '+NPg+" pages : cela s'apparente à un usage professionnel ! Veuillez S.V.P. contacter Santé Value pour demander un droit d'usage.":'')+'</div>' :'')+

"</div>");

}

function fpages(suiv) {
 pgs='';
 ntr=0;
 ideb=(suiv?(pga+1) :1);
 icond=(suiv?(np+1):pga);
 for (i=ideb;i<icond;i++)
  {
    ntr += 1;
    pgs += (ntr==11?'</tr><tr>':'')+"<td><a href='"+
              urla.replace("pg="+pga,"pg="+i)+"'>"+(ntr==1 || ntr==11?'Page ':'')+i+"</a></td>";
    if (ntr==11) ntr=1;

   }
  eval('overlib("<table id=listpg><tr>'+pgs+'</tr></table>"'+
                  ",CAPTION,'"+'Pages '+(suiv?'Suivantes':'Précédentes')+"',STICKY,ABOVE,"+
                  (suiv?'RIGHT,OFFSETX,-3':'LEFT,OFFSETX,-5')+',OFFSETY,0)');

 }

function lienpages() {
   if (np>1)
   {
   dw('<span class=pp>'+(pga>1? "<a "+ (pga==2? "href='"+urla.replace('pg=2','pg=1')+"'"
                                : 'href="javascript:void(0)" onclick="fpages(0)" onmousout="nd()"')+
              '><img src="img/etc.png">'+ifiltr('flg'+(pga>2?'d':''),'img0')+'</a>'
            : '')+
     "<span onmouseover='overlib(&quot;cliquer sur flèches&quot)' onmouseout='nd()'>&nbsp;Page N° "+pga+" /"+np+"&nbsp;</span>"+
       ( np>1 && pga<np ?  "<a "+
          (pga==(np-1) ?" href='"+urla.replace('pg='+pga,'pg='+np)+"'"
                      : ' href="javascript:void(0)" onclick="fpages(1)"' )+
           '>'+ifiltr('fld'+(np-pga>1?'d':''),'img0')+'<img src="img/etc.png"></a>'
                              : '')+'</span>');

    }
}

function listsp()
 {
 npec=0;
 dw(nl+' Spéc : &nbsp; P.A. = '+libvc[pa].substr(3)+' / PEC = '+th[vth]+ '<div class=znmg style="text-align:center">Sélectionner une Spécialité</div><div id="liste"><ul>');
 for (i=0;i<=nl-1;i++)
  {
   lib=ls[i];
   urln=(urla.replace('nl=0&e=0&n=0','nl='+ne[i]+'&e='+E[i]+'&n='+N[i]));
    dw('<li'+
    (ne[i]? '><a href='+urln.replace('&s=0','&s='+n2[i])+'>' : ' onmouseover="overlib(&quot;Spécialité non prise en charge dans la zone géographique choisie&quot;,LEFT)" onmouseout="nd()">')+
   '<font class=f1>'+(i+1)+'. '+'</font>'+(lib.indexOf("CMA")>0?fdescma(lib):lib)+
   ' [<b>'+ne[i]+'&nbsp;étab.</b>]'+ (ne[i]?'</a>':'')+'</li>');
   }
 dw('</ul>'+
 (nl>1?"Liste restant active pour seléctionner sucessivement les spécialités sans modification des autres critères !":'&nbsp; <font class=f1>Liste réduite à une seule spécialité !</font>')+
 '</div>');
}

indic=new Array("Liste des établissements répondant aux critères de sélection, classée par ordre<br>d'importance de la production de soins valorisée en €uros<br>Le statut de chaque établissement est identifié par une boule de couleur spécifique :<br><img src=img/ipp1.png><font class=f1> : Public</font> - &nbsp; <img src=img/ipp2.png><font class=f2> : Parapublic</font> - &nbsp; <img src=img/ipp0.png><font class=f0> : Privé</font>",
"Nombre de Séjours pris en charge",
"",
"Montant Théorique* remboursé par la Sécu sur la base de la tarification<br>publique par Groupe Homogène de Séjour (GHS) <i>* Cf.Méthodo.</i>",
"Part de Marché de Soins -valorisée en €- dans la zone géographique sélectionnée",
"Coût Moyen en € par Séjour => évalue la Lourdeur Moyenne des séjours !",
"Durée Moyenne de Séjour en jour, observée dans l'établissement",
"",
"Durée Moyenne de Séjour de Référence Nationale ajustée au profil de l'établissement par GHS",
"Taux de Décès observé dans l'établissement",
"Taux de Mortalité National de Référence ajusté au profil de l'établissement par GHS");

tperf=new Array("0. du Volume d'Activité en Nombre de Séjours",
"1. du Volume d'Activité en Chiffre d'Affaires",
"2. de la Lourdeur Moyenne des Séjours",
"3. de la Durée Moyenne de Séjour",
"",
"5. de mortalité hospitalière");

function txtref(i){
   nivnat='au niveau national = ';
  res= (i==1?"D1="+D1[0]+" ; D2="+D2[0]+" ; D3="+D3[0]+" ; D4="+D4[0]+" ; D5="+D5[0]+" ; D6="+D6[0]+" ; D7="+D7[0]+" ; D8="+D8[0]+" ; D9="+D9[0]:
   (i==2||i==5?"D1="+D1[2]+" ; D2="+D2[2]+" ; D3="+D3[2]+" ; D4="+D4[2]+" ; D5="+D5[2]+" ; D6="+D6[2]+" ; D7="+D7[2]+" ; D8="+D8[2]+" ; D9="+D9[2] :
   (i==3?"D1="+D1[1]+" ; D2="+D2[1]+" ; D3="+D3[1]+" ; D4="+D4[1]+" ; D5="+D5[1]+" ; D6="+D6[1]+" ; D7="+D7[1]+" ; D8="+D8[1]+" ; D9="+D9[1] :
   (i==4?"La Part de Marché Moyenne au Niveau de la Zone Géographique sélectionnée = "+Math.round(1000/nl,3)/10+'%' :
   (i==6?"La Durée Moyenne de Séjour "+nivnat+' '+dmsr :
   (i==7?"Le Nombre d\'actes Moyen par séjour "+nivnat+' '+nactmr :
   (i==8?"Durée Moyenne de Séjour "+nivnat+' '+dmsr+' j' :
   (i==9?"Taux de décès "+nivnat+' '+txdcr +' %':
     ''))))))));
 return(res);
}


function def(i,j)
{
  overlib(j?'T'+(i+1)+' : Test '+tperf[i] : (i>0?'Indicateur : ':'')+
   indic[i]+
   (i==8 || i==10 || i==6 || i==9 ? '' :
      (i==0?'': '<br>('+(i<4 || i==5?'Déciles de référence nationale : ':'')+txtref(i)+')')),LEFT);
 }


function imgperf(not,b,seuil,val,i,casp) {
  return ("&nbsp;<span onmouseover="+'"overlib(&quot;'+'Score = '+not+(i==4&&casp?' (Cas particulier : petit effectif d&#8217;établissements...)' : ' : '+(b?'Ecart à la moyenne = '+(Math.abs(val)>1?Math.round(val):val)+'%' : 'Valeur')+' '+seuil)+'&quot;,LEFT)" onmouseout=nd()>'+ifiltr((b==1?'m':'d')+not,'ihlp','0'));
}

function decil(l,i)
{
  va=(i==1?nsej[l]:(i==2? nact[l]: (i==3?neuro[l] : cm[l])));
     vr=(i==1?0:(i==3?1:2));
   res=(va>D9[vr]?10:(va>D8[vr]?9 :(va>D7[vr]?8 :(va>D6[vr]?7 :(va>D5[vr]?6 :(va>D4[vr]?5 :(va>D3[vr]?4 :( va>D2[vr]?3 : (va>D1[vr]?2:1)))))))));
   seuil=(res>1?'>D'+(res-1) : 'Inférieur ou égal à D1');
   if (i>2) score += res;
   return imgperf(res,0,seuil,0);
 }

function fperf(l,i) {
  caspec=0;
 va=1*(i==4? pdm[l] : (i==6? dms[l] : (i==8? txdc[l] : nactm[l]))) ;
 vr=1*(i==4? Math.round(1000/nl,2)/10 : (i==6? dmsr[l] : (i==8?txdcr[l] : nactmr[l]) ));
 val=(vr>0?100*(va-vr)/vr : va);

  if (i==4 && nl<5)
  { res= 1+Math.round(pdm[l]/10); if (res>10) res=10;
    caspec=1;
   }
  else
  res= (i!=4?(val<-20?10:(val<-15?9:(val<-10?8:(val<-5?7:(val<0?6:(val<5?5:(val<10?4:(val<15?3:(val<20?2:1)))))))))
            :(val>100?10:(val>80?9:(val>60?8:(val>40?7:(val>20?6:(val<-50?1:(val<-30?2:(val<-20?3:(val<-10?4:5))))))))));
  seuil=(i!=4? (res==10? '<-20%' :(res==9? '<-15%' :( res==8? '<-10%' :(res==7? '<-5%' :(res==6? '<=0%' : (res==5? '<5%' : (res==4? '<10%' :(res==3? '<15%' : (res==2? '<10%' :'<15%')))))))))
          : (res==10? '>100%' :(res==9? '>80%' :( res==8? '>60%' :(res==7? '>40%' :(res==6? '>20%' : (res==1? '<-50%' : (res==2? '<-30%' :(res==3? '<-20%' :(res==4?'<-10%':'>-10%')))))))))) ;

   if (i!=7) score += res;
 return imgperf( res,(i==4?2:1),seuil,val,i,caspec);
}


 function ovcdep(cd){
   overlib('Département : '+libcodd(transcoder(cd)),RIGHT);
 }
var hreft10 = ["29&nl=956&e=1978827673&n=323546&ld=96&th=2&pa=2",
"134&nl=587&e=1405190001&n=612364&ld=96&th=0&pa=12",
"20&nl=1088&e=997976867&n=1305970&ld=96&th=1&pa=1",
"48&nl=250&e=964095241&n=2495366&ld=96&th=1&pa=3",
"142&nl=591&e=909305364&n=748339&ld=96&th=1&pa=13",
"119&nl=723&e=897237237&n=531207&ld=96&th=0&pa=10",
"27&nl=952&e=726683556&n=220197&ld=96&th=2&pa=2",
"7&nl=952&e=674751679&n=73054&ld=96&th=2&pa=1",
"156&nl=672&e=666888332&n=1588093&ld=96&th=1&pa=15",
"32&nl=1235&e=659234939&n=206066&ld=96&th=0&pa=2"];
var lthm=["Chirurgies majeures orthopédiques dont hanche et fémur genou, dont CMAS (5.4 %)",
"Accouchements par voie basse (3.8 %)",
"Endoscopies : séjours de moins de 2 jours (2.7 %)",
"Dialyse : en séances (2.6 %)",
"Nouveau-nés de poids > 2000 g (2.5 %)",
"Cataractes (2.4 %)",
"Chirurgies membres non classées ailleurs (2.0 %)",
"Chirurgies grêle et colon (1.8 %)",
"chimiothérapie : en séances (1.8 %)",
"Pathologies rachis (1.8 %)"];


function tablethm() {
  listop='<div id="listov" style="width:600px;height:100%"><ul>';
 for (i=0;i<=9;i++)
     listop += '<li><a href="hgresult.php?pg=1&s='+hreft10[i]+'">'+lthm[i]+'</a></li>';
  return (listop +"</ul></div>");
 }

function listthm(m)
{
  txtpa='TOP 10 des Spécialités qui mobilisent le plus de Ressources en Médecine, Chirurgie et Obstétrique (25.8% des Côuts fondés sur la T2A publique 2006; 10 Spécialités sur 200)';
  vtab="overlib(tablethm(),CAPTION,txtpa,CAPTIONFONTCLASS,'thi',TEXTFONTCLASS,'band',STICKY,LEFT,WRAP)";
  if (m) eval(vtab);
  else
   {txtpap=" La sélection couvre la France Métropolitaine. Utilisez par la suite l'option 'Zone_Géog' pour restreindre la sélection à une zone précise.";
     return ('<a href="javascript:void(0)" onmouseover="overlib(txtpa+txtpap,LEFT)" onclick="overlib(tablethm(),CAPTION,txtpa,STICKY,LEFT,WRAP)" onmouseout=nd()>');
    }
}

function top50()
{
  document.write('<div id="top 10" class="invit" style="background:#9999ff;font-size:14px;position:absolute;left:'+(ns6?793:789)+'px; top:'+(yt+5)+'px; width:330px;text-align:center;border:2px solid #0000ff;color:#fff; padding:5px">OU : TOP TEN des Spécialités les plus Coûteuses (26.8%)<div class=zm style="width:100%">'+listthm()+ifiltr('fld','hrl')+'Accèder directement au Top TEN ...</a></div></div>');
}