var gMediRecMain = false; //Áø·á±â·Ï¿¡¼­ È£Ãâ ÇÒ¶§¸¸ true·Î ¼¼ÆõÊ.
var gSaveAfterClose = false;
var gIsPouUp = false;
var gPrestIvw;
var gFstLevlItemCd = "";
var gIsFirstOpen = false;   //ÃÊÁø±â·ÏÁö óÀ½ ¿Àǽÿ¡¸¸ messageBox¶ç¿ì±â À§ÇÑ º¯¼ö
var gViewPrt;

var beforeSaveExeFuncNm = "";
var afterSaveExeFuncNm = "";

var gOpenMode = "";
var gSaveYN = false;

//ÄÚ»çÀÎ ±â·ÏÀÇ º¯°æ¿©ºÎ¸¦ À§ÇØ ´ë»ó¼­½Ä ·Îµù ÈÄ ±â·ÏÁ¤º¸¸¦ ³Ö¾îµÎ±â À§ÇÑ º¯¼ö
var g_formrec_newimge_cosign = "";
var g_recitem_newimge_cosign = "";

var gRecdd = "";
//var gFormLoadStatus = new FORM_LOAD_STATUS();

var PATH_LOADER_INI = "/root/hidden/loader_ini";

var gformrecdddisable = false ;

/**
 * @desc   :
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fLoaderEndForm()
{
		if (gOpenMode == "newform")
    {
        fInitClearForm();
        SetUserTimeLog("fLoaderEndForm", "fInitClearForm END");

        try {
            gPrestIvw.window.javascript.fInitFormRec();
        }
        catch (e) {};

        fShowProgress(false);
        SetToLoadTime(1);
        SetUserTimeLog("fLoaderEndForm", "newform END");
    }
    else if (gOpenMode == "recform")
    {
        fInitFormRec();
        SetUserTimeLog("fLoaderEndForm", "fInitFormRec END");

        fShowProgress(false);
        SetToLoadTime(1);
        SetUserTimeLog("fLoaderEndForm", "recform END");
    }
    gOpenMode = "";

    if (gMediRecMain)
    {
        opener.window.javascript.fOpenPrcpMainWnd();
    }
}

/**
 * @desc   : ±â·Ï ¾ÆÀÌÅÛ ¹ë·ù SET
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSetRecItemValue_MMR01100(reciteminfo)
{
    if (fGetFormMast("formprogflag") == "PROG" && fGetFormMast("formprognm") != "-")
    {
        return ivw_base.window.javascript.fSetRecItemValue(reciteminfo);
    }
}

/**
 * @desc   : ±â·Ï ³»¿ë SET
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSetRecItemCnts_MMR01100_old(degnitemno, cnts)
{
    if (fGetFormMast("formprogflag") == "-")
    {
        var path = gPageInfo.recItemRef + "[degnitemno='"+degnitemno+"' and (degnitemkind='MTX' or degnitemkind='STX')]";
        var cnt = getNodesetCnt(gPrestIvw.model, path);

        if (cnt == 1)
        {
            gPrestIvw.model.setValue(gPageInfo.recItemRef + "[degnitemno='"+degnitemno+"']/reccnts", cnts);
            gPrestIvw.model.refresh();
        }
    }
}

/**
 * @desc   : ±â·Ï ³»¿ë GET
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetRecItemCnts_MMR01100_old(degnitemno)
{
    if (fGetFormMast("formprogflag") == "-")
    {
        return getItemDataByDegnItemNo(degnitemno, gPrestIvw.model);
    }
    return null;
}

/**
 * @desc   : »èÁ¦¹öÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickDelete()
{
	//2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
	if (validPamInfo_MMR01100("btn_delete") == false) {
		return false;
	}
	
	//ktas Àü¼Û¿Ï·áµÈ °Ç(20151224 ÀÌÀ±ÁÖ)
  if (fGetFormRec("fstktas") == "Y")
  {
        messageBox("NEDIS Àü¼Û ¿Ï·áµÇ¾î »èÁ¦ ºÒ°¡ÇÕ´Ï´Ù","E");
        return;
  }
	
	if (fGetFormRec("formrecseq") == "")
  {
        messageBox("»èÁ¦ ", "E001");
        return;
  }
  
  //2010.05.03 ±è´ÞÇö updtfreeynÀÌ YÀÏ°æ¿ì ¸ðµç ±ÇÇÑüũ Á¦¿Ü.
	var updtfreeyn = model.getValue(gPageInfo.formmastRef + "/updtfreeyn");
	    
    if(!fCheckSaveDept() && updtfreeyn != "Y")   //±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­ µ¿ÀÏ¿©ºÎ üũ
    {
        messageBox("ŸºÎ¼­ ¶Ç´Â Ÿ»ç¿ëÀÚÀÇ ÀÛ¼º ±â·ÏÀº »èÁ¦", "E001");
        return;
    }
    
    if (fGetFormMast("srcformcd") == "0000000677")
    {
        messageBox("ÄÁ¼³Æ® ±â·ÏÀº »èÁ¦ ÇÒ ¼ö ¾ø½À´Ï´Ù. ÀÇ·ÚÃë¼Ò´Â ÄÁ¼³Æ® °ü¸®È­¸éÀ» ÀÌ¿ë", "I008");
        return;
    }
    
    //2014.01.28 »ç¿ëÀÚ°¡ ÀÇ»çÀÌ°í ¼­½Ä·Î´õ°¡ Áø·á±â·ÏÁ¶È¸(SMMMR00100) ¼ÓÇØ ÀÖÀ¸¸é °Ë»ç±â·ÏÁö´Â »èÁ¦ ¸øÇϵµ·Ï ºí·ÎÅ· ó¸®
    if(fCheckedTestRecYN()){
    	return;
    }    
    //2014.01.28 end
    
    fBeforeSaveExtnDoing();

    if (gMediRecMain)
    {
        opener.window.javascript.fDelete();
    }
    else
    {
        fDelFormRec();

        if (opener.window.javascript.getParameter("openmode") == "openform")
        {
            opener.window.javascript.setParameter("openmadalformsave", "Y");
        }
    }

    fAfterSaveExtnDoing();
}

/**
 * @desc   : ÀúÀå¹öÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickSave(signedYn)
{
  
  var oprnerId = opener.window.javascript.getScreenID();	
	var rscdeptcd = ivw_base.model.getValue("/root/init/cond/rscdeptcd");
	/* 2012/02/15 ¿µ»ó±¸ºÐÀ» ¾Èº¸ÀÌ°Ô ¼³Á¤Çϸ鼭 Ãß°¡·Î ÁÖ¼®Ã³¸®
	//2012/02/10 START ¿µ»óÀÇÇаú·Î ÄÁ¼³Æ®½Ã ¿µ»ó±¸ºÐ À¯¹« üũ
	var recvdeptcd=ivw_base.model.getValue("/root/init/cond/rscdeptcd");
	var check=ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno=22]/rectermcd");
		
	if(recvdeptcd=="2160000000" && fGetFormRec("formcd")=="0000000677" && check==""){
		messageBox("¿µ»ó±¸ºÐÀ»", "C002");
		return;
	}
	//2012/02/10 END
	*/
	
	//2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
	if (validPamInfo_MMR01100("btn_save") == false) {
		return false;
	}
	
    if(fGetFormRec("status") == "U")
    {
    	var userid = getUserInfo("userid"); //userid, usernm, dutplceinstcd, dutplcecd
		  
	  	//2010.05.03 dhkim updtfreeynÀÌ YÀÏ°æ¿ì ¸ðµç ±ÇÇÑüũ Á¦¿Ü.
	  	var updtfreeyn = model.getValue(gPageInfo.formmastRef + "/updtfreeyn");
	  	
	  	//ÀÌÀ±ÁÖ Ãß°¡(20150209)
		  mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/savecross", 5987);
		  var srcformCnt = getNodesetCnt(model, "/root/init/savecross/hardcd[hardcd = '" + fGetFormMast("srcformcd") + "']");  //¼­½ÄÁ¸Àç¿©ºÎ
	  	
      if(srcformCnt == 0 && !fCheckSaveDept() && updtfreeyn != "Y")   //±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­ µ¿ÀÏ¿©ºÎ üũ
      {
          messageBox("ŸºÎ¼­ ¶Ç´Â Ÿ»ç¿ëÀÚÀÇ ÀÛ¼º ±â·ÏÀº ¼öÁ¤", "E001");
          return false;
      }
      
      //20151224 ÀÌÀ±ÁÖ ¼öÁ¤
      if (fGetFormRec("fstktas") == "Y") {
      	messageBox("NEDIS Àü¼Û¿Ï·áµÇ¾î ±â·ÏÀ» ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù!", "E");
        return false;
      }
      
		}
    
    //ÀúÀå Àü ½ÇÇàÇÒ ÇÔ¼ö ¿©ºÎ °Ë»ç ÈÄ ÀÖÀ»°æ¿ì ½ÇÇà
    fBeforeSaveExtnDoing();
    
    //¼ö¼úºÎÀ§ È®ÀÎ Á¡°ËÇ¥ ÀúÀåÈ®ÀÎ ÀÌÀ±ÁÖ with ¼Õ¼ºÈÆ 20120425
    if (signedYn == "Y"){
    	  var oprsrvno = model.getValue("/root/main/recinfo/formrec/oprsrvno");	
		  var formcd = fGetFormRec("srcformcd");
		  if( fOppartchk(oprsrvno, formcd) == false ){
				return;	
			}
		}
    
    //2010.02.23 ¾ÈÄ¡¿ø - ÀÎÁõÀúÀåÈÄ¿¡ ÀÓ½ÃÀúÀå Â÷´Ü TASK(39128)¿äû¹øÈ£(9402)
    //2010.05.26 ±è´ÞÇö - call visitµÇÁö ¾ÊÀº ȯÀÚÀÇ ÀÎÁõÀúÀå Á¦ÇÑ(¼­¼Ò¿µ¼±»ý´Ô¿äû)
    if (fChkPreSave_MMR01100(signedYn) == false)
    	return false;
    
	//2010.02.16 dhkim (JCI xsltflag¼¼ÆÃ)
    try 
    {
        if (ivw_base.window.javascript.fSetXsltFlag() == false)
        {
            return false;
        }
    }
    catch (e)
    {
    }
    
    
    //KNUH, °¡Á¤°£È£ ÀÇ·Ú ÀÎÁõÀúÀå ÈÄ °¡Á¤°£È£ ó¹æ ¹ßÇà ¸Þ¼¼Áö º¸¿©ÁÖµµ·Ï (2011.03.21 JJE)

    var bfCnstStat = 0; //ÀúÀå Àü ÀÇ·Ú»óÅÂ
    if( oprnerId == "SMMMR05000" ) bfCnstStat = fGetFormRec("cnststat");
    
// <--- ÀÎÁõ ÀúÀå Àü
    // ÀÎÁõÀúÀå
    var savedInfo = fSaveFormRec(signedYn);

// ---> ÀÎÁõ ÀúÀå ÈÄ    
    //if (savedInfo.formrecseq != 0)
    
    //var ctrlID = event.target;

    //2007.12.13 ¹ÚÁ¾ÈÆ ¼öÁ¤
    if (savedInfo.formrecseq != null && savedInfo.formrecseq != 0)
    {
        if (opener.window.javascript.getParameter("openmode") == "openform")
        {
            opener.window.javascript.setParameter("openmadalformsave", "Y");
        }

        if (fGetFormRec("calledflag").indexOf("cpgmain") == 0)
        {
	        try
			{
			    var ordpatlistObj = getOpenWindow("SMMMP00800");
			    if(ordpatlistObj != null)
			    {
			        addEmrLog("calledflag : " +  fGetFormRec("calledflag"));
			        ordpatlistObj.javascript.fSnedValToCpWnd(fGetFormRec("formcd"), savedInfo.formrecseq, fGetFormRec("calledflag"));
			    }
			}
			catch(e)
			{
			    return false
			}
        }
        
        setParameter("espisavesuccess", signedYn);;
        
        //messageBox("±â·Ï ÀúÀåÀÌ", "I002");
        
        fAfterSaveExtnDoing();
        
        //20081209 ¿ÀÁöÈÆSW ¿äû
        var wndobj = getOpenWindow("SMMRI01800");
        if(wndobj != null){
            var status = fGetFormRec("status");
            var pid = fGetFormRec("pid");
            var orddd = fGetFormRec("orddd");
            var cretno = fGetFormRec("cretno");
            var formcd = fGetFormRec("srcformcd");
            var formrecdd = fGetFormRec("formrecdd");
            var formrecseq = fGetFormRec("formrecseq");
            //2010.02.27 ¾ÈÄ¡¿ø - ¹ÌºñÇ׸ñÈ­¸é¿¬°è ¼öÁ¤ formrecdeptcdÃß°¡(ÀÌÀº¿µ ¿äû)
            var formrecdeptcd = fGetFormRec("formrecdeptcd");
            //2010.02.09 ¾ÈÄ¡¿ø - ¹ÌºñÇ׸ñÈ­¸é¿¬°è ¼öÁ¤(ÀÌÀº¿µ ¿äû)
            //var unprepFlag = signedYn == "Y" ? "usg" : "";
            
            //2010.04.19 dhkim (¹ÌºñÈ®ÀÎ ¿À·ù)
            //cosignÀÌ YÀ϶§´Â uss, ÀÎÁõÀúÀåÀÏ?´Â usg³Ñ±è.
            var cosignYn = fGetFormRec("cosignyn");
            var unprepFlag = (cosignYn == "Y")? "uss" : (signedYn == "Y") ? "usg" : "";
            
            var param = status + "^" + pid + "^" + orddd + "^" + cretno + "^" + formcd + "^" + formrecdd + "^" + formrecseq + "^" + unprepFlag + "^" + formrecdeptcd;
            opener.window.javascript.setParameter("SMMRI01800_medirecinfo", param);
            
            wndobj.javascript.fDispUnPrepDrCnfm();
            wndobj.model.setFocus("grd_unpreplist");
        }
        
        //KNUH, °¡Á¤°£È£ ÀÇ·Ú ÀÎÁõÀúÀå ÈÄ °¡Á¤°£È£ ó¹æ ¹ßÇà ¸Þ¼¼Áö º¸¿©ÁÖµµ·Ï (2011.03.21 JJE)
        if( oprnerId == "SMMMR05000" && signedYn == "Y" && (fGetFormMast("formcd") == "0000000692"||fGetFormMast("formcd") == "1600017738") && bfCnstStat < 12 && savedInfo.formrecseq != getParameter("savedReqHomeCareSeq") ){
        	messageBox("°¡Á¤°£È£ ÀÇ·Ú¸¦ ÀÎÁõÀúÀåÇÏ¿´½À´Ï´Ù.\n\n°¡Á¤°£È£ PRNó¹æÀ» ¹ßÇà", "I008"); //ÇϽʽÿÀ
        	setParameter("savedReqHomeCareSeq", savedInfo.formrecseq);
        	
        	// °¡Á¤°£È£ ¾È³»¹® Ãâ·Â _ 2011.06.01 _ ¼Õ¼ºÈÆ ------------------------
        	model.makevalue("/root/main/homecarerep/patinfo/pid", model.getvalue("main/vpaminfo/pid"));
        	model.makevalue("/root/main/homecarerep/patinfo/sex", model.getvalue("main/vpaminfo/sex"));
        	model.makevalue("/root/main/homecarerep/patinfo/hngnm", model.getvalue("main/vpaminfo/hngnm"));
        	model.makevalue("/root/main/homecarerep/patinfo/age", model.getvalue("main/vpaminfo/age"));
        	model.makevalue("/root/main/homecarerep/patinfo/rgstno1", model.getvalue("main/vpaminfo/rrgstno1"));
        	model.makevalue("/root/main/homecarerep/patinfo/rgstno2", model.getvalue("main/vpaminfo/rrgstno2"));
        	model.makevalue("/root/main/homecarerep/patinfo/deptnm", model.getvalue("main/vpaminfo/orddeptnm"));
        	
        	if (fGetFormMast("formcd") == "1600017738") {
        		exeReportPreview("RPMMR05001", "XMLSTR", "/root/main/homecarerep/patinfo", "", "true", "", "", "", "", "true");
        	}
        	else {
        		exeReportPreview("RPMMR05000", "XMLSTR", "/root/main/homecarerep/patinfo", "", "true", "", "", "", "", "true");
        	}
        	ivw_base.window.javascript.fDoHomeNurOrd();
        }
    }
    else
    {
        var oprnerId = opener.window.javascript.getScreenID();
            
        if(oprnerId == "SMMMR00100" || oprnerId == "SPMMR05400" || oprnerId == "SMMMR05000")
        {
            return false;
        }
        else
        {
            if (getParameter("mediRecCnclYn") == "Y")
            {
                opener.window.javascript.setParameter("SMMMR02900_saveerr", "Y");
                clearParameter("mediRecCnclYn");
                return false;
            }
            else
            {
                clearParameter("mediRecCnclYn");
                return true;
            }
        }
        
    }

    if (!gSubmitSaveFlag)
    {
        if (savedInfo.rechistseq == -100)
            return true;
        else
            return false;
    }
    
    gSaveYN = true;
    return true;
    
}

/**
 * @desc   : ±âÁ¸ ÀÛ¼ºµÈ±â·ÏÀ» »õ ±â·ÏÀ¸·Î ÀúÀå(¼öÁ¤¸ðµå¿¡¼­ ½Å±Ô±â·ÏÀ¸·Î ÀúÀå)
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickSaveAsNew()
{
	
	//ÀÌÀ±ÁÖ ¼öÁ¤(20140221) - °øÅë¼­½Ä ¼­½ÄÆû º¯°æ¿¡ µû¸¥ »õÀ̸§ ÀúÀå Á¦¾î
	mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/srcformcd", 5629);
	
	var srcformcd =  fGetFormRec("srcformcd");
	var formprognm = ivw_base.src;
	var nodeCnt = getNodesetCnt(model, "/root/init/srcformcd/hardcd[hardcd = '" + srcformcd + "']");
	
	if (nodeCnt > 0) {
		var formableprognm = model.getValue("/root/init/srcformcd/hardcd[hardcd = '" + srcformcd + "']/hardcdnm");
		if ( formableprognm != formprognm ) {
			messageBox("»õÀ̸§À¸·Î ÀúÀåÇÒ ¼ö ¾ø½À´Ï´Ù"+"\n"+"°ü·Ã±Ù°Å Ä¥°î:ÀüÀÚ°áÀç(Áø·áÇàÁ¤ÆÀ(Àǹ«±â·Ï)-104(2014.02.25.) Áø·á±â·Ï ¼­½Ä °³Á¤¿¡ ´ëÇÑ °øÁö ¹× ¾÷¹« ÇùÁ¶)"+"\n"+"¹®ÀÇ»çÇ× Àǹ«±â·ÏÆÄÆ®:±èâ¼ö(2402)","I999");
			return;
		}
	}
	
	if (fIsValidForm_MMR01100(true) == false)
		return;
		
		//2010-03-26 ¿ÀÀü 9:27:48 °­ÁöÈÆ ¼öÁ¤ : [¿äû¹øÈ£ 10010] ÀÔ¿ø¼öÁø¿¡ ¿Ü·¡[formchosflag = 'O']±â·Ï ÀÛ¼ºÀ» ¸·´Â´Ù.
		if (validFormchos_MMR01100(true) == false) {
			return false;
		}
		
		//20160824021 ÀÌÀ±ÁÖ¼öÁ¤(20170808) :¿Ü·¡¼öÁø¿¡ ÀÔ¿ø¼­½Ä »ç¿ëºÒ°¡Åä·Ï Á¦¾î
		if (validFormchos_MMR01100_OUT(true) == false) {
			return false;
		}
	
    var formrechm = getCurrentTime().substring(0, 4);
    var tmpstat =  fGetFormRec("status");                
    var tmprecdd = fGetFormRec("formrecdd");
    var tmprechm = fGetFormRec("formrechm");     
    var tmpespiseq = fGetFormRec("espiseq");
    
    var tmporddd = fGetFormRec("orddd");
    var tmporddrid = fGetFormRec("orddrid");
    var tmpcretno = fGetFormRec("cretno");
    var tmpchosflag = fGetFormRec("chosflag");
    var tmpformrecdeptcd = fGetFormRec("formrecdeptcd");
    var tmpformrecdeptnm = fGetFormRec("formrecdeptnm");
    var tmpformrecuserid = fGetFormRec("formrecuserid");
    var tmpformrecusernm = fGetFormRec("formrecusernm");
      
    fSetFormRec("status", "C");
    fSetFormRec("espiseq", 0);
    
    if (fGetPamInfo("ioflag") == "O" || fGetPamInfo("ioflag") == "S")
    {
        fSetFormRec("orddd"      , fGetPamInfo("orddd"));
        fSetFormRec("orddrid"    , fGetPamInfo("orddrid"));
    }
    else
    {
        fSetFormRec("orddd"      , fGetPamInfo("indd"));
        fSetFormRec("orddrid"    , fGetPamInfo("medispclid"));
    }
    
    
    fSetFormRec("cretno", fGetPamInfo("cretno"));
    fSetFormRec("chosflag", fGetPamInfo("ioflag"));
    fSetFormRec("formrecdeptcd", getUserInfo("dutplcecd"));
    fSetFormRec("formrecdeptnm", getUserInfo("dutplcenm"));
    fSetFormRec("formrecuserid", getUserInfo("userid"));
    fSetFormRec("formrecusernm", getUserInfo("usernm"));
    
//    fSetFormRec("formrecdd", getCurrentDate());
//    fSetFormRec("formrechm", formrechm);  
//    ipt_formrecdd.refresh();
//    ipt_formrectm.refresh();
    
    opener.window.javascript.setParameter("chkdeptpresave", "N");
    
    fClickSave("Y");
    
    if (getParameter("espisavesuccess") != "Y")
    {
        fSetFormRec("status", tmpstat);
        fSetFormRec("formrecdd", tmprecdd);
        fSetFormRec("formrechm", tmprechm);  
        fSetFormRec("espiseq", tmpespiseq); 
        
        fSetFormRec("orddd", tmporddd); 
        fSetFormRec("orddrid", tmporddrid); 
        fSetFormRec("cretno", tmpcretno); 
        fSetFormRec("chosflag", tmpchosflag); 
        fSetFormRec("formrecdeptcd", tmpformrecdeptcd); 
        fSetFormRec("formrecdeptnm", tmpformrecdeptnm); 
        fSetFormRec("formrecuserid", tmpformrecuserid); 
        fSetFormRec("formrecusernm", tmpformrecusernm); 
        ipt_formrecdd.refresh();
        ipt_formrectm.refresh();
        
        clearParameter("espisavesuccess");
    }
}

/**
 * @desc   : ÀúÀå Àü ½ÇÇàÇÒ ÇÔ¼ö ¿©ºÎ °Ë»ç ÈÄ ÀÖÀ»°æ¿ì ½ÇÇà
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fBeforeSaveExtnDoing()
{
    if (beforeSaveExeFuncNm != "")
    {
        var funcnm = "opener.window.javascript." + beforeSaveExeFuncNm + "()";
        eval(funcnm);
    }
}

/**
 * @desc   : ÀúÀå ÈÄ ½ÇÇàÇÒ ÇÔ¼ö ¿©ºÎ °Ë»ç ÈÄ ÀÖÀ»°æ¿ì ½ÇÇà
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fAfterSaveExtnDoing()
{
    try
    {
        //ÀÎÁõÀúÀå ÈÄ Áø·á´ë»óÀÚ ¸®½ºÆ® È°¼ºÈ­(2008-11-28ÀÏ ±è¿µÇÐSW ¿äû - ¹ÚÁ¾ÈÆ)
        var oprnerId = opener.window.javascript.getScreenID();
            
        if (fGetFormRec("espiyn") == "Y" && fGetFormMast("mainyn") == "Y" && oprnerId == "SMMMR00100")
        {
            var curPatListObj= getOpenWindow("SMMMO04100"); //È°¼ºÈ­µÈ Áø·á´ë»óÀÚ È­¸é object loading
        	var pid = getPatientInfo("pid");
        	setPatientInfoDetailByKey("emrsaveyn", pid+ "|Y");
        	if (curPatListObj != null) {
        		var prcpsaveyn = getPatientInfoDetail("prcpsaveyn");
        		var emrsaveyn = getPatientInfoDetail("emrsaveyn");
        		
        		if (prcpsaveyn == "Y" && emrsaveyn == "Y") {
        			curPatListObj.restore(); //2009-10-26 ¿ÀÈÄ 6:58:17 °­ÁöÈÆÃß°¡ : ¿äû¹øÈ£ 8585 
        			curPatListObj.activate();
        		}
        	}
        }
        
        if (afterSaveExeFuncNm != "")
        {
            var funcnm = "opener.window.javascript." + afterSaveExeFuncNm + "()";
            eval(funcnm);
        }

        ivw_base.window.javascript.fSaveAfter();
    }
    catch (e)
    {
    }

    if (gSaveAfterClose)
    {
        //ºÎ¸ðâ¿¡ ¼­½Ä±â·Ï¼ø¹øÀ» ÆĶó¹ÌÅÍ·Î ³Ñ±ä´Ù.

        //2010-02-20 ¹ÚÁ¾ÈÆ Ãß°¡(»èÁ¦ÀÇ °æ¿ì 0À¸·Î ³Ñ°ÜÁØ´Ù)
        if (fGetFormRec("status") == "D")
        {
            opener.window.javascript.setParameter("SSMMR01100_formrecseq", "0");
        }
        else
        {
            opener.window.javascript.setParameter("SSMMR01100_formrecseq", model.getValue(gPageInfo.recRef+"/formrec/formrecseq"));
        }
        
        if (opener.window.javascript.getScreenID() == "SSMMR01100")
        {
            opener.window.javascript.fGetRecMainlist();
        }
        window.close();
    }
}

/**
 * @desc   : Ãâ·Â¹öÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickPrint()
{
    if (fGetFormMast("formprogflag") == "OCR")
    {
        gPrestIvw.window.javascript.fPrint();
    }
    else
    {
        var signno = fGetFormRec("espiseq");
        var formcd = fGetFormRec("formcd");
        
        if (formcd != "")
        {   
            var parmkey = "E¢Ë" + signno + "¢Ë" + formcd + "¢Ì";
            setParameter("SPMRI02400_autoprtYn", "Y");
            setParameter("SPMRI02400_prtrecinfo", parmkey); //E/I¢Ësignno¢Ëformcd¢Ì
            modal("SPMRI02400", 1, "", "", "", "", "", "left:-800; right:0; width:0; height:0;");
        }
    }
}

/**
 * @desc   : Ãâ·Â¹öÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSaveFormRec(signedYn, mode)
{
    if (fGetFormMast("formcd") == "") return;
    
    if (isProgForm())
    {
        var tmpsavedInfo = new SAVED_INFO();
  
        tmpsavedInfo = ivw_base.window.javascript.getSaveComnFormData(mode);
 
        if (tmpsavedInfo != null && tmpsavedInfo != "")
        {
            return tmpsavedInfo
        }        
    }
    else
    {
        //Çʼö ÀÔ·ÂÇ׸ñ üũ(Ư¼ö¼­½Ä)
        if(ivw_base.window.javascript.chkEssentialitem() == false)
    	{
    	    var oprnerId = opener.window.javascript.getScreenID();
            
            if(oprnerId == "SMMMR02900")
            {
                opener.window.javascript.setParameter("SMMMR02900_saveerr", "Y");
            }
            
    	    var savedInfo = new SAVED_INFO();
    	    return savedInfo;
    	}

        ivw_base.window.javascript.getSaveData(gPageInfo.sortItemRef, "replace", model, null, mode);
        SortRecItem();
    } 

    //window.clipBoardData = model.instances(0).selectSingleNode("/root/hidden/recinfo").xml;

    if (signedYn != null)
    {
        return fSaveComnFormRecInfo(signedYn);
    }
}

/**
 * @desc   : ¹Ì¸®º¸±â µ¥ÀÌÅÍ Á¶È¸ÇØ¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
var gPath_preview = "/root/hidden/medirec/medireccnts";
function fGetPreviewData(flag, targetPath, targetModel, mode)
{
    model.removeNodeset(gPath_preview);

    if (flag != "sign")
    {
        fSaveFormRec(null, mode);

        var cnt = getNodesetCnt(model, gPageInfo.recItemRef2);

        if (cnt == 0) return;
    }

    var formdegnseq;
    var degnitemno;
    var formcd;
    var node;

    var j = 1;

    var std_nodepath = gPath_preview + "[#jIdx#]";
    var std_nodepath2 = std_nodepath + "#colnm#";
    var nodepath;
    var nodepath2;
    var path_recItemRef2 = gPageInfo.recItemRef2 + "[#iIdx#]";
    var path_recItemRef2_row;
    var path_recItemRef2_formcd = path_recItemRef2 + "/formcd";
    var path_recItemRef2_formdegnseq = path_recItemRef2 + "/formdegnseq";
    var path_recItemRef2_degnitemno = path_recItemRef2 + "/degnitemno";
    var path_recItemRef2_degnitemlevlno = path_recItemRef2 + "/degnitemlevlno";

    var addCnts = "";
    var extnflag = true;

    for (var i = 1; i <= cnt; i++)
    {
        try
        {
            extnflag = true;

            nodepath2 = std_nodepath2.replace("#jIdx#", j);

            path_recItemRef2_row = path_recItemRef2.replace("#iIdx#", i);
            
            if (model.getValue(path_recItemRef2_row+"/orgdegnitemkind") == "")
            {
                copyNodeset(gPath_preview, path_recItemRef2_row, "append", model, model);
            }
            else
            {
                continue;
            }

            formcd = model.getValue(path_recItemRef2_formcd.replace("#iIdx#", i));
            formdegnseq = model.getValue(path_recItemRef2_formdegnseq.replace("#iIdx#", i));
            degnitemno = model.getValue(path_recItemRef2_degnitemno.replace("#iIdx#", i));

            model.makeNode(nodepath2.replace("#colnm#", "/imgehei"));
            model.makeNode(nodepath2.replace("#colnm#",  "/imgewid"));

            model.makeValue(nodepath2.replace("#colnm#", "/viewflag"),         "data");
            model.makeNode(nodepath2.replace("#colnm#",  "/compflag"));
            model.makeNode(nodepath2.replace("#colnm#",  "/viewcnts"));
            model.makeNode(nodepath2.replace("#colnm#",  "/viewimge"));
            model.makeValue( nodepath2.replace("#colnm#", "/degnitemlevlno"), model.getValue(path_recItemRef2_degnitemlevlno.replace("#iIdx#", i)) );

            if (false && (formcd == "0000000899" || formcd == "0000000900" || formcd == "0000000901" ))
            {
                if (model.getValue(path_recItemRef2_row + "/degnitemkind") == "GRD" || model.getValue(path_recItemRef2_row + "/degnitemkind") == "CCN" ||
                    model.getValue(path_recItemRef2_row + "/degnitemkind") == "OPN")
                {
                    extnflag = false;
                }
                else if ( formcd == "0000000899" &&
                          (model.getValue(path_recItemRef2_row + "/recrefcd") == "C" || model.getValue(path_recItemRef2_row + "/recrefcd") == "M") )
                {
                    addCnts +=  model.getValue(path_recItemRef2_row + "/recitemnm");
                    extnflag = false;
                }
                else
                {
                    nodepath = std_nodepath.replace("#jIdx#", j++);
                    fMakeRowRecCnts(nodepath, true);

                    var viewcnts = model.getValue(nodepath + "/viewcnts");
                    var tempcnts = parseInt(model.getValue(path_recItemRef2_row + "/rowno")) + 1 + ". ";

                    if (addCnts != "")
                    {
                        tempcnts = tempcnts + "[" +addCnts+ "] ";
                        addCnts = "";
                    }
                    viewcnts = tempcnts + viewcnts;
                    model.setValue(nodepath + "/viewcnts", viewcnts);
                }
            }
            else
            {
                nodepath = std_nodepath.replace("#jIdx#", j++);
                fMakeRowRecCnts(nodepath, true);

            }

            if (extnflag && model.getValue(nodepath+"/compflag") == "6")
            {
                copyNodeset(gPath_preview, nodepath, "append", model, model);

                nodepath = std_nodepath.replace("#jIdx#", j++);
                model.setValue(nodepath + "/viewflag", "data");
                fMakeRowRecCnts(nodepath, false);
            }

        }
        catch (e)
        {
            model.setValue(nodepath+"/viewcnts", model.getValue(nodepath+"/viewcnts") + " [ERROR!]");
        }
    }

    if (flag == "view")
    {
        node = model.instances(0).selectSingleNode("/root/hidden/medirec");

        opener.window.javascript.fPreview(node);
    }
    else if(flag == "copy")
    {
        if(targetPath == null || targetPath == "")
        {
            alert("¹Ì¸®º¸±â µ¥ÀÌÅ͸¦ copyÇÒ ´ë»ó³ëµå°¡ ÁöÁ¤µÇÁö ¾Ê¾Ò½À´Ï´Ù");
            return;
        }

        if(targetModel == null)
            targetModel = model;

        copyNodeset(targetPath, "/root/hidden/medirec", "replace", targetModel, model);
    }
} 

/**
 * @desc   : ¹Ì¸®º¸±â(ÀÓ½ÃÀúÀå ÈÄ ±â·Ï³»¿ëº¸±â)
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */

function fPreviewRec()
{
    fClickSave("N");
    var formrecseq = fGetFormRec("formrecseq");
    opener.window.javascript.fShowMediRecCnt(formrecseq);
}

/**
 * @desc   : ¹Ì¸®º¸±â Æ˾÷
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fShowPreview()
{
    fGetPreviewData("get");

    setParameter("formnm", fGetFormMast("formnm"));

    modal("SSMMR01200", 1, 0, 0, "", "/root/hidden/medirec", "/root/main/medirec");
}

/**
 * @desc   : ±â·Ï³»¿ª ¶óÀκ° ¼³Á¤
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
var LINE_STR = "¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥¡¥";
function fMakeRowRecCnts(path, flag)
{
    try
    {
        var path_viewflag = path+"/viewflag";
        var path_compflag = path+"/compflag";

        var path_rectermnm = path+"/rectermnm";
        var path_rectermcd = path+"/rectermcd";
        var path_reccnts = path+"/reccnts";
        var path_degnitemkind = path+"/degnitemkind";
        var path_degnitemnm = path+"/degnitemnm";
        var path_viewimge = path+"/viewimge";
        var path_recimge = path+"/recimge";
        var path_rowno = path+"/rowno";
        var path_degnitemlevlno = path+"/degnitemlevlno";

        var path_recitemnm = path+"/recitemnm";

        var sb = new StringBuffer();
        var isAdd = false;
        var existValu = model.getValue(path_rectermnm) != "" || model.getValue(path_recitemnm) != "" || model.getValue(path_reccnts) != "" ? true : false;
        
        if (model.getValue(path_degnitemkind) == "IMG")
        {
            model.setValue(path_compflag, "7");
            model.setValue(path_viewimge, model.getValue(path_recimge), true);
            setImageRefInstance(path_viewimge);
        }
        else if ((model.getValue(path_degnitemkind) == "GRD" /*|| model.getValue(path_degnitemkind) == "CCN" ||
                  model.getValue(path_degnitemkind) == "OPN" || model.getValue(path_degnitemkind) == "DGN"*/) &&
                 model.getValue(path_rowno) != "0")
        {
            model.setValue(path_compflag, "8");
            var degnitemlevlno = parseInt(model.getValue(path_degnitemlevlno))+1;
            model.setValue(path_degnitemlevlno, degnitemlevlno);
        }
        else if ((flag && model.getValue(path+"/fstlevlitemcd") == model.getValue(path+"/degnitemcd"))
                  && model.getValue(path_degnitemkind) != "GRD")
        //else if (flag && model.getValue(path+"/degnitemlevlno") == "1")
        {
            model.setValue(path_viewflag, "fstlevl");

            model.setValue(path_compflag, "1");
            sb.append(model.getValue(path_degnitemnm));
            
            if (model.getValue(path_degnitemlevlno) == "1")
            {
                sb.append("> ");
            }
            else if (model.getValue(path_rectermnm) != "")
            {
                sb.append(": ");
                model.setValue(path_viewflag, "data");
            }

            if (existValu)
            {
                if (model.getValue(path_degnitemkind) == "MTX")
                {
                    model.setValue(path_compflag, "6");
                }
                else
                {
                    isAdd = true;
                    flag = false;
                }
            }
        }
        else if (model.getValue(path_degnitemkind) == "MTX" &&
            model.getValue(path+"/formcd") == "0000000005")
        {
            model.setValue(path_compflag, "2");
            sb.append(model.getValue(path_reccnts));
        }
        else
        {
            isAdd = true;
        }

        if (isAdd)
        {
            model.setValue(path_compflag, "3");

            if (flag)
                sb.append(model.getValue(path_degnitemnm));

            if (existValu)
            {
                if (flag)
                    sb.append(" : ");

                if (model.getValue(path_recitemnm) != "")
                {
                    model.setValue(path_compflag, "4");
                    sb.append(model.getValue(path_recitemnm));
                }
                else if (model.getValue(path_rectermnm) != "")
                {
                    model.setValue(path_compflag, "4");
                    sb.append(model.getValue(path_rectermnm));
                }

                if (model.getValue(path_reccnts) != "")
                {
                    model.setValue(path_compflag, "5");

                    if (model.getValue(path_rectermnm) != "" || model.getValue(path_recitemnm) != "")
                    {
                        sb.append("    ¡Ø");
                    }
                    sb.append(model.getValue(path_reccnts));
                }

                if (model.getValue(path+"/unitnm") != "")
                {
                    sb.append("  ");
                    sb.append(model.getValue(path+"/unitnm"));
                }
            }

        }

        model.setValue(path+"/viewcnts", sb.toString());
    }
    catch (e)
    {
        model.setValue(path+"/viewcnts", model.getValue(path+"/viewcnts") + "[SYSTEM ERROR]");
    }
}

/**
 * @desc   : ±â·Ïµ¥ÀÌÅÍ °¡Á®¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetFormRecData()
{
    gPrestIvw.window.javascript.InitSaveComnFormRecItemData();

    fSetSaveComnFormRecInfo();

    return model.instances(0).selectNodes("/root/send/saverecinfo");
}

/**
 * @desc   : ¼­½Ä µðÀÚÀÎ Á¤º¸ °¡Á®¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetFormDegnData()
{
    return model.instances(0).selectNodes(gPageInfo.forminfoRef);
}

/**
 * @desc   : ±â·Ï »èÁ¦
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fDelFormRec()
{
    if (fGetFormRec("formrecseq") == "")
    {
        messageBox("»èÁ¦ ", "E001");
        return;
    }

    fSetFormRec("status", "D");

    return fSaveComnFormRecInfo();
}

/**
 * @desc   : È­¸é ·Îµù½Ã ÃʱâÈ­
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fFormReady_old()
{
    ivw_base.visible = true;
    ivw_fst.visible = false;
    gPrestIvw = ivw_base;

    if (isPopup())
    {
        var openmode = opener.window.javascript.getParameter("openmode");

        if (openmode == "extnunitform")
        {
            grup_titl.attribute("visibility") = "hidden";
        }
        else
        {
             grup_titl.attribute("visibility") = "visible";

            if (fGetFormMast("formprogflag") == "OCR")
            {
                btn_print.visible = true;
                btn_print.attribute("left") = btn_del.attribute("left");

                btn_preview.visible = false;
                btn_tmpsave.visible = false;
                btn_signsave.visible = false;
                btn_signsaveasnew.visible = false;
                btn_del.visible = false;
            }
            else
            {
                btn_print.visible = false;
                btn_preview.visible = false;
            }
        }

        var ivwTop = 1;
        var ivwHei = 685;
        if (grup_titl.visible)
        {
            ivwTop = parseInt(grup_titl.attribute("top")) + parseInt(grup_titl.attribute("height"));
        }
        else
        {
            ivwHei = ivwHei + parseInt(grup_titl.attribute("height"));
        }

        ivw_base.attribute("top") = ivwTop;
        ivw_base.attribute("height") = ivwHei;

        ivw_fst.attribute("height") = ivw_base.attribute("height");
        ivw_fst.attribute("top") = ivw_base.attribute("top");

        ivw_base.attribute("border-style") = "none";
        ivw_fst.attribute("border-style") = "none";

        if (fGetFormMast("formcd") != "")
        {
            window.document.title = fGetFormMast("formnminfo");
        }

        cap_formnm.refresh();
        gSaveAfterClose = true;

        var widFlag = fGetFormMast("formprogflag");

        if (openmode == "extnunitform")
            widFlag = opener.window.javascript.getParameter("widflag");

        if (fGetFormMast("formcd") == "0000000005")
        {
            window.Height = 370;
            ivw_fst.attribute("height") = 10;
            gPrestIvw.attribute("height") = 291;
            grup_btn.attribute("top") = 292;

            gPrestIvw.attribute("unitformcd") = fGetFormMast("formcd");
            SetMultiTextFull(gPrestIvw, 1);

            var mtxNm = "MTX_1";
            var mtx = gPrestIvw.window.document.controls(mtxNm);

            gPrestIvw.model.setFocus(mtxNm);
		    mtx.dispatch("onkeyup");
        }
        else if (widFlag == "-" || widFlag == "PROF" || widFlag == "OCR")
        {
            var STD_WIN_WID = 815;
            var STD_WIN_HEI = 950;

            var maxWid = STD_WIN_WID;
            window.width = maxWid + 12;
            gPrestIvw.attribute("width") = maxWid + 1;
            grup_btn.attribute("width") = gPrestIvw.attribute("width");
            line2.attribute("width") = gPrestIvw.attribute("width");

            var maxHei = parseInt(gPrestIvw.window.document.body.vscroll.attribute("max"));
            if (maxHei > parseInt(gPrestIvw.attribute("height")))
            {
                var diffHei = 0;
                if (maxHei > STD_WIN_HEI)
                    diffHei = STD_WIN_HEI - parseInt(gPrestIvw.attribute("height"));
                else
                    diffHei = maxHei - parseInt(gPrestIvw.attribute("height"));

                window.height = window.height + diffHei;
                gPrestIvw.attribute("height") = parseInt(gPrestIvw.attribute("height")) + diffHei;
                grup_btn.attribute("top") = parseInt(grup_btn.attribute("top")) + diffHei;
            }
        }
    }

    fGetFormSubTitle();         // ¼­½ÄºÎÁ¦¸ñ¸®½ºÆ®

    try {
        opener.window.javascript.fEndFormReady_MMR01100();
    }
    catch (e) {};
}

/**
 * @desc   : È­¸é ·Îµù ÈÄ ½ÇÇàµÇ´Â ·ÎÁ÷
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fEndFormReady(xrwid)
{

    if (isPopup())
    {
        if (xrwid == "SMMMR04900")
        {
            if (opener.window.javascript.getParameter("openmode") == "newcnstform")
            {
                var formcd = opener.window.javascript.getParameter("formcd");
                var userdeptcd = opener.window.javascript.getParameter("userdeptcd");

                var flag = gPrestIvw.window.javascript.fNewCnstForm(formcd, userdeptcd);

                if (! flag)
                {
                    window.close();
                }
            }
        }
    }
    else
    {
        if (xrwid == "SMMMR04900_newcnstform")
        {
            var formcd = getParameter("SMMMR04900_reqformcd");
            var userdeptcd = getParameter("userdeptcd");

            gPrestIvw.window.javascript.fNewCnstForm(formcd, userdeptcd);
        }
    }

}

/**
 * @desc   : È­¸é »çÀÌÁî Á¶Àý ¹× ¼Ó¼º ¼³Á¤
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fInitPage(isViewTitl, isViewSaveBtn, height, wid, isViewPrtBtn)
{
    if (isViewPrtBtn != null)
    {
        gViewPrt = isViewPrtBtn;
    }
    
    var hei_titl = parseInt(grup_titl.attribute("height"));
    var hei_btn = parseInt(grup_btn.attribute("height"));

    var top_titl = parseInt(grup_titl.attribute("top"));
    var top_btn = parseInt(grup_btn.attribute("top"));

    body.attribute("height") = height;

    if (wid != null)
	    body.attribute("width") = wid;

    if (isViewTitl)
    {
        grup_titl.attribute("visibility") = "visible";
    }
    else
    {
        grup_titl.attribute("visibility") = "hidden";
        hei_titl = 0;
        top_titl = 0;
    }

    if (! isViewSaveBtn)
    {
        hei_btn = 0;
    }

    ivw_base.attribute("height") = height - hei_titl - hei_btn - 2;

    if (wid != null)
	    ivw_base.attribute("width") = wid - 2;

    ivw_base.attribute("top") = top_titl + hei_titl;
    ivw_base.attribute("left") = 0;
    ivw_base.attribute("border-style") = "none";

    if (isViewSaveBtn)
    {
        grup_btn.attribute("width") = parseInt(ivw_base.attribute("width"));
        grup_btn.attribute("top") = parseInt(ivw_base.attribute("top")) + parseInt(ivw_base.attribute("height"));
        grup_btn.attribute("left") = 0;

        grup_btn.attribute("visibility") = "visible";
    }
    else
    {
        grup_btn.attribute("top") = 0;
        grup_btn.attribute("visibility") = "hidden";
    }

    ivw_fst.attribute("height") = ivw_base.attribute("height");
    ivw_fst.attribute("width") = ivw_base.attribute("width");
    ivw_fst.attribute("top") = ivw_base.attribute("top");
    ivw_fst.attribute("left") = ivw_base.attribute("left");
    ivw_fst.attribute("border-style") = ivw_base.attribute("border-style");

    //ivw_base.visible = true;
    //ivw_fst.visible = false;
    //gPrestIvw = ivw_base;

    if (! gMediRecMain)
    {
        btn_preview.visible = false;
        btn_del.visible = false;
    }

    //body.refresh();
}

var gPrePID = "";
var gSpecFormFlag = false;
var gFormLoad = false;

/**
 * @desc   : formxrwynÀ» ¹Ýȯ
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fInitForm()
{
    //alert("fInitForm");
    SetUserTimeLog("fInitForm", "START");
    gSubmitID = TX_SUBMIT_COMN_FORM;

    var pageInfo = new PAGEINFO();
    var formprogflag = fGetFormMast("formprogflag");
    var formprognm = fGetFormMast("formprognm");
    gFormLoad = false;
    var ivwsrc = "../../../emr/formmngtweb/xrw/SSMRF01200.xrw";
    //var ivwsrc = "../../../emr/medirecweb/xrw/SMMMR00000_Empty.xrw";

    if (formprogflag == "OCR")
    {
        ivw_base.src = "../../../emr/formmngtweb/xrw/SSMRF03800_OCRºä¾î.xrw";
        gPrestIvw = ivw_base;

        var sIoflag = fGetPamInfo("ioflag");
        var sOrddd = "";
        if(sIoflag == "I"){
            sOrddd = fGetPamInfo("indd");
        }else if(sIoflag == "O"){
            sOrddd = fGetPamInfo("orddd");
        }

        gPrestIvw.window.javascript.fGetOCRInfo(fGetFormMast("formcd"), fGetPamInfo("pid"), sOrddd, fGetPamInfo("cretno"), sIoflag);
    }
    else
    {
        if (gMediRecMain)
        {
            if (fGetFormMast("srcformcd") == "0000000002" && fGetPamInfo("ioflag") == "O")
            {
                opener.window.javascript.fSetPatSmm(true);
            }
            else
            {
                opener.window.javascript.fSetPatSmm(false);
            }
        }

        if (isProgForm())
        {
            ivwsrc = "../../../emr/medirecweb/xrw/" + formprognm + ".xrw";
        }

        if (fGetFormMast("srcformcd") == "0000000001" || fGetFormMast("srcformcd") == "0000000003")
            gPrestIvw = ivw_fst;
        else
            gPrestIvw = ivw_base;

        //if (fGetFormMast("formprogflag") == "SMMMR04900_CONSULT")
        if (fGetFormMast("formprognm") == "SMMMR04900_CONSULT")
        {
            gPrestIvw.src = ivwsrc;
            gFormLoad = true;
        }
        else if (gPrestIvw.src != ivwsrc)
        {
            gPrestIvw.src = ivwsrc;
            gFormLoad = true;
        }
        else if (gPrestIvw.attribute("formdegnseq") != fGetFormMast("formdegnseq"))
        {
            gFormLoad = true;
        }
        SetUserTimeLog("fInitForm", "gFormLoad END");

        if (gFormLoad)
        {
            if (isProgForm())// && fGetFormMast("formprogflag") != "PROF")
            {
                SetUserTimeLog("fInitForm", "copyNodeset START");
                copyNodeset(gPageInfo.forminfoRef, gPageInfo.forminfoRef, null, gPrestIvw.model, model);
                SetUserTimeLog("fInitForm", "copyNodeset END");

                gPrestIvw.window.javascript.fLoadForm();
                SetUserTimeLog("fInitForm", "fLoadForm END");

                gPrestIvw.attribute("formdegnseq") = fGetFormMast("formdegnseq");
            }
            else
            {
                //if ((isPopup() && opener.model.getValue("/root/emrtemp/sysformxrwyn") == "Y") &&
                //    fGetFormMast("formxrwyn") == "Y")
                if(fGetFormMast("formxrwyn") == "Y")
                {
                	/*********************/
                	/* XRW Loading Logic */
                	/*********************/
                    //gPrestIvw.src = GetFormXrwSubmitStr(fGetFormMast("formdegnseq"), "", "");
                    gPrestIvw.window.javascript.fDrawFormByFormDegnSeq(fGetFormMast("formdegnseq"), gPrestIvw.attribute("id"));
                    SetUserTimeLog("fInitForm", "GetFormXrwSubmitStr END");

                    //copyNodeset(gPageInfo.imgelistRef, gPageInfo.imgelistRef, "replace", gPrestIvw.model, model);
                    //SetUserTimeLog("fInitForm", "imgelistRef copyNodeset END");

                    /*copyNodeset(gPageInfo.forminfoRef, gPageInfo.forminfoRef, "replace", gPrestIvw.model, model);
                    SetUserTimeLog("fInitForm", "copyNodeset END");

                    gPrestIvw.window.javascript.makeInstance();
                    SetUserTimeLog("fInitForm", "makeInstance END");

                    gPrestIvw.model.refresh();*/
                }
                else
                {
                    gPrestIvw.src = "../../../emr/formmngtweb/xrw/SSMRF01200.xrw";
                    SetUserTimeLog("fInitForm", "gPrestIvw.src END");

		// 1. À̹ÌÁöÀÇ °³¼ö¸¦ È®ÀÎ
                    // 2. À̹ÌÁö À̸§°ú µðÀÚÀξÆÀÌÅÛÀ̸§ÀÌ °°ÀºÁö È®ÀÎ
                    // 3. ShapeÁ¤º¸°¡ ÀÖ´ÂÁö È®ÀÎ ÇÑ ÈÄ, ShapeÁ¤º¸¸¦ ÀÔ·Â
                    var imagecnt = getNodesetCnt(model, pageInfo.imgelistRef);

                    var imagecd;
                    var imagenm;
                    var degnitemnm;
                    var degnitemkind;
                    var shapeInfo;

  		 for(var i = 1; i <= imagecnt; i++)
                    {
                    	imagecd = model.getValue(pageInfo.imgelistRef + "[" + i + "]/imgecd");
	  		imagenm  = model.getValue(pageInfo.imgelistRef + "[" + i + "]/imgenm");
			//alert("imagecd: " + imagecd);
			//alert("imagenm: " + imagenm);

	  		if(imagecd != "" && imagenm != "")
	  		{
	  			degnitemnm = model.getValue(pageInfo.formdegnRef + "[" + i + "][degnitemcd=" + imagecd + "]/degnitemnm");
	  			degnitemkind = model.getValue(pageInfo.formdegnRef + "[" + i + "][degnitemcd=" + imagecd + "]/degnitemkind");
	  			//alert("degnitemnm: " + degnitemnm);
				//alert("degnitemkind: " + degnitemkind);

	  			if( degnitemkind == "IMG" )
	  			{
					shapeInfo = model.getValue(pageInfo.recItemRef + "[" + i + "][degnitemcd='" + imagecd + "' and degnitemkind='" + degnitemkind + "']/reccnts");
					//alert(shapeInfo);

					if(shapeInfo != "")
					{
						model.makeValue( gPageInfo.imgelistRef +"[" + i + "]/reccnts", shapeInfo);
					}
				}
	  		}
                    }

                    gPrestIvw.window.javascript.fPreviewByDegnItems(gPageInfo.formmastRef,
                        gPageInfo.formdegnRef,
                        gPageInfo.vallistRef,
                        gPageInfo.imgelistRef,
                        "record",
                        gFstLevlItemCd,
                        gPrestIvw);

                    SetUserTimeLog("fInitForm", "fPreviewByDegnItems END");
                }
            }

            if (formprogflag == "PROF")
            {
                gSubmitID = TX_SUBMIT_EXTN_FORM;
            }
        }
    }
    SetUserTimeLog("fInitForm", "END");
    return fGetFormMast("formxrwyn");
}

/**
 * @desc   : µ¥ÀÌÅÍ Setting
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSetLoadData()
{
    if(gOpenMode == "recform")
    {
        //À̹ÌÁö µ¥ÀÌÅÍ Setting
        copyNodeset(gPageInfo.imgelistRef, gPageInfo.imgelistRef, "replace", gPrestIvw.model, model);

        //±â·Ï µ¥ÀÌÅÍ Setting
        fInitFormRec();

        SetUserTimeLog("fLoaderEndForm", "fInitFormRec END");

        SetToLoadTime(1);
        SetUserTimeLog("fLoadRecForm", "END");

        fCheckWriteUser();

        fShowProgress(false);
    }
    //else
    //{
        /*alert("test");
        fInitClearForm();

        try {
            gPrestIvw.window.javascript.fExtnInitFormRec();
        }
        catch (e) {};

        fCheckWriteUser();*/

        copyNodeset(gPageInfo.imgelistRef, gPageInfo.imgelistRef, "replace", gPrestIvw.model, model);
        var imgeCnt = getNodesetCnt(gPrestIvw.model, gPageInfo.imgelistRef);
        for(var i = 1; i <= imgeCnt; i++)
        {
            var degnitemcd = gPrestIvw.model.getValue(gPageInfo.imgelistRef + "[" + i + "]/imgecd");
            var degnitemno = gPrestIvw.model.getValue(gPageInfo.formdegnRef + "[degnitemcd = '" + degnitemcd + "']/degnitemno");
            //if(gPrestIvw.window.javascript.eval("IMG_" + degnitemno).attribute("ref") == "")
            try
            {
                gPrestIvw.window.javascript.eval("IMG_" + degnitemno).LoadImageBase64(
                            gPrestIvw.model.getValue(gPageInfo.imgelistRef + "[imgecd='" + degnitemcd + "']/imgedata"));
            }
            catch(e)
            {
                gPrestIvw.window.javascript.setImageRefInstance(gPageInfo.imgelistRef + "[" + i + "]/imgedata");
            }
        }

        /*var len = gPrestIvw.window.document.body.children.length;
        alert("len : " + len);
    	for(var i = len - 1; i >= 0; i--)
    	{
    		var ctrl = gPrestIvw.window.document.body.children.item(i);
    		alert(ctrl.elementName + ", " + ctrl.attribute("clsid"));
    		if(ctrl.elementName != "xforms:object" || ctrl.attribute("clsid") != "{7b1f53ab-6137-4773-88cc-53a46af2d289}")//{72e5d9ed-0d6a-46e8-aead-23144bfef878}
    			continue;

    		var degnitemno = ctrl.attribute("id").split("_")[1];
    		var degnitemcd = gPrestIvw.model.getValue(pageInfo.formdegnRef + "[degnitemno = '" + degnitemno +"']/degnitemcd");
    		alert("degnitemcd : " + degnitemcd);

    		gPrestIvw.window.javascript.eval(ctrl.attribute("id")).LoadImageBase64(model.getValue(pageInfo.imgelistRef + "[imgecd='" + degnitemcd + "']/imgedata"));
    	}*/

        gPrestIvw.model.refresh();
    //}
}

/**
 * @desc   : XRW ·Îµù
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fLoadNewXRW(xrwid)
{
    if (gMediRecMain)
        opener.window.javascript.fSetPatSmm(false);

    if (ivw_base.src == "")
    {
        ivw_base.src = "../../../emr/medirecweb/xrw/SMMMR00000_Empty.xrw";
    }

    gPrestIvw = ivw_base;

    gPrestIvw.window.javascript.navigate(xrwid, "", "", "", "");
//    if (window.document.location == "C:/CMCProject/application/webapps/emr/medirecweb/xrw/")
//    {
//        if (xrwid == "SMMMR04900")
//            gPrestIvw.window.javascript.navigateUrl("../../../emr/medirecweb/xrw/SMMMR04900_CONSULT.xrw", "", "", "", "");
//        else
//            gPrestIvw.window.javascript.navigate(xrwid, "", "", "", "");
//    }
//    else
//    {
//        gPrestIvw.window.javascript.navigate(xrwid, "", "", "", "");
//    }
}

/**
 * @desc   : ±â·ÏÀ» À§ÇÑ È¯ÀÚ ¿ø¹«Á¤º¸ ¼ÂÆÃ
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSetPamInfo(pid, orddd, cretno, ioflag, orddeptcd, orddrid,wardcd)
{
    if (pid == "")
    {
        messageBox("µî·Ï¹øÈ£°¡ ", "I004");
        return false;
    } else if (orddd == ""){
        messageBox("Áø·áÀÏÀÚ°¡  ", "I004");
        return false;
    } else if (cretno == ""){
        messageBox("»ý¼º¹øÈ£°¡  ", "I004");
        return false;
    } else if (ioflag == ""){
        messageBox("³»¿ø±¸ºÐÀÌ  ", "I004");
        return false;
    } else if (orddeptcd == ""){
        messageBox("Áø·á°ú Á¤º¸°¡  ", "I004");
        return false;
    } else if (orddrid == ""){
        messageBox("Áø·áÀÇ»ç Á¤º¸°¡ ", "I004");
        return false;
    }
    
    model.removeNodeset("/root/main/paminfo");
    model.makeValue("/root/main/paminfo/pid", pid);

    if (ioflag == "O" || ioflag == "S")
    {
        model.makeValue("/root/main/paminfo/orddd" , orddd);
        model.makeValue("/root/main/paminfo/orddrid", orddrid);
    }
    else
    {
        model.makeValue("/root/main/paminfo/indd"  , orddd);
        model.makeValue("/root/main/paminfo/medispclid", orddrid);
    }

    model.makeValue("/root/main/paminfo/cretno", cretno);

    if (orddeptcd == "2280000000")
        model.makeValue("/root/main/paminfo/ioflag", "E");
    else
        model.makeValue("/root/main/paminfo/ioflag", ioflag);

    model.makeValue("/root/main/paminfo/orddeptcd", orddeptcd);
    model.makeValue("/root/main/paminfo/wardcd", wardcd);
    
    return true;
}

/**
 * @desc   : key°ª¿¡ ÇØ´çµÇ´Â ¿ø¹«Á¤º¸ °¡Á®¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetPamInfo_old(key)
{
    if (gMediRecMain)
    {
        return window.opener.model.getValue("/root/main/paminfo/" + key);
    }
    else
    {
        return model.getValue("/root/main/paminfo/" + key);
    }
}

/**
 * @desc   : ¼­½Ä Clear
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fInitClearForm()
{
	if (fIsValidForm_MMR01100(true) == false)
		return;
		
    var formprogflag = fGetFormMast("formprogflag");
    btn_print.visible = false;

    fSetNewFormRec();
    
    if (formprogflag == "OCR")
    {
        btn_print.visible = true;
    }
    else if (isProgForm())
    {
        //var rtn = gPrestIvw.window.javascript.fClearComnFormData();
        var rtn = ivw_base.window.javascript.fClearComnFormData();

        if(rtn == "oprfalse")       //¼ö¼ú±â·ÏÁö ¹öÆ° disable
        {
            fDisalbeSave(true);
            return;
        }
	    /**
		 * @desc   : °øÅë¼­½Ä³»ÀÇ È®Àå¹öÆ°(À̹ÌÁö,°¡°èµµ,Ãß°¡±â·Ï)À» ±â·Ï¿©ºÎ¿¡ µû¶ó Ç¥½ÃÇÑ´Ù.
		 * @history : 2009.09.09    ½Å±Ô   ¾ÈÄ¡¿ø    ACW_090909A
		 */        
        try {
            //alert("fInitClearForm");
		    setButtonToggleAllByRecYn(ivw_base, ivw_base.window.javascript.gExtnBtnIds);
		}
		catch (e) {
		}
    }
    else
    {
        ivw_base.window.javascript.clearData();
    }

}

/**
 * @desc   : ¼­½Ä·Îµå½Ã LoadingBarÇ¥½Ã, ´Ý±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fShowProgress(flag, msg) {
    if (gPrestIvw != null) {
        gPrestIvw.visible = !flag;
    }

    if (flag) {
        openLoadingBar(msg);
    } else {
        closeLoadingBar();
    }
}

/**
 * @desc   : Æ˾÷¼­½Ä ¿ÀÇÂ
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fOpenModalForm(status)
{
    fShowProgress(false);

    setParameter("frtime",      GetFrLoadTime());
    setParameter("openmode",    "openform");
    setParameter("status",      status);
    setParameter("pid",         fGetPamInfo("pid"));

    if (fGetPamInfo("ioflag") == "O")
    {
        setParameter("orddd",   fGetPamInfo("orddd"));
        setParameter("orddrid", fGetPamInfo("orddrid"));
    }
    else
    {
        setParameter("orddd",   fGetPamInfo("indd"));
        setParameter("orddrid", fGetPamInfo("medispclid"));
    }

    setParameter("cretno",      fGetPamInfo("cretno"));

    if (fGetPamInfo("orddeptcd") == "2280000000")
        setParameter("ioflag",      "E");
    else
        setParameter("ioflag",      fGetPamInfo("ioflag"));

    setParameter("orddeptcd",   fGetPamInfo("orddeptcd"));
//    setParameter("forminfo",    fGetCSVByFormInfo());
//
//    if (status == "C")
//        setParameter("recinfo", "");
//    else
//        setParameter("recinfo", fGetCSVByRecInfo());

    setParameter("openmadalformsave", "");

    modalUrl("../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw", 1, 0, 0, "", "", "");

    if (getParameter("openmadalformsave") == "Y")
    {
        if (gMediRecMain)
        {
            opener.window.javascript.fRefMediRecList();
        }
    }
}

/**
 * @desc   : ¼­½Ä¸íĪ È­¸é Ç¥½Ã
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSetFormNm(formnm)
{
//    fSetFormMast("formnm", formnm);
    cap_formnm.text = formnm;
    cap_formnm.refresh();
}

/**
 * @desc   : ºÎºÐ¼­½Ä °¹¼ö Ä«¿îÆ®
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetUnitFormCnt()
{
    var cnt = getNodesetCnt(model, gPageInfo.formdegnRef+"[degnitemkind='FRM' and itemuseflag='F0']");
    return cnt;
}

/**
 * @desc   : ÄÁ¼³Æ® ¼­½Ä ·Îµå
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fLoadNewCnstForm(formcd)
{
    setParameter("SMMMR04900_reqformcd", formcd);
    setParameter("SMMMR04900_newcnstform", "Y");

    fLoadNewXRW("SMMMR04900");
}

/**
 * @desc   : »õ¼­½Ä ·Îµå
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
 function fLoadNewForm_old(formcd, calledflag)
{
    try
    {
        if (formcd == "")
        {
            messageBox("¼­½ÄÄڵ尡", "I004");
            return;
        }

        if (false && fGetPamInfo("pid") == "")
        {
            messageBox("ȯÀÚÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê¾Æ ÁøÇà", "E001");
            fDisalbeSave(true);
            return;
        }

        if (formcd == "0000000001" || formcd == "0000000003")
        {
            messageBox("»ç¿ë ÇÒ ¼ö ¾ø´Â ¼­½Ä", "E008");
            fDisalbeSave(true);
            return;
        }

        fDisalbeSave(false);

        fShowProgress(true, "¼­½ÄÁ¤º¸");

        if (formcd.indexOf("MMR") > -1)
        {
            fLoadNewXRW(formcd);
        }
        else
        {
            var isModal = fRefFormInfoByFormCd(formcd, "Y");

            SetUserTimeLog("fLoadNewForm", "fRefFormInfoByFormCd END");
            cap_formnm.refresh();

            if (isModal && !isPopup())
            {
                SetToLoadTime(1);
                SetUserTimeLog("fLoadNewForm", "END");
                fOpenModalForm("C");
            }
            else
            {
                fInitForm();
                //SetUserTimeLog("fLoadNewForm", "fInitForm END");

                //if(fGetFormMast("formxrwyn") != "Y")
                {
                    fInitClearForm();
                    //SetUserTimeLog("fLoadNewForm", "fInitClearForm END");

                    try {
                        gPrestIvw.window.javascript.fExtnInitFormRec();
                    }
                    catch (e) {};

                    fCheckWriteUser();

                    //SetUserTimeLog("fLoadNewForm", "fInitFormRec END");
                    //SetToLoadTime(1);
                }
            }
        }

        try {
            opener.window.javascript.fEndLoadNewForm_MMR01100();
        }
        catch (e) {};

        if (calledflag != null)
        {
            fSetFormRec("calledflag", calledflag);
        }

        fShowProgress(false);
    }
    catch (e)
    {
        fShowProgress(false);
        throw e;
    }

// ¿Ü·¡ ÃÊÁø ¸·´Â ºÎºÐ
//    if (fGetFormMast("srcformcd") == "0000000001")
//    {
//        if (!gIsFirstOpen)  //ÃÊÁø±â·ÏÁö óÀ½ ¿Àǽÿ¡¸¸ messageBox
//        {
//            messageBox("±âÁ¸ÀÇ ÃÊÁø±â·ÏÁö¿¡ ¼ö±âÀÛ¼ºÇØ ÁֽʽÿÀ.", "E", "");
//            gIsFirstOpen = true;
//        }
//        fDisalbeSave(true);
//    }
}


/**
 * @desc   : »ç¿ëÀÚ ±ÇÇÑ Ã¼Å©
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fCheckWriteUser()
{
    var pageInfo = new PAGEINFO();
	var formprogflag = model.getValue(pageInfo.formmastRef + "/formprogflag");
	var formprognm = model.getValue(pageInfo.formmastRef + "/formprognm");

	//alert("formprogflag="+formprogflag);
    //if (fGetFormRec("formrecuserid") == getUserId())

    if (((fGetFormRec("formrecuserid") == getUserId()) || fGetFormMast("foctsnwyn") == "Y") && formprognm != "SMMMR04900_CONSULT")  //¿¹Áø±â·Ï¿©ºÎ °Ë»ç Ãß°¡
    //if (fGetFormRec("formrecuserid") == getUserId() && formprognm != "SMMMR04900_CONSULT")  //¿¹Áø±â·Ï¿©ºÎ °Ë»ç Ãß°¡
    {
        grup_btn.disabled = false;
    }
    else
    {
        if (formprognm == "SMMMR04900_CONSULT")
        {
            if (fGetFormRec("status") == "C")
            {
                grup_btn.disabled = false;
            }
            else
            {
                var reqedityn = ivw_base.model.getValue("/root/main/cnstinfo/reqedityn");
                var recvedityn = ivw_base.model.getValue("/root/main/cnstinfo/recvedityn");

                if (reqedityn == "Y" || recvedityn == "Y")
                {
                    grup_btn.disabled = false;
                }
                else
                {
                    grup_btn.disabled = true;
                }
            }
        }
        else
        {
            grup_btn.disabled = true;
        }
    }

    if (formprognm != "SMMMR04900_CONSULT")
    {
        addEmrLog("fCheckWriteUser : " + !grup_btn.disabled);
	    //EditableCtrl(gPrestIvw.window.body , !grup_btn.disabled);
	}

	try {
            ivw_base.window.javascript.fCheckWriteUserSubForm();
    }
    catch (e) {};
    //alert(fGetFormRec("formcd"));
    //alert(fGetFormRec("formprogflag"));
}

/**
 * @desc   : ÀúÀå¹öÆ° ¸·±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fDisalbeSave(flag)
{	
		if (flag)
    {
        //grup_btn.disabled = true;
        btn_del.disabled = true;
        btn_signsave.disabled = true;
        btn_tmpsave.disabled = true;
        btn_signsaveasnew.disabled = true;
        btn_preview.disabled = true;
        btn_init.disabled = true;
    }
    else
    {
        grup_btn.disabled = false;
        btn_del.disabled = false;
        btn_signsave.disabled = false;
        btn_tmpsave.disabled = false;
        btn_signsaveasnew.disabled = false;
        btn_preview.disabled = false;
        btn_init.disabled = false;
    }
}

/**
 * @desc   : ±â·ÏµÈ ¼­½Ä ·Îµå
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fLoadRecForm_old(formrecseq, calledflag)
{
    //try
    {
        SetFrLoadTime();
        SetUserTimeLog("fLoadRecForm", "START");
        if (formrecseq == "")
        {
            messageBox("±â·ÏÄڵ尡", "I004");
            return;
        }

        fShowProgress(true, "±â·ÏÁ¤º¸");

        //var isModal = fRefComnFormRecInfo(formrecseq);
        var isModal = fGetComnFormRecInfo(formrecseq);
        SetUserTimeLog("fLoadRecForm", "fRefComnFormRecInfo END");

        var recPath;
        if (isModal)
        	recPath = "/root/main3/recinfo/formrec";
        else
        	recPath = "/root/main/recinfo/formrec";


		if (model.getValue(recPath + "/formrecseq") == "")
        {
            fShowProgress(false);
            messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
            return;
        }

        fDisalbeSave(false);
        if (gMediRecMain && fGetPamInfo("pid") != model.getValue(recPath + "/pid"))
        {
            messageBox("ȯÀÚÁ¤º¸¿Í ±â·ÏÁ¤º¸°¡ ÀÏÄ¡ÇÏÁö ¾Ê¾Æ ÁøÇà", "E001");
            fDisalbeSave(true);

            SetUserTimeLog("fLoadRecForm", "PamPID:" + fGetPamInfo("pid") +" / RecPID:"+ model.getValue(recPath + "/pid"));
            return;
        }

        if (calledflag != null)
        {
	        fSetFormRec("calledflag", calledflag);
        }

        if (isModal)
        {
            fRefFormInfoByFormDegnSeq(model.getValue("/root/main3/recinfo/formrec/formdegnseq"),
                "Y",
                model.getValue("/root/main3/recinfo/formrec/sysformrecdt"));

            SetToLoadTime(1);
            SetUserTimeLog("fLoadRecForm", "fRefFormInfoByFormDegnSeq END");
            fOpenModalForm("U");
        }
        else
        {
            if (fGetFormRec("formrecseq") == "")
            {
                fShowProgress(false);
                messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
                return;
            }

            if (gMediRecMain && fGetPamInfo("pid") != fGetFormRec("pid"))
            {
                messageBox("ȯÀÚÁ¤º¸¿Í ±â·ÏÁ¤º¸°¡ ÀÏÄ¡ÇÏÁö ¾Ê¾Æ ÁøÇà", "E001");
                fDisalbeSave(true);
            }
            fDisalbeSave(false);

            fRefFormInfoByFormDegnSeq(fGetFormRec("formdegnseq"), "Y", fGetFormRec("sysformrecdt"), fGetFormRec("formfromdt"));
            SetUserTimeLog("fLoadRecForm", "fRefFormInfoByFormDegnSeq END");
            cap_formnm.refresh();

            gOpenMode = "recform";

            fInitForm();

            SetUserTimeLog("fLoadRecForm", "fInitForm END");

            //formxrw°¡ ÀúÀåµÇÁö ¾ÊÀº °æ¿ì´Â ¼øÂ÷Àû setting, formxrw°¡ ÀúÀåµÈ °æ¿ì´Â event based setting
            if(fGetFormMast("formxrwyn") != "Y")
            {
                fInitFormRec();

                SetUserTimeLog("fLoaderEndForm", "fInitFormRec END");

                SetToLoadTime(1);
                SetUserTimeLog("fLoadRecForm", "END");

                fCheckWriteUser();

                fShowProgress(false);
            }
        }
    }
    /*catch (e)
    {
        fShowProgress(false);
    }*/
}

/**
 * @desc   : ±â·ÏÀ» À§ÇÑ ÃʱâÈ­
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fInitFormRec()
{
    fSetFormRec("status", "U");

    fSetOldFormRecInfo();

    copyNodeset(gPageInfo.recItemRef2, gPageInfo.recItemRef, "replace", gPrestIvw.model, model);

    if (isProgForm())
    {
        gPrestIvw.window.javascript.fLoadData();
    }
    else
    {
        setSrchData(gPageInfo.recItemRef, gPrestIvw);
    }

}

/**
 * @desc   : â´Ý±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClose()
{
    window.close();
}

/**
 * @desc   : È®ÀιöÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fConfirm_old()
{
    gPrestIvw.window.javascript.getSaveData(gPageInfo.recItemRef2, "replace", model, NewPageInfo(gPrestIvw, gFstLevlItemCd));

    var path = gPageInfo.extnrecItemRef + "[fstlevlitemcd='" +gFstLevlItemCd+ "' and formcd='" + model.getValue(gPageInfo.formmastRef + "/formcd") + "']";

    if (opener.window.javascript.fGetRecNodeCount(path) != "0")
    {
        opener.window.javascript.fRemoveRecNodeset(path);
    }
    copyNodeset(gPageInfo.extnrecRef, gPageInfo.recRef2, "append" ,opener.model, model);

    window.close();
}

/**
 * @desc   : ¼­½Ä ºÎÁ¦¸ñ °¡Á®¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetFormSubTitle()
{
    var list = getGlobalVariable("emr_gsv_formsubtitlelist");

    if(list != "" && list != "-"){
        setCSVToNode("/root/init/formsubtitle",list,"formsubtitlelist");
    }else{
        //submit("TRMMR04401");

		////////////////////
		//20101124, ÁÖÈñ°æ, Áø·á ¼Óµµ °³¼±À» À§ÇØ ·Î±×ÀÎ ½Ã Á¶È¸ÇØ ³õÀº µ¥ÀÌÅ͸¦ º¹»ç
		var rsltref = "/root/init/formsubtitle";
		model.removeNodeset(rsltref);
		model.makeNode(rsltref);	
		
		var viewerObj = getViewer("sysMessage");
		var srcNode = viewerObj.window.instance1.selectNodes( gvOrderBasicInfoPath + "/formsubtitlelist" );
		var trgtNode = instance1.selectSingleNode(rsltref);

		for ( i=0; i<srcNode.length; i++)
		{
			trgtNode.appendChild(srcNode.item(i));
		}
		//////////////////

        fFormSubTitlesetglobal();       //Global º¯¼ö¿¡ ÀúÀå
    }
    model.refresh();
}

/**
 * @desc   : ¼­½ÄºÎÁ¦¸ñ ¸®½ºÆ® Àü¿ªº¯¼ö·Î ¼ÂÆÃ
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fFormSubTitlesetglobal()
{
    var reqnode = model.instances(0).selectNodes("/root/init/formsubtitle/formsubtitlelist");

    var csv = getNodeListCSV(reqnode);

    if (csv == "") csv = "-";

    setGlobalVariable("emr_gsv_formsubtitlelist",csv);
}

/*******************************************************************************************************
Æ©´× ÀÛ¾÷                                                                                            
*******************************************************************************************************/
/**
 * @group  :
 * @ver    : 2008.06.23
 * @by     : snoweye
 * @modify : jonghun(2008.07.07 ¼­½ÄºÎÁ¦¸ñÁ¶È¸ Ãß°¡)
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÃʱâÈ­ ÀÛ¾÷ ¼öÇà
 * @param  : formcd - loadÇÒ ¼­½ÄÄÚµå
 * @return : formmast, formdegn, vallist, unitformmast, extnformlist (unitformdegn, imgelist Á¦¿Ü)
 * @---------------------------------------------------
 */  
function fFormReady()
{
    ivw_base.visible = true;
    ivw_fst.visible = false;
    
    var formcd    = opener.javascript.getParameter("formcd");  
    var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");       //SSMMR01100_getTopYn => topÁ¤º¸ Á¶È¸¿©ºÎ Á¤º¸(NÀÏ°æ¿ì ³Ñ¾î¿Â ÆĶó¹ÌÅͱâÁØ, ¾Æ´Ò°á·ç TOPÁ¤º¸ ±âÁØ)
    var node      = getGlobalVariable("paminfo");
    
    if(node != "" && sGetTopYn != "N") {
        model.removeNodeset("/root/main/paminfo");
        setCSVToNode("/root/main", node, "paminfo");
    }
    
    if(window.type != 'main' && model.getValue("/root/loadcomplete") != "true") {
		parent.body.dispatch("SSMMR01100_onloadcomplete");
		model.makeValue("/root/loadcomplete", "true")
	}

    if (isPopup()) {
        fModalProcess();
        if (validPamInfo_MMR01100("open_popup") == false) { //2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
    		return false;
    	}
    } else {
        fLoadNewForm(formcd);
        if (grup_titl.attribute("visibility") != "hidden") {
            fGetFormSubTitle();         // ¼­½ÄºÎÁ¦¸ñ¸®½ºÆ®Á¶È¸
        }
    }
}

/**
 * @group  :
 * @ver    : 2008.06.23
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ·ÎµåÇÒ »õ·Î¿î ¼­½ÄÀÇ ±âº»Á¤º¸ Á¶È¸
 * @param  : formcd - loadÇÒ ¼­½ÄÄÚµå
 * @return : formmast, formdegn, vallist, unitformmast, extnformlist (unitformdegn, imgelist Á¦¿Ü)
 * @---------------------------------------------------
 */  
function fGetNewFormMast(formcd)
{
    model.makeValue("/root/send/req/formcd",                formcd);				// newform: formcd, 			recform: "", 					extnform: ""
    model.makeValue("/root/send/req/formdegnseq",           0);			            // newform: 0, 					recform: formdegnseq, 			extnform: formdegnseq
    model.makeValue("/root/send/req/extnunitformlistyn",    "Y");	                // newform: extnunitformlistyn, recform: extnunitformlistyn,	extnform: "N"
    model.makeValue("/root/send/req/cashedformdegnseq",     gCashedFormDegnSeq);	// newform: gCashedFormDegnSeq, recform: gCashedFormDegnSeq,	extnform: gCashedFormDegnSeq
    model.makeValue("/root/send/req/sysformrecdt",          "");			        // newform: "", 				recform: sysformrecdt, 			extnform: fGetFormRec("sysformrecdt"))
    model.makeValue("/root/send/req/formfromdt",            "");			        // newform: x, 					recform: formfromdt, 			extnform: x
    
    submit("TRMRF02001", false);
    
    return true;
}

/**
 * @group  :
 * @ver    : 2008.06.23
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ·ÎµåÇÒ ±â·Ï ¼­½ÄÀÇ ±âº»Á¤º¸ Á¶È¸
 * @param  : formcd - loadÇÒ ¼­½ÄÄÚµå
 * @return : formmast, formdegn, vallist, unitformmast, extnformlist (unitformdegn, imgelist Á¦¿Ü)
 * @---------------------------------------------------
 */  
function fGetRecFormMast(formrecseq)
{
    model.makeValue("/root/send/req/formrecseq",                formrecseq);				// newform: formcd, 			recform: "", 					extnform: ""
    model.makeValue("/root/send/req/formdegnseq",           0);			            // newform: 0, 					recform: formdegnseq, 			extnform: formdegnseq
    model.makeValue("/root/send/req/extnunitformlistyn",    "Y");	                // newform: extnunitformlistyn, recform: extnunitformlistyn,	extnform: "N"
    model.makeValue("/root/send/req/cashedformdegnseq",     gCashedFormDegnSeq);	// newform: gCashedFormDegnSeq, recform: gCashedFormDegnSeq,	extnform: gCashedFormDegnSeq
    model.makeValue("/root/send/req/sysformrecdt",          "");			        // newform: "", 				recform: sysformrecdt, 			extnform: fGetFormRec("sysformrecdt"))
    model.makeValue("/root/send/req/formfromdt",            "");			        // newform: x, 					recform: formfromdt, 			extnform: x
    
    
    submit("TRMRF02004");    
    return true;
}

function fCheckForm(ref) {
    //·ÎµåºÒ°¡ : 0, °øÅë¼­½Ä(PGM) : 1, °øÅë¼­½Ä(¼­½Ä) : 2, Ư¼ö¼­½Ä : 3, CNST : 4, PROF : 5, OCR : 6
    var formprogflag = model.getValue(ref + "/formprogflag");
    var formprognm = model.getValue(ref + "/formprognm");
    
    if(formprogflag == "PROG" && formprognm == "") {
        return "";
    }
    
    if(isPopup() && formprogflag == "-") {
        return "MAIN";
    }

    return formprogflag;
}

function fGetFormPath()
{
    var formdegnseq = model.getValue(gPageInfo.formmastRef + "/formdegnseq");
    return getActionURL("TRMRF01201") + getUserSessionString() + "&formcd=&formdegnseq=" + formdegnseq + "&ivwid=" + ivw_base.attribute("id")
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : »õ·Î¿î ¼­½ÄÀ» Load  <-- fLoadNewForm_old
 * @param  : formcd - ¼­½Ä ÄÚµå
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @return :
 * @---------------------------------------------------
 */ 
function fLoadNewForm_20080818(formcd, bPopup)
{
    if (formcd == "")
        return;
        
    if(bPopup == null)
        bPopup = true;

    //1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetNewFormMast(formcd))
    {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }

    //¼­½Ä ¿ÀÇÂÀü ȯÀÚÁ¤º¸ ¼ÂÆÃ
    //copyNodeset("/root/main/paminfo", "/root/main/paminfo", "replace", model, opener.model);
    
    var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");       //SSMMR01100_getTopYn => topÁ¤º¸ Á¶È¸¿©ºÎ Á¤º¸(NÀÏ°æ¿ì ³Ñ¾î¿Â ÆĶó¹ÌÅͱâÁØ, ¾Æ´Ò°á·ç TOPÁ¤º¸ ±âÁØ)
    var node = getGlobalVariable("paminfo");
    
    if(node != "" && sGetTopYn != "N")
    {
        model.removeNodeset("/root/main/paminfo");
        setCSVToNode("/root/main", node, "paminfo");
    }
    
    //1-1. ±â·ÏÁ¤º¸ ÃʱâÈ­
    fSetNewFormRec();
    
    //2. ¼­½Ä üũ
    var formprogflag = fCheckForm(gPageInfo.formmastRef);    
    
    //3. ¼­½Ä ·Îµå
    fLoadForm(gPageInfo.formmastRef, formprogflag, bPopup);  
    
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : »õ·Î¿î ¼­½ÄÀ» Load  <-- fLoadNewForm_old
 * @param  : formcd - ¼­½Ä ÄÚµå
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @param  : calledflag - ±â·ÏÈÄ ³Ñ°ÜÁà¾ßÇÏ´Â °ª
 * @return :
 * @---------------------------------------------------
 */ 
var gSrcFormcd = "";
var gFormProgFlag = "";
var gFormProgNm = "";//2010.03.29 dhkim Ãß°¡
function fLoadNewForm(formcd, bPopup, calledflag, bValid)
{
	//2010.03.09 ¾ÈÄ¡¿ø - ½Å±ÔÆ˾÷¼­½Ä ¿À·ù ¼öÁ¤
	//Áø·á±â·Ï¸ÞÀο¡¼­ ÃÖÃÊ, ¼öÁ¤¸ðµå·Î ¿­¸° ±â·ÏÀÌÈÄ¿¡ Æ˾÷À¸·Î ¿­¸®´Â ½Å±Ô¼­½ÄÀÌ
	//º»·¡ÀÇ ¼­½ÄÀÌ ¿­¸®Áö ¾Ê°í, ¹ÙÅÁÀÇ ¼öÁ¤¸ðµå·Î ¿­¸° ±â·ÏÀÌ Æ˾÷À¸·Î ¿­¸®´Â ¹®Á¦ ÇØ°á.
	clearParameter("openmode");
	
	//2010.06.17, ÁÖÈñ°æ, ½Å±Ô ÀÛ¼º½Ã¿¡¸¸ µðÆúÆ®°ª ¼ÂÆà Çϵµ·Ï ¼¼¼Ç °ª ¼³Á¤, ÀÌÀº¿µ °úÀå ¿äû
	setParameter("fLoadNewForm", "Y");
	
	//2009.10.13 ¾ÈÄ¡¿ø TASK-32640, 32794
	//Áߺ¹±â·Ï °Ë»ç
	if (bValid == null) {
		bValid = true;
	}
    if (bValid && validateRec(formcd) == false)
    	return;
    	
    model.addLog("fLoadNewForm start½Ã°£: " + getCurrentTime() + ", formcd:" + formcd);
    var rtn = "N";
    var rtnmsg = 0;
    
    //ÇöÀç ·ÎµùµÈ ¼­½ÄÀÇ formcd¸¦ °¡Á®¿Â´Ù.
    gSrcFormcd = fGetFormMast("formcd");
    gFormProgFlag = fGetFormMast("formprogflag");
    gFormProgNm  = fGetFormMast("formprognm");//2010.03.29 dhkim Ãß°¡
    
    //alert(gSrcFormcd +"@"+ gFormProgFlag + "@"+ gFormProgNm);
    
    var gOldUnitNodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
    gOldUnitFormDgnSeq = "";
    
    for (var i = 0; i < gOldUnitNodelist.length; i++)
    {
        var subNode = gOldUnitNodelist.item(i);
        gOldUnitFormDgnSeq += subNode.selectSingleNode("formdegnseq").text + "¢Ë";
    }
    
    var openmode = opener.window.javascript.getParameter("openmode");
    
   	if ( openmode != "extnunitform" && formcd == "")
        return;
    
    if (getParameter("loadstatus"))
    {
        if (getParameter("afterRecDelete") == "Y")
        {
            rtn = "N";
            clearParameter("afterRecDelete");
        }
        else
        {
            rtn = fCheckChangeDataForCosign();
        }
    }

    if(bPopup == null)
        bPopup = true;
		
		//1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetNewFormMast(formcd))
    {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }
    
    var recsavechk = opener.window.javascript.getParameter("SSMMR01100_recsavechk");
    opener.window.javascript.clearParameter("SSMMR01100_recsavechk");
    
    if (rtn != "N" && model.getValue(gPageInfo.initformmastRef + "/mainyn") == "Y" && recsavechk != "Y")     //¼öÁ¤µ¥ÀÌÅÍ°¡ ÀÖ´Â °æ¿ì
    {
        var srcformcd = model.getValue(gPageInfo.initformmastRef + "/srcformcd");
        
        if (srcformcd =! '0800003416')
        { 
           var rtnmsg = messageBox("±â·Ï³»¿ë Áß ÀúÀåµÇÁö ¾ÊÀº ³»¿ëÀÌ ÀÖ½À´Ï´Ù.", "Q002");
	      }
        
        //alert("rtnmsg:"+rtnmsg);

        if (rtnmsg == 6)
        {
        	var clkSvRtn = fClickSave("Y") ;
        	//alert(clkSvRtn);
            if (clkSvRtn == false)
            {
                return;
            }
        }
    }
      
    fShowProgress(true, "¼­½ÄÁ¤º¸");
    
    //¼­½Ä ¿ÀÇÂÀü ȯÀÚÁ¤º¸ ¼ÂÆÃ
    //copyNodeset("/root/main/paminfo", "/root/main/paminfo", "replace", model, opener.model);
    
    var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");       //SSMMR01100_getTopYn => topÁ¤º¸ Á¶È¸¿©ºÎ Á¤º¸(NÀÏ°æ¿ì ³Ñ¾î¿Â ÆĶó¹ÌÅͱâÁØ, ¾Æ´Ò°á·ç TOPÁ¤º¸ ±âÁØ)
    var node = getGlobalVariable("paminfo");
    
    if(node != "" && sGetTopYn != "N")
    {
        model.removeNodeset("/root/main/paminfo");
        setCSVToNode("/root/main", node, "paminfo");
    }
    

    if (openmode == "newform")
    {
        if (!fSetPamInfo(opener.window.javascript.getParameter("pid"),
                opener.window.javascript.getParameter("orddd"),
                opener.window.javascript.getParameter("cretno"),
                opener.window.javascript.getParameter("ioflag"),
                opener.window.javascript.getParameter("orddeptcd"),
                opener.window.javascript.getParameter("orddrid") ))
        {
            grup_btn.disabled = true;
            return;
        }
    }
   
    //µ¿ÀÏ ¼­½Ä ·Îµù½Ã ÀνºÅϽº¸¸ ¹Ù²ãÁÖ´Â ±â´É °ü·Ã Ãß°¡(2008-11-28 ¹ÚÁ¾ÈÆ)
    var sSrchsrcformcd = model.getValue(gPageInfo.initformmastRef + "/formcd");
    var sSrchformprogflag = model.getValue(gPageInfo.initformmastRef + "/formprogflag");
    
    var sFormProgNm = model.getValue(gPageInfo.initformmastRef + "/formprognm");

    if ( openmode != "extnunitform" && formcd!= "" && gSrcFormcd == sSrchsrcformcd && gFormProgFlag == sSrchformprogflag && sFormProgNm != "-"
    && gFormProgNm == sFormProgNm //2010.03.29 dhkim Ãß°¡(formprognmÀÌ ´Ù¸¦ °æ¿ì ¼­½Ä »õ·Î ·Îµù)
       )
    {
    		//2. ¼­½Ä üũ
        var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
        
        if (fCheckformKind(formprogflag, bPopup))
        {
            copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
            model.removeNodeset(gPageInfo.initforminfoRef);
        }
        
        //¿­·ÁÀÖ´Â ±â·ÏÁö ºÎºÐ¼­½ÄÀÇ formdegnseq°¡ ÀÏÄ¡ÇÏ´ÂÁö ¿©ºÎ¸¦ °Ë»çÇÏ¿© ´Ù¸¦ °æ¿ì ºÎºÐ¼­½ÄÀ» »õ·Î ·Îµù(2009-01-15 ¹ÚÁ¾ÈÆ)
        var gNewUnitNodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
        var arrOldUnitFormDgnSeq = gOldUnitFormDgnSeq.split("¢Ë");
       	
       	for (var i = 0; i < gNewUnitNodelist.length; i++)
        {
            var subNode = gNewUnitNodelist.item(i);
            var newUnitFormDgnSeq = subNode.selectSingleNode("formdegnseq").text;
            var unitItemCd = subNode.selectSingleNode("orgsupdegnitemcd").text;
            
            var ivwObj = ivw_base.document.controls("ivw_" + unitItemCd);
            
            if(ivwObj.src == "")
            {
            	//2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
                ivwObj.attribute("supdegnitemcd") = "";
                ivwObj.attribute("unitformcd") = "";
                
                var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                
                if (unitformcd != "")
                {
                    ivwObj.attribute("supdegnitemcd") = unitItemCd;
                    ivwObj.attribute("unitformcd") = unitformcd;
    
                    model.addLog(unitformcd + " Loading ½ÃÀÛ : " + getCurrentTime());
                    loadUnitForm(ivwObj, unitItemCd);
                    if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq)
                    {
                        setFstLevlItemCd(ivwObj, unitformcd);
                        model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                    }
                    model.addLog(unitformcd + " Loading ³¡ : " + getCurrentTime());
                    
                    //2008-12-18¹ÚÁ¾ÈÆ(±â·Ïµ¥ÀÌÅÍ °¡Á®¿À±â-º¸¿ÏÇÊ¿ä)
                    //parent.window.javascript.InitUnitFormDataBySupdegnitemcd(unitItemCds);
                }
            }
            else if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq)
            {
            	//2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
                ivwObj.attribute("supdegnitemcd") = "";
                ivwObj.attribute("unitformcd") = "";
                
                var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                
                if (unitformcd != "")
                {
                    ivwObj.attribute("supdegnitemcd") = unitItemCd;
                    ivwObj.attribute("unitformcd") = unitformcd;
    
                    loadUnitForm(ivwObj, unitItemCd);
                    setFstLevlItemCd(ivwObj, unitformcd);
                    model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                    
                }
            }
        }
        
        fInitClearForm();
        
        if (isProgForm())
        {
            ivw_base.window.javascript.fGetDefData();
        }
        else
        {
            ivw_base.window.javascript.dispOnLoadComplete(UNIT_FORM);
        }
        
        fShowProgress(false);
    }
    else
    {   
    		//2. ¼­½Ä üũ
        var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
        
        if (fCheckformKind(formprogflag, bPopup) && openmode != "extnunitform") 	//hkjoo, 2010.02.02
        {
        		copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
            model.removeNodeset(gPageInfo.initforminfoRef);
            cap_formnm.refresh();
            
            //3. ±â·ÏÁ¤º¸ ÃʱâÈ­
            fSetNewFormRec();
        }
        
        if ( openmode == "extnunitform" )	//hkjoo, 2010.02.02
       		formprogflag = "EXTN";
       	
        //4. ¼­½Ä ·Îµå
        fLoadForm(gPageInfo.formmastRef, formprogflag, bPopup, calledflag); 
        
        fShowProgress(false);
    }
    
/*    
    //¼­½Ä ·Îµå ÈÄ ¼­½Ä ¼öÁ¤¿©ºÎ ÆľÇÀ» À§ÇÑ µ¥ÀÌÅÍ ¼ÂÆÃ(2008-12-02 ¹ÚÁ¾ÈÆ)
    if (isProgForm())
    {
        ivw_base.window.javascript.getSaveComnFormData(null);
    }
    else
    {
        ivw_base.window.javascript.getSaveData(gPageInfo.sortItemRef, "replace", model, null, null);
        SortRecItem();
    }
    
    g_formrec_newimge_cosign = fGetCSV("formrec");
*/
}

/**
 * @group  :
 * @ver    : 2008.08.18
 * @by     : jonghun
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ÀνºÅϽº Ä«ÇÇ ¿©ºÎ ¹Ýȯ
 * @param  : formprogflag - ¼­½Ä À¯Çü
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @return : (true/false)
 * @---------------------------------------------------
 */ 
function fCheckformKind(formprogflag, bPopup)
{
    switch(formprogflag)
    {
        case "" :
            return false;
        case "PROG" :  //°øÅë¼­½Ä(PGM) ·Îµå 
            return true;
        case "MAIN" : //°øÅë¼­½Ä(¼­½Ä) ·Îµå.
            return true;
        case "PROF" : //Á¦Áõ¸í¼­½Ä ·Îµå    
        case "-" : //Ư¼ö¼­½Ä ·Îµå
            if(bPopup)
                return false;
            else
            {
                return true;
            }
            break;
        case "CNST" : //ÄÁ¼³Æ®¼­½Ä ·Îµå
            break;
        case "OCR" : //OCR¼­½Ä ·Îµå
            break;
    }
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @modify : snoweye (2008.07.03)
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ±â·ÏµÈ ¼­½ÄÀ» Load <-- fLoadRecForm_old
 * @param  : formrecseq - ¼­½Ä ±â·Ï ¼ø¹ø
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @return :
 * @---------------------------------------------------
 */ 
function fLoadRecForm_20080818(formrecseq, bPopup)
{
    setParameter("openmode", "recform");
    setParameter("formrecseq", formrecseq);
    
    if (formrecseq == "")
        return;
        
    if(bPopup == null)
        bPopup = true;
        
    //1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetRecFormMast(formrecseq))
    {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }
    
    //1-1. ±â·ÏÁ¤º¸ Á¶È¸
    if(!fGetRecFormInfo(formrecseq))
    {
        messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
        //return;
    }
    
    //1-2. ±â·Ï»óÅ º¯°æ
    fSetFormRec("status", "U");  
    
    //2. ¼­½Ä üũ
    var formprogflag = fCheckForm(gPageInfo.formmastRef);   
    
    //3. ¼­½Ä ·Îµå
    fLoadForm(gPageInfo.recMastRef, formprogflag, bPopup);
    
    setParameter("openmode", "");
    setParameter("formrecseq", "");
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @modify : snoweye (2008.07.03)
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ±â·ÏµÈ ¼­½ÄÀ» Load <-- fLoadRecForm_old
 * @param  : formrecseq - ¼­½Ä ±â·Ï ¼ø¹ø
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @param  : calledflag - ±â·ÏÈÄ ³Ñ°ÜÁà¾ßÇÏ´Â °ª
 * @return :
 * @---------------------------------------------------
 */ 
 var gOldUnitFormDgnSeq = "";
function fLoadRecForm(formrecseq, bPopup, calledflag)
{
    setParameter("openmode", "recform");
    setParameter("formrecseq", formrecseq);
    setParameter("calledflag", calledflag); //20130523 Á¤Ã¢Çõ Å×½ºÆ®
    
    gSrcFormcd    = fGetFormMast("formcd");
    gFormProgFlag = fGetFormMast("formprogflag");
    gFormProgNm   = fGetFormMast("formprognm");//2010.03.29 dhkim Ãß°¡
    
    var gOldUnitNodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
    gOldUnitFormDgnSeq = "";
    for (var i = 0; i < gOldUnitNodelist.length; i++) {
        var subNode = gOldUnitNodelist.item(i);
        gOldUnitFormDgnSeq += subNode.selectSingleNode("formdegnseq").text + "¢Ë";
    }
 
    if (formrecseq == "") {
        return;
    }
        
    if(bPopup == null) {
        bPopup = true;
    }
    
    //1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetRecFormMast(formrecseq)) {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }
    
    //2. ¼­½Ä üũ
    var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
    if(formprogflag != "-") {  // Æ˾÷À¸·Î ±â·Ï⠷εù ÇÒ¶§ È­¸é Æ÷Ä¿½º°¡ Æ˾÷ µÈ âÀ¸·Î °¡µµ·Ï ÇÁ·Î±×·¡½º¹Ù Ç¥½Ã ¾ÈÇÔ. 2014.08.18 ¾ö¿µ¸¸
        fShowProgress(true, "±â·ÏÁ¤º¸");
    }
    
    if (fCheckformKind(formprogflag, bPopup)) {
        //1-1. ±â·ÏÁ¤º¸ Á¶È¸
        if(!fGetRecFormInfo(formrecseq)) {
            messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
        }
        //1-2. ±â·Ï»óÅ º¯°æ
        fSetFormRec("status", "U");  
        
        if (isProgForm() && ivw_base.src != "") {
            var rtn = ivw_base.window.javascript.fClearComnFormData();
            if(rtn == "oprfalse") { //¼ö¼ú±â·ÏÁö ¹öÆ° disable
                fDisalbeSave(true);
            }
        } else if (!isProgForm()) {
            ivw_base.window.javascript.clearData();
        }

        copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
        cap_formnm.refresh();
    }
    
    //µ¿ÀÏ ¼­½Ä ·Îµù½Ã ÀνºÅϽº¸¸ ¹Ù²ãÁÖ´Â ±â´É °ü·Ã Ãß°¡(2008-11-28 ¹ÚÁ¾ÈÆ)
    var sSrchsrcformcd    = model.getValue(gPageInfo.initformmastRef + "/formcd");
    var sSrchformprogflag = model.getValue(gPageInfo.initformmastRef + "/formprogflag");
    var sFormProgNm       = model.getValue(gPageInfo.initformmastRef + "/formprognm");

    if (gSrcFormcd == sSrchsrcformcd && gFormProgFlag == sSrchformprogflag && sFormProgNm != "-" && gFormProgNm == sFormProgNm) { //2010.03.29 dhkim Ãß°¡(formprognmÀÌ ´Ù¸¦ °æ¿ì ¼­½Ä »õ·Î ·Îµù)
        if (getParameter("loadstatus") == "LOAD_COMPLETE") { //¿­·ÁÀÖ´Â ±â·ÏÁö ºÎºÐ¼­½ÄÀÇ formdegnseq°¡ ÀÏÄ¡ÇÏ´ÂÁö ¿©ºÎ¸¦ °Ë»çÇÏ¿© ´Ù¸¦ °æ¿ì ºÎºÐ¼­½ÄÀ» »õ·Î ·Îµù(2009-01-15 ¹ÚÁ¾ÈÆ)
            var gNewUnitNodelist     = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
            var arrOldUnitFormDgnSeq = gOldUnitFormDgnSeq.split("¢Ë");
            
            for (var i = 0; i < gNewUnitNodelist.length; i++) {
                var subNode           = gNewUnitNodelist.item(i);
                var newUnitFormDgnSeq = subNode.selectSingleNode("formdegnseq").text;
                var newUnitItemCd     = subNode.selectSingleNode("orgsupdegnitemcd").text;
                
                if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq) {
                    var ivwObj = ivw_base.document.controls("ivw_" + newUnitItemCd);
                    if(ivwObj != null) {
                    	//2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
                    	ivwObj.attribute("supdegnitemcd") = "";
                        ivwObj.attribute("unitformcd") = "";
                        
                        var newunitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+newUnitItemCd+"']/formcd");
                        if (newunitformcd != "") {
                            ivwObj.attribute("supdegnitemcd") = newUnitItemCd;
                            ivwObj.attribute("unitformcd") = newunitformcd;
            
                            loadUnitForm(ivwObj, newUnitItemCd);
                            setFstLevlItemCd(ivwObj, newunitformcd);
                            model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + newunitformcd + "' and loaded != 'true']/loaded", "true");
                        }
                    }
                }
            }
        } else {
            var nodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
            var arrOldUnitFormDgnSeq = gOldUnitFormDgnSeq.split("¢Ë");
            
            for (var i = 0; i < nodelist.length; i++)
            {
                var subNode           = nodelist.item(i);
                var newUnitFormDgnSeq = subNode.selectSingleNode("formdegnseq").text;
                var unitItemCd        = subNode.selectSingleNode("orgsupdegnitemcd").text;
                
                var ivwObj = ivw_base.document.controls("ivw_" + unitItemCd);
                
                //2010.01.06 ¾ÈÄ¡¿ø - jciȯÀÚ±³À° ¹Ì±¸ÇöÀ¸·Î ÇѽÃÀûÀ¸·Î ¸·À½.
                if (ivwObj == null && unitItemCd == "0006747001") {
                	continue;
                }
                
                if(ivwObj.src == "") {
                	//2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
                    ivwObj.attribute("supdegnitemcd") = "";
                    ivwObj.attribute("unitformcd") = "";
                    
                    var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                    
                    if (unitformcd != "")
                    {
                        ivwObj.attribute("supdegnitemcd") = unitItemCd;
                        ivwObj.attribute("unitformcd") = unitformcd;
        
                        model.addLog(unitformcd + " Loading ½ÃÀÛ : " + getCurrentTime());
                        loadUnitForm(ivwObj, unitItemCd);
                        if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq)
                        {
                            setFstLevlItemCd(ivwObj, unitformcd);
                            model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                        }
                        model.addLog(unitformcd + " Loading ³¡ : " + getCurrentTime());
                        
                        //2008-12-18¹ÚÁ¾ÈÆ(±â·Ïµ¥ÀÌÅÍ °¡Á®¿À±â-º¸¿ÏÇÊ¿ä)
                        //parent.window.javascript.InitUnitFormDataBySupdegnitemcd(unitItemCds);
                    }
                } else if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq) {
                	//2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
                    ivwObj.attribute("supdegnitemcd") = "";
                    ivwObj.attribute("unitformcd") = "";
                    
                    var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                    if (unitformcd != "") {
                        ivwObj.attribute("supdegnitemcd") = unitItemCd;
                        ivwObj.attribute("unitformcd") = unitformcd;
        
                        loadUnitForm(ivwObj, unitItemCd);
                        setFstLevlItemCd(ivwObj, unitformcd);
                        model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                        
                    }
                }
            }
        }
        
        if (isProgForm()) {
            ivw_base.window.javascript.fGetDefData();
        } else {
            ivw_base.window.javascript.dispOnLoadComplete(UNIT_FORM);
        }
    } else { //3. ¼­½Ä ·Îµå
        fLoadForm(gPageInfo.recMastRef, formprogflag, bPopup, calledflag);
    }
    
    if(formprogflag != "-") { // Æ˾÷À¸·Î ±â·Ï⠷εù ÇÒ¶§ È­¸é Æ÷Ä¿½º°¡ Æ˾÷ µÈ âÀ¸·Î °¡µµ·Ï ÇÁ·Î±×·¡½º¹Ù Ç¥½Ã ¾ÈÇÔ. 2014.08.18 ¾ö¿µ¸¸
        fShowProgress(false);
    }
    
    /**
	 * @desc   : °øÅë¼­½Ä³»ÀÇ È®Àå¹öÆ°(À̹ÌÁö,°¡°èµµ,Ãß°¡±â·Ï)À» ±â·Ï¿©ºÎ¿¡ µû¶ó Ç¥½ÃÇÑ´Ù.
	 * @history : 2009.09.09    ½Å±Ô   ¾ÈÄ¡¿ø    ACW_090909A
	 */
	 if (isProgForm()) {
		 try {
		     setButtonToggleAllByRecYn(ivw_base, ivw_base.window.javascript.gExtnBtnIds);
		 }
		 catch (e) {
		 }
	 }
    
    //setParameter("openmode", "");
    //setParameter("formrecseq", "");
}

function fLoadRecForm_20090102(formrecseq, bPopup, calledflag)
{
    setParameter("openmode", "recform");
    setParameter("formrecseq", formrecseq);

    if (formrecseq == "")
        return;
        
    if(bPopup == null)
        bPopup = true;
        
    fShowProgress(true, "±â·ÏÁ¤º¸");
    
    //1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetRecFormMast(formrecseq))
    {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }
    
//    //1-1. ±â·ÏÁ¤º¸ Á¶È¸
//    if(!fGetRecFormInfo(formrecseq))
//    {
//        messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
//        //return;
//    }
// 
//    //1-2. ±â·Ï»óÅ º¯°æ
//    fSetFormRec("status", "U");  
 

    //2. ¼­½Ä üũ
    var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
    if (fCheckformKind(formprogflag, bPopup))
    {

        //1-1. ±â·ÏÁ¤º¸ Á¶È¸
        if(!fGetRecFormInfo(formrecseq))
        {
            messageBox("Á¶È¸µÈ ±â·Ï³»¿ªÀÌ", "I004");
            //return;
        }
     
        //1-2. ±â·Ï»óÅ º¯°æ
        fSetFormRec("status", "U");  
        
        copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
        //model.removeNodeset(gPageInfo.initforminfoRef);
        cap_formnm.refresh();
    }
 
    //3. ¼­½Ä ·Îµå
    fLoadForm(gPageInfo.recMastRef, formprogflag, bPopup, calledflag);
 
    setParameter("openmode", "");
    setParameter("formrecseq", "");
    
    fShowProgress(false);
    
    //fCheckWriteUser();
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : ¼­½Ä Load
 * @param  : forminfoRef - ¼­½Ä¸¶½ºÅÍÁ¤º¸°¡ ÀÖ´Â ÀνºÅϽºÀÇ reference
 * @param  : formprogflag - ·ÎµåÇÒ ¼­½ÄÀÇ Á¾·ù
 * @return :
 * @---------------------------------------------------
 */ 
function fLoadForm(forminfoRef, formprogflag, bPopup, calledflag)
{ 
	//2009.10.26 ¾ÈÄ¡¿ø TASK-3088
	//Áø·á±â·Ï¸ÞÀο¡¼­ Æ˾÷À¸·Î ¶ß´Â ¼­½Ä¿¡ ´ëÇؼ­ ±â·ÏÀÏÀÚ¿¡ ´ëÇÑ °Ë»ç¸¦ ÇÑ´Ù.
	clearParameter("MMR01100_chkRecDdYn");
	
	switch(formprogflag)
    {
    		case "" :
            messageBox("»ç¿ë ÇÒ ¼ö ¾ø´Â ¼­½Ä", "E008");
            fDisalbeSave(true);
            return;
            
        case "PROG" :  //°øÅë¼­½Ä(PGM) ·Îµå 
            ivw_base.src = model.getValue(forminfoRef + "/formprognm") + ".xrw";            
            if (calledflag != null)
            {
                fSetFormRec("calledflag", calledflag);
            }
            
            break;           
            
        case "MAIN" : //°øÅë¼­½Ä(¼­½Ä) ·Îµå.
            //ÀÌÀ±ÁÖ Ãß°¡ Post Op Note ¸¦ ¼ö¼úÅÇ¿¡¼­¸¸ ÀÛ¼ºÅä·Ï(20110525)
            fDisalbeSave(false);
						var srcformcd = model.getValue(forminfoRef + "/srcformcd");
            var formdegnseq = model.getValue(forminfoRef + "/formdegnseq");
            //ivw_base.src = fGetFormPath(formdegnseq, ivw_base.attribute("id"));
            ivw_base.src = getFormUrl(formdegnseq, ivw_base.attribute("id"));
            
            
            
            if (calledflag != null)
            {
                fSetFormRec("calledflag", calledflag);
            }
            if (srcformcd == '0800003416')
        		{
        			var operation = getGlobalVariable("operation").split("¢Ì")[1];
    				  if(operation == null || operation == "")
    				  {
						   	  alert("¼ö¼úÅÇ¿¡¼­ ÀÛ¼ºÇϼ¼¿ä");
						   		fDisalbeSave(true);
							   	return;
		    		  }
        		}
            
            break;
            
        case "PROF" : //Á¦Áõ¸í¼­½Ä ·Îµå    
        case "-" : //Ư¼ö¼­½Ä ·Îµå
            if(bPopup)
            {
                fPopupForm(calledflag);
            }
            else
            {
                var formdegnseq = model.getValue(forminfoRef + "/formdegnseq");
                ivw_base.src = getFormUrl(formdegnseq, ivw_base.attribute("id"));
                if (calledflag != null)
                {
                    fSetFormRec("calledflag", calledflag);
                }
            }
            break;
            
        case "CNST" : //ÄÁ¼³Æ®¼­½Ä ·Îµå
            break;
        case "OCR" : //OCR¼­½Ä ·Îµå
            break;
        case "EXTN" :
        	ivw_base.src = "../../../emr/formmngtweb/xrw/SSMRF01200.xrw";
        	ivw_base.window.javaScript.fInitForm_MRF1200();
        	break;
    }
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : Ư¼ö¼­½ÄÀ» Popup
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fPopupForm_20080818()
{
    //setParameter("formcd", model.getValue(gPageInfo.formmastRef + "/formcd"));
    setParameter("openmadalformsave", "");
    setParameter("formcd", model.getValue(gPageInfo.formmastRef + "/formcd"));
    modalUrl("../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw", 1, 0, 0, "", "", "");

    if (gMediRecMain)
    {
        opener.window.javascript.fRefMediRecList();
    }
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : Ư¼ö¼­½ÄÀ» Popup
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fPopupForm(calledflag) {
    setParameter("openmadalformsave", "");
   	setParameter("formcd", model.getValue(gPageInfo.initformmastRef + "/formcd"));
    
    //2009.10.26 ¾ÈÄ¡¿ø TASK-3088
	//Áø·á±â·Ï¸ÞÀο¡¼­ Æ˾÷À¸·Î ¶ß´Â ¼­½Ä¿¡ ´ëÇؼ­ ±â·ÏÀÏÀÚ¿¡ ´ëÇÑ °Ë»ç¸¦ ÇÑ´Ù.
    if (opener.window.javascript.getScreenID() == "SMMMR00100") {
    	setParameter("MMR01100_chkRecDdYn", "Y");
    } 
    
    if(calledflag != null && calledflag != "") {
        setParameter("calledflag", calledflag);
    }

    var wndobj = getOpenWindow("SSMMR01100");
	if(wndobj != null) {
		wndobj.javascript.fFormReady();
		activateChild("SSMMR01100");
	} else {
		openUrl("../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw", 1, 0, 0, "SSMMR01100", "", ""); //20130131 Á¤Ã¢Çõ
		//activateChild("SSMMR01100");
	}
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @modify : 2008.07.30 (µ¥ÀÌÅÍ ·Îµù ¿Ï·áÈÄ ÀÚ½Äâ¿¡ µ¥ÀÌÅÍ ·Îµù ¿Ï·á ¸Þ½ÃÁö Àü´Þ)
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : ±â·Ï µ¥ÀÌÅ͸¦ ¼­½Ä¿¡ Set
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fSetRecData()
{
    //fSetFormRec("status", "U");

    //fSetOldFormRecInfo();

    //loader¿¡¼­ Á¶È¸ÇÑ µ¥ÀÌÅ͸¦ ¼­½ÄÀ¸·Î Copy
    copyNodeset(gPageInfo.recItemRef2, gPageInfo.recItemRef, "replace", ivw_base.model, model);
		
		if (isProgForm())
    {
        ivw_base.window.javascript.fLoadData();
    }
    else
    {
        setSrchData(gPageInfo.recItemRef, ivw_base);

		//Áß¿ä!!!, ±â·Ï ·Îµù ÈÄ bindÀÇ readonly ±â´ÉÀÌ Á¤»ó µ¿ÀÛ Çϱâ À§Çؼ­´Â ¹Ýµå½Ã ÀÌ À§Ä¡¿¡  recalculate°¡ ÀÖ¾î¾ßÇÔ.
		// 2010.04.16, ÁÖÈñ°æ
		ivw_base.window.model.recalculate();

        ivw_base.window.javascript.fFormReload();
    }
    ivw_base.body.dispatch("onloaddatacomplete");
}

/**
 * @group  :
 * @ver    : 2008.09.30
 * @by     : jonghun
 * @modify : 
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : ´©Àû±â·Ï µ¥ÀÌÅ͸¦ ¼­½Ä¿¡ Set
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fSetAcmlRecData()
{
    //fSetFormRec("status", "U");

    //fSetOldFormRecInfo();

    //loader¿¡¼­ Á¶È¸ÇÑ µ¥ÀÌÅ͸¦ ¼­½ÄÀ¸·Î Copy
    copyNodeset(gPageInfo.recItemRef2, gPageInfo.acmlrecItemRef, "replace", ivw_base.model, model);

//    if (isProgForm())
//    {
//        ivw_base.window.javascript.fLoadData();
//    }
//    else
//    {
        setSrchData(gPageInfo.acmlrecItemRef, ivw_base);
//    }
//    ivw_base.body.dispatch("onloaddatacomplete");
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : private
 * @desc   : ÀÚ½ÄÈ­¸éÀÇ load°¡ ¿Ï·áµÇ¾úÀ»¶§ ¹ß»ý
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fOnLoadComplete()
{
	
	/*if(window.type != 'main')
	{
		//fSetLoadData();
		parent.body.dispatch("onloadcomplete");
	}*/
	
	gSubmitID = TX_SUBMIT_COMN_FORM;
	//¼­½ÄLoadÈÄ ÈÄó¸®    
    if(getParameter("loadstatus") == COMN_FORM)
    {
        fDisalbeSave(false);
        
        var formprognm = model.getValue(gPageInfo.formmastRef + "/formprognm");
        var formprogflag = model.getValue(gPageInfo.formmastRef + "/formprogflag");
        
        if(formprognm == "SMMMR04900_CONSULT" || formprognm == "SMMMR00600_¼ö¼ú±â·Ï" || formprognm == "SMMMR00900_DSC±â·Ï" || formprogflag == "PROF")
        {
            gSubmitID = TX_SUBMIT_EXTN_FORM;        //È®Àå¼­½Ä °ü·Ã ¼­ºê¹Ô Á¤ÀÇ
        }
        
        if(fGetFormMast("srcformcd") == "0000000677")
        {
            btn_signsaveasnew.visible = false;
        }
        else
        {
            btn_signsaveasnew.visible = true;
        }
        
        var replcnts = opener.window.javascript.getParameter("replcnts");           //¾àÁ¦ÆÀ
        var overwrite = opener.window.javascript.getParameter("overwrite");         //¾àÁ¦ÆÀ
        var reqcnts = opener.window.javascript.getParameter("reqcnts");             //¾àÁ¦ÆÀ
        var reqoverwrite = opener.window.javascript.getParameter("reqoverwrite");   //¾àÁ¦ÆÀ

        if (reqcnts != "" && reqoverwrite != "")
        {
            //ivw_base.window.javascript.fSetReplCnts(replcnts, eval(overwrite));
            ivw_base.window.javascript.setParameter("MMR04900_reqcnts", reqcnts);
            ivw_base.window.javascript.setParameter("MMR04900_reqoverwrite", reqoverwrite);
        }
        
        if (replcnts != "" && overwrite != "")
        {
            //ivw_base.window.javascript.fSetReplCnts(replcnts, eval(overwrite));
            ivw_base.window.javascript.setParameter("MMR04900_replcnts", replcnts);
            ivw_base.window.javascript.setParameter("MMR04900_overwrite", overwrite);
        }
        
        //20140812 ÀÌÀ±ÁÖ ¼öÁ¤
        var paramreqcnt = getParameter("SMMMR04900_reqcnt");
        if (paramreqcnt != "" )
        {
            ivw_base.window.javascript.setParameter("SMMMR04900_reqcnt", paramreqcnt);
        }
        
        //0. ºÎºÐ¼­½Ä ·Îµå
        ivw_base.window.javascript.fLoadUnitForm();
        
        //2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
    	if (validPamInfo_MMR01100("open_base") == false) {
    		return false;
    	}
    	
    }
    
   
    if(getParameter("loadstatus") == UNIT_FORM)
    {
    		if(fGetFormRec("status") == "U")
        {
            //1. ±â·Ï Data Set
            
            
            fSetRecData();
            
            if (fGetFormRec("espiyn") == "Y" && gViewPrt)
            {
                btn_print.attribute("visibility") = "visible";
            }
            else
            {
                btn_print.attribute("visibility") = "hidden";
            }
            
            
            
            fSetFormRec("formrecdeptnm"  , getUserInfo("dutplcenm"));
            fSetFormRec("formrecusernm"  , getUserInfo("usernm"));
            
            //ÄÚ»çÀÎ, ±â·Ï¹Ý·Á¹öÆ° ó¸®(2008-11-27 ¹ÚÁ¾ÈÆ)
            if(fGetFormMast("srcformcd") != "0000000676" && fGetFormMast("srcformcd") != "0000000680")
            {
                //ÀÎÁõÀúÀå¹öÆ°°ú ÄÚ»çÀιöưó¸®
                btn_signsave.visible = true;
                btn_cosign.visible = false;
                //ÀÓ½ÃÀúÀå¹öÆ°°ú ±â·Ï¹Ý·Á¹öưó¸®
                btn_tmpsave.visible = true;
                btn_resend.visible = false;
                btn_signsaveasnew.disabled = false;
                //2010-03-26 ¿ÀÀü 9:27:48 °­ÁöÈÆ ¼öÁ¤ : [¿äû¹øÈ£ 10010] ÀÔ¿ø¼öÁø¿¡ ¿Ü·¡[formchosflag = 'O'] ±â·Ï ÀÛ¼ºÀ» ¸·´Â´Ù.
								if(!validFormchos_MMR01100(false)){
									btn_signsaveasnew.disabled = true;
								}
            }
            else
            { 
                btn_signsaveasnew.disabled = true;
//                ivw_base.window.javascript.getSaveComnFormData(null);
//                
//                g_formrec_newimge_cosign = fGetCSV("formrec");
//                g_recitem_newimge_cosign = fGetCSV(gPageInfo.recItemRef2);
            }
        }
        else
        {
        	  //±âº» ÀÚ·á ´ç°Ü¿À±â(20121025 ÀÌÀ±ÁÖ)
        	  if (getScreenID(ivw_base.src) == "") {
        	  	 ivw_base.window.javascript.fSetInitData();
        	  }
        	  //ÇÁ·Î±×·¥ ¼­½Ä³»ÀÇ ºÎºÐ¼­½ÄÀΰæ¿ì(20130725 ÀÌÀ±ÁÖ)
        	  else {
        	  	var ItemCds = new Array(
                            "0008224001"//S&O
                          , "0001129001"//A
                          , "0001019001"//ÃßÁ¤Áø´Ü
                          
                        );
              var loopcnt = ItemCds.length;
              
              for (var i=0; i< loopcnt; i++) {
              	var ivw1 = ivw_base.document.all("ivw_"+ItemCds[i]);
              	if (ivw1 != null) {
	              	if (ivw1.src !="") {
	              		ivw1.window.javascript.fSetInitData();
	              	}
	              }
              }
            }
        	  
            //ÀÎÁõÀúÀå¹öÆ°°ú ÄÚ»çÀιöưó¸®
            btn_signsave.visible = true;
            btn_cosign.visible = false;
            //ÀÓ½ÃÀúÀå¹öÆ°°ú ±â·Ï¹Ý·Á¹öưó¸®
            btn_tmpsave.visible = true;
            btn_resend.visible = false;
                
            model.makeValue("/root/acmlsend/pid", fGetFormRec("pid"));
            model.makeValue("/root/acmlsend/formcd", fGetFormRec("formcd"));
            if(submit("TRMMR01102", false))
            {   
            		var accRecList = instance1.selectNodes("/root/acmltmp/recinfo/recitem");
          
                if (accRecList.length > 0)
                {
                  fSetAcmlRecData();
                }
            }
            
            btn_signsaveasnew.disabled = true;
            
            var sFormchosflag = model.getValue(gPageInfo.formmastRef + "/formchosflag");
            var sPatchosflag = model.getValue(gPageInfo.recMastRef + "/chosflag");
            
            if (sPatchosflag == "I" && sFormchosflag == "O" && getUserInfo("jobkindcd").substring(0, 2) == "03")
            {
                btn_signsave.disabled = true;
            }
            else
            {
                btn_signsave.disabled = false;
            }
            
            //2010.03.08 ¾ÈÄ¡¿ø - µðÀÚÀμ­½ÄÀÇ Ãß°¡·ÎÁ÷ ±¸Çö
            //MMRDegnForm.js ·Î ·ÎÁ÷ À̵¿
//            if(fGetFormMast("srcformcd") == "0000000737")  //¼úÀüÆò°¡¼­
        }
        
        //2010-02-21 ¿ÀÈÄ 7:17:23 °­ÁöÈÆ Ãß°¡ - ÃÖÁ¾Áø´Ü¸í ¿ä¾àÁö ¹öÆ°¼³Á¤
        if(fGetFormMast("srcformcd") == "0000000680"){
				  
				  mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/profdgn/formhardcd", 9926);
				  if(model.getValue("/root/profdgn/formhardcd/hardcd/hardcd") == "Y"){
				  	ivw_base.btn_lastdiag_0001013001.visible = true;
				  }
				  else{
				  	ivw_base.btn_lastdiag_0001013001.visible = false;
				  }
				}
        
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
        //¼ö¼ú°ü·Ã±â·ÏÀÇ °æ¿ì ±â·ÏÀϽà ¼öÁ¤ ºÒ°¡(2009-01-12 ¹ÚÁ¾ÈÆ Ãß°¡)
        if (fGetFormMast("srcformcd") == "0000000676" || fGetFormMast("srcformcd") == "0000003325" || fGetFormMast("srcformcd") == "0000003169" )
        {
            ipt_formrecdd.disabled = true;
            ipt_formrectm.disabled = true;
            
//            if(fGetFormRec("status") == "U")
//            {
//                try {
//                    ivw_base.window.grup_base.disabled = false;
//                }
//                catch (e) {};
//            }
        }
        else
        {
            ipt_formrecdd.disabled = false;
            ipt_formrectm.disabled = false;
        }
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

        //2. À̹ÌÁö Display
        //3. ±ÇÇÑüũ(Àбâ/¾²±â)
        
        setParameter("loadstatus", LOAD_COMPLETE);
        
        //ºÎ¸ðâ¿¡ onloadcomplete dispatch
        dispOnLoadComplete(LOAD_COMPLETE, model.getValue(gPageInfo.formmastRef + "/formcd"));
        
        var formprognm = model.getValue(gPageInfo.formmastRef + "/formprognm");
        var formprogflag = model.getValue(gPageInfo.formmastRef + "/formprogflag");
        
        if(formprognm == "SMMMR04900_CONSULT" || formprognm == "SMMMR00600_¼ö¼ú±â·Ï" || formprognm == "SMMMR00900_DSC±â·Ï" || formprogflag == "PROF")
        {
            gSubmitID = TX_SUBMIT_EXTN_FORM;        //È®Àå¼­½Ä °ü·Ã ¼­ºê¹Ô Á¤ÀÇ
        }

        //¼­½Ä ·Îµå ÈÄ ¼­½Ä ¼öÁ¤¿©ºÎ ÆľÇÀ» À§ÇÑ µ¥ÀÌÅÍ ¼ÂÆÃ(2008-12-02 ¹ÚÁ¾ÈÆ)
        if (isProgForm())
        {
            ivw_base.window.javascript.getSaveComnFormData(null, "1");
        }
        else
        {
            ivw_base.window.javascript.getSaveData(gPageInfo.sortItemRef, "replace", model, null, null);
            SortRecItem();
        }
        
        g_formrec_newimge_cosign = fGetCSV("formrec");
        g_recitem_newimge_cosign = fGetCSV(gPageInfo.recItemRef2);
        model.removeNodeset(gPageInfo.recItemRef2);
        
        model.addLog("fLoadNewForm End½Ã°£: " + getCurrentTime() );
        
        var btndisableyn = opener.window.javascript.getParameter("btndisableyn");
        
        if (btndisableyn == "Y")
        {
            grup_btn.disabled = true;
            opener.window.javascript.clearParameter("btndisableyn");
        }
    
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////    
		//º´¿øº° Á¦Áõ¸í Áø´Ü¸í ÇÁ¸®ÅؽºÆ® ±â´É(2009-05-20Ãß°¡)
		
		if(fGetFormMast("formprogflag") == "PROF")
		{
			//model.makeValue("/root/send/req/formcd")
			mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/profdgn/formhardcd", 1008);
			
			var dgnfree = model.getValue("/root/profdgn/formhardcd/hardcd/hardcd");
			
			ivw_base.window.javascript.fSetGridFreetext(dgnfree);
			
			//2009-06-20 ¿ÀÀü 10:58:20 °­ÁöÈÆ Ãß°¡ : ±â°üº°·Î Áø´Üã±â Æ˾÷¿©ºÎ¸¦ ¼³Á¤ÇÑ´Ù.
			mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/profdgn/formhardcd", 9903);
			var diagfree = model.getValue("/root/profdgn/formhardcd/hardcd/hardcd");
			if(diagfree == "Y"){
				ivw_base.window.javascript.fSetGridAddRow(diagfree);
			}
			
		}
		//2009.12.18 ¾ÈÄ¡¿ø - ¼­½ÄLoading¿Ï·áÈÄ¿¡ childÀÇ Ãß°¡ÀÛ¾÷À» ¼öÇàÇÑ´Ù.
		if (isProgForm()) {
			try {
				ivw_base.window.javascript.initFormAtLast_MMR01100I();
			} catch (e) {
			}
		}
		else {
			//2010.03.08 ¾ÈÄ¡¿ø - µðÀÚÀμ­½ÄÀÇ Ãß°¡·ÎÁ÷ ±¸Çö
			//-Post OP Note ¿¬µ¿(from Brief OP Note)
			initFormAtLast_MMRDegnForm();
		}
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    }
    clearParameter("SSMMR01100_formrecdd");
    clearParameter("espisavesuccess");   
    
    /**
	 * @desc   : °øÅë¼­½Ä³»ÀÇ È®Àå¹öÆ°(À̹ÌÁö,°¡°èµµ,Ãß°¡±â·Ï)À» ±â·Ï¿©ºÎ¿¡ µû¶ó Ç¥½ÃÇÑ´Ù.
	 * @history : 2009.09.09    ½Å±Ô   ¾ÈÄ¡¿ø    ACW_090909A
	 */
	 if (isProgForm()) {
		 try {
		   setButtonToggleAllByRecYn(ivw_base, ivw_base.window.javascript.gExtnBtnIds);
		 }
		 catch (e) {
		 }
	 }
	 
	 if (gformrecdddisable) {
	 	ipt_formrecdd.disabled = true;
	}
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ¼­½Ä ¾ÆÀÌÅÛ¿¡ °ª¼¼Æà <-- fSetRecItemCnts_MMR01100_old
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fSetRecItemCnts_MMR01100(degnitemno, cnts)
{
    if (fGetFormMast("formprogflag") == "-")
    {
        var path = gPageInfo.recItemRef + "[degnitemno='"+degnitemno+"' and (degnitemkind='MTX' or degnitemkind='STX')]";
        var cnt = getNodesetCnt(ivw_base.model, path);

        if (cnt == 1)
        {
            ivw_base.model.setValue(gPageInfo.recItemRef + "[degnitemno='"+degnitemno+"']/reccnts", cnts);
            ivw_base.model.refresh();
        }
    }
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : snoweye
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ¼­½Ä ¾ÆÀÌÅÛÀÇ °ª ¹Ýȯ <-- fGetRecItemCnts_MMR01100_old
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fGetRecItemCnts_MMR01100(degnitemno)
{
    if (fGetFormMast("formprogflag") == "-")
    {
        return getItemDataByDegnItemNo(degnitemno, ivw_base.model);
    }
    return null;
}

/**
 * @group  :
 * @ver    : 2008.06.13
 * @by     : jonghun
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : Æ˾÷À¸·Î È£ÃâµÇ¾úÀ»¶§ ó¸®
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fModalProcess()
{
    var formcd = opener.window.javascript.getParameter("formcd");
    var openmode = opener.window.javascript.getParameter("openmode");
    var calledflag = opener.window.javascript.getParameter("calledflag");
    var formrecdd = opener.window.javascript.getParameter("SSMMR01100_formrecdd");
    var oprsrvno = opener.window.javascript.getParameter("oprsrvno");								// ¼ö¼ú¿¹¾à¹øÈ£(¼ö¼úÀü Æò°¡¼­)
    
    //2010.02.25 ¾ÈÄ¡¿ø - ÀÔÅð¿ø¿ä¾à±â·Ï - Åð¿øó¹æ ÀԷ¹æ¹ý º¯°æ(Æ˾÷)
//    doDschOrdCntsOfDCSN_MMRCom("GET_PARAM");
    var formrechm = "0000";
    var recddyn = false;
    
    fGetFormSubTitle();         // ¼­½ÄºÎÁ¦¸ñ¸®½ºÆ®
    
    if (formrecdd != "")
    {
        recddyn = true;
    }
    
    if (openmode == "recform")
    {
        var formrecseq = opener.window.javascript.getParameter("formrecseq");
        fLoadRecForm(formrecseq);
        
        if (calledflag != null && calledflag != "")
        {
            fSetFormRec("calledflag", calledflag);
            opener.window.javascript.clearParameter("calledflag");
        }
    }
    else if (openmode == "reccnstform")     // ±â·ÏµÈ ÄÁ¼³Æ® ¼­½Ä ¿­±â
    {
        btn_del.visible = false;
        var formrecseq = opener.window.javascript.getParameter("formrecseq");
        var userdeptcd = opener.window.javascript.getParameter("userdeptcd");
        var replcnts = opener.window.javascript.getParameter("replcnts");           //¾àÁ¦ÆÀ
        var overwrite = opener.window.javascript.getParameter("overwrite");         //¾àÁ¦ÆÀ

        if (userdeptcd == "")
        {
            messageBox("ÄÁ¼³Æ® ¼ö½ÅºÎ¼­ Äڵ尡", "I004");
            return;
        }

        setParameter("userdeptcd", userdeptcd);
        fLoadRecForm(formrecseq);

        if (replcnts != "" && overwrite != "")
        {
            //ivw_base.window.javascript.fSetReplCnts(replcnts, eval(overwrite));
            ivw_base.window.javascript.setParameter("MMR04900_replcnts", replcnts);
            ivw_base.window.javascript.setParameter("MMR04900_overwrite", overwrite);
        }

        fCheckWriteUser();
    }
    else if (openmode == "newcnstform")     // ÄÁ¼³Æ® »õ¼­½Ä ¿­±â
    {
        btn_del.visible = false;
        
        var node = getGlobalVariable("paminfo");
        
        if(node == "" || node == null)
        {
            fSetPamInfo(opener.window.javascript.getParameter("pid"),
                opener.window.javascript.getParameter("orddd"),
                opener.window.javascript.getParameter("cretno"),
                opener.window.javascript.getParameter("ioflag"),
                opener.window.javascript.getParameter("orddeptcd"),
                opener.window.javascript.getParameter("orddrid") );
        }

        setParameter("SMMMR04900_cnstflag", opener.window.javascript.getParameter("SMMMR04900_cnstflag"));
        setParameter("SMMMR04900_replflag", opener.window.javascript.getParameter("SMMMR04900_replflag"));
        setParameter("SMMMR04900_cnstdeptcd", opener.window.javascript.getParameter("SMMMR04900_cnstdeptcd"));
        setParameter("SMMMR04900_cnstdeptnm", opener.window.javascript.getParameter("SMMMR04900_cnstdeptnm"));
        setParameter("SMMMR04900_drid", opener.window.javascript.getParameter("SMMMR04900_drid"));
        setParameter("SMMMR04900_drnm", opener.window.javascript.getParameter("SMMMR04900_drnm"));

        setParameter("SMMMR04900_reqdpcd", opener.window.javascript.getParameter("SMMMR04900_reqdpcd"));
        setParameter("SMMMR04900_reqdpnm", opener.window.javascript.getParameter("SMMMR04900_reqdpnm"));
        setParameter("SMMMR04900_reqdrid", opener.window.javascript.getParameter("SMMMR04900_reqdrid"));
        setParameter("SMMMR04900_reqdrnm", opener.window.javascript.getParameter("SMMMR04900_reqdrnm"));
        setParameter("SMMMR04900_formnm", opener.window.javascript.getParameter("SMMMR04900_formnm"));
        setParameter("SMMMR04900_formcd", formcd);

        var formcd = opener.window.javascript.getParameter("formcd");
        fLoadNewForm(formcd);
        
        fCheckWriteUser();
    }
    else
    {
        fLoadNewForm(formcd);

        if (calledflag != null && calledflag != "")
        {
            fSetFormRec("calledflag", calledflag);
            opener.window.javascript.clearParameter("calledflag");
        }
        
        if(recddyn)
        {
            fSetFormRec("formrecdd" , formrecdd);
            fSetFormRec("formrechm" , formrechm);
            model.refresh();
        }   
        
        //2010.04.05 ¹ÚÁ¾ÈÆ ¼öÁ¤(¼ö¼ú¿¹¾à¹øÈ£°¡ Æĸ®¹ÌÅÍ·Î ³Ñ¾î¿Ã °æ¿ì ±â·Ï¸¶½ºÅÍÅ×ÀÌºí¿¡ ³Ö¾îÁØ´Ù)
        //¿äû¹øÈ£ : 13250, TaskNo : 49479, ¿ì¼±¼øÀ§ : SY
        if(oprsrvno != "")
        {
            fSetFormRec("oprsrvno", oprsrvno);
        }
    }
    
    if (fGetFormMast("formcd") != "")
    {
        var disppatinfo = opener.window.javascript.getParameter("disppatinfo");
        
        //2010.06.01 ±è´ÞÇö - disppatinfo°¡ ¾øÀ»°æ¿ì »ó´ÜÁ¤º¸°¡Á®¿È
        if(disppatinfo == null || disppatinfo == ""){
        	var pid       = fGetPamInfo("pid");
        	var hngnm     = fGetPamInfo("hngnm");
        	var sexage    = fGetPamInfo("sex") + "/" + fGetPamInfo("age");
        	var orddeptnm = fGetPamInfo("orddeptnm");
        	var roomcd    = fGetPamInfo("roomcd");
        	
        	disppatinfo = pid + "¢Ë" + hngnm + "¢Ë" + sexage + "¢Ë" + orddeptnm + "¢Ë" + roomcd;
        }
        
        disppatinfo = disppatinfo.split("¢Ë"); //[0]µî·Ï¹øÈ£, [1]ȯÀÚ¸í, [2]¼ºº°/³ªÀÌ, [3]Áø·á°ú, [4]º´½Ç
        
        window.document.title = fGetFormMast("formnminfo") + "      ȯÀÚÁ¤º¸ : " + disppatinfo[0] + " " + disppatinfo[1] + "(" + disppatinfo[2] + ") Áø·á°ú : " + disppatinfo[3] + ",  º´½Ç : "+ disppatinfo[4];
    }

    var openmode = opener.window.javascript.getParameter("openmode");

    if (openmode == "extnunitform")
    {
        grup_titl.attribute("visibility") = "hidden";
    }
    else
    {
         grup_titl.attribute("visibility") = "visible";

        if (fGetFormMast("formprogflag") == "OCR")
        {
            btn_print.visible = true;
            btn_print.attribute("left") = btn_del.attribute("left");

            btn_preview.visible = false;
            btn_tmpsave.visible = false;
            btn_signsave.visible = false;
            btn_signsaveasnew.visible = false;
            btn_del.visible = false;
        }
        else
        {
            btn_print.visible = false;
            btn_preview.visible = false;
        }
    }
/*
    var ivwTop = 1;
    var ivwHei = 685;
    if (grup_titl.visible)
    {
        ivwTop = parseInt(grup_titl.attribute("top")) + parseInt(grup_titl.attribute("height"));
    }
    else
    {
        ivwHei = ivwHei + parseInt(grup_titl.attribute("height"));
    }

    ivw_base.attribute("top") = ivwTop;
    ivw_base.attribute("height") = ivwHei;

    ivw_fst.attribute("height") = ivw_base.attribute("height");
    ivw_fst.attribute("top") = ivw_base.attribute("top");

    ivw_base.attribute("border-style") = "none";
    ivw_fst.attribute("border-style") = "none";
*/

	//È®Àå ¼­½Ä Æ˾÷ÀÇ °æ¿ì
    if (openmode == "extnunitform")
    {

        gFstLevlItemCd = opener.window.javascript.getParameter("fstlevlitemcd");

        btn_preview.visible = false;
        btn_tmpsave.visible = false;
        btn_signsave.visible = false;
        btn_signsaveasnew.visible = false;
        btn_del.visible = false;

        btn_cnfm.attribute("left") = btn_signsave.attribute("left");
        btn_cncl.attribute("left") = btn_del.attribute("left");
        btn_cnfm.visible = true;
        btn_cncl.visible = true;

        fSetFormInfoByCSV(opener.window.javascript.getParameter("forminfo"));

        //fInitForm();

        //fSetNewFormRec();
		
	///////////////////
	//2010.01.26, hkjoo
		ivw_base.model.removeNodeSet("/root/main");
		copyNodeset("/root/main", "/root/main", "replace" ,ivw_base.model, model);	//¾ÆÀÌÅÛº° ¼­½Äº¸±â ºä¾î¿¡ data copy
	
		document.title = model.getValue("/root/main/forminfo/formmast/formnminfo");	//ÇØ´ç È®Àå¼­½Ä ¸í ŸÀÌƲ¿¡ ¼ÂÆÃ
		ivw_base.window.javaScript.fCreateDegnBySelfInfo(gPageInfo, null, "record");//È®Àå¼­½Ä È­¸é ¼ÂÆÃ, hkjoo
	//////////////////////
		
		setCtrlDisabled(gFstLevlItemCd);	//È®Àå¼­½Ä Æ˾÷¿¡¼­ ±âº»¼­½Ä°ú °ãÄ¡´Â ¾ÆÀÌÅÛÀº disable ó¸® 
		ivw_base.window.javascript.setParameter("openmode", "extnunitform");
		
		ivw_base.model.refresh();	
		fSetUniqData( gPageInfo.recItemRef, ivw_base.model );	//±âº» ¼­½ÄÀÇ Å°°ªÀ¸·Î °ª¼ÂÆÃ, fstlevlitemcd, degnitemlevlcd, degnitemlevlno
				
        var recinfo = opener.window.javascript.getParameter("recinfo");

        if (recinfo != "")
        {
            var path = "/root/hidden/recinfo";
            model.makeNode(path);
            setCSVToNode(path, recinfo, "recitem");
		
            setSrchData(path+"/recitem", ivw_base);
            ivw_base.window.javaScript.fLoadOcxImage();	//À̹ÌÁö ·Îµå
           	ivw_base.model.refresh();
        }			
    }
    
    var ivwTop = 1;
    var ivwHei = 685;
    if (grup_titl.visible)
    {
        ivwTop = parseInt(grup_titl.attribute("top")) + parseInt(grup_titl.attribute("height"));
    }
    else
    {
        ivwHei = ivwHei + parseInt(grup_titl.attribute("height"));
    }

    ivw_base.attribute("top") = ivwTop;
    ivw_base.attribute("height") = ivwHei;

    ivw_fst.attribute("height") = ivw_base.attribute("height");
    ivw_fst.attribute("top") = ivw_base.attribute("top");

    ivw_base.attribute("border-style") = "none";
    ivw_fst.attribute("border-style") = "none";

    cap_formnm.refresh();
    gSaveAfterClose = true;

    var widFlag = fGetFormMast("formprogflag");

    if (openmode == "extnunitform")
        widFlag = opener.window.javascript.getParameter("widflag");

    if (fGetFormMast("formcd") == "0000000005")
    {
        window.Height = 370;
        ivw_fst.attribute("height") = 10;
        ivw_base.attribute("height") = 291;
        grup_btn.attribute("top") = 292;

        ivw_base.attribute("unitformcd") = fGetFormMast("formcd");
        SetMultiTextFull(ivw_base, 1);

        var mtxNm = "MTX_1";
        var mtx = ivw_base.window.document.controls(mtxNm);

        ivw_base.model.setFocus(mtxNm);
	    mtx.dispatch("onkeyup");
    }
    else if (widFlag == "-" || widFlag == "PROF" || widFlag == "OCR")
    {
        var STD_WIN_WID = 815;
        var STD_WIN_HEI = 950;

        var maxWid = STD_WIN_WID;
        window.width = maxWid + 12;
        ivw_base.attribute("width") = maxWid + 1;
        grup_btn.attribute("width") = ivw_base.attribute("width");
        line2.attribute("width") = ivw_base.attribute("width");

        var maxHei = parseInt(window.document.body.vscroll.attribute("max"));
        if (maxHei > parseInt(ivw_base.attribute("height")))
        {
            var diffHei = 0;
            if (maxHei > STD_WIN_HEI)
                diffHei = STD_WIN_HEI - parseInt(ivw_base.attribute("height"));
            else
                diffHei = maxHei - parseInt(ivw_base.attribute("height"));

            window.height = window.height + diffHei;
            ivw_base.attribute("height") = parseInt(ivw_base.attribute("height")) + diffHei;
            grup_btn.attribute("top") = parseInt(grup_btn.attribute("top")) + diffHei;
        }
    }

    try {
        opener.window.javascript.fEndFormReady_MMR01100();
    }
    catch (e) {};
    
    opener.window.javascript.setParameter("openmode", "");
    opener.window.javascript.setParameter("formrecseq", "");
}

/**
 * @group  :
 * @ver    : 2008.06.13 -> old ó¸®
 * @by     : hkjoo 2010/01/20 ¼öÁ¤
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : Æ˾÷À¸·Î È£ÃâµÇ¾úÀ»¶§ ó¸®
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fModalProcess_old()
{
    var formcd = opener.window.javascript.getParameter("formcd");
    var openmode = opener.window.javascript.getParameter("openmode");
    var calledflag = opener.window.javascript.getParameter("calledflag");
    var formrecdd = opener.window.javascript.getParameter("SSMMR01100_formrecdd");
    var oprsrvno = opener.window.javascript.getParameter("oprsrvno");								// ¼ö¼ú¿¹¾à¹øÈ£(¼ö¼úÀü Æò°¡¼­)

    fSetFormRec("oprsrvno", oprsrvno);
    var formrechm = "0000";
    var recddyn = false;
    
    fGetFormSubTitle();         // ¼­½ÄºÎÁ¦¸ñ¸®½ºÆ®

    if (formrecdd != "")
    {
        recddyn = true;
    }

    if (openmode == "recform")
    {
        var formrecseq = opener.window.javascript.getParameter("formrecseq");
        fLoadRecForm(formrecseq);
        
        if (calledflag != null && calledflag != "")
        {
            fSetFormRec("calledflag", calledflag);
            opener.window.javascript.clearParameter("calledflag");
        }
    }
    else if (openmode == "reccnstform")     // ±â·ÏµÈ ÄÁ¼³Æ® ¼­½Ä ¿­±â
    {
        btn_del.visible = false;
        var formrecseq = opener.window.javascript.getParameter("formrecseq");
        var userdeptcd = opener.window.javascript.getParameter("userdeptcd");
        var replcnts = opener.window.javascript.getParameter("replcnts");           //¾àÁ¦ÆÀ
        var overwrite = opener.window.javascript.getParameter("overwrite");         //¾àÁ¦ÆÀ

        if (userdeptcd == "")
        {
            messageBox("ÄÁ¼³Æ® ¼ö½ÅºÎ¼­ Äڵ尡", "I004");
            return;
        }

        setParameter("userdeptcd", userdeptcd);
        fLoadRecForm(formrecseq);

        if (replcnts != "" && overwrite != "")
        {
            //ivw_base.window.javascript.fSetReplCnts(replcnts, eval(overwrite));
            ivw_base.window.javascript.setParameter("MMR04900_replcnts", replcnts);
            ivw_base.window.javascript.setParameter("MMR04900_overwrite", overwrite);
        }

        fCheckWriteUser();
    }
    else if (openmode == "newcnstform")     // ÄÁ¼³Æ® »õ¼­½Ä ¿­±â
    {
        btn_del.visible = false;
        
        var node = getGlobalVariable("paminfo");
        
        if(node == "" || node == null)
        {
            fSetPamInfo(opener.window.javascript.getParameter("pid"),
                opener.window.javascript.getParameter("orddd"),
                opener.window.javascript.getParameter("cretno"),
                opener.window.javascript.getParameter("ioflag"),
                opener.window.javascript.getParameter("orddeptcd"),
                opener.window.javascript.getParameter("orddrid") );
        }

        setParameter("SMMMR04900_cnstflag", opener.window.javascript.getParameter("SMMMR04900_cnstflag"));
        setParameter("SMMMR04900_replflag", opener.window.javascript.getParameter("SMMMR04900_replflag"));
        setParameter("SMMMR04900_cnstdeptcd", opener.window.javascript.getParameter("SMMMR04900_cnstdeptcd"));
        setParameter("SMMMR04900_cnstdeptnm", opener.window.javascript.getParameter("SMMMR04900_cnstdeptnm"));
        setParameter("SMMMR04900_drid", opener.window.javascript.getParameter("SMMMR04900_drid"));
        setParameter("SMMMR04900_drnm", opener.window.javascript.getParameter("SMMMR04900_drnm"));

        setParameter("SMMMR04900_reqdpcd", opener.window.javascript.getParameter("SMMMR04900_reqdpcd"));
        setParameter("SMMMR04900_reqdpnm", opener.window.javascript.getParameter("SMMMR04900_reqdpnm"));
        setParameter("SMMMR04900_reqdrid", opener.window.javascript.getParameter("SMMMR04900_reqdrid"));
        setParameter("SMMMR04900_reqdrnm", opener.window.javascript.getParameter("SMMMR04900_reqdrnm"));
        setParameter("SMMMR04900_formnm", opener.window.javascript.getParameter("SMMMR04900_formnm"));
        setParameter("SMMMR04900_formcd", formcd);

        var formcd = opener.window.javascript.getParameter("formcd");
        fLoadNewForm(formcd);
        
        fCheckWriteUser();
    }
    else if (openmode == "extnunitform")
    {
	////////////////////
	//È®Àå¼­½Ä ·Îµù ½ÃÀÛ
	//canvas_main ÃʱâÈ­ ¹× È­¸é ¼ÂÆÃ
		fInitForm_MRF1200();
		fExtnUnitForm();
		fCreateDegnBySelfInfo();
	////////////////////
	
       	grup_titl.attribute("visibility") = "hidden";

        btn_preview.visible = false;
        btn_tmpsave.visible = false;
        btn_signsave.visible = false;
        btn_signsaveasnew.visible = false;
        btn_del.visible = false;

        btn_cnfm.attribute("left") = btn_signsave.attribute("left");
        btn_cncl.attribute("left") = btn_del.attribute("left");
        btn_cnfm.visible = true;
        btn_cncl.visible = true;

        ivw_base.attribute("width") = 0;
        ivw_base.attribute("height") = 0;
        
        ivw_fst.attribute("width") = 0;
        ivw_fst.attribute("height") = 0;
	
	    ivw_base.attribute("border-style") = "none";
	    ivw_fst.attribute("border-style") = "none";
		
		//È®Àå¼­½Ä ¿µ¿ª º¸À̱â
	//	canvas_main.attribute("width")= 595;
	//	canvas_main.attribute("height")= 700;

        fCheckWriteUser();
    }
    else
    {
        fLoadNewForm(formcd);
        if (calledflag != null && calledflag != "")
        {
            fSetFormRec("calledflag", calledflag);
            opener.window.javascript.clearParameter("calledflag");
        }
        
        if(recddyn)
        {
            fSetFormRec("formrecdd" , formrecdd);
            fSetFormRec("formrechm" , formrechm);
            model.refresh();
        }   
    }
    
    if (fGetFormMast("formcd") != "")
    {
        var disppatinfo = opener.window.javascript.getParameter("disppatinfo");
        disppatinfo = disppatinfo.split("¢Ë"); //[0]µî·Ï¹øÈ£, [1]ȯÀÚ¸í, [2]¼ºº°/³ªÀÌ, [3]Áø·á°ú, [4]º´½Ç
        
        window.document.title = fGetFormMast("formnminfo") + "      ȯÀÚÁ¤º¸ : " + disppatinfo[0] + " " + disppatinfo[1] + "(" + disppatinfo[2] + ") Áø·á°ú : " + disppatinfo[3] + ",  º´½Ç : "+ disppatinfo[4];
    }

    if (openmode != "extnunitform")
    {
         grup_titl.attribute("visibility") = "visible";

        if (fGetFormMast("formprogflag") == "OCR")
        {
            btn_print.visible = true;
            btn_print.attribute("left") = btn_del.attribute("left");

            btn_preview.visible = false;
            btn_tmpsave.visible = false;
            btn_signsave.visible = false;
            btn_signsaveasnew.visible = false;
            btn_del.visible = false;
        }
        else
        {
            btn_print.visible = false;
            btn_preview.visible = false;
        }

	    var ivwTop = 1;
	    var ivwHei = 685;
	    if (grup_titl.visible)
	    {
	        ivwTop = parseInt(grup_titl.attribute("top")) + parseInt(grup_titl.attribute("height"));
	    }
	    else
	    {
	        ivwHei = ivwHei + parseInt(grup_titl.attribute("height"));
	    }
	
	    ivw_base.attribute("top") = ivwTop;
	    ivw_base.attribute("height") = ivwHei;
	
	    ivw_fst.attribute("height") = ivw_base.attribute("height");
	    ivw_fst.attribute("top") = ivw_base.attribute("top");
	
	    ivw_base.attribute("border-style") = "none";
	    ivw_fst.attribute("border-style") = "none";
	
	    cap_formnm.refresh();
	    gSaveAfterClose = true;
	}

    var widFlag = fGetFormMast("formprogflag");

    if (openmode == "extnunitform")
        widFlag = opener.window.javascript.getParameter("widflag");

    if (fGetFormMast("formcd") == "0000000005")
    {
        window.Height = 370;
        ivw_fst.attribute("height") = 10;
        ivw_base.attribute("height") = 291;
        grup_btn.attribute("top") = 292;

        ivw_base.attribute("unitformcd") = fGetFormMast("formcd");
        SetMultiTextFull(ivw_base, 1);

        var mtxNm = "MTX_1";
        var mtx = ivw_base.window.document.controls(mtxNm);

        ivw_base.model.setFocus(mtxNm);
	    mtx.dispatch("onkeyup");
    }
    else if (widFlag == "-" || widFlag == "PROF" || widFlag == "OCR")
    {
        var STD_WIN_WID = 815;
        var STD_WIN_HEI = 950;

        var maxWid = STD_WIN_WID;
        window.width = maxWid + 12;
        ivw_base.attribute("width") = maxWid + 1;
        grup_btn.attribute("width") = ivw_base.attribute("width");
        line2.attribute("width") = ivw_base.attribute("width");

        var maxHei = parseInt(window.document.body.vscroll.attribute("max"));
        if (maxHei > parseInt(ivw_base.attribute("height")))
        {
            var diffHei = 0;
            if (maxHei > STD_WIN_HEI)
                diffHei = STD_WIN_HEI - parseInt(ivw_base.attribute("height"));
            else
                diffHei = maxHei - parseInt(ivw_base.attribute("height"));

            window.height = window.height + diffHei;
            ivw_base.attribute("height") = parseInt(ivw_base.attribute("height")) + diffHei;
            grup_btn.attribute("top") = parseInt(grup_btn.attribute("top")) + diffHei;
        }
    }

    try {
        opener.window.javascript.fEndFormReady_MMR01100();
    }
    catch (e) {};
    
    opener.window.javascript.setParameter("openmode", "");
    opener.window.javascript.setParameter("formrecseq", "");
}

/**
 * @desc   : key°ª¿¡ ÇØ´çµÇ´Â ¿ø¹«Á¤º¸ °¡Á®¿À±â
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fGetPamInfo(key)
{
    return model.getValue("/root/main/paminfo/" + key);
}

/**
 * @desc   : È®ÀιöÆ° Ŭ¸¯
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ, 2010.01.26 hkjoo ¼öÁ¤
 */
function fConfirm()
{
   	ivw_base.window.javascript.getSaveData(gPageInfo.recItemRef2, "replace", model, NewPageInfo(gPrestIvw, gFstLevlItemCd));
	
    var path = gPageInfo.extnrecItemRef + "[fstlevlitemcd='" +gFstLevlItemCd+ "' and formcd='" + model.getValue(gPageInfo.formmastRef + "/formcd") + "']";

    if (opener.window.javascript.fGetRecNodeCount(path) != "0")
    {
        opener.window.javascript.fRemoveRecNodeset(path);
    }
	
    copyNodeset( gPageInfo.extnrecRef, gPageInfo.recRef2, "append" ,opener.model, model );
    window.close();
}

/**
 * @desc   : ±âº» ¼­½ÄÀÇ Å°°ªÀ¸·Î °ª¼ÂÆÃ, fstlevlitemcd, degnitemlevlcd, degnitemlevlno
 * @id     :
 * @event  :
 * @return :
 * @authur : ÁÖÈñ°æ, 2010.01.29
 */
function fSetUniqData( recItemRef, tModel )
{
	var fstlevlitemcdNodes = tModel.instance1.selectNodes(recItemRef+"[formcd='" + model.getValue(gPageInfo.formmastRef + "/formcd") + "']/fstlevlitemcd");
	var degnitemlevlcdNodes = tModel.instance1.selectNodes(recItemRef+"[formcd='" + model.getValue(gPageInfo.formmastRef + "/formcd") + "']/degnitemlevlcd");
	var degnitemlevlnoNodes = tModel.instance1.selectNodes(recItemRef+"[formcd='" + model.getValue(gPageInfo.formmastRef + "/formcd") + "']/degnitemlevlno");
				
	for( i=0; i<fstlevlitemcdNodes.length; i++ )
	{	
		fstlevlitemcdNodes.item(i).value = gFstLevlItemCd;		//fstlevlitemcd ÀÏ°ýº¯°æ
		degnitemlevlcdNodes.item(i).value = gFstLevlItemCd.substr(0,7) + "." + degnitemlevlcdNodes.item(i).value;	//degnitemlevlcd¿¡ fstlevlitemcdÀÇ ¾Õ 7ÀÚ¸® ¼ýÀÚ add(ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ Á¶È¸µÇ·Á°í xsltÀÇ ±ÔÄ¢´ë·Î ¸ÂÃçÁÜ)
		degnitemlevlnoNodes.item(i).value = parseInt(degnitemlevlnoNodes.item(i).value)+1;		//ºÎºÐ¼­½ÄÀÏ ¶§ ·¹º§ ¼öÁ¤	
	}
	
	//±âÁ¸¿¡ N-S(BOL) ¾ÆÀÌÅÛÀÌ ±â·ÏÁ¶È¸¿¡¼­ (N-S : N-S)·Î Ç¥½ÃµÇ´Â°ÍÀ» ¸·±âÀ§ÇØ Á¤º¸°ü¸®ÆÀ¿¡¼­ N-S¾ÆÀÌÅÛ ¸ðµÎ rectermcd¿¡ ºí·©Å© µÎ°³("  ")¸¦ ¼³Á¤ ÇÏ¿´´Ù°í ÇÔ. -> ºóµ¥ÀÌÅÍ·Î ÀÏ°ýº¯°æ
	var rectermcdNodes = tModel.instance1.selectNodes(recItemRef+"[degnitemnm='N-S' and rectermcd='  ' ]/rectermcd");
	for( i=0; i<rectermcdNodes.length; i++ )
	{
		rectermcdNodes.item(i).value = ""; 
	}		
}

/**
 * @desc   : ±â·ÏÀÛ¼ººÎ¼­¿Í ¼öÁ¤»ç¿ëÀÚÀÇ ºÎ¼­¸¦ ºñ±³
 * @id     :
 * @event  :
 * @return : true : ±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­°¡ µ¿ÀÏ, false : ±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­°¡ ´Ù¸§
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fCheckSaveDept()
{
    var sChkDept = opener.window.javascript.getParameter("chkdeptpresave");
    opener.window.javascript.clearParameter("chkdeptpresave");
    
    //20121217 Á¤Ã¢Çõ °°Àº ºÎ¼­³» ÀÓ½ÃÀúÀå È°¼ºÈ­ //ÁøÁ¤È¸º¹±â·Ï (³»½Ã°æ, °ÇÁø) :1000007334 Æ÷ÇÔ. ¸ðµç ±â·ÏÁö
  	if (fGetEditableDept()) {
  		sChkDept = "N";
  	}
  	
  	//20130524 Á¤Ã¢Çõ cpg°ü·Ã ÀúÀåÀ϶§ ÃÖÃÊ ºó¼­½ÄÀ϶§ pid¸¦ emr·Î ¼³Á¤ÇØÁֹǷΠºÎ¼­Ã¼Å©³ª µ¿ÀÏ »ç¿ëÀÚ Ã¼Å©¸¦ ÇÇÇϱâ À§ÇØ Ãß°¡ fGetFormRec... Ãß°¡
    if (sChkDept == "N" || fGetFormRec("srcformcd") == "0000000677" || fGetFormRec("calledflag").indexOf("cpg") != -1) 
    {
        return true;
    }
    else
    {
        var sessUdeptcd = getUserInfo("dutplcecd");
        var sessUserid = getUserId();
        var recUdeptcd = fGetFormRec("formrecdeptcd");
        var recUserid = fGetFormRec("formrecuserid");
        var recLastUpUserid = fGetFormRec("lastupdtrid");
        
        if (sessUserid == recUserid || sessUserid == recLastUpUserid)
        {
            return true;
        }
        else
        {
        	// [¿äû¹øÈ£:20161121013] ±â·Ï¼öÁ¤ Á¦ÇÑ
        	fGetHardCDList("N", 9972, 0, "/root/init/recsaveyn") ;
        	if(!isNull(recUserid) 
        		&& model.getValue("/root/init/recsaveyn/hardcd[hardcd='" + recUserid + "']/hardcd") != "" 
    			&& sessUserid != recUserid){
    			return false;
            }
        	
        	
            if (sessUdeptcd == recUdeptcd)
            {
                return true;
            }
            else
            {
                return false;
            }
        }
    }
}

/**
 * @desc   : ±â·ÏÀÏ º¯°æ½Ã À¯È¿ ±â·ÏÀÏÀÚ Ã¼Å©
 * @id     :
 * @event  :
 * @return : true : ±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­°¡ µ¿ÀÏ, false : ±â·ÏºÎ¼­¿Í ¼öÁ¤ºÎ¼­°¡ ´Ù¸§
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fChkRecdd()
{
	//2009.10.26 ¾ÈÄ¡¿ø TASK-3088
	//Áø·á±â·Ï¸ÞÀο¡¼­ Æ˾÷À¸·Î ¶ß´Â ¼­½Ä¿¡ ´ëÇؼ­ ±â·ÏÀÏÀÚ¿¡ ´ëÇÑ °Ë»ç¸¦ ÇÑ´Ù.
    /*if (fGetFormMast("mainyn") != "Y")
        return;
    */
    if (opener.window.javascript.getParameter("MMR01100_chkRecDdYn") == "Y") {
		//    	
    } else if (fGetFormMast("mainyn") != "Y") {
		return;
    }
    //end of TASK-3088
    
    var sIoflag = fGetPamInfo("ioflag");
    var sOrddd = "";
    var sDschdd = "";
    var sIndschacptstat = "";   //DÀÏ°æ¿ì Åð¿ø
    var sChDD = model.getValue("/root/main/recinfo/formrec/formrecdd");
    
    if(sIoflag == "I" || sIoflag == "E" || sIoflag == "D")
    {
        sIndschacptstat = fGetPamInfo("indschacptstat");
        sOrddd = fGetPamInfo("indd");
        sDschdd = fGetPamInfo("dschdd");
        
        if (sIndschacptstat == "D" || sIndschacptstat == "T")//2010.02.17 dhkim - °¡Åð¿ø»óÅÂÀÏ °æ¿ìµµ blocking Æ÷ÇÔ
        {
            if (sChDD >= sOrddd && sChDD <= sDschdd)
            {
            }
            else
            {
                messageBox("±â·ÏÀÏÀÌ Àç¿ø±â°£³»¿¡ ÀÖÁö ¾Ê½À´Ï´Ù. ±â·ÏÀÏÀ» È®ÀÎ", "I008");
                
                if (gRecdd >= sDschdd)
                {
                    gRecdd = sDschdd;
                }
                
                model.setValue("/root/main/recinfo/formrec/formrecdd", gRecdd);
                ipt_formrecdd.refresh();
            }
        }
        else
        {
            if (sChDD < sOrddd)
            {
                messageBox("¼±ÅÃÇϽŠÀÏÀÚ´Â ÀÔ¿øÀÏ ÀÌÀüÀÔ´Ï´Ù. ±â·ÏÀÏÀ» È®ÀÎ", "I008");
                model.setValue("/root/main/recinfo/formrec/formrecdd", sOrddd);
                ipt_formrecdd.refresh();
            }
        }
        
    }
    else if(sIoflag == "O" || sIoflag == "S")
    {
        sOrddd = fGetPamInfo("orddd");
        
        /* ÀÌÀ±ÁÖ ¸·À½:¿©¼öÁø ¿äû(20150225)
        if (sChDD != sOrddd)
        {
            messageBox("±â·ÏÀÏ°ú Áø·áÀÏÀÌ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù. ±â·ÏÀÏÀ» È®ÀÎ", "I008");
            model.setValue("/root/main/recinfo/formrec/formrecdd", sOrddd);
            ipt_formrecdd.refresh();
        }
        */
    }
}

/**
 * @desc   : ÄÚ»çÀÎ ¹öÆ° Ŭ¸¯½Ã À̺¥Æ®
 * @id     :
 * @event  :
 * @return : 
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickSaveCosign()
{
	//2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
	if (validPamInfo_MMR01100("btn_sign") == false) {
		return false;
	}
	
    setParameter("cosignrec", "-");
    var rtn = fCheckChangeDataForCosign();
    
    if (rtn == "N")     //¼öÁ¤µ¥ÀÌÅÍ°¡ ¾ø´Â °æ¿ì
    {
        fSetFormRec("cosignyn", "Y");
        var savedInfo = fSaveFormRecCosign("Y");

        
        //2007.12.13 ¹ÚÁ¾ÈÆ ¼öÁ¤
        if (savedInfo.formrecseq != null && savedInfo.formrecseq != 0)
        {
            if (opener.window.javascript.getParameter("openmode") == "openform")
            {
                opener.window.javascript.setParameter("openmadalformsave", "Y");
            }
    
            if (fGetFormRec("calledflag").indexOf("cpgmain") == 0)
            {
    	        try
    			{
    			    var ordpatlistObj = getOpenWindow("SMMMP00800");
    			    if(ordpatlistObj != null)
    			    {
    			        addEmrLog("calledflag : " +  fGetFormRec("calledflag"));
    			        ordpatlistObj.javascript.fSnedValToCpWnd(fGetFormRec("formcd"), savedInfo.formrecseq, fGetFormRec("calledflag"));
    			    }
    			}
    			catch(e)
    			{
    			}
            }
            
            setParameter("espisavesuccess", "Y");
            
            //messageBox("±â·Ï ÀúÀåÀÌ", "I002");
            
            fAfterSaveExtnDoing();
            
            //20081209 ¿ÀÁöÈÆSW ¿äû
            var wndobj = getOpenWindow("SMMRI01800");
            if(wndobj != null){
                var status = fGetFormRec("status");
                var pid = fGetFormRec("pid");
                var orddd = fGetFormRec("orddd");
                var cretno = fGetFormRec("cretno");
                var formcd = fGetFormRec("srcformcd");
                var formrecdd = fGetFormRec("formrecdd");
                var formrecseq = fGetFormRec("formrecseq");
                //2010.02.27 ¾ÈÄ¡¿ø - ¹ÌºñÇ׸ñÈ­¸é¿¬°è ¼öÁ¤ formrecdeptcdÃß°¡(ÀÌÀº¿µ ¿äû)
                var formrecdeptcd = fGetFormRec("formrecdeptcd");
                //2010.02.09 ¾ÈÄ¡¿ø - ¹ÌºñÇ׸ñÈ­¸é¿¬°è ¼öÁ¤(ÀÌÀº¿µ ¿äû)
                var unprepFlag = "uss";
                
                
                var param = status + "^" + pid + "^" + orddd + "^" + cretno + "^" + formcd + "^" + formrecdd + "^" + formrecseq + "^" + unprepFlag + "^" + formrecdeptcd;
                opener.window.javascript.setParameter("SMMRI01800_medirecinfo", param);
                
                wndobj.javascript.fDispUnPrepDrCnfm();
                wndobj.model.setFocus("grd_unpreplist");
            }
        }
    }
    else
    {
        fSetFormRec("cosignyn", "Y");
        fClickSave("Y");
    }
}

/**
 * @desc   : ±â·Ï¹Ý·Á¹öÆ° Ŭ¸¯ À̺¥Æ®
 * @id     :
 * @event  :
 * @return : 
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fClickReSend()
{
    modal("SPMMR06300", "1", "100", "100" ,"SPMMR06300", "/root/main/recinfo/formrec", "/root/temp/recinfo/formrec");
    
    var cnclyn = getParameter("cosignclclyn");
    clearParameter("cosignclclyn");
    
    if ( cnclyn == "Y")
    {
        btn_cosign.disabled = false;
        ivw_base.window.grup_base.disabled = false;
        fAfterSaveExtnDoing();
        //2010-02-22 ¿ÀÈÄ 1:34:16 °­ÁöÈÆ Ãß°¡ 
        fSetFormRec("cosign", "N");
    }
}

/**
 * @desc   : ¼öÁ¤µÇÁö ¾ÊÀº ±â·ÏÁö ÄÚ»çÀÎ ÀúÀå(¹Ìºñ ¾÷µ¥ÀÌÆ®, ÀÎÁõµ¥ÀÌÅÍ Ã³¸®)
 * @id     :
 * @event  :
 * @return :
 * @authur : ¹ÚÁ¾ÈÆ
 */
function fSaveFormRecCosign(signedYn, mode)
{
    if (fGetFormMast("formcd") == "") return;
    
    if (isProgForm())
    {
        //ivw_base.window.javascript.InitSaveComnFormRecItemData(mode);
        ivw_base.window.javascript.getSaveComnFormData(mode, "1");
    }
    else
    {
        ivw_base.window.javascript.getSaveData(gPageInfo.sortItemRef, "replace", model, null, mode);
        SortRecItem();
    }
    
    //window.clipBoardData = model.instances(0).selectSingleNode("/root/hidden/recinfo").xml;

    if (signedYn != null)
    {
        return fSaveComnFormRecInfoForCosign(signedYn);
    }
}

function fGetRecMainlist()
{
    if (   opener.window.javascript.getScreenID() == "SMMMR00100")
    {
        opener.window.javascript.fRefMediRecList();
    }
}

/**
 * @desc   : ¼­½ÄÀÌ È°¼ºÈ­ µÉ¶§ ¼­½Ä¿¡ ±âº» ¼³Á¤µÇ´Â Data¸¦ °¡Á®¿Â´Ù.
 * @id     :
 * @event  :
 * @return :
 * @authur : ¾ÈÄ¡¿ø
 */
function getRecIntefaceData(recIfID)
{
	if (fGetFormRec("status") != "C") return;
	
	setReqOfGetRecIntefaceData("pid", fGetPamInfo("pid"));
	setReqOfGetRecIntefaceData("cretno", fGetPamInfo("cretno"));
	setReqOfGetRecIntefaceData("recIfID", recIfID);
	setReqOfGetRecIntefaceData("dest_formcd", fGetFormMast("formcd"));
	setReqOfGetRecIntefaceData("dest_formdegnseq", fGetFormMast("formdegnseq"));
	
	var compioflag = fGetPamInfo("ioflag");
	if (compioflag == "O" || compioflag == "S")
		setReqOfGetRecIntefaceData("orddd", fGetPamInfo("orddd"));
	else
		setReqOfGetRecIntefaceData("orddd", fGetPamInfo("indd"));
	
	if (submit("TRMMR01104")) {
	
		ivw_base.window.javascript.setInterfaceData();
	}
}

function setReqOfGetRecIntefaceData(key, value)
{
	model.makeValue("/root/send/reqif/"+key, value);
}

/**
 * @desc   : ±â·Ï±ÇÇÑ °Ë»ç
 * @id     : 2009.10.19 ¾ÈÄ¡¿ø TASK-32640, 32794
 * @event  :
 * @return :
 * @authur : ¾ÈÄ¡¿ø
 */
function validateRec(formcd)
{
	if (formcd == "")
		return;
		
	var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");
    var node = getGlobalVariable("paminfo");
    
    var pid = "";
    var orddd = "";
    var cretno = "";
    var ioflag = "";
    var orddeptcd = "";
    
    if(node != "" && sGetTopYn != "N")
    {
        model.removeNodeset("/root/main/vpaminfo");
        setCSVToNode("/root/main", node, "vpaminfo");
        
        pid = model.getValue("/root/main/vpaminfo/pid");
	    cretno = model.getValue("/root/main/vpaminfo/cretno");
	    ioflag = model.getValue("/root/main/vpaminfo/ioflag");
	    orddeptcd = model.getValue("/root/main/vpaminfo/orddeptcd");
	    
	    if (ioflag == "O" || ioflag == "S") {
	    	orddd = model.getValue("/root/main/vpaminfo/orddd");
	    } else {
		    orddd = model.getValue("/root/main/vpaminfo/indd");
	    }
    } else {
    	pid = model.getValue("/root/main/paminfo/pid");
	    cretno = model.getValue("/root/main/paminfo/cretno");
	    ioflag = model.getValue("/root/main/paminfo/ioflag");
	    orddeptcd = model.getValue("/root/main/paminfo/orddeptcd");
	    
	    if (ioflag == "O" || ioflag == "S") {
	    	orddd = model.getValue("/root/main/paminfo/orddd");
	    } else {
		    orddd = model.getValue("/root/main/paminfo/indd");
	    }
    }
    
    var openmode = opener.window.javascript.getParameter("openmode");
    
    if (openmode == "newform")
    {
        pid = opener.window.javascript.getParameter("pid");
        orddd = opener.window.javascript.getParameter("orddd");
        cretno = opener.window.javascript.getParameter("cretno");
    }
		
	model.makeValue("/root/send/reqvalid/valiflag", "new");
	model.makeValue("/root/send/reqvalid/pid", pid);
	model.makeValue("/root/send/reqvalid/orddd", orddd);
	model.makeValue("/root/send/reqvalid/cretno", cretno);
	model.makeValue("/root/send/reqvalid/chosflag", ioflag);
	model.makeValue("/root/send/reqvalid/formcd", formcd);
	
	model.makeValue("/root/send/reqvalid/formcd", formcd);
	model.makeValue("/root/send/reqvalid/orddeptcd", orddeptcd);
	
	if (submit("TRMMR01105", false)) {
		//alert(model.getValue("/root/main/validinfo/resultCode"));
		if (model.getValue("/root/main/validinfo/resultCode") != "0") {
		
			if (model.getValue("/root/main/validinfo/resultMsg") != "") {
				alert(model.getValue("/root/main/validinfo/resultMsg"));
			}
			
			if (model.getValue("/root/main/validinfo/formrecseq") != "") {
				fLoadRecForm(model.getValue("/root/main/validinfo/formrecseq"), null);
			}
			else if (model.getValue("/root/main/validinfo/formcd") != "") {
				fLoadNewForm(model.getValue("/root/main/validinfo/formcd"), null, null, false);
			}
			
			return false;
		}
		return true;
	} else {
		return false;
	}
}

/**
 * @group  :
 * @ver    : 2009.10.23
 * @by     : ÀÌ°æÈñ
 * @---------------------------------------------------
 * @type   : event
 * @access : public
 * @desc   : ¼­½ÄSETÈ­¸é¿¡¼­ ¼­½Ä¹Ì¸®º¸±â ½Ã¿¡ »ç¿ëÇÔ.
 * @param  : formcd - ¼­½Ä ÄÚµå
 * @param  : bPopup - Ư¼ö¼­½Ä·Îµå À¯Çü (true/false)
 * @return :
 * @---------------------------------------------------
 */ 
function fPreviewForm(formcd, bPopup, calledflag)
{    	
    model.addLog("fPreviewForm start½Ã°£: " + getCurrentTime() + ", formcd:" + formcd);
    var rtn = "N";
    var rtnmsg = 0;
    
    //ÇöÀç ·ÎµùµÈ ¼­½ÄÀÇ formcd¸¦ °¡Á®¿Â´Ù.
    gSrcFormcd = fGetFormMast("formcd");
    gFormProgFlag = fGetFormMast("formprogflag");
    gFormProgNm = fGetFormMast("formprognm");//2010.03.29 dhkim Ãß°¡
    
    var gOldUnitNodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
    gOldUnitFormDgnSeq = "";
    
    for (var i = 0; i < gOldUnitNodelist.length; i++)
    {
        var subNode = gOldUnitNodelist.item(i);
        gOldUnitFormDgnSeq += subNode.selectSingleNode("formdegnseq").text + "¢Ë";
    }
    
    if (formcd == "")
        return;
    
    if (getParameter("loadstatus"))
    {
        if (getParameter("afterRecDelete") == "Y")
        {
            rtn = "N";
            clearParameter("afterRecDelete");
        }
        else
        {
            rtn = fCheckChangeDataForCosign();
        }
    }
    
    if(bPopup == null)
        bPopup = true;

    //1. ¼­½ÄÁ¤º¸ Á¶È¸
    if(!fGetNewFormMast(formcd))
    {
        alert("¼­½ÄÁ¤º¸¸¦ Á¶È¸Çϴµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.");
        return;
    }
    
    /*
    var recsavechk = opener.window.javascript.getParameter("SSMMR01100_recsavechk");
    opener.window.javascript.clearParameter("SSMMR01100_recsavechk");
    
    if (rtn != "N" && model.getValue(gPageInfo.initformmastRef + "/mainyn") == "Y" && recsavechk != "Y")     //¼öÁ¤µ¥ÀÌÅÍ°¡ ÀÖ´Â °æ¿ì
    {
        var rtnmsg = messageBox("±â·Ï³»¿ë Áß ÀúÀåµÇÁö ¾ÊÀº ³»¿ëÀÌ ÀÖ½À´Ï´Ù.", "Q002");

        if (rtnmsg == 6)
        {
            if (fClickSave("Y") == "N")
            {
                return;
            }
        }
    }
    */
    
    fShowProgress(true, "¼­½ÄÁ¤º¸");
    
    //¼­½Ä ¿ÀÇÂÀü ȯÀÚÁ¤º¸ ¼ÂÆÃ
    //copyNodeset("/root/main/paminfo", "/root/main/paminfo", "replace", model, opener.model);
    /*
    var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");       //SSMMR01100_getTopYn => topÁ¤º¸ Á¶È¸¿©ºÎ Á¤º¸(NÀÏ°æ¿ì ³Ñ¾î¿Â ÆĶó¹ÌÅͱâÁØ, ¾Æ´Ò°á·ç TOPÁ¤º¸ ±âÁØ)
    var node = getGlobalVariable("paminfo");
    
    if(node != "" && sGetTopYn != "N")
    {
        model.removeNodeset("/root/main/paminfo");
        setCSVToNode("/root/main", node, "paminfo");
    }
    */
    var openmode = opener.window.javascript.getParameter("openmode");
    if (openmode == "newform")
    {
        if (!fSetPamInfo(opener.window.javascript.getParameter("pid"),
                opener.window.javascript.getParameter("orddd"),
                opener.window.javascript.getParameter("cretno"),
                opener.window.javascript.getParameter("ioflag"),
                opener.window.javascript.getParameter("orddeptcd"),
                opener.window.javascript.getParameter("orddrid") ))
        {
            grup_btn.disabled = true;
            return;
        }
    }
        
    //µ¿ÀÏ ¼­½Ä ·Îµù½Ã ÀνºÅϽº¸¸ ¹Ù²ãÁÖ´Â ±â´É °ü·Ã Ãß°¡(2008-11-28 ¹ÚÁ¾ÈÆ)
    var sSrchsrcformcd = model.getValue(gPageInfo.initformmastRef + "/formcd");
    var sSrchformprogflag = model.getValue(gPageInfo.initformmastRef + "/formprogflag");
    
    var sFormProgNm = model.getValue(gPageInfo.initformmastRef + "/formprognm");

    if (gSrcFormcd == sSrchsrcformcd && gFormProgFlag == sSrchformprogflag && sFormProgNm != "-"
    && gFormProgNm == sFormProgNm//2010.03.29 dhkim Ãß°¡(formprognmÀÌ ´Ù¸¦ °æ¿ì ¼­½Ä »õ·Î ·Îµù)
    )
    {
        //2. ¼­½Ä üũ
        var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
        
        if (fCheckformKind(formprogflag, bPopup))
        {
            copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
            model.removeNodeset(gPageInfo.initforminfoRef);
        }
        
        //¿­·ÁÀÖ´Â ±â·ÏÁö ºÎºÐ¼­½ÄÀÇ formdegnseq°¡ ÀÏÄ¡ÇÏ´ÂÁö ¿©ºÎ¸¦ °Ë»çÇÏ¿© ´Ù¸¦ °æ¿ì ºÎºÐ¼­½ÄÀ» »õ·Î ·Îµù(2009-01-15 ¹ÚÁ¾ÈÆ)
        var gNewUnitNodelist = model.instances(0).selectNodes(gPageInfo.forminfoRef + "/unitformmast");
        var arrOldUnitFormDgnSeq = gOldUnitFormDgnSeq.split("¢Ë");

        for (var i = 0; i < gNewUnitNodelist.length; i++)
        {
            var subNode = gNewUnitNodelist.item(i);
            var newUnitFormDgnSeq = subNode.selectSingleNode("formdegnseq").text;
            var unitItemCd = subNode.selectSingleNode("orgsupdegnitemcd").text;
            
            var ivwObj = ivw_base.document.controls("ivw_" + unitItemCd);
            
            //2010.03.09 ¾ÈÄ¡¿ø - ±â·Ï³»¿ë¿¡¼­ ºÎºÐ¼­½ÄÀÇ Copy°¡ ¾ÈµÇ´Â ¿À·ù ¼öÁ¤
        	ivwObj.attribute("supdegnitemcd") = "";
            ivwObj.attribute("unitformcd") = "";
            
            if(ivwObj.src == "")
            {
                var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                
                if (unitformcd != "")
                {
                    ivwObj.attribute("supdegnitemcd") = unitItemCd;
                    ivwObj.attribute("unitformcd") = unitformcd;
    
                    model.addLog(unitformcd + " Loading ½ÃÀÛ : " + getCurrentTime());
                    loadUnitForm(ivwObj, unitItemCd);
                    if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq)
                    {
                        setFstLevlItemCd(ivwObj, unitformcd);
                        model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                    }
                    model.addLog(unitformcd + " Loading ³¡ : " + getCurrentTime());
                    
                    //2008-12-18¹ÚÁ¾ÈÆ(±â·Ïµ¥ÀÌÅÍ °¡Á®¿À±â-º¸¿ÏÇÊ¿ä)
                    //parent.window.javascript.InitUnitFormDataBySupdegnitemcd(unitItemCds);
                }
            }
            else if (arrOldUnitFormDgnSeq[i] != newUnitFormDgnSeq)
            {
                var unitformcd = model.getValue(gPageInfo.forminfoRef + "/unitformmast[orgsupdegnitemcd='"+unitItemCd+"']/formcd");
                
                if (unitformcd != "")
                {
                    ivwObj.attribute("supdegnitemcd") = unitItemCd;
                    ivwObj.attribute("unitformcd") = unitformcd;
    
                    loadUnitForm(ivwObj, unitItemCd);
                    setFstLevlItemCd(ivwObj, unitformcd);
                    model.setValue(gPageInfo.forminfoRef + "/unitformmast[formcd='" + unitformcd + "' and loaded != 'true']/loaded", "true");
                    
                }
            }
        }
        
        fInitClearForm();
        
        if (isProgForm())
        {
            ivw_base.window.javascript.fGetDefData();
        }
        else
        {
            ivw_base.window.javascript.dispOnLoadComplete(UNIT_FORM);
        }
        
        fShowProgress(false);
    }
    else
    {   
        //2. ¼­½Ä üũ
        var formprogflag = fCheckForm(gPageInfo.initformmastRef);    
        
        if (fCheckformKind(formprogflag, bPopup))
        {
            copyNodeset(gPageInfo.forminfoRef, gPageInfo.initforminfoRef, "replace", model, model);
            model.removeNodeset(gPageInfo.initforminfoRef);
            cap_formnm.refresh();
            
            //3. ±â·ÏÁ¤º¸ ÃʱâÈ­
            //fSetNewFormRec();
        }
       
        //4. ¼­½Ä ·Îµå
        fLoadForm(gPageInfo.formmastRef, formprogflag, bPopup, calledflag); 
        
        fShowProgress(false);
    }
}

function initButtonLayer_MMR01100(mode) {
//	alert("initButtonLayer_MMR01100::"+mode);

	if (mode == "default") {
		grup_btn.disabled = false;
		
		//ÀÎÁõÀúÀå¹öÆ°°ú ÄÚ»çÀιöưó¸®
        btn_signsave.visible = true;
        btn_cosign.visible = false;
        //ÀÓ½ÃÀúÀå¹öÆ°°ú ±â·Ï¹Ý·Á¹öưó¸®
        btn_tmpsave.visible = true;
        btn_resend.visible = false;
        
        //±âŸ¹öÆ° disableó¸®
        btn_init.visible = true;
        btn_init.disabled = false;
        btn_signsaveasnew.visible = true;
        btn_signsaveasnew.disabled = false;
        btn_del.visible = true;
        btn_del.disabled = false;
        
	} else if (mode == "staff_auth_y") {

		grup_btn.disabled = false;
		
		//ÀÎÁõÀúÀå¹öÆ°°ú ÄÚ»çÀιöưó¸®
        btn_cosign.attribute("left") = btn_signsave.attribute("left");
        btn_signsave.visible = false;
        btn_cosign.visible = true;
        
        //2010.02.26 dhkim - cosign¿©ºÎ¿¡ °ü°è ¾øÀÌ ±â·Ï¹Ý·Á´Â È°¼ºÈ­»óÅ·Πº¯°æ
        btn_resend.disabled = false;
        //staff-signÀÌÈÄ´Â ±â·Ï¹Ý·Á¸¦ disabledÇÑ´Ù.
        if (fGetFormRec("cosign") == "Y") {
        	//btn_resend.disabled = false;
	        btn_cosign.disabled = true;
        } else {
        	//btn_resend.disabled = true;
	        btn_cosign.disabled = false;
        }
        
        //ÀÓ½ÃÀúÀå¹öÆ°°ú ±â·Ï¹Ý·Á¹öưó¸®
        btn_resend.attribute("left") = btn_tmpsave.attribute("left");
        btn_tmpsave.visible = false;
        btn_resend.visible = true;
        
        //±âŸ¹öÆ° disableó¸®
        btn_init.disabled = true;
        btn_signsaveasnew.disabled = true;
        btn_del.disabled = true;
        
	} else if (mode == "staff_auth_n") {
		grup_btn.disabled = false;
		
		//ÀÎÁõÀúÀå¹öÆ°°ú ÄÚ»çÀιöưó¸®
        btn_signsave.visible = true;
        btn_cosign.visible = false;
        //ÀÓ½ÃÀúÀå¹öÆ°°ú ±â·Ï¹Ý·Á¹öưó¸®
        btn_tmpsave.visible = true;
        btn_resend.visible = false;
        
        //±âŸ¹öÆ° disableó¸®
        btn_init.disabled = false;
        btn_signsaveasnew.disabled = false;
        btn_del.disabled = false;
        
	} else if (mode == "no_auth") {
		
		grup_btn.disabled = true;
	} else if (mode == "only_signsave") {
//		alert("grup_btn.children.length::"+grup_btn.children.length);
		var children = grup_btn.children;
		for (var i=0; i<children.length; i++) {
			if (children.item(i).elementName == "xforms:button") {
				children.item(i).visible = false;
			}
		}
		btn_tmpsave.visible = true;
		btn_signsave.visible = true;
		btn_signsave.disabled = false;
	}
	
	//2010.01.20 dhkim - ¼­½ÄÀ¯È¿±âÇÑÀÌ Áö³ª¸é ÃʱâÈ­¹öÆ°°ú »õÀ̸§À¸·ÎÀúÀå ¹öÆ°À» ºñÈ°¼ºÈ­Ã³¸®ÇÑ´Ù.
//	if(fIsValidForm_MMR01100()){
//		//À¯È¿±â°£¿¡ ÇØ´çÇÒ¶§¸¸ ¹öÆ°È°¼ºÈ­
//		btn_init.disabled = false;
//		btn_signsaveasnew.disabled = false;
//	}else{
//		btn_init.disabled = true;
//		btn_signsaveasnew.disabled = true;
//	}
	
	grup_btn.refresh();
}

function fIsValidForm_MMR01100(showMsg) {
	//2010.01.20 dhkim - ¼­½ÄÀ¯È¿±âÇÑÀÌ Áö³ª¸é ÃʱâÈ­¹öÆ°°ú »õÀ̸§À¸·ÎÀúÀå ¹öÆ°À» ºñÈ°¼ºÈ­Ã³¸®ÇÑ´Ù.
//	var formfromdt = model.getValue(gPageInfo.formmastRef + "/formfromdt");
//	var formtodt   = model.getValue(gPageInfo.formmastRef + "/formtodt");
	var formfromdt = fGetFormMast("formfromdt");
	var formtodt   = fGetFormMast("formtodt");
	var curntdt    = getCurrentDate() + getCurrentTime();
	
	var valid = false;
	if (formfromdt <= curntdt && formtodt >= curntdt)
		valid = true;
	
	if (valid == false && showMsg != null && showMsg == true) {
		alert("»ç¿ëÀÌ Á¾·áµÈ ¼­½ÄÀÔ´Ï´Ù.\n½Å±ÔÀÛ¼º ÇÒ ¼ö ¾øÀ¸´Ï, ¼­½Ä¸ñ·Ï¿¡¼­ À¯È¿¼­½ÄÀ» Á¶È¸ÇÏ¿© ÀÛ¼ºÇØÁֽñ⠹ٶø´Ï´Ù.");
	}
	
	return valid;
}


/**
 * Button List
 * btn_signsave         ÀÎÁõ[È®Á¤]ÀúÀå
 * btn_tmpsave          ÀÓ½ÃÀúÀå
 * btn_cosign           STAFF SIGN
 * btn_signsaveasnew    »õÀ̸§À¸·ÎÀúÀå
 * btn_del              »èÁ¦
 * btn_resend           ±â·Ï¹Ý·Á
 * btn_init             ÃʱâÈ­
 * btn_preview          ¹Ì¸®º¸±â
 * btn_print            Ãâ·Â
 * btn_cnfm             È®ÀÎ
 * btn_cncl             Ãë¼Ò
 * @param mode
 * @return
 */
//function initButtonLayer_MMR01100(mode) {
//
//	if (grup_btn.attribute("buttonLayer") == mode)
//		return;
//	
//	var btns = grup_btn.children;
//	var names = "";
//	for (var i=0; i<btns.length; i++) {
//		if (btns.item(i).attribute("id").indexOf("btn") == 0) {
//			btns.item(i).visible = false;
//		}
//	}
//
//	var setBtns = null;
//	if (mode == "staff") {
//		//staffÀÌ staff-signÇϱâ À§ÇÑ ¹öÆ°¹è¿­
//		//[¹Ì¸®º¸±â][±â·Ï¹Ý·Á][STAFF SIGN]
//		setBtns = new Array(btn_cosign, btn_resend, btn_preview);
//	} else if (mode == "afterstaffsign") {
//		
//	} else {
//		setBtns = new Array();
//	}
//	
//	fSetButton_MMR01100(setBtns);
//	grup_btn.attribute("buttonLayer") = mode;
//}
/**
 * ¹öÆ°¹è¿­À» ¿À¸¥ÂʺÎÅÍ À§Ä¡½ÃŲ´Ù.
 * @param btns
 * @return
 */
//function fSetButton_MMR01100(btns) {
//	if (btns == null)
//		return;
//	
//	var spacing = 5;
//	var xpos = parseInt(grup_btn.attribute("width"));
//	for (var i=0; i<btns.length; i++) {
//		xpos -= (parseInt(btns[i].attribute("width")) + spacing);
//		btns[i].attribute("left") = xpos;
//		btns[i].visible = true;
//	}
//}

function fChkPreSave_MMR01100(signedYn)
{
	//ÀÌÀ±ÁÖ ¼öÁ¤(20150312)
	fSetFormRec("signsaveyn", signedYn);
	
	//2010.02.23 ¾ÈÄ¡¿ø - ÀÎÁõÀúÀåÈÄ¿¡ ÀÓ½ÃÀúÀå Â÷´Ü TASK(39128)¿äû¹øÈ£(9402) - Consult´Â ±âÁ¸·ÎÁ÷ÀÌ ¿ì¼±ÇÑ´Ù.
	if (fGetFormRec("srcformcd") != "0000000677") {
		if (fGetFormRec("status") == "U" && signedYn == "N" && fGetFormRec("espiyn") == "Y") {
			messageBox("ÀÎÁõÀúÀåÈÄ¿¡ ÀÓ½ÃÀúÀåÀ»", "E001");
			return false;
		}
	}
	
	try 
    {
    	//2010-02-18 ¿ÀÀü 9:19:50 °­ÁöÈÆ ¼öÁ¤ : fClickSave¸¦ ÃÖÁ¾Áø´Ü¸í¿ä¾à¿¡¼­µµ È£ÃâÇϱ⶧¹®¿¡ Á¶°Ç¿¡µû¶ó ºÐ±âÇϵµ·Ï º¯°æ.
    	//opnerÀÇ 'SSMMR01100_fChkPreSaveUseFlag' parameter·Î fChkPreSave È£Ãâ¿©ºÎ¸¦ ÆÇ´ÜÇÒ¼ö ÀÖµµ·Ï ¼öÁ¤.
    	if(opener.window.javascript.getParameter("SSMMR01100_fChkPreSaveUseFlag") != "N"){
        if (ivw_base.window.javascript.fChkPreSave() == false){
        		opener.window.javascript.clearParameter("SSMMR01100_fChkPreSaveUseFlag");
            return false;
        }
        
        opener.window.javascript.clearParameter("SSMMR01100_fChkPreSaveUseFlag");
      }
      else{
      	opener.window.javascript.clearParameter("SSMMR01100_fChkPreSaveUseFlag");
      }
    }
    catch (e)
    {
    }
    
    //2010.05.26 ±è´ÞÇö - call visitµÇÁö ¾ÊÀº ÀÀ±Þ½Ç ȯÀÚÀÇ ÀÎÁõÀúÀå Á¦ÇÑ(¼­¼Ò¿µ¼±»ý´Ô¿äû)
    var callvisityn = fGetPamInfo("callvisityn");
    var ioflag = fGetPamInfo("ioflag");
    if(signedYn == "Y" && callvisityn == "N" && ioflag == "E"){
    	messageBox("ÀÀ±Þ½Ç Visit TimeÀ» µî·Ï ÇÏÁö ¾ÊÀ¸¸é ±â·Ï°ú ó¹æÀº ÀÓ½ÃÀúÀ常 °¡´É ÇÕ´Ï´Ù.", "E");
		return false;
    }
    
    
    //2010.06.24 ±è´ÞÇö - (¼­¿ï¼º¸ð¸¸Àû¿ë) ÀÔ¿øÃÊÁøJCI¿¡ ´ëÇؼ­ ÀÔ¿øȯÀÚÀÇ °æ¿ì °£È£ÀÔ½ÇÀúÀåµÇ¾îÀÖÁö ¾ÊÀ¸¸é ÀÎÁõÀúÀå Á¦ÇÑ
    //2010.07.19 ±è´ÞÇö - (Àüº´¿øÀû¿ëÀ¸·Î º¯°æ) ÀÔ¿øÃÊÁø¿¡ ´ëÇØ ÀÔ¿øȯÀÚÀÇ °æ¿ì °£È£ÀÔ½ÇÀúÀåµÇ¾îÀÖÁö ¾ÊÀ¸¸é ÀÎÁõÀúÀå Á¦ÇÑ
    var srcformcd  = fGetFormRec("srcformcd");
    var careinrmdd = fGetPamInfo("careinrmdd");
    //alert("srcformcd:"+srcformcd + ",careinrmdd:" + careinrmdd + ",dutplceinstcd:" + getUserInfo("dutplceinstcd") + ",ioflag:" + ioflag);
	//if(signedYn == "Y" && getUserInfo("dutplceinstcd") == "012" && srcformcd == "0000000003" && ioflag == "I" && careinrmdd == "-"){
	if(signedYn == "Y" && srcformcd == "0000000003" && ioflag == "I" && careinrmdd == "-"){
		messageBox("ÇØ´çȯÀÚ´Â °£È£ÀÔ½ÇÈ®ÀεÇÁö ¾Ê¾ÒÀ¸¹Ç·Î ÀÔ¿øÃÊÁø±â·Ï ÀÓ½ÃÀúÀ常 °¡´É ÇÕ´Ï´Ù.", "E");
		return false;
	}
    
    var cnstformcd = fGetFormRec("formcd");
    var cnstdoctid = ivw_base.model.getValue("/root/init/cond/rscdoctid");
    var cnstdeptcd = fGetFormRec("formrecdeptcd");;
    //20121220 Á¤Ã¢Çõ ¿µ»óÀÇÇаú Æǵ¶ÇùÁøÀÇ·Ú¼­ ¼ö½ÅÀÇ Çʼöüũ
    if (cnstformcd == "1000009108"){// && cnstdeptcd == "2160000000") { //20121221 Æǵ¶ÇùÁøÀÇ·Ú¼­ÀÎ °æ¿ì ¼ö½ÅÀÇ Çʼöüũ
    	if (cnstdoctid == "") {
    		messageBox("[¿µ»óÀÇÇаú Æǵ¶ ÇùÁøÀÇ·Ú¼­]ÀÎ °æ¿ì ¼ö½ÅÀÇ´Â ÇʼöÀԷ»çÇ×ÀÔ´Ï´Ù.", "E");
				return false;
    	}
    }
    
	//2014/01/24 ¸¶ÃëÅëÁõÀÇÇаú·Î ÄÁ¼³Æ®½Ã ¸¶Ãë ¶Ç´Â ÅëÁõ Áß¿¡ ¼±ÅÃÇϵµ·Ï ºí·°Å·
	var anstflag  = ivw_base.model.getValue("/root/init/cond/anstflag");
	var rscdeptcd = ivw_base.model.getValue("/root/init/cond/rscdeptcd");
	var oprnerId = opener.window.javascript.getScreenID();
	if(oprnerId=="SMMMR05000" && rscdeptcd=="2090000000" && anstflag=="" && getUserInfo("dutplcecd")!="2090000000"){
		messageBox("[¸¶ÃëÅëÁõÀÇÇаú]·Î ÄÁ¼³Æ® ÀǷڽà ÀÇ·Ú ±¸ºÐÀº Çʼö ÀÔ·ÂÀÔ´Ï´Ù.\nPCA Ãß°¡/¼öÁ¤ ÀÇ·Ú´Â [¸¶Ãë] ¼±Åà ÈÄ ÀÇ·ÚºÎŹµå¸³´Ï´Ù.", "E");
		ivw_base.model.setFocus("rdo_anstflag");
		return false;
	}
	//2014/01/24
    return true;
}

/**
 * 2010.02.25 ¾ÈÄ¡¿ø - ÀÔÅð¿ø¿ä¾à±â·Ï - Åð¿øó¹æ ÀԷ¹æ¹ý º¯°æ(Æ˾÷)
 * @param openFlag
 * @return
 */
function setInitInfo_MMR01100(key, value)
{
	model.makeValue(PATH_LOADER_INI+"/"+key, value);
}

function getInitInfo_MMR01100(key)
{
	return model.getValue(PATH_LOADER_INI+"/"+key);
}

/**
 * 2010.03.18 ¾ÈÄ¡¿ø - »ó´ÜȯÀÚÁ¤º¸¿Í ±â·ÏȯÀÚÁ¤º¸°¡ °°ÀºÁö °Ë»çÇÑ´Ù.
 * @return À¯È¿¿©ºÎ
 */
function validPamInfo_MMR01100(fromFlag)
{
	model.addLog("validPamInfo_MMR01100::"+fromFlag);
//	alert("validPamInfo_MMR01100::"+fromFlag);
	
    var oprnerId = opener.window.javascript.getScreenID();
    if(oprnerId == "SMMMR00100")
    {
        var node = getGlobalVariable("paminfo");
        var sGetTopYn = opener.window.javascript.getParameter("SSMMR01100_getTopYn");       //SSMMR01100_getTopYn => topÁ¤º¸ Á¶È¸¿©ºÎ Á¤º¸(NÀÏ°æ¿ì ³Ñ¾î¿Â ÆĶó¹ÌÅͱâÁØ, ¾Æ´Ò°á·ç TOPÁ¤º¸ ±âÁØ)
        opener.window.javascript.clearParameter("chkdeptpresave");
        
        if(node != "" && sGetTopYn != "N")
        {
            model.removeNodeset("/root/pamtmp/paminfo");
            setCSVToNode("/root/pamtmp", node, "paminfo");
            
            var top_ioflag = model.getValue("/root/pamtmp/paminfo/iofalg");
            var top_pid = model.getValue("/root/pamtmp/paminfo/pid");
            var top_orddd = "";
            var top_cretno = model.getValue("/root/pamtmp/paminfo/cretno");

            var rec_pid = fGetFormRec("pid");
            var rec_orddd = fGetFormRec("orddd");
            var rec_cretno = fGetFormRec("cretno");
            
            if (top_ioflag == "O" || top_ioflag == "S") {
            	top_orddd = model.getValue("/root/pamtmp/paminfo/orddd");
            }
            else {
            	top_orddd = model.getValue("/root/pamtmp/paminfo/indd");
            }
						
						if (top_pid != rec_pid && getParameter("calledflag").indexOf("cpg") == -1) //20130524 Á¤Ã¢Çõ cpgÀÎ °æ¿ì ÃÖÃÊ ÀúÀå½Ã EMR·Î ¼³Á¤ÇÔ. CPGÀÎ °æ¿ì ÃÖÃÊ»ç¿ëÀÚ ¾ÈŸ°Ô Ãß°¡
            {
                messageBox("»ó´ÜÀÇ È¯ÀÚÁ¤º¸("+top_pid+")¿Í ±â·ÏÁöÀÇ È¯ÀÚÁ¤º¸("+rec_pid+")°¡ ´Ù¸£¹Ç·Î, \n´ÙÀ½ ÁøÇàÀ» ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
                return false;
            }  
        }
    }
    return true;
}



/**
 * 2010-03-26 ¿ÀÀü 9:27:48 °­ÁöÈÆ ¼öÁ¤ : [¿äû¹øÈ£ 10010] ÀÔ¿ø¼öÁø¿¡ ¿Ü·¡[formchosflag = 'O'] ±â·Ï ÀÛ¼ºÀ» ¸·´Â´Ù.
 * @return À¯È¿¿©ºÎ
 */
function validFormchos_MMR01100(msgFlag){
	//model.addLog("validPamInfo_MMR01100::"+fromFlag);
	
	var formchosflag = model.getValue(gPageInfo.formmastRef + "/formchosflag");
  var patchosflag = model.getValue(gPageInfo.recMastRef + "/chosflag");
  var ioflag = fGetPamInfo("ioflag");
  
  //alert("formchosflag : "+ formchosflag + ", patchosflag : " + patchosflag + ", ioflag : " + ioflag );
  
  if(ioflag != "O" && formchosflag == "O"){
  	if(msgFlag == true){
  	 messageBox("ÀÔ¿øȯÀÚÀ̹ǷΠ¿Ü·¡¼­½ÄÀ» ÀÛ¼ºÇÏ½Ç ¼ö", "I004");
  	}
  	return false;
  }
  return true;
}

function validFormchos_MMR01100_OUT(msgFlag){
	//model.addLog("validPamInfo_MMR01100::"+fromFlag);
	
	var formchosflag = model.getValue(gPageInfo.formmastRef + "/formchosflag");
  var patchosflag = model.getValue(gPageInfo.recMastRef + "/chosflag");
  var ioflag = fGetPamInfo("ioflag");
  
  //alert("formchosflag : "+ formchosflag + ", patchosflag : " + patchosflag + ", ioflag : " + ioflag );
  
  if(ioflag == "O" && formchosflag == "I"){
  	if(msgFlag == true){
  	 messageBox("¿Ü·¡ ¼öÁøÀ̹ǷΠÀÔ¿ø¼­½ÄÀ» ÀÛ¼ºÇÏ½Ç ¼ö", "I004");
  	}
  	return false;
  }
  return true;
}
 

/**
 ÃÖÃÊÀÛ¼ºÀÚ¿Í µ¿ÀÏÇÑ ºÎ¼­ »ç¿ëÀÚÀÎÁö üũ
 20121217 Á¤Ã¢Çõ 
*/
function fGetEditableDept() {
	 	model.makeValue("/root/send/editable/formcd", fGetFormRec("srcformcd"));//"1000007334");
		model.makeValue("/root/send/editable/formrecseq", fGetFormRec("formrecseq"));
		model.makeValue("/root/send/editable/pid", fGetFormRec("pid"));
		model.makeValue("/root/send/editable/dutplcecd", getUserInfo("dutplcecd"));
		
		if (submit("TRMMR01304", false)) {
			if (model.getValue("/root/rtneditable/editableInfo/editableyn") == "Y") {
				return true;
			} 
		}
		return false;
}


/**
 * ¼­½Ä·Î´õ°¡ Consult°ü¸®(SMMMR05000)¿¡¼­ ÀÓÆ÷Æ®½Ã MMR05000.jsÀÇ fSendRecInfoToSMMMO00100()¸¦ »ç¿ëÇϱâ À§ÇÑ ÇÔ¼ö
 */
function fSendRecInfoSMMMR05000ToSMMMO00100(scrnid){
	if(scrnid == "SMMMR05000"){
	   opener.javascript.fSendRecInfoToSMMMO00100();
	}
}

/**
 * ÇöÀç ¼­½ÄÀÌ °Ë»ç ±â·ÏÁö ÀÏ°æ¿ì ºí·ÎÅ· ó¸®
 */
function fCheckedTestRecYN(){
	
	var flag = false;
	
	if(isPopup()){
        var openerScreenID = opener.opener.window.javascript.getScreenID();
        if(!isNull(openerScreenID) && openerScreenID == "SMMMR00100"){  
            if(opener.window.javascript.getScreenID() == "SSMMR01100"){
                if(submit("TRMMR01106")){
                    if(model.getValue("/root/temp/existentformcd/formrecseqyn") == "Y"){
                        messageBox("°Ë»ç°á°ú °ü¸®È­¸é¿¡¼­ »èÁ¦ÇϽñ⠹ٶø´Ï´Ù!", "E999");
                        flag = true;
                    }   
                }
                
            }
        }
    }
    
    return flag;
}

function fSendSMS(){
	var cnststat = fGetFormRec("cnststat");
	var formrecseq = fGetFormRec("formrecseq");
	var msg = "";
	var flag = "";
	
	model.makeValue("/root/send/reqdata/formrecseq",formrecseq);
	//model.makeValue("/root/send/reqdata/cnststat",cnststat);
	
	if (submit("TRMMR01305")) {
	}
	
	var smsmsg = model.getValue("/root/hidden/msglist/smsmsg");
	var mpphonno = model.getValue("/root/hidden/msglist/mpphonno");
	var usernm = model.getValue("/root/hidden/msglist/usernm");
	var cnststat = model.getValue("/root/hidden/msglist/cnststat");
	var sendhp = model.getValue("/root/hidden/msglist/sendhp");
	
	var curtime = getCurrentTime().substr(0,4);
	var CommTimefst = fGetHardCDList("Y", "9962", 3);
	var CommTimelst = CommTimefst-1000; //ÇϵåÄÚµå ½Ã°£ 1730ÀÓ
	
	var cInstcd = getUserInfo("dutplceinstcd")
	
	if(cInstcd =='032'){		
		if (curtime > CommTimefst && curtime < CommTimelst) {
			return;
		}
		
	}
	
	//ÀüÈ­¹øÈ£°¡ ¾ø°Å³ª ÀÌ¹Ì º¸³½ ÀÌ·ÂÀÌ ÀÖÀ¸¸é º¸³»Áö ¾Ê´Â´Ù!
	if (mpphonno=="" || isNull(mpphonno)) {
		return;
	}
	
	
	if(cInstcd != '032'){
		if (cnststat > 12 ) {
			flag = "B";
			model.removeNodeset("/root/send/reqdata");
			model.makeValue("/root/send/reqdata/formrecseq",formrecseq);
			model.makeValue("/root/send/reqdata/cnststat",cnststat);
			model.makeValue("/root/send/reqdata/mpphonno",mpphonno);
			model.makeValue("/root/send/reqdata/smsmsg",smsmsg);
			model.makeValue("/root/send/reqdata/sendhp",sendhp);
			model.makeValue("/root/send/reqdata/usernm",usernm);
			model.makeValue("/root/send/reqdata/flag",flag);
			
			if (submit("TXMMR01306")) {
			}
		}		
	}else if (cInstcd == '032'){
		if (cnststat >= 12 ) {
				flag = "A";
			if (cnststat = 30 ) {
				flag = "B";
			}
			model.removeNodeset("/root/send/reqdata");
			model.makeValue("/root/send/reqdata/formrecseq",formrecseq);
			model.makeValue("/root/send/reqdata/cnststat",cnststat);
			model.makeValue("/root/send/reqdata/mpphonno",mpphonno);
			model.makeValue("/root/send/reqdata/smsmsg",smsmsg);
			model.makeValue("/root/send/reqdata/sendhp",sendhp);
			model.makeValue("/root/send/reqdata/usernm",usernm);
			model.makeValue("/root/send/reqdata/flag",flag);
			
			if (submit("TXMMR01306")) {
			}
		}			
		
		
	}

	/*
	if (cnststat <= 12 ) {
		msg = "¼ö½ÅÀÚ("+usernm+")¿¡°Ô ÀÇ·Ú ¹®ÀÚ¸Þ½ÃÁö¸¦ º¸³»½Ã°Ú½À´Ï±î?";
		flag = "A";
	}
	else if (cnststat > 12 ) {
		msg = "ÀÔ·ÂÀÚ("+usernm+")¿¡°Ô ȸ½Å ¹®ÀÚ¸Þ½ÃÁö¸¦ º¸³»½Ã°Ú½À´Ï±î?";
		flag = "B";
	}
	
	if ( 6 == messageBox(msg,"Q") ) {
		model.removeNodeset("/root/send/reqdata");
		model.makeValue("/root/send/reqdata/formrecseq",formrecseq);
		model.makeValue("/root/send/reqdata/cnststat",cnststat);
		model.makeValue("/root/send/reqdata/mpphonno",mpphonno);
		model.makeValue("/root/send/reqdata/smsmsg",smsmsg);
		model.makeValue("/root/send/reqdata/sendhp",sendhp);
		model.makeValue("/root/send/reqdata/usernm",usernm);
		model.makeValue("/root/send/reqdata/flag",flag);
		
		if (submit("TXMMR01306")) {
		}
	}
	*/
}

function fDisableformrecdd() {
	gformrecdddisable = true;
}

function fSetformrecdd(setdd) {
	model.setValue("/root/main/recinfo/formrec/formrecdd", setdd);
	ipt_formrecdd.refresh();
}