var GRUP_TOOL_TOP_POS = 152;  // 132
var GRUP_FORM_TOP_POS = 441;  // 421

var arrbtn       = new Array("btn_tab_chos_all", "btn_prog", "btn_op", "btn_test", "btn_prcp", "btn_nurc", "btn_etc", "btn_img");
var grdObj       = "";
var ref          = "/root/main/recsrch/reclist";
var stRef        = "/root/tmp/reclist";
var paramdefault = "";
var isFirst      = "Y";
var gImgFile     = "";
var oprnerId     = "";
var srchorgcnt   = 0;
var srchcnt      = 0;
var srchendyn    = "N";

var gtmptreatno  = "";
var gtmpiformcd  = "";
var gemrpath     = "";
var gemrorddate  = "";
var gemrformnm   = "";
var gemrformcd   = "";
var gemrdeptnm   = "";
var gemrdeptcd   = "";
var gemrpage     = "";
var gemrhiddenmsg = "";

var multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
var nodeposcnt = 1;    
var prevflag = "N"; 

/**
 * @desc   : È­¸éÃʱâÈ­
 * @id     :
 * @event  : xforms-ready
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ(Æ©´×)
 */
function fInitalize()
{
    var chkPidRtn = "";
    // È­¸é Å©±â ¼¼ÆÃ
    iviewerIemr.window.javascript.setChartViewerSize(parseInt(iviewerIemr.attribute("width")), parseInt(iviewerIemr.attribute("height")));
    
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/pidynhcd", 3801);
    
    //2009-10-27 ¿ÀÈÄ 4:37:13 °­ÁöÈÆ Ãß°¡ : ºÏ¸¶Å© »ç¿ë¿©ºÎ¸¦ ±â°üº°·Î °ü¸®ÇÑ´Ù.
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/bmkuseyn", 9909);
    var bmkuseyn = model.getValue("/root/init/bmkuseyn/hardcd/hardcd");
    if (bmkuseyn == "Y")
    {
//    	btn_setbmk.visible = true;
    	btn_tab_bookmark.visible = true;
    }
    else{
//    	btn_setbmk.visible = false;
    	btn_tab_bookmark.visible = false;
    }
    
    var sUserDeptcd = getUserInfo("dutplcecd");
    var sJobkind    = getUserInfo("jobkindcd").substring(0, 2);
    
    //2010-02-05 ¿ÀÀü 9:17:04 °­ÁöÈÆ Ãß°¡ : ¿äû¹øÈ£ 10612, Task 40877  º´¿ø,°úº°·Î Ãâ·ÂºÎ¼­¸¦ Á¦ÇÑÇÑ´Ù.
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/prntuseyn", 9920);
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/prntdept", 9921);
    
    var prntuseyn = model.getValue("/root/init/prntuseyn/hardcd/hardcd");
    if (prntuseyn == "Y")
    {
    	if(model.getValue("/root/init/prntdept/hardcd[hardcd='" + sUserDeptcd + "']/hardcd") != ""){
    		btn_prnt.visible = true;    	
    	}
    	else{
    		btn_prnt.visible = false;    	
    	}
    }
    else{
    	btn_prnt.visible = true;    	
    }
    
    if(sJobkind == "03" || sUserDeptcd == "3230000000")
    {
        btn_copyprt.visible = true;
    }
    
    if (isPopup())
    {
        var parampid      = opener.window.javascript.getParameter("SMMRI00400_param_pid");
        var paramchosflag = opener.window.javascript.getParameter("SMMRI00400_param_chosflag");
        var authflag      = opener.window.javascript.getParameter("SMMRI00400_param_authflag");
        
        if (authflag == "N")
        {
            ipt_pid.disabled       = true;
            ipt_hngnm.disabled     = true;
            btn_search.disabled    = true;
            ipt_rrgstno1.disabled  = true;
            ipt_rrgstno2.disabled  = true;
            button14.disabled      = true;
            btn_prnt.disabled      = true;
        }
        else
        {
            ipt_pid.disabled       = false;
            ipt_hngnm.disabled     = false;
            btn_search.disabled    = false;
            ipt_rrgstno1.disabled  = false;
            ipt_rrgstno2.disabled  = false;
            button14.disabled      = false;
            btn_prnt.disabled      = false;
        }
    }

    if(parampid == "")
    {
        var pamInfoCvs = getGlobalVariable("paminfo");  //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö
        var pid = "";

        if(pamInfoCvs != null)
        { //cvs°¡ nullÀÌ ¾Æ´Ñ °æ¿ì¿¡¸¸ ó¸®ÇÔ.
            model.removeNodeSet ("/root/main/result/paminfo/list");
            setCSVToNode ("/root/main/result/paminfo", pamInfoCvs);

            pid = model.getValue ("/root/main/result/paminfo/list/pid");
            ordtype = model.getValue ("/root/main/result/paminfo/list/ioflag");

            if ( !isNull ( pid ) )
            {
                if(oprnerId == "SPMRC03200")
                {
                    opener.window.javascript.fGetCopyCmpPid(pid);
                }
                
                ipt_pid.value = pid;
                chkPidRtn     = fPidKeyPress();         //µî·Ï¹øÈ£·Î ȯÀÚ Á¤º¸Á¶È¸
            }
        }
    }
    else
    {
        ipt_pid.value = parampid;
        chkPidRtn     = fPidKeyPress();         //µî·Ï¹øÈ£·Î ȯÀÚ Á¤º¸Á¶È¸
    }
 
    model.setValue("/root/init/ioflag", "ALL");
    
    model.removeNodeset("/root/send");
    model.makeValue("/root/send/trgtno", 1100);
    model.makeValue("/root/send/exno", 1110);
    
    submit("TRMRI07006");
    
    //2009-11-17 ¿ÀÈÄ 5:48:29 °­ÁöÈÆ ¼öÁ¤ : ÈÙ½ºÅ©·Ñ ¸Þ¼¼Áö¹Ú½º »ç¿ë¿©ºÎ °³Àκ° ȯ°æ¼³Á¤À¸·Î °ü¸®
    model.removeNode("/root/send/interqestcd");
    model.makeNode("/root/send/interqestcd");
    var AnswData = fGetIntefeAnsw("017"); 
    model.setValue("/root/tmp/wheelmsg", AnswData);
    
    //2009-10-20 ¿ÀÈÄ 2:01:30 °­ÁöÈÆ ¼öÁ¤
    btn_tab_chos_all.selected = true;
    model.toggle("grd");
    
    if (chkPidRtn)
    {
        fGetPatOrddept();
        
        btn_tab_chos_all.dispatch("DOMActivate");
    }
}

function fInitalize_Local()
{
	fInitControl_Local("grup_left");
}

function fOnClickTab_Local(tabId)
{
	if (tabId == null) {
		tabId = event.target;
	}
	var tabCtrl = window.document.controls(tabId);
	var tabGroup = tabCtrl.attribute("group") 
	
	if (tabGroup == "tab_view") {
		if (tabId == "btn_tab_chosview") {
			fInitControl_Local("grup_form");
			grup_chos.attribute("top") = GRUP_TOOL_TOP_POS;
			grup_form.attribute("top") = grup_form.attribute("orgtop");
			
			fShowTabView_Local(true, true, false, false);
			
		} else if (tabId == "btn_tab_formview") {
			fInitControl_Local("grup_form");
			grup_form.attribute("top") = GRUP_TOOL_TOP_POS;
			var top = GRUP_TOOL_TOP_POS + parseInt(grup_form.attribute("height"));
			grup_chos.attribute("top") = top;
			
			fShowTabView_Local(true, true, false, false);
			
		} else if (tabId == "btn_tab_bookmark") {
			fInitControl_Local("trv_bookmark");
			
			grup_chos.visible = false;
			grup_form.visible = false;
			trv_bookmark.visible = true;
			grup_refdate.visible = false;
			
		} else if (tabId == "btn_tab_refdate") {
			fInitControl_Local("grup_refdate");
			grup_form.attribute("top") = GRUP_FORM_TOP_POS;
			
			fShowTabView_Local(false, true, false, true);
		} 
		
	} else if (tabGroup == "tab_form") {
		if (tabId == "btn_tab_catagory") {
			trv_favorite.visible = false;
		} else if (tabId == "btn_tab_favorite") {
			fInitControl_Local("trv_favorite");
			trv_favorite.visible = true;
		}
	} else if (tabGroup == "tab_chos") {
		if (tabId == "btn_tab_chos_all") {
		} else if (tabId == "btn_tab_chos_out") {
		} else if (tabId == "btn_tab_chos_in") {
		} else if (tabId == "btn_tab_chos_er") {
		}
	} 
}

function fShowTabView_Local(chos, form, bookMark, refdate)
{
	grup_chos.visible = chos;
	grup_form.visible = form;
	trv_bookmark.visible = bookMark;
	grup_refdate.visible = refdate;
}

function fInitControl_Local(ctrlId)
{
	if (ctrlId == "grup_form") {
		if (grup_form.attribute("initYn") != "Y") {
			grup_form.attribute("orgtop") = grup_form.attribute("top");
			grup_form.attribute("initYn") = "Y";
		}
	} else if (ctrlId == "trv_favorite") {
		if (trv_favorite.attribute("initYn") != "Y") {
			trv_favorite.attribute("left") = grd_midindx.attribute("left");
			trv_favorite.attribute("top") = grd_midindx.attribute("top");
			trv_favorite.attribute("width") = grd_midindx.attribute("width");
			trv_favorite.attribute("height") = grd_midindx.attribute("height");
			trv_favorite.attribute("initYn") = "Y";
		}
	} else if (ctrlId == "trv_bookmark") {
		if (trv_bookmark.attribute("initYn") != "Y") {
			trv_bookmark.attribute("left") = grup_chos.attribute("left");
			trv_bookmark.attribute("top") = GRUP_TOOL_TOP_POS;
			trv_bookmark.attribute("width") = grup_chos.attribute("width");
			var hei = parseInt(grup_left.attribute("height")) - GRUP_TOOL_TOP_POS;
			trv_bookmark.attribute("height") = hei;
			trv_bookmark.attribute("initYn") = "Y";
		}
	} else if (ctrlId == "ipt_rrgstno2") {
		if (ipt_rrgstno2.attribute("initYn") != "Y") {
			ipt_rrgstno2.attribute("orgwidth") = ipt_rrgstno2.attribute("width");
			ipt_rrgstno2.attribute("initYn") = "Y";
		}
	} else if (ctrlId == "grup_refdate") {
		if (grup_refdate.attribute("initYn") != "Y") {
			grup_refdate.attribute("left") = grup_chos.attribute("left");
			grup_refdate.attribute("top") = GRUP_TOOL_TOP_POS;
			grup_refdate.attribute("width") = grup_chos.attribute("width");
			grup_refdate.attribute("height") = grup_chos.attribute("height");
			grup_refdate.attribute("initYn") = "Y";
		}
	} else if (ctrlId == "grd_pathist") {
		for (var i = 1; i <= grd_pathist.rows; i++) {
    		if (grd_pathist.valueMatrix(i, grd_pathist.colref("acpthiststat")) == "X") {
    			grd_pathist.rowStyle(i, "data", "background-color") = "#c0c0c0";
    		} else {
    			grd_pathist.rowStyle(i, "data", "background-color") = "transparent";
    		}
    	}
		grd_pathist.refresh();
		
	} else if (ctrlId == "grup_left") {
		grup_left.attribute("width") = "342";   // 340 ±âÁØ
	}
}

/**
 * @desc   : ȯÀÚ¹øÈ£ Á¤º¸Á¶È¸
 * @id     :
 * @event  : onkeypress
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ(Æ©´×)
 */
function fPidKeyPress()
{
    model.removeNodeSet("/root/main/result/inform");
    model.setValue("/root/source/srchcond", "1");
    model.setValue("/root/source/pid", ipt_pid.currentText);
    model.setValue("/root/main/patinfo/patinfolist/pid", ipt_pid.currentText);
    //inputEnterKey("btn_search", "DOMActivate");

    //ȯÀÚµî·Ï¹øÈ£ üũ
    if(ipt_pid.currentText.length >= 1 )
    {
        model.resetInstanceNode("/root/main/result/patinfo");
        model.resetInstanceNode("/root/main/patinfo/patinfolist");
        //model.makeNode("/root/main/result/patinfo");

        if(submit("TRMRC00501"))
        {
            var sBindPid = model.getValue("/root/main/result/inform/item/bindpid");
            if( sBindPid != '-' && sBindPid != '' && sBindPid != ' ' )
            {
                var sPid = model.getValue("/root/main/result/inform/item/pid");
				var sHngnm = model.getValue("/root/main/result/inform/item/hngnm");
				
				var retValue = messageBox(sPid + "(" + sHngnm + ") ȯÀÚÀÇ µî·Ï¹øÈ£°¡ [ " + sBindPid + " ] ·Î ÇÕ¹ø µÇ¾ú½À´Ï´Ù. ÇÕ¹øµÈ µî·Ï¹øÈ£·Î ÀçÁ¶È¸ ÇϽðڽÀ´Ï±î?", "Q999", "");
				if( retValue == '6' )
				{
				    ipt_pid.currentText = sBindPid;
				    model.setValue("/root/source/srchcond", "1");
                    model.setValue("/root/source/pid", ipt_pid.currentText);
                    model.setValue("/root/main/patinfo/patinfolist/pid", ipt_pid.currentText);
                    
        			if (submit("TRPMC02500"))
                    {
                        //fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.
                        if( getNodesetCount("/root/main/result/patinfo/patinfolist") > 0 ){
                            model.copyNode("/root/main/patinfo", "/root/main/result/patinfo");
                            model.makeValue("/root/main/patinfo/agesex", model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age"));
                            model.setValue("/root/main/popupendflag", "ok");
                            model.refresh();
                            
                            oprnerId = opener.window.javascript.getScreenID();
                            if(oprnerId == "SPMRC03200")
                            {
                                var keyparam  = model.getValue("/root/main/patinfo/patinfolist/pid") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/hngnm") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/sex") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/age") + "¢Ì";
                                opener.window.javascript.fEnterPatinfo(keyparam);
                            }
                            //2009-10-21 ¿ÀÀü 11:40:01 °­ÁöÈÆ Ãß°¡ : ȯÀÚÀÇ ±â·ÏÀÌ ºÏ¸¶Å©¿¡ ÀÖÀ»¶§ ÅÇ»ö º¯°æ
                            fChkBookmark();
                            
                            return true;
                        }
                        else
                        {
                            model.resetInstanceNode("/root/main/patinfo/patinfolist");
                            messageBox("¾ø´Â µî·Ï¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
                            return false;
                        }
                    }
        		}
        		else
        		{
        		    
        		    var pAge = getFullAge(model.getValue("/root/main/result/inform/item/rrgstno1")+model.getValue("/root/main/result/inform/item/rrgstno2"));
        		    var pGender = getGender(model.getValue("/root/main/result/inform/item/rrgstno1")+model.getValue("/root/main/result/inform/item/rrgstno2"));
        		    model.makeValue("/root/main/patinfo/patinfolist/pid", sPid);
        		    model.makeValue("/root/main/patinfo/agesex", pGender + "/" + pAge);
        		    model.makeValue("/root/main/patinfo/patinfolist/hngnm", sHngnm);
        		    model.makeValue("/root/main/patinfo/patinfolist/rrgstno1", model.getValue("/root/main/result/inform/item/rrgstno1"));
        		    model.makeValue("/root/main/patinfo/patinfolist/rrgstno2", model.getValue("/root/main/result/inform/item/rrgstno2"));
        		    
        		    ipt_pid.refresh();
        		    ipt_hngnm.refresh();
        		    opt_age.refresh();
        		    ipt_rrgstno1.refresh();
        		    ipt_rrgstno2.refresh();
        		    
        			//È­¸é ÃʱâÈ­!!
        			//btn_init.dispatch("DOMActivate");
        			return true;
        		}
            }
            else
            {
                if (submit("TRPMC02500"))
                {
                    //fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.
                    if( getNodesetCount("/root/main/result/patinfo/patinfolist") > 0 ){
                        model.copyNode("/root/main/patinfo", "/root/main/result/patinfo");
                        model.makeValue("/root/main/patinfo/agesex", model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age"));
                        model.setValue("/root/main/popupendflag", "ok");
                        model.refresh();
                        
                        oprnerId = opener.window.javascript.getScreenID();
                        if(oprnerId == "SPMRC03200")
                        {
                            var keyparam  = model.getValue("/root/main/patinfo/patinfolist/pid") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/hngnm") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/sex") + "¢Ë" + model.getValue("/root/main/patinfo/patinfolist/age") + "¢Ì";
                            opener.window.javascript.fEnterPatinfo(keyparam);
                        }
                        
                        //2009-10-21 ¿ÀÀü 11:40:01 °­ÁöÈÆ Ãß°¡ : ȯÀÚÀÇ ±â·ÏÀÌ ºÏ¸¶Å©¿¡ ÀÖÀ»¶§ ÅÇ»ö º¯°æ
                        fChkBookmark();
                        
                        return true;
                    }
                    else
                    {
                        model.resetInstanceNode("/root/main/patinfo/patinfolist");
                        messageBox("¾ø´Â µî·Ï¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
                        return false;
                    }
                }
            }
        }
    }
    else
    {
        messageBox("µî·Ï¹øÈ£¸¦ Á¤È®È÷", "C001");
        return false;
    }
}

/**
 * @desc   : ȯÀÚÀ̸§ Á¤º¸Á¶È¸
 * @id     :
 * @event  : onkeypress
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fPnmKeyPress()
{
    model.setValue("/root/source/srchcond", "2");
	model.setValue("/root/source/hngnm", ipt_hngnm.currentText);
	inputEnterKey("btn_search", "DOMActivate");
}

/**
 * @desc   : ȯÀÚÁֹιøÈ£ Á¤º¸Á¶È¸
 * @id     :
 * @event  : onkeypress
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fRgstnoKeyPress()
{
  model.setValue("/root/source/srchcond", "3");
	model.setValue("/root/source/rrgstno1", ipt_rrgstno1.currentText);
	model.setValue("/root/source/rrgstno2", ipt_rrgstno2.value);
	
  model.makeValue("/root/source/autoflag", "Y");
	inputEnterKey("btn_search", "DOMActivate");
}


/**
 * @desc   : ȯÀÚÁֹιøÈ£ µÞÀÚ¸® Á¤º¸Á¶È¸
 * @id     :
 * @event  : onkeypress
 * @return : void
 * @authur : °­ÁöÈÆ
 */
function fRgstno2KeyPress(){
	
	if(event.keyCode == "13") {
		model.setValue("/root/source/srchcond", "3");
	  model.setValue("/root/source/rrgstno1", ipt_rrgstno1.currentText);
	  model.setValue("/root/source/rrgstno2", ipt_rrgstno2.formattedText);
	  model.makeValue("/root/source/autoflag", "Y");
		fPopPtinfo();
	}
}

/**
 * @desc   : ȯÀÚÁ¤º¸Á¶È¸ Æ˾÷
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fPopPtinfo()
{
    modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/source", "/root/send");
    model.resetInstanceNode("/root/source");
    
    //2009-11-14 ¿ÀÀü 11:57:20 °­ÁöÈÆ Ãß°¡
    model.makeValue("/root/main/patinfo/agesex", model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age"));
    opt_age.refresh();
}

/**
 * @desc   : ȯÀÚ ¼öÁøºÎ¼­ Á¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetPatOrddept()
{
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/initinfo/lrgIndx");
    model.removeNodeset("/root/initinfo/dplist");
   	model.removeNodeset("/root/main/patmedidept/list");
   	model.makeNode("/root/main/patmedidept/list");
    var cols = grd_tool_dept.cols;

	for(j=0;j<= cols;j++){
		grd_tool_dept.removeColumn(false);
	}
	 grd_tool_dept.refresh();
	
    
    model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    /*»èÁ¦¿©ºÎ üũ (üũ:Y) */
    model.makeValue("/root/send/acpt_cncl", model.getValue("/root/temp/options/in_acpt_cncl"));
    
    
    
    if (submit("TRMRI07001"))
    {
        addComboInstance("/root/initinfo", "itemindxseq^indxnm", "ALL^Àüü", "lrgIndx");
        addComboInstance("/root/initinfo", "deptcd^deptnm", "ALL^Àüü", "dplist");

				var cnt = getNodesetCnt(model, "/root/initinfo/dplist");

				for(i = 0 ; i < cnt ; i++){
					var k = ((i*2));
					var p = ((i*2)+1)
					grd_tool_dept.insertColumn(grd_tool_dept.cols, "ref:deptcd"+i+"; type:output; width:40", "after",false);
					grd_tool_dept.colHidden(k) = true;
					
					grd_tool_dept.insertColumn(grd_tool_dept.cols, "ref:deptnm"+i+"; type:output; colwidth:20;", "after",false);
					grd_tool_dept.colwidth(p) = 40;
					grd_tool_dept.dataHeight = 15;
					
					
					model.setValue("/root/main/patmedidept/list/deptcd"+i,model.getValue("/root/initinfo/dplist["+(i+1)+"]/deptcd"));
					model.setValue("/root/main/patmedidept/list/deptnm"+i,model.getValue("/root/initinfo/dplist["+(i+1)+"]/deptnm"));
				}
				
        		grd_tool_dept.refresh();
        		
        model.setValue("/root/init/orddept", model.getValue("/root/main/patmedidept/selected/deptcd"));
        model.setValue("/root/init/tabflag", "ALL");
        
//        cmb_dept.refresh();
        cmb_index.refresh();
    }
}

/**
 * @desc   : ȯÀÚ ¼öÁøÀÌ·Â Á¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ(Æ©´×)
 */
function fGetPatOrdHist(ioflag)
{
	  
    iviewerIemr.window.javascript.cleanViewer();

	//grid ÃʱâÈ­
	model.resetInstanceNode("/root/main/chartmidindx/chartmidindxlist");
	model.resetInstanceNode("/root/main/chartpathist/chartpatordhist");
	model.resetInstanceNode("/root/main/pathist/patordhist");
	model.resetInstanceNode("/root/main/midindx/midindxlist");
	

    var orddept = model.getValue("/root/init/orddept");
    var tmpioflag = "" ;
    if (ioflag == null || ioflag == "")
    {
        tmpioflag = model.getValue("/root/init/ioflag");
    }
    else
    {
        model.setValue("/root/init/ioflag", ioflag);
        tmpioflag = ioflag;
    }
    
    model.setValue("/root/init/totcnt", "");
//    lbl_totcnt.refresh();
    
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/main/pathist/patordhist");
    model.removeNodeset("/root/main/midindx/midindxlist");
    model.resetInstanceNode("/root/init/accresn");
    model.resetInstanceNode("/root/init/prtresn");
    
    model.resetInstanceNode("/root/init/itemindxseq");
    model.resetInstanceNode("/root/init/linkcd");
    model.resetInstanceNode("/root/init/midreccnt");
    model.resetInstanceNode("/root/init/reccurpos"); 
    
    model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.makeValue("/root/send/ioflag", tmpioflag);
    model.setValue("/root/init/orddept", model.getValue("/root/main/patmedidept/selected/deptcd"));
    model.makeValue("/root/send/orddeptcd", model.getValue("/root/init/orddept"));
    /*»èÁ¦¿©ºÎ üũ (üũ:Y) */
    model.makeValue("/root/send/acpt_cncl", model.getValue("/root/temp/options/in_acpt_cncl"));

	if(switch1.selectedIndex == 0){

		submit("TRMRI07002");
		
		if (ioflag == "I" || ioflag == "E")
		{
			grd_pathist.colhidden(grd_pathist.colref("centcd")) = true; //¼¾ÅÍ Ä÷³ ¾Èº¸ÀÌ°Ô
			grd_pathist.attribute("scroll") = "autovscroll";
		}
		else
		{
			grd_pathist.colhidden(grd_pathist.colref("centcd")) = false; //¼¾ÅÍ Ä÷³ º¸ÀÌ°Ô
			grd_pathist.attribute("scroll") = "auto";
		}
		grd_pathist.rebuild();
		
		fInitControl_Local("grd_pathist");
	}
	else if(switch1.selectedIndex == 1){
		fGetChartRecMidIndx(null);  // ¼­½Äº° º¸±â Áߺзù Á¶È¸
	}

}


/**
 * @desc   : ¼­½Äº° ¼­½ÄÁߺзù Á¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹Ú±¸¼ø ½Å±Ô Ãß°¡ºÐ(2010-03-11)
 */
function fGetChartRecMidIndx(ioflag){

	  
    iviewerIemr.window.javascript.cleanViewer();
    var orddept = model.getValue("/root/init/orddept");
    
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/main/chartpathist/chartpatordhist");
    model.removeNodeset("/root/main/chartmidindx/chartmidindxlist");
    model.resetInstanceNode("/root/init/accresn");
    model.resetInstanceNode("/root/init/prtresn");
    
    model.resetInstanceNode("/root/init/itemindxseq");
    model.resetInstanceNode("/root/init/linkcd");
    model.resetInstanceNode("/root/init/midreccnt");
    model.resetInstanceNode("/root/init/reccurpos"); 
    
    model.makeValue("/root/send/pid",       model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.makeValue("/root/send/tabflag",   model.getValue("/root/init/tabflag"));
    model.setValue("/root/init/orddept", model.getValue("/root/main/patmedidept/selected/deptcd"));
    model.makeValue("/root/send/orddeptcd", model.getValue("/root/init/orddept"));


    submit("TRMRI07102");

//	btn_tab2_chos_all.dispatch("onclick");



}

/**
 * @desc   : ¼­½Äº° ȯÀÚ ¼öÁøÀÌ·Â Á¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ(Æ©´×)
 */
function fGetChartPatOrdHist(ioflag)
{
    iviewerIemr.window.javascript.cleanViewer();
    var orddept = model.getValue("/root/init/orddept");
    var tmpioflag = "" ;
    if (ioflag == null || ioflag == "")
    {
        tmpioflag = model.getValue("/root/init/ioflag");
    }
    else
    {
        model.setValue("/root/init/ioflag", ioflag);
        tmpioflag = ioflag;
    }
    
    model.setValue("/root/init/totcnt", "");
//    lbl_totcnt.refresh();
    
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/main/chartpathist/chartpatordhist");
//    model.removeNodeset("/root/main/midindx/midindxlist");
//    model.resetInstanceNode("/root/init/accresn");
//    model.resetInstanceNode("/root/init/prtresn");
    
    model.resetInstanceNode("/root/init/itemindxseq");
    model.resetInstanceNode("/root/init/linkcd");
    model.resetInstanceNode("/root/init/midreccnt");
    model.resetInstanceNode("/root/init/reccurpos"); 

    model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.makeValue("/root/send/ioflag", tmpioflag);
    model.setValue("/root/init/orddept", model.getValue("/root/main/patmedidept/selected/deptcd"));

    var itemindxseq = parseInt(grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq")));    
    model.makeValue("/root/send/itemindxseq", itemindxseq);
    var itemindxseq = parseInt(grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq")));    
    model.makeValue("/root/send/itemindxseq", itemindxseq);

    model.makeValue("/root/send/orddeptcd", model.getValue("/root/init/orddept"));
    
    
    submit("TRMRI07103");
    
    if (ioflag == "I" || ioflag == "E")
    {
        grd_chart_pathist.colhidden(grd_chart_pathist.colref("centcd")) = true; //¼¾ÅÍ Ä÷³ ¾Èº¸ÀÌ°Ô
        grd_chart_pathist.attribute("scroll") = "autovscroll";
    }
    else
    {
        grd_chart_pathist.colhidden(grd_chart_pathist.colref("centcd")) = false; //¼¾ÅÍ Ä÷³ º¸ÀÌ°Ô
        grd_chart_pathist.attribute("scroll") = "auto";
    }

    grd_chart_pathist.rebuild();
    
}



/**
 * @desc   : ȯÀÚ ±â·Ï Áߺзù Á¶È¸
 * @id     :
 * @event  : ondblclick
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetRecMidIndx( grow )
{
 //p alert("fGetRecMidIndx( "+grow+" )"); //p
	var row = grow;
	if ( grow == null )
		row = grd_pathist.row;
		
    multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
    nodeposcnt = 1;    
    prevflag = "N"; 
    
    var pid = "";
	var orddd = "";
	var cretno = "";
	var orddeptcd = "";
	var tabflag = "";
	var bfopentest = ""; //2009-10-31 ¿ÀÈÄ 2:39:16 °­ÁöÈÆ Ãß°¡ : nU ¿ÀÇÂÀü °Ë»çó¹æÀÌ ÀÖ´Â ¼öÁø¿©ºÎ
	var emrflag = grd_pathist.valueMatrix(row, grd_pathist.colref("emrflag"));
	
	model.resetInstanceNode("/root/init/itemindxseq");
	model.resetInstanceNode("/root/init/linkno");
    model.resetInstanceNode("/root/init/midreccnt");
    model.resetInstanceNode("/root/init/reccurpos"); 
    
	model.setValue("/root/init/emrflag", emrflag);
	
	
	
    if((grd_pathist.isCell(event.target) && grd_pathist.mouserow >= grd_pathist.fixedrows))
	{
    	pid = grd_pathist.valueMatrix(row, grd_pathist.colref("formrecseq"));
    	orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));
    	cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));
    	orddeptcd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddeptcd"));
    	bfopentest = grd_pathist.valueMatrix(row, grd_pathist.colref("bfopentest"));
    	tabflag = model.getValue("/root/init/tabflag");
    	
    }
    else
    {
        if (row > 0)
        {
            pid = grd_pathist.valueMatrix(row, grd_pathist.colref("formrecseq"));
        	orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));
        	cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));
        	orddeptcd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddeptcd"));
        	bfopentest = grd_pathist.valueMatrix(row, grd_pathist.colref("bfopentest"));
        	tabflag = model.getValue("/root/init/tabflag");
        	
        }
        else
        {
            messageBox("ȯÀÚÀÇ ¼öÁøÀÌ·ÂÀ» ", "C002");
            return;
        }
    }
    
    var comporddd = model.getValue("/root/init/accresn/orddd");
    var compcretno = model.getValue("/root/init/accresn/cretno");
    if (compcretno == "")
    {
        compcretno = "-";
    }
    
    
    var itrgtNodeCnt = getNodesetCnt(model, "/root/hardcd/trgtdept[trgtcd = '" + orddeptcd + "']");  //»çÀ¯´ë»óºÎ¼­
    
    if (itrgtNodeCnt > 0) //°¨¿°³»°ú, Á¤½Å°ú, »êºÎÀΰú, ºñ´¢±â°ú
    {
        var sUserDeptcd = getUserInfo("dutplcecd");
        
        var iexNodeCnt = getNodesetCnt(model, "/root/hardcd/exdept[trgtcd = '" + sUserDeptcd + "']");  //»çÀ¯Á¦¿ÜºÎ¼­
        
        if ((iexNodeCnt <= 0) && (sUserDeptcd != orddeptcd) && (comporddd != orddd && compcretno != cretno))   //»ç¿ëÀÚ ±Ù¹«ºÎ¼­¿Í ȯÀÚ ¼öÁøºÎ¼­°¡ Ʋ¸°°æ¿ì »çÀ¯Ã¢ Æ˾÷, ±Ù¹«ºÎ¼­°¡ ÀÇ·áÁ¤º¸ÆÀÀÏ°æ¿ì Á¦¿Ü
        {
            model.resetInstanceNode("/root/init/accresn");
            setParameter("SPMRI03100_param_nodepath", "/root/init/accresn");
            setParameter("SPMRI03100_param_rsnflag", 'R');
// p   		modal("SPMRI03100");
    		
// p   		var valiyn = model.getValue("/root/init/accresn/valiyn");
    		
// p   		if (valiyn != "Y")
// p   		{
// p   		    return;
// p   		}
// p   		else
// p   		{
// p   		    
// p   		}
    	}    	
    	
		model.makeValue("/root/init/accresn/orddd", orddd);
        model.makeValue("/root/init/accresn/cretno", cretno);
    	
    }
    else
    {
        model.resetInstanceNode("/root/init/accresn/resncd");
        model.resetInstanceNode("/root/init/accresn/resnnm");
        model.resetInstanceNode("/root/init/accresn/etc");
        model.resetInstanceNode("/root/init/accresn/valiyn");
        model.resetInstanceNode("/root/init/accresn/orddd");
        model.resetInstanceNode("/root/init/accresn/cretno");
    }
    
    var ViewMode;
    ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");

    //if (ViewMode == null || ViewMode == "" || ViewMode != "ChartView")
    //{
	//	iviewerIemr.window.javascript.setupChart("ChartView");
	//}

/*s    if (ViewMode == null || ViewMode == "" || ViewMode != "ThumbView")
    {
		iviewerIemr.window.javascript.setupChart("ThumbView");
	}
*/
    iviewerIemr.window.javascript.cleanViewer();
    
    var ioflag = model.getValue("/root/send/ioflag");
    var refdata = "";
    var sizedata = "";

    if (emrflag == "I")
    {
        grd_midindx.caption = "lisflag^reckind^emrflag^Á¤·Ä¼ø¹ø^»óÀ§¾ÆÀÌÅÛÄÚµå^¾ÆÀÌÅÛÄÚµå^Áߺзù¸í^ÆäÀÌÁö¼ö";
    }
    else if (emrflag == "E")
    {
        grd_midindx.caption = "lisflag^reckind^emrflag^Á¤·Ä¼ø¹ø^»óÀ§¾ÆÀÌÅÛÄÚµå^¾ÆÀÌÅÛÄÚµå^Áߺзù¸í^±â·Ï¼ö";            
    }
    
    model.setValue("/root/init/totcnt", "");
//    lbl_totcnt.refresh();
    
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/main/midindx/midindxlist");
    model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.makeValue("/root/send/orddd", orddd);
    model.makeValue("/root/send/cretno", cretno);
    model.makeValue("/root/send/orddeptcd", orddeptcd);
    model.makeValue("/root/send/tabflag", tabflag);
    model.makeValue("/root/send/emrflag", emrflag);
    model.makeValue("/root/send/chosflag", grd_pathist.valueMatrix(row, grd_pathist.colref("ordtype")));
    model.makeValue("/root/send/refusge", model.getValue("/root/init/accresn/resncd"));
    model.makeValue("/root/send/refremark", model.getValue("/root/init/accresn/etc"));
    model.makeValue("/root/send/readprtflag", 'R');
    
    //2010.02.04 ¾ÈÄ¡¿ø - ÅëÇÕ±â·ÏÁ¶È¸ °Ë»çÆÄÆ® ó¹æÀÏÀÚ·Î Á¶È¸Á¶°Ç Ãß°¡
    model.makeValue("/root/send/fromprcpdd", grd_pathist.valueMatrix(row, grd_pathist.colref("orddd")));
    model.makeValue("/root/send/toprcpdd", grd_pathist.valueMatrix(row, grd_pathist.colref("dschdd")));

    
    //2009-10-31 ¿ÀÈÄ 2:36:09 °­ÁöÈÆ ¼öÁ¤ : 
    model.makeValue("/root/send/bfopentest", bfopentest);
    
	
	if(submit("TRMRI07003"))
	{
	    var midindxNodelist = model.instances(0).selectNodes("/root/main/midindx/midindxlist");
	    var itemindxseq = 0;
	    var midreccnt = 0;
	    var linkcd    = "";
        
        if (midindxNodelist.length > 0)
        {
            grd_midindx.resizeCells();
            
            var subNode = midindxNodelist.item(0);
            itemindxseq = parseInt(subNode.selectSingleNode("itemindxseq").text);
            linkcd = subNode.selectSingleNode("linkcd").text;

            midreccnt = parseInt(subNode.selectSingleNode("cnt").text);
            
            model.setValue("/root/init/itemindxseq", itemindxseq);
            model.setValue("/root/init/linkcd", linkcd);
            model.setValue("/root/init/midreccnt", midreccnt);
            model.setValue("/root/init/reccurpos", 1); 
            model.setValue("/root/init/bfopentest", bfopentest);
            grd_midindx.row = 1;
            
//            fGetDetlRec(1, row);  //pjh
        }
	}

}


function fGetChartRecPatIndx( grow )
{
	iviewerIemr.window.javascript.cleanViewer();

 //p alert("fGetRecMidIndx( "+grow+" )"); //p
	var row = grow;
	if ( grow == null )
		row = grd_chart_pathist.row;
		
    multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
    nodeposcnt = 1;    
    prevflag = "N"; 
    
    var pid = "";
	var orddd = "";
	var cretno = "";
	var orddeptcd = "";
	var tabflag = "";
	var bfopentest = ""; //2009-10-31 ¿ÀÈÄ 2:39:16 °­ÁöÈÆ Ãß°¡ : nU ¿ÀÇÂÀü °Ë»çó¹æÀÌ ÀÖ´Â ¼öÁø¿©ºÎ
	var emrflag = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("emrflag"));
	
	model.resetInstanceNode("/root/init/itemindxseq");
	model.resetInstanceNode("/root/init/linkno");
    model.resetInstanceNode("/root/init/midreccnt");
    model.resetInstanceNode("/root/init/reccurpos"); 
    
	model.setValue("/root/init/emrflag", emrflag);
	
	
	
    if((grd_chart_pathist.isCell(event.target) && grd_chart_pathist.mouserow >= grd_chart_pathist.fixedrows))
	{
    	pid = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("formrecseq"));
    	orddd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddd"));
    	cretno = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("cretno"));
    	orddeptcd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddeptcd"));
    	bfopentest = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("bfopentest"));
    	tabflag = model.getValue("/root/init/tabflag");
    	
    }
    else
    {
        if (row > 0)
        {
            pid = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("formrecseq"));
        	orddd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddd"));
        	cretno = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("cretno"));
        	orddeptcd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddeptcd"));
        	bfopentest = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("bfopentest"));
        	tabflag = model.getValue("/root/init/tabflag");
        	
        }
        else
        {
            messageBox("ȯÀÚÀÇ ¼öÁøÀÌ·ÂÀ» ", "C002");
            return;
        }
    }
    
    var comporddd = model.getValue("/root/init/accresn/orddd");
    var compcretno = model.getValue("/root/init/accresn/cretno");
    if (compcretno == "")
    {
        compcretno = "-";
    }
    
    
    var itrgtNodeCnt = getNodesetCnt(model, "/root/hardcd/trgtdept[trgtcd = '" + orddeptcd + "']");  //»çÀ¯´ë»óºÎ¼­
    
    if (itrgtNodeCnt > 0) //°¨¿°³»°ú, Á¤½Å°ú, »êºÎÀΰú, ºñ´¢±â°ú
    {
        var sUserDeptcd = getUserInfo("dutplcecd");
        
        var iexNodeCnt = getNodesetCnt(model, "/root/hardcd/exdept[trgtcd = '" + sUserDeptcd + "']");  //»çÀ¯Á¦¿ÜºÎ¼­
        
        if ((iexNodeCnt <= 0) && (sUserDeptcd != orddeptcd) && (comporddd != orddd && compcretno != cretno))   //»ç¿ëÀÚ ±Ù¹«ºÎ¼­¿Í ȯÀÚ ¼öÁøºÎ¼­°¡ Ʋ¸°°æ¿ì »çÀ¯Ã¢ Æ˾÷, ±Ù¹«ºÎ¼­°¡ ÀÇ·áÁ¤º¸ÆÀÀÏ°æ¿ì Á¦¿Ü
        {
            model.resetInstanceNode("/root/init/accresn");
            setParameter("SPMRI03100_param_nodepath", "/root/init/accresn");
            setParameter("SPMRI03100_param_rsnflag", 'R');
// p   		modal("SPMRI03100");
    		
// p   		var valiyn = model.getValue("/root/init/accresn/valiyn");
    		
// p   		if (valiyn != "Y")
// p   		{
// p   		    return;
// p   		}
// p   		else
// p   		{
// p   		    
// p   		}
    	}    	
    	
		model.makeValue("/root/init/accresn/orddd", orddd);
        model.makeValue("/root/init/accresn/cretno", cretno);
    	
    }
    else
    {
        model.resetInstanceNode("/root/init/accresn/resncd");
        model.resetInstanceNode("/root/init/accresn/resnnm");
        model.resetInstanceNode("/root/init/accresn/etc");
        model.resetInstanceNode("/root/init/accresn/valiyn");
        model.resetInstanceNode("/root/init/accresn/orddd");
        model.resetInstanceNode("/root/init/accresn/cretno");
    }
    
  
    
    var ioflag = model.getValue("/root/send/ioflag");
    var refdata = "";
    var sizedata = "";


    
    model.setValue("/root/init/totcnt", "");
//    lbl_totcnt.refresh();
    
    model.removeNodeset("/root/send");
    model.removeNodeset("/root/main/midindx/midindxlist");
    model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.makeValue("/root/send/orddd", orddd);
    model.makeValue("/root/send/cretno", cretno);
    model.makeValue("/root/send/orddeptcd", orddeptcd);
    model.makeValue("/root/send/tabflag", tabflag);
    model.makeValue("/root/send/emrflag", emrflag);
    model.makeValue("/root/send/chosflag", grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("ordtype")));
    model.makeValue("/root/send/refusge", model.getValue("/root/init/accresn/resncd"));
    model.makeValue("/root/send/refremark", model.getValue("/root/init/accresn/etc"));
    model.makeValue("/root/send/readprtflag", 'R');
    
    //2010.02.04 ¾ÈÄ¡¿ø - ÅëÇÕ±â·ÏÁ¶È¸ °Ë»çÆÄÆ® ó¹æÀÏÀÚ·Î Á¶È¸Á¶°Ç Ãß°¡
    model.makeValue("/root/send/fromprcpdd", grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddd")));
    model.makeValue("/root/send/toprcpdd", grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("dschdd")));

    
    //2009-10-31 ¿ÀÈÄ 2:36:09 °­ÁöÈÆ ¼öÁ¤ : 
    model.makeValue("/root/send/bfopentest", bfopentest);


	model.setValue("/root/init/pageindex",1);

    if((grd_chart_pathist.isCell(event.target) && grd_chart_pathist.mouserow >= grd_chart_pathist.fixedrows))
    {
              
        if (grd_chart_pathist.row >= 1)
        {
        	var linkcd = "";
            var curmidcnt = parseInt(grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("cnt")));
            var itemindxseq = parseInt(grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq")));
			//if(col =="7" && col !=""){
            //	linkcd = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("linkcd"));
			if(grd_chart_midindx.col == "7"){				
				linkcd = model.getValue("/root/main/chartmidindx/chartmidindxlist["+grd_chart_midindx.row+"]/linkcd");
			}
			//}

			//if(col !=""){  // ¿©·¯Àå ÇÑ È­¸é¿¡ º¸¿©ÁÖ±â 
            //	multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
	        //    nodeposcnt = 1;    
	        //    prevflag = "N"; 
	        //    model.setValue("/root/init/recall", "Y"); //p
   			//}

            model.setValue("/root/init/midreccnt", curmidcnt);
            model.setValue("/root/init/reccurpos", 1);
            model.setValue("/root/init/itemindxseq", itemindxseq);
            model.setValue("/root/init/linkcd", linkcd);
            
            
            model.refresh();  //pjh
            fGetChartDetlRec(grd_chart_midindx.row);    //pjh
            
            var ViewMode;
            
            ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
            
            //if (ViewMode == null || ViewMode == "" || ViewMode == "PageView")
            //{
        	//	iviewerIemr.window.javascript.setupChart("ChartView");
        	//}
        }
    }   
	
	
}




/**
 * @desc   : ¿¬¼Óº¸±â ´õºíŬ¸¯½Ã ±â·Ï rowno ¸®ÅÏ ÀÎÅÍÆäÀ̽º
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fReturnRecRowno(rowno)
{
    if (rowno != null && rowno != "" && rowno > 0)
    {
        model.setValue("/root/init/reccurpos", parseInt(rowno)); 
    }
    
    model.refresh(); //pjh
}


/**
 * @desc   : È­¸é´Ý±â(ó¹æ¿¡¼­ »ç¿ë)
 * @id     :
 * @event  : xforms-select
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClose()
{
    window.close();
}

/**
 * ¼öÁø°úÀÇ Á¶°ÇÃß°¡
 * @param deptCd
 * @return
 */
function fAddPatMediDept_Local(deptNm,deptCd)
{

	if (deptCd != "") {
		var cdPath = "/root/main/patmedidept/selected/list[deptcd='"+deptCd+"']";
		var nmPath = "/root/main/patmedidept/selected/list[deptnm='"+deptNm+"']";
		
		var cnt = getNodesetCnt(model, nmPath);
		if (cnt == 0) {
			
			if (deptCd == "ALL") {
				model.removeNodeset("/root/main/patmedidept/selected/list");
				model.makeValue("/root/main/patmedidept/selected/list[1]/deptcd", deptCd);
				model.makeValue("/root/main/patmedidept/selected/list[1]/deptnm", deptNm);
			} else {
				model.removeNodeset("/root/main/patmedidept/selected/list[deptcd='ALL']");
				cnt = getNodesetCnt(model, "/root/main/patmedidept/selected/list");
				cnt = parseInt(cnt)+1;
				
				if (cnt > 3) {
					messageBox("¼öÁø°ú ¼±ÅÃÀº 3°³¸¦ ÃÊ°ú ", "E001");
					return;
				}
				model.makeValue("/root/main/patmedidept/selected/list["+cnt+"]/deptcd", deptCd);
				model.makeValue("/root/main/patmedidept/selected/list["+cnt+"]/deptnm", deptNm);
			}
		} else {
			if (deptCd != "Àüü") {
				model.removeNodeset(cdPath);
				model.removeNodeset(nmPath);
			}
		}
		
		cnt = getNodesetCnt(model, "/root/main/patmedidept/selected/list");
		var captionCd = "";
		var captionNm = "";
		for (var i=1; i<=cnt; i++) {
			if(i==1){
				captionCd += model.getValue("/root/main/patmedidept/selected/list["+i+"]/deptcd");
			}else{
				captionCd += "|"+model.getValue("/root/main/patmedidept/selected/list["+i+"]/deptcd");
			
			}
			captionNm += model.getValue("/root/main/patmedidept/selected/list["+i+"]/deptnm") + "  ";
		}
		model.makeValue("/root/main/patmedidept/selected/deptcd", captionCd);
		model.makeValue("/root/main/patmedidept/selected/text", captionNm);
		output1.refresh();
	}
}

/**
 * @desc   : Áߺзù ´õºíŬ¸¯
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fDbClickMidIndx(col)
{	
	iviewerIemr.window.javascript.cleanViewer();

	if(model.getValue("/root/init/pageindex") == ""){
		model.setValue("/root/init/pageindex",1);
	}

    if((grd_midindx.isCell(event.target) && grd_midindx.mouserow >= grd_midindx.fixedrows))
    {
        multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
        nodeposcnt = 1;    
        prevflag = "N"; 
        
        if (grd_midindx.row >= 1)
        {
        	var linkcd = "";
            var curmidcnt = parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("cnt")));
            var itemindxseq = parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("itemindxseq")));
			if(col =="7" && col !=""){
            	//linkcd = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("linkcd"));
				linkcd = model.getValue("/root/main/midindx/midindxlist["+grd_midindx.row+"]/linkcd");
			}

			if(col !=""){  // ¿©·¯Àå ÇÑ È­¸é¿¡ º¸¿©ÁÖ±â 
            	multirecyn = "N";      //´Ù¼öÀÇ ±â·Ï ¿©ºÎ(ex.±â·Ï+À̹ÌÁö)
	            nodeposcnt = 1;    
	            prevflag = "N"; 
	            model.setValue("/root/init/recall", "Y"); //p
   			}

            model.setValue("/root/init/midreccnt", curmidcnt);
            model.setValue("/root/init/reccurpos", 1);
            model.setValue("/root/init/itemindxseq", itemindxseq);
            model.setValue("/root/init/linkcd", linkcd);
            
            
            model.refresh();  //pjh
            fGetDetlRec(grd_midindx.row);    //pjh
            
            var ViewMode;
            
            ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
            
            //if (ViewMode == null || ViewMode == "" || ViewMode == "PageView")
            //{
	       	//	iviewerIemr.window.javascript.setupChart("ChartView");
        	//}
        }
    }   
}
/**
 * @desc   : ±â·ÏÁ¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetDetlRec( row1,  row2 )
{
// p alert("fGetDetlRec"); //p
	var grd_midindxrow = row1;
	var grd_pathistrow = row2;
	
	if ( row1 == null )
		grd_midindxrow = grd_midindx.row;		
		
	if ( row2 == null )
		grd_pathistrow = grd_pathist.row;		

	if(grd_midindxrow <= 0 || grd_pathistrow <= 0){
		return;
	}
	
    var itemindxseq = parseInt(model.getValue("/root/init/itemindxseq"));  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var linkcd = model.getValue("/root/init/linkcd");  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var reccurpos = parseInt(model.getValue("/root/init/reccurpos"));  //ÇöÀç¼±Åõȱâ·Ï ¼ø¹ø
    var midreccnt = parseInt(model.getValue("/root/init/midreccnt"));  //¼±ÅÃÁߺзù ±â·Ï¼ö
    
    var bfopentest = model.getValue("/root/init/bfopentest");  //¿ÀÇ ÀÌÀü °Ë»çó¹æ ¼öÁøÀÌ·Â 
    var reckind = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("reckind"));
    
    var rowfocus = "";
    var emrflag = model.getValue("/root/init/emrflag");
    var selIndx = switch1.selectedIndex; //2009-10-20 ¿ÀÈÄ 10:00:57 °­ÁöÈÆ Ãß°¡

    if(selIndx == 1){
			
			fGetBookmarkItem();
		}
		else if(selIndx == 0){
			  
			//2009-11-18 ¿ÀÈÄ 10:14:11 °­ÁöÈÆ Ãß°¡
	    if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS"))
	    {
	    	var totcnt = "[ " + 1 + " / " + grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("cnt")) + " / " + model.getValue("/root/init/reccnt") + " ]";
	    	model.setValue("/root/init/totcnt", totcnt);
	    	//lbl_totcnt.refresh();
	    	
			var treatno = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("itemindxseq"));
			var formcd = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("supitemindxseq"));
			  
			iviewerIemr.window.javascript.cleanViewer();
			iviewerIemr.window.javascript.refreshFalse();
			  
			model.makeValue("/root/imgrec/iemr/treatno", parseInt(treatno));
			model.makeValue("/root/imgrec/iemr/docucd", formcd);
			
			
			var iemrNode = instance1.selectSingleNode("/root/imgrec/iemr");
			
			var chartinfo;
			chartinfo = "I";
			var hiddenmsg;
			hiddenmsg = "I";
			
			
			iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
			iviewerIemr.window.javascript.refreshTrue();

	    }
	    else
	    {
	    	var calcReccurpos = parseInt(model.getValue("/root/init/reccurpos"));
	    	var itemindxseq = parseInt(model.getValue("/root/init/itemindxseq"));
	    	var linkcd = model.getValue("/root/init/linkcd");
	    	var isLis = "";
	    	
	//    	for (var j = 1; j < grd_midindx.row; j++)
	//    	{
	//    		isLis = grd_midindx.valueMatrix(j, grd_midindx.colref("reckind"));
	//    		
	//    		if (isLis == "LIS")
	//    		{
	//    		    calcReccurpos -= 1;
	//    		}
	//    	}

// ÇöÀç ¼±ÅÃµÈ ºä¾î ¸ðµå È®ÀÎ



	    	model.removeNodeset("/root/send");
	        model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
	        model.makeValue("/root/send/orddd", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("orddd")));
	        model.makeValue("/root/send/cretno", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("cretno")));
	        model.makeValue("/root/send/chosflag", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("ordtype")));
	        model.makeValue("/root/send/orddeptcd", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("orddeptcd")));
	        model.makeValue("/root/send/tabflag", model.getValue("/root/init/tabflag"));
	        model.makeValue("/root/send/reccurpos", calcReccurpos);
	        model.makeValue("/root/send/recall", model.getValue("/root/init/recall"));
	        model.makeValue("/root/send/reckind", reckind);
	        model.makeValue("/root/send/itemindxseq", itemindxseq);
	        model.makeValue("/root/send/lisflag", grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("lisflag")));
	        model.makeValue("/root/send/linkcd", linkcd);
			
	       
			var ViewMode;
			ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
			if(ViewMode == "ThumbView"){
				model.makeValue("/root/send/chainyn", "Y");
			}
			else{
				model.makeValue("/root/send/chainyn", "N");
			}


	        //2010.02.04 ¾ÈÄ¡¿ø - ÅëÇÕ±â·ÏÁ¶È¸ °Ë»çÆÄÆ® ó¹æÀÏÀÚ·Î Á¶È¸Á¶°Ç Ãß°¡
	        model.makeValue("/root/send/fromprcpdd", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("orddd")));
	        model.makeValue("/root/send/toprcpdd", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("dschdd")));
	        
	        //2009-11-02 ¿ÀÈÄ 2:18:45 °­ÁöÈÆ ¼öÁ¤
	        model.makeValue("/root/send/bfopentest", bfopentest);
	        pathistEmrFlag = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("emrflag"))
	        
	        
	        if(bfopentest == "Y" && emrflag != "E"){
	        	model.makeValue("/root/send/midbftest", "Y");
	        }
	        else{
	        	model.makeValue("/root/send/midbftest", "N");
	        }

//	        if (multirecyn == "N")
//	        {
	        
	    	model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
	    	model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));

	        	if(submit("TRMRI07004"))
	            {
	                var certnodeList = instance1.selectNodes("/root/tmpinicert/iniinfo");
	                
	                if (certnodeList.length > 1 && certnodeList.length >= nodeposcnt)
	                {
	                    multirecyn = "Y";
	                    
	                    if (prevflag == "Y")
	                        nodeposcnt = certnodeList.length;
	                    else
	                        nodeposcnt = 1;                        
	                }
	                else
	                {
	                    multirecyn = "N";
	                    nodeposcnt = 1;
	                }
	    
//	                iviewerIemr.window.javascript.cleanViewer();
	                
	                if (model.getValue("/root/init/recall") == "Y")
	                {
	                    fGetNextEmrImgRec();        //Áߺзù Àüü´Â ±âÁ¸´ë·Î
	                }
	                else
	                {
	                fGetNextEmrImgRec(); 
	                    //fGetNextEmrImgRecOne();     //±â·ÏÁ¶È¸ °á°ú°¡ ¿©·¯°³ÀÎ °æ¿ì ÇÑ°³¾¿ Á¶È¸
	                }
	                
	                model.setValue("/root/init/recall", "N");
	            }
//	        }
//	        else
//	        {
//	            //iviewerIemr.window.javascript.cleanViewer();
//	            fGetNextEmrImgRec(); 
//	            //fGetNextEmrImgRecOne();     //±â·ÏÁ¶È¸ °á°ú°¡ ¿©·¯°³ÀÎ °æ¿ì ÇÑ°³¾¿ Á¶È¸
//	        }
	        
	    }
	  }
	  
}



function fGetChartDetlRec( row1,  row2 )
{
// p alert("fGetDetlRec"); //p
	var grd_chart_midindxrow = row1;
	var grd_chart_pathistrow = row2;
	
	if ( row1 == null )
		grd_chart_midindxrow = grd_chart_midindx.row;		
		
	if ( row2 == null )
		grd_chart_pathistrow = grd_chart_pathist.row;	
	
	if(grd_chart_midindxrow <= 0 || grd_chart_pathistrow <= 0){
		return;
	}
	
    var itemindxseq = parseInt(model.getValue("/root/init/itemindxseq"));  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var linkcd = model.getValue("/root/init/linkcd");  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var reccurpos = parseInt(model.getValue("/root/init/reccurpos"));  //ÇöÀç¼±Åõȱâ·Ï ¼ø¹ø
    var midreccnt = parseInt(model.getValue("/root/init/midreccnt"));  //¼±ÅÃÁߺзù ±â·Ï¼ö
    
    var bfopentest = model.getValue("/root/init/bfopentest");  //¿ÀÇ ÀÌÀü °Ë»çó¹æ ¼öÁøÀÌ·Â 
    var reckind = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("reckind"));
    
    var rowfocus = "";
    var emrflag = model.getValue("/root/init/emrflag");
    var selIndx = switch1.selectedIndex; //2009-10-20 ¿ÀÈÄ 10:00:57 °­ÁöÈÆ Ãß°¡
	//alert(selIndx)

    if(selIndx == -1){
			
			//fGetBookmarkItem();
	}
	else if(selIndx == 1){
			  
			//2009-11-18 ¿ÀÈÄ 10:14:11 °­ÁöÈÆ Ãß°¡
	    if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS"))
	    {
	    	var totcnt = "[ " + 1 + " / " + grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("cnt")) + " / " + model.getValue("/root/init/reccnt") + " ]";
	    	model.setValue("/root/init/totcnt", totcnt);
	    	//lbl_totcnt.refresh();
	    	
			var treatno = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("itemindxseq"));
			var formcd = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("supitemindxseq"));
			  
			iviewerIemr.window.javascript.cleanViewer();
			iviewerIemr.window.javascript.refreshFalse();
			  
			model.makeValue("/root/imgrec/iemr/treatno", parseInt(treatno));
			model.makeValue("/root/imgrec/iemr/docucd", formcd);
			
			var iemrNode = instance1.selectSingleNode("/root/imgrec/iemr");
			var chartinfo;
			chartinfo = "I";
			var hiddenmsg;
			hiddenmsg = "I";
			
			iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
			iviewerIemr.window.javascript.refreshTrue();

	    }
	    else
	    {
	    	var calcReccurpos = parseInt(model.getValue("/root/init/reccurpos"));
	    	var itemindxseq = parseInt(model.getValue("/root/init/itemindxseq"));
	    	var linkcd = model.getValue("/root/init/linkcd");
	    	var isLis = "";
	    	
	//    	for (var j = 1; j < grd_midindx.row; j++)
	//    	{
	//    		isLis = grd_midindx.valueMatrix(j, grd_midindx.colref("reckind"));
	//    		
	//    		if (isLis == "LIS")
	//    		{
	//    		    calcReccurpos -= 1;
	//    		}
	//    	}

	
	    	
	    	model.removeNodeset("/root/send");
	        model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
	        model.makeValue("/root/send/orddd", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("orddd")));
	        model.makeValue("/root/send/cretno", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("cretno")));
	        model.makeValue("/root/send/chosflag", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("ordtype")));
	        model.makeValue("/root/send/orddeptcd", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("orddeptcd")));
	        model.makeValue("/root/send/tabflag", model.getValue("/root/init/tabflag"));
	        model.makeValue("/root/send/reccurpos", calcReccurpos);
	        model.makeValue("/root/send/recall", model.getValue("/root/init/recall"));
	        model.makeValue("/root/send/reckind", reckind);
	        model.makeValue("/root/send/itemindxseq", itemindxseq);
	        model.makeValue("/root/send/lisflag", grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("lisflag")));
	        model.makeValue("/root/send/linkcd", linkcd);
			
			var ViewMode;
			ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");

			if(ViewMode == "ThumbView"){
				model.makeValue("/root/send/chainyn", "Y");
			}
			else{
				model.makeValue("/root/send/chainyn", "N");
			}
	        
	        //2010.02.04 ¾ÈÄ¡¿ø - ÅëÇÕ±â·ÏÁ¶È¸ °Ë»çÆÄÆ® ó¹æÀÏÀÚ·Î Á¶È¸Á¶°Ç Ãß°¡
	        model.makeValue("/root/send/fromprcpdd", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("orddd")));
	        model.makeValue("/root/send/toprcpdd", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("dschdd")));
	        
	        //2009-11-02 ¿ÀÈÄ 2:18:45 °­ÁöÈÆ ¼öÁ¤
	        model.makeValue("/root/send/bfopentest", bfopentest);
	        pathistEmrFlag = grd_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("emrflag"))
	        
	        
	        if(bfopentest == "Y" && emrflag != "E"){
	        	model.makeValue("/root/send/midbftest", "Y");
	        }
	        else{
	        	model.makeValue("/root/send/midbftest", "N");
	        }

//	        if (multirecyn == "N")
//	        {
	        
	    	model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
	    	model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));

	        	if(submit("TRMRI07004"))
	            {
	                var certnodeList = instance1.selectNodes("/root/tmpinicert/iniinfo");
	                
	                if (certnodeList.length > 1 && certnodeList.length >= nodeposcnt)
	                {
	                    multirecyn = "Y";
	                    
	                    if (prevflag == "Y")
	                        nodeposcnt = certnodeList.length;
	                    else
	                        nodeposcnt = 1;                        
	                }
	                else
	                {
	                    multirecyn = "N";
	                    nodeposcnt = 1;
	                }
	    
//	                iviewerIemr.window.javascript.cleanViewer();
	                
	                if (model.getValue("/root/init/recall") == "Y")
	                {
	                    fGetNextEmrImgRec();        //Áߺзù Àüü´Â ±âÁ¸´ë·Î
	                }
	                else
	                {
	                fGetNextEmrImgRec(); 
	                    //fGetNextEmrImgRecOne();     //±â·ÏÁ¶È¸ °á°ú°¡ ¿©·¯°³ÀÎ °æ¿ì ÇÑ°³¾¿ Á¶È¸
	                }
	                
	                model.setValue("/root/init/recall", "N");
	            }
//	        }
//	        else
//	        {
//	            //iviewerIemr.window.javascript.cleanViewer();
//	            fGetNextEmrImgRec(); 
//	            //fGetNextEmrImgRecOne();     //±â·ÏÁ¶È¸ °á°ú°¡ ¿©·¯°³ÀÎ °æ¿ì ÇÑ°³¾¿ Á¶È¸
//	        }
	        
	    }
	  }
	  
}


function goNext()
{
		//Æú´õ¸®¼Â
		fExistFolder("C:\\CertrecN", "Y");

		if(switch1.selectedIndex == 0){	//¼öÁøº°º¸±â
			if(model.getValue("/root/init/pageindex") == model.getValue("/root/tmpinicert/iniinfo/totpage"))
			{
				grd_midindx.row = grd_midindx.row + 1;

				if(grd_midindx.row >= (grd_midindx.rows-1)){
					alert("¸¶Áö¸· ¼­½ÄÀÔ´Ï´Ù.");
					return;
				}

				iviewerIemr.window.javascript.cleanViewer();

				model.setValue("/root/init/pageindex", 1);

				var curmidcnt = parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("cnt")));
				model.setValue("/root/init/midreccnt", curmidcnt);
				model.setValue("/root/init/reccurpos", 1);
				model.setValue("/root/init/itemindxseq", parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("itemindxseq"))));
				//model.setValue("/root/init/linkcd", grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("linkcd")));
				model.setValue("/root/init/linkcd", model.getValue("/root/main/midindx/midindxlist["+grd_midindx.row+"]/linkcd"));
				
				
				fGetDetlRec();
			}
			else
			{
				model.setValue("/root/init/pageindex", parseInt(model.getValue("/root/init/pageindex"))+1);
				fGetDetlRec();
			}
		}
		else if(switch1.selectedIndex == 1){	//¼­½Äº°º¸±â
			if(model.getValue("/root/init/pageindex") == model.getValue("/root/tmpinicert/iniinfo/totpage"))
			{
				
				if(grd_chart_pathist.row >= (grd_chart_pathist.rows-1)){
					alert("¸¶Áö¸· ¼öÁøÅ°ÀÔ´Ï´Ù.");
					return;
				}
				iviewerIemr.window.javascript.cleanViewer();

				grd_chart_pathist.row = grd_chart_pathist.row + 1;
				model.setValue("/root/init/pageindex", 1);

				//var curmidcnt = parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("cnt")));
				//model.setValue("/root/init/midreccnt", curmidcnt);
				//model.setValue("/root/init/reccurpos", 1);
				//model.setValue("/root/init/itemindxseq", parseInt(grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("itemindxseq"))));
				//model.setValue("/root/init/linkcd", grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("linkcd")));
				
				
				fGetChartDetlRec();
			}
			else
			{
				model.setValue("/root/init/pageindex", parseInt(model.getValue("/root/init/pageindex"))+1);
				fGetChartDetlRec();
			}
		}

}


//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/**
 * @desc   : È­¸éÇ¥½Ã ´ë»óÀÌ EMR + IMG ±â·ÏÀΰæ¿ì ó¸®
 * @id     :
 * @event  : onclick
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetNextEmrImgRec()
{
//p alert("fGetNextEmrImgRec()"); //p
    var certnodeList = instance1.selectNodes("/root/tmpinicert/iniinfo");
    var foldernm1 = "C:\\CertrecY"; //C:\\CertrecN    Y:¿©·¯ ÆäÀÌÁöº¸±â(ThumbView) N:¿¬¼Óº¸±â(ChartView) 
	var foldernm2 = "C:\\CertrecN"; //C:\\CertrecN    Y:¿©·¯ ÆäÀÌÁöº¸±â(ThumbView) N:¿¬¼Óº¸±â(ChartView) 
    var foldernm = "";
	

    var recall = model.getValue("/root/init/recall");
    
    if (certnodeList.length <= 0)
    {
        return;
    }
    else if(certnodeList.length > 1)
    {
        model.setValue("/root/init/recall", "N");
    }
    
    var emrpath = "";
    var emrorddate = "";
    var emrformnm = "";
    var emrformcd = "";
    var emrdeptnm = "";
    var emrdeptcd = "";
    var emrpage = "";
    var emrhiddenmsg = "";
    var recrowno = "";
    var k = "";
    var pid = "";
    var ptnm = "";
    var depthngnm = "";
    var deptengabbr = "";
    var rgstno = "";
    var sa = "";
    var disporddd = "";
    var orddd = "";
    var drid = "";
    var roomcd = "";
    var ordtype = "";
    var chosflag = "";
    var orddeptcd = "";
    var signflag = "";
    var imgflag = "";
    var langflag = "";
    
    var tmptreatno = "";
    var tmpiformcd = "";
    
    var signno = 0;
    var formcd = "";
    var srcformcd = "";
    var formnm = "";
    var formprogflag = "";
    var recdt = "";
    
    var recdd = "";
    
    var wardheader = "";
    var dateheader = "";
    var doctorheader = "";
    var printheader = "";
    var pageheader = "";
    var imgepath = "";
    var formrecdt = "";
    var fstrgstdt = "";
    var lastupdtdt = "";
    var staffconfirmdt = "";
    var fstrgstrusrnm = "";
    var lastupdtrusrnm = "";
    var erdt = "";
    var ervisittm = "";
    var staffnmheader = "";
    var staffnm = "";
    var emrrecusrnmheader = "";
    var emrrecusrnm = "";
    var indd = "";
    var dschdd = "";
    var inorddepthngnm = "";
    var dschorddepthngnm = "";
    var incnt = "";
    var mainyn = "";
    var rowno = "";
    var rk = "";
    var dk = "";
    
    var prtnunm = getUserInfo("usernm");
    var prtndeptnm = "";
    //var getuseren = getUserInfo("userengnm");
    
    var getdate = getCurrentDate();
	var gettime = getCurrentTime();
	
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
	
	var prtdt = dateprnt + " " + timeprnt;
    
	var ViewMode;
    ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");

	if(ViewMode == "ThumbView"){
		foldernm = foldernm1;
		fExistFolder(foldernm1, "Y");
	}
	else if(ViewMode == "ChartView"){
		foldernm = foldernm2;
		fExistFolder(foldernm2, "N");
	}
	else{
		foldernm = foldernm1;
		fExistFolder(foldernm1, "Y");
	}

    //fExistFolder(foldernm);
    
    iviewerIemr.window.javascript.refreshFalse();
	
	model.setValue("/root/init/midreccnt",model.getValue("/root/tmpinicert/iniinfo["+certnodeList.length+"]/rowno"));
	
    for(var i = 1; i <= certnodeList.length; i++)
    {

        signno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signno");
        formcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formcd");
        srcformcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/srcformcd");
        formnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formnm");
        formprogflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formprogflag");
        recdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdt");
        recdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdd");
        trans = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/trans");
        pid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/pid");
        ptnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ptnm");
        depthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/depthngnm");
        deptengabbr = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/deptengabbr");
        rgstno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/rgstno");
        sa = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/sa");
        disporddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/disporddd");
        orddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddd");
        drid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/drid");
        roomcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/roomcd");
        ordtype = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ordtype");
        chosflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/chosflag");
        orddeptcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddeptcd");
        signflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signflag");
        imgflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/imgflag");
        langflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/langflag");
        formrecdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formrecdt");
        formrecdt = formrecdt.toDate().getDateFormat("YYYY/MM/DD");
        fstrgstdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstdt");
        lastupdtdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtdt");
        staffconfirmdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffconfirmdt");
        fstrgstrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstrusrnm");
        /* 20100209-kys-µî·ÏÀÏÀÚ ¼öÁ¤ÀÏÀÚ »­
        if(fstrgstrusrnm != "")
            fstrgstrusrnm = fstrgstrusrnm + " (" + fstrgstdt + ")";
        */
        lastupdtrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtrusrnm");
        /* 20100209-kys-µî·ÏÀÏÀÚ ¼öÁ¤ÀÏÀÚ »­
        if(lastupdtrusrnm != "")
            lastupdtrusrnm = lastupdtrusrnm + " (" + lastupdtdt + ")";
        */
        erdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/erdt");
        ervisittm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ervisittm");
        staffnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffnm");
        emrrecusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/emrrecusrnm");
        indd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/indd");
        dschdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschdd");
        inorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/inorddepthngnm");
        dschorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschorddepthngnm");
        mainyn = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/mainyn");
        rowno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/rowno");
        incnt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/incnt");
        rk = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/rk");
        dk = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dk");
        
     
        if(incnt != "")
            incnt += " ȸÂ÷";
        
        
        var ininfo = indd + " / " + inorddepthngnm;
        if(erdt != "")
            ininfo += " (ÀÀ±Þ½Ç ³»¿øÀÏ : " + erdt + ")";
        var dschinfo = dschdd + " / " + dschorddepthngnm;
        
        
        var formnmarr = formnm.split("\n");
        var topformnm = "";
        var botformnm = "";
        
        if (formnmarr.length == 1)
        {
            topformnm = formnmarr[0];
        }
        else if (formnmarr.length == 2)
        {
            topformnm = formnmarr[0];
            botformnm = formnmarr[1];
        }
        else
        {
            topformnm = formnm;
        }
        
        //2009-06-02 µî·Ï¹øÈ£ "-" º´¿øº° Á¦°Å
        var pidynhcd = model.getValue("/root/init/pidynhcd/hardcd/hardcd");
        if (pidynhcd == "Y")
        {
            for(var k = pid.length; k <= 8; k++)
            {
                if(k < 8){
                    pid = "0"+pid;
                }
            }
            var str1 = pid.substr(0, 3);
            var str2 = pid.substr(3, 2);
            var str3 = pid.substr(5, 2);
            var str4 = pid.substr(7, 1);
            var tmppid = str1 + " " + str2 + " " + str3 + "-" + str4;
        }
        else
        {
            tmppid = pid;
        }        
        
        if (chosflag == "O" || chosflag == "S")
        {
            wardheader = "Áø·á°ú : ";
        }
        else
        {
            wardheader = "º´½Ç : ";
        }
        
        if (langflag == "KO")
        {
            if (chosflag == "O" || chosflag == "S")
            {
                wardheader = "Áø·á°ú : ";
            }
            else
            {
                wardheader = "º´½Ç : ";
            }
            
            dateheader = "Áø·á±â°£ : ";
            doctorheader = "ÁÖÄ¡ÀÇ : ";
            printheader = "Ãâ·Â : ";
            prtndeptnm = getUserInfo("dutplcenm");
            imgepath = "com/commonweb/images/biglogo" + getUserInfo("dutplceinstcd") + ".jpg"
            pageheader = "ÆäÀÌÁö : ";
        }
        else
        {
            if (chosflag == "O" || chosflag == "S")
            {
                wardheader = "Dept : ";
            }
            else
            {
                wardheader = "Room : ";
            }
            
            dateheader = "Date : ";
            doctorheader = "Doctor : ";
            printheader = "Print date : ";
            prtndeptnm = getUserInfo("deptengnm");
            imgepath = "com/commonweb/images/biglogo" + getUserInfo("dutplceinstcd") + "e.jpg"
            if (prtndeptnm == "" || prtndeptnm == null)
            {
                prtndeptnm = getUserInfo("dutplcenm");
            }
            pageheader = "Page : ";
        }
        
        if (imgflag == "N")
        {   
            if(trans == "")
                trans = "<html><head><title>Ãâ·ÂÈ­¸é ±¸ÇöÁßÀÔ´Ï´Ù.</title></head><body>Ãâ·ÂÈ­¸é ±¸ÇöÁßÀÔ´Ï´Ù.</body></html>";
            
            var ininm = "cmc";            
            switch(srcformcd)
            {
                case "0000000001"://¿Ü·¡ÃÊÁø
                case "0000000002"://¿Ü·¡ÀçÁø                
                case "0000000004"://ÀÔ¿ø°æ°ú
                case "0000003325"://DSC±â·Ï
                    ininm += "_0000000001.ini";
                    break;
                case "0000000003"://ÀÔ¿øÃÊÁø
                    ininm += "_0000000003.ini";
                    break;                    
                case "0000000676"://¼ö¼ú±â·Ï
                    staffnmheader = "¢Â Surgeon :";
                    /* 20100212-kys-µî·ÏÀÏÀÚ ¼öÁ¤ÀÏÀÚ »­
                    if(staffnm != "")
                        staffnm += "(" + staffconfirmdt + ")";
                    */    
                    emrrecusrnmheader = "";  
                    ininm += "_0000000676.ini";
                    break;
                case "0000003169"://Brief OP Note
                    ininm += "_0000000676.ini";
                    break;
                case "0000000680"://ÀÔÅð¿ø¿ä¾à
                    staffnmheader = "¢Â StaffÀÛ¼º ¹× È®ÀÎ :";
                    /* 20100212-kys-µî·ÏÀÏÀÚ ¼öÁ¤ÀÏÀÚ »­
                    if(staffnm != "")
                        staffnm += "(" + staffconfirmdt + ")";
                    */    
                    emrrecusrnmheader = "¢Â Àǹ«±â·Ï»ç        :"; 
                    ininm += "_0000000680.ini";
                    break;                   
                case "0000000679"://ÀÀ±Þ½Ç±â·Ï
                    ininm += "_0000000679.ini";
                    break;
                default:
                    //ininm += "_0000000001.ini";
                    if(formprogflag == "-" || formprogflag == "MAIN" || mainyn == "Y")
                        ininm += "_0000000001.ini";
                    else
                        ininm += ".ini";
                    break;
            }
            
            trans = "<!--% \n %BASE " + getDomain() + "/himed/webapps/ \n %INCLUDE emr/recmngtweb/xrw/" + ininm + " \n VAR_PAT_NUM = " + tmppid + " \n VAR_CLASS = " + ordtype + " \n VAR_CHART_NAME_TOP  = " + topformnm + " \n VAR_CHART_NAME_BOTTOM  = " + botformnm + " \n VAR_CHART_NAME_LINE  = " + formnm + " \n VAR_PAT_AGE_SEX = " + sa + " \n VAR_TREAT_DEPT = " + deptengabbr + " \n VAR_PAT_JUMIN_NO = " + rgstno + " \n VAR_PAT_NAME = " + ptnm + " \n VAR_PRINT_NAME = " + prtnunm + " \n VAR_PRINT_DEPT = " + prtndeptnm + " \n VAR_WARD_HEAD = " + wardheader + roomcd + " \n VAR_DATE_HEADER = " + dateheader + disporddd + " \n VAR_DOCTOR_HEADER = " + doctorheader + drid + " \n VAR_PRINT_HEADER = " + printheader + prtdt + " \n SYS_PAGE_HEADER = " + pageheader + " \n VAR_HOSP_IMG = " + imgepath + " \n VAR_ORDDATE = " + formrecdt + " \n VAR_ORDDEPT = " + depthngnm + " \n VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + " \n VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + " \n VAR_ERDT = " + erdt + " \n VAR_ERVISITTM = " + ervisittm + " \n VAR_STAFFNM_HEADER = " + staffnmheader + " \n VAR_STAFFNM = " + staffnm + " \n VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + " \n VAR_EMRRECUSRNM = " + emrrecusrnm + " \n VAR_ININFO = " + ininfo + " \n VAR_DSCHINFO = " + dschinfo + " \n VAR_INCNT = " + incnt + "  \n VAR_INORDDEPTHNGNM = " + inorddepthngnm + "\n %-->\n" + trans;
            
            var fso = new ActiveXObject("Scripting.FileSystemObject");
            var a = fso.CreateTextFile(foldernm + "\\" + signno + "_" + formcd + ".HTML", true, true);
            
            a.WriteLine(trans);
            //a.Write(trans);
            a.Close();

            emrpath = foldernm + "\\" + signno + "_" + formcd + ".HTML|";
            //emrorddate += orddd + "|";
            emrorddate = recdd + "|";  //±â·ÏÀÏÀ» º¸¿©´Þ¶ó´Â ÀÇ·áÁ¤º¸ÆÀ ¿äû
            emrformnm = formnm + "|";
            emrformcd = formcd + "|";
            emrdeptnm = deptengabbr + "|";
            emrdeptcd = orddeptcd + "|";
            emrpage = "1|";
            emrhiddenmsg = formcd + "¢Ë" + signno + "¢Ë" + formnm + "¢Ë" + chosflag + "¢Ë" +pid + "¢Ë" + ptnm + "¢Ë" + deptengabbr
                      + "¢Ë" + sa + "¢Ë" + rgstno + "¢Ë" + disporddd + "¢Ë" + drid + "¢Ë" + roomcd + "¢Ë" + disporddd + "¢Ë" + ordtype + "¢Ë" + "E|";
            recrowno = rowno;
            
            //¿µ»ó-EMR±¸ºÐ|ÆÄÀÏ°æ·Î|ÀÔ¿øÀÏ|¼­½ÄÁöÄÚµå|¼­½ÄÁöÀ̸§|Áø·á°úÄÚµå|Áø·á°úÀ̸§
            var chartinfo = "";
            chartinfo = "E|" + emrpath + emrorddate + emrformcd + emrformnm + emrdeptcd + emrdeptnm;
            
            model.makeValue("/root/send/iemr/treatno", "");
			model.makeValue("/root/send/iemr/docucd", "");
            
            var iemrNode = instance1.selectSingleNode("/root/imgrec/iemr");
            iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, emrhiddenmsg, recrowno);
            //iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, emrhiddenmsg);
        }
        else
        {
            tmptreatno = signno + ",";
            tmpiformcd = formcd + ",";
            emrpath = "*|";
            emrorddate = "*|";
            emrformnm = "*|";
            emrformcd = "*|";
            emrdeptnm = "*|";
            emrdeptcd = "*|";
            emrpage = "*|";
            emrhiddenmsg = "*|";
            recrowno = rowno;
            
            model.makeValue("/root/imgrec/iemr/treatno", signno);
			model.makeValue("/root/imgrec/iemr/docucd", formcd);
			
			var iemrNode = instance1.selectSingleNode("/root/imgrec/iemr");
            var chartinfo;
			chartinfo = "I";
			var hiddenmsg;
			hiddenmsg = "I";
			
			iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg, recrowno);
			//iviewerIemr.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
        }
    
    }  // fro
    
    iviewerIemr.window.javascript.refreshTrue();
}

/* @group	: Æú´õ Á¸Àç¿©ºÎ ÆľÇ
 * @ver		: 2007.01.06
 * @by		: ¹ÚÁ¾ÈÆ
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fExistFolder(foldernm, bool)
{
//p alert("fExistFolder("+foldernm+")"); //p
    var fso, folder, s;
    fso = new ActiveXObject("Scripting.FileSystemObject");

    try
    {
        folder = fso.GetFolder(foldernm);
        s = folder.DateCreated;

        if (s != "")
        {
			if(bool == "Y"){
	            fDelFolder(foldernm);				
			}
			
			if(!fso.FolderExists(foldernm)){
				fMakeFolder(foldernm);
			}

        }
    }
    catch (e)
    {
        fMakeFolder(foldernm);
    }
}

/* @group	: Æú´õ »ý¼º
 * @ver		: 2007.01.06
 * @by		: ¹ÚÁ¾ÈÆ
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fMakeFolder(foldernm)
{
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var a = fso.CreateFolder(foldernm);
}

/* @group	: Æú´õ »èÁ¦
 * @ver		: 2007.01.06
 * @by		: ¹ÚÁ¾ÈÆ
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fDelFolder(foldernm)
{
    var fso;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    fso.DeleteFolder(foldernm);
}

/**
 * @desc   : Ãâ·Â¹öÆ° Ŭ¸¯
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickPrint()
{
    var orddd = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("orddd"));
	  var cretno = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("cretno"));
	  var orddeptcd = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("orddeptcd"));
        	
    var comporddd = model.getValue("/root/init/prtresn/orddd");
    var compcretno = model.getValue("/root/init/prtresn/cretno");
    
    var itrgtNodeCnt = getNodesetCnt(model, "/root/hardcd/trgtdept[trgtcd = '" + orddeptcd + "']");  //»çÀ¯´ë»óºÎ¼­
    
    if (itrgtNodeCnt > 0) //°¨¿°³»°ú, Á¤½Å°ú, »êºÎÀΰú, ºñ´¢±â°ú
    {
        var sUserDeptcd = getUserInfo("dutplcecd");
        
        var iexNodeCnt = getNodesetCnt(model, "/root/hardcd/exdept[trgtcd = '" + sUserDeptcd + "']");  //»çÀ¯Á¦¿ÜºÎ¼­
        
        if ((iexNodeCnt <= 0) && (sUserDeptcd != orddeptcd) && (comporddd != orddd && compcretno != cretno))   //»ç¿ëÀÚ ±Ù¹«ºÎ¼­¿Í ȯÀÚ ¼öÁøºÎ¼­°¡ Ʋ¸°°æ¿ì »çÀ¯Ã¢ Æ˾÷, ±Ù¹«ºÎ¼­°¡ ÀÇ·áÁ¤º¸ÆÀÀÏ°æ¿ì Á¦¿Ü
        {
            model.resetInstanceNode("/root/init/prtresn");
            setParameter("SPMRI03100_param_nodepath", "/root/init/prtresn");
            setParameter("SPMRI03100_param_rsnflag", 'P');
//    		modal("SPMRI03100");
    		
//    		var valiyn = model.getValue("/root/init/prtresn/valiyn");
    		
//    		if (valiyn != "Y")
//   		{
//    		    return;
//    		}
//    		else
//    		{
    		    
//    		}
    	}
    	
    	model.makeValue("/root/init/prtresn/orddd", orddd);
        model.makeValue("/root/init/prtresn/cretno", cretno);
    }
    else
    {
        model.resetInstanceNode("/root/init/prtresn");
    }
    
    var appcopykey = iviewerIemr.window.javascript.setCopy(true);   //¿µ»óºä¾î¿¡¼­ÀÇ ¸®ÅÏ°ª
    
    if (appcopykey != "")
    {
        var copykey = appcopykey.split("|");
        var appkeyArr = copykey[0].split("¢Ë");
        var reckind = "";    //±â·Ï, ¿µ»ó±¸ºÐ(E/I)
        
        var tmpval = "";
        var tmpformcd = "";
        var tmptotpage = "";
        appkeyArr = "";

        var copyparam = "";
        var compsignno = "";
        var compformcd = "";
        var tmpreckind = "";
        
        var tmpdeptcd = getUserInfo("dutplcecd");
        var tmppid = model.getValue("/root/main/patinfo/patinfolist/pid")
        var tmporddd = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("orddd"));
    	  var tmpcretno = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("cretno"));
    	  var tmpchosflag = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("ordtype"));
    	  
    	  model.removeNodeSet("/root/prthist");
    	  model.makeNode("/root/prthist");
        var leng = 1;
        
        for(var i = 0; i < copykey.length; i = i + 2)
        {
            appkeyArr = copykey[i].split("¢Ë");
            reckind = appkeyArr[0];
            
            if (reckind == "I")
            {
                tmpval = appkeyArr[1];
                tmpformcd = appkeyArr[2];
                tmpreckind = "02";
                
                if (compsignno != tmpval || compformcd != tmpformcd)
                {
                    compsignno = tmpval;
                    compformcd = tmpformcd;
                }
                else
                {
                    continue;
                }
            }
            else
            {
                tmpval = appkeyArr[1];
                tmpformcd = appkeyArr[0];
                tmpreckind = "01";
                
                if (compsignno != tmpval)
                {
                    compsignno = tmpval;
                }
                else
                {
                    continue;
                }
            }
            
            if (tmpcretno == "")
                tmpcretno = 0;
            
            model.makeValue("/root/prthist[" + leng + "]/pid", tmppid);
            model.makeValue("/root/prthist[" + leng + "]/orddd", tmporddd);
            model.makeValue("/root/prthist[" + leng + "]/cretno", tmpcretno);
            model.makeValue("/root/prthist[" + leng + "]/chosflag", tmpchosflag);
            model.makeValue("/root/prthist[" + leng + "]/signno", tmpval);
            model.makeValue("/root/prthist[" + leng + "]/formcd", tmpformcd);
            model.makeValue("/root/prthist[" + leng + "]/reckind", tmpreckind);
            model.makeValue("/root/prthist[" + leng + "]/userdeptcd", tmpdeptcd);
            model.makeValue("/root/prthist[" + leng + "]/readprtflag", "P");            
            model.makeValue("/root/prthist[" + leng + "]/refusge", model.getValue("/root/init/prtresn/resncd"));
            model.makeValue("/root/prthist[" + leng + "]/refremark", model.getValue("/root/init/prtresn/etc"));
            
            leng++;
        }
        
        datagrid1.rebuild();
        
        for(var j = 1; j < datagrid1.rows; j++)
        {
            datagrid1.rowstatus(j) = 1;
        }
        
        model.removeNodeset("/root/send");
        model.makeValue("/root/send/prtlist", datagrid1.getUpdateData());
//        submit("TXMRI03001");
        
        if(iviewerIemr.window.javaScript.printChart("SMMRC03000"))
        {
    	  	messageBox("Ãâ·Â", "I001");
    	  }
    	  else
    	  {
    	  	messageBox("Ãâ·Â¿¡", "E009");
    	  }
    	  
    	  model.removeNodeSet("/root/prthist");
        model.makeNode("/root/prthist");
        datagrid1.refresh();
    }
}