/*
  
      °æ±¸ÀÔ·Â(SMMNR05700.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01 
*/

var xPathBizFlag = "/root/main/cond/bizflag";

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fInitialize(){
	model.removeNode("/root/main/oralsuminfo/oralsumlist");
	model.removeNode("/root/main/deloralinfo/delorallist");
	
	if(checkOpener()){
	
	/** 
		SPMNR05700_Param 
		pid¢Ëindd¢Ëcretno¢Ëwardcd¢Ì ==> µî·Ï¹øÈ£¢ËÀÔ¿øÀÏÀڢ˻ý¼º¹øÈ£¢Ëº´µ¿ÄÚµå¢Ì
	**/
		var sParamInfo = opener.javascript.getParameter("SPMNR05700_Param");
        //var sParamInfo = "pid¢Ëindd¢Ëcretno¢Ëwardcd¢Ërecdd¢Ì18864191¢Ë20080104¢Ë800340900¢Ë3050107000¢Ë20080621¢Ì"
		model.setValue("/root/main/cond/pid", getArrayData(sParamInfo,1,0));
		model.setValue("/root/main/cond/orddd", getArrayData(sParamInfo,1,1));
		model.setValue("/root/main/cond/cretno", getArrayData(sParamInfo,1,2));
		model.setValue("/root/main/cond/wardcd", getArrayData(sParamInfo,1,3));
		model.setValue("/root/main/cond/seardd", getArrayData(sParamInfo,1,4));
	}
	
	if(model.getValue("/root/main/cond/seardd") == ""){
		ipt_seardd.value = getCurrentDate();
	}
	
	model.copynode("root/send", "root/main/cond");
	model.setValue(xPathBizFlag, "insert");
	
	fOrdddChng();
	fSearDietRec();
	
	//submit("TRMNR05701");
	
	for(var irow = grd_etcdiet.fixedRows ; irow <= grd_etcdiet.rows - grd_etcdiet.fixedRows ;irow++){
		grd_etcdiet.isReadOnly(irow, grd_etcdiet.colRef("itemnm"), irow, grd_etcdiet.colRef("baseqty")) = true;
	}
}
 
/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ³¢´Ï ¼±Åà º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fChngMeal(pFlag){
	fInitOralIntake("prcpdiet");
	switch (pFlag){	
		case "1" :
			grd_prcpdiet.valueMatrix(1, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/breakrice");
			grd_prcpdiet.valueMatrix(2, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/breakgruel");
		break;
		case "2" :
			grd_prcpdiet.valueMatrix(1, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/lunchrice");
			grd_prcpdiet.valueMatrix(2, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/lunchgruel");							
		break;
		case "3" :
			grd_prcpdiet.valueMatrix(1, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/dinnerrice");
			grd_prcpdiet.valueMatrix(2, grd_prcpdiet.colRef("baseqty")) = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/dinnergruel");							
		break;
	}	
} 					

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±âŸ ½ÄÀÌ ÇàÃß°¡
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fEtcDietAddRow(){
	grd_etcdiet.addRow(true);
	grd_etcdiet.valueMatrix(grd_etcdiet.rows -1, grd_etcdiet.colRef("itemcd")) = "HI999999";
	grd_etcdiet.cellStyle("background-color", grd_etcdiet.rows -1, 0, grd_etcdiet.rows -1, 0) = "#ffff99";
	grd_etcdiet.topRow = grd_etcdiet.rows -1;	
} 

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±âŸ ½ÄÀÌ Çà»èÁ¦
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fEtcDietDelRow(){ 
	if(grd_etcdiet.valueMatrix(grd_etcdiet.row, grd_etcdiet.colRef("carerecseqno")) == "" && grd_etcdiet.valueMatrix(grd_etcdiet.row, grd_etcdiet.colRef("itemcd")) == "" ){
		grd_etcdiet.deleteRow(grd_etcdiet.row, false);
	}else{
		messageBox("°íÁ¤Ç׸ñÀº »èÁ¦ÇÒ ¼ö", "I004");
	} 
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ½ÄÀÌ ÀÔ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fPrcpDietMove(pFlag){
	if(model.getValue("/root/main/cond/duty") == ""){
		//fInitOralIntake("All");
		messageBox("Duty¸¦ ¼±ÅÃÇϽʽÿÀ.","I");
		return;
	} 

	var insduty = model.getValue("/root/main/cond/duty");
	var insmealflag = model.getValue("/root/main/cond/mealflag");
	var insprcpnm = "";
	var insitemcd = "";
	var insintakeqty = 0;
	var insitemnm = "";
	var instotalrow = 0;
	var insetcitemcd = "";
	var insetcintakeqty = "";
	var insetcdietdesc = "";
	var insetcdietitemnm = "";
	var chkDuty = 0;
	var sBizFlag = model.getValue(xPathBizFlag);
	
	
	switch(pFlag){
		case "prcpdiet" :
		
			if(model.getValue("/root/main/cond/mealflag") == ""){
				messageBox("³¢´Ï¸¦ ¼±ÅÃÇϽʽÿÀ","I");
				return;						
			}		
			
			if(insmealflag == "1"){
				insprcpnm = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/breakdietprcpnm");
			}else if(insmealflag == "2"){
				insprcpnm = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/lunchdietprcpnm");
			}else{
				insprcpnm = model.getValue("/root/main/dietinfo/dietlist/dietprcplist/dinnerdietprcpnm");
			}
					
			switch(sBizFlag){
				case "insert" :
					if(grd_dietsubtotal.rows- grd_dietsubtotal.fixedRows > 0){
						for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
							var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
							var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));										
							//if(insduty == sduty && insmealflag == smealflag ){
							if(insmealflag == smealflag ){
								chkDuty = j;
							}							
						}
					}
					
					if(chkDuty > 0){
						var mealflagnm = model.getValue("/root/hidden/mealinfo/meallist[value="+insmealflag+"]/name");
						messageBox(mealflagnm +" ÀÔ·Â °ªÀÌ ÀÖ½À´Ï´Ù. Á¶È¸Å×ÀÌºí¿¡¼­ [±¸ºÐ]À» ¼±ÅÃÇÏ¿© ¼öÁ¤ÇϽʽÿÀ.", "I");
						return;
					}
									
					for(var i = grd_prcpdiet.fixedRows ; i <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; i++){
						if(grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) != "" ){
							insitemcd    = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("itemcd")) ;
							insintakeqty = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) ;
							insitemnm    = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("itemnm")) ;
							instotalrow++;
							
							var saveRow = 0;
							var insRowDuty = 0;
							
							if(grd_dietsubtotal.rows- grd_dietsubtotal.fixedRows > 0){
								for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
									var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
									var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));
									var sitemcd = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("itemcd"));											
									
									//ÀÌÀü ÀÔ·Â µ¥ÀÌÅÍ Çà Á¶È¸						
									if(insduty == sduty && insmealflag == smealflag && insitemcd == sitemcd){
										saveRow = j;
									}
									
									//ÀÔ·Â À§Ä¡Çà Á¶È¸
									if(insduty +insmealflag >= sduty + smealflag ){
										insRowDuty = j;
									}
								}
							}

							if(saveRow == 0){
									grd_dietsubtotal.insertRow(insRowDuty, "below", false, true);
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("duty")) = insduty;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("mealflag")) = insmealflag;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("prcpnm")) = insprcpnm;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemnm")) = insitemnm;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemcd")) = insitemcd;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("lnkitemcd")) = model.getvalue("/root/main/dietinfo/dietlist/dietsubitem[mealflag="+insmealflag+"]/itemcd") ;		
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("status")) = "I";
							}else{
									grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;	
									grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("status")) = "U";											
							}
						}
					}
				break;
				
				case "update" :
					model.removenodeSet("/root/main/deloralinfo");
					for(var i = grd_prcpdiet.fixedRows ; i <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; i++){
						insitemcd    = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("itemcd")) ;
						insintakeqty = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) ;
						insitemnm    = grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("itemnm")) ;
						
						if(grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) != "" ){

							instotalrow++;
							
							var saveRow = 0;
							var insRowDuty = 0;
					
							for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
								var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
								var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));
								var sitemcd = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("itemcd"));											
								
								//ÀÌÀü ÀÔ·Â µ¥ÀÌÅÍ Çà Á¶È¸						
								
								
								if(insduty == sduty && insmealflag == smealflag && insitemcd == sitemcd){
									if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("status")) == "I"){
										grd_dietsubtotal.deleteRow(j, false);
									}else{
										saveRow = j;
									}
								}
								
								//ÀÔ·Â À§Ä¡Çà Á¶È¸
								if(insduty >= sduty && insmealflag >= smealflag ){
									insRowDuty = j;
								}
							}
							
							if(saveRow == 0){
									grd_dietsubtotal.insertRow(insRowDuty, "below", false, true);
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("duty")) = insduty;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("mealflag")) = insmealflag;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("prcpnm")) = insprcpnm;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemnm")) = insitemnm;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemcd")) = insitemcd;
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;		
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("lnkitemcd")) = model.getvalue("/root/main/dietinfo/dietlist/dietsubitem[mealflag="+insmealflag+"]/itemcd") ;		
									grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("status")) = "I";
							}else{
								  grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("prcpnm")) = insprcpnm;
									grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;										
									grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("status")) = "U";			
							}
						}else{
							for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
								var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
								var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));
								var sitemcd = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("itemcd"));	
								
								if(insduty == sduty && insmealflag == smealflag && insitemcd == sitemcd){
									if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("status")) != "I"){
										var NodeNum = eval(getNodesetCount("/root/main/deloralinfo/delorallist"))+1;
										model.makeValue("/root/main/deloralinfo/delorallist["+NodeNum+"]/status", "D");
										model.makeValue("/root/main/deloralinfo/delorallist["+NodeNum+"]/carerecseqno", grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("carerecseqno")));
									}
									grd_dietsubtotal.deleteRow(j, false);
								}
							}
						}
					}					
				break;
			}
			grd_dietsubtotal.refresh();
			//¼·Ãë·® ÃʱâÈ­ ¹× ÀÔ·Â »óÅ º¯°æ
			fInitOralIntake("prcpdiet");
		break;
		
		case "etcdiet" :
		
			insmealflag = "4";

			switch(sBizFlag){
				case "insert" :	
					if(grd_dietsubtotal.rows- grd_dietsubtotal.fixedRows > 0){
						for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
							var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
							var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));										
							if(insduty == sduty && insmealflag == smealflag ){
								chkDuty = j;
							}							
						}
					}
					
					if(chkDuty > 0 && model.getValue(xPathBizFlag)== "insert"){
						var mealflagnm = model.getValue("/root/hidden/mealinfo/meallist[value="+insmealflag+"]/name");
						messageBox(mealflagnm +" ÀÔ·Â °ªÀÌ ÀÖ½À´Ï´Ù. Á¶È¸Å×ÀÌºí¿¡¼­ [±¸ºÐ]À» ¼±ÅÃÇÏ¿© ¼öÁ¤ÇϽʽÿÀ.", "I");
						return;
					}
				
					for(var i = grd_etcdiet.fixedRows ; i <= grd_etcdiet.rows - grd_etcdiet.fixedRows ; i++){
					  if(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")) != "" ){
					  	if(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm")) == ""){
					  	  messageBox("Ãß°¡ÇÑ ±âŸ½ÄÀÌ Ç׸ñ Á¾·ù¸¦ ÀÔ·ÂÇϽʽÿÀ","I");
					  	  return;
					  	}
					  	
				  		if(insetcitemcd == ""){
						  	insetcitemcd = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemcd"));
						  	insetcintakeqty = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty"));
						  	insetcdietitemnm = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm"));
					  	}else{
						  	insetcitemcd += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemcd"));
						  	insetcintakeqty += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty"));
						  	insetcdietitemnm += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm"));
						  }
						  
							insintakeqty += eval(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")));
							
							instotalrow++;			
					  }
					}
		
					if(instotalrow > 0){
						insitemcd = model.getValue("/root/main/dietinfo/dietlist/dietsubitem[mealflag = "+ "4" + "]/itemcd");
						insetcdietdesc = insetcitemcd + "|" + insetcintakeqty + "|" + insetcdietitemnm;
					}else{
						break;
					}
					
					var saveRow = 0;
					var insRowDuty = 0;
		
					if(grd_dietsubtotal.rows- grd_dietsubtotal.fixedRows > 0){
						for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
							var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
							var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));
							var sitemcd = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("itemcd"));											
							
							//ÀÌÀü ÀÔ·Â µ¥ÀÌÅÍ Çà Á¶È¸						
							if(insduty == sduty && insmealflag == smealflag && insitemcd == sitemcd){
								saveRow = j;
							}
							
							//ÀÔ·Â À§Ä¡Çà Á¶È¸
							if(insduty + insmealflag >= sduty + smealflag){
								insRowDuty = j;
							}
						}
					}
					
					if(saveRow == 0){
						grd_dietsubtotal.insertRow(insRowDuty, "below", false, true);
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("duty")) = insduty;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("mealflag")) = insmealflag;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("prcpnm")) = insprcpnm;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemnm")) = insitemnm;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemcd")) = insitemcd;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;		
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("lnkitemcd")) = model.getvalue("/root/main/dietinfo/dietlist/dietsubitem[mealflag="+insmealflag+"]/itemcd") ;		
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("etcdietdesc")) = insetcdietdesc;
						grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("status")) = "I";
					}else{
						grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;				
						grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("etcdietdesc")) = insetcdietdesc;			
						grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("status")) = "U";												
					}
							
				break;
				
				case "update" :
					for(var i = grd_etcdiet.fixedRows ; i <= grd_etcdiet.rows - grd_etcdiet.fixedRows ; i++){
					  if(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")) != "" ){
					  	if(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm")) == ""){
					  	  messageBox("Ãß°¡ÇÑ ±âŸ½ÄÀÌ Ç׸ñ Á¾·ù¸¦ ÀÔ·ÂÇϽʽÿÀ","I");
					  	  return;
					  	}
					  	
				  		if(insetcitemcd == ""){
						  	insetcitemcd = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemcd"));
						  	insetcintakeqty = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty"));
						  	insetcdietitemnm = grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm"));
					  	}else{
						  	insetcitemcd += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemcd"));
						  	insetcintakeqty += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty"));
						  	insetcdietitemnm += "^"+grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("itemnm"));
						  }
						  
							insintakeqty += eval(grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")));
							
							instotalrow++;			
					  }
					}
		
					if(instotalrow > 0){
						insitemcd = model.getValue("/root/main/dietinfo/dietlist/dietsubitem[mealflag = "+ "4" + "]/itemcd");
						insetcdietdesc = insetcitemcd + "|" + insetcintakeqty + "|" + insetcdietitemnm;
						
						var saveRow = 0;
						var insRowDuty = 0;
						var sStatus = "";
			
						if(grd_dietsubtotal.rows- grd_dietsubtotal.fixedRows > 0){
							for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
								var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
								var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));
								var sitemcd = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("itemcd"));			
								sStatus = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("status"));			
								
								//ÀÌÀü ÀÔ·Â µ¥ÀÌÅÍ Çà Á¶È¸						
								if(insduty == sduty && insmealflag == smealflag && insitemcd == sitemcd){
									saveRow = j;
								}
								
								//ÀÔ·Â À§Ä¡Çà Á¶È¸
								if(insduty >= sduty && insmealflag >= smealflag ){
									insRowDuty = j;
								}
							}
						}
						
						if(saveRow == 0){
							grd_dietsubtotal.insertRow(insRowDuty, "below", false, true);
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("duty")) = insduty;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("mealflag")) = insmealflag;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("prcpnm")) = insprcpnm;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemnm")) = insitemnm;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("itemcd")) = insitemcd;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;			
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("lnkitemcd")) = model.getvalue("/root/main/dietinfo/dietlist/dietsubitem[mealflag="+insmealflag+"]/itemcd") ;		
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("etcdietdesc")) = insetcdietdesc;
							grd_dietsubtotal.valueMatrix(insRowDuty+1, grd_dietsubtotal.colRef("status")) = "I";
						}else{
							grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("intakeqty")) = insintakeqty;				
							grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("etcdietdesc")) = insetcdietdesc;	
							if(sStatus != "I") grd_dietsubtotal.valueMatrix(saveRow, grd_dietsubtotal.colRef("status")) = "U";														
						}
					}else{
						for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
							var sduty =  grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"));
							var smealflag = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("mealflag"));						
							
							if(insduty == sduty && insmealflag == smealflag){
								if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("status")) != "I"){
									var NodeNum = getNodesetCount("/root/main/deloralinfo/delorallist");
									model.makeValue("/root/main/deloralinfo/delorallist["+NodeNum+"]/status", "D");
									model.makeValue("/root/main/deloralinfo/delorallist["+NodeNum+"]/carerecseqno", grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("carerecseqno")));
								}
								grd_dietsubtotal.deleteRow(j, false);
							}
						}
					}
				break;
			}
			grd_dietsubtotal.refresh();
			//¼·Ãë·® ÃʱâÈ­ ¹× ÀÔ·Â »óÅ º¯°æ
			fInitOralIntake("etcdiet");

		break;
	}

	if(instotalrow == 0){
		if(grd_dietsubtotal.rows > 0){
			grd_dietsubtotal.deleteRow(grd_dietsubtotal.findRow("4", 1, grd_dietsubtotal.colRef("duty")));			
			return;
		}else{
			messageBox("À̵¿ÇÒ ½ÄÀÌ Ç׸ñÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "I");
			return;
		}
	}
	
	//totalÇà »èÁ¦
	grd_dietsubtotal.deleteRow(grd_dietsubtotal.findRow("4", 1, grd_dietsubtotal.colRef("duty")));
	fOralSherGridMerge();
	
} 
 
/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °æ±¸ Á¶È¸ ±×¸®µå Merge
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fOralSherGridMerge(){
	var sumtotal = 0;
	var Dsubtotal = 0;
	var Esubtotal = 0;
	var Nsubtotal = 0;
	var instotalrow = 0;

	for(var j = grd_dietsubtotal.fixedRows ; j <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; j++){
		if(grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows < 2){
			sumtotal = grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"));
			grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("totalsum")) = sumtotal;
		}else{
			 if(j == 1){ //ù¹ø° Çà 
				 if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "1"){
				 	Dsubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
				 }else if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "2"){
				 	Esubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
				 }else{
				 	Nsubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
				 }
				 instotalrow = j;
			}else{
				//Àü Çà°ú duty°¡ µ¿ÀÏÇÏ´Ù¸é dutyº° ÇÕ°è º¯¼ö¿¡ Ãß°¡ 
				if(grd_dietsubtotal.valueMatrix(j-1, grd_dietsubtotal.colRef("duty")) == grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty"))){
					if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "1"){
						Dsubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
					}else if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "2"){
						Esubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
					}else{
						Nsubtotal += eval(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("intakeqty"))) ;
					}
				//Àü Çà°ú duty°¡ µ¿ÀÏÇÏÁö ¾Ê´Ù¸é ÀÌÀü duty¿¡ ÇÕ°è ÀÔ·Â 
			  }else{
					for(var i = instotalrow; i <  j  ; i++){
						if(grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("duty")) == "1"){
							grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("totalsum")) = Dsubtotal;
						}else if(grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("duty")) == "2"){
							grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("totalsum")) = Esubtotal;
						}else{
							grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("totalsum")) = Nsubtotal;
						}
					}
				  //»õ·Î¿î ÇØ´çÇà¿¡ ÇØ´çÇÏ´Â dutyº° ÇÕ°è º¯¼ö¿¡ ÀÔ·Â       	
					if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "1"){
						Dsubtotal += eval(grd_dietsubtotal.valueMatrix( j, grd_dietsubtotal.colRef("intakeqty")));
					}else if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "2"){
						Esubtotal += eval(grd_dietsubtotal.valueMatrix( j, grd_dietsubtotal.colRef("intakeqty")));
					}else{
						Nsubtotal += eval(grd_dietsubtotal.valueMatrix( j, grd_dietsubtotal.colRef("intakeqty")));
					}
					instotalrow = j;
			  }
			  
			  //¸¶Áö¸· ÇàÀÏ °æ¿ì ¸¶Áö¸· Çà°ú µ¿ÀÏÇÑ duty¿¡ ÇÕ°è ÀÔ·Â     
				if(j == grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows){
					for(var i = instotalrow; i <= j  ; i++){
						if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "1"){
							grd_dietsubtotal.valueMatrix( i, grd_dietsubtotal.colRef("totalsum")) = Dsubtotal;
						}else if(grd_dietsubtotal.valueMatrix(j, grd_dietsubtotal.colRef("duty")) == "2"){
							grd_dietsubtotal.valueMatrix( i, grd_dietsubtotal.colRef("totalsum")) = Esubtotal;
						}else{
							grd_dietsubtotal.valueMatrix( i, grd_dietsubtotal.colRef("totalsum")) = Nsubtotal;
						}
					}
				}
			}
		}
	}
	
	//total ÇÕ°è RowÃß°¡ ¹× Sum°ª ÀÔ·Â
	grd_dietsubtotal.addRow(false);
	grd_dietsubtotal.valueMatrix(grd_dietsubtotal.rows-1, grd_dietsubtotal.colRef("duty")) = "4";
	
	if(eval(sumtotal) > 0 ){
		grd_dietsubtotal.valueMatrix(grd_dietsubtotal.rows-1, grd_dietsubtotal.colRef("totalsum")) = sumtotal;
	}else{
		grd_dietsubtotal.valueMatrix(grd_dietsubtotal.rows-1, grd_dietsubtotal.colRef("totalsum")) = eval(Dsubtotal) + eval(Esubtotal) + eval(Nsubtotal);						
	}
	
	//±×¸®µå ¸ÓÁö ÀÛ¾÷
	grd_dietsubtotal.mergecells = "byrestriccol";
	grd_dietsubtotal.mergecol(0) = true;	
	grd_dietsubtotal.mergecol(1) = true;	
	grd_dietsubtotal.mergecol(2) = true;	
	grd_dietsubtotal.mergecol(3) = true;		 
	
	grd_dietsubtotal.isReadOnly(grd_dietsubtotal.rows-1, grd_dietsubtotal.colRef("duty")) = true;
	grd_dietsubtotal.isReadOnly(grd_dietsubtotal.rows-1, grd_dietsubtotal.colRef("mealflag")) = true;
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °æ±¸ÀÔ·Â ¼·Ãë·® ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fInitOralIntake(pFlag){
	switch(pFlag){
		case "prcpdiet" : // ½ÄÀÌó¹æ ±×¸®µå ¼·Ãë·® ÃʱâÈ­
			for(var i = grd_prcpdiet.fixedRows ; i <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; i++){
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) = "";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol1")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol2")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol3")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol4")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol5")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol6")) = "N";
			}
			//grd_prcpdiet.valueMatrix(1, grd_prcpdiet.colRef("baseqty")) = "";
			//grd_prcpdiet.valueMatrix(2, grd_prcpdiet.colRef("baseqty")) = "";
		break;
		case "etcdiet" : // ±âŸ½ÄÀÌ ±×¸®µå ¼·Ãë·® ÃʱâÈ­ & ÇàÃß°¡µÈ Çà »èÁ¦
			grd_etcdiet.allstyle( "all", "background-color" ) = "#FFFFFF";
			for(var i = grd_etcdiet.fixedRows ; i <= grd_etcdiet.rows - grd_etcdiet.fixedRows ; i++){
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")) = "";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol1")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol2")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol3")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol4")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol5")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol6")) = "N";				
				grd_etcdiet.deleteRow(grd_etcdiet.findRow("", 1, 1), false);
			}
			grd_etcdiet.topRow = 1;
		break;		
		case "All" : //½ÄÀÌó¹æ ±×¸®µå & ±âŸ½ÄÀÌ ±×¸®µå ¼·Ãë·® ±âÁØ·® ÃʱâÈ­
			for(var i = grd_prcpdiet.fixedRows ; i <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; i++){
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("intakeqty")) = "";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol1")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol2")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol3")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol4")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol5")) = "N";
				grd_prcpdiet.valueMatrix(i, grd_prcpdiet.colRef("calccol6")) = "N";				
			}		
			grd_prcpdiet.valueMatrix(1, grd_prcpdiet.colRef("baseqty")) = "";
			grd_prcpdiet.valueMatrix(2, grd_prcpdiet.colRef("baseqty")) = "";			
			
			for(var i = grd_etcdiet.fixedRows ; i <= grd_etcdiet.rows - grd_etcdiet.fixedRows ; i++){
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("intakeqty")) = "";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol1")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol2")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol3")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol4")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol5")) = "N";
				grd_etcdiet.valueMatrix(i, grd_etcdiet.colRef("calccol6")) = "N";							
				grd_etcdiet.deleteRow(grd_etcdiet.findRow("", 1, 1), false);
			}
			grd_etcdiet.topRow = 1;
		break;
	}
	
	model.setValue(xPathBizFlag,"insert");
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °æ±¸ Á¤º¸ ¼öÁ¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fUpdtDietInfo(pDuty, pMeal){

	rdo_duty.value = pDuty;
	rdo_mealtype.value = pMeal;
	fChngMeal(pMeal);
	
	var sEtcInfo0 = "";
	var sEtcInfoCd = "";
	var sEtcInfoQty = "";
	var sEtcInfoName = "";
	
	for(var i = grd_dietsubtotal.fixedRows ; i <= grd_dietsubtotal.rows - grd_dietsubtotal.fixedRows ; i++){
		var sItemeCd = "";
		var sIntakeQty = "";
		var sEtcDietDesc = "";
		var sEtcDietDescInfo = "";
		
		if(grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("duty")) == pDuty &&  grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("mealflag")) == pMeal){
		 sItemeCd = grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("itemcd"));
		 sIntakeQty= grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("intakeqty"));
		 sEtcDietDesc = grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("etcdietdesc"));
		 
		

			 if(pMeal == "4"){				 
				sEtcDietDescInfo = sEtcDietDesc.split("|");
				if(sEtcDietDescInfo =="" || sEtcDietDescInfo ==null) { //±¸ºÐÀÌ ±âŸÀ̸鼭 ±âŸ½ÄÀÌó¹æÀÌ ¾Æ´Ò¶§
					for(var j = grd_prcpdiet.fixedRows ; j <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; j++){
						if( sItemeCd == grd_prcpdiet.valueMatrix(j, grd_prcpdiet.colRef("itemcd"))){
							grd_prcpdiet.valueMatrix(j, grd_prcpdiet.colRef("intakeqty")) = sIntakeQty;
						}
					}									
				} else {					
					for(var k = 0 ; k < 3 ; k++){
						if(k == 0)sEtcInfoCd = sEtcDietDescInfo[0].split("^");
						if(k == 1)sEtcInfoQty = sEtcDietDescInfo[1].split("^");
						if(k == 2)sEtcInfoName = sEtcDietDescInfo[2].split("^");
					}
					
					for(var k = 0; k < sEtcInfoCd.length ; k++){
						var sRow = grd_etcdiet.findRow(sEtcInfoCd[k],1, grd_etcdiet.colRef("itemcd"));
						if(sRow > 0 ){
							grd_etcdiet.valueMatrix(sRow, grd_etcdiet.colRef("intakeqty")) = sEtcInfoQty[k];
						}else{
							grd_etcdiet.addRow(false);
							grd_etcdiet.cellStyle("background-color", grd_etcdiet.rows -1, 0, grd_etcdiet.rows -1, 0) = "#ffff99";
							grd_etcdiet.valueMatrix(grd_etcdiet.rows -1 , grd_etcdiet.colRef("itemcd")) = sEtcInfoCd[k];
							grd_etcdiet.valueMatrix(grd_etcdiet.rows -1 , grd_etcdiet.colRef("intakeqty")) = sEtcInfoQty[k];
							grd_etcdiet.valueMatrix(grd_etcdiet.rows -1 , grd_etcdiet.colRef("itemnm")) = sEtcInfoName[k];
						}
					}
				}
			}else{
				for(var j = grd_prcpdiet.fixedRows ; j <= grd_prcpdiet.rows - grd_prcpdiet.fixedRows ; j++){
					if( sItemeCd == grd_prcpdiet.valueMatrix(j, grd_prcpdiet.colRef("itemcd"))){
						grd_prcpdiet.valueMatrix(j, grd_prcpdiet.colRef("intakeqty")) = sIntakeQty;
					}
				}
			}
		}
	}
	
	model.setValue(xPathBizFlag,"update");
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °æ±¸ Á¤º¸ ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSaveOralInfo(){
	model.removeNodeSet("/root/send");
	model.makeValue("/root/send/pid", model.getValue("/root/main/cond/pid"));
	model.makeValue("/root/send/cretno", model.getValue("/root/main/cond/cretno"));
	model.makeValue("/root/send/orddd", model.getValue("/root/main/cond/orddd"));
	model.makeValue("/root/send/seardd", model.getValue("/root/main/cond/seardd"));
	model.makeValue("/root/send/wardcd", model.getValue("/root/main/cond/wardcd"));
	model.makeValue("/root/send/seartodd", model.getValue("/root/main/cond/seartodd"));
	
	var sOralHeader = "status¢Ëcarerecseqno¢Ëduty¢Ëtotalsum¢Ëmealflag¢Ëprcpnm¢Ëitemnm¢Ëintakeqty¢Ëitemcd¢Ëetcdietdesc¢Ëlnkitemcd¢Ì";
	for(var i = grd_dietsubtotal.fixedrows ; i <= grd_dietsubtotal.rows -  grd_dietsubtotal.fixedrows ; i ++){
		var sStatus = grd_dietsubtotal.valuematrix(i, grd_dietsubtotal.colRef("status"));
		if( sStatus == "I" || sStatus == "U"){
			sOralHeader += grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("status")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("carerecseqno")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("duty")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("totalsum")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("mealflag")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("prcpnm")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("itemnm")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("intakeqty")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("itemcd")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("etcdietdesc")) + "¢Ë"
			 	           + grd_dietsubtotal.valueMatrix(i, grd_dietsubtotal.colRef("lnkitemcd")) + "¢Ì";
		}
	}
	
	model.makeValue("/root/send/dietinfo", sOralHeader);
	
	if(getNodesetCount("/root/main/deloralinfo/delorallist") > 0 ){
		var sDelOralHeader = "status¢Ëcarerecseqno¢Ì";
		for(var i = 1; i <= getNodesetCount("/root/main/deloralinfo/delorallist") ; i ++ ){
			if(model.getValue("root/main/deloralinfo/delorallist["+i+"]/carerecseqno") != ""){
				sDelOralHeader += model.getValue("root/main/deloralinfo/delorallist["+i+"]/status") + "¢Ë"
				               +  model.getValue("root/main/deloralinfo/delorallist["+i+"]/carerecseqno")+"¢Ì";
			}
		}
		model.makeValue("/root/send/deloralinfo", sDelOralHeader);	
	}
	
	grd_dietsubtotal.deleteRow(grd_dietsubtotal.findRow("4", 1, grd_dietsubtotal.colRef("duty")));
	submit("TXMNR05701");
	model.removeNodeSet("/root/main/deloralinfo/delorallist");
	model.makeNode("/root/main/deloralinfo/delorallist");
	fOralSherGridMerge();
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¾÷¹«ÀÏÀÚ º¯°æ½Ã ÀÍÀÏ °è»ê
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fOrdddChng(){
	model.setValue("/root/main/cond/seartodd", getDateCalc(ipt_seardd.value, 1, "+"));
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ½ÄÀÌ ±â·Ï Á¤º¸ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSearDietRec(){
	grd_dietsubtotal.deleteRow(grd_dietsubtotal.findRow("4", 1, grd_dietsubtotal.colRef("duty")));
	model.removeNodeSet("/root/send");
	model.makeValue("/root/send/pid", model.getValue("/root/main/cond/pid"));
	model.makeValue("/root/send/cretno", model.getValue("/root/main/cond/cretno"));
	model.makeValue("/root/send/orddd", model.getValue("/root/main/cond/orddd"));
	model.makeValue("/root/send/seardd", model.getValue("/root/main/cond/seardd"));
	model.makeValue("/root/send/wardcd", model.getValue("/root/main/cond/wardcd"));
	model.makeValue("/root/send/seartodd", model.getValue("/root/main/cond/seartodd"));	
	submit("TRMNR05702", false);
	submit("TRMNR05701");
	//¼·Ãë·® ÃʱâÈ­ ¹× ÀÔ·Â »óÅ º¯°æ
	model.removeNodeSet("/root/main/deloralinfo/delorallist");
	model.makeNode("/root/main/deloralinfo/delorallist");
	fInitOralIntake("prcpdiet");
	fOralSherGridMerge();
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ½ÄÀÌ Ã³¹æ ±×¸®µå & ±âŸ½ÄÀÌ ±×¸®µå üũ¹Ú½º ¼±Åýà ÀÚµ¿ °è»ê ±¸Çö
 * @param  : pFlag -  prcpdiet ½ÄÀÌ Ã³¹æ ±×¸®µå Event
 *                    etcdiet  ±âŸ ½ÄÀÌ ±×¸®µå Event
 *           pCol  -  °ªÀÌ º¯°æµÈ Col Index
 *           pRow  -  °ªÀÌ º¯°æµÈ Row Index
 * @return :
 * @---------------------------------------------------
 */ 
function fChngValue(pFlag, pCol, pRow){
	
	switch(pFlag){
		case "prcpdiet" :
			if(pCol >= 2 && pCol <= 7){
				if(grd_prcpdiet.valueMatrix(pRow, grd_prcpdiet.colRef("baseqty")) != "" ){
					for(var iCol = 2 ; iCol <= 7 ; iCol ++){
						if(iCol != pCol){
							grd_prcpdiet.valueMatrix(pRow, iCol) = "N";
						}
					}					
					var sBaseQty = grd_prcpdiet.valueMatrix(pRow, grd_prcpdiet.colRef("baseqty"));
					var sCalcQty = "";
					switch(pCol){
						case 2 :
							sCalcQty = sBaseQty;
						break;
						case 3 :
							sCalcQty = Math.floor(eval(sBaseQty) / 2);
						break;
						case 4 :
							sCalcQty = Math.floor(eval(sBaseQty) / 3);
						break;
						case 5 :
							sCalcQty = Math.floor(eval(sBaseQty) * 2 / 3);
						break;
						case 6 :
							sCalcQty = eval(sBaseQty) * 2 ;
						break;
						case 7 :
							sCalcQty = eval(sBaseQty) * 3 ;
						break;
					}
					grd_prcpdiet.valueMatrix(pRow, grd_prcpdiet.colRef("intakeqty")) = sCalcQty;
				}else{
					grd_prcpdiet.valueMatrix(pRow, pCol) = "N";
				}
			}else if(pCol == 8){
				for(var iCol = 2 ; iCol <= 7 ; iCol ++){
					grd_prcpdiet.valueMatrix(pRow, iCol) = "N";
				}
			}
		break;
			
		case "etcdiet" :
			if(pCol >= 2 && pCol <= 7){
				if(grd_etcdiet.valueMatrix(pRow, grd_etcdiet.colRef("baseqty")) != ""){
					for(var iCol = 2 ; iCol <= 7 ; iCol ++){
						if(iCol != pCol){
							grd_etcdiet.valueMatrix(pRow, iCol) = "N";
						}
					}
					var sBaseQty = grd_etcdiet.valueMatrix(pRow, grd_etcdiet.colRef("baseqty"));
					var sCalcQty = "";
					switch(pCol){
						case 2 :
							sCalcQty = sBaseQty;
						break;
						case 3 :
							sCalcQty = Math.floor(eval(sBaseQty) / 2);
						break;
						case 4 :
							sCalcQty = Math.floor(eval(sBaseQty) / 3);
						break;
						case 5 :
							sCalcQty = Math.floor(eval(sBaseQty) * 2 / 3);
						break;
						case 6 :
							sCalcQty = eval(sBaseQty) * 2 ;
						break;
						case 7 :
							sCalcQty = eval(sBaseQty) * 3 ;
						break;
					}
					grd_etcdiet.valueMatrix(pRow, grd_etcdiet.colRef("intakeqty")) = sCalcQty;
				}else{
					grd_etcdiet.valueMatrix(pRow, pCol) = "N";
				}
			}else if(pCol == 8){
				for(var iCol = 2 ; iCol <= 7 ; iCol ++){
					grd_etcdiet.valueMatrix(pRow, iCol) = "N";
				}
			}
		break;
	}
}

/**
 * @group  :
 * @ver    : 2008.06.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÁ¤ ¹× »èÁ¦ µ¥ÀÌÅÍ Á¸Àç ¿©ºÎ È®ÀÎ
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fReturnViewStatus(){
	
	
	return rtnValue;
}