/* - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì Àӽźΰü¸® (SPMMO09700_Àӽźΰü¸®°ü¸®.xrw - JScript ) - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì */ var sCONDITION_PATH = "/root/main/cond"; var sEXPT_INFO_PATH = "/root/main/info/exptpatinfo"; var sEXPT_LIST_PATH = "/root/main/list/exptpatlist" /** * @desc : È­¸é ÃʱâÈ­ * @ * @param : * @return : * @--------------------------------------------------- */ function fInitialize(){ zbcfGetCodeList(new Array("M0627" ), new Array("/root/init/M0627")); var sPid = getPatientInfo("pid"); if(isNull(sPid)) { messageBox ("¼±ÅÃµÈ È¯ÀÚ Á¤º¸°¡ ¾ø½À´Ï´Ù." , "E" ); window.close(); return; } model.setValue(sCONDITION_PATH + "/pid", sPid); model.setValue(sCONDITION_PATH + "/excpcls", "007"); // ÀӽźΠmodel.setValue(sCONDITION_PATH + "/srchflag", ""); fSearch(); // ÀӽźΠ¸®½ºÆ® Á¶È¸ fSelectExptPatInfo(); // ÀӽźΠÁ¤º¸ Á¶È¸ } /** * @desc : ¿¹¿ÜȯÀÚ Á¶È¸ * @ * @param : * @return : * @--------------------------------------------------- */ function fSearch(){ model.copyNode("/root/send/reqdata", sCONDITION_PATH); if(submit("TRMMO09502")){ model.resetInstanceNode(sEXPT_INFO_PATH); model.refreshpart(sEXPT_LIST_PATH); group_info.refresh(); group_list.refresh(); } } /** * @desc : ¿¹¿ÜȯÀÚÁ¤º¸ ¼±Åà - »ó¼¼ Á¤º¸¸¦ º¸¿©ÁÜ, ¼öÁ¤ÇÒ ¼ö ÀÖµµ·Ï ó¸®ÇÔ * @ * @param : * @return : * @--------------------------------------------------- */ function fSelectExptPatInfo(){ model.resetInstanceNode(sEXPT_INFO_PATH); var currow = grd_exptpatlist.row; if(currow > 0) { model.setValue(sCONDITION_PATH + "/genrdd", model.getValue(sEXPT_LIST_PATH + "[" + currow + "]/genrdd")); model.setValue(sCONDITION_PATH + "/genrno", model.getValue(sEXPT_LIST_PATH + "[" + currow + "]/genrno")); model.setValue(sCONDITION_PATH + "/histno", model.getValue(sEXPT_LIST_PATH + "[" + currow + "]/histno")); } else { model.setValue(sCONDITION_PATH + "/genrdd", ""); model.setValue(sCONDITION_PATH + "/genrno", 0); model.setValue(sCONDITION_PATH + "/histno", 0); } model.copyNode("/root/send/reqdata", sCONDITION_PATH); if(submit("TRMMO09702")){ group_info.refresh(); } } /** * @desc : ½Å±ÔÀÛ¼º ¹öư Ŭ¸¯ * @ * @param : * @return : * @--------------------------------------------------- */ function fNewRgst(){ model.resetInstanceNode(sEXPT_INFO_PATH); model.setValue(sCONDITION_PATH + "/genrdd", ""); model.setValue(sCONDITION_PATH + "/genrno", 0); model.setValue(sCONDITION_PATH + "/histno", 0); model.copyNode("/root/send/reqdata", sCONDITION_PATH); if(submit("TRMMO09702")){ group_info.refresh(); } } /** * @desc : ¿¹¿ÜȯÀÚÁ¤º¸ ÀúÀå * @ * @param : * @return : * @--------------------------------------------------- */ function fSaveExptPatInfo(){ var sStatus = model.getValue(sEXPT_INFO_PATH + "/status"); if(sStatus != "I" && sStatus != "U" && sStatus != "D") {messageBox("ó¸®ÇÒ¼ö ¾ø´Â ÀÛ¾÷ ÀÔ´Ï´Ù. \n\n½Å±Ô ÀÛ¼º ÇϽ÷Á¸é ½Å±ÔÀÛ¼º ¹öư Ŭ¸¯ÈÄ ÀúÀå Çϼ¼¿ä.", "C999"); return; } var sPid = model.getValue(sEXPT_INFO_PATH + "/pid"); if(sPid == ""){messageBox("µî·Ï¹øÈ£¸¦", "C001"); return;} var sSex = model.getValue(sEXPT_INFO_PATH + "/sex"); if(sSex == "M"){messageBox("³²ÀÚ´Â ÀӽźΠµî·ÏÀÌ ºÒ°¡´É ÇÕ´Ï´Ù.", "E999"); return;} //20170109 ¾ö¿µ¸¸ Á÷Á¾Äڵ尡 Àǻ簡 ¾Æ´Ï¸é ÀúÀå ºÒ°¡ ó¸® var jobkindcd = getUserInfo("jobkindcd"); if(!fContainsHardCD("69", jobkindcd)) { messageBox("ÀÇ»çÁ÷Á¾ÀÇ »ç¿ëÀÚ°¡ ¾Æ´Ï¹Ç·Î ÀúÀå ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E999"); return; } var excpcls = model.getValue(sEXPT_INFO_PATH + "/excpcls"); if(isNull(excpcls)){ model.setValue(sEXPT_INFO_PATH + "/excpcls", "007"); // ÀӽźΠºÐ·ù } model.copyNode("/root/send/savedata", sEXPT_INFO_PATH); if(submit("TXMMO09501")){ var rsltnode = model.instance1.selectNodes(sEXPT_LIST_PATH); if(rsltnode.length > 0){ model.setValue(sCONDITION_PATH + "/srchflag", ""); group_list.refresh(); grd_exptpatlist.row = 1; fSelectExptPatInfo(); } } }