/** - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì Áø·á - ¾ÏȯÀÚ¿ë¾î°Ë»ö( SPMRT01700_¾ÏȯÀÚ¿ë¾î°Ë»ö.xrw - JScript ) - Version : 1) : Ver.1.00.01 - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì **/ var xTophoinfoPath = "/root/main/tophlginfo/tophlglist"; var xMophoinfoPath = "/root/main/diagcdinfo/kcd4m"; var xDiaginfoPath = "/root/main/deptdiagcdlist/deptdiagcdinfo"; var xSelectTophoinfoPath = "/root/param/topho/tophoinfo"; //¼±Åà TophologyÄÚµå var xSelectMophoinfoPath = "/root/param/mopho/mophoinfo"; //¼±Åà Mophology ÄÚµå var xSelectDiaginfoPath = "/root/param/selectdiaginfo/selectdiaglist"; //¼±Åà Áø´ÜÄÚµå /** * @group : * @ver : 2008-12-03 * @by : ÀÌâ·Ï * @--------------------------------------------------- * @type : function * @access : public * @desc : È­¸é ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fInitialize_SPMRT01700() { // KNUH_20101207_¹Ú¼ºÈ£_start_Àǹ«±â·Ï ºÎ¼­ÄÚµå °¡Á®¿À±â mmbfGetHardCodeInfo("/root/send/reqdata", "/root/temp/dutplcecd", 5502); // KNUH_20101207_¹Ú¼ºÈ£_end model.removeNodeset(xDiaginfoPath); model.removeNodeset(xMophoinfoPath); model.removeNodeset(xSelectDiaginfoPath); model.removeNodeset(xSelectMophoinfoPath); model.removeNodeset(xTophoinfoPath); model.removeNodeset(xSelectTophoinfoPath); if(checkOpener()){ var search = opener.javascript.getParameter("SPMRT01700_SEARCHDATA"); // parameter ¿ë¾îÄÚµå var flag = opener.javascript.getParameter("SPMRT01700_FLAG"); //¿ë¾î ±¸ºÐ var stndd = opener.javascript.getParameter("stndd"); //¿ë¾î ±âÁØÀÏÀÚ model.makeValue("/root/hidden/search/flag", flag); if(flag == "1"){ if (search.length > 0){ model.setValue("/root/main/cond/tophodata", search); fDiagSearch(); } }else if(flag == "2"){ if (search.length > 0){ model.setValue("/root/main/cond/mophodata", search); fDiagSearch(); } }else if(flag == "3"){ if (search.length > 0){ model.setValue("/root/main/cond/reqdata", search); fDiagSearch(); } } }else{ model.removeNodeset("/root/hidden/search"); } //2013/06/19 Start fGethardcdArrayList(new Array('hardcd5940|5940'), new Array('/root/init')); //2013/06/19 End model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï * @--------------------------------------------------- * @type : function * @access : public * @desc : Tophology/Morphology/icd10 ÄÚµå Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fDiagSearch(){ var flag = model.getValue("/root/hidden/search/flag"); if(flag==1){ var cond1 = model.getValue("/root/main/cond/tophosrchflag"); var cond5 = model.getValue("/root/main/cond/tophodata"); if(cond5.length < 1){ messageBox("°Ë»ö¾î¸¦ ", "C002"); return; } model.removenode("/root/send"); model.makeNode("/root/send"); model.makeValue("/root/send/indxflag", "1"); if(cond1 == "code"){//ÄÚµå·Î °Ë»ö model.makeValue("/root/send/diagflag", "C"); model.makeValue("/root/send/srchnm", cond5.toUpperCase()); }else{ model.makeValue("/root/send/diagflag", "WORD"); } if(cond1 == "word"){ if((cond5 != "") && (fIsHangul(cond5) == "E")){ model.makeValue("/root/send/diagflag", "E"); model.makeValue("/root/send/srchnm", cond5); }else if((cond5 != "") && (fIsHangul(cond5) == "H")){ model.makeValue("/root/send/diagflag", "H"); model.makeValue("/root/send/srchnm", cond5); } } model.makeValue("/root/send/flag", "srch"); var stndd = opener.javascript.getParameter("stndd"); if(stndd!=""){ model.makeValue("/root/send/stndd",stndd); } submit("TRMRT00502"); }else if(flag ==2)//mophology { var cond1 = model.getValue("/root/main/cond/mophosrchflag"); var cond5 = model.getValue("/root/main/cond/mophodata"); if(cond5.length < 1){ messageBox("°Ë»ö¾î¸¦ ", "C002"); return; } model.removenode("/root/send"); model.makeNode("/root/send"); if(cond1 == "code"){//ÄÚµå·Î °Ë»ö model.makeValue("/root/send/srchflag", "C"); model.makeValue("/root/send/srchnm", cond5.toUpperCase()); }else{ model.makeValue("/root/send/srchflag", ""); } if(cond1 == "word"){ if((cond5 != "") && (fIsHangul(cond5) == "E")){ model.makeValue("/root/send/srchflag", "E"); model.makeValue("/root/send/srchnm", cond5); }else if((cond5 != "") && (fIsHangul(cond5) == "H")){ model.makeValue("/root/send/srchflag", "H"); model.makeValue("/root/send/srchnm", cond5); } } var stndd = opener.javascript.getParameter("stndd"); if(stndd!=""){ model.makeValue("/root/send/stndd",stndd); } // ICDO3·Î º¯°æ 2009-05-29 //submit("TRMRT00209"); submit("TRMRT01701"); }else if(flag==3){//Áø´Ü¿ë¾î var cond1 = model.getValue("/root/main/cond/srchflag"); var cond5 = model.getValue("/root/main/cond/reqdata"); if(cond5.length < 1){ messageBox("°Ë»ö¾î¸¦ ", "C002"); return; } model.removenode("/root/send"); model.makeNode("/root/send"); model.makeValue("/root/send/indxcd", "null"); model.makeValue("/root/send/indxflag", "0"); // KNUH_20101207_¹Ú¼ºÈ£_start_Àǹ«±â·Ï ºÎ¼­ÄÚµå °¡Á®¿À±â var dutplcecd = model.getValue("/root/temp/dutplcecd/hardcd/hardcd"); //model.makeValue("/root/send/deptcd", "3230000000");//ÀÇ·áÁ¤º¸ÆÀ Áø´Ü¿ë¾î¸¸ model.makeValue("/root/send/deptcd", dutplcecd);//ÀÇ·áÁ¤º¸ÆÀ Áø´Ü¿ë¾î¸¸ // KNUH_20101207_¹Ú¼ºÈ£_end if(cond1 == "code"){ model.makeValue("/root/send/srchflag", "C"); Srchnm = cond5.toUpperCase(); model.makeValue("/root/send/srchnm", Srchnm); }else{ model.makeValue("/root/send/srchnm", ""); } if(cond1 == "word"){ if((cond5 != "") && (fIsHangul(cond5) == "E")){ model.makeValue("/root/send/srchflag", "E"); model.makeValue("/root/send/srchnm", cond5); }else if((cond5 != "") && (fIsHangul(cond5) == "H")){ model.makeValue("/root/send/srchflag", "H"); model.makeValue("/root/send/srchnm", cond5); } } var stndd = opener.javascript.getParameter("stndd"); if(stndd!=""){ model.makeValue("/root/send/stndd",stndd); } submit("TRMRT01600"); } } /** * @desc : ´õºíŬ¸¯½Ã ±×¸®µå·Î ³»¸®±â * @ * @param ://diag * @return : * @author : ÀÌâ·Ï * @--------------------------------------------------- */ function fAddDiagHist(dgRow) { var sDiagCD = model.getValue("/root/main/deptdiagcdlist/deptdiagcdinfo[" + dgRow + "]/termcd"); var sDiagEngNM = model.getValue("/root/main/deptdiagcdlist/deptdiagcdinfo[" + dgRow + "]/termengnm"); var sDiagHngNM = model.getValue("/root/main/deptdiagcdlist/deptdiagcdinfo[" + dgRow + "]/termhngnm"); var iFndRow = grd_selectdiag.findRow(sDiagCD, 1, 0, "true", "true");//Áߺ¹ÇÑ Ç༱Åýà var diagflag = model.getValue("/root/temp/diaginfo/diagflag"); if(iFndRow < 0){ if(diagflag=="Y"){ model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diagcd" , sDiagCD); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/dispdiagcd", sDiagCD); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diagengnm" , sDiagEngNM); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diaghngnm" , sDiagHngNM); }else{ grd_selectdiag.addRow(false); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diagcd" , sDiagCD); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/dispdiagcd", sDiagCD); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diagengnm" , sDiagEngNM); model.setValue("/root/param/selectdiaginfo/selectdiaglist[" + grd_selectdiag.row + "]/diaghngnm" , sDiagHngNM); } }else if(iFndRow > 0) { messageBox("ÀÌ¹Ì ¼±ÅÃÇϽŠÄÚµå","E008"); return; } model.refresh(); model.removeNodeset("/root/temp/diaginfo/diagflag"); } /** * @desc : ´õºíŬ¸¯½Ã ±×¸®µå·Î ³»¸®±â * @ * @param ://mophology * @return : * @author : ÀÌâ·Ï * @--------------------------------------------------- */ function fAddMophoHist(mRow){ var kcd4mseqno = model.getValue(xMophoinfoPath + "[" + mRow + "]/kcd4mseqno"); var kcd4mengnm = model.getValue(xMophoinfoPath + "[" + mRow + "]/kcd4mengnm"); var kcd4mhngnm = model.getValue(xMophoinfoPath + "[" + mRow + "]/kcd4mhngnm"); var morphlgccd = model.getValue(xMophoinfoPath + "[" + mRow + "]/morphlgccd"); var iFndRow1 = grd_mophoinfo.findRow(morphlgccd, 1, 0, "true", "true");//Áߺ¹ÇÑ Ç༱Åýà var iFndRow2 = grd_mophoinfo.findRow(kcd4mseqno, 1, 4, "true", "true");//Áߺ¹ÇÑ Ç༱Åýà var diagflag = model.getValue("/root/temp/diaginfo/diagflag"); if((iFndRow1 > 0) && (iFndRow2 > 0)){ messageBox("À̹̼±ÅÃÇϽÅÄÚµå","E008"); return; }else{ if(diagflag=="Y"){ model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diagcd" , morphlgccd); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/dispdiagcd" , morphlgccd); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diagengnm" , kcd4mengnm); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diaghngnm" , kcd4mhngnm); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/seqno" , kcd4mseqno); }else{ grd_mophoinfo.addRow(false); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diagcd" , morphlgccd); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/dispdiagcd" , morphlgccd); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diagengnm" , kcd4mengnm); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/diaghngnm" , kcd4mhngnm); model.setValue(xSelectMophoinfoPath + "[" + grd_mophoinfo.row + "]/seqno" , kcd4mseqno); } } model.refresh(); model.removeNodeset("/root/temp/diaginfo/diagflag"); } function fAddTophoHist(toRow) { var Seqno = model.getValue(xTophoinfoPath + "[" + toRow + "]/seqno"); var sTophologyCD= model.getValue(xTophoinfoPath + "[" + toRow + "]/tophlgcd"); var sToEngNM = model.getValue(xTophoinfoPath + "[" + toRow + "]/engnm"); var sToHngNM = model.getValue(xTophoinfoPath + "[" + toRow + "]/hngnm"); var iFndRow1 = grd_tophoinfo.findRow(Seqno, 1, 1, "true", "true");//Áߺ¹ÇÑ Ç༱Åýà var iFndRow2 = grd_tophoinfo.findRow(sTophologyCD, 1, 2, "true", "true");//Áߺ¹ÇÑ Ç༱Åýà var diagflag = model.getValue("/root/temp/diaginfo/diagflag"); if((iFndRow1 > 0)&&(iFndRow2 > 0)){ messageBox("ÀÌ¹Ì ¼±ÅÃÇϽŠÄÚµå","E008"); return; }else{ if(diagflag=="Y"){ model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/seqno" , Seqno); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/tophlgcd" , sTophologyCD); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/engnm" , sToEngNM); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/hngnm" , sToHngNM); }else{ grd_tophoinfo.addRow(false); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/seqno" , Seqno); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/tophlgcd" , sTophologyCD); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/engnm" , sToEngNM); model.setValue("/root/param/topho/tophoinfo[" + grd_tophoinfo.row + "]/hngnm" , sToHngNM); } } model.refresh(); model.removeNodeset("/root/temp/diaginfo/diagflag"); } /** * @desc : ¿ë¾î Ãß°¡ ¹öư Ŭ¸¯½Ã * : * @ * @param : * @return : * @author : ÀÌâ·Ï * @--------------------------------------------------- */ function fAddBtnTerm(pGrid) { var flag = model.getValue("/root/hidden/search/flag"); if(pGrid=="grd_tophlglist") { var diagRow = grd_tophlglist.selectedRows; for(var i = 0; i < diagRow; i++){ var toRow = grd_tophlglist.selectedRow(i); fAddTophoHist(toRow); } }else if(pGrid=="grd_icdo3list") { var mrow = grd_icdo3list.selectedRows; for(var i = 0; i < mrow; i++){ var mRow = grd_icdo3list.selectedRow(i); fAddMophoHist(mRow); } }else if(pGrid=="grd_diaglist"){ var totrow = grd_diaglist.selectedRows; for(var i = 0; i < totrow; i++){ var dgRow = grd_diaglist.selectedRow(i); fAddDiagHist(dgRow); } } } /** * @desc : ÃʱâÈ­ ¹öư Ŭ¸¯½Ã * : * @ * @param :, * @return : * @author : ÀÌâ·Ï btn_Cdiag * @--------------------------------------------------- */ function fCleanTerm(flag) { if(flag == "T"){ model.removeNodeset(xTophoinfoPath); model.removeNodeset(xSelectTophoinfoPath); grd_tophlglist.rebuild(); grd_tophoinfo.rebuild(); }else if(flag == "M"){ model.removeNodeset(xMophoinfoPath); model.removeNodeset(xSelectMophoinfoPath); grd_icdo3list.rebuild(); grd_mophoinfo.rebuild(); }else if(flag=="D"){ model.removeNodeset(xDiaginfoPath); model.removeNodeset(xSelectDiaginfoPath); grd_diaglist.rebuild(); grd_selectdiag.rebuild(); } model.refresh(); } /** * @desc : ¼±Åà ¿ë¾î ÇàÃß°¡ * @id : * @event : * @return : void * @authur : */ function fAddRow_Termlist(tGrid) { model.makeNode("/root/temp/diaginfo/diagflag"); model.makeValue("/root/temp/diaginfo/diagflag","Y"); if(tGrid=="grd_tophoinfo"){ var toRow = grd_tophoinfo.row - grd_tophoinfo.fixedRows + 1; if(toRow < 1){ grd_tophoinfo.addRow(); }else if(toRow >= 1){ grd_tophoinfo.insertRow( toRow, "below", true); } }else if(tGrid=="grd_mophoinfo"){ var mRow = grd_mophoinfo.row - grd_mophoinfo.fixedRows + 1; if(mRow < 1){ grd_mophoinfo.addRow(); }else if(mRow >= 1){ grd_mophoinfo.insertRow( mRow, "below", true); } }else if(tGrid=="grd_selectdiag"){ var diagRow = grd_selectdiag.row - grd_selectdiag.fixedRows + 1; if(diagRow < 1){ grd_selectdiag.addRow(); }else if(diagRow >= 1){ grd_selectdiag.insertRow( diagRow, "below", true); } } model.refresh(); } /** * @desc : ¼±Åà ¿ë¾î Çà»èÁ¦ * @id : * @event : selectedRows->¼±ÅÃÇÑ ÇàÀÇ °¹¼ö ¹Ýȯ * @return : void * @authur : */ function fDelRow_Termlist(tGrid) { model.removeNodeset("/root/temp/diaginfo/diagflag"); if(tGrid=="grd_tophoinfo") //Áø´ÜÄÚµå »èÁ¦ { if(grd_tophoinfo.row < 0) { messageBox("»èÁ¦ÇÒ ÇàÀÌ ", "I004") return; } if (grd_tophoinfo.selectedRows > 0) { var selectedRows = Array(grd_tophoinfo.selectedRows);//¼±ÅÃÇÑ ÇàÀÇ °¹¼öÀ» ¹è¿­·Î ÁöÁ¤ for(i=0;i= 0 ; i--) { rowIdx = selectedRows[i]; grd_tophoinfo.deleteRow( rowIdx , false); } }else if(tGrid=="grd_mophoinfo"){ if(grd_mophoinfo.row < 0) { messageBox("»èÁ¦ÇÒ ÇàÀÌ ", "I004") return; } if (grd_mophoinfo.selectedRows > 0) { var selectedRows = Array(grd_mophoinfo.selectedRows); for(i=0;i= 0 ; i--) { rowIdx = selectedRows[i]; grd_mophoinfo.deleteRow( rowIdx , false); } }else if(tGrid=="grd_selectdiag"){ if(grd_selectdiag.row < 0) { messageBox("»èÁ¦ÇÒ ÇàÀÌ ", "I004") return; } if (grd_selectdiag.selectedRows > 0) { var selectedRows = Array(grd_selectdiag.selectedRows); for(i=0;i= 0 ; i--) { rowIdx = selectedRows[i]; grd_selectdiag.deleteRow( rowIdx , false); } } model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï * @--------------------------------------------------- * @type : function * @access : public * @desc : ´õºíŬ¸¯¹× È®ÀιöưŬ¸¯½Ã ±×¸®µå¿Í ¿¬°è(parameter) * @param : * @return : * @--------------------------------------------------- */ function fSendTermCd() { if(checkOpener()){//ÀÚ½ÅÀ» OpenÇÑ openerÀÇ ÇöÀç UID°¡ ÀÚ½ÅÀ» openÇÑ ½ÃÁ¡ÀÇ UID¿Í ºñ±³ÇÏ¿© º¯°æµÇ¾ú´ÂÁö ¿©ºÎ¸¦ ¹Ýȯ var nodepath = opener.javascript.getParameter("SPMRT01700_param_nodepath");//parameter nodepath ¼³Á¤ if(nodepath == ""){ var selectNode1 = opener.instance1.selectSingleNode("/root/temp"); if(selectNode1 == null){ opener.model.makeNode("/root/temp"); } copyNodeset("/root/temp/terminfo/tplinfo" , "/root/param/topho/tophoinfo", "replace", opener.model, model); copyNodeset("/root/temp/terminfo/icdo3info" , "/root/param/mopho/mophoinfo", "replace", opener.model, model); copyNodeset("/root/temp/terminfo/icd10info" , "/root/param/selectdiaginfo/selectdiaglist", "replace", opener.model, model); }else{ var selectnode = opener.instance1.selectSingleNode(nodepath); if(selectnode == null){ opener.model.makeNode(nodepath); } copyNodeset(nodepath, "/root/param/topho/tophoinfo", "replace", opener.model, model); copyNodeset(nodepath, "/root/param/mopho/mophoinfo", "replace", opener.model, model); copyNodeset(nodepath, "/root/param/topho/icd10info", "replace", opener.model, model); } }else{ messageBox("»óÀ§ È­¸éÀÌ º¯°æµÇ¾î µ¥ÀÌÅ͸¦ Àü´Þ", "E001"); } //2013/06/19 Start ftcodecheck(); //2013/06/19 End window.close(); } /** * @desc : T-CODEüũ */ function ftcodecheck(){ var screenid=opener.window.javascript.getScreenID() if(screenid!="SMMRD00100"){ return; }else{ var event_target=opener.window.javascript.event.target; if(event_target=="ipt_tophcd"){ var tcode=grd_tophoinfo.valuematrix(1, grd_tophoinfo.colref("tophlgcd")); var tcount = getNodeSetCnt("/root/init/hardcd5940/hardcd"); if(tcode!="" && tcode!=null){ for(var i=0; i