/* - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì ÀÔ¿øÀÇ·Ú¼­ SPMMO00100_ÀÔ¿øÀÇ·Ú¼­.xrw - JScript ) - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì */ var sINREQFRMINFO_PATH = "/root/main/inreqfrminfo/inreqfrminfo"; var sINREQHISTLIST_PATH = "/root/main/inreqhistinfo/inreqhistlist"; var sDIAGCDLIST_PATH = "/root/main/diaginfo/diagcdlist"; var sOPCDLIST_PATH = "/root/main/diaginfo/opcdlist"; // 2013/01/21 Start // ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º ±ÇÇÑ¿©ºÎ üũ var menuauthchkyn="N"; // ¾Ë¸² ¸Þ½ÃÁö ÆË¾÷ ¿©ºÎ var msgpopupchkyn="N"; // ºí·°Å· »ç¿ë ¿©ºÎ var blockingchk="N"; // ȯÀÚ ÅÛÇÁ µî·Ï¹øÈ£ var temp_pid=""; //2013/01/21 End /* * @desc : ÀÔ¿øÀÇ·Ú¼­ È­¸é ÃʱâÈ­ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fInitialize_SPMMO00100(){ model.removeNodeset("/root/main/week/week"); model.setValue("/root/main/diaginfo/diagcdlist/diagdd", getCurrentDate()); //Áø´ÜÀÏÀÚ zbcfGetCodeList(new Array("P0020", "M0525", "P0474", "P0025", "P0026", "M0710", "P0552"), new Array("/root/init/inrsrvcnclresn", "/root/init/cnstteamlist", "/root/init/wardtypecd", "/root/init/roomgrade", "/root/init/roomtype", "/root/init/bedkind", "/root/init/hoperoom")); //zbcfGetCodeList(new Array("P0020", "P0378"), new Array("/root/init/inrsrvcnclresn", "/root/init/specroomyn")); zbcfGetKindCodeList(new Array("M0029"), new Array("P0378"), new Array("/root/init/specroomyn"), false); mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept" , "D"); //ºÎ¼­ÄÚµå ÄÞº¸ mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/warddept", "W"); //º´µ¿ÄÚµå ÄÞº¸ fReqCenterWardcdList(); addComboInstance("/root/init/centerwardcdlist", "depthngnm^wardcd", " ^-", "wardcdlist"); //ÀÇ»çÄÞº¸ ÀüüÇ׸ñ Ãß°¡ //2012/07/25 Start addComboInstance("/root/init/bedkind", "cdid^cdnm", "^", "M0710"); //º´½ÇÁ¤º¸ addComboInstance("/root/init/hoperoom", "cdid^cdnm", "-^", "P0552"); //Èñ¸Áº´½Ç //2012/07/25 End grd_calendar.dataheight = 31; // grid data height default set var param = opener.javascript.getParameter("SPMMO00100_param"); if(param.length > 0){ paramarray = param.split("¢Ë"); if(paramarray.length > 9){ btn_init.attribute("visibility") = "hidden"; btn_save.attribute("visibility") = "hidden"; btn_del.attribute("visibility") = "hidden"; } } /* model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/cdgrupid", "PK092"); //model.makeValue("/root/send/reqdata/cdgrupid", "490"); submit("TRMMO00158"); */ // ¿ø¹«°øÅëÄÚµå 󸮹æ½Ä ¼öÁ¤ by Á¶Áß·¡ 20160314 pamfGetCodeList(new Array("PK092", "PK107"), new Array("/root/init/pamcomcode/PK092list", "/root/init/pamcomcode/PK107list")); //addComboInstance("/root/init/patgrade", "cdid^cdnm", "^", "M0700"); //ȯÀÚµî±Þ //20120806 Start //ÇϵåÄÚµå Å×À̺í üũ fGetHardCDList("N", 5569, 0 , "/root/init/hardcditem"); fGetHardCDList("N", 5860, 0 , "/root/init/hardcd_5860"); //20120806 End fClkBtnInit(); var pid = opener.javascript.getParameter("SPMMO00100_pid"); if(pid.length > 0){ // ȯÀÚ¹øÈ£¸¸ ³Ñ±â´Â°æ¿ì //2012/07/20 Start model.makeValue("/root/temp/pid", opener.javascript.getParameter("SPMMO00100_pid")); //2012/07/20 End opener.javascript.clearParameter("SPMMO00100_pid"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/pid", pid); //2012/07/20 Start fSetparam(); //2012/07/20 End model.refresh(); fPatSearch(); // ȯÀÚ Á¤º¸ Á¶È¸ } else { model.setValue("/root/main/cond/year" , getCurrentDate().substr(0, 4)); //year model.setValue("/root/main/cond/month", getCurrentDate().substr(4, 2)); //month fReqInReqHistList(); //ÀÔ¿øÀÇ·Ú ³»¿ª Á¶È¸ fReqInReqCalendar(); //ÀÔ¿øÀÇ·Ú¼­ ´Þ·Â Á¶È¸ if(param.length > 1){ //parameter°¡ ÀÖ´Â °æ¿ì fReqDiagOpList(); //ÀÔ¿øÀÇ·Ú È¯ÀÚÀÇ ÇöÀçÁø´Ü Á¶È¸ }else{ //paramÀÌ ¾ø´Â °æ¿ì, »ó´ÜÁ¤º¸¿¡¼­ ȯÀÚÁ¤º¸¸¦ ¾ò´Â´Ù. var paminfocsv = getGlobalVariable("paminfo"); var patflagcsv = getGlobalVariable("patflag"); if(paminfocsv.length > 1){ try { model.copyNode("/root/main/diaginfo", opener.root.main.diaginfo); } catch(E){ fReqDiagOpList() }; model.refresh(); for (i=1; i < grd_diaglist.rows-1; i++) { model.setValue(sDIAGCDLIST_PATH+ "[" + i + "]/status" , "i"); model.setValue(sDIAGCDLIST_PATH+ "[" + i + "]/diagtypecd" , "R"); model.setValue(sDIAGCDLIST_PATH+ "[" + i + "]/cretno" , "0"); } model.makeNode("/root/main/diaginfo/opcdlist"); copyNodeType("/root/main/diaginfo/opcdlist", "/root/init/opcdlist", "after"); } } var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); //2012/08/13 Start btn_del.disabled="false"; //2012/08/13 End } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); //2012/08/13 Start btn_del.disabled="true"; //2012/08/13 End } } if (getUserInfo("dutplceinstcd") == "031") { // °ø¿ëº´»ó ½Åû½Ã º´½Ç±¸ºÐ, ´ã´çÀÚ ÀüÈ­¹øÈ£ º»¿ø¸¸ º¸ÀÌ°Ô caption18.visible = true; caption46.visible = true; combo9.visible = true; input4.visible = true; } if (getUserInfo("dutplceinstcd") == "032") { button6.attribute("visibility") = ""; // ±â°£¾àÁ¤¼­ Ä¥°îÀϰæ¿ì¸¸ º¸ÀÌ°Ô Ã³¸® cap_bedinfo.visible = false; } model.refresh(); } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ ³»¿ª Á¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqInReqHistList(){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); //model.makeValue("/root/send/reqdata/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //model.makeValue("/root/send/reqdata/cretno" , 0); //model.makeValue("/root/send/reqdata/orddeptcd", model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); //model.makeValue("/root/send/reqdata/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); submit("TRMMO00109"); //2013/01/21 Start /* * ´çÀÏ Åð¿øÀÇ Ç÷¡±×°¡ I : ÀÔ¿ø°áÁ¤¼­ ºí·°Å· * ´çÀÏ Åð¿øÀÇ Ç÷¡±×°¡ D ¶Ç´Â E : ¿¹»óÀÔ¿ø±â°£ ¿·ÀÇ ÀÔ¿ø°æ·Î¸¦ ¼±Åà */ fGetHardCDList("N", 5810, 0 , "/root/init/hardcd_5810"); blockingchk=model.getValue("/root/init/hardcd_5810/hardcd[cdseqno='1']/hardcd"); if(blockingchk=="Y"){ var dschordtype = model.getValue("/root/main/inreqhistinfo/dschchkyn/ordtype"); if(dschordtype=="I" && msgpopupchkyn=="N"){ messageBox("´çÀÏ Åð¿øÇÑ È¯ÀÚ·Î ÀÔ¿øÀÇ·Ú¼­ °áÁ¤Àº ºÒ°¡´ÉÇÕ´Ï´Ù.\n°áÁ¤À» ÇØ¾ßÇÏ´Â °æ¿ì ¿ø¹«ÆÀÀ¸·Î ¿¬¶ô", "I008"); msgpopupchkyn="Y"; }else if(dschordtype=="D" && msgpopupchkyn=="N"){ messageBox("´çÀÏ DSC ¶Ç´Â CHEMO·Î Åð¿øÇÑ", "I005"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/erreglyn", dschordtype); msgpopupchkyn="Y"; }else if(dschordtype=="E" && msgpopupchkyn=="N"){ messageBox("´çÀÏ ÀÀ±Þ½Ç¿¡¼­ Åð¿øÇÑ", "I005"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/erreglyn", dschordtype); msgpopupchkyn="Y"; } } model.refresh(); //2013/01/21 End } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ Áø´Ü,¼ö¼ú ¸®½ºÆ® Á¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqInReqDiagOpList(){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.makeValue("/root/send/reqdata/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //ÀÔ¿øÈñ¸ÁÀÏÀÚ model.makeValue("/root/send/reqdata/cretno" , 0); model.makeValue("/root/send/reqdata/orddeptcd", model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.makeValue("/root/send/reqdata/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); submit("TRMMO00112"); grd_diaglist.addRow(true, true); //grd_oplist.addRow(true, true); model.recalculate(); } /** * @desc : ÀÔ¿ø³»¿ª ¸®½ºÆ® Ŭ¸¯½Ã -> ÀÔ¿ø³»¿ª Á¤º¸ display * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fDispInReqHistInfo(currow){ var orddeptcd = model.getValue(sINREQHISTLIST_PATH + "[" + currow + "]/orddeptcd"); mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", orddeptcd, "0330", "", "M", "", "", "P"); //2012/07/18 Start mmbfGetUserComboList("/root/send/reqdata", "/root/init/atdoctlist", orddeptcd, "0330", "", "A", "", "", "P"); model.makeValue("/root/temp/inrsrvstat", model.getValue(sINREQHISTLIST_PATH + "[" + currow + "]/inrsrvstat")); model.makeValue("/root/temp/inflag", model.getValue(sINREQHISTLIST_PATH + "[" + currow + "]/inflag")); //2012/07/18 End mmbfGetSubDeptComboList("/root/send/reqdata", "/root/init/subdeptinfo", orddeptcd); addComboInstance("/root/init/subdeptinfo", "subdeptnm^subdeptcd", " ^-", "subdeptlist"); //ÀÇ»çÄÞº¸ ÀüüÇ׸ñ Ãß°¡ model.copyNode(sINREQFRMINFO_PATH, sINREQHISTLIST_PATH + "[" + currow + "]"); model.setValue(sINREQFRMINFO_PATH + "/status", "u"); model.makeNode("/root/temp/inreqfrminfo"); // CopyNode Çϱâ À§ÇØ Node»ý¼º model.copyNode("/root/temp/inreqfrminfo", sINREQFRMINFO_PATH); //½Å±Ô ÀúÀåÀÎÁö, ±âÁ¸ÀÇ ³»¿ª ¼öÁ¤ÀÎÁö¸¦ ÆÇ´ÜÇϱâ temp instance¿¡ º¹»ç // DRG¿©ºÎ¿¡¼­ YÀÏ °æ¿ì DRG¼öÁ¤¹öưÀ» Ȱ¼ºÇÏ var drgyn = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/drgyn"); if(drgyn=="Y"){ button7.disabled=false; } model.refresh(); } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ ³»¿ª »èÁ¦ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fDelInReqHistList(){ var inrsrvcnclresn = model.getValue(sINREQFRMINFO_PATH + "/inrsrvcnclresn"); if(inrsrvcnclresn == ""){ messageBox("ÀÔ¿øÀÇ·Ú Ãë¼Ò »çÀ¯¸¦", "C002"); return; } model.setValue(sINREQFRMINFO_PATH + "/status" , "d"); model.setValue(sINREQFRMINFO_PATH + "/inrsrvstat", "X"); for(var i = 1; i < grd_diaglist.rows - 1; i++){ model.setValue(sDIAGCDLIST_PATH + "[" + i + "]/status", "d"); } for(var i = 1; i < grd_oplist.rows - 1; i++){ model.setValue(sOPCDLIST_PATH + "[" + i + "]/status", "d"); } var saveinreq = getNodeListCSV(model.instance1.selectNodes(sINREQFRMINFO_PATH)); var savediag = getNodeListCSV(model.instance1.selectNodes(sDIAGCDLIST_PATH)); var saveop = getNodeListCSV(model.instance1.selectNodes(sOPCDLIST_PATH)); model.makeValue("/root/send/savedata/inreq", saveinreq); model.makeValue("/root/send/savedata/diag" , savediag); model.makeValue("/root/send/savedata/op" , saveop); group1.visible = false; if(submit("TXMMO00102") == true){ //2012/07/19 Start var pamInfoCvs = getGlobalVariable("paminfo"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö if(pamInfoCvs != null && pamInfoCvs != ""){ model.makeNode("/root/main/result/paminfo/list"); setCSVToNode ("/root/main/result/paminfo", pamInfoCvs); if(model.getValue("/root/main/result/paminfo/list/pid")==model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){ //»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ °°À»½Ã model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/result/paminfo/list/pid")); model.makeValue("/root/send/reqdata/orddd", model.getValue ("/root/main/result/paminfo/list/indd")); model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/result/paminfo/list/cretno")); model.makeValue("/root/send/reqdata/decisionkind", "X"); submit("TXMMO26002"); }else if(model.getValue("/root/main/result/paminfo/list/pid")!=model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){//»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ Ʋ¸±½Ã model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", ipt_pid.value); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "X"); submit("TXMMO26002"); } }else{ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", ipt_pid.value); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "X"); submit("TXMMO26002"); } /* if(model.getValue("/root/temp/inrsrvstat")=="S" && model.getValue("/root/temp/inflag")=="G"){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "X"); if(submit("TXMMO26002")){ if(opener.javascript.getParameter("opener_id")=="SPMMO26000"){ opener.opener.javascript.setParameter("adflag", "-"); } } }else if(model.getValue("/root/temp/inrsrvstat")=="T" && model.getValue("/root/temp/inflag")=="G" && grd_inreqhistlist.rows == "1"){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "X"); if(submit("TXMMO26002")){ if(opener.javascript.getParameter("opener_id")=="SPMMO26000"){ opener.opener.javascript.setParameter("adflag", "-"); } } } }*/ //2012/07/19 End fReqInReqHistList(); fReqInReqCalendar(); //ÀÔ¿øÀÇ·Ú¼­ ´Þ·Â Á¶È¸ fCtrlObjDisable(false); //disabled ÇØÁ¦ fClkBtnInit(); //È­¸éÃʱâÈ­ //2012/06/19 Start fSetparam(); //ÆÄ¶ó¹ÌÅÍ °ª ¼³Á¤ //2012/06/19 End }else{ fCtrlObjDisable(false); //disabled ÇØÁ¦ } var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); } //2013/01/23 Start ÀÔ¿øÀÇ·Ú³»¿ª »èÁ¦ÈÄ¿¡ ¿¹»óÀÔ¿ø±â°£ÀÇ ÀÔ¿ø°æ·ÎÀÇ ¶ôÀ» Ç®¾îÁÜ cmb_erreglyn.disabled=false; //2013/01/23 End model.refresh(); } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ ´Þ·Â Á¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqInReqCalendar(){ model.removeNodeset("/root/main/week/week"); model.removeNodeset("/root/main/calendar/calendar"); model.refresh(); var year = model.getValue("/root/main/cond/year"); var month = model.getValue("/root/main/cond/month"); var orgyear = year; var orgmonth = month; model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/fromdd" , year.concat(month).concat("01")); if(month == 12){ //12¿ùÀÎ °æ¿ì, ÇØ¸¦ ³Ñ°Ü¼­ °è»êÇÑ´Ù. year++; year = year.toString(); month = "01"; }else{ month = eval(month) + 1; if(month < 10){ month = "0".concat(month); } } model.makeValue("/root/send/reqdata/todd" , year.concat(month).concat("01")); model.makeValue("/root/send/reqdata/basedd" , ("" + orgyear + "").concat(orgmonth)); model.makeValue("/root/send/reqdata/orddeptcd", model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); if(submit("TRMMO00110")){ fMakeCalendar(); //Á¶È¸ ÈÄ ´Þ·Â °ªÀ» ¼³Á¤ } } /** * @desc : ´Þ·Â°ª ¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fMakeCalendar(){ model.refresh(); grd_calendar.addRow(false, true); var row = 0; var col = 0; var patsum = 0; var totcnt = getNodeSetCnt("/root/main/calendar/calendar"); for(var i = 1; i <= totcnt ; i++){ row = model.getValue("/root/main/calendar/calendar[" + i + "]/week"); col = model.getValue("/root/main/calendar/calendar[" + i + "]/day") - 1; patsum = model.getValue("/root/main/calendar/calendar[" + i + "]/patsum"); dutflag = model.getValue("/root/main/calendar/calendar[" + i + "]/dutflag"); if(dutflag == 4){ //Åä grd_calendar.cellstyle("color", row, col) = "#0000FF"; }else if(dutflag == 8){ //ÀÏ grd_calendar.cellstyle("color", row, col) = "#FF0000"; }else{ //ÈÞÀÏ grd_calendar.cellstyle("color", row, col) = "#000000"; } grd_calendar.valueMatrix(row, col) = i + "\n(" + patsum + ")"; if(col == 6){ grd_calendar.addRow(false, true); } } grd_calendar.rebuild(); } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ ÀúÀå, ±âÁ¸ÀÇ ³»¿ªÀ» ¼öÁ¤ÇÑ °æ¿ì, º¯°æ¿©ºÎ °Ë»ç * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSaveInReq(){ var sInrsrvstat = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat"); if (isNull(sInrsrvstat)) { //model.setValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat", "T"); messageBox("ÀÔ¿øÀÇ·Ú¼­ Á¾·ù(¿¹¾à/°áÁ¤)À» ÁöÁ¤ÇϽʽÿÀ", "I"); return; } var status = model.getValue(sINREQFRMINFO_PATH + "/status"); var displayrow = grd_inreqhistlist.row; //¾Ï¼¾ÅÍ º´µ¿ÀÏ °æ¿ì º´µ¿ÀÌ ÁöÁ¤µÇÁö ¾ÊÀ¸¸é ¸Þ½ÃÁö¸¦ ¶ç¿öÁÜ var wardtypecd = model.getValue(sINREQFRMINFO_PATH + "/wardtypecd"); if (wardtypecd =="01") { var specwardcd = model.getValue(sINREQFRMINFO_PATH + "/specwardcd"); if (specwardcd == "-" || isNull(specwardcd)) { messageBox("¾Ï¼¾Åͺ´µ¿À» ÁöÁ¤ÇϽʽÿÀ", "I"); return; } } if (status != "" ) { // ¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ¼öÁ¤À» ÇÒ ¼ö ¾øµµ·Ï Á¶°Ç Ãß°¡ (2008.09.26 ±è¿µÇÐ) var inflag = model.getValue(sINREQFRMINFO_PATH + "/inflag"); var indd = model.getValue(sINREQFRMINFO_PATH + "/indd"); if (inflag == "Y" || indd != "00000000" ) { messageBox("¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ÀÔ¿øÀÇ·Ú¼­¸¦ ¼öÁ¤", "E001"); return; } } else if (status == "" ) { for (i=0; i< grd_inreqhistlist.rows; i++) { var inflag = model.getValue(sINREQHISTLIST_PATH + "[" + i + "]/inflag"); if (inflag == 'G'){ var inrsrvstat = model.getValue(sINREQHISTLIST_PATH + "[" + i + "]/inrsrvstat"); var orddeptcd = model.getValue(sINREQHISTLIST_PATH + "[" + i + "]/orddeptcd"); var publicbedyn = model.getValue(sINREQHISTLIST_PATH + "[" + i + "]/publicbedyn"); var reqordeptcd = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd"); if (inrsrvstat == "S" && publicbedyn != "Y"){ var depthngnm=model.getValue("/root/init/orddept/dept[deptcd='"+orddeptcd+"']/depthngnm"); messageBox("["+depthngnm+"]¿¡¼­ ÀÌ¹Ì °áÁ¤»óÅÂÀÇ ÀÔ¿øÀÇ·Ú¼­°¡ ÀÖ½À´Ï´Ù.\n³»¿ªÀ» ¼öÁ¤ ¶Ç´Â »èÁ¦ ÈÄ ÁøÇàÇϽʽÿÀ.", ""); return; }else if ((inrsrvstat == "T") && (orddeptcd == reqordeptcd)){ messageBox("µ¿ÀÏ °ú¿¡ ÀÌ¹Ì ¿¹¾à»óÅÂÀÇ ÀÔ¿øÀÇ·Ú¼­°¡ ÀÖ½À´Ï´Ù. ³»¿ªÀ» ¼±ÅÃÇØ¼­ ¼öÁ¤Çϼ¼¿ä.", ""); return; } } } } // Á¤½Å°Ç°­ÀÇÇаú ÀÔ¿ø°áÁ¤ ½Ã ¿¹»óÀÔ¿ø±â°£ / ¿ø¹«Àü´Þ»çÇ× ÇʼöÀÔ·Âó¸® by Á¶Áß·¡ 20161020 if (getUserInfo("dutplceinstcd") == "031" && model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd") == "2030000000" && model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat") == "S") { if (isNull(model.getValue("/root/main/inreqfrminfo/inreqfrminfo/fcstinterm")) || model.getValue("/root/main/inreqfrminfo/inreqfrminfo/fcstinterm") == "0") { messageBox("Á¤½Å°Ç°­ÀÇÇаú ÀÔ¿ø°áÁ¤ ½Ã \r\n¿¹»óÀÔ¿ø±â°£À» ¹Ýµå½Ã ÀÔ·ÂÇØÁֽʽÿÀ. \r\n(ÀÔ¿øµî·Ï ½Ã ÀÔ¿øÅëÁö¼­ Ãâ·Â³»¿ë)", "I"); return; } if (isNull(model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvrem"))) { messageBox("Á¤½Å°Ç°­ÀÇÇаú ÀÔ¿ø°áÁ¤ ½Ã ÀÔ¿ø»çÀ¯¸¦ \r\n'¿ø¹«°ú Àü´Þ»çÇ×' Ç׸ñ¿¡ ÀÔ·ÂÇØÁֽʽÿÀ.\r\n(ÀÔ¿øµî·Ï ½Ã ÀÔ¿øÅëÁö¼­ Ãâ·Â³»¿ë)", "I"); return; } } var erreglyn = model.getValue(sINREQFRMINFO_PATH + "/erreglyn"); if ( erreglyn == "F") { var ampmflag = model.getValue(sINREQFRMINFO_PATH + "/ampmflag"); //ÀÔ¿ø±¸ºÐ if (ampmflag == "-" || isNull(ampmflag)) { messageBox("DCCÀÔ¿øÀº ¿ÀÀü¿ÀÈĸ¦", "C002"); return; } } if (getUserInfo("dutplceinstcd") == "012") { if(isNull(model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd")) ){ messageBox("ÀÔ¿ø¿¹Á¤ÀÏÀº ","I003"); return; } if(isNull(model.getValue("/root/main/inreqfrminfo/inreqfrminfo/fcstinterm")) ){ messageBox("¿¹»ó ÀÔ¿ø±â°£Àº ","I003"); return; } } // °áÁ¤»óÅ¿¡¼­ º´»óÁ¤º¸°¡ ´©¶ôÀÏ °æ¿ì¿¡´Â return var sPublicbedyn = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/publicbedyn"); var sAssgbed = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/assgbed"); var sPublicRoomType = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/publicroomtype"); var sInmgrTelno = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inmgrtelno"); if (sInrsrvstat != "T" && sPublicbedyn != "Y" && ( sAssgbed == "-" || isNull(sAssgbed)) ) { messageBox("º´»ó Á¤º¸°¡ ´©¶ôµÇ¾ú½À´Ï´Ù.", "I"); return; } if (getUserInfo("dutplceinstcd") == "031" && sInrsrvstat != "T" && sPublicbedyn == "Y" && ( sPublicRoomType == "-" || isNull(sPublicRoomType)) ) { messageBox("°ø¿ëº´»ó ½Åû½Ã Èñ¸Áº´½ÇÀ» ¼±ÅÃÇÏ¼Å¾ß ÇÕ´Ï´Ù.", "I"); return; } if (getUserInfo("dutplceinstcd") == "031" && sInrsrvstat != "T" && sPublicbedyn == "Y" && ( sInmgrTelno == "-" || isNull(sInmgrTelno)) ) { messageBox("°ø¿ëº´»ó ½Åû½Ã º´»óÁöÁ¤ ÈÄ SMS ȸ½ÅÀ» À§ÇÑ ´ã´çÀÚ ÇÚµåÆù ¹øÈ£¸¦ ÀÔ·Â ÇÏ¼Å¾ß ÇÕ´Ï´Ù.", "I"); return; } var expText = /^01([0|1|6|7|8|9]?)-?([0-9]{3,4})-?([0-9]{4})$/; // ÇÚµåÆù ÀÔ·Â ¾ç½Ä üũ Á¤±Ô½Ä if (getUserInfo("dutplceinstcd") == "031" && sInrsrvstat != "T" && sPublicbedyn == "Y" && expText.test(sInmgrTelno) != true) { messageBox("´ã´çÀÚ ÇÚµåÆù ¹øÈ£°¡ À߸ø ÀÔ·Â µÇ¾ú½À´Ï´Ù.\n ¼ýÀÚ¿Í '-'¸¸ ÀÔ·Â °¡´ÉÇÕ´Ï´Ù", "I"); return; } if(fChkUserAuth()==false){ var hngnm = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/hngnm"); messageBox("[" + hngnm + "]ȯÀÚÀÇ ÀÔ¿ø°áÁ¤¼­ ÀÛ¼º ±ÇÇÑÀÌ", "I004"); return; } //20130610 Start //ÀÀ±ÞȯÀÚ¿¡ ´ëÇØ¼­ ÀÔ¿øÀÇ·Ú¸¦ ÇÒ°æ¿ì ÀÀ±ÞÀÇÇаü¸®·á ó¹æ¿©ºÎ üũ if(model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat") == "S" && model.getValue("/root/paminfo/list/ioflag") == "E"){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/paminfo/list/pid")); model.makeValue("/root/send/reqdata/orddd", model.getValue ("/root/paminfo/list/indd")); model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/paminfo/list/cretno")); if(submit("TRMMO00149")){ var flag = model.getValue("/root/hidden2/erprcpyn/erprcpyn"); // ÀÀ±ÞÀÇÇаü¸®·á ó¹æ ¹× »çÀ¯ ÀÔ·Â À¯¹« if(flag == "N"){ var msgflag = messageBox(" ÀÀ±ÞÀÇ·á°ü¸®·á ¹Ì¹ß»ý ȯÀÚ ÀÔ´Ï´Ù.\n ÀÀ±Þ½Ç¿¡¼­ º´µ¿À¸·Î ÀÔ¿øÇÏ´Â °æ¿ì ÀÀ±ÞÀÇ·á°ü¸®·á¸¦\n ÀÔ·ÂÇϽñ⠹ٶø´Ï´Ù.\n","Q003"); if(msgflag == "7"){ return; } } } } //20130610 End if(fChkValidSave() == true){ grd_diaglist.gridToInstance(); //°Ë»ö ÈÄ ÀνºÅϽº »óÀÌ·Î ÀÎÇØ Àӽà ó¸® (2009.1.7) var erreglyn = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/erreglyn"); if (erreglyn == "E") { model.removeNodeset("/root/send/reqdata"); var savediag = getNodeListCSV(model.instance1.selectNodes(sDIAGCDLIST_PATH)); model.makeValue("/root/send/reqdata/diag" , savediag); if (submit("TRMMO00125")) { if( model.getValue("/root/main/serdiaginfo/serdiagermsg/serdiageryn") == "Y" ) { //20080102 ±è¿µÇÐ ¼öÁ¤: ÁßÁõÀÀ±Þ µî·ÏÇÑÀÚÀÇ Áø´Ü¸í alert º¯°æ¿äû¹øÈ£ 533 messageBox( model.getValue ( "/root/main/serdiaginfo/serdiagermsg/serdiagermsg" ), "I" ) ; //20080102 ¼­¼Ò¿µ ¼±»ý´Ô blockingó¸® ¿äû return; } } } //2012.05.31 ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º½Ã CP Àû¿ë °¡´ÉÇÑ Áø´Ü ÀԷ½ÿ¡ CPÀû¿ë¿©ºÎ È®ÀÎ var cpyn = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/cpyn"); if (cpyn == "N") { model.removeNodeset("/root/send/reqdata"); var savediag = getNodeListCSV(model.instance1.selectNodes(sDIAGCDLIST_PATH)); model.makeValue("/root/send/reqdata/diag" , savediag); if (submit("TRMMO00145")) { if( model.getValue("/root/main/cpinfo/ablecp/ablecpyn") == "Y" ) { var ablecpdiagcd = model.getValue("/root/main/cpinfo/ablecp/ablecpdiagcd"); if( "6" == messageBox( ablecpdiagcd + " Áø´ÜÀº CP Àû¿ë °¡´ÉÇÑ Áø´ÜÀÔ´Ï´Ù.\n\nCPÀû¿ë ÇϽðڽÀ´Ï±î?", "Q999" )){ model.setValue("/root/main/inreqfrminfo/inreqfrminfo/cpyn", "Y"); rdo_cpyn.refresh(); // CP Àû¿ë¿©ºÎ »õ·Î°íħ. } } } } //2012/07/18 Start var flagchk = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat"); var atdoct = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/atdoctid"); var patgrade = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/patgrade"); // ÀÔ¿ø ¿ì¼±¼øÀ§ üũ 2015.05.18 ¾ö¿µ¸¸ //var opener_id = opener.javascript.getParameter("opener_id"); //if(opener_id=="SPMMO26000" && flagchk=="S" && atdoct==""){ // ÀÇ»ç°áÁ¤¿¡¼­ âÀÌ ¿­·È°í, °áÁ¤ÀÎ »óÅ¿¡¼­ ´ã´çÀǰ¡ ºñ¾îÀÖ´Ù¸é ºí·°Å· var chkinstcd = instance1.selectNodes("/root/init/hardcditem/hardcd"); for(var i=1; i<=parseInt(chkinstcd.length); i++){ if(getUserInfo("dutplceinstcd")==model.getValue("/root/init/hardcditem/hardcd["+ i + "]/hardcd")){ if(flagchk=="S" && atdoct==""){ // °áÁ¤ÀÎ »óÅ¿¡¼­ ´ã´çÀǰ¡ ºñ¾îÀÖ´Ù¸é ºí·°Å· messageBox("´ã´çÀÇ ¼±ÅÃÀº Çʼö","E008"); return; } } } //2012/07/18 End // ÀÔ¿ø ¿ì¼±¼øÀ§ üũ 2015.05.18 ¾ö¿µ¸¸ if(getUserInfo("dutplceinstcd") == "031" && flagchk=="S" && patgrade==""){ // °áÁ¤ÀÎ »óÅ¿¡¼­ ÀÔ¿ø¿ì¼±¼øÀ§°¡ ºñ¾îÀÖ´Ù¸é ºí·°Å· messageBox("ÀÔ¿ø ¿ì¼±¼øÀ§ ¼±ÅÃÀº Çʼö","E008"); return; } // ÀÔ¿ø ¿ì¼±¼øÀ§ üũ(Ä¥°îº´¿ø ÀÎÁõÆò°¡ °ü·Ã) 2016.04.25 Á¶Áß·¡ if(getUserInfo("dutplceinstcd") == "032" && model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd") >= '20160425' && flagchk=="S" && patgrade==""){ // °áÁ¤ÀÎ »óÅ¿¡¼­ ÀÔ¿ø¿ì¼±¼øÀ§°¡ ºñ¾îÀÖ´Ù¸é ºí·°Å· messageBox("ÀÔ¿ø ¿ì¼±¼øÀ§ ¼±ÅÃÀº Çʼö","E008"); return; } //2013/10/29 Start ÀÔ¿ø¿¹Á¤ÀÏ +1ÀÏ¿¡ Àü¹®ÀÇÀÇ ÃâÀå¿©ºÎ¸¦ üũ if(flagchk=="S"){ model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd")); model.makeValue("/root/send/reqdata/orddrid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddrid")); model.makeValue("/root/send/reqdata/execfromdd", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd")); model.makeValue("/root/send/reqdata/exectodd", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd")); //2013/12/05 ½ÃÀÛ(¿ø¹«ÂÊ ¾÷¹« º¯°æ¿¡ µû¸¥ ¼Ò½º ¼öÁ¤) //model.makeValue("/root/send/reqdata/includeyn", "N"); model.makeValue("/root/send/reqdata/ioflag", "I"); //2013/12/05 Á¾·á if(!submit("TRMMO00153")){ return; } } //2013/10/29 End var status = model.getValue(sINREQFRMINFO_PATH + "/status"); if(status == "u"){ //¼öÁ¤ÀÎ °æ¿ì var messageflag = messageBox("¼öÁ¤", "S001"); if (messageflag == 6) { var updateflag = compareNodeVal(sINREQFRMINFO_PATH, "/root/temp/inreqfrminfo"); var diagflag = fSaveChkValidDiagOp(grd_diaglist); var opflag = fSaveChkValidDiagOp(grd_oplist); if(updateflag == false){ //ÀÔ¿øÀÇ·Ú¼­ ³»¿ëÀÌ º¯°æµÈ »çÇ×ÀÌ ¾ø´Â °æ¿ì, status '-'·Î ó¸® model.setValue(sINREQFRMINFO_PATH + "/status", "-"); } if(updateflag != true && diagflag != true && opflag != true){ messageBox("º¯°æµÈ ³»¿ëÀÌ", "I004"); return; } //ÀÔ¿øÀÇ·Ú¼­ Áø´Ü ÀúÀå Àü¿¡ ÀÜ·áÀÏÀÚ(orddd)¸¦ ÀÔ¿ø¿¹Á¤ÀÏ(inhopedd)·Î ¼³Á¤ fSetDiagOpInhopeDD(); //Áø´Ü, ¼ö¼ú±×¸®µåÀÇ ÀÔ·ÂÀ» À§ÇØ Ãß°¡µÈ ¸¶Áö¸· ÇÑÁÙÀ» Á¦°ÅÇÑ´Ù. model.removeNode("/root/main/diaginfo/diagcdlist[" + (grd_diaglist.rows-1) + "]"); model.removeNode(sOPCDLIST_PATH +"[" + (grd_oplist.rows-1) + "]"); var saveinreq = getNodeListCSV(model.instance1.selectNodes(sINREQFRMINFO_PATH)); var savediag = getNodeListCSV(model.instance1.selectNodes(sDIAGCDLIST_PATH)); var saveop = getNodeListCSV(model.instance1.selectNodes(sOPCDLIST_PATH)); model.makeValue("/root/send/savedata/inreq", saveinreq); model.makeValue("/root/send/savedata/diag" , savediag); model.makeValue("/root/send/savedata/op" , saveop); var rtnval = submit("TXMMO00102"); //2012/07/19 Start if(rtnval == true && opener.javascript.getParameter("opener_id")=="SPMMO26000"){ // ÀÔ¿ø°áÁ¤À» ÅëÇØ¼­ µé¾î¿ÔÀ» °æ¿ì model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/temp/pid")); model.makeValue("/root/send/reqdata/orddd", opener.javascript.getParameter("SPMMO00100_indd")); model.makeValue("/root/send/reqdata/cretno", opener.javascript.getParameter("SPMMO00100_incretno")); model.makeValue("/root/send/reqdata/decisionkind", opener.javascript.getParameter("SPMMO00100_decisionkind")); if(submit("TXMMO26001")){ opener.opener.javascript.setParameter("adflag", "A"); } }else if(rtnval == true){ var pamInfoCvs = getGlobalVariable("paminfo"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö if(pamInfoCvs != null && pamInfoCvs != ""){ model.makeNode("/root/main/result/paminfo/list"); setCSVToNode ("/root/main/result/paminfo", pamInfoCvs); if(model.getValue("/root/main/result/paminfo/list/pid")==model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){ //»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ °°À»½Ã model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/result/paminfo/list/pid")); model.makeValue("/root/send/reqdata/orddd", model.getValue ("/root/main/result/paminfo/list/indd")); model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/result/paminfo/list/cretno")); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); }else if(model.getValue("/root/main/result/paminfo/list/pid")!=model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){ //»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ Ʋ¸±½Ã model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); } }else{ // »ó´Ü Á¤º¸°¡ ¾ø°í ¸Þ´º¸¦ ÅëÇØ¼­ ¹Ù·Î µé¾î¿ÔÀ»½Ã model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); } } //2012/07/19 End } else { return; } }else{ //½Å±ÔÀÎ °æ¿ì model.setValue(sINREQFRMINFO_PATH + "/status", "i"); //ÀÔ¿øÀÇ·Ú¼­ Áø´Ü ÀúÀå Àü¿¡ ÀÜ·áÀÏÀÚ(orddd)¸¦ ÀÔ¿ø¿¹Á¤ÀÏ(inhopedd)·Î ¼³Á¤ fSetDiagOpInhopeDD(); //Áø´Ü, ¼ö¼ú±×¸®µåÀÇ ÀÔ·ÂÀ» À§ÇØ Ãß°¡µÈ ¸¶Áö¸· ÇÑÁÙÀ» Á¦°ÅÇÑ´Ù. model.removeNode(sDIAGCDLIST_PATH + "[" + (grd_diaglist.rows-1) + "]"); //model.removeNode(sOPCDLIST_PATH + "[" + (grd_oplist.rows-1) + "]"); var saveinreq = getNodeListCSV(model.instance1.selectNodes(sINREQFRMINFO_PATH)); var savediag = getNodeListCSV(model.instance1.selectNodes(sDIAGCDLIST_PATH)); var saveop = getNodeListCSV(model.instance1.selectNodes(sOPCDLIST_PATH)); model.makeValue("/root/send/savedata/inreq", saveinreq); model.makeValue("/root/send/savedata/diag" , savediag); model.makeValue("/root/send/savedata/op" , saveop); var rtnval = submit("TXMMO00102"); //2012/07/19 Start if(rtnval == true && opener.javascript.getParameter("opener_id")=="SPMMO26000"){ // ÀÔ¿ø°áÁ¤À» ÅëÇØ¼­ µé¾î¿ÔÀ» °æ¿ì model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/temp/pid")); model.makeValue("/root/send/reqdata/orddd", opener.javascript.getParameter("SPMMO00100_indd")); model.makeValue("/root/send/reqdata/cretno", opener.javascript.getParameter("SPMMO00100_incretno")); model.makeValue("/root/send/reqdata/decisionkind", opener.javascript.getParameter("SPMMO00100_decisionkind")); if(submit("TXMMO26001")){ opener.opener.javascript.setParameter("adflag", "A"); } }else if(rtnval == true){ var pamInfoCvs = getGlobalVariable("paminfo"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö if(pamInfoCvs != null && pamInfoCvs != ""){ model.makeNode("/root/main/result/paminfo/list"); setCSVToNode ("/root/main/result/paminfo", pamInfoCvs); if(model.getValue("/root/main/result/paminfo/list/pid")==model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){ //»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ °°À»½Ã model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/result/paminfo/list/pid")); model.makeValue("/root/send/reqdata/orddd", model.getValue ("/root/main/result/paminfo/list/indd")); model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/result/paminfo/list/cretno")); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); }else if(model.getValue("/root/main/result/paminfo/list/pid")!=model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")){//»ó´Ü Á¤º¸¿Í ÀÔ¿øÀÇ·Ú¼­ ȯÀÚÀÇ ¹øÈ£°¡ Ʋ¸±½Ã model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); } }else{ // »ó´Ü Á¤º¸°¡ ¾ø°í ¸Þ´º¸¦ ÅëÇØ¼­ ¹Ù·Î µé¾î¿ÔÀ»½Ã model.makeValue("/root/send/reqdata/instcd", getUserInfo("dutplceinstcd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid")); model.makeValue("/root/send/reqdata/orddd", ""); model.makeValue("/root/send/reqdata/cretno", ""); model.makeValue("/root/send/reqdata/decisionkind", "A"); submit("TXMMO26001"); } } //2012/07/19 End } } if(rtnval == true){ //ÀúÀåÀÌ ¼º°øÇÑ °æ¿ì //kimsj 100114 JCI _ ȯÀÚ±³À° ÀÔ·ÂÈ­¸é ÆË¾÷ if (model.getValue(sINREQFRMINFO_PATH + "/status") == "i") fInsPatEduc(); var chkrow = null; if(grd_inreqhistlist.rows>1){ if(model.getValue(sINREQFRMINFO_PATH + "/status")=="-"){ //2010-01-25 pyj ¼öÁ¤ÇÑ ³»¿ªÀ» ±×´ë·Î displayÇØÁÙ°Í fDispInReqHistInfo(displayrow); chkrow=displayrow; }else{ //³»¿ªÀÌ ÀÖ´Â °æ¿ì, ±×¸®µåÀÇ Ã¹¹øÂ°(°¡Àå ÃÖ±ÙÀÇ ÀÔ¿øÀÇ·Ú ³»¿ª) display fDispInReqHistInfo(1); chkrow=1; } } var sReqFlag = "1"; // ¾àÁ¤¼­ Á¾·ù 1:ÀÔ¿ø¾àÁ¤¼­, 2:±â°£¾àÁ¤¼­ if (getUserInfo("dutplceinstcd") == "032") { var msgData = messageBox("ÀÔ¿ø¾àÁ¤¼­¸¦ Ãâ·Â", "S003", "±â°£¾àÁ¤¼­¸¦ Ãâ·Â"); if (msgData == "7" ) { sReqFlag = "2"; // ±â°£¾àÁ¤¼­. } else { sReqFlag = "1"; // ÀϹݾàÁ¤¼­. } } if (model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvstat") == "S" ) { fInDeciPrint( model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid") , model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvacptdd") , model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd") , model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddrid") , model.getValue("/root/main/inreqfrminfo/inreqfrminfo/insukind") , sReqFlag); // ¾àÁ¤¼­Á¾·ù 1:ÀÔ¿ø¾àÁ¤¼­, 2:±â°£¾àÁ¤¼­ } fReqInReqHistList(); //ÀÔ¿øÀÇ·Ú¼­ ÀÌ·Â Á¶È¸ fReqInReqDiagOpList();//ÀÔ¿øÀÇ·Ú¼­ Áø´Ü Á¶È¸ fReqInReqCalendar(); //ÀÔ¿øÀÇ·Ú¼­ ´Þ·Â Á¶È¸ //¿ø¹« ¼±ÅÃÁø·áÀÇ ÆË¾÷ È£Ãâ Ãß°¡ (2009.11.03 JJE) var specOrd_Pid = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid"); var specOrd_cretno = "0"; //ÀÔ¿øÀå ÀÛ¼º ½ÃÁ¡¿¡´Â ÀÔ¿øµî·Ï Á¤º¸ ¾øÀ¸¹Ç·Î °ª ¾øÀ½ var specOrd_stnddd = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvacptdd"); //ÀÔ¿øÀÏ È®½ÇÄ¡ ¾ÊÀ¸¹Ç·Î ¹ßÇàÀÏÀ» ´ë½Å ³Ñ±è var specOrd_orddeptcd = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd"); var specOrd_orddrid = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddrid"); fSpecOrdPopUpYN(specOrd_Pid, specOrd_cretno, specOrd_stnddd, specOrd_orddeptcd, specOrd_orddrid, "I"); //2013/10/22 Strt ÀÀ±Þ´ë»óÀÚ ÅÇ¿¡¼­ ¹Ù·Î µé¾î¿ÔÀ»½Ã Ç÷¡±× °ª ¼¼ÆÃ var id = opener.window.javascript.getScreenID(); if(id=="SMMMO04400"){ parent.javascript.model.makeValue("/root/temp/SPMMO00100_rtn", "true"); } //2013/10/22 End //ÀúÀåÀÌ ½ÇÆÐÇÑ °æ¿ì(LiveException ó¸® µî) }else{ model.setValue(sINREQFRMINFO_PATH + "/status", status); //¿ø·¡ status°ªÀ¸·Î º¹±¸ // °¡Àå ¸¶Áö¸· Çà¿¡ µ¥ÀÌÅͰ¡ ÀÖ´Â °æ¿ì¿¡¸¸ Ãß°¡ - ¹«Á¦ÇÑÀ¸·Î ÇàÀÌ Ãß°¡µÇ´Â Çö»ó¹æÁö var cnt = getNodesetCount("/root/main/diaginfo/diagcdlist"); if (grd_diaglist.rows == 1 || !isNull(model.getValue("/root/main/diaginfo/diagcdlist[" + cnt + "]/diagcd"))) { grd_diaglist.addRow(true, true); } //grd_oplist.addRow(true, true); model.recalculate(); } if(grd_inreqhistlist.rows>1){ grd_inreqhistlist.row=chkrow; } var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); } model.refresh(); } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ ÀúÀå Àü, µ¥ÀÌÅÍ ¹«°á¼º È®ÀÎ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChkValidSave(){ var inhopedd = model.getValue(sINREQFRMINFO_PATH + "/inhopedd"); //ÀÔ¿ø¿¹Á¤ÀÏ var status = model.getValue(sINREQFRMINFO_PATH + "/status"); //󸮱¸ºÐ if(inhopedd < getCurrentDate() && status == "i"){ //ÀÔ¿ø¿¹Á¤ÀÏÀÌ ÇöÀçÀÏÀÚº¸´Ù ÀÛÀº °æ¿ì messageBox("ÀÔ¿ø¿¹Á¤ÀÏÀÌ ÀÌÀü ³¯Â¥", "E008"); return false; } var status = model.getValue(sINREQFRMINFO_PATH + "/status"); /* if (status !="" ) { // ¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ¼öÁ¤À» ÇÒ ¼ö ¾øµµ·Ï Á¶°Ç Ãß°¡ (2008.09.26 ±è¿µÇÐ) var inrsrvstat = model.getValue(sINREQFRMINFO_PATH + "/inrsrvstat"); var indd = model.getValue(sINREQFRMINFO_PATH + "/indd"); if (inrsrvstat != "Y") { messageBox("¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ÀÔ¿øÀÇ·Ú¼­¸¦ »èÁ¦", "E001"); return; } } */ var scheopdd = model.getValue(sINREQFRMINFO_PATH + "/scheopdd"); //¼ö¼ú¿¹Á¤ÀÏ if(scheopdd != ""){ if(scheopdd < getCurrentDate() && status == "i"){ //¼ö¼ú¿¹Á¤ÀÏÀÌ ÇöÀçÀÏÀÚº¸´Ù ÀÛÀº °æ¿ì messageBox("¼ö¼ú¿¹Á¤ÀÏÀÌ ÀÌÀü ³¯Â¥", "E008"); return false; } } //var orddrid = model.getValue(sINREQFRMINFO_PATH + "/orddrid"); //´ã´ç±³¼ö var orddrnm = cmb_orddrid.label; var orddeptnm = cmb_orddeptcd.label; if(orddeptnm.length < 1){ messageBox("´ã´çÁø·á°ú¸¦", "C002"); return false; } if(orddrnm.length < 1){ messageBox("Àü¹®ÀÇ(´ã´ç±³¼ö)¸¦", "C002"); return false; } var erreglyn = model.getValue(sINREQFRMINFO_PATH + "/erreglyn"); //ÀÔ¿ø±¸ºÐ if (cmb_erreglyn.length < 1 || isNull(erreglyn)) { messageBox("¿¹»óÀÔ¿ø±â°£ÀÇ ÀÔ¿ø±¸ºÐÀ»", "C002"); return false; } // ´ã´çÀÇ»ç EMR, 11111 ¼±Åà Á¦¾î Ãß°¡ by Á¶Áß·¡ 20170316 if (model.getValue("/root/main/inreqfrminfo/inreqfrminfo/atdoctid") == "EMR" || model.getValue("/root/main/inreqfrminfo/inreqfrminfo/atdoctid") == "11111") { messageBox("´ã´çÀÇ»ç´Â [Àǹ«±â·Ï] ¶Ç´Â [ÀϹÝÀÇ»ç]¸¦ ¼±ÅÃÇÒ ¼ö ¾ø½À´Ï´Ù.", "C000"); return false; } // ¿Ü»óº´µ¿¿î¿µ¿¡ µû¸¥ »óº´À¯È¿¼º üũ Ãß°¡ by Á¶Áß·¡ 20160314 // °£È£°£º´ ÅëÇÕ¼­ºñ½º º´µ¿ ÀÚº¸/»êÀçȯÀÚ ÀÔ¿øÁ¦¾î¿ë ·ÎÁ÷ Ãß°¡ by Á¶Áß·¡ 20170316 var assgward = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/assgward"); // ¼±ÅÃµÈ º´µ¿ÀÌ ÀÖ´Â °æ¿ì¿¡¸¸ À¯È¿¼ºÃ¼Å© if (!isNull(assgward)) { // ¿Ü»óº´µ¿ ¿©ºÎ var traumaward = model.getValue("/root/init/pamcomcode/PK107list/PK107[cdid='" + assgward + "']/cdnm"); // ÁöÁ¤µÈ º´µ¿ÀÌ ¿Ü»óº´µ¿ÀÎ °æ¿ì¿¡¸¸ °ËÁõó¸® if (!isNull(traumaward)) { // // 1. ÀÀ±Þ½Ç / ¿Ü»ó¼¾ÅÍ °æÀ¯ üũ -> Á¦¿Üó¸®(¿Ü»ó¼¾ÅÍ °­¿µ¿í¼±»ý´Ô) by Á¶Áß·¡ 20160328 // if (erreglyn != "E") { // // messageBox("¿Ü»óº´µ¿À¸·ÎÀÇ ÀÔ¿øÀº ÀÀ±Þ½Ç ¶Ç´Â ¿Ü»ó¼¾ÅÍ °æÀ¯½Ã¿¡¸¸ °¡´ÉÇÕ´Ï´Ù.", "C000"); // return false; // } // 2. Áø´ÜÁ¤º¸ üũ model.makeNode("/root/main/diaginfo/traumadiagcdlist"); copyNodesetType("/root/main/diaginfo/traumadiagcdlist", "/root/main/diaginfo/diagcdlist", "replace"); // ¸¶Áö¸· ÇÑÁÙÀ» Á¦°Å(Áø´Ü ¸®½ºÆ®¿¡¼­ ¸¶Áö¸· row´Â °ø¶õÀÓ) model.removeNode("/root/main/diaginfo/traumadiagcdlist[" + (grd_diaglist.rows - 1) + "]"); var cnt = getNodesetCount("/root/main/diaginfo/traumadiagcdlist"); if (cnt < 1) { messageBox("Áø´ÜÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. \r\n¿Ü»ó»óº´Äڵ带 ÀÔ·ÂÇϰí ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼ºÇϽʽÿÀ.", "C000"); return false; } else { for (i = 1; i <= cnt; i++) { var diagcd = model.getValue("/root/main/diaginfo/traumadiagcdlist[" + i + "]/diagcd"); if (isNull(diagcd)) { messageBox("Áø´ÜÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. \r\n¿Ü»ó»óº´Äڵ带 ÀÔ·ÂÇϰí ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼ºÇϽʽÿÀ.", "C000"); return false; } else { // »óº´°ËÁõÀ» À§ÇÑ ±âÁØÀÏÀÚ ¼³Á¤ model.makeValue("/root/main/diaginfo/traumadiagcdlist[" + i + "]/inhopedd", model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd")); } } // ¿Ü»ó»óº´ÄÚµå °ËÁõó¸® if (submit("TRMMO00161")) { // ¿Ü»ó»óº´ÀÌ Á¸ÀçÇÏÁö¾Ê´Â °æ¿ì if (model.getValue("/root/temp/traumadiaginfo/traumadiagyn") != "Y") { messageBox("¿Ü»ó°ü·Ã Áø´ÜÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. \r\n¿Ü»ó»óº´Äڵ带 ÀÔ·ÂÇϰí ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼ºÇϽʽÿÀ.", "C000"); return false; } } } } } return true; } /** * @desc : È­¸é ObjectÀÇ enable / disable mode control * @ * @param : bflag * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fCtrlObjDisable(bflag){ ipt_pid.disabled = bflag; //µî·Ï¹øÈ£ ipt_patnm.disabled = bflag; //¼º¸í cmb_orddeptcd.disabled = bflag; //Áø·á°ú cmb_orddrid.disabled = bflag; //´ã´ç±³¼ö ipt_inhopedd.disabled = bflag; //ÀÔ¿ø¿¹Á¤ÀÏ ipt_scheopdd.disabled = bflag; //¼ö¼ú¿¹Á¤ÀÏ rdo_cpyn.disabled = bflag; //CPÀû¿ë ipt_fcstinterm.disabled= bflag; //¿¹»óÀÔ¿ø±â°£ ipt_inrsrvrem.disabled = bflag; //¿ø¹«°ú Àü´Þ»çÇ× ipt_drrem.disabled = bflag; //ÀÇ·áÁø Âü°í»çÇ× //bool_erreqlyn.disabled = bflag; //ÀÀ±Þ rdo_specroomyn.disabled= bflag; //º´½Ç btn_deldiag.disabled = bflag; //Áø´Ü»èÁ¦ btn_opnote.disabled = bflag; //¼ö¼ú¿¹¾àÀåºÎ btn_delop.disabled = bflag; //¼ö¼ú»èÁ¦ btn_init.disabled = bflag; //ÃʱâÈ­ btn_save.disabled = bflag; //ÀúÀå btn_del.disabled = bflag; //»èÁ¦ btn_close.disabled = bflag; //´Ý±â model.refresh(); } /** * @desc : »èÁ¦¹öư Ŭ¸¯, Ãë¼Ò»çÀ¯ ¼±Åà box¸¦ È­¸é¿¡ ¶ç¿î´Ù. * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fClkBtnInReqDel(){ // ¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ¼öÁ¤À» ÇÒ ¼ö ¾øµµ·Ï Á¶°Ç Ãß°¡ (2008.09.26 ±è¿µÇÐ) var inrsrvstat = model.getValue(sINREQFRMINFO_PATH + "/inrsrvstat"); var indd = model.getValue(sINREQFRMINFO_PATH + "/indd"); if ((inrsrvstat != "S" && inrsrvstat != "T" && inrsrvstat != "D" )|| indd != "00000000" ) { messageBox("¿ø¹«¿¡¼­ ÀÔ¿øµî·ÏÀ» ÇÑ °æ¿ì´Â ÀÔ¿øÀÇ·Ú¼­¸¦ »èÁ¦", "E001"); return; } if(fChkUserAuth()==false){ var hngnm = model.getValue(sINREQFRMINFO_PATH + "/hngnm"); messageBox("[" + hngnm + "]ȯÀÚÀÇ ÀÔ¿ø°áÁ¤¼­ »èÁ¦ ±ÇÇÑÀÌ", "I004"); return; } var status = model.getValue(sINREQFRMINFO_PATH + "/status"); var orddeptcd = model.getValue("/root/temp/inreqfrminfo/orddeptcd"); if(status != "u"){ messageBox("»èÁ¦ÇÒ ÀÔ¿øÀÇ·Ú¸¦", "C002"); return; } fCtrlObjDisable(true); group1.visible = true; } /** * @desc : ÃʱâÈ­¹öư Ŭ¸¯½Ã * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fClkBtnInit(){ var btnauth = false; var userauth = model.getValue("/root/init/userauth/hardcd/hardcd"); if (userauth == "P") { // ƯÁ¤°ú (ÇϵåÄÚµå Å×À̺í 92¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/deptcode", 92); //ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º Çã¿ë°ú var dutplcecd = model.getValue("/root/init/deptcode/hardcd[hardcd='" + getUserInfo("dutplcecd") + "']/hardcd"); if (dutplcecd != "") { btnauth = true; } else { btnauth = false; } } else if (userauth == "I") { // ƯÁ¤ÀÎ (ÇϵåÄÚµå Å×À̺í 93¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/spuserauth", 93); //ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º Çã¿ë ID var authuserid = model.getValue("/root/init/spuserauth/hardcd[hardcd='" + getUserInfo("userid") + "']/hardcd"); if (authuserid != "") { btnauth = true; } else { btnauth = false; } } else { btnauth = false; } var bmtdeptcd = model.getValue("/root/init/hardcd/hardcd[hardcd='" + getUserInfo("orddeptcd") + "']/hardcd"); var bmtopen = opener.javascript.getParameter("SPMMO00100_BMTDEPTCD"); var jobkindcd = model.getValue("/root/init/drkindcd/hardcd[hardcd='" + getUserInfo("jobkindcd") + "']/hardcd"); if (btnauth == true || jobkindcd != "" ||bmtdeptcd != "" || !isNull(bmtopen)) { // Á÷Á¾ÀÌ ÀÇ»çÀ̰ųª °³¹ßÀÚ, BMT ÄÚµð³×ÀÌÅÍ ½ÇÀÏ °æ¿ì ÀúÀå ¹öư Ȱ¼ºÈ­ btn_init.disabled = false; btn_save.disabled = false; btn_del.disabled = false; btn_close.disabled = false; } //2013/10/14 Start 5800¿¡ µî·ÏµÈ ¸Þ´º¿¡¼­ Á¢±Ù½Ã ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º ÇÒ ¼ö ÀÖµµ·Ï ¼öÁ¤ ó¸® fGetHardCDList("N", 5800, 0 , "/root/init/hardcd_5800"); var menuauthchk = model.getValue("/root/properties/menu/menugroupcd").split("|"); var menugroup = menuauthchk[0]; var menuauth = menuauthchk[1]; var menugroupcheck=0; var menuauthcheck=0; var menugroupcheck = getNodeSetCnt("/root/init/hardcd_5800/hardcd[hardcd='" + menugroup + "']"); var menuauthcheck = getNodeSetCnt("/root/init/hardcd_5800/hardcd[hardcd='" + menuauth + "']"); if(menugroupcheck>0 && menuauthcheck>0){ menuauthchkyn = "Y"; btn_init.disabled = false; btn_save.disabled = false; btn_close.disabled = false; } /* 2013/01/21 Àü¹®°£È£new(Àü¹®°£È£)ÀÇ ¸Þ´º¿¡¼­ Á¢±Ù½Ã ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼ºÇÒ ¼ö ÀÖµµ·Ï ¼öÁ¤ --ÁÖ¼®Ã³¸® fGetHardCDList("N", 5800, 0 , "/root/init/hardcd_5800"); var menugroup=model.getValue("/root/init/hardcd_5800/hardcd[cdseqno='1']/hardcd"); var menuauth=model.getValue("/root/init/hardcd_5800/hardcd[cdseqno='2']/hardcd"); var menuauthchk = model.getValue("/root/properties/menu/menugroupcd").split("|"); if(menugroup==menuauthchk[0] && menuauth==menuauthchk[1]){ menuauthchkyn = "Y"; btn_init.disabled = false; btn_save.disabled = false; btn_close.disabled = false; }*/ //2013/01/21 End model.resetInstanceNode(sINREQFRMINFO_PATH); //2012/07/31 Start model.resetInstanceNode(sINREQHISTLIST_PATH); //2012/07/31 End var cpyn = ""; //cp¿©ºÎÃß°¡ if(checkOpener()){ var param = opener.javascript.getParameter("SPMMO00100_param"); var pid = model.getValue(sINREQFRMINFO_PATH + "pid"); if (pid != "" ) { inputEnterKey("btn_patserch", "DOMActivate"); } else if(param.length > 1){ //parameter°¡ ÀÖ´Â °æ¿ì param = param.split("¢Ë"); var pid = param[0]; var hngnm = param[1]; var orddeptcd = param[2]; var orddrid = param[3]; var insukind = param[4]; var suppkind = param[5]; var orddd = param[6]; var cretno = 0; var ioflag = param[8]; }else{ //paramÀÌ ¾ø´Â °æ¿ì, »ó´ÜÁ¤º¸¿¡¼­ ȯÀÚÁ¤º¸¸¦ ¾ò´Â´Ù. var paminfocsv = getGlobalVariable("paminfo"); var patflagcsv = getGlobalVariable("patflag"); if(paminfocsv.length > 1){ model.removeNodeSet ( "/root/paminfo/list"); //»ó´ÜÈ­¸é Á¤º¸ ÃʱâÈ­ setCSVToNode ("/root/paminfo", paminfocsv); } /* else{ messageBox("ȯÀÚ Á¤º¸¸¦ ãÀ» ¼ö", "I004"); //»ó´ÜÁ¤º¸µµ ¾ø´Â °æ¿ì, window close return false; } */ if(patflagcsv.length > 1){ model.removeNodeSet ( "/root/patflag/list"); //ȯÀÚ±¸ºÐ Á¤º¸ ÃʱâÈ­ setCSVToNode ("/root/patflag", patflagcsv); // }else{ //messageBox("ȯÀÚ Á¤º¸¸¦ ãÀ» ¼ö", "I004"); //ȯÀÚ±¸ºÐ Á¤º¸ ¾ø´Â °æ¿ì, window close //return false; } var pid = model.getValue("/root/paminfo/list/pid"); var hngnm = model.getValue("/root/paminfo/list/hngnm"); var ioflag = model.getValue("/root/patflag/list/prcpgenrflag"); var mpphontel = model.getValue("/root/paminfo/list/mpphontel"); var hometel = model.getValue("/root/paminfo/list/hometel"); var phoneno = ""; var sa = model.getValue("/root/paminfo/list/sex") + "/" + model.getValue("/root/paminfo/list/age"); if ( isNull(mpphontel) ) { phoneno = hometel ; } else { phoneno = mpphontel ; } //ÀÔ¿øÀÇ·Ú¼­ open½Ã ·Î±×ÀÎ »ç¿ëÀÚ Á¤º¸°¡ È­¸é¿¡ default·Î ¼³Á¤, ¼­¼Ò¿µ //2008. 07. 10. ¿ÀÁöÈÆ var orddrid = getUserInfo("userid"); var orddeptcd = getUserInfo("dutplcecd"); if (orddeptcd == "2040400000") { orddeptcd = "2040000000"; } //var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); /* if(ioflag == "O"){ //¿Ü·¡ var orddrid = model.getValue("/root/paminfo/list/orddrid"); var orddd = model.getValue("/root/paminfo/list/orddd"); ioflag = "I"; }else{ //ÀÔ¿ø, ÀÀ±Þ, DSC var orddrid = model.getValue("/root/paminfo/list/medispclid"); var orddd = model.getValue("/root/paminfo/list/indd"); }*/ var insukind = model.getValue("/root/paminfo/list/insukind"); var suppkind = model.getValue("/root/paminfo/list/suppkind"); var inhopedd = model.getValue(sINREQFRMINFO_PATH + "/inhopedd"); //ÀÔ¿øÈñ¸ÁÀϽà cpyn = getPatientInfo("cp"); } } //zsufGetUserInfoCombo(orddeptcd , "/root/init/userlist", "_D"); //ÇØ´ç ÀÇ»çÄÞº¸ Á¶È¸ mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", orddeptcd, "0330", "", "M", "", "", "P"); //2012/07/18 Start if(fContainsHardCD("515", orddeptcd)) { // ´ã´çÀÇ Ç׸ñ¿¡ ±³¼öµµ Á¶È¸ÇØ¾ß ÇÏ´Â ºÎ¼­ mmbfGetUserComboList("/root/send/reqdata", "/root/init/atdoctlist", orddeptcd, "0330", "", "T", "", "", "P"); // ´ã´çÀÇ¿¡ ÁÖÄ¡Àǵµ Æ÷ÇÔ µÇµµ·Ï ¼öÁ¤ -2015.11.06 ¾ö¿µ¸¸ ¿äû¼­:20151102005 } else { mmbfGetUserComboList("/root/send/reqdata", "/root/init/atdoctlist", orddeptcd, "0330", "", "A", "", "", "P"); // ´ã´çÀÇ¿¡ ÁÖÄ¡Àǵµ Æ÷ÇÔ µÇµµ·Ï ¼öÁ¤ -2015.11.06 ¾ö¿µ¸¸ ¿äû¼­:20151102005 } //2012/07/18 End mmbfGetSubDeptComboList("/root/send/reqdata", "/root/init/subdeptinfo", orddeptcd); addComboInstance("/root/init/subdeptinfo", "subdeptnm^subdeptcd", " ^-", "subdeptlist"); //ÀÇ»çÄÞº¸ ÀüüÇ׸ñ Ãß°¡ model.refresh(); if(cpyn == ""){cpyn = "N";} //cp¿©ºÎ°¡ ¾ø´Â °æ¿ì´Â 'N'À¸·Î ¼³Á¤ model.setValue(sINREQFRMINFO_PATH + "/pid" , pid); model.setValue(sINREQFRMINFO_PATH + "/hngnm" , hngnm); model.setValue(sINREQFRMINFO_PATH + "/sa" , sa); model.setValue(sINREQFRMINFO_PATH + "/orddeptcd" , orddeptcd); model.setValue(sINREQFRMINFO_PATH + "/orddrid" , orddrid); model.setValue(sINREQFRMINFO_PATH + "/insukind" , insukind); model.setValue(sINREQFRMINFO_PATH + "/suppkind" , suppkind); model.setValue(sINREQFRMINFO_PATH + "/inhopedd" , getCurrentDate()); //ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sINREQFRMINFO_PATH + "/inrsrvacptdd" , getCurrentDate()); //¹ßÇàÀÏÀÚ model.setValue(sINREQFRMINFO_PATH + "/cpyn" , cpyn); //CP¿©ºÎ default´Â N model.setValue(sINREQFRMINFO_PATH + "/orddd" , getCurrentDate()); //Áø·áÀÏÀÚ model.setValue(sINREQFRMINFO_PATH + "/cretno" , 0); model.setValue(sINREQFRMINFO_PATH + "/bmtyn" , "1"); model.setValue(sINREQFRMINFO_PATH + "/phoneno" , phoneno); model.setValue(sINREQFRMINFO_PATH + "/drgyn" , "N"); var ioflag = model.getValue("/root/patflag/list/prcpgenrflag"); if(ioflag == "O"){ //¿Ü·¡È¯ÀÚ´Â ±âº»ÀûÀ¸·Î ÀÔ¿ø ¼³Á¤ ioflag = "I"; } model.setValue(sINREQFRMINFO_PATH + "/erreglyn", ioflag); fReqCnstteamList(); model.removeNodeset(sDIAGCDLIST_PATH); model.removeNodeset(sOPCDLIST_PATH); model.refresh(); grd_diaglist.addrow(false, true); grd_oplist.addrow(false, true); model.recalculate(); var status = model.setValue("/root/main/inreqfrminfo/inreqfrminfo/status", ""); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); //2012/08/13 Start btn_del.disabled="false"; //2012/08/13 End } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); //2012/08/13 Start btn_del.disabled="true"; //2012/08/13 End } //DRG ¿ÀǽñîÁö ¹öư ¼û±è¿©ºÎ fdrgbtnchk(); model.refresh(); } /** * @desc : DRG°ü·Ã ¹öư ¼û±è * @ * @param : * @return : * @author : ÀÌÁ¤Åà * @--------------------------------------------------- */ function fdrgbtnchk(){ var trgtcd=model.getValue("/root/init/hardcd_5860/hardcd/hardcd"); if(trgtcd=="Y"){ caption42.visible=false; radio5.visible=false; button7.visible=false; caption43.visible=false; caption45.visible=false; input3.visible=false; input2.visible=false; }else if(trgtcd=="N"){ caption42.visible=true; radio5.visible=true; button7.visible=true; caption43.visible=true; caption45.visible=true; input3.visible=true; input2.visible=true; } } /** * @desc : ¼ö¼ú¿ë¾îÄÚµå °Ë»ö * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSearchOpTermCD_old(){ var icd9cd = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("icd9cd")); var opengnm = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("opengnm")); var ophngnm = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("ophngnm")); if(icd9cd == "" && opengnm == "" && ophngnm == ""){ //¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾Ê´Â °æ¿ì return return; } if(grd_oplist.col == grd_oplist.colRef("icd9cd")){ var param = "1¢Ë" + "1¢ËE¢Ë" + getCurrentDate() + "¢Ë" + grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("icd9cd")); setParameter("SPMMO05200_param", param); }else if(grd_oplist.col == grd_oplist.colRef("opengnm")){ var param = "2¢Ë4¢Ë" + fIsHangul(opengnm) + "¢Ë" + getCurrentDate() + "¢Ë" + opengnm; setParameter("SPMMO05200_param", param); }else if(grd_oplist.col == grd_oplist.colRef("ophngnm")){ var param = "2¢Ë4¢Ë" + fIsHangul(ophngnm) + "¢Ë" + getCurrentDate() + "¢Ë" + ophngnm; setParameter("SPMMO05200_param", param); } modal("SPMMO05200"); var useyn = getParameter("SPMMO05200_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO05200_rtn_useyn", ""); fSetOpTermCD(); }else{ setParameter("SPMMO05200_rtn_useyn", ""); var currow = grd_oplist.row; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , ""); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm", ""); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm", ""); model.refresh(); } } /** * @desc : ¼ö¼ú¿ë¾îÄÚµå °Ë»ö * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSearchOpTermCD(){ var icd9cd = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("icd9cd")); var opengnm = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("opengnm")); var ophngnm = grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("ophngnm")); var perfdeptcd = model.getValue(sINREQFRMINFO_PATH + "/orddeptcd"); var perfdrid = model.getValue(sINREQFRMINFO_PATH + "/orddrid"); if(icd9cd == "" && opengnm == "" && ophngnm == ""){ //¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾Ê´Â °æ¿ì return return; } if(grd_oplist.col == grd_oplist.colRef("icd9cd")){ var param = getCurrentDate() + "¢Ë" + perfdeptcd + "¢Ë" + perfdrid + "¢Ë" + grd_oplist.valueMatrix(grd_oplist.row, grd_oplist.colRef("icd9cd")); setParameter("SPMMO11000_param", param); }else if(grd_oplist.col == grd_oplist.colRef("ophngnm")){ var param = getCurrentDate() + "¢Ë" + perfdeptcd + "¢Ë" + perfdrid + "¢Ë" + "" + "¢Ë" + ophngnm + "¢Ë" + "" + "¢Ë" + "H"; setParameter("SPMMO11000_param", param); }else if(grd_oplist.col == grd_oplist.colRef("opengnm")){ var param = getCurrentDate() + "¢Ë" + perfdeptcd + "¢Ë" + perfdrid + "¢Ë" + "" + "¢Ë" + opengnm + "¢Ë" + "" + "¢Ë" + "E"; setParameter("SPMMO11000_param", param); } modal("SPMMO11000"); var useyn = getParameter("SPMMO11000_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO11000_rtn_useyn", ""); fSetOpTermCD(); }else{ setParameter("SPMMO11000_rtn_useyn", ""); var currow = grd_oplist.row; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , ""); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm", ""); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm", ""); model.refresh(); } } /** * @desc : ¼ö¼ú¿ë¾îÄÚµå ¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSetOpTermCD_old(){ var rtnparam = getParameter("SPMMO05200_rtn_param"); rtnparam = rtnparam.split("¢Ì"); for(var i = 0; i <= rtnparam.length-2; i++){ var tmpstr = rtnparam[i]; tmpstr = tmpstr.split("¢Ë"); var currow = grd_oplist.rows-1; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagtypecd", "O"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , tmpstr[0]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orgopcd" , tmpstr[1]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm" , tmpstr[2]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm" , tmpstr[3]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø·áÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sOPCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); //grd_oplist.addrow(false, true); } model.recalculate(); model.refresh(); } /** * @desc : ¼ö¼ú¿ë¾îÄÚµå ¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSetOpTermCD(){ var rtnparam = getParameter("SPMMO11000_rtn_param"); tmpstr = rtnparam.split("¢Ë"); var currow = grd_oplist.rows-1; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagtypecd", "O"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , tmpstr[1]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orgopcd" , tmpstr[1]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm" , tmpstr[2]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm" , tmpstr[3]); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø·áÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sOPCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); model.recalculate(); model.refresh(); } /** * @desc : Áø´Ü¿ë¾îÄÚµå °Ë»ö * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSearchDiagTermCD(){ var diagcd = grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diagcd")); var diagengnm = grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diagengnm")); var diaghngnm = grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diaghngnm")); if(diagcd == "" && diagengnm == "" && diaghngnm == ""){ //¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾Ê´Â °æ¿ì return return; } if(grd_diaglist.col == grd_diaglist.colRef("diagcd")){ setParameter("SPMMO00800_cond1", 1); setParameter("SPMMO00800_cond2", 4); setParameter("SPMMO00800_cond3", "E"); setParameter("SPMMO00800_cond4", getCurrentDate()); setParameter("SPMMO00800_cond5", grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diagcd"))); }else if(grd_diaglist.col == grd_diaglist.colRef("diagengnm")){ setParameter("SPMMO00800_cond1", 2); setParameter("SPMMO00800_cond2", 4); setParameter("SPMMO00800_cond3", fIsHangul(diagengnm)); setParameter("SPMMO00800_cond4", getCurrentDate()); setParameter("SPMMO00800_cond5", grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diagengnm"))); }else if(grd_diaglist.col == grd_diaglist.colRef("diaghngnm")){ setParameter("SPMMO00800_cond1", 2); setParameter("SPMMO00800_cond2", 4); setParameter("SPMMO00800_cond3", fIsHangul(diaghngnm)); setParameter("SPMMO00800_cond4", getCurrentDate()); setParameter("SPMMO00800_cond5", grd_diaglist.valueMatrix(grd_diaglist.row, grd_diaglist.colRef("diaghngnm"))); } modal("SPMMO00800"); var useyn = getParameter("SPMMO00800_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO00800_rtn_useyn", ""); fSetDiagTermCD(); }else{ setParameter("SPMMO00800_rtn_useyn", ""); var currow = grd_diaglist.row; model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/icd10cd" , ""); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagengnm", ""); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diaghngnm", ""); model.refresh(); } } /** * @desc : Áø´Ü¿ë¾îÄÚµå ¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSetDiagTermCD(){ var rtnparam = getParameter("SPMMO00800_rtn"); rtnparam = rtnparam.split("¢Ì"); for(var i = 1; i <= rtnparam.length-2; i++){ var tmpstr = rtnparam[i]; tmpstr = tmpstr.split("¢Ë"); var currow = grd_diaglist.rows - 1; model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagtypecd", "R"); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/icd10cd" , tmpstr[8]); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagcd" , tmpstr[9]); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagengnm" , tmpstr[2]); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diaghngnm" , tmpstr[3]); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø´ÜÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); grd_diaglist.addrow(false, true); } model.recalculate(); model.refresh(); } /** * @desc : Áø´Ü,¼ö¼ú ±×¸®µå¿¡ ÀúÀåÇÒ ³»¿ªÀÌ ÀÖ´Â countÇÑ´Ù. * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSaveChkValidDiagOp(grdObj){ var cnt = 0; for(var i = 0 ; i < grdObj.rows ; i++){ var status = grdObj.ValueMatrix(i, grdObj.colRef("status")); if(status == "i" || status == "d"){ cnt++; } } if(cnt > 0){ return true; //º¯°æµÈ »çÇ×ÀÌ ÀÖ´Â °æ¿ì true return }else{ return false; } } /** * @desc : ÀÔ¿øÀÇ·Ú¼­ Áø´Ü, ¼ö¼ú »èÁ¦ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fDeleteRow(grdobj){ var selectedCells = grdobj.selectedCells; for(var i = selectedCells.length - 1; i >= 0 ;i--){ var row = selectedCells.item(i).row; var status = grdobj.valueMatrix(row, grdobj.colref("status")); if(status == "i"){ model.removeNode(grdobj.nodeset + "[" + row + "]"); }else if(status == "u" || status == "d" || status == "-"){ grdobj.valueMatrix(row, grdobj.colref("status")) = "d"; } } model.refresh(); } /** * @desc : ȯÀÚÀÇ ÇöÀç ³»·ÁÁø Áø´ÜÁ¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqDiagOpList(){ var param = opener.javascript.getParameter("SPMMO00100_param"); if(param.length > 1){ //parameter°¡ ÀÖ´Â °æ¿ì param = param.split("¢Ë"); var pid = param[0]; var orddeptcd = param[2]; var orddd = param[6]; var ioflag = param[8]; }else{ //parameter°¡ ¾ø´Â °æ¿ì, ȯÀÚ »ó´ÜÁ¤º¸¸¦ ÀÌ¿ë var paminfo = model.instance1.selectNodes("/root/paminfo/list"); var patflag = model.instance1.selectNodes("/root/paminfo/list"); if(paminfo.length > 0 && patflag.length > 0){ var pid = model.getValue("/root/paminfo/list/pid"); var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd"); var ioflag = model.getValue("/root/patflag/list/prcpgenrflag"); if(ioflag == "O"){ var orddd = model.getValue("/root/paminfo/list/orddd"); }else{ var orddd = model.getValue("/root/paminfo/list/indd"); } }else{ messageBox("ȯÀÚ Á¤º¸¸¦ ãÀ» ¼ö", "I004"); window.close(); } } model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , pid); model.makeValue("/root/send/reqdata/orddeptcd", orddeptcd); model.makeValue("/root/send/reqdata/orddd" , orddd); model.makeValue("/root/send/reqdata/ioflag" , ioflag); if(submit("TRMMO00114")==true){ for(var i = 1; i < grd_diaglist.rows; i++){ model.setValue("/root/main/diaginfo/diagcdlist[" + i + "]/orddd", model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø·áÀÏÀÚ´Â ÀÔ¿øÈñ¸ÁÀÏÀÚ } } grd_diaglist.addRow(true, true); grd_oplist.addRow(true, true); model.recalculate(); model.refresh(); } /** * @desc : Áø´Ü, ¼ö¼ú ÀúÀå½Ã Áø·áÀÏÀÚ´Â ÀÔ¿øÈñ¸ÁÀÏÀÚ·Î ¼³Á¤ÇØ¾ß ÇÔ * Áø´Ü¿¡ ´ëÇÑ È¯ÀÚ Áø·á°ú, Áø·áÀǵµ ºÎ¼­¿¡ ¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSetDiagOpInhopeDD(){ var inhopedd = model.getValue(sINREQFRMINFO_PATH + "/inhopedd"); var orddeptcd = model.getValue(sINREQFRMINFO_PATH + "/orddeptcd"); var orddrid = model.getValue(sINREQFRMINFO_PATH + "/orddrid"); for(var i = 1; i < grd_diaglist.rows; i++){ model.setValue("/root/main/diaginfo/diagcdlist[" + i + "]/orddd" , inhopedd); model.setValue("/root/main/diaginfo/diagcdlist[" + i + "]/orddeptcd", orddeptcd); model.setValue("/root/main/diaginfo/diagcdlist[" + i + "]/orddrid" , orddrid); } for(var i = 1; i < grd_oplist.rows; i++){ model.setValue("/root/main/diaginfo/opcdlist[" + i + "]/orddd" , inhopedd); model.setValue("/root/main/diaginfo/opcdlist[" + i + "]/orddeptcd", orddeptcd); model.setValue("/root/main/diaginfo/opcdlist[" + i + "]/orddrid" , orddrid); } } /** * @desc : Áø´ÜÆË¾÷ open * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fOpenDiagPopUp(){ //pyj ÆÄ¶ó¸ÞÅ͸¦ ³Ñ°ÜÁØ´Ù.(/root/temp->/root/tempdiag) setParameter("SPMMO3200_param_nodepath","/root/tempdiag"); modal("SPMMO03200"); var useyn = getParameter("SPMMO03200_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO03200_rtn_useyn", ""); var totcnt = getNodeSetCnt("/root/tempdiag/selectdiaglist"); for(var i = 1; i <= totcnt; i++){ var diagcd = model.getValue("/root/tempdiag/selectdiaglist[" + i + "]/diagcd"); var icd10cd = model.getValue("/root/tempdiag/selectdiaglist[" + i + "]/icd10cd"); var diagengnm = model.getValue("/root/tempdiag/selectdiaglist[" + i + "]/diagengnm"); var diaghngnm = model.getValue("/root/tempdiag/selectdiaglist[" + i + "]/diaghngnm"); var currow = grd_diaglist.rows - 1; model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagtypecd", "R"); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/icd10cd" , icd10cd); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagcd" , diagcd); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diagengnm" , diagengnm); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/diaghngnm" , diaghngnm); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø´ÜÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sDIAGCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); grd_diaglist.addrow(false, true); } } model.recalculate(); model.removeNode("/root/tempdiag/selectdiaglist"); /* var currow = grd_inreqhistlist.row; if(currow < 1){ return; } fDispInReqHistInfo(currow); */ var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); } model.refresh(); } /** * @desc : ¼ö¼úÆË¾÷ open * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fOpenOpPopUp_old(){ modal("SPMMO11000"); var useyn = getParameter("SPMMO11000_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO11000_rtn_useyn", ""); var totcnt = getNodeSetCnt("/root/temp/selectoplist"); for(var i = 1; i <= totcnt; i++){ var opcd = model.getValue("/root/temp/selectoplist[" + i + "]/opcd"); var dispopcd = model.getValue("/root/temp/selectoplist[" + i + "]/dispopcd"); var opengnm = model.getValue("/root/temp/selectoplist[" + i + "]/opengnm"); var ophngnm = model.getValue("/root/temp/selectoplist[" + i + "]/ophngnm"); var currow = grd_oplist.rows-1; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagtypecd", "O"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , dispopcd); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orgopcd" , opcd); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm" , opengnm); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm" , ophngnm); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø·áÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sOPCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); //grd_oplist.addrow(false, true); } } model.recalculate(); var currow = grd_inreqhistlist.row; if(currow < 1){ return; } fDispInReqHistInfo(currow); var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); } model.refresh(); } /** * @desc : ¼ö¼úÆË¾÷ open * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fOpenOpPopUp(){ var param = "" + "¢Ë" + model.getValue(sINREQFRMINFO_PATH + "/orddeptcd") + "¢Ë" + model.getValue(sINREQFRMINFO_PATH + "/orddrid") + "¢Ë" + "" + "¢Ë" + "" + "¢Ë" + "perf"; //query±¸ºÐ setParameter("SPMMO11000_param", param); modal("SPMMO11000"); var useyn = getParameter("SPMMO11000_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO11000_rtn_useyn", ""); var opinfo = getParameter("SPMMO11000_rtn_param"); oplist = opinfo.split("¢Ë"); opcd = oplist[1]; dispopcd = oplist[1]; ophngnm = oplist[2]; opengnm = oplist[3]; var currow = grd_oplist.rows-1; model.setValue(sOPCDLIST_PATH + "[" + currow + "]/status" , "i"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagdd" , getCurrentDate()); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/diagtypecd", "O"); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/icd9cd" , dispopcd); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orgopcd" , opcd); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/opengnm" , opengnm); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/ophngnm" , ophngnm); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddd" , model.getValue(sINREQFRMINFO_PATH + "/inhopedd")); //Áø·áÀÏÀÚ´Â ÀÔ¿ø¿¹Á¤ÀÏ model.setValue(sOPCDLIST_PATH + "[" + currow + "]/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/cretno" , 0); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); model.setValue(sOPCDLIST_PATH + "[" + currow + "]/orddrid" , model.getValue(sINREQFRMINFO_PATH + "/orddrid")); //grd_oplist.addrow(false, true); } model.recalculate(); var currow = grd_inreqhistlist.row; if(currow < 1){ return; } fDispInReqHistInfo(currow); var status = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/status"); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); } model.refresh(); } /** * @desc : ÀÔ¿ø¿¹Á¤ÀÏ ¼öÁ¤½Ã, Áø´ÜÁ¤º¸ ¼öÁ¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChngInHopeDD(){ var inhopedd = model.getValue(sINREQFRMINFO_PATH + "/inhopedd"); if(inhopedd < getCurrentDate()){ messageBox("°ú°ÅÀÏÀÚ·Î ÀÔ¿øÀÇ·Ú¼­¸¦ ÀÛ¼º", "E001"); model.setValue(sINREQFRMINFO_PATH + "/inhopedd", getCurrentDate()); model.refresh(); return; }else{ model.setValue(sINREQFRMINFO_PATH + "/orddd", inhopedd); //Áø´ÜÁ¤º¸ ¼öÁ¤ for(var i=1; i < grd_diaglist.rows;i++){ var status = model.getValue(sDIAGCDLIST_PATH + "[" + i + "]/status"); if(status == "-"){ model.setValue(sDIAGCDLIST_PATH + "[" + i + "]/status", "u"); } model.setValue(sDIAGCDLIST_PATH + "[" + i + "]/orddd" , inhopedd); } //¼ö¼úÁø´ÜÁ¤º¸ ¼öÁ¤ for(var i=1; i < grd_oplist.rows;i++){ var status = model.getValue(sOPCDLIST_PATH + "[" + i + "]/status"); if(status == "-"){ model.setValue(sOPCDLIST_PATH + "[" + i + "]/status", "u"); } model.setValue(sOPCDLIST_PATH + "[" + i + "]/orddd" , inhopedd); } model.refresh(); } } /** * @desc : Áø·áÀÇ º¯°æ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChngOrdDrID(){ var orddrid = model.getValue(sINREQFRMINFO_PATH + "/orddrid"); //Áø´ÜÁ¤º¸ ¼öÁ¤ for(var i=1; i < grd_diaglist.rows;i++){ var status = model.getValue(sDIAGCDLIST_PATH + "[" + i + "]/status"); if(status == "-"){ model.setValue(sDIAGCDLIST_PATH + "[" + i + "]/status", "u"); } model.setValue(sDIAGCDLIST_PATH + "[" + i + "]/orddrid" , orddrid); } //¼ö¼úÁø´ÜÁ¤º¸ ¼öÁ¤ for(var i=1; i < grd_oplist.rows;i++){ var status = model.getValue(sOPCDLIST_PATH + "[" + i + "]/status"); if(status == "-"){ model.setValue(sOPCDLIST_PATH + "[" + i + "]/status", "u"); } model.setValue(sOPCDLIST_PATH + "[" + i + "]/orddrid" , orddrid); } model.refresh(); } /** * @desc : »ç¿ëÀÚ ±ÇÇÑ °Ë»ç, ÀÔ¿ø°áÁ¤¼­´Â ÇØ´ç Áø·á°úÀÇ Àǻ縸 ÀúÀå, ¼öÁ¤, »èÁ¦°¡ °¡´ÉÇÔ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChkUserAuth(){ var status = model.getValue(sINREQFRMINFO_PATH + "/status"); var sOrdDeptCd = model.getValue(sINREQFRMINFO_PATH + "/orddeptcd"); var sUserDeptCd = getUserInfo("dutplcecd"); if(sOrdDeptCd == sUserDeptCd){ return true; } if (sOrdDeptCd =="2210000000" || sOrdDeptCd == "2361100000" || sOrdDeptCd =="2200000000") { // º´¸®°ú, ±¹Á¦Áø·á¼¾ÅÍ, Áø´Ü°Ë»çÀÇÇаú return false; } var sErOrdDeptCd = model.getValue("/root/init/hardcdno/hardcd/hardcd"); //ÀÀ±ÞÀÇÇаúÀÎ °æ¿ì, ½Å±Ôµî·ÏÀº Ÿ°úµµ °¡´ÉÇÏ°Ô Ã³¸® if(sUserDeptCd == sErOrdDeptCd){ return true; } var bmtopen = opener.javascript.getParameter("SPMMO00100_BMTDEPTCD"); // BMT ÄÚµð³×ÀÌÅͽÇÀΰæ¿ì ÀÔ¿øÀÇ·Ú¼­ ÀÛ¼º °¡´É if (!isNull(bmtopen)) { return true; } if(menuauthchkyn=="Y"){ // 2013/01/21 Start Àü¹®°£È£·Î ·Î±×Àνà ÀúÀå ÇÒ ¼ö ÀÖµµ·Ï ±â´É Ãß°¡ return true; } // 2013/01/21 End if ( sOrdDeptCd == "2040000000" || sOrdDeptCd == "2041100000" || sOrdDeptCd =="2040400000") { //¿Ü°ú, À¯¹æ¼¾ÅÍ´Â °°Àº°úÀÌ´Ù if ( sUserDeptCd == "2040000000" || sUserDeptCd == "2041100000" || sUserDeptCd == "2040400000" ) { return true; } } if(fContainsHardCD("445", sOrdDeptCd) && fContainsHardCD("445", sUserDeptCd)) { // 2014.05.16 ¾ö¿µ¸¸ ¼Ò¾Æ°ú ºÐ°ú³¢¸®´Â ÀÇ·Ú¼­ ÀÛ¼º °¡´É return true; } var userauth = model.getValue("/root/init/userauth/hardcd/hardcd"); // ÇϵåÄÚµå 91 ÀÔ¿øÀÇ·Ú¼­ ±ÇÇÑüũ¿©ºÎ(Ÿ°ú ÀÔ¿øÀå ¹ßÇà °¡´É¿©ºÎ) if (userauth == "A") { // ¸ðµç°ú¿¡¼­ ÀÔ¿øÀÇ·Ú¼­ µî·Ï°¡´É return true; } else if (userauth == "P") { // ƯÁ¤°ú (ÇϵåÄÚµå Å×À̺í 92¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É if (fContainsHardCD("92", sUserDeptCd) ) { // ƯÁ¤°ú (ÇϵåÄÚµå Å×À̺í 92¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É return true; } else { return false; } } else if (userauth == "I") { // ƯÁ¤ÀÎ (ÇϵåÄÚµå Å×À̺í 93¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É if (fContainsHardCD("93", getUserInfo("userid")) ) { // ƯÁ¤°ú (ÇϵåÄÚµå Å×À̺í 92¹ø¿¡ ÁöÁ¤)¸¸ Ÿ°ú ÀÔ¿øÀå ¹ß±Þ °¡´É return true; } else { return false; } } else { return false; } } /** * @desc : ȯÀÚ µî·Ï¹øÈ£¸¦ ÅëÇÑ È¯ÀÚ À̸§ °¡Á®¿À±â * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatSrch(s_val, flag){ if(flag == "1"){ model.makeValue("/root/tmp/pid", s_val); } else if(flag == "2"){ model.makeValue("/root/tmp/hngnm", s_val); } model.makeValue("/root/tmp/srchcond", flag); model.makeValue("/root/tmp/autoflag","Y"); // 1°ÇÀΰæ¿ì ÀÚµ¿À¸·Î´ÝÈû model.removeNode("/root/main/patinfo/patinfolist"); model.makeNode("/root/main/patinfo/patinfolist"); modal("SPPMC02500", 1,10, 10, "SPPMC02500", "/root/tmp", "/root/send"); model.refresh(); } /** * @desc : ¼ö¼ú¿¹Á¤ÀÏ ´Þ·ÂÀÌ º¸ÀÌ´Â ±âÁØ º¯°æ * @ ( ÀÔ¿ø¿¹Á¤ÀÏ¿¡ ¸ÂÃç ¼ö¼ú¿¹Á¤ÀÏÀÇ ´Þ·Â¹öư Ŭ¸¯½Ã ÀÔ¿ø¿¹Á¤ÀÏÀÌ ÃʱâÈ­ µÇµµ·Ï ¼öÁ¤) * @param : * @return : * @author : ±è¿µÇÐ (2008. 12. 11) * @--------------------------------------------------- */ function fChgOpBaseDD() { var inhopedd = model.getValue(sINREQFRMINFO_PATH + "/inhopedd"); model.setValue(sINREQFRMINFO_PATH + "/scheopdd", inhopedd); //model.refresh(); } /** * @desc : ÇùÁøÆÀ¸í Á¶È¸ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fReqCnstteamList(){ model.removenode("/root/temp/cnstteam/cnstteaminfo"); model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); submit("TRMMO00126"); model.setValue(sINREQFRMINFO_PATH + "/cnstteam", model.getValue("/root/temp/cnstteam/cnstteaminfo/cnstteam")); model.refresh(); } /** * @desc : ¾Ï¼¾ÅÍ º´µ¿ÄÚµåÁ¶È¸ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fReqCenterWardcdList(){ submit("TRMMO00128"); } /** * @desc : ¾Ï¼¾ÅÍ º´µ¿ÄÚµåÁ¶È¸ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fCentValChng(){ var wardtypecd = model.getValue(sINREQFRMINFO_PATH + "/wardtypecd"); if (wardtypecd =="01") { cmb_specwardcd.disabled = false; model.setValue(sINREQFRMINFO_PATH + "/specwardcd", "-"); } else { cmb_specwardcd.disabled = true; model.setValue(sINREQFRMINFO_PATH + "/specwardcd", "-"); } model.setValue(sINREQFRMINFO_PATH + "/specroomyn", ""); model.refresh(); } /** * @desc : º´½ÇÁ¤º¸ º¯°æ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fChngRoomInfo(){ cmb_specwardcd.disabled = true; model.setValue(sINREQFRMINFO_PATH + "/wardtypecd" , ""); model.setValue(sINREQFRMINFO_PATH + "/specwardcd", "-"); model.refresh(); } /** * @desc : JCI _ ȯÀÚ±³À° ÀÔ·ÂÈ­¸é ÆË¾÷ * @ * @param : * @return : * @author : ±è¼ÒÁ¤ * @--------------------------------------------------- */ function fInsPatEduc(){ //kimsj 100114 JCI _ ȯÀÚ±³À° ÀÔ·ÂÈ­¸é ÆË¾÷ mmbfGetHardCodeInfoNm("/root/send/reqdata", "/root/init/pateducyn", 177); //ȯÀÚ±³À° µî·Ï¿©ºÎ var pateducyn = model.getValue("/root/init/pateducyn/hardcd/hardcd"); if ( pateducyn == "Y" ) { messageBox ( "ÀÔ¿ø Àü ȯÀÚ ¹× º¸È£ÀÚ ±³À°À» ÀÛ¼ºÇÏ¼Å¾ß ÇÕ´Ï´Ù.", "I" ); //kimsj 100128 JCI_¸¶Áö¸· ¼öÁøÀÌ·Â Á¶È¸(½Å±Ô ±³À°ÆË¾÷ À§Çؼ­ ÇÊ¿ä) model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , model.getValue(sINREQFRMINFO_PATH + "/pid")); model.makeValue("/root/send/reqdata/orddeptcd" , model.getValue(sINREQFRMINFO_PATH + "/orddeptcd")); submit("TRMMO00131"); var vPid = model.getValue("root/temp/prcpinforsntly/prcpinforsntly/pid"); var vOrddd = model.getValue("root/temp/prcpinforsntly/prcpinforsntly/orddd"); var vCretno = model.getValue("root/temp/prcpinforsntly/prcpinforsntly/cretno"); var vEducd = "010"; var vEducnts = "ÀÔ¿ø ¸ñÀû, Áúº´»óÅÂ, Ä¡·á°èȹ, ¿¹»óµÇ´Â Ä¡·á°á°ú, ´ã´ç ÁÖÄ¡ÀÇ ¼Ò°³, ÇØ´çÇÏ´Â °æ¿ì °Ë»ç°á°ú µî¿¡ ´ëÇØ ¼³¸íÇÔ"; setParameter("SPMRJ00200_pid" , vPid); setParameter("SPMRJ00200_orddd" , vOrddd); setParameter("SPMRJ00200_cretno" , vCretno); setParameter("SPMRJ00200_educd" , vEducd); setParameter("SPMRJ00200_educnts" , vEducnts); setParameter("SPMRJ00200_workpart" , "inreq"); //modal("SPMRJ00200"); modal("SPMRJ00200", 1, 0, 0, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; min:hidden, max:hidden;"); } } // 2007.10.05 - ÀÔ¿ø¾àÁ¤¼­ Ãâ·Â function fInDeciPrint(vPid, vInrsrvAcptdd, vOrdDeptcd, vOrdDrid, vInsukind, vPrintflag) { // ÀÔ¿ø¾àÁ¤¼­ Á¦¾î ½ÃÀÛ by Á¶Áß·¡ 20120322 var bExist = false; var ivrObjt = document.all("ivr_agmt"); if (ivrObjt == null) { body.createChild("xforms:iviewer", "id:ivr_agmt; src:../../../pam/ipatmngtweb/xrw/SPPMI03200_ÀÔ¿ø¾àÁ¤¼­°ü¸®.xrw"); ivrObjt = document.all("ivr_agmt"); } bExist = ivrObjt.window.javascript.fReqGetInAgmtCount(vPid, vInrsrvAcptdd, vPrintflag); // ÀÔ¿ø¾àÁ¤¼­ Á¸Àç¿©ºÎ ÆÇ´Ü if (bExist != true) { // 1. ÇØ´ç ÀÔ¿ø¿¡ ´ëÇÑ ¾àÁ¤¼­°¡ Á¸ÀçÇÏÁö ¾Ê´Â °æ¿ì ¾àÁ¤¼­ ÀÚµ¿Ãâ·Â ivrObjt.window.javascript.fPrintAgmt(vPid, vInrsrvAcptdd, vOrdDeptcd, vOrdDrid, vPrintflag, "Y", "", "", vInsukind); } else if(vPrintflag == "2"){ // 2. ȯÀÚ°¡ ÀÔ¿ø¾àÁ¤¼­¸¦ ÁöÂüÇÏÁö ¾ÊÀº °æ¿ì ÀÔ¿ø¾àÁ¤¼­ °ü¸®È­¸é¿¡¼­ ÀçÃâ·Â messageBox("À¯È¿ÇÑ ±â°£¾àÁ¤¼­°¡ Á¸ÀçÇϹǷΠ¾àÁ¤¼­¸¦ Ãâ·Â ÇÏÁö¾Ê½À´Ï´Ù.\n\nÀÚ¼¼ÇÑ ³»¿ëÀÇ ¹®ÀÇ´Â ¿ø¹«ÆÀÀ¸·Î ¾È³»ÇØÁֽñ⠹ٶø´Ï´Ù", "I999"); } else { messageBox("À¯È¿ÇÑ ÀÔ¿ø¾àÁ¤¼­°¡ Á¸ÀçÇϹǷΠ¾àÁ¤¼­¸¦ Ãâ·Â ÇÏÁö¾Ê½À´Ï´Ù.\n\nÀÚ¼¼ÇÑ ³»¿ëÀÇ ¹®ÀÇ´Â ¿ø¹«ÆÀÀ¸·Î ¾È³»ÇØÁֽñ⠹ٶø´Ï´Ù", "I999"); } // ÀÔ¿ø¾àÁ¤¼­ Á¦¾î Á¾·á by Á¶Áß·¡ 20120322 /** ±âÁ¸ ¾àÁ¤¼­ ·ÎÁ÷ OCRÇüÅ·Π¾àÁ¤¼­ º¯°æ 2012.03.27 ¾ö¿µ¸¸ // model.removeNodeset("/root/hidden/h_deciprint/deciprint"); // model.makeNode("/root/hidden/h_deciprint/deciprint/indd"); //ÀÔ¿øÀÏ - ÀÔ¿øÀϽà // model.makeNode("/root/hidden/h_deciprint/deciprint/inpath"); //ÀÔ¿ø°æ·Î // //ÀÔ¿ø±¸ºÐ // model.makeNode("/root/hidden/h_deciprint/deciprint/roomcd"); //ÀÔ¿øº´½Ç // model.makeNode("/root/hidden/h_deciprint/deciprint/orddeptcd"); //Áø·á°ú // model.makeNode("/root/hidden/h_deciprint/deciprint/orddrid"); //¼±ÅÃÀÇ // model.makeNode("/root/hidden/h_deciprint/deciprint/specordyn"); //¼±ÅÃÀÇ/ÁöÁ¤ÀÇ // model.makeNode("/root/hidden/h_deciprint/deciprint/pid"); //µî·Ï¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/hngnm"); //ȯÀÚ¼º¸í // model.makeNode("/root/hidden/h_deciprint/deciprint/rrgstno"); //ÁֹιøÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/sex"); //¼ºº°1 // model.makeNode("/root/hidden/h_deciprint/deciprint/religncd"); //Á¾±³ // model.makeNode("/root/hidden/h_deciprint/deciprint/address"); //ÁÖ¼Ò = »óÀ§ÁÖ¼Ò + ÇÏÀ§ÁÖ¼Ò // model.makeNode("/root/hidden/h_deciprint/deciprint/hometel"); //ÀüÈ­¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/mpphontel"); //ÈÞ´ëÆù // //±Ù¹«Ã³ // //±Ù¹«Ã³¿¬¶ôó // model.makeNode("/root/hidden/h_deciprint/deciprint/insukind"); //º¸ÇèÀ¯Çü // model.makeNode("/root/hidden/h_deciprint/deciprint/insucd"); //±â°ü±âÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/insuno"); //Áõ¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/insdnm"); //¼¼´ëÁÖ(ÇǺ¸ÇèÀÚ) // model.makeNode("/root/hidden/h_deciprint/deciprint/diagcd"); //»óº´ÄÚµå // model.makeNode("/root/hidden/h_deciprint/deciprint/termhngnm"); //»óº´¸í // model.makeNode("/root/hidden/h_deciprint/deciprint/inschedd"); //ÀÔ¿ø¿¹Á¤ÀÏ // model.makeNode("/root/hidden/h_deciprint/deciprint/opschedd"); //¼ö¼ú¿¹Á¤ÀÏ // model.makeNode("/root/hidden/h_deciprint/deciprint/indirecdrnm"); //ÀÇ·ÚÀÚ // model.makeNode("/root/hidden/h_deciprint/deciprint/inrsrvacptdt"); //ÀÇ·ÚÀϽà // model.makeNode("/root/hidden/h_deciprint/deciprint/handicapryn1"); //Àå¾ÖÀÎÀ¯¹«Ã¼Å© // model.makeNode("/root/hidden/h_deciprint/deciprint/handicapryn2"); //Àå¾ÖÀÎÀ¯¹«Ã¼Å© // model.makeNode("/root/hidden/h_deciprint/deciprint/inrsrvrem"); //¿ø¹«Âü°í»çÇ× // model.makeNode("/root/hidden/h_deciprint/deciprint/cnstyn"); //ÀÇ·Ú¼­Á¦Ãâ¿©ºÎ // model.makeNode("/root/hidden/h_deciprint/deciprint/rareobstflag"); //Èñ±Í³­Ä¡ // model.makeNode("/root/hidden/h_deciprint/deciprint/disregprson3"); //Â÷»óÀ§ // model.makeNode("/root/hidden/h_deciprint/deciprint/wardnm"); //º´µ¿¸í // model.makeNode("/root/hidden/h_deciprint/deciprint/bedcnt"); //º´»ó¼ö // model.makeNode("/root/hidden/h_deciprint/deciprint/rrgstno1"); //ÁֹιøÈ£¾ÕÀÚ¸® // model.makeNode("/root/hidden/h_deciprint/deciprint/rrgstno2"); //ÁֹιøÈ£µÞÀÚ¸® // model.makeNode("/root/hidden/h_deciprint/deciprint/insukindcd"); //º¸ÇèÀ¯ÇüÄÚµå // model.makeNode("/root/hidden/h_deciprint/deciprint/grnternm"); //º¸ÁõÀθí // model.makeNode("/root/hidden/h_deciprint/deciprint/grntertel"); //º¸ÁõÀÎÀüÈ­¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/realcd"); //º¸ÁõÀΰü°è // model.makeNode("/root/hidden/h_deciprint/deciprint/addr"); //º¸ÁõÀÎÁÖ¼Ò // model.makeNode("/root/hidden/h_deciprint/deciprint/grnterrrgstno1"); //º¸ÁõÀÎÁֹιøÈ£¾ÕÀÚ¸® // model.makeNode("/root/hidden/h_deciprint/deciprint/grnterrrgstno2"); //º¸ÁõÀÎÁֹιøÈ£µÞÀÚ¸® // model.makeNode("/root/hidden/h_deciprint/deciprint/grntermpphontel"); //º¸ÁõÀÎÈÞ´ëÀüÈ­¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/worknm"); //º¸ÁõÀÎÁ÷Àå¸í // model.makeNode("/root/hidden/h_deciprint/deciprint/worktel"); //º¸ÁõÀÎÁ÷ÀåÀüÈ­¹øÈ£ // model.makeNode("/root/hidden/h_deciprint/deciprint/grnternm1"); //º¸ÁõÀθí1 // model.makeNode("/root/hidden/h_deciprint/deciprint/grntertel1"); //º¸ÁõÀÎÀüÈ­¹øÈ£1 // model.makeNode("/root/hidden/h_deciprint/deciprint/real1"); //º¸ÁõÀΰü°è1 // model.makeNode("/root/hidden/h_deciprint/deciprint/addr1"); //º¸ÁõÀÎÁÖ¼Ò1 // model.makeNode("/root/hidden/h_deciprint/deciprint/grnterrrgstno11"); //º¸ÁõÀÎÁֹιøÈ£¾ÕÀÚ¸®1 // model.makeNode("/root/hidden/h_deciprint/deciprint/grnterrrgstno12"); //º¸ÁõÀÎÁֹιøÈ£µÞÀÚ¸®1 // model.makeNode("/root/hidden/h_deciprint/deciprint/grntermpphontel1"); //º¸ÁõÀÎÈÞ´ëÀüÈ­¹øÈ£1 // model.makeNode("/root/hidden/h_deciprint/deciprint/worknm1"); //º¸ÁõÀÎÁ÷Àå¸í1 // model.makeNode("/root/hidden/h_deciprint/deciprint/worktel1"); //º¸ÁõÀÎÁ÷ÀåÀüÈ­¹øÈ£1 // model.makeNode("/root/hidden/h_deciprint/deciprint/centcd"); //¼¾Å͸í // // model.makeValue("/root/send/data40/pid",vpid); // model.makeValue("/root/send/data40/inrsrvacptdd",vinrsrvacptdd); // model.makeValue("/root/send/data40/orddeptcd",vorddeptcd); // model.makeValue("/root/send/data40/deciflag",vdeciflag); // // if (submit("TRPMI01201") == true) { // var indd = model.getValue("/root/hidden/h_deciprint/deciprint/indd"); // if (indd != null && indd != " " && indd != "") { // // } else { // var indd = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/inhopedd"); // } // var s_indd = indd.substr(0,4) + "-" + // indd.substr(4,2) + "-" + // indd.substr(6,2); // model.setValue("/root/hidden/h_deciprint/deciprint/indd", s_indd); // // var rrgstno = model.getValue("/root/hidden/h_deciprint/deciprint/rrgstno"); // var s_rrgstno = rrgstno.substr(0,6) + "-" + rrgstno.substr(6,7); // // model.setValue("/root/hidden/h_deciprint/deciprint/rrgstno",s_rrgstno); // var sinschedd = model.getValue("/root/hidden/h_deciprint/deciprint/inschedd"); // var sopschedd = model.getValue("/root/hidden/h_deciprint/deciprint/opschedd"); // var sinrsrvacptdt = model.getValue("/root/hidden/h_deciprint/deciprint/inrsrvacptdt"); // var s_inrsrvacptdt = sinrsrvacptdt.substr(0,4) + "/" + // sinrsrvacptdt.substr(4,2) + "/" + // sinrsrvacptdt.substr(6,2) + " " + // sinrsrvacptdt.substr(8,2) + ":" + // sinrsrvacptdt.substr(10,2); // model.setValue("/root/hidden/h_deciprint/deciprint/inrsrvacptdt",""); // // if (sinschedd != null && sinschedd != "" && sinschedd != " ") { // model.setValue ("/root/hidden/h_deciprint/deciprint/inschedd", sinschedd.substr(0,4) + "³â" + " " + sinschedd.substr(4,2) + "¿ù" + " " + sinschedd.substr(6.2) + "ÀÏ"); // } // if (sopschedd != null && sopschedd != "" && sopschedd != " ") { // model.setValue ("/root/hidden/h_deciprint/deciprint/opschedd",sopschedd.substr(0,4) + "³â" + " " + sopschedd.substr(4,2) + "¿ù" + " " + sopschedd.substr(6.2) + "ÀÏ"); // } // if (sinrsrvacptdt != null && sinrsrvacptdt != "" && sinrsrvacptdt != " ") { // model.setValue("/root/hidden/h_deciprint/deciprint/inrsrvacptdt",s_inrsrvacptdt); // } // } // // // 2009.08.05 - zzui - ÀÔ¿ø¾àÁ¤¼­ »óº´,Âü°í»çÇ× ¼û±è(¼º°¡¸¸ Àû¿ë) - ½ÃÀÛ // var rsrvYn = model.getValue("/root/hidden/rsrvyn"); // // if (rsrvYn == 'N'){ // model.setValue("/root/hidden/h_deciprint/deciprint/inrsrvrem",""); // model.setValue("/root/hidden/h_deciprint/deciprint/diagcd",""); // model.setValue("/root/hidden/h_deciprint/deciprint/termhngnm",""); // } // // 2009.08.05 - zzui - ÀÔ¿ø¾àÁ¤¼­ »óº´,Âü°í»çÇ× ¼û±è(¼º°¡¸¸ Àû¿ë) - ³¡ // // var sNhicRareobstflag = model.getValue("/root/main/nhicinfo/nhic_rareobstflag"); // var sNhicDisregprson3 = model.getValue("/root/main/nhicinfo/nhic_disregprson3"); // if (sNhicRareobstflag == "H") { // model.setValue("/root/hidden/h_deciprint/deciprint/rareobstflag", "Èñ±Í³­Ä¡"); //Èñ±Í³­Ä¡ // } else { // model.setValue("/root/hidden/h_deciprint/deciprint/rareobstflag", ""); //Èñ±Í³­Ä¡ // } // // if (sNhicDisregprson3 == "32") { // model.setValue("/root/hidden/h_deciprint/deciprint/disregprson3", "Â÷»óÀ§"); //Â÷»óÀ§ // } else { // model.setValue("/root/hidden/h_deciprint/deciprint/disregprson3", ""); //Â÷»óÀ§ // } // // exeReportPreview("RPPMI01200", "XMLSTR" , "" , "" , "true", "", "", "", "", "true", "", "", "", "", "", "", "", "", "", "", ""); **/ } /** * @desc : ȯÀÚ Á¶È¸ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPatSearch(){ //2013/01/22 Start ȯÀÚ¹øÈ£ ÀԷ½à ÆË¾÷ üũ¿©ºÎ ÃʱâÈ­ ¹× È­¸é ÃʱâÈ­ msgpopupchkyn="N"; temp_pid = ipt_pid.label; fClkBtnInit(); pid = temp_pid; //2013/01/22 End //var pid = ipt_pid.label; model.setValue("/root/main/inreqfrminfo/inreqfrminfo/pid", pid); fPidTrim("/root/main/inreqfrminfo/inreqfrminfo/pid"); pid = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/pid"); var hngnm = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/hngnm"); if(pid !="") { if(reqPatInfo("pid", "ptbs", pid)==true){ var hngnm = model.getValue("/root/init/patnm/patnm/hngnm"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/hngnm" , hngnm); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/sa" , model.getValue("/root/init/patnm/patnm/sex") + "/" + model.getValue("/root/init/patnm/patnm/age")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/inrsrvacptdd", getCurrentDate()); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/phoneno" , model.getValue("/root/init/patnm/patnm/phoneno")); } } else if((pid =="")&&(hngnm !="")){ fPatSrch(hngnm, "2"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/pid" , model.getValue("/root/main/patinfo/patinfolist/pid")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/sa" , model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/phoneno" , model.getValue("/root/main/patinfo/patinfolist/mpphontel")); } else { modal("SPPMC02500"); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/pid" , model.getValue("/root/main/patinfo/patinfolist/pid")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/hngnm" , model.getValue("/root/main/patinfo/patinfolist/hngnm")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/sa" , model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/phoneno" , model.getValue("/root/main/patinfo/patinfolist/mpphontel")); } model.refresh(); model.setValue("/root/main/cond/year" , getCurrentDate().substr(0, 4)); //year model.setValue("/root/main/cond/month", getCurrentDate().substr(4, 2)); //month fReqInReqHistList(); //ÀÔ¿øÀÇ·Ú ³»¿ª Á¶È¸ fReqInReqCalendar(); //ÀÔ¿øÀÇ·Ú¼­ ´Þ·Â Á¶È¸ model.removeNodeset(sDIAGCDLIST_PATH); model.removeNodeset(sOPCDLIST_PATH); grd_diaglist.addrow(false, true); grd_oplist.addrow(false, true); model.recalculate(); model.setValue(sINREQFRMINFO_PATH + "/orddeptcd", getUserInfo("dutplcecd")); mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", cmb_orddeptcd.value, "0330", "","M"); //2012/07/18 Start mmbfGetUserComboList("/root/send/reqdata", "/root/init/atdoctlist", cmb_orddeptcd.value, "0330", "","A"); //2012/07/18 End model.setValue(sINREQFRMINFO_PATH + "/orddrid" , getUserId()); var status = model.setValue("/root/main/inreqfrminfo/inreqfrminfo/status", ""); if (status == "u") { model.setValue("/root/main/status", "¼öÁ¤»óÅÂ"); //2012/08/13 Start btn_del.disabled="false"; //2012/08/13 End } else { model.setValue("/root/main/status", "½Å±Ô»óÅÂ"); //2012/08/13 Start btn_del.disabled="true"; //2012/08/13 End } model.refresh(); } /** * @desc : ÀÇ»ç°áÁ¤¿¡¼­ ÆÄ¶ó¹ÌÅÍ °ª ¼³Á¤ * @ * @param : * @return : * @author : * @--------------------------------------------------- */ function fSetparam(){ if(opener.javascript.getParameter("opener_id")=="SPMMO26000"){ //ÀÇ»ç°áÁ¤ ½Ã½ºÅÛ¿¡¼­ µé¾î¿ÔÀ»½Ã model.setValue("/root/main/inreqfrminfo/inreqfrminfo/erreglyn", opener.javascript.getParameter("SPMMO00100_erreglyn")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/indd", opener.javascript.getParameter("SPMMO00100_indd")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/incretno", opener.javascript.getParameter("SPMMO00100_incretno")); model.setValue("/root/main/inreqfrminfo/inreqfrminfo/inskind", "D"); } model.refresh(); } //Àü¹®ÀÇ ÈÞÁøÀÏÁ¤ Á¶È¸È­¸é ¿¬µ¿ function fShowHoliInfo() { var sMedispclid = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddrid"); var sOrddeptcd = model.getValue("/root/main/inreqfrminfo/inreqfrminfo/orddeptcd"); if (isNull(sMedispclid)) { messageBox("Àü¹®Àǰ¡ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E"); return; } else { setParameter("SMPMB00900_orddeptcd", sOrddeptcd); setParameter("SMPMB00900_orddrid", sMedispclid); setParameter("SMPMB00900_holiflag", "H"); modal("SMPMB00900"); } }