var oprnerId     = "";
var BUSINESS_ID = "emr";
var MACADDR = getUserInfo("macaddr"); //"0025b361dcd6";

function sleep(milliseconds) {
	var start = new Date().getTime();
	for (var i = 0; i < 1e7; i++) {
		if ((new Date().getTime() - start) > milliseconds){
			break;
		}
	}
}

/**
 * @desc   : È­¸éÃʱâÈ­
 * @id     :
 * @event  : xforms-ready
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ(Æ©´×)
 */
function fInitalize()
{	
	model.toggle("case1");
	fEmrbrowserStart();

    var chkPidRtn = "";
    
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/pidynhcd", 3801);
    
    //2009-10-27 ¿ÀÈÄ 4:37:13 °­ÁöÈÆ Ãß°¡ : ºÏ¸¶Å© »ç¿ë¿©ºÎ¸¦ ±â°üº°·Î °ü¸®ÇÑ´Ù.
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/bmkuseyn", 9909);

	
	var sInstcd = getUserInfo("dutplceinstcd");
    var sUserDeptcd = getUserInfo("dutplcecd");
    var sJobkind    = getUserInfo("jobkindcd").substring(0, 2);

	//careplan°ú ȯÀÚ±³À°¹öÆ°Àº ¼­¿ï¼º¸ð¿¡¼­¸¸ ³ª¿À°Ô ¼öÁ¤
	if(sInstcd == "012"){
		btn_careplan.visible = true;
		btn_patedu.visible = true;
	}
    
    //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;
    }
    
	//ÀÏÀÚÁöÁ¤ ³¯Â¥¼¼ÆÃ
	model.setValue("/root/main/srchfromdd", getNewDate().getAddDate(-1, "M").getDateFormat("YYYYMMDD").substr(0, 8));
	model.setValue("/root/main/srchtodd", getCurrentDate());


    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;
        }
    }

	//2010-02-17 ¿ÀÀü 10:08:30 ÀÌȯ¼® Ãß°¡ : ÅëÇÕ±â·ÏÁ¶È¸°¡ ¿­¸± ¶§ Á¦¿Ü ºÎ¼­ ÀÌ¿Ü Keyin Á¦ÇÑ.
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/keyuseyn", 9923);
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/keydept", 9924);
    
   //2010-02-22 ¼º±ÔÈÆ Ãß°¡ : ÅëÇÕ±â·ÏÁ¶È¸½Ã Á¦¿Ü Á÷Á¾ ÀÌ¿Ü keyin Á¦ÇÑ
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/keyjob", 9927);
   //2010-03-06  ¼º±ÔÈÆ Ãß°¡ : ÅëÇÕ±â·ÏÁ¶È¸½Ã Á¦¿Ü Á÷Ã¥ ÀÌ¿Ü keyin Á¦ÇÑ    
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/keypos", 9929);
    
	var keyuseyn = model.getValue("/root/init/keyuseyn/hardcd/hardcd");
   
    var sJobkindkey = getUserInfo("jobkindcd").substring(1, 4);
    
    var sJobposkey = getUserInfo("jobposcd");
    
    if(keyuseyn  == "Y") {
		if(model.getValue("/root/init/keydept/hardcd[hardcd='" + sUserDeptcd + "']/hardcd") != "" || (model.getValue("/root/init/keyjob/hardcd[hardcd='" + sJobkindkey + "']/hardcd") != "" &&  model.getValue("/root/init/keypos/hardcd[hardcd='" + sJobposkey + "']/hardcd") != "")) {
			ipt_pid.disabled = false;
			ipt_hngnm.disabled = false;
			btn_search.disabled = false;
			ipt_rrgstno1.disabled = false;
			ipt_rrgstno2.disabled = false;
			grd_tool_dept.disabled = false;
		} else {
			ipt_pid.disabled = true;
			ipt_hngnm.disabled = true;
			btn_search.disabled = true;
			ipt_rrgstno1.disabled = true;
			ipt_rrgstno2.disabled = true;
			grd_tool_dept.disabled = true;
		}
    } else {
		ipt_pid.disabled = false;
		ipt_hngnm.disabled = false;
		btn_search.disabled = false;
		ipt_rrgstno1.disabled = false;
		ipt_rrgstno2.disabled = false;
		grd_tool_dept.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.removeNodeset("/root/send");
    model.makeValue("/root/send/trgtno", 1100);
    model.makeValue("/root/send/exno", 1110);
    
    submit("TRMRB00107");
    
    //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;

    
    if (chkPidRtn)
    {
        fGetPatOrddept();
        fGetPatOrdHist("ALL");

		model.setValue("/root/init/selecttab/maintabchos", "Y");
    }

	
}

/*
ºÎ¼­ÃʱâÈ­
*/
function fDeptStart(){
	//ºÎ¼­ ÃʱâÈ­
	model.setValue("/root/main/patmedidept/selected/deptcd", "ALL");
	model.setValue("/root/main/patmedidept/selected/text", "Àüü");
	model.resetInstanceNode("/root/main/patmedidept/list");
}

/*
°¢Á¾ node ÃʱâÈ­
È­¸é ÃʱâÈ­
*/
function fEmrbrowserStart(){
	//iviewer1.src = "../../../emr/emrBrowserWeb/xrw/SMMRB00201_EmrBrowserView.xrw";	
	
	grp_dateList.visible = false;	//ÀÏÀÚ¸ñ·Ï ¾Èº¸ÀÌ°Ô ÇÔ
	
	//grid ÃʱâÈ­
	//model.resetInstanceNode("/root/main/patinfo/patinfolist");	//ȯÀÚÁ¤º¸
	model.resetInstanceNode("/root/main/pathist/patordhist");	//¼öÁøº°º¸±â ¼öÁøÀÌ·Â
	model.resetInstanceNode("/root/main/midindx/midindxlist");	//¼öÁøº°º¸±â ¼­½Ä
	model.resetInstanceNode("/root/main/chartmidindx/chartmidindxlist");	//¼­½Äº°º¸±â ¼­½Ä
	model.resetInstanceNode("/root/main/chartpathist/chartpatordhist");		//¼­½Äº°º¸±â ¼öÁøÀÌ·Â
	model.resetInstanceNode("/root/main/bookmark");	//ºÏ¸¶Å©
	model.resetInstanceNode("/root/main/datemidindx/midindxlist");	//ÀÏÀÚº¸±â ¼­½Ä
	model.resetInstanceNode("/root/main/favorite/item");	//Áñ°Üã±â
	model.resetInstanceNode("/root/main/dateform/dateformlist");	//ÀÏÀÚ¸ñ·Ï
	
	//¼­½Ä ´ëºÐ·ù ºÐ·ù°ª ÃʱâÈ­
	model.setValue("/root/init/lrgselectord", 0)
	model.setValue("/root/init/lrgselectchard", 0);

	model.resetInstanceNode("/root/init/patrow");	//¼öÁøº°º¸±â¿¡¼­ ÇöÀç ¼±ÅÃµÈ È¯ÀÚÀÇ ¼öÁøÅ°ÀÇ row
	model.resetInstanceNode("/root/init/chartrow");	//¼­½Äº°º¸±â¿¡¼­ ÇöÀç ¼±ÅÃµÈ È¯ÀÚÀÇ ¼­½ÄÀÇrow

	//ÇöÀç ¼±ÅÃµÈ tab»óÅ ±â·ÏºÎºÐ ÃʱâÈ­
	model.setValue("/root/init/selecttab/maintabchos", "N");			//¼öÁøº°º¸±â load¿©ºÎ
	model.setValue("/root/init/selecttab/maintabchart", "N");		//¼­½Äº°º¸±â load¿©ºÎ
	model.setValue("/root/init/selecttab/maintabbookmark", "N");		//bookmark load¿©ºÎ
	model.setValue("/root/init/selecttab/maintabdate", "N");			//load¿©ºÎ
	model.setValue("/root/init/selecttab/maintabfavorite", "N");		//Áñ°Üã±â
	
	//¼öÁøº°º¸±â¿¡¼­ 'Àüü/¿Ü·¡/ÀÔ¿ø/ÀÀ±Þ'
	if(btn_tab_chos_all.selected)
		model.setValue("/root/init/selecttab/maintabchosselect1", "1");
	else if(btn_tab_chos_out.selected)
		model.setValue("/root/init/selecttab/maintabchosselect1", "2");
	else if(btn_tab_chos_in.selected)
		model.setValue("/root/init/selecttab/maintabchosselect1", "3");
	else if(btn_tab_chos_er.selected)
		model.setValue("/root/init/selecttab/maintabchosselect1", "4");
	else
		model.setValue("/root/init/selecttab/maintabchosselect1", "1");


	model.setValue("/root/init/selecttab/maintabchosselect2", "1");	//¼öÁøº°º¸±â¿¡¼­ '¼­½ÄºÐ·ù/Áñ°Üã±â'

	//¼­½Äº°º¸±â¿¡¼­ 'Àüü/¿Ü·¡/ÀÔ¿ø/ÀÀ±Þ'
	if(btn_tab2_chos_all.selected)
		model.setValue("/root/init/selecttab/maintabchartselect1", "1");
	else if(btn_tab2_chos_out.selected)
		model.setValue("/root/init/selecttab/maintabchartselect1", "2");
	else if(btn_tab2_chos_in.selected)
		model.setValue("/root/init/selecttab/maintabchartselect1", "3");
	else if(btn_tab2_chos_er.selected)
		model.setValue("/root/init/selecttab/maintabchartselect1", "4");
	else
		model.setValue("/root/init/selecttab/maintabchartselect1", "1");

	//model.setValue("/root/init/selecttab/maintabchartselect1", "1");	
	model.setValue("/root/init/ioflag", "ALL");

	
	var orddept = model.getValue("/root/init/orddept");
	
	model.setValue("/root/init/ioflag", "ALL");
	
	model.removeNodeset("/root/send");
	model.resetInstanceNode("/root/init/accresn");	
	model.resetInstanceNode("/root/init/itemindxseq");
	model.resetInstanceNode("/root/init/linkcd");
	model.resetInstanceNode("/root/init/reccurpos"); 
	
	//model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
	//model.makeValue("/root/send/ioflag", "ALL");
	model.setValue("/root/init/orddept", model.getValue("/root/main/patmedidept/selected/deptcd"));	

	model.refresh();
	
}

/*
¼öÁøº°º¸±â - ¼­½ÄºÐ·ù, Áñ°Üã±â Ŭ¸¯
*/
function fMaintabSelect(o){
	if(o == "btn_tab_catagory"){
		model.setValue("/root/init/selecttab/maintabchosselect2", "1");
		grd_midindx.visible = true;
		trv_favorite.visible = false;
		fRecBigLocation();
	}
	else{		
		model.setValue("/root/init/selecttab/maintabchosselect2", "2");
		grd_midindx.visible = false;
		trv_favorite.visible = true;
		fRecBigLocation();
		fGetMarkEmrTreeView("F");		
	}
}


/*
¼öÁøÀÌ·Â Àüü/¿Ü·¡/ÀÔ¿ø/ÀÀ±Þ º¸±â
*/
function fPatOrdHistView(ordtype){	
	if(ordtype == "") ordtype = "ALL";
	var nodeset = "";

	if(ordtype == "ALL"){
		nodeset = "/root/main/pathist/patordhist";
		model.setValue("/root/init/selecttab/maintabchosselect1", "1");

	}else{
		if(ordtype == "O"){
			model.setValue("/root/init/selecttab/maintabchosselect1", "2");
			nodeset = "/root/main/pathist/patordhist[ordtype='O']";
		}
		else if(ordtype == "I"){
			model.setValue("/root/init/selecttab/maintabchosselect1", "3");
			nodeset = "/root/main/pathist/patordhist[ordtype='I' or ordtype='D']";
		}
		else{
			model.setValue("/root/init/selecttab/maintabchosselect1", "4");
			nodeset = "/root/main/pathist/patordhist[ordtype='E']";
		}

		//nodeset = "/root/main/pathist/patordhist[ordtype='"+ordtype+"']";		
	}
	grd_pathist.nodeset = nodeset;
	grd_pathist.rebuild();

	var cnts = grd_pathist.rows;

	model.removeNodeset("/root/main/midindx/midindxlist");
	grd_midindx.rebuild();

	if(cnts > 1){	//Çì´õ°¡ Æ÷ÇԵDZ⠶§¹®¿¡
		grd_pathist.row = 1;
		fGetRecMidIndx(1);
	}
	
}

/*
¼­½Äº°º¸±â ¼öÁøÀÌ·Â Àüü/¿Ü·¡/ÀÔ¿ø/ÀÀ±Þ º¸±â
*/
function fPatChartHistView(ordtype){	
	var nodeset = "";

	if(ordtype == "ALL"){
		nodeset = "/root/main/chartpathist/chartpatordhist";
		model.setValue("/root/init/selecttab/maintabchartselect1", "1");

	}else{
		if(ordtype == "O"){
			model.setValue("/root/init/selecttab/maintabchartselect1", "2");
			nodeset = "/root/main/chartpathist/chartpatordhist[ordtype='O']";		
		}
		else if(ordtype == "I"){
			model.setValue("/root/init/selecttab/maintabchartselect1", "3");
			nodeset = "/root/main/chartpathist/chartpatordhist[ordtype='I' or ordtype='D']";		
		}
		else{
			model.setValue("/root/init/selecttab/maintabchartselect1", "4");
			nodeset = "/root/main/chartpathist/chartpatordhist[ordtype='E']";		
		}

		//nodeset = "/root/main/chartpathist/chartpatordhist[ordtype='"+ordtype+"']";		
	}
	grd_chart_pathist.nodeset = nodeset;
	grd_chart_pathist.rebuild();
}

/*
* Á¶È¸¹öÆ° Ŭ¸¯
*/
function fPatSearch(){	
	//iviewer1.window.javascript.browserInit();
	iviewer1.src = "../../../emr/emrBrowserWeb/xrw/SMMRB00201_EmrBrowserView.xrw";
	model.refresh();

	fEmrbrowserStart();	//ÃʱâÈ­
	fGetPatOrddept();
	fGetPatOrdHist("ALL");	
	
}




/**
 * @desc   : ȯÀÚ¹øÈ£ Á¤º¸Á¶È¸
 */
function fPidKeyPress()
{
	//ºÎ¼­ ÃʱâÈ­
	fDeptStart();

	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 )
    {
		fEmrbrowserStart();	//ÃʱâÈ­
        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;
    }
}

/**
 * ȯÀÚÀ̸§ Á¤º¸Á¶È¸
 */
function fPnmKeyPress()
{
	model.setValue("/root/source/srchcond", "2");
	model.setValue("/root/source/hngnm", ipt_hngnm.currentText);
	inputEnterKey("btn_search", "DOMActivate");
}

/**
* ȯÀÚÁֹιøÈ£ Á¤º¸Á¶È¸
*/
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");
}


/**
 *ȯÀÚÁֹιøÈ£ µÞÀÚ¸® Á¤º¸Á¶È¸
*/
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();
	}
}

/**
* ȯÀÚÁ¤º¸Á¶È¸ Æ˾÷
*/
function fPopPtinfo()
{
	fDeptStart();
	
	model.makeValue("/root/source/autoflag", "Y");

    modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/source", "/root/send");
    model.resetInstanceNode("/root/source");

	if(model.getValue("/root/main/popupendflag") == "ok"){

		button3.dispatch("DOMActivate");
		
		//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();
	}
}


/**
 * ¼öÁø°úÀÇ Á¶°ÇÃß°¡
 * @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();
	}
}

/**
* ȯÀÚ ¼öÁøºÎ¼­ Á¶È¸
*/
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/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
    
    
    
    if (submit("TRMRB00101"))
    {
        addComboInstance("/root/initinfo", "lrgindxseq^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/lrgindxseq", "ALL");
        
//        cmb_dept.refresh();
        cmb_index.refresh();
    }
}

/**
 * @desc   : Á¶È¸½ÃÀÛ
 * ¼öÁøº°º¸±â, ¼­½Äº°º¸±â, ºÏ¸¶Å©, ÀÏÀÚÁöÁ¤
 */
function fGetPatOrdHist(paramOrdtype){
	//¼­½Ä ´ëºÐ·ù À̵¿ ¹× ¼û±è
	fRecBigLocation();	

	if(switch1.selectedIndex == 0){	//¼öÁøº°º¸±â
		var bool = fGetPatHist(paramOrdtype);
		
		if(bool){
			//Á¶È¸µÈ ¼öÁøÅ°°¡ ÀÖÀ½ -> ¼­½Ä Á¶È¸Çϱâ
			grd_pathist.row = 1;
			model.setValue("/root/init/patrow" , "1");	//ÇöÀç ¼±ÅÃµÈ È¯ÀÚÀÇ row ¼¼ÆÃ			
			fGetRecMidIndx(1);
		}
		else{
			if(grd_pathist.rows <= 1) return;

			var patrow = model.getValue("/root/init/patrow");
			grd_pathist.row = patrow;
		}
		
		//ÇöÀç selectµÈ ¹öÆ°
		fTabSelectPresent();
	}
	else if(switch1.selectedIndex == 1){		
		var bool = fGetChartRecMidIndx();  // ¼­½Äº° º¸±â Áߺзù Á¶È¸

		if(bool){
			grd_chart_midindx.row = 1;
			grd_chart_midindx.col = 7;			
			fGetChartPatOrdHist("ALL")
		}

		//ÇöÀç selectµÈ ¹öÆ°
		fTabSelectPresent();
	}
	else if(switch1.selectedIndex == 2){			
			// ºÏ¸¶Å©
			fGetMarkEmrTreeView("B");
		
	}
	else if(switch1.selectedIndex == 3){
		fCase4Select();  // ÀÏÀÚÁöÁ¤	
	}

}

/*
ȯÀÚ ¼öÁø ºÒ·¯¿À±â
*/
function fGetPatHist(paramOrdtype){
	if(paramOrdtype == null || paramOrdtype == "") paramOrdtype = "ALL";

	if(model.getValue("/root/init/selecttab/maintabchos") == "N"){	//¼öÁøº°Á¶È¸¸¦ óÀ½ ÀÐÀ»¶§
		model.setValue("/root/init/selecttab/maintabchos", "Y");	//¼öÁøº°Á¶È¸ ÀÐÀ½ Ç¥½Ã

		model.removeNodeset("/root/send");

		/*»èÁ¦¿©ºÎ üũ (üũ:Y) */
		model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
		model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
		model.makeValue("/root/send/orddeptcd", model.getValue("/root/main/patmedidept/selected/deptcd"));
		model.makeValue("/root/send/funcflag", "pid");

		//¼öÁøÀÌ·Â
		if(submit("TRMRB00106")){
			//grd_pathist.nodeset = "/root/main/pathist/patordhist";
			//var cnts = getNodesetCnt(model, "/root/main/pathist/patordhist");
			cnts = grd_pathist.rows;
			
			if (paramOrdtype == "I" || paramOrdtype == "E")	//ÀÔ¿ø,ÀÀ±Þ
			{
				grd_pathist.colhidden(grd_pathist.colref("centnm")) = true; //¼¾ÅÍ Ä÷³ ¾Èº¸ÀÌ°Ô
				grd_pathist.attribute("scroll") = "autovscroll";
			}
			else
			{
				grd_pathist.colhidden(grd_pathist.colref("centnm")) = false; //¼¾ÅÍ Ä÷³ º¸ÀÌ°Ô
				grd_pathist.attribute("scroll") = "auto";
			}
			grd_pathist.rebuild();

			//Á¶È¸µÈ ¼öÁøÅ°°¡ ¾øÀ¸¸é ³¡³¿
			if(cnts > 1){	
				return true;
			}
			else{
				return false;
			}
		}
	}
	else{
		return false;
	}
}

/*
/root/init/selecttab ¾ÈÀÇ ³»¿ë¿¡ µû¶ó °¢ ¹öÆ°À» selected ÇÑ´Ù
*/
function fTabSelectPresent(){
	var chosSelect1 = model.getValue("/root/init/selecttab/maintabchosselect1");
	var chosSelect2 = model.getValue("/root/init/selecttab/maintabchosselect2");
	var chartSelect1 = model.getValue("/root/init/selecttab/maintabchartselect1");

	if(switch1.selectedIndex == 0){

		if(chosSelect1 == "1"){	
			btn_tab_chos_all.selected = true;	//Àüü
			btn_tab_chos_out.selected = false;	//¿Ü·¡	
			btn_tab_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chosSelect1 == "2"){
			btn_tab_chos_all.selected = false;	//Àüü
			btn_tab_chos_out.selected = true;	//¿Ü·¡	
			btn_tab_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chosSelect1 == "3"){
			btn_tab_chos_all.selected = false;	//Àüü
			btn_tab_chos_out.selected = false;	//¿Ü·¡	
			btn_tab_chos_in.selected = true;	//ÀÔ¿ø
			btn_tab_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chosSelect1 == "4"){
			btn_tab_chos_all.selected = false;	//Àüü
			btn_tab_chos_out.selected = false;	//¿Ü·¡	
			btn_tab_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab_chos_er.selected = true;	//ÀÀ±Þ
		}

		if(chosSelect2 == "1"){
			btn_tab_catagory.selected = true;	//¼­½ÄºÐ·ù
			btn_tab_favorite.selected = false;	//Áñ°Üã±â

			grd_midindx.visible = true;	//¼­½ÄºÐ·ù
			trv_favorite.visible = false;	//Áñ°Üã±â
		}
		else if(chosSelect2 == "2"){
			btn_tab_catagory.selected = false;	//¼­½ÄºÐ·ù
			btn_tab_favorite.selected = true;	//Áñ°Üã±â	

			grd_midindx.visible = false;	//¼­½ÄºÐ·ù
			trv_favorite.visible = true;	//Áñ°Üã±â
		}
	}
	else if(switch1.selectedIndex == 1){
		if(chartSelect1 == "1"){
			btn_tab2_chos_all.selected = true;	//Àüü
			btn_tab2_chos_out.selected = false;	//¿Ü·¡	
			btn_tab2_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab2_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chartSelect1 == "2"){
			btn_tab2_chos_all.selected = false;	//Àüü
			btn_tab2_chos_out.selected = true;	//¿Ü·¡	
			btn_tab2_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab2_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chartSelect1 == "3"){
			btn_tab2_chos_all.selected = false;	//Àüü
			btn_tab2_chos_out.selected = false;	//¿Ü·¡	
			btn_tab2_chos_in.selected = true;	//ÀÔ¿ø
			btn_tab2_chos_er.selected = false;	//ÀÀ±Þ
		}
		else if(chartSelect1 == "4"){
			btn_tab2_chos_all.selected = false;	//Àüü
			btn_tab2_chos_out.selected = false;	//¿Ü·¡	
			btn_tab2_chos_in.selected = false;	//ÀÔ¿ø
			btn_tab2_chos_er.selected = true;	//ÀÀ±Þ
		}
	}
}



/*
¼­½Ä ´ëºÐ·ùºäºå ¼û±è°ú À̵¿
*/
function fRecBigLocation(){	
	//¼­½Ä ´ëºÐ·ù À§Ä¡ Á¶Á¤
	if(switch1.selectedIndex == 0){	//¼öÁøº°º¸±â	
		if(model.getValue("/root/init/selecttab/maintabchosselect2") == "1"){
			//´ëºÐ·ù °ªÀ̵¿
			caption2.visible = true;
			cmb_index.visible = true;

			var val = model.getValue("/root/init/lrgselectord");
			cmb_index.selectedIndex = val;
			caption2.attribute("left") = "3px";
			caption2.attribute("top") = "395px";
			cmb_index.attribute("left") = "75px";
			cmb_index.attribute("top") = "395px";
		}
		else{
			caption2.visible = false;
			cmb_index.visible = false;
		}
	}
	else if(switch1.selectedIndex == 1){	//¼­½Äº°º¸±â
		//´ëºÐ·ù °ªÀ̵¿
		caption2.visible = true;
		cmb_index.visible = true;

		var val = model.getValue("/root/init/lrgselectchard");
		cmb_index.selectedIndex = val;
		caption2.attribute("left") = "3px";
		caption2.attribute("top") = "135px";
		cmb_index.attribute("left") = "75px";
		cmb_index.attribute("top") = "135px";
	}
	else {	//ºÏ¸¶Å©, ÀÏÀÚÁöÁ¤
		//´ëºÐ·ù °ªÀ̵¿
		caption2.visible = false;
		cmb_index.visible = false;
	}
}


/**
 * @desc   : ¼­½Äº° ¼­½ÄÁߺзù Á¶È¸
*/
function fGetChartRecMidIndx(){
	if(model.getValue("/root/init/selecttab/maintabchart") == "N"){
		model.setValue("/root/init/selecttab/maintabchart", "Y");
		model.makeNode("/root/main/chartmidindx/chartmidindxlist");			
		
		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.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
		model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
		model.makeValue("/root/send/lrgindxseq",   model.getValue("/root/init/lrgindxseq"));		
		model.makeValue("/root/send/orddeptcd", model.getValue("/root/main/patmedidept/selected/deptcd"));
		model.makeValue("/root/send/funcflag", "pid");


		if(submit("TRMRB00102")){
			var cnts = grd_chart_midindx.rows;

			if(cnts > 1){
				return true;
			}
			else{
				return false;
			}			
		}
		else{
			return false;
		}
	}
	else{
		return false;		
	}
}

/**
 ¼­½Äº° ¼­½Ä´ëºÐ·ù¼±ÅÃ
*/
function fChangeMidindxFirst(){
	var nodeset = "";
	var lrgindxseq = model.getValue("/root/init/lrgindxseq");

	if(switch1.selectedIndex == 0){
		//ÇöÀç´ëºÐ·ùÀÇ ¼±Å𪠱â·Ï
		model.setValue("/root/init/lrgselectord", cmb_index.selectedIndex);
		
		if(lrgindxseq == "ALL"){
			nodeset = "/root/main/midindx/midindxlist";
		}
		else{
			nodeset = "/root/main/midindx/midindxlist[supitemindxseq='"+lrgindxseq+"']";
		}

		grd_midindx.nodeset = nodeset;
		grd_midindx.rebuild();
	}
	else{
		model.removeNodeSet("/root/main/chartpathist/chartpatordhist");

		//ÇöÀç´ëºÐ·ùÀÇ ¼±Å𪠱â·Ï
		model.setValue("/root/init/lrgselectchard", cmb_index.selectedIndex);

		if(lrgindxseq == "ALL"){
			nodeset = "/root/main/chartmidindx/chartmidindxlist";
		}
		else{
			nodeset = "/root/main/chartmidindx/chartmidindxlist[supitemindxseq='"+lrgindxseq+"']";
		}

		grd_chart_midindx.nodeset = nodeset;
		grd_chart_midindx.rebuild();
		
		if(grd_chart_midindx.rows > 1){	//¼­½Äº°º¸±â ¼öÁøÀÌ·Â ÀÚµ¿Á¶È¸(¼ÒºÐ·ùÁ¶È¸)
			grd_chart_midindx.row = 1;
			grd_chart_midindx.col = 7;
			fGetChartPatOrdHist("ALL");
		}
	}
}


/**
 * @desc   : ¼­½Äº° ȯÀÚ ¼öÁøÀÌ·Â Á¶È¸
 */
function fGetChartPatOrdHist(paramOtdtype){
	if(paramOtdtype == null || paramOtdtype == "") paramOtdtype = "ALL";

	if((grd_chart_midindx.isCell(event.target) && grd_chart_midindx.mouserow >= grd_chart_midindx.fixedrows)){
		var midindxseq = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq"));
		var linkcd = "";
		if(grd_chart_midindx.col == "7"){
			linkcd = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("linkcd"));
		}

		model.removeNodeset("/root/send");
		model.removeNodeset("/root/main/chartpathist/chartpatordhist");
		
		model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
		model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
		model.makeValue("/root/send/ordtype", paramOtdtype);
		model.makeValue("/root/send/midindxseq", midindxseq);
		model.makeValue("/root/send/linkcd", linkcd);
		model.makeValue("/root/send/orddeptcd",  model.getValue("/root/main/patmedidept/selected/deptcd"));
	   
		if(grd_chart_midindx.row <= 0) return;

		//´õºíŬ¸¯ÇÏ¿© ¼±ÅÃµÈ ¼­½ÄÀÇ ±â·Ï¸¸ Á¶È¸Çϵµ·Ï init ¿¡ ¼±ÅÃµÈ row¸¦ ±â·ÏÇÔ
		model.setValue("/root/init/chartrow", grd_chart_midindx.row);
		model.setValue("/root/init/chartcol", grd_chart_midindx.col);

		if(grd_chart_midindx.col == "6"){	//ÁߺзùŬ¸¯
			model.makeValue("/root/send/funcflag", "midgrup");
		}
		else if(grd_chart_midindx.col == "7"){//¼ÒºÐ·ùŬ¸¯
			model.makeValue("/root/send/funcflag", "formgrup");
		}
		else{
			alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
			return;
		}
		
		submit("TRMRB00103");
		//grd_chart_pathist.nodeset = "/root/main/chartpathist/chartpatordhist";
		if (paramOtdtype == "I" || paramOtdtype == "E")
		{
			grd_chart_pathist.colhidden(grd_chart_pathist.colref("centnm")) = true; //¼¾ÅÍ Ä÷³ ¾Èº¸ÀÌ°Ô
			grd_chart_pathist.attribute("scroll") = "autovscroll";
		}
		else
		{
			grd_chart_pathist.colhidden(grd_chart_pathist.colref("centnm")) = false; //¼¾ÅÍ Ä÷³ º¸ÀÌ°Ô
			grd_chart_pathist.attribute("scroll") = "auto";
		}

		grd_chart_pathist.rebuild();
		/*
		if(grd_chart_pathist.rows > 1){
			grd_chart_pathist.row = 1;
			fGetChartRecPatIndx();
		}
		*/
	}
	else{
		var row = grd_chart_midindx.row
        if (row > 0){
			var midindxseq = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq"));
			var linkcd = "";
			if(grd_chart_midindx.col == "7"){
				linkcd = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("linkcd"));
			}

			model.removeNodeset("/root/send");
			model.removeNodeset("/root/main/chartpathist/chartpatordhist");
			
			model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
			model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
			model.makeValue("/root/send/ordtype", paramOtdtype);			
			model.makeValue("/root/send/midindxseq", midindxseq);			
			model.makeValue("/root/send/linkcd", linkcd);
			model.makeValue("/root/send/orddeptcd",  model.getValue("/root/main/patmedidept/selected/deptcd"));
			
		   
			if(grd_chart_midindx.row <= 0) return;

			//´õºíŬ¸¯ÇÏ¿© ¼±ÅÃµÈ ¼­½ÄÀÇ ±â·Ï¸¸ Á¶È¸Çϵµ·Ï init ¿¡ ¼±ÅÃµÈ row¸¦ ±â·ÏÇÔ
			model.setValue("/root/init/chartrow", grd_chart_midindx.row);
			model.setValue("/root/init/chartcol", grd_chart_midindx.col);

			if(grd_chart_midindx.col == "6"){	//ÁߺзùŬ¸¯
				model.makeValue("/root/send/funcflag", "midgrup");
			}
			else if(grd_chart_midindx.col == "7"){//¼ÒºÐ·ùŬ¸¯
				model.makeValue("/root/send/funcflag", "formgrup");
			}
			else{
				alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
				return;
			}
			
			submit("TRMRB00103");
			//grd_chart_pathist.nodeset = "/root/main/chartpathist/chartpatordhist";
			if (paramOtdtype == "I" || paramOtdtype == "E")
			{
				grd_chart_pathist.colhidden(grd_chart_pathist.colref("centnm")) = true; //¼¾ÅÍ Ä÷³ ¾Èº¸ÀÌ°Ô
				grd_chart_pathist.attribute("scroll") = "autovscroll";
			}
			else
			{
				grd_chart_pathist.colhidden(grd_chart_pathist.colref("centnm")) = false; //¼¾ÅÍ Ä÷³ º¸ÀÌ°Ô
				grd_chart_pathist.attribute("scroll") = "auto";
			}

			grd_chart_pathist.rebuild();
			
			/*
			if(grd_chart_pathist.rows > 1){
				grd_chart_pathist.row = 1;
				fGetChartRecPatIndx();
			}
			*/
		}
	}

}


 

/**
 * @desc   : ȯÀÚ ±â·Ï Áߺзù Á¶È¸
*/
function fGetRecMidIndx( grow ){

	var bool = false;

    if((grd_pathist.isCell(event.target) && grd_pathist.mouserow >= grd_pathist.fixedrows)){
		bool = true;
    }
	else{
        if (grow > 0){
			bool = true;
        }
        else{
            //messageBox("ȯÀÚÀÇ ¼öÁøÀÌ·ÂÀ» ", "C002");
            return;
        }
    }	

	if(bool){

		var row = grow;
		if ( grow == null ){		
			row = grd_pathist.row;
		}
		if(row == null) return;

		//´õºíŬ¸¯ÇÏ¿© ¼±ÅÃµÈ È¯ÀÚÀÇ ±â·Ï¸¸ Á¶È¸Çϵµ·Ï init ¿¡ ¼±ÅÃµÈ row¸¦ ±â·ÏÇÔ
		model.setValue("/root/init/patrow", row);

		

		var pid =  model.getValue("/root/main/patinfo/patinfolist/pid");
		var orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));
		var cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));
		var orddeptcd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddeptcd"));
		var bfopentest = grd_pathist.valueMatrix(row, grd_pathist.colref("bfopentest"));
		var lrgindxseq = model.getValue("/root/init/lrgindxseq");
		var ordtype = grd_pathist.valueMatrix(row, grd_pathist.colref("ordtype"));
		var emrflag = grd_pathist.valueMatrix(row, grd_pathist.colref("emrflag"));
		var ioflag = grd_pathist.valueMatrix(row, grd_pathist.colref("ioflag"));
		
		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');
				
				modal("SPMRI03100");
				
				var valiyn = model.getValue("/root/init/accresn/valiyn");
			
				if (valiyn != "Y")
				{
					return;
				}
				else
				{
					
				}
				
			}    	
			
			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");
		}
		
		

		model.removeNodeset("/root/send");
		model.removeNodeset("/root/main/midindx/midindxlist");

		model.makeValue("/root/send/pid", pid);
		model.makeValue("/root/send/orddd", orddd);
		model.makeValue("/root/send/cretno", cretno);
		model.makeValue("/root/send/orddeptcd", orddeptcd);
		model.makeValue("/root/send/lrgindxseq", lrgindxseq);
		model.makeValue("/root/send/emrflag", emrflag);
		model.makeValue("/root/send/ordtype", ordtype);
		model.makeValue("/root/send/ioflag", ioflag);
		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("dispdd1")));	//Åð¿øÀÏ

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

		if(submit("TRMRB00105")){
			grd_midindx.rebuild();
			
			/*
			if(grd_midindx.rows > 1){
				grd_midindx.row = 1;
				grd_midindx.col = 6;
				
				fDbClickMidIndx();
			}
			*/
		}

		//¼­½ÄºÐ·ù / Áñ°Üã±â ¼±ÅÃ
		var o = "";
		if(model.getValue("/root/init/selecttab/maintabchosselect2") == "1"){
			o = "btn_tab_catagory";
			
		}
		else{
			o = "btn_tab_favorite";
		}
		fMaintabSelect(o);	
		
	}	
	
}

function fGetChartRecPatIndx(grow){

    if((grd_chart_pathist.isCell(event.target) && grd_chart_pathist.mouserow >= grd_chart_pathist.fixedrows) || grd_chart_pathist.row >= 1)
	{
		
		var row = grow;
		if ( grow == null ) row = grd_chart_pathist.row;

    	var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
    	var orddd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddd"));
    	var cretno = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("cretno"));
    	var orddeptcd = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("orddeptcd"));
    	var bfopentest = grd_chart_pathist.valueMatrix(row, grd_chart_pathist.colref("bfopentest"));

		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');
				modal("SPMRI03100");
				
				var valiyn = model.getValue("/root/init/accresn/valiyn");
				
				if (valiyn != "Y")
				{
					return;
				}
				else
				{
					
				}
			}
		}

		model.makeValue("/root/init/accresn/orddd", orddd);
		model.makeValue("/root/init/accresn/cretno", cretno);

		fGetChartDetlRec(model.getValue("/root/init/chartrow"));	//´õŬŬ¸¯ÇÏ¿© ¼±ÅÃÇÑ ¼­½ÄÀÇ row
    }
}



/**
 * @desc   : ¼­½Äº°º¸±â Áߺзù ´õºíŬ¸¯
 */
function fDbClickMidIndx(){	

	
	var bool = false;

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

    if((grd_midindx.isCell(event.target) && grd_midindx.mouserow >= grd_midindx.fixedrows)){
       bool = true;
    }	
	else{
		if(grd_midindx.row >= 1){
			bool = true;
		}
	}


	if(bool){

		if (grd_midindx.row >= 1){
			var grd_midindxrow = grd_midindx.row;
			var grd_pathistrow = model.getValue("/root/init/patrow");
			
			if(grd_midindxrow <= 0 || grd_pathistrow <= 0){
				return;
			}

			
			var col = grd_midindx.col;
			
			var midindxseq = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("itemindxseq"));  //¼±ÅÃÁߺзù À妽º¼ø¹ø
			var linkcd = "";  //¼±ÅüҺзù À妽º¼ø¹ø    
			if(col =="7" && col !=""){
				linkcd =grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("linkcd"));
			}
			var bfopentest = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("bfopentest"));  //¿ÀÇ ÀÌÀü °Ë»çó¹æ ¼öÁøÀÌ·Â 
			var emrflag = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("emrflag"));
			var ioflag = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("ioflag"));
			var reckind = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("reckind"));
			var grupreckind = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("grupreckind"));
			
			var kind = "";
			if(grupreckind == "")
				kind = reckind;
			else
				kind = grupreckind;
		   

			//if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS")){	//ÀÌÀü¼­½Ä]
			if (false && emrflag == "I"){	//ÀÌÀü¼­½Ä

				//viewOldEmr("case1");	//¼öÁøº°º¸±â¿¡¼­ ÀÌÀü¼­½Äº¸±â

					
				var treatno = midindxseq;
				var formcode = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("supitemindxseq"));
				
				model.removeNodeset("/root/send");
				model.makeValue("/root/send/business_id", BUSINESS_ID);
				model.makeValue("/root/send/macaddr", MACADDR);

				model.makeValue("/root/send/reckind", "OLDEMR");
				model.makeValue("/root/send/formcode", formcode);
				model.makeValue("/root/send/treatno", treatno);
				model.makeValue("/root/send/ioflag", ioflag);
				
				if(col == "6"){	//ÁߺзùŬ¸¯
					model.makeValue("/root/send/funcflag", "midgrup");
				}
				else if(col == "7"){//¼ÒºÐ·ùŬ¸¯
					model.makeValue("/root/send/funcflag", "formgrup");
				}
				else{
					alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
					return;
				}
				
				var node = instance1.selectSingleNode("/root/send");
				fSetBrowserURL(node);
				
				
			}
			else{
				toggleViewer("1");

				model.removeNodeset("/root/send");
				model.makeValue("/root/send/business_id", BUSINESS_ID);
				model.makeValue("/root/send/macaddr", MACADDR);

				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/ioflag", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("ioflag")));
				model.makeValue("/root/send/orddeptcd", grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("orddeptcd")));
				model.makeValue("/root/send/lrgindxseq", model.getValue("/root/init/lrgindxseq"));
				
				model.makeValue("/root/send/midindxseq", midindxseq);
				model.makeValue("/root/send/examflag", grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("examflag")));
				model.makeValue("/root/send/linkcd", linkcd);
				model.makeValue("/root/send/bfopentest", bfopentest);
				model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
				//model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));
				model.makeValue("/root/send/signno", "");
				model.makeValue("/root/send/treatno", "");
				model.makeValue("/root/send/srchfromdd", model.getValue("/root/main/srchfromdd"));
				model.makeValue("/root/send/srchtodd", model.getValue("/root/main/srchtodd"));
				model.makeValue("/root/send/pidynhcd",  model.getValue("/root/init/pidynhcd/hardcd/hardcd"));				
				
				
				if(col == "6"){	//ÁߺзùŬ¸¯
					model.makeValue("/root/send/reckind", kind);
					model.makeValue("/root/send/funcflag", "midgrup");
				}
				else if(col == "7"){//¼ÒºÐ·ùŬ¸¯
					model.makeValue("/root/send/reckind", reckind);
					model.makeValue("/root/send/funcflag", "formgrup");
				}
				else{
					alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
					return;
				}
				
				var node = instance1.selectSingleNode("/root/send");
				fSetBrowserURL(node);
			}
		}
	}
}
/**
 * @desc   : ±â·ÏÁ¶È¸
 */
function fGetDetlRec( row1,  row2, col)
{
	
}

/**
 * @desc   : ³¯ÀÚÁöÁ¤ Áߺзù ´õºíŬ¸¯
 */
function fDbClickMidIndxDate(col){	
	
	if(model.getValue("/root/init/pageindex") == ""){
		model.setValue("/root/init/pageindex",1);
	}

    if((grd_datemidindx.isCell(event.target) && grd_datemidindx.mouserow >= grd_datemidindx.fixedrows))
    {
        if (grd_datemidindx.row >= 1)
        {
            fGetDetlRecDate(grd_datemidindx.row, col);
        }
    }	

	
}
/**
 * @desc   : ³¯ÀÚÁöÁ¤ ±â·ÏÁ¶È¸
 */
function fGetDetlRecDate(row1, col)
{
	var grd_datemidindxrow = row1;

	if ( row1 == null ){
		grd_datemidindxrow = grd_datemidindx.row;		
	}
	
	if ( col == null ){		
		col = grd_datemidindx.col;
	}


	
    var midindxseq = grd_datemidindx.valueMatrix(grd_datemidindxrow, grd_datemidindx.colref("itemindxseq"));  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var linkcd = "";  //¼±ÅÃÁߺзù À妽º¼ø¹ø    
	if(col =="7" && col !=""){
		linkcd =  grd_datemidindx.valueMatrix(grd_datemidindxrow, grd_datemidindx.colref("linkcd"));
	}
	var emrflag = "";
    // var bfopentest = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("bfopentest"));  //¿ÀÇ ÀÌÀü °Ë»çó¹æ ¼öÁøÀÌ·Â 
	//var ioflag = grd_pathist.valueMatrix(grd_pathistrow, grd_pathist.colref("ioflag"));
	var reckind = grd_datemidindx.valueMatrix(grd_datemidindxrow, grd_datemidindx.colref("reckind"));    
   

	//if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS")){
	if (false && emrflag == "I"){
		//viewOldEmr("case4");	//¼öÁøº°º¸±â¿¡¼­ ÀÌÀü¼­½Äº¸±â
		
		
		var treatno = midindxseq;
		var formcode = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("supitemindxseq"));
		
		model.removeNodeset("/root/send");
		model.makeValue("/root/send/business_id", BUSINESS_ID);
		model.makeValue("/root/send/macaddr", MACADDR);

		model.makeValue("/root/send/reckind", "OLDEMR");
		model.makeValue("/root/send/formcode", formcode);
		model.makeValue("/root/send/treatno", treatno);
		model.makeValue("/root/send/ioflag", ioflag);
		
		
		var node = instance1.selectSingleNode("/root/send");
		fSetBrowserURL(node);
		
	
	}
	else
	{
		toggleViewer("1");

		model.removeNodeset("/root/send");
		model.makeValue("/root/send/business_id", BUSINESS_ID);
		model.makeValue("/root/send/macaddr", MACADDR);

		model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
		model.makeValue("/root/send/orddd", "");
		model.makeValue("/root/send/cretno", "");
		model.makeValue("/root/send/chosflag", "");
		model.makeValue("/root/send/orddeptcd", "");
		model.makeValue("/root/send/lrgindxseq", "");
		model.makeValue("/root/send/reckind", reckind);
		model.makeValue("/root/send/midindxseq", midindxseq);
		model.makeValue("/root/send/examflag", grd_datemidindx.valueMatrix(grd_datemidindxrow, grd_datemidindx.colref("examflag")));
		model.makeValue("/root/send/linkcd", linkcd);
		model.makeValue("/root/send/bfopentest", "");		
		model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
		//model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));
		model.makeValue("/root/send/signno", "");
		model.makeValue("/root/send/treatno", "");
		model.makeValue("/root/send/srchfromdd", model.getValue("/root/main/srchfromdd"));
		model.makeValue("/root/send/srchtodd", model.getValue("/root/main/srchtodd"));
		model.makeValue("/root/send/pidynhcd",  model.getValue("/root/init/pidynhcd/hardcd/hardcd"));		
		model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
		model.makeValue("/root/send/orddeptcd", model.getValue("/root/main/patmedidept/selected/deptcd"));

		model.makeValue("/root/send/funcflag", "srchrecdd");		
		
		var node = instance1.selectSingleNode("/root/send");
		fSetBrowserURL(node);

		
	}
}

function fSetBrowserURL(nd){
	iviewer1.window.javascript.goUrl(nd);
}


function fGetChartDetlRec(row1,  row2, col)
{
	var grd_chart_midindxrow = row1;
	var grd_chart_pathistrow = row2;
	
	if ( row1 == null )
		grd_chart_midindxrow = model.getValue("/root/init/chartrow");		//´õºíŬ¸¯ÇÏ¿© ¼±ÅÃÇÑ Áߺзù
		
	if ( row2 == null )
		grd_chart_pathistrow = grd_chart_pathist.row;	
	
	if(grd_chart_midindxrow <= 0 || grd_chart_pathistrow <= 0){
		return;
	}
	
	if ( col == null )
		col = model.getValue("/root/init/chartcol");		//´õºíŬ¸¯ÇÏ¿© ¼±ÅÃÇÑ Áߺзù
	
    var midindxseq = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("itemindxseq"));  //¼±ÅÃÁߺзù À妽º¼ø¹ø
    var linkcd = "";  //¼±ÅÃÁߺзù À妽º¼ø¹ø    
	if(col =="7" && col !=""){
		linkcd =grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("linkcd"));
	}
    
    var bfopentest =grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("bfopentest"));  //¿ÀÇ ÀÌÀü °Ë»çó¹æ ¼öÁøÀÌ·Â
	var emrflag = grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("emrflag"));
	var ioflag = grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("ioflag"));
    var reckind = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("reckind"));
	var grupreckind = grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("grupreckind"));
			  
	
	var kind = "";
	if(grupreckind == "")
		kind = reckind;
	else
		kind = grupreckind;

	//if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS")){
	if (false && emrflag == "I"){
		
		//viewOldEmr("case2");
		
		
		var treatno = midindxseq;
		var formcode = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("supitemindxseq"));
		
		model.removeNodeset("/root/send");
		model.makeValue("/root/send/business_id", BUSINESS_ID);
		model.makeValue("/root/send/macaddr", MACADDR);

		model.makeValue("/root/send/reckind", "OLDEMR");
		model.makeValue("/root/send/formcode", formcode);
		model.makeValue("/root/send/treatno", treatno);
		model.makeValue("/root/send/ioflag", ioflag);
		
		
		var node = instance1.selectSingleNode("/root/send");
		fSetBrowserURL(node);
		
		
	}
	else
	{
		toggleViewer("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/ioflag", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("ioflag")));
		model.makeValue("/root/send/orddeptcd", grd_chart_pathist.valueMatrix(grd_chart_pathistrow, grd_chart_pathist.colref("orddeptcd")));
		model.makeValue("/root/send/lrgindxseq", model.getValue("/root/init/lrgindxseq"));
		
		model.makeValue("/root/send/midindxseq", midindxseq);
		model.makeValue("/root/send/examflag", grd_chart_midindx.valueMatrix(grd_chart_midindxrow, grd_chart_midindx.colref("examflag")));
		model.makeValue("/root/send/linkcd", linkcd);			
		model.makeValue("/root/send/bfopentest", bfopentest);
		model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
		//model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));
		model.makeValue("/root/send/pidynhcd",  model.getValue("/root/init/pidynhcd/hardcd/hardcd"));
		model.makeValue("/root/send/business_id", BUSINESS_ID);
		model.makeValue("/root/send/macaddr", MACADDR);

		if(col == "6"){	//ÁߺзùŬ¸¯
			model.makeValue("/root/send/reckind", kind);
			model.makeValue("/root/send/funcflag", "midgrup");
		}
		else if(col == "7"){//¼ÒºÐ·ùŬ¸¯
			model.makeValue("/root/send/reckind", reckind);
			model.makeValue("/root/send/funcflag", "formgrup");
		}
		else{
			alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
			return;
		}

		var node = instance1.selectSingleNode("/root/send");
		fSetBrowserURL(node);
	}
}

/*
Print
*/
function fPrintPreview(){

	var instcd = getUserInfo("dutplceinstcd");
	var sUserDeptcd = getUserInfo("dutplcecd");
	var pidynhcd = model.getValue("/root/init/pidynhcd/hardcd/hardcd");
	var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	var hngnm = model.getValue("/root/main/patinfo/patinfolist/hngnm");
	var rrgstno1 = model.getValue("/root/main/patinfo/patinfolist/rrgstno1");
	var rrgstno2 = model.getValue("/root/main/patinfo/patinfolist/rrgstno2");

	//ÁֹιøÈ£
	var rrgstno = rrgstno1 + "-" + rrgstno2.substring(0,1) + "******";

	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(sUserDeptcd == "3230000000"){	//3230000000 : ÀÇ·áÁ¤º¸ÆÀ¸¸ ÇÁ¸°Æ®
		iviewer1.window.javascript.fPrintPreview(tmppid, hngnm, rrgstno);
	}
	else{
		alert("°³¹ßÁßÀÔ´Ï´Ù.");
	}
}


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 = "asas";//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();
    }
}

/* Áñ°Üã±â Á¶È¸ ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fGetMarkEmrTreeView(dataflag) {

	//Áñ°Üã±â Æ®¸®ºä´Â ȯÀÚ°¡ Á¶È¸µÇ¾îÀÖ¾î¾ß¸¸ Á¶È¸µÈ´Ù.
	var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	var orddd = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colRef("orddd"));
    var cretno = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colRef("cretno"));
    
	if(pid == ""){
    	messageBox("¼±ÅÃµÈ È¯ÀÚ°¡","I004");	   
	    model.setFocus("ipt_pid");
    	return;
	}
	else{
		if(dataflag == "B"){	//ºÏ¸¶Å©
			if(model.getValue("/root/init/selecttab/maintabbookmark") == "N"){	//ºÏ¸¶Å© óÀ½ ÀÐÀ»¶§
				model.setValue("/root/init/selecttab/maintabbookmark", "Y");	//ºÏ¸¶Å© ÀÐÀ½ Ç¥½Ã	
				
				model.removenode("/root/send/markpara");			
				model.makeValue("/root/send/markpara/pid", pid);			
				model.makeValue("/root/send/markpara/dataflag", dataflag);				
				
				//InstanceÃʱâÈ­
				model.removeNode("/root/main/bookmark");
				model.makeNode("/root/main/bookmark");
					
				//send Node ¼³Á¤		
				if(submit("TRMRB00119")){
					treeview1.mergecol(1)=false; 
					treeview1.mergecells="byrestriccol"; 
					treeview1.refresh();					
				}
			}
		}
		else{
			if(model.getValue("/root/init/selecttab/maintabfavorite") == "N"){
				model.setValue("/root/init/selecttab/maintabfavorite", "Y");

				model.removenode("/root/send/markpara");			
				model.makeValue("/root/send/markpara/dataflag", dataflag);
				
				//InstanceÃʱâÈ­
				model.removeNode("/root/main/favorite");
				model.makeNode("/root/main/favorite");
					
				//send Node ¼³Á¤		
				if(submit("TRMRB00114")){
					trv_favorite.mergecol(1)=false; 
					trv_favorite.mergecells="byrestriccol"; 
					trv_favorite.refresh();
				}
			}
		}
		
	}

}
/* Áñ°Üã±â Á¶È¸ ÇÔ¼ö Ãß°¡ Á¾·á */

/* ¼­½Ä Áñ°Üã±â ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fRegFavoriteChartMidIndx() {

	var dataflag = "F";
	var appcopykey = "";
	var row = null;
	var col = null;
	var itemnm = "";
	var tab_gb = "";
	
	if ( btn_tab_chosview.selected == true ) tab_gb = "PATHIST";
	else if ( btn_tab_formview.selected == true ) tab_gb = "CHART";
	else return;

	// ȯÀÚ ¼öÁøÁ¤º¸ Á¶È¸	
	var pid = model.getValue("/root/send/pid");
	var orddd = model.getValue("/root/send/orddd");
    var cretno = model.getValue("/root/send/cretno");
    var deptcd = model.getValue("/root/send/orddeptcd");
    var dschdd = model.getValue("/root/send/toprcpdd");
    var signno = "0";
    var srcformcd = ""; //grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("srchformcd"));
    var formcd = ""; // grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("formcd"));
    var pageno = "0";
    var url = "";
    var chosflag = "";
    var reckind = "";
    var itemindxseq = "";
    var linkcd = "";
    var bfopentest = "";
	var pidynhcd = "";
	var lisflag = "";
	var treatno = "";
	bfopentest = model.getValue("/root/send/bfopentest");
    
	// appcopykey ¹è¿­ ½ºÆå Á¤ÀÇ
	// appcopykey[0] : itemnm ºÏ¸¶Å©/Áñ°Üã±â Ç׸ñ¸í(±â·ÏÁö ŸÀÌƲ·Î ÀÚµ¿ ¼³Á¤)
	// appcopykey[1] : pid ȯÀÚµî·Ï¹øÈ£		(ºÏ¸¶Å©¿¡ ÇØ´ç)
	// appcopykey[2] : orddd Áø·á(ÀÔ¿ø)ÀÏÀÚ	(ºÏ¸¶Å©¿¡ ÇØ´ç)
	// appcopykey[3] : cretno »ý¼º¹øÈ£			(ºÏ¸¶Å©¿¡ ÇØ´ç)
	// appcopykey[4] : signno ¼­¸í¹øÈ£		(ºÏ¸¶Å©¿¡ ÇØ´ç)
	// appcopykey[5] : srcformcd °Ë»ö¿ë ¼­½ÄÄÚµå		(¼­½Ä Áñ°Üã±â¿¡ ÇØ´ç)
	// appcopykey[6] : formcd ¼­½ÄÄÚµå		(¼­½Ä Áñ°Üã±â¿¡ ÇØ´ç)
	// appcopykey[7] : pageno ÆäÀÌÁö¹øÈ£	(ºÏ¸¶Å©¿¡ ÇØ´ç)
	// appcopykey[8] : url URL						(¼­½Ä Áñ°Üã±â¿¡ ÇØ´ç)
	// appcopykey[9] : chosflag
	// appcopykey[10] : reckind
	// appcopykey[11] : itemindxseq
	// appcopykey[12] : linkcd
	// appcopykey[13] : bfopentest
	// appcopykey[14] : pidynhcd
	// 2010-06-11 LISFALG, TREATNO Ç׸ñÃß°¡
	// appcopykey[15] : treatno
	// appcopykey[16] : lisflag
	
	
	// ÇÊµå ¿¬°á ¹®ÀÚ : ¢Ë
	// ROW ¿¬°á ¹®ÀÚ : ¢Ì
	if ( tab_gb == "CHART" ) {			// ¼­½Äº° º¸±â À¯Çü
		row = grd_chart_midindx.row;
		if ( row < 1 ) return;
		col = grd_chart_midindx.col;		
		
		// Áߺзù´Â µî·ÏÇÒ ¼ö ¾ø´Ù.
		if ( col == "6" ) return;
			
		if ( col == "6" ) {
			itemnm = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("indxnm"));
			//itemnm = "[Áߺзù] " + itemnm;
			linkcd = model.getValue("/root/main/chartmidindxlist/chartmidindxlist["+row+"]/linkcd");
		}
		else {
			itemnm = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("formnm"));
			//itemnm = "[¼ÒºÐ·ù] " + itemnm;
			linkcd = model.getValue("/root/main/chartmidindx/chartmidindxlist["+row+"]/linkcd");
		}
		
		srcformcd = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("srchformcd"));
		formcd = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("supitemindxseq"));
		chosflag = grd_chart_pathist.valueMatrix(grd_chart_pathist.row, grd_chart_pathist.colref("ordtype"));
		reckind = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("reckind"));
		itemindxseq = parseInt(grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq")));
		lisflag = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("lisflag"));
		
	} else if ( tab_gb == "PATHIST" ) {		// ¼öÁøº° º¸±â À¯Çü
		row = grd_midindx.row;
		col = grd_midindx.col;		
		
		// Áߺзù´Â µî·ÏÇÒ ¼ö ¾ø´Ù.
		if ( col == "6" ) return;
		
		if ( col == "6" ) {
			itemnm = grd_midindx.valueMatrix(row, grd_midindx.colref("indxnm"));
			//itemnm = "[Áߺзù] " + itemnm;
			linkcd = model.getValue("/root/main/midindx/midindxlist["+row+"]/linkcd");
		}
		else {
			itemnm = grd_midindx.valueMatrix(row, grd_midindx.colref("formnm"));
			//itemnm = "[¼ÒºÐ·ù] " + itemnm;
			linkcd = model.getValue("/root/main/midindx/midindxlist["+row+"]/linkcd");
		}
		
		srcformcd = grd_midindx.valueMatrix(row, grd_midindx.colref("srchformcd"));
		formcd = grd_midindx.valueMatrix(row, grd_midindx.colref("supitemindxseq"));		
		chosflag = grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colref("ordtype"));
		reckind = grd_midindx.valueMatrix(row, grd_midindx.colref("reckind"));
		itemindxseq = parseInt(grd_midindx.valueMatrix(row, grd_midindx.colref("itemindxseq")));
		lisflag = grd_midindx.valueMatrix(row, grd_midindx.colref("lisflag"));
		
	} else return;
	
	if ( chosflag == "" ) chosflag = "-";
	if ( reckind == "" ) reckind = "-";
	if ( linkcd == "" ) linkcd = "-";
	if ( bfopentest == "" ) bfopentest = "-";
	if ( pidynhcd == "" ) pidynhcd = "-";
	if ( lisflag == "" ) lisflag = "-";
	if ( orddd == "" ) orddd = "-";
    var cretno = model.getValue("/root/send/cretno");

	
    var appcopykey = itemnm + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + signno + "¢Ë" + srcformcd + "¢Ë" + formcd + "¢Ë" + pageno + "¢Ë" + url + "¢Ë";
	appcopykey += chosflag + "¢Ë" + reckind + "¢Ë" + itemindxseq + "¢Ë" + linkcd + "¢Ë" + bfopentest + "¢Ë" + pidynhcd + "¢Ë" + treatno + "¢Ë" + lisflag;

	setParameter("SPMRB00300_reckey", appcopykey);
	setParameter("SPMRB00300_dataflag", dataflag);
	
    setParameter("SPMRB00300_setflag", "A");
    modal("SPMRB00300");

}

/* ºÏ¸¶Å© µî·Ï ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fSetBookmark(arr_signno, flag) {	
	setParameter("SPMRB00300_reckey", arr_signno);
	setParameter("SPMRB00300_dataflag", flag);
	
    setParameter("SPMRB00300_setflag", "A");
    modal("SPMRB00300");

}
/* ºÏ¸¶Å© µî·Ï ÇÔ¼ö Ãß°¡ Á¾·á */

/* ºÏ¸¶Å© Æú´õ°ü¸® Æ˾÷¸Þ´º ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fModiBookMarkFolder(){

	var dataflag = "B";	// ºÏ¸¶Å© ±¸ºÐÀÚ
	setParameter("SPMRB00300_setflag", "M");
	setParameter("SPMRB00300_dataflag", dataflag);	
	open("SPMRB00300");
	
	fGetMarkEmrTreeView(dataflag);
}
/* ºÏ¸¶Å© Æú´õ°ü¸® Æ˾÷¸Þ´º ÇÔ¼ö Ãß°¡ Á¾·á */

/* Áñ°Üã±â Æú´õ°ü¸® Æ˾÷¸Þ´º ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fModiFavoriteFolder(){

	var dataflag = "F";	// Áñ°Üã±â ±¸ºÐÀÚ
	setParameter("SPMRB00300_setflag", "M");
	setParameter("SPMRB00300_dataflag", dataflag);	
	open("SPMRB00300");
	
	fGetMarkEmrTreeView(dataflag);
}
/* Áñ°Üã±â Æú´õ°ü¸® Æ˾÷¸Þ´º ÇÔ¼ö Ãß°¡ Á¾·á */

/* ºÏ¸¶Å© ¾ÆÀÌÅÛ ±â·Ï »ó¼¼ Á¶È¸ ÇÔ¼ö Ãß°¡ ½ÃÀÛ */
function fGetDetlRecByEmrMark() {
	var idx = treeview1.row;
	var col = treeview1.col;

	toggleViewer("1");

	if((treeview1.isCell(event.target) && treeview1.mouserow >= treeview1.fixedrows)){
	
		var tPath = "/root/main/bookmark/item";
		var pid = model.getValue(tPath + "[" + idx + "]/pid");
		var itemno = model.getValue(tPath + "[" + idx + "]/itemno");
		var supitemno = model.getValue(tPath + "[" + idx + "]/supitemno");
		var itemnm = model.getValue(tPath + "[" + idx + "]/itemnm");
		var useflag = model.getValue(tPath + "[" + idx + "]/useflag");
		var itemflag = model.getValue(tPath + "[" + idx + "]/itemflag");
		var dataflag = model.getValue(tPath + "[" + idx + "]/dataflag");
		var pageno = model.getValue(tPath + "[" + idx + "]/pageno");
		var recpath = model.getValue(tPath + "[" + idx + "]/recpath");
		var orddd = model.getValue(tPath + "[" + idx + "]/orddd");
		var cretno = model.getValue(tPath + "[" + idx + "]/cretno");
		var srcformcd = model.getValue(tPath + "[" + idx + "]/srcformcd");
		var formcd = model.getValue(tPath + "[" + idx + "]/formcd");
		var signno = model.getValue(tPath + "[" + idx + "]/signno");
		var chosflag = model.getValue(tPath + "[" + idx + "]/chosflag");
		var reckind = model.getValue(tPath + "[" + idx + "]/reckind");
		var midindxseq = model.getValue(tPath + "[" + idx + "]/itemindxseq");
		var linkcd = model.getValue(tPath + "[" + idx + "]/linkcd");
		var bfopentest = model.getValue(tPath + "[" + idx + "]/bfopentest");
		var pidynhcd = model.getValue(tPath + "[" + idx + "]/pidynhcd");
		var groupnm = model.getValue(tPath + "[" + idx + "]/groupnm");
		var treatno = model.getValue(tPath + "[" + idx + "]/treatno");
		var lisflag = model.getValue(tPath + "[" + idx + "]/lisflag");

		//Àӽü¼Æà ½ÃÀÛ
		var ioflag = "";
		if(chosflag == "I" || chosflag == "D" || chosflag == "E"){
			ioflag = "I";
		}
		else{
			ioflag = "O";
		}
		//Àӽü¼Æà ³¡	
		
		if ( col == "0" ) { 	// ±×·ìÀüü Á¶È¸
			model.removeNodeset("/root/send");		
			model.makeValue("/root/send/pid", pid);
			model.makeValue("/root/send/orddd", orddd);
			model.makeValue("/root/send/cretno", cretno);
	
			model.makeValue("/root/send/itemno", supitemno);
			model.makeValue("/root/send/signno", signno);
			model.makeValue("/root/send/itemflag", itemflag);
			model.makeValue("/root/send/dataflag", dataflag);
			model.makeValue("/root/send/ioflag", ioflag);
			model.makeValue("/root/send/reckind", reckind);
			model.makeValue("/root/send/midindxseq", midindxseq);
			model.makeValue("/root/send/lisflag", lisflag);
			model.makeValue("/root/send/linkcd", linkcd);
			model.makeValue("/root/send/bfopentest",  bfopentest);		
			model.makeValue("/root/send/pageindex", "1");
			//model.makeValue("/root/send/pagepercnt", "1");
			model.makeValue("/root/send/signno", signno);
			model.makeValue("/root/send/treatno", treatno);
			model.makeValue("/root/send/srchfromdd", "");
			model.makeValue("/root/send/srchtodd", "");
			model.makeValue("/root/send/pidynhcd",  pidynhcd);
			model.makeValue("/root/send/scrollMenuDispYN", "N");
			model.makeValue("/root/send/displayflag", "N");

			model.makeValue("/root/send/submit_id", "TRMRB00115");
			model.makeValue("/root/send/business_id", BUSINESS_ID);
			model.makeValue("/root/send/macaddr", MACADDR);	

			model.makeValue("/root/send/funcflag", "txtemr");	

			
			var node = instance1.selectSingleNode("/root/send");
			fSetBrowserURL(node);
/*
			submitID = "TRMRB00115";
			//var url = getDomain() + "/himed/webapps/cmc/web/xrw/.live?submit_id="+submitID+"&business_id=emr&macaddr=0025b361dcd6";
			var url = "submit_id="+submitID;
			url += "&business_id=emr";
			url += "&macaddr=0025b361dcd6";
			url += "&pid=" +  pid;
			url += "&orddd=" + orddd;
			url += "&cretno=" + cretno;
			url += "&itemno=" +supitemno;
			url += "&signno=" + signno;
			url += "&itemflag=" + itemflag;
			url += "&dataflag=" + dataflag;
			url += "&chosflag=" + chosflag;
			url += "&reckind=" + reckind;
			url += "&itemindxseq=" + itemindxseq;
			url += "&linkcd=" + linkcd;
			url += "&bfopentest=" + bfopentest;
			url += "&pidynhcd=" + pidynhcd;
			url += "&pageindex=1";			// ÀÚ¹Ù Impl ¿¡¼­ ¿¡·¯³ª¼­ ÇϵåÄÚµù ó¸® ÇÔ.
			url += "&pagepercnt=2";		// ÀÚ¹Ù Impl ¿¡¼­ ¿¡·¯³ª¼­ ÇϵåÄÚµù ó¸® ÇÔ.
			url += "&instcd=" + getUserInfo("dutplceinstcd");
			url += "&userid=" + getUserInfo("userid");
			url += "&localurl=" + getDomain().setReplaceWord("http://", "");
			url += "&scrollMenuDispYN=N";
			// 2010-06-11 LISFALG, TREATNO Ç׸ñÃß°¡
			url += "&lisflag=" + lisflag;
			url += "&treatno=" + treatno;
*/
		}
		else {	

			model.removeNodeset("/root/send");		
			model.makeValue("/root/send/pid", pid);
			model.makeValue("/root/send/orddd", orddd);
			model.makeValue("/root/send/cretno", cretno);
			model.makeValue("/root/send/ioflag", ioflag);
			//model.makeValue("/root/send/orddeptcd", deptcd);
			model.makeValue("/root/send/lrgindxseq", model.getValue("/root/init/lrgindxseq"));
			model.makeValue("/root/send/reckind", reckind);
			model.makeValue("/root/send/midindxseq", midindxseq);
			model.makeValue("/root/send/examflag", lisflag);
			model.makeValue("/root/send/linkcd", linkcd);
			model.makeValue("/root/send/bfopentest",  bfopentest);		
			model.makeValue("/root/send/pageindex", "1");
			//model.makeValue("/root/send/pagepercnt", "1");
			model.makeValue("/root/send/signno", signno);
			model.makeValue("/root/send/treatno", treatno);
			model.makeValue("/root/send/srchfromdd", "");
			model.makeValue("/root/send/srchtodd", "");
			model.makeValue("/root/send/pidynhcd",  model.getValue("/root/init/pidynhcd/hardcd/hardcd"));
			model.makeValue("/root/send/scrollMenuDispYN", "N");
			model.makeValue("/root/send/displayflag", "N");
			model.makeValue("/root/send/business_id", BUSINESS_ID);
			model.makeValue("/root/send/macaddr", MACADDR);	

			model.makeValue("/root/send/funcflag", "txtemr");	

			
			var node = instance1.selectSingleNode("/root/send");
			fSetBrowserURL(node);
		}
	}

}
/* ºÏ¸¶Å© ¾ÆÀÌÅÛ ±â·Ï »ó¼¼ Á¶È¸ ÇÔ¼ö Ãß°¡ Á¾·á */

/* Áñ°Üã±â ¾ÆÀÌÅÛ Áߺзù,¼ÒºÐ·ù »ó¼¼ Á¶È¸ ÇÔ¼ö Ãß°¡ */
/*
Áñ°Üã±âÀÇ °æ¿ì 
¼öÁøÅ°´Â ÇöÀçÈ­¸é¿¡¼­ ¼±ÅÃµÈ ¼öÁøÅ°¸¦ »ç¿ë
*/
function fGetDetlRecByEmrMarFavorite(idx, col) {
	if(idx == null) idx = trv_favorite.row;
	if(col== null ) col=  trv_favorite.col;

	if((trv_favorite.isCell(event.target) && trv_favorite.mouserow >= trv_favorite.fixedrows) && col != "0"){


		var tPath = "/root/main/favorite/item";
		var itemnm = model.getValue(tPath + "[" + idx + "]/itemnm");
		
		// ÃʱⰪÀº ȯÀÚ¿ë Áñ°Üã±â À¯ÇüÀ¸·Î ¼¼ÆÃÇÑ´Ù.
		var itemno = model.getValue(tPath + "[" + idx + "]/itemno");
		var supitemno = model.getValue(tPath + "[" + idx + "]/supitemno");
		var pid = model.getValue(tPath + "[" + idx + "]/pid");
		var orddd = model.getValue(tPath + "[" + idx + "]/orddd");
		var cretno = model.getValue(tPath + "[" + idx + "]/cretno");
		var signno = model.getValue(tPath + "[" + idx + "]/signno");
		var itemflag = model.getValue(tPath + "[" + idx + "]/itemflag");
		var useflag = model.getValue(tPath + "[" + idx + "]/useflag");
		var dataflag = model.getValue(tPath + "[" + idx + "]/dataflag");
		var chosflag	=  model.getValue(tPath + "[" + idx + "]/chosflag");
		var reckind =  model.getValue(tPath + "[" + idx + "]/reckind");
		var midindxseq =  model.getValue(tPath + "[" + idx + "]/itemindxseq");
		var supmidindxseq =  model.getValue(tPath + "[" + idx + "]/supitemindxseq");
		var formcd =   model.getValue(tPath + "[" + idx + "]/formcd");
		var linkcd =  model.getValue(tPath + "[" + idx + "]/linkcd");
		var bfopentest =  model.getValue(tPath + "[" + idx + "]/bfopentest");
		var pidynhcd =  model.getValue(tPath + "[" + idx + "]/pidynhcd");
		var useflag = model.getValue(tPath + "[" + idx + "]/useflag");
		var submitID = "";
		//var emrflag = model.getValue("/root/init/emrflag");
		var ioflag = "";
		// 2010-06-11 LISFALG, TREATNO Ç׸ñÃß°¡
		var lisflag =  model.getValue(tPath + "[" + idx + "]/lisflag");
		var treatno = model.getValue(tPath + "[" + idx + "]/treatno");
		
		// µðºñ Çʵ尡 NOT NULLABLE ·Î ÃʱⰪ "-", "0" ó¸®µÇ¾î µî·ÏµÈ °ªµé ¹«È¿È­ ó¸®.
		if ( signno == "0" ) signno = "";
		if ( chosflag == "-" ) chosflag = "";
		if ( reckind == "-" ) reckind = "";
		if ( midindxseq == "0" ) midindxseq = "";
		if ( formcd == "-" ) formcd = "";
		if ( linkcd == "-" ) linkcd = "";
		if ( bfopentest == "-" ) bfopentest = "";
		if ( pidynhcd == "-" ) pidynhcd = "";
		if ( treatno == "0" ) treatno = "";
		
		/*
		// °³ÀÎ¿ë ¼­½ÄÀÇ °æ¿ì ÇöÀç ¼±ÅÃµÈ ¼öÁøÀÌ·ÂÀ» ÀÌ¿ëÇÏ¿© ¼­½Ä ³»¿ë Á¶È¸ ÇÑ´Ù.(¾ÆÁÖÁß¿ä)
		if ( useflag == "M" ) {		// °³Àο뵵ÀÇ °æ¿ì¿¡´Â ÇöÀç ¼±ÅÃµÈ ¼öÁøÀÌ·ÂÀ» Å°·Î ÇØ´ç ¼­½ÄÀ» Á¶È¸ ÇÑ´Ù 
		
			var tab_gb = "";
			if ( btn_tab_chosview.selected == true ) tab_gb = "PATHIST";
			else if ( btn_tab_formview.selected == true ) tab_gb = "CHART";
			else return;
			
			pid = "";
			orddd = "";
			cretno = "";
			chosflag = "";
			bfopentest = "";
			if ( tab_gb == "CHART" ) {
				var row = grd_chart_midindx.row;
				pid = model.getValue("/root/send/pid");
				orddd =model.getValue("/root/send/orddd");
				cretno = model.getValue("/root/send/cretno");
				chosflag = model.getValue("/root/send/chosflag");
				ioflag = model.getValue("/root/send/ioflag");
				bfopentest = model.getValue("/root/send/bfopentest");
				//lisflag = model.getValue("/root/send/lisflag");
				//itemindxseq = grd_chart_midindx.valueMatrix(row, grd_chart_midindx.colref("itemindxseq"));
			} else if ( tab_gb == "PATHIST" ) {
				var row = grd_pathist.row;
				pid = model.getValue("/root/main/patinfo/patinfolist/pid");
				orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));//model.getValue("/root/send/orddd");
				cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));//model.getValue("/root/send/cretno");
				chosflag = grd_pathist.valueMatrix(row, grd_pathist.colref("ordtype"))//model.getValue("/root/send/chosflag");
				ioflag = grd_pathist.valueMatrix(row, grd_pathist.colref("ioflag"));//model.getValue("/root/send/chosflag");
				bfopentest = grd_pathist.valueMatrix(row, grd_pathist.colref("bfopentest"));//model.getValue("/root/send/bfopentest");
				//lisflag = model.getValue("/root/send/lisflag");
				//itemindxseq = grd_midindx.valueMatrix(row, grd_midindx.colref("itemindxseq"));	    	
			}
			
			if ( pid == null || pid == "" ) {
				messageBox("[µî·Ï¹øÈ£ ¹ÌÁ¸Àç] ¼öÁøÀÌ·ÂÀÌ ¼±ÅõÇÁö", "E007");
				return;
			}
			
			if ( orddd == null || orddd == "" ) {
				messageBox("[Áø·áÀÏÀÚ ¹ÌÁ¸Àç] ¼öÁøÀÌ·ÂÀÌ ¼±ÅõÇÁö", "E007");
				return;
			}
			
			if ( cretno == null || cretno == "" ) {
				//messageBox("[¼öÁø¹øÈ£] ¼öÁøÀÌ·ÂÀÌ ¼±ÅõÇÁö", "E007");
				//return;
			}
			
			if ( chosflag == null || chosflag == "" ) {
				messageBox("[Áø·áÀ¯Çü ¹ÌÁ¸Àç] ¼öÁøÀÌ·ÂÀÌ ¼±ÅõÇÁö", "E007");
				return;    	
			}
			
		}
		*/

		//Áñ°Üã±â´Â ¼öÁøº°º¸±â¿¡¼­¸¸ »ç¿ë
		var row = grd_pathist.row;
		var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
		var orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));
		var cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));
		var ioflag = grd_pathist.valueMatrix(row, grd_pathist.colref("ioflag"));
		var emrflag = grd_pathist.valueMatrix(row, grd_pathist.colref("emrflag"));
		
		 //if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS") || bfopentest == "Y" ) {
		if (false && emrflag == "I"){
			var treatno = midindxseq;
			var formcode = trv_favorite.valueMatrix(trv_favorite.row, trv_favorite.colref("supitemindxseq"));
			
			model.removeNodeset("/root/send");
			model.makeValue("/root/send/business_id", BUSINESS_ID);
			model.makeValue("/root/send/macaddr", MACADDR);

			model.makeValue("/root/send/reckind", "OLDEMR");
			model.makeValue("/root/send/formcode", formcode);
			model.makeValue("/root/send/treatno", treatno);
			model.makeValue("/root/send/ioflag", ioflag);
			
			
			var node = instance1.selectSingleNode("/root/send");
			fSetBrowserURL(node);
		}
		else {
		
			model.removeNodeset("/root/send");		
			model.makeValue("/root/send/pid", pid);
			model.makeValue("/root/send/orddd", orddd);
			model.makeValue("/root/send/cretno", cretno);
			model.makeValue("/root/send/ioflag", ioflag);
			//model.makeValue("/root/send/orddeptcd", grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colRef("orddeptcd")));
			//model.makeValue("/root/send/lrgindxseq", model.getValue("/root/init/lrgindxseq"));
			model.makeValue("/root/send/reckind", reckind);
			model.makeValue("/root/send/midindxseq", midindxseq);
			model.makeValue("/root/send/examflag", lisflag);
			model.makeValue("/root/send/linkcd", linkcd);
			//model.makeValue("/root/send/bfopentest",  grd_pathist.valueMatrix(grd_pathist.row, grd_pathist.colRef("bfopentest")));		
			model.makeValue("/root/send/pageindex", model.getValue("/root/init/pageindex"));
			//model.makeValue("/root/send/pagepercnt",model.getValue("/root/init/pagepercnt"));
			model.makeValue("/root/send/signno", "");
			model.makeValue("/root/send/treatno", "");
			model.makeValue("/root/send/srchfromdd", "");
			model.makeValue("/root/send/srchtodd", "");
			model.makeValue("/root/send/pidynhcd",  model.getValue("/root/init/pidynhcd/hardcd/hardcd"));
			model.makeValue("/root/send/business_id", BUSINESS_ID);
			model.makeValue("/root/send/macaddr", MACADDR);	

			model.makeValue("/root/send/funcflag", "bookmark");	

			
			var node = instance1.selectSingleNode("/root/send");
			fSetBrowserURL(node);			
			
		}	
	}
	  
}
/* Áñ°Üã±â ¾ÆÀÌÅÛ Áߺзù,¼ÒºÐ·ù »ó¼¼ Á¶È¸ ÇÔ¼ö Á¾·á */

//careplanŬ¸¯
function viewcareplan(){
	//20100405-kys-ȯÀÚ±³À° ¿¬µ¿Ãß°¡
	var pid = "";
	var curpid = "";
	pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	curpid = model.getValue("/root/main/patinfo/patinfolist/pid");
	if(pid == ""){	//Å°ÀÎ ÀÔ·ÂÇÑ pid°¡ ¾øÀ¸¸é »ó´ÜÁ¤º¸ pid set
		pid = model.getValue("/root/main/result/paminfo/list/pid");
	}
	if(pid == ""){
		messageBox("ȯÀÚ°¡ Á¶È¸µÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E");	
		return;
	}else{
		if(pid != curpid){
			messageBox("Á¶È¸ÇÑ È¯ÀÚ¿Í µî·Ï¹øÈ£ ÀÔ·ÂâÀÇ µî·Ï¹øÈ£°¡ »óÀÌÇÕ´Ï´Ù. Á¶È¸ÈÄ ´Ù½Ã ½ÃµµÇØ Áֽʽÿä.", "E");	
			return;
		}
		setParameter("SMMRJ00100_pid", pid);
		open("SMMRJ00100");
	}
}

//ȯÀÚ±³À°Å¬¸¯
function viewpatedu(){
//20100405-kys-CAREPLAN LIST ¿¬µ¿Ãß°¡
	var pid = "";
	var curpid = "";
	pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	curpid = model.getValue("/root/main/patinfo/patinfolist/pid");
	if(pid == ""){	//Å°ÀÎ ÀÔ·ÂÇÑ pid°¡ ¾øÀ¸¸é »ó´ÜÁ¤º¸ pid set
		pid = model.getValue("/root/main/result/paminfo/list/pid");
	}
	if(pid == ""){
		messageBox("ȯÀÚ°¡ Á¶È¸µÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E");	
		return;
	}else{
		if(pid != curpid){
			messageBox("Á¶È¸ÇÑ È¯ÀÚ¿Í µî·Ï¹øÈ£ ÀÔ·ÂâÀÇ µî·Ï¹øÈ£°¡ »óÀÌÇÕ´Ï´Ù. Á¶È¸ÈÄ ´Ù½Ã ½ÃµµÇØ Áֽʽÿä.", "E");	
			return;
		}
		setParameter("SMMRJ00200_pid", pid);
		open("SMMRJ00200");
	}
}

/**
 * ·Îµù¹Ù¸¦ ¼³Á¤ÇÑ´Ù.
 * @param flag
 * 0 : Ãʱ⼳Á¤ - È­¸é·Îµù½Ã ÃÖÃÊ Çѹø È£ÃâÇϸç, ·Îµù¹ÙÀÇ À§Ä¡¿Í Å©±â°¡ ¼³Á¤µÈ´Ù.
 * 1 : ·Îµù¹Ù visible - ·Îµù¹Ù µÚÆíÀÇ ÄÜÆ®·ÑÀ» LockingÇÑ´Ù.
 * 2 : ·Îµù¹Ù invisible
 * @return
 */
function fSetLoadingBar(flag) {
	if (flag == 0) {
		cap_loadingbar.attribute("top") = grup_left.attribute("top");
		cap_loadingbar.attribute("left") = grup_left.attribute("left");
		cap_loadingbar.attribute("width") = grup_left.attribute("width");
		cap_loadingbar.attribute("height") = grup_left.attribute("height");
		cap_loadingbar.visible = false;
	}
	else if (flag == 1) {
		cap_loadingbar.visible = true;
	}
	else if (flag == 2) {
		cap_loadingbar.visible = false;
	}
}

/*
¼­½Ä¸®½ºÆ® ÀÏÀÚº¸±â ´Ý±â(°¡¸®±â)
*/
function fViewDateListClose(){
	grp_dateList.visible = false;
}

/*
¼­½Ä¸®½ºÆ®ÀÇ ÀÏÀÚ¸ñ·Ï
*/
function fViewDateListMidIndx(){
	//ÇöÀç ´õºíŬ¸¯À¸·Î ¼±ÅÃµÈ È¯ÀÚÀÇ ¼öÁøÅ° ¹× Á¤º¸

	var row = model.getValue("/root/init/patrow");
	if(row == "" || row == "0"){
		alert("ȯÀÚÀÇ ¼öÁøÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.");
		return;	
	}
	
	var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
	var orddd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddd"));
	var cretno = grd_pathist.valueMatrix(row, grd_pathist.colref("cretno"));
	var orddeptcd = grd_pathist.valueMatrix(row, grd_pathist.colref("orddeptcd"));
	var ioflag = grd_pathist.valueMatrix(row, grd_pathist.colref("ioflag"));
	var bfopentest = grd_pathist.valueMatrix(row, grd_pathist.colref("bfopentest"));	
	var midindxseq = "";
	var linkcd = "";
	var formcode = "";

	var reckind = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("reckind")); 
	var emrflag = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("emrflag")); 
	//if (emrflag == "I" && (reckind != "EMR" && reckind != "CDIS")){		
	if (emrflag == "I"){
		formcode = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colRef("supitemindxseq"));
	}
	else{
		midindxseq = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colRef("itemindxseq"));
	}
	
	//¼ÒºÐ·ù¿¡¼­ Á¶È¸½Ã ¼ÒºÐ·ù°ª ¼¼ÆÃ
	if(grd_midindx.col == "7"){
		linkcd = model.getValue("/root/main/midindx/midindxlist[" + grd_midindx.row + "]/linkcd");
	}


	model.removeNodeset("/root/send");	
	model.makeValue("/root/send/pid", pid);
	model.makeValue("/root/send/orddd", orddd);
	model.makeValue("/root/send/cretno", cretno);
	model.makeValue("/root/send/orddeptcd", orddeptcd);
	model.makeValue("/root/send/ioflag", ioflag);
	model.makeValue("/root/send/bfopentest", bfopentest);	
	model.makeValue("/root/send/midindxseq", midindxseq);
	model.makeValue("/root/send/formcode", formcode);
	model.makeValue("/root/send/linkcd", linkcd);

	if(grd_midindx.mousecol == "6"){	//ÁߺзùŬ¸¯
		model.makeValue("/root/send/funcflag", "midgrup");
	}
	else if(grd_midindx.mousecol == "7"){//¼ÒºÐ·ùŬ¸¯
		model.makeValue("/root/send/funcflag", "formgrup");
	}
	else{
		alert("Áߺзù¿Í ¼ÒºÐ·ùÁß ¼±ÅÃÇØ ÁÖ¼¼¿ä.");
		return;
	}


	if(submit("TRMRB00116")){
		grp_dateList.attribute("top") = "105px";
		grp_dateList.attribute("left") = "0px";
		grp_dateList.visible = true;
		grd_DateForm.resizeCells();
		grd_DateForm.rebuild();
	}
}

/*
ÀÏÀÚ¸ñ·Ï¿¡¼­ ´õºíŬ¸¯(Á¶È¸)
*/
function fDbClickDateList(){
	if((grd_DateForm.isCell(event.target) && grd_DateForm.mouserow >= grd_DateForm.fixedrows)){
		//ÇöÀç ´õºíŬ¸¯ÇÏ¿© ¼±ÅÃµÈ ¼öÁøÅ°ÀÇ row¸¦ °¡Á®¿È
		var patrow = model.getValue("/root/init/patrow");
		if(patrow == null || patrow == "") return;

		//¿À¸¥ÂÊ ¹öÆ°À» ´©¸£°í ¼±ÅÃÇÑ ¼­½ÄÀÇ row
		var grd_midindxrow = grd_midindx.row;

		var pid =  model.getValue("/root/main/patinfo/patinfolist/pid");
		var orddd = grd_pathist.valueMatrix(patrow, grd_pathist.colref("orddd"));
		var cretno = grd_pathist.valueMatrix(patrow, grd_pathist.colref("cretno"));
		var ioflag = grd_pathist.valueMatrix(patrow, grd_pathist.colref("ioflag"));
		var orddeptcd = grd_pathist.valueMatrix(patrow, grd_pathist.colref("orddeptcd"));
		var emrflag = grd_pathist.valueMatrix(patrow, grd_pathist.colref("emrflag"));
		var bfopentest = grd_pathist.valueMatrix(patrow, grd_pathist.colref("bfopentest"));

		//var midindxseq = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("itemindxseq"));
		var supitemindxseq = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("supitemindxseq"));
		var reckind = grd_midindx.valueMatrix(grd_midindxrow, grd_midindx.colref("reckind"));

		var linkcd = grd_DateForm.valueMatrix(grd_DateForm.row, grd_DateForm.colref("linkcd"));
		var midindxseq = grd_DateForm.valueMatrix(grd_DateForm.row, grd_DateForm.colref("midindxseq"));

		var signno = grd_DateForm.valueMatrix(grd_DateForm.row, grd_DateForm.colref("signno"));
		var treatno = grd_DateForm.valueMatrix(grd_DateForm.row, grd_DateForm.colref("treatno"));

		model.removeNodeset("/root/send");
		model.makeValue("/root/send/pid", pid);
		model.makeValue("/root/send/orddd", orddd);
		model.makeValue("/root/send/cretno", cretno);
		model.makeValue("/root/send/pageindex", "1");
		//model.makeValue("/root/send/pagepercnt", "1");
		model.makeValue("/root/send/signno", signno);
		model.makeValue("/root/send/treatno", treatno);


		model.makeValue("/root/send/midindxseq", midindxseq);
		model.makeValue("/root/send/linkcd", linkcd);

		model.makeValue("/root/send/business_id", BUSINESS_ID);
		model.makeValue("/root/send/macaddr", MACADDR);

		if(grd_DateForm.valueMatrix(grd_DateForm.row, grd_DateForm.colref("rectype")) == "T"){
			model.makeValue("/root/send/funcflag", "txtemr");
		}
		else{
			model.makeValue("/root/send/funcflag", "imgemr");
		}

		
		var node = instance1.selectSingleNode("/root/send");
		fSetBrowserURL(node);			
	}
}

/*
¼öÁøº°º¸±â - ¼­½ÄºÐ·ù¿¡¼­ ¸¶¿ì½º ¿À¸¥ÂʹöÆ° Ŭ¸¯½Ã ³ª¿À´Â ¸Þ´º
reckind°¡ PRCPÀ̰ųª EXAMÀº ÀÏÀÚ¸ñ·Ï¸Þ´º°¡ ³ª¿ÀÁö ¾ÊÀ½
*/
function fMidindxRightClick(){	
	var reckind = grd_midindx.valueMatrix(grd_midindx.mouserow, grd_midindx.colref("reckind"));

	if(grd_midindx.mousecol == "7"){
		if(reckind == "PRCP" || reckind == "EXAM"){
			setPopupMenu("grd_midindx", false, "/root/init/regfavorite/mouserght", "label", "func");	
		}	
		else{
			setPopupMenu("grd_midindx", false, "/root/init/mid/mouseright", "label", "func");	
		}
	}
	else if(grd_midindx.mousecol == "6"){
		if(reckind != "PRCP" && reckind != "EXAM"){
			setPopupMenu("grd_midindx", false, "/root/init/favmid/mouseright", "label", "func");			
		}
	}
	
}

function fCase4Select(){
	/*
	if(model.getValue("/root/init/selecttab/maintabdate") == "N"){
		model.setValue("/root/main/srchfromdd", getNewDate().getAddDate(-1, "M").getDateFormat("YYYYMMDD").substr(0, 8));
		model.setValue("/root/main/srchtodd", getCurrentDate());
		model.refresh();
	}
	*/
}

/**
 * @desc   : ȯÀÚ ±â·Ï Áߺзù ³¯ÀÚ Á¶È¸
 * @id     :
 */
function fGetRecMidIndxDate(){
	var pid = "";
	var orddd = "";
	var cretno = "";
	var orddeptcd = "";
	var lrgindxseq = "";

	model.removeNodeSet("/root/main/datemidindx/midindxlist");

	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');
			modal("SPMRI03100");
			
			var valiyn = model.getValue("/root/init/accresn/valiyn");
		
			if (valiyn != "Y")
			{
				return;
			}
			else
			{
				
			}
		}    	
		
		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");
	}


	model.removeNodeset("/root/send");
	model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
	model.makeValue("/root/send/funcflag", "srchrecdd");
	model.makeValue("/root/send/srchfromdd", model.getValue("/root/main/srchfromdd"));
	model.makeValue("/root/send/srchtodd", model.getValue("/root/main/srchtodd"));
	model.makeValue("/root/send/acptcnclyn", model.getValue("/root/init/acptcnclyn"));
	model.makeValue("/root/send/orddeptcd", model.getValue("/root/main/patmedidept/selected/deptcd"));

	//model.makeValue("/root/send/lrgindxseq", "ALL"); 

		
	if(submit("TRMRB00117"))
	{
		var midindxNodelist = model.instances(0).selectNodes("/root/main/datemidindx/midindxlist");
		var itemindxseq = 0;
		var midreccnt = 0;
		var linkcd    = "";

		
		if (midindxNodelist.length > 1)
		{
			grd_midindx.resizeCells();
			grd_datemidindx.row = 1;
		}
	}
		
	model.refresh();

}

/*
iviewer1 : emrbrowser
iviewer2 : bit viewer
*/
function toggleViewer(v){
	if(v == "1"){
		grup_right.visible = true;
		grup_right2.visible = false;
	}
	else{
		grup_right.visible = false;
		grup_right2.visible = true;
	}

}

/*
ÀÌÀü¼­½Ä º¸¿©ÁÖ±â
- ÀÌÀü¼­½ÄÀº ±âÁ¸ ¹æ½Ä°ú µ¿ÀÏÇÏ°Ô º¸¿©ÁÜ(ºä¾îÀÌ¿ë)
*/
function viewOldEmr(c){
	toggleViewer("2");

	switch(c){
		case "case1" :			
			
			var treatno = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("itemindxseq"));
			var formcd = grd_midindx.valueMatrix(grd_midindx.row, grd_midindx.colref("supitemindxseq"));
			  
			iviewer2.window.javascript.cleanViewer();
			iviewer2.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";
		  
			iviewer2.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
			iviewer2.window.javascript.refreshTrue();
			iviewer2.window.javascript.setupChart("ChartView");
			break;

		case "case2" :			
			
			var treatno = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("itemindxseq"));
			var formcd = grd_chart_midindx.valueMatrix(grd_chart_midindx.row, grd_chart_midindx.colref("supitemindxseq"));
			  
			iviewer2.window.javascript.cleanViewer();
			iviewer2.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";
		  
			iviewer2.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
			iviewer2.window.javascript.refreshTrue();
			iviewer2.window.javascript.setupChart("ChartView");
			break;
		
		case "case4" :			
			
			var treatno = grd_datemidindx.valueMatrix(grd_datemidindx.row, grd_datemidindx.colref("itemindxseq"));
			var formcd = grd_datemidindx.valueMatrix(grd_datemidindx.row, grd_datemidindx.colref("supitemindxseq"));
			  
			iviewer2.window.javascript.cleanViewer();
			iviewer2.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";
		  
			iviewer2.window.javascript.appendChart(iemrNode, chartinfo, hiddenmsg);
			iviewer2.window.javascript.refreshTrue();
			iviewer2.window.javascript.setupChart("ChartView");
			break;
	}
}

/*
»ó´ÜÁ¤º¸ ¿¬µ¿
*/
function fChangeOpenerPid(){
	parampid = opener.window.javascript.getParameter("SMMRB00101_param_pid");
	ipt_pid.value = parampid;
	model.refresh();
	chkPidRtn = fPidKeyPress();         //µî·Ï¹øÈ£·Î ȯÀÚ Á¤º¸Á¶È¸

	if (chkPidRtn){
		fPatSearch();
	}
}