Find-a-Therapist -- Powered by Cognode

// (c) Copyright notice. // This code is the property of the author, as explained in the associated documentation. // This is shareware and its use if free only for evaluation purposes. Other uses require // a registration and US$ 12.00 charge. The same terms apply to the modified code, if the // user make any such changes at his/her end. var CALdays=new Array('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); var CALmonths=new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); var CALfmonths=new Array('January','February','March','April','May','June','July','August','September','October','November','December'); var CALmaster=new Array( new Array(1,8,22, 1,28,-1), new Array(1,8,29, 1,-1,-1), new Array(2,9,23, 2,29, 5), new Array(2,9,30, 2,-1, 5), new Array(0,2,23, 2,29,-1), new Array(30,2,23, 2,-1,-1), new Array(3,10,24, 3,30, 4), new Array(3,10,31, 3,-1, 4), new Array(0,3,24, 3,30,-1), new Array(31,3,24, 3,-1,-1), new Array(4,11,25, 4,-1, 3), new Array(0,4,25, 4,-1,-1), new Array(5,12,26, 5,-1, 2), new Array(0,5,26, 5,-1,-1), new Array(6,13,27, 6,-1, 1), new Array(0,6,27, 6,-1,-1), new Array(7,14,28, 7,-1, 0), new Array(0,7,28, 7,-1,-1) ); var CALbuff=''; function CALwriteln(txt) { CALbuff += txt + '\n'; } function CALwrite(txt) { CALbuff += txt; } function CALflush(doc) { doc.write(CALbuff); CALbuff = ''; } function CALgenMo(doc, start, end) { for (i=start; i' + (i+1) + ''); if (i'); if (CALmaster[i][0] != 0) CALwrite('' + CALmaster[i][0] + ''); CALwriteln('
'); for (j=CALmaster[i][1]; j<=CALmaster[i][2]; j+=7) CALwriteln('' + j + '
'); CALwriteln(''); } } catch(err) { CALwin.close(); } } function CALDOBbind(entry,event,format,yfrom,yto) { yfrom = 1900; CALentry=entry; CALformatstr=format; dt=CALparse(entry.value, format); if (dt==null){dt=CALparse('01/01/1963', format);} sx=0; sy=0; if (event) sx=event.screenX; if (sx==0) sx=300; else sx += 5; if (sx>550) sx=sx-225; if (event) sy=event.screenY; if (sy==0) sy=100; else sy += 5; if (sy>400) sy=sy-180; if (dt==null) CALgo('CALcallback',sx,sy,yfrom,yto); else CALgo('CALcallback',sx,sy,yfrom,yto,dt.getYear(),dt.getMonth()+1); } var CALwin=null; function CALgo (callback,posx,posy,sy,ey,yr,mo) { try { if(yr==0) { yr=1900; } width=30; base=20; now=new Date(); if (!sy) sy=now.getYear(); if (!ey) ey=now.getYear(); if (yr) thisYear=yr; else thisYear=(now.getYear()); if (thisYear<999) thisYear+=1900; if (mo) thisMonth=mo-1; else thisMonth=(now.getMonth()); if (thisMonth>11) thisMonth=11; if (CALwin!=null && !CALwin.closed) CALwin.close(); CALwin=window.open("../ABSOLUTELS/blank.htm", "Calendar", "menubar=no,toolbar=no,directories=no,width=240,height=160,left="+posx+",top="+posy); CALwin.focus(); doc=CALwin.document; doc.clear(); doc.open(); doc.writeln(''); doc.writeln(''); doc.writeln('Find-a-Therapist -- Powered by Cognode'); doc.writeln('<' + 'script language=JavaScript>'); doc.writeln('var width=' + width + '; var base=' + base + '; var curr=new Array("","","","","","","");' + mstr); doc.writeln('var mdays=new Array(31,28,31,30,31,30,31,31,30,31,30,31);'); if (navigator.appName == "Netscape") { if (!document.layers) { doc.writeln('function vis(l,v) {document.getElementById(l).style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.getElementById(l).style.left=x;}'); } else { doc.writeln('function vis(l,v) {document.layers[l].visibility=v;}'); doc.writeln('function xloc(l,x) {document.layers[l].left=x;}'); } } else { doc.writeln('function vis(l,v) {document.all[l].style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.all[l].style.left=x;}'); } doc.writeln('function getDays(y,m){ret=mdays[m];if(m==1&&y%4==0) return 29;return ret;}'); doc.writeln('function done(d){try{f=document.forms[0];y=f.year.options[f.year.selectedIndex].text;m=f.month.selectedIndex+1;window.opener.' + callback + '(y,m,d);window.close();}catch(err){window.close();}}'); doc.writeln('function yearChange(delta){f=document.forms[0];optl=f.year.options.length;seli=f.year.selectedIndex;newi=seli+delta;if (newi>0 && newi'); CALwriteln('

'); CALwrite('

'); CALwriteln('

'); CALwriteln(''); CALwriteln('
'); CALgenMo(doc,0,12); if (selm!=-1 && sely!=-1) { CALwrite(' '); CALwrite('(' + CALmonths[selm] + '-' + selyl.substring(2,4) + ')'); } CALwriteln('
'); CALwriteln('

' + CALdays[0] + '

'); for (i=1; i<7; i++) CALwriteln('

' + CALdays[i] + '

'); CALgen(doc); CALwriteln(''); CALflush(doc); doc.close(); } catch(err) { CALwin.close(); } } var CALentry=null; var CALformatstr=''; function CALparse(string, format) { //delims=new Array('/','-',' '); delims=new Array('/'); for (i=0;i 0) break; } if (i==delims.length) return null; ftoks=format.split(delims[i]); stoks=string.split(delims[i]); for (i=0; i1 && stoks[i].charAt(0)=='0') stoks[i]=stoks[i].substring(1,stoks[i].length); } y=-1; m=-1; d=1; for (i=0; i=1 || m<=12) m -= 1; else m=-1; } else if (ftoks[i].charAt(0).toLowerCase()=='y' && i31) d=-1; } } if (d==-1 || m==-1 || y==-1) return null; return (new Date(y,m,d)); } function CALformat(y,m,d,format) { ret=''; if (m<1 || m>12) return ret; delims=new Array('/','-',' '); for (i=0;i 0) break; } if (i==delims.length) { ftoks=new Array(format); delim=' '; } else { delim=delims[i]; ftoks=format.split(delim); } for (i=0;i550) sx=sx-225; if (event) sy=event.screenY; if (sy==0) sy=100; else sy += 5; if (sy>400) sy=sy-180; if (dt==null) CALgo('CALcallback',sx,sy,yfrom,yto); else CALgo('CALcallback',sx,sy,yfrom,yto,dt.getYear(),dt.getMonth()+1); } function CALcallback (y,m,d) { try { if(CALwin==null) { } else { if (CALentry) CALentry.value=CALformat(y,m,d,CALformatstr); CALentry.focus(); } } catch(err) { CALwin.close(); } } function fnDtDisableCtrl() { if ((event.keyCode !=9) && (event.keyCode !=46)) //&& (event.keyCode !=8)) { event.keyCode= 0; return false; } } // To validate Date function ISValidDate(DOB){ sysDate= new Date(); txtDate=new Date(DOB); if(txtDate