YNU_JEUS/app_home/himed/xpapps/emr/carerecxp/xp/SPMNR05800_SJH.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[
/*
  
      IO조회(SMMNR05800.xfm - JScript )
             (SMMNR05800.xjs)

      - Version :
          1)  : Ver.1.00.01 
          2)  : Ver.2.00.01
*/

var arErrorCode = new HashArray();
var xPathMemoInfo = ds_main_memoinfo_memolist;
var xPathCondInfo = ds_main_cond;
/**
 * @group  :
 * @ver    : 2008.07.02  -> 2016.07.26
 * @by     : 양천덕     -> 김도형 (xp로   UPDATE)
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 화면 초기화
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fInitialize(){
	//ipt_seardd.value = getCurrentDate();

    //if(checkOpener()){
	/** 
		SPMNR05700_Param 
		pid▦indd▦cretno▦wardcd▩ ==> 등록번호▦입원일자▦생성번호▦병동코드▩
	**/
	
	var sParamInfo = opener.frmf_getParameter("SPMNR05800_Param");

	//var sParamInfo = "pid▦indd▦cretno▦wardcd▦recdd▩18864191▦20080104▦800340900▦3050107000▦20080704▩"
		ds_main_cond.setColumn(0, "pid", 	lf_getArrayData(utlf_transNullToEmpty(sParamInfo),1,0, "▩", "▦"));
		ds_main_cond.setColumn(0, "orddd", 	lf_getArrayData(utlf_transNullToEmpty(sParamInfo),1,1, "▩", "▦"));
		ds_main_cond.setColumn(0, "cretno", lf_getArrayData(utlf_transNullToEmpty(sParamInfo),1,2, "▩", "▦"));
		ds_main_cond.setColumn(0, "wardcd", lf_getArrayData(utlf_transNullToEmpty(sParamInfo),1,3, "▩", "▦"));
		ds_main_cond.setColumn(0, "seardd", lf_getArrayData(utlf_transNullToEmpty(sParamInfo),1,4, "▩", "▦"));
	//}
	
	if(utlf_isNull(ds_main_cond.getColumn(0, "seardd")))
	{
		ipt_seardd.value = utlf_getCurrentDate();
	}
	
	opener.frmf_clearParameter("SPMNR05800_Param");
	
	fSearIOInfo();
}
	
/**
 * @group  :
 * @ver    : 2008.07.02  -> 2016.07.26
 * @by     : 양천덕     -> 김도형 (xp로   UPDATE)
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : IO정보 조회
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 	
function fSearIOInfo(){	
	ds_main_ioinfo_dietprcplist.clearData(); 
	ds_main_ioinfo_iolist.clearData();
	ds_main_memoinfo_memolist.clearData();	
	ds_main_patinfo.clearData();
	
	opt_breakdietprcpnm.value  ="";
	opt_lunchdietprcpnm.value  ="";
	opt_dinnerdietprcpnm.value  ="";
	
	ds_main_cond.setColumn(0, "seartodd", getDateCalc(ds_main_cond.getColumn(0, "seardd"), 1, "+"));
		            
	dsf_makeValue(ds_send, "pid", "string", 			ds_main_cond.getColumn(0, "pid"));
	dsf_makeValue(ds_send, "cretno", "string", 			ds_main_cond.getColumn(0, "cretno"));
	dsf_makeValue(ds_send, "orddd", "string", 			ds_main_cond.getColumn(0, "orddd"));
	dsf_makeValue(ds_send, "seardd", "string", 			ds_main_cond.getColumn(0, "seardd"));
	dsf_makeValue(ds_send, "wardcd", "string", 			ds_main_cond.getColumn(0, "wardcd"));
	dsf_makeValue(ds_send, "seartodd", "string", 		ds_main_cond.getColumn(0, "seartodd"));	
	dsf_makeValue(ds_send, "indd", "string", 			ds_main_cond.getColumn(0, "orddd"));	
	dsf_makeValue(ds_send, "memoitemflag", "string", 	"08");
	dsf_makeValue(ds_send, "iochkyn", "string", 		ds_main_cond.getColumn(0, "iochkyn"));	
	
	dsf_createDs("ds_main_ioinfo_iolist", [{col: "itemnm", type:"string", size:256}
										,  {col: "setyn",  type:"string", size:256}
										,  {col: "lnkbizcd",  type:"string", size:256}
										,  {col: "dayrslt",  type:"string", size:256}
										,  {col: "evnrslt",  type:"string", size:256}
										,  {col: "ngtrslt",  type:"string", size:256}
										,  {col: "daycnt",  type:"string", size:256}
										,  {col: "evncnt",  type:"string", size:256}
										,  {col: "ngtcnt",  type:"string", size:256}
										,  {col: "total",  type:"string", size:256}
										,  {col: "lnkrecflag",  type:"string", size:256}], true);
                                                             
	//submit("TRMNR05801_SJH");	
	var oParam = {};
		oParam.id          = "TRMNR05801_SJH";
		oParam.service     = "flowchartapp.FlowChartRecMngt";
		oParam.method      = "reqGetIntakeOutputInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_ioinfo_dietprcplist=dietprcplist ds_main_ioinfo_iolist=iolist ds_main_memoinfo_memolist=memolist ds_main_patinfo=patinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNR05801_SJH";

	tranf_submit(oParam);

	if( !utlf_isNull(ds_main_memoinfo_memolist.getColumnInfo("seqno")) ){	
		dsf_setTypeFormat(ds_main_memoinfo_memolist, "seqno:INT");
	}
	
	if( utlf_isNull(ds_main_ioinfo_iolist.getColumnInfo("d_lnkrecflag")) ){
		ds_main_ioinfo_iolist.addColumn("d_lnkrecflag", "string");
	}
	
	if( utlf_isNull(ds_main_ioinfo_iolist.getColumnInfo("e_lnkrecflag")) ){	
		ds_main_ioinfo_iolist.addColumn("e_lnkrecflag", "string");
	}
	
	if( utlf_isNull(ds_main_ioinfo_iolist.getColumnInfo("n_lnkrecflag")) ){	
		ds_main_ioinfo_iolist.addColumn("n_lnkrecflag", "string");
	}
	
	if( utlf_isNull(ds_main_ioinfo_iolist.getColumnInfo("subtotal")) ){	
		ds_main_ioinfo_iolist.addColumn("subtotal", "string");
	}
	
	for(var i =0; i < ds_main_ioinfo_iolist.rowcount; i++ ){
		ds_main_ioinfo_iolist.setColumn(i, "d_lnkrecflag"	, ds_main_ioinfo_iolist.getColumn(i, "lnkrecflag"));
		ds_main_ioinfo_iolist.setColumn(i, "e_lnkrecflag"	, ds_main_ioinfo_iolist.getColumn(i, "lnkrecflag"));
		ds_main_ioinfo_iolist.setColumn(i, "n_lnkrecflag"	, ds_main_ioinfo_iolist.getColumn(i, "lnkrecflag"));
		ds_main_ioinfo_iolist.setColumn(i, "subtotal"		, Math.round(ds_main_ioinfo_iolist.getColumn(i, "total"), 2));
	}
	
	fSettingPatlnfo();							// 160331_환자정보 추가
	fSettingIOlnfo();	
//alert(cap_breakdietprcpnm.text);
}	

/**
 * @group  :
 * @ver    : 2008.07.02
 * @by     : 양천덕
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 조회 정보 Setting
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSettingIOlnfo(){
	
	grdf_initGridStyle(grd_ioinfo);
	
	var tRow = ds_main_ioinfo_iolist.rowcount;
	var OralSum = 0;
	var DrugSum = 0;
	var BloodSum = 0 ;
	var EtcSum = 0;
	var OutPutSum = 0;
	var IntakeTotalSum = 0;
	var OutputTotalSum = 0;
	var SpecSum = 0;
	var StartFlag = "";
	var sAddIntakeRow = "";
	var IntakeLastRow = -1;
	
	OralSum   = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && utlf_isNull(itemnm)"), "total");
	DrugSum   = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '02' && utlf_isNull(itemnm)"), "total");
	BloodSum  = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '03' && utlf_isNull(itemnm)"), "total");
	EtcSum    = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '04' && utlf_isNull(itemnm)"), "total");
	OutPutSum = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '07' && utlf_isNull(itemnm)"), "total");

	var DayOralSum   = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && itemnm == '경구입력'"), "dayrslt");
	var EvnOralSum   = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && itemnm == '경구입력'"), "evnrslt");
	var NgtOralSum   = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && itemnm == '경구입력'"), "ngtrslt");
	var totalOralSum = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && itemnm == '경구입력'"), "subtotal");
	
	var DaySum1 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && utlf_isNull(itemnm)"), "dayrslt");
	var DaySum2 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '02' && utlf_isNull(itemnm)"), "dayrslt");	
	var DaySum3 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '03' && utlf_isNull(itemnm)"), "dayrslt");
	var DaySum4 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '04' && utlf_isNull(itemnm)"), "dayrslt");
	var EvnSum1 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && utlf_isNull(itemnm)"), "evnrslt");
	var EvnSum2 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '02' && utlf_isNull(itemnm)"), "evnrslt");
	var EvnSum3 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '03' && utlf_isNull(itemnm)"), "evnrslt");
	var EvnSum4 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '04' && utlf_isNull(itemnm)"), "evnrslt");
	var NgtSum1 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && utlf_isNull(itemnm)"), "ngtrslt");
	var NgtSum2 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '02' && utlf_isNull(itemnm)"), "ngtrslt");
	var NgtSum3 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '03' && utlf_isNull(itemnm)"), "ngtrslt");
	var NgtSum4 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '04' && utlf_isNull(itemnm)"), "ngtrslt");
	
	var SubTotal1 = ds_main_ioinfo_iolist.getColumn(ds_main_ioinfo_iolist.findRowExpr("lnkbizcd == '01' && utlf_isNull(itemnm)"), "subtotal");
	
	
	
	if( utlf_isNull(DaySum1) )DaySum1=0;
	if( utlf_isNull(DaySum2) )DaySum2=0;
	if( utlf_isNull(DaySum3) )DaySum3=0;
	if( utlf_isNull(DaySum4) )DaySum4=0;
	if( utlf_isNull(EvnSum1) )EvnSum1=0;
	if( utlf_isNull(EvnSum2) )EvnSum2=0;
	if( utlf_isNull(EvnSum3) )EvnSum3=0;
	if( utlf_isNull(EvnSum4) )EvnSum4=0;
	if( utlf_isNull(NgtSum1) )NgtSum1=0;
	if( utlf_isNull(NgtSum2) )NgtSum2=0;
	if( utlf_isNull(NgtSum3) )NgtSum3=0;
	if( utlf_isNull(NgtSum4) )NgtSum4=0;
	
	for(var i=0; i < ds_main_ioinfo_iolist.rowcount; i++) {
		lnkbizcd =  grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","lnkbizcd"));
		itemnm   =  grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"));
	  
		if(lnkbizcd == "01" && utlf_isNull(itemnm) ) {
			ds_main_ioinfo_iolist.setColumn(i, "dayrslt"	, Math.round(parseFloat(DaySum1)   + parseFloat(DayOralSum), 2));
			ds_main_ioinfo_iolist.setColumn(i, "evnrslt"	, Math.round(parseFloat(EvnSum1)   + parseFloat(EvnOralSum), 2));
			ds_main_ioinfo_iolist.setColumn(i, "ngtrslt"	, Math.round(parseFloat(NgtSum1)   + parseFloat(NgtOralSum), 2));
			ds_main_ioinfo_iolist.setColumn(i, "subtotal"	, Math.round(parseFloat(SubTotal1) + parseFloat(totalOralSum), 2));
			ds_main_ioinfo_iolist.setColumn(i, "total"		, Math.round(parseFloat(SubTotal1) + parseFloat(totalOralSum), 2));
		}
	}
	

	if(tRow > -1){
		var sExprBack   = "EXPR(";
		var sExprColor   = "EXPR(";
		var sExprSize    = "EXPR(";
		for(var i = 0; i < ds_main_ioinfo_iolist.rowcount; i++){
			
			if(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","setyn")) == "1"){
				IntakeLastRow = i;
			}
			
			var param = grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","lnkbizcd"));

     
			//수치가 0인 항목 삭제 및 항목명 입력
			if(param == "01"){
				if( utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","d_lnkrecflag")) ) && !utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")) ) ){
					ds_main_ioinfo_iolist.setColumn(i, "d_lnkrecflag", grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")));	
				}
				
				if( utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","e_lnkrecflag")) ) && !utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")) ) ){ 
				    ds_main_ioinfo_iolist.setColumn(i, "e_lnkrecflag", grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")));	                                                                                                 
				}
				
				if( utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","n_lnkrecflag")) ) && !utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")) ) ){
					ds_main_ioinfo_iolist.setColumn(i, "n_lnkrecflag", grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")));
				}
			}else{
				if( utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","d_lnkrecflag")) ) ){
					ds_main_ioinfo_iolist.setColumn(i, "d_lnkrecflag", utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")))+ 
					       (  param == "03" 
					       && grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","daycnt")) !=  "0" 
					       &&  !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) 
					       ? " ("+ utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","daycnt"))) + ")" : "") );
					

				}else if( !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) ){
					ds_main_ioinfo_iolist.setColumn(i, "dayrslt", "");		
				}

				if( utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","e_lnkrecflag"))) ){
					ds_main_ioinfo_iolist.setColumn(i, "e_lnkrecflag", utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")))+ 
					          (  param == "03" 
					          && grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","evncnt")) !=  "0" 
					          &&  !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) 
					          ? " ("+ utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","evncnt"))) + ")" : "") );

				}else if( !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) ){
					ds_main_ioinfo_iolist.setColumn(i, "evnrslt", "");
				}
				
				if( utlf_isNull( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","n_lnkrecflag")) ) ){
					ds_main_ioinfo_iolist.setColumn(i, "n_lnkrecflag", utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm")))+ 
					          (  param == "03" 
					          && grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","ngtcnt")) !=  "0" 
					          &&  !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) 
					          ? " ("+ utlf_transNullToEmpty(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","ngtcnt"))) + ")" : "") );

				}else if( !utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","itemnm"))) ){
					ds_main_ioinfo_iolist.setColumn(i, "ngtrslt", "");
				}
			}

			var fRow = ds_main_ioinfo_iolist.findRow("lnkbizcd", ds_main_ioinfo_iolist.getColumn(i, "lnkbizcd"));
			
			
			//구분별 합계 입력(Merge 작업을 하기위하여 머지할 행 데이터 일치시키기 위함)
			switch(param){
				case "01" :
					ds_main_ioinfo_iolist.setColumn(i, "total", "     " + Math.round(OralSum, 2));
					break;
				case "02" :
					ds_main_ioinfo_iolist.setColumn(i, "total", " " + Math.round(DrugSum, 2));
					break;
				case "03" :
					ds_main_ioinfo_iolist.setColumn(i, "total", "  " + Math.round(BloodSum, 2));
					break;
				case "04" :
					ds_main_ioinfo_iolist.setColumn(i, "total", "   " + Math.round(EtcSum, 2));		
					break;
				case "05" :
					ds_main_ioinfo_iolist.setColumn(i, "total", "    " + Math.round(OutPutSum, 2));					
					break;
			}
			
			//구분필드 색상 변경
			sExprBack += "currow == "+i+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","setyn"))   +") ? '#ccccff' : ";
			sExprBack += "currow == "+i+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","lnkbizcd"))+") ? '#ccccff' : ";
			sExprSize  += "currow == "+i+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","setyn"))   +") ? 'Dotum,9,bold' : ";
			sExprSize  += "currow == "+i+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","lnkbizcd"))   +") ? 'Dotum,9,bold' : ";
			
			
			//SubTotal Row 색상 변경
			if( utlf_isNull(ds_main_ioinfo_iolist.getColumn(i, "itemnm")) ){
				for(var stcol = grd_ioinfo.getBindCellIndex("body","d_lnkrecflag") ; stcol <= grd_ioinfo.getBindCellIndex("body","subtotal"); stcol++){
					sExprBack += "currow == "+i+" && (self.col == "+stcol+") ? '#ffff99' : ";
				}
			}
			
				
			//Total Output Row 색상변경
			if( ds_main_ioinfo_iolist.getColumn(i, "lnkbizcd") == "07"){
				for(var tocol = grd_ioinfo.getBindCellIndex("body","setyn"); tocol <= grd_ioinfo.getBindCellIndex("body","total"); tocol++){
					sExprBack = sExprBack.replace("currow == "+i+" && (self.col == "+tocol+") ? '#ccccff' : ", "currow == "+i+" && (self.col == "+tocol+") ? '#ffff00' : ");
					sExprBack = sExprBack.replace("currow == "+i+" && (self.col == "+tocol+") ? '#ffff99' : ", "currow == "+i+" && (self.col == "+tocol+") ? '#ffff00' : ");
					sExprSize += "currow == "+i+" && (self.col == "+tocol+") ? 'Dotum,9,bold' : ";
				}	
			}
		}

		//Intake 합계 Row 추가 		
		var intaketotalsetrow = -1;
		
		if(IntakeLastRow > -1){
			
			ds_main_ioinfo_iolist.insertRow(IntakeLastRow + 1);

			for(var itr = ds_main_ioinfo_iolist.rowcount-2; itr > IntakeLastRow; itr--){
				sExprBack = sExprBack.replace("currow == "+itr+"", "currow == "+(itr+1)+"");
				sExprSize  = sExprSize.replace("currow == "+itr+"", "currow == "+(itr+1)+"");
			}
			intaketotalsetrow = IntakeLastRow + 1;
		}
		
		if(intaketotalsetrow > -1){
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "setyn"		, "06");
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "lnkbizcd"	, "06");
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "dayrslt"	, Math.round(eval(DayOralSum) + eval(DaySum1) + eval(DaySum2) + eval(DaySum3)+ eval(DaySum4), 2));
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "evnrslt"	, Math.round(eval(EvnOralSum) + eval(EvnSum1) + eval(EvnSum2) + eval(EvnSum3)+ eval(EvnSum4), 2));
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "ngtrslt"	, Math.round(eval(NgtOralSum) + eval(NgtSum1) + eval(NgtSum2) + eval(NgtSum3)+ eval(NgtSum4), 2));     
			
			
			for(var itcol = grd_ioinfo.getBindCellIndex("body","setyn"); itcol <= grd_ioinfo.getBindCellIndex("body","total"); itcol++){
				sExprBack = sExprBack.replace("currow == "+intaketotalsetrow+" && (self.col == "+itcol+") ? '#ccccff' : ", "currow == "+intaketotalsetrow+" && (self.col == "+itcol+") ? '#ffff00' : ");
				sExprBack += "currow == "+intaketotalsetrow+" && (self.col == "+itcol+") ? '#ffff00' : ";
				sExprSize  += "currow == "+intaketotalsetrow+" && (self.col == "+itcol+") ? 'Dotum,9,bold' : ";
			}
		}
		
		// 비고 Row 추가및 계산 정보 입력
		var insertRow = -1 ;
		var specRow = -1;
		var outputtotalsetrow = ds_main_ioinfo_iolist.findRow("setyn", "07");		

		if(intaketotalsetrow > -1 && outputtotalsetrow > -1){
			ds_main_ioinfo_iolist.insertRow(outputtotalsetrow + 1);
			
			for(var qlrhr = ds_main_ioinfo_iolist.rowcount-2; qlrhr > outputtotalsetrow; qlrhr--){
				sExprBack = sExprBack.replace("currow == "+qlrhr+"", "currow == "+(qlrhr+1)+"");
				sExprSize  = sExprSize.replace("currow == "+qlrhr+"", "currow == "+(qlrhr+1)+"");
			}
			
			specRow = outputtotalsetrow+1;			
		}

		if(specRow > -1 ){
			var d_spec = eval(ds_main_ioinfo_iolist.getColumn(intaketotalsetrow, "dayrslt")) - eval(ds_main_ioinfo_iolist.getColumn(outputtotalsetrow, "dayrslt"));
			var e_spec = eval(ds_main_ioinfo_iolist.getColumn(intaketotalsetrow, "evnrslt")) - eval(ds_main_ioinfo_iolist.getColumn(outputtotalsetrow, "evnrslt"));
			var n_spec = eval(ds_main_ioinfo_iolist.getColumn(intaketotalsetrow, "ngtrslt")) - eval(ds_main_ioinfo_iolist.getColumn(outputtotalsetrow, "ngtrslt"));
			var t_spec = eval(d_spec) + eval(e_spec) + eval(n_spec);

			d_spec = Math.round(d_spec * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1);
			e_spec = Math.round(e_spec * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1);
			n_spec = Math.round(n_spec * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1);
			t_spec = Math.round(t_spec * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1);
			
			ds_main_ioinfo_iolist.setColumn(specRow, "setyn"	, "08");
			ds_main_ioinfo_iolist.setColumn(specRow, "lnkbizcd"	, "08");
			
			if(d_spec > 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "dayrslt", "+" + Math.round(d_spec, 2)); 								 
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","dayrslt")+") ? '#ff0000' : ";
			}else if(d_spec == 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "dayrslt", Math.round(d_spec, 2));    		
			}else{
				ds_main_ioinfo_iolist.setColumn(specRow, "dayrslt", Math.round(d_spec, 2));    
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","dayrslt")+") ? '#0000ff' : ";   
			}
			
			if(e_spec > 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "evnrslt", "+" + Math.round(e_spec, 2));
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","evnrslt")+") ? '#ff0000' : ";     
			}else if(e_spec == 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "evnrslt", Math.round(e_spec, 2));     		
			}else{
				ds_main_ioinfo_iolist.setColumn(specRow, "evnrslt", Math.round(e_spec, 2)); 
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","evnrslt")+") ? '#0000ff' : ";                 
			}
			
			if(n_spec > 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "ngtrslt", "+" + Math.round(n_spec, 2)); 
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","ngtrslt")+") ? '#ff0000' : ";   
			}else if(n_spec == 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "ngtrslt", Math.round(n_spec, 2));      		
			}else{
				ds_main_ioinfo_iolist.setColumn(specRow, "ngtrslt", Math.round(n_spec, 2));         
				sExprColor += "currow == "+specRow+" && (self.col == "+grd_ioinfo.getBindCellIndex("body","ngtrslt")+") ? '#0000ff' : ";         			
			}
			
			if(t_spec > 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "subtotal", "+" + Math.round(t_spec, 2));
				ds_main_ioinfo_iolist.setColumn(specRow, "total", "+" + Math.round(t_spec, 2));
//alert(ds_main_ioinfo_iolist.getColumn(specRow, "subtotal"))
//alert(ds_main_ioinfo_iolist.getColumn(specRow, "total"))
				
				sExprColor += "currow == "+specRow+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","subtotal"))   +") ? '#ff0000' : ";
				sExprColor += "currow == "+specRow+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","total"))	  +") ? '#ff0000' : ";    
				
			}else if(t_spec == 0){
				ds_main_ioinfo_iolist.setColumn(specRow, "subtotal", Math.round(t_spec, 2));
				ds_main_ioinfo_iolist.setColumn(specRow, "total", Math.round(t_spec, 2));
				
			}else{
				ds_main_ioinfo_iolist.setColumn(specRow, "subtotal", Math.round(t_spec, 2));
				ds_main_ioinfo_iolist.setColumn(specRow, "total", Math.round(t_spec, 2));
				
				sExprColor += "currow == "+specRow+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","subtotal"))   +") ? '#0000ff' : ";
				sExprColor += "currow == "+specRow+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","total"))	  +") ? '#0000ff' : ";    
			}
			
 			for(var qlrh = grd_ioinfo.getBindCellIndex("body","setyn"); qlrh <= grd_ioinfo.getBindCellIndex("body","total"); qlrh++){
 				sExprBack = sExprBack.replace("currow == "+specRow+" && (self.col == "+qlrh+") ? '#ccccff' : ", "currow == "+specRow+" && (self.col == "+qlrh+") ? '#ffcc99' : ");
 				sExprBack += "currow == "+specRow+" && (self.col == "+qlrh+") ? '#ffcc99' : ";
 				sExprSize  += "currow == "+specRow+" && (self.col == "+qlrh+") ? 'Dotum,9,bold' : ";
 			}
		}
		
		sExprBack  += "'')";
		sExprColor  += "'')";
		
		for(var expnum = 0; expnum <grd_ioinfo.getCellCount("Body"); expnum++){
			grd_ioinfo.setCellProperty("Body", expnum, "background", sExprBack);
			grd_ioinfo.setCellProperty("Body", expnum, "background2", sExprBack);
			grd_ioinfo.setCellProperty("Body", expnum, "color", sExprColor);
			grd_ioinfo.setCellProperty("Body", expnum, "color2", sExprColor);
		}
		
		
		sExprSize  += "'Dotum,9')";

		for(var expnum2 = 0; expnum2 <grd_ioinfo.getCellCount("Body"); expnum2++){
			grd_ioinfo.setCellProperty("Body", expnum2, "font", sExprSize);
		}

		//그리드 선택 제어 부분
		btn_close.setFocus();
		ds_main_ioinfo_iolist.rowposition = -1;
		grd_ioinfo.readonly = true;
		
		//그리드 머지 작업
		/*
		grd_ioinfo.mergecells = "bycolrec"; // byrestriccol  byrestricrow
		
		grd_ioinfo.mergecol(0) = true;	
		grd_ioinfo.mergecol(1) = true;
		grd_ioinfo.mergecol(2) = false;	
		grd_ioinfo.mergecol(3) = false;	
		grd_ioinfo.mergecol(4) = false;	
		grd_ioinfo.mergecol(5) = false;	
		grd_ioinfo.mergecol(6) = false;	
		grd_ioinfo.mergecol(7) = false;
		grd_ioinfo.mergecol(8) = false;	
		grd_ioinfo.mergecol(9) = true;
		*/
		
		//Total Intake 합계 데이터 입력(Merge로 인하여 제일 하단에 추가)
		if(intaketotalsetrow > -1){
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "subtotal"	, "      " + Math.round(Math.round((eval(DaySum1) + eval(DaySum2) + eval(DaySum3)+ eval(DaySum4) + eval(EvnSum1) + eval(EvnSum2) + eval(EvnSum3)+ eval(EvnSum4) + eval(NgtSum1) + eval(NgtSum2) + eval(NgtSum3)+ eval(NgtSum4)) * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1), 2));
			ds_main_ioinfo_iolist.setColumn(intaketotalsetrow, "total"		, "      " + Math.round(Math.round((eval(DaySum1) + eval(DaySum2) + eval(DaySum3)+ eval(DaySum4) + eval(EvnSum1) + eval(EvnSum2) + eval(EvnSum3)+ eval(EvnSum4) + eval(NgtSum1) + eval(NgtSum2) + eval(NgtSum3)+ eval(NgtSum4)) * Math.pow(10, (-4)*(-1)-1)) / Math.pow(10, (-4)*(-1)-1), 2));
		}
	}

	for(var i = 0; i < ds_main_ioinfo_iolist.rowcount; i ++){
		if( utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","dayrslt"))) ){
			ds_main_ioinfo_iolist.setColumn(i, "d_lnkrecflag", "");
		}
		
		if( utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","evnrslt"))) ){
			ds_main_ioinfo_iolist.setColumn(i, "e_lnkrecflag", "");
		}
		
		if( utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","ngtrslt"))) ){
			ds_main_ioinfo_iolist.setColumn(i, "n_lnkrecflag", "");
		}
	}	
	
	//수치량이 존재하지 않는 Row 삭제
	for(var i = 0; i < ds_main_ioinfo_iolist.rowcount; i++){
		if( grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","dayrslt")) == "07"){
			//grd_ioinfo.mergerow(i) = true;	
		}
		
		if(utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","dayrslt"))) &&
		   utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","evnrslt"))) &&
		   utlf_isNull(grd_ioinfo.getCellValue(i,  grd_ioinfo.getBindCellIndex("body","ngtrslt"))) ){
			 ds_main_ioinfo_iolist.deleteRow(i);
			 i = i-1;
		}
	}
	
	var sExprdpValue    = "EXPR(";
	var sExpredValue    = "EXPR(";
	for(var exva = 0; exva < ds_main_ioinfo_iolist.rowcount; exva++){
		for(var cds = 0; cds < ds_temp_lnkrecinfo_lnkreclist.rowcount; cds++){
			if(ds_temp_lnkrecinfo_lnkreclist.getColumn(cds, "cd") == ds_main_ioinfo_iolist.getColumn(exva, "d_lnkrecflag")){
				sExprdpValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","d_lnkrecflag"))   +") ? 'combo' : ";
				sExpredValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","d_lnkrecflag"))   +") ? 'combo' : ";
			}
			
			if(ds_temp_lnkrecinfo_lnkreclist.getColumn(cds, "cd") == ds_main_ioinfo_iolist.getColumn(exva, "e_lnkrecflag")){
				sExprdpValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","e_lnkrecflag"))   +") ? 'combo' : ";
				sExpredValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","e_lnkrecflag"))   +") ? 'combo' : ";
			}
			
			if(ds_temp_lnkrecinfo_lnkreclist.getColumn(cds, "cd") == ds_main_ioinfo_iolist.getColumn(exva, "n_lnkrecflag")){
				sExprdpValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","n_lnkrecflag"))   +") ? 'combo' : ";
				sExpredValue += "currow == "+exva+" && (self.col == "+(grd_ioinfo.getBindCellIndex("body","n_lnkrecflag"))   +") ? 'combo' : ";
			}
		}	
	}
	sExprdpValue  += "'normal')";
	sExpredValue  += "'none')";
	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","d_lnkrecflag"), "displaytype", sExprdpValue);
	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","d_lnkrecflag"), "edittype", sExpredValue);

	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","e_lnkrecflag"), "displaytype", sExprdpValue);
	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","e_lnkrecflag"), "edittype", sExpredValue);

	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","n_lnkrecflag"), "displaytype", sExprdpValue);
	grd_ioinfo.setCellProperty("Body", grd_ioinfo.getBindCellIndex("body","n_lnkrecflag"), "edittype", sExpredValue);
}


/**
 * @group  :
 * @ver    : 2009.07.01
 * @by     : 김홍점
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 메모저장, 메모삭제
 * @param  :PFlag : D - 메모삭제 , S - 저장 
 * @return :
 * @---------------------------------------------------
 */ 
function fMedrMomoSave(pFlag)
{
    var saveHearder = "status▦memocnts▦pid▦memoitemflag▦seqno▦recdd_b▦rectm_b▦recdd▦rectm▦indd▦cretno▩";
    var saveData = "";
    var status = "";
	if ( utlf_isNull(ds_main_cond.getColumn(0, "pid"))) 
	{
		sysf_messageBox("해당 환자가 선택되지", "E007");
		return;
	} 
	else 
	{
		ds_send_savedata.clear();
		ds_send_savedata_memoinfo.clearData();
		
		dsf_makeValue(ds_send_savedata, "wardcd", "string", xPathCondInfo.getColumn(0, "wardcd"));
		dsf_makeValue(ds_send_savedata, "pid", "string", xPathCondInfo.getColumn(0, "pid"));
		dsf_makeValue(ds_send_savedata, "indd", "string", xPathCondInfo.getColumn(0, "orddd"));
		dsf_makeValue(ds_send_savedata, "cretno", "string",xPathCondInfo.getColumn(0, "cretno"));
		dsf_makeValue(ds_send_savedata, "orddd", "string", xPathCondInfo.getColumn(0, "seardd"));
		dsf_makeValue(ds_send_savedata, "seardd", "string", xPathCondInfo.getColumn(0, "seardd"));
		dsf_makeValue(ds_send_savedata, "memoitemflag", "string", "08");
							
	    if( pFlag =="D")
	    {
	        saveData = "d" + "▦"
	                 + ""  + "▦"
	                 + ds_main_cond.getColumn(0, "pid")  + "▦"
	                 + "08"  + "▦"
	                 + ds_main_memoinfo_memolist.getColumn(0, "seqno") + "▦"
	                 + ds_main_memoinfo_memolist.getColumn(0, "recdd_b") + "▦"
	                 + ds_main_memoinfo_memolist.getColumn(0, "rectm_b") + "▦"
	                 + ds_main_memoinfo_memolist.getColumn(0, "recdd_b") + "▦"
	                 + ds_main_memoinfo_memolist.getColumn(0, "rectm_b") + "▦"
	                 + ds_main_cond.getColumn(0, "orddd")  + "▦"
	                 + ds_main_cond.getColumn(0, "cretno")  + "▩";
    	        	    
    	    dsf_setCSVToDs("ds_send_savedata_memoinfo", saveHearder+saveData);

    	    //model.resetInstanceNode(xPathMemoInfo);    	  
			//if(submit("TXMNR05801","false")){
			var oParam = {};
				oParam.id          = "TXMNR05801";
				oParam.service     = "wardcareapp.WardCardexMngt";
				oParam.method      = "reqExeMemoInfo";
				oParam.inds        = "reqdata=ds_send_savedata_memoinfo reqcond=ds_send_savedata";
				oParam.outds       = "ds_main_memoinfo_memolist=medrmemoinfo";
				oParam.async       = false;
				oParam.callback    = "cf_TXMNR05801";

			tranf_submit(oParam);

			if(arErrorCode.pop("TXMNR05801") > -1) 
			{
    			sysf_messageBox("성공적으로", "I001");
    		}
    		
	    }
	    else
	    {

    	    if ( utlf_isNull(ds_main_memoinfo_memolist.getColumn(0, "memocnts")))
    	    {
    	       sysf_messageBox("저장할 메모를", "C001");//" 입력하십시오."
    	       return;
    	    }
			ds_send_savedata_memoinfo.clearData();

    		if(utlf_isNull(ds_main_memoinfo_memolist.getColumn(0, "status")))
    		{
				status="i";
    	        saveData = status + "▦"
    	                 + ds_main_memoinfo_memolist.getColumn(0, "memocnts")  + "▦"
    	                 + ds_main_cond.getColumn(0, "pid")  + "▦"
    	                 + "08"  + "▦"
    	                 + ds_main_memoinfo_memolist.getColumn(0, "seqno") + "▦"
    	                 + ds_main_memoinfo_memolist.getColumn(0, "recdd_b") + "▦"
    	                 + ds_main_memoinfo_memolist.getColumn(0, "rectm_b") + "▦"
    	                 + ds_main_cond.getColumn(0, "seardd") + "▦"
    	                 + "0000▦"
    	                 + ds_main_cond.getColumn(0, "orddd")  + "▦"
    	                 + ds_main_cond.getColumn(0, "cretno")  + "▩";
    		}
    		else
    		{
					status="u";
					saveData = status + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "memocnts")  + "▦"
							 + ds_main_cond.getColumn(0, "pid")  + "▦"
							 + "08"  + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "seqno") + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "recdd_b") + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "rectm_b") + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "recdd_b") + "▦"
							 + ds_main_memoinfo_memolist.getColumn(0, "rectm_b") + "▦"
							 + ds_main_cond.getColumn(0, "orddd")  + "▦"
							 + ds_main_cond.getColumn(0, "cretno")  + "▩";
			}
				dsf_setCSVToDs("ds_send_savedata_memoinfo", saveHearder+saveData);

				var oParam = {};
					oParam.id          = "TXMNR05801";
					oParam.service     = "wardcareapp.WardCardexMngt";
					oParam.method      = "reqExeMemoInfo";
					oParam.inds        = "reqdata=ds_send_savedata_memoinfo reqcond=ds_send_savedata";
					oParam.outds       = "ds_main_memoinfo_memolist=medrmemoinfo";
					oParam.async       = false;
					oParam.callback    = "cf_TXMNR05801";

				tranf_submit(oParam);


				if(arErrorCode.pop("TXMNR05801") > -1) 
				{
					sysf_messageBox("성공적으로", "I001");
				}
			
		}
	}
}

function cf_TXMNR05801(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}



// 환자 기본정보 조회('16.03.31) - AYS
function fSettingPatlnfo(){
	var sPatBaseInfo   = utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "wardnm"  	 )) + "  "   	// 병동
					   + utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "roomcd"  	 )) + "  "   	// 병실
					   + utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "patnm" 	 )) + "("   	 	// 환자명
					   + utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "pid"  		 )) + ")  "    // 등록번호
					   + utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "sexage"     )) + "  "   	// SA
					   + utlf_transNullToEmpty(ds_main_patinfo.getColumn(0, "orddeptnm"  ));				   	// 진료과
  //alert("sPatBaseInfo : " + sPatBaseInfo);
  //model.makeValue(ds_main_patinfo, sPatBaseInfo);
	dsf_createDs("ds_main");
	dsf_makeValue(ds_main,"patinfo","string", sPatBaseInfo);
	
}
	]]></Script>