/* - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì °£È£Ã³¹æ ( SMMNW10900_°£È£Ã³¹æ.xrw - JScript ) - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì */ var sPATINFO_PATH = "/root/main/patinfocond/patinfo"; //ȯÀÚÁ¤º¸ var sLRGSETLIST_PATH = "/root/main/prcplistinfo/anolrgsetinfo/lrgsetlist"; //´ëºÐ·ù ±×¸®µå var sSMLSETLIST_PATH = "/root/main/prcplistinfo/anosmlsetinfo/smlsetlist"; //¼ÒºÐ·ù ±×¸®µå var sPRCPSETLIST_PATH = "/root/main/prcpset/prcplist"; //°£È£¾à¼Ó ó¹æ var sTEMPPRCPLIST_PATH = "/root/main/tempprcp/prcplist"; //ÀÓ½Ãó¹æ var sBFPRCPLIST_PATH = "/root/main/bfprcp/prcplist"; //Àüó¹æ var sPRCPLIST_PATH = "/root/main/prcp/prcplist"; //°£È£Ã³¹æ var sSIGNDATA_PATH = "/root/main/signdata/signprcplist"; //ÀÎÁõµ¥ÀÌÅÍ var sSIGNTEMPDATA_PATH = "/root/main/signdata/signtempprcplist"; //ÀÎÁõµ¥ÀÌÅÍ(ÀÓ½Ãó¹æ) var homecarecenterdeptcd, homecareteamdeptcd; var signtime = ""; var vsettime = ""; var vsetdate = ""; var spcldept = ""; /** * @desc : È­¸é ÃʱâÈ­ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fInit(){ //°£È£Ã³¹æ µµ¿ò¸» ±â´É Ä¥°î¸¸ º¸À̵µ·Ï 2013.07.15 KJS var sInstcd = getUserInfo("dutplceinstcd"); var sDutplcecd = getUserInfo("dutplcecd"); if (sInstcd == "032" || sDutplcecd == "3050135000") { btn_help.visible = true; } else { btn_help.visible = false; } if (sInstcd == "031" && sDutplcecd == "3050135000") { btn_crrt.visible = true; } else { btn_crrt.visible = false; } var settingnurid=""; //³»È¯ÀÚ settingº¯¼ö zesfInitSign(); //ÀÎÁõ ¸ðµâ ÃʱâÈ­ // °£È£ÇϵåÄÚµù Å×À̺í Á¶È¸_20090416(ByJA) //----------(20110118) °æºÏ´ë //var pCode = "'047', '048','002','195','207'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸ 002 : ÀÀ±ÞÀÇ·á¼¾ÅÍ Ãß°¡ (¾ß°£°¡»êÀº ÀÀ±ÞÀÇ·á¼¾Å͸¸ ¼¼ÆÃ)20091214 ±èÈ«Á¡ var pCode = "'003', '047', '048','002','195','207','016','T84','202','I09'"; //¸¶Ãëȸº¹½ÇÃß°¡ '046':¿µ»óÀÇÇаú Ãß°¡. 'T84':ÀÎÁõÀúÀåÆË¾÷. var machideptcd = ""; //----------(20110118) °æºÏ´ë var pDate = getCurrentDate(); // Á¶È¸±âÁØÀÏÀÚ fGetNursHardCdInfo(pCode, pDate); for(var i=1; i<=getNodesetCount("/root/code/codeinfo/codelist"); i++){ switch (model.getValue("/root/code/codeinfo/codelist["+i+"]/cdgrupid")){ case "202": //´ëÂ÷¿©ºÎ cartcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid"); break; case "047": // °¡Á¤°£È£¼¾ÅÍ homecarecenterdeptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid"); break; case "048": // °¡Á¤°£È£ÆÀ homecareteamdeptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid"); break; case "016": // ¸¶Ãëȸº¹½Ç machideptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid"); break; case "T84": signtime = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid"); break; } } spcldept = model.getValue("/root/code/codeinfo/codelist[cdgrupid='003']/cdid"); if(cartcd != 'Y'){ grd_prcpposlist.colHidden(grd_prcpposlist.colRef("drprcpetc10")) = true; grd_bfprcplist.colHidden(grd_bfprcplist.colRef("drprcpetc10")) = true; } // ÀÀ±Þ½Ç 24½Ã°£ À̳» ȯÀÚ ÀÀ±Þ °¡»êÀ» À§ÇØ ÁÖ¼® ó¸® 2016.01.01 ¾ö¿µ¸¸ //if(getUserInfo("dutplceinstcd") == "031") { // grd_prcpposlist.colHidden(grd_prcpposlist.colRef("erprcpflag")) = true; //} model.removeNodeset(sLRGSETLIST_PATH); model.removeNodeset(sSMLSETLIST_PATH); model.removeNodeset(sPRCPSETLIST_PATH); model.removeNodeset(sTEMPPRCPLIST_PATH); model.removeNodeset(sBFPRCPLIST_PATH); model.removeNodeset(sPRCPLIST_PATH); //ÄÞº¸¸®½ºÆ® ¼ÂÆÃ(±Þºñ, ó¹æºÐ·ù) zbcfGetCodeList(new Array("M0029", "M0005", "M0007", "P0506"), new Array("/root/init/comcodelist/payflag_cmblist", "/root/init/comcodelist/clscd_cmblist", "/root/init/comcodelist/opflag_cmblist" ,"/root/init/drgacptflag"), true); addComboItem("cmb_listclscd", "Àüü", "ALL", "above" ); model.setValue("/root/main/srchcond/srchclscd", "ALL"); model.setValue("/root/main/bfprcpinfo/bfcond/srchclscd", "ALL"); model.setValue("/root/main/tempprcpinfo/tempcond/srchclscd", "ALL"); //ÃÊ±â ¼ÂÆÃ°ª model.setValue("/root/main/cond/prcpdd", getCurrentDate()); //ó¹æÀÏ model.setValue("/root/main/bfprcpinfo/bfcond/prcpfromdd", model.getValue("/root/main/cond/prcpdd").toDate().getAddDate(-7, "D").getDateFormat()); //Àüó¹æ model.setValue("/root/main/bfprcpinfo/bfcond/prcptodd", model.getValue("/root/main/cond/prcpdd")); // °£È£È¯°æ¼³Á¤ Å×À̺í Á¶È¸_20110215 // var pCode = "'002'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸ // var pDate = getCurrentDate(); //Á¶È¸±âÁØÀÏÀÚ // fGetNursHardCdInfo(pCode, pDate); //¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È model.makeNode("/root/main/paminfo"); var node = getGlobalVariable("paminfo"); setCSVToNode("/root/main/paminfo", node); if (model.getValue("/root/main/paminfo/list/pid") != "") { //»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆÃµÇ¾î ÀÖÀ» °æ¿ì model.makeValue("/root/main/cond/upinfoyn", "Y"); //patinfo Á¤º¸ ¼ÂÆÃ if (model.getValue("/root/main/paminfo/list/ioflag") == 'O') { var centcd = model.getValue("/root/main/paminfo/list/centcd"); if(centcd == "-" || centcd == "") { model.setValue("/root/main/cond/wardcd" , model.getValue("/root/main/paminfo/list/orddeptcd")); } else { model.setValue("/root/main/cond/wardcd" , centcd); } // model.setValue("/root/main/cond/wardcd" , model.getValue("/root/main/paminfo/list/orddeptcd")); model.setValue(sPATINFO_PATH + "/wardcd" , model.getValue("/root/main/paminfo/list/orddeptcd")); model.setValue(sPATINFO_PATH + "/orddd" , model.getValue("/root/main/paminfo/list/orddd")); model.setValue(sPATINFO_PATH + "/acptseqno" , model.getValue("/root/main/paminfo/list/acptseqno")); model.setValue(sPATINFO_PATH + "/orddrid" , model.getValue("/root/main/paminfo/list/orddrid")); model.setValue(sPATINFO_PATH + "/clincstdyflag", model.getValue("/root/main/paminfo/list/clincstdyacptflag")); model.setValue(sPATINFO_PATH + "/clincstdycd" , model.getValue("/root/main/paminfo/list/clincstdyno")); model.makeValue(sPATINFO_PATH + "/dschnotiyn" , "N"); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080807Ãß°¡(ByJA) model.makeValue(sPATINFO_PATH + "/careinrmyn" , "Y"); // ÀÔ½ÇÈ®Àο©ºÎ üũ ¿Ü·¡´Â ºñ±³´ë»óÀÌ ¾Æ´Ï¹Ç·Î ¹«Á¶°Ç Y 20090908 khj } else { model.setValue("/root/main/cond/wardcd" , model.getValue("/root/main/paminfo/list/wardcd")); model.setValue(sPATINFO_PATH + "/wardcd" , model.getValue("/root/main/paminfo/list/wardcd")); model.setValue(sPATINFO_PATH + "/roomcd" , model.getValue("/root/main/paminfo/list/roomcd")); model.setValue(sPATINFO_PATH + "/indd" , model.getValue("/root/main/paminfo/list/indd")); model.setValue(sPATINFO_PATH + "/orddrid" , model.getValue("/root/main/paminfo/list/medispclid")); model.setValue(sPATINFO_PATH + "/clincstdyflag", model.getValue("/root/main/paminfo/list/clincstdyyn")); model.setValue(sPATINFO_PATH + "/clincstdycd" , model.getValue("/root/main/paminfo/list/clincstdycd")); model.makeValue(sPATINFO_PATH + "/dschnotiyn" , model.getValue("/root/main/paminfo/list/dschnotiyn")); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080807Ãß°¡(ByJA) if ( model.getValue("/root/main/paminfo/list/ioflag") == 'E' && model.getValue("/root/main/paminfo/list/calcdd") != '-' ){ model.makeValue(sPATINFO_PATH + "/careinrmyn" ,'Y');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj } else if ( model.getValue("/root/main/paminfo/list/ioflag") != 'E' && model.getValue("/root/main/paminfo/list/careinrmdd") != '-' ){ model.makeValue(sPATINFO_PATH + "/careinrmyn" ,'Y');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj } else { model.makeValue(sPATINFO_PATH + "/careinrmyn" ,'N');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj } } model.setValue(sPATINFO_PATH + "/pid" , model.getValue("/root/main/paminfo/list/pid")); model.setValue(sPATINFO_PATH + "/patnm" , model.getValue("/root/main/paminfo/list/hngnm")); model.setValue(sPATINFO_PATH + "/cretno" , model.getValue("/root/main/paminfo/list/cretno")); model.setValue(sPATINFO_PATH + "/orddeptcd", model.getValue("/root/main/paminfo/list/orddeptcd")); model.setValue(sPATINFO_PATH + "/ordtype" , model.getValue("/root/main/paminfo/list/ioflag")); model.setValue(sPATINFO_PATH + "/sexage" , model.getValue("/root/main/paminfo/list/sex") + "/" + model.getValue("/root/main/paminfo/list/age")); model.setValue(sPATINFO_PATH + "/insukind" , model.getValue("/root/main/paminfo/list/insukind")); model.setValue(sPATINFO_PATH + "/specordyn", model.getValue("/root/main/paminfo/list/specordyn")); model.setValue(sPATINFO_PATH + "/instcd" , model.getValue("/root/main/paminfo/list/instcd")); ////20110828_KNUH_Start ³»È¯ÀÚsettingÁ¤º¸ Á¶È¸. fGetSettringInfoRef(); //³»È¯ÀÚ¼ÂÆÃÁ¤º¸°¡ ÀÖÀ¸¸é set,¾øÀ¸¸é ±×³É null settingnurid = model.getValue("/root/init/settinginfo/settingrn[settingrnid='" + getUserInfo("userid") +"']/settingrnid"); if(settingnurid == null || settingnurid == "") { } else { model.setValue(cmb_settingrn.attribute("ref"), getUserInfo("userid")); cmb_settingrn.refresh(); } //20110828_KNUH_End } else { // chk_clincstdy.disabled = true; // model.setValue("/root/main/cond/clincstdyflag", "N"); model.setValue("/root/main/cond/wardcd", getUserInfo("dutplcecd")); //»ó´ÜÁ¤º¸°¡ ¾øÀ» °æ¿ì °£È£»ç ¼Ò¼ÓºÎ¼­ //20110828_KNUH_Start ȯÀÚsettingÁ¤º¸ Á¶È¸ fGetSettringInfoRef(); settingnurid = model.getValue("/root/init/settinginfo/settingrn[settingrnid='" + getUserInfo("userid") +"']/settingrnid"); //³»È¯ÀÚ¼ÂÆÃÁ¤º¸°¡ ÀÖÀ¸¸é set,¾øÀ¸¸é ±×³É null if(settingnurid == null || settingnurid == "") { } else { model.setValue(cmb_settingrn.attribute("ref"), getUserInfo("userid")); cmb_settingrn.refresh(); } //20110828_KNUH_End } submit("TRMNW11001", false); //ºÎ¼­ÄÞº¸ Á¶È¸ if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){ model.setValue("/root/main/cond/homecareyn", "Y"); } //20110215 À̼±°æ : °æºÏ´ë - ÀÀ±Þ½ÇÀÏ °æ¿ì ±¸¿ªÁ¤º¸¸¦ Á¶È¸ fGetZoneList(); fnZoneDisp(); fRoomInfoRef("init"); //ÇØ´çº´µ¿ÀÇ ÇØ´çº´½ÇÁ¶È¸ if(settingnurid == null || settingnurid=="") { cmb_room.disabled = false; } else { cmb_room.disabled = true; fPatInfoRef("I"); } cmb_userpos.disabled = true; fChkClincstdy(); //Àӻ󿬱¸ üũ 20100727 ȯÀÚÁ¤º¸ ÃÖÁ¾ Ä«ÇÇµÇ°í ³ª¼­ ¼¼ÆÃÇØ¾ßÇϹǷΠÀ§Ä¡ ¿Å±â¸é ¾È‰Î. //°¡Á¤°£È£Ã³¹æÀÏ °æ¿ì ¹æ¹®ÀÏÀÚ ¼ÂÆÃ if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){ model.setValue("/root/main/prcpposinfo/cond/poscd" , "2"); // ó¹æÀ§Ä¡_2:UserÀ§Ä¡ model.setValue("/root/main/prcpposinfo/cond/deptcd", homecarecenterdeptcd); // UserÀ§Ä¡ÄÚµå_2361000000:°¡Á¤°£È£¼¾ÅÍ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø if(cmb_userpos.label == ""){ model.setValue("/root/main/prcpposinfo/cond/deptcd", homecareteamdeptcd); // UserÀ§Ä¡ÄÚµå_3090100000:°¡Á¤°£È£ÆÀ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø } cmb_userpos.disabled = false; fSearchHomePatInfo(); // ¹æ¹®ÀÏÀÚ Á¶È¸_Ãß°¡(20090331_ByJA) } else if(getScreenMenuParameter() == "SMMND"){ //Àΰø½ÅÀåÀÏ °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡·Î_20081015(byJA_¼Ò°æÈ­ITC¿äû) model.setValue("/root/main/prcpposinfo/cond/poscd" , "2"); // ó¹æÀ§Áö_2:UserÀ§Ä¡ model.setValue("/root/main/prcpposinfo/cond/deptcd", getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­ cmb_userpos.disabled = false; } else if(getScreenMenuParameter() == "SMAEA" || opener.javascript.getParameter("screenParam") == "SMAEA"){ //°£È£±â´ÉÆÄÆ®(³»½Ã°æ½Ç, ºÎÁ¤¸Æ°Ë»ç½Ç, °£Å©¸®´Ð, ±â°üÁö°æ½Ç, ½ÉÀåÃÊÀ½ÆÄ½Ç) °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡·Î_20081208(ByJA) model.setValue("/root/main/prcpposinfo/cond/poscd" , "2"); // ó¹æÀ§Áö_2:UserÀ§Ä¡ model.setValue("/root/main/prcpposinfo/cond/deptcd", getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­ cmb_userpos.disabled = false; } else if(machideptcd == getUserInfo("dutplcecd") ){ //-------------(20110118) °æºÏ´ë °£È£±â´ÉÆÄÆ®(¸¶Ãëȸº¹½Ç) °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡ model.setValue("/root/main/prcpposinfo/cond/poscd" , "2"); // ó¹æÀ§Áö_2:UserÀ§Ä¡ model.setValue("/root/main/prcpposinfo/cond/deptcd", getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­ cmb_userpos.disabled = false; } //-------------(20110118) °æºÏ´ë cmb_userpos.refresh(); if (model.getValue("/root/main/cond/homecareyn") == "Y"){ cap_visitdd.visible = true; cmb_visitdd.visible = true; grd_prcpposlist.valueMatrix(0, grd_prcpposlist.colRef("prcpdelivefact")) = "¹æ¹®ÀÏÀÚ"; grd_bfprcplist.valueMatrix(0, grd_prcpposlist.colRef("prcpdelivefact")) = "¹æ¹®ÀÏÀÚ"; cmb_bfcond.choices.itemset.attribute("nodeset") = "/root/init/homebfcondinfo/homebfcond"; }else{ cap_visitdd.visible = false; cmb_visitdd.visible = false; grd_prcpposlist.valueMatrix(0, grd_prcpposlist.colRef("prcpdelivefact")) = "Àû¿ëÀÏÀÚ"; grd_bfprcplist.valueMatrix(0, grd_prcpposlist.colRef("prcpdelivefact")) = "Àû¿ëÀÏÀÚ"; cmb_bfcond.choices.itemset.attribute("nodeset") = "/root/init/bfcondinfo/bfcond"; } //*** 󹿏ñ·Ï model.makeValue("/root/send/reqdata/comnrefflag", 'Y'); submit("TRMNW10901", false); //setºÎ¼­ÄÞº¸ Á¶È¸(°øÅë Æ÷ÇÔ) if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){ model.setValue("/root/main/prcplistinfo/setcond/settrgtcd", homecarecenterdeptcd); // UserÀ§Ä¡ÄÚµå_2361000000:°¡Á¤°£È£¼¾ÅÍ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø if(cmb_dept.label == ""){ model.setValue("/root/main/prcplistinfo/setcond/settrgtcd", homecareteamdeptcd); // UserÀ§Ä¡ÄÚµå_3090100000:°¡Á¤°£È£ÆÀ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø } }else{ model.setValue("/root/main/prcplistinfo/setcond/settrgtcd", getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­ } cmb_dept.refresh(); if (model.getValue("/root/init/deptinfo/deptlist[deptcd = '"+ model.getValue("/root/main/prcplistinfo/setcond/settrgtcd") + "']/deptcd") == "") { model.setValue("/root/main/prcplistinfo/setcond/settrgtcd", 'ALL'); //¼Ò¼ÓºÎ¼­ ¾øÀ» °æ¿ì °øÅëÀ¸·Î ¼ÂÆÃ } model.setValue("/root/main/prcplistinfo/setcond/setclscd", 'W'); model.setValue("/root/main/prcplistinfo/setcond/settypecd", 'P'); model.setValue("/root/main/prcplistinfo/setcond/setkindcd", 'D'); fLrgSetRef(); //´ëºÐ·ù setÁ¶È¸ // fReqBfNursPrcpInfo(); //Àüó¹æ Á¶È¸ // fReqTempNursPrcpInfo(); //ÀÓ½Ãó¹æ Á¶È¸ var pid = model.getValue("/root/main/cond/pid"); if(pid != ""){ fprtlnm(pid); } } /** * @desc : ºÎ¼­Á¶°Ç¿¡ µû¸¥ º´½Ç Á¶È¸ * @ * @param :initflag ="init" ÃʱâÈ­ * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fRoomInfoRef(initflag) { model.removeNodeset("/root/init/roominfo/room/roomcd"); model.resetInstanceNode("/root/main/cond/patnm"); model.resetInstanceNode("/root/main/cond/pid"); model.removeNodeset(sPRCPLIST_PATH); model.removeNodeset(sTEMPPRCPLIST_PATH); model.removeNodeset(sBFPRCPLIST_PATH); var settingrnid = model.getValue("/root/main/cond/settingrnid"); var deptflag = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/cond/wardcd") + "']/deptflag"); if (deptflag == 'I') { //ÇØ´çº´µ¿ÀÇ ÇØ´çº´½ÇÁ¶È¸ cmb_room.disabled = false; model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); if (submit("TRMNW10902", false)) { if (model.getValue("/root/main/cond/upinfoyn") == "Y") { //»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆÃµÇ¾î ÀÖÀ» °æ¿ì //20110828_KNUH_Start if(settingrnid == null || settingrnid == "") { model.setValue("/root/main/cond/roomcd", model.getValue("/root/main/paminfo/list/roomcd")); } else { model.setValue("/root/main/cond/roomcd", "-"); } //20110828_KNUH_End fPatInfoRef("I",initflag); } else { model.setValue("/root/main/cond/roomcd", "-"); model.removeNodeset("/root/init/patinfo/patlist"); } } } else { //¿Ü·¡°ú ȯÀÚ Á¶È¸ cmb_room.disabled = true; fPatInfoRef("O", initflag);//º´µ¿Àº »ó°ü¾ø°í ¿Ü·¡Àΰæ¿ì ³»½Ã°æ½ÇÀÇ °æ¿ì »ó´ÜÁ¤º¸´ë·Î 󹿹߻ý20100409 º¯°æÇùÀÇü°á°ú ³ª¿À±âÀü±îÁö Àӽà khj ->16040 ¿äû¹øÈ£¿¡ ÀÇÇØ ´çÀϼöÁø¿¡¸¸ 󹿹߻ýÇϵµ·Ï ÇÔ. 20100715 ±èÈ«Á¡ } model.refresh(); } //20110828_KNUH_Start ȯÀÚsettingÁ¤º¸ Á¶È¸ function fGetSettringInfoRef() { model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd") ); submit("TRMNW10910"); cmb_settingrn.refresh(); } /** * @desc : º´½Çº° ȯÀÚ¸®½ºÆ® Á¶È¸, ºÎ¼­º° ȯÀÚ¸®½ºÆ® Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fPatInfoRef(deptflag, initflag) { var settingnurid=""; settingnurid = model.getValue("/root/main/cond/settingrnid"); model.resetInstanceNode("/root/main/cond/pid"); model.resetInstanceNode("/root/main/cond/patnm"); model.removeNodeset(sPRCPLIST_PATH); model.removeNodeset(sTEMPPRCPLIST_PATH); model.removeNodeset(sBFPRCPLIST_PATH); model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); var centcd = model.getValue("/root/main/paminfo/list/centcd"); if(centcd != "-" && centcd != "") { model.makeValue("/root/send/reqdata/centflag", "Y"); } model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); if (deptflag == "I") { //º´½Çº° ȯÀÚÁ¶È¸ //20110828_KNUH_Start if(settingnurid == null || settingnurid == "") { model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd")); } else { model.makeValue("/root/send/reqdata/roomcd", "-"); } //20110828_KNUH_End model.makeValue("/root/send/reqdata/refflag", "room"); model.makeValue("/root/send/reqdata/ordtype", "I"); model.makeValue("/root/send/reqdata/zonecd", model.getValue("/root/main/cond/zonecd")); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); } else { //¿Ü·¡ºÎ¼­ ȯÀÚÁ¶È¸ model.makeValue("/root/send/reqdata/refflag", "dept"); model.makeValue("/root/send/reqdata/ordtype", "O"); model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn")); } if(spcldept == model.getValue("/root/main/cond/wardcd")) { model.makeValue("/root/send/reqdata/spcldeptyn", "Y"); } else { model.makeValue("/root/send/reqdata/spcldeptyn", ""); } if (submit("TRMNW10903", false)) { if (model.getValue("/root/main/cond/upinfoyn") == "Y") { //»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆÃµÇ¾î ÀÖÀ» °æ¿ì model.setValue("/root/main/cond/patnm", model.getValue("/root/main/paminfo/list/pid")); model.setValue("/root/main/cond/pid", model.getValue("/root/main/paminfo/list/pid")); //°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸ if(model.getValue("/root/main/cond/homecareyn") == "Y") { fSearchHomePatInfo(); } } else { model.setValue("/root/main/cond/patnm", ""); model.setValue("/root/main/cond/pid", ""); } } var pid=model.getValue("/root/main/cond/pid"); //º´µ¿Àº »ó°ü¾ø°í ¿Ü·¡Àΰæ¿ì ³»½Ã°æ½ÇÀÇ °æ¿ì »ó´ÜÁ¤º¸´ë·Î 󹿹߻ý20100409 º¯°æÇùÀÇü°á°ú ³ª¿À±âÀü±îÁö Àӽà khj //->16040 ¿äû¹øÈ£¿¡ ÀÇÇØ ´çÀϼöÁø¿¡¸¸ 󹿹߻ýÇϵµ·Ï ÇÔ. 20100715 ±èÈ«Á¡ // if ( (getScreenMenuParameter() == "SMAEA" || opener.javascript.getScreenID() == "SMAEA01500" ) // && deptflag == "O" // && initflag == "init" // || deptflag == "I"){////º´µ¿Àº Åð¿øÈ¯ÀÚµµ Àüó¹æÀº Á¶È¸µÇ¾î¾ß ÇÔ. if ( initflag == "init" && deptflag == "I"){////º´µ¿Àº Åð¿øÈ¯ÀÚµµ Àüó¹æÀº Á¶È¸µÇ¾î¾ß ÇÔ. if ( !isNull(model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/pid"))) { //ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']"); } fReqBfNursPrcpInfo(); //Àüó¹æ Á¶È¸ fReqTempNursPrcpInfo(); //ÀÓ½Ãó¹æ Á¶È¸ }else{ fChgPatnm(deptflag, model.getValue("/root/main/cond/prcpdd"),initflag); } model.refresh(); } /** * @desc : ȯÀÚ¾ÆÀ̵ð·Î ÇØ´çºÎ¼­, º´½Ç, ȯÀÚ¸í Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fSearchPatInfo() { if(event.keycode == "13"){ model.setFocus("btn_ref"); //±×¸®µå ÃʱâÈ­ model.removeNodeset(sPRCPLIST_PATH); model.removeNodeset(sTEMPPRCPLIST_PATH); model.removeNodeset(sBFPRCPLIST_PATH); //ȯÀÚ¾ÆÀ̵ð·Î ÇöÀç »óÅ Á¶È¸ var pid = model.getValue("/root/main/cond/pid"); model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/cond/pid")); model.makeValue("/root/send/reqdata/refflag", "pat"); model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn")); if (submit("TRMNW10904")) { if (model.getValue("/root/main/patinfocond/patinfo/wardcd") == 'err') { messageBox("ÇØ´ç ȯÀÚ Á¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "I"); model.setValue("/root/main/cond/patnm", model.getValue("/root/init/patinfo/patlist/pid")); model.setFocus("ipt_pid"); model.refresh(); return; } else { btn_signsave.disabled = false; //ÇØ´ç ºÎ¼­ ¼ÂÆÃ if (getNodesetCount("/root/main/patinfocond/patinfo") > 1 ) { modal("SPMNW11800", 1, 100, 100, "SPMNW11800", "/root/main/patinfocond", "/root/main/patinfocond"); } model.setValue("/root/main/cond/wardcd", model.getValue("/root/main/patinfocond/patinfo/wardcd")); if (model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'I' || model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'D' || model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'E') { cmb_room.disabled = false; //ÇØ´ç º´µ¿ÀÇ º´½Ç Á¶È¸ model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); submit("TRMNW10902", false); model.setValue("/root/main/cond/roomcd", model.getValue("/root/main/patinfocond/patinfo/roomcd")); //ÇØ´ç º´½Ç ¼ÂÆÃ //ÇØ´ç º´½ÇÀÇ È¯ÀÚ Á¶È¸ model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd")); model.makeValue("/root/send/reqdata/refflag", "room"); model.makeValue("/root/send/reqdata/ordtype", "I"); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); if(spcldept == model.getValue("/root/main/cond/wardcd")) { model.makeValue("/root/send/reqdata/spcldeptyn", "Y"); } else { model.makeValue("/root/send/reqdata/spcldeptyn", ""); } submit("TRMNW10903", false); //20110216 °æºÏ´ë : ÀÀ±Þ½Ç ±¸¿ª ¸ÅÇÎ model.makeValue("/root/main/cond/zonecd", model.getValue("/root/main/patinfocond/patinfo/zonecd")); } else { model.removeNodeset("/root/init/roominfo/room/roomcd"); cmb_room.disabled = true; //ÇØ´ç ºÎ¼­(Áø·á°ú)ÀÇ È¯ÀÚ Á¶È¸ model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/refflag", "dept"); model.makeValue("/root/send/reqdata/ordtype", "O"); model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn")); if(spcldept == model.getValue("/root/main/cond/wardcd")) { model.makeValue("/root/send/reqdata/spcldeptyn", "Y"); } else { model.makeValue("/root/send/reqdata/spcldeptyn", ""); } submit("TRMNW10903", false); //°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸ if(model.getValue("/root/main/cond/homecareyn") == "Y") { fSearchHomePatInfo(); } } //ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']"); model.setValue("/root/main/cond/patnm", model.getValue("/root/main/patinfocond/patinfo/pid")); //ÇØ´ç ȯÀÚ¸í ¼ÂÆÃ fChkClincstdy(); //Àӻ󿬱¸ üũ fReqBfNursPrcpInfo(); //Àüó¹æ Á¶È¸ fReqTempNursPrcpInfo(); //ÀÓ½Ãó¹æ Á¶È¸ } } } } /** * @desc : Á¶È¸Á¶°Ç ȯÀÚ¸í º¯°æ½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fChgPatnm(deptflag, prcpdd, initflag) { btn_signsave.disabled = false; model.removeNodeset(sPRCPSETLIST_PATH); //SETó¹æ Á¶È¸ÇÏ´Â ½ÃÁ¡¿¡ spynpy1¸¦ Á¶È¸Çϱâ À§ÇÑ insukind¸¦ ³Ñ°ÜÁà¾ß ÇÔ(ȯÀÚº°·Î ´Ù¸§) model.removeNodeset(sPRCPLIST_PATH); var pid = model.getValue("/root/main/cond/patnm"); model.setValue("/root/main/cond/pid", pid); if ( isNull(model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/pid"))) { if (initflag =="init" && deptflag == "O" && model.getValue(sPATINFO_PATH + "/orddd") != prcpdd && model.getValue("/root/main/cond/upinfoyn") =="Y" ) { //È­¸é¿ÀÇ½à ¿Ü·¡¼öÁøÀÏÀÚ¿Í Ã³¹æÀÏÀÚ°¡ ´Ù¸¦°æ¿ì ºí·¯Å·¸Þ½ÃÁö.20100727 ±èÈ«Á¡ ±è¼÷ÀÎitc¿äû messageBox("Áø·áÀÏ["+model.getValue(sPATINFO_PATH + "/orddd")+"]°ú ó¹æÀÏÀÚ°¡ ´Þ¶ó 󹿹ßÇàÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", "I"); btn_signsave.disabled = true; if ( !isNull(model.getValue("/root/main/cond/patnm")) ) { fReqBfNursPrcpInfo(); //Àüó¹æ Á¶È¸ fReqTempNursPrcpInfo(); //ÀÓ½Ãó¹æ Á¶È¸ } return; }else { model.resetInstanceNode("/root/main/cond/pid"); } } ipt_pid.refresh(); if (model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/elbulbodstat") == '0') { //M0062 Àü±¤ÆÇ»óÅ messageBox("ÇØ´ç °ú¿¡ °£È£Á¢¼öµÇÁö ¾ÊÀº ȯÀÚÀÔ´Ï´Ù.", "I"); } //ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ model.copyNode(sPATINFO_PATH, "/root/init/patinfo/patlist[pid = '" + pid + "']"); //°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸ if(model.getValue("/root/main/cond/homecareyn") == "Y") { fSearchHomePatInfo(); } fChkClincstdy(); //Àӻ󿬱¸ üũ if ( !isNull(model.getValue("/root/main/cond/patnm")) && !isNull(model.getValue("/root/main/cond/pid")) ) { fReqBfNursPrcpInfo(); //Àüó¹æ Á¶È¸ fReqTempNursPrcpInfo(); //ÀÓ½Ãó¹æ Á¶È¸ } // Ç×¾ÏÇÁ·ÎÅäÄݸí Á¶È¸ if(pid != ""){ fprtlnm(pid); } } /** * @desc : °¡Á¤°£È£ ȯÀÚÀÇ ¼Ò¼Ó Á¤º¸ Á¶È¸(¹æ¹®ÀÏÀÚ Æ÷ÇÔ) * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fSearchHomePatInfo() { //ÇØ´ç ȯÀÚÀÇ ¹æ¹®ÀÏÀÚ Á¶È¸ : ¹æ¹®ÀÏÀÚ¿¡ µû¶ó ¿ø¹«Á¤º¸°¡ ´Þ¶óÁü model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/cond/pid")); submit("TRMNW10909"); } /** * @desc : ¹æ¹®ÀÏÀÚ º¯°æ½Ã ȯÀÚÁ¤º¸ ¼ÂÆÃ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fChgVisitDD() { var visitdd = model.getValue("/root/main/cond/visitdd"); var prcpvisitdd = model.getValue(sPRCPLIST_PATH + "/prcpdelivefact"); if(prcpvisitdd != ""){ if(visitdd != prcpvisitdd){ messageBox("¹æ¹®ÀÏÀÌ µ¿ÀÏÇÑ Ã³¹æ¿¡ ´ëÇØ¼­¸¸ Àϰý ÀúÀåÀÌ °¡´ÉÇÕ´Ï´Ù.", "C"); model.setValue("/root/main/cond/visitdd", prcpvisitdd); cmb_visitdd.refresh(); return; } } //model.copyNode("/root/main/patinfocond/patinfo", "/root/init/homepatinfo/patlist[orddd = '" + visitdd + "']"); model.refresh(); } /** * @desc : ȯÀÚ¿¡ µû¸¥ Àӻ󿬱¸ üũ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fChkClincstdy() { //clincstdyacptflag : otpt(N:ÀÓ»ó½ÃÇèÁ¢¼ö¾Æ´Ô, P:»ç¶÷ÀÓ»ó A:µ¿¹°ÀÓ»ó), inpt(Àӻ󿬱¸¿©ºÎ) if( !isNull(model.getValue(sPATINFO_PATH + "/clincstdyflag")) && model.getValue(sPATINFO_PATH + "/clincstdyflag") != "N"){ chk_clincstdy.disabled = false; model.setValue("/root/main/cond/clincstdyflag", "Y"); }else{ chk_clincstdy.disabled = true; model.setValue("/root/main/cond/clincstdyflag", "N"); } } /** * @desc : ´ëºÐ·ù SET Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fLrgSetRef() { if (model.getValue("/root/main/prcplistinfo/setcond/settrgtcd") != "") { if (model.getValue("/root/main/prcplistinfo/setcond/settrgtcd") == 'ALL') { //°øÅëÀÏ °æ¿ì model.setValue("/root/main/prcplistinfo/setcond/setclscd", 'N'); } else { //ºÎ¼­ÀÏ °æ¿ì model.setValue("/root/main/prcplistinfo/setcond/setclscd", 'W'); } model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.copyNode("/root/send/reqdata", "/root/main/prcplistinfo/setcond"); model.makeValue("/root/send/reqdata/clsflag", 'lrg'); submit("TRMNW11601"); //´ëºÐ·ù¸í Á¶È¸ model.removeNodeset(sSMLSETLIST_PATH); model.removeNodeset(sPRCPSETLIST_PATH); model.refresh(); } } /** * @desc : ¼ÒºÐ·ù SET Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fSmlSetRef() { if (isDataCell()) { model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.copyNode("/root/send/reqdata", "/root/main/prcplistinfo/setcond"); model.makeValue("/root/send/reqdata/clsflag", 'sml'); model.makeValue("/root/send/reqdata/setno", model.getValue("/root/main/prcplistinfo/anolrgsetinfo/lrgsetlist[" + grd_lrgsetlist.row + "]/setno")); submit("TRMNW11602"); //¼ÒºÐ·ù¸í Á¶È¸ model.removeNodeset(sPRCPSETLIST_PATH); model.refresh(); } } /** * @desc : °£È£¾à¼Óó¹æSET Á¶È¸ (󹿻ó¼¼) * @ * @param : * @return : * @author : ¼º¹Ì¿¬ : - ¿ÀÁöÈÆ 2007.12.27 ¼öÁ¤ * @--------------------------------------------------- */ function fReqNursPrmsSet(){ if(isDataCell()){ var setno = model.getValue(sSMLSETLIST_PATH + "[" + grd_smlsetlist.row + "]/setno"); var settypecd = "P"; model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/setno" , setno); model.makeValue("/root/send/reqdata/settypecd", settypecd); model.makeValue("/root/send/reqdata/insukind" , model.getValue("/root/main/patinfocond/patinfo/insukind")); model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/cond/wardcd")); grd_prcplist.rebuildStyle(); if(submit("TRMNW11003")) { //SET 󹿏®½ºÆ®¿¡¼­ û±¸ÁֱⰡ ¿ùÀÏ °æ¿ì ÆÄ¶õ»ö for ( i = 1; i<= getNodesetCount(sPRCPSETLIST_PATH); i++) { var tempcol10 = model.getValue(sPRCPSETLIST_PATH + "[" + i + "]/tempcol10"); if (tempcol10 == "4") grd_prcplist.rowStyle(i, "data", "color") = "#0000ff"; } grd_prcplist.refresh(); } } } /** * @desc : º¸ÇèÁ¤º¸ Á¶È¸ * @ * @param : calcscorcd ¼ö°¡ÄÚµå * @return : * @author : ¼º¹Ì¿¬ : - ¿ÀÁöÈÆ 2007.12.27 ¼öÁ¤ * @--------------------------------------------------- */ function fInsuMsgInfoRef(calcscorcd) { model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/calcscorcd", calcscorcd); if(submit("TRMNW10907")){ } } /** * @desc : ¾àǰÆí¶÷ Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fDrugHbook() { var prcpclscd = model.getValue(sPRCPSETLIST_PATH +"[" + grd_prcplist.row + "]/prcpclscd"); if("A2" == prcpclscd || "A4" == prcpclscd || "A6" == prcpclscd) { model.makeValue("/root/temp/setparma/prcpcd", model.getValue(sPRCPSETLIST_PATH +"[" + grd_prcplist.row + "]/prcpcd")); modal("SMADB01900", "1", "0", "0", "","/root/temp/setparma/prcpcd", "/root/hidden/receivedata/srchdrugcd"); model.removenode("/root/temp/setparma/prcpcd"); } else { messageBox("¾à/ÁÖ»ç ó¹æÀÌ ¾Æ´Õ´Ï´Ù.", "I"); } } /** * @desc : ¼ö°¡Æí¶÷ Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fCalcScorHbook(flag) { var prcpcd; if(flag == 'prcp'){ prcpcd = model.getValue(sPRCPSETLIST_PATH +"[" + grd_prcplist.row + "]/prcpcd") model.makeValue("/root/temp/setparma/prcpcd", prcpcd); modal("SMPIC00200", "1", "400", "400", "", "/root/temp/setparma/prcpcd" , "/root/temp"); if(prcpcd == model.getValue("/root/temp/picmmech/picmmech_calcscorcd") ) { if (grd_prcplist.row > 0 ){ if (model.getValue("/root/main/cond/patnm") == "") { messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } //ó¹æ main grid·Î ¾à¼Óó¹æ copy mnwAddNursPrcp(sPRCPSETLIST_PATH, "/root/main/prcp", grd_prcplist.row, ""); var prcplist = model.instances(0).selectNodes("/root/main/prcp/prcplist"); fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length); fSetPrcpInfo(); //½Å±Ôó¹æÀº ¹ÝȯÄ÷³ disable grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("tempcol8")) = true; if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){ grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true; } //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸ var calcscormastspec = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec"); var calcscorcd = calcscormastspec.split("|"); fInsuMsgInfoRef(calcscorcd[3]); } } model.removenode("/root/temp/picmmech"); model.removenode("/root/temp/setparma"); }else if(flag == 'prcppos'){ prcpcd = model.getValue(sPRCPLIST_PATH +"[" + grd_prcpposlist.row + "]/prcpcd") model.makeValue("/root/temp/setparma/prcpcd", prcpcd); modal("SMPIC00200", "1", "400", "400", "", "/root/temp/setparma/prcpcd" , "/root/temp"); }else if(flag == 'bf'){ prcpcd = model.getValue(sBFPRCPLIST_PATH +"[" + grd_bfprcplist.row + "]/prcpcd") model.makeValue("/root/temp/setparma/prcpcd", prcpcd); modal("SMPIC00200", "1", "400", "400", "", "/root/temp/setparma/prcpcd" , "/root/temp"); } } /** * @desc : ¹°·ùÆí¶÷ Á¶È¸ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fGoodHbook() { modal("SMRSC00600", "1", "0", "0"); } /** * @desc : °£È£Ã³¹æ Ãß°¡ * @ * @param : srcnode ¿øº»³ëµå * : trgtnode ¸ñÀûÁö³ëµå * : currow row°ª * : pflag 󸮱¸ºÐ popup¿¡¼­ opener·Î 󸮵Ǵ °æ¿ì, openerÀ¸·Î ¼³Á¤ * : status »óű¸ºÐ(I:½Å±Ô, U:¼öÁ¤, D:D/C) * * @return : * @author : ¿ÀÁöÈÆ 2007.12.27 * @--------------------------------------------------- */ function mnwAddNursPrcp(srcnode, trgtnode, currow, pflag){ //¸ñÀûÁö ³ëµå¿¡ ó¹æinstance¸¦ copyÇÑ´Ù. var node = model.instances(0).selectSingleNode(srcnode + "[" + currow + "]"); if(pflag == "popup"){ var desnode = opener.model.instances(0).selectSingleNode(trgtnode); var desnodelist = opener.model.instances(0).selectNodes(trgtnode); }else{ var desnode = model.instances(0).selectSingleNode(trgtnode); var desnodelist = model.instances(0).selectNodes(trgtnode); } desnode.appendChild(node.cloneNode(true)); } /** * @desc : ÇÑ/¿µ ¿©ºÎ °Ë»ç * @ * @param : param ÇÑ¿µ±¸ºÐÇÒ ¹®ÀÚ¿­ * @return : "H" ÇÑ±Û * : "E" ¿µ¹® * @author : ¿ÀÁöÈÆ 2007.12.28 * @--------------------------------------------------- */ function fIsHng(param){ //parameterÀÇ Ã¹¹øÂ° ±ÛÀÚÀÇ ¹®ÀÚÄÚµå °ªÀÌ 255º¸´Ù Å©¸é ÇѱÛ, ÀÛÀ¸¸é ¿µ¹® if(param.charCodeAt(0) > 255){ return "H"; } else{ return "E"; } } /** * @desc : ó¹ædata(¸í, ÄÚµå)°Ë»ö * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * : - ¿ÀÁöÈÆ 2007.12.27 ¼öÁ¤ * @--------------------------------------------------- */ function fReqSrchPrcpData(){ if (model.getValue("/root/main/srchcond/srchdata").length < 2 ){ messageBox("°Ë»ö¾î´Â 2ÀÚ ÀÌ»ó","C001"); model.setFocus("ipt_listsrchdata"); return; } var prcpclscd = model.getValue("/root/main/srchcond/srchclscd"); model.removeNodeset("/root/send/reqdata"); model.makeValue("/root/send/reqdata/prcpdd" , model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/srchflag", model.getValue("/root/main/srchcond/srchflag")); model.makeValue("/root/send/reqdata/srchclscd", model.getValue("/root/main/srchcond/srchclscd")); model.makeValue("/root/send/reqdata/srchdata", model.getValue("/root/main/srchcond/srchdata")); model.makeValue("/root/send/reqdata/langflag", fIsHng(model.getValue("/root/main/prcpsetcond/srchdata"))); model.makeValue("/root/send/reqdata/insukind", model.getValue("/root/main/patinfocond/patinfo/insukind")); //model.makeValue("/root/send/reqdata/srchallflag", "srchALL"); //srchALLÀÏ °æ¿ì´Â °Ë»öÁ¶°Ç¿¡ Àç·á/óġ/¼ö¼ú/±âŸ ¿©ºÎ ÇÊ¿ä //model.makeValue("/root/send/reqdata/srchcond", "srchPRCD"); //°øÅëSET³» °Ë»ö model.makeValue("/root/send/reqdata/srchcond", "srchSET"); //°øÅëSET³» °Ë»ö model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/cond/wardcd")); /* if(prcpclscd == "ALL") { model.makeValue("/root/send/reqdata/srchcond", "ALL"); }else { if(prcpclscd == "M2" || prcpclscd == "H4" || prcpclscd == "H2" || prcpclscd == "Z0"){ model.makeValue("/root/send/reqdata/srchcond", "PRCD"); }else{ model.makeValue("/root/send/reqdata/srchcond", "SET"); } } */ if(submit("TRMNW11101")){ //-------------°æºÏ´ë (20101213) var prcplist = model.instances(0).selectNodes("/root/main/prcpsrch/prcplist"); //-------------°æºÏ´ë (20101213) if(prcplist.length > 0){ open("SPMNW10600", 1, "", "", "SPMNW10600", "/root/main/prcpsrch", "/root/main/prcpsrch"); model.removeNodeset("/root/main/prcpsrch"); //ó¹æ°Ë»ö °á°ú ÈÄ, Á¶È¸°á°ú node¸¦ »èÁ¦ }else{ messageBox("°Ë»ö °á°ú°¡", "I004"); model.setFocus("ipt_listsrchdata"); return; } } model.refresh(); } /** * @desc : SETó¹æ ¸®½ºÆ® ¿ë¹ý Ŭ¸¯½Ã ÆË¾÷ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ * @--------------------------------------------------- */ function fClickSavePrcpDrugMthd(){ var currow = grd_prcpposlist.mouseRow; if(currow < 1){ return; } var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + currow + "]/prcpclscd"); if((prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6") && grd_prcpposlist.col == grd_prcpposlist.colRef("drugmthdspccdnm")){ setParameter("srchRow", grd_prcpposlist.row); setParameter("GridPath", sPRCPLIST_PATH); modal("SPMNW11200"); }else if (grd_prcpposlist.col < 4 ) { //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸ var calcscormastspec = model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/calcscormastspec"); var calcscorcd = calcscormastspec.split("|"); fInsuMsgInfoRef(calcscorcd[3]); } } /** * @desc : °£È£Ã³¹æ SignData Á¶È¸ * @ * @param : * @return : * @author : ¿ÀÁöÈÆ 2008. 1. 2 * @--------------------------------------------------- */ function fReqNursPrcpSignData(){ if (model.getValue("/root/main/cond/pid") == "" || model.getValue("/root/main/cond/patnm") == "") { messageBox("ȯÀÚ°¡ ÁöÁ¤µÇÁö", "E007"); return; } //20110422_KNUH_Start Àá½Ã ÁÖ¼®Ã³¸®. //20110420_KNUH_Start var cnt = 0; var str = ""; var drprcpetc7; var drprcpetc8; var prcpclscd; var prcpcd; //20110626_KNUH_Start º¸Á¶À¯ÇüÀÌ ¹Ì¿ë¼ºÇüÀÏ °æ¿ì, ó¹æÀ» º¸Á¶À¯ÇüÀ¸·Î ¹ßÇàÇϵµ·Ï ÇÏ´Â ·ÎÁ÷ Ãß°¡ var anamneflag; //±â¿Õ·Â À¯¹«(Y/N9 var anamnecnt = 0; var subcretno = ""; //º¸Á¶À¯Çü»ý¼º¹øÈ£(subcretno) var flag; var tempcol8; var str1 = ""; var str2 = ""; var stoccnt = 0; var stoccnt2 = 0; var safestocqty; var idxinfo = ""; var idxinfo2= ""; var actregyn = ""; for (var i=grd_prcpposlist.fixedRows; i < grd_prcpposlist.rows; i++) { drprcpetc7 = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc7")); drprcpetc8 = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc8")); prcpclscd = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("prcpclscd")); prcpcd = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("prcpcd")); prcpnm = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("orgprcpnm")); flag = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("flag")); tempcol8 = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("tempcol8")); safestocqty = parseInt(grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("safestocqty"))); qty = parseInt(grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc8"))); actregyn = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("actregyn")); stocyn = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("stocyn")); if(prcpclscd == "M2") { if(tempcol8 == "Y") { } else { if(stocyn == "Y") { if(safestocqty == 0) { if(actregyn == "Y") { } else { if(stoccnt == 0) { str1 += " " + prcpnm; idxinfo += i; } else { str1 += "\n, " + prcpnm; idxinfo+= "," + i; } stoccnt++; } } else { if(qty > safestocqty) { if(stoccnt2 == 0) { str2 += " " + prcpnm; idxinfo2 += i; } else { str2 += "\n, " + prcpnm; idxinfo2 += "," + i; } stoccnt2++; } } } } } if(flag == "N" && (tempcol8 == "N" || tempcol8 == "" || tempcol8 == null)) { messageBox("[" + prcpcd + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E"); grd_prcpposlist.row = i; return; } //¿µ»óó¹æÀÎ °æ¿ì 1ȸ¸¸ 󹿰¡´ÉÇϵµ·Ï blocking if (prcpclscd == 'C2') { if (drprcpetc7 != 1 || drprcpetc8 != 1) { messageBox("¿µ»óó¹æÀº 1ȸ¸¸ ó¹æ °¡´ÉÇÕ´Ï´Ù.", "E"); return; } } if (prcpcd == 'E40300003-3' || prcpcd == 'E40300003-6') { if ((drprcpetc8 % 3) != 0 ) { messageBox("Gauze Vaseline ó¹æÀº ¼ö·®À» 3¹è¼ö·Î¸¸ ó¹æ °¡´ÉÇÕ´Ï´Ù.", "E"); return; } } //20110626_KNUH_Start º¸Á¶À¯ÇüÀÌ ¹Ì¿ë¼ºÇüÀÏ °æ¿ì, ó¹æÀ» º¸Á¶À¯ÇüÀ¸·Î ¹ßÇàÇϵµ·Ï ÇÏ´Â ·ÎÁ÷ Ãß°¡ anamneflag = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag")); if(anamneflag == "Y") { if(anamnecnt == 0) { var flag = fCheckSubKindCd(); if(flag == "false") { return; } subcretno = model.getValue("/root/temp/prcpinfo/subcretno"); if(subcretno == "0" || subcretno == "" || subcretno == null) { messageBox ( "ȯÀÚÀÇ ºÎÀ¯ÇüÀÌ ¾ø°Å³ª ¶Ç´Â ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.\n\n±â¿ÕÁõ üũ¸¦ ÇØÁ¦ ÇÕ´Ï´Ù.", "I999" ); subcretno = "0"; } } anamnecnt++; if(subcretno != "0") { grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno")) = subcretno; } else { grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag")) = "N"; grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno")) = "0"; } } else { grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag")) = "N"; grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno")) = "0"; } //20110626_KNUH_End if( drprcpetc7 != drprcpetc8 || drprcpetc7 == "Y" || drprcpetc8 == "Y" || drprcpetc7 == "N" || drprcpetc8 == "N") { if(prcpclscd == "A6" || prcpclscd == "A4" || prcpclscd == "A2") { continue; } else { grd_prcpposlist.cellstyle("background-color", i, 1, i, grd_prcpposlist.cols-1) = "#FFF000"; if(cnt != 0) { str += ","; } str += i; cnt++; } } else { grd_prcpposlist.cellstyle("background-color", i, 1, i, grd_prcpposlist.cols-1) = "#FFFFFF"; } } if(cnt > 0) { messageBox(str + "¹øÂ° ó¹æÀÌ À߸ø ¹ß»ýµÇ¾ú½À´Ï´Ù. ¿ìÃø¸¶¿ì½º¸¦ ´­·¯ »èÁ¦ÈÄ ´Ù½Ã ÀÔ·ÂÇϽʽÿÀ.", "E"); return; } var msg = ""; //Ä¥°î¸¸ Àû¿ë if(getUserInfo("dutplceinstcd") == "032") { if(stoccnt > 0 || stoccnt2 > 0) { if(stoccnt > 0 && stoccnt2 > 0) { msg = "* ¾ÈÀüÀç°íº¸´Ù ÃʰúµÈ ¹°Ç°\n" + str2 + "\n\n" + "* ¹Ìµî·ÏµÈ ¹°Ç°\n" + str1 + "\n"; } else if(stoccnt > 0 && stoccnt2 == 0) { msg = "* ¹Ìµî·ÏµÈ ¹°Ç°\n" + str1 + "\n"; } else if(stoccnt == 0 & stoccnt2 > 0) { msg = "* ¾ÈÀüÀç°íº¸´Ù ÃʰúµÈ ¹°Ç°\n" + str2 + "\n"; } var rtn = messageBox(msg, "I"); } } //20090908 khj if (( model.getValue(sPATINFO_PATH + "/ordtype") == "I" || model.getValue(sPATINFO_PATH + "/ordtype") == "D" )) { model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd")); model.makeValue("/root/send/reqdata/refflag", "room"); model.makeValue("/root/send/reqdata/ordtype", "I"); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); if(spcldept == model.getValue("/root/main/cond/wardcd")) { model.makeValue("/root/send/reqdata/spcldeptyn", "Y"); } else { model.makeValue("/root/send/reqdata/spcldeptyn", ""); } submit("TRMNW10903"); var pid = model.getValue("/root/main/cond/pid"); model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']"); if ( model.getValue(sPATINFO_PATH + "/careinrmyn") != "Y" ){ messageBox("ÀÔ½Çüũ¸¦ Çϱâ Àü ¶Ç´Â Åð¿øÈ¯Àڴ ó¹æ ÀúÀåÀ» ÇÏ½Ç ¼ö ", "I004"); return; } } if (model.getValue(sPRCPLIST_PATH + "/prcpcd") == "") { messageBox("ÀúÀåÇÒ Ã³¹æ³»¿ªÀÌ", "I004"); return; } // °£È£»çÅð¿øÅ뺸°¡ µÇ¾îÀÖ´Â °æ¿ì_20080807(ByJA) /* if(model.getValue("/root/main/patinfocond/patinfo/dschnotiyn") == "Y"){ messageBox( "[" + model.getValue("/root/main/patinfocond/patinfo/pid") +" " + model.getValue("/root/main/patinfocond/patinfo/patnm") +"]\n ÀÌ¹Ì Åð¿øÅ뺸°¡ µÇ¾î ó¹æÀ» ÀúÀå", "E001"); return; } */ var posdept = model.getValue("/root/main/prcpposinfo/cond/deptcd"); if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '2' && model.getValue("/root/init/deptinfo/deptlist[deptcd = '"+ posdept + "']/deptcd") == "") { messageBox("UserÀ§Ä¡°¡ ÁöÁ¤µÇÁö", "E007"); return; } model.removeNodeset("/root/send/reqdata"); model.makeNode("root/err/result"); model.makeNode("/root/endinfo/result"); //»ó´ÜÁ¤º¸°¡ ¾Æ´Ñ, ȯÀÚ°Ë»öÁ¤º¸ ¼³Á¤ÀÎ °æ¿ì var ioflag = model.getValue("/root/main/patinfocond/patinfo/ordtype"); var orddeptcd = model.getValue("/root/main/patinfocond/patinfo/orddeptcd"); var orddeptnm = model.getValue("/root/main/patinfocond/patinfo/orddeptnm"); var orddrid = model.getValue("/root/main/patinfocond/patinfo/orddrid"); var orddrnm = model.getValue("/root/main/patinfocond/patinfo/orddrnm"); var pid = model.getValue("/root/main/patinfocond/patinfo/pid"); var hngnm = model.getValue("/root/main/patinfocond/patinfo/patnm"); var cretno = model.getValue("/root/main/patinfocond/patinfo/cretno"); var instcd = model.getValue("/root/main/patinfocond/patinfo/instcd"); var sa = model.getValue("/root/main/patinfocond/patinfo/sexage"); var userkindcd = model.getValue("/root/main/patinfocond/patinfo/userkindcd"); var aftcertdrid = ""; var orddd = ""; var pamflag = ""; var chkprcpclscd =""; var chkaftcertyn =""; if(ioflag == "O" || ioflag == "S"){ orddd = model.getValue("/root/main/patinfocond/patinfo/orddd"); if ( userkindcd == "97" ){ for (var i=1; i < grd_prcpposlist.rows; i++) { chkprcpclscd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpclscd"); if (!isNull( model.getValue("/root/code/codeinfo/codelist[cdgrupid ='207' and cdid = '"+chkprcpclscd+"']/cdid") )) { chkaftcertyn = "Y"; break; } } if ( chkaftcertyn == "Y" ){ setParameter("SPMMB04100_orddrid", orddrid); setParameter("SPMMB04100_defdeptcd", orddeptcd); modal("SPMMB04100"); var useyn = getParameter("SPMMB04100_useyn"); if (useyn != "Y") { return false; }else if(useyn == "Y"){ //ÈÄÀÎÁõ ¼±ÅÃÀÇ»ç·Î ¼³Á¤ aftcertdrid = getParameter("SPMMB04100_orddrid"); } } } }else{ orddd = model.getValue("/root/main/patinfocond/patinfo/indd"); } var bedcd = model.getValue(cmb_Zone.attribute("ref")); var er =""; var grupcd = ""; if(ioflag == "O"){ //¿Ü·¡ÀÎ °æ¿ì, ¿ø¹«Á¤º¸ ó¸® pamflag = "Y"; } var deptcd=""; var deptnm=""; if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '1') { //ȯÀÚÀ§Ä¡ if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) { deptcd = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd"); deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd") + "']/depthngnm"); } else { deptcd = model.getValue("/root/main/cond/wardcd"); deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/cond/wardcd") + "']/depthngnm"); } } else { //UserÀ§Ä¡ deptcd = model.getValue("/root/main/prcpposinfo/cond/deptcd"); deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/prcpposinfo/cond/deptcd") + "']/depthngnm"); } model.makeValue("/root/temp/saveflaginfo/savedataflag", "2"); //ÀúÀåÀڷᱸºÐ(2:ó¹æ) model.makeValue("/root/temp/saveflaginfo/saveflag" , ioflag); //ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø, D:DSC model.makeValue("/root/temp/saveflaginfo/prcpflag" , "2"); //󹿱¸ºÐ (M0035 󹿱ÇÇÑ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù : °£È£ Ãß°¡Ã³¹æ) model.makeValue("/root/temp/saveflaginfo/inptflag" , "09"); //ó¹æÀԷ±¸ºÐ (M0034 ó¹æÀԷ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù : °£È£Ã³¹æ) model.makeValue("/root/temp/saveflaginfo/pamflag" , pamflag);//¿ø¹«Á¤º¸ 󸮱¸ºÐ(¿Ü·¡¸¸ Y) model.makeValue("/root/temp/saveflaginfo/prcperrflag" , "Y"); //ó¹æ¿À·ù±¸ºÐ model.makeValue("/root/temp/saveflaginfo/deptcd" , deptcd); //ºÎ¼­ÄÚµå model.makeValue("/root/temp/saveflaginfo/deptnm" , deptnm); //ºÎ¼­¸í model.makeValue("/root/temp/saveflaginfo/userid" , getUserInfo("userid")); //»ç¿ëÀÚID model.makeValue("/root/temp/saveflaginfo/usernm" , getUserInfo("usernm")); //»ç¿ëÀÚ¸í model.makeValue("/root/temp/saveflaginfo/signyn" , "Y"); //ÀüÀÚ¼­¸í¿©ºÎ model.makeValue("/root/temp/saveflaginfo/prcpdd" , model.getValue("/root/main/cond/prcpdd")); //ó¹æÀÏ var saveflaginfolist = getNodeListCSV(model.instances(0).selectNodes("/root/temp/saveflaginfo")); model.makeValue("/root/send/reqdata/saveflaginfo", saveflaginfolist); model.makeValue("/root/temp/savergstinfo/pid" , pid); //µî·Ï¹øÈ£ model.makeValue("/root/temp/savergstinfo/indd" , orddd); //Áø·áÀÏÀÚ model.makeValue("/root/temp/savergstinfo/orddd" , orddd); //Áø·áÀÏÀÚ model.makeValue("/root/temp/savergstinfo/cretno" , cretno); //»ý¼º¹øÈ£ model.makeValue("/root/temp/savergstinfo/instcd" , instcd); //±â°üÄÚµå model.makeValue("/root/temp/savergstinfo/orddeptcd" , orddeptcd); //Áø·á°ú model.makeValue("/root/temp/savergstinfo/orddeptnm" , orddeptnm); //Áø·á°ú¸í model.makeValue("/root/temp/savergstinfo/orddrid" , orddrid); //Áø·áÀÇ model.makeValue("/root/temp/savergstinfo/orddrnm" , orddrnm); //Áø·áÀǸí model.makeValue("/root/temp/savergstinfo/hngnm" , hngnm); //ȯÀÚ¸í model.makeValue("/root/temp/savergstinfo/sa" , sa); //¼ºº°³ªÀÌ model.makeValue("/root/temp/savergstinfo/ordtype" , ioflag); //¿Ü·¡ÀÔ¿ø±¸ºÐ model.makeValue("/root/temp/savergstinfo/aftcertdrid" , aftcertdrid); //¿Ü·¡ ÀϹÝÀÇ»çÀÇ °æ¿ì ÈÄÀÎÁõ ´ë»óÀÇ»ç´Â ÁöÁ¤ÇÑ´Ù. var savergstinfolist = getNodeListCSV(model.instances(0).selectNodes("/root/temp/savergstinfo")); model.makeValue("/root/send/reqdata/savergstinfo", savergstinfolist); for(var i = 1; i < grd_prcpposlist.rows; i++){ var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpclscd"); var drugmthdspccd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/drugmthdspccd"); var drugmthdspccdnm = model.getValue(sPRCPLIST_PATH + "[" + i + "]/drugmthdspccdnm"); var prcpno = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcprefseq"); var prcpcd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpcd"); var prcpnm = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpnm"); var rtnflag = model.getValue(sPRCPLIST_PATH + "[" + i + "]/tempcol8"); //¹Ýȯüũ var enddd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/tempcol10"); var prcppkspec = (model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcppkspec")).split("|"); //20091021 khj °£È£Ã³¹æ¿¡¼­ ¾ß°£(18:00~ÀÍÀÏ08:00)¿¡ ¹ß»ýÇϴ ó¹æ Áß ¼ö°¡¿¡¼­ ¾ß°£ °¡»êÀ» ¹ÞÀ» ¼ö Àִ ó¹æÀÇ °æ¿ì °£È£Ã³¹æ ½Ã °¡»ê¿©ºÎ ¡°Y¡±·Î ÀÚµ¿¼¼ÆÃ if ( ( ( model.getValue("/root/code/codeinfo/codelist[cdgrupid='002']/cdid") == model.getValue("/root/main/cond/wardcd")) //&& model.getValue(sPRCPLIST_PATH + "[" + i + "]/nigtprcpflag") == "N" || ( model.getValue("/root/code/codeinfo/codelist[cdgrupid='002']/cdid") != model.getValue("/root/main/cond/wardcd") && model.getValue(sPRCPLIST_PATH + "[" + i + "]/nigtprcpflag") == "Y") ) && model.getValue("/root/main/cond/prcpdd")== getCurrentDate() && ( getCurrentTime().substring(0,2)< "08" || getCurrentTime().substring(0,2)>= "18") && model.getValue(sPRCPLIST_PATH + "[" + i + "]/estmcls")== "Y" ){ model.setValue(sPRCPLIST_PATH + "[" + i + "]/nigtprcpflag" , "Y"); //¾ß°£Ã³¹æ±¸ºÐ }else { model.setValue(sPRCPLIST_PATH + "[" + i + "]/nigtprcpflag" , "N"); //¾ß°£Ã³¹æ±¸ºÐ } //¾à,ÁÖ»ç ó¹æ Áß¿¡ ¿ë¹ýÀÌ ¾øÀ» °æ¿ì ¿¡·¯¸®½ºÆ® if("A2" == prcpclscd || "A4" == prcpclscd || "A6" == prcpclscd){ if(drugmthdspccd == "-" || drugmthdspccdnm == "-" || drugmthdspccdnm == " " || drugmthdspccdnm == "") { model.makeValue("/root/err/errresult/prcperrlist/prcpno", prcpno); model.makeValue("/root/err/errresult/prcperrlist/prcpcd", prcpcd); model.makeValue("/root/err/errresult/prcperrlist/prcpnm", prcpnm); model.makeValue("/root/err/errresult/prcperrlist/prcperr", "¿ë¹ýÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù."); model.makeValue("/root/err/errresult/prcperrlist/prcplineno", i); model.duplicate("/root/err/result","/root/err/errresult/prcperrlist"); } } var prcpvol = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpvol"); var prcpqty = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpqty"); //¼ö·®ÀÌ 0º¸´Ù ÀûÀ» °æ¿ì ¿¡·¯¸®½ºÆ® if(prcpvol <= 0 || prcpqty <= 0 ) { model.makeValue("/root/err/errresult/prcperrlist/prcpno", prcpno); model.makeValue("/root/err/errresult/prcperrlist/prcpcd", prcpcd); model.makeValue("/root/err/errresult/prcperrlist/prcpnm", prcpnm); model.makeValue("/root/err/errresult/prcperrlist/prcperr", "ó¹æ ¼ö·®À» È®ÀÎÇϼ¼¿ä"); model.makeValue("/root/err/errresult/prcperrlist/prcplineno", i); model.duplicate("/root/err/result","/root/err/errresult/prcperrlist"); } //******************************************** //Àӻ󿬱¸ ȯÀÚüũ if(model.getValue("root/main/cond/clincstdyflag") == "Y"){ model.setValue(sPRCPLIST_PATH + "[" + i + "]/clincstdyflag", "Y"); model.setValue(sPRCPLIST_PATH + "[" + i + "]/clincstdycd", model.getValue(sPATINFO_PATH + "/clincstdycd")); } //*********************************************/ //¸¶°¨ ÀÌÈÄ¿¡ ¹ÝȯÀÏ °æ¿ì ¹Ýȯ»çÀ¯ ÀÔ·Â ÆË¾÷ //enddd default°ª º¯°æÀ¸·Î ¼öÁ¤_20080715 if(rtnflag == "Y" && enddd.substr(0,8) != '99991231' && enddd != ''){ model.makeValue("/root/endinfo/endinforesult/list/prcpdd", prcppkspec[0]); model.makeValue("/root/endinfo/endinforesult/list/prcpno", prcppkspec[1]); model.makeValue("/root/endinfo/endinforesult/list/prcphistno", prcppkspec[2]); model.makeValue("/root/endinfo/endinforesult/list/execprcpno", ""); model.makeValue("/root/endinfo/endinforesult/list/instcd", prcppkspec[3]); model.makeValue("/root/endinfo/endinforesult/list/ioflag", ioflag); model.duplicate("/root/endinfo/result","/root/endinfo/endinforesult/list"); } } var saveprcplist = getNodeListCSV(model.instances(0).selectNodes("/root/main/prcp/prcplist")); model.makeValue("/root/send/reqdata/saveprcpinfo", saveprcplist); if (getNodesetCount ("/root/err/result/prcperrlist") > 0 ) { var xpt = window.screenleft + 100; var ypt = window.screenTop + 50; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; open( "SPMNW11000", mon, xpt, ypt, "prcpdetl", "/root/err/result", "/root/result", "", false ); //¿À·ù¸ñ·Ï »ý¼ºÈÄ ¿À·ù³­ ó¹æÀ» ºÓÀº »öÀ¸·Î Ç¥½Ã fDestDisplayErrlist("/root/err/result/prcperrlist", "grd_prcpposlist"); model.removeNodeset("/root/err"); } else { //ÀÎÁõµ¥ÀÌÅÍ Ã³¸® if(submit("TRMNW10906")){ //** °£È£»çÅð¿øÅ뺸°¡ µÇ¾îÀÖ´Â °æ¿ì **// var dschnotiyn = model.getValue(sSIGNDATA_PATH + "/dschnotiyn"); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080923(ByJA) if(dschnotiyn == "Y"){ messageBox( "[" + model.getValue("/root/main/patinfocond/patinfo/pid") +" " + model.getValue("/root/main/patinfocond/patinfo/patnm") +"]\n ÀÌ¹Ì Åð¿øÅ뺸°¡ µÇ¾î ó¹æÀ» ÀúÀå", "E001"); return; } //** °£È£»çÅð¿øÅ뺸°¡ µÇ¾îÀÖ´Â °æ¿ì **// var signbfcnts = model.getValue(sSIGNDATA_PATH + "/signbfcnts"); var userid = getUserInfo("userid"); //¿î¿µ¼­¹ö´Â ÀÎÁõ¸ðµâ Ÿ°í ±×¿Ü¼­¹ö´Â ÀÎÁõ¸ðµâÁ¦¿Ü var signinfo = ""; if(vsettime == "") { //ÀÎÁõÀúÀåÇѽð£. signinfo = fMakeSignData(signbfcnts, userid, true); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤(true)_20080909(ByJA) } else { var res2 = getTimeInterval(vsettime, getCurrentTime(), 'hhmmss'); if(res2 > signtime* 60 || res2 < 0) { signinfo = fMakeSignData(signbfcnts, userid, true); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤(true)_20080909(ByJA) } else { signinfo = fMakeSignData(signbfcnts, userid, false); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤¾ÈÇÔ(false)_20080909(ByJA) } } // -----------------------(2010.08.18 ¼¾ÅÍ)start-------------------- if(signinfo == "" || signinfo == "-"){ //ÀÎÁõÀúÀå Ãë¼Ò return; }else{ //󹿹Ýȯ»çÀ¯ ÆË¾÷ vsetdate = getCurrentDate(); vsettime = getCurrentTime(); if (getNodesetCount ("/root/endinfo/result/list") > 0 ) { modal("SPPAS03000", "2", "100", "100", "SPPAS03000", "/root/endinfo/result", "root/target", "left:100; top:100; width:400; height:400; sysmenu:hidden; min:visible; max:hidden; :hidden; resize:true; caption:visible;", false); model.removeNodeset("/root/endinfo"); } //** ±Í°¡À¯Ä¡¹°Ç° °ü·Ã µ¥ÀÌÅÍ(¿©ºÎ,¼ö·®) ÀԷ°ª üũ_20090206(ByJA) **// for(var i=1;i= getNewDate().getAddDate(-1,"D").getDateFormat("YYYYMMDDhhmm") // ³»¿ø 24½Ã°£ À̳» ȯÀÚ À̸é ) { model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/erprcpflag" , "Y"); //ÀÀ±Þ󹿱¸ºÐ } else { model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/erprcpflag" , "N"); //ÀÀ±Þ󹿱¸ºÐ } //20091021 khj °£È£Ã³¹æ¿¡¼­ ¾ß°£(18:00~ÀÍÀÏ08:00)¿¡ ¹ß»ýÇϴ ó¹æ Áß ¼ö°¡¿¡¼­ ¾ß°£ °¡»êÀ» ¹ÞÀ» ¼ö Àִ ó¹æÀÇ °æ¿ì °£È£Ã³¹æ ½Ã °¡»ê¿©ºÎ ¡°Y¡±·Î ÀÚµ¿¼¼ÆÃ if (model.getValue("/root/code/codeinfo/codelist[cdgrupid='002']/cdid") == model.getValue("/root/main/cond/wardcd") && model.getValue("/root/main/cond/prcpdd")== getCurrentDate() && ( getCurrentTime().substring(0,2)< "08" || getCurrentTime().substring(0,2)>= "18") && model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/estmcls")== "Y" ){ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/nigtprcpflag" , "Y"); //¾ß°£Ã³¹æ±¸ºÐ }else { model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/nigtprcpflag" , "N"); //¾ß°£Ã³¹æ±¸ºÐ } if ( model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/estmcls")!= "Y" ){ grd_prcpposlist.isReadOnly(desrow, grd_prcpposlist.colRef("nigtprcpflag") ) = true; } model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/portprcpflag" , "N"); //Æ÷Åͺí󹿱¸ºÐ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/fixprcpflag" , "N"); //Á¤¾×󹿱¸ºÐ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/choiordflag" , "-"); //¿ø¹«±âÁØÀ¸·Î ó¸®Çϱâ À§ÇØ, '-' ¼³Á¤ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/anamneflag" , "N"); //±â¿ÕÁõ±¸ºÐ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/angioflagcd" , "-"); //Angio±¸ºÐ model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/homematrflag" , "N"); //±Í°¡À¯Ä¡¸¦ À§ÇÑ ¹°Ç°¿©ºÎ model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/homematrqty" , "0"); //±Í°¡À¯Ä¡¸¦ À§ÇÑ ¹°Ç°¼ö·® if( model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/opansflagcd") == "") { model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/opansflagcd" , "-"); //¼ö¼ú¸¶Ã뱸ºÐ } model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/offictourhealexamflag", "N"); //ÃâÀå°ËÁø±¸ºÐ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpdayno" , 1); //ó¹æÈ½¼ö(ÀÏÀÚ) model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpgenrflag" , model.getValue("/root/main/patinfocond/patinfo/ordtype")); model.setvalue(sPRCPLIST_PATH + "[" + desrow + "]/prcpsignflag" , ""); //Àüó¹æ¿¡¼­ 2·Î copyµÇ¾î ""·Î ÃʱâÈ­ //ȯÀÚ ±ÞºñÀ¯Çü(¼öÁ¤ÀÌÀü Á¤º¸ : insukind, ¼öÁ¤ÀÌÈÄ Á¤º¸ : payflagcd)¿¡ µé¾î°¨) //model.setvalue(sPRCPLIST_PATH + "[" + desrow + "]/spynpy1" , model.getValue("/root/main/patinfocond/patinfo/insukind")); //󹿼ö·®´ÜÀ§ ¼³Á¤, ¾àǰÀÏ °æ¿ì '3', ±× Àܴ̿ '-'·Î ¼³Á¤ var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpclscd"); if(prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6"){ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpqtyunitflag", "3"); }else{ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpqtyunitflag", "-"); } //°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ó¹æÀû¿ëÀÏ¿¡ ¹æ¹®ÀÏÀÚ ¼ÂÆÃ if(model.getValue("/root/main/cond/homecareyn") == "Y") { model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpdelivefact", model.getValue("/root/main/cond/visitdd")); //¹æ¹®ÀÏÀÚ }else{ model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpdelivefact", model.getValue("/root/main/cond/prcpdd")); //Àû¿ëÀÏÀÚ } model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/fstrgstrnm", ""); model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/resncnts", ""); model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/confirmdrnm", ""); model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/confirmdt", ""); } /** * @desc : °£È£Ã³¹æ ÀúÀå * @ * @param : * @return : * @author : ¿ÀÁöÈÆ 2008. 1. 4 * @--------------------------------------------------- */ function fSavePrcp(){ if(submit("TXMNW10901")){ //¿À·ùÆË¾÷ var prcpErrList = model.instances(0).selectNodes( "/root/temp/result/prcperrlist" ); if ( prcpErrList.length > 0 ) { if ( !isNull(model.getValue ("/root/temp/result/prcperrlist/prcpcd"))){ var xpt = window.screenleft + 100; var ypt = window.screenTop + 50; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; open ( "SPMMO00600", mon, xpt, ypt, "prcpdetl", "/root/temp/result", "/root/result", "", false ); model.removeNodeset("/root/temp/result/prcperrlist"); model.refresh(); } } else { model.toggle("case_bf"); //Àüó¹æ È­¸éÀ¸·Î º¯°æ btn_bf.dispatch("onclick"); //ó¹æ ÀúÀå ÈÄ Àüó¹æ Á¶È¸½Ã ÀúÀåµÈ ó¹æÀÌ º¸À̵µ·Ï ½ºÅ©·ÑÀ» °¡Àå À§·Î ÇÔ grd_bfprcplist.topRow = 1; model.removeNodeset(sPRCPLIST_PATH); model.resetInstanceNode("/root/main/insumsginfo/insuinfo/limmsg"); fReqBfNursPrcpInfo(); // Àüó¹æ Á¶È¸ fReqTempNursPrcpInfo(); // ÀÓ½Ãó¹æ Á¶È¸ if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){ fSearchHomePatInfo(); // ¹æ¹®ÀÏÀÚ Á¶È¸_20090330(ByJA) } } } } /** * @desc : ó¹æÀúÀå ¿À·ù³»¿ªÇ¥½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 2. 23 * @--------------------------------------------------- */ function fDestDisplayErrlist(errListPath, gridID ){ var gridObj = document.controls.item(gridID); gridObj.rebuildStyle(); //Àüó¹æ ¸®½ºÆ®¿¡¼­ ¹Ý³³ÀÏ °æ¿ì ÅØ½ºÆ® »¡°£»ö for (var i = 1; i<= getNodesetCount(errListPath); i++) { var prcplineno = model.getValue(errListPath + "[" + i + "]/prcplineno"); for (var j = 1; j< gridObj.rows; j++) { if (prcplineno == j ) { gridObj.rowStyle(j, "data", "color") = "#FF0000"; } } } } /** * @desc : ó¹æ SET ±×¸®µå Ŭ¸¯½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fClickSetPrcp(mthdflag){ if(isNull(mthdflag)) mthdflag = "dblclick"; //º¹»ç ¹öưÀº btnclick if ( !isDataCell() && mthdflag != "btnclick" ) { return; } if (grd_prcplist.row > 0 ){ if (model.getValue("/root/main/cond/patnm") == "") { messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } if (grp_prcpapp.visible == true){ messageBox("ó¹æÀû¿ëÀÏÀ» È®ÀÎ ÈÄ ÁøÇàÇϼ¼¿ä.", "C"); return; } if (model.getValue("/root/main/cond/homecareyn") == "Y" && model.getValue("/root/main/cond/visitdd") == "") { // ¹æ¹®ÀÏÀÚ¸¦ ¼±ÅÃÇÏÁö ¾ÊÀº °æ¿ì ¾È³» ¸Þ½ÃÁö¿Í ÇÔ²² ¹æ¹®ÀÏÀÚ°¡ 󹿴çÀÏ·Î ÀÚµ¿ ¼³Á¤ µÇµµ·Ï ¿äû¿¡ ÀÇÇØ ¼öÁ¤_±è¼÷ÀÎITC¿äû_20081215¼öÁ¤(ByJA) var rtnval = messageBox("¹æ¹®ÀÏÀ» ¼±ÅÃÇÏÁö ¾ÊÀ¸¼Ì½À´Ï´Ù. ¹æ¹®ÀÏÀ» ó¹æÀϰú µ¿ÀÏÇÏ°Ô °è¼Ó ÁøÇàÇϽðڽÀ´Ï±î?", "S"); // return : yes=6, no=7 if(rtnval == "6"){ // yes model.makeValue("/root/main/cond/visitdd", model.getValue("/root/main/cond/prcpdd")); cmb_visitdd.refresh(); }else{ return; } /* ¿øº»_20081215 // messageBox("¹æ¹®ÀÏÀÚ¸¦", "C002"); // return; */ } //ALL SIZE ó¹æ ó¸® if(model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/prcpclscd") == "M2" && model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/matrallsizespecid") == "ALL") { var grupsnglflag = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/grupsnglflag"); //** prcpinptflag || '|' ||matrsetflag || '|' ||matrsizeflag || '|' ||calcscorcd AS calcscormastspec var calcscormastspec = (model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec")).split("|"); var matrsizeflag = calcscormastspec[2]; var matrallsizespecid = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/matrallsizespecid"); var xpt = window.screenleft + 100; var ypt = window.screenTop + 50; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; setParameter("scrnflag", "nursprcp"); setParameter("grupsnglflag", 'S'); setParameter("calcscorcd", calcscormastspec[3]); setParameter("matrallsizespecid", matrallsizespecid); setParameter("currow", grd_prcplist.row); setParameter("targetpath", "/root/main/prcp/prcplist"); //setParameter("targetgridid", "grd_prcpposlist"); modal("SPMNW11500", mon, xpt, ypt); }else{ //ó¹æ main grid·Î ¾à¼Óó¹æ copy mnwAddNursPrcp(sPRCPSETLIST_PATH, "/root/main/prcp", grd_prcplist.row, ""); fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length); model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.rows + "]/status", "I"); //󹿻óÅ : ½Å±Ô } // 16.10.10_½É»çÆÀ ¿äû¿¡ ÀÇÇÑ Ãß°¡ var sprcpcd = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/prcpcd"); model.makeValue("/root/send/reqdata/prcpcd", sprcpcd); //alert("½ÃÀÛ : " + sprcpcd ); //alert(instance1.selectNodesXml("/root/send/reqdata")); submit("TRMNW10923", false); //ºÎ¼­ÄÞº¸ Á¶È¸ if (model.getValue("/root/temp/insulinfo/insulinfo/insulinfo") == "Y") { messageBox("¼±º°±Þ¿© ǰ¸ñÀÌ¿À´Ï º¸Çè±âÁØ È®ÀÎ ÈÄ ÀúÀå¹Ù¶ø´Ï´Ù.", "E999"); } /* // 16.09.27_½É»çÆÀ ¿äû¿¡ ÀÇÇÑ Ãß°¡_AYS if(model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/insulinfoyn") == "Y") { messageBox("¼±º°±Þ¿© ǰ¸ñÀÌ¿À´Ï º¸Çè±âÁØ È®ÀÎ ÈÄ ÀúÀå¹Ù¶ø´Ï´Ù.", "E999"); } */ fSetPrcpInfo(); //½Å±Ôó¹æÀº ¹ÝȯÄ÷³ disable grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("tempcol8")) = true; if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){ grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true; } //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸ var calcscormastspec = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec"); var calcscorcd = calcscormastspec.split("|"); fInsuMsgInfoRef(calcscorcd[3]); //20110328 À̼±°æ(°æºÏ´ë) : ¹°Ç°ÄÚµåÀÏ °æ¿ì ÀÀ±Þó¹æ¿©ºÎ üũ °¡´ÉÇÏ°í ¹°Ç°ÀÌ ¾Æ´Ï¸é üũºÒ°¡ /* var prcpclscd = model.getValue(sPRCPSETLIST_PATH + "[" + grd_prcplist.row + "]/prcpclscd"); var idx = model.instances(0).selectNodes("/root/main/prcp/prcplist").length; if(prcpclscd == "M2" || prcpclscd == "H4") { model.setvalue(sPRCPLIST_PATH + "[" + idx + "]/erprcpflag" , "N"); } else { grd_prcpposlist.isReadOnly(idx, grd_prcpposlist.colRef("erprcpflag")) = true; } */ } } /** * @desc : Àüó¹æ ±×¸®µå Ŭ¸¯½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fClickBfPrcp(mthdflag){ if(isNull(mthdflag)) mthdflag = "dblclick"; //º¹»ç ¹öưÀº btnclick if ( !isDataCell() && mthdflag != "btnclick" ) { return; } if (grd_bfprcplist.row > 0 ){ if (model.getValue("/root/main/cond/patnm") == "") { messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } if (grp_prcpapp.visible == true){ messageBox("ó¹æÀû¿ëÀÏÀ» È®ÀÎ ÈÄ ÁøÇàÇϼ¼¿ä.", "C"); return; } var prcphistcd = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcphistcd"); var flag = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/flag"); var prcpcd = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcpcd"); if(flag == "N") { messageBox("[" + prcpcd + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E"); } if (prcphistcd == "L" || prcphistcd == "D" ) { return; }else{ //°¡Á¤°£È£ if (model.getValue("/root/main/cond/homecareyn") == "Y"){ if (model.getValue("/root/main/cond/visitdd") == ""){ var rtnval = messageBox("¹æ¹®ÀÏÀ» ¼±ÅÃÇÏÁö ¾ÊÀ¸¼Ì½À´Ï´Ù. ¹æ¹®ÀÏÀ» ó¹æÀϰú µ¿ÀÏÇÏ°Ô °è¼Ó ÁøÇàÇϽðڽÀ´Ï±î?", "S"); // return : yes=6, no=7 if(rtnval == "6"){ // yes model.makeValue("/root/main/cond/visitdd", model.getValue("/root/main/cond/prcpdd")); cmb_visitdd.refresh(); }else{ return; } /* ¿øº»_20090122 messageBox("¹æ¹®ÀÏÀÚ¸¦", "C002"); return; */ } //¹æ¹®ÀÏÀÚ¿Í ´Ù¸¥ ¹æ¹®ÀÏÀÇ Ã³¹æ Ŭ¸¯½Ã blocking if (model.getValue("/root/main/cond/visitdd") != model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcpdelivefact")){ messageBox("¹æ¹®ÀÏÀÌ µ¿ÀÏÇÑ Ã³¹æ¿¡ ´ëÇØ¼­¸¸ Àϰý ÀúÀåÀÌ °¡´ÉÇÕ´Ï´Ù.", "C"); return; } } mnwAddNursPrcp(sBFPRCPLIST_PATH, "/root/main/prcp", grd_bfprcplist.row, ""); fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length); model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.rows + "]/status", "B"); //󹿻óÅÂ[Àü] } fSetPrcpInfo(); if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){ grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true; } //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸ var calcscormastspec = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/calcscormastspec"); var calcscorcd = calcscormastspec.split("|"); fInsuMsgInfoRef(calcscorcd[3]); //20110328 À̼±°æ(°æºÏ´ë) : ¹°Ç°ÄÚµåÀÏ °æ¿ì ÀÀ±Þó¹æ¿©ºÎ üũ °¡´ÉÇÏ°í ¹°Ç°ÀÌ ¾Æ´Ï¸é üũºÒ°¡ /* var prcpclscd = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcpclscd"); var idx = model.instances(0).selectNodes("/root/main/prcp/prcplist").length; if(prcpclscd == "M2") { model.setvalue(sPRCPLIST_PATH + "[" + idx + "]/erprcpflag" , "N"); } else { grd_prcpposlist.isReadOnly(idx, grd_prcpposlist.colRef("erprcpflag")) = true; } */ } } /** * @desc : ÀÓ½Ãó¹æ ±×¸®µå Ŭ¸¯½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fClickTempPrcp(){ if (isDataCell()) { if (grd_tempprcplist.row > 0 ){ if (model.getValue("/root/main/cond/patnm") == "") { messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } if (grp_prcpapp.visible == true){ messageBox("ó¹æÀû¿ëÀÏÀ» È®ÀÎ ÈÄ ÁøÇàÇϼ¼¿ä.", "C"); return; } if (model.getValue("/root/main/cond/homecareyn") == "Y" && model.getValue("/root/main/cond/visitdd") == "") { messageBox("¹æ¹®ÀÏÀÚ¸¦", "C002"); return; } if (grd_prcpposlist.findRow(model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/tempcol21"), 1, grd_prcpposlist.colRef("tempcol21")) != -1) { //¾øÀ¸¸é -1, ÀÖÀ¸¸é ÇØ´ç row ¸®ÅÏ messageBox("ó¹æÀÌ", "E006"); return; } var prcpclscd = model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/prcpclscd"); var grupsnglflag = model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/grupsnglflag"); //** prcpinptflag || '|' ||matrsetflag || '|' ||matrsizeflag || '|' ||calcscorcd AS calcscormastspec var calcscormastspec = (model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/calcscormastspec")).split("|"); var matrsizeflag = calcscormastspec[2]; var matrallsizespecid = model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/matrallsizespecid"); //"" //ALL SIZE ó¹æ ó¸®(ÀÓ½Ãó¹æ¿¡¼­ 󹿹ßÇà½Ã Ȱµ¿Áø¼ú¹® Áß ±Ô°ÝÀÌ ¸ÅÇεǾî ÀÖÁö ¾ÊÀº °æ¿ì) if(prcpclscd == "M2" && grupsnglflag == "S" && matrsizeflag == "Y" && (matrallsizespecid == "" || matrallsizespecid == "-")){ var xpt = window.screenleft + 100; var ypt = window.screenTop + 50; var coord = getRelativeCoordinate ( xpt, ypt ); var mon = coord[0]; xpt = coord[1]; ypt = coord[2]; setParameter("scrnflag", "tempprcp"); setParameter("grupsnglflag", 'S'); setParameter("calcscorcd", calcscormastspec[3]); setParameter("matrallsizespecid", matrallsizespecid); setParameter("currow", grd_tempprcplist.row); setParameter("targetpath", "/root/main/prcp/prcplist"); //setParameter("targetgridid", "grd_prcpposlist"); modal("SPMNW11500", mon, xpt, ypt); }else{ //ó¹æ main grid·Î ÀÓ½Ãó¹æ copy mnwAddNursPrcp(sTEMPPRCPLIST_PATH, "/root/main/prcp", grd_tempprcplist.row, ""); fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length); model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.rows + "]/status", "T"); //󹿻óÅÂ[ÀÓ] } fSetPrcpInfo(); //ÀÓ½Ãó¹æÀº ¹ÝȯÄ÷³ disable grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("tempcol8")) = true; if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){ grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true; } //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸ var calcscormastspec = model.getValue(sTEMPPRCPLIST_PATH + "[" + grd_tempprcplist.row + "]/calcscormastspec"); var calcscorcd = calcscormastspec.split("|"); fInsuMsgInfoRef(calcscorcd[3]); //20110328 À̼±°æ(°æºÏ´ë) : ¹°Ç°ÄÚµåÀÏ °æ¿ì ÀÀ±Þó¹æ¿©ºÎ üũ °¡´ÉÇÏ°í ¹°Ç°ÀÌ ¾Æ´Ï¸é üũºÒ°¡ /* var idx = model.instances(0).selectNodes("/root/main/prcp/prcplist").length; if(prcpclscd == "M2") { model.setvalue(sPRCPLIST_PATH + "[" + idx + "]/erprcpflag" , "N"); } else { grd_prcpposlist.isReadOnly(idx, grd_prcpposlist.colRef("erprcpflag")) = true; } */ } } } /** * @desc : ó¹æÀúÀå ±×¸®µå ÀúÀå ÀÌÀü ¼ÂÆÃ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fSetPrcpInfo(refYN){ //KNUH, ó¹æº¹»ç ¹öư Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´ÉÀ» À§ÇØ refYN ÀÎÀÚ Ãß°¡ (2011.02.16 JJE) if( isNull(refYN) ) refYN = "Y"; //ȯÀÚ»óŰ¡ º´µ¿, ÀÀ±ÞÀÇ·á¼¾ÅÍÀÏ °æ¿ì ¼±Ã³Ä¡ ºñȰ¼ºÈ­ var ordtype = model.getValue("/root/main/patinfocond/patinfo/ordtype"); if (ordtype == 'I' || ordtype == 'E') { grd_prcpposlist.colDisabled(grd_prcpposlist.colRef("precureprcpflag")) = true; } else { grd_prcpposlist.colDisabled(grd_prcpposlist.colRef("precureprcpflag")) = false; } //KNUH, ó¹æº¹»ç ¹öư Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´ÉÀ» À§ÇØ refYN °ª¿¡ µû¶ó refresh ó¸® ºÐ±â (2011.02.16 JJE) if(refYN == "Y") grd_prcpposlist.refresh(); //¼ö¼úó¹æÀÌ ¾Æ´Ò °æ¿ì ¼ö¼úÀ¯Çü ÄÞº¸ ºñȰ¼ºÈ­ /* if (model.getValue("/root/main/prcp/prcplist[" + grd_prcpposlist.rows + "]/prcpclscd") != "H2"){ grd_prcpposlist.colDisabled(grd_prcpposlist.colRef("opansflagcd")) = true; } */ } /** * @desc : ó¹æÀúÀå ±×¸®µå¿¡¼­ ó¹æ »èÁ¦(µå·¡±×ÇÏ¿© delete keyÀÌ¿ë) * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fDragDelPrcp() { if (event.keyCode == "46") { for (i = 0; i < grd_prcpposlist.selectedRows; i++) { model.setValue("/root/main/prcp/prcplist[" + grd_prcpposlist.selectedRow(i) + "]/status", 'D'); } for (i = 1; i <= getNodesetCount("/root/main/prcp/prcplist"); i++) { if (model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == 'D') { grd_prcpposlist.deleteRow(i, false); i--; } } model.refresh(); } } /** * @desc : ó¹æÀúÀå ±×¸®µå¿¡¼­ ¹ÝȯÄ÷³ Ŭ¸¯½Ã(¹°Ç° ÆË¾÷, ¼ö·®, Ãѿ뷮 º¯°æ) * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fClickRtn() { var iRow = grd_prcpposlist.row; var prcppkspec = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcppkspec"); var deptcd = ""; var pid = model.getValue("/root/main/cond/pid"); var indd = model.getValue("/root/main/paminfo/list/indd"); if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) { deptcd = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd"); } else { deptcd = model.getValue("/root/main/cond/wardcd"); } /* if(grd_prcpposlist.col == grd_prcpposlist.colRef("anamneflag")){ var clincstdyflag = model.getValue("/root/main/cond/clincstdyflag"); var anamneflag = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/anamneflag"); if(clincstdyflag == "Y") { messageBox ( "±â¿ÕÁõÀº Àӻ󿬱¸¿Í µ¿½Ã¿¡ ¼±Åà ÇÒ ¼ö", "I004" ); model.setValue("/root/main/prcp/prcplist[" + iRow + "]/anamneflag", "N"); } else { if(anamneflag == "Y"){ //±â¿ÕÁõÀÌ Y·Î ó¸®µÈ °æ¿ì¿¡¸¸ º¸Á¶À¯Çü¼±Åà ÆË¾÷ open var subcretno = fGetSubcretno(pid, indd, "anamneflag"); if(subcretno == "0"){ messageBox ( "ȯÀÚÀÇ ºÎÀ¯ÇüÀÌ ¾ø°Å³ª ¶Ç´Â ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "I999" ); model.setValue("/root/main/prcp/prcplist[" + iRow + "]/anamneflag", "N"); model.setValue("/root/main/prcp/prcplist[" + iRow + "]/subcretno", "0"); } else { model.setValue("/root/main/prcp/prcplist[" + iRow + "]/subcretno", subcretno); } }else{ //±â¿ÕÁõÀÌ N·Î ó¸®µÈ °æ¿ì¿¡´Â subcretno 0·Î ó¸® model.setValue("/root/main/prcp/prcplist[" + iRow + "]/subcretno", "0"); } } } else */ if(grd_prcpposlist.col == grd_prcpposlist.colRef("tempcol8")){ //Àüó¹æ¿¡¼­ º¹»çµÈ ó¹æÀÏ °æ¿ì([Àü]) if(model.getValue("/root/main/prcp/prcplist[" + iRow + "]/status") == "B") { //Àüó¹æÀ» ¿©·¯°³ À̵¿ÇÏ°í ¹Ýȯ½Ã µÎ°³ÀÌ»ó üũÇÒ °æ¿ì alert(ÇѰ³¸¸ »èÁ¦ ¿äûÇϵµ·Ï) if (getNodesetCount(sPRCPLIST_PATH + "[prcppkspec = '"+ prcppkspec + "' and tempcol8 = 'Y']/tempcol8") > 1) { messageBox("¹Ýȯ¿äûÀÌ", "E006"); model.setValue("/root/main/prcp/prcplist[" + iRow + "]/tempcol8", "N"); grd_prcpposlist.refresh(); return; } //¹°Ç°¹Ý³³ºÎ¼­ ¼±Åà ÆË¾÷(Àç·áÀÎ °æ¿ì) if (model.getValue("/root/main/prcp/prcplist[" + iRow + "]/tempcol8") == "Y" && model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcpclscd") == "M2" && model.getValue("/root/main/prcp/prcplist[" + iRow + "]/issdeptcd") != deptcd ) { fPopGoodRtn("/root/main/prcp/prcplist[" + iRow + "]", iRow); } //setó¹æ, °Ë»ö ó¹æÀÏ °æ¿ì(½Å±Ô - row »èÁ¦), ÀÓ½Ã󹿵µ »èÁ¦ }else{ model.removeNode(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]"); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcpvol")){ //¼ö·®, Ãѿ뷮 º¯°æ½Ã if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol"))) { DrugCalc ("prcpvol" , grd_prcpposlist.row); } else { model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol",model.getValue("/root/drugcalc/prcpvol")); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcpqty")) { if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty"))) { DrugCalc ("prcpqty" , grd_prcpposlist.row); } else { model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty",model.getValue("/root/drugcalc/prcpqty")); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drprcpetc7")) { if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7"))) { DrugCalc ("drprcpetc7" , grd_prcpposlist.row); } else { model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7",model.getValue("/root/drugcalc/drprcpetc7")); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drprcpetc8")) { if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8"))) { DrugCalc ("drprcpetc8" , grd_prcpposlist.row); } else { model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8",model.getValue("/root/drugcalc/drprcpetc8")); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcptims")) { if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims"))) { DrugCalc ("prcptims" , grd_prcpposlist.row); } else { model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims",model.getValue("/root/drugcalc/prcptims")); } } else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drgacptflag")) { if(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drgacptflag") == "A") { // PCA¿ë ¾àÁ¦ messageBox ( "±Þ¿©±¸ºÐÀÌ 'º»Àκδã'À¸·Î º¯°æ µË´Ï´Ù.", "I" ); model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/payflagcd", "1"); } else if(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drgacptflag") == "B") { // ¹Ì¿ë¼ºÇü messageBox ( "±Þ¿©±¸ºÐÀÌ 'ºñ±Þ¿©'À¸·Î º¯°æ µË´Ï´Ù.", "I" ); model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/payflagcd", "2"); } } model.refresh(); } /** * @desc : ±Í°¡À¯Ä¡¹°Ç° °ü·Ã µ¥ÀÌÅÍ(¿©ºÎ,¼ö·®) ÀԷ°ª üũ * @ * @param : iRow-üũ´ë»ó Çà¹øÈ£ * @return : * @author : ±èÁø¾Æ 2009.02.06 * @--------------------------------------------------- */ function fChkHomeMatr(iRow){ var ordtype = model.getValue("/root/main/patinfocond/patinfo/ordtype"); var prcpclscd = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcpclscd"); var homematrflag = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/homematrflag"); var homematrqty = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/homematrqty"); var prcpqty = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcpqty"); if( (model.getValue("/root/main/prcp/prcplist[" + iRow + "]/homematrflag")=="Y") ||(model.getValue("/root/main/prcp/prcplist[" + iRow + "]/homematrqty") !="0")){ if(ordtype!="O"){ messageBox("±Í°¡À¯Ä¡¹°Ç°À» ÁöÁ¤ÇÒ ¼ö ¾ø´Â ȯÀÚÀÔ´Ï´Ù.", "I", "(¿Ü·¡È¯ÀÚ¸¸ ÁöÁ¤°¡´É)"); model.makeValue("/root/main/prcp/prcplist[" + iRow + "]/homematrflag", "N"); model.makeValue("/root/main/prcp/prcplist[" + iRow + "]/homematrqty" , "0"); return ; } else if(prcpclscd!="M2"){ messageBox("±Í°¡À¯Ä¡¹°Ç°À» ÁöÁ¤ÇÒ ¼ö ¾ø´Â ó¹æÀÔ´Ï´Ù.", "I", "(Àç·á󹿏¸ ÁöÁ¤°¡´É)"); model.makeValue("/root/main/prcp/prcplist[" + iRow + "]/homematrflag", "N"); model.makeValue("/root/main/prcp/prcplist[" + iRow + "]/homematrqty" , "0"); return ; } else if(Number(prcpqty) < Number(homematrqty)){ messageBox("󹿼ö·®º¸´Ù ±Í°¡À¯Ä¡¹°Ç°¼ö·®ÀÌ ´õ ¸¹À» ¼ö ¾ø½À´Ï´Ù.", "I", "󹿼ö·® È®ÀÎ ÈÄ ´Ù½Ã ÁöÁ¤ÇϽʽÿÀ."); model.makeValue("/root/main/prcp/prcplist[" + iRow + "]/homematrqty" , "0"); return ; } } } /** * @desc : Ãѿ뷮, ¼ö·®ÀÇ ¼öÁ¤Àü °ªÀ» instance¿¡ ³Ö¾îµÐ´Ù. * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 3. 17 * @--------------------------------------------------- */ function fSetPrcpVolQty() { var curCol = grd_prcpposlist.col; if(curCol == grd_prcpposlist.colRef("prcpvol")){ model.setValue("/root/drugcalc/prcpvol", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol")); } else if(curCol == grd_prcpposlist.colRef("prcpqty")){ model.setValue("/root/drugcalc/prcpqty", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty")); } else if(curCol == grd_prcpposlist.colRef("prcptims")){ model.setValue("/root/drugcalc/prcptims", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims")); } else if(curCol == grd_prcpposlist.colRef("drprcpetc7")){ model.setValue("/root/drugcalc/drprcpetc7", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7")); } else if(curCol == grd_prcpposlist.colRef("drprcpetc8")){ model.setValue("/root/drugcalc/drprcpetc8", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8")); } } /** * @desc : ¿ë·®, ¼ö·®, Ƚ¼ö¸¦ ¼öÁ¤ÇßÀ» ¶§ °ª°è»ê * @ * @param : flag : ¿ë·®, ¼ö·®, Ƚ¼ö º¯°æ ±¸ºÐ curRow : ¼öÁ¤ÇÒ ÇöÀç row * @return : void * @author : ¸¶Á¤¹Î 2007. 4. 30 * ¼Ò½ºÄ«ÇÇ by cha * @--------------------------------------------------- */ /* function DrugCalc ( flag, curRow ) { var PrcpVol = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol" ); if ( isNull(PrcpVol) || PrcpVol == 0 ) { PrcpVol = "1"; } var PrcpQty = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty" ); if ( isNull(PrcpQty) || PrcpQty == 0 ){ PrcpQty = "1"; } var bfPrcpVol = model.getValue ( "/root/drugcalc/prcpvol" ); if ( isNull(bfPrcpVol) || bfPrcpVol == 0 ) { bfPrcpVol = "1"; } var bfPrcpQty = model.getValue ( "/root/drugcalc/prcpqty" ); if ( isNull(bfPrcpQty) || bfPrcpQty == 0 ) { bfPrcpQty = "1"; } var calcPrcpVol = 0; var calcPrcpQty = 0; // if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê // calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; // calcPrcpQty = Math.round(calcPrcpQty)/1000; // model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); // // } else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê // calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; // calcPrcpVol = Math.round(calcPrcpVol)/1000; // model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); // }20100514 khj //20090820 ¸¶Á¤¹Î ¼öÁ¤. ¾àÀÎ °æ¿ì´Â ÃÖÃÊÀÇ ¿ë·® ¼ö·® ºñÀ²·Î °è»êÇÏ´Â °ÍÀ¸·Î ¼öÁ¤ var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" ); var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" ); if (model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ).substring ( 0, 1 ) == "A" && !isNull(baseQty) && !isNull(baseVol)) { var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" ); var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" ); if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); } else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ); calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); } } else { if ( flag == "prcpvol" ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); } else if ( flag == "prcpqty" ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); } } } */ function DrugCalc ( flag, curRow ) { var PrcpVol = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol" ); if ( isNull(PrcpVol) || PrcpVol == 0 ) { PrcpVol = "1"; } var PrcpQty = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty" ); if ( isNull(PrcpQty) || PrcpQty == 0 ){ PrcpQty = "1"; } var PrcpTims = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/prcptims" ); if ( isNull(PrcpTims) || PrcpTims == 0 ) { PrcpTims = "1"; } var drprcpetc7 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7" ); var drprcpetc7_2 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7" ); if ( isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") { drprcpetc7 = "1"; } var drprcpetc8 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8" ); var drprcpetc8_2 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8" ); if ( isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") { drprcpetc8 = "1"; } var bfPrcpVol = model.getValue ( "/root/drugcalc/prcpvol" ); if ( isNull(bfPrcpVol) || bfPrcpVol == 0 ) { bfPrcpVol = "1"; } var bfPrcpQty = model.getValue ( "/root/drugcalc/prcpqty" ); if ( isNull(bfPrcpQty) || bfPrcpQty == 0 ) { bfPrcpQty = "1"; } var bfprcpTims = model.getValue ( "/root/drugcalc/prcptims" ); if ( isNull(bfprcpTims) || bfprcpTims == 0 ) { bfprcpTims = "1"; } var bfdrprcpetc7 = model.getValue ( "/root/drugcalc/drprcpetc7" ); if ( isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) { bfdrprcpetc7 = "1"; } var bfdrprcpetc8 = model.getValue ( "/root/drugcalc/drprcpetc8" ); if ( isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) { bfdrprcpetc8 = "1"; } var calcPrcpVol = 0; var calcPrcpQty = 0; var calcPrcpTimeVol = 0; var calcPrcpTimeQty = 0; //20090820 ¸¶Á¤¹Î ¼öÁ¤. ¾àÀÎ °æ¿ì´Â ÃÖÃÊÀÇ ¿ë·® ¼ö·® ºñÀ²·Î °è»êÇÏ´Â °ÍÀ¸·Î ¼öÁ¤ var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" ); var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" ); var drugcntsvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 1 , "^", "|" ); var drugstndvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 3 , "^", "|" ); var drugpackvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 5 , "^", "|" ); var drugbasevol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 7 , "^", "|" ); var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol; var baseTimeQty = drugbasevol; if (model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ).substring ( 0, 1 ) == "A" && !isNull(baseQty) && !isNull(baseVol)) { if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; calcPrcpTimeQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeQty)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; calcPrcpTimeVol = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeVol)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; //start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE) var cnclInptTxt = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd"); var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length); if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){ messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I"); //model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol ); //return; } //end model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); } else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ); calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; calcPrcpTimeQty = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeQty)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; calcPrcpTimeVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeVol)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); } else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; calcPrcpTimeQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseTimeQty)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; calcPrcpVol = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; //start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE) var cnclInptTxt = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd"); var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length); if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){ messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I"); //model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol ); //return; } //end if(drprcpetc7.substr(0,1) == "0") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; } if(drprcpetc8.substr(0,1) == "0") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; } model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); } else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê calcPrcpVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; calcPrcpTimeVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseTimeVol)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; calcPrcpQty = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; if(drprcpetc7.substr(0,1) == "0") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; } if(drprcpetc8.substr(0,1) == "0") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; } model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ); } } else { if ( flag == "prcpvol" ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; calcPrcpTimeVol = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc7)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; calcPrcpTimeQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc8)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; //start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE) var cnclInptTxt = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd"); var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length); if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){ messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I"); //model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol ); //return; } //end model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); } else if ( flag == "prcpqty" ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ); calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; calcPrcpTimeVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc7)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; calcPrcpTimeQty = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc8)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); if ( prcpclscd == "M2" ) { //20090330 ¸¶Á¤¹Î¼öÁ¤. ±Í°¡À¯Ä¡¿ë ¹°Ç°Ã³¹æÀº ÀÇ»çó¹æ ¼ö·®À» ¼öÁ¤ÇÏ¸é ±Í°¡À¯Ä¡¿ë¹°Ç°¼ö·®Ä÷³¿¡ °°ÀÌ ¹Ý¿µÇÑ´Ù. if (!isNull(model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")) && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4" )>0){ model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4", PrcpQty ); } } } else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê calcPrcpTimeQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(drprcpetc8)*1000; calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; calcPrcpVol = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; calcPrcpQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; //start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE) var cnclInptTxt = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd"); var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length); if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){ messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I"); //model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol ); //return; } //end if(drprcpetc7.substr(0,1) == "0" && drprcpetc7.substr(1,1) != ".") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1"); } if(drprcpetc8.substr(0,1) == "0" && drprcpetc8.substr(1,1) != ".") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeQty = "1"; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1"); } model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); if ( isNull(drprcpetc7_2) || drprcpetc7_2 == 0 || drprcpetc7_2 == "-") { model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1"); } } else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê calcPrcpTimeVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(drprcpetc7)*1000; calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; calcPrcpVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpVol)*1000; calcPrcpVol = Math.round(calcPrcpVol)/1000; calcPrcpQty = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpQty)*1000; calcPrcpQty = Math.round(calcPrcpQty)/1000; if(drprcpetc7.substr(0,1) == "0" && drprcpetc7.substr(1,1) != ".") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeVol = "1"; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1"); } if(drprcpetc8.substr(0,1) == "0" && drprcpetc8.substr(1,1) != ".") { calcPrcpQty = "1"; calcPrcpVol = "1"; calcPrcpTimeVol = "1"; model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1"); } model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); if ( isNull(drprcpetc8_2) || drprcpetc8_2 == 0 || drprcpetc8_2 == "-") { model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1"); } var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ); if ( prcpclscd == "M2" ) { //20090330 ¸¶Á¤¹Î¼öÁ¤. ±Í°¡À¯Ä¡¿ë ¹°Ç°Ã³¹æÀº ÀÇ»çó¹æ ¼ö·®À» ¼öÁ¤ÇÏ¸é ±Í°¡À¯Ä¡¿ë¹°Ç°¼ö·®Ä÷³¿¡ °°ÀÌ ¹Ý¿µÇÑ´Ù. if (!isNull(model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")) && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4" )>0){ model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4", PrcpQty ); } } } } } /** * @desc : ó¹æÀúÀå ±×¸®µå ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯½Ã(Àû¿ëÀÏÀÚ ÆË¾÷, ¹Ý³³ºÎ¼­ ÆË¾÷) * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fClickBkPrcp(){ if (grd_prcpposlist.colRef("orgprcpnm") == grd_prcpposlist.mouseCol ||grd_prcpposlist.colRef("prcpcd") == grd_prcpposlist.mouseCol ||grd_prcpposlist.colRef("drugmthdspccdnm") == grd_prcpposlist.mouseCol ||grd_prcpposlist.colRef("goodmodel") == grd_prcpposlist.mouseCol ||grd_prcpposlist.colRef("matrallsizespecid") == grd_prcpposlist.mouseCol ) { //tf¼­ºê¸Þ´º ¶ç¿ìÁö ¾ÊÀ½ window.showPopupMenu(true); if (event.button == 3) { window.setPopupMenu(true, "/root/main/popupmenu/prcpposlist/item", "name", "func", false); model.refresh(); } else{ // window.setPopupMenu(false); return; } }else{ grd_prcpposlist.row = grd_prcpposlist.mouseRow; if (event.button == 3 && isDataCell() == true ) { //Àû¿ëÀÏÀÚ ÆË¾÷(°¡Á¤°£È£ÀÏ °æ¿ì´Â »ç¿ëÇÏÁö ¾ÊÀ½) if (model.getValue("/root/main/cond/homecareyn") == "" && grd_prcpposlist.mouseCol == grd_prcpposlist.colRef("prcpdelivefact")){ //tf¼­ºê¸Þ´º ¶ç¿ìÁö ¾ÊÀ½ window.showPopupMenu(false); var yPos = event.y; if (yPos < 425) { grp_prcpapp.attribute("left") = "955px"; grp_prcpapp.attribute("top") = (yPos + 80)+"px"; } else { grp_prcpapp.attribute("left") = "955px"; grp_prcpapp.attribute("top") = "506px"; } grp_prcpapp.visible = true; model.setValue("/root/main/prcpposinfo/cond/prcpappdd", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.mouseRow + "]/prcpdelivefact")); //¹°Ç°¹Ý³³ºÎ¼­¼±Åà ÆË¾÷(Àç·áÀÎ °æ¿ì) } else if(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.mouseRow + "]/prcpclscd") == "M2"){ if (grd_prcpposlist.isReadOnly(grd_prcpposlist.mouseRow, grd_prcpposlist.colRef("tempcol8")) == false && grd_prcpposlist.valueMatrix(grd_prcpposlist.mouseRow, grd_prcpposlist.colRef("tempcol8")) == "Y" ) { //tf¼­ºê¸Þ´º ¶ç¿ìÁö ¾ÊÀ½ window.showPopupMenu(false); fPopGoodRtn(sPRCPLIST_PATH + "[" + grd_prcpposlist.mouseRow + "]", grd_prcpposlist.mouseRow); } } model.refresh(); //window.showPopupMenu(true); } } } /** * @desc : ¹°Ç°ºÎ¼­ ÆË¾÷ * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fPopGoodRtn(GridPath, iRow) { var rtndeptcd = fGetPrcpPos(); setParameter("rtndeptcd", rtndeptcd); open("SPMNW11400","1","300","500", "SPMNW11400", GridPath, "/root/main/prcp/prcplist"); /* if (model.getValue("/root/main/prcpposinfo/cond/goodrtnyn") != 'Y') { //¹°Ç°¹Ý³³ºÎ¼­ ÁöÁ¤ ¹öưÀ» ´©¸£Áö ¾Ê¾ÒÀ» °æ¿ì ¹Ýȯ ÇØÁö model.setValue("/root/main/prcpposinfo/prcpinfo/prcplist[" + iRow + "]/return", "false"); // model.setValue("/root/main/prcpposinfo/cond/dcdeptcd", model.getValue("/root/main/prcpposinfo/cond/dcdeptcd")); model.refresh(); } */ } /** * @desc : ó¹æÀ§Ä¡ return * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fGetPrcpPos() { var PrcpPosCD = ""; var pid=model.getValue("/root/main/cond/pid"); if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '1') { //ȯÀÚÀ§Ä¡ if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) { PrcpPosCD = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd"); } else { PrcpPosCD = model.getValue("/root/main/cond/wardcd"); } } else { //UserÀ§Ä¡ PrcpPosCD = model.getValue("/root/main/prcpposinfo/cond/deptcd"); } return PrcpPosCD; } /** * @desc : ½ÇÁ¦Ã³¹æ Àû¿ëÀÏ ÆË¾÷ È®ÀΠŬ¸¯½Ã * @ * @param : * @return : * @author : ¼º¹Ì¿¬ 2008. 1. 9 * @--------------------------------------------------- */ function fPrcpAppDDInfo(){ //Àû¿ëÀÏÀÚ ¹Ì·¡ÀÔ·Â ºÒ°¡´É var prcpappdd = model.getValue("/root/main/prcpposinfo/cond/prcpappdd"); //** ÀÔ¿øÈ¯ÀÚÀÇ °æ¿ì ÀÔ¿øÀÏ ÀÌÀüÀ¸·Î ó¹æÀÔ·Â ºÒ°¡ Ãß°¡_20080822(ByJA) **// var ordtype = model.getValue("/root/main/patinfocond/patinfo/ordtype"); var indd = model.getValue("/root/main/patinfocond/patinfo/indd"); var orddd = model.getValue("/root/main/patinfocond/patinfo/orddd"); if(ordtype == "I"){ if(indd > prcpappdd){ messageBox("ÀÔ¿øÀÏÀÚ["+indd.substr(0,4)+"-"+indd.substr(4,2)+"-"+indd.substr(6,2)+"] ÀÌÀüÀ¸·Î ÀÔ·ÂÇÒ ¼ö", "I004"); model.setFocus("ipt_prcpappdd"); return; } }else if(ordtype == "O"){ if(orddd > prcpappdd){ messageBox("Áø·áÀÏÀÚ["+orddd.substr(0,4)+"-"+orddd.substr(4,2)+"-"+orddd.substr(6,2)+"] ÀÌÀüÀ¸·Î ÀÔ·ÂÇÒ ¼ö", "I004"); model.setFocus("ipt_prcpappdd"); return; } } if (prcpappdd <= getCurrentDate()) { model.setValue(sPRCPLIST_PATH+ "[" + grd_prcpposlist.row + "]/prcpdelivefact", prcpappdd); } else { messageBox("¹Ì·¡ÀÏÀÚ´Â ÀÔ·ÂÇÒ ¼ö", "I004"); model.setFocus("ipt_prcpappdd"); return; } grp_prcpapp.visible = false; //tf¼­ºê¸Þ´º »ç¿ë window.showPopupMenu(true); model.refresh(); } /** * @desc : 󹿏ñ·Ï ±×¸®µå È®´ë/Ãà¼Ò * @ * @param : state - true : È®´ë, false : Ãà¼Ò * @return : * @author : ¼º¹Ì¿¬ 2008. 2. 5 * @--------------------------------------------------- */ function fprcpsetzoomToggle(state){ if(state) { btn_zoom.attribute("text") = "Ãà¼Ò"; switch1.attribute("width")= "900"; grd_prcplist.attribute("width") = "753"; grd_prcplist.colWidth(grd_prcplist.colRef("orgprcpnm")) = 290; } else { btn_zoom.attribute("text") = "È®´ë"; switch1.attribute("width")= "500"; grd_prcplist.attribute("width") = "350"; grd_prcplist.colWidth(grd_prcplist.colRef("orgprcpnm")) = 211; } } /** * @desc : Àüó¹æ ±×¸®µå È®´ë/Ãà¼Ò * @ * @param : state - true : È®´ë, false : Ãà¼Ò * @return : * @author : ¼º¹Ì¿¬ 2008. 2. 5 * @--------------------------------------------------- */ function fbfzoomToggle(state){ if(state) { btn_bfzoom.attribute("text") = "Ãà¼Ò"; switch1.attribute("width")= "1165"; grd_bfprcplist.attribute("width") = "1155"; grd_bfprcplist.colWidth(grd_bfprcplist.colRef("prcpnm")) = 233; } else { btn_bfzoom.attribute("text") = "È®´ë"; switch1.attribute("width")= "500"; grd_bfprcplist.attribute("width") = "489"; grd_bfprcplist.colWidth(grd_bfprcplist.colRef("prcpnm")) = 117; } } /** * @desc : ÀÓ½Ãó¹æ ±×¸®µå È®´ë/Ãà¼Ò * @ * @param : state - true : È®´ë, false : Ãà¼Ò * @return : * @author : ¼º¹Ì¿¬ 2008. 6. 17 * @--------------------------------------------------- */ function ftempzoomToggle(state){ if(state) { btn_tempzoom.attribute("text") = "Ãà¼Ò"; switch1.attribute("width")= "692"; grd_tempprcplist.attribute("width") = "690"; grd_tempprcplist.colWidth(grd_tempprcplist.colRef("drugmthdspccdnm")) = 150; } else { btn_tempzoom.attribute("text") = "È®´ë"; switch1.attribute("width")= "500"; grd_tempprcplist.attribute("width") = "493"; grd_tempprcplist.colWidth(grd_tempprcplist.colRef("prcpnm")) = 230; grd_tempprcplist.colWidth(grd_tempprcplist.colRef("drugmthdspccdnm")) = 95; } } function fDelPrcp() { for (i = 0; i < grd_prcpposlist.selectedRows; i++) { model.setValue("/root/main/prcp/prcplist[" + grd_prcpposlist.selectedRow(i) + "]/status", 'D'); } for (i = 1; i <= getNodesetCount("/root/main/prcp/prcplist"); i++) { if (model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == 'D') { grd_prcpposlist.deleteRow(i, false); i--; } } model.refresh(); } function fnZoneDisp() { //ÀÀ±ÞÀÇ·á¼¾ÅÍ(2280200000)ÀÎ °æ¿ì //º´µ¿Á¤º¸´ë½Å¿¡ ±¸¿ªÁ¤º¸°¡ º¸ÀÓ)(20080620) if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) { caption15.visible = false; cmb_room.visible = false; cap_Zone.visible = true; cmb_Zone.visible = true; //20110830_KNUH_Start //cmb_settingrn.visible = false; //cap_settingrn.visible = false; //20110830_KNUH_End cmb_room.value = "-"; var zonecd = model.getValue("/root/main/paminfo/list/sectioncd"); if( !isNull(zonecd) && zonecd != "-" ){ cmb_Zone.value = model.getValue("/root/main/paminfo/list/sectioncd"); } else { cmb_Zone.value = "-"; } //cmb_settingrn.visible = false; } else { caption15.visible = true; cmb_room.visible = true; //cmb_settingrn.visible =true; cap_Zone.visible = false; cmb_Zone.visible = false; cmb_Zone.value = ""; //20110830_KNUH_Start //cmb_settingrn.visible = true; //cap_settingrn.visible = true; //20110830_KNUH_End } model.refresh(); } /** * @desc : KNUH, ó¹æº¹»ç ¹öư Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´É * @ * @param : * @return : * @author : JJE 2011. 2. 16 * @--------------------------------------------------- */ function fClickSetPrcpRows(){ var selectedRows = grd_prcplist.selectedRows; var prcpPosListRows = grd_prcpposlist.rows; var str = ""; if(selectedRows == 1 ){ fClickSetPrcp("btnclick"); return; } if (selectedRows > 0 ){ if (model.getValue("/root/main/cond/patnm") == ""){ messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } if (grp_prcpapp.visible == true){ messageBox("ó¹æÀû¿ëÀÏÀ» È®ÀÎ ÈÄ ÁøÇàÇϼ¼¿ä.", "C"); return; } if (model.getValue("/root/main/cond/homecareyn") == "Y" && model.getValue("/root/main/cond/visitdd") == "") { // ¹æ¹®ÀÏÀÚ¸¦ ¼±ÅÃÇÏÁö ¾ÊÀº °æ¿ì ¾È³» ¸Þ½ÃÁö¿Í ÇÔ²² ¹æ¹®ÀÏÀÚ°¡ 󹿴çÀÏ·Î ÀÚµ¿ ¼³Á¤ µÇµµ·Ï ¿äû¿¡ ÀÇÇØ ¼öÁ¤_±è¼÷ÀÎITC¿äû_20081215¼öÁ¤(ByJA) var rtnval = messageBox("¹æ¹®ÀÏÀ» ¼±ÅÃÇÏÁö ¾ÊÀ¸¼Ì½À´Ï´Ù. ¹æ¹®ÀÏÀ» ó¹æÀϰú µ¿ÀÏÇÏ°Ô °è¼Ó ÁøÇàÇϽðڽÀ´Ï±î?", "S"); // return : yes=6, no=7 if(rtnval == "6"){ // yes model.makeValue("/root/main/cond/visitdd", model.getValue("/root/main/cond/prcpdd")); cmb_visitdd.refresh(); }else{ return; } } for (i=0; i 1) { str = str.substr(0, str.length - 1); messageBox("ó¹æÄÚµå " + str + "´Â ¼±º°±Þ¿© ǰ¸ñÀÌ¿À´Ï º¸Çè±âÁØ È®ÀÎ ÈÄ ÀúÀå¹Ù¶ø´Ï´Ù.", "E999"); } model.refresh(); } } /** * @desc : KNUH, Àüó¹æº¹»ç ¹öư Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´É * @ * @param : * @return : * @author : JJE 2011. 2. 17 * @--------------------------------------------------- */ function fClickBfPrcpRows(){ var selectedRows = grd_bfprcplist.selectedRows; var errRtnMsg = ""; var prcpPosListRows = grd_prcpposlist.rows; if(selectedRows == 1 ){ fClickBfPrcp("btnclick"); return; } if (selectedRows > 0 ){ if (model.getValue("/root/main/cond/patnm") == "") { messageBox("ÇØ´ç ȯÀÚ¸¦", "C002"); return; } if (grp_prcpapp.visible == true){ messageBox("ó¹æÀû¿ëÀÏÀ» È®ÀÎ ÈÄ ÁøÇàÇϼ¼¿ä.", "C"); return; } //°¡Á¤°£È£ if (model.getValue("/root/main/cond/homecareyn") == "Y"){ if (model.getValue("/root/main/cond/visitdd") == ""){ var rtnval = messageBox("¹æ¹®ÀÏÀ» ¼±ÅÃÇÏÁö ¾ÊÀ¸¼Ì½À´Ï´Ù. ¹æ¹®ÀÏÀ» ó¹æÀϰú µ¿ÀÏÇÏ°Ô °è¼Ó ÁøÇàÇϽðڽÀ´Ï±î?", "S"); // return : yes=6, no=7 if(rtnval == "6"){ // yes model.makeValue("/root/main/cond/visitdd", model.getValue("/root/main/cond/prcpdd")); cmb_visitdd.refresh(); }else{ return; } } } var cnt = 0; var str = ""; for (i=0; i 0) { messageBox("[" + str + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E"); } model.refresh(); if(errRtnMsg != ""){ messageBox("¹æ¹®ÀÏÀÌ µ¿ÀÏÇÑ Ã³¹æ¿¡ ´ëÇØ¼­¸¸ Àϰý ÀúÀåÀÌ °¡´ÉÇÕ´Ï´Ù.\n" + errRtnMsg + "ó¹æÀº ¹æ¹®ÀÏÀÌ µ¿ÀÏÇÏÁö ¾Ê½À´Ï´Ù.", "C"); } } } /** * @desc : 20110626_KNUH º¸Á¶À¯Çü üũÇÏ´Â ·ÎÁ÷ * @ * @param : * @return : * @author : dark9258 2011. 6. 26 * @--------------------------------------------------- */ function fCheckSubKindCd() { var prcpgenrflag = model.getValue("/root/main/patinfocond/patinfo/ordtype"); var pid = model.getValue("/root/main/paminfo/list/pid"); var indd = model.getValue("/root/main/paminfo/list/indd"); model.makeValue("/root/temp/send/pid", pid); model.makeValue("/root/temp/send/indd", indd); if(submit("TRMMO15701")){ var nodelist = model.instances(0).selectNodes("/root/temp/patsupkind/patsupkind"); if(nodelist != null) { if(nodelist.length > 1){ clearParameter("SPMMO15700_subcretno"); modal("SPMMO15700", "", "", "", "SPMMO15700", "/root/temp/patsupkind", "/root/main/patsupkind"); var subcretno = getParameter("SPMMO15700_subcretno"); if(subcretno == "0") { var rtn = messageBox("ÁÖÀ¯ÇüÀ¸·Î ó¹æÀ» ¹ßÇàÇϽðڽÀ´Ï±î?", "Q"); if(rtn != "6") { return "false"; } } if(subcretno == null || subcretno == "") { messageBox("À¯ÇüÀ» ¼±ÅÃÇϼ¼¿ä.", "E"); return "false"; } model.makeValue("/root/temp/prcpinfo/subcretno", subcretno); } else { model.makeValue("/root/temp/prcpinfo/subcretno", "0"); } } else { model.makeValue("/root/temp/prcpinfo/subcretno", "0"); } } return "true"; } //20110828_KNUH_Start function fGetPatInfo() { var settingnurid = model.getValue("/root/main/cond/settingrnid"); if(settingnurid == null || settingnurid == "") { cmb_room.disabled = false; } else { cmb_room.disabled = true; } model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); submit("TRMNW10902", false); model.setValue("/root/main/cond/roomcd", "-"); //ÇØ´ç º´½Ç ¼ÂÆÃ cmb_room.refresh(); //ÇØ´ç º´½ÇÀÇ È¯ÀÚ Á¶È¸ model.removeNodeset("/root/send/reqdata"); model.makeNode("/root/send/reqdata"); model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd")); model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd")); model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd")); model.makeValue("/root/send/reqdata/refflag", "room"); model.makeValue("/root/send/reqdata/ordtype", "I"); model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid")); if(spcldept == model.getValue("/root/main/cond/wardcd")) { model.makeValue("/root/send/reqdata/spcldeptyn", "Y"); } else { model.makeValue("/root/send/reqdata/spcldeptyn", ""); } submit("TRMNW10903", false); model.setValue("/root/main/cond/patnm", ""); model.setValue("/root/main/cond/pid", ""); cmb_patnm.refresh(); ipt_pid.refresh(); cap_prtlnm.refresh(); } function fCalcScorHbookPrcp(){ fCalcScorHbook('prcp'); } function fCalcScorHbookPrcppos(){ fCalcScorHbook('prcppos'); } function fCalcScorHbookPrcpbf(){ fCalcScorHbook('bf'); } function fClickEr(){ if(grd_prcpposlist.colRef("erprcpflag") == grd_prcpposlist.mouseCol){ if(grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("erprcpflag")) == 'Y'){ grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("drprcpetc10"))='Y'; }else{ grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("drprcpetc10"))='N'; } } } function fprtlnm(pid){ model.makeValue("/root/send/reqdata/pid", pid); submit("TRMNW10911"); } //20110828_KNUH_End /** * @desc : º¸Çè±âÁØ Á¶È¸ * @ * @param : * @return : * @author : AYS_16.09.26_º»¿ø ½É»ç°ú ¿äû * @--------------------------------------------------- */ function fOpenInsuInfo() { prcpcd = model.getValue(sPRCPSETLIST_PATH +"[" + grd_prcplist.row + "]/prcpcd") model.makeValue("/root/temp/setparma/prcpcd", prcpcd); modal("SPPIZ01600", "1", "400", "400", "", "/root/temp/setparma/prcpcd" , "/root/send/item3/calcscorcd"); model.removenode("/root/temp/picmmech"); model.removenode("/root/temp/setparma"); }