// Total
// Atrise Everyfind v5.0.2
// (C) Atrise Software Co., 2003
// http://www.atrise.com/

//Code Settings
var DefSearchStyle = 'a';   //'o' - OR, 'a' - AND
var PartsOfWordsSearch = 1; //1 - on, 0 - off
var PercentLimit = 1;       //The script shows pages with Accuracy > PercentLimit
var MicroStyle = 'searchmicro';
var CapStyle = 'searchcapt';
var CurFile = 'search_devices.html';
var CapCol = '#088cba';
var HCol = '#eaf2f7';

//Messages to translate to your language
var FoundLinks = 'Found Links';
var SearchCategory = 'Search Category';
var URL = 'URL';
var Category = 'Category';
var Accuracy = 'Relevancy';
var ShowPages = 'Show Pages';
var PrevPage = 'Prev Page';
var NextPage = 'Next Page';
var SearchIn = '';
var Search = 'Search';
var SearchPoweredBy = 'Search Powered by';

var p='+';var e='&';var q=unescape(window.location.search).toLowerCase()+e;var ks=p;

if (q == e){
w('<h3>FDA-Registered Medical Devices Search Form</h3> To find devices:<ul><li> Enter a device name or <li> Enter a company name or <li> Enter a city name or <li> Enter a keyword <li> And then click <b>Search</b>.</ul> Search Tips: <ul><li> Do not use punctuation marks such as commas, quotation marks, etc. <li> More words = more <u>accurate</u> results. Less words = <u>broader</u> search results. <li> For example, if you entered the phrase <i><b>pouch Irvine</b></i>, you would see only companies in <b>Irvine</b> that sell a <b>pouch</b>. Likewise, if you entered only the keyword <i>Irvine</i> you would see all devices manufactured by companies in <b>Irvine</b>.</ul>');
}

var i=q.indexOf('keys=');if(i!=-1)ks=q.substring(i+5,q.indexOf(e,i+5))+p;
var k=new Array();var sk=new Array();var i=0;var n=DefSearchStyle;while(i<ks.length){
if(ks.charAt(i)==p)i++;else{var j=ks.indexOf(p,i);var a=ks.substring(i,j);
if(a=='or'){n='o';i=j;continue;} else if(a=='and'){n='a';i=j;continue;} else if(a=='not'){n='n';i=j;continue;}
for(i=0;i<kw.length;i++){kw[i]=p+kw[i]+p};
if(PartsOfWordsSearch==0){if(a.charAt(0)=='*')a=a.substring(1,a.length);else a='+'+a;
if(a.charAt(a.length-1)=='*')a=a.substring(0,a.length-1);else a=a+'+';}k.length++;k[k.length-1]=a;sk.length++;
sk[sk.length-1]=n;i=j;}}if(k.length==0){k.length++;k[0]=p;sk.length++;ks[0]='n';ks=p}var ks1='';
ks=ks.substring(0,ks.length-1);for(i=0;i<ks.length;i++){if(ks.charAt(i)==p)ks1=ks1+' ';else ks1=ks1+ks.charAt(i)}
var c=0;i=q.indexOf('cat=');if(i!=-1){var a=q.substring(i+4,q.indexOf(e,i+4));if(a!='')c=parseInt(a);
}var s='y';i=q.indexOf('sort=');if(i!=-1){var a=q.substring(i+5,q.indexOf(e,i+5));if(a!='')
s=a;}var n=10;i=q.indexOf('num=');if(i!=-1){var a=q.substring(i+4,q.indexOf(e,i+4));
if(a!='')n=parseInt(a);}var pa=1;i=q.indexOf('page=');if(i!=-1){var a=q.substring(i+5,
q.indexOf(e,i+5));if(a!='')pa=parseInt(a);}var z=new Array();z.length=0;var y=new Array(); y.length=0;
var ratmax=0;for(i=0;i<ln.length;i++){var lc=parseInt(ln[i].substring(0,ln[i].indexOf(p)));
if(c==0||c==lc){var m=-1;var rat=0;var kkk = '';for(var j=0;j<k.length;j++){m=kw[i].toLowerCase().indexOf(k[j])
if(m>=0){if(sk[j]=='n'){rat=-1;break;}rat+=((kw[i].length-m)/kw[i].length)*100;}else{if(sk[j]=='a')
{rat=-1;break;}rat=rat/2;}}if(rat>0){z.length++;z[z.length-1]=i;y.length++;y[z.length-1]=rat;
if(rat>ratmax)ratmax=rat;}}}var zl=z.length;for(i=0;i<zl;i++)y[i]=Math.ceil((y[i]/ratmax)*100);
if(s=='y'){for(i=0;i<zl-1;i++){var m=i+1;var mn=y[i+1];for(j=i+1;j<zl;j++){if(y[j]>mn){
m=j;mn=y[j];}}if(mn>y[i]){var l=y[i];y[i]=y[m];y[m]=l;l=z[i];z[i]=z[m];z[m]=l;}}}
for(i=0;i<zl;i++){if(y[i]<PercentLimit){zl=i;break;}}

if(ks!=''){    //Search Form

//Draw Top
w('<p>'+FoundLinks+': <b>'+zl+'</b>,');
w(SearchCategory+': "<b>'+cg[c]+'</b>"</p>');
var nn=n*pa;if(zl<nn)nn=zl;for(i=(pa-1)*n;i<nn;i++){var li=ln[z[i]];

//Draw link
if(pc(z[i])=='')
  w('<dl><dt><b>'+(i+1)+'. <a href="devices/'+li.substring(li.lastIndexOf(p)+1,li.length)+'">'+li.substring(li.lastIndexOf(p)+1,li.length)+'</a></b><dd>');
else
  w('<dl><dt><b>'+(i+1)+'. <a href="devices/'+li.substring(li.lastIndexOf(p)+1,li.length)+'">'+pc(z[i])+'</a></b><dd>');
if(ds[z[i]]!='')
  w(ds[z[i]]+'<br>');
w(' <i> '+Accuracy+': ');
w(y[i]+'%</span></i></dd></dl>');}

//Draw bottom
w('<p>'+ShowPages+':');
w(nav('&lt; '+PrevPage,NextPage+' &gt;')+'</p>');

}               //Search Form End

w('<form name="queryform" action="'+CurFile+'">');
w('<table border="0" cellspacing="0" cellpadding="8">');
w('<tr bgcolor="'+HCol+'"><td><div align="center">');
w(' '+inp(20)+' <input type="submit" value="'+Search+'">');
w('</div></td></tr></table></form>');


function pc(n){var a=ln[n].indexOf(p);return ln[n].substring(a+1,ln[n].indexOf(p,a+1));}
function kwl(n){var r='';for(var i=0;i<kw[n].length;i++)if(kw[n].charAt(i)==p)r+=', ';
else r+=kw[n].charAt(i);return r;}function prg(n,t,a,b){var r='';for(var i=0;i<Math.ceil(
n*t/k.length);i++)r+=a;for(var i=0;i<(t-Math.ceil(n*t/k.length));i++)r+=b;return r;}
function ur(i){if(i<1||i>Math.ceil(zl/n))return '';return document.location.pathname+
'?keys='+escape(ks)+'&cat='+c+'&sort='+s+'&num='+n+'&page='+i;}
function nav(a,b){var r='';
var np=Math.ceil(zl/n);if(np==0)return'-';if(pa!=1)r+='<a href="'+ur(pa-1)+'">'+a+'</a> ';
for(var i=1;i<=np;i++){if(i==pa)r+='<b>'+i+'</b> ';else r+='<a href="'+ur(i)+'">'+i+'</a> ';}
if(pa!=np)r+='<a href="'+ur(pa+1)+'">'+b+'</a>';return r;}function inp(n){var r=
'<input type="text" size="30" name="keys" value="'+ks1+'" size="'+n+'">';return r;}function cl(){
var r='<input type=hidden name=cat';for(var i=0;i<cg.length;i++){r+='value="'+i+'" ';if(i==c)
r+='';r+='>'+cg[i]+'';}r+='';return r;}function w(s){
document.writeln(s);}
