var ClickTab  = false;
var displayflag = "N";


/**
 * @desc   : »ç¿ëÀÚÀÇ ±ÇÇÑÀ» üũÇÏ¿© ¹öÆ°¼ÂÆÃ.
 *           btn_r Á¶È¸¹öÆ°, btn_x ÀúÀå ¹× ¼öÁ¤ ¹öÆ°, btn_p : Ãâ·Â¹öÆ°
 * @
 * @param  : 
 * @return : 
 * @authur : ±è¼±Å 2007. 5. 8
 * @---------------------------------------------------
 */
function fchkAuth()
{
			
	for(var i=0; i<= document.controls.length-1 ; i++){
			if(document.controls.item(i).elementName == "xforms:button"){
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_r_"){
					document.controls.item(i).disabled = !checkAuth("R");	
				}
				
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_x_"){
					document.controls.item(i).disabled = !checkAuth("X");	
				}
				
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_p_"){
					document.controls.item(i).disabled = !checkAuth("P");	
				}
			
			}
		}	

}



/**
 * @desc   : excel ÀúÀå Çϱâ
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fExcel(gridObj, title){

		if (title == null)	{ title = "" }
		var fileName = window.fileDialog("save", ",", false, title + "_" + getCurrentDate(), "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
		if (fileName != "")	{
			gridObj.saveExcel(fileName, "SheetName", true, true, "", "", true);
		}
}


/**
 * @desc   : ÆûÃʱâÈ­
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fFormInit()
{
		// 2007.12.20.  ºÎ¼­Äڵ尡 ÀÇ·áÁ¤º¸(3230000000)°¡ ¾Æ´Ñ °æ¿ì :  ÇöÀ§Ä¡Á¶È¸ Åܸ¸ °¡´ÉÇÔ...
		var deptcd = getUserInfo("dutplcecd");
		
		// KNUH_20101207_¹Ú¼ºÈ£_start_Àǹ«±â·Ï ºÎ¼­ÄÚµå °¡Á®¿À±â
		mmbfGetHardCodeInfo("/root/send/reqdata", "/root/temp/hardcd", 5501);	

		//if (deptcd == "3230000000") {
		if(model.getValue("/root/temp/hardcd/hardcd[hardcd='" + deptcd + "']/hardcd") != "")
		{
		// KNUH_20101207_¹Ú¼ºÈ£_end
			btn_ChrtLend.visible= true ;
			btn_ChrtRtn.visible	= true ;
			btn_Receipt.visible	= true ;
			displayflag = "Y";
			// üũ¹øÈ£»ý¼ºÁ¦¿Ü º¸¿©ÁÖ±â (default : 'Y')
			chkyn.visible = true ;
			model.setValue("/root/hidden/chkyn", "Y");
		} else {
			btn_ChrtLend.visible= false ;
			btn_ChrtRtn.visible	= false ;
			btn_Receipt.visible	= false ;
			// üũ¹øÈ£»ý¼ºÁ¦¿Ü ¾È º¸¿©ÁÖ±â (default : '')
			chkyn.visible = false ;
			model.setValue("/root/hidden/chkyn", "");
		}

		//ÄÁÆ®·Ñ ±ÇÇÑ ¼³Á¤
		fchkAuth();
		
		btn_ChrtInfo.dispatch("onclick");
		
		//°øÅëÄÚµå °¡Á®¿À±â...
		//M0392:íƮ¹Ì´ëÃâ»çÀ¯ÄÚµå
		//M0412:°úº¸°ü»çÀ¯ÄÚµå
		//M0424:Â÷Æ®»óÅÂ(ºÐ½Ç)ÄÚµå
		zbcfGetCodeList(new Array("M0392","M0412","M0424"),	new Array("/root/init/M0392","/root/init/M0412","/root/init/M0424"));

		if (displayflag == "Y") {
			// 2009.01.28. ´ÜÃàÅ° 󸮸¦ À§ÇØ ·Îµù ó¸®..
			fClickTab();
		}

		var pid ;
		if (isPopup() == true) {
			// param ȯÀÚÁ¤º¸
			pid = opener.javascript.getParameter("pid");
		}
		if ( pid == null || pid == "" ) {
			// »ó´Ü ȯÀÚÁ¤º¸
			var node = getGlobalVariable("paminfo");
			model.removeNodeset("/root/init/paminfo/list");
			setCSVToNode("/root/init/paminfo", node);	
			pid = model.getValue("/root/init/paminfo/list/pid");
		}

		if ( pid == null ) { pid == ""; }
		if ( pid != "" ) {
			model.makeValue("/root/send/reqdata/pid", pid);
			model.refresh();
			
			event.keyCode = "13";
			ipt_pid.dispatch("onkeydown");
		}

}

/**
 * @desc   : Á¢¼ö ÅÇ Å¬¸¯...
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fClickTab()
{
		if (ClickTab == false)
		{
			ClickTab = true;


			// ´ëÃâ¿ëµµ, ´ëÃâ°ú, Â÷Æ®°ú, Â÷Æ®´ã´çÀÚ, º¸°üÀå¼Ò
			model.makeValue("/root/send/reqdata/ioflag"   , "A");	//2010,12,28, ÁÖÈñ°æ ÀÔ¿ø/¿Ü·¡ ¸ðµÎ Á¶È¸ Çϵµ·Ï º¯°æ
			model.makeValue("/root/send/reqdata/useyn"    , "");
			model.makeValue("/root/send/reqdata/allwardyn", "");
			submit("TRMRC00100");
			

			// ¿Ü·¡Â÷Æ®Á¢¼öÇöȲ
			iv_Receipt.src = "SSMRC03200_¿Ü·¡Â÷Æ®Á¢¼öÇöȲ.xrw";
			iv_Receipt.window.javascript.fFormInit();

			// ¿Ü·¡Â÷Æ®´ëÃâ
			iv_ChrtLend.src = "SSMRC03300_¿Ü·¡Â÷Æ®´ëÃâ.xrw";
			iv_ChrtLend.window.javascript.fFormInit();

			// ¿Ü·¡Â÷Æ®¹Ý³³
			iv_ChrtRtn.src = "SSMRC03400_¿Ü·¡Â÷Æ®¹Ý³³.xrw";
			iv_ChrtRtn.window.javascript.fFormInit();

			//°øÅëÄÚµå °¡Á®¿À±â...
			//M0392:íƮ¹Ì´ëÃâ»çÀ¯ÄÚµå
			copyNode(iv_Receipt.model , model, "/root/init/M0392", "/root/init/M0392");
			copyNode(iv_ChrtLend.model, model, "/root/init/M0392", "/root/init/M0392");
			//M0412:°úº¸°ü»çÀ¯ÄÚµå
			copyNode(iv_ChrtRtn.model , model, "/root/init/M0412", "/root/init/M0412");
			//M0424:Â÷Æ®»óÅÂ(ºÐ½Ç)ÄÚµå
			copyNode(iv_ChrtLend.model , model, "/root/init/M0424", "/root/init/M0424");
			copyNode(iv_ChrtRtn.model , model, "/root/init/M0424", "/root/init/M0424");
			//´ëÃ⸶½ºÅÍÁ¤º¸ °¡Á®¿À±â...
			copyNode(iv_Receipt.model , model, "/root/init/lendmastinfo", "/root/init/lendmastinfo");
			copyNode(iv_ChrtLend.model, model, "/root/init/lendmastinfo", "/root/init/lendmastinfo");
			copyNode(iv_ChrtRtn.model , model, "/root/init/lendmastinfo", "/root/init/lendmastinfo");
			
			// 2009.02.10. È­¸é ÃʱâÈ­.. 
			iv_Receipt.model.refresh();
			iv_ChrtLend.model.refresh();
			iv_ChrtRtn.model.refresh();
		}
}






/**
 * @desc   : ÇöÀ§Ä¡Á¶È¸
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fChartHistory()
{
		if(isXPathTextNull("/root/send/reqdata/pid")){
			messageBox("ȯÀÚ¹øÈ£¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä.", "I999", "");
			return;
		}

		model.removeNodeset("/root/main/chrtinfo/chrtlist");
		model.removeNodeset("/root/main/chrtinfo/emrlist");
		model.removeNodeset("/root/main/chrtinfo/pamlist");
		model.removeNodeset("/root/main/chrtinfo/inpam");
		model.removeNodeset("/root/main/chrtinfo/chngroom");
		model.removeNodeset("/root/main/chrtinfo/healexam");
		model.removeNodeset("/root/main/chrtinfo/chrtlendlist");
		
		var result = fCheckPid(ipt_pid, "/root/send/reqdata/pnm", "/root/send/reqdata/rrgstno");

		if (result.length > 0) {
			// Á¾ÀÌ Â÷Æ® Á¶È¸
			submit("TRMRC00144");
			// EMR ±â·Ï Á¶È¸
			submit("TRMRC00145");
			// °ÇÁø³»¿ªÁ¶È¸
			submit("TRMRC00146");
			
			if(grd_chrtlist.rows > 0){
				var medirecno = model.getValue("/root/main/chrtinfo/chrtlist[1]/medirecno");
				if (medirecno != "") {
					model.makeValue("/root/send/reqdata/ioflag",	"O");
					model.makeValue("/root/send/reqdata/medirecno",	medirecno);
					model.makeValue("/root/send/reqdata/pid", 		model.getValue("/root/main/chrtinfo/chrtlist[1]/pid"));
					submit("TRMRC00170");
				}
			}								
		}

		// 2008.12.17. »óÅ¿¡ µû¶ó ·Î¿ì »ö»ó ÁöÁ¤ÇØ ÁÖ±â..
		initGridStyle("grd_chrtlist");

		var gridObj = grd_chrtlist;

		for ( var i = 1 ; i < gridObj.rows ; i++)
		{	
			if(gridObj.valueMatrix(i , gridObj.colRef("lendyn")) == "Y"){
				gridObj.rowstyle(i, "data", "background-color") = "#ffccff";	// ´ëÃâÁß (ÇÎÅ©»ö)
			}
			if(gridObj.valueMatrix(i , gridObj.colRef("chrtstat")) == "01"){
				gridObj.rowstyle(i, "data", "color") = "#ff0000";				// ºÐ½ÇÂ÷Æ® (»¡°£»ö)
			}
		}

		// 2008.12.17. »óÅ¿¡ µû¶ó ·Î¿ì »ö»ó ÁöÁ¤ÇØ ÁÖ±â..
		initGridStyle("grd_chrtlendlist");

		var gridObj = grd_chrtlendlist;

		for ( var i = 1 ; i < gridObj.rows ; i++)
		{	
			if(gridObj.valueMatrix(i , gridObj.colRef("rtndt")) == ""){
				gridObj.rowstyle(i, "data", "background-color") = "#ffccff";	// ´ëÃâÁß (ÇÎÅ©»ö)
			}
		}

		// 2009.06.02. ÀÇÁ¤ºÎÀÎ °æ¿ì.. ÀÀ±Þ½Ç, °ÇÁø¼¾ÅÍ ±¸¿µ»ó Á¶È¸Çϱâ..
		var instcd = getUserInfo("dutplceinstcd");

		if (instcd == "013") {
			submit("TRMRC00147");

			var msgER = "";
			var msgAH = "";

			var dataCnt = getNodesetCnt(model, "/root/main/chrtinfo/oldimglist");
			for (var i = 1 ; i <= dataCnt ; i++)
			{
				var cls = model.getValue("/root/main/chrtinfo/oldimglist["+ i +"]/cls");
				var cnt = model.getValue("/root/main/chrtinfo/oldimglist["+ i +"]/cnt");

				// ±¸¿µ»ó ÀÀ±ÞÀÇÇаú
				if (cls == "E") {
					msgER = "¢Ã ±¸¿µ»ó ÀÀ±ÞÀÇÇаú (" + cnt + "°Ç)";
				}
				// ±¸¿µ»ó °ÇÁø
				if (cls == "S") {
					msgAH = "¢Ã ±¸¿µ»ó °ÇÁø (" + cnt + "°Ç)";
				}
			}
			model.setValue("/root/hidden/cap_oldimgER", msgER);
			cap_oldimgER.refresh();
			model.setValue("/root/hidden/cap_oldimgAH", msgAH);
			cap_oldimgAH.refresh();
		}
}



/**
 * @desc   : µî·ÏµÈ ȯÀÚ¹øÈ£ÀÎÁö üŷÇÑ´Ù..
 * @
 * @param  : iptObj - ȯÀÚ¹øÈ£ ÀÔ·Â ÄÁÆ®·Ñ (pid)
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.09.17
 * @---------------------------------------------------
 */
function fGetPidNo(iptObj, ref)
{
		var chkyn = model.getValue(ref);
		if (chkyn == "Y") {
			if (iptObj.currentText.length > 0) {
				var pid = iptObj.currentText;
				pid = getCretCheckNo(pid, getUserInfo("dutplceinstcd"));
				model.makeValue(iptObj.attribute("ref"), pid);
				iptObj.refresh();
			}
		}
}


/**
 * @desc   : µî·ÏµÈ ȯÀÚ¹øÈ£ÀÎÁö üŷÇÑ´Ù..
 * @
 * @param  : iptObj - ȯÀÚ¹øÈ£ ÀÔ·Â ÄÁÆ®·Ñ (pid)
 * @return : pnm    - ȯÀÚ¸í
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fCheckPid(iptObj, refPnm, refRrgstno)
{
		model.makeValue("/root/send/req/srchcond", "1");
		model.makeValue("/root/send/req/pid", iptObj.currentText);
		
		//ȯÀÚµî·Ï¹øÈ£ üũ
		if(iptObj.currentText.length > 0 ){
			
			// 2008.12.11. ÃʱâÈ­ ¾ø¾Ö±â..
			model.makeValue(refRrgstno, "");

			model.resetInstanceNode("/root/main/result/patinfo");
			model.makeNode("/root/main/result/patinfo");
					
			if(submit("TRPMC02500", "", "/root/send/req", "/root/main/result/patinfo")){
				//fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.	
				if( getNodesetCount("/root/main/result/patinfo/patinfolist") > 0 ){
					model.copyNode("/root/main/patinfo", "/root/main/result/patinfo");
					//* 2009.04.07. ÀÌÁß¹øÈ£ ¸Þ¼¼Áö ( 14257937 ¹Ú¿ë¼®  -> 13275912 ½Å¿Á¼ø )
					var sBindPid = model.getValue("/root/main/result/patinfo/patinfolist/bindpid");
					if( sBindPid != '-' && sBindPid != '' && sBindPid != ' ' ){
						//ÇÕ¹øµÈ µî·Ï¹øÈ£ ¸Þ¼¼Áö ó¸®
						var sPid = model.getValue("/root/main/result/patinfo/patinfolist/pid");
						var sHngnm = model.getValue("/root/main/result/patinfo/patinfolist/hngnm");
						var retValue = messageBox(sPid + " (" + sHngnm + ") ȯÀÚÀÇ µî·Ï¹øÈ£°¡ [ " + sBindPid + " ] ·Î ÇÕ¹ø µÇ¾ú½À´Ï´Ù. ÇÕ¹øµÈ µî·Ï¹øÈ£·Î ÀçÁ¶È¸ ÇϽðڽÀ´Ï±î?", "Q999", "");
						if( retValue == '6' ){
							model.makeValue(iptObj.attribute("ref"), sBindPid);
							iptObj.refresh();
							fCheckPid(iptObj, refPnm, refRrgstno);
							return "";
						}
					}
					//*/																	
					var pid = model.getValue("/root/main/result/patinfo/patinfolist/pid");
					var pnm = model.getValue("/root/main/result/patinfo/patinfolist/hngnm");
					// 2008.12.11. ÁֹιøÈ£ Ç¥½ÃÇϱâ..
					var rrgstno1 = model.getValue("/root/main/result/patinfo/patinfolist/rrgstno1");
					var rrgstno2 = model.getValue("/root/main/result/patinfo/patinfolist/rrgstno2");
					var rrgstno = rrgstno1 + "-" + rrgstno2.substring(0,3) + "****" ;							
					if (refPnm != null)
					{
						model.makeValue(refPnm, pnm);
					}
					if (refRrgstno != null)
					{
						model.makeValue(refRrgstno, rrgstno);
					}
					return pnm;
				} else {
					model.resetInstanceNode("/root/main/patinfo/patinfolist");
					messageBox("¾ø´Â ȯÀÚ ¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
					model.refresh();
					return "";
				}								
			} else { // 2009.01.14. ÇÕº»Ã³¸® ¿¡·¯¸Þ¼¼Áö ó¸®ÈÄ..
				return "";
			}	
				
		}else{
			messageBox("ȯÀÚµî·Ï¹øÈ£¸¦ Á¤È®È÷", "C001");
			return "";
		}		
}


/**
 * @desc   : ȯÀÚµî·Ï¹øÈ£ Á¶È¸ Æ˾÷
 * @
 * @param  : refPid - ȯÀÚ¹øÈ£ Âü°í node path
 *           refPnm - ȯÀÚ¸í   Âü°í node path
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fGetPid(refPid, refPnm, refRrgstno)
{
		//Á¶È¸°Ç¼ö°¡ 1°ÇÀÏ °æ¿ì Æ˾÷âÀ» ¹Ù·Î ´Ý´Â´Ù.
		model.makeValue("/root/hidden/tmp/pidpopupinfo/checkfnexam", "1");
		model.makeValue("/root/hidden/tmp/pidpopupinfo/autoflag", "N");
		if( model.getValue("/root/hidden/tmp/pidpopupinfo/srchcond") == '' ){
			model.makeValue("/root/hidden/tmp/pidpopupinfo/srchcond", '2');	
		}
		
		modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/hidden/tmp/pidpopupinfo", "/root/send");
		model.resetInstanceNode("/root/source");
		//ȯÀÚ¹øÈ£ copy
		var popupendflag = model.getValue("/root/main/popupendflag");
		
		if (popupendflag == "ok")
		{
			model.makeValue(refPid, model.getValue("/root/main/patinfo/patinfolist/pid"));
			if (refPnm == null) { refPnm = "" }
			if (refPnm != "") {
				model.makeValue(refPnm, model.getValue("/root/main/patinfo/patinfolist/hngnm"));
			}
			if (refRrgstno == null) { refRrgstno = "" }
			if (refRrgstno != "") {
				var rrgstno1 =  model.getValue("/root/main/patinfo/patinfolist/rrgstno1");
				var rrgstno2 =  model.getValue("/root/main/patinfo/patinfolist/rrgstno2");
				var rrgstno  =  rrgstno1 + "-" + rrgstno2.substring(0,3) + "****";
				model.makeValue(refRrgstno, rrgstno);
			}
			model.refresh();
		}	
}

/**
 * @desc   : ´ÜÃàÅ° ¼±Åýà Ŀ¼­À̵¿
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2009.01.28
 * @---------------------------------------------------
 */
function fKeyDown(){

	if (displayflag == "Y")
	{
		// F7 : 118, F8 : 119 ,  F9 : 120,  F10 : 121
		var keyCode = event.keyCode;
		if (keyCode == "118") {
			fAccessKey1();
		} else if (keyCode == "119") {
			fAccessKey2();
		} else if (keyCode == "120") {
			fAccessKey3();
		} else if (keyCode == "121") {
			fAccessKey4();
		}
	}
}

/**
 * @desc   : ´ÜÃàÅ° ¼±Åýà Ŀ¼­À̵¿
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2009.01.28
 * @---------------------------------------------------
 */
function fAccessKey1(){

		// 2009.01.28. ´ÜÃàÅ° ó¸®..
		model.toggle("ChrtInfo");
		btn_ChrtInfo.selected = "true";
		btn_ChrtInfo.refresh();		
		// Ä¿¼­À§Ä¡ - µî·Ï¹øÈ£..
		model.setFocus("ipt_pid");	
		ipt_pid.refresh();	
}

/**
 * @desc   : ´ÜÃàÅ° ¼±Åýà Ŀ¼­À̵¿
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2009.01.28
 * @---------------------------------------------------
 */
function fAccessKey2(){		

		// 2009.01.28. ´ÜÃàÅ° ó¸®..
		model.toggle("Receipt");
		btn_Receipt.selected = "true";
		btn_Receipt.refresh();
		// 2009.01.28. ´ÜÃàÅ° ó¸®..
		iv_Receipt.model.setFocus("btn_r_receipt");	
		iv_Receipt.btn_r_receipt.refresh();			
		// Á¢¼öÀÌ·ÂÁ¶È¸
		iv_Receipt.window.javascript.fGetReqRendAppList();
}

/**
 * @desc   : ´ÜÃàÅ° ¼±Åýà Ŀ¼­À̵¿
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2009.01.28
 * @---------------------------------------------------
 */
function fAccessKey3(){

		// 2009.01.28. ´ÜÃàÅ° ó¸®..
		model.toggle("ChrtLend");
		btn_ChrtLend.selected = "true";
		btn_ChrtLend.refresh();	
		// Ä¿¼­À§Ä¡ - ´ëÃâ ¹ÙÄÚµå..
		iv_ChrtLend.window.javascript.fMoveCursor();		
}

/**
 * @desc   : ´ÜÃàÅ° ¼±Åýà Ŀ¼­À̵¿
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2009.01.28
 * @---------------------------------------------------
 */
function fAccessKey4(){

		// 2009.01.28. ´ÜÃàÅ° ó¸®..
		model.toggle("ChrtRtn");
		btn_ChrtRtn.selected = "true";
		btn_ChrtRtn.refresh();	
		// Ä¿¼­À§Ä¡ - ¹Ý³³ ¹ÙÄÚµå..
		iv_ChrtRtn.window.javascript.fMoveCursor();	
}


/**
 * @desc   : ÇϵåÄÚµå Á¶È¸
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - ÇϵåÄÚµå
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function mmbfGetHardCodeInfo(ref, rsltref, hardcd){
    var mmb_rsltref = "/root/hidden/mmb/hardcd";
    model.removeNode(mmb_rsltref);
    model.makeNode(mmb_rsltref);
    model.removeNode(ref);
    model.makeValue(ref + "/hardcd", hardcd);
    if(submit("TRMMB04103", "false", ref, mmb_rsltref)==true){
        model.copyNode(rsltref, mmb_rsltref);
        model.removeNode(mmb_rsltref);
    }
    model.refresh();
}

/**
 * @desc   : ¿µ»óÀüȯ ¼³Á¤
 * @
 * @param  :
 * @return :
 * @authur : Á¤Ã¢Çõ 20121126
 * @---------------------------------------------------
 */
function fTransFilm() {
	if (grd_chrtlist.row < grd_chrtlist.fixedRows)
		return;

	var sMsg = "¿µ»óÀüȯ ÇϽðڽÀ´Ï±î?";

	if (grd_chrtlist.valueMatrix(grd_chrtlist.row, grd_chrtlist.colRef("chrtflag")) == "I") {
		sMsg = "¿µ»óÀüȯÀ» Ãë¼ÒÇϽðڽÀ´Ï±î?";
		model.makeValue("/root/send/reqtrans/transyn", "N");
	} else if (grd_chrtlist.valueMatrix(grd_chrtlist.row, grd_chrtlist.colRef("chrtflag")) == "P" || grd_chrtlist.valueMatrix(grd_chrtlist.row, grd_chrtlist.colRef("chrtflag")) == "") {
		sMsg = "¿µ»óÀüȯ ÇϽðڽÀ´Ï±î?";
		model.makeValue("/root/send/reqtrans/transyn", "Y");
	} else {
		model.makeValue("/root/send/reqtrans/transyn", "");
		return;
	}
	
	model.makeValue("/root/send/reqtrans/medirecno", grd_chrtlist.valueMatrix(grd_chrtlist.row, grd_chrtlist.colRef("medirecno")));
	
	if (messageBox(sMsg, "Q000") == 7) {
		return;
	}

	

	if (submit("TXMRC00151")) {
		btn_SrchChrtInfo.dispatch("DOMActivate");
	}

}