/*
  
(SMMNR01000_¼öÇ÷°£È£±â·Ï.xrw - JScript )

- Version :
1)  : Ver.1.00.01
 */
var xTopAttributePath = "/root/main/topattribute";
var xRecgrupListPath = "/root/main/recgrup/recgruplist";
var xHIsgrupListPath = "/root/main/histgrup/histgruplist";
var xRecHIstPntListPath = "/root/main/rechistpntgrup/rechistpntlist";
var xClsListPath = "/root/main/detlgrup/detlgruplist"
var xHIsgrupListBKPath = "/root/temp/histgrup/histgruplist";

var xlrgListPath = "/root/main/lrggrup/lrggruplist"
var xCondPath = "/root/main/cond";
var xClsListBKPath = "/root/temp/main/detlgrup/detlgruplist";
var xPopWndClsListBKPath = "/root/temp/main/cond/execpopwnddetlgrup/execpopwnddetlgruplist";
var xExecDetlListPath = "/root/main/cond/execdetlgrup/execdetlgruplist";
var xPopWndExecDetlListPath = "/root/main/cond/execpopwnddetlgrup/execpopwnddetlgruplist";

var xDelDeliveExecPrcpListPath = "/root/main/cond/delivedetlgrup/delivedetlgruplist";
var xBlodReturnReqGrupListPath = "/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist";
var xBlodExecRecGrupListPath = "/root/main/cond/blodexecrecgrup/blodexecrecgruplist";
var xVitalSignPath = "/root/main/cond/vitalsigngrup/vitalsigngruplist";

var xBlodNoRecPath = "/root/main/cond/blodnoexecrecgrup/blodnoexecrecgruplist";

var ioparam = "" ;// È­¸é¿¡¼­ ³Ñ¾î¿À´Â ÆĶó¸ÞÅÍ (Àý´ë Áö¿ì¸é ¾ÈµÊ)


 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¼öÇà ³»¿ª¿¡¼­ ´õºíŬ¸¯ ÇßÀ»¶§, vital sign ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fVitalSignList(){

	var iRow = datagrid3.row ;

//	alert(model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnscarerecseq"));

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

	model.makeValue("/root/send/tnscarerecseq",model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnscarerecseq"));	

	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01025")){
	}	  

}


 /**
 * @group  :
 * @ver    : 2007.09.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹ÙÀÌÅ»½ÎÀÎ Çà»èÁ¦  
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDelRow(){

	var iRow = datagrid4.row ;

//	alert(iRow);

	if(parseInt(iRow) < 4){

		messageBox("Vital Sign ±âº»Á¤º¸´Â »èÁ¦ ","E001");
		return;	

	} else {


	    datagrid4.deleteRow(iRow);

	}
	
}

 /**
 * @group  :
 * @ver    : 2007.09.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁÙÃß°¡ ¹öÆ°    
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAddSameLevlItemButton(){

	var iRows = datagrid4.rows;
	var iRow = datagrid4.row;

	
	if(iRows > 2) {
//		alert('2');
		datagrid4.insertRow(datagrid4.rows-datagrid4.fixedrows, "below");

//		var sRowCnt = grd_detlgrup.rows-grd_detlgrup.fixedrows;	
//		
//		/* grupcd ÇöÀç È­¸éÀÇ ÃÖ´ë°ª °¡Á®¿À±â ½ÃÀÛ */
//
//		var retVal = "" ;
//		
//		for(var i=2; i<= sRowCnt; i++){
////			alert(model.getValue(xClsListPath+"["+i+"]/grupcd"));
//			if(model.getValue(xClsListPath+"["+i+"]/grupcd") ) {
//				saveyn = 1 ;
//			}
//
//			retVal = Math.max(retVal,model.getValue(xClsListPath+"["+i+"]/grupcd"));
//
////			alert("retVal : " + retVal);
//		
//		}
//
//		retVal = retVal + 1 ;
//
//		retVal = String(retVal) ;
//
//		retVal = fLpad(retVal,8,0);// grupcd 8ÀÚ¸® ³ª¸ÓÁö´Â 0 À¸·Î ¸Å²Þ
//
//		/* grupcd ÇöÀç È­¸éÀÇ ÃÖ´ë°ª °¡Á®¿À±â ³¡ */
//
////			alert("retVal 22 : " + retVal);
//
//		model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/grupcd",retVal);
//
////		grd_detlgrup.merge();

	}

//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/stat","I");
////	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/grupcd","00000001");
//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/genrdd",getCurrentDate());
//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/genrtm",getCurrentDateTime().substring(9,13));
//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/flag","µî·Ï");
//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/recdd",getCurrentDate());
//	model.setValue(xClsListPath+"["+(grd_detlgrup.row-1)+"]/rectm",getCurrentDateTime().substring(9,13));

	
}

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Âü¿©ÀÚ Á¤º¸ Æ˾÷ Á¶È¸
 * @param  : originalNode
 * @param  : copyNode
 * @return : true/false
 * @---------------------------------------------------
 */
function fClickUserBtn(userflag, seq, deptcd2, flag){

//	alert(deptcd2);
	var deptcd = "";
	var jobkindcd = "";
	var deptcd = "";
	if(userflag == "doctor"){
		deptcd = deptcd2;
		jobkindcd = "";
	}else if(userflag == "nurse"){
		deptcd = deptcd2;
		jobkindcd = "";
	}else{}
	setParameter("SPMNN02100_deptcd", deptcd);
	setParameter("SPMNN02100_jobkindcd", jobkindcd);
	
	modal("SPMNR02100");
	
	var userid = getParameter("SPMNN02100_userid");
	var usernm = getParameter("SPMNN02100_usernm");

	var posinstnm = getParameter("SPMNN02100_posinstnm");
	var posinstcd = getParameter("SPMNN02100_posinstcd");

	var posdeptnm = getParameter("SPMNN02100_posdeptnm");
	var posdeptcd = getParameter("SPMNN02100_posdeptcd");

	if(flag == "str"){

		model.setValue(output10.attribute("ref"), userid);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
		model.setValue(output11.attribute("ref"), usernm);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
		model.setValue(output12.attribute("ref"), userid+","+usernm+","+posinstnm+","+posinstcd+","+posdeptnm+","+posdeptcd);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º

	} else if(flag == "end"){

		model.setValue(output8.attribute("ref"), userid);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
		model.setValue(output9.attribute("ref"), usernm);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
		model.setValue(output13.attribute("ref"), userid+","+usernm+","+posinstnm+","+posinstcd+","+posdeptnm+","+posdeptcd);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º

	}

	model.refresh();	

//	if(userid != ""){
//		model.setValue(xPartrtnEntrPath + "/entrid" + seq, userid);
//		model.setValue(xPartrtnEntrPath + "/entrnm" + seq, usernm);
//		model.setValue(xPartrtnEntrPath + "/status", "U");
//		model.refresh();
//	}
	
	setParameter("SPMNN02100_userid", "");
	setParameter("SPMNN02100_usernm", "");
}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï ¸ñ·Ï¿¡¼­ ¼±ÅÃÇ׸ñ üũ(´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fParam(getparam) {

//	alert("ioflag : "+opener.window.javascript.getParameter("ioflag"));
//	alert("pid : "+opener.window.javascript.getParameter("pid"));
//
//	alert("getparam : "+getparam);
//	alert("session pid : "+getPatientInfo("pid"));


	var openernull = "" // Æĸ¶¸®ÅÍ null check

	var popvalue = "" ;

	var pidvalue = "" ;


	/* ¸Þ´º || ÆĶó¹ÌÅÍ·Î µé¾î¿Ã¶§ üũ ½ÃÀÛ */

	if(	window.opener == null && 
		( getparam == "IPRC1" || getparam == "IPRC2" || getparam == "OPRC1" || getparam == "OPRC2" || 
			getparam == "IPRC" || getparam == "OPRC") ) {//º´µ¿¸ÞÀÎ/Áֻ翡¼­ µé¾î¿ÀÁö ¾ÊÀ»¶§...

		openernull = 'Y';

		 if(getparam == "OPRC1"){

			button1.selected = true;
			model.toggle("case1");								
			getparam = "OPRC" ;		
			ioparam = getparam ;
				

			if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

				model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				button3.dispatch("DOMActivate");
			}

		} else if(getparam == "OPRC2"){

			button2.selected = true;
			model.toggle("case2");								
			getparam = "OPRC" ;	
			ioparam = getparam ;
				
			
			if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

				model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				button16.dispatch("DOMActivate");
			}

		} else if(getparam == "IPRC1"){

			button1.selected = true;
			model.toggle("case1");								
			getparam = "IPRC" ;	
			ioparam = getparam ;
				
			
			if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

				model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				button3.dispatch("DOMActivate");

			}

		} else if(getparam == "IPRC2"){

			button2.selected = true;
			model.toggle("case2");								
			getparam = "IPRC" ;		
			ioparam = getparam ;

			if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

				model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
				button16.dispatch("DOMActivate");
			}

		}

//		button1.selected = true;
//		model.toggle("case1");		
//		getparam = "IPRC";

	} else if( window.opener != null && (	opener.window.javascript.getParameter("ioflag") == "IPRC1" || 
											opener.window.javascript.getParameter("ioflag") == "IPRC2" || 
											opener.window.javascript.getParameter("ioflag") == "OPRC1" || 
											opener.window.javascript.getParameter("ioflag") == "OPRC2" 		)
			) {//º´µ¿¸ÞÀÎ/ÁÖ»ç½Ç¸ÞÀο¡¼­ µé¾î¿Ã¶§...

		popvalue = opener.window.javascript.getParameter("ioflag")
		pidvalue = opener.window.javascript.getParameter("pid")

		if( popvalue != null && popvalue != "" && pidvalue != null && pidvalue != "") {//Ç÷¡±×º° È­¸é case ¼±ÅÃ

			 if(popvalue == "OPRC1"){

				button1.selected = true;
				model.toggle("case1");								
				getparam = "OPRC" ;		
				ioparam = getparam ;
				
				model.setValue(input3.attribute("ref"), opener.window.javascript.getParameter("pid") );
				model.setValue(input12.attribute("ref"), opener.window.javascript.getParameter("pid") );				
				button3.dispatch("DOMActivate");

			} else if(popvalue == "OPRC2"){

				button2.selected = true;
				model.toggle("case2");								
				getparam = "OPRC" ;	
				ioparam = getparam ;
				
				model.setValue(input3.attribute("ref"), opener.window.javascript.getParameter("pid") );
				model.setValue(input12.attribute("ref"), opener.window.javascript.getParameter("pid") );				
				button16.dispatch("DOMActivate");
			
			} else if(popvalue == "IPRC1"){

				button1.selected = true;
				model.toggle("case1");								
				getparam = "IPRC" ;	
				ioparam = getparam ;
					
				
				model.setValue(input3.attribute("ref"), opener.window.javascript.getParameter("pid") );
				model.setValue(input12.attribute("ref"), opener.window.javascript.getParameter("pid") );				
				button3.dispatch("DOMActivate");
			
			} else if(popvalue == "IPRC2"){

				button2.selected = true;
				model.toggle("case2");								
				getparam = "IPRC" ;		
				ioparam = getparam ;
										

				model.setValue(input3.attribute("ref"), opener.window.javascript.getParameter("pid") );
				model.setValue(input12.attribute("ref"), opener.window.javascript.getParameter("pid") );				
				button16.dispatch("DOMActivate");
			
			}

		}

	} else 	if(	
				( getparam == "IPRC1" || getparam == "IPRC2" || getparam == "OPRC1" || getparam == "OPRC2" || getparam == "IPRC" || getparam == "OPRC") 
		  ) {// ¸Þ´º¿¡¼­ µé¾î¿Ã¶§

			 if(getparam == "OPRC1"){

				button1.selected = true;
				model.toggle("case1");								
				getparam = "OPRC" ;		
				ioparam = getparam ;
					

				if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

					model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					button3.dispatch("DOMActivate");
				}

			} else if(getparam == "OPRC2"){

				button2.selected = true;
				model.toggle("case2");								
				getparam = "OPRC" ;	
				ioparam = getparam ;
					
				
				if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

					model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					button16.dispatch("DOMActivate");
				}
			
			} else if(getparam == "IPRC1"){

				button1.selected = true;
				model.toggle("case1");								
				getparam = "IPRC" ;	
				ioparam = getparam ;
					
				
				if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

					model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					button3.dispatch("DOMActivate");

				}
			
			} else if(getparam == "IPRC2"){

				button2.selected = true;
				model.toggle("case2");								
				getparam = "IPRC" ;		
				ioparam = getparam ;

				if(getPatientInfo("pid") != null && getPatientInfo("pid") != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§

					model.setValue(input3.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					model.setValue(input12.attribute("ref"), getPatientInfo("pid")  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
					button16.dispatch("DOMActivate");
				}
			
			}

	} else if(getparam == "" || getparam == null  ) {// È­¸éÆĶó¹ÌÅÍ ¾øÀ»¶§	

		button1.selected = true;
		model.toggle("case1");		
		getparam = "IPRC";

	} else {

		openernull = 'Y';
		getparam = "" ;

	}

	/* ¸Þ´º && ÆĶó¹ÌÅÍ°¡ ¾Æ´Ñ ·ÎÄÃÀ̳ª ´Ù¸¥ °ªÀ¸·Î µé¾î¿Ã¶§ ±âº» ¼ÂÆðªÀ¸·Î ½ÃÀÛ */

	if(getparam == "" && openernull == "Y"){
		//				È­¸éÆĶó¹ÌÅÍ/Æ˾÷ÆĶó¹ÌÅÍ ¸ðµÎ ¾øÀ»¶§		
		button1.selected = true;
		model.toggle("case1");								
		getparam = "IPRC" ;	
	}

	/* ¸Þ´º && ÆĶó¹ÌÅÍ°¡ ¾Æ´Ñ ·ÎÄÃÀ̳ª ´Ù¸¥ °ªÀ¸·Î µé¾î¿Ã¶§ ±âº» ¼ÂÆðªÀ¸·Î ³¡ */



	/* ¸Þ´º || ÆĶó¹ÌÅÍ°¡ ¿Ü·¡À϶§ º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled ½ÃÀÛ */

	if(getparam == "OPRC"){ // ¿Ü·¡À϶§, º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled

		combo5.disabled = true ;
		combo1.disabled = true ;
		combo6.disabled = true ;
		combo7.disabled = true ;
		combo2.disabled = true ;
		combo8.disabled = true ;

	}

	/* ¸Þ´º || ÆĶó¹ÌÅÍ°¡ ¿Ü·¡À϶§ º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled ³¡ */

	ioparam = getparam ;

	return getparam ;

}



 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¿äûÃë¼Ò ¼±ÅÃÇßÀ»¶§...
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReqCancelDoc(){

	var sRowCnt = datagrid7.rows-datagrid7.fixedrows;
	
	var cnt = 0 ;

	model.removeNode ("/root/send/report"); 

	for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ

//		alert(datagrid7.labelmatrix(i, 1));

		if( datagrid7.labelmatrix(i, 1) == "true" ) {

			cnt = cnt + 1;


//			if( datagrid7.labelmatrix(i, 2) != "Ç÷¾×Áغñ") {
			if( datagrid7.labelmatrix(i, 2) != "ºÒÃâ¿äû") {
			
				messageBox("ºÒÃâ¿äû »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äûÃë¼Ò¸¦ ","E001");
				return;	
			
			}

			if( datagrid7.labelmatrix(i, 8).length <  5 ) {
			
				messageBox("Ç÷¾×¹øÈ£°¡ ","I004");
				return;	
			
			}

			model.makeValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]","");

			model.copyNode( "/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]", "/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]" );
//			alert(instance1.selectSingleNode("/root/send/report/delivedetlgrup/delivedetlgruplist"+"["+cnt+"]").xml);

		}

	}

	if(cnt < 1){
		messageBox("¼±Åà Á¤º¸°¡ ","I004");
		return;	
	};													

	if(messageBox("Ç÷¾×¿äû Ãë¼Ò¸¦ ","Q004") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?

	model.makeValue("/root/send/report/patientnm",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm") );									
	model.makeValue("/root/send/report/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") );	
	model.makeValue("/root/send/report/sexage",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage") );	
	model.makeValue("/root/send/report/btypee",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype") );									
	
	model.makeValue("/root/send/detlgrup",datagrid7.getupdatedataAll("i"));	
	
	if(submit("TXMNR01034")){
		fGettDeliveDetlList();// ºÒÃâ½Åû ³»¿ª ÀçÁ¶È¸
	}	
	
}


 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï ¸ñ·Ï¿¡¼­ ¼±ÅÃÇ׸ñ üũ(´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fGridSel() {

	var sRowCnt2 = datagrid2.rows-datagrid2.fixedrows;

	var iRow = datagrid2.Row ;

	if( datagrid2.labelmatrix(iRow, 1) == "FALSE" || datagrid2.labelmatrix(iRow, 1) == "false" ){
		datagrid2.textmatrix(iRow, 1) = "true" ;
	} else if( datagrid2.labelmatrix(iRow, 1) == "true"  ) {
		datagrid2.textmatrix(iRow, 1) = "FALSE" ;
	}

}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇà±â·Ï ³»¿ª »ó¼¼Á¤º¸ (´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodExecRecDetlinfo() {

	var sRowCnt = datagrid3.rows-datagrid3.fixedrows;

	var iRow = datagrid3.row ;

	model.setValue(output5.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/blodno"));
	model.setValue(output6.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpnm"));
	model.setValue(output7.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/abo") + model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/rh") );
	model.setValue(input4.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(0,8));
	model.setValue(input5.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(8,14));

	model.setValue(input6.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(0,8));
	model.setValue(input7.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(8,14));
	model.setValue(output10.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm"));
	model.setValue(output11.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm"));
	model.setValue(output8.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm"));


	model.setValue(output9.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm"));
	model.setValue(combo3.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnssideeffect"));
	model.setValue(input1.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpdelivefact"));
	model.setValue(radio1.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinuyn"));
	model.setValue(combo4.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinu"));

	model.setValue(input8.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/drugqty"));
	model.setValue(textarea1.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsrec"));

/* 
	model.makeValue("/root/send/tnsstrnurseid",		sp[0] );
	model.makeValue("/root/send/tnsstrnursenm",		sp[1] );
	model.makeValue("/root/send/tnsstrnursedeptcd", sp[5] );
	model.makeValue("/root/send/tnsstrnursedeptnm", sp[4] );
*/
	model.setValue(output12.attribute("ref"), 
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnurseid")+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm")+","+","+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm")+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptcd")

	);

//	alert(output12.value);

	model.setValue(output13.attribute("ref"), 
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnurseid")+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm")+","+","+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm")+","+
		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptcd")

	);

//	alert(output13.value);

//			model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnurseid")+","+
//		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm")+","+
//		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptcd")+","+
//		model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm")		

	model.refresh();

	var sRowCnt2 = datagrid2.rows-datagrid2.fixedrows;
	
	for(var i=1; i<= sRowCnt2; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ

		datagrid2.textmatrix(i, 1) = "FALSE" ;

	}

}


 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetBlodExecRecList(blodpidflag){

	var sRowCnt = datagrid5.rows-datagrid5.fixedrows;	

	if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
	
		messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
		model.setfocus("input13");
		return;	
	
	}

	model.refresh();

	model.makeValue("/root/send/blodpidflag",blodpidflag);	

	model.makeValue("/root/send/blodno", input13.value  );
	model.makeValue("/root/send/prcpddfrom", input9.value  );
	model.makeValue("/root/send/prcpddto", input10.value  );
	model.makeValue("/root/send/wardcd", combo5.value  );
	model.makeValue("/root/send/roomcd", combo1.value  );
	model.makeValue("/root/send/hngnm", combo6.value  );
	model.makeValue("/root/send/pid", input12.value  );
	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01024")){
	}	  

}

  /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷°£È£±â·Ï ±â·ÏÀúÀå ¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fTnsRecSave(){

	/* ¼öÇ÷Áß´ÜÀÌ Y À϶§ ¼öÇ÷Æó±â·Î »óÅ º¯°æ ½ÃÀÛ */

	if( radio1.value == 'Y') {

//		alert(output5.value.length);

		var blodnodupSource = new Array();

		if(output5.value.length > 10){
//			alert('1');

			blodnodupSource = output5.value.split(",") ;

		} else {
//			alert('2' + output5.value);
			blodnodupSource[0] = output5.value ;

		}

//		alert('3' + blodnodupSource[0]);

		for(var i=0; i<= blodnodupSource.length -1 ; i++){
//		alert('4 : ' + blodnodupSource[i]);
			for(var n=1; n<= datagrid1.rows-1 ; n++){

//				alert('5 : ' + model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno"));

				if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ
//					alert('666');
//					model.setValue(xBlodReturnReqGrupListPath+"["+n+"]/stat") = 'true' ;
//					model.setValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflag") = '3' ;
//					model.setValue(xBlodReturnReqGrupListPath+"["+n+"]/returnabandondate") = getCurrentDate() ;
//					model.setValue(xBlodReturnReqGrupListPath+"["+n+"]/etcprcpresncd") = combo4.value ;

					datagrid1.valuematrix(n,1) = 'true' ;
					datagrid1.valuematrix(n,10) =  '3' ;
					datagrid1.valuematrix(n,11) = getCurrentDate() ;
					datagrid1.valuematrix(n,12) = combo4.value ;

				}

//				alert(datagrid1.labelmatrix(n, 1));
//				alert(datagrid1.labelmatrix(n, 10));
//				alert(datagrid1.labelmatrix(n, 11));
//				alert(datagrid1.labelmatrix(n, 12));

			}

			for(var x=1; x<= datagrid2.rows-1 ; x++){

				if( blodnodupSource[i] ==  model.getValue(xBlodNoRecPath+"["+x+"]/blodno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ

					datagrid2.valuematrix(n,1) = 'true' ;

				}

			}

		}

		var cnt = 0 ;

		for(var i=1; i<= datagrid1.rows ; i++){//üũµÈ ±×¸®µå °ª üũ

			if( datagrid1.labelmatrix(i, 1) == "true" ) {

				cnt = cnt + 1;

				// ****************************** ¹Ý³³»çÀ¯ Çʼö ·ÎÁ÷ Ãß°¡ ***************************************

				//alert(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd"));

				if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == ""){//¹Ý³³/Æó±â¸¦ üũ
					messageBox("¹Ý³³/Æó±â¸¦ ","C002");
					return;			
				}

				if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == ""){//¹Ý³³/Æó±âÀÏ Ã¼Å©
					messageBox("¹Ý³³/Æó±âÀÏÀ» ","C002");
					return;			
				}

				if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == ""){//¹Ý³³»çÀ¯ üũ
					messageBox("¹Ý³³/Æó±â »çÀ¯¸¦ ","C002");
					return;			
				}

			}

		}

		if(cnt < 1){
			messageBox("¼±Åà Á¤º¸°¡ ","I004");
			return;	
		};

		model.removenode("/root/send");
		model.makeValue("/root/send/detlgrup2",datagrid1.getupdatedataAll("i"));
		model.makeValue("/root/send/discontinuyn2", "Y"  );

	} else {

		var blodnodupSource2 = new Array();

		if(output5.value.length > 10){
//			alert('1');

			blodnodupSource2 = output5.value.split(",") ;

		} else {
//			alert('2' + output5.value);
			blodnodupSource2[0] = output5.value ;

		}

//		alert('3' + blodnodupSource[0]);

		for(var i=0; i<= blodnodupSource2.length -1 ; i++){

			for(var x=1; x<= datagrid2.rows-1 ; x++){

				if( blodnodupSource2[i] ==  model.getValue(xBlodNoRecPath+"["+x+"]/blodno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ

					datagrid2.valuematrix(x,1) = 'true' ;

				}

			}

		}

	}

	/* ¼öÇ÷Áß´ÜÀÌ Y À϶§ ¼öÇ÷Æó±â·Î »óÅ º¯°æ ³¡ */

//	return ;


	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno") == ""){

		messageBox("Ç÷¾×¹øÈ£¸¦ ","C002");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpnm") == ""){

		messageBox("Ç÷¾×¸íÀ» ","C002");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/abo") == ""){

		messageBox("Ç÷¾×ÇüÀ» ","C002");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrdd") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrtm") == "" ) {

		messageBox("¼öÇ÷½ÃÀ۽ð£À» ","C001");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") == "" ) {

		messageBox("¼öÇ÷Á¾·á½Ã°£À» ","C001");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursdeptnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall") == "") {

		messageBox("¼öÇ÷½ÃÀÛ °£È£»ç¸¦ ","C002");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursdeptnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursall") == "") {

		messageBox("¼öÇ÷Á¾·á °£È£»ç¸¦ ","C002");
		return;	

	}

	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec") == "" ) {

		messageBox("¼öÇ÷±â·ÏÀ» ","C001");
		return;	

	}

	model.makeValue("/root/send/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") ) ;
	model.makeValue("/root/send/blodno",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno") ) ;

	model.makeValue("/root/send/tnsstrddtm",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrdd") + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrtm") );
	model.makeValue("/root/send/tnsendddtm",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") );
	
	model.makeValue("/root/send/tnsstrnursall",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall") );
	model.makeValue("/root/send/tnsendnursall",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursall") );
	model.makeValue("/root/send/sideeffectcomcodelist",model.getValue("/root/main/cond/tnsnursereccdgrup/sideeffectcomcodelist") );
//	model.makeValue("/root/send/prcpdelivefact",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpdelivefact") );
	model.makeValue("/root/send/discontinuyn",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinuyn") );

	model.makeValue("/root/send/discontinucomcodelist",model.getValue("/root/main/cond/tnsnursereccdgrup/discontinucomcodelist") );
	model.makeValue("/root/send/drugqty",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/drugqty") );
	model.makeValue("/root/send/tnsrec",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec") );

	var sp = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall").split(",");

	//alert(sp);

	model.makeValue("/root/send/tnsstrnurseid",		sp[0] );
	model.makeValue("/root/send/tnsstrnursenm",		sp[1] );
	model.makeValue("/root/send/tnsstrnursedeptcd", sp[5] );
	model.makeValue("/root/send/tnsstrnursedeptnm", sp[4] );

	var sp2 = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursall").split(",");

	//alert(sp2);

	model.makeValue("/root/send/tnsendnurseid",		sp2[0] );
	model.makeValue("/root/send/tnsendnursenm",		sp2[1] );
	model.makeValue("/root/send/tnsendnursedeptcd", sp2[5] );
	model.makeValue("/root/send/tnsendnursedeptnm", sp2[4] );

	model.makeValue("/root/send/ioparam", ioparam);


	var check = "" ;

	var sRowCnt = datagrid3.rows-datagrid3.fixedrows;
	
	for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ

//		alert(datagrid3.labelmatrix(i, 3));
//
//		alert(output5.value);

		if( datagrid3.labelmatrix(i, 3) == output5.value ) {

			check = "Y" ;

		}

	}

	/*	ÀúÀå / ¾÷µ¥ÀÌÆ® ±¸ºÐ üũ ³¡ */


	if( check != "Y" ){// ½Å±Ô ÀúÀå

		model.makeValue("/root/send/instcd",		 "" );
		model.makeValue("/root/send/execprcpuniqno",		 "" );

		//alert("½Å±Ô ÀúÀå");

		model.makeValue("/root/send/detlgrup",datagrid2.getupdatedataAll("i"));
		model.makeValue("/root/send/vitalgrup",datagrid4.getupdatedataAll("i"));

		if(messageBox("","Q002") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?

		if(submit("TXMNR01031")){
			model.copyNode("/root/hidden/main","/root/main");

			var pidblodflag = '';
			if(input12.value != ""){
				pidblodflag = 'pid';
			} else if (input13.value !="") {
				pidblodflag = 'blod';										
			}
			fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ®	
			fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®																		
			fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ®	
		}

	} else if( check == "Y") {// ¾÷µ¥ÀÌÆ®

		model.makeValue("/root/send/prcpdd",		"" );
		model.makeValue("/root/send/prcpno",		"" );
		model.makeValue("/root/send/prcphistno",	"" );
		model.makeValue("/root/send/instcd",		 "" );
		model.makeValue("/root/send/execprcpuniqno",		 "" );

		//alert("¾÷µ¥ÀÌÆ®");

		if(messageBox("","Q002") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?

		model.makeValue("/root/send/detlgrup",datagrid3.getupdatedataAll("i"));

		if(submit("TXMNR01032")){
			model.copyNode("/root/hidden/main","/root/main");

			var pidblodflag = '';
			if(input12.value != ""){
				pidblodflag = 'pid';
			} else if (input13.value !="") {
				pidblodflag = 'blod';										
			}
			fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ®	
			fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®																		
			fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ®	
		}

	}

}

  /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï¸ñ·Ï¿¡¼­ ¼±ÅÃÇÑ Ç÷¾×Á¤º¸ ±â·Ï¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fExecRec(){

	var sRowCnt = datagrid2.rows-datagrid2.fixedrows;		

	var cnt = 0 ;

	model.removenode("/root/send");
	model.makeValue("/root/send/detlgrup",datagrid2.getupdatedataAll("i"));
	
	var blodno = "" ;
	var prcpnm = "" ;
	var aborh = "" ;
	var prcpdelivefact = "" ;
	var duplreccheck = false ;
	
	/* ¹Ì¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ½ÃÀÛ */

	for(var i=1; i<= sRowCnt; i++){

//		alert(datagrid2.labelmatrix(i, 1));

		if( datagrid2.labelmatrix(i, 1) == "true" ) {

			blodno += datagrid2.labelmatrix(i, 2) + "," ;
			prcpnm += datagrid2.labelmatrix(i, 3) + "," ;
			aborh += datagrid2.labelmatrix(i, 4)+datagrid2.labelmatrix(i, 5) + "," ;
			prcpdelivefact += datagrid2.labelmatrix(i, 10) + "," ;

			cnt = cnt + 1;

		}

	}

	if(cnt < 1){
		messageBox("¼±Åà Á¤º¸°¡ ","I004");
		return;	
	};

	/* ¹Ì¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ³¡ */

	var blodnodupSource =  blodno.substr(0,blodno.length-1).split(",");

//	alert(blodnodupSource);


	/* ¹Ì¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ½ÃÀÛ */


	for(var i=0; i<= blodnodupSource.length; i++){

//		alert(datagrid2.labelmatrix(i, 1));

		for(var n=0; n<= datagrid3.rows; n++){

			if( blodnodupSource[i] ==  model.getValue(xBlodExecRecGrupListPath+"["+n+"]/blodno") ) {

				duplreccheck = true ;

			}

		}

	}

	/* ¹Ì¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ³¡ */

//	alert(blodno.substr(0,blodno.length-1));

//	if( duplreccheck ){// Áߺ¹±â·Ï üũ
//		messageBox("¼öÇà±â·ÏµÈ Ç÷¾×À» Áߺ¹À¸·Î ±â·ÏÇÒ¼ö ","I004");
//		return;	
//	};

//	fClearChildNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
//	fClearChildNode("/root/main/cond/tnsnursereccdgrup/sideeffectcomcodelist");
//	fClearChildNode("/root/main/cond/tnsnursereccdgrup/discontinucomcodelist");
	
//	model.refresh();	

	model.setValue(output5.attribute("ref"), blodno.substr(0,blodno.length-1) );
	model.setValue(output6.attribute("ref"), prcpnm.substr(0,prcpnm.length-1) );
	model.setValue(output7.attribute("ref"), aborh.substr(0,aborh.length-1) );
	model.setValue(radio1.attribute("ref"), "N" );

	model.setValue(input1.attribute("ref"), prcpdelivefact.substr(0,prcpdelivefact.length-1) );//Àü´Þ»çÇ×

	model.setValue(input4.attribute("ref"), getCurrentDate() );
	model.setValue(input5.attribute("ref"), getCurrentTime() );

	model.setValue(output10.attribute("ref"), getUserId() );
	model.setValue(output11.attribute("ref"), getUserInfo("dutplcenm") );
	model.setValue(output12.attribute("ref"), getUserInfo("userid")+","+getUserInfo("usernm")+","+getUserInfo("dutplceinstnm")+","+getUserInfo("dutplceinstcd")+","+getUserInfo("dutplcenm")+","+getUserInfo("dutplcecd"));// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º

	model.setValue(output8.attribute("ref"), getUserId() );
	model.setValue(output9.attribute("ref"), getUserInfo("dutplcenm") );
	model.setValue(output13.attribute("ref"), getUserInfo("userid")+","+getUserInfo("usernm")+","+getUserInfo("dutplceinstnm")+","+getUserInfo("dutplceinstcd")+","+getUserInfo("dutplcenm")+","+getUserInfo("dutplcecd"));// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º

	/* ¹Ì¼öÇà³»¿ª ¸®½ºÆ®¿¡¼­ ±â·Ï¹öÆ° ´©¸¦¶§ vital sign ÃøÁ¤½ÃÀÛ ÃøÁ¤ÀϽÃ/½Ã°£ 15ºÐÈÄ ÀϽà ½Ã°£ ¼ÂÆà ½ÃÀÛ */

	datagrid4.valuematrix(1,1) = getCurrentDate() ;
	datagrid4.valuematrix(1,2) = getCurrentTime() ;

	/* ¹Ì¼öÇà³»¿ª ¸®½ºÆ®¿¡¼­ ±â·Ï¹öÆ° ´©¸¦¶§ vital sign ÃøÁ¤½ÃÀÛ ÃøÁ¤ÀϽÃ/½Ã°£ 15ºÐÈÄ ÀϽà ½Ã°£ ¼ÂÆà ³¡ */

	model.refresh();

//	var sp1 = getUserInfos();
//	var	sp2 = sp1.split("|")
//	alert(sp2[0]);
//	alert(sp2[1]);
//	alert(sp2[7]);
//	alert(sp2[6]);
//	alert(sp2[9]);
//	alert(sp2[8]);
//	output10.value =  sp[4];
//	output11.value =  sp[1];
//	output12.value =  sp2;		

	if(submit("TRMNR01023")){
		model.copyNode("/root/hidden/main","/root/main");
	}

}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¿äû¼­ ¼±ÅÃÇßÀ»¶§...
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReqDoc(){

	var sRowCnt = datagrid7.rows-datagrid7.fixedrows;
	
	var cnt = 0 ;

	model.removeNode ("/root/send/report"); 

	for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ

//		alert(datagrid7.labelmatrix(i, 35));
//
//		return ;

		if( datagrid7.labelmatrix(i, 1) == "true" ) {


//			alert(datagrid7.labelmatrix(i, 35));

//			return ;

			cnt = cnt + 1;

//			if( datagrid7.labelmatrix(i, 2) != "°Ë»ç¿Ï·á" ) { //  ÄÚµå º¯°æÈÄ ¹Ù²Ù±â
//			if( datagrid7.labelmatrix(i, 35) != "520") {// 520 Ç÷¾×Áغñ (°øÅëÄÚµå)
//			
////				messageBox("°Ë»ç¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");//  ÄÚµå º¯°æÈÄ ¹Ù²Ù±â
//
////				if(datagrid7.labelmatrix(i, 35) == "525"){
////					messageBox("Ç÷¾×¿äû¼­¸¦ ÀÌ¹Ì Ãâ·ÂÇÑ »óÅÂÀÔ´Ï´Ù. Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
////					return;	
////				} else
//					
////				if(datagrid7.labelmatrix(i, 35) != "520" && datagrid7.labelmatrix(i, 35) != "525"){
////					messageBox("Áغñ¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
////					return;	
////				}
//			
//			}

			if(datagrid7.labelmatrix(i, 36) != "520" && datagrid7.labelmatrix(i, 36) != "525"){
				messageBox("Áغñ¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
				return;	
			}

			if( datagrid7.labelmatrix(i, 8).length <  5 ) {
			
				messageBox("Ç÷¾×¹øÈ£°¡ ","I004");
				return;	
			
			}

			model.makeValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]","");

			model.copyNode( "/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]", "/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]" );
//			alert(instance1.selectSingleNode("/root/send/report/delivedetlgrup/delivedetlgruplist"+"["+cnt+"]").xml);

		}

	}

	if(cnt < 1){
		messageBox("¼±Åà Á¤º¸°¡ ","I004");
		return;	
	};													

	if(messageBox("Ç÷¾×¿äû Ãâ·ÂÀ» ","Q004") != 6) return;

	model.makeValue("/root/send/report/patientnm",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm") );									
	model.makeValue("/root/send/report/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") );	
	model.makeValue("/root/send/report/sexage",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage") );	
	model.makeValue("/root/send/report/btypee",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype") );		model.makeValue("/root/send/report/wardnm",combo7.value );	
	model.makeValue("/root/send/report/roomcd",combo2.value );							

	model.makeValue("/root/send/ioparam", ioparam);
	
//	exeReportPreview("RFMNR01000", "XMLSTR");
/*
exeReportPreview(·¹Æ÷Æ®¸í, ¿¬°è¹æ¹ý, ¸Å°³º¯¼öÇʵå XPath, SubmitID, Ãâ·Â¿©ºÎ, Àμâ â º¸ÀÓ ¿©ºÎ,  ÀúÀåŸÀÔ, ÆÄÀϸí, ÆÄÀÏ ÀúÀå â º¸ÀÓ¿©ºÎ, ¹Ì¸®º¸±ââ´Ý±â¿©ºÎ, ¸ð´ÏÅÍ ¹øÈ£, µ¥ÀÌÅÍ ¼Ò½º, µ¥ÀÌÅÍ XPath , ¸ÞÀθ®Æ÷Æ® ¹Ýº¹XPath, ¼­ºê¸®Æ÷Æ®1 ¹Ýº¹Xpath)

*/
	exeReportPreview("RFMNR01000", "XMLSTR", "", "", "true", "", "", "", "", "");
	
	model.makeValue("/root/send/detlgrup",datagrid7.getupdatedataAll("i"));	

	if(submit("TXMNR01033")){
		fGettDeliveDetlList();// ºÒÃâ½Åû ³»¿ª ÀçÁ¶È¸
	}	
	
}


 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ ³»¿ª ¼±Åà »èÁ¦ (½ÅûÃë¼Ò)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fDelDeliveExecPrcp(){

	alert();

	var sRowCnt = datagrid7.rows-datagrid7.fixedrows;	

	var cnt = 0 ;

	for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ

	//		alert(datagrid7.labelmatrix(i, 1));

		if( datagrid7.labelmatrix(i, 1) == "true" ) {

			cnt = cnt + 1;

//			if( datagrid7.labelmatrix(i, 2) != "500" ) {
//			
//				messageBox("ºÒÃâ½Åû ÀÌ¿ÜÀÇ »óÅ¿¡¼­´Â »èÁ¦ÇÒ ¼ö ","I004");
//				return;	
//			
//			}

			alert(model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/prcppreptfflag");

			if( datagrid7.labelmatrix(i, 36) != "000") {// 500 ºÒÃâ¿äû (°øÅëÄÚµå)
			
				messageBox("Ç÷¾×ÀºÇà¿¡ Á¢¼öµÈ »óÅ¿¡¼­´Â ½ÅûÃë¼Ò ÇÒ ¼ö ","I004");
				return;	
				
			} else if( datagrid7.labelmatrix(i, 36) == "ÀÇ»ç") {// ÀÇ»ç ó¹æ »èÁ¦ ºÒ°¡´É
			
				messageBox("ÀÇ»çó¹æÀº ½ÅûÃë¼Ò ÇÒ ¼ö ","I004");
				return;	
				
			}

		}

	}

	if(cnt < 1){
		messageBox("¼±Åà Á¤º¸°¡ ","I004");
		return;	
	};

//	alert("°³¹ß ÁßÀÔ´Ï´Ù.");

//	return ;

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

	model.refresh();

//	model.makeValue("/root/send/blodpidflag",blodpidflag);	

	model.makeValue("/root/send/blodno", input13.value  );
	model.makeValue("/root/send/prcpddfrom", input9.value  );
	model.makeValue("/root/send/prcpddto", input10.value  );
	model.makeValue("/root/send/wardcd", combo5.value  );
	model.makeValue("/root/send/roomcd", combo1.value  );
	model.makeValue("/root/send/hngnm", combo6.value  );
	model.makeValue("/root/send/pid", input12.value  );

	model.makeValue("/root/send/ioparam", ioparam);


	/* ¾çõ´ö½Ã ·ÎÁ÷ ½ÃÀÛ */

    	if(messageBox ( "½ÅûÃë¼Ò¸¦ ", "Q004" ) == "6"){

			model.makeValue("/root/send/detlgrup",datagrid7.getupdatedataAll("i"));	
    			
    	    if(submit("TXMNR01035") == true ){
				fGetExecDetlList();// ¼öÇàó¹æ³»¿ª¸®½ºÆ®	
				fGettDeliveDetlList();//  ºÒÃâ½Åû ³»¿ª ¸®½ºÆ®	
    	    }
		 }

	/* ¾çõ´ö½Ã ·ÎÁ÷ ³¡ */

}

 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetBlodNoExecRecList(blodpidflag){

	var sRowCnt = datagrid5.rows-datagrid5.fixedrows;	

	if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
	
		messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
		model.setfocus("input13");
		return;	
	
	}

	/* ¼öÇ÷°£È£±â·Ï ³»¿ë ÃʱâÈ­ */
//	fClearChildNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
//	fClearChildNode("/root/main/cond/tnsnursereccdgrup/sideeffectcomcodelist");
//	fClearChildNode("/root/main/cond/tnsnursereccdgrup/discontinucomcodelist");
//	
//	model.refresh();

	model.makeValue("/root/send/blodpidflag",blodpidflag);	

	model.makeValue("/root/send/blodno", input13.value  );
	model.makeValue("/root/send/prcpddfrom", input9.value  );
	model.makeValue("/root/send/prcpddto", input10.value  );
	model.makeValue("/root/send/wardcd", combo5.value  );
	model.makeValue("/root/send/roomcd", combo1.value  );
	model.makeValue("/root/send/hngnm", combo6.value  );
	model.makeValue("/root/send/pid", input12.value  );

	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01021")){
	}	  

}

  /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ³»¿ªÀÇ Ç÷¾×¹Ý³³ÀÇ·Ú ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReturnSave(){

	var sRowCnt = datagrid1.rows-datagrid1.fixedrows;		

	var cnt = 0 ;

	model.removenode("/root/send");
	model.makeValue("/root/send/detlgrup",datagrid1.getupdatedataAll("i"));	
	
	var saveyn = 0 ;

	for(var i=1; i<= sRowCnt; i++){

		//alert(datagrid1.labelmatrix(i, 1));

		if( datagrid1.labelmatrix(i, 1) == "true" ) {

			cnt = cnt + 1;

			// ****************************** ¹Ý³³»çÀ¯ Çʼö ·ÎÁ÷ Ãß°¡ ***************************************

			//alert(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd"));

			if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == ""){//¹Ý³³/Æó±â¸¦ üũ
				messageBox("¹Ý³³/Æó±â¸¦ ","C002");
				return;			
			}

			if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == ""){//¹Ý³³/Æó±âÀÏ Ã¼Å©
				messageBox("¹Ý³³/Æó±âÀÏÀ» ","C002");
				return;			
			}

			if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == ""){//¹Ý³³»çÀ¯ üũ
				messageBox("¹Ý³³/Æó±â »çÀ¯¸¦ ","C002");
				return;			
			}

		}

	}

	if(cnt < 1){
		messageBox("¼±Åà Á¤º¸°¡ ","I004");
		return;	
	};

	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TXMNR01030")){
		model.copyNode("/root/hidden/main","/root/main");
	}

	/* ¹Ý³³/Æó±â ÀÌÈÄ Á¤º¸ Á¶È¸ ½ÇÇà */

	var pidblodflag = '';
	if(input12.value != ""){
		pidblodflag = 'pid';
	} else if (input13.value !="") {
		pidblodflag = 'blod';										
	}								
	fBlodDeliveList(pidblodflag); //Ç÷¾×ºÒÃâ ¸®½ºÆ® Á¶È¸¹öÆ°
	fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®

}

 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fBlodDeliveList(blodpidflag){

	var sRowCnt = datagrid5.rows-datagrid5.fixedrows;	

	if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
	
		messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
		model.setfocus("input13");
		return;	
	
	}

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

	model.refresh();

	model.makeValue("/root/send/blodpidflag",blodpidflag);	

	model.makeValue("/root/send/blodno", input13.value  );
	model.makeValue("/root/send/prcpddfrom", input9.value  );
	model.makeValue("/root/send/prcpddto", input10.value  );
	model.makeValue("/root/send/wardcd", combo5.value  );
	model.makeValue("/root/send/roomcd", combo1.value  );
	model.makeValue("/root/send/hngnm", combo6.value  );
	model.makeValue("/root/send/pid", input12.value  );

	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01020")){

		for(var i = 1 ; i < datagrid1.rows; i++ ){

			if(	model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/prcphistcd") == 'E' ) {

				datagrid1.isReadOnly(i, datagrid1.colRef("reqflag")) = true;
				datagrid1.isReadOnly(i, datagrid1.colRef("returnabandondate")) = true;
				datagrid1.isReadOnly(i, datagrid1.colRef("etcprcpresncd")) = true;
				datagrid1.isReadOnly(i, datagrid1.colRef("stat")) = true;
				datagrid1.rowstyle(i, "data", "background-color") = "#fff000";

			}		

		}

	}	  

	model.setfocus("input13");		

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ºÒÃâ½Åû ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGettDeliveDetlList(){


	if( model.getValue("/root/main/cond/wardcdgrup/wardcdgruplist") == "" ){
	
//		messageBox("º´µ¿À» ","C002");
//		model.setfocus("combo7");
//		return;	
	
	}

	model.removenode("/root/send");
	
	model.makeValue("/root/send/prcpddfrom", input2.value);
	model.makeValue("/root/send/prcpddto", input11.value);
	model.makeValue("/root/send/wardcd", combo7.value);	
	model.makeValue("/root/send/roomcd", combo2.value);	
	model.makeValue("/root/send/hngnm", combo8.value);
	model.makeValue("/root/send/pid", input3.value);

	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01009")){
	}	  

}

/**
 * @group  :
 * @ver    : 2007.04.02
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇàó¹æ ¼±Åýà üũ»çÇ×
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 	
function fSelchange(){

	var iRow = datagrid5.row ;

//	alert(parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/prcpqty")));
//
//	alert(parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/appno")));

	if( parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/prcpqty")) <= parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/appno")) ) {

		model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;

		messageBox("½Åû¼ö·®ÀÌ Ã³¹æ¼ö·®º¸´Ù Ŭ ¼ö ","I004");
		return;			

	}

	if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "D/C") {

		model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;

		messageBox("D/C »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
		return;			

	} else 	if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "˂ȍ") {

		model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;

		messageBox("ÀÇ»ç »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
		return;			

	} else 	if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "¿Ï·á") {

		model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;

		messageBox("¿Ï·á »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
		return;			

	} else 	if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") != "ó¹æ") {

		model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;

		messageBox("ó¹æ »óÅ ÀÌ¿Ü¿¡´Â ½ÅûÇÒ ¼ö ","I004");
		return;			

	}
	
}


/**
 * @group  :
 * @ver    : 2007.04.02
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ±×¸®µåÀÇ °ªÀÌ º¯°æµÇ¾úÀ»¶§, »óÅ°ªÀ» º¯°æÇÑ´Ù.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 	
function fChangedGridCol(){

	var sDetlGrupRow = datagrid5.row;
	var sDetlGrupBKRow=0;

	var num = model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/num");

	for(var i=1; i<= getNodesetCount(xPopWndClsListBKPath); i++){
		if(model.getValue(xPopWndClsListBKPath+"["+i+"]/num") == num){
			sDetlGrupBKRow = i;
			break;
		}
	}

	if(event.keyCode == "32") {
		messageBox("½Åû¼ö·®¿¡ ½ºÆäÀ̽º¸¦ ³ÖÀ» ¼ö ","I004");
		model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","-");
		model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno","");
		datagrid5.refresh();
		return;											
	}

	var irr = datagrid5.textmatrix(sDetlGrupRow,6) ;

	if(model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno") == "0" || model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno") == ""){
		model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","-");
		datagrid5.rebuild();
		//return;	
	}

//	alert(instance1.selectSingleNode(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]").xml);
//
//	alert(instance1.selectSingleNode(xPopWndClsListBKPath+"["+sDetlGrupBKRow+"]").xml);

	if(instance1.selectSingleNode(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]").xml != instance1.selectSingleNode(xPopWndClsListBKPath+"["+sDetlGrupBKRow+"]").xml){
		model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","I");
		datagrid5.rebuild();

	} 

}

 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fPopWndSave(){

	var sRowCnt = datagrid5.rows-datagrid5.fixedrows;		

	model.removenode("/root/send");
	model.makeValue("/root/send/detlgrup",datagrid5.getupdatedataAll("i"));	
	
	var saveyn = 0 ;

	for(var i=1; i<= sRowCnt; i++){

		if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/stat") != "-") {

			saveyn = 1 ;

		}

		if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/stat") != "-" && model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno") == ""){
			messageBox("½Åû¼ö·®Àº ","I003");
			return;			
		}

//		if(	!isNumber(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno"))	) {
//
//			messageBox("¼ýÀÚÇüÀ» ","C001");
//			return;	
//
//		}

		if( parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) < 1 || parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) == " " ) {

			messageBox("½Åû¼ö·®Àº 1°Ç ÀÌÇÏ·Î ÀÔ·ÂÇÒ ¼ö ","E001");
			return;			
		}
		
		if( parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/delivepossno")) < parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) ) {

			messageBox("½Åû¼ö·®Àº ºÒÃâ¼ö·®º¸´Ù Å©°Ô ÀÔ·Â ","E001");
			return;			
		}

//		alert( model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd")  );
//		alert( model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm")  );

		if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd") == "" || model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm") == ""){
			messageBox("¿¹¾àÀÏÀÚ/¿¹¾à½Ã°£Àº ","I003");
			return;			
		}


	
	}

	if(saveyn <= 0 ){
		messageBox("¼öÁ¤»çÇ×ÀÌ ¾ø¾î ÀúÀå ","E001");
		return;
	}
	
			//alert("result : " + saveyn);
//	if(saveyn <= 0 ){
//		messageBox("¼öÁ¤»çÇ×ÀÌ ¾ø¾î ÀúÀå ","E001");
//		return;	
//	}

	//alert(model.getValue("/root/main/cond/clsflag"));
	//alert(model.getValue("/root/main/cond/recflag"));
	
	
	//if(messageBox("","Q002") != 6) return;
	//alert(model.getValue("/root/main/cond/todd"));
//	model.makeValue("/root/send/lrggrupcd", model.getValue(xCondPath+"/lrggrupcd"));
//	model.makeValue("/root/send/clsflag", model.getValue("/root/main/cond/clsflag"));
//	model.makeValue("/root/send/recflag", model.getValue("/root/main/cond/recflag"))
//	model.makeValue("/root/send/todd2", model.getValue("/root/main/cond/todd"))
	//alert(model.getValue("/root/send/todd2"));		
	if(submit("TXMNR01008")){
		model.copyNode("/root/hidden/main","/root/main");
	}

//	grd_detlgrup.row = 1;

	window.close();

}

 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */


function fPopWndInit(){

	model.makeValue("/root/send/prcpddfrom",          opener.window.javascript.getParameter("prcpddfrom") );
	model.makeValue("/root/send/prcpddto",			  opener.window.javascript.getParameter("prcpddto") );
	model.makeValue("/root/send/wardcd",		      opener.window.javascript.getParameter("wardcd") );
	model.makeValue("/root/send/roomcd",			  opener.window.javascript.getParameter("roomcd") );
	model.makeValue("/root/send/pid",				  opener.window.javascript.getParameter("pid") );
	model.makeValue("/root/send/queryprcpdd",		  opener.window.javascript.getParameter("queryprcpdd") );
	model.makeValue("/root/send/queryprcpno",		  opener.window.javascript.getParameter("queryprcpno") );
	model.makeValue("/root/send/queryprcphistno",	  opener.window.javascript.getParameter("queryprcphistno") );


	//alert(prcpddfrom);	alert(prcpddto);	alert(wardcd);	alert(roomcd);	alert(pid);
					
	if(submit("TRMNR01007")){

		model.copyNode("/root/temp/main","/root/main");

		for(var i = 1 ; i < datagrid5.rows ; i++) {

			model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd",getCurrentDate());			
			model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm",getCurrentTime());			
			
		}

	}	

}


 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ½Åû Æ˾÷
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPopWnd(){

	var iRows = datagrid5.rows;

	var queryprcpdd = "" ;
	var queryprcpno = "" ;
	var queryprcphistno = "" ;

	var checkcnt = 0 ;

	for(var i = 1 ; i < datagrid5.rows; i++ ) {// Àüü¸¦ µ¹¸é¼­ ±×·ì¿¡ °ªÀÌ Ã¼Å©µÇ¾î ÀÖ´Â°Í ÃʱâÈ­

		if(	model.getValue(xExecDetlListPath+"["+ i +"]/sel") ==  "true" ) {

			// alert("111");

			queryprcpdd		= queryprcpdd		+ "'" + model.getValue(xExecDetlListPath+"["+ i +"]/prcpdd2") + "'," ;
			queryprcpno		= queryprcpno		+ "" + model.getValue(xExecDetlListPath+"["+ i +"]/prcpno") + "," ;
//			alert(model.getValue(xExecDetlListPath+"["+ i +"]/prcphistno"));
			queryprcphistno = queryprcphistno	+ "" + model.getValue(xExecDetlListPath+"["+ i +"]/prcphistno") + "," ;

			checkcnt++ ;

		} else {

			 // alert("222");
		
		}
		
	}

	if( checkcnt <= 0 ) {
	
		messageBox("¼öÇ÷ó¹æ³»¿ªÀ» ","C002");
		return 0 ;	
	
	}

	queryprcpdd = queryprcpdd.replace(/-/g,"")

//	alert(queryprcpdd.replace(/-/g,""));
//	alert(queryprcpdd.substr(0,queryprcpdd.length-1));
//	alert(queryprcpno.substr(0,queryprcpno.length-1));
//	alert(queryprcphistno.substr(0,queryprcphistno.length-1));

	queryprcpdd = queryprcpdd.substr(0,queryprcpdd.length-1) ;
	queryprcpno = queryprcpno.substr(0,queryprcpno.length-1) ;
	queryprcphistno = queryprcphistno.substr(0,queryprcphistno.length-1) ;

//	for(var i = 0 ; i < data.length; i++ ) {
//
//		queryprcpno =  queryprcpno + data[i]  ;
//
//	}


	setParameter("prcpddfrom", input2.value);
	setParameter("prcpddto", input11.value);
	setParameter("wardcd", combo7.value);
	setParameter("roomcd", combo2.value);
	setParameter("pid", input3.value);
	setParameter("queryprcpdd", queryprcpdd);
	setParameter("queryprcpno", queryprcpno);
	setParameter("queryprcphistno", queryprcphistno);


	var left = event.screenX-1000;
	var top = event.screenY+50;
	modal("SMMNR01001",1,left,top);

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇàó¹æ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetExecDetlList(){

	if( model.getValue("/root/main/cond/wardcdgrup/wardcdgruplist") == "" ){
	
//		messageBox("º´µ¿À» ","C002");
//		model.setfocus("combo7");
//		return;	
	
	}

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

	model.makeValue("/root/send/prcpddfrom", input2.value);
	model.makeValue("/root/send/prcpddto", input11.value);
	model.makeValue("/root/send/wardcd", combo7.value);	
	model.makeValue("/root/send/roomcd", combo2.value);	
	model.makeValue("/root/send/hngnm", combo8.value);
	model.makeValue("/root/send/pid", input3.value);
	model.makeValue("/root/send/ioparam", ioparam);

	if(submit("TRMNR01006")){
	}	  

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ȯÀÚ »ó¼¼Á¤º¸ Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatientInfoRec(arg){

//	alert(ioparameter);

	model.removenode("/root/send");
	
	model.makeValue("/root/send/wardcd", combo5.value);
	model.makeValue("/root/send/roomcd", combo1.value);

	if( input12.value != "" ){
		model.makeValue("/root/send/pid", input12.value);	
	} else if( model.makeValue("/root/send/pid", combo6.value) != "" ){
		model.makeValue("/root/send/pid", combo6.value);	
	}

	if(submit("TRMNR01005")){

		if( arg == "pid" && ioparam == "IPRC" ){

//			fGetWardList();

			if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") ) {
				return ;
			}

			model.setValue(combo5.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") );

			fGetRoomList();

			if( "" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") ) {
				return ;
			}

			model.setValue(combo1.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") );

			fGetPatientList();

			if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") ) {
				return ;
			}

			model.setValue(combo6.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") );

		}

//		model.refresh();
	}	  

	model.setfocus("button16");

}


 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ȯÀÚ »ó¼¼Á¤º¸ Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatientInfo(arg){

//	alert(ioparameter);

	model.removenode("/root/send");
	
	model.makeValue("/root/send/wardcd", combo7.value);
	model.makeValue("/root/send/roomcd", combo2.value);

	if( input3.value != "" ){
		model.makeValue("/root/send/pid", input3.value);	
	} else if( model.makeValue("/root/send/pid", combo8.value) != "" ){
		model.makeValue("/root/send/pid", combo8.value);	
	}

	if(submit("TRMNR01005")){

		if( arg == "pid" && ioparam == "IPRC" ){

//			fGetWardList();

			if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") ) {
				return ;
			}

			model.setValue(combo7.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") );

			fGetRoomList();

			if( "" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") ) {
				return ;
			}

			model.setValue(combo2.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") );

			fGetPatientList();

			if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") ) {
				return ;
			}

			model.setValue(combo8.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") );

		}

//		model.refresh();
	}	  

	model.setfocus("button3");

}


 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ȯÀÚ Á¤º¸ Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatientList(){

	model.removenode("/root/send");
	
	model.makeValue("/root/send/wardcd", combo7.value);
	model.makeValue("/root/send/roomcd", combo2.value);

	if(submit("TRMNR01004")){
	}	  

	model.setfocus("combo8");

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º´½Ç Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetRoomList(){

	model.removenode("/root/send");
	
	model.makeValue("/root/send/wardcd", combo7.value);

	//alert(combo7.value);

	if(submit("TRMNR01003")){
	}	  

	model.setfocus("combo2");

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º´µ¿ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetWardList(){

	model.removenode("/root/send");
	
	model.makeValue("/root/send/wardcd", model.getValue("/root/temp/cond/wardcdgrup/wardcdgruplist/wardcd"));

	if(submit("TRMNR01002")){
	}	  

//	model.setfocus("combo7");
}


 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */


function fInit( getparam){

//	alert('11: ' + getparam);
//
//	ioparam = getparam ;

	fGetWardList();// º´µ¿ÄÚµå ¸®½ºÆ®

}