var doctyn = "N";
var deptcd = "";
var srchmode = "";
// »ó´ÜÁ¤º¸¿¬°è¸¦ À§ÇÑ Àü¿ªº¯¼ö ¼±¾ð 2009.12.12 LYJ
var grdcnstrow = "";
var consutioflag ="";
var consutpid ="";
var consutcretno ="";
var consutorddd ="";
var consutindd ="";
var clickChk = "";
var consulyn = "";

//2013/01/23 Start
var pat_medispclid=""; // ÀÔ¿øȯÀÚÀÇ °æ¿ì ÁÖÄ¡ÀÇ
var pat_atdoctid="";   // ÀÔ¿øȯÀÚÀÇ °æ¿ì ´ã´çÀÇ
//2013/01/23 End

//2013/02/12 Start
var screenid="";
//2013/02/12 End

/**
 * @desc   : ÄÁ¼³Æ®¸®½ºÆ® Á¶È¸
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fGetCnstlist(condflag)
{
	model.setValue("/root/tmp/condflag", condflag );
    srchmode = condflag;
    model.removeNodeset("/root/main/cnstlist");

    var dpcd = getScreenMenuParameter();     //: ¸Þ´ºº° ParameterÁ¤º¸¸¦ ¹ÝȯÇÑ´Ù.
    var srchnm ="";

    if (condflag == "pidall")
    {
        srchnm = "ȯÀÚº° ¸ðµç°Ç";
    }
    else if (condflag == "pidreq")
    {
        srchnm = "ȯÀÚº° º¸³½°Ç";
    }
    else if (condflag == "pidrecv")
    {
        srchnm = "ȯÀÚº° ¹ÞÀº°Ç";
    }
    else if (condflag == "userreq")
    {

        if(dpcd == "doctor")
        {
            srchnm = "Àǻ纰 º¸³½°Ç";
        }
        else
        {
            srchnm = "°³Àκ° º¸³½°Ç";
        }
    }
    else if (condflag == "userrecv")
    {
        if(dpcd == "doctor")
        {
            srchnm = "Àǻ纰 ¹ÞÀº°Ç";
        }
        else
        {
            srchnm = "°³Àκ° ¹ÞÀº°Ç";
        }
    }
    else if (condflag == "deptreq")
    {
        srchnm = "°úº° º¸³½°Ç";
    }
    else if (condflag == "deptrecv")
    {
        srchnm = "°úº° ¹ÞÀº°Ç";
    }
    else if (condflag == "piduserrecv")
    {
        srchnm = "ȯÀÚº° ÀÇ·Ú ¹ÞÀº°Ç";
    }
    else if (condflag == "piduserreq")
    {
        srchnm = "ȯÀÚº° ÀÇ·Ú º¸³½°Ç";
    }
    else if (condflag == "pidnurcreq")
    {
        srchnm = "ȯÀÚº° ÀÇ·Ú ³»¿ª(°£È£)";
    }
    else if (condflag == "piddeptrecv")
    {
        srchnm = "ȯÀÚº° ÀÇ·Ú ¹ÞÀº°Ç(ºÎ¼­)";
    }
    else if (condflag == "piddeptreq")
    {
        srchnm = "ȯÀÚº° ÀÇ·Ú º¸³½°Ç(ºÎ¼­)";
    }

    model.makeValue("/root/init/srchnm", srchnm);
    fSetSendreq();
    model.makeValue("/root/send/condflag", condflag);
    model.makeValue("/root/send/prestdd", getCurrentDate());
    model.makeValue("/root/send/userid", getUserId());
    model.makeValue("/root/send/dutplcecd", getUserInfo("dutplcecd"));   //20121012 ÀÌÀ±ÁÖ

    if(submit("TRMMR05002"))
    {
        grd_cnstlist.allstyle("data", "background-color") = "#ffffff";
        grd_cnstlist.refresh();

        fCountReplList();
        clickChk = "C";
    }

    if(submit("TRMMR05001"))       //Åë°èÁ¶È¸
    {
        fCnstSumList();
    }

    model.refresh();
}

/**
 * @desc   : Á¶È¸Á¶°Ç ¼³Á¤
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fSetSendreq()
{
    var statflag = model.getValue("/root/presend/statflag");
    var inflag = model.getValue("/root/presend/inflag");
    var formcd = model.getValue("/root/send/formcd");

    statflag = statflag.split("|");

    if(statflag == "" || statflag.length > 1)
    {
        model.makeValue("/root/send/statflag", "all");
    }else{
        model.makeValue("/root/send/statflag", statflag);
    }

    if(inflag == "")
    {
        model.makeValue("/root/send/inflag", "in");
    }
    else
    {
        model.makeValue("/root/send/inflag", inflag);
    }

    if(formcd == "" || formcd == null)
    {
        model.makeValue("/root/send/formcd", "-");
    }
}

/**
 * @desc   : Àǻ翩ºÎÁ¶È¸
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fIsDoct()
{
    // jobkindcd ÇâÈÄ º¯°æ¿¹Á¤
    var sJobkind = getUserInfo("jobkindcd").substring(0, 2);
    if(sJobkind == "03")
    {
        return "Y";
    }
    else
    {
        return "N";
    }
}

/**
 * @desc   : È­¸éÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fInitalize()
{

    grd_cnstlist.rowHeight(0) = 32;
    ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
    ivw_loader.window.javascript.fInitPage(false, true, parseInt(ivw_loader.attribute("height")));
    ivw_loader.window.javascript.afterSaveExeFuncNm = "fSaveAfter";
    reqGetDeptList("/root/init/reqdata", "/root/init/deptlist", "", "012");
    
    
    	//model.removenode("/root/init/cnstreqmsrght/mouserght");
	  //  model.makeNode("/root/init/cnstreqmsrght/mouserght");
    if ((getUserInfo("jobkindcd") == "0330") || (getUserInfo("jobkindcd") == "0332") || (getUserInfo("jobkindcd") == "0510")) {
/* 2013/01/28 ÁÖ¼®Ã³¸®
	    model.makeValue("/root/init/cnstreqmsrght/mouserght[2]/label","»ó´Ü¿¬°è");
	    model.makeValue("/root/init/cnstreqmsrght/mouserght[2]/func","fSelPatInfo");
	    model.makeValue("/root/init/cnstrecvmsrght/mouserght[2]/label","»ó´Ü¿¬°è");
	    model.makeValue("/root/init/cnstrecvmsrght/mouserght[2]/func","fSelPatInfo");
	    model.makeValue("/root/init/cnstrecvmsrghtpat/mouserght[2]/label","»ó´Ü¿¬°è");
	    model.makeValue("/root/init/cnstrecvmsrghtpat/mouserght[2]/func","fSelPatInfo");
*/	    
    }
    model.setValue("/root/init/reqmedireclist/diffdt", 7);

    if (isPopup())
        deptcd = opener.window.javascript.getParameter("SMMMR05000_param_userdept");

    if (deptcd == "")
    {
        deptcd = getScreenMenuParameter();     //: ¸Þ´ºº° ParameterÁ¤º¸¸¦ ¹ÝȯÇÑ´Ù.
    }

    if (deptcd == "")
    {
        deptcd = getUserInfo("dutplcecd");
    }

    if (isDevMode() && deptcd == "")
    {
        deptcd = "doctor";
    }

    if (deptcd == "" || deptcd == null)
    {
        messageBox("ºÎ¼­Á¤º¸°¡ ¼³Á¤µÇÁö ", "E007");
        grp_base.disabled = true;
        return;
    }
    else
    {
        if (deptcd == "doctor")
        {
            doctyn = "Y";
            deptcd = getUserInfo("dutplcecd");
            button2.text = "Àǻ纰 º¸³½°Ç";
            button4.text = "Àǻ纰 ¹ÞÀº°Ç";
        }
    }

    var param = "";
    var homecarerereqyn = "";
    var hinptdt = "";
    var hrecdd = "";

    if (isPopup())
    {
        param = opener.window.javascript.getParameter("SMMMR05000_param_pinfo");   //pid¢Ëorddd¢Ëcretno¢Ëioflag¢Ëorddeptcd¢Ëorddrid¢Ë
        homecarerereqyn = opener.window.javascript.getParameter("SMMMR05000_param_homecarerereqyn");
        hinptdt = opener.window.javascript.getParameter("SMMMR05000_hcare_inptdt");
		hrecdd = opener.window.javascript.getParameter("SMMMR05000_hcare_recdd");
		
		//2013/02/12 Start ¾î´ÀÈ­¸é¿¡¼­ ¿ÀǵǾú´ÂÁö üũÇÑ´Ù. 
		screenid = opener.window.javascript.getParameter("SMMMR05000_screenid");
		//2012/02/12 End
		
		opener.window.javascript.clearParameter("SMMMR05000_param_pinfo");
        opener.window.javascript.clearParameter("SMMMR05000_param_homecarerereqyn");
        opener.window.javascript.clearParameter("SMMMR05000_hcare_inptdt");
		opener.window.javascript.clearParameter("SMMMR05000_hcare_recdd");

        ivw_loader.window.javascript.setParameter("SMMMR05000_param_homecarerereqyn", homecarerereqyn);
        ivw_loader.window.javascript.setParameter("SMMMR05000_hcare_inptdt", hinptdt);
        ivw_loader.window.javascript.setParameter("SMMMR05000_hcare_recdd", hrecdd);
    }

    var pid = "";
    var orddd = "";
    var cretno = "";
    var ioflag = "I";
    var orddeptcd = "";
    var orddrid = "";

    //2013/02/26 Start Åð¿ø¿¹°í¿¡¼­´Â ¹«Á¶°Ç »ó´ÜÁ¤º¸ÀÇ Á¤º¸¸¦ º¸µµ·Ï
    if (param != "" && screenid!="SPMMO00400")
    //if (param != "")	
    //2013/02/26 End
    {
        param = param.split("¢Ë");
        pid = param[0];
        orddd = param[1];
        cretno = param[2];
        ioflag = param[3];
        orddeptcd = param[4];
        orddrid = param[5];

        model.makeValue ("/root/main/result/paminfo/list/pid", pid);
        model.makeValue ("/root/main/result/paminfo/list/orddd", orddd);
        model.makeValue ("/root/main/result/paminfo/list/cretno", cretno);
        model.makeValue ("/root/main/result/paminfo/list/ioflag", ioflag);
        model.makeValue ("/root/main/result/paminfo/list/orddeptcd", orddeptcd);
        model.makeValue ("/root/main/result/paminfo/list/orddrid", orddrid);

        model.refresh();
    }
    else
    {
        var pamInfoCvs = getGlobalVariable("paminfo");  //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö
       
        if(pamInfoCvs != null && pamInfoCvs != "")
        { //cvs°¡ nullÀÌ ¾Æ´Ñ °æ¿ì¿¡¸¸ ó¸®ÇÔ.
            model.removeNodeSet ("/root/main/result/paminfo/list");
            setCSVToNode ("/root/main/result/paminfo", pamInfoCvs);

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

            orddrid = "";

            if (ioflag == "O" || ioflag == "S")
            {
                orddd = model.getValue ("/root/main/result/paminfo/list/orddd");
                orddrid = model.getValue ("/root/main/result/paminfo/list/orddrid");
            } else {
                orddd = model.getValue ("/root/main/result/paminfo/list/indd");
                orddrid = model.getValue ("/root/main/result/paminfo/list/medispclid");
                //2013/01/23 Start
                pat_medispclid= model.getValue ("/root/main/result/paminfo/list/medispclid");
                pat_atdoctid= model.getValue ("/root/main/result/paminfo/list/atdoctid");
                //2013/01/23 End
            }
        }
    }
		
	datagrid1.colStyle(0, "data", "border-right-style") = "none";
    datagrid1.colStyle(1, "data", "border-right-style") = "none";
    datagrid1.colStyle(3, "data", "border-right-style") = "none";
    datagrid1.colStyle(4, "data", "border-right-style") = "none";
    datagrid1.colStyle(6, "data", "border-right-style") = "none";
    datagrid1.colStyle(7, "data", "border-right-style") = "none";
    datagrid1.colStyle(9, "data", "border-right-style") = "none";
    datagrid1.colStyle(10, "data", "border-right-style") = "none";
    datagrid1.refresh();
    fAddDateReq("today");
    
    if (ioflag == "I" || ioflag == "E" || ioflag == "D")
    {
        ioflag = "I";
    }
    else if (ioflag == "O" || ioflag == "S")
    {
        ioflag = "O";
    }
    else
    {
        ioflag = "I";
    }
    
    model.makeValue("/root/send/ioflag", ioflag);
    
    //20111122 °Ë»öÁ¶°Ç µðÆúÆ®·Î Àüü·Î ÁöÁ¤
    model.setValue("/root/send/srchflag", 0);
    model.makeValue("/root/send/userdeptcd", getUserInfo("dutplcecd"));
    //20111122
		fIoFlagChange();
    
    
    /* 2012/02/09 Àüü ´Ù º¸ÀÌ°Ô ¼öÁ¤ 
    //20111123 ¿µ»óÀÇÇаú : 2160000000 À϶§¸¸ º¸ÀÌ°Ô ÇÔ
    	if(getUserInfo("dutplcecd")=="2160000000"){
    		caption14.visible="true";
    		radio1.visible="true";
    		grd_cnstlist.colhidden(2) = false;
    	}else{
   			caption14.visible="false";
    		radio1.visible="false";
    		grd_cnstlist.colhidden(2) = true;
    	}
    //20111123
	2012/02/09 */
    if (pid != "" && orddd != "" && cretno != "")
    {
        ipt_pid.value = pid;
        fPidKeyPress();         //µî·Ï¹øÈ£·Î ȯÀÚ Á¤º¸Á¶È¸
        ivw_loader.window.javascript.fSetPamInfo(pid, orddd, cretno, ioflag, orddeptcd, orddrid);
        btn_excnst.attribute("visibility") = "visible";
        btn_cnst.attribute("visibility") = "visible";
        btn_cotrmt.visible = "true";

        model.refresh();
    }
    else if (pid != "" && orddd == "" && cretno == "")
    {
        ipt_pid.value = pid;
        fPidKeyPress();         //µî·Ï¹øÈ£·Î ȯÀÚ Á¤º¸Á¶È¸
        fGetCnstlist("pidall");
        ivw_loader.disabled = true;
    }
    else
    {
        if (doctyn == "Y")         //ÀÇ»ç(Áø·áÀÇ·Ú)ÀÏ °æ¿ì Àǻ纰 ¹ÞÀº°Ç
        {
            var sJobkind = getUserInfo("jobkindcd").substring(0, 2);
            if(sJobkind == "03")
            {
                fGetCnstlist("userrecv");
            }
            else                                    //Àǻ簡 ¾Æ´Ò°æ¿ì ȯÀÚº° ÀǷڰǸ¸ Á¶È¸
            {
                fGetCnstlist("pidnurcreq");
            }
        }
        else
        {
            fGetCnstlist("deptrecv");   // Ÿ°úÀÇ·ÚÀÏ °æ¿ì ºÎ¼­º° ¹ÞÀº°Ç
        }

        ivw_loader.grup_btn.disabled = true;
    }

    //·ÎÄÃÅ×½ºÆ®¸¦ À§ÇÑ ¹öưó¸®
    if (fLocalYn())
    {
        btn_excnst.attribute("visibility") = "visible";
        btn_cnst.attribute("visibility") = "visible";
        btn_cotrmt.attribute("visibility") = "visible";
    }

    //¿ø¸ñÆÀ ¿äû(°úº° º¸³½°Ç, ¹ÞÀº°Ç¸¸)
    if(deptcd == "4050400000")
    {
        button7.attribute("visibility") = "hidden";
        button8.attribute("visibility") = "hidden";
        button2.attribute("visibility") = "hidden";
        button4.attribute("visibility") = "hidden";
        button3.attribute("visibility") = "hidden";
        btn_cnst.attribute("visibility") = "hidden";
    } 
    
    
    model.makeValue("/root/send/userdeptcd", deptcd);
    model.makeValue("/root/send/userid", getUserId());
    
    if (submit("TRMMR04901"))       //ÄÁ¼³Æ® ºÎ¼­Á¶È¸
    {
        model.makeValue("/root/send/userdeptcd", getUserInfo("dutplcecd"));
    }
    
    //20110728
    //submit("TRMMR04904") //º´µ¿Á¶È¸
    //mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept2", "W");
    mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/main/cnstwardlist/cnstward", "W");
    addComboInstance("/root/main/cnstwardlist/cnstward", "deptcd^depthngnm", "-^Àüü", "dept");
    model.setValue("/root/send/wardcd", "-");
    //20110728

	 
    
    model.makeValue("/root/send/cnstflag", "3");
    if(submit("TRMMR04902"))       //ÄÁ¼³Æ® Á¾·ù Á¶È¸
    {
        addComboInstance("/root/main/cnstformlist", "formcd^formnm", "0000000677^Áø·áÀÇ·Ú", "cnstform");
        addComboInstance("/root/main/cnstformlist", "formcd^formnm", "-^Àüü", "cnstform");            //Áø·á°ú ÀüüÇ׸ñ Ãß°¡
    }

    ivw_loader.window.javascript.setParameter("userdeptcd", deptcd);
    
    //2013/02/14 Start Åð¿ø¿¹°í·ÎºÎÅÍ ³Ñ¾î¿Â °æ¿ì¿¡´Â ÀÇ·ÚÀÏÀÚ ½ÃÀÛÀÏÀÚ¸¦ ¼±ÅÃ
    if(screenid=="SPMMO00400"){
    	model.makeValue("/root/send/reqfromdd", orddd);
		fGetCnstlist("pidall");	
    }
    //2013/02/14 End
    
    //20140122
    fGetUserEnvOcsOrdAnsw("", "/root/hidden/procpconfiag", "053");
    
    var nonstopyn = opener.window.javascript.getParameter("SMMMR05000_nonstopyn");
    var nonstopcnstflag = opener.window.javascript.getParameter("SMMMR05000_nonstopcnstflag");
    
    if ( nonstopyn == "Y") {
    	fNewCnst(nonstopcnstflag);
    }
    
}

/**
 * @desc   : ȯÀÚ¹øÈ£ Á¤º¸Á¶È¸
 * @id     :
 * @event  : onkeypress
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fPidKeyPress(autoYn, sroomcd)
{
    model.makeValue("/root/source/srchcond", "1");
    model.makeValue("/root/source/pid", ipt_pid.currentText);
    //inputEnterKey("btn_search", "DOMActivate");

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

        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/patinfolist/agesex", model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age"));

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

                if (ioflag == "O" || ioflag == "S")
                {
                    //È­¸é »ó´Ü¿¡ ȯÀÚÁ¤º¸ ¼ÂÆÃ
                    model.setValue("/root/init/patinfo", "µî·Ï¹øÈ£ : " + model.getValue("/root/main/patinfo/patinfolist/pid") +
                            ", ȯÀÚ¸í : " + model.getValue("/root/main/patinfo/patinfolist/hngnm") +
                            ", ¼ºº°/³ªÀÌ : " + model.getValue("/root/main/patinfo/patinfolist/agesex"));
                }
                else
                {
                    if (autoYn != "N")
                    {
                        var sRoomcd = model.getValue("/root/main/result/paminfo/list/roomcd");
                    }
                    else
                    {
                        //var sRoomcd = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/roomcd");
                        var sRoomcd = sroomcd;
                    }
                    
                    //È­¸é »ó´Ü¿¡ ȯÀÚÁ¤º¸ ¼ÂÆÃ
                    model.setValue("/root/init/patinfo", "º´½Ç : " + sRoomcd +
                            ", µî·Ï¹øÈ£ : " + model.getValue("/root/main/patinfo/patinfolist/pid") +
                            ", ȯÀÚ¸í : " + model.getValue("/root/main/patinfo/patinfolist/hngnm") +
                            ", ¼ºº°/³ªÀÌ : " + model.getValue("/root/main/patinfo/patinfolist/agesex"));
                }

                model.makeValue("/root/send/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
                model.makeValue("/root/main/popupendflag", "ok");
                
                if (autoYn != "N")
                {
                    fGetFirstList();
                }
                model.refresh();

                var patid = model.getValue("/root/main/patinfo/patinfolist/pid");
                var ivwpid = ivw_loader.model.getValue("/root/main/paminfo/pid");

                if (patid != "" && ivwpid != "")
                {
                    if (patid != ivwpid)
                    {
                        btn_cnst.disabled = true;
                        btn_excnst.disabled = true;
                        btn_cotrmt.disabled = true;
                    }
                    else
                    {
                        btn_cnst.disabled = false;
                        btn_excnst.disabled = false;
                        btn_cotrmt.disabled = false;
                    }
                }
            }
            else
            {
                model.resetInstanceNode("/root/main/patinfo/patinfolist");
                messageBox("¾ø´Â ȯÀÚ ¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
                model.refresh();
            }
        }
    }
    else
    {
        messageBox("ȯÀÚµî·Ï¹øÈ£¸¦ Á¤È®È÷", "C001");
    }
}

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

/**
 * @desc   : °Ë»ö ³¯Â¥±â°£
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fAddDateReq(diffFlag)
{
    var frdd = model.getValue("/root/send/reqfromdd");
    var todd = model.getValue("/root/send/reqtodd");
    var srcdd = new Date();
    var destdd = new Date();
    var diffdt;
    if (diffFlag == "next")
    {
        srcdd = todd.toDate();
        srcdd = srcdd.getAddDate(1, "D");
        frdd = srcdd.getDateFormat();
        
        diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * 1;
        destdd = srcdd.getAddDate(diffdt, "D");
        todd = destdd.getDateFormat();
    }
    else if (diffFlag == "back")
    {
        srcdd = frdd.toDate();
        srcdd = srcdd.getAddDate(-1, "D");
        todd = srcdd.getDateFormat();
        
        diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        destdd = srcdd.getAddDate(diffdt, "D");
        frdd = destdd.getDateFormat();
    }
    else if (diffFlag == "today")
    {
        todd = getCurrentDate();

        var today = new Date();
        var frday = new Date();
        var diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        frday = today.getAddDate(diffdt , "D");
        frdd = frday.getDateFormat();
    }
    else
    {
        var today = todd.toDate();
        var frday = new Date();
        var diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        frday = today.getAddDate(diffdt , "D");
        frdd = frday.getDateFormat();
    }

    model.setValue("/root/send/reqfromdd", frdd);
    model.setValue("/root/send/reqtodd", todd);

    ipt_formrecdtfr.refresh();
    ipt_formrecdtto.refresh();
}

/**
 * @desc   : ÀÇ·Ú¼­ ¼±ÅÃÀ» À§ÇÑ Æ˾÷ È£Ãâ
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fNewCnst_old(cnstflag)
{
    if (doctyn == "Y")
    {
        srchmode = "piduserreq";
    }
    else
    {
        srchmode = "piddeptreq";
    }
    setParameter("MMR05000_cnstflag", cnstflag);
    modal("SPMMR03900");
}

/**
 * @desc   : ÀÇ·Ú¼­ ÀÛ¼º
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function old_fNewCnst()
{
    var PamPid = model.getValue("/root/main/result/paminfo/list/pid");
    var PatPid = model.getValue("/root/main/result/patinfo/patinfolist/pid");

    if (PamPid == PatPid || isDevMode())
    {
        ivw_loader.disabled = false;
        ivw_loader.window.javascript.fLoadNewXRW("SMMMR04900");
    }
    else
    {
        messageBox("»ó´ÜÁ¤º¸ÀÇ È¯ÀÚ¿Í ÀÏÄ¡ÇÏÁö ¾Ê¾Æ ÁøÇà", "E001");
        ivw_loader.disabled = true;
        return;
    }
}

/**
 * @desc   : ÀÇ·Ú¼­ ¿ÀÇÂ(Áø·áÀÏÁ¤ Æ˾÷¿¡¼­ È£Ãâ)
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fOpenCnstForm_old(formcd, cnstdeptcd, cnstdeptnm, drid, drnm, hopedd, cnstflag, formnm, replflag)
{
    ivw_loader.disabled = false;
    setParameter("userdeptcd", cnstdeptcd);
    ivw_loader.window.javascript.setParameter("SMMMR04900_newcnstform", "Y");
    ivw_loader.window.javascript.setParameter("SMMMR04900_formcd", formcd);

    if (replflag == "R")    //ÀǷںμ­´Â ȯÀÚÁø·á°ú
    {
        var reqdpcd = ivw_loader.model.getValue("/root/main/paminfo/orddeptcd");
        model.setValue("/root/cond/orddeptcd", reqdpcd);

        fAftertemp();

        var reqdrid = ivw_loader.model.getValue("/root/main/paminfo/orddrid");
        model.setValue("/root/cond/orddrid", reqdrid);

        var reqdpnm = model.getValue("/root/init/deptlist/orddept[deptcd = '" + reqdpcd + "']/deptnm");
        var reqdrnm = model.getValue("/root/init/userlist/usercombo[userid = '" + reqdrid + "']/usernm");

        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdpcd", reqdpcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdpnm", reqdpnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdrid", reqdrid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdrnm", reqdrnm);

        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", cnstdeptcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", cnstdeptnm);
    }
    else if (replflag == "D")   //ȸ½ÅºÎ¼­´Â ȯÀÚ Áø·á°ú
    {
        var recvdpcd = ivw_loader.model.getValue("/root/main/paminfo/orddeptcd");
        model.setValue("/root/cond/orddeptcd", recvdpcd);

        fAftertemp();

        var recvdrid = ivw_loader.model.getValue("/root/main/paminfo/orddrid");
        model.setValue("/root/cond/orddrid", recvdrid);

        var recvdpnm = model.getValue("/root/init/deptlist/orddept[deptcd = '" + recvdpcd + "']/deptnm");
        var recvdrnm = model.getValue("/root/init/userlist/usercombo[userid = '" + recvdrid + "']/usernm");

        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", recvdpcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", recvdpnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstuserid", recvdrid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstusernm", recvdrnm);
    }
    else
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", cnstdeptcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", cnstdeptnm);
    }
    //fAftertemp

    if (cnstflag == "1")
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_drid", drid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_drnm", drnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_hopedd", hopedd);
    }
    else if (cnstflag == "3")
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_formnm", formnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_replflag", replflag);
    }

    ivw_loader.window.javascript.setParameter("SMMMR04900_cnstflag", cnstflag);
    ivw_loader.window.javascript.fLoadNewForm(formcd);

}

/**
 * @desc   : ±×¸®µå »çÀÌÁî Á¶Àý
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fCnstGrdSize(mode)
{
    if (mode == "max")
    {
        ivw_loader.visible = false;
        grd_cnstlist.attribute("width") = (body.attribute("width") - 15);
        //model.refresh();
    } else {
        ivw_loader.visible = true;
        grd_cnstlist.attribute("width") = 589;
    }
}

/**
 * @desc   : Åë°è³»¿ª È­¸é µðÀÚÀÎ
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fCnstSumList()
{
    var dpsend = model.getValue("/root/main/cnstsum/deptreqrepl") + " / " + model.getValue("/root/main/cnstsum/deptreqall");
    var dprecv = model.getValue("/root/main/cnstsum/deptrecvrepl") + " / " + model.getValue("/root/main/cnstsum/deptrecvall");
    var usersend = model.getValue("/root/main/cnstsum/userreqrepl") + " / " + model.getValue("/root/main/cnstsum/userreqall");
    var userrecv = model.getValue("/root/main/cnstsum/userrecvrepl") + " / " + model.getValue("/root/main/cnstsum/userrecvall");

    if (dpsend == "")
        dpsend = "0 / 0";

    if (dprecv == "")
        dprecv = "0 / 0";

    if (usersend == "")
        usersend = "0 / 0";

    if (userrecv == "")
        userrecv = "0 / 0";

    model.makeValue("/root/main/cnsttotal/dpsend", dpsend);
    model.makeValue("/root/main/cnsttotal/dprecv", dprecv);
    model.makeValue("/root/main/cnsttotal/usersend", usersend);
    model.makeValue("/root/main/cnsttotal/userrecv", userrecv);
    model.refresh();
}

/**
 * @desc   : ±â·Ï¼­½Ä ¿ÀÇ ¿©ºÎ È®ÀÎ
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fEndFormReady_MMR01100()
{
    var instance = document.models(0).instances(0);
    var nodelistCnst = "";
    var cnstflag = model.getValue("/root/send/cnstflag");
    if (cnstflag == "3")
    {
        nodelistCnst = instance.selectNodes("/root/main/cnstlist[recvdeptcd='" + deptcd + "']");
    }
    else
    {
        nodelistCnst = instance.selectNodes("/root/main/cnstlist[recvuserid='" + getUserId() + "']");
    }

    var cnststat = "";
    var srcNode = "";
    var recseq = "";

    var pid = model.getValue ("/root/main/result/paminfo/list/pid");
    var orddd= model.getValue ("/root/main/result/paminfo/list/orddd");
    var cretno = model.getValue ("/root/main/result/paminfo/list/cretno");
    var iofg = model.getValue ("/root/main/result/paminfo/list/ioflag");
    var orddeptcd = model.getValue ("/root/main/result/paminfo/list/orddeptcd");
    var orddrid = model.getValue ("/root/main/result/paminfo/list/orddrid");
    var reqfromrecseq = "";

//    if (pid == null || pid == "")
//        return;

    if(nodelistCnst.length >= 1)
    {
        srcNode = nodelistCnst.item(0);
        cnststat = srcNode.selectSingleNode("cnststat").text;

        if(cnststat < 21 && cnststat > 11)
        {
            reqfromrecseq = srcNode.selectSingleNode("formrecseq").text;

            if (reqfromrecseq != "")
            {
                grd_cnstlist.rowstyle(1, "data", "background-color") = "#ffcc99";
                grd_cnstlist.refresh();

                ivw_loader.window.javascript.fLoadRecForm(reqfromrecseq);

                if (doctyn == "Y")
                {
                    var sJobkind = getUserInfo("jobkindcd").substring(0, 2);

                    if(sJobkind == "03")
                    {
                        if (pid != "")
                        {
                             srchmode = "piduserrecv";
                        }
                        else
                        {
                             srchmode = "userrecv";
                        }
                    }
                    else                                    //Àǻ簡 ¾Æ´Ò°æ¿ì ȯÀÚº° ÀǷڰǸ¸ Á¶È¸
                    {
                        ivw_loader.grup_btn.disabled = true;
                    }
                }
                else
                {
                    if (pid != "")
                    {
                        srchmode = "piddeptrecv";
                    }
                    else
                    {
                        srchmode = "deptrecv";
                    }
                }
            }
        }
    }
}

/**
 * @desc   : ȯÀÚÁ¤º¸Á¶È¸ Æ˾÷
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fPopPtinfo()
{
    modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/source", "/root/send");
    var patid = model.getValue("/root/main/patinfo/patinfolist/pid");
    var ivwpid = ivw_loader.model.getValue("/root/main/paminfo/pid");

    if (patid != "" && ivwpid != "")
    {
        if (patid != ivwpid)
        {
            btn_cnst.disabled = true;
            btn_excnst.disabled = true;
            btn_cotrmt.disabled = true;
        }
        else
        {
            btn_cnst.disabled = false;
            btn_excnst.disabled = false;
            btn_cotrmt.disabled = false;
        }

        model.makeValue("/root/send/pid", patid);
        model.makeValue("/root/main/patinfo/patinfolist/agesex", model.getValue("/root/main/patinfo/patinfolist/sex") + "/" + model.getValue("/root/main/patinfo/patinfolist/age"));

        //È­¸é »ó´Ü¿¡ ȯÀÚÁ¤º¸ ¼ÂÆÃ
        model.setValue("/root/init/patinfo", "µî·Ï¹øÈ£ : " + model.getValue("/root/main/patinfo/patinfolist/pid") +
                ", ȯÀÚ¸í : " + model.getValue("/root/main/patinfo/patinfolist/hngnm") +
                ", ¼ºº°/³ªÀÌ : " + model.getValue("/root/main/patinfo/patinfolist/agesex"));

        model.refresh();

        fGetCnstlist("pidall");
    }

    model.resetInstanceNode("/root/source");
}

/**
 * @desc   : ·ÎÄÃüũ
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fLocalYn()
{
    if (window.document.location == "C:/CMCProject/application/webapps/emr/medirecweb/xrw/" ||
        window.document.location == "D:/CMCProject/application/webapps/emr/medirecweb/xrw/" ||
        window.document.location.indexOf("dev999") > -1)
    {
        return true;
    }
    else
    {
        return false;
    }
}

/**
 * @desc   : óÀ½ ·Îµå½Ã ÄÁ¼³Æ® ³»¿ª Á¶È¸
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetFirstList()
{
    var instance = document.models(0).instances(0);
    var nodelistPatinfo = instance.selectNodes("/root/main/result/paminfo/list");

    if(nodelistPatinfo.length == 1)
    {
        var sJobkind = getUserInfo("jobkindcd").substring(0, 2);

        if(sJobkind == "03")
        {
            fGetCnstlist("piduserrecv");
        }
        else                                    //Àǻ簡 ¾Æ´Ò°æ¿ì ȯÀÚº° ÀǷڰǸ¸ Á¶È¸
        {
            fGetCnstlist("pidnurcreq");
        }
    }
    else
    {
        if (doctyn == "Y")
        {
            fGetCnstlist("userrecv");
        }
        else
        {
            fGetCnstlist("deptrecv");
        }
    }
}

/**
 * @desc   : ÀúÀå ÈÄ ·ÎÁ÷
 * @id     :
 * @event  : DOMActivate
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSaveAfter()
{
    fGetCnstlist(srchmode);

    ivw_loader.window.javascript.setParameter("SMMMR04900_newcnstform", "N");
}

/**
 * @desc   : ÀÇ·Ú ÄÁ¼³Æ® ¿­±â
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fOpenRecCnstForm(formrecseq, cnstflag, calledflag)
{
	
    ivw_loader.window.javascript.setParameter("userdeptcd", getUserInfo("dutplcecd"));
    ivw_loader.window.javascript.setParameter("SMMMR04900_cnstflag", cnstflag);
    ivw_loader.window.javascript.fLoadRecForm(formrecseq, calledflag);

    if (doctyn == "Y")         //ÀÇ»ç(Áø·áÀÇ·Ú)ÀÏ °æ¿ì Àǻ纰 ¹ÞÀº°Ç
    {
        var sJobkind = getUserInfo("jobkindcd").substring(0, 2);
        if(sJobkind == "03")
        {
            srchmode = "piduserrecv";
            ivw_loader.grup_btn.disabled = false;
        }
        else                                    //Àǻ簡 ¾Æ´Ò°æ¿ì ȯÀÚº° ÀǷڰǸ¸ Á¶È¸
        {
            ivw_loader.grup_btn.disabled = true;
        }
    }
    else
    {
        srchmode = "piddeptrecv";
    }
}

/**
 * @desc   : ȸ½Åó¸®
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fSetRepl()
{
    var formrecseq = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/formrecseq");
    var cnststat = parseInt(model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/cnststat"));
    var recvuserid = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/recvuserid");

    if (recvuserid != getUserId())
    {
        messageBox("ȸ½Åó¸®", "E002");
        return;
    }
    else if (cnststat > 12)
    {
        messageBox("ÀÇ·ÚÀÌÈÄ »óÅ¿¡¼­´Â ȸ½Åó¸®", "E001");
        return;
    }
    else
    {
        model.makeValue("/root/send/formrecseq", formrecseq);
        submit("TXMMR05001");
    }
}

/**
 * @desc   : ÄÁ¼³Æ® ÀÇ·Ú Ãë¼Ò
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fSetCnstCancel()
{
    var rtn = messageBox("ÀÇ·Ú¸¦ Ãë¼Ò ÇÕ´Ï´Ù.", "Q003");

    if (rtn != 6)
        return;
        
    var formrecseq = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/formrecseq");
    var cnststat = parseInt(model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/cnststat"));
    var requserid = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/requserid");
    var recvuserid = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/recvuserid");
    var chosflag= model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/chosflag");

    if (formrecseq != "")
    {
        model.makeValue("/root/send/formrecseq", formrecseq);
        if(submit("TXMMR05002"))
        {
            var mess = model.getValue("/root/main/savedinfo/rsltmsg/msg");

            if(mess == "1")
            {
                messageBox("Ãë¼Ò µÇ¾ú½À´Ï´Ù.", "I", "");
                fGetCnstlist(srchmode);
                
                ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
                ivw_loader.window.javascript.fInitPage(false, true, parseInt(ivw_loader.attribute("height")));
            }
            else
            {
                messageBox(mess, "I", "");
            }
        }
    }
    else
    {
        return;
    }
}

/**
 * @desc   : ÄÁ¼³Æ® ÀÇ·ÚÈ®Á¤ Ãë¼Ò
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fSetReqFixCancel()
{
    var rtn = messageBox("ÀÇ·Ú »óÅ·Πº¯°æ µË´Ï´Ù.", "Q003");

    if (rtn != 6)
        return;
            
    var formrecseq = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/formrecseq");
    var cnststat = parseInt(model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/cnststat"));
    var requserid = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/requserid");
    var recvuserid = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/recvuserid");
    var chosflag= model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/chosflag");
    var cnstflag= model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/cnstflag");
    
    if (formrecseq != "")
    {
        model.makeValue("/root/send/formrecseq", formrecseq);
        model.makeValue("/root/send/cnstflag", cnstflag);
        if(submit("TXMMR05003"))
        {
            var mess = model.getValue("/root/main/rsltinfo/cvrtcnt/cnt");

            if(mess == "1")
            {
                messageBox("º¯°æ µÇ¾ú½À´Ï´Ù.", "I", "");
                fGetCnstlist(srchmode);
            }
            else
            {
                messageBox("º¯°æ¿¡ ½ÇÆÐ ÇÏ¿´½À´Ï´Ù.", "I", "");
            }
        }
    }
    else
    {
        return;
    }
}

/**
 * @desc   : ³»¿ø±¸ºÐ¿¡ µû¸¥ ȯ°æ ¼ÂÆÃ
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fIoFlagChange()
{
    var ioflag = model.getValue("/root/send/ioflag");
    var refdata = "";
    var sizedata = "";

    if (ioflag == "I")
    {
        refdata = "seq^checkflag^formnm^gubunflag^cnststatnm^eryn^pid^pidnm^wardnm^roomcd^reqdeptnm^requsernm^recvdeptnm^recvusernm^reqdd^repldd^replusernm^ddcnt^replcnt^lastreplusernm^lastrepldt^atdoctnm^inptusernm^medispclnm^indd^dschdd^formrecseq^chosflag^reqdeptcd^medispclid^atdoctid^repluserid^wardcd^cnststat^inptuserid^lastrepluserid^signno";
        sizedata = "5^30^100^60^55^30^65^65^70^70^85^65^85^65^100^100^65^40^30^65^100^65^65^0^70^70^50^0^0^0^0^0^0^0^0^0^0";
        checkbox2.visible = "true";
        caption13.visible = "true";
        combo2.visible = "true";
    }
    else if (ioflag == "O")
    {
        refdata = "seq^checkflag^formnm^gubunflag^cnststatnm^eryn^reqdd^pid^pidnm^reqdeptnm^requsernm^inptusernm^recvdeptnm^recvusernm^repldd^replusernm^ddcnt^replcnt^lastreplusernm^lastrepldt^formrecseq^chosflag^reqdeptcd^medispclid^medispclnm^atdoctid^atdoctnm^repluserid^indd^dschdd^wardcd^wardnm^roomcd^cnststat^inptuserid^lastrepluserid^signno";
        sizedata = "5^30^100^60^55^30^100^65^65^85^65^65^85^65^100^65^40^30^65^100^50^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0";
        checkbox2.visible = "false";
        caption13.visible = "false";
        combo2.visible = "false";
        
        model.setValue("/root/presend/inflag", "");
    }
    else
    {
        refdata = "seq^checkflag^formnm^gubunflag^cnststatnm^eryn^reqdd^pid^pidnm^reqdeptnm^requsernm^recvdeptnm^recvusernm^repldd^replusernm^ddcnt^replcnt^lastreplusernm^lastrepldt^roomcd^atdoctnm^inptusernm^medispclnm^indd^dschdd^formrecseq^chosflag^reqdeptcd^medispclid^atdoctid^repluserid^wardcd^wardnm^cnststat^inptuserid^lastrepluserid^signno";
        sizedata = "5^30^100^60^55^30^100^65^65^85^65^85^65^100^65^40^30^65^100^70^65^65^0^70^70^50^0^0^0^0^0^0^0^0^0^0^0";
    }

    setOrderInfoOfCol("grd_cnstlist", refdata, sizedata);
    
    submit("TRMMR04901");       //ÄÁ¼³Æ® ºÎ¼­Á¶È¸
    
}

/**
 * @desc   : Ä÷³ ¼ø¼­ Á¤º¸ ¼³Á¤
 * @
 * @param  : grid ID  : ±×¸®µåID
 *         : refdata  : ±×¸®µå refµ¥ÀÌÅÍ  ±¸ºÐÀÚ '^'
 *         : sizedata : ±×¸®µå sizeµ¥ÀÌÅÍ ±¸ºÐÀÚ '^'
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function setOrderInfoOfCol(grdid, refdata, sizedata)
{
   var grdobj    = document.controls.item(grdid);
   var refarr  = refdata.split("^");
   var sizearr = sizedata.split("^");

   for(var i = 0; i < refarr.length; i++){
      var colcnt = grdobj.colref("" + refarr[i] + "");
      grdobj.colMove(i, colcnt, "before", false);

      var size = sizearr[i];

      if(size == 0){ // size of column 0 -> hidden
         grdobj.colHidden(i) = true;
      }else{
         grdobj.colHidden(i) = false;
      }
      grdobj.colWidth(i) = eval(size);
   }
   grdobj.rebuild();
}

/**
 * @desc   : È®ÀξÈÇÑ È¸½Å°Ç Ä«¿îÆ®
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fCountReplList()
{
    var instance = document.models(0).instances(0);
    var nodelistCnst = instance.selectNodes("/root/main/cnstlist[requserid='" + getUserId() + "' and (cnststat = '22' or cnststat = '32')]");
    if (nodelistCnst.length > 0)
    {
        model.setValue("/root/init/replinfo", "È®ÀÎÇÏÁö ¾ÊÀº ȸ½Å " + nodelistCnst.length + "°Ç Á¸ÀçÇÕ´Ï´Ù.");
    }
    else
    {
        model.setValue("/root/init/replinfo", "");
    }

    model.refresh();
}

/**
 * @desc   : »ç¿ëÀÚ Á¶È¸
 * @
 * @param  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 * @---------------------------------------------------
 */
function fAftertemp()
{
    mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", cmb_orddept.value, "0330");
}

/*****************************************************************************
Æ©´×
******************************************************************************/


/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : function
 * @access : private
 * @desc   : ÀÇ·Ú¼­ ¼±ÅÃÀ» À§ÇÑ Æ˾÷ È£Ãâ ¹× ÀÇ·Ú¼­ ·Îµù
 * @param  : cnstflag - Áø·áÀÇ·Ú/Ÿ°úÀÇ·Ú ±¸ºÐ ("1"/"3")
 * @return :
 * @---------------------------------------------------
 */
function fNewCnst(cnstflag)
{
	/*
    if (model.getValue ("/root/main/result/paminfo/list/ioflag") == "E" && cnstflag == "1")
    {
        messageBox("ÀÀ±Þ½Ç Àç¿ø ȯÀÚ´Â Áø·á°ú consult¸¦ ¹ßÇàÇÒ ¼ö ¾ø½À´Ï´Ù.º´µ¿ ÀÔ¿ø ÈÄ ÀÇ·Ú", "I008");
        return;
    }
    */
    
    if (doctyn == "Y")
    {
        srchmode = "piduserreq";
    }
    else
    {
        srchmode = "piddeptreq";
    }
    
    var nonstopyn = opener.window.javascript.getParameter("SMMMR05000_nonstopyn");
    var paramformcd = opener.window.javascript.getParameter("SMMMR05000_formcd");
    var paramdeptcd = opener.window.javascript.getParameter("SMMMR05000_deptcd");
    var paramdeptnm = opener.window.javascript.getParameter("SMMMR05000_deptnm");
    var paramdrid = opener.window.javascript.getParameter("SMMMR05000_drid");
    var paramdrnm = opener.window.javascript.getParameter("SMMMR05000_drnm");
    var paramorddd = opener.window.javascript.getParameter("SMMMR05000_orddd");
    var paramcnstflag = opener.window.javascript.getParameter("SMMMR05000_cnstflag");
    var paramreplflag = opener.window.javascript.getParameter("SMMMR05000_replflag");
    var paramcnstioflag = opener.window.javascript.getParameter("SMMMR05000_cnstioflag");
    
    
    if (nonstopyn != "Y") {
    	setParameter("MMR05000_cnstflag", cnstflag);
	    modal("SPMMR03900");
	
	    if(getParameter("SPMMR03900_deptnm") == "") {
	      return;
	    }
	  }
	  else {
	  	setParameter("SPMMR03900_formcd",paramformcd);
	  	setParameter("SPMMR03900_deptcd",paramdeptcd);
	  	setParameter("SPMMR03900_deptnm",paramdeptnm);
	  	setParameter("SPMMR03900_drid",paramdrid);
	  	setParameter("SPMMR03900_drnm",paramdrnm);
	  	setParameter("SPMMR03900_orddd",paramorddd);
	  	setParameter("SPMMR03900_cnstflag",paramcnstflag);
	  	//setParameter("SPMMR03900_formnm",paramformnm);
	  	setParameter("SPMMR03900_replflag",paramreplflag);
	  	setParameter("SPMMR03900_cnstioflag",paramcnstioflag);
	  }

    var formcd = getParameter("SPMMR03900_formcd");
    var deptcd = getParameter("SPMMR03900_deptcd");
    var deptnm = getParameter("SPMMR03900_deptnm");
    var drid   = getParameter("SPMMR03900_drid");
    var drnm   = getParameter("SPMMR03900_drnm");
    var orddd  = getParameter("SPMMR03900_orddd");
    var cnstflag = getParameter("SPMMR03900_cnstflag");
    var formnm = getParameter("SPMMR03900_formnm");
    var replflag = getParameter("SPMMR03900_replflag");
    var cnstioflag = getParameter("SPMMR03900_cnstioflag");
    var reqdeptno = getParameter("SPMMR03900_reqdeptno");
    
    var mainscrnid = getScreenID();
    
    setParameter("SPMMR04900_mainscrnid", mainscrnid );
    setParameter("MMR05000_cnstflag", cnstflag);
    clearParameter("SPMMR03900_formcd");
    clearParameter("SPMMR03900_deptcd");
    clearParameter("SPMMR03900_deptnm");
    clearParameter("SPMMR03900_drid");
    clearParameter("SPMMR03900_drnm");
    clearParameter("SPMMR03900_orddd");
    clearParameter("SPMMR03900_cnstflag");
    clearParameter("SPMMR03900_formnm");
    clearParameter("SPMMR03900_replflag");
    clearParameter("SPMMR03900_cnstioflag");

    
    if(cnstflag == "1")
    {
        fOpenCnstForm(formcd, deptcd, deptnm, drid, drnm, orddd, cnstflag, "", "", cnstioflag);
        //2014/01/24 ¸¶Ãë°ú·Î ÄÁ¼³Æ® ÀǷڽà ÅëÁõ ¶Ç´Â ¸¶ÃëÀÎÁö ±¸ºÐ ÇÒ ¼ö ÀÖµµ·Ï ÄÁÆ®·Ñ È°¼ºÈ­
        if(deptcd=="2090000000"){
        	ivw_loader.ivw_base.cap_gubun.visible=true;
        	ivw_loader.ivw_base.rdo_anstflag.visible=true;
        	ivw_loader.ivw_base.rdo_anstflag.value="";
        	ivw_loader.ivw_base.rdo_anstflag.refresh();
        }else{
        	ivw_loader.ivw_base.cap_gubun.visible=false;
        	ivw_loader.ivw_base.rdo_anstflag.visible=false;
        	ivw_loader.ivw_base.rdo_anstflag.value="";
        	ivw_loader.ivw_base.rdo_anstflag.refresh();
        	
        	//ÃʱâÈ­
        	ivw_loader.ivw_base.model.makeValue("/root/init/cond/jinyn","N");
        	//ivw_loader.ivw_base.model.makeValue("/root/init/cond/jinyn","N");
        	
        	//ivw_loader.ivw_base.b_jinyn.value="";
        	ivw_loader.ivw_base.b_jinyn.refresh();
        	
        }
        //2014/01/24
    }
    else
    {
        if(formcd == "0000000964")
        {
            modal("SPADC61700");
        }
        else if(formcd == "0000000769")
        {
            modal("SPADC62000");
        }
        else if(formcd == "0000000768")
        {
            modal("SPADC61800");
        }
        else if(formcd == "0000000770" || formcd == "0000003019")
        {
            model.removeNodeset("/root/temp/cnstinfo");
            model.makeValue("/root/temp/cnstinfo", formcd);
            modal("SPADB62300", 1, 0, 0 ,"SPADB62300", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
        }
        else if(formcd == "0000000771")
        {
            modal("SPADC62100");
        }
        else if(formcd == "0000000693")
        {
            modal("SPADC60900");
        }
        else
        {
            fOpenCnstForm(formcd, deptcd, deptnm, "", "", "", cnstflag, formnm, replflag, "");
            
			//[¿äû¹øÈ£:20160628017] °¡Á¤È£½ºÇǽº À̿뵿ÀǼ­  È®ÀÎ Æ˾÷ ¿äû
			if( getUserInfo("dutplceinstcd") == "032" && formcd == "1600017738" ){
				messageBox("°¡Á¤ È£½ºÇǽº ÀÇ·Ú ½Ã ¿ÏÈ­ ÀÇ·á À̿뵿ÀǼ­ È®ÀÎ ÇϽʽÿä.","I");
			}else if( getUserInfo("dutplceinstcd") == "032" && formcd == "1700019904" ){
				// [¿äû¹øÈ£:20180228002] consultÈ­¸é¿¡¼­ ÀǷڽà ÀÚµ¿Æ˾÷â ¿äû
				messageBox("ÀÚ¹® È£½ºÇǽº ÀÇ·Ú ½Ã ȯÀÚ ¹× º¸È£ÀÚ¿¡°Ô ¿ÏÈ­ ÀÇ·á À̿뵿ÀÇ È®ÀÎ ÈÄ ÀÇ·ÚÇÏ¿© ÁֽʽÿÀ.","I");
			}
        }
        
        fGetCnstlist(srchmode);
    }
}

/*****************************************************************************
Æ©´×
******************************************************************************/



/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : function
 * @access : private
 * @desc   : Áø·áÀÇ·Ú È­¸é ·Îµù
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fOpenCnstForm(formcd, cnstdeptcd, cnstdeptnm, drid, drnm, hopedd, cnstflag, formnm, replflag, cnstioflag)
{
    ivw_loader.disabled = false;
    setParameter("userdeptcd", cnstdeptcd);
    ivw_loader.window.javascript.setParameter("SMMMR04900_newcnstform", "Y");
    ivw_loader.window.javascript.setParameter("SMMMR04900_formcd", formcd);
    ivw_loader.window.javascript.setParameter("SMMMR04900_reqdeptno", getParameter("SPMMR03900_reqdeptno"));

    if (replflag == "R")    //ÀǷںμ­´Â ȯÀÚÁø·á°ú
    {
        var reqdpcd = ivw_loader.model.getValue("/root/main/paminfo/orddeptcd");
        model.setValue("/root/cond/orddeptcd", reqdpcd);

        fAftertemp();

        var reqdrid = ivw_loader.model.getValue("/root/main/paminfo/orddrid");
        model.setValue("/root/cond/orddrid", reqdrid);

        var reqdpnm = model.getValue("/root/init/deptlist/orddept[deptcd = '" + reqdpcd + "']/deptnm");
        var reqdrnm = model.getValue("/root/init/userlist/usercombo[userid = '" + reqdrid + "']/usernm");

        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdpcd", reqdpcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdpnm", reqdpnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdrid", reqdrid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqdrnm", reqdrnm);

        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", cnstdeptcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", cnstdeptnm);
        
        
        
        
    }
    else if (replflag == "D")   //ȸ½ÅºÎ¼­´Â ȯÀÚ Áø·á°ú
    {
        var recvdpcd = ivw_loader.model.getValue("/root/main/paminfo/orddeptcd");
        model.setValue("/root/cond/orddeptcd", recvdpcd);

        fAftertemp();

        var recvdrid = ivw_loader.model.getValue("/root/main/paminfo/orddrid");
        model.setValue("/root/cond/orddrid", recvdrid);

        var recvdpnm = model.getValue("/root/init/deptlist/orddept[deptcd = '" + recvdpcd + "']/deptnm");
        var recvdrnm = model.getValue("/root/init/userlist/usercombo[userid = '" + recvdrid + "']/usernm");

        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", recvdpcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", recvdpnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstuserid", recvdrid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstusernm", recvdrnm);
    }
    else if (replflag == "T")   //ÆÀÀÇ·Ú
    {
        model.makeValue("/root/send/formcd", formcd);
        var recvdpnm = "";
        
        if (submit("TRMMR05003"))
        {
            var edudplist = model.instances(0).selectNodes("/root/edudept/edudeptlist");
            
            if(edudplist.length == 0){
            	alert("ÇѰǵµ ¾ø´Ù.");
            	return false;
            }

            for (var i = 0; i < edudplist.length; i++)
            {
                depthngnm = edudplist.item(i).selectSingleNode("depthngnm").text;
                recvdpnm += depthngnm + ", "
            }
                
        }
        
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", recvdpnm.substring(0, recvdpnm.length - 2));
        
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", cnstdeptcd);
        
        /*
        var recvdpcd = ivw_loader.model.getValue("/root/main/paminfo/orddeptcd");
        model.setValue("/root/cond/orddeptcd", recvdpcd);

        fAftertemp();

        var recvdrid = ivw_loader.model.getValue("/root/main/paminfo/orddrid");
        model.setValue("/root/cond/orddrid", recvdrid);

        var recvdpnm = model.getValue("/root/init/deptlist/orddept[deptcd = '" + recvdpcd + "']/deptnm");
        var recvdrnm = model.getValue("/root/init/userlist/usercombo[userid = '" + recvdrid + "']/usernm");

        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", recvdpcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", recvdpnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstuserid", recvdrid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstusernm", recvdrnm);
        */
    }
    else
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptcd", cnstdeptcd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstdeptnm", cnstdeptnm);
    }
    //fAftertemp

    if (cnstflag == "1")
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_drid", drid);
        ivw_loader.window.javascript.setParameter("SMMMR04900_drnm", drnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_hopedd", hopedd);
        ivw_loader.window.javascript.setParameter("SMMMR04900_cnstioflag", cnstioflag);
        
        //ÀÌÀ±ÁÖ(20140812)
        var paramreqcnt = opener.window.javascript.getParameter("SMMMR05000_reqcnt");
        ivw_loader.window.javascript.setParameter("SMMMR04900_reqcnt", paramreqcnt);
        
    }
    else if (cnstflag == "3")
    {
        ivw_loader.window.javascript.setParameter("SMMMR04900_formnm", formnm);
        ivw_loader.window.javascript.setParameter("SMMMR04900_replflag", replflag);
    }

    ivw_loader.window.javascript.setParameter("SMMMR04900_cnstflag", cnstflag);
    ivw_loader.window.javascript.fLoadNewForm(formcd);

}

/**
 * @group  :
 * @ver    : 2008.09.01
 * @by     : jonghun
 * @---------------------------------------------------
 * @type   : function
 * @access : private
 * @desc   : ÄÁ¼³Æ® ¸®½ºÆ® ´õºíŬ¸¯½Ã À̺¥Æ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDbClickCnstList()
{  
	
    if((grd_cnstlist.isCell(event.target) && grd_cnstlist.mouserow >= grd_cnstlist.fixedrows))
    {
    	//chk_setPatInfo.disabled = false;
        var cnfmyn = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnfmyn"));
        
        if (cnfmyn == "N")
	    {
		    messageBox("OCS¿¡¼­ ÀÛ¼ºÇÑ ±â·ÏÀº ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù. ÀÇ·áÁ¤º¸ÆÀÀ¸·Î ¹®ÀÇ", "I008");
			}
			else{ 
				ivw_loader.grup_btn.disabled = false;  //2009-12-08 ¿ÀÈÄ 9:00:59 °­ÁöÈÆ ¼öÁ¤ 
			}

		var irow = parseInt(grd_cnstlist.row);
		grd_cnstlist.allstyle("data", "background-color") = "#ffffff";
        grd_cnstlist.rowstyle(irow, "data", "background-color") = "#ffcc99";
		grd_cnstlist.refresh();   
		
		fCnstGrdSize("min");
		
		var cnstformcd = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("formcd"));
		var cnstflag = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnstflag"));
		var formrecseq = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("formrecseq"));
		var selpid = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("pid"));
		var sroomcd = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("roomcd"));
		var sCnststat = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat"));
		
		if (sCnststat == "04" || sCnststat == "05")
		{
		    messageBox("Ãë¼ÒµÈ ÀÇ·Ú", "I009");
		    return;
		}
		if(cnstflag == "1")
        {
			
            fOpenRecCnstForm(grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("formrecseq")), grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnstflag")));

			//2014/01/28 ¼ö½Å°ú°¡ ¸¶ÃëÅëÁõÀÇÇаú ÀϽÿ¡´Â ÀÇ·Ú±¸ºÐÀÌ º¸À̵µ·Ï ¼³Á¤
            var userdeptcd=getUserInfo("dutplcecd"); // À¯ÀúºÎ¼­
            var cnststat = model.getValue("/root/main/cnstlist["+grd_cnstlist.row+"]/cnststat"); // ÄÁ¼³Æ® »óÅÂ
            if(cnstformcd=="0000000677" && grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("reqdeptcd")) == getUserInfo("dutplcecd") &&
               grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvdeptcd"))=="2090000000" && cnststat == "12"){
            	ivw_loader.ivw_base.cap_gubun.visible=true;
				ivw_loader.ivw_base.rdo_anstflag.visible=true;	
				ivw_loader.ivw_base.rdo_anstflag.value=model.getValue("/root/main/cnstlist["+grd_cnstlist.row+"]/anstflag");
				ivw_loader.ivw_base.rdo_anstflag.disabled=false;
				ivw_loader.ivw_base.rdo_anstflag.refresh();
            }else if(cnstformcd=="0000000677" && grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("reqdeptcd")) == getUserInfo("dutplcecd") &&
            		 grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvdeptcd"))=="2090000000" && cnststat > "12"){
            	ivw_loader.ivw_base.cap_gubun.visible=true;
				ivw_loader.ivw_base.rdo_anstflag.visible=true;	
				ivw_loader.ivw_base.rdo_anstflag.value=model.getValue("/root/main/cnstlist["+grd_cnstlist.row+"]/anstflag");
				ivw_loader.ivw_base.rdo_anstflag.disabled=true;
				ivw_loader.ivw_base.rdo_anstflag.refresh();
            }else if(cnstformcd=="0000000677" && grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvdeptcd"))=="2090000000" &&
			   getUserInfo("dutplcecd") == "2090000000"){
				ivw_loader.ivw_base.cap_gubun.visible=true;
				ivw_loader.ivw_base.rdo_anstflag.visible=true;	
				ivw_loader.ivw_base.rdo_anstflag.value=model.getValue("/root/main/cnstlist["+grd_cnstlist.row+"]/anstflag");
				ivw_loader.ivw_base.rdo_anstflag.disabled=true;
				ivw_loader.ivw_base.rdo_anstflag.refresh();
			}else{
				ivw_loader.ivw_base.cap_gubun.visible=false;
				ivw_loader.ivw_base.rdo_anstflag.visible=false;
				ivw_loader.ivw_base.rdo_anstflag.value="";
				ivw_loader.ivw_base.rdo_anstflag.disabled=false;
				ivw_loader.ivw_base.rdo_anstflag.refresh();
			}
			//2014/01/28

            //2012/02/10 Start ÄÁ¼³Æ®ÀÇ »óÅ°¡ ÀÇ·ÚÀϽÿ¡´Â ¼ö½Å°ú ¹× ¼ö½ÅÀǸ¦ ¼öÁ¤°¡´ÉÅä·Ï ÇÏÁö¸¸ ±× ÀÌ¿Ü´Â ¼öÁ¤ ºÒ°¡´ÉÇϵµ·Ï ¸·À½
            if(grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat"))=="12"){
            	ivw_loader.ivw_base.cmb_recdept.disabled=false;
            	ivw_loader.ivw_base.cmb_recdoct.disabled=false;
            	ivw_loader.ivw_base.combo1.disabled=false;
            }else{
            	ivw_loader.ivw_base.cmb_recdept.disabled=true;
            	ivw_loader.ivw_base.cmb_recdoct.disabled=true;
            	ivw_loader.ivw_base.combo1.disabled=true;
            }
            
            /*
            //ConsultÈ­¸é¿¡¼­ ÄÁ¼³Æ® ³»¿ª ´õºíŬ¸¯½Ã ¿µ»ó±¸ºÐÀ» disabled¸¦ Á¦¾î(ÀÇ·ÚÀϽÿ¡¸¸ ¼öÁ¤°¡´É)
            if((grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("inptuserid"))==getUserInfo("userid"))&&
                grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat"))=="12" &&
                grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvdeptcd"))=="2160000000"){
            	ivw_loader.ivw_base.combo1.disabled=false;
            }else{
            	ivw_loader.ivw_base.combo1.disabled=true;
            }
            */
            //2012/02/10 End
        }
        else
        {
            if(cnstformcd == "0000003019" || cnstformcd == "0000000964" || cnstformcd == "0000000769" || cnstformcd == "0000000770" || cnstformcd == "0000000771" || cnstformcd == "0000000693")
            {
                model.removeNodeset("/root/temp/cnstinfo");
                model.makeNode("/root/temp/cnstinfo");
                model.copyNode("/root/temp/cnstinfo", "/root/main/cnstlist[formrecseq='" + formrecseq + "']");
                
                var cnststat = parseInt(grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat")));
                if (cnststat >= 22)
                {
                    modal("SPADC62200", 1, 0, 0 ,"SPADC62200", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                }
                else
                {
                    if(cnstformcd == "0000000964")
                    {
                        modal("SPADC61700", 1, 0, 0 ,"SPADC61700", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                    }
                    else if(cnstformcd == "0000000769")
                    {
                        modal("SPADC62000", 1, 0, 0 ,"SPADC62000", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                    }
                    else if(cnstformcd == "0000000770" || cnstformcd == "0000003019")
                    {
                        modal("SPADB62300", 1, 0, 0 ,"SPADB62300", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                    }
                    else if(cnstformcd == "0000000771")
                    {
                        modal("SPADC62100", 1, 0, 0 ,"SPADC62100", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                    }
                    else if(cnstformcd == "0000000693")
                    {
                        modal("SPADC60900", 1, 0, 0 ,"SPADC60900", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                    }
                }
                fGetCnstlist(srchmode);
            }
            else if(cnstformcd == "0000000768")
            {
                model.removeNodeset("/root/temp/cnstinfo");
                model.makeNode("/root/temp/cnstinfo");
                model.copyNode("/root/temp/cnstinfo", "/root/main/cnstlist[formrecseq='" + formrecseq + "']");
                
                var cnststat = parseInt(grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat")));
                if (cnststat >= 22)
                {
                    modal("SMADC01600", 1, 0, 0 ,"SMADC01600", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                }
                else
                {
                    modal("SPADC61800", 1, 0, 0 ,"SPADC61800", "/root/temp/cnstinfo", "/root/temp/cnstinfo");
                }
                
                fGetCnstlist(srchmode);
            }
            else
            {
                fOpenRecCnstForm(grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("formrecseq")), grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnstflag")));
            }
        }
        
        ipt_pid.value = selpid;
        fPidKeyPress("N", sroomcd);
      
        //2009-12-08 ¿ÀÈÄ 8:58:57 °­ÁöÈÆ ¼öÁ¤   
        if (cnfmyn == "N")
        {
            ivw_loader.grup_btn.disabled = true;
        }
        else
    	{
    	    ivw_loader.grup_btn.disabled = false;
    	}
	        
	}
	 /* if (model.getValue("/root/init/paminfoyn") == "Y"){
	  fChngMainEMRScrn();
	  }*/
}

/**
 * @group  :
 * @ver    : 2008.10.10
 * @by     : jonghun
 * @---------------------------------------------------
 * @type   : function
 * @access : private
 * @desc   : ÄÁ¼³Æ® ¸®½ºÆ® ¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ° À̺¥Æ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
 function fCnstListMouseRight()
{
    setPopupMenu("grd_cnstlist", false, "/root/init/cnstrecvmsrghtpat/mouserght", "label", "func"); //ÄÁ¼³Æ®¸®½ºÆ® ¿ìŬ¸¯½Ã »ó´Ü¿¬°è À̺¥Æ® Ãß°¡ 2009.12.12 LYJ
    if(grd_cnstlist.isCell(event.target) && (grd_cnstlist.mouserow >= grd_cnstlist.fixedrows))
    {
        var grdcnststat = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststat"));
        var cnstformcd = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("formcd"));
        var grdrequserid = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("medispclid"));
        var grdatdoctid = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("atdoctid"));
        var grdinputuserid = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("inptuserid"));
        var grdreqdpcd = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("reqdeptcd"));
        
        var grdrecvuserid = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvuserid"));
        var grdrecvdpcd = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("recvdeptcd"));
        var cnststatnm = grd_cnstlist.valueMatrix(grd_cnstlist.row, grd_cnstlist.colRef("cnststatnm"));
        
        var loginuserid = getUserId();
        var loginuserdpcd = getUserInfo("dutplcecd");
        
        if (cnstformcd != "0000003019" && cnstformcd != "0000000964" && cnstformcd != "0000000769" && cnstformcd != "0000000770" && cnstformcd != "0000000771" && cnstformcd != "0000000693" && cnstformcd != "0000000768")
        {        
            if ((grdcnststat == "11" || grdcnststat == "12" || grdcnststat == "20") && (grdreqdpcd == loginuserdpcd || loginuserid == grdrequserid || loginuserid == grdatdoctid || loginuserid == grdinputuserid ||loginuserid==pat_atdoctid ||loginuserid==pat_medispclid))
            {
            	//2013/01/29 Start ȯÀÚÀÇ ÁÖÄ¡ÀÇ ¶Ç´Â ´ã´çÀÇ ÀÎÁö Ç÷¡±× ¼ÂÆÃ
            	if(loginuserid==pat_atdoctid ||loginuserid==pat_medispclid){
            		model.makeValue("/root/send/orddridchk", "Y");
            	}
            	//2013/01/29 End
            	
                model.setValue("/root/init/cnstreqmsrght/mouserght/label", "ÀÇ·Ú Ãë¼Ò");
                
                setPopupMenu("grd_cnstlist", false, "/root/init/cnstreqmsrght/mouserght", "label", "func");
            }
            else if ((grdcnststat == "20" || grdcnststat == "21") && (loginuserdpcd == grdrecvdpcd || loginuserid == grdrecvuserid))
            {
                //model.setValue("/root/init/cnstrecvmsrght/mouserght/label", cnststatnm + " Ãë¼Ò");
                //setPopupMenu("grd_cnstlist", false, "/root/init/cnstrecvmsrght/mouserght", "label", "func");
            }
        }        
	
		//model.setValue("/root/main/cccdinfo/cccd[" + grd_cccd.mouserow + "]/boolflag", "true");
		//model.refresh();
		//alert(grd_cccd.getUpdateData());
		
  		//setPopupMenu("grd_cccd", false, "/root/init/ccmsrght/mouserght", "label", "func");
	}
}

/**
 * @group  :
 * @ver    : 2008.10.17
 * @by     : jonghun
 * @---------------------------------------------------
 * @type   : function
 * @access : private
 * @desc   : Ãâ·Â ¹öÆ° À̺¥Æ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
 function fClickPrtBtn()
{
	var checkflag = "";
	var formcd = "";
	var signno = "";
	var prtparam = "";
	
	var cnststat = "";
	var recvdpcd = "";
	var arrrecseq = "formrecseq¢Ëcnstflag¢Ì";
	var isExiest = "N";     //YÀÏ°æ¿ì ¼­ºê¹Ô
	
	var selectcnt=getNodesetCount("/root/main/cnstlist[checkflag='Y']");
	
	if(selectcnt<1){
		messageBox("¼±ÅÃµÈ ÀÇ·Ú°¡", "I004");
		return;
	}
	
	for(var i = 1 ; i < grd_cnstlist.rows ; i++){
		checkflag = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag"));
		
		if(checkflag == "Y")
		{
			formcd = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("formcd"));
			signno = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("signno"));
			cnststat = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("cnststat"));
			recvdpcd = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("recvdeptcd"));
			
			if (formcd != "" && signno != "0")
			{
				prtparam += "E¢Ë" + signno + "¢Ë" + formcd + "¢Ì";
				
				if (cnststat == "12" && recvdpcd == getUserInfo("dutplcecd"))
				{
				    arrrecseq += grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("formrecseq")) + "¢Ë" + grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("cnstflag")) + "¢Ì";
				    isExiest = "Y";
				}
			}
		}	
	}
	
	if (isExiest == "Y")
	{
        model.makeValue("/root/send/arrrecseq", arrrecseq);

        if(submit("TXMMR05004"))
        {
            grd_cnstlist.allstyle("data", "background-color") = "#ffffff";
            grd_cnstlist.refresh();
            
            fCountReplList();
            fGetCnstlist(srchmode);
        }
	}
	
	if(prtparam == "")
	{
		messageBox("Ãâ·ÂÇÒ ¼ö ¾ø´Â ¼­½ÄÀÔ´Ï´Ù", "I", "");
		for(var i=1; i<=grd_cnstlist.rows; i++){
			grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag"))="N";
		}
		model.refresh();
		return;
	}
	
	//setParameter("SPMRI02400_autoprtYn", "Y");
	setParameter("SPMRI02400_prtrecinfo", prtparam);
	//modal("SPMRI02400", 1, "", "", "", "", "", "left:-800; right:0; width:0; height:0;");
	modal("SPMRI02400");
}

function fSelPatInfo()
{
	messageBox("ÁغñÁßÀÔ´Ï´Ù","Q999");
	return;
}


/**
 * @desc   : ¿µ»óÀÇÇаú Æǵ¶ ÇùÁøÀÇ·Ú¼­ ¼±ÅÃ
 * @id     :
 * @event  : 
 * @return : void
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickCoTrmtCnst()
{
    //formcd :1000009108, formnm :¿µ»óÀÇÇаú Æǵ¶ ÇùÁøÀÇ·Ú¼­, cnstdeptcd : 2160000000, cnstdeptnm : ¿µ»óÀÇÇаú, replflag : -

		//fOpenCnstForm(formcd, deptcd, deptnm, "", "", "", cnstflag, formnm, replflag, "");
		fOpenCnstForm("1000009108", "2160000000", "¿µ»óÀÇÇаú", "", "", "", "3", "¿µ»óÀÇÇаú Æǵ¶ ÇùÁøÀÇ·Ú¼­", "-", "");

		if (doctyn == "Y") {
			srchmode = "piduserreq";
		} else {
			srchmode = "piddeptreq";
		}
		
		fGetCnstlist(srchmode);
}

/**
* @desc   : »èÁ¦¹öÆ° Ŭ¸¯½Ã »èÁ¦Ã³¸®
* @id     :
* @event  : 
* @return : 
* @authur : 
*/
function fCnstRecDelete(){

	var selectcnt=getNodesetCount("/root/main/cnstlist[checkflag='Y']");
	var select_row=grd_cnstlist.row;
	var cnststatnm = grd_cnstlist.valueMatrix(select_row , grd_cnstlist.colRef("cnststatnm"));
	
	if(selectcnt<1){
		messageBox("¼±ÅÃµÈ ÀÇ·Ú°¡", "I004");
		return;
	}
	
	if(selectcnt>1){
		messageBox("ÀÇ·ÚÃë¼ÒÀÇ °æ¿ì ¸ÖƼ¼±ÅÃÀ»", "E001");
		
		model.setValue("/root/main/cond/checkallitem", "N");
		for(var i=1; i<=grd_cnstlist.rows; i++){
			grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag"))="N";
		}
		model.refresh();
		return;
	}
	
	if(cnststatnm=="Ãë¼Ò"){
		messageBox("ÀÌ¹Ì Ãë¼ÒµÈ °ÇÀÌ", "E005");
		grd_cnstlist.valueMatrix(select_row , grd_cnstlist.colRef("checkflag"))="N";
		return;
	}
	
	var savedata = "formrecseq¢Ëformcd¢Ëorddridchk¢Ì";
	var datastring="";
	var orddridchk="N";
	
	
	var scnststat = parseInt(grd_cnstlist.valueMatrix(select_row , grd_cnstlist.colRef("cnststat")));
	var formrecseq = model.getValue("/root/main/cnstlist[" + select_row + "]/formrecseq");
    var cnstformcd = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("formcd"));
    var grdrequserid = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("requserid"));
    var grdmedispclid = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("medispclid"));
    var grdatdoctid = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("atdoctid"));
    var grdinputuserid = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("inptuserid"));
    var grdreqdpcd = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("reqdeptcd"));
    
    var grdrecvuserid = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("recvuserid"));
    var grdrecvdpcd = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("recvdeptcd"));
    var cnststatnm = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("cnststatnm"));
    var formnm = grd_cnstlist.valueMatrix(select_row, grd_cnstlist.colRef("formnm"));
    
    var loginuserid = getUserId();
    var loginuserdpcd = getUserInfo("dutplcecd");
    
	if(scnststat>=20 && (cnstformcd == "0000003019" || cnstformcd == "0000000964" || 
	   cnstformcd == "0000000769" || cnstformcd == "0000000770" || cnstformcd == "0000000771" || 
       cnstformcd == "0000000693" || cnstformcd == "0000000768" || cnstformcd == "1000009108")){
		// ¾Æ·¡ÀÇ 8°¡Áö Áö¿øºÎ¼­ ÀÇ·ÚÀÏ °æ¿ì´Â »óÅ°ªÀÌ ÀÇ·ÚÀӽà ¶Ç´Â ÀÇ·Ú »óÅ¿¡¼­´Â »èÁ¦ µÉ ¼ö ÀÖÀ½
		/*
		 	0000000693	¾à¹°À¯ÇعÝÀÀ ÀÇ·Ú
			0000000768	¾àÇ°½Äº°ÀÇ·Ú
			0000000769	ÀÓ»ó¾àµ¿ÇÐÀÇ·Ú(TDM)
			0000000770	Á¤¸Æ¿µ¾çÁö¿øÀÇ·Ú
			0000000771	º¹¾à»ó´ãÀÇ·Ú
			0000000964	Ç×ÀÀ°í¾à¹°»ó´ã(ACS)ÀÇ·Ú
			0000003019	°æÀ念¾çÁö¿øÀÇ·Ú(EN)
			1000009108    Æǵ¶ÇùÁøÀÇ·Ú
		 */

		messageBox(formnm + "´Â »óÅ°ªÀÌ ÀÇ·ÚÀÏ ¶§¸¸ Ãë¼Ò", "I006");
		grd_cnstlist.valueMatrix(select_row , grd_cnstlist.colRef("checkflag"))="N";
		return;
	}
	
	if(cnstformcd == "0000003019" || cnstformcd == "0000000964" || 
			   cnstformcd == "0000000769" || cnstformcd == "0000000770" || cnstformcd == "0000000771" || 
			   cnstformcd == "0000000693" || cnstformcd == "0000000768" || cnstformcd == "1000009108"){
				if(loginuserdpcd != grdreqdpcd && loginuserid != grdrequserid && 
				   loginuserid != grdatdoctid && loginuserid != grdinputuserid &&
				   loginuserid != grdmedispclid && loginuserid!=pat_atdoctid &&
				   loginuserid != pat_medispclid){
					messageBox("¼öÁ¤ ±ÇÇÑÀÌ ¾ø½À´Ï´Ù", "I", "");
					return;
				}
	}
	
	if((loginuserdpcd == grdreqdpcd || loginuserid == grdrequserid || loginuserid == grdatdoctid || 
        loginuserid == grdinputuserid ||loginuserid==pat_atdoctid ||loginuserid==pat_medispclid)){
		//if((loginuserid==pat_atdoctid ||loginuserid==pat_medispclid) && cnstformcd=="0000000677"){
		if(loginuserid==pat_atdoctid ||loginuserid==pat_medispclid){
           	orddridchk="Y";
        }
        if (formrecseq != ""){
        	datastring += formrecseq + "¢Ë" + cnstformcd + "¢Ë" + orddridchk + "¢Ì";
		}
	}

	
/*	
	for(var i = 1 ; i < grd_cnstlist.rows ; i++){
		if(grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag"))=="N"){
			continue;
		}
		var scnststat = grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("cnststat"));
		var formrecseq = model.getValue("/root/main/cnstlist[" + i + "]/formrecseq");
        var cnstformcd = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("formcd"));
        var grdrequserid = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("medispclid"));
        var grdatdoctid = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("atdoctid"));
        var grdinputuserid = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("inptuserid"));
        var grdreqdpcd = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("reqdeptcd"));
        
        var grdrecvuserid = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("recvuserid"));
        var grdrecvdpcd = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("recvdeptcd"));
        var cnststatnm = grd_cnstlist.valueMatrix(i, grd_cnstlist.colRef("cnststatnm"));
        
        var loginuserid = getUserId();
        var loginuserdpcd = getUserInfo("dutplcecd");
*/        
/*        if(scnststat == "11" || scnststat == "12" || scnststat == "20"){
        	if(scnststat=="20" && (cnstformcd == "0000003019" || cnstformcd == "0000000964" || 
        	   cnstformcd == "0000000769" || cnstformcd == "0000000770" || cnstformcd == "0000000771" || 
               cnstformcd == "0000000693" || cnstformcd == "0000000768" || cnstformcd == "1000009108")){
        		// ¾Æ·¡ÀÇ 8°¡Áö Áö¿øºÎ¼­ ÀÇ·ÚÀÏ °æ¿ì´Â »óÅ°ªÀÌ ÀÇ·ÚÀӽà ¶Ç´Â ÀÇ·Ú »óÅ¿¡¼­´Â »èÁ¦ µÉ ¼ö ÀÖÀ½
        		
        		 	0000000693	¾à¹°À¯ÇعÝÀÀ ÀÇ·Ú
					0000000768	¾àÇ°½Äº°ÀÇ·Ú
					0000000769	ÀÓ»ó¾àµ¿ÇÐÀÇ·Ú(TDM)
					0000000770	Á¤¸Æ¿µ¾çÁö¿øÀÇ·Ú
					0000000771	º¹¾à»ó´ãÀÇ·Ú
					0000000964	Ç×ÀÀ°í¾à¹°»ó´ã(ACS)ÀÇ·Ú
					0000003019	°æÀ念¾çÁö¿øÀÇ·Ú(EN)
					1000009108    Æǵ¶ÇùÁøÀÇ·Ú
        		 
        		grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag")) = "N";
        		model.refresh();
        		continue;
        	}
        	
        	if((loginuserdpcd == grdreqdpcd || loginuserid == grdrequserid || loginuserid == grdatdoctid || 
   	            loginuserid == grdinputuserid ||loginuserid==pat_atdoctid ||loginuserid==pat_medispclid)){
   	        	if((loginuserid==pat_atdoctid ||loginuserid==pat_medispclid) && cnstformcd=="0000000677"){
   	            	orddridchk="Y";
   	            }
   	            if (formrecseq != ""){
   				   	datastring += formrecseq + "¢Ë" + cnstformcd + "¢Ë" + orddridchk + "¢Ì";
   				}
   	         orddridchk="N";
   	        }
        	else{
        		grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag")) = "N";
        	}
   		}else{
   			grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag")) = "N";
   		}
	}*/
	
	if(datastring!=""){
		model.removenode("/root/send/savedata");	
		model.makeValue("/root/send/savedata", savedata + datastring);
		
		if(submit("TXMMR05002"))
        {
            var mess = model.getValue("/root/main/savedinfo/rsltmsg/msg");

            if(mess == "1")
            {
                messageBox("Ãë¼Ò µÇ¾ú½À´Ï´Ù.", "I", "");
                fGetCnstlist(srchmode);
                
                ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
                ivw_loader.window.javascript.fInitPage(false, true, parseInt(ivw_loader.attribute("height")));
            }
            else
            {
                messageBox(mess, "I", "");
                for(var i=1; i<=grd_cnstlist.rows; i++){
        			grd_cnstlist.valueMatrix(i , grd_cnstlist.colRef("checkflag"))="N";
        		}
        		model.refresh();
            }
        }
	}
	model.refresh();
}

function fCnststatChng(){
	var userid = getUserInfo("userid");
	if( model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/lastid") == userid && model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/cnststat") == "20" ){
		if( messageBox("¡¼ ÀÇ·ÚÈ®Á¤ ¡½ »óŸ¦  ¡¼ ÀÇ·Ú ¡½·Î º¯°æÇϽðڽÀ´Ï±î?", "Q999") == 6 ){
			var formrecseq = model.getValue("/root/main/cnstlist[" + grd_cnstlist.row + "]/formrecseq");
			model.makeValue( "/root/send/reqitem/instcd"		, getUserInfo("dutplceinstcd") );
			model.makeValue( "/root/send/reqitem/formrecseq"	, formrecseq );
			if( submit("TXMMR05005") ){
				messageBox( "º¯°æµÇ¾ú½À´Ï´Ù.", "E999" );
				fGetCnstlist( model.getValue("/root/tmp/condflag") );
			}
		}else{
			return;	
		}
	}else{
		messageBox( "ÀÇ·ÚÈ®Á¤ÀÚ°¡ ¾Æ´Õ´Ï´Ù.", "E999" );
		return;
	}
}


function fSendRecInfoToSMMMO00100(){
    if(getUserInfo("jobkindcd").substring(0,2) == "03"){
    	    	        
        if(isPopup()){
        	
        	if(getParameter("MMR05000_cnstflag") == "1"){
        		
        		if(model.getValue("/root/hidden/procpconfiag/answcnt") == "001"){
        			
        			var pamInfoNode = "/root/main/result/paminfo/list";
    
				    var pid = model.getValue ( pamInfoNode + "/pid" );
				    var cretno = model.getValue ( pamInfoNode + "/cretno" );
				    var orddd = model.getValue ( pamInfoNode + "/orddd" );
				    
				    if(isNull(orddd)){
				        orddd = model.getValue ( pamInfoNode + "/indd" );
				    }
        			
	                var wd = getOpenWindow("SMMMO00100");
	                if(wd != null){
	                	
	                	var rscdoctid = ivw_loader.ivw_base.model.getValue("/root/init/cond/rscdoctid");
	                	var rscdeptcd = ivw_loader.ivw_base.model.getValue("/root/init/cond/rscdeptcd");
	                	
	                	var rscdoctnm = ivw_loader.ivw_base.model.getValue("/root/init/recvrlist/usercombo[usernm != 'ÀϹÝÀÇ»ç' and usernm != 'Àǹ«±â·Ï' and userid = '"+ rscdoctid +"']/usernm");
	                	var rscdeptnm = ivw_loader.ivw_base.model.getValue("/root/main/cnstformlist/cnstform[ cnstdeptcd = '"+ rscdeptcd +"']/cnstdeptnm");
	                	
	            		wd.javascript.fSetAutoPrcpInfo( pid, cretno, orddd,  "Consult (¼ö½Å°ú : "+rscdeptnm+", ¼ö½ÅÀÚ : "+rscdoctnm+")" );
	            	}
        		}
            }
        }
    }   
}