profoundjs/htdocs/profoundui/proddata/js/genie.js

Profound.js Framework and Server

var la,S="genie",pa="5250";var xa=0,ya=[],Ca=[],Ea={};"genie"==S&&window.parent==window&&window.history.forward(1);var Qa="object"==typeof window.pui?pui.serverURL:null;window.pui={};Qa&&(pui.serverURL=Qa);var Sa=navigator.userAgent.toLowerCase();pui.is_edge=-1!=Sa.indexOf("edg/");pui.is_ie=!1;pui.is_opera=-1!=Sa.indexOf("opera")||-1!=Sa.indexOf("opr/");pui.is_chrome=!pui.is_edge&&-1!=Sa.indexOf("chrome");pui.is_safari=!pui.is_edge&&!pui.is_chrome&&-1!=Sa.indexOf("safari");pui.is_firefox=-1!=Sa.indexOf("firefox");
pui.is_android=-1!=Sa.indexOf("android");pui.is_quirksmode="BackCompat"==document.compatMode;pui.is_ios=-1!=Sa.indexOf("iphone")||-1!=Sa.indexOf("ipad")||-1!=Sa.indexOf("ipod");var Ua,Wa,$a,ab;Ua=/trident\/([0-9]{1,}[.0-9]{0,})/;ab=Ua.exec(Sa);null!=ab&&(Wa=parseFloat(ab[1]));pui.is_opera||(Ua=/msie ([0-9]{1,}[.0-9]{0,})/,ab=Ua.exec(Sa),null!=ab&&($a=parseFloat(ab[1])));if(Wa||$a)pui.is_ie=!0,pui.ie_mode=$a||Wa+4,11>pui.ie_mode&&(pui.is_old_ie=!0),pui.ie_version=Wa?Wa+4:$a;pui.secLevel=0;pui.Pe=null;
pui.multX=null;pui.multY=null;pui.defaultDateFormat="MM/DD/YY";pui.is_touch="ontouchstart"in window;pui.touchDevice=pui.is_touch;pui.is_mouse_capable=!1;pui.designer={};pui.designer["initial keywords"]=[];pui.designer.currentDisplay={};pui.ide={};pui.cloud={};pui.cloud.views={};pui.social={};pui.cnv={};pui.cnv.RO={};pui.ii={};pui.toolbox={};pui.toolbox.add=function(){};pui["field exit key"]=107;pui["field exit minus key"]=109;pui["disable prefix on field exit"]=!1;pui["no connection status"]=!1;
pui["disable highlight on click"]=!1;pui["client side timeout"]=!0;pui.Gy={"*ISO":1,"*USA":2,"*EUR":3,"*JIS":4,"*MDY":5,"*DMY":6,"*YMD":7,"*JUL":8,"*JOB":10};pui.Hy={"/":1,"-":2,".":3,",":4," ":5,"*BLANK":5,"*JOB":7};pui.Iy={"*ISO":1,"*USA":2,"*EUR":3,"*JIS":4,"*HMS":9};pui.Jy={".":3,",":4," ":5,"*BLANK":5,":":6,"*JOB":7};pui.JL="abstract arguments await boolean break byte case catch char class const continue debugger default delete do double else enum eval export extends false final finally float for function goto if implements import in instanceof int interface let long native new null package private protected public return short static super switch synchronized this throw throws transient true try typeof var void volatile while with yield".split(" ");
pui.ta=!1;pui.rm=null;pui["function key pattern"]="^(F|CA|CF|CK|CMD)([0-9]{1,2})([=:-])(.*)$";pui["special key pattern"]="^(Enter|PageUp|PageDown|Rollup|RollDown|RollDn|PgUp|PgDn|Help|Print)([=-])(.*)$";pui.Wj=0;pui["session timeout retries"]=0;pui.yO=0;pui.Mm=!1;pui.nO="profoundjs.com";pui.QN="http://www.w3.org/2000/svg";pui.$w={};pui["text file name pattern"]=/.+\.(css|js|json|html|htm|xml|txt|csv|sh|md|sql|scn|lst|xml|conf|php|log|ts|less|scss|cpp|ejs|vue|ts|jsx)$/i;
pui["always allow field exit"]=!1;pui.dup={};pui.dup["char"]="\u25cf";pui.dup.keyCode=45;pui.dup.shift=!0;pui.dup.ctrl=!1;pui.dup.alt=!1;pui.wf={yP:{},GP:{},plugins:{},addPlugin:function(b){var a=pui.wf.plugins,c=b.category;a[c]||(a[c]={});a[c][b.name]=b}};pui["add combo style properties to choice list"]=!0;window.pui||(window.pui={});window.pui.baseVersion="6";window.pui.fixPackVersion="39.0";window.pui.version=window.pui.baseVersion+"."+window.pui.fixPackVersion;pui.genie={};pui.genie.config={};pui.genie.varsToRestore={};pui.lE="1"===(new URLSearchParams(window.location.search)).get("screen_visualization");pui.genie.displaySize=80;pui.genie.alertMsg="";pui.genie.focusFieldNum=0;pui.genie.focusPos=0;pui.genie.ym=null;pui.genie.isCustomized=!1;pui.genie.formSubmitted=!1;pui.genie.setContainerWidth=!0;pui.genie.containerWidth="";pui.genie.menuFieldStartRow=1;pui.genie.menuFieldEndRow=99;pui.genie.menuFieldStartColumn=1;pui.genie.menuFieldEndColumn=999;
pui.genie["use size attribute"]=!1;pui.genie.hideSubfileOptionText=!1;pui.genie.detectSubfileOptions=!0;pui.genie.inputFields=[];pui.genie["close atrium tab on timeout"]=!1;pui.genie["browser handles home key"]=!1;pui.genie.config.enterButton=!1;pui.genie.config.hiColor="#5588BB";pui.genie.config.hiFontColor="white";pui.genie.config.hideSubfileOpt=!1;pui.genie.config.hideFKeyNames=!1;pui.genie.config.functionKeyButtons=!1;pui.genie.config.separateSubfileLines=!1;pui.genie.config.detectSubfile=!0;
pui.genie.config.detectSubfilePatterns=!1;pui.genie.config.detectSubfileEndPlus=!0;pui.genie.config.pagingBar=!1;pui.genie.config.stripedSubfile=!1;pui.genie.config.oddRowColor="#f0f0f0";pui.genie.config.evenRowColor="#d0d0f0";pui.genie.config.outlineSubfile=!0;pui.genie.config.subfileOutlineColor="yellow";pui.genie.config.enlargeHeadings=!0;pui.genie.config.preventAutoTab=!1;pui.genie.config.overtypeMode=!0;pui.genie.config.highlightOnFocus=!1;pui.genie.config.detectDateFields=!0;
pui.genie.config.detectMenus=!0;pui.genie.config.setFieldBackground=!1;pui.genie.config.useFixedFont=!1;pui.genie.config.optionHeadings="OPT,SEL,ACT,X";pui.genie.config.subfileHeadingRows=2;pui.genie.config.detectSubfileMore=!0;pui.genie.config.subfileMoreText="More...";pui.genie.config.subfileBottomText="Bottom";pui.genie.config.alertErrors=!1;pui.genie.config.autoSizeFont=!1;pui.genie.config.confirmOnClose=!1;pui.genie.config.closeMessage=null;pui.genie.config.autoDisconnect=!1;
pui.genie.config.browserAutoComplete=!1;pui.genie.config.inputPadding=4;pui.genie.config.detectWindowBorder=!0;pui.genie.config.hideSubfileOptionText=!1;pui.genie.config.adjustWindowBorders=!0;pui.genie.config.subfileStartLine=null;pui.genie.config.subfileEndLine=null;pui.genie.config.enableKeyAhead=!1;pui.genie.config.keepInputFields=!1;pui.genie.config.autoEnableEmptyElements=!1;pui.genie.config.specialKeyMap={SYSRQ:{code:27,shift:!0},ATTN:{code:27},HELP:{code:112,alt:!0},CLEAR:{code:19}};
var fb=!1,gb=1,jb=!1,lb=!1,mb,pb=null,qb="",rb=null,Ab=null,Bb=null,Db=0,Eb=0,Hb=0,Kb=null,Lb=!1,Mb=!1,Qb=!1,Rb=null,Tb=[],Wb=!1;var Yb={defaultSkin:!0,enableDesigner:!0,timeout:!0,host:!0,port:!0,forceAccelerator:!0,workStnFieldId:!0,multX:!0,multY:!0};function bc(){for(var b in pui.genie.config.globalConfig)Yb[b]||(pui.genie.config[b]=pui.genie.config.globalConfig[b]);for(b in pui.genie.config.skinConfig)Yb[b]||(pui.genie.config[b]=pui.genie.config.skinConfig[b]);if("object"==typeof pui.genie.config.keyMap)for(var a in pui.genie.config.keyMap)pui.genie.config.specialKeyMap[a.toUpperCase()]=pui.genie.config.keyMap[a]};function dc(b){document.body.style.fontFamily=pui.genie.config.useFixedFont?"Monospace":"";var a={};null!=pui.genie.Vj&&0<pui.genie.Vj.length&&(ec(),fc(),gc());var c=ic();var d,e=pui.genie.config.minFKeyRow,f="";document.body.currentStyle?f=document.body.currentStyle.backgroundColor:window.getComputedStyle&&(f=document.defaultView.getComputedStyle(document.body,null).getPropertyValue("background-color"));for(d=0;d<c.length;d++){var h=c[d],k=jc(h);if(-1!=k)if(0==h.id.indexOf("window")){if(k=h.getAttribute("borderAttr"),
null!=k&&null!=k){a:{var l=void 0;var m="."+("A"+k).toUpperCase();k="DIV"+m;for(var u=0;u<document.styleSheets.length;u++){var r=document.styleSheets[u];r.cssRules?l=r.cssRules:r.rules&&(l=r.rules);for(var q=0;q<l.length;q++){var p=l[q];r=p.selectorText.toUpperCase();if(r==m||r==k){l={color:p.style.color||null,backgroundColor:p.style.backgroundColor||null};break a}}}l=void 0}null!=l.backgroundColor&&(h.style.borderColor=l.backgroundColor);null!=l.color&&(h.style.color=l.color)}}else{l=h.innerHTML;
if("http://"==l.substr(0,7)||"https://"==l.substr(0,8))l="<a href=\"JavaScript:pui.openURL('"+mc(l)+"');\">"+l+"</a>",h.innerHTML=l;for(;-1!=l.indexOf(String.fromCharCode(160));)l=l.replace(String.fromCharCode(160),"&nbsp;");h.getAttribute("pass");m=h;u=m.id;null!=u&&"D_"==u.substr(0,2)&&(u=document.getElementById("I"+u.substr(1)),null==u||"INPUT"!=u.tagName||"text"!=u.type&&!pui.We(u.type)||nc(oc(m).toUpperCase())!=nc(u.value.toUpperCase())||(m.id="",m.style.visibility="hidden"));a:{m=h;r=l;u=f;
if(3<=r.length&&(":"==r.substr(0,1)&&":"==r.substr(r.length-1,1)||"."==r.substr(0,1)&&"."==r.substr(r.length-1,1))){p=!0;for(q=1;q<r.length-1;q++)if("."!=r.substr(q,1)){p=!1;break}if(1==p){1==pui.genie.config.detectWindowBorder&&(m.style.fontFamily="Monospace");break a}}1!=pui.genie.config.adjustWindowBorders||"&nbsp;"!=r&&" "!=r||(r="",m.currentStyle?r=m.currentStyle.backgroundColor:window.getComputedStyle&&(r=document.defaultView.getComputedStyle(m,null).getPropertyValue("background-color")),""!=
r&&"transparent"!=r&&r!=u&&parseInt(m.style.width)==pui.multX&&(m.style.top=parseInt(m.style.top)-4+"px",m.style.height=pui.multY+4+"px"))}if(!0!==h.yH){var t;p=l;if(pui.is_old_ie){r=[];var z=p.split("&nbsp;");for(m=0;m<z.length;m++)r=r.concat(z[m].split(" "))}else r=p.split(/ |&nbsp;/);q=[];var w=r.length;for(m=0;m<w;m++){u=r[m];var A="",B="";m<w-1&&(A=r[m+1]);m<w-2&&(B=r[m+2]);"PRESS"==u.toUpperCase()&&"ENTER"==A.toUpperCase()&&(u=u+"&nbsp;"+A,r[m]=u,r.splice(m+1,1),w=r.length,A="",m<w-1&&(A=r[m+
1]));var E={};q.push(pc(u,1,A,B,E));E.iA&&(u=u+"&nbsp;"+A,r[m]=u,r.splice(m+1,1),w=r.length)}for(m=0;m<r.length-1;m++)""!=q[m]&&""==q[m+1]&&""!=r[m+1]&&(r[m]+="&nbsp;"+r[m+1],r.splice(m+1,1),q.splice(m+1,1),--m);w=!1;A="";for(m=0;m<r.length;m++)if(u=r[m],B=q[m],0!=m&&(A+="&nbsp;"),""!=B){w=!0;E="";if(pui.genie.config.hideFKeyNames){z=!1;if(t=pui.Ph(pui["function key pattern"]))if(t.lastIndex=0,(t=t.exec(u))&&5<=t.length){u=t[4];t=t[1].length+t[2].length+t[3].length;for(z=0;z<t;z++)E+="&nbsp;";z=!0}if(!z&&
(t=pui.Ph(pui["special key pattern"]))&&(t.lastIndex=0,(t=t.exec(u))&&4<=t.length)){u=t[3];t=t[1].length+t[2].length;for(z=0;z<t;z++)E+="&nbsp;";z=!0}z||(z=u.split("="),2>z.length&&(z=u.split("-")),2<=z.length&&(2==z[0].length||3==z[0].length)&&"F"==z[0].substr(0,1)&&(E="&nbsp;&nbsp;&nbsp;",3==z[0].length&&(E+="&nbsp;"),u=u.substr(z[0].length+1)))}A+=E+"<a href=\"JavaScript:pressKey('"+B+"');\">"+u+"</a>"}else A+=r[m];m=w?A:p;if(m!=l)null==e||0<=m.indexOf("pressKey('option")?h.innerHTML=m:(l=k,k=
h.parentNode.layerInfo,null!=k&&(l+=k.row,l+=(80==pui.genie.displaySize?24:27)-k.height-k.row+1),l>=e&&(h.innerHTML=m));else if(1==pui.genie.config.detectMenus&&(l=k=void 0,p=h.id.split("_"),!(3>p.length||(q=Number(p[2]),isNaN(q))))){w=oc(h);2==w.length&&(r=w.substr(0,1),u=w.substr(1,1),"0"<=r&&"9">=r&&"."==u&&(l=r,k="D_"+p[1]+"_"+String(q+3)));if(3==w.length&&(r=w.substr(0,1),u=w.substr(1,1),m=w.substr(2,1),"0"<=u&&"9">=u&&"."==m)){if(" "==r||r==String.fromCharCode(160))l=u;"0"<=r&&"9">=r&&(l=r+
u);k="D_"+p[1]+"_"+String(q+4)}4==w.length&&(r=w.substr(0,1),u=w.substr(1,1),m=w.substr(2,1),w=w.substr(3,1),"0"<=m&&"9">=m&&"."==w&&(" "==u||u==String.fromCharCode(160)?l=m:" "==r||r==String.fromCharCode(160)?l=u+m:"0"<=r&&"9">=r&&(l=r+u+m),k="D_"+p[1]+"_"+String(q+5)));null!=l&&(l="option"+l,k=rc(k),null!=k&&(h.innerHTML="<a href=\"JavaScript:pressKey('"+l+"');\">"+h.innerHTML+"</a>",k.innerHTML="<a href=\"JavaScript:pressKey('"+l+"');\">"+k.innerHTML+"</a>"))}}if(c[d].id&&2<=c[d].id.length&&"D_"==
c[d].id.substr(0,2)||null!=c[d].getAttribute("rowcol"))sc(c[d],"mouseover",vc),sc(c[d],"mouseout",wc),sc(c[d],"click",xc),null!=c[d].getAttribute("menuIndex")&&sc(c[d],"click",yc)}}for(d in a)c=a[d],c.style.left=c.x1+"px",c.style.top=c.y1+"px",c.style.width=c.x2-c.x1+pui.multX+"px",c.style.height=c.y2-c.y1+pui.multY+"px",2<=c.eO?c.setAttribute("backgroundid","B_"+(Math.round(c.y1/pui.multY)+1)+"_"+(Math.round(c.x1/pui.multX)-1)):(c.style.visibility="hidden",c.style.display="none");zc();pui.genie.config.functionKeyButtons&&
Ac();if(1==pui.genie.config.setFieldBackground)for(a=Bc(document.body,"background color"),d=document.getElementById(pa).getElementsByTagName("div"),c=0;c<d.length;c++)d[c].id&&"hiDiv"==d[c].id||d[c].oh&&1==d[c].oh||"transparent"!=Bc(d[c],"background color")||(d[c].style.backgroundColor=a);pui.genie.subfileInfo=null;pui.genie.config.detectSubfile&&!pui.ta&&(pui.genie.config.detectSubfilePatterns?Cc():Dc());document.getElementById("hiDiv")||document.getElementById("subfile")||pui.pI(b);if(pui.genie.config.enlargeHeadings&&
!pui.genie.config.setFieldBackground)for(b=document.getElementsByTagName("div"),a=0;a<b.length;a++)d=b[a],null!=d.parentNode.parentNode.grid||1!=jc(d)&&2!=jc(d)||"A22"!=d.className||(c=d.offsetWidth,d.style.fontSize="16px",d.style.filter="progid:DXImageTransform.Microsoft.Shadow(color=#9999CC, direction=135, strength=2);",e=d.offsetWidth,c=e-c,d.style.left=parseInt(d.style.left)-c/2+"px");pui.genie.config.detectDateFields&&Ec();pui.genie.config.autoSizeFont&&(Fc(),sc(window,"resize",Fc));if(pui.is_ie&&
0!=pui.genie.config.overtypeMode)for(b=document.getElementsByTagName("input"),a=0;a<b.length;a++)"text"!=b[a].type&&!pui.We(b[a].type)&&""!=b[a].type||b[a].disabled||b[a].readOnly||(b[a].attachEvent?(b[a].attachEvent("onbeforepaste",Mc),b[a].attachEvent("onkeydown",Nc)):(b[a].addEventListener("beforepaste",Mc,!1),b[a].addEventListener("onkeydown",Nc,!1)));pui.genie.config.keepInputFields&&(document.main.keepInputFields?b=document.main.keepInputFields:(b=Oc("input","keepInputFields"),b.type="hidden",
document.main.appendChild(b)),b.value="1");null==pui.dirSeparator&&(pui.dirSeparator="/");pui.breakMessagesInit();null!=pui.genie.afterInit&&pui.genie.afterInit()};keyAhead=new function(){this.Ui=null;this.kD=this.Yz=!1;var b=this;this.record=function(a){pui.genie.formSubmitted&&(window.name=null==window.name||""==window.name?a:window.name+(","+a))};this.play=function(){b.kD=!0;var a=window.name;window.name="";a=a.split(",");var c=!1;null!=b.Ui&&(b.Ui.currentStyle?"uppercase"==b.Ui.currentStyle.textTransform.toLowerCase()&&(c=!0):window.getComputedStyle&&"uppercase"==document.defaultView.getComputedStyle(b.Ui,null).getPropertyValue("text-transform").toLowerCase()&&
(c=!0));for(var d=0;d<a.length;d++){var e=!1,f=a[d];"shift"==f.substr(0,5)&&(e=!0,f=f.substr(5));f=Number(f);switch(f){case 0:break;case 16:break;default:var h=String.fromCharCode(f),k=!0;e&&!b.Yz&&(k=!1);!e&&b.Yz&&(k=!1);c&&(k=!1);k&&65<=f&&90>=f&&(h=h.toLowerCase());null!=b.Ui&&(e=b.Ui.value,e=e.substr(0,pui.genie.focusPos)+h+e.substr(pui.genie.focusPos+(pui.genie.config.overtypeMode?1:0)),b.Ui.value=e,pui.genie.focusPos+=1)}}b.kD=!1}};function zc(b){var a=document.getElementById(pa);a=null!=b?Array(b):a.getElementsByTagName("input");for(var c=0;c<a.length;c++){b=a[c];var d=b.id;if(d&&2<=d.length&&("I_"==d.substr(0,2)||"R_"==d.substr(0,2)||"C_"==d.substr(0,2))||null!=b.getAttribute("rowcol")||null!=b.fieldInfo&&"I"==b.fieldInfo.type){if("hidden"!=b.type&&"button"!=b.type&&"submit"!=b.type&&!b.disabled){pui.genie.config.browserAutoComplete||b.setAttribute("autocomplete","off");var e=b.getAttribute("num");null==e||"000"==e||"010"==
e?sc(b,"keydown",Pc):"011"==e?sc(b,"keydown",Qc):"101"==e?sc(b,"keydown",Rc):"111"==e?sc(b,"keydown",Tc):"001"==e?sc(b,"keydown",Uc):"110"==e&&(sc(b,"keydown",Vc),sc(b,"contextmenu",Vc));e=b.getAttribute("autoEnter");null!=e&&("radio"!=b.type&&"checkbox"!=b.type||"00"==e?pui.Jf(b)&&"Y"==e&&sc(b,"keyup",Wc):sc(b,"click",Xc));sc(b,"focus",Yc);sc(b,"blur",Zc);sc(b,"change",$c);sc(b,"mouseover",vc);sc(b,"mouseout",wc);sc(b,"mousedown",ad);sc(b,"mouseup",dd);sc(b,"keyup",ed);sc(b,"blur",fd);b.Yq=0;sc(b,
"mouseup",pui.nn);sc(b,"mousedown",pui.nn);sc(b,"keyup",pui.nn);if("Y"==b.getAttribute("ME")&&"Y"!=b.getAttribute("MF")&&(Tb.push(b),null!=b.fieldInfo))for(b.fieldInfo.Ss=[],e=0;e<a.length;e++)a[e].id!=d&&null!=a[e].fieldInfo&&a[e].fieldInfo.Nr==b.fieldInfo.Nr&&b.fieldInfo.Ss.push(a[e]);b.fieldInfo&&1==b.fieldInfo.dup&&sc(b,"keydown",pui.JA)}}else d&&2<=d.length&&"S_"==d.substr(0,2)&&"button"==b.type&&null!=b.getAttribute("pushButtonIndex")?(sc(b,"focus",xc),sc(b,"click",gd)):d&&2<=d.length&&"S_"==
d.substr(0,2)&&("radio"==b.type||"checkbox"==b.type)?sc(b,"keydown",Pc):"TEXTAREA"==b.tagName&&(sc(b,"focus",function(f){hd(f).related instanceof Array&&Yc(f)}),sc(b,"blur",function(f){hd(f).related instanceof Array&&Zc(f)}))}}function gd(b){b=b||window.event;b=b.target||b.srcElement;document.getElementById("pushButtonIndex").value=b.getAttribute("pushButtonIndex");jd(b.getAttribute("key"))}
function yc(b){b=b||window.event;b=b.target||b.srcElement;document.forms.main.menuIndex.value=b.getAttribute("menuIndex");kd(b.id);ld("enter")}function xc(b){b=b||window.event;b=hd(b);"A"==b.tagName&&(b=b.parentNode);b=b.fieldInfo;null!=b&&null!=b.row&&null!=b.col&&(pui.response.crow=b.row,pui.response.ccol=b.col)}function ad(){lb=!0}function dd(){lb=!1}
function Ac(){for(var b=document.getElementsByTagName("a"),a=0,c=null,d=b.length-1;0<=d;--d){var e=b[d],f=e.href;f=f.replace("JavaScript:","javascript:");var h=e.parentNode,k="<a"===h.innerHTML.substr(0,2).toLowerCase();c!=h&&(a=0);c=h;if("DIV"==h.tagName&&0<=f.indexOf("javascript:pressKey('")&&0>f.indexOf("pressKey('option")){f=f.replace("javascript:pressKey('","");f=f.replace("');","");var l=document.createElement("input");l.type="button";l.style.position="absolute";l.style.left=h.offsetLeft+e.offsetLeft-
a+"px";l.style.top=h.offsetTop+"px";l.style.paddingLeft="2px";l.style.paddingRight="2px";l.style.paddingTop="0px";l.style.paddingBottom="0px";l.style.overflow="visible";l.className="button";(function(){for(var r=((h.className||"")+" "+(e.className||"")).trim().split(/\s+/),q=[],p=0;p<r.length;p++)/^A[0-9A-F]{2,3}$/i.test(r[p])&&-1===q.indexOf(r[p])&&q.push(r[p]);q.length&&(l.className+=" "+q.join(" "));try{if(!q.length){var t=Bc(h,"color"),z=Bc(h,"background color");t&&"string"===typeof t&&(l.style.color=
t);z&&"string"===typeof z&&"transparent"!==z&&(l.style.backgroundColor=z)}}catch(w){}})();l.fkey=f;-1!=h.className.indexOf("A27")&&(l.className+=" hide");l.onclick=function(r){r=hd(r);if(!r.fkey)for(var q=r.parentElement;q;){r=q;if(r.fkey)break;q=r.parentElement}ld(r.fkey)};l.value=oc(e);pui.is_quirksmode||(l.style.width=(md(l.value)+.5)*pui.multX+"px");h.parentNode.insertBefore(l,h);l.style.zIndex=h.currentStyle?h.currentStyle.zIndex:window.getComputedStyle?document.defaultView.getComputedStyle(h,
null).getPropertyValue("z-index"):10;l.style.zIndex=Number(l.style.zIndex)+1;if(k)hyperlinkSize=oc(e).length*pui.multX,a+=hyperlinkSize,h.style.left=parseInt(h.style.left)+hyperlinkSize+"px";else{k="";for(var m=oc(e).length,u=0;u<m;u++)k+="\u00a0";h.insertBefore(document.createTextNode(k),e)}e.parentNode.removeChild(e);k=!1;0<h.getElementsByTagName("a").length?k=!0:""!=mc(oc(h))?k=!0:(m=Bc(h,"background color"),null!=m&&"string"==typeof m&&"#"==m.substr(0,1)&&0==pui["fkey buttons compatibility mode"]&&
(k=!0));k?(l.id="DIV"==h.parentNode.tagName.toUpperCase()?h.id.substr(0,h.id.length-3)+"_"+f+h.id.substr(h.id.length-3):h.id+"_"+f,1==pui["fkey buttons compatibility mode"]&&(l.id=h.id)):(l.id=h.id,h.parentNode.removeChild(h))}}}function md(b){for(var a=0,c=0;c<b.length;c++){var d=b.charCodeAt(c);13312<=d&&40959>=d||63744<=d&&64255>=d?a+=2:a++}return a}
function Ec(){function b(r,q){setTimeout(function(){null==r.calimg&&nd(r,q)},2)}var a=pui.genie.config.defaultDateFormat;a||=pui.defaultDateFormat?pui.defaultDateFormat:"MM/DD/YY";var c=a.substr(2,1),d=null,e=null;if("."==c||"/"==c)d=2,e=5;"YYYY-MM-DD"==a?(d=4,e=7,c="-"):"YYYY/MM/DD"==a&&(d=4,e=7,c="/");if(null!=d&&null!=e)for(var f=a.length,h=document.getElementsByTagName("input"),k=0;k<h.length;k++){var l=h[k],m=!1;if(("text"==l.type||pui.We(l.type))&&l.maxLength==f&&!l.readOnly&&l.value.substr(d,
1)==c&&l.value.substr(e,1)==c)for(m=!0,j=0;j<f;j++)if(j!=d&&j!=e){var u=l.value.substr(j,1);" "!=u&&("0">u||"9"<u)&&(m=!1)}m&&b(l,a)}}function Mc(b){if(pui.is_ie){b=hd(b);var a=pui.genie.hj.getSelection(),c=pui.genie.hj.Wv(b);a=a.length;od(b);pui.genie.hj.aI(c,c+a,b)}}function Nc(b){var a=hd(b);b||(b=window.event);45==b.keyCode&&1!=b.shiftKey&&1!=b.ctrlKey&&od(a)}
function od(b){var a=pd(b),c=b.value;for(c=nc(c);c.length<a;)c+=" ";b.value=c;null!=b.createTextRange&&(b=b.createTextRange())&&(b.moveStart("character",a),b.collapse(),b.select())}
function qd(){if(!pui.Ue&&!pui.RENDER_MODE)if(""!=pui.genie.alertMsg&&pui.alert(pui.genie.alertMsg),0!=pui.genie.focusFieldNum||null!=pui.genie.sa){var b=pui.genie.sa;pui.genie.ym=b;null!=b.comboBoxWidget&&(b=b.comboBoxWidget.X());if(null!=b&&null!=b.parentTabPanel&&null!=b.parentTab&&null!=b.style&&"hidden"==b.style.visibility&&"-1"!=b.getAttribute("tabindex")){var a=rc(b.parentTabPanel);null!=a&&a.setTab(b.parentTab)}if(null!=b&&null!=b.style&&"hidden"!=b.style.visibility&&"-1"!=b.getAttribute("tabindex")){try{if(!pui.is_touch||
pui.is_mouse_capable?pui.is_ie&&11<=pui.ie_version?setTimeout(function(){b.focus()},100):b.focus():kd(b.id),pui.is_ie&&11>pui.ie_version&&null!=b.createTextRange){b.select();var c=b.createTextRange();null!=c&&null!=c.collapse&&null!=c.select&&(c.collapse(),c.select());b.focus()}}catch(d){}pui.genie.config.enableKeyAhead&&(keyAhead.Ui=b,keyAhead.play())}else pui.genie.ym=rd()}else 0<pui.genie.inputFields.length?pui.genie.ym=rd():(pui.focusOnContainer(),pui.genie.ym=null)}
function rd(){var b=null;if(null!=document.forms.main.elements[0]){var a=/hide/,c,d=document.forms.main.length;for(c=0;c<d;c++){var e=document.forms.main.elements[c],f=e.className;if("hidden"!=e.type&&"submit"!=e.type&&("button"!=e.type||"button"==e.type&&null!=e.getAttribute("pushButtonIndex"))&&"FIELDSET"!=e.tagName&&"hidden"!=e.style.visibility&&!e.disabled&&!e.readOnly&&!f.match(a)){try{if(b=e,b.focus(),pui.is_old_ie&&null!=b.createTextRange){b.select();var h=b.createTextRange();null!=h&&null!=
h.collapse&&null!=h.select&&(h.collapse(),h.select());b.focus()}}catch(k){}break}}}return b}
function sd(b){if(null!=document.forms.main.elements[0]){var a=/hide/,c,d=document.forms.main.length;for(c=0;c<d;c++){var e=document.forms.main.elements[c],f=e.className;if(!("text"!=e.type&&!pui.We(e.type)&&"SELECT"!=e.tagName||e.disabled||e.readOnly||f.match(a))&&jc(e)>=pui.genie.menuFieldStartRow&&jc(e)<=pui.genie.menuFieldEndRow&&td(e)>=pui.genie.menuFieldStartColumn&&td(e)<=pui.genie.menuFieldEndColumn){a=null;"hidden"==e.style.visibility&&(c=document.getElementsByTagName("textarea"),null!=c&&
1<=c.length&&(c=c[0],c.related&&1<=c.related.length&&c.related[0]==e&&(a=c)));e.value=b;null!=e.fieldInfo&&null!=e.fieldInfo.idx&&(pui.response[e.fieldInfo.idx]=e);null!=a&&(a.value=b,null!=a.fieldInfo&&null!=a.fieldInfo.idx&&(pui.response[a.fieldInfo.idx]=a));ld("Enter");break}}}}
function jd(b){var a;if("genie"==S&&(!pui.ta||1!=pui.rm.CJ(b)))if(0!=xa)setTimeout(function(){jd(b)},50);else{if(mb&&"Y"==mb.getAttribute("MF")&&mb.dirty&&"INPUT"==mb.tagName&&("text"==mb.type||pui.We(mb.type))){var c=mb.getAttribute("maxLength");"Y"==mb.getAttribute("signedNumeric")&&c--;if(null!=c&&mb.value.length<c){ud(mb,"blur",Zc);pui.alert(pui.getLanguageText("runtimeMsg","MF"));sc(mb,"blur",Zc);return}}if(Wb&&!pui.genie.wy[b])for(a=0;a<Tb.length;a++)if(c=Tb[a],!c.dirty){if(null!=c.parentTabPanel&&
null!=c.parentTab){var d=rc(c.parentTabPanel);null!=d&&null!=d.setTab&&d.setTab(c.parentTab)}pui.alert(pui.getLanguageText("runtimeMsg","ME"));try{c.focus()}catch(e){}return}if(!(mb&&mb.id&&2<=mb.id.length&&"I_"==mb.id.substr(0,2)&&mb.type)||"text"!=mb.type&&!pui.We(mb.type)||0!=fd(null,mb)){for(a=0;a<document.forms.main.elements.length;a++)if(document.forms.main.elements[a].name==b&&"hidden"==document.forms.main.elements[a].type){d=document.forms.main.elements[a];break}null!=d?d.value="On":(d=document.createElement("INPUT"),
d.type="hidden",d.name=b,d.value="On",document.forms.main.appendChild(d));pui.genie.KM();pui.oE(b)}}}
pui.genie.KM=function(){for(var b=document.getElementById(pa).getElementsByTagName("textarea"),a=0;a<b.length;a++){var c=b[a];if(null!=c.related)for(var d=c.value.replace(/\r/g,"").split("\n"),e=0,f=0;f<c.related.length;f++){var h=c.related[f];if(1<c.related.length&&d[f]&&d[f].length>h.maxLength){var k=[];for(e;e<d[f].length;e+=h.maxLength)k.push(d[f].substr(e,h.maxLength));d.splice.apply(d,[f,1].concat(k))}h.value=f<d.length?d[f].length>h.maxLength?d[f].substr(e,h.maxLength):d[f]:"";null!=h.fieldInfo&&
null!=h.fieldInfo.idx&&(pui.response[h.fieldInfo.idx]=h)}}};
function vd(b){var a="";b=String(b);b=b.toUpperCase();switch(b){case "ENTER":case "RETURN":a="F1";break;case "F1":case "F01":case "CF01":case "CF1":case "CA01":case "CA1":a="31";break;case "F2":case "F02":case "CF02":case "CF2":case "CA02":case "CA2":a="32";break;case "F3":case "F03":case "CF03":case "CF3":case "CA03":case "CA3":a="33";break;case "F4":case "F04":case "CF04":case "CF4":case "CA04":case "CA4":a="34";break;case "F5":case "F05":case "CF05":case "CF5":case "CA05":case "CA5":a="35";break;
case "F6":case "F06":case "CF06":case "CF6":case "CA06":case "CA6":a="36";break;case "F7":case "F07":case "CF07":case "CF7":case "CA07":case "CA7":a="37";break;case "F8":case "F08":case "CF08":case "CF8":case "CA08":case "CA8":a="38";break;case "F9":case "F09":case "CF09":case "CF9":case "CA09":case "CA9":a="39";break;case "F10":case "CF10":case "CA10":a="3A";break;case "F11":case "CF11":case "CA11":a="3B";break;case "F12":case "CF12":case "CA12":a="3C";break;case "F13":case "CF13":case "CA13":a=
"B1";break;case "F14":case "CF14":case "CA14":a="B2";break;case "F15":case "CF15":case "CA15":a="B3";break;case "F16":case "CF16":case "CA16":a="B4";break;case "F17":case "CF17":case "CA17":a="B5";break;case "F18":case "CF18":case "CA18":a="B6";break;case "F19":case "CF19":case "CA19":a="B7";break;case "F20":case "CF20":case "CA20":a="B8";break;case "F21":case "CF21":case "CA21":a="B9";break;case "F22":case "CF22":case "CA22":a="BA";break;case "F23":case "CF23":case "CA23":a="BB";break;case "F24":case "CF24":case "CA24":a=
"BC";break;case "PAGEUP":case "ROLLDOWN":case "ROLLDDN":case "ROLLDN":a="F4";break;case "PAGEDOWN":case "PAGEDN":case "ROLLUP":a="F5";break;case "QUIT":case "DISCONNECT":a="QUIT";break;case "ATTN":case "ATTENTION":a="ATTN";break;case "SRQ":case "SYSRQ":case "SYSREQ":case "SYSREQUEST":case "SYSTEMREQ":case "SYSTEMREQUEST":a="SYSRQ";break;case "ERRORHELP":a="ERRORHELP";break;case "HELP":a="F3";break;case "PRINT":a="F6";break;case "ROLLLEFT":a="D9";break;case "ROLLRIGHT":a="DA";break;case "CLEAR":a=
"BD";break;case "HOME":a="F8"}return a}
function wd(b){var a=null;b=b.toUpperCase();switch(b){case "F1":a="Enter";break;case "31":a="F1";break;case "32":a="F2";break;case "33":a="F3";break;case "34":a="F4";break;case "35":a="F5";break;case "36":a="F6";break;case "37":a="F7";break;case "38":a="F8";break;case "39":a="F9";break;case "3A":a="F10";break;case "3B":a="F11";break;case "3C":a="F12";break;case "B1":a="F13";break;case "B2":a="F13";break;case "B3":a="F15";break;case "B4":a="F16";break;case "B5":a="F17";break;case "B6":a="F18";break;
case "B7":a="F19";break;case "B8":a="F20";break;case "B9":a="F21";break;case "BA":a="F22";break;case "BB":a="F23";break;case "BC":a="F24";break;case "F4":a="PageUp";break;case "F5":a="PageDown";break;case "F3":a="Help";break;case "F6":a="Print";break;case "F8":a="Home";break;case "D9":a="RollLeft";break;case "DA":a="RollRight";break;case "BD":a="Clear"}return a}function xd(b){var a="";switch(b){case 13:a="F1";break;case 33:a="F4";break;case 34:a="F5"}return a}
pui.genie.onkeyup=function(b){b||(b=window.event);16==b.keyCode&&(jb=!1)};
pui.genie.onkeydown=function(b){if("genie"==S&&null!=document.forms.main){b||(b=window.event);var a=b.keyCode,c=hd(b);if(null!=c){var d=c.className;if(null!=d&&(0<=d.indexOf("ace")&&yd()||0<=d.indexOf("editor-textarea")&&yd()))return}if(pui.$u)pui.Nq(b);else{if(pui.genie.config.enableKeyAhead){var e;b.modifiers&&(e=b.modifiers&&Event.Ll);b.modifiers||(e=b.shiftKey);e?keyAhead.record("shift"+a):keyAhead.record(a)}16==a&&(jb=!0);d=a-111;if(b.ctrlKey&&9==d)pui.downloadJSON();else if(pui.genie["browser handles home key"]||
36!=a)if(c=pui.genie.pB(b),""!=c){if("HELP"==c&&"P"==pui["5250"].state&&(c="ERRORHELP"),zd(b),ld(c),pui.is_old_ie&&5<=pui.ie_mode)try{b.keyCode=0}catch(f){}}else{if(1<=d&&12>=d){if(zd(b),!pui.is_old_ie||5>pui.ie_mode||1<d||b.shiftKey)if(b.shiftKey?d+=12:b.modifiers&&Event.Ll&&(d+=12),ld(10>d?"CF0"+d:"CF"+d),pui.is_old_ie&&5<=pui.ie_mode)try{b.keyCode=0}catch(f){}}else if(c=xd(a,b),""!=c&&(zd(b),jd(c),pui.is_old_ie&&5<=pui.ie_mode))try{b.keyCode=0}catch(f){}16!=a&&(jb=!1)}else{a=!1;if(null!=c&&null!=
pui.genie.ym&&pui.genie.ym.id==c.id&&0==pui.genie.hj.Wv(c)&&(ld("HOME"),a=!0,pui.is_old_ie&&5<=pui.ie_mode))try{b.keyCode=0}catch(f){}a||qd()}}}};function Ad(b){jb||(b||(b=window.event),b.altKey?"P"==pui["5250"].state?ld("ErrorHelp"):ld("Help"):ld("F1"))}
function ed(b){if(pui.genie.Xs&&!pui.is_opera){b||(b=window.event);var a=b.keyCode;b=b.target||b.srcElement;var c=Number(b.getAttribute("maxLength"));if(65<=a&&90>=a||48<=a&&57>=a||186==a||188==a||190==a||191==a||192==a||59==a||219<=a&&222>=a||106==a||a==pui["field exit key"]||a==pui["field exit minus key"]||109==a||110==a||111==a||61==a||32==a||96<=a&&105>=a)if(Wb=!0,pui.genie.DC(b),"SELECT"!=b.tagName&&("INPUT"!=b.tagName||pui.Jf(b))){var d=pd(b);0>d&&(d=b.value.length);if(b.fieldInfo&&b.fieldInfo.DBCSDataType&&
"G"!=b.fieldInfo.DBCSDataType){var e=Bd(nc(b.value));if(e>c)for(Cd=1;Cd<=e&&!(b.value=b.value.slice(0,-1),e=Bd(nc(b.value)),e<=c);Cd++);}if(e=b&&(!pui.is_touch||pui.is_mouse_capable)){if(a=pui["field exit"]&&(a==pui["field exit key"]||a==pui["field exit minus key"]))a=b.value,a=null==a?"":/^\s+|\s+$/.test(a)?!0:!1;e=a}e&&(/^ +$/.test(b.value)&&(b.value=""),/^\s{2,}/.test(b.value)?b.value=mc(b.value):Dd(b));d>=c&&"Y"!=b.getAttribute("FE")&&(!pui.is_touch||pui.is_mouse_capable)&&Dd(b)}}}
pui.genie.DC=function(b){b.dirty=!0;if(null!=b.fieldInfo&&null!=b.fieldInfo.Ss)for(var a=0;a<b.fieldInfo.Ss.length;a++)b.fieldInfo.Ss[a].dirty=!0};
function Ed(b){var a,c=/hide/,d=jc(b,!0),e=td(b,!0);var f=999;for(var h=a=0;h<document.forms.main.elements.length;h++){var k=document.forms.main.elements[h],l=k.className,m=!1;"hidden"==k.type||"button"==k.type||"submit"==k.type||"FIELDSET"==k.tagName||k.disabled||k.readOnly||"hidden"==k.style.visibility||l.match(c)||(m=!0);"INPUT"==k.tagName&&"hidden"==k.type&&(l=k.getAttribute("pui_menu_id"),"string"==typeof l&&(k=rc(l),m=!0));if(m&&(m=jc(k,!0),l=td(k,!0),m>d&&(m<f||m==f&&Math.abs(l-e)<Math.abs(a-
e)))){a=l;f=m;var u=k}}if(null!=u){f=pd(b);0<=f?(pui.genie.focusPos=f+td(b)-td(u),0>pui.genie.focusPos&&(pui.genie.focusPos=0),b=Number(u.getAttribute("maxLength")),pui.genie.focusPos>=b&&(pui.genie.focusPos=b,""==mc(u.value)&&(pui.genie.focusPos=0))):pui.genie.focusPos=0;try{u.focus()}catch(r){}}}
function Fd(b){for(var a,c,d,e=/hide/,f=jc(b,!0),h=td(b,!0),k=c=a=0;k<document.forms.main.elements.length;k++){var l=document.forms.main.elements[k],m=l.className,u=!1;"hidden"==l.type||"button"==l.type||"submit"==l.type||"FIELDSET"==l.tagName||l.disabled||l.readOnly||"hidden"==l.style.visibility||m.match(e)||(u=!0);"INPUT"==l.tagName&&"hidden"==l.type&&(m=l.getAttribute("pui_menu_id"),"string"==typeof m&&(l=rc(m),u=!0));u&&(u=jc(l,!0),m=td(l,!0),u<f&&(u>a||u==a&&Math.abs(m-h)<Math.abs(c-h))&&(c=
m,a=u,d=l))}if(null!=d){a=pd(b);0<=a?(pui.genie.focusPos=a+td(b)-td(d),b=Number(d.getAttribute("maxLength")),pui.genie.focusPos>=b&&(pui.genie.focusPos=b,""==mc(d.value)&&(pui.genie.focusPos=0))):pui.genie.focusPos=0;try{d.focus()}catch(r){}}}pui.zr=function(b){b=b.parentNode;null!=b.comboBoxWidget&&(b=b.parentNode);null!=b.parentNode&&null!=b.parentNode.grid&&(b=b.parentNode.parentNode);return b};
pui.iC=function(b){var a=b.parentNode;b.comboBoxWidget&&(a=a.parentNode);return null!=a.parentNode&&null!=a.parentNode.grid?!0:!1};
function Dd(b,a){if(!pui.genie.config.preventAutoTab||!a){var c,d=/hide/,e=jc(b,!0),f=td(b,!0);a=999;var h=0;var k=999;var l=0;if(b.fieldInfo&&b.fieldInfo.cursor_prog){var m=document.forms.main.elements["InputField"+(b.fieldInfo.cursor_prog-1)];!m||m.disabled||m.readOnly||"hidden"==m.style.visibility||m.className.match(d)||(c=m)}if(!c){for(m=0;m<document.forms.main.elements.length;m++){var u=document.forms.main.elements[m],r=u.className,q=!1;"hidden"==u.type||"button"==u.type||"submit"==u.type||"FIELDSET"==
u.tagName||u.disabled||u.readOnly||"hidden"==u.style.visibility||r.match(d)||(q=!0);"INPUT"==u.tagName&&"hidden"==u.type&&(r=u.getAttribute("pui_menu_id"),"string"==typeof r&&(u=rc(r),q=!0));if(q&&(q=jc(u,!0),r=td(u,!0),(q>e||q==e&&r>f)&&(q<a||q==a&&r<h)&&(h=r,a=q,c=u),q<k||q==k&&r<l)){l=r;k=q;var p=u}}null==c&&(c=p)}a=p=null;null!=c&&(p=pui.zr(b),a=pui.zr(c));if(null!=c&&a==p){pui.genie.focusPos=0;try{/^ +$/.test(c.value)&&(c.value=mc(c.value)),c.focus(),c.select()}catch(t){return!1}return!0}return!1}}
function Gd(b,a,c){if(!pui.genie.config.preventAutoTab||!c){var d=/hide/,e=jc(b,!0),f=td(b,!0);var h=-1;var k=0;var l=-1;var m=0;if(b.fieldInfo&&0<=b.fieldInfo.idx){var u=b.fieldInfo&&b.fieldInfo.idx+1;for(c=0;c<document.forms.main.elements.length;c++){var r=document.forms.main.elements[c];if(r.fieldInfo&&r.fieldInfo.cursor_prog&&r.fieldInfo.cursor_prog==u&&r&&!r.disabled&&!r.readOnly&&"hidden"!=r.style.visibility&&!r.className.match(d)){var q=r;break}}}if(!q){for(c=0;c<document.forms.main.elements.length;c++){r=
document.forms.main.elements[c];var p=r.className;u=!1;"hidden"==r.type||"button"==r.type||"submit"==r.type||"FIELDSET"==r.tagName||r.disabled||r.readOnly||"hidden"==r.style.visibility||p.match(d)||(u=!0);"INPUT"==r.tagName&&"hidden"==r.type&&(p=r.getAttribute("pui_menu_id"),"string"==typeof p&&(r=rc(p),u=!0));if(u&&(u=jc(r,!0),p=td(r,!0),(u<e||u==e&&p<f)&&(u>h||u==h&&p>k)&&(k=p,h=u,q=r),u>l||u==l&&p>m)){m=p;l=u;var t=r}}null==q&&(q=t)}c=t=null;null!=q&&(t=pui.zr(b),c=pui.zr(q));if(null!=q&&c==t){pui.genie.focusPos=
q.getAttribute("maxLength");null==pui.genie.focusPos&&(pui.genie.focusPos=0);null!=a&&(pui.genie.focusPos=a);try{q.focus()}catch(z){return!1}return!0}return!1}}
function ec(){var b=pui.Ph(pui["function key pattern2"],!0);b&&(b=new pui.Hi({pattern:b,Ro:pui.Bd(pui.genie.config.minFKeyRow,1),Hm:5,Zr:function(a){return!isNaN(a.key)&&1<=a.key&&24>=a.key},Nm:function(a){return{prefix:a[1].trim(),key:parseInt(a[2],10),label:a[4]}},ej:"fkeys2",Kw:function(a){return a.prefix+a.key},Cm:function(a,c){c.innerHTML="<a href=\"JavaScript:pressKey('CF"+(10>a.key?"0":"")+a.key+"');\">"+(pui.genie.config.hideFKeyNames?a.label:a.prefix+a.key+"="+a.label)+"</a>";c.yH=!0}}),
Hd(b),Id(b),Jd(b))}
function gc(){var b;if(b=pui.Ph(pui["menu pattern"],!0)){var a={};Hd(new pui.Hi({pattern:b,Hm:4,Nm:function(k){return{key:k[1]}},aC:function(k,l,m,u,r){return l.row==m&&(u==l.col||u>l.col&&u<r)},WC:function(k,l){var m=k.row,u=k.col;k={opt:k.key,div:l};null==a[m]&&(a[m]={});null==a[m][u]&&(a[m][u]=[]);a[m][u].push(k)},Hv:!0}));for(c in a){var c=parseInt(c,10);for(d in a[c]){var d=parseInt(d,10);var e=d-1,f=d+1;for(b=c+1;b<pui.genie.Vj.length;b++){var h=!1;null!=a[b]&&(null!=a[b][e]?(h=!0,a[b][e].above=
!0):null!=a[b][d]?(h=!0,a[b][d].above=!0):null!=a[b][f]&&(h=!0,a[b][f].above=!0));if(h){a[c][d].below=!0;break}else if(1==pui["menu pattern mode"]&&"   "!=pui.genie.Vj[c].substring(e,e+3))break}}}for(c in a)for(d in c=parseInt(c,10),a[c])if(d=parseInt(d,10),a[c][d].above||a[c][d].below)for(b=0;b<a[c][d].length;b++)e=a[c][d][b].opt,f=a[c][d][b].div,h=f.innerHTML,0>h.indexOf("<a href=")&&(f.innerHTML="<a href=\"javascript:pressKey('option"+e+"');\">"+h+"</a>")}}
function fc(){var b=pui.Ph(pui["special key pattern2"],!0);b&&(b=new pui.Hi({pattern:b,Ro:pui.Bd(pui.genie.config.minFKeyRow,1),Hm:4,Nm:function(a){var c=a[1];null!=pui["special key map"]&&null!=pui["special key map"][c]&&(c=pui["special key map"][c]);return{key:a[1],keyName:c,label:a[a.length-1]}},ej:"spkeys",Kw:function(a){return a.keyName},Cm:function(a,c){c.innerHTML="<a href=\"JavaScript:pressKey('"+a.keyName+"');\">"+(pui.genie.config.hideFKeyNames?a.label:a.key+"="+a.label)+"</a>"}}),Hd(b),
Id(b),Jd(b))}
function pc(b,a,c,d,e){var f="";var h=Ld(b,a,1);var k=Ld(b,a+1,1);var l=Ld(b,a+2,1);var m=Ld(b,a+3,1);var u=m.toUpperCase();var r=Ld(b,a+4,1);var q=r.toUpperCase();if(1==pui.genie.config.detectMenus)if(null!=c){var p;""!=c?p=c.substr(0,1).toUpperCase():""!=d&&(p=d.substr(0,1).toUpperCase());null!=p&&(2==b.length&&"0"<=h&&"9">=h&&"."==k&&pui.genie.Xr(p)&&(f="option"+h,e.iA=!0),3==b.length&&"0"<=h&&"9">=h&&"0"<=k&&"9">=k&&"."==l&&pui.genie.Xr(p)&&(f="option"+Ld(b,a,2),e.iA=!0))}else"0"<=h&&"9">=h&&
(". "==Ld(b,a+1,2)||".&nbsp;"==Ld(b,a+1,7))&&pui.genie.Xr(u)&&(f="option"+h),"0"<=h&&"9">=h&&"0"<=k&&"9">=k&&(". "==Ld(b,a+2,2)||".&nbsp;"==Ld(b,a+2,7))&&pui.genie.Xr(q)&&(f="option"+Ld(b,a,2));if(1!=a&&" "!=Ld(b,a-1,1))if(6<a){if("&nbsp;"!=Ld(b,a-6,6))return""}else return"";if(c=pui.Ph(pui["function key pattern"])){if(c.lastIndex=0,m=c.exec(b))return b=parseInt(m[2],10),f="CF",10>b&&(f+="0"),f+b}else{"F"==Ld(b,a,1)&&("1"<=k&&"9">=k&&("="==Ld(b,a+2,1)||"-"==Ld(b,a+2,1))&&(f="CF0"+Ld(b,a+1,1)),"0"==
k||"1"==k||"2"==k)&&(l=Ld(b,a+2,1),"0"<=l&&"9">=l&&("="==Ld(b,a+3,1)||"-"==Ld(b,a+3,1))&&(f="CF"+Ld(b,a+1,2)));if("CK"==Ld(b,a,2).toUpperCase()||"CF"==Ld(b,a,2).toUpperCase()||"CA"==Ld(b,a,2).toUpperCase())"1"<=l&&"9">=l&&("="==m||"-"==m)?f="CF0"+l:("0"==l||"1"==l||"2"==l)&&"0"<=m&&"9">=m&&("="==r||"-"==r)&&(f="CF"+l+m);"CMD"==Ld(b,a,3).toUpperCase()&&("1"<=m&&"9">=m&&("-"==r||"="==r)&&(f="CF0"+Ld(b,a+3,1)),k=Ld(b,a+5,1),("1"==m||"2"==m)&&"0"<=r&&"9">=r&&("-"==k||"="==k)&&(f="CF"+Ld(b,a+3,2)))}if(c=
pui.Ph(pui["special key pattern"])){if(c.lastIndex=0,m=c.exec(b)){f=m[1];null!=pui["special key map"]&&null!=pui["special key map"][f]&&(f=pui["special key map"][f]);2<f.length&&(f=f.substr(0,1).toUpperCase()+f.substr(1).toLowerCase());switch(f){case "Pgup":case "Pageup":case "Rolldn":case "Rolldown":f="PageUp";break;case "Pgdn":case "PageDown":case "Rollup":f="PageDown"}return f}}else{m=Ld(b,a,6);if("Enter="==m||"ENTER="==m||1==pui.genie.config.enterButton&&"PRESS&NBSP;ENTER"==Ld(b,a,16).toUpperCase())f=
"Enter";if("PGUP-"==Ld(b,a,5).toUpperCase()||"PGUP="==Ld(b,a,5).toUpperCase())f="PageUp";if("PGDN-"==Ld(b,a,5).toUpperCase()||"PGDN="==Ld(b,a,5).toUpperCase())f="PageDown";if("ROLLUP-"==Ld(b,a,7).toUpperCase()||"ROLLUP="==Ld(b,a,7).toUpperCase())f="PageDown";if("ROLLDN-"==Ld(b,a,7).toUpperCase()||"ROLLDN="==Ld(b,a,7).toUpperCase())f="PageUp";if("HELP-"==Ld(b,a,5).toUpperCase()||"HELP="==Ld(b,a,5).toUpperCase())f="Help";if("PRINT-"==Ld(b,a,6).toUpperCase()||"PRINT="==Ld(b,a,6).toUpperCase())f="Print"}1==
pui.genie.config.detectSubfileMore&&(m=mc(pui.genie.config.subfileMoreText),r=m.length,pui.genie.config.detectSubfilePatterns||Ld(b,a,r)!=m||(f="PageDown"));return f}pui.genie.Xr=function(b){return" "!=b&&("0">b||"9"<b)};function Ld(b,a,c){return c?b.substr(a-1,c):b.substr(a-1)}
function Dc(){var b,a,c=document.getElementsByTagName("div"),d=document.getElementsByTagName("input"),e=a=null,f;var h=pui.genie.config.optionHeadings.toUpperCase().split(",");var k=pui.genie.config.subfileMoreText;var l=pui.genie.config.subfileBottomText;for(f=0;f<c.length;f++){var m=c[f].innerHTML;if(m=="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+l||m=="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+k||m=="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A href=\"javascript:pressKey('PageDown');\">"+k+"</A>"||m=="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"JavaScript:pressKey('PageDown');\">"+
k+"</a>"||"&nbsp;&nbsp;&nbsp;&nbsp;Bottom&nbsp;&nbsp;"==m||m==l||m==k||m=="<A href=\"javascript:pressKey('PageDown');\">"+k+"</A>")e=c[f];for(var u=0;u<h.length;u++){var r=m.substr(0,h[u].length+1).toUpperCase();var q=m.substr(0,h[u].length+6).toUpperCase(),p=h[u],t=p+" ",z=p+"&NBSP;";if(m.toUpperCase()==p||r==t||q==z)if(null==a){a=c[f];break}else if(r=c[f].parentNode,null!=r&&null!=r.id&&"window"==r.id.substr(0,6)&&(null==a.parentNode||null==a.parentNode.id||"window"!=a.parentNode.id.substr(0,6))){a=
c[f];break}}}Db=0;if(null!=a){r=a.parentNode;null!=r&&null!=r.id&&"window"==r.id.substr(0,6)&&(pb=r,pb.oP=parseInt(pb.style.top),qb=pb.id.substr(6));if(null==pb){var w=c[c.length-1].parentNode;if(null!=rc("window1")||null!=w&&null!=w.id&&"window"==w.id.substr(0,6))return}Eb=jc(a);Hb=td(a);for(w=Eb+1;w<=Eb+pui.genie.config.subfileHeadingRows;w++){for(m=Hb;m<Hb+3;m++)if(f="I_"+w+"_"+m,null!=pb&&(f+="_W"+qb),f=document.getElementById(f),null!=f&&(null==pb||f.parentNode==pb)){Db=m;break}if(0!=Db)break}}m=
0;if(null!=pui.genie.config.subfileStartLine&&null!=pui.genie.config.subfileEndLine&&0<Number(pui.genie.config.subfileStartLine)&&0<Number(pui.genie.config.subfileEndLine))for(k=!0,l=document.getElementById(pa),b=Number(pui.genie.config.subfileStartLine);b<=Number(pui.genie.config.subfileEndLine);b++){m++;pui.genie.config.stripedSubfile&&Md(l,b,k);for(f=0;f<c.length;f++)h=c[f],r=h.parentNode,null!=r&&null!=r.id&&"window"==r.id.substr(0,6)||"popcal"==h.id||Nd(h,b,k);for(f=0;f<d.length;f++)a=d[f],r=
a.parentNode,null!=r&&null!=r.id&&"window"==r.id.substr(0,6)||Nd(a,b,k);k=!k}else if(0<Db){pui.genie.config.hideSubfileOpt&&(a.style.visibility="hidden",a.value="",f=document.getElementById("D_"+b+"_"+Db+(null!=pb?"_W"+qb:"")),null!=f&&(f.style.visibility="hidden"));b=w;f="I_"+b+"_"+Db;null!=pb&&(f+="_W"+qb);a=document.getElementById(f);f=document.getElementById("I_"+(b+1)+"_"+Db+(null!=pb?"_W"+qb:""));r=document.getElementById("I_"+(b+2)+"_"+Db+(null!=pb?"_W"+qb:""));if(null!=a&&null==f&&null!=r&&
a.maxLength==r.maxLength)gb=2,fb=!0;else if(h=document.getElementById("I_"+(b+3)+"_"+Db+(null!=pb?"_W"+qb:"")),null!=a&&null==f&&null==r&&null!=h&&a.maxLength==h.maxLength)gb=3,fb=!0;else if(k=document.getElementById("I_"+(b+4)+"_"+Db+(null!=pb?"_W"+qb:"")),null!=a&&null==f&&null==r&&null==h&&null!=k&&a.maxLength==k.maxLength)gb=4,fb=!0;else if(l=document.getElementById("I_"+(b+5)+"_"+Db+(null!=pb?"_W"+qb:"")),null!=a&&null==f&&null==r&&null==h&&null==k&&null!=l&&a.maxLength==l.maxLength)gb=5,fb=
!0;else if(null!=a&&null==f){r=null!=pb?pb.getElementsByTagName("div"):c;q=u=l=k=!1;for(f=0;f<r.length;f++)h=r[f],h=jc(h),h==b+1&&(k=!0),h==b+2&&(l=!0),h==b+3&&(u=!0),h==b+4&&(q=!0);k&&(gb=2,fb=!0,l&&(gb++,u&&(gb++,q&&gb++)))}for(k=!0;null!=a&&(null==pb||a.parentNode==pb);){m++;pui.genie.config.hideSubfileOpt&&(a.style.visibility="hidden",a.value="",f=document.getElementById("D_"+b+"_"+Db+(null!=pb?"_W"+qb:"")),null!=f&&(f.style.visibility="hidden"));l=document.getElementById(pa);pui.genie.config.separateSubfileLines&&
null==pb&&(f=document.createElement("div"),r=b+1,1==fb&&(r+=gb-1),f.style.zIndex=1,f.style.width=(78.5-Db)*pui.multX+"px",f.style.height="1px",f.style.padding="0px",f.style.position="absolute",f.style.left=(Db+3)*pui.multX+"px",f.style.top=r*pui.multY+-20-1+"px",f.style.backgroundColor="#5588BB",f.style.overflow="hidden",l.appendChild(f));pui.genie.config.stripedSubfile&&Md(l,b,k);for(f=0;f<c.length;f++)"popcal"!=c[f].id&&Nd(c[f],b,k,Db);for(f=0;f<d.length;f++)d[f].id!=a.id&&Nd(d[f],b,k,Db);k=!k;
b+=gb;f="I_"+b+"_"+Db+(null!=pb?"_W"+qb:"");a=document.getElementById(f)}}0<m&&0<Db&&(null!=e&&(c=jc(e),c>=b&&(m=m+c-b,m=pui.is_old_ie?m+.75:m+.5)),pui.genie.config.outlineSubfile&&(b=document.createElement("div"),c=m,1==fb&&(c*=gb),b.style.zIndex=1,d=pui.genie.displaySize+2,null!=pb&&(d=parseInt(pb.offsetWidth/pui.multX)+1),b.style.width=(d-Db)*pui.multX+"px",b.style.height=pui.multY*c+10+"px",b.style.border="2px solid "+pui.genie.config.subfileOutlineColor,b.style.position="absolute",c=Db,null!=
pb&&(c-=2),b.style.left=c*pui.multX+"px",b.style.top=w*pui.multY-5+-20+"px",b.style.filter="progid:DXImageTransform.Microsoft.Shadow(color=white, direction=135, strength=3);",c=pb,null==c&&(c=document.getElementById(pa)),c.appendChild(b)),null==pb&&(b=document.createElement("input"),b.type="button",b.value="Up",b.style.position="absolute",b.style.left=(pui.genie.displaySize+3)*pui.multX+"px",b.style.top=w*pui.multY+-20+"px",b.style.width="40px",b.style.fontFamily="Arial Narrow",b.style.fontSize="10px",
b.id="up_button",b.onclick=function(){ld("PageUp")},null!=pb?pb.appendChild(b):document.getElementById(pa).appendChild(b),b=document.createElement("input"),b.type="button",b.value="Down",b.style.position="absolute",b.style.left=(pui.genie.displaySize+3)*pui.multX+"px",b.style.top=(w+1)*pui.multY+-20+"px",b.style.width="40px",b.style.fontFamily="Arial Narrow",b.style.fontSize="10px",b.id="down_button",b.onclick=function(){ld("PageDown")},null!=pb?pb.appendChild(b):document.getElementById(pa).appendChild(b)));
0<m&&(Bb=document.createElement("div"),Bb.style.zIndex=1,w=(pui.genie.displaySize+.5-Db)*pui.multX,null!=pb&&(w=(parseInt(pb.offsetWidth/pui.multX)+1-Db)*pui.multX+4),b=pui.is_old_ie?pui.multY:String(pui.multY-2),1==fb&&(b*=gb),Bb.style.width=String(w)+"px",Bb.style.height=b+"px",Bb.style.backgroundColor=pui.genie.config.hiColor,Bb.style.visibility="hidden",Bb.style.cursor="pointer",Bb.style.position="absolute",w=(Db+1)*pui.multX,null!=pb&&(w=(Db-2)*pui.multX),Bb.style.left=String(w)+"px",Bb.id="hiDiv",
null!=pb?pb.appendChild(Bb):document.getElementById(pa).appendChild(Bb));0<Db&&(pui.genie.subfileInfo={},pui.genie.subfileInfo.inputColumn=Db,w=Od(),""!=w&&(Kb=document.createElement("div"),Kb.style.zIndex=99,Kb.style.display="none",Kb.style.position="absolute",Kb.id="menuDiv",Kb.innerHTML=w,document.body.appendChild(Kb),document.oncontextmenu=Pd,document.onclick=Qd))}
function Md(b,a,c){var d=Db,e=1==pui.genie.config.adjustColumns||"true"==pui.genie.config.adjustColumns,f=d*pui.multX;e&&(f+=pui.multX,null!=pb&&(f-=3*pui.multX));null!=pb?(d=parseInt(pb.style.width)-(d+1)*pui.multX,e&&(d+=3*pui.multX)):d=(pui.genie.displaySize+.5-d+1)*pui.multX;e&&(d-=pui.multX);var h=document.createElement("div");h.style.zIndex=2;h.style.width=d+"px";e=pui.multY;fb&&(e*=gb);h.style.height=String(e)+"px";h.style.position="absolute";h.style.left=f+"px";h.style.top=a*pui.multY+-20-
1+"px";h.style.cursor="pointer";c&&(h.style.backgroundColor=pui.genie.config.oddRowColor);c||(h.style.backgroundColor=pui.genie.config.evenRowColor);h.setAttribute("subfileLine",a);h.setAttribute("stripeid","stripe"+a);h.onmouseover=function(){yd()||null!=Kb&&"none"!=Kb.style.display||(Rd(a),"transparent"!=pui.genie.config.hiColor&&(h.style.backgroundColor=Bb.style.backgroundColor))};h.onmouseout=function(){yd()||null!=Kb&&"none"!=Kb.style.display||(Sd(rb),"transparent"!=pui.genie.config.hiColor&&
(c&&(h.style.backgroundColor=pui.genie.config.oddRowColor),c||(h.style.backgroundColor=pui.genie.config.evenRowColor)))};null!=pb?pb.appendChild(h):b.appendChild(h)}
function Nd(b,a,c,d){!(jc(b)==a||fb&&jc(b)==a+1||fb&&3<=gb&&jc(b)==a+2||fb&&4<=gb&&jc(b)==a+3||fb&&5<=gb&&jc(b)==a+4)||null==b.id||b.parentNode==document.body||null!=pb&&b.parentNode!=pb||null!=d&&td(b)<d||(b.setAttribute("subfileLine",a),b.style.cursor="pointer",pui.genie.config.stripedSubfile&&null!=c&&pui.genie.config.setFieldBackground&&(c&&(b.style.backgroundColor=pui.genie.config.oddRowColor),c||(b.style.backgroundColor=pui.genie.config.evenRowColor)),"INPUT"!=b.tagName&&(sc(b,"click",Td),sc(b,
"dblclick",Ud)))}function Qd(){null!=Kb&&"none"!=Kb.style.display&&(Kb.style.display="none",Sd(Ab,!0),Lb?Lb=!1:Sd(rb))}
function Od(b){function a(w,A){f[w+"="+A]||(f[w+"="+A]=!0,e+='<tr onMouseOver="pui.genie.hover(this);" onMouseOut="pui.genie.unhover(this);" onClick="selectMenuOption(\''+w+"');\"><td>"+A+"</td></tr>",h.push(A),k.push(w))}var c,d,e="",f={},h=[],k=[];if(null!=pui["subfile menu choices"]){for(c=0;c<pui["subfile menu choices"].length;c++){var l=pui["subfile menu choices"][c];var m=null;null!=pui["subfile menu choice values"]&&(m=pui["subfile menu choice values"][c]);null==m&&(m="");a(m,l)}pui["subfile menu choices"]=
null;pui["subfile menu choice values"]=null}else{var u=ic();if(c=pui.Ph(pui["subfile option pattern2"],!0))u=new pui.Hi({pattern:c,Hm:3,Nm:function(w){return{key:w[1],label:w[w.length-1]}},ej:"sfmenu",Cm:function(w){1==pui.genie.config.showMenuOptionCode&&(w.label=w.key+"="+w.label);a(w.key,w.label)}}),Hd(u),u.process(),1==pui.genie.hideSubfileOptionText&&Jd(u);else{var r=pui.Ph(pui["subfile option pattern"],!0);for(c=0;c<u.length;c++)if(-1!=jc(u[c])&&!(jc(u[c])>=Eb||null!=pb&&u[c].parentNode!=pb)){if(u[c]&&
u[c].fieldInfo&&u[c].fieldInfo.attr&&(m=u[c].fieldInfo.attr,"27"==m||"2F"==m||"37"==m||"3F"==m))continue;if(0!==u[c].id.indexOf("window")){var q=u[c].innerHTML;if(r)for(r.lastIndex=0,d=r.exec(q);null!=d&&4==d.length;)m=d[1],l=d[d.length-1],pui.genie.hideSubfileOptionText&&(u[c].style.visibility="hidden"),1==pui.genie.config.showMenuOptionCode&&(l=d[0]),a(m,l),d=r.exec(q);else for(q=q.replace(/&nbsp;/g," "),d=q.split(" "),q=0;q<d.length;q++){l=m="";var p=d[q].substr(0,1);var t=d[q].substr(1,1);var z=
d[q].substr(2,1);("A"<=p&&"Z">=p||"0"<=p&&"9">=p)&&"="==t&&(m=p,l=d[q].substr(2,d[q].length-2),pui.genie.hideSubfileOptionText&&(u[c].style.visibility="hidden"));"0"<=p&&"9">=p&&"0"<=t&&"9">=t&&"="==z&&(m=p+t,l=d[q].substr(3,d[q].length-3),pui.genie.hideSubfileOptionText&&(u[c].style.visibility="hidden"));1==pui.genie.config.showMenuOptionCode&&(l=d[q]);if(""!=m){for(p=q+1;p<d.length&&""!=d[p]&&"="!=d[p].substr(1,1)&&"="!=d[p].substr(2,1);p++)l+=" "+d[p];a(m,l)}}}}}}null!=b&&(b.choices=h,b.yf=k);
null==pui.genie.subfileInfo&&(pui.genie.subfileInfo={});pui.genie.subfileInfo.choices=h;pui.genie.subfileInfo.choiceValues=k;return""==e?"":e='<table width="150" class="menu">'+e+"</table>"}pui.genie.hover=function(b){b.className="menuHover"};pui.genie.unhover=function(b){b.className=""};
function Pd(b){if(null!=Kb){b||(b=window.event);if(b.target)var a=b.target;else b.srcElement&&(a=b.srcElement);3==a.nodeType&&(a=a.parentNode);a=a.getAttribute("subfileLine");if(null==a)return!1;var c="I_"+a+"_"+Db;null!=pb&&(c+="_W"+qb);c=document.getElementById(c);if(null==c||c.className.match(/hide/))return!1;b.pageX&&b.pageY?(c=b.pageX,b=b.pageY):(c=Vd(b),b=Wd(b));Kb.style.left=c+"px";Kb.style.top=b+"px";Kb.style.display="block";Rd(a);a!=Ab&&Sd(Ab,!0);Ab=a;return!1}}
function Ud(){if(null!=Xd[Ca[0].screenId]&&null!=Xd[Ca[0].screenId].screen&&!yd()){var b=Xd[Ca[0].screenId].screen.subfile_row_ondblclick;if(null!=b&&""!=b)try{window.hiLine=rb,eval(b)}catch(a){pui.nb(a,"Subfile Row OnDblClick Error:\n")}}}
function Td(b){if(null!=Xd[Ca[0].screenId]&&null!=Xd[Ca[0].screenId].screen&&!yd()){var a=Xd[Ca[0].screenId].screen.subfile_row_onclick;if(null!=a&&""!=a){try{window.hiLine=rb,eval(a)}catch(d){pui.nb(d,"Subfile Row OnClick Error:\n")}return}}if(0==Db)ld("Enter");else{b||(b=window.even