var cntrymst_text = '';
var sv_country = '';
var province_count;
// Ideally parentUrl should be an array for multilevel drilldown. Currently only have one example
// though from wm0400 to wm0200. Will wait until have a multilevel drilldown before changing it to
// an array so it can be tested then that way
var parentFrameSize;

var NN4 = (navigator.appName.indexOf("Netscape")>=0 && !document.getElementById)? true : false;
var NN6 = (document.getElementById && navigator.appName.indexOf("Netscape")>=0 )? true: false;
var TOP;
var LEFT;
var ControlToSet;
var FormatAs;
var CalendarUrl;
var strDays;
var arrDays;
var strMonths;
var arrMonths;

function LogPosition(evt){

    if(NN4)document.captureEvents(Event.MOUSEMOVE);
    if (NN4||NN6){
    LEFT=evt.screenX;
    TOP=evt.screenY-10;
    }
    else{
    LEFT=event.screenX;
    TOP=event.screenY-10;
    }

}
function ShowCalendar(CONTROL, extraVal){
LogPosition();
ControlToSet = eval('document.'+CONTROL);
saveExtraVal=extraVal;
var strFeatures = "width=180,height=140" + ",left=" + LEFT + ",top=" + TOP;
var CalWindow = window.open(top.CalendarUrl,"Calendar", strFeatures)
CalWindow.focus();
return false;
} //End Function

function SetDate(DATE){
if(ControlToSet){
ControlToSet.value = DATE; 
if (saveExtraVal!=null)
  eval(saveExtraVal);
}
ControlToSet = null;
}
function escapePlus(tStr) {
  var escaped = escape(tStr);
  var rslt = '';
  for (var x=0; x<escaped.length; x++) {
    if (escaped.charAt(x) == '+' ) {
      rslt += '%2B'; }
    else {
      rslt += escaped.charAt(x); }
  }
  return rslt;
}
function prvmst_data (province_no, province_name) {
this.province_no = province_no;
this.province_name = province_name;
}
var prvmst_array = new Array();
var prvmst_cntry_array = new Array();
var clob_array = new Array();
function SetCookie (name, value) {
        var argv = SetCookie.arguments;
        var argc = SetCookie.arguments.length;
// set expiry date to 6 months from now.
        var largeExpDate = new Date ();
        largeExpDate.setTime(largeExpDate.getTime() + (183 * 24 * 3600 * 1000)); 
        var expires = largeExpDate.toGMTString();
        var secure = (argc > 2) ? argv[2] : false;
        document.cookie = name + "=" + escape (value) + "; expires=" + expires +
                ((secure == true) ? "; secure" : "");
}
function getCookieVal (offset) {
   var endstr = document.cookie.indexOf (";", offset);
   if (endstr == -1)
      endstr = document.cookie.length;
   return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
        var arg = name + "=";
        var alen = arg.length;
        var clen = document.cookie.length;
        var i = 0;
        while (i < clen) {
                var j = i + alen;
                if (document.cookie.substring(i, j) == arg)
                        return getCookieVal (j);
                i = document.cookie.indexOf(" ", i) + 1;
                        if (i == 0)
                                break;
                }
   return null;
}
function DelCookie(name) {
    if (GetCookie(name)) document.cookie = name + "=" +
       ";expires=Thu, 01-Jan-70 00:00:01 GMT";
}
function newwin(prod,imagename,imagetype,x,y,menubar,toolbar,windowname) {
if (menubar == null) menubar="no";
if (toolbar == null) toolbar="no";
if (x == null) x="500";
if (y == null) y="400";
if (imagetype==null) imagetype="html";
if (windowname == null) windowname="newWin";
var newWin = window.open("",windowname,"height="+y+", width="+x+", scrollbars=yes, menubar="+ menubar+", toolbar="+ toolbar+", resizable=yes");
newWin.document.open();
newWin.document.write("<title>"+ prod + " Image</title>");
if (imagetype == "image") {
newWin.document.write("<body marginwidth=0 marginheight=0 leftmargin=0 topmargin=0>");
newWin.document.write("<img src='"+ imagename +"'>");
newWin.document.write("</body>");
}
else 
newWin.location.replace(imagename);
newWin.document.close();
return false;
}
function mandatory_field(fld, msg){
if (eval('document.' + fld + '.value')=="")
  {alert(msg);
   eval('document.' + fld + '.focus()');
   return false};
else
  {return true};
}
function isNumeric(fld, msg) {
  var validchars = "0123456789., ";
  var result = true;
for (x=0; x < fld.length; x++) {
  var thechar = fld.charAt(x);
  if (validchars.indexOf(thechar) == -1) {
    result = false;
    alert(msg);
    break;
    }
 }
return result;
}
function ask_delete(form, ws_msg) {
ws_msg1 = "";
if (ws_msg1 !== "")
 {if (confirm(ws_msg1))
  {eval('document.' + form + '.submit()'); 
   return false}
  else
  {return false}
 }
else
  {eval('document.' + form + '.submit()');
   return false}
}
function append_cntry_prov (country, province, province_name) {
if (country !== parent.sv_country) {
  parent.cntrymst_text += '<option value=' + country + '>' + country + '</option>';
  parent.sv_country = country;
  parent.prvmst_array = new Array();
  parent.prvmst_cntry_array[country] = parent.prvmst_array;
  parent.province_count = 0;
  }
if (province != '') {
  parent.prvmst_array[parent.province_count] = new prvmst_data(province, province_name);
  parent.prvmst_cntry_array[country] = parent.prvmst_array;
  parent.province_count++;
  }
}
function display_prvmst(country, province_no, select_text) {
y = document.i.p_province.length; 
for (x=0; x<y; x++) {
document.i.p_province.options[0] = null;
}
y = 1;
if (parent.prvmst_cntry_array[country].length == 0) {
  prvmst_field.style.display="none";
  }
else {
  prvmst_field.style.display="";
  document.i.p_province.options[0] = new Option (select_text, "");
  for (x=0; x < parent.prvmst_cntry_array[country].length; x++) {
     var prv = parent.prvmst_cntry_array[country][x];
     document.i.p_province.options[y] = new Option (prv.province_name, prv.province_no);
     y++;
    }
  }
  document.i.p_province.value = province_no;
}
function load_form(form_number) {
if (parent !== self) {
top.hist_page [top.hist_page.length] = history.length;
}
eval('loadForm' + form_number + '.submit()'); 
return false;
}
function show_back_button (back_text) {
if (parent !== self&&top.hist_page.length>0) {
document.write('<form>');
document.write('<input type=submit class=button onclick="history.go(-3); return false;" value=' + back_text + '>');
document.write('</form>');
}
}
function isNumber (x) {
  var validChars="1234567890";
  for (var i=0; i< x.length; i++ ) {
    var c=x.charAt(i);
    if ( validChars.indexOf( c ) ==-1 ) { 
    return false;
    }
  }
  return true;
}

function isMonth(validDate,j) {
  var month=(validDate.substring(j+1,j+4)).toLowerCase();
  var month1=validDate.substring(j+1,j+3);
  var y=validDate.substring(0,j);
  var year=validDate.substring(j+5);
 
  if ( month == "jan" || month == "mar" || month == "may" || month == "jul" ||
       month == "aug" || month == "oct" || month == "dec" ) 
    {
       if (y<= 31 && y>0) {
       return true;
       }
       else
       {
         return false;
       }
    }
       
    else if   ( month == "apr" || month == "jun" || month == "sep" || month == "nov" ) 
    {
      if (y<= 30 && y>0) {
       return true;
       }
       else
       {
         return false;
       }
    }
    else if ( month == "feb")
    { 
      if (y<= 29 && y>0 && year%4 == 0) 
       {
       return true;
       }
       else if (y<= 28 && y>0 && year%4 != 0) 
       {
       return true;
       }
       else
       {
         return false;
       }
    }
    else
    {
      return false;
    }
}

function oldisDate(validDate, msg) {

  var result = true;
  for (var k=0; k< validDate.length; k++ )
    {
      var ch=validDate.charAt(k);
      if (ch == "-" || ch=="/" || ch==" " ) {
        if ( isNumber(validDate.substring(0,k))==false )
        {
          result = false;
        }
        if ( isMonth(  validDate,k  )==false ) 
        {
          result = false;
        }
        if (validDate.substring(k+4,k+5)!="-" && validDate.substring(k+4,k+5)!="/" &&
            validDate.substring(k+4,k+5)!=" ") 
        {
          result = false;
        }
        if ((isNumber(validDate.substring(k+5))==false) ||((validDate.substring(k+5))>9999)) 
        {
          result = false;
        }
        break;
      }
    }
      if (!result) {
        alert(msg); }
      return result;
}          
function isDate(DateToCheck, msg){
return true;
}
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
