/*
  
(SMMNR07600_Ç÷¾×¹ÌºÒÃ⸮½ºÆ®Á¶È¸.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";

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¹ÌºÒÃâ ¸®½ºÆ® Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetBlodNoDeliveList(){

	if(radio1.value == "patient") {

		if (input3.value == ""){

			messageBox("µî·Ï¹øÈ£¸¦ ","C001");
			model.setfocus("input3");
			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/dateflag", combo1.value);
	model.makeValue("/root/send/wardpatientflag", radio1.value);
	model.makeValue("/root/send/deliveflag", radio2.value);

	if(submit("TRMNR07606")){
	}	  

}
  
  /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¹Ý³³ÀÇ·Ú ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReturnSave(){

	var sRowCnt = datagrid1.rows-datagrid1.fixedrows;		

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

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

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

		//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(submit("TXMNR07630")){
		model.copyNode("/root/hidden/main","/root/main");
	}

}

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

	var sRowCnt = datagrid5.rows-datagrid5.fixedrows;	

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

	for(var i=1; i<= sRowCnt; i++){ // ¹Ý³³ÀÇ·Ú Ç÷¾×¹øÈ£°¡ Áߺ¹µÇ¾ú´ÂÁö üũ

		if( input13.value == model.getValue("/root/main/cond/blodreturnreqgrup["+i+"]/blodreturnreqgruplist["+1+"]/blodno") ) {
		
			messageBox("ÀÌ¹Ì Á¶È¸µÈ µî·Ï¹øÈ£ ","E008");
			return;	
		
		}

	}

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

	model.refresh();

	model.makeValue("/root/send/blodno", input13.value  );	

	if(submit("TRMNR07620")){
	}	  

	model.setfocus("input13");		

}

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

function fDelDeliveExecPrcp(){

	var sRowCnt = datagrid7.rows-datagrid7.fixedrows;		

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

	//alert(datagrid7.getupdatedataAll("i"));
	
	var saveyn = 0 ;

//	for(var i=1; i<= sRowCnt; i++){
//
//		if(model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/stat") != "-") {
//
//			saveyn = 1 ;
//
//		}
//
//		if(model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/stat") != "-" && model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/appno") == ""){
//			messageBox("½Åû¼ö·®Àº ","I003");
//			return;			
//		}
//		
//		if( parseInt(model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/prcpqty")) < parseInt(model.getValue(xDelDeliveExecPrcpListPath+"["+i+"]/appno")) ) {
//
//			messageBox("½Åû¼ö·®Àº ºÒÃâ¼ö·®º¸´Ù Å©°Ô ÀÔ·Â ","E001");
//			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("TXMNR07610")){
		model.copyNode("/root/hidden/main","/root/main");
	}

}


 /**
 * @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);

	if(submit("TRMNR07609")){
	}	  

}

/**
 * @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;			

	}
	
}


/**
 * @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.07.20
 * @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("TXMNR07608")){
		model.copyNode("/root/hidden/main","/root/main");
	}

//	grd_detlgrup.row = 1;

	window.close();

}

 /**
 * @group  :
 * @ver    : 2007.07.20
 * @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("TRMNR07607")){

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

}


 /**
 * @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 false;	
	
	}

	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("SMMNR07601",1,left,top);


}

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

	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("TRMNR07605")){
	}	  

	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("TRMNR07604")){
	}	  

	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(cmb_wardcd.value);

	if(submit("TRMNR07603")){
	}	  

	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/main/cond/wardcdgrup/wardcdgruplist/wardcd"));

	if(submit("TRMNR07602")){
	}	  

	model.setfocus("combo7");
}


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


function fInit(){

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

}

















 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ µî·Ï¹öÆ° ´©¸¦¶§, ÃÖ±Ù°ªÀ¸·Î »ó¼¼³»¿ª ¼ÂÆÃ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fRecHistPntListInsert(){

//	alert();

	var iRow = datagrid2.row;

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

	model.makeValue("/root/send/execdt",	model.getvalue(xRecgrupListPath+"["+iRow+"]/execdt"));
	model.makeValue("/root/send/pid",		model.getvalue("/root/main/recgrup/rectmaxvallist/pid"));
	model.makeValue("/root/send/clsflag",	model.getvalue("/root/main/recgrup/rectmaxvallist/clsflag"));
	model.makeValue("/root/send/recflag",	model.getvalue("/root/main/recgrup/rectmaxvallist/recflag"));
	model.makeValue("/root/send/grupcd",	model.getvalue("/root/main/recgrup/rectmaxvallist/grupcd"));

//	model.setValue("/root/main/hiddengrup/grupcd",model.getValue("/root/main/recgrup/rectmaxvallist/grupcd"));// µî·Ï½Ã grupcd ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
//	model.setValue("/root/main/hiddengrup/pid",model.getValue("/root/main/recgrup/rectmaxvallist/pid"));// µî·Ï½Ã pid ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
//	model.setValue("/root/main/hiddengrup/clsflag",model.getValue("/root/main/recgrup/rectmaxvallist/clsflag"));// µî·Ï½Ã clsflag ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
//	model.setValue("/root/main/hiddengrup/recflag",model.getValue("/root/main/recgrup/rectmaxvallist/recflag"));// µî·Ï½Ã recflag ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.

	if(submit("TRMNW04007")){

		var iRowNum = datagrid1.row;

	}

	var iRow = grd_histgrup.row;
	var iCol = grd_histgrup.col;

	/* ÁßÁõµµ »ó¼¼³»¿ª ±¸ºÐ üũ ½ÃÀÛ */

	var nodelist = bind1.nodeset;

	var cNt = nodelist.length;

	for(var ins = 1 ; ins <= cNt; ins++ ){// üũµÈ °ª Àüü¸¦ µ·´Ù.

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

			if(	
				(model.getValue(xHIsgrupListPath+"["+ i +"]/supcd") ==  model.getValue("/root/main/rechistpntgrup/serdiaghislist["+ ins +"]/supcd")) &&  
				(model.getValue(xHIsgrupListPath+"["+ i +"]/basepnt") ==  model.getValue("/root/main/rechistpntgrup/serdiaghislist["+ ins +"]/timsval"))

				) {

				grd_histgrup.textmatrix(i,1) = "Y"; 
				grd_histgrup.textmatrix(i,0) = "I"; 

			}	
			
		}

	}

	/* ÁßÁõµµ »ó¼¼³»¿ª ±¸ºÐ üũ ³¡ */

}

 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ ÀúÀå/¾÷µ¥ÀÌÆ® ÈÄ ¸®·Îµù
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fReload(iRow){

//	alert(iRow);

	datagrid2.row = iRow ;

	for(var i = 1 ; i < datagrid2.rows; i++ ){// Àüü¸¦ µ¹¸é¼­ ÁßÁõµµ ³»¿ª¼±Åýà »óŸ¦ ÃʱâÈ­

		datagrid2.textmatrix(i,1) = "-"; // ÁßÁõµµ ³»¿ª¼±Åýà »óŸ¦ ÃʱâÈ­	

	}						

	tar_desccnts.value = "" ; // ÁßÁõµµ ³»¿ª ¼±Åýà ¼³¸í ºÎºÐ Ŭ¸®¾î

	tar_desccnts.refresh();// È­¸é¿¡ Àû¿ë. ±×¸®µå´Â rebuild()
	fFlag();// ÁßÁõµµ±¸ºÐ / ³«»ó ±¸ºÐ üũ	
						
	fHistList();	// ÁßÁõµµ »ó¼¼³»¿ª ¸®½ºÆ®	 04006
	fRecHistPntList();// ÁßÁõµµ »ó¼¼Á¡¼ö ³»¿ª / Çѱ۸í / üũ Á¡¼ö ¸ñ·Ï 04007
	fColLqidty();// ÁßÁõµµ »ó¼¼Á¡¼ö display : true , false / ÃÑÁ¡ ÁßÁõµµ
							
	rdo_clsflaga.disabled = true ;// ÁßÁõµµ±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.
	rdo_clsflagb.disabled = true ;// ³«»ó±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.	

}

 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼³»¿ª ±¸ºÐÀ» ¼±ÅÃÇßÀ» ¶§ µ¿ÀÛ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */


function fGrupTest(){

	var iRow = grd_histgrup.row;
	var iCol = grd_histgrup.col;

	//alert(iCol);

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

//	alert( model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/supcd") );
//
//	alert(grd_histgrup.textmatrix(iRow,1));


	if(model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/supcd") == "00000000"){// supcd 00000000 À϶§, 00000000À» ÃʱâÈ­
			grd_histgrup.textmatrix(sDetlGrupRow,1) = "N"; 
		grd_histgrup.textmatrix(sDetlGrupRow,0) = "-"; 
		return;	
	}

	//alert(model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/supcd"));

	var supcd = model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/supcd") ;

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

		if(supcd == model.getValue(xHIsgrupListPath+"["+ i +"]/supcd") ) {

//			alert("supcd : " + supcd);
//			alert("grd_histgrup : " +  model.getValue(xHIsgrupListPath+"["+i+"]/supcd"));

			grd_histgrup.textmatrix(i,1) = "N"; 
			grd_histgrup.textmatrix(i,0) = "-"; 

		}		

	}

	grd_histgrup.textmatrix(sDetlGrupRow,1) = "Y"; // ÇöÀç ¼±Å𪠴ٽà üũ

	var cNt = 0 ;

//	for(var i = 1 ; i < grd_histgrup.rows; i++ ){// Àüü¸¦ µ¹¸é¼­ °ªÀÌ Ã¼Å© °ªÀ» ã¾Æ ÁßÁõµµ ³»¿ª ÃÑÁ¡¿¡ ÇÕ»êÇÑ´Ù.
//
//		if(grd_histgrup.textmatrix(i,1) == "Y") {
//
//			cNt = cNt + parseInt(model.getValue(xHIsgrupListPath+"["+i+"]/basepnt"));
//
//		}		
//
//	}
//
//	datagrid2.textmatrix(1,13) = cNt;
//	datagrid2.textmatrix(1,0) = "U";
//
//
//	alert(datagrid2.textmatrix(1,0));
//
//	return ;


	if(iCol == 1){

		var sDetlGrupRow = grd_histgrup.row;
		
		var sDetlGrupBKRow=0;
		
		if(model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/stat") != "-"){
			return;	
		}
		
		var grupcd = model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/grupcd");
		
		for(var i=1; i<= getNodesetCount(xHIsgrupListBKPath); i++){
			if(model.getValue(xHIsgrupListBKPath+"["+i+"]/grupcd") == grupcd){
				sDetlGrupBKRow = i;
				break;
			}
		}
		
//		alert(instance1.selectSingleNode(xHIsgrupListPath+"["+sDetlGrupRow+"]").xml);
//		alert(instance1.selectSingleNode(xHIsgrupListBKPath+"["+sDetlGrupBKRow+"]").xml);
		
		if(instance1.selectSingleNode(xHIsgrupListPath+"["+sDetlGrupRow+"]").xml != instance1.selectSingleNode(xHIsgrupListBKPath+"["+sDetlGrupBKRow+"]").xml){

//			if( model.getValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/supcd") ){
//			}			

			model.setValue(xHIsgrupListPath+"["+sDetlGrupRow+"]/stat","I");
			grd_histgrup.rebuild();
			fMakeTreeView();
		}
	
	}else{
		return ;
	}

}


 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ / ³«»ó ¼±Åýà ÁßÁõµµ »ó¼¼³»¿ª ¸®½ºÆ® Ãâ·Â 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */


function fSerDiagChoi(arg){

//	var iRow = datagrid2.row;
//	
//	if( model.getValue(xRecgrupListPath+"["+"1"+"]/stat") != "I" ){
//	
//		messageBox("¼öÁ¤½Ã ÁßÁõµµ/³«»óÀ» º¯°æ","E001");
//		return;	
//	
//	}

	var clsflag = "" ;
	var recflag = "" ;

	if( arg == "rdo_clsflaga" ){
		clsflag = model.getValue("/root/main/topattribute/clsflaga") ;
		recflag = '1';
		rdo_clsflagb.value = "" ;
	} else if ( arg == "rdo_clsflagb" ){
		clsflag = model.getValue("/root/main/topattribute/clsflagb") ;
		recflag = '2';
		rdo_clsflaga.value = "" ;
	}

	model.makeValue("/root/send/supcd",	"00000000");						
	model.makeValue("/root/send/clsflag",	clsflag);
	model.makeValue("/root/send/recflag",	recflag);

	if(submit("TRMNW04006")){
		model.copyNode("/root/temp","/root/main");
		fMakeTreeView();	
	}

}


 /**
 * @group  :
 * @ver    : 2007.03.30
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ °ªÀ» ÀúÀåÇÑ´Ù.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fSave(){

	var iRowUpd = datagrid2.row ;

	var inpt = "" ;

//	alert(model.getValue(xRecgrupListPath+"["+"1"+"]/stat"));

	if( model.getValue(xRecgrupListPath+"["+"1"+"]/stat") == "I" ){

		inpt = "inpt"

	} else {

		inpt = "updt"

	}

	var fstrgstrid = model.getValue(xRecgrupListPath+"["+iRowUpd+"]/fstrgstrid") ;

//	alert(fstrgstrid);
//
//	alert(inpt);


	/* ¼öÁ¤½Ã ÀÔ·ÂÇÑ »ç¶÷°ú ID°¡ µ¿ÀÏÇÑÁö üũ ½ÃÀÛ */

	if(inpt == "updt" ){

		if( getUserId() == fstrgstrid  ){

			//alert("1111");

		} else {

			//alert("222");

			//messageBox("µî·ÏÀÚ¿Í ¾ÆÀ̵𰡠","E004");

			// return ;  // ³ªÁß¿¡ Ç®¾î¾ß ÇÔ. ¹Ýµå½Ã ****************************************************************************

		}


	}

	/* ¼öÁ¤½Ã ÀÔ·ÂÇÑ »ç¶÷°ú ID°¡ µ¿ÀÏÇÑÁö üũ ³¡ */


//	return ;


	var sRowCnt = datagrid2.rows-datagrid2.fixedrows;		
	
	var iRows = datagrid1.rows ;

	var iRow = datagrid1.row ;

	var sRowCntHist = datagrid2.rows-grd_histgrup.fixedrows;		

//	alert(iRows);

	if( iRows < 2 ){

		messageBox("ȯÀÚÁ¤º¸°¡ ¾ø¾î ÀúÀå","E001");
		return;		

	}

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

//	alert(datagrid2.getupdatedataAll("i"));
//	alert(grd_histgrup.getupdatedataAll("i"));

	var saveyn = 0 ;

	if(inpt == "inpt"){// µî·Ï½Ã
	
		if(sRowCnt <= 0){
			messageBox("ÀúÀåÇÒ µ¥ÀÌÅ͸¦ ÀÔ·ÂÇÏÁö ","E007");
			return;		
		}


		if(rdo_clsflaga.value == '' && rdo_clsflagb.value == ''){
			messageBox("ÁßÁõµµ ±¸ºÐ / ³«»óÀÌ ¼±ÅõÇÁö ","E007");
			return;		
		}

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

			if(model.getValue(xRecgrupListPath+"["+i+"]/stat") != "-") {
				saveyn = 1 ;

			}
		
		}
		
		if(saveyn <= 0 ){
			messageBox("µî·ÏÁ¤º¸°¡ ¾ø¾î ÀúÀå ","E001");
			return;	
		}

		if(cmb_execkind.value == ""){
			messageBox("±â·ÏÈ° duty¸¦ ¼±ÅÃÇÏÁö ","E007");
			return;
		}

	} else if (inpt == "updt") {//¼öÁ¤½Ã

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

			//alert(model.getValue(xHIsgrupListPath+"["+i+"]/stat"));

			if(model.getValue(xHIsgrupListPath+"["+i+"]/stat") == "U") {
				saveyn = 1 ;

			}
		
		}
		
		if(saveyn <= 0 ){
			messageBox("¼öÁ¤Á¤º¸°¡ ¾ø¾î ÀúÀå ","E001");
			return;	
		}


	}

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

//	alert(model.getValue("/root/main/topattribute/clsflaga"));
//	alert(model.getValue("/root/main/topattribute/clsflagb"));

	var clsflag = '';
	var recflag = '';

	if ( model.getValue("/root/main/topattribute/clsflagb") == "7" ||  model.getValue("/root/main/topattribute/clsflagb") == "8"){
		//alert("222");
		clsflag = model.getValue("/root/main/topattribute/clsflagb") ;
		recflag = '2';
	}else 	if( parseInt(model.getValue("/root/main/topattribute/clsflaga")) < 7){
		//alert("111");
		clsflag = model.getValue("/root/main/topattribute/clsflaga") ;
		recflag = '1';
	} 

	//return ;

	var iRowCnt = datagrid2.row ;

//	alert(clsflag);
//	alert(model.getValue("/root/main/detlgrup/detlgruplist["+ iRow +"]/indd"));
//	alert(cmb_execkind.value);
	model.makeValue("/root/send/clsflag",	clsflag);
	model.makeValue("/root/send/recflag",	recflag);
	model.makeValue("/root/send/indd",		model.getValue("/root/main/detlgrup/detlgruplist["+ iRow +"]/indd"));
	model.makeValue("/root/send/pid",		model.getValue("/root/main/topattribute/pid"));
	model.makeValue("/root/send/cretno",	"1");
	model.makeValue("/root/send/seqno",		"1");
	model.makeValue("/root/send/certkey",		"123456");
	model.makeValue("/root/send/execkind",		cmb_execkind.value);
//	alert(cmb_wardcd.value);
	model.makeValue("/root/send/wardcd",		combo7.value );
	model.makeValue("/root/send/roomcd",		model.getValue("/root/main/topattribute/roomcd"));
	model.makeValue("/root/send/grupcdval",		model.getValue("/root/main/recgrup/recgruplist["+ iRowCnt +"]/grupcd"));

//	alert(model.getValue("/root/main/topattribute/pid"));
//	alert(clsflag);

//	return ;


	
	var cNt = 0 ;

	if(inpt == "inpt"){// µî·Ï½Ã

		for(var i = 1 ; i < grd_histgrup.rows; i++ ){// Àüü¸¦ µ¹¸é¼­ °ªÀÌ Ã¼Å© °ªÀ» ã¾Æ ÁßÁõµµ ³»¿ª ÃÑÁ¡¿¡ ÇÕ»êÇÑ´Ù.

			if(grd_histgrup.textmatrix(i,1) == "Y") {

				cNt = cNt + parseInt(model.getValue(xHIsgrupListPath+"["+i+"]/basepnt"));

			}		

		}

		datagrid2.textmatrix(iRowCnt,13) = cNt;

//		alert(datagrid2.getupdatedataAll("i"));
//		alert(grd_histgrup.getupdatedataAll("i"));
//
//		return ;

		model.makeValue("/root/send/recgrup",datagrid2.getupdatedataAll("i"));	
		model.makeValue("/root/send/histgrup",grd_histgrup.getupdatedataAll("i"));

		if(submit("TXMNW04001")){

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

			datagrid2.row = 1;// ÀúÀåÈÄ ÀúÀåÇÑ ·Î¿ì¸¦ ¼±ÅÃ

			fReload(iRowCnt);// ¾÷µ¥ÀÌÆ®ÈÄ È­¸é°ª ¸®·Îµù

		}

	} else if (inpt == "updt") {//¼öÁ¤½Ã

		for(var i = 1 ; i < grd_histgrup.rows; i++ ){// Àüü¸¦ µ¹¸é¼­ °ªÀÌ Ã¼Å© °ªÀ» ã¾Æ ÁßÁõµµ ³»¿ª ÃÑÁ¡¿¡ ÇÕ»êÇÑ´Ù.

			if(grd_histgrup.textmatrix(i,1) == "Y") {

				cNt = cNt + parseInt(model.getValue(xHIsgrupListPath+"["+i+"]/basepnt"));

			}		

		}

//		alert(cNt);

		datagrid2.textmatrix(iRowCnt,13) = cNt;

		model.makeValue("/root/send/recgrup",datagrid2.getupdatedataAll("i"));	
		model.makeValue("/root/send/histgrup",grd_histgrup.getupdatedataAll("i"));

//		alert(model.getValue(xRecgrupListPath+"["+iRowCnt+"]/totpnt"));
//
//		return ;

		if(submit("TXMNW04002")){

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

			fReload(iRowCnt);// ¾÷µ¥ÀÌÆ®ÈÄ È­¸é°ª ¸®·Îµù

		}

		

	}

	rdo_clsflaga.disabled = true ;// ÁßÁõµµ±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.
	rdo_clsflagb.disabled = true ;// ³«»ó±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.

	inpt = "" ;// µî·Ï/¼öÁ¤ Ŭ¸®¾î

}





 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ ³»¿ª »èÁ¦ ¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */


function fDel(){

	if(messageBox("½Å±ÔÁ¤º¸¸¦","Q001") != 6) return;

	model.removeNodeset("/root/main/rechistpntgrup/rechistpntlist");// ÁßÁõµµ »ó¼¼Á¡¼ö Ŭ¸®¾î	
	model.removeNodeset("/root/main/histgrup/histgruplist");// ÁßÁõµµ »ó¼¼³»¿ª Ŭ¸®¾î
	
	datagrid3.refresh();
	grd_histgrup.refresh();	

	model.removeNodeset("/root/main/recgrup/recgruplist");

	fSelect() ;// ÁßÁõµµ ³»¿ª ¸®½ºÆ®		

	datagrid2.rebuild();

	datagrid2.refresh();

	datagrid2.row = 1;

}


 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ ³»¿ª µî·Ï ¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fAddInsertRow(){

	if(cmb_execkind.value == "" || cmb_execkind.value == "0"){
		messageBox("±â·ÏÈ° duty¸¦ ¼±ÅÃÇÏÁö ","E007");
		return;
	}

	var iRows = datagrid1.rows ;

	if( iRows < 2 ){

		messageBox("ȯÀÚÁ¤º¸°¡ ¾ø¾î µî·Ï","E001");
		return;		

	}	

	if( model.getValue(xRecgrupListPath+"["+"1"+"]/stat") == "I" ){

		messageBox("ÁßÁõµµ ³»¿ªÀº Çѹø¿¡ 1°ÇÀÌ»ó ÀúÀåÇÒ ¼ö","E001");
		return;	

	}

	fSelect();//µî·Ï¹öÆ° Ŭ¸¯½Ã ÇöÀç ÃÖÁ¾°ªÀ» ¼ÂÆÃ

	var iRow = datagrid2.rows;

//	alert(iRow);

	if(iRow < 2){

		iRow = 1 ;

		datagrid2.addRow(true, true);

	} else {

		datagrid2.insertRow("1", "above");
//		datagrid2.insertRow(datagrid2.row);
	}

//	alert(getUserName());

	rdo_clsflaga.value= "" ;// ÁßÁõµµ ±¸ºÐ Ŭ¸®¾î
	rdo_clsflagb.value= "" ;//³«»ó  Ŭ¸®¾î

	model.removeNodeset("/root/main/rechistpntgrup/rechistpntlist");// ÁßÁõµµ »ó¼¼Á¡¼ö Ŭ¸®¾î	

	model.setValue(xRecgrupListPath+"["+"1"+"]/stat","I");	// 	
	model.setValue(xRecgrupListPath+"["+"1"+"]/execdt",ipt_execdt.value );
	model.setValue(xRecgrupListPath+"["+"1"+"]/exectm",input4.value);	// 
	model.setValue(xRecgrupListPath+"["+"1"+"]/clsgrupkind", "");	// 
	model.setValue(xRecgrupListPath+"["+"1"+"]/totpnt",	"");	// 	
	model.setValue(xRecgrupListPath+"["+"1"+"]/usernm", "Å×½ºÆ®");	//  

	datagrid2.rebuild();

	datagrid2.row = 1;
	
	model.makeValue("/root/send/supcd",	"00000000");						
//	model.makeValue("/root/send/clsflag",	"1");
//	model.makeValue("/root/send/recflag",	"1");

	/* óÀ½ µî·Ï½Ã ÀϹݺ´µ¿/ ¾Æ´Ï¸é ¸¶Áö¸· µî·ÏÇÑ °ª ½ÃÀÛ */

	if(model.getvalue("/root/main/recgrup/rectmaxvallist/clsflag") == "" || model.getvalue("/root/main/recgrup/rectmaxvallist/recflag") == "" ){

		model.makeValue("/root/send/clsflag",	"1");
		model.makeValue("/root/send/recflag",	"1");

		rdo_clsflaga.value = "1" ;
		rdo_clsflagb.value = "1" ;


	} else {

		model.makeValue("/root/send/clsflag",	model.getvalue("/root/main/recgrup/rectmaxvallist/clsflag"));
		model.makeValue("/root/send/recflag",	model.getvalue("/root/main/recgrup/rectmaxvallist/recflag"));

//		alert(model.getvalue("/root/main/recgrup/rectmaxvallist/clsflag"));
//		alert(model.getvalue("/root/main/recgrup/rectmaxvallist/recflag"));

		var cLsflag = model.getvalue("/root/main/recgrup/rectmaxvallist/clsflag") ;

		/* ÃÖÁ¾°ªÀ» °¡Áö°í ÁßÁõµµ/³«»ó üũ ½ÃÀÛ */

		if( cLsflag < 7 ){

			if( cLsflag == 1 ){

				rdo_clsflaga.select(0);

			} else if ( cLsflag == 2 ){

				rdo_clsflaga.select(1);

			} else if ( cLsflag == 3 ){

				rdo_clsflaga.select(2);

			} else if ( cLsflag == 4 ){

				rdo_clsflaga.select(3);

			} else if ( cLsflag == 5 ){

				rdo_clsflaga.select(4);

			} else if ( cLsflag == 6 ){

				rdo_clsflaga.select(5);

			}

		} else	if(cLsflag > 6  ) {
		
			if ( cLsflag == 7 ){

				rdo_clsflagb.select(0);

			} else if ( cLsflag == 8 ){

				rdo_clsflagb.select(1);

			} 

		}

		rdo_clsflaga.refresh();
		rdo_clsflagb.refresh();

		/* ÃÖÁ¾°ªÀ» °¡Áö°í ÁßÁõµµ/³«»ó üũ ³¡ */

	}

	/* óÀ½ µî·Ï½Ã ÀϹݺ´µ¿/ ¾Æ´Ï¸é ¸¶Áö¸· µî·ÏÇÑ °ª ³¡ */

	if(submit("TRMNW04006")){
		model.copyNode("/root/temp","/root/main");
		fMakeTreeView();	//  	
	}

	//rdo_clsflaga.value = "1" ;

	rdo_clsflaga.disabled = false ;// ÁßÁõµµ±¸ºÐ µî·Ï½Ã È°¼ºÈ­ ½ÃŲ´Ù.
	rdo_clsflagb.disabled = false ;// ³«»ó±¸ºÐ µî·Ï½Ã È°¼ºÈ­ ½ÃŲ´Ù.

	model.makeValue("/root/main/rechistpntgrup/rechistpntlist/pid",model.getValue(xClsListPath+"["+iRow+"]/pid"));
	model.makeValue("/root/main/rechistpntgrup/rechistpntlist/hngnm",model.getValue(xClsListPath+"["+iRow+"]/hngnm"));

	fRecHistPntListInsert();//µî·Ï¹öÆ° Ŭ¸¯½Ã ¸¶Áö¸· ÀÔ·ÂÇÑ °ªÀ¸·Î ¼ÂÆÃ

	model.removeNodeset("/root/main/rechistpntgrup/rechistpntlist");// ÁßÁõµµ »ó¼¼Á¡¼ö Ŭ¸®¾î	

	datagrid3.refresh();

}


 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼Á¡¼ö display : true , false / ÃÑÁ¡ ÁßÁõµµ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
  
function fColLqidty() {

	var cNt = model.getValue("/root/main/rechistpntgrup/rechistpntlist/cnt")

	if(cNt > 0 ){

		var no = 1 ;
		var notitl = 0 ;

		for( var i = 0 ; i < cNt ; i++ ) {

			no++ ;
			notitl++ ;

			datagrid3.colhidden(no) = false;	

			datagrid3.colwidth(no) = 50;

			datagrid3.valuematrix(0,no) = model.getValue("/root/main/rechistpntgrup/pnttitlgruplist["+ notitl +"]/hngnm");

		}

		datagrid3.colhidden(42) = false;	
		datagrid3.colhidden(43) = false;	
		
		datagrid3.colwidth(42) = 50;
		datagrid3.colwidth(43) = 50;

		var iRow = datagrid1.row ;

		datagrid3.valuematrix(1,0) = model.getValue("/root/main/detlgrup/detlgruplist["+ iRow +"]/pid");
		datagrid3.valuematrix(1,1) = model.getValue("/root/main/detlgrup/detlgruplist["+ iRow +"]/hngnm");

		datagrid3.refresh();

	}
	
}



 /**
 * @group  :
 * @ver    : 2007.07.20
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼Á¡¼ö ³»¿ª / Çѱ۸í / üũ Á¡¼ö ¸ñ·Ï
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fRecHistPntList(){

	var iRow = datagrid2.row;

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

	model.makeValue("/root/send/pid",		model.getvalue(xRecgrupListPath+"["+iRow+"]/pid"));
	model.makeValue("/root/send/execdt",	model.getvalue(xRecgrupListPath+"["+iRow+"]/execdt"));
	model.makeValue("/root/send/clsflag",	model.getvalue(xRecgrupListPath+"["+iRow+"]/clsflag"));
	model.makeValue("/root/send/recflag",	model.getvalue(xRecgrupListPath+"["+iRow+"]/recflag"));
	model.makeValue("/root/send/grupcd",	model.getvalue(xRecgrupListPath+"["+iRow+"]/grupcd"));

	if(submit("TRMNW04007")){

		var iRowNum = datagrid1.row;

	}

	var iRow = grd_histgrup.row;
	var iCol = grd_histgrup.col;

	/* ÁßÁõµµ »ó¼¼³»¿ª ±¸ºÐ üũ ½ÃÀÛ */

	var nodelist = bind1.nodeset;

	var cNt = nodelist.length;

	for(var ins = 1 ; ins <= cNt; ins++ ){// üũµÈ °ª Àüü¸¦ µ·´Ù.

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

			if(	
				(model.getValue(xHIsgrupListPath+"["+ i +"]/supcd") ==  model.getValue("/root/main/rechistpntgrup/serdiaghislist["+ ins +"]/supcd")) &&  
				(model.getValue(xHIsgrupListPath+"["+ i +"]/basepnt") ==  model.getValue("/root/main/rechistpntgrup/serdiaghislist["+ ins +"]/timsval"))

				) {

				grd_histgrup.textmatrix(i,1) = "Y"; 
				grd_histgrup.textmatrix(i,0) = "-"; 

			}	
			
		}

	}

	/* ÁßÁõµµ »ó¼¼³»¿ª ±¸ºÐ üũ ³¡ */

}


 /**
 * @group  :
 * @ver    : 2007.03.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ±¸ºÐ ³«»ó ±¸ºÐ üũ	
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fFlag(){

	var iRow = datagrid2.row;
	//alert(iRow);

	var cLsflag = model.getValue(xRecgrupListPath+"["+iRow+"]/clsflag") ;

	//alert(cLsflag);

	rdo_clsflaga.value = "" ;
	rdo_clsflagb.value = "" ;

	if( cLsflag < 7 ){

		if( cLsflag == 1 ){

			rdo_clsflaga.select(0);

		} else if ( cLsflag == 2 ){

			rdo_clsflaga.select(1);

		} else if ( cLsflag == 3 ){

			rdo_clsflaga.select(2);

		} else if ( cLsflag == 4 ){

			rdo_clsflaga.select(3);

		} else if ( cLsflag == 5 ){

			rdo_clsflaga.select(4);

		} else if ( cLsflag == 6 ){

			rdo_clsflaga.select(5);

		}

	} else	if(cLsflag > 6  ) {
	
		if ( cLsflag == 7 ){

			rdo_clsflagb.select(0);

		} else if ( cLsflag == 8 ){

			rdo_clsflagb.select(1);

		} 

	}

	rdo_clsflaga.refresh();
	rdo_clsflagb.refresh();

}

 /**
 * @group  :
 * @ver    : 2007.03.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼³»¿ªÀÇ ¼³¸íÀ» Á¶È¸ÇÑ´Ù.   
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fHistDesc(){

	var iRow = grd_histgrup.row;

	tar_desccnts.value = model.getValue(xHIsgrupListPath+"["+iRow+"]/desccnts") ;

	tar_desccnts.refresh();

}

 /**
 * @group  :
 * @ver    : 2007.03.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼³»¿ª Æ®¸®±¸Á¶·Î º¯È¯   
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fMakeTreeView(){

	var sRowCnt = grd_histgrup.rows-grd_histgrup.fixedRows;

	for(var i=1; i<= sRowCnt; i++){		
		grd_histgrup.IsSubtotal(i)=true;

		grd_histgrup.outlinelevel(i)=model.getValue(xHIsgrupListPath+"["+i+"]/depth");

		grd_histgrup.colDisabled(11) = true ;	


	}
	grd_histgrup.OutlineCol = 3;	//  
	grd_histgrup.OutlineBar = 4;	//
	grd_histgrup.TreeColor="gray";

	model.refresh(); 

}


 /**
 * @group  :
 * @ver    : 2007.04.30
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ »ó¼¼³»¿ª ¸®½ºÆ® Ãâ·Â  
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fHistList(){

	var iRow = datagrid2.row;

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

	model.makeValue("/root/send/supcd","00000000");
	model.makeValue("/root/send/clsflag",model.getValue(xRecgrupListPath+"["+iRow+"]/clsflag"));
	model.makeValue("/root/send/recflag",model.getValue(xRecgrupListPath+"["+iRow+"]/recflag"));
	model.makeValue("/root/send/indd",model.getValue(xRecgrupListPath+"["+iRow+"]/indd"));

	if(submit("TRMNW04006")){
		model.copyNode("/root/temp","/root/main");
		//model.copyNode("/root/temp/main","/root/main");
		fMakeTreeView();	
	}

}

 /**
 * @group  :
 * @ver    : 2007.03.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼³¸í    
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAddHist(){

	datagrid2.insertRow(1);// 0 : ´ÙÀ½ÁÙ¿¡ »ðÀÔ , 1 : ù¹ø° ÁÙ¿¡ »ðÀÔ
	datagrid2.rebuild();
	
}

 /**
 * @group  :
 * @ver    : 2007.04.30
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁßÁõµµ ³»¿ªÀ» ´õºíŬ¸¯ÇßÀ»¶§. ÁßÁõµµ »ó¼¼Á¡¼ö / ÁßÁõµµ »ó¼¼³»¿ª ¸®½ºÆ®¸¦ Ãâ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fSelect(){

//	alert();

	var iRow = datagrid1.row;
	if(iRow < 1) return;

	opt_roomcd.value =  model.getValue(xClsListPath+"["+iRow+"]/roomcd");	
	opt_pid.value =  model.getValue(xClsListPath+"["+iRow+"]/pid");	
	opt_hngnm.value =  model.getValue(xClsListPath+"["+iRow+"]/hngnm");	

	opt_pid.value =  model.getValue(xClsListPath+"["+iRow+"]/pid");	// ÁßÁõµµ »ó¼¼Á¡¼ö µî·Ï¹øÈ£
	opt_hngnm.value =  model.getValue(xClsListPath+"["+iRow+"]/hngnm");	// ÁßÁõµµ »ó¼¼Á¡¼ö ȯÀÚ¸í

	//alert(model.getValue(xClsListPath+"["+iRow+"]/pid"));

//	datagrid3.textmatrix(1,0) = model.getValue(xClsListPath+"["+iRow+"]/pid");
//	datagrid3.textmatrix(1,1) = model.getValue(xClsListPath+"["+iRow+"]/hngnm");
	model.makeValue("/root/main/rechistpntgrup/rechistpntlist/pid",model.getValue(xClsListPath+"["+iRow+"]/pid"));
	model.makeValue("/root/main/rechistpntgrup/rechistpntlist/hngnm",model.getValue(xClsListPath+"["+iRow+"]/hngnm"));

//	var no = 1 ;
//
//	for( var i = 0 ; i < 43 ; i++ ) {
//
//		no++ ;
//
//		datagrid3.colhidden(no) = true;// ȯÀÚ¼±Åýà ÁßÁõµµ »ó¼¼Á¡¼ö Çʵå ȯÀÚ¸í ´ÙÀ½ Ä÷³ºÎÅÍ ¼û±â±â	
//
//	}

	datagrid3.rebuild();

	model.makeValue("/root/send/pid",model.getValue(xClsListPath+"["+iRow+"]/pid"));	
	model.makeValue("/root/send/execdt",ipt_execdt.value);	
	model.makeValue("/root/send/execkind",cmb_execkind.value);	

	model.makeValue("/root/send/wardcd", model.getValue("/root/temp/wardcd"));
	model.makeValue("/root/send/srchym", model.getValue("/root/temp/srchym"));

//	model.makeValue("/root/main/rechistpntgrup/rechistpntlist["+1+"]", model.getValue(xClsListPath+"["+iRow+"]/hngnm");

	if(submit("TRMNW04005")){

	}

	ipt_execdtrect.value = model.getValue("/root/main/recgrup/rectmaxvallist/execdtrect") ;//ÃÖ±Ù ÀúÀåÀÏÀ» È­¸é¿¡ Ç¥½Ã

	
	model.setValue("/root/main/hiddengrup/grupcd",model.getValue("/root/main/recgrup/rectmaxvallist/grupcd"));// µî·Ï½Ã grupcd ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
	model.setValue("/root/main/hiddengrup/pid",model.getValue("/root/main/recgrup/rectmaxvallist/pid"));// µî·Ï½Ã pid ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
	model.setValue("/root/main/hiddengrup/clsflag",model.getValue("/root/main/recgrup/rectmaxvallist/clsflag"));// µî·Ï½Ã clsflag ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.
	model.setValue("/root/main/hiddengrup/recflag",model.getValue("/root/main/recgrup/rectmaxvallist/recflag"));// µî·Ï½Ã recflag ¸¦ °¡Áö°í ¸¶Áö¸· µî·Ï°ªÀ» °¡Á®¿Â´Ù.

	//alert(model.getValue("/root/main/recgrup/rectmaxvallist/grupcd"));

	datagrid2.row = 1;

	rdo_clsflaga.disabled = true ;// ÁßÁõµµ±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.
	rdo_clsflagb.disabled = true ;// ³«»ó±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.

}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º´µ¿³» ȯÀÚ Á¤º¸¸¦ Á¶È¸ÇÑ´Ù.  
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPatientList(){

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

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

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

	if(submit("TRMNW04004")){
		//model.copyNode("/root/temp/main", "/root/main");
		//fMakeTreeView();
	}	

	datagrid1.row = 1;

	rdo_clsflaga.disabled = true ;// ÁßÁõµµ±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.
	rdo_clsflagb.disabled = true ;// ³«»ó±¸ºÐ ºñÈ°¼ºÈ­ ½ÃŲ´Ù.

}