monOf=new Array('','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
sections=new Array();

sections[0]="Head|"
+"^Name|LI|FN|MN|LN|EXT|"
+"^Status|status|"
+"^Location|townst|";

sections[1]="General|"
+"^Mailing Address|address|"
+"^Years of Practice|startMDY|"
+"^Hospital Staff Privileges|hosp|"
+"^Primary Practice|pploc|";
//+"^Translation Services|trans|"
//+"^Accepting Medicaid|medicaid|"
//+"^Other States|othsty|";
//Licensed in

sections[2]="Education|"
+"^Medical Schools|medschool|"
+"^Residency|residency|"
+"^Specialty & Certification|certification|"
+"";

sections[3]="Teaching|"
+"^Appointments / Teaching|appointments|teachappt|"
//+"^Teaching Appts|teachappt|";

sections[4]="Publications/Activities|"
+"^Publications|publications|"
//+"^Awards|AWARDS|XSAWARDS|"
+"^Activities|activities|";

sections[5]="Restrictions/Disciplinary|"
+"^Convictions|criminal|nolo|"
//+"^Convictions and Nolo Contendere|criminal|nolo|"
//+"^Nolo_Contendere|nolo|"
+"^License Restrictions|vbpm|othermatters|"
//+"^Other States|othermatters|"
+"^Hospital Restrictions|restricthosp|";
//+"^In Lieu|inlieu|";

sections[6]="Malpractice|"
+"^Settlements|settlements|"
+"^Judgments|judgments|";

function showhead(ic) {
town=c[ic][colOf('townst')][0][0];
state=c[ic][colOf('townst')][0][1];
document.write(''
+'<table border="0" cellpadding="0" cellspacing="0" width="100%">'
+'<tr>'
+'          <td > <b>'+c[ic][colOf('FN')]+' '+c[ic][colOf('MN')]+' '+c[ic][colOf('LN')]+' '+c[ic][colOf('EXT')]+'</b></td>'
+'          <td  align=right>LICENSE #'+c[ic][colOf('LI')]+''
+'          </td>'
+'</tr>'
+'<!--<TR><TD COLSPAN=4><HR SIZE=1 NOSHADE></TD></TR>-->'

+'<tr>'
+'<td colspan=2><img src="http://www.healthyvermonters.info/bmp/images/line1.gif" height="1" width="100%"></td>'
+'</tr>'
+'<tr>'
+'    <td valign=top>'+subvalOf(ic,'townst',0,'town')+', '+subvalOf(ic,'townst',0,'st')+'</td>'
+'          <td align=right valign=top><!--100 Main Street<br>-->'
+'           License Status: ');
document.write(c[ic][colOf('status')]);
document.write('</td>'
+'</tr>'
+'</table>'

+'<!--      <p>&nbsp;</p> -->'
+'');

}

function showgeneral(ic) {
document.write('<br>');
//showhead(ic);
makenav(1,1);

// table for subsection Address
document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Mailing Address">Mailing Address</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
/*
// a row for Home or Work
document.write('<tr>');
// field label
document.write('<td>');
document.write('Home or Work:');
document.write('</td>');
// field values
document.write('<td>');
if (c[ic][colOf('HOMEWORK')]=='1') {isHW='HOME';} else {isHW='WORK';}
document.write(isHW);
document.write('</td>');
document.write('</tr>');
// end of a row for Home or Work
*/
// a row for Address
document.write('<tr>');
// field label
document.write('<td>');
document.write(' ');
//document.write('Address:');
document.write('</td>');
// field values
document.write('<td>');
//CARE_OF|STREET|TOWN|STATE|ZIP9|EMAIL|
if (subvalOf(ic,'address',0,'CARE_OF')>' ') {
  document.write(subvalOf(ic,'address',0,'CARE_OF')+', ');
}
document.write(''
+subvalOf(ic,'address',0,'STREET')+', '
+subvalOf(ic,'address',0,'TOWN')+', '
+subvalOf(ic,'address',0,'STATE')+' '
+subvalOf(ic,'address',0,'ZIP9')
+'');

document.write('</td>');
document.write('</tr>');
// end of a row for Address

/* a row for Email
if (subvalOf(ic,'address',0,'EMAIL')>' '){
  document.write('<tr>');
// field label
  document.write('<td>');
  document.write('Email:');
  document.write('</td>');
// field values
  document.write('<td>');
  if (subvalOf(ic,'address',0,'EMAIL')>' '){
    document.write('<a href="mailto:');
    document.write(subvalOf(ic,'address',0,'EMAIL'));
    document.write('">');
    document.write(subvalOf(ic,'address',0,'EMAIL'));
    document.write('</a>');
  } else {
    document.write('not provided');
  }
  document.write('</td>');
  document.write('</tr>');
}
// end of a row for Email
*/
document.write('</table><br>');
//end of subsection Address



// table for subsection Years of Practice
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Years of Practice">Years of Practice</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
// a row for Years of Practice
document.write('<tr>');
// field label
document.write('<td>');
document.write(' ');
//document.write('Years of Practice:');
document.write('</td>');
// field values
//STARTM|STARTY|
document.write('<td>');
mmddyyyy=c[ic][colOf('startMDY')][0][0];
//alert(mmddyyyy+' '+mmddyyyy.length);
startyr=mmddyyyy.substring(mmddyyyy.length-4,mmddyyyy.length);
startyr=replaceString('/','',startyr);
Today = new Date();yr = Today.getUTCFullYear();
yrspractice=Number(yr)-Number(startyr);
if (startyr=='') {document.write('not provided');}
else {document.write(yrspractice+' (since '+startyr+')');}
document.write('</td>');
document.write('</tr>');
document.write('</table><br>');
//end of subsection Practicing since


// table for subsection Hospitals
//hospN|hospC|hospS|hospY
//HOSP1|HOSP1TXT|HOSP1ST|HOSP1YR|HOSP2|HOSP2TXT|HOSP2ST|HOSP2YR|HOSP3|HOSP3TXT|HOSP3ST|HOSP3YR|XSHOSP|HOSPTXT|HOSPCity|HOSPST|HOSPYR|"
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Hospital Staff Privileges">Current Hospital Staff Privileges</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
// a row for Hospital (since)
    document.write('<tr>');
// field label
    document.write('<td valign="top">');
    document.write('Hospital (since):');
    document.write('</td>');
    document.write('<td>');
    // field values
//alert(c[ic][colOf('hosp']);
    if ((subvalOf(ic,'hosp',0,'hospN')>' ')&&(subvalOf(ic,'hosp',0,'hospN')!='None reported')) {
      for (irec=0;irec<c[ic][colOf('hosp')].length;++irec) {
        document.write(subvalOf(ic,'hosp',irec,'hospN')+', '+subvalOf(ic,'hosp',irec,'hospS'));
        document.write(' ('+subvalOf(ic,'hosp',irec,'hospY')+')<br>');
      }
    }
    else {document.write('none reported');}


document.write('</td>');
document.write('</tr>');
document.write('</table><br>');
//end of subsection Hospital



// table for subsection Primary Practice
//PPTOWN|PPSTATE|
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Primary Practice">Primary Practice</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
// a row for Primary Practice
document.write('<tr>');
// field label
document.write('<td>');
//document.write(' ');
document.write('Location:');
document.write('</td>');
// field values
document.write('<td>');
if ((subvalOf(ic,'pploc',0,'PPTOWN')>' ')&&(subvalOf(ic,'pploc',0,'PPTOWN')!='None reported')){
  document.write(subvalOf(ic,'pploc',0,'PPTOWN')+', '+subvalOf(ic,'pploc',0,'PPSTATE'));
} else {document.write('none reported');}
document.write('</td>');
document.write('</tr>');
//document.write('</table><br>');
//end of subsection Primary Practice


// table for subsection Translation Services
//|TRANSYN|TRANS1|TRANS2|TRANS3|XSTRANS|
/*
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Translation Services">Translation Services</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
*/
// a row for Translation Services
document.write('<tr>');
// field label
document.write('<td valign="top">');
//document.write(' ');
document.write('Translation Services:');
document.write('</td>');
// field values
document.write('<td>');
if ((subvalOf(ic,'trans',0,'trans')>' ')&&(subvalOf(ic,'trans',0,'trans')!='None reported')){
  for (irec=0;irec<c[ic][colOf('trans')].length;++irec) {
    document.write(subvalOf(ic,'trans',irec,'trans')+'<br>');
  }
} else {document.write('none reported');}
document.write('</td>');
document.write('</tr>');
//document.write('</table><br>');
//end of subsection Translation Services


// table for subsection Accepting Medicaid
//|MEDICAID|NEWMC|
/*
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Accepting Medicaid">Accepting Medicaid</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
*/
// a row for Accepting Medicaid
document.write('<tr>');
// field label
document.write('<td>');
//document.write(' ');
document.write('Medicaid:');
document.write('</td>');
// field values
document.write('<td>');
if (c[ic][colOf('medicaid')][0][0]=='Yes'){
  document.write('Medicaid patients accepted.');
} else {document.write('Medicaid patients not accepted.');}
document.write('</td>');
document.write('</tr>');
// a row for Accepting New Medicaid Patients
document.write('<tr>');
// field label
document.write('<td>');
document.write(' ');
//document.write('Accepting New <br>Medicaid Patients:');
document.write('</td>');
// field values
document.write('<td>');
if (c[ic][colOf('newmc')][0][0]=='Yes'){
  document.write('New Medicaid patients accepted.');
} else {document.write('New Medicaid patients not accepted.');}
document.write('</td>');
document.write('</tr>');
document.write('</table><br>');
//end of subsection Accepting Medicaid



/*
// table for subsection Licensed in Other States
//|OTHST1|OTHST1Y|OTHST2|OTHST2Y|OTHST3|OTHST3Y|
document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
document.write('<a name="Other States">Licensed in Other States</a>');
document.write('</b></td>');
document.write('<td bgcolor="#D1D0C7" align="right">');
document.write(toplink)
document.write('</td></tr>');
// a row for Licensed in Other States
document.write('<tr>');
// field label
document.write('<td valign="top">');
document.write('Licensed in Other<br> States (since):');
document.write('</td>');
// field values
document.write('<td>');
if ((subvalOf(ic,'othsty',0,'othst')>' ')&&(subvalOf(ic,'othsty',0,'othst')!='None reported')){
  for (irec=0;irec<c[ic][colOf('othsty')].length;++irec) {
    document.write(subvalOf(ic,'othsty',irec,'othst'));
    if (subvalOf(ic,'othsty',irec,'othy')>' ') {
      document.write(' ('+subvalOf(ic,'othsty',irec,'othy')+')');
    }
    document.write('<br>');
  }
} else {document.write('none reported');}
document.write('</tr>');
document.write('</table><br>');
//end of subsection Licensed in Other States
*/
// end of section General
}

function showeducation(ic) {
  makenav(2,1);
//MSCHLT|MSCHLC|MSCHLS|MSCHLY	RESISP|RESIMS|RESIST|RESIY	CERTSP|CERTBD|CERTCY|CERTRY
// table for subsection Medical Schools
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Medical Schools">Medical Schools</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for MSCHOOL1
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Medical Schools:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//MSCHLT|MSCHLC|MSCHLS|MSCHLY
  if ((c[ic][colOf('medschool')][0][0]>' ')&&(c[ic][colOf('medschool')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('medschool')].length;++irec) {
      document.write(subvalOf(ic,'medschool',irec,'MSCHLT')+'<br>');
      if ((subvalOf(ic,'medschool',irec,'MSCHLC')>' ')||(subvalOf(ic,'medschool',irec,'MSCHLS')>' ')) {
        document.write(subvalOf(ic,'medschool',irec,'MSCHLC')+' '+subvalOf(ic,'medschool',irec,'MSCHLS')+'<br>');
      }
      document.write(subvalOf(ic,'medschool',irec,'MSCHLY')+'<br>');
    }
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for MSCHOOL3
  document.write('</table><br>');
//end of subsection Medical Schools


// table for subsection Residency
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Residency">Residency</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for RES1SPEC
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Residency:');
  document.write('</td>');
// field values
  document.write('<td>');
//RESISP|RESIMS|RESIST|RESIY
  if ((c[ic][colOf('residency')][0][0]>' ')&&(c[ic][colOf('residency')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('residency')].length;++irec) {
      document.write(subvalOf(ic,'residency',irec,'RESISP')+'<br>');
      if ((subvalOf(ic,'residency',irec,'RESIMS')>' ')||(subvalOf(ic,'residency',irec,'RESIMS')>' ')) {
        document.write(subvalOf(ic,'residency',irec,'RESIMS')+' '+subvalOf(ic,'residency',irec,'RESIST')+'<br>');
      }
      document.write(subvalOf(ic,'residency',irec,'RESIY')+'<br><br>');
    }
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for residency
  document.write('</tr>');
  document.write('</table>');
//end of subsection Residency


// table for subsection Certification
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Specialty & Certification">Specialty & Certification</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for certification
//CERTSP|CERTBD|CERTCY|CERTRY
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Specialty:<br>(Certification):');
  document.write('</td>');
// field values
  document.write('<td>');
  if ((c[ic][colOf('certification')][0][0]>' ')&&(c[ic][colOf('certification')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('certification')].length;++irec) {
      document.write(subvalOf(ic,'certification',irec,'CERTSP')+'<br>');
      if (subvalOf(ic,'certification',irec,'CERTBD')>' ') {
        document.write('('+subvalOf(ic,'certification',irec,'CERTBD')+'<br>');}
      if (subvalOf(ic,'certification',irec,'CERTCY')>' ') {
        document.write('Certified: '+subvalOf(ic,'certification',irec,'CERTCY'));}
      if (subvalOf(ic,'certification',irec,'CERTRY')>' ') {
        document.write('; Recertified: '+subvalOf(ic,'certification',irec,'CERTRY'));}
      if ((subvalOf(ic,'certification',irec,'CERTCY')>' ')||(subvalOf(ic,'certification',irec,'CERTRY')>' ')) {document.write(')<br>');}
      document.write('<br>');
    }
  } else {document.write('none reported');}
  document.write('</td>');
  document.write('</tr>');
// end of a row for certification

  document.write('</table><br>');
//end of subsection Certification

// end of function
}

function showteaching(ic) {
  makenav(3,1);

  if (isNone(ic,'appointments') && isNone(ic,'teachappt')) {
    reportNone();
  } else {

//APPTS|APPTC|APPTST|APPTN|APPTFR|APPTTO	TEACH|TEACHC|TEACHS|TEACHN|TEACHFR|TEACHTO
// table for subsection Appointments
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Appointments / Teaching">Appointments / Teaching</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for appointments
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//APPTS|APPTC|APPTST|APPTN|APPTFR|APPTTO
  if ((c[ic][colOf('appointments')][0][0]>' ')&&(c[ic][colOf('appointments')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('appointments')].length;++irec) {
      document.write(subvalOf(ic,'appointments',irec,'APPTS')+'<br>');
      if (subvalOf(ic,'appointments',irec,'APPTC')>' ') {document.write(subvalOf(ic,'appointments',irec,'APPTC')+' ');}
      if (subvalOf(ic,'appointments',irec,'APPTST')>' ') {document.write(subvalOf(ic,'appointments',irec,'APPTST'));}
      if ((subvalOf(ic,'appointments',irec,'APPTST')>' ')||(subvalOf(ic,'appointments',irec,'APPTST')>' ')) {document.write('<br>');}
      if (subvalOf(ic,'appointments',irec,'APPTN')>' ') {document.write(subvalOf(ic,'appointments',irec,'APPTN')+'<br>');}
      if (subvalOf(ic,'appointments',irec,'APPTFR')>' ') {document.write(subvalOf(ic,'appointments',irec,'APPTFR'));}
      if (subvalOf(ic,'appointments',irec,'APPTTO')>' ') {document.write(' - '+subvalOf(ic,'appointments',irec,'APPTTO'));}
      if ((subvalOf(ic,'appointments',irec,'APPTFR')>' ')||(subvalOf(ic,'appointments',irec,'APPTTO')>' ')) {document.write('<br>');}
      document.write(' <br>');
    }
  } //else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for appointments
//  document.write('</table>');
//end of subsection appointments

// table for subsection Teaching Appts
//  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
/*
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Activities">Activities</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
*/
// a row for Teaching Appts
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//TEACH|TEACHC|TEACHS|TEACHN|TEACHFR|TEACHTO
  if ((c[ic][colOf('teachappt')][0][0]>' ')&&(c[ic][colOf('teachappt')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('teachappt')].length;++irec) {
      document.write(subvalOf(ic,'teachappt',irec,'TEACH')+'<br>');
      if (subvalOf(ic,'teachappt',irec,'TEACHC')>' ') {document.write(subvalOf(ic,'teachappt',irec,'TEACHC')+' ');}
      if (subvalOf(ic,'teachappt',irec,'TEACHS')>' ') {document.write(subvalOf(ic,'teachappt',irec,'TEACHS'));}
      if ((subvalOf(ic,'teachappt',irec,'TEACHC')>' ')||(subvalOf(ic,'teachappt',irec,'TEACHS')>' ')) {document.write('<br>');}
      if (subvalOf(ic,'teachappt',irec,'TEACHN')>' ') {document.write(subvalOf(ic,'teachappt',irec,'TEACHN')+'<br>');}
      if (subvalOf(ic,'teachappt',irec,'TEACHFR')>' ') {document.write(subvalOf(ic,'teachappt',irec,'TEACHFR'));}
      if (subvalOf(ic,'teachappt',irec,'TEACHTO')>' ') {document.write(' - '+subvalOf(ic,'teachappt',irec,'TEACHTO'));}
      if ((subvalOf(ic,'teachappt',irec,'TEACHFR')>' ')||(subvalOf(ic,'teachappt',irec,'TEACHTO')>' ')) {document.write('<br>');}
      document.write(' <br>');
    }
  }

  if (((c[ic][colOf('appointments')][0][0]<=' ')||(c[ic][colOf('appointments')][0][0]=='None reported'))&&((c[ic][colOf('teachappt')][0][0]<=' ')||(c[ic][colOf('teachappt')][0][0]=='None reported'))) {
    document.write('none reported');
  }

  document.write('</td></tr>');
// end of a row for teachappt
  document.write('</table>');
//end of subsection teachappt

 }
// end of function
}


function showpublications(ic) {
  pdfbase='';
  LI=c[ic][colOf('LI')][0][0];
  sigdig=LI.substring(LI.length-5,LI.length,LI);
  if (sigdig.charAt(0)=='0') {sigdig=LI.substring(LI.length-4,LI.length,LI);}
//alert(sigdig);
  pdfbase=sigdig+c[ic][colOf('LN')][0][0];
//alert(pdfbase);
  makenav(4,1);

  if (isNone(ic,'publications') && isNone(ic,'activities')) {
    reportNone();
  } else {


//publications	activities
// table for subsection publications
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Publications">Publications</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for publications
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Publications:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('publications')][0][0]>' ')&&(c[ic][colOf('publications')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('publications')].length;++irec) {
      if (subvalOf(ic,'publications',irec,'publications')=='pdf') {
/*
document.write('Not currently available.');
*/

        document.write('<a href="http://healthvermont.gov/hc/med_board/mpb/pdfs/'+pdfbase+'pub.pdf" target=_blank>');
        document.write('Click Here');
        document.write('</a><br>(This document is a PDF file and requires an Adobe reader, <a href="http://www.adobe.com/products/acrobat/readstep2.html" target=_blank>available free of charge.</a>)');
      } else {
        pubrec=subvalOf(ic,'publications',irec,'publications').replace(/\|/g," ");
        document.write(pubrec);
      }
      document.write('<br> <br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for publications
  document.write('</table>');
//end of subsection publications

// table for subsection Activities
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Activities">Activities</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for Activities
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Activities:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//activities
  if ((c[ic][colOf('activities')][0][0]>' ')&&(c[ic][colOf('activities')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('activities')].length;++irec) {
      if (subvalOf(ic,'activities',irec,'activities')=='pdf') {
//document.write('Not currently available.');

        document.write('<a href="http://healthvermont.gov/hc/med_board/mpb/pdfs/'+pdfbase+'act.pdf" target=_blank>');
        document.write('Click Here');
        document.write('</a><br>(This document is a PDF file and requires an Adobe reader, <a href="http://www.adobe.com/products/acrobat/readstep2.html" target=_blank>available free of charge.</a>)');

//        document.write('<a href="http://www.healthyvermonters.info/mpb/pdfs/'+pdfbase+'act.pdf" target=_blank>');
      }
      else {
        document.write(subvalOf(ic,'activities',irec,'activities'));
      }
/*
      if (subvalOf(ic,'activities',irec,'activities')=='pdf') {
        document.write('</a>');
      }
*/
      document.write('<br> <br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for activities
  document.write('</table>');
//end of subsection activities

 }
// end of function
}


function showdisciplinary(ic) {
  makenav(5,1);
  if (isNone(ic,'criminal') && isNone(ic,'nolo') && isNone(ic,'vbpm') && isNone(ic,'othermatters') && isNone(ic,'restricthosp') && isNone(ic,'inlieu')) {
    reportNone();
  } else {
//criminal	nolo	vbpm	othermatters	restricthosp	inlieu
//CRIMEMDY|CRIMECT|CRIMEC|CRIMES|CRIMED	NOLOMDY|NOLOCT|NOLOST|NOLOCH	vbpm	OTHMBMDY|OTHMBA|OTHMBC|OTHMBS|OTHMBCH	REHOSPMDY|REHOSPT|REHOSPS|REHOSPN|REHOSPR	LIEUMDY|LIEUH|LIEUS|LIEUN|LIEUA|LIEUR
// table for subsection Convictions
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Convictions and Nolo Contendere">Convictions</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
if ((c[ic][colOf('criminal')][0][0]=='None reported')&&(c[ic][colOf('nolo')][0][0]=='None reported')) {
  document.write('<tr><td>&nbsp;</td><td>none reported<br></td></tr>');
}
else {
// a row for Convictions
// CRIMEMDY|CRIMECT|CRIMEC|CRIMES|CRIMED
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Convictions:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//
  if ((c[ic][colOf('criminal')][0][0]>' ')&&(c[ic][colOf('criminal')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('criminal')].length;++irec) {
      document.write(subvalOf(ic,'criminal',irec,'CRIMEMDY')+'<br>');
      document.write(subvalOf(ic,'criminal',irec,'CRIMECT')+' '+subvalOf(ic,'criminal',irec,'CRIMEC')+' '+subvalOf(ic,'criminal',irec,'CRIMES')+'<br>');
      document.write(subvalOf(ic,'criminal',irec,'CRIMED')+'<br><br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for Convictions


// a row for Nolo_Contendere
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Nolo Contendere:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('nolo')][0][0]>' ')&&(c[ic][colOf('nolo')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('nolo')].length;++irec) {
      document.write(subvalOf(ic,'nolo',irec,'NOLOMDY')+'<br>');
      document.write(subvalOf(ic,'nolo',irec,'NOLOCT')+' '+subvalOf(ic,'nolo',irec,'NOLOST')+'<br>');
      document.write(subvalOf(ic,'nolo',irec,'NOLOCH')+'<br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for Nolo_Contendere



}
  document.write('</table>');
//end of subsection Convictions

/*
// table for subsection Nolo_Contendere
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Nolo_Contendere">Nolo_Contendere</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for Nolo_Contendere
// NOLOMDY|NOLOCT|NOLOST|NOLOCH
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Nolo_Contendere:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('nolo')][0][0]>' ')&&(c[ic][colOf('nolo')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('nolo')].length;++irec) {
      document.write(subvalOf(ic,'nolo',irec,'NOLOMDY')+'<br>');
      document.write(subvalOf(ic,'nolo',irec,'NOLOCT')+' '+subvalOf(ic,'nolo',irec,'NOLOST')+'<br>');
      document.write(subvalOf(ic,'nolo',irec,'NOLOCH')+'<br>');
    }
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for Nolo_Contendere
  document.write('</table>');
//end of subsection Nolo_Contendere
*/

// table for subsection Vermont BMP Matters
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="License Restrictions">License Restrictions</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for Vermont BMP Matters
// vbpm
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Vermont:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('vbpm')][0][0]>' ')&&(c[ic][colOf('vbpm')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('vbpm')].length;++irec) {
      vrpt=c[ic][colOf('vbpm')][irec][0]+"<br>"+c[ic][colOf('vbpm')][irec][1];
      document.write('<br>'+vrpt+'<br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for Vermont BMP Matters
// a row for Other States
// OTHMBMDY|OTHMBA|OTHMBC|OTHMBS|OTHMBCH
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write("Other States:<br><br>");
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('othermatters')][0][0]>' ')&&(c[ic][colOf('othermatters')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('othermatters')].length;++irec) {
      document.write(subvalOf(ic,'othermatters',irec,'OTHMBMDY')+'<br>');
      if (subvalOf(ic,'othermatters',irec,'OTHMBA')>' ') {document.write(subvalOf(ic,'othermatters',irec,'OTHMBA')+'<br>');}
      if (subvalOf(ic,'othermatters',irec,'OTHMBS')>' ') {document.write(subvalOf(ic,'othermatters',irec,'OTHMBC')+' '+subvalOf(ic,'othermatters',irec,'OTHMBS')+'<br>');}
      if (subvalOf(ic,'othermatters',irec,'OTHMBCH')>' ') {document.write(subvalOf(ic,'othermatters',irec,'OTHMBCH')+'<br><br>');}
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for Other States
  document.write('</table>');
//end of subsection Vermont BMP Matters

/*
// table for subsection Other States
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Other States">Other States</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for Other States
// OTHMBMDY|OTHMBA|OTHMBC|OTHMBS|OTHMBCH
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('Other States<br>Board Actions:<br><br>');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('othermatters')][0][0]>' ')&&(c[ic][colOf('othermatters')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('othermatters')].length;++irec) {
      document.write(subvalOf(ic,'othermatters',irec,'OTHMBMDY')+'<br>');
      document.write(subvalOf(ic,'othermatters',irec,'OTHMBA')+'<br>');
      document.write(subvalOf(ic,'othermatters',irec,'OTHMBC')+' '+subvalOf(ic,'othermatters',irec,'OTHMBS')+'<br>');
      document.write(subvalOf(ic,'othermatters',irec,'OTHMBCH')+'<br>');
    }
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for Other States
  document.write('</table>');
//end of subsection Other States
*/

// table for subsection Hospital Restrictions
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Hospital Restrictions">Hospital Restrictions</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for Hospital Restrictions
// REHOSPMDY|REHOSPT|REHOSPS|REHOSPN|REHOSPR
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Hospital Restrictions:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//publications
  if ((c[ic][colOf('restricthosp')][0][0]>' ')&&(c[ic][colOf('restricthosp')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('restricthosp')].length;++irec) {
      if (subvalOf(ic,'restricthosp',irec,'REHOSPMDY')>' ') {document.write(subvalOf(ic,'restricthosp',irec,'REHOSPMDY')+'<br>');}
      if (subvalOf(ic,'restricthosp',irec,'REHOSPS')>' ') {document.write(subvalOf(ic,'restricthosp',irec,'REHOSPT')+' '+subvalOf(ic,'restricthosp',irec,'REHOSPS')+'<br>');}
      if (subvalOf(ic,'restricthosp',irec,'REHOSPN')>' ') {document.write(subvalOf(ic,'restricthosp',irec,'REHOSPN')+'<br>');}
      if (subvalOf(ic,'restricthosp',irec,'REHOSPR')>' ') {document.write(subvalOf(ic,'restricthosp',irec,'REHOSPR')+'<br><br>');}
    }
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for Hospital Restrictions
  document.write('</table>');
//end of subsection Hospital Restrictions

/*
// table for subsection In Lieu
  document.write('<table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="In Lieu">In Lieu</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for In Lieu
// LIEUMDY|LIEUH|LIEUS|LIEUN|LIEUA|LIEUR
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write('In Lieu:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
//
  if ((c[ic][colOf('inlieu')][0][0]>' ')&&(c[ic][colOf('inlieu')][0][0]!='None reported')) {
    for (irec=0;irec<c[ic][colOf('inlieu')].length;++irec) {
      document.write(subvalOf(ic,'inlieu',irec,'LIEUMDY')+'<br>');
      document.write(subvalOf(ic,'inlieu',irec,'LIEUH')+' '+subvalOf(ic,'inlieu',irec,'LIEUS')+'<br>');
      document.write(subvalOf(ic,'inlieu',irec,'LIEUN')+'<br>');
      document.write(subvalOf(ic,'inlieu',irec,'LIEUA')+'<br>');
      document.write(subvalOf(ic,'inlieu',irec,'LIEUR')+'<br><br>');
    }
  } else {document.write('none reported');}
  document.write('<br> </td></tr>');
// end of a row for In Lieu
  document.write('</table>');
//end of subsection In Lieu
*/
 }
// end of function
}


function showmalpractice(ic) {
  makenav(6,1);
  if (isNone(ic,'settlements') && isNone(ic,'judgments')) {
    reportNone();
  } else {
//settlements
// table for subsection settlements
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Settlements">Settlements</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for settlements
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Settlements:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
  if ((c[ic][colOf('settlements')][0][0]>' ')&&(c[ic][colOf('settlements')][0][0]!='None reported')) {
// insert language
document.write("<i><ul>When considering malpractice data, please keep in mind:</i>");
document.write("<li>Malpractice histories tend to vary by specialty. Physicians treating certain patients and performing certain procedures are more likely to be the subject of litigation than others. This report compares doctors like to the members of their specialty whenever possible, not to all doctors, in order to make an individual doctor's history more meaningful.");
document.write("<br></li>");
document.write("<li>This report reflects data for the last 10 years of a doctor's practice.  For doctors practicing less than 10 years, the data covers their total years of practice. Patients should take into account how long the doctor has been in practice when considering malpractice averages.");
document.write("<br></li>");
document.write("<li>The incident causing the malpractice claim may have happened years before a payment is finally made.  Sometimes, it takes a long time for a malpractice lawsuit to move through the legal system.");
document.write("<br></li>");
document.write("<li>Some doctors work with high-risk patients.  These doctors may have malpractice histories that are higher than average because they specialize in cases or patients who are at a very high risk for problems. Doctors who treat these high risk patients may include doctors with excellent skills and experience.  Patients should evaluate physicians' levels of skill, education and experience as well as their malpractice histories.");
document.write("<br></li>");
document.write("<li>Settlement of a claim may occur for reasons other than liability which do not necessarily reflect negatively on the professional conduct or competence of the physician.  A payment or settlement of a medical malpractice action or claim does not necessarily mean that medical malpractice has occurred.");
document.write("</ul><hr>");
//SETTLEMDY|SETTLEC|SETTLES|SETTLEA|SETTLED
// count settlements
//    settlespec=subvalOf(ic,'certification',0,'CERTSP');
    numsettlements=0;
    for (irec=0;irec<c[ic][colOf('settlements')].length;++irec) {
      if (subvalOf(ic,'settlements',irec,'SETTLEA')>' ') {++numsettlements;}
    }
    if (numsettlements>0) {
      evalrec=subvalOf(ic,'settlements',0,'SETTLEA');
      evalamtspec=evalrec.split("-");
      settlespec=evalamtspec[1];
      document.write('<b>Number of settlements reported: '+numsettlements+'</b><br>');
      document.write('Settlement evaluation is based on the specialty '+settlespec+'.<br>');
    }
    for (irec=0;irec<c[ic][colOf('settlements')].length;++irec) {
      if (subvalOf(ic,'settlements',irec,'SETTLEA')>' ') {
        evalrec=subvalOf(ic,'settlements',irec,'SETTLEA');
        evalamtspec=evalrec.split("-");
        evaluation=evalamtspec[0];
        settlespec=evalamtspec[1];
        foundspec=0;
        if (evaluation!='NE') {foundspec=1;}
        if (foundspec>0) {
          eval='';
          if (evaluation=='lo') {eval="Below Average";}
          if (evaluation=='med') {eval="Average";}
          if (evaluation=='hi') {eval="Above Average";}
          document.write('    '+subvalOf(ic,'settlements',irec,'SETTLEMDY')+' - Settlement; Rated '+eval+'<br>');
        } else {
          document.write('    '+subvalOf(ic,'settlements',irec,'SETTLEMDY')+' - Settlement; There was not enough data in this specialty to provide a comparison.<br>');
        }
//      document.write('<br> <hr>');
      }
    }
    document.write("Click here for more information: <a href='http://healthvermont.gov/hc/med_board/explanation.aspx' target=_blank>What's in the Malpractice History?</a>");
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for settlements
//link to explanation

  document.write('</table>');
//end of subsection settlements

//judgments
// table for subsection judgments
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
// subsection label
  document.write('<tr><td bgcolor="#D1D0C7" width="150"><b>');
  document.write('<a name="Judgments">Judgments</a>');
  document.write('</b></td>');
  document.write('<td bgcolor="#D1D0C7" align="right">');
  document.write(toplink)
  document.write('</td></tr>');
// a row for judgments
  document.write('<tr>');
// field label
  document.write('<td valign="top">');
  document.write(' ');
//  document.write('Judgments:');
  document.write('</td>');
// field values
  document.write('<td valign="top">');
  if ((c[ic][colOf('judgments')][0][0]>' ')&&(c[ic][colOf('judgments')][0][0]!='None reported')) {
// insert language
//
document.write("<i><ul>When considering malpractice data, please keep in mind:</i>");
document.write("<li>Malpractice histories tend to vary by specialty. Physicians treating certain patients and performing certain procedures are more likely to be the subject of litigation than others. This report compares doctors like to the members of their specialty whenever possible, not to all doctors, in order to make an individual doctor's history more meaningful.");
document.write("<br></li>");
document.write("<li>This report reflects data for the last 10 years of a doctor's practice.  For doctors practicing less than 10 years, the data covers their total years of practice. Patients should take into account how long the doctor has been in practice when considering malpractice averages.");
document.write("<br></li>");
document.write("<li>The incident causing the malpractice claim may have happened years before a payment is finally made.  Sometimes, it takes a long time for a malpractice lawsuit to move through the legal system.");
document.write("<br></li>");
document.write("<li>Some doctors work with high-risk patients.  These doctors may have malpractice histories that are higher than average because they specialize in cases or patients who are at a very high risk for problems. Doctors who treat these high risk patients may include doctors with excellent skills and experience.  Patients should evaluate physicians' levels of skill, education and experience as well as their malpractice histories.");
document.write("<br></li>");
document.write("<li>Settlement of a claim may occur for reasons other than liability which do not necessarily reflect negatively on the professional conduct or competence of the physician.  A payment or settlement of a medical malpractice action or claim does not necessarily mean that medical malpractice has occurred.");
document.write("</ul><hr>");
//
//JUDGEMDY|JUDGEC|JUDGES|JUDGEN|JUDGEA|JUDGED
// count judgments
//    settlespec=subvalOf(ic,'certification',0,'CERTSP');
    numjudgments=0;
    for (irec=0;irec<c[ic][colOf('judgments')].length;++irec) {
      if (subvalOf(ic,'judgments',irec,'JUDGEA')>' ') {++numjudgments;}
    }
    if (numjudgments>0) {
      evalrec=subvalOf(ic,'judgments',0,'JUDGEA');
      evalamtspec=evalrec.split("-");
      evaluation=evalamtspec[0];
      settlespec=evalamtspec[1];
      document.write('<b>Number of judgments reported: '+numjudgments+'</b><br>');
      document.write('Judgment evaluation is based on the specialty '+settlespec+'.<br>');
    }
    for (irec=0;irec<c[ic][colOf('judgments')].length;++irec) {
      if (subvalOf(ic,'judgments',irec,'JUDGEA')>' ') {
        evalrec=subvalOf(ic,'judgments',irec,'JUDGEA');
        evalamtspec=evalrec.split("-");
        evaluation=evalamtspec[0];
        settlespec=evalamtspec[1];
        foundspec=0;
        if (evaluation!='NE') {foundspec=1;}
        if (foundspec>0) {
          eval='';
          if (evaluation=='lo') {eval="Below Average";}
          if (evaluation=='med') {eval="Average";}
          if (evaluation=='hi') {eval="Above Average";}
          document.write('    '+subvalOf(ic,'judgments',irec,'JUDGEMDY')+' - Judgment; Rated '+eval+'<br>');
        } else {
          document.write('    '+subvalOf(ic,'judgments',irec,'JUDGEMDY')+' - Judgment; There was not enough data in this specialty to provide a comparison.<br>');
        }
//      document.write('<br> <hr>');
      }
    }
    document.write("Click here for more information: <a href='http://healthvermont.gov/hc/med_board/explanation.aspx' target=_blank>What's in the Malpractice History?</a>");
  } else {document.write('none reported');}
  document.write('</td></tr>');
// end of a row for judgments
//link to explanation

  document.write('</table>');
//end of subsection judgments




 }
// end of function
}

function isNone(anic,afield) {
  TF=0;
// does not apply to print template
  if ((template.indexOf('print')>=0)||(template.indexOf('verification')>=0)) {return TF;}

  if ((c[anic][colOf(afield)][0][0]<=' ')||(c[anic][colOf(afield)][0][0]=='None reported')) {
    TF=1;
  }
  if ((TF==0)&&(afield=='settlements')) {
// check MDY for 10 year limit
    scount=0;
    for (irec=0;irec<c[anic][colOf('settlements')].length;++irec) {
      dmy=subvalOf(anic,'settlements',irec,'SETTLEMDY').split('/');
      syr=dmy[dmy.length-1];
      syr=syr.substring(syr.length-4,syr.length);
if (Number(syr)<50){syr=Number(syr)+2000;}else{if (Number(syr)<100){syr=Number(syr)+1900;}}
      SETTLEAcol=subcolOf([colOf('settlements')],'SETTLEA');
      if (Number(yr)-Number(syr)>10) {
        c[anic][colOf('settlements')][irec][SETTLEAcol]='';
      } else {++scount;}
    }
    if (scount==0) {TF=1;}
  }
  if ((TF==0)&&(afield=='judgments')) {
// check MDY for 10 year limit
    scount=0;
    for (irec=0;irec<c[anic][colOf('judgments')].length;++irec) {
      syr=subvalOf(anic,'judgments',irec,'JUDGEMDY');
      syr=syr.substring(syr.length-4,syr.length);
if (Number(syr)<50){syr=Number(syr)+2000;}else{if (Number(syr)<100){syr=Number(syr)+1900;}}
      JUDGEAcol=subcolOf([colOf('judgments')],'JUDGEA');
      if (Number(yr)-Number(syr)>10) {
        c[anic][colOf('settlements')][irec][JUDGEAcol]='';
      } else {++scount;}
    }
    if (scount==0) {TF=1;}
  }
  return TF;
//substring(0,4)
}

function reportNone() {
  document.write('<br><table width="100%" cellspacing="0" cellpadding="0">');
  document.write('<tr>');
  document.write('<td bgcolor="#ffffff" width="150">&nbsp;</td>');
  document.write('<td><b>None reported</td></tr></table>');
}

function makenav(asect,asub) {
	document.write('<ul>');

	for (anisect=1;anisect<sections.length;++anisect) {

		document.write('<li ');

		if (anisect==asect) {
			document.write('class="altrow"');
		}
		
		document.write('>');

		if (anisect==asect) {
			document.write('<a name="'+sectionnames[anisect]+'">');
		} else {
			document.write('<a href="#'+sectionnames[anisect]+'">');
		}

		document.write(sectionnames[anisect] + '</a></li>');
	}

	document.write('</ul>');
	
	/* old table-based
	document.write('<br>');
	document.write(''
		+'<table width="580" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" >'
		+'  <tr valign="middle" align="center">');

	for (anisect=1;anisect<sections.length;++anisect) {
		if (anisect==asect) {
			cellcolor="#0000cc";cellsymbol="&#9660;";symsize=4;
		} else {
			cellcolor="#000066";cellsymbol="&#9658;";symsize=2;
		}

		document.write(''
			+'    <td bgcolor="'+cellcolor+'">'
			+'      <table><tr><td valign=middle><b>'+cellsymbol+'</td><td><b>'
			+'');

		if (anisect==asect) {
			document.write('<a name="'+sectionnames[anisect]+'" class="subItems">');
		}

		if (anisect!=asect) {
			document.write('<a href="#'+sectionnames[anisect]+'" class="subItems">');
		}

		document.write(sectionnames[anisect]
			+'</a></b>'
			+'      </td></tr></table>'
			+'    </td>');
	}

	document.write(''
		+'  </tr>'
		+'</table>');
	*/

	document.write('<ul>');
	subs=sections[asect].split('^');
	for (anisub=1;anisub<subs.length;++anisub) {
		thissub=subs[anisub].substring(0,subs[anisub].indexOf('|'));

		document.write('<li><a href="#'+thissub+'" class="subItems">'+cutup(thissub)+'</a></li>');
	}
	document.write('</ul>');

	/* old table-based
	
	document.write(''
		+'<table width="580" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" >'
		+'  <tr valign="middle" align="center">');

	subs=sections[asect].split('^');
	for (anisub=1;anisub<subs.length;++anisub) {
		thissub=subs[anisub].substring(0,subs[anisub].indexOf('|'));

		//  if (anisub==asub) {cellcolor="#0000cc";} else {cellcolor="#000099";}
		cellcolor="#0000cc";

		document.write(''
			+'    <td bgcolor="'+cellcolor+'" align="center" valign="top" height="25"><b>'
			+'<a href="#'+thissub+'" class="subItems">'+cutup(thissub)+'</a></b>'
			+'    </td>');
	}

	document.write(''
		+'  </tr>'
		+'</table>');
	*/
}

function cutup(astring) {
/*
 iscut=0;
 for (icut=Math.floor(astring.length/4);icut<astring.length;++icut) {
   if ((iscut==0)&&(astring.charAt(icut)==' ')) {;iscut=1;}
 }
*/
//  return replaceString(' ','<br>',astring);
return astring;
}


function add2editqs(iff,aval){
  if (aval<'0'){aval='nullit';}
  editqs+='&'+hexify(b[0][iff])+'='+hexify(aval);
//alert(editqs);
  return;
}

function disassemblehead() {
  for (ic=1;ic<2;++ic) {
//    c[ic]=unhex(c[ic]);
    for (ii=0;ii<c[ic].length;++ii) {
      isedited[ii]=0;
  c[ic][ii]=replaceString("^^","^",c[ic][ii]);
  if (c[ic][ii].charAt(0)=='^') {
    c[ic][ii]=c[ic][ii].substring(1,c[ic][ii].length);
  }
  c[ic][ii]=replaceString("%27","'",c[ic][ii]);
  c[ic][ii]=replaceString("|//","|",c[ic][ii]);
  c[ic][ii]=replaceString("//","/",c[ic][ii]);
  c[ic][ii]=replaceString(" |","|",c[ic][ii]);
  c[ic][ii]=replaceString("| ","|",c[ic][ii]);
      c[ic][ii]=c[ic][ii].split('^');
      for (iii=0;iii<c[ic][ii].length;++iii) {
        c[ic][ii][iii]=c[ic][ii][iii].split('|');
      }
    }
  }
}



function disassembleall() {
  for (ic=1;ic<c.length;++ic) {
//    c[ic]=unhex(c[ic]);
    for (ii=0;ii<c[ic].length;++ii) {
      isedited[ii]=0;
/*
  c[ic][ii]=replaceString("%27","'",c[ic][ii]);
  c[ic][ii]=replaceString("|//","|",c[ic][ii]);
  c[ic][ii]=replaceString("//","/",c[ic][ii]);
  c[ic][ii]=replaceString(" |","|",c[ic][ii]);
  c[ic][ii]=replaceString("| ","|",c[ic][ii]);
*/
      c[ic][ii]=c[ic][ii].split('^');
      for (iii=0;iii<c[ic][ii].length;++iii) {
        c[ic][ii][iii]=c[ic][ii][iii].split('|');
      }
    }
  }
}

function disassemblefield(ic,ii) {
//  for (ic=1;ic<c.length;++ic) {
//    for (ii=0;ii<c[ic].length;++ii) {
//      isedited[ii]=0;
  c[ic][ii]=replaceString("%27","'",c[ic][ii]);
  c[ic][ii]=replaceString("|//","|",c[ic][ii]);
  c[ic][ii]=replaceString("//","/",c[ic][ii]);
  c[ic][ii]=replaceString(" |","|",c[ic][ii]);
  c[ic][ii]=replaceString("| ","|",c[ic][ii]);
      c[ic][ii]=c[ic][ii].split('^');
      for (iii=0;iii<c[ic][ii].length;++iii) {
        c[ic][ii][iii]=c[ic][ii][iii].split('|');
      }
//    }
//  }
}

function reassembleall() {
  for (ic=1;ic<c.length;++ic) {
    for (ii=0;ii<c[ic].length;++ii) {
//      iitxt=c[ic][ii][0];
      for (iii=0;iii<c[ic][ii].length;++iii) {
        iiitxt=c[ic][ii][iii][0];
        for (iv=1;iv<c[ic][ii][iii].length;++iv) {iiitxt+='|'+c[ic][ii][iii][iv]}
        c[ic][ii][iii]=iiitxt;
      }
      iitxt=c[ic][ii][0];
      for (iii=1;iii<c[ic][ii].length;++iii) {iitxt+='^'+c[ic][ii][iii];}
      c[ic][ii]=iitxt;
    }
  }
}

function iitxtOf(ic,ii) {
  iitxt='';
  for (iii=0;iii<c[ic][ii].length;++iii) {
    if ((c[ic][ii][iii][0]!='nullit')) {
      iiitxt=hexify(c[ic][ii][iii][0]);
      if ((c[ic][ii][iii].length==1)&&(c[ic][ii][iii][0]=='')) {iiitxt='nullit';}
      for (iv=1;iv<c[ic][ii][iii].length;++iv) {iiitxt+='|'+hexify(c[ic][ii][iii][iv]);}
      iitxt+=iiitxt;
      if ((iii+1<c[ic][ii].length)&&(c[ic][ii][iii+1][0]!='nullit')&&(c[ic][ii][0][0]!='None reported')&&(c[ic][ii][iii+1].length==c[1][ii][0].length)) {iitxt+='^';}
    }
  }
  return iitxt;
}

function modayearOf(astring) {
 year=c[ic][ij].substring(0,4);mo=c[ic][ij].substring(4,6);da=c[ic][ij].substring(6,8);
 return mo+'/'+da+'/'+year;
}


function makesectionnames() {
  sectionnames=new Array();
  sectionlinks='';
  for (isect=0;isect<sections.length;++isect){
    sectionnames[isect]=sections[isect].substring(0,sections[isect].indexOf('|'));
    sectionlinks+='<a href="#'+sectionnames[isect]+'">'+sectionnames[isect]+'</a> ';
  }
}

function show1(ic) {

  isflagged=checkflags(ic);
  if (isflagged>0) {reportflagged(ic,isflagged);}
  else {
    if (subvalOf(ic,'recstatus',0,'recstatus').indexOf('approved')!=0) {
      document.write('</td></tr></table><center><b><big>The profile data for '+c[2][colOf('FN')]+' '+c[2][colOf('LN')]+' is currently in preparation.</b></big></center><table><TR><TD>');
    } else {
      makesectionnames();
      showhead(ic);
      document.write('<table width="580"><tr><td align="center">This profile contains information which may be used as a starting point in evaluating the physician.  This profile should not, however, be the sole basis for selecting a physician.</td></tr>');
//  showBySection(ic);
      showgeneral(ic);
      showeducation(ic);
      showteaching(ic);
      showpublications(ic);
      showdisciplinary(ic);
      showmalpractice(ic);
      document.write('</table>');
    }
  }
}

function checkflags(anic) {
  isflag=0;
  for (iflag=1;iflag<flag.length;++iflag) {
//alert(flag[iflag]+' '+c[anic][colOf('LI')]);
    if (flag[iflag].indexOf(c[anic][colOf('LI')])==0) {isflag=iflag;}
  }
  return isflag;
}

function reportflagged(anic,aniflag) {
  flagparts=flag[aniflag].split("|");
  document.write('</td></tr></table><center><big><b>The profile data for '+c[anic][colOf('FN')]+' '+c[anic][colOf('LN')]+' is being edited.</b></big>');


//  document.write('<br>Last Name: '+c[anic][colOf('LN')]));
//  document.write('<br>First Name: '+c[anic][colOf('FN')]);
  document.write('<br>License Number: '+c[anic][colOf('LI')]);
  document.write('<br>Location: '+subvalOf(anic,'townst',0,'town')+', '+subvalOf(anic,'townst',0,'st'));
  document.write('<br><b><big>License Status: '+flagparts[3]+'</big></b>');
  document.write('<br>For more information, contact the VT Board of Medical Practice.');
  document.write('</center><table><TR><TD>');
}


function link2() {
  document.write('<center><table width="580">');
if (c.length>2) {
  document.write('<tr><td colspan=2 align=center><small>Results '+startat+' - '+lastseen+' of '+numfound+' found.   ');
  makebacknext('previous '+forcount,' | ','next '+forcount);
  document.write('</small><br></td></tr>');
}
  for (ic=2;ic<c.length;++ic){
    if (c[ic][colOf('LI')] != 'LI') {
     if (c[ic][colOf('recstatus')].indexOf('approved')==0) {
      document.write('<tr><td colspan=2><hr></td></tr>');
      document.write('<td align="left">Name: </td>');
      document.write('<td><a href="javascript:call4('+ic+');">'+unhex(c[ic][colOf('FN')])+' '+unhex(c[ic][colOf('MN')])+' '+unhex(c[ic][colOf('LN')])+'</a></td>');
      document.write('</tr>');

      document.write('<tr>');
      document.write('<td align="left">Address: </td>');
      document.write('<td>');
      townst=c[ic][colOf('townst')];
      ts=townst.split('|');
      town=ts[0];state=ts[1];
      document.write(town);
      if (town >' '){document.write(', ');}
      document.write(state+'</td>');
      document.write('</tr>');

//    if (oldfields.indexOf('certification')>=0) {
      document.write('<tr>');
      document.write('<td align="left" valign="top">Specialty: </td>');
      document.write('<td valign="top">');
      disassemblefield(ic,colOf('certification'));
      for (irec=0;irec<c[ic][colOf('certification')].length;++irec) {
        document.write(subvalOf(ic,'certification',irec,'CERTSP')+'<br>');
      }
      document.write('</td>');
      document.write('</tr>');
//    }
     } else {
      document.write('<tr><td colspan=2><hr></td></tr>');
      document.write('<td align="left">Name: </td>');
      document.write('<td>'+c[ic][colOf('FN')]+' '+c[ic][colOf('MN')]+' '+c[ic][colOf('LN')]+'</a></td>');
      document.write('</tr>');

      document.write('<tr><td colspan=2></td></tr>');
      document.write('<td align="left">Profile: </td>');
      document.write('<td>This profile data is currently in preparation.</td>');
      document.write('</tr>');
     }
    }
  }
  if (c.length>2) {
    document.write('<tr><td colspan=2 align=center><hr><small>Results '+startat+' - '+lastseen+' of '+numfound+' found.   ');
    makebacknext('previous '+forcount,' | ','next '+forcount);
    document.write('</small><br></td></tr>');
  }
  document.write('</table></center>');
}

function call4(ic) {
  fields='LI+inc+'+c[ic][colOf('LI')]; search='%26%26';recall();
}

function alertEmpty() {
  alert('Please enter a word, phrase, or partial word of at least 3 letters to search.');
}

function sectionOf(afield){
  asection="*";
  for (isect=0;isect<sectionnames.length;++isect){
    if (sections[isect].indexOf(afield+'|')>=0) {asection+=" "+sectionnames[isect];}
  }
  return asection;
}

function goedit(){
  showqs();
  if (neditqs>' ') {
    if (confirm('Changes are PERMANENT.')) {
      document.location=path2cgi+editqs+neditqs;
    }
  } else {alert('No changes recorded.');}
}

function newprofile(){
// new logic: search 0000's, change 'replace1' to 'copy' in editqs,
// append field newrecID from prompt to editqs, recall

/*
  LI=prompt("Enter new License number:","042-0000000");
  if ((LI ne '042-0000000')&&(LI>'')) {
    fields="LI inc "+LI;
    editqs=newqs()+'&command=copy&recID=042-0000000&newrecID='+LI;
    if (confirm(path2cgi+editqs+neditqs)) {
      document.location=path2cgi+editqs+neditqs;
    }
  } else {alert('No changes recorded.');}
*/
}

function blankrec(ic,ii,iii) {
  if (c[ic][ii][0][0].indexOf('None reported')==0) {c[ic][ii][0][0]='nullit';}
  if (iii+1>c[1][ii].length) {c[ic][ii][c[ic][ii].length]= new Array();}
  for (iv=0;iv<c[1][ii][0].length;++iv) {c[ic][ii][iii][iv]='';}
  isedited[ii]=1;goedit();
}
function deleterec(ic,ii,iii) {
  if ((iii==0)&&((c[ic][ii].length==1)||(c[ic][ii][1]==''))) {c[ic][ii][0][0]='None reported';}
  else {c[ic][ii][iii][0]='nullit';}
  for (iv=1;iv<c[1][ii][0].length;++iv) {c[ic][ii][iii][iv]='';}
  isedited[ii]=1;goedit();
}
function addrec(ic,ii) {
  c[ic][ii][c[ic][ii].length]= new Array();
  blankrec(ic,ii,c[ic][ii].length-1);
}
function offer2add(ic,ii,iii) {
  document.write('<a href="javascript:blankrec('+ic+','+ii+','+iii+');">Add record</a>');
}
function showqs(){
  neditqs='';
  for (iedit=0;iedit<isedited.length;++iedit) {
    if (isedited[iedit]==1) {
      neditqs+='&'+c[0][iedit]+'='+iitxtOf(2,iedit);
    }
  }
//  alert(neditqs);
}

function go2print() {template='http://healthvermont.gov/hc/med_board/bmpold/printALL.aspx';search='%26%26';recall();}

function edit1(ic) {
  for (ii=0;ii<c[0].length;++ii) {
    document.write('<tr><td valign=top width=30><b>'+c[0][ii]+'</td><td>');
    document.write('<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign=top width=120>');
    if (c[ic][ii][0][0].indexOf('None reported')==0) {offer2add(ic,ii,0);}
    for (iii=0;iii<c[ic][ii].length;++iii) {
      if ((c[ic][ii][iii][0].indexOf('None reported')<0)&&((iii==0)||(c[ic][ii][iii].length==c[1][ii][0].length))) {

        if (c[ic][ii][iii].length<c[1][ii][0].length) {isedited[ii]=1;}
        for (iv=c[ic][ii][iii].length;iv<c[1][ii][0].length;++iv) {c[ic][ii][iii][c[ic][ii][iii].length]='';}

        for (iv=0;iv<c[1][ii][0].length;++iv) {
          if (c[0][ii]!=c[1][ii][0][iv]) {
            document.write(c[1][ii][0][iv]+': </td><td>');
          }
          document.write("<input size=55 value='");
          document.write(c[ic][ii][iii][iv]);
          document.write("' onChange='isedited["+ii+"]=1;c["+ic+"]["+ii+"]["+iii+"]["+iv+"]=this.value;showqs();'></td>");
          if (1+iv<c[1][ii][0].length) {document.write('</tr><tr><td>');}
        }
        if ((c[ic][ii][0][0].indexOf('None reported')<0)&&(iii+1<=c[ic][ii].length)&&((c[0][ii]!=c[1][ii][0][0])||(c[0][ii]=='publications')||(c[0][ii]=='activities')||(c[0][ii]=='vbpm'))) {document.write('</tr><tr><td>&nbsp;</td><td><a href="javascript:deleterec('+ic+','+ii+','+iii+');">Delete Record</a></td></tr><tr><td valign=top width=120>');}
        else {if (1+iii<c[ic][ii].length) {
          document.write('</tr><tr><td>&nbsp;</td></tr><tr><td valign=top width=120>');
        }}
      }
      if ((c[ic][ii][0][0].indexOf('None reported')<0)&&(iii+1==c[ic][ii].length)&&((c[0][ii]!=c[1][ii][0][0])||(c[0][ii]=='publications')||(c[0][ii]=='activities')||(c[0][ii]=='vbpm'))) {document.write('</td></tr><tr><td>&nbsp;</td><td>');offer2add(ic,ii,iii+1);document.write('</td>');}
    }
    document.write('</tr></table></td></tr>');
  }
}

//document.write('<input type=button onClick="goedit();" value=SAVE>');
//document.write(' <input type=button onClick="newprofile();" value="CREATE NEW PROFILE">');