/** - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì Áø·á - »çº»¹ßÇà( SPMRC03200_»çº»¹ßÇà.xrw - JScript ) - Version : ÀÌâ·Ï 1) : Ver.1.00.01 - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : È­¸é ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fInit_SPMRC03200() { model.removeNodeset("/root/main/apphist/applist"); grd_apphist.refresh(); model.removeNodeset("/root/main/issinfo/emrapplist"); grd_emrapplist.refresh(); zbcfGetCodeList(new Array("P0001","M0332"),new Array("/root/init/common/ioflaglist","/root/init/common/issgoalcd"),true)//°øÅëÄÚµå if(checkOpener()){ var copyparam = opener.javascript.getParameter("SMMRI00400_reqcopy"); // »çº»¹ß±Þ°ü¸®Ã¢¿¡¼­ open À϶§ var copyparmsg = opener.javascript.getParameter("SPMRC03100_copyparam"); //ÅëÇÕ±â·ÏÁ¶È¸ openÀ϶§ if(copyparam!=""){ fGetCopyInfo(copyparam); }else if(copyparmsg!=""){ var parmsg = copyparmsg.split("¢Ë"); model.makeValue("/root/temp/appinfo/patinfo/pid" ,parmsg[0]); model.makeValue("/root/temp/appinfo/patinfo/hngnm" ,parmsg[1]); model.makeValue("/root/temp/appinfo/patinfo/ioflag" ,parmsg[2]); model.makeValue("/root/temp/appinfo/patinfo/orddd" ,parmsg[4]); model.makeValue("/root/temp/appinfo/patinfo/cretno" ,parmsg[5]); model.makeValue("/root/temp/appinfo/patinfo/appdeptcd",parmsg[6]); model.makeValue("/root/temp/appinfo/patinfo/appmanid" ,parmsg[7].substring(0,8)); } } var wndobj = getOpenWindow("SMMRI00400"); if(wndobj ==null){ open("SMMRI00400",1, "", "", "", "", "", "left:0; right:1600; width:750; height:800;"); } var paminfo = getGlobalVariable("paminfo");//»ó´çÁ¤º¸ ÀÖÀ»½Ã setCSVToNode("/root/main/result/paminfo", paminfo); if(paminfo!=""){ } var userinfo = getUserInfo("dutplcecd"); var userid = getUserId(); userid = userid.getTrim(); if(userinfo == "3230000000"){ cmb_emrorddeptcd.disabled = false; cmb_orddrid.disabled = false; zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú cmb_emrorddeptcd.refresh(); zsufGetOrdDeptDoctorList("none", getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "/root/init/userinfo/userlist", "usernm", "asc")//ÇØ´ç ÁÖÄ¡ÀÇ cmb_orddrid.refresh(); }else{ zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú model.setValue("/root/temp/appinfo/patinfo/appdeptcd",getUserInfo("dutplcecd")); cmb_emrorddeptcd.refresh(); zsufGetOrdDeptDoctorList("none", getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "/root/init/userinfo/userlist", "usernm", "asc")//ÇØ´ç ÁÖÄ¡ÀÇ model.setValue("/root/temp/appinfo/patinfo/appmanid",userid); cmb_orddrid.refresh(); } fHistSearch();//ÀÌÀü»çº»½Åû³»¿ª Á¶È¸ fCopyPatInfoList();//ÀÔ¿øÈ¸Â÷º° Á¶È¸ fAppManNmSetting(); model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ÀÌÀü»çº»¹ßÇà ³»¿ª Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fHistSearch() { model.makeValue("/root/send/cond/pid",model.getValue("/root/temp/appinfo/patinfo/pid")); if(submit("TRMRC01201")){ } model.removeNodeset("/root/send/cond"); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ȯÀÚ È¸Â÷º° Á¤º¸ Á¶È¸(ÀÔ¿ø) * @param : * @return : * @--------------------------------------------------- */ function fCopyPatInfoList() { model.makeValue("/root/send/patinfo/pid",model.getValue("/root/temp/appinfo/patinfo/pid")); if(submit("TRMRC03202")){ } model.removeNodeset("/root/send/patinfo"); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : »çº»¹ßÇà ¸ñÀû ÆË¾÷ È£Ãâ(»çº»¹ßÇà½Åû È­¸é°ú µ¿ÀÏ) * @param : * @return : * @--------------------------------------------------- */ function fIssGoalPopUp(){ var sIssUsge = ""; var sIssUsgeCnt = 0; var sIssGoalEtcYN = false; var sIssGoalEtc = ""; var sIssGoalEtcCd = ""; var sIssGoalCd = ""; var sStndRow = 0; setParameter("SPMMR02200_multichkyn", "Y"); modal("SPMMR02200"); sIssUsge = model.getValue("/root/main/issusge"); sIssUsgeCnt = model.getValue("/root/main/issusge").split("¢Ì").length; if(sIssUsge != ""){ for(var i=1; i 0){ messageBox("¼±ÅÃÇϽŠ»çº»¹ßÇà¸ñÀûÀº ÀÌ¹Ì ½ÅûµÇ¾ú½À´Ï´Ù. ´Ù½Ã","C002"); return; }*/ if(sIssGoalCd == "99"){ sIssGoalEtcYN = true; } sIssGoalEtcCd += sIssGoalCd; } if(sIssGoalEtcYN == true){ ipt_issgoaletc.disabled = false; }else{ model.setValue("/root/main/appinfo/copyinfo/issgoaletcnm",""); ipt_issgoaletc.disabled = true; } if(sIssGoalEtcCd.indexOf("06") > -1){ messageBox("Á÷ÇÒº´¿ø¿ë : ÁÖÄ¡Àǰ¡ 8°³ Á÷ÇÒ º´¿øÀ¸·Î À̵¿ÇÏ¿© ȯÀÚµµ ÇÔ²² Àü¿ø °¡±â¸¦ Èñ¸ÁÇÏ´Â °æ¿ì ¼±ÅÃ","E008"); } model.setValue("/root/main/appinfo/copyinfo/issgoaletc", sIssGoalEtc); model.setValue("/root/main/appinfo/copyinfo/issgoaletccd", sIssGoalEtcCd); } model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : »çº»¹ßÇà ±âº»Á¤º¸ Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fAppInfoSearch(){ var hRow = grd_apphist.row - grd_apphist.fixedRows +1; model.removeNodeset("/root/main/issinfo/emrapplist"); model.setValue("/root/temp/appinfo/patinfo/appdeptcd", model.getValue("/root/main/apphist/applist[" + hRow + "]/appdeptcd")); cmb_emrorddeptcd.refresh(); zsufGetOrdDeptDoctorList("none", getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "/root/init/userinfo/userlist", "usernm", "asc");//ÇØ´ç ÁÖÄ¡ÀÇ model.setValue("/root/temp/appinfo/patinfo/appmanid", model.getValue("/root/main/apphist/applist[" + hRow + "]/appdrid")); cmb_orddrid.refresh(); var issno = model.getValue("/root/main/apphist/applist[" + hRow + "]/issno") model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + hRow + "]/copyseqno")); model.makeValue("/root/send/search/pid", model.getValue("/root/main/apphist/applist[" + hRow + "]/pid")); if (submit("TRMRC01202",false)) { if(model.getValue("/root/main/appinfo/copyinfo/issgoaletc")==""){ model.setValue("/root/main/appinfo/copyinfo/issgoaletc",model.getValue("/root/main/appinfo/copyinfo/appmannm" )); ipt_issgoalnm.refresh(); } if(model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")==""){ model.setValue("/root/main/appinfo/copyinfo/issgoaletcnm",model.getValue("/root/main/appinfo/copyinfo/appmanetc" )); ipt_issgoaletc.refresh(); } } fBfAppformInfo(); btn_save.disabled = true; //ÀÌâ·Ï¼öÁ¤ 2008-12-17 (»ç¿ëÀÚ ¿ä±¸¿¡ µû¶ó ÀÇ·áÁ¤º¸ÆÀÀÌ ¾Æ´Ï¸é ÀÌÀü¹ßÇàµÈÁ¤º¸ Ŭ¸¯½Ã ¼öÁ¤ ¹öư disabled) if(issno!=""){ if(getUserInfo("dutplcecd") == "3230000000"){ btn_update.disabled = false; }else{ btn_update.disabled = true; } }else{ btn_update.disabled = false; } btn_reappinfo.disabled = false; grd_emrapplist.refresh(); model.removeNodeset("/root/send/deptcond"); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ ¹Þ¾Æ¿À´Â Á¤º¸ ÇÔ¼ö * @param : * @return : * @--------------------------------------------------- */ function fGetCopyInfo(copyparam) { var copyArr = copyparam.split("¢Ì"); var duplFlag = false; for(var i = 0; i <(copyArr.length-1); i++){ var reckeyno = copyArr[i].split("¢Ë")[15]; var sFormcd = copyArr[i].split("¢Ë")[16]; var sFormnm = copyArr[i].split("¢Ë")[8]; var orddd = copyArr[i].split("¢Ë")[11]; var ioflag = copyArr[i].split("¢Ë")[6]; //var keyno = grd_emrapplist.valueMatrix(grd_emrapplist.row, grd_emrapplist.colRef("reckeyno")); //var formcd = grd_emrapplist.valueMatrix(grd_emrapplist.row, grd_emrapplist.colRef("formcd")); for(var rowcnt = 0; rowcnt < grd_emrapplist.rows; rowcnt++){ if((model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/reckeyno") == reckeyno) && (model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/formcd") == sFormcd)){ duplFlag = true; break; } else { duplFlag = false; } } if(!(duplFlag)){ model.makeValue("/root/temp/appinfo/patinfo/pid" ,copyArr[i].split("¢Ë")[0]); model.makeValue("/root/temp/appinfo/patinfo/hngnm" ,copyArr[i].split("¢Ë")[1]); model.makeValue("/root/temp/appinfo/patinfo/sex" ,copyArr[i].split("¢Ë")[3]); if(copyArr[i].split("¢Ë")[2].length==2){ model.makeValue("/root/temp/appinfo/patinfo/age" ,copyArr[i].split("¢Ë")[2].substring(0,1)); }else{ model.makeValue("/root/temp/appinfo/patinfo/age" ,copyArr[i].split("¢Ë")[2].substring(0,2)); } grd_emrapplist.addRow(false); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/pid" ,copyArr[i].split("¢Ë")[0]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/shtno" ,copyArr[i].split("¢Ë")[4]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/chrtflag" ,copyArr[i].split("¢Ë")[5]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/ioflag" ,copyArr[i].split("¢Ë")[6]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/dschdd" ,copyArr[i].split("¢Ë")[12]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formnm" ,copyArr[i].split("¢Ë")[8]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptnm" ,copyArr[i].split("¢Ë")[9]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptcd" ,copyArr[i].split("¢Ë")[10]); if((ioflag=="O")||(ioflag=="E")){ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddd" ,orddd); }else{ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/indd" ,orddd); } model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formrecdt" ,copyArr[i].split("¢Ë")[7]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctnm" ,copyArr[i].split("¢Ë")[13]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctid" ,copyArr[i].split("¢Ë")[14]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/reckeyno" ,copyArr[i].split("¢Ë")[15]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formcd" ,copyArr[i].split("¢Ë")[16]); // 20090224 ÀÌâ·Ï Ãß°¡ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/cretno" ,copyArr[i].split("¢Ë")[17]); //alert(model.getValue("/root/temp/appinfo/patinfo/pid")); // alert(copyArr[i].split("¢Ë")[0]); //model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); duplFlag = false; } /* if((reckeyno==keyno)&&(sFormcd==formcd)){ // return; }else{ model.makeValue("/root/temp/appinfo/patinfo/pid" ,copyArr[i].split("¢Ë")[0]); model.makeValue("/root/temp/appinfo/patinfo/hngnm" ,copyArr[i].split("¢Ë")[1]); model.makeValue("/root/temp/appinfo/patinfo/sex" ,copyArr[i].split("¢Ë")[3]); if(copyArr[i].split("¢Ë")[2].length==2){ model.makeValue("/root/temp/appinfo/patinfo/age" ,copyArr[i].split("¢Ë")[2].substring(0,1)); }else{ model.makeValue("/root/temp/appinfo/patinfo/age" ,copyArr[i].split("¢Ë")[2].substring(0,2)); } grd_emrapplist.addRow(false); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/shtno" ,copyArr[i].split("¢Ë")[4]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/chrtflag" ,copyArr[i].split("¢Ë")[5]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/ioflag" ,copyArr[i].split("¢Ë")[6]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/dschdd" ,copyArr[i].split("¢Ë")[12]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formnm" ,copyArr[i].split("¢Ë")[8]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptnm" ,copyArr[i].split("¢Ë")[9]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptcd" ,copyArr[i].split("¢Ë")[10]); if((ioflag=="O")||(ioflag=="E")){ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddd" ,orddd); }else{ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/indd" ,orddd); } model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formrecdt" ,copyArr[i].split("¢Ë")[7]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctnm" ,copyArr[i].split("¢Ë")[13]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctid" ,copyArr[i].split("¢Ë")[14]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/reckeyno" ,copyArr[i].split("¢Ë")[15]); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formcd" ,copyArr[i].split("¢Ë")[16]); } */ } grd_emrapplist.colDisabled(grd_emrapplist.colRef("chrtflag"))=true; grd_emrapplist.colDisabled(grd_emrapplist.colRef("ioflag"))=true; grd_emrapplist.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : »çº»¹ßÇà ½Åû³»¿ª ÀúÀå * @param : * @return : * @--------------------------------------------------- */ function fCopySave() { model.removeNodeset("/root/send/savedata"); if(model.getValue("/root/temp/appinfo/patinfo/appdeptcd")==""){ messageBox("Áø·á°ú¸¦ ¸ÕÀú ¼±ÅÃ","I008"); return; } if(model.getValue("/root/temp/appinfo/patinfo/appmanid")==""){ messageBox("½ÅûÀǻ縦 ¼±ÅÃ","I008"); return; } if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") == ""){ model.setFocus("rdo_appmanflag"); messageBox("»çº»¹ßÇà ½ÅûÀÎÀ»", "C001"); return; } if (model.getValue("/root/main/appinfo/copyinfo/trustyn") == ""){ model.setFocus("rdo_trustyn"); messageBox("À§ÀÓÀå/Àΰ¨Áõ¸í¼­ À¯¹«¸¦", "C001"); return; } if (model.getValue("/root/main/appinfo/copyinfo/issgoaletc") == ""){ model.setFocus("ipt_issgoalnm"); messageBox("»çº»¹ßÇà¸ñÀûÀ»", "C001"); return; } grd_emrapplist.clearStatus(); // ½ÅûºÎ¼­ 1ºÎ default if (model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "0" || model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "" ){ model.makeValue("/root/send/savedata/copyinfo/emrappcopies", "1" ); } // ½Å±ÔÀÏ ¶§ if (model.getValue("/root/main/appinfo/copyinfo/status") == "") { if(model.getValue("/root/temp/appinfo/patinfo/cretno") == ""){ model.removeNodeset("/root/send/savedata/otptinfo"); model.makeValue("/root/send/savedata/otptinfo/otpt_flag","I"); // ±¸ºÐÀÚ model.makeValue("/root/send/savedata/otptinfo/otpt_pid",model.getValue("/root/temp/appinfo/patinfo/pid")); // µî·Ï¹øÈ£ model.makeValue("/root/send/savedata/otptinfo/otpt_orddd",getCurrentDate()); // Áø·áÀÏÀÚ model.makeValue("/root/send/savedata/otptinfo/otpt_orddeptcd", model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); // Áø·á°ú model.makeValue("/root/send/savedata/otptinfo/otpt_orddrid", model.getValue("/root/temp/appinfo/patinfo/appmanid")); // Áø·áÀÇ»ç model.makeValue("/root/send/savedata/otptinfo/otpt_ordtm",getCurrentTime()); // Áø·á½Ã°£ model.makeValue("/root/send/savedata/otptinfo/otpt_rsrvflag","4"); // ¿¹¾à±¸ºÐ model.makeValue("/root/send/savedata/otptinfo/otpt_instcd",getUserInfo("dutplceinstcd")); // ±â°üÄÚµå model.makeValue("/root/send/savedata/otptinfo/otpt_remfact", ""); // Âü°í»çÇ× model.makeValue("/root/send/savedata/otptinfo/sess_userid",getUserInfo("userid")); // »ç¿ëÀÚID model.makeValue("/root/send/savedata/otptinfo/otpt_medamtestmyn", "N"); // ÁøÂû·á»êÁ¤¿©ºÎ model.makeValue("/root/send/savedata/otptinfo/otpt_medamtpostyn", "Y"); // ÁøÂû·áÈĺҿ©ºÎ model.makeValue("/root/send/savedata/otptinfo/otpt_medamtfreeresn", "10"); // ÁøÂû·á¹Ì»êÁ¤»çÀ¯ } model.makeValue("/root/send/savedata/copyinfo/status", "i"); model.makeValue("/root/send/savedata/copyinfo/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); model.makeValue("/root/send/savedata/copyinfo/appdd" ,getCurrentDate()); if(model.getValue("/root/main/appinfo/copyinfo/appmanflag")=="9"){ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); model.makeValue("/root/send/savedata/copyinfo/appmanetc" ,ipt_appmannm.currentText); }else{ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); } model.makeValue("/root/send/savedata/copyinfo/trustyn" ,model.getValue("/root/main/appinfo/copyinfo/trustyn")); if(model.getValue("/root/main/appinfo/copyinfo/issgoaletccd") == "99"){ // »çº»¹ßÇà¸ñÀûÀÌ ±âŸÀÏ °æ¿ì model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" , model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoaletcnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); }else{ model.makeValue("/root/send/savedata/copyinfo/issgoaletc" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletc")) model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); } model.makeValue("/root/send/savedata/copyinfo/delivefact" ,model.getValue("/root/main/appinfo/copyinfo/delivefact")); if((model.getValue("/root/temp/appinfo/patinfo/ioflag")=="O")||(model.getValue("/root/temp/appinfo/patinfo/ioflag")=="S")){ model.makeValue("/root/send/savedata/copyinfo/orddd" ,model.getValue("/root/temp/appinfo/patinfo/orddd")); }else{ model.makeValue("/root/send/savedata/copyinfo/orddd" ,model.getValue("/root/temp/appinfo/patinfo/indd")); } model.makeValue("/root/send/savedata/copyinfo/cretno" ,model.getValue("/root/temp/appinfo/patinfo/cretno")); var userinfo = getUserInfo("dutplcecd"); if(userinfo == "3230000000"){ model.makeValue("/root/send/savedata/copyinfo/emrordflag" ,"O"); }else{ model.makeValue("/root/send/savedata/copyinfo/emrordflag" ,model.getValue("/root/temp/appinfo/patinfo/ioflag")); } model.makeValue("/root/send/savedata/copyinfo/emrorddeptcd" ,model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); model.makeValue("/root/send/savedata/copyinfo/appdeptcd" ,model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); model.makeValue("/root/send/savedata/copyinfo/appdrid" ,model.getValue("/root/temp/appinfo/patinfo/appmanid")); grd_emrapplist.clearStatus(); for(var i = grd_emrapplist.fixedrows; i < grd_emrapplist.rows; i++) { grd_emrapplist.addStatus(i, "insert") var ioflag = model.getValue("/root/main/issinfo/emrapplist["+i+"]/ioflag"); var orddd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/orddd"); var indd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/indd"); if(orddd ==""){ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",indd); }else{ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",orddd); } } model.makeValue("/root/send/savedata/emrapplist" ,grd_emrapplist.getUpdateData()); }else if(model.getValue("/root/main/appinfo/copyinfo/status") == "u"){ if (model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "0" || model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "" ){ model.makeValue("/root/send/savedata/copyinfo/emrappcopies", "1" );} if(model.getValue("/root/main/appinfo/copyinfo/issgoaletccd") == "99"){ // »çº»¹ßÇà¸ñÀûÀÌ ±âŸÀÏ °æ¿ì model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoaletcnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); }else{ model.makeValue("/root/send/savedata/copyinfo/issgoaletc" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletc")); model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); } if(model.getValue("/root/main/appinfo/copyinfo/appmanflag")=="9"){ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,ipt_appmannm.currentText); }else{ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); } model.makeValue("/root/send/savedata/copyinfo/delivefact" ,model.getValue("/root/main/appinfo/copyinfo/delivefact")); model.makeValue("/root/send/savedata/copyinfo/trustyn" ,model.getValue("/root/main/appinfo/copyinfo/trustyn")); model.makeValue("/root/send/savedata/copyinfo/copyseqno" ,model.getValue("/root/main/appinfo/copyinfo/copyseqno")); model.makeValue("/root/send/savedata/copyinfo/emrordflag" ,model.getValue("/root/main/appinfo/copyinfo/emrordflag")); model.makeValue("/root/send/savedata/copyinfo/emrorddeptcd " ,model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd")); model.makeValue("/root/send/savedata/copyinfo/status" ,model.getValue("/root/main/appinfo/copyinfo/status")); model.makeValue("/root/send/savedata/copyinfo/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); model.makeValue("/root/send/savedata/copyinfo/appdd" ,getCurrentDate()); model.makeValue("/root/send/savedata/copyinfo/orddd" ,model.getValue("/root/main/appinfo/copyinfo/orddd")); model.makeValue("/root/send/savedata/copyinfo/cretno" ,model.getValue("/root/main/appinfo/copyinfo/cretno")); model.makeValue("/root/send/savedata/copyinfo/appdeptcd" ,model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); model.makeValue("/root/send/savedata/copyinfo/appdrid" ,model.getValue("/root/temp/appinfo/patinfo/appamanid")); model.makeValue("/root/send/savedata/copyinfo/copyseqno" ,model.getValue("/root/main/appinfo/copyinfo/copyseqno")); grd_emrapplist.clearStatus(); for(var i = grd_emrapplist.fixedrows; i < grd_emrapplist.rows; i++) { grd_emrapplist.addStatus(i, "update"); var ioflag = model.getValue("/root/main/issinfo/emrapplist["+i+"]/ioflag"); var orddd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/orddd"); var indd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/indd"); if(orddd ==""){ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",indd); }else{ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",orddd); } } model.makeValue("/root/send/savedata/emrapplist" ,grd_emrapplist.getUpdateData()); } if(submit("TXMRC01201")==true){ messageBox("ÀúÀå","I002"); }else{ mssageBox("ÀúÀåÀ»","E009"); } model.close(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ÀÇ»çÈ­¸é¿¡¼­ »çº»½Åûâ open½Ã ÅëÇÕ±â·ÏÁ¶È¸ ȯÀÚ¾ÆÀ̵ð¶û ºñ±³ ÇÔ¼ö * @param : * @return :pid= ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ ÀÇ È¯ÀÚ ¾ÆÀ̵ð * @--------------------------------------------------- */ function fGetCopyCmpPid(pid) { var spid = model.getValue("/root/main/result/paminfo/list/pid"); var orddd = model.getValue("/root/main/result/paminfo/list/orddd"); var indd = model.getValue("/root/main/result/paminfo/list/indd"); var hngnm = model.getValue("/root/main/result/paminfo/list/hngnm"); var sex = model.getValue("/root/main/result/paminfo/list/sex"); var age = model.getValue("/root/main/result/paminfo/list/age"); var cretno = model.getValue("/root/main/result/paminfo/list/cretno"); if(pid ==spid){ model.setValue("/root/temp/appinfo/patinfo/pid" ,pid); if((model.getValue("/root/main/result/paminfo/list/ioflag")=="O")||(model.getValue("/root/main/result/paminfo/list/ioflag")=="S")){ model.setValue("/root/temp/appinfo/patinfo/orddd" ,orddd); model.setValue("/root/temp/appinfo/patinfo/ioflag" ,model.getValue("/root/main/result/paminfo/list/ioflag")); }else{ model.setValue("/root/temp/appinfo/patinfo/indd" ,indd); model.setValue("/root/temp/appinfo/patinfo/ioflag" ,model.getValue("/root/main/result/paminfo/list/ioflag")); } model.setValue("/root/temp/appinfo/patinfo/hngnm" ,hngnm); model.setValue("/root/temp/appinfo/patinfo/cretno",model.getValue("/root/main/result/paminfo/list/cretno")); }else if(pid!=spid){ messageBox("ȯÀÚÁ¤º¸°¡","E004"); return; } var userinfo = getUserInfo("dutplcecd"); var userid = getUserId(); userid = userid.getTrim(); if(userinfo == "3230000000"){ cmb_emrorddeptcd.disabled = false; cmb_orddrid.disabled = false; zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú cmb_emrorddeptcd.refresh(); }else{ zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú model.setValue("/root/temp/appinfo/patinfo/appdeptcd",getUserInfo("dutplcecd")); cmb_emrorddeptcd.refresh(); zsufGetOrdDeptDoctorList("none", getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "/root/init/userinfo/userlist", "usernm", "asc");//ÇØ´ç ÁÖÄ¡ÀÇ model.setValue("/root/temp/appinfo/patinfo/appmanid",userid); cmb_orddrid.refresh(); } fHistSearch(); model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ¿Ü·¡ Á¾ÀÌ Â÷Æ® Á¶È¸ * @param :s * @return : * @--------------------------------------------------- */ function fPaperList() { if(model.getValue("/root/temp/appinfo/patinfo/appdeptcd")==""){ messageBox("Áø·á°ú¸¦ ¸ÕÀú ¼±ÅÃ","I008"); return; } if(model.getValue("/root/temp/appinfo/patinfo/appmanid")==""){ messageBox("ÁÖÄ¡ÀǸ¦ ¼±ÅÃ","I008"); return; } var iFndRow2 = grd_emrapplist.findRow(rdo_outchrtflag.value, 0, parseInt(grd_emrapplist.colRef("formcd")), "true", "true");//Áߺ¹ ¼­½Ä check if(iFndRow2>0){ messageBox("ÀÌ¹Ì ½ÅûÇϽŠÁ¾ÀÌÂ÷Æ®","I009"); return; }else{ grd_emrapplist.additem(); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/chrtflag" ,"P"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/ioflag" ,"O"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptnm" ,cmb_emrorddeptcd.label); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptcd" ,cmb_emrorddeptcd.value); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctnm" ,cmb_orddrid.label); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctid" ,cmb_orddrid.value); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formnm" ,rdo_outchrtflag.label); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formcd" ,rdo_outchrtflag.value); model.removeNodeset("/root/init/tmp/ioflag"); model.makeValue("/root/init/tmp/ioflag","O"); } grd_emrapplist.colDisabled(grd_emrapplist.colRef("chrtflag"))=true; grd_emrapplist.colDisabled(grd_emrapplist.colRef("ioflag"))=true; grd_emrapplist.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ȸÂ÷º° ÀÔ¿ø Â÷Æ® Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fEMRChrtList() { //test=""10612189"" model.makeValue("/root/send/search/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); //model.makeValue("/root/send/search/pid" ,"10612189"); model.makeValue("/root/send/search/orddd" ,model.getValue("/root/main/copypatinfo/patinfolist/indg")); var indd = model.getValue("/root/main/copypatinfo/patinfolist/indg") model.makeValue("/root/send/search/cretno" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/cretno")); model.makeValue("/root/send/search/deptcd" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/orddeptcd")); model.makeValue("/root/send/search/chrtflag" ,"A"); model.removeNodeset("/root/main/emrinfo/emrlist"); if (submit("TRMRC01203", false) == true) { addComboItem("cmb_formcd","Àüü", "-", "below"); cmb_formcd.value="-"; } model.refresh() model.removeNodeset("/root/send/search"); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ȸÂ÷º° ÀÔ¿ø Â÷Æ® »çº» ½Åû * @param : * @return : * @--------------------------------------------------- */ function fEMRChrtListSelect() { if(model.getValue("/root/temp/appinfo/patinfo/appdeptcd")==""){ messageBox("Áø·á°ú¸¦ ¸ÕÀú ¼±ÅÃ","I008"); return; } if(model.getValue("/root/temp/appinfo/patinfo/appmanid")==""){ messageBox("ÁÖÄ¡ÀǸ¦ ¼±ÅÃ","I008"); return; } if(cmb_indg.value==""){ messageBox("ÀÔ¿ø ȸÂ÷¸¦","C002"); return; model.setFocus("cmb_indg"); } //var formcd = model.getValue("/root/main/copypatinfo/patinfolist/formcd"); //var reckeyno = model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/reckeyno"); //var iFndRow1 = grd_emrapplist.findRow(reckeyno, 0, parseInt(grd_emrapplist.colRef("reckeyno")), "true", "true");//Áߺ¹ ¼­½Ä check //var iFndRow2 = grd_emrapplist.findRow(formcd, 0 , parseInt(grd_emrapplist.colRef("formcd")), "true", "true");//Áߺ¹ ¼­½Ä check var formcd = ""; var reckeyno = ""; var duplFlag = false; if(cmb_formcd.value !="-"){ formcd = model.getValue("/root/main/copypatinfo/patinfolist/formcd"); reckeyno = model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/reckeyno"); //if((iFndRow1>0)&&(iFndRow2>0)){ //var Formcd = model.getValue("/root/main/emrinfo/emrlist/formnm"); //messageBox(Formcd+"Àº(´Â) ÀÌ¹Ì ½ÅûÇϽм­½ÄÁö","I009"); for(var rowcnt = 0; rowcnt < grd_emrapplist.rows; rowcnt++){ if((model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/reckeyno") == reckeyno) && (model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/formcd") == formcd)){ duplFlag = true; break; } else { duplFlag = false; } } if((duplFlag)){ }else{ grd_emrapplist.additem(); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formcd" ,model.getValue("/root/main/copypatinfo/patinfolist/formcd")); var formcd = model.getValue("/root/main/copypatinfo/patinfolist/formcd"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formnm" ,model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formnm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/chrtflag" ,model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/chrtflag")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formrecdt",model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formrecdt")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/reckeyno" ,model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/reckeyno")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/ioflag" ,"I"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/indd" ,model.getValue("/root/main/copypatinfo/patinfolist/indg")); var indd = model.getValue("/root/main/copypatinfo/patinfolist/indg") model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/dschdd" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/dschdd")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptcd",model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formrecdeptcd")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptnm",model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formrecdeptnm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctnm" ,model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formrecusernm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctid" ,model.getValue("/root/main/emrinfo/emrlist[formcd='"+formcd+"']/formrecuserid")); //20090225 ÀÌâ·Ï Ãß°¡ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/cretno" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/cretno")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); grd_emrapplist.refresh(); duplFlag = false; } }else if(cmb_formcd.value=="-"){ if(getNodesetCnt(model,"/root/main/emrinfo/emrlist")-1 > 0){ for(var i=1;i<=getNodesetCnt(model,"/root/main/emrinfo/emrlist")-1;i++){ reckeyno = model.getValue("/root/main/emrinfo/emrlist["+i+"]/reckeyno"); formcd = model.getValue("/root/main/emrinfo/emrlist["+i+"]/formcd"); //var keyno = grd_emrapplist.valueMatrix (i,grd_emrapplist.colRef("reckeyno")); //var sFormcd = grd_emrapplist.valueMatrix(i,grd_emrapplist.colRef("formcd")); for(var rowcnt = 0; rowcnt < grd_emrapplist.rows; rowcnt++){ if((model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/reckeyno") == reckeyno) && (model.getValue("/root/main/issinfo/emrapplist["+ rowcnt + "]/formcd") == formcd)){ duplFlag = true; break; } else { duplFlag = false; } } if((duplFlag)){ //messageBox(sFormnm+"Àº(´Â) ÀÌ¹Ì ½ÅûÇϽм­½ÄÁö","I009"); }else{ grd_emrapplist.additem(); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formcd" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/formcd")); var formcd = model.getValue("/root/main/copypatinfo/patinfolist/formcd"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formnm" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/formnm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/chrtflag" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/chrtflag")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/formrecdt",model.getValue("/root/main/emrinfo/emrlist["+i+"]/formrecdt")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/reckeyno" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/reckeyno")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/ioflag" ,"I"); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/indd" ,cmb_indg.value); var indd = model.getValue("/root/main/copypatinfo/patinfolist/indg") model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/dschdd" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/dschdd")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptcd",model.getValue("/root/main/emrinfo/emrlist["+i+"]/formrecdeptcd")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/orddeptnm",model.getValue("/root/main/emrinfo/emrlist["+i+"]/formrecdeptnm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctnm" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/formrecusernm")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/atdoctid" ,model.getValue("/root/main/emrinfo/emrlist["+i+"]/formrecuserid")); //20090225 ÀÌâ·Ï Ãß°¡ model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/cretno" ,model.getValue("/root/hidden/copypatinfo/patinfolist[indd='"+indd+"']/cretno")); model.makeValue("/root/main/issinfo/emrapplist["+grd_emrapplist.row+"]/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); grd_emrapplist.refresh(); duplFlag = false; } } }else{ messageBox("½ÅûÇÒ ¼­½ÄÀÌ","I004"); return; } grd_emrapplist.colDisabled(grd_emrapplist.colRef("chrtflag"))=true; grd_emrapplist.colDisabled(grd_emrapplist.colRef("ioflag"))=true; } } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ÃʱâÈ­ ¹öư * @param : * @return : * @--------------------------------------------------- */ function fAppCopyInfoClear(){ model.resetInstanceNode("/root/send"); model.resetInstanceNode("/root/main/appinfo"); model.removeNodeset("/root/main/issinfo/emrapplist"); model.resetInstanceNode("/root/result"); model.removeNodeset("/root/main/ordinfo/ordlist"); model.removeNodeset("/root/main/emrinfo/emrlist"); rdo_appmanflag.disabled = false; rdo_trustyn.disabled = false; btn_save.disabled = false; btn_issgoal.disabled = false; btn_update.disabled = true; model.makeValue("/root/main/appinfo/copyinfo/status",""); model.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ½ÅûÀο¡ µû¸¥ À§ÀÓÀåÀ¯¹Â º¯°æ * @param : * @return : * @--------------------------------------------------- */ function fAppManNmSetting() { if(model.getValue("/root/main/appinfo/copyinfo/appmanflag")!="9"){ ipt_appmannm.disabled = true; ipt_appmannm.value = ""; var appmanflag = model.getValue("/root/main/appinfo/copyinfo/appmanflag"); if(appmanflag=="1"){ rdo_trustyn.value="N"; rdo_trustyn.refresh(); }else{ rdo_trustyn.value="Y"; rdo_trustyn.refresh(); } }else{ ipt_appmannm.disabled = false; } ipt_appmannm.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : »ó´ÜÁ¤º¸ ¾øÀ»½Ã ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ ȯÀÚ Á¤º¸ ºÒ·¯¿À±â * @param : * @return : keyparam=pid¢Ëhngnm¢Ësex¢Ëage¢Ì//parameter * @--------------------------------------------------- */ function fEnterPatinfo(keyparam) { var param = keyparam.split("¢Ë"); var spid = model.getValue("/root/main/result/paminfo/list/pid"); if(param!=""){ if(getUserInfo("dutplcecd")!="3230000000"){ if(spid!=param[0]){ messageBox("»çº»½ÅûÀº Áø·áÁßÀΠȯÀÚ¿¡ ´ëÇØ¼­¸¸ ½ÅûÀÌ °¡´ÉÇÕ´Ï´Ù.\nµî·Ï¹øÈ£¸¦ »ó´Ü ȯÀÚµî·Ï¹øÈ£¿Í ÀÏÄ¡½ÃÄѼ­","C003"); return; } } model.makeValue("/root/temp/appinfo/patinfo/pid" ,param[0]); model.makeValue("/root/temp/appinfo/patinfo/hngnm" ,param[1]); model.makeValue("/root/temp/appinfo/patinfo/sex" ,param[2]); if(param[3].length ==2){ model.makeValue("/root/temp/appinfo/patinfo/age" ,param[3].substring(0,1)); }else if(param[3].length==3){ model.makeValue("/root/temp/appinfo/patinfo/age" ,param[3].substring(0,2)); } var userinfo = getUserInfo("dutplcecd"); var userid = getUserId(); userid = userid.getTrim(); if(userinfo == "3230000000"){ model.removeNodeset("/root/init/deptlist"); model.makeNode("/root/init/deptlist"); cmb_emrorddeptcd.disabled = false; cmb_orddrid.disabled = false; zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú cmb_emrorddeptcd.refresh(); }else{ model.removeNodeset("/root/init/deptlist"); model.makeNode("/root/init/deptlist"); zsdfGetInOutOrdDeptList(getUserInfo("dutplceinstcd"),"/root/init/deptlist","depthngnm","asc");//Àüü Áø·á°ú cmb_emrorddeptcd.refresh(); model.setValue("/root/temp/appinfo/patinfo/appdeptcd",getUserInfo("dutplcecd")); zsufGetOrdDeptDoctorList("none", getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "/root/init/userinfo/userlist", "usernm", "asc");//ÇØ´ç ÁÖÄ¡ÀÇ model.setValue("/root/temp/appinfo/patinfo/appmanid",userid); cmb_orddrid.refresh(); } rdo_appmanflag.refresh(); // rdo_trustyn.refresh(); ipt_issgoalnm.refresh(); rdo_outchrtflag.refresh(); txt_delivefact.refresh(); rdo_appmanflag.disabled = false; rdo_trustyn.disabled = false; btn_save.disabled = false; btn_issgoal.disabled = false; btn_update.disabled = true; model.removeNodeset("/root/main/emrinfo/emrlist"); model.removeNodeset("/root/main/issinfo/emrapplist"); fHistSearch(); fCopyPatInfoList(); model.refresh(); } } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : »çº»¹ßÇà Àç½ÅûµÈ Á¤º¸ÀúÀå * @param : * @return : * @--------------------------------------------------- */ function fReCopyAppInfoSave() { model.removeNodeset("/root/send/savedata"); if(model.getValue("/root/temp/appinfo/patinfo/appdeptcd")==""){ messageBox("Áø·á°ú¸¦ ¸ÕÀú ¼±ÅÃ","I008"); return; } if(model.getValue("/root/temp/appinfo/patinfo/appmanid")==""){ messageBox("½ÅûÀǻ縦 ¼±ÅÃ","I008"); return; } if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") == ""){ model.setFocus("rdo_appmanflag"); messageBox("»çº»¹ßÇà ½ÅûÀÎÀ»", "C001"); return; } if (model.getValue("/root/main/appinfo/copyinfo/trustyn") == ""){ model.setFocus("rdo_trustyn"); messageBox("À§ÀÓÀå/Àΰ¨Áõ¸í¼­ À¯¹«¸¦", "C001"); return; } if (model.getValue("/root/main/appinfo/copyinfo/issgoaletc") == ""){ model.setFocus("ipt_issgoalnm"); messageBox("»çº»¹ßÇà¸ñÀûÀ»", "C001"); return; } var userinfo = getUserInfo("dutplcecd"); if(userinfo == "3230000000"){ model.setValue("/root/main/appinfo/copyinfo/status",""); model.setValue("/root/temp/appinfo/patinfo/cretno",""); }else{ model.setValue("/root/main/appinfo/copyinfo/status","I"); } // ½ÅûºÎ¼­ 1ºÎ default if (model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "0" || model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "" ){ model.makeValue("/root/send/savedata/copyinfo/emrappcopies", "1" ); } if(userinfo == "3230000000"){ if(model.getValue("/root/temp/appinfo/patinfo/cretno") == ""){ model.removeNodeset("/root/send/savedata/otptinfo"); model.makeValue("/root/send/savedata/otptinfo/otpt_flag","I"); // ±¸ºÐÀÚ model.makeValue("/root/send/savedata/otptinfo/otpt_pid",model.getValue("/root/temp/appinfo/patinfo/pid")); // µî·Ï¹øÈ£ model.makeValue("/root/send/savedata/otptinfo/otpt_orddd",getCurrentDate()); // Áø·áÀÏÀÚ model.makeValue("/root/send/savedata/otptinfo/otpt_orddeptcd", model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); // Áø·á°ú model.makeValue("/root/send/savedata/otptinfo/otpt_orddrid", model.getValue("/root/temp/appinfo/patinfo/appmanid")); // Áø·áÀÇ»ç model.makeValue("/root/send/savedata/otptinfo/otpt_ordtm",getCurrentTime()); // Áø·á½Ã°£ model.makeValue("/root/send/savedata/otptinfo/otpt_rsrvflag","4"); // ¿¹¾à±¸ºÐ model.makeValue("/root/send/savedata/otptinfo/otpt_instcd",getUserInfo("dutplceinstcd")); // ±â°üÄÚµå model.makeValue("/root/send/savedata/otptinfo/otpt_remfact", ""); // Âü°í»çÇ× model.makeValue("/root/send/savedata/otptinfo/sess_userid",getUserInfo("userid")); // »ç¿ëÀÚID model.makeValue("/root/send/savedata/otptinfo/otpt_medamtestmyn", "N"); // ÁøÂû·á»êÁ¤¿©ºÎ model.makeValue("/root/send/savedata/otptinfo/otpt_medamtpostyn", "Y"); // ÁøÂû·áÈĺҿ©ºÎ model.makeValue("/root/send/savedata/otptinfo/otpt_medamtfreeresn", "10"); // ÁøÂû·á¹Ì»êÁ¤»çÀ¯ } } model.makeValue("/root/send/savedata/copyinfo/status", "i"); model.makeValue("/root/send/savedata/copyinfo/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); model.makeValue("/root/send/savedata/copyinfo/appdd" ,getCurrentDate()); if(model.getValue("/root/main/appinfo/copyinfo/appmanflag")=="9"){ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); model.makeValue("/root/send/savedata/copyinfo/appmanetc" ,ipt_appmannm.currentText); }else{ model.makeValue("/root/send/savedata/copyinfo/appmanflag" ,model.getValue("/root/main/appinfo/copyinfo/appmanflag")); model.makeValue("/root/send/savedata/copyinfo/appmannm" ,rdo_appmanflag.label); } model.makeValue("/root/send/savedata/copyinfo/trustyn" ,model.getValue("/root/main/appinfo/copyinfo/trustyn")); if(model.getValue("/root/main/appinfo/copyinfo/issgoaletccd") == "99"){ // »çº»¹ßÇà¸ñÀûÀÌ ±âŸÀÏ °æ¿ì model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoaletcnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); }else{ model.makeValue("/root/send/savedata/copyinfo/issgoaletc" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletc")) model.makeValue("/root/send/savedata/copyinfo/issgoaletccd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalcd" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletccd")); model.makeValue("/root/send/savedata/copyinfo/issgoalnm" ,model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm")); } model.makeValue("/root/send/savedata/copyinfo/delivefact" ,model.getValue("/root/main/appinfo/copyinfo/delivefact")); if((model.getValue("/root/temp/appinfo/patinfo/ioflag")=="O")||(model.getValue("/root/temp/appinfo/patinfo/ioflag")=="S")){ model.makeValue("/root/send/savedata/copyinfo/orddd" ,model.getValue("/root/temp/appinfo/patinfo/orddd")); }else{ model.makeValue("/root/send/savedata/copyinfo/orddd" ,model.getValue("/root/temp/appinfo/patinfo/indd")); } if(userinfo != "3230000000"){ var cretno = model.getValue("/root/temp/appinfo/patinfo/cretno"); if(cretno ==""){ var cretno = model.getValue("/root/main/apphist/applist/cretno"); model.makeValue("/root/send/savedata/copyinfo/cretno" ,cretno); }else{ model.makeValue("/root/send/savedata/copyinfo/cretno" ,model.getValue("/root/temp/appinfo/patinfo/cretno")); } }else if(userinfo == "3230000000"){ model.makeValue("/root/send/savedata/copyinfo/cretno" ,model.getValue("/root/temp/appinfo/patinfo/cretno")); } if(model.getValue("/root/init/tmp/ioflag")=="O"){ model.makeValue("/root/send/savedata/copyinfo/emrordflag" ,"O"); }else{ model.makeValue("/root/send/savedata/copyinfo/emrordflag" ,"I"); } model.makeValue("/root/send/savedata/copyinfo/emrorddeptcd" ,model.getValue("/root/temp/appinfo/patinfo/appdeptcd")); model.makeValue("/root/send/savedata/copyinfo/appdeptcd" ,getUserInfo("dutplcecd")); model.makeValue("/root/send/savedata/copyinfo/appdrid" ,model.getValue("/root/temp/appinfo/patinfo/appmanid")); grd_emrapplist.clearStatus(); for(var i = grd_emrapplist.fixedrows; i < grd_emrapplist.rows; i++) { grd_emrapplist.addStatus(i, "insert"); var ioflag = model.getValue("/root/main/issinfo/emrapplist["+i+"]/ioflag"); var orddd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/orddd"); var indd = model.getValue("/root/main/issinfo/emrapplist["+i+"]/indd"); if(orddd ==""){ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",indd); }else{ model.setValue("/root/main/issinfo/emrapplist["+i+"]/orddd",orddd); } } model.makeValue("/root/send/savedata/emrapplist" ,grd_emrapplist.getUpdateData()); var hRow = grd_apphist.row - grd_apphist.fixedRows +1 var IssNo = model.getValue("/root/main/apphist/applist["+hRow+"]/issno"); if(IssNo!=""){ var Msg= messageBox("Çѹø ¹ßÇàÇÑ »çº»ÀÔ´Ï´Ù.±×·¡µµ Àç½ÅûÀ»","Q004"); if(Msg=="6"){ if(submit("TXMRC01201")==true){ messageBox("Àç½ÅûÀÌ","I002"); }else{ mssageBox("Àç½ÅûÀÌ","E009"); } window.close(); }else if(Msg=="7"){ model.removeNodeset("/root/send/savedata"); fAppCopyInfoClear(); return; } }else{ var Msg= messageBox("½ÅûµÈ »çº»ÀÔ´Ï´Ù ±×·¡µµ Àç½ÅûÀ»","Q004"); if(Msg=="6"){ if(submit("TXMRC01201")==true){ messageBox("Àç½ÅûÀÌ","I002"); }else{ messageBox("Àç½ÅûÀÌ","E009"); } window.close(); }else if(Msg=="7"){ model.removeNodeset("/root/send/savedata"); fAppCopyInfoClear(); return; } } } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : üũ¹Ú½º ¼±Åýà Àü´Þ»çÇ׿¡ Àü´Þ * @param : * @return : * @--------------------------------------------------- */ function fSendChkLabelText(label) { model.setValue("/root/main/appinfo/copyinfo/delivefact",txt_delivefact.currentText+label); txt_delivefact.refresh(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ÅëÇÕºä¾î â close ½Ã »çº»½Åû â close * @param : * @return : * @--------------------------------------------------- */ function fCopyInfoClose() { window.close(); } /** * @group : * @ver : * @by : ÀÌâ·Ï 2008-08-29 * @--------------------------------------------------- * @type : function * @access : public * @desc : ¼­½Ä½ÅûÀÌ ¾øÀ» ½Ã ¸Þ¼¼Áö * @param : * @return : * @--------------------------------------------------- */ function fSaveExcp() { var msg = messageBox("»çº» ½ÅûµÈ ³»¿ªÀÌ ¾ø½À´Ï´Ù\n"+"°Ë»ç °á°ú¿¡ ´ëÇØ¼­¸¸ »çº»½ÅûÀ»","Q004" ,"\n(°Ë»ç°á°ú ½Åû³»¿ëÀº ÅØ½ºÆ®·Î Àü´Þ»çÇ׿¡ ±âÀçÇØÁÖ¼¼¿ä)"); if(msg=="6"){ fCopySave(); }else if(msg=="7"){ messageBox("»çº»½Åû Ãë¼Ò°¡","I001"); return; } } function fBfAppformInfo() { model.makeValue("/root/send/search/pid" ,model.getValue("/root/temp/appinfo/patinfo/pid")); model.makeValue("/root/send/search/copyseqno" , model.getValue("/root/main/apphist/applist[" +grd_apphist.row+ "]/copyseqno")); model.makeValue("/root/send/search/srchflag" ,"Y"); if (submit("TRMRC01102", false) == true) { } else { messageBox("Á¶È¸¸¦", "E009"); } model.refresh(); model.removeNodeset("/root/send/search"); }