/* - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì ¿Ü·¡È¯ÀÚ¸®½ºÆ® ( SMMMO04200_¿Ü·¡È¯ÀÚ¸®½ºÆ®.xrw - JScript ) - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì */ var sOUTPATLIST_PATH = "/root/main/outpatinfo/outpatlist"; var sORDERBY = ""; /** * @desc : È­¸é ÃʱâÈ­ * @ * @param :SMMMO04200 * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fInitialize_SMMMO04200(){ model.removeNodeset(sOUTPATLIST_PATH); model.setValue("/root/main/cond/orddd", getCurrentDate()); // 75 ´çÀÏ ¼±°á°ú »ç¿ë À¯¹«Á¶È¸ // 95 º¸È£ÀÚ´ëÁø Àû¿ë¿©ºÎ // 191 Áø·á´ë»óÀÚ ¿Ü·¡ ¸¶¿ì½º ¿À¸¥ÂÊ ¹öư ¸Þ´º ¼³Á¤À» À§ÇÑ °ª Á¶È¸ // 134 20091007 JJE Ãß°¡ : ÁÖÁø·á°ú Àǻ簡 Áø·áÁö¿ø°úÀÇ ¼±ÅÃÁø·áÀÇ»ç ¼±Åà ¿©ºÎ Á¶È¸ // 135 ´çÀÏ ¼±°á°ú »ç¿ë À¯¹«Á¶È¸ fGethardcdArrayList(new Array( "dayaftrcptyn|75", "patprotector|95", "menu|191", "selspecordyn|134", "ordordershow|135" ), new Array( "/root/init", "/root/init", "/root/popupmenu", "/root/init", "/root/init" ) ); var openflag = model.getValue(opener.root.list.outpatlistflag); //¿Ü·¡È¯ÀÚ¸®½ºÆ® open¿©ºÎ var reopenflag = model.getValue(opener.root.reopen.reopenflag); //Áø·á´ë»óÀÚ ¸®½ºÆ® open¿©ºÎ var chngcolflag= model.getValue(opener.root.chngcol.chngcolflag); //Ä÷³º¯°æ ¿©ºÎ if(openflag == "N"){ zbcfGetCodeList(new Array("M0062", "P0008", "P0021", "P0022", "P1059", "P0341", "M0525", "M0623"), new Array("/root/init/M0062", "/root/init/P0008", "/root/init/P0021", "/root/init/P0022", "/root/init/P0159", "/root/init/P0341", "/root/init/M0525", "/root/init/M0623")); mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", "O"); mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", getUserInfo("dutplcecd"), "0330"); addComboInstance("/root/init/userlist", "userid^usernm", "-^Àüü", "usercombo"); //ÀÇ»çÄÞº¸ ÀüüÇ׸ñ Ãß°¡ model.copyNode(opener.root.temp.outpatlist, root.init); model.setValue(opener.root.list.outpatlistflag, "Y"); //fGrdInit();// ±×¸®µå ÃʱâÈ­ SPEED ¸ðµåÀÏ °æ¿ì Ä÷³ÀÇ ¼ö¸¦ Á¦ÇÑÇÑ´Ù. if(reopenflag != "Y"){ //´Ù½Ã ¿­¸° °æ¿ì°¡ ¾Æ´Ï¸é, ±âº» Á¶È¸ Á¶°Ç ¼³Á¤ model.setValue("/root/main/cond/orddeptcd", getUserInfo("dutplcecd")); model.setValue("/root/main/cond/orddrid" , getUserInfo("userid")); var sUserEnv057 = mmbfGetUserEnvQuestValue("057"); // Áø·á´ë»óÀÚ ¿Ü·¡ÅÇ Áö¿¬È¯ÀÚ Ç¥½Ã¿©ºÎ if(sUserEnv057 == "001") { // Áö¿¬È¯ÀÚ Ç¥½ÃÀϰæ¿ì var sUserEnv058 = mmbfGetUserEnvQuestValue("058"); // Áø·á´ë»óÀÚ ¿Ü·¡ÅÇ Áö¿¬È¯ÀÚ Áö¿¬½Ã°£ var sUserEnv059 = mmbfGetUserEnvQuestValue("059"); // Áø·á´ë»óÀÚ ¿Ü·¡ÅÇ Áö¿¬È¯ÀÚ Áö¿¬ Á¦¿Ü½Ã°£ if(sUserEnv058 == "001") { model.setValue("/root/main/cond/delaytime", "10"); } else if(sUserEnv058 == "002") { model.setValue("/root/main/cond/delaytime", "20"); } else if(sUserEnv058 == "003") { model.setValue("/root/main/cond/delaytime", "30"); } else if(sUserEnv058 == "004") { model.setValue("/root/main/cond/delaytime", "40"); } else if(sUserEnv058 == "005") { model.setValue("/root/main/cond/delaytime", "50"); } else if(sUserEnv058 == "006") { model.setValue("/root/main/cond/delaytime", "60"); } else { model.setValue("/root/main/cond/delaytime", "30"); } if(sUserEnv059 == "001") { model.setValue("/root/main/cond/delayexpt", "0"); } else if(sUserEnv059 == "002") { model.setValue("/root/main/cond/delayexpt", "10"); } else if(sUserEnv059 == "003") { model.setValue("/root/main/cond/delayexpt", "20"); } else if(sUserEnv059 == "004") { model.setValue("/root/main/cond/delayexpt", "30"); } else { model.setValue("/root/main/cond/delayexpt", "10"); } model.setValue("/root/main/cond/delayflag" , "Y"); } else { model.setValue("/root/main/cond/delayflag" , "N"); } model.refresh(); }else{ //´Ù½Ã ¿­¸° °æ¿ì, main¿¡ ordtabÀÇ condlist(È­¸éÀÌ ´ÝÈú¶§ ¼³Á¤µÈ Á¤º¸)¸¦ ±×´ë·Î Àç¼³Á¤ try { model.copyNode(root.main.cond, opener.root.reopen.condlist.condlist); } catch(E) { model.setValue("/root/main/cond/orddeptcd", getUserInfo("dutplcecd")); model.setValue("/root/main/cond/orddrid" , getUserInfo("userid")); model.refresh(); } model.setValue(opener.root.reopen.reopenflag, "N"); mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", cmb_orddept.value, "0330"); addComboInstance("/root/init/userlist", "userid^usernm", "-^Àüü", "usercombo"); //ÀÇ»çÄÞº¸ ÀüüÇ׸ñ Ãß°¡ model.refresh(); } if(cmb_orddrid.label == ""){cmb_orddrid.select(1);} //¼±ÅÃµÈ Àǻ簡 ¾øÀ¸¸é default·Î ù¹øÂ° Àǻ縦 ¼±ÅÃÇÑ´Ù. model.copyNode(opener.root.cond.outpatlist, root.main.cond); //ÇöÀç Á¶È¸Á¶°ÇÀ» main¿¡ º¹»ç var speedflag = model.getValue("/root/main/cond/speedflag"); if (speedflag != "Y") { reqOrderInfoOfCol("SMMMO04200", "grd_outpatlist"); //¿Ü·¡È¯ÀÚ¸®½ºÆ® Ä÷³ Á¶È¸ ¹× ¼³Á¤ } }else if(openflag == "Y"){ model.copyNode(root.init, opener.root.temp.outpatlist); model.copyNode(root.main.cond, opener.root.cond.outpatlist); var xmlnode = model.instance1.selectSingleNode("/root/init/userscrnenvinfo/gridseq"); if(xmlnode != null){ var refdata = model.getValue("/root/init/userscrnenvinfo/gridseq/compsrefcnts"); var sizedata = model.getValue("/root/init/userscrnenvinfo/gridseq/compssizecnts"); var frozencol = model.getValue("/root/init/userscrnenvinfo/gridseq/frozencol"); setOrderInfoOfCol("grd_outpatlist", refdata, sizedata, frozencol); //¿Ü·¡È¯ÀÚ¸®½ºÆ® Ä÷³ ¼³Á¤, ±âÁ¸¿¡ Á¶È¸ÇÑ ³»¿ëÀ¸·Î ó¸® } } var speedflag = model.getValue("/root/main/cond/speedflag"); if (speedflag != "Y") { if(chngcolflag == "Y"){ //Ä÷³¼³Á¤À» ÅëÇØ Àç¼³Á¤ ÇÑ °æ¿ì, Ä÷³¼ø¼­¸¦ ´Ù½Ã Á¶È¸ ó¸® reqOrderInfoOfCol("SMMMO04200", "grd_outpatlist"); //¿Ü·¡È¯ÀÚ¸®½ºÆ® Ä÷³ Á¶È¸ ¹× ¼³Á¤ model.setValue(opener.root.chngcol.chngcolflag, "N"); } } fReqOutPatList(); opener.javascript.fCtrlBtnDisable(false); //¿Ü·¡È¯ÀÚ ¸®½ºÆ® Á¶È¸°¡ ¿Ï·áµÇ±â Àü¿¡´Â ´Ù¸¥ buttonÀ» disabled } /** * @desc : ¿Ü·¡È¯ÀÚ È¯ÀÚ ±âº»Á¤º¸¼³Á¤ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqOutPatPamInfo(){ var iRow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno"); var instcd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/instcd"); var param = "O" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd; setParameter("condparam", param); modal("SPMMO08900", 1, 0, 0, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;"); var useyn = getParameter("SPMMO08900_rtn_useyn"); if(useyn == "Y"){ setParameter("SPMMO08900_rtn_useyn", ""); return true; }else{ return false; } } /** * @desc : (¿Ü·¡)°ü½ÉȯÀÚµî·Ïâ È£Ãâ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fCallWndConcPatRgst(){ var currow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var hngnm = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/hngnm"); var indd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var seqno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/seqno"); var instcd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/instcd"); var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } var param = "I" + "¢Ì" + pid + "¢Ì" + hngnm + "¢Ì" + indd + "¢Ì" + cretno + "¢Ì" + seqno + "¢Ì" + instcd; setParameter("param", param); open("SPMMO08200"); //modal("SPMMO08200"); } /** * @desc : (¿Ü·¡)ÁÖÀÇ¿ä¸ÁȯÀÚâ È£Ãâ * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fCallWndWarnPat(){ var nCurRow = grd_outpatlist.row; var sPid = model.getValue(sOUTPATLIST_PATH + "[" + nCurRow + "]/pid"); var sHngnm = model.getValue(sOUTPATLIST_PATH + "[" + nCurRow + "]/hngnm"); setParameter("SMMMO19100_warncd" , sPid); setParameter("SMMMO19100_warnnm" , sHngnm); modal("SMMMO19100"); clearParameter("SMMMO19100_warncd"); clearParameter("SMMMO19100_warnnm"); fReqOutPatList(); } /** * @desc : ¿Ü·¡È¯ÀÚ Á¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fReqOutPatList(){ model.copyNode("/root/send/reqdata", "/root/main/cond"); var compsrefcnts = model.getValue("/root/init/userscrnenvinfo/gridseq/compsrefcnts"); var compssizecnts = model.getValue("/root/init/userscrnenvinfo/gridseq/compssizecnts"); if(isNull(compsrefcnts)) compsrefcnts = ""; if(isNull(compssizecnts)) compssizecnts = ""; model.makeValue("/root/send/reqdata/compsrefcnts", compsrefcnts); model.makeValue("/root/send/reqdata/compssizecnts", compssizecnts); if(submit("TRMMO04201")){ fProcTreatExpt(); //Ä¡·áÁ¦¿Ü »èÁ¦ ¹× ¼û±èó¸® model.copyNode(opener.root.temp.outpatlist, root.init); model.copyNode(opener.root.cond.outpatlist, root.main.cond); } var orderby = model.getValue("/root/main/cond/orderby"); var sortcol = model.getValue("/root/main/cond/sortcol"); if(sortcol != "" && orderby != ""){ sORDERBY = orderby; //alert(grd_outpatlist.colAttribute(sortcol, "ref") + "," + sORDERBY); //nodeListSort(grd_outpatlist.nodeset, grd_outpatlist.colAttribute(sortcol, "ref"), sORDERBY); grd_outpatlist.colsort(sortcol) = sORDERBY grd_outpatlist.sort(1, 1, grd_outpatlist.rows -1, grd_outpatlist.cols -1) = "usersort"; grd_outpatlist.gridToInstance(); } model.setValue("/root/main/cond/rsltcnt", grd_outpatlist.rows - 1); model.setValue("/root/main/cond/totcnt", model.getValue("/root/main/outpatinfo/totcnt/totcnt")); fChngGrdCellColor(); model.refresh(); } /** * @desc : ȯÀÚ ¼±Åà ÈÄ, ȯÀÚ Á¤º¸ Á¶È¸ ¹× ±â·ÏÁö È­¸é ¿¬µ¿ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSelectOutPat(){ // ȯÀÚ ¼±Åà ·Î±× ½ÃÀÛ fStartLogCheck("fSelectOutPat"); var step1Elapsed = 0; // ¿Ü·¡ ȯÀÚ¼±Åà ÁøÇà °¡´É¿©ºÎ üũ ½Ã°£ var step2Elapsed = 0; // ÀÔ¿ø ȯÀÚ¼±Åà »ó´ÜÁ¤º¸ ¼³Á¤ ½Ã°£ var step3Elapsed = 0; // ó¹æ+±â·Ï+±×¿Ü ÆË¾÷â ó¸® var nRow = grd_outpatlist.row; if(nRow < 1){ return bRtn; } var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + nRow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } var reqptype = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/reqptype"); var pid = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/pid"); var recflag = opener.model.getValue("/root/main/cond/recflag"); opener.javascript.setParameter("SMMMO04100_reqptype", reqptype); // ÁøÇà°¡´É ÇÑÁö ¿©ºÎ üũ fStartLogTempCheck("fSelectOutPat_Step1"); if(!fCheckBfSelectOutPat()) { return; } step1Elapsed = fEndLogTempCheck("fSelectOutPat_Step1"); // »ó´ÜÁ¤º¸ ¼³Á¤ fStartLogTempCheck("fSelectOutPat_Step2"); if(!fReqOutPatPamInfo()) { return; } step2Elapsed = fEndLogTempCheck("fSelectOutPat_Step2"); // Áø·á±â·Ï, ó¹æÈ­¸é ¿¬µ¿ fStartLogTempCheck("fSelectOutPat_Step3"); opener.javascript.fOpenPrcpMainWnd(recflag); step3Elapsed = fEndLogTempCheck("fSelectOutPat_Step3"); var recnaviyn = opener.model.getValue("/root/main/cond/recnaviyn"); var mainObj = getMainViewer(); var curPrcpObj = mainObj.javascript.getOpenWindow("SMMMO00100"); //Ȱ¼ºÈ­µÈ ó¹æMain È­¸é object loading if (curPrcpObj != null && recnaviyn == "N") { // ó¹æÃ¢ÀÌ ÆË¾÷ µÈ°æ¿ì¸¸ üũ var sLogParam = "userid:" + getUserInfo("userid") + "|" // item02 + "instcd:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/instcd") + "|" // item03 + "pid:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/pid") + "|" // item04 + "orddd:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/orddd") + "|" // item05 + "cretno:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/cretno") + "|" // item06 + "orddeptcd:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/orddeptcd") + "|" // item07 + "orddrid:" + model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/orddrid") + "|" // item08 + step1Elapsed + "|" // ÁøÇà°¡´É ÇÑÁö ¿©ºÎ üũ // item09 + step2Elapsed + "|" // »ó´ÜÁ¤º¸ // item10 + step3Elapsed // ó¹æ+±â·Ï+±×¿Ü ÆË¾÷â ó¸® // item11 ; fEndLogCheck("fSelectOutPat", sLogParam); } } /** * @desc : ¿Ü·¡ ȯÀÚ ¼±ÅÃÈÄ ÁøÇà °¡´É¿©ºÎ üũ ¹× ¸Þ¼¼Áö â ÆË¾÷. * @ * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fCheckBfSelectOutPat() { var nRow = grd_outpatlist.row; var rsrvflag = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/rsrvflag"); var etcordflag = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/etcordflag"); var orddrid = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/orddrid"); var orddd = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/orddd"); var pid = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/pid"); var hngnm = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/hngnm"); var bfjudgvalue = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/bfjudgvalue"); var sSameNameMsg = model.getValue(sOUTPATLIST_PATH + "["+ nRow +"]/samenamemsg"); if( getGlobalVariable("able_sel_patlist", "M") == "N" ) { // ȯÀÚ ¼±Åà °¡´É ¿©ºÎ üũ 2012.09.03 ¾ö¿µ¸¸ messageBox("ÇöÀç ·Î±×ÀÎÇÑ '"+ getUserInfo("dutplcenm") +"' ºÎ¼­´Â ±â·ÏÀúÀå ¹× Ã³¹æ¹ßÇàÀÌ ºÒ°¡´ÉÇÑ ºÎ¼­ ÀÔ´Ï´Ù.\n\n´Ù½Ã ·Î±×ÀÎ ÈÄ ÁøÇà ÇϽʽÿÀ.","E"); return false; } var sUseCommonDr = fGetHardCDList("Y", 314, 3); // ÀϹÝÀÇ Áø·á »ç¿ë ¿©ºÎ if((orddd >= '20111001') && (sUseCommonDr == "N") && (orddrid == "11111" || orddrid == "EMR") && getUserId() != "EMR" ){ messageBox("ÀϹÝÀÇ»ç ¶Ç´Â E¨ÍR·Î Á¢¼öµÈ ¿¹¾àÀº ó¹æÀ» ÀÔ·ÂÇÒ ¼ö ¾ø½À´Ï´Ù.\n\nÁø·áÀǻ縦 º¯°æÈÄ ÁøÇà ÇϽʽÿÀ.","E"); return false; } var sBfjudgContinue = fGetHardCDList("Y", 334, 3); // ½É»ç´ë±â ȯÀÚ¼±Åýà ÁøÇà ¿©ºÎ(º»¿ø:N, Ä¥°î:Y) if(sBfjudgContinue == "N" && bfjudgvalue == "½É»ç´ë±â") { // »çÀü½É»ç ´ë±âÁß Àϰæ¿ì ȯÀÚ ¼±Åà ºÒ°¡´É Çϵµ·Ï ¼öÁ¤. ½É»ç½Ç¿äû(20120707012) 2012.07.30 ¾ö¿µ¸¸ messageBox("»çÀü½É»ç°¡ ÁøÇàÁßÀΠȯÀÚÀÔ´Ï´Ù.\n\n½É»ç ¿Ï·á ÈÄ ÁøÇà ÇϽʽÿÀ.","E"); return false; } /* ó¹æ ÀÔ·Â °¡´É ¿©ºÎ üũ -rsrvflag(¿¹¾à±¸ºÐ) S - ½½¶óÀ̵庹»ç P - ½ÃÇàºÎ¼­Ã³¹æ/APU 3 - Áø´Ü¼­ 4 - Áø·á±â·Ï -etcordflag(±âŸ±¸ºÐ) M - ¹°¸®Ä¡·á J - ÁÖ»ç N - °¡Á¤°£È£ E - ½Ç½ÃÁ¤»êºÐ¸® */ if(rsrvflag == "S" || rsrvflag == "3" || rsrvflag == "4" || etcordflag == "E"){ // ÁÖ»ç, ¹°¸®Ä¡·á Á¦¿Ü Ư·ÊÀû¿ëÀ» À§ÇØ Áø´ÜÀ» ¼öÁ¤ ÇØ¾ß ÇÏ´Â °æ¿ì°¡ ÀÖÀ½. messageBox("Áø·á¿¡¼­ ó¹æÀ» ÀÔ·ÂÇÒ ¼ö ¾ø´Â ¿¹¾à±¸ºÐÀÔ´Ï´Ù.","E"); return false; } //ó¹æ, CPÈ­¸é¿¡ modal ¶Ç´Â modaless°¡ ¶á °æ¿ì, ȯÀÚ ¼±Åà ºÒ°¡ if(!fChkScrnDisable()){ return false; } //CPȯÀÚ ¿©ºÎ È®ÀÎ, update½Ã ¿¡·¯³ª¸é º¯°æ ºÒ°¡ if(!fChkCPPatValid(nRow)){ return false; } // Áø·á±â·Ï¿¡ ¼öÁ¤µÈ »çÇ×ÀÌ ÀÖÀ» °æ¿ì ÀúÀåÇÒ °ÍÀÎÁö ¹¯´Â ÇÔ¼ö È£Ãâ : 2009. 07. 27 ±è¿µÇÐ var mainobj = getMainViewer(); var mainscrnid = mainobj.javascript.getScreenID(); //¸ÞÀÎÈ­¸éÀÇ ±â·ÏÁö ID if(mainscrnid == "SMMMR00100"){ var prvIntRecPamInfRtn = mainobj.window.javascript.fPrevInitRecPamInfo(); if(!prvIntRecPamInfRtn){ return false; } // ±â·ÏÁö¿¡ Çʼö ÀԷ»çÇ×À» ÀÔ·ÂÇÏÁö ¾Ê¾ÒÀ» ¶§ ±×³É ³Ñ¾î°¡ ¹ö¸®´Â ¿À·ù ¼öÁ¤ 20100305 LYJ } if(!isNull(sSameNameMsg)) { // µ¿¸íÀÌÀÎ ÆË¾÷¸Þ¼¼Áö if("6" != messageBox(sSameNameMsg + "\n\nÁøÇàÇϽðڽÀ´Ï±î?", "Q")) { return false; } } //2011.09.07 ¾ö¿µ¸¸ ȯÀÚ Å¬¸¯½Ã ȯÀÚÁ¤º¸ üũ SMMMO04100.js ÆÄÀÏ ÇÔ¼ö È£Ãâ ioflag, pid ÀÎÀÚ if(!fCheckSelectPatInfo("O", pid)){ return false; } return true; } /** * @desc : º¸È£ÀÚ´ëÁø Àû¿ë, Ãë¼Ò(¿Ü·¡µî·Ï tbl¿¡ etcordflag¼³Á¤) * @ * @param : sEtcOrdFlag - 'F' º¸È£ÀÚ´ëÁø Àû¿ë * : - '-' º¸È£ÀÚ´ëÁø Ãë¼Ò * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fUpdtOutPatPamInfo(sEtcOrdFlag){ var iRow = grd_outpatlist.row; if(iRow < 1){ return; } //20100127 ÇÑÀç»ó ¼öÁ¤ - ÃÊÁøÀº º¸È£ÀÚ´ëÁø Àû¿ëºÒ°¡. if ( sEtcOrdFlag == "F" && ( model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/fsexamflag") == "D" || model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/fsexamflag") == "F" ) ) { messageBox("ÃÊÁøÈ¯ÀÚ´Â º¸È£ÀÚ ´ëÁøÀû¿ëÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù.", "C"); return; } var sPID = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid"); var sOrdDD = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd"); var sCretNO = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno"); var sInstCD = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/instcd"); var sAcptSeqNO = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/acptseqno"); var sEtcOrdFlag2= model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/etcordflag"); var sHngNM = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/hngnm"); var sUserID = getUserInfo("userid"); var sUserDeptCD = getUserInfo("dutplcecd"); if(sEtcOrdFlag == "C"){ sProcFlag = "C"; //Áø·áÃë¼ÒÀÎ °æ¿ì sProcFlag C·Î ó¸® }else if(sEtcOrdFlag == "-"){ //º¸È£ÀÚ ´ëÁø Ãë¼Ò var msgstr = "Ãë¼Ò¸¦"; sProcFlag = "P"; var rtnval = messageBox("[" + sHngNM + "]ȯÀÚÀÇ º¸È£ÀÚ ´ëÁø " + msgstr, "Q004"); if(rtnval == 7){ //Ãë¼Ò ¹öưÀ» Ŭ¸¯ÇÑ °æ¿ì return; } }else if(sEtcOrdFlag == "F"){ //º¸È£ÀÚ ´ëÁø Àû¿ë if(sEtcOrdFlag2 == "F"){ messageBox("[" + sHngNM + "]ȯÀÚ´Â ÀÌ¹Ì º¸È£ÀÚ ´ëÁø Àû¿ëȯÀÚ", "E008"); return; }else{ var msgstr = "Àû¿ëÀ»"; sProcFlag = "P"; } var rtnval = messageBox("[" + sHngNM + "]ȯÀÚÀÇ º¸È£ÀÚ ´ëÁø " + msgstr, "Q004"); if(rtnval == 7){ //Ãë¼Ò ¹öưÀ» Ŭ¸¯ÇÑ °æ¿ì return; } } model.removeNodeset("/root/send/savedata"); model.makeNode("/root/send/savedata/save"); var sSave = "pid¢Ëorddd¢Ëcretno¢Ëinstcd¢Ëacptseqno¢Ëuserid¢Ëetcordflag¢Ëuserdeptcd¢Ëprocflag¢Ì"; sSave += sPID + "¢Ë" + sOrdDD + "¢Ë" + sCretNO + "¢Ë" + sInstCD + "¢Ë" + sAcptSeqNO + "¢Ë" + sUserID + "¢Ë" + sEtcOrdFlag + "¢Ë" + sUserDeptCD + "¢Ë" + sProcFlag + "¢Ì"; model.makeNode("/root/send/savedata/req"); var sReq = "orddd¢Ëpid¢Ëorddeptcd¢Ëorddrid¢Ëelbulbodstat¢Ësrchdd¢Ëdeptflag¢Ì"; sReq += model.getValue("/root/main/cond/orddd") + "¢Ë" + model.getValue("/root/main/cond/pid") + "¢Ë" + model.getValue("/root/main/cond/orddeptcd") + "¢Ë" + model.getValue("/root/main/cond/orddrid") + "¢Ë" + model.getValue("/root/main/cond/elbulbodstat") + "¢Ë" + model.getValue("/root/main/cond/orddd") + "¢Ë" + model.getValue("/root/main/cond/deptflag") + "¢Ì"; model.setValue("/root/send/savedata/save", sSave); model.setValue("/root/send/savedata/req" , sReq); if(submit("TXMMO04201")){ } } /** * @desc : º¸È£ÀÚ´ëÁø Àû¿ë * @ * @param : sEtcOrdFlag - 'F' º¸È£ÀÚ´ëÁø Àû¿ë * * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fRgstPatProtector(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } //¸¶¿ì½º ¿À¸¥Âʹöư ÆË¾÷¿¡¼­ parameter󸮰¡ µÇÁö ¾Ê¾Æ ¿ì¼± ÇÔ¼ö·Î ³ª´©¾î ó¸®, Â÷ÈÄ ¼öÁ¤µÇ¸é º¯°æ¿¹Á¤ var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } fUpdtOutPatPamInfo("F"); } /** * @desc : º¸È£ÀÚ´ëÁø Ãë¼Ò * @ * @param : sEtcOrdFlag - '-' º¸È£ÀÚ´ëÁø Àû¿ë * * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fCnclPatProtector(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } //¸¶¿ì½º ¿À¸¥Âʹöư ÆË¾÷¿¡¼­ parameter󸮰¡ µÇÁö ¾Ê¾Æ ¿ì¼± ÇÔ¼ö·Î ³ª´©¾î ó¸®, Â÷ÈÄ ¼öÁ¤µÇ¸é º¯°æ¿¹Á¤ var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } fUpdtOutPatPamInfo("-"); } /** * @desc : Áø·áÃë¼Ò * @ * @param : sEtcOrdFlag - 'C' Áø·áÃë¼Ò Àû¿ë * sProcFlag - 'C' Áø·áÃë¼Ò flow * * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fPatOrdCncl(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } //¸¶¿ì½º ¿À¸¥Âʹöư ÆË¾÷¿¡¼­ parameter󸮰¡ µÇÁö ¾Ê¾Æ ¿ì¼± ÇÔ¼ö·Î ³ª´©¾î ó¸®, Â÷ÈÄ ¼öÁ¤µÇ¸é º¯°æ¿¹Á¤ var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } fUpdtOutPatPamInfo("C"); } /** * @desc : ÀϹÝÀ¯Çü º¯°æ * @ * @return : * @author : ¾ö¿µ¸¸ 2017.02.09 * @--------------------------------------------------- */ function fChangeInsuKind(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var sPid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var sOrdDd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var sCretNo = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var sOrdDeptCd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddeptcd"); var sInsuKind = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/insukind"); var sDutplceCd = getUserInfo("dutplcecd"); if ( sInsuKind == "51" ) { messageBox("º¸ÇèÀ¯ÇüÀÌ ÀϹÝ(51)ȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } if (sOrdDeptCd != sDutplceCd) { messageBox("·Î±×ÀÎ ºÎ¼­¿Í Áø·á°ú°¡ ´Ù¸£¸é ÀϹÝÀ¯ÇüÀ¸·Î º¯°æÇÒ ¼ö", "I004"); return; } if(!fContainsHardCD("555", sOrdDeptCd)) { messageBox("ÀϹÝÀ¯ÇüÀ¸·Î º¯°æ ±â´ÉÀ» »ç¿ëÇÒ ¼ö ¾ø´Â Áø·á°ú ÀÔ´Ï´Ù.", "I999"); return; } if("6" == messageBox("º¸ÇèÀ¯ÇüÀ» ÀϹÝ(51)·Î º¯°æ ÇϽðڽÀ´Ï±î?", "Q")) { model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , sPid); model.makeValue("/root/send/reqdata/orddd" , sOrdDd); model.makeValue("/root/send/reqdata/cretno" , sCretNo); if(submit("TXMMO04207")==true){ fReqOutPatList(); } } } /** * @desc : º»ÀÎ100 º¸Á¶À¯Çü º¯°æ * @ * @return : * @author : ¾ö¿µ¸¸ 2017.07.26 * @--------------------------------------------------- */ function fChangeSupKind(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var sPid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var sOrdDd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var sCretNo = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var sOrdDeptCd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddeptcd"); var sInsuKind = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/insukind"); var sDutplceCd = getUserInfo("dutplcecd"); if ( sInsuKind != "11" ) { messageBox("º¸ÇèÀ¯ÇüÀÌ °Ç°­º¸Çè(11) ȯÀÚ¸¸ ÁøÇàÀÌ °¡´É ÇÕ´Ï´Ù.","E"); return; } if (sOrdDeptCd != sDutplceCd) { messageBox("·Î±×ÀÎ ºÎ¼­¿Í Áø·á°ú°¡ ´Ù¸£¸é ÁøÇàÇÒ ¼ö", "I004"); return; } if("6" == messageBox("º¸Á¶À¯ÇüÀ» Àü¾×º»Àκδã(01)·Î º¯°æ ÇϽðڽÀ´Ï±î?", "Q")) { model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , sPid); model.makeValue("/root/send/reqdata/orddd" , sOrdDd); model.makeValue("/root/send/reqdata/cretno" , sCretNo); if(submit("TXMMO04208")==true){ fReqOutPatList(); } } } /** * @desc : ÀϹÝÀ¯Çü °¡Á¢¼ö »ý¼º * @ * @return : * @author : ¾ö¿µ¸¸ 2017.07.26 * @--------------------------------------------------- */ function fCreatGenrOtpt(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var sPid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var sOrdDd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var sCretNo = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var sOrdDeptCd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddeptcd"); var sOrdDrId = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddrid"); var sInsuKind = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/insukind"); var sDutplceCd = getUserInfo("dutplcecd"); if ( sInsuKind == "51" ) { messageBox("º¸ÇèÀ¯ÇüÀÌ ÀϹÝ(51) ȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } if (sOrdDeptCd != sDutplceCd) { messageBox("·Î±×ÀÎ ºÎ¼­¿Í Áø·á°ú°¡ ´Ù¸£¸é ÁøÇàÇÒ ¼ö", "I004"); return; } if("6" == messageBox("º¸ÇèÀ¯ÇüÀ» ÀϹÝ(51)·Î »õ·Î¿î ¿Ü·¡¿¹¾àÀ» »ý¼º ÇϽðڽÀ´Ï±î?", "Q")) { model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/flag" , "I"); model.makeValue("/root/send/reqdata/otpt_pid" , sPid); model.makeValue("/root/send/reqdata/otpt_orddd" , sOrdDd); model.makeValue("/root/send/reqdata/otpt_cretno" , sCretNo); model.makeValue("/root/send/reqdata/otpt_orddeptcd" , sOrdDeptCd); model.makeValue("/root/send/reqdata/otpt_orddrid" , sOrdDrId); model.makeValue("/root/send/reqdata/otpt_histstat" , "R"); model.makeValue("/root/send/reqdata/otpt_rsrvflag" , "BB"); // 2017.08.01 º¸ÇèÀ¯Çü ÀϹÝ(51) with ÀÌÁ¤Åà if(submit("TRMMO09101")==true){ fReqOutPatList(); } } } /** * @desc : Ä¡·áÁ¦¿Ü »èÁ¦ ¹× ¼û±èó¸® * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fProcTreatExpt(){ var dutplcecd = getUserInfo("dutplcecd"); var hardcdno = model.getValue("/root/main/outpatinfo/hardcode[trgtcd = '" + dutplcecd + "']/hardcdno"); if(hardcdno == 2){ model.removeNode("/root/main/outpatinfo/hardcode[hardcdno = '" + 3 + "']"); }else if(hardcdno == 3){ model.removeNode("/root/main/outpatinfo/hardcode[hardcdno = '" + 2 + "']"); }else{ cmb_expt.attribute("visibility") = "hidden"; } model.refresh(); } /** * @desc : ±×¸®µå data ¿¢¼¿È­ÀÏ·Î ÀúÀå * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSaveGridToExcel(){ saveGridToExcel(grd_outpatlist); } /** * @desc : ÇùÁø°ü¸® È­¸é open * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fOpenCnstPat(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var hngnm = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/hngnm"); var sa = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/sexage"); var orddeptcd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddeptcd"); var orddrid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddrid"); var orddrnm = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddrnm"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var coordflag = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/coordflag"); var patinfo = hngnm + "¢Ë" + sa + "¢Ë" + orddeptcd + "¢Ë" + orddrid + "¢Ë" + cretno + "¢Ë" + orddrnm + "¢Ë" + coordflag; setParameter("SPMMO03600_pid" , pid); setParameter("SPMMO03600_orddd" , orddd); setParameter("SPMMO03600_patinfo", patinfo); setParameter("SPMMO03600_ioflag" , "O"); modal("SPMMO03600"); fReqOutPatList(); } /** * @desc : CPȯÀÚ ¿©ºÎ °Ë»ç * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChkCPPatValid(currow){ var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var hngnm = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/hngnm"); var orddeptcd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddeptcd"); var ordtype = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/ordtype"); if(isNull(orddeptcd)) orddeptcd = model.getValue("/root/main/cond/orddeptcd"); if(isNull(ordtype)) ordtype = "O"; model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , pid); model.makeValue("/root/send/reqdata/orddd" , orddd); model.makeValue("/root/send/reqdata/cretno" , cretno); model.makeValue("/root/send/reqdata/hngnm" , hngnm); //Ãß°¡(2008.08.25) model.makeValue("/root/send/reqdata/prcpgenrflag", ordtype); model.makeValue("/root/send/reqdata/srchtabflag" , "O"); //´ë»óÀÚ¸®½ºÆ®ÅÇ ±¸ºÐ if(submit("TRMMO04303")==true){ var cppatnode = model.instance1.selectNodes("/root/init/rsltgetdata/getdata"); if(cppatnode.length < 1){ //cpÀû¿ëȯÀÚ tbl¿¡ À¯È¿ÇÑ µ¥ÀÌÅͰ¡ ¾ø´Â °æ¿ì model.setValue(opener.root.cpflag, "N"); //ó¹æopen return true; }else{ //CPÀû¿ëȯÀÚ tbl¿¡ À¯È¿ÇÑ µ¥ÀÌÅͰ¡ ÀÖ´Â °æ¿ì var appyn = model.getValue("/root/init/rsltgetdata/getdata/appyn"); var appstat = model.getValue("/root/init/rsltgetdata/getdata/appstat"); var cpgnm = model.getValue("/root/init/rsltgetdata/getdata/cpgnm"); var cpgappno = model.getValue("/root/init/rsltgetdata/getdata/cpgappno"); var msgcnts = model.getValue("/root/init/rsltgetdata/getdata/msgcnts"); var msgflag = model.getValue("/root/init/rsltgetdata/getdata/msgflag"); var prtlflagcd = model.getValue("/root/init/rsltgetdata/getdata/prtlflagcd"); //01:CP,02:CPG if(appstat == 11){ //CPÀû¿ë»óŰ¡ 11ÀÎ °æ¿ì var rtnval = messageBox(msgcnts, msgflag); if(rtnval == 6){ //¿¹ ¼±ÅÃ, CP Main open, CPÀû¿ëȯÀÚ tbl¿¡ appstat 10 ÁøÇàÁß model.setValue(opener.root.cpflag, "Y"); return fUpdtCPPatAppStatVal(10); }else{ //¾Æ´Ï¿À ¼±ÅÃ, ó¹æ Main open, CPÀû¿ëȯÀÚ tbl¿¡ appstat 50 : CP Drop messageBox(msgcnts, msgflag); setParameter("SMMMO043_cpgappno", cpgappno); //drop ÆË¾÷¿¡¼­ ÀνÄÇÒ ¼ö ÀÖ´Â param setParameter("SMMMO043_drop" , "N"); //drop ÆË¾÷¿¡¼­ ÀνÄÇÒ ¼ö ÀÖ´Â param modal("SPMMP02300"); //Drop ÆË¾÷ È£Ãâ model.setValue(opener.root.cpflag, "N"); if(getParameter("SMMMO043_drop") == "Y" && instance1.selectSingleNode(sOUTPATLIST_PATH + "[" + currow + "]/cpyn") != null){ model.setValue(sOUTPATLIST_PATH + "[" + currow + "]/cpyn", "N"); }else{ return false; } clearParameter("SMMMO043_cpgappno"); clearParameter("SMMMO043_drop"); return true; } }else if(appstat == 53){ model.setValue(opener.root.cpflag, "X"); return true; }else{ //CPÀû¿ë»óŰ¡ 11°¡ ¾Æ´Ñ °æ¿ì, CP Mainâ open if( prtlflagcd == "02" && isNull(appstat) && msgflag == "P" ){ //CPG & È£Ãâflag:Popup & ¸ð´ÏÅ͸µ±¸ºÐ:´ë»óÀÚŽ»ö (appyn:Æò°¡¿ë¿©ºÎ) //CPGÀû¿ë´ë»óÀÚ ¾Ë¸² ÆË¾÷ È£Ãâ (2009.05.04) setParameter("SMMMO041_hngnm" , hngnm); setParameter("SMMMO041_pid" , pid); setParameter("SMMMO041_cretno" , cretno); setParameter("SMMMO041_orddd" , orddd); setParameter("SMMMO041_ordtype" , ordtype); setParameter("SMMMO041_orddeptcd" , orddeptcd); setParameter("SMMMO041_slipnm" , model.getValue(root.init.rsltgetdata.getdata.msgcnts)); //cpgno¢Ëcpghistseq¢Ëcpgnm¢Ëslipno¢Ëslipnm¢Ëvalusgeyn¢Ëvalunm¢Ëguidedocucnts setParameter("SMMMO041_cpgmntrflag", appstat); //null, SPMMP03200È­¸é¿¡¼­ cpgmntrflag(M or S)À¸·Î µûÁü setParameter("SMMMO041_cpgappno" , cpgappno); //Àû¿ëÁßÀÎ CP°¡ Á¸ÀçÇÏ¸é °ªÀÌ ÀÖÀ½ setParameter("SMMMO041_cpgnm" , cpgnm); //Àû¿ëÁßÀÎ CP°¡ Á¸ÀçÇÏ¸é °ªÀÌ ÀÖÀ½ modal("SPMMP03200"); //CP´ë»óÀÚ ¾Ë¶÷ ÆË¾÷ if( cpgappno > 0 && cpgappno != getParameter("SPMMP032_cpgappno") && instance1.selectSingleNode(sOUTPATLIST_PATH + "[" + currow + "]/cpyn") != null){ //ÁøÇàÁßÀÎ CP°¡ Àִµ¥ ÆË¾÷¿¡¼­ DropÇÑ °æ¿ì CP¿©ºÎ NÀ¸·Î.. model.setValue(sOUTPATLIST_PATH + "[" + currow + "]/cpyn", "N"); } if( !isNull(getParameter("SPMMP032_cpgappno")) && getParameter("SPMMP032_cpgappno") > 0 ){ model.setValue(opener.root.cpflag, "Y"); //CPGÀû¿ëÇÑ °æ¿ì, MGPS È£Ãâ }else{ model.setValue(opener.root.cpflag, "N"); //¹ÌÀû¿ë ½Ã ó¹æ È­¸é È£Ãâ } clearParameter("SPMMP032_cpgappno"); clearParameter("SMMMO041_hngnm"); clearParameter("SMMMO041_pid"); clearParameter("SMMMO041_cretno"); clearParameter("SMMMO041_orddd"); clearParameter("SMMMO041_ordtype"); clearParameter("SMMMO041_orddeptcd"); clearParameter("SMMMO041_slipnm"); clearParameter("SMMMO041_cpgmntrflag"); clearParameter("SMMMO041_cpgappno"); clearParameter("SMMMO041_cpgnm"); return true; } else{ model.setValue(opener.root.cpflag, "Y"); return true; } } } } //end submit } /** * @desc : Áø·á º¸·ù * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fPatOrdHold(){ fSetPatOrdStat("3"); } /** * @desc : Áø·á º¸·ù Ãë¼Ò * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fPatOrdHoldCncl(){ fSetPatOrdStat("4"); } /** * @desc : ¿Ü·¡È¯ÀÚ Áø·á»óÅ º¯°æ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fSetPatOrdStat(procflag){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno= model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if(procflag == "4" && elbulbodstat != "3"){ //Áø·áº¸·ù Ãë¼Ò messageBox("Áø·á »óŰ¡ º¸·ùÀΠȯÀÚ¸¦", "C002"); return; } model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , pid); model.makeValue("/root/send/reqdata/orddd" , orddd); model.makeValue("/root/send/reqdata/cretno" , cretno); model.makeValue("/root/send/reqdata/procflag", procflag); if(submit("TXMMO04202")==true){ fReqOutPatList(); } } /** * @desc : ¿Ü·¡È¯ÀÚ Áø·á»óÅ ´ë±â·Î º¯°æ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fSetOutPatBodStat(stat){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); var orddrid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddrid"); var orddeptcd = model.getValue("/root/main/cond/orddeptcd"); var dutplcecd = getUserInfo("dutplcecd"); if (stat =="1") { if(!(elbulbodstat == "0"||elbulbodstat == "-")){ //Áø·á´ë±â·Î º¯°æ messageBox("±¸ºÐÀÌ Á¢¼öÀΠȯÀÚ¸¦", "C002"); return; } if(orddrid == "EMR" || orddrid == "11111") { messageBox("Áø·áÀǰ¡ 'ÀϹÝÀÇ»ç' ¶Ç´Â 'Àǹ«±â·Ï'ÀÎ °æ¿ì Á¢¼ö ÇÒ¼ö ¾ø½À´Ï´Ù.\nÀÇ»ç º¯°æ ÈÄ Á¢¼ö ÇϽñ⠹ٶø´Ï´Ù.", "E999"); return; } } else if (stat ="0") { if(elbulbodstat != "1"){ //Áø·áº¸·ù Ãë¼Ò messageBox("±¸ºÐÀÌ ´ë±âÀΠȯÀÚ¸¦", "C002"); return; } } if (orddeptcd != dutplcecd) { messageBox("·Î±×ÀÎÇѰú¿Í Áø·á°ú°¡ ´Ù¸£¸é Áø·á»óŸ¦ º¯°æÇÒ ¼ö", "I004"); return; } model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid" , pid); model.makeValue("/root/send/reqdata/orddd" , orddd); model.makeValue("/root/send/reqdata/cretno" , cretno); var bodstat = "a" if (stat == "0") { bodstat = model.makeValue("/root/send/reqdata/elbulbodstat", "0"); } else if (stat =="1") { bodstat = model.makeValue("/root/send/reqdata/elbulbodstat", "1"); } if(submit("TXMMO04203")==true){ fReqOutPatList(); } } /** * @desc : ¿Ü·¡È¯ÀÚ Áø·á»óÅ ´ë±â·Î º¯°æ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatOrdEnd(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } //2018.04.04 DUR ƯÁ¤Áúȯ °Ë»ö ·ÎÁ÷ Ãß°¡ ¾ö¿µ¸¸ var sPid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid" ); setParameter("SPMMD00100_ifyn", "Y"); setParameter("SPMMD00100_pid", sPid); modal("SPMMD00100"); fSetOutPatBodStat("1"); } /** * @desc : ¿Ü·¡È¯ÀÚ Áø·á»óÅ Á¢¼ö·Î º¯°æ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatOrdEndCncl(){ var currow = grd_outpatlist.row; if(currow < 1){ return; } var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } fSetOutPatBodStat("0"); } /** * @desc : SPEED ¸ðµå ÀÏ °æ¿ì Ä÷³ Á¤ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fGrdInit() { var speedflag = model.getValue("/root/main/cond/speedflag"); var refdata = model.getValue("/root/init/userscrnenvinfo/gridseq/compsrefcnts"); var sizedata = model.getValue("/root/init/userscrnenvinfo/gridseq/compssizecnts"); var frozencol = model.getValue("/root/init/userscrnenvinfo/gridseq/frozencol"); if (!isNull(refdata)){ setOrderInfoOfCol("grd_outpatlist", refdata, sizedata, frozencol); //¿Ü·¡È¯ÀÚ¸®½ºÆ® Ä÷³ ¼³Á¤, ±âÁ¸¿¡ Á¶È¸ÇÑ ³»¿ëÀ¸·Î ó¸® } if (speedflag == "Y") { grd_outpatlist.colHidden(grd_outpatlist.colRef("elbulbodstat")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("ordtm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("hngnm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("pid")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("sexage")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("fsexamflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("etcordflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("diagnm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("centcd")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("subdeptcd")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("orddrnm")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("anodeptyn")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("spclflag")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("testrslt")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("serdiag")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("insukind")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("trsmrem")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("conctypenm")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("antidrugflag")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("coordflag")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("cpyn")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("onestop")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("preworkup")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("hsctpreday")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("transtype")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("hsctday")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("postcxday")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("rsrvflag")) = true; grd_outpatlist.colHidden(grd_outpatlist.colRef("bfjudgvalue")) = true; } else { grd_outpatlist.colHidden(grd_outpatlist.colRef("elbulbodstat")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("ordtm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("hngnm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("pid")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("sexage")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("fsexamflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("etcordflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("diagnm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("centcd")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("subdeptcd")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("orddrnm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("anodeptyn")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("spclflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("testrslt")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("serdiag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("insukind")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("trsmrem")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("conctypenm")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("antidrugflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("coordflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("cpyn")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("onestop")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("preworkup")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("hsctpreday")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("transtype")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("hsctday")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("postcxday")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("rsrvflag")) = false; grd_outpatlist.colHidden(grd_outpatlist.colRef("bfjudgvalue")) = false; } } /** * @desc : Áø·á´ë»óÀÚ ¸®½ºÆ® Ãâ·Â * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPrtPatList() { var rptid = "RPMMO04102"; var desNode = "/root/main/outpatinfo/outpatlist"; model.makeValue("/root/main/cond/orddeptnm", cmb_orddept.label); model.makeValue("/root/main/cond/orddrnm", cmb_orddrid.label); exeReportPreview(rptid, "XMLSTR", desNode); } /** * @desc : Áø·á½ÃÀ۽ð£À» otptÄ÷³¿¡ ¾÷µ¥ÀÌÆ® * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fSetOrdStartTm(pid, orddd, cretno, elbulbodstat) { model.removenode("/root/send/savedata"); model.makeValue("/root/send/savedata/pid" , pid); model.makeValue("/root/send/savedata/orddd" , orddd); model.makeValue("/root/send/savedata/cretno" , cretno); model.makeValue("/root/send/savedata/elbulbodstat" , elbulbodstat); submit("TXMMO04204"); } /** * @desc : ´çÀϼ±°Ë»ç ÇØÁö * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fDelDayAftRcpt() { var currow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); model.makeValue("/root/send/cond1" , pid); model.makeValue("/root/send/cond2" , orddd); model.makeValue("/root/send/cond3" , cretno); model.makeValue("/root/send/cond4" , "N"); //´çÀϰá°ú üũ°ª //model.makeValue("/root/send/cond5" , "2"); // Àü±¤ÆÇ »óÅ if(submit("TXMMO00114")==true){ fReqOutPatList(); var sysMessageobj = getViewer("sysMessage"); curPrcpObj = sysMessageobj.window.javascript.getOpenWindow("SMMMO00100"); //Ȱ¼ºÈ­µÈ ó¹æMain È­¸é object loading if (curPrcpObj != null) { var prcpPid = curPrcpObj.model.getValue("/root/paminfo/list/pid"); if (pid == prcpPid) { curPrcpObj.model.setValue("/root/paminfo/list/prcptdayaftrcptyn", "N"); curPrcpObj.model.refresh(); } } } } /** * @desc : ´çÀϼ±°Ë»ç Àû¿ë * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fAppDayAftRcpt() { var currow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); model.makeValue("/root/send/cond1" , pid); model.makeValue("/root/send/cond2" , orddd); model.makeValue("/root/send/cond3" , cretno); model.makeValue("/root/send/cond4" , "Y"); // ´çÀϰá°ú üũ°ª //model.makeValue("/root/send/cond5" , "1"); // Àü±¤ÆÇ »óÅ if(submit("TXMMO00114")==true){ fReqOutPatList(); var sysMessageobj = getViewer("sysMessage"); curPrcpObj = sysMessageobj.window.javascript.getOpenWindow("SMMMO00100"); //Ȱ¼ºÈ­µÈ ó¹æMain È­¸é object loading if (curPrcpObj != null) { var prcpPid = curPrcpObj.model.getValue("/root/paminfo/list/pid"); if (pid == prcpPid) { curPrcpObj.model.setValue("/root/paminfo/list/prcptdayaftrcptyn", "N"); curPrcpObj.model.refresh(); } } } } /** * @desc : ¼ö³³ VIPÀÎ °æ¿ì VIP¾Ë¸² ÆË¾÷ * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fRcptVipResn() { //if ( getSystemCd() == "HIS012MDV" || getSystemCd() == "DEV999" ) { var currow = grd_outpatlist.row; var medamtpostyn = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/medamtpostyn"); var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); if (medamtpostyn == "V") { /* setParameter("SPMMO17200_rcptvipresncd" , rcptvipresncd); setParameter("SPMMO17200_rcptvipetcresn" , rcptvipetcresn); setParameter("SPMMO17200_pid" , pid); setParameter("SPMMO17200_hngnm" , hngnm); */ setParameter("SPMMO17200_cond" , pid + "¢Ë" + orddd +"¢Ë"+ cretno); var argxpt = 310; var argypt = 180; var xpt = window.screenleft + eval(argxpt); var ypt = window.screenTop + eval(argypt); var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; open ("SPMMO17200", mon, xpt, ypt, "SPMMO17200", "", "", "left:" + xpt + "; height:" + ypt +"; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;", false); } //} } /** * @desc : ´ë±âȯÀÚ »ö»ó ¼³Á¤ * : ³»È¯ÀÚÀû¿ë ȯÀÚ´Â color instance¿¡ ffffffÀÌ¿ÜÀÇ °ªÀÌ µé¾î¿È * @param : * @return : * @author : ¿ÀÁöÈÆ * @--------------------------------------------------- */ function fChngGrdCellColor(){ for(var currow = 1; currow < grd_outpatlist.rows; currow++){ var color = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/color"); if(color == ""){ color = "ffffff"; } grd_outpatlist.rowStyle(currow, "data", "background-color") = "#" + color; var pod = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pod"); if( !isNull(pod) && ((pod >= 25 && pod <= 35) || (pod >= 175 && pod <= 185))) { // ¼ö¼ú°æ°úÀÏ 1°³¿ù, 6°³¿ù ±ÛÀÚ»ö ºÓÀº»öÀ¸·Î º¯°æ grd_outpatlist.cellstyle("color", currow, grd_outpatlist.colRef("pod")) = "#ff0000"; } } var ordordershow = model.getValue("/root/init/ordordershow/hardcd/hardcd"); if(ordordershow == "B" || ordordershow == "A") { var row = grd_outpatlist.findRow("ffff99", 1, grd_outpatlist.colRef("color")); grd_outpatlist.topRow = row; grd_outpatlist.select(parseInt(row)+1, 1, parseInt(row)+1,grd_outpatlist.cols-1) = true; } grd_outpatlist.refresh(); } /** * @group : * @ver : 2007.04.11 * @by : ±èº´±¹ * @--------------------------------------------------- * @type : function * @access : public * @desc : * @param : * @return : * @--------------------------------------------------- */ /** * @desc : ƯÀÌȯÀÚ ¸Þ½ÃÁö * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fCivilApPatInfo() { var currow = grd_outpatlist.row; var civilap = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/civilap"); var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); if (civilap == "Y") { setParameter("SPMMO18300_param" , pid + "¢Ë" + orddd); var argxpt = 610; var argypt = 180; var xpt = window.screenleft + eval(argxpt); var ypt = window.screenTop + eval(argypt); var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; open ("SPMMO18300", mon, xpt, ypt, "SPMMO18300", "", "", "left:" + xpt + "; height:" + ypt +"; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;", false); } } /** * @desc : Áø·á´ë»óÀÚ¿¡¼­ ȯÀÚ ¼±Åýà º¸È£´ë ´ëÁø Àû¿ë (2009.05 .28 ±è¿µÇÐ) * @ * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fRgstPatProtectorRepl() { var iRow = grd_outpatlist.row; var sPID = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid"); var sOrdDD = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd"); var sCretNO = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno"); var sInstCD = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/instcd"); var sAcptSeqNO = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/acptseqno"); var sEtcOrdFlag = "F" var sProcFlag = "P" var sHngNM = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/hngnm"); var sUserID = getUserInfo("userid"); var sUserDeptCD = getUserInfo("dutplcecd"); model.removeNodeset("/root/send/savedata"); model.makeNode("/root/send/savedata/save"); var sSave = "pid¢Ëorddd¢Ëcretno¢Ëinstcd¢Ëacptseqno¢Ëuserid¢Ëetcordflag¢Ëuserdeptcd¢Ëprocflag¢Ì"; sSave += sPID + "¢Ë" + sOrdDD + "¢Ë" + sCretNO + "¢Ë" + sInstCD + "¢Ë" + sAcptSeqNO + "¢Ë" + sUserID + "¢Ë" + sEtcOrdFlag + "¢Ë" + sUserDeptCD + "¢Ë" + sProcFlag + "¢Ì"; model.makeNode("/root/send/savedata/req"); var sReq = "orddd¢Ëpid¢Ëorddeptcd¢Ëorddrid¢Ëelbulbodstat¢Ësrchdd¢Ëdeptflag¢Ì"; sReq += model.getValue("/root/main/cond/orddd") + "¢Ë" + model.getValue("/root/main/cond/pid") + "¢Ë" + model.getValue("/root/main/cond/orddeptcd") + "¢Ë" + model.getValue("/root/main/cond/orddrid") + "¢Ë" + model.getValue("/root/main/cond/elbulbodstat") + "¢Ë" + model.getValue("/root/main/cond/orddd") + "¢Ë" + model.getValue("/root/main/cond/deptflag") + "¢Ì"; model.setValue("/root/send/savedata/save", sSave); model.setValue("/root/send/savedata/req" , sReq); if(submit("TXMMO04201", false)){ } } /** * @desc : ¿¹¹æÁ¢Á¾ 0% Àû¿ë * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatPreProtect0Appl(){ fPatEtcOrdinfo("S", "Vacn"); } /** * @desc : ¿¹¹æÁ¢Á¾ 0% Àû¿ëÃë¼Ò * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatPreProtect0Cncl(){ fPatEtcOrdinfo("C", "Vacn"); } /** * @desc : ÁøÂû·á 0% Àû¿ë (»çº»¹ßÇà) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatCopyIss0Appl(){ fPatEtcOrdinfo("S", "Copy"); } /** * @desc : ÁøÂû·á 0% Àû¿ë Ãë¼Ò (»çº»¹ßÇà) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatCopyIss0Cncl(){ fPatEtcOrdinfo("C", "Copy"); } /** * @desc : ÁøÂû·á 50% Àû¿ë (Áø´Ü¼­) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatProf50Appl(){ fPatEtcOrdinfo("S", "Diag"); } /** * @desc : ÁøÂû·á 50% Àû¿ë Ãë¼Ò (Áø´Ü¼­) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatProf50Cncl(){ fPatEtcOrdinfo("C", "Diag"); } /** * @desc : ÁøÂû·á 50% Àû¿ë (»çº»¹ßÇà) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatCopyIss50Appl(){ fPatEtcOrdinfo("S", "Copy2"); } /** * @desc : ÁøÂû·á 50% Àû¿ë Ãë¼Ò (»çº»¹ßÇà) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatCopyIss50Cncl(){ fPatEtcOrdinfo("C", "Copy2"); } /** * @desc : ÁøÂû·á 0% Àû¿ë (Á¦Áõ¸í) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatProf0Appl(){ fPatEtcOrdinfo("S", "Diag2"); } /** * @desc : ÁøÂû·á 0% Àû¿ë Ãë¼Ò (Á¦Áõ¸í) * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatProf0Cncl(){ fPatEtcOrdinfo("C", "Diag2"); } /** * @desc : ÁøÂû·á º¯°æ Àû¿ë ¹× Ãë¼Ò * @param : * @return : * @author : ±è¿µÇÐ * @--------------------------------------------------- */ function fPatEtcOrdinfo(SetFlag, EtcOrdFlag){ var flag = ""; var iRow = grd_outpatlist.row; //2010.03.06 JJE var etcordflag = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/etcordflag"); var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/elbulbodstat"); if ( elbulbodstat == "9" ) { messageBox("¹ÌÁ¢¼öȯÀÚ´Â ÁøÇàÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.","E"); return; } if(SetFlag == "S"){ /* if(etcordflag != "" && etcordflag != "-"){ messageBox("ÀÌ¹Ì µî·ÏµÈ ³»¿ªÀÌ ÀÖ½À´Ï´Ù.", " I"); return; } */ //µî·Ï if(EtcOrdFlag == "Diag"){ flag = "A"; } else if(EtcOrdFlag == "Copy"){ flag = "B"; } else if(EtcOrdFlag == "Vacn"){ flag = "C"; } else if(EtcOrdFlag == "Diag2"){ flag = "D"; } else if(EtcOrdFlag == "Copy2"){ flag = "E"; } }else{ if(etcordflag == "" || etcordflag == "-"){ messageBox("Ãë¼ÒÇÒ ³»¿ªÀÌ ¾ø½À´Ï´Ù.", " I"); return; } if(EtcOrdFlag == "Diag" || EtcOrdFlag == "Diag2"){ if(etcordflag != "G"){ messageBox("Ãë¼ÒÇÒ ¼ö ¾ø½À´Ï´Ù.", " I"); return; } }else if(EtcOrdFlag == "Copy"){ //Copy: ÁøÂû·á 0%(»çº»¹ßÇà) Ãë¼Ò if(etcordflag != "K"){ messageBox("Ãë¼ÒÇÒ ¼ö ¾ø½À´Ï´Ù.", " I"); return; } }else if(EtcOrdFlag == "Copy2"){ //Copy2: ÁøÂû·á 50%(»çº»¹ßÇà) Ãë¼Ò if(etcordflag != "D"){ messageBox("Ãë¼ÒÇÒ ¼ö ¾ø½À´Ï´Ù.", " I"); return; } }else if(EtcOrdFlag == "Vacn"){ if(etcordflag != "L"){ messageBox("Ãë¼ÒÇÒ ¼ö ¾ø½À´Ï´Ù.", " I"); return; } } flag = "-"; //Ãë¼Ò } model.removenode("/root/send/data"); model.makeValue("/root/send/data/flag", flag); model.makeValue("/root/send/data/otpt_pid", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid")); model.makeValue("/root/send/data/otpt_orddd", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd")); model.makeValue("/root/send/data/otpt_cretno", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno")); if(submit("TXMNO00107")){ fReqOutPatList(); } } /* * @desc : ½ÉÇ÷°ü ¿ø½ºÅ¾ Ãë¼Ò *@author: ±è±¤¼º(kskim) */ function fCvOneStopDel(){ fCvOneStopInfo("-"); } /** * @desc : ½ÉÇ÷°ü ¿ø½ºÅ¾ µî·Ï *@author: ±è±¤¼º(kskim) */ function fCvOneStopApp(){ fCvOneStopInfo("H"); } /** * @desc : ½ÉÇ÷°ü ¿ø½ºÅ¾ µî·Ï ¹× Ãë¼Ò *@author: ±è±¤¼º(kskim) */ function fCvOneStopInfo(setFlag){ var flag = ""; var iRow = grd_outpatlist.row; var patlistOneStopFlag = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/onestop"); if( setFlag == "H" ){ flag = "H"; } else{ flag = "-"; } model.removenode("/root/send/data"); model.makeValue("/root/send/data/onestop", flag); model.makeValue("/root/send/data/pid", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid")); model.makeValue("/root/send/data/orddd", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd")); model.makeValue("/root/send/data/instcd", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/instcd")); model.makeValue("/root/send/data/cretno", model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno")); if(submit("TXMMO04205")){ fReqOutPatList(); } } function fOpenChgDrGrup() { grp_chgdrinfo.visible = true; } function fChgDrInfo() { var iRow = grd_outpatlist.row; // Á¢¼ö »óÅÂÀ϶§¸¸ Àǻ纯°æ °¡´ÉÇϵµ·Ï ÇÔ. var elbulbodstat = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/elbulbodstat"); var orddeptcd = model.getValue("/root/main/cond/orddeptcd"); if (elbulbodstat != "0" ) { messageBox("ȯÀÚ Á¢¼ö »óÅÂÀ϶§¸¸ Àǻ纯°æÀÌ °¡´ÉÇÕ´Ï´Ù.", "C") ; return; } // Áø·á°ú°¡ °°À» °æ¿ì¸¸ ¾÷µ¥ÀÌÆ® °¡´ÉÇϵµ·Ï ÇÔ. if (orddeptcd != getUserInfo("dutplcecd")) { messageBox("·Î±×ÀÎÇÑ Áø·á°ú¿Í ȯÀÚÀÇ Áø·á°ú°¡ °°À» °æ¿ì¸¸ ÀÇ»ç º¯°æÀÌ °¡´ÉÇÕ´Ï´Ù.", "C") ; return; } var pid = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddd"); var ordtm = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/ordtm"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/cretno"); var subdeptcd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/subdeptcd"); var centcd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/centcode"); var orddrid = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/orddrid"); var rsrvflag = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/rsrvflag"); var instcd = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/instcd"); var fsexamflag = model.getValue(sOUTPATLIST_PATH + "[" + iRow + "]/fsexamflag"); var chgorddrid = model.getValue("/root/main/cond/chgorddrid"); if (model.getValue("/root/init/userlist/usercombo[userid= '" + chgorddrid + "']/refseq") == "A") { messageBox("¼±ÅÃÁø·áÀÇ·Î º¯°æÀº ºÒ°¡´ÉÇÕ´Ï´Ù. ¿ø¹«ÆÀ¿¡¼­ º¯°æÇϽñ⠹ٶø´Ï´Ù.", "C") ; return; } if (model.getValue("/root/init/userlist/usercombo[userid= '" + orddrid + "']/refseq") == "A") { messageBox("¼±ÅÃÁø·áÀÇ¿¡¼­ÀÇ º¯°æÀº ºÒ°¡´ÉÇÕ´Ï´Ù. ¿ø¹«ÆÀ¿¡¼­ º¯°æÇϽñ⠹ٶø´Ï´Ù.", "C") ; return; } model.makeValue("/root/send/savedata/otpt_workflag" , "J"); model.makeValue("/root/send/savedata/otpt_pid" , pid); model.makeValue("/root/send/savedata/otpt_orddd_old" , orddd); model.makeValue("/root/send/savedata/otpt_ordtm_old" , ordtm); model.makeValue("/root/send/savedata/otpt_cretno_old" , cretno); model.makeValue("/root/send/savedata/otpt_orddeptcd_old" , orddeptcd); model.makeValue("/root/send/savedata/otpt_subdeptcd_old" , subdeptcd); model.makeValue("/root/send/savedata/otpt_centcd_old" , centcd); model.makeValue("/root/send/savedata/otpt_orddrid_old" , orddrid); model.makeValue("/root/send/savedata/otpt_rsrvflag_old" , rsrvflag); model.makeValue("/root/send/savedata/otpt_orddd_new" , orddd); model.makeValue("/root/send/savedata/otpt_ordtm_new" , ordtm); model.makeValue("/root/send/savedata/otpt_cretno_new" , cretno); model.makeValue("/root/send/savedata/otpt_orddeptcd_new" , orddeptcd); model.makeValue("/root/send/savedata/otpt_subdeptcd_new" , subdeptcd); model.makeValue("/root/send/savedata/otpt_centcd_new" , centcd); model.makeValue("/root/send/savedata/otpt_orddrid_new" , chgorddrid); model.makeValue("/root/send/savedata/otpt_rsrvflag_new" , rsrvflag); model.makeValue("/root/send/savedata/otpt_updtcnclresn" , ""); model.makeValue("/root/send/savedata/otpt_instcd" , instcd); model.makeValue("/root/send/savedata/otpt_fsexamflag_old" , fsexamflag); model.makeValue("/root/send/savedata/checkfsexamyn" , "N"); model.makeValue("/root/send/savedata/sess_userid" , getUserInfo("userid")); // ÀçÁ¶È¸Çϱâ À§ÇÑ °ªÀ» ¼ÂÇØÁØ´Ù. model.makeValue("/root/send/savedata/pid" , model.getValue("/root/main/cond/pid")); model.makeValue("/root/send/savedata/orddd" , model.getValue("/root/main/cond/orddd")); model.makeValue("/root/send/savedata/orddeptcd" , model.getValue("/root/main/cond/orddeptcd")); model.makeValue("/root/send/savedata/orddrid" , model.getValue("/root/main/cond/orddrid")); model.makeValue("/root/send/savedata/elbulbodstat" , model.getValue("/root/main/cond/elbulbodstat")); model.makeValue("/root/send/savedata/deptflag" , model.getValue("/root/main/cond/deptflag")); model.makeValue("/root/send/savedata/chkprcp" , model.getValue("/root/main/cond/chkprcp")); model.makeValue("/root/send/savedata/speedflag" , model.getValue("/root/main/cond/speedflag")); if ( !submit("TXMMO04206")) { messageBox("Àǻ纯°æ¿¡ ½ÇÆÐÇß½À´Ï´Ù.", "C"); } grp_chgdrinfo.visible = false; fReqOutPatList(); } /** * @desc : ¾ÈÀü»ç°í º¸°í * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPatQi(){ var currow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var orddd = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/orddd"); var cretno = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/cretno"); var ordtype = "O"; var oprsrvno = ""; setParameter("SMMQR00100_PARAM2", pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + ordtype+"¢Ë" + oprsrvno); modal("../../../emr/qiweb/xrw/SMMQR00100", "","", "", "SMMQR00100", "", ""); } /** * @desc : ¿Ü·¡¿¹¾àÇöȲÃâ·Â * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPrintOutRsrvState() { var sOrdDeptCd = model.getValue("root/main/cond/orddeptcd"); var sOrdDrId = model.getValue("root/main/cond/orddrid"); var sOrdDeptNm = model.getValue("/root/init/orddept/dept[deptcd='" + sOrdDeptCd + "']/depthngnm"); var sOrdDrNm = model.getValue("/root/init/userlist/usercombo[userid='" + sOrdDrId + "']/usernm"); setParameter("SPMMO90400_orddeptcd", sOrdDeptCd); setParameter("SPMMO90400_orddeptnm", sOrdDeptNm); setParameter("SPMMO90400_centcd", "-"); setParameter("SPMMO90400_centnm", ""); setParameter("SPMMO90400_orddrid", sOrdDrId); setParameter("SPMMO90400_orddrnm", sOrdDrNm); modal("SPMMO90400"); } /** * @desc : ȯÀÚ¶óº§Ãâ·Â * @param : * @return : * @author : ¾ö¿µ¸¸ * @--------------------------------------------------- */ function fPrintPatLabel(){ var currow = grd_outpatlist.row; var pid = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/pid"); var patnm = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/hngnm"); var sexage = model.getValue(sOUTPATLIST_PATH + "[" + currow + "]/sexage"); setParameter("SMMMB00100_scrnid", "SMMMO04100"); setParameter("SMMMB00100_pid", pid); setParameter("SMMMB00100_patnm", patnm); setParameter("SMMMB00100_sexage", sexage); modal("SMMMB00100"); }