<!-- copyright(c) by VantageMed 2001
// get the region reference if any
var rl=document.referrer;
var rr=document.URL;
var ra='',cpg='',descr='';
//alert('referrer->'+rl);
if((rl.indexOf('birmingham')!=-1)||(rr.indexOf('rr=bm')!=-1)){rr='bm';ra='birmingham';descr='Birmingham';}
if((rl.indexOf('boston')!=-1)||(rr.indexOf('rr=bo')!=-1)){rr='bo';ra='boston';descr='Boston';}
if((rl.indexOf('boulder')!=-1)||(rr.indexOf('rr=bd')!=-1)){rr='bd';ra='boulder';descr='Boulder';}
if((rl.indexOf('detroit')!=-1)||(rr.indexOf('rr=de')!=-1)){rr='de';ra='detroit';descr='Detroit';}
if((rl.indexOf('greensboro')!=-1)||(rr.indexOf('rr=gb')!=-1)){rr='gb';ra='greensboro';descr='Greensboro';}
if((rl.indexOf('hawaii')!=-1)||(rr.indexOf('rr=ha')!=-1)){rr='ha';ra='hawaii';descr='Hawaii';}
if((rl.indexOf('houston')!=-1)||(rr.indexOf('rr=ht')!=-1)){rr='ht';ra='houston';descr='Houston';}
if((rl.indexOf('kansascity')!=-1)||(rr.indexOf('rr=kc')!=-1)){rr='kc';ra='kansascity';descr='Kansas City';}
if((rl.indexOf('littlerock')!=-1)||(rr.indexOf('rr=lr')!=-1)){rr='lr';ra='littlerock';descr='Little Rock';}
if((rl.indexOf('losangeles')!=-1)||(rr.indexOf('rr=la')!=-1)){rr='la';ra='losangeles';descr='Los Angeles';}
if((rl.indexOf('newyork')!=-1)||(rr.indexOf('rr=ny')!=-1)){rr='ny';ra='newyork';descr='New York';}
if((rl.indexOf('pittsburgh')!=-1)||(rr.indexOf('rr=pb')!=-1)){rr='pb';ra='pittsburgh';descr='Pittsburgh';}
if((rl.indexOf('sanfrancisco')!=-1)||(rr.indexOf('rr=sf')!=-1)){rr='sf';ra='sanfrancisco';descr='San Francisco';}
if((rl.indexOf('sacramento')!=-1)||(rr.indexOf('rr=sm')!=-1)){rr='sm';ra='sacramento';descr='Sacramento';}
if((rl.indexOf('seattle')!=-1)||(rr.indexOf('rr=se')!=-1)){rr='se';ra='seattle';descr='Seattle';}
if(rl.indexOf('vmed')!=-1){rr='';ra='';} // set to corporate, vantagemed
//alert("rl-->" + rl+" ra-->"+ra+" rr-->"+rr);
/*
if(rr!=''){
switch(rr){
case 'bm':ra='birmingham';break;
case 'bo':ra='boston';break;
case 'db':ra='boulder';break;
case 'de':ra='detroit';break;
case 'gb':ra='greensboro';break
case 'ha':ra='hawaii';cpg = 'vmcontact';descr='Contact Hawaii Office';break;
case 'ht':ra='houston';break;
case 'kc':ra='kansascity';break;
case 'lr':ra='littlerock';break;
case 'la':ra='losangeles';break;
case 'ny':ra='newyork';break;
case 'pb':ra='pittsburgh';break;
case 'sf':ra='sanfrancisco';break;
case 'sm':ra='sacramento';break;
case 'se':ra='seattle';break;
default:rr='';ra='';break;
}
}
if(ra==''){
rl = document.URL;
var ptr = rl.indexOf('rr=');
(ptr!=-1) ? rr=rl.substring(ptr+3,ptr+5):rr="";

alert("rl-->" + rl+" ra-->"+ra+" rr-->"+rr);
}
*/
// pad region reference of internal navigation
function padloc(loc){
//alert('navigate to--> '+loc+' : tag--> '+rr);
if (rr == 'vmed' || rr == ''||ra==''){window.location = loc;}
else{(loc.indexOf('?') != -1) ? loc+="&rr="+rr : loc+="?rr="+rr;window.location = loc;}}
//-->end