var browser=navigator.userAgent.toLowerCase();var browserIE = (browser.indexOf('msie')>-1);var browserFF = !browserIE;var Core=null;var T24SID='';function $A(o) {if (!o) return [];if (o.toArray) return o.toArray();for (var r=[], i=0, l=o.length; i<l; i++)
r.push(o[i]);return r;};Function.prototype.bind = function() {var me=this, args=$A(arguments), o=args.shift();return function() {return me.apply(o, args.concat($A(arguments)));};};function isArray(obj){return((obj)&&(typeof(obj)=='object')&&(typeof(obj.length)!="undefined")&&(typeof(obj)!='string'));}
function clone(t) {if(typeof(t)=='object'){if(isArray(t)){var o=new Array();for(var p=0;p<t.length;p++)o.push(clone(t[p]));} else {var o=new Object();for(var p in t)o[p]=clone(t[p]);}
return(o);}
return(t);};function $TXT(txt) {var r;if (txt=='') {r=$DIV();r.innerHTML='&nbsp;';} else r=document.createTextNode(txt);return(r);}
function $HTML(html,styles) {var r=$DIV(styles);r.innerHTML=(html=='')?'&nbsp;':html;return(r);}
function $IMG(url,styles) {var r=document.createElement('img');r.src=url;setStyle(r,styles);return(r);}
function $DIV(styles) {var div=document.createElement('div');setStyle(div,styles);return(div);}
function setStyle(r,styles) {if (typeof(styles)=='object')
for (var s in styles) {if('id|title|onload|onmousedown|onclick'.indexOf(s)>-1) r[s]=styles[s];else
switch(s) {case 'css':r.className=styles[s]; break;case 'link':r.onclick=styles[s]; break;case 'html':r.innerHTML=styles[s]; break;default: r.style[s]=styles[s];}
}
return(r);}
function login() {function loginAnswer() {this.Response=function(resp) {if ((resp.result!=null)&&(resp.sid!=null)&&(resp.result==0)) {T24SID = resp.sid;loadPage('$');}
else { Core.alert('Refused to log in'); }
};}
var f=document.forms[0];Core.lock('Authentifikation');Core.Request('/tom24x/login','cust=' + f.elements['CUST'].value + '&usr=' + f.elements['USR'].value + '&pwd=' + f.elements['PWD'].value,new loginAnswer());}
function finish() {function closeAnswer() {this.Response=function(resp) {if ((resp.result!=null)&&(resp.result==1))loadPage('$');else { Core.alert('Refused'); }
};}
function logoffAnswer(httpReq) {this.Response=function(resp) {if ((resp.result!=null)&&(resp.result==0))loadPage('');else { Core.alert('Refused'); }
};}
Core.lock('Lade Seite');if (Core.recguid!='') Core.Request('/tom24x/open','sid='+T24SID,new closeAnswer());else Core.Request('/tom24x/login','sid='+T24SID,new logoffAnswer());return false;}
function loadPage(page,proc) {function createI(n,v) {var c=document.createElement('input');c.type="hidden";c.name=n;c.value=v;return c;}
Core.lock('Lade Seite');var aform=document.createElement('form');aform.action="/tom24x/";aform.method="post";document.getElementById('CentralPanel').appendChild(aform);aform.appendChild(createI('p',page));aform.appendChild(createI('proc',proc));aform.appendChild(createI('sid',T24SID));aform.submit();return false;}
function analyse (opts) {function analyse_finish() {this.Response=function(resp) {};}
var msg="Wollen Sie die Messung analysieren?<BR><UL>";opts=new String(opts);if (opts.indexOf('HardBeatAnalysis')!=-1) msg=msg+'<LI>Schlaganalyse (Änderungen verwerfen)</LI>';if (opts.indexOf('DoBeatAnalysis')!=-1) msg=msg+'<LI>Schlaganalyse</LI>';if (opts.indexOf('Beat')!=-1) msg=msg+'<LI>Arrhythmieanalyse</LI>';msg=msg+'</UL>';Core.confirm(msg,Core.Request.bind(Core,"/tom24x/analyse","a="+opts+"&sid="+T24SID,new analyse_finish()));}
function activateAnalysis (opts,txt) {function activate_finish(httpRequest) {this.Response=function(resp) {loadPage('#');};}
var msg="Wollen sie das Ausgewählt Werkzeug freischalten?<BR><UL><LI>"+txt+"</LI></UL>";Core.confirm(msg,Core.Request.bind(Core,"/tom24x/db","action=activate&t="+opts+"&sid="+T24SID,new activate_finish()));}
function TWorkflow(id) {var me=this;var ani=new TAnimation();var _div=document.getElementById(id);var selp=null;var pClosed=true;var pCnt=0;var mv=0;var bc=[];var mr=$DIV({css:'returnL'}),ml=$DIV({css:'endL'});var procs=$DIV({css:'procs'});var pclip=$DIV({css:'clipP'});var pbut=$DIV({css:'butP'});pclip.appendChild(pbut);procs.appendChild(pclip);procs.appendChild(ml);_div.appendChild(procs);_div.appendChild(mr);var ret=$DIV({css:'return'});var retBut=$DIV({css:'toolRET'});ret.appendChild(retBut);_div.appendChild(ret);function _mv(){var o=bc[selp];if((mv==0)||(o.r2<=o.r1))return;o.r0=o.r0+mv;if (o.r0>0) {o.r0=0;mv=0;}
if (o.r0+o.r2<o.r1) {o.r0=o.r1-o.r2;mv=0;}
o.div.style.left=o.r0+16;if (mv!=0)window.setTimeout(_mv,50);}
var clip=$DIV({css:'clipWF'});ml.onmouseover=function(){mv=10;window.setTimeout(_mv,50);}
ml.onmouseout=function(){mv=0;}
mr.onmouseover=function(){mv=-10;window.setTimeout(_mv,50);}
mr.onmouseout=function(){mv=0;}
_div.appendChild(clip);this.registerProcedure=function(i,text,title,image) {bc[i]={div:$DIV({css:'buttonsWF',visibility:'hidden'}),
r1:640,
r2:0,
r0:0,
r3:0,
but:$DIV({css:'procWF'})
};bc[i].cnt=pCnt;pCnt++;bc[i].but.title=title;bc[i].but.appendChild($IMG(image));bc[i].but.appendChild(document.createElement('br'));bc[i].but.appendChild(document.createTextNode(text));bc[i].but.onclick=me.selProc.bind(me,i);if(browserIE){bc[i].but.onmouseover=function(){this.style.filter='alpha(opacity:100)';}
bc[i].but.onmouseout=function(){this.style.filter='alpha(opacity:75)';}
} else {bc[i].but.onmouseover=function(){this.style.opacity=1;}
bc[i].but.onmouseout=function(){this.style.opacity=.75;}
}
pbut.appendChild(bc[i].but);clip.appendChild(bc[i].div);};this.selProc=function(i) {if(pClosed){ani.set([
[pclip,'width',722],
[clip,'opacity',0],
[pbut,'left',16]
]);} else {if(selp)bc[selp].div.style.visibility='hidden';selp=i;bc[selp].div.style.visibility='visible';bc[selp].div.style.left=bc[selp].r0+16;ani.set([
[pclip,'width',64],
[clip,'opacity',1],
[pbut,'left',-64*bc[selp].cnt]
]);}
ani.animate(30,20,null);pClosed=!pClosed;};this.registerPage=function(text,title,image,action,proc,sel) {if(proc==-1){retBut.title=title;retBut.onclick=action;if(browserIE){retBut.onmouseover=function(){this.style.filter='alpha(opacity:100)';}
retBut.onmouseout=function(){this.style.filter='alpha(opacity:50)';}
} else {retBut.onmouseover=function(){this.style.opacity=1;}
retBut.onmouseout=function(){this.style.opacity=.5;}
}
retBut.appendChild($IMG(image));retBut.appendChild(document.createElement('br'));retBut.appendChild(document.createTextNode(text));return;}
var a=$DIV({css:(sel?'toolWFs':'toolWF')});if(!sel){if(browserIE){a.onmouseover=function(){this.style.filter='alpha(opacity:100)';}
a.onmouseout=function(){this.style.filter='alpha(opacity:50)';}
} else {a.onmouseover=function(){this.style.opacity=1;}
a.onmouseout=function(){this.style.opacity=.5;}
}
}
a.title=title;a.onclick=action;a.appendChild($IMG(image));a.appendChild(document.createElement('br'));a.appendChild(document.createTextNode(text));bc[proc].r2+=75;if(sel){selp=proc;bc[proc].div.style.visibility='visible';bc[proc].r2+=7;bc[proc].r3=bc[proc].r2;pbut.style.left=-64*bc[proc].cnt;}
bc[proc].div.style.width=bc[proc].r2;bc[proc].div.appendChild(a);if(bc[proc].r2>bc[proc].r1){if (bc[proc].r3>0) {bc[proc].r0=(bc[proc].r1/2)+41-bc[proc].r3;if (bc[proc].r0>0)bc[proc].r0=0;if (bc[proc].r0+bc[proc].r2<bc[proc].r1)bc[proc].r0=bc[proc].r1-bc[proc].r2;bc[proc].div.style.left=bc[proc].r0+16;}
}
};}
function TState(sid) {var me=this;var _color = new Array('#9BFAD1','#FFAA00','#E0E0E0','#FAD19B','#E0E0E0');var _msg = new Array('BEREIT','VERARBEITE','GESPERRT','LADE','WARTE');var _state=-1;var _wait=0;var _wait2=true;var _pgReload=false;var sbox;var _msgbox;var _pb;var _pbimg;var	_but;var _b=Array(8);var waitImg=Array();this.loadImg=function(imgurl){var i=$IMG(imgurl);waitImg.push(i);_wait=waitImg.length;_set(3);if (waitImg.length==1) window.setTimeout(checkload,500);return 'url('+imgurl+')';}
function checkload(){while (waitImg[0].complete) {waitImg.shift();_wait=waitImg.length;if (_wait==0) return;}
window.setTimeout(checkload,500);}
function _set(new_status) {var i;if (_wait>0) {if(_wait2) {_wait2=false;var c=_color[3];sbox.setColor(sbox,c);_msgbox.innerHTML = _msg[3];}
_pb.style.display = (_state==1)?'block':'none';if (new_status==3) _state=new_status;return;} else _wait2=true;if (new_status!=_state) {_state=new_status;var c=_color[_state];sbox.setColor(sbox,c);_msgbox.innerHTML = _msg[_state];_pb.style.display = (_state==1)?'block':'none';}
}
this.Response=function(ans) {if (ans.uid==null) {loadPage('#');return;}
if (ans.state!=null) {_set (ans.state);if (ans.state==1) {var percent = ans.progress;_pbimg.style.width = Math.floor(1.8*percent)+"px";}
if ((ans.state!=1) && ans.dirty) {_but.onclick = function(){ return analyse(ans.dirtyChans);};_but.style.display = 'block';} else {_but.onclick = function(){ return analyse(ans.dirtyChans);};_but.style.display = 'none';}
if (ans.reload) {loadPage('#');_pgReload=true;}
} else {if (ans.uid>-1)_set(0);}
window.setTimeout(_request,(ans.state==1)?1000:2000);}
function _request() {Core.Request ('/tom24x/status','sid='+T24SID+(_pgReload?'&reload=1':'')+(Core?('&pos='+Core.time):''),me,0);_pgReload=false;}
sbox=Core.DIV('','',3,{background:'#E0E0E0',position:20});_msgbox=document.createElement('B');_msgbox.innerHTML='&nbsp;';sbox.main.appendChild(_msgbox);_pb=document.createElement('DIV');_pb.className='progressbar';_pb.style.display='none';sbox.main.appendChild(_pb);_pbimg=document.createElement('IMG');_pbimg.src='img/common/pb.png';_pbimg.style.width='0px';_pbimg.style.height='10px';_pb.appendChild(_pbimg);_but=document.createElement('A');_but.className='RButton';_but.onclick='return analyse("ARR")';_but.title='Re-analyse der Messung';_but.style.display='none';sbox.main.appendChild(_but);if (sid) {_set (4);window.setTimeout(_request,1000);}
}
function THelp() {var me=this;var _help=Core.DIV('','HILFE',3,{background:'#e8e8e8',position:30});var txt='';_help.parent.style.display='none';_help.main.style.height=200;var hclip = $DIV({css:'hclip'});_help.main.appendChild(hclip);var hmain = $DIV({css:'hmain'});hclip.appendChild(hmain);var scr = new TScroll(hclip,hmain);_help.main.appendChild(scr.Component);var hlp_l=$DIV({css:'txt'});hmain.appendChild(hlp_l);this.toggle=function() {if (_help.parent.style.display=='block') _help.parent.style.display='none';else {_help.parent.style.display='block';scr.refresh();}
};this.setText=function(shrt,desc,hlp) {hlp_l.innerHTML='<CENTER><BIG><B>'+shrt.toUpperCase()+'</BIG><BR>'+((desc!='')?desc+'</B><BR>':'')+hlp+'</CENTER><BR>';};this.addKey=function(k,t) {var d=$DIV({css:'keys'});hmain.appendChild(d);var i=0;if (k.indexOf('c')>-1) {d.appendChild($IMG('img/common/k_ctrl.png',{css:'keyimg'}));i++;}
if (k.indexOf('s')>-1) {d.appendChild($IMG('img/common/k_shift.png',{css:'keyimg'}));i++;}
if (k.indexOf('a')>-1) {d.appendChild($IMG('img/common/k_alt.png',{css:'keyimg'}));i++;}
k=k.substr(0,k.length-i);switch(k) {case '-' : d.appendChild($IMG('img/common/k_horiz.png',{css:'keyimg'})); break;case '|' : d.appendChild($IMG('img/common/k_vert.png',{css:'keyimg'})); break;case '+' : d.appendChild($IMG('img/common/k_cursor.png',{css:'keyimg'})); break;case '%' : d.appendChild($IMG('img/common/k_pgupdn.png',{css:'keyimg'})); break;case '~' : d.appendChild($IMG('img/common/k_p1end.png',{css:'keyimg'})); break;default : d.appendChild($IMG('img/common/k'+k+'.png',{css:'keyimg'}));}
var d=$DIV({css:'keytxt'});hmain.appendChild(d);d.innerHTML=t;};}
function TToolBox() {var me=this;var box=Core.DIV('','TOOL BOX',3,{background:'#CDC5B0',position:40});var rForm=null;var rTbl={};function rRequest(t) {if(rForm==null)return;for (var tbl in rTbl) {if((t<rTbl[tbl].start)||(t>rTbl[tbl].end)) {Core.Request('/tom24x/result','sid='+T24SID+'&n=*&t='+Core.time+'&diary='+tbl,me,1,tbl);rTbl[tbl].start=t;rTbl[tbl].end=t;}
}
}
function setSpecPerc(k,r,v1,v2) {var o=rForm.$(k+'.'+v1+'%');if(o&&r[v1]&&r[v2]){o.setUnit('%');o.setValue(100*parseFloat(r[v1].val)/parseFloat(r[v2].val));}
}
this.Response=function(resp,c,k) {var o;switch(c) {case 1:
if(rForm){rTbl[k]=resp[0];for(var n in resp[0]) {o=rForm.$(k+'.'+n);if(o){if(resp[0][n].unit)o.setUnit(resp[0][n].unit);o.setValue(resp[0][n].val);}
}
setSpecPerc(k,resp[0],'ULF','TOTPWR');setSpecPerc(k,resp[0],'VLF','TOTPWR');setSpecPerc(k,resp[0],'LF','TOTPWR');setSpecPerc(k,resp[0],'HF','TOTPWR');}
break;}
};var _time=null;function _setTime(t) {if(_time)_time.setValue(t);rRequest(t);}
var _hs=null;function _setRes(r) {if(_hs)_hs.setValue(r);}
function _changeTrendMag() {Core.setRes('*',_hs.getValue());}
var _hr=null;function _respHR(r) {if(_hr)_hr.setValue(r.hr.hr);}
this.click=function(cmd) {for(var i=0;i<cmd.length;i++) {var m=cmd[i].split('.');if(m.length==2)m.push('0');Core.Module[m[0]].cmd(parseInt(m[1],10),parseInt(m[2],10));}
};this.init=function(tools) {var b,bs;var hmain=box.main;for(var i=0;i<tools.length;i++){if(isArray(tools[i])) {bs=new TToolbar({visible:true});hmain.appendChild(bs.Component);b=bs.addGroup({decoration:false});bs.addSpacer(b,{});for(var j=0;j<tools[i].length;j++){switch(tools[i][j].feature){case 'TIME':
_time=bs.addDateTime(b,{value:0});me.setTime=_setTime;break;case 'HR':
_hr=bs.addValue(b,{title:'HR',unit:'BpM',precision:1});me.ResponseHR=_respHR;break;case 'HSCALE':
_hs=bs.addSlider(b,{title:'Trend Auflösung',values:[480,240,120,60,30,15,5],titles:['4 Tage','2 Tage','1 Tag','12 Stunden','6 Stunden','3 Stunden','1 Stunde'],init:2,onchange:_changeTrendMag});me.setRes=_setRes;break;case 'RESULT':
if(rForm==null)rForm=new TForm();bs.addValue(b,{title:tools[i][j].name,style:tools[i][j].style,unit:'',precision:(tools[i][j].precision?tools[i][j].precision:0),name:tools[i][j].table+'.'+tools[i][j].item,form:rForm});rTbl[tools[i][j].table]={start:-1,end:-1};break;case 'SPACE':
bs.addSpacer(b,{width:tools[i][j].width});break;default:
if(!isArray(tools[i][j].cmd))tools[i][j].cmd=[tools[i][j].cmd];if(typeof tools[i][j].title=='undefined')tools[i][j].title=0;if(typeof tools[i][j].title=='number') {var m=tools[i][j].cmd[tools[i][j].title].split('.');tools[i][j].title=Core.Module[m[0]].help[parseInt(m[1],10)];}
bs.addButton(b,{title:tools[i][j].title,img:tools[i][j].img,link:me.click.bind(me,tools[i][j].cmd)});}
}
} else {b=$DIV({css:'SectionTitle'});b.appendChild($DIV({html:tools[i].title}));hmain.appendChild(b);hmain.appendChild($DIV({clear:'both'}));}
}
};this.setVisible=function(s){box.parent.style.display=s?'block':'none';};}
function TCore(session,usr,ur,cPg,cPr,messid,reclen,recstart,time,region,res,ds,rec) {var me=this;var _modules=Array();var _massoc=Object();var _keyActive=-1;var _keyEnabled=true;var _keyMap=new Array();var _tmpMap=new Array();var hlp=null;var tbx=null;var wf=null;var init={};var urc=ur;this.datasup=ds;var recsup=new String(rec);if(usr){var i=usr.split('.');this.cid=i[0];this.uid=i[1];}
this.recguid=messid;this.reclen=reclen;this.recstart=recstart;this.time=time;this.region=region;this.resolution=res;this.day=-1;this.Module=new Array();var lsp=new Array();var _imgFlippedDown = 'img/common/h1fup.png';var _imgFlippedUp = 'img/common/h1fdown.png';this.State=null;T24SID=session;var main=document.getElementById('CentralPanel');var HttpReq;if (window.XMLHttpRequest) {HttpReq=function() { return new window.XMLHttpRequest(); };} else {if (window.ActiveXObject) {var hr;try {hr = new ActiveXObject("Msxml2.XMLHTTP");HttpReq=function() { return new ActiveXObject("Msxml2.XMLHTTP"); };} catch (e) {HttpReq=function() { return new ActiveXObject("Microsoft.XMLHTTP"); };}
delete hr;}
}
this.Response=function(r,c,p1) {for (var i=0; i<_modules.length; i++)
if(_modules[i].isActive && _modules[i][c]) _modules[i][c](r,c,p1);if(tbx && tbx[c])tbx[c](r);}
this.Request=function(addr,post,cobj,p1,p2) {var hr=HttpReq();if (!hr) { Core.alert('Giving up : Cannot create an XMLHTTP instance'); return false; }
hr.onreadystatechange = function() {if (hr&&(hr.readyState == 4)&&(hr.status==200)) {if(hr.getResponseHeader('Content-Type').indexOf('application/json')!=-1)hr=eval('('+hr.responseText+')');cobj.Response(hr,p1,p2);}
};hr.open('POST', addr, true);hr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');hr.send(post);return true;}
this.setWorkflow=function(pages,procs) {wf=new TWorkflow('Workflow');if(messid=='')
wf.registerPage('Ende','Verbindung beenden','img/common/exit32.png',Function('return finish()'),-1,false);else
wf.registerPage('Schließen','Messung schließen und zur Administration zurückkehren','img/common/back_f2.png',Function('return finish()'),-1,false);for(var i in procs){wf.registerProcedure(i,procs[i][0],procs[i][1],procs[i][2]);var s=procs[i][3];for(var j=0; j<s.length; j++){var p=pages[s[j]];if(p)wf.registerPage(p[0],p[1],p[2],Function('loadPage("#'+s[j]+'","'+i+'")'),i,((s[j]==cPg)&&(i==cPr)));}
}
};var lockmsg=$DIV({css:'txtLock'});var lockimg=$IMG('img/common/wait.gif');var lockok=$DIV({css:'butOK',title:'Bestätigen'});var lockno=$DIV({css:'butNO',title:'Abbrechen'});var locker=document.getElementById('Locker');function showLock(){var i=browserIE?document.body.offsetWidth:window.innerWidth;var d=main.offsetLeft+main.offsetWidth+26;locker.style.width=(i<d)?d:i;i=browserIE?document.body.offsetHeight:window.innerHeight;d=main.offsetTop+main.offsetHeight;locker.style.height=(i<d)?d:i;locker.style.display='block';}
this.lock=function(msg) {lockok.style.visibility='hidden';lockno.style.visibility='hidden';lockimg.src='img/common/wait.gif';if (msg) {lockmsg.className='txtLock';lockmsg.innerHTML=msg;lockmsg.style.display='block';} else lockmsg.style.display='none';with(document.getElementById('Message')) {style.display='block';style.left=main.offsetLeft+(main.offsetWidth-offsetWidth)/2;style.top=main.offsetTop+150+(browserIE?document.body.scrollTop:window.pageYOffset);}
showLock();};this.unlock=function(func) {me.uncaptureKey('13');me.uncaptureKey('27');document.getElementById('Message').style.display='none';locker.style.display='none';lockok.style.visibility='hidden';lockno.style.visibility='hidden';if(func)return func();return(true);};this.alert=function(msg) {lockimg.src='img/common/about24.png';lockmsg.className='txtMsg';lockmsg.innerHTML=msg;lockmsg.style.display='block';with(document.getElementById('Message')) {style.display='block';style.left=main.offsetLeft+(main.offsetWidth-offsetWidth)/2;style.top=main.offsetTop+150+(browserIE?document.body.scrollTop:window.pageYOffset);lockok.style.top=offsetHeight-16;lockok.style.left=offsetWidth-48;}
lockno.style.visibility='hidden';lockok.style.visibility='visible';lockok.onclick=me.unlock.bind(me,null);me.captureKey('13',me.unlock.bind(me,null));showLock();};this.confirm=function(msg,fok,fno) {lockimg.src='img/common/help24.png';lockmsg.className='txtMsg';lockmsg.innerHTML=msg;lockmsg.style.display='block';with(document.getElementById('Message')) {style.display='block';style.left=main.offsetLeft+(main.offsetWidth-offsetWidth)/2;style.top=main.offsetTop+150+(browserIE?document.body.scrollTop:window.pageYOffset);lockok.style.top=offsetHeight-16;lockok.style.left=offsetWidth-48;lockno.style.top=offsetHeight-16;lockno.style.left=offsetWidth-80;}
lockok.style.visibility='visible';lockok.onclick=me.unlock.bind(me,fok);me.captureKey('13',me.unlock.bind(me,fok));lockno.style.visibility='visible';lockno.onclick=me.unlock.bind(me,fno);me.captureKey('27',me.unlock.bind(me,fno));showLock();};var i=$DIV({css:'inner'});document.getElementById('Message').appendChild(i);i.appendChild(lockimg);i.appendChild(lockmsg);document.getElementById('Message').appendChild(lockok);document.getElementById('Message').appendChild(lockno);_keyMap['112']=function(){hlp.toggle();return true;};_keyMap['116c']=function(){_reload();return true;};this.setHelp=function(s,d,h) {if(!hlp)hlp=new THelp();hlp.setText(s,d,h);};var fDt={ord:'DMY',
sep:'."."',
fmt:'D.M.Y',
sfmt:'D.M',
reg:'(\\d+)\\s*.\\s*(\\d+)\\s*.\\s*(\\d+)'};var fTm={ord:'HNS',
sep:':',
fmt:'H:N:S',
reg:'(\\d+)\\s*:\\s*(\\d+)\\s*:\\s*(\\d+)'};function cvtFmt(f,d) {var r=''
for (var i=0; i<f.length; i++) {switch(f.substr(i,1)) {case 'D': r=r+zeroPad(d.getUTCDate(),2);break;case 'M': r=r+zeroPad(d.getUTCMonth()+1,2);break;case 'Y': r=r+zeroPad(d.getUTCFullYear(),4);break;case 'H': r=r+zeroPad(d.getUTCHours(),2);break;case 'N': r=r+zeroPad(d.getUTCMinutes(),2);break;case 'S': r=r+zeroPad(d.getUTCSeconds(),2);break;default : r=r+f.substr(i,1);}
}
return r;}
this.getDateStr=function(d,sh) {if((typeof(d)=='undefined')||(d==null))d=me.time;if(typeof(d)=='number')d=new Date(1000*(me.recstart+d));return sh?cvtFmt(fDt.sfmt,d):cvtFmt(fDt.fmt,d);};this.getTimeStr=function(d) {if((typeof(d)=='undefined')||(d==null))d=me.time;if(d==null)d=me.time;if(typeof(d)=='number')d=new Date(1000*(me.recstart+d));return cvtFmt(fTm.fmt,d);};this.parseDate=function(dat) {var d=new Date();if (fDt.ord.substr(fDt.length-1,1)=='Y') dat=dat+fDt.sep+d.getUTCFullYear();var reg=new RegExp(fDt.reg);var t=reg.exec(dat);if (t.length==4)
for (var i=0; i<fDt.ord.length; i++) {switch(fDt.ord.substr(i,1)) {case 'D': d.setDate(parseInt(t[i+1],10));break;case 'M': d.setMonth(parseInt(t[i+1],10)-1);break;case 'Y': d.setFullYear(parseInt(t[i+1],10));break;}
}
return(d);};this.setTimeStr=function(callerid,dat,tim) {var d=new Date(1000*me.recstart);var dt={day:0,mon:0,yr:0,hr:0,mi:0,sec:0};if (fDt.ord.substr(fDt.length-1,1)=='Y') dat=dat+fDt.sep+d.getUTCFullYear();tim=tim+fTm.sep+'0';var reg=new RegExp(fDt.reg);var t=reg.exec(dat);if (t.length!=4) {_setTime(callerid,me.time);return(false);}
for (var i=0; i<fDt.ord.length; i++) {switch(fDt.ord.substr(i,1)) {case 'D': dt.day=parseInt(t[i+1],10);break;case 'M': dt.mon=parseInt(t[i+1],10);break;case 'Y': dt.yr=parseInt(t[i+1],10);break;}
}
reg=new RegExp(fTm.reg);t=reg.exec(tim);if (t.length!=4) {_setTime(callerid,me.time);return(false);}
for (i=0; i<fTm.ord.length; i++) {switch(fTm.ord.substr(i,1)) {case 'H': dt.hr=parseInt(t[i+1],10);break;case 'N': dt.mi=parseInt(t[i+1],10);break;case 'S': dt.sec=parseInt(t[i+1],10);break;}
}
if (dt.yr<100) dt.yr+=2000;var start=(Date.UTC(dt.yr,dt.mon-1,dt.day,dt.hr,dt.mi,dt.sec)/1000)-me.recstart;if ((start<0) && (start>-60)) start=0;if ((start>me.reclen) || (start<0)) {_setTime(callerid,me.time);return(false);}
_setTime(callerid,start);return(true);}
this.fmtTime=function(t){var s='';if(t>86400){s=Math.floor(t/86400).toFixed(0)+'d '
t=t%86400;}
if(t>3600){s=s+Math.floor(t/3600).toFixed(0)+'h '
t=t%3600;} else if(s!='')s=s+'0h ';if(t>60){s=s+Math.floor(t/60).toFixed(0)+'m '
t=t%60;} else if(s!='')s=s+'0m ';return(s+t.toFixed(0)+'s');};this.register=function(obj) {_massoc[obj.id]=new Array(_modules.length,obj);_modules.push(obj);this.Module[obj.id]=obj;}
function reloadResp() {var s='sid='+T24SID;if (init.Record) me.Request("/tom24x/db",s+'&action=load',me,'ResponseRecord');if (init.Excl) me.Request('/tom24x/channel',s+'&c=INHIBITION&a=list',me,'ResponseExcl');if (init.Noise) me.Request('/tom24x/info',s+'&c=NOISE&a=list',me,'ResponseNoise');if (init.HR) me.Request('/tom24x/hr',s+'&a=get&xval='+me.time,me,'ResponseHR');if (init.ST) me.Request('/tom24x/info',s+'&a=list&c=ST',me,'ResponseST');if (init.Strip) me.Request('/tom24x/ecgstrip',s+'&a=list',me,'ResponseStrip');if (init.Evt) me.Request("/tom24x/generic/EvtStrips",s,me,'ResponseEvt');}
this.DIV=function(id,title,context,opts) {if(!context)context=0;switch(context){case 0:
var div=$DIV({css:'container',id:id});var h=$DIV({css:'ModulTitle'});var htx=$DIV();htx.innerHTML=title;h.appendChild(htx);h.appendChild($IMG(_imgFlippedDown,{id:'flipImg_'+id,onclick:function(){_toggleActive(id);}}));h.appendChild($IMG(_imgFlippedDown,{visibility:'hidden'}));var m=document.getElementById("Main");m.appendChild(h);m.appendChild(div);return(div);case 2:
var h=$DIV({css:'ModulTitle'});if(opts&&opts.margin)h.style.marginTop=opts.margin;var htx=$DIV();htx.innerHTML=title;h.appendChild(htx);var div=$DIV({css:'container'});var p=document.getElementById("RightPanel");p.appendChild(h);p.appendChild(div);p.style.visibility='visible';h.style.width=p.offsetWidth-2;div.style.width=p.offsetWidth-2;return(div);case 3:
var o={parent:$DIV({css:'HelpBox',background:opts.background}),
title:$DIV({css:'hpar',height:'auto',html:title}),
main:$DIV({css:'hpar',height:'auto'}),
frame:new Array(8),
pos:opts.position,
setColor:function(obj,c){obj.parent.style.background=c;for(var i=0;i<8;i++)obj.frame[i].style.background=c;}
};var b=document.createElement('B');b.className='rtop';o.frame[0]=document.createElement('B');o.frame[0].className='r1';o.frame[0].style.background=opts.background;b.appendChild(o.frame[0]);o.frame[1]=document.createElement('B');o.frame[1].className='r2';o.frame[1].style.background=opts.background;b.appendChild(o.frame[1]);o.frame[2]=document.createElement('B');o.frame[2].className='r3';o.frame[2].style.background=opts.background;b.appendChild(o.frame[2]);o.frame[3]=document.createElement('B');o.frame[3].className='r4';o.frame[3].style.background=opts.background;b.appendChild(o.frame[3]);o.parent.appendChild(b);o.parent.appendChild(o.title);o.parent.appendChild(o.main);var b=document.createElement('B');b.className='rtop';o.frame[4]=document.createElement('B');o.frame[4].className='r4';o.frame[4].style.background=opts.background;b.appendChild(o.frame[4]);o.frame[5]=document.createElement('B');o.frame[5].className='r3';o.frame[5].style.background=opts.background;b.appendChild(o.frame[5]);o.frame[6]=document.createElement('B');o.frame[6].className='r2';o.frame[6].style.background=opts.background;b.appendChild(o.frame[6]);o.frame[7]=document.createElement('B');o.frame[7].className='r1';o.frame[7].style.background=opts.background;b.appendChild(o.frame[7]);o.parent.appendChild(b);var p=document.getElementById("LeftPanel");for(var i=0;i<lsp.length;i++){if(o.pos<lsp[i].pos){p.insertBefore(o.parent,lsp[i].parent);lsp.splice(i,0,o);return(o);}
}
p.appendChild(o.parent);lsp.push(o);return(o);}
return(null);};this.init=function() {if((session)&&(session!='')){this.State=new TState(session);}
for (i=0;i<_modules.length;i++) {var obj=_modules[i];obj.init(me.time,me.region,me.resolution);var hdr = document.getElementById(obj.id);if(hdr)hdr.previousSibling.appendChild($DIV({clear:'both',fontSize:0,height:0,width:0}));if (obj.ResponseExcl) init.Excl=true;if (obj.ResponseNoise) init.Noise=true;if (obj.ResponseHR) init.HR=true;if (obj.ResponseST) init.ST=true;if (obj.ResponseStrip) init.Strip=true;if (obj.ResponseEvt) init.Evt=true;if (obj.ResponseRecord) init.Record=true;}
reloadResp();var i=(main.offsetLeft+main.offsetWidth+26)-(browserIE?document.body.offsetWidth:window.innerWidth);if(i>0)window.scrollTo(i,0);}
this.addCtrl = function(callerid,ctrl) {var obj = document.getElementById(callerid);if(obj)obj.previousSibling.appendChild($IMG(ctrl.src,{onclick:ctrl.onclick}));}
this.setTime=_setTime;function _setTime(callerid,t) {me.Request('/tom24x/hr','sid='+T24SID+'&a=get&xval='+t,Core,'ResponseHR');me.time=t;for (var i=0; i<_modules.length; i++) if ((_modules[i].id!=callerid) && (_modules[i].isActive) && _modules[i].setTime) _modules[i].setTime(t);if((tbx)&&(tbx.setTime))tbx.setTime(t);}
this.setRgn=function(callerid,t) {me.region=t;for (var i=0; i<_modules.length; i++) if ((_modules[i].id!=callerid) && (_modules[i].isActive) && _modules[i].setRgn) _modules[i].setRgn(t);};this.setRes=function(callerid,r) {var rgn2=me.time-(me.time-me.region)*r/me.resolution;me.resolution=r;for (var i=0; i<_modules.length; i++) if ((_modules[i].id!=callerid) && (_modules[i].isActive) && _modules[i].setRes) _modules[i].setRes(r);if((tbx)&&(tbx.setRes))tbx.setRes(r);me.setRgn(0,(rgn2>=0)?rgn2:0);};this.setDay=function(callerid,d) {me.day=d;for (var i=0; i<_modules.length; i++) if ((_modules[i].id!=callerid) && (_modules[i].isActive) && _modules[i].setDay) _modules[i].setDay(d);if((tbx)&&(tbx.setDay))tbx.setDay(d);};this.reload=_reload;function _reload(callerid,r) {for (var i=0; i<_modules.length; i++) if ((_modules[i].id!=callerid) && (_modules[i].isActive) && (_modules[i].reload)) _modules[i].reload(''+r);if(!r)reloadResp();}
this.toolBox=function(tools) {if(!tbx)tbx=new TToolBox();tbx.init(tools);if(tbx.setTime)tbx.setTime(time);tbx.setVisible(true);};this.keyMap=function(keys) {var q,f,o,p,h='';var k=keys.split(';');for (var i=0; i<k.length; i++) {q=k[i].split('.');if ((_massoc[q[1]]) && (_modules[_massoc[q[1]][0]].cmd)) {f=parseInt(q[2],10);o=_modules[_massoc[q[1]][0]];p=q[0].substr(1);hlp.addKey(new String(q[0]),o.help[f]);switch (q[0].substr(0,1)) {case '+' :
_keyMap['37'+p]=o.cmd.bind(o,f);_keyMap['38'+p]=o.cmd.bind(o,f);_keyMap['39'+p]=o.cmd.bind(o,f);_keyMap['40'+p]=o.cmd.bind(o,f);break;case '-' :
_keyMap['37'+p]=o.cmd.bind(o,f);_keyMap['39'+p]=o.cmd.bind(o,f);break;case '|' :
_keyMap['38'+p]=o.cmd.bind(o,f);_keyMap['40'+p]=o.cmd.bind(o,f);break;case '%' :
_keyMap['33'+p]=o.cmd.bind(o,f);_keyMap['34'+p]=o.cmd.bind(o,f);break;case '~' :
_keyMap['35'+p]=o.cmd.bind(o,f);_keyMap['36'+p]=o.cmd.bind(o,f);default :
_keyMap[q[0]]=o.cmd.bind(o,f);}
}
}
}
this.setKeyEnabled=function(flag) {_keyEnabled=flag;}
this.captureKey=function(key,func) {_tmpMap[key]=func;}
this.uncaptureKey=function(key) {_tmpMap[key]=null;}
var _dir=[-3,3,4,-4,-1,-2,1,2];document.onkeydown=function(e) {if (_keyEnabled) {var ch=0;e = e || window.event;if (e.which) ch = e.which; else if (e.keyCode) ch = e.keyCode;if ((ch>=16) && (ch<=20)) return true;var alt=''+ch+((e.ctrlKey)?'c':'')+((e.shiftKey)?'s':'')+((e.altKey)?'a':'');if ((ch>=33) && (ch<=40)) ch=_dir[ch-33];if (_tmpMap[alt]) return(!(_tmpMap[alt](ch)));else if (_keyMap[alt]) return(!(_keyMap[alt](ch)));}
return true;}
window.onhelp=function()
{return false;}
this.toggleActive=_toggleActive;function _toggleActive(modul) {var mod=_massoc[modul];if (mod[1]) {mod[1].setActive(!mod[1].isActive);var img = document.getElementById('flipImg_'+modul);if (img) img.src = (mod[1].isActive) ? _imgFlippedDown : _imgFlippedUp;}
}
this.isActive=function(modul) {var mod=_massoc[modul];if (mod[1]) {return (mod[1].isActive);}
return false;}
this.fromRecorder=function(r) {if(recsup=='')return false;if (!isArray(r)) r=[r];for (var i=0; i<r.length; i++)if (recsup.indexOf(r[i])>-1) return true;return false;};var _permStr=new String('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');function _permit(c,b) {var n=_permStr.indexOf(urc[c]);return (n&b)!=0;}
this.hasPermit=function(u) {switch(u) {case 'SEEALL':
return _permit(0,1);case 'SEECUS':
return _permit(0,2);case 'SEEOWN':
return _permit(0,4);case 'BACKUP':
return _permit(0,8);case 'DELETE':
return _permit(0,16);case 'OPTION':
return _permit(1,1);case 'ANALYS':
return _permit(1,2);case 'EDITOR':
return _permit(1,4);case 'DISPEC':
return _permit(1,8);case 'UPLOAD':
return _permit(1,16);case 'DNLOAD':
return _permit(2,1);case 'VIEWEC':
return _permit(2,2);case 'ARRADJ':
return _permit(2,4);case 'PROREP':
return _permit(2,8);case 'REPORT':
return _permit(2,16);case 'ALLREP':
return _permit(3,1);case 'REPULD':
return _permit(3,2);case 'REPDEO':
return _permit(3,4);case 'REPDEL':
return _permit(3,8);case 'EVENTS':
return _permit(3,16);case 'ACCADM':
return _permit(4,1);case 'USRADM':
return _permit(4,2);case 'BILADM':
return _permit(4,4);case 'STATIS':
return _permit(4,8);case 'SUPERU':
return _permit(4,16);case 'CUSADM':
return _permit(5,1);case 'RECADM':
return _permit(5,2);case 'RECRUN':
return _permit(5,4);case 'BILADM':
return _permit(5,8);case 'TAGSHG':
return _permit(5,16);case 'TAGSHU':
return _permit(6,1);}
return false;};}
function getEventName(atyp) {switch (atyp) {case 'Pause' : return 'Pause';case 'Tachy' : return 'Tachykadie';case 'Brady' : return 'Bradykardie';case 'Trigeminy' : return 'Trigeminus';case 'Bigeminy' : return 'Bigeminus';case 'Couplet' : return 'Couplet';case 'MonoCouplet' : return 'MonoCouplet';case 'PolyCouplet' : return 'PolyCouplet';case 'VTachy' : return 'VT';case 'NSVTachy' : return 'NSVT';case 'SVEct' : return 'SVES';case 'VEct' : return 'VES';case 'Salvo' : return 'Salve';case 'IVRhyth' : return 'IVR';case 'PSVT' : return 'PSVT';case 'Irregular' : return 'Irregulär';}
switch (parseInt(atyp,10)) {case 0 : return 'Pause';case 1 : return 'Tachykadie';case 2 : return 'Bradykardie';case 3 : return 'Trigeminus';case 4 : return 'Bigeminus';case 5 :
case 6 : return 'Couplet';case 7 : return 'VT';case 8 : return 'NSVT';case 9 : return 'SVES';case 10 : return 'VES'
case 11 : return 'Salve';case 12 : return 'IVR';case 13 : return 'PSVT';case 14 : return 'Irregulär';case 101: return 'Patient';case 200: return 'EKG Laden';default : return atyp;}
}
function zeroPad(i,digits) {var s=String(i);while (s.length<digits) s='0'+s;return (s);}