var sORDERBY   = "desc";
var sMEDIALERT = ""; //ÀÇ·áÁ¤º¸ Àü´Þ»çÇ×
var sDRALERT   = ""; //ÀÇ»ç Àü´Þ»çÇ×

// ÀÌÀü µî·Ï¹øÈ£, ÀÔ¿øÀÏÀÚ, »ý¼º¹øÈ£¸¦ ÀúÀåÇÏ¿©, ȯÀÚÁ¤º¸°¡ ´Ù¸¥ °æ¿ì ±â·ÏÁö¸¦ »õ·Î Á¶È¸Çϱ⠼³Á¤ÇØ µÒ
// 2008. 1. 7. ¿ÀÁöÈÆ
var sBFPID    = ""; //ÀÌÀüµî·Ï¹øÈ£
var sBFORDDD  = ""; //ÀÌÀüÀÔ¿øÀÏÀÚ
var sBFCRETNO = ""; //ÀÌÀü»ý¼º¹øÈ£


function fInit() {
	
					mmbfGetHardCodeInfoNm("/root/send/reqhardcd", "/root/init/hardcd", 1240);	
					
					
					//¹Ìºñ±â·Ï¸®½ºÆ®ÀÇ merge±âº» ¼³Á¤À» false·Î ó¸®
					grd_unprepreclist.autoMerge = false;
					for(var i = 0; i < grd_unprepreclist.cols; i++){
						grd_unprepreclist.mergeCol(i) = false;
					}
					
					zbcfGetKindCodeList(new Array("M0037"), new Array("M0546"), new Array("/root/init/openday"), false);
					
					//±×¸®µåÀÇ Â¦¼öÇàÀÇ »öº¯È­¸¦ Á¦°Å
					grd_unprepreclist.backColorAlternate = "#ffffff";
					
					//Á¶È¸±¸ºÐÀÏÀÚ(Åð¿ø, ÀÛ¾÷) ¼³Á¤
					model.setValue("/root/main/cond/unprepdrbase/fromdd", getCurrentDate());
					model.setValue("/root/main/cond/unprepdrbase/todd"  , getCurrentDate());
					
					//¹Ìºñ°ú, Åð¿ø°ú¼³Á¤
					fGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", "A", getCurrentDate());
					addComboItem("cmb_orddept", "Àüü", "-", "above");
					addComboItem("cmb_orddept", "È£½ºÇǽº°ú", "3100000000", "below");
					
					
					//¹Ìºñ±â·Ï¸®½ºÆ® grid ÃʱâÈ­
					model.removeNodeset("/root/main/unpreprecinfo/unprepreclist");
					model.refresh();
					
					zbcfGetCodeList(new Array("M0501", "M0502", "M0503"), new Array("/root/init/M0501", "/root/init/M0502", "/root/init/M0503"));
	
					var ls_pid = opener.javascript.getParameter("SPMRI03800_pid");
					
					// knuh_20110801_Ãß°¡
					var ls_indd = opener.javascript.getParameter("SPMRI03800_indd");

					if (ls_pid != "")
					{ 
						model.setValue("/root/main/cond/unpreppatbase/pid", ls_pid);
						
						// knuh_20110801_Ãß°¡
						model.setValue("/root/main/cond/unpreppatbase/indd", ls_indd);
						
						model.refresh();
						chk_unprepflagA.dispatch("xforms-select");
						ipt_pid.dispatch("onkeypress");
					}
}

/**
 * @desc ¹ÌºñȯÀÚ ³»¿øÁ¤º¸ Á¶È¸
 */			
function fReqGetUnPrepPatChosInfo(pid, ioflag, dschflag){
	model.removeNodeset("/root/send/reqdata");			
	model.makeValue("/root/send/reqdata/pid", pid);
	model.makeValue("/root/send/reqdata/ioflag", ioflag);
	model.makeValue("/root/send/reqdata/dschflag", dschflag);

	if(submit("TRMRI02605")){
		var nodelist = model.instances(0).selectNodes("/root/main/patinfo/pathistlist");					
		if(nodelist.length == 0){
			messageBox("ȯÀÚÀÇ Áø·á³»¿ª Á¤º¸°¡", "I004");
			return;
		}
	}
}

/**
 * @desc ¹Ìºñ±â·Ï ¸®½ºÆ® Á¶È¸, ȯÀÚÁ¤º¸ ±âÁØ
 */
function fReqGetUnPrepRecList(){
    model.setValue("/root/main/cond/srchflag", "pat");
    model.setValue("/root/main/cond/unpreppatbase/scrnflag", "unpreppatbase");
    model.copyNode("/root/send/reqdata", "/root/main/cond/unpreppatbase");
    
    //var pid      = model.getValue("/root/main/cond/unpreppatbase/pid");
	//var indd     = model.getValue("/root/main/cond/unpreppatbase/indd");
	//var cretno   = model.getValue("/root/main/cond/unpreppatbase/cretno");
	//var orderby  = model.getValue("/root/main/cond/unpreppatbase/orderby");    
	//var scrnflag = "unpreppatbase";
    //
	//model.removeNodeset("/root/send/reqdata");
	//model.makeValue("/root/send/reqdata/pid"  , pid);
	//model.makeValue("/root/send/reqdata/indd" , indd);
	//model.makeValue("/root/send/reqdata/cretno"  , cretno);
	//model.makeValue("/root/send/reqdata/orderby" , orderby);
	
	if(submit("TRMRI02106")){
		fDoMergeUnPrepRecList();				
	}
}

/**
 * @desc ¹ÌºñÀÇ»ç Á¶È¸
 * @param srchflag °Ë»ö±¸ºÐ(id:¾ÆÀ̵ð, nm:¸í)
 *        unprepdeptcd ¹ÌºñÁø·á°ú
 *        unprepdr ¹ÌºñÀÇ»ç(srch?id:¾ÆÀ̵ð, nm:¸í)
 *        stnddd ±âÁØÀÏÀÚ 
 *        deptengabbr ºÎ¼­¾à¾î¸í 
 */ 
function fReqGetUnPrepDrList(srchflag, unprepdeptcd, unprepdr, stnddd, deptengabbr, grupflag){
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/srchflag"    , srchflag);
	model.makeValue("/root/send/reqdata/unprepdeptcd", unprepdeptcd);
	model.makeValue("/root/send/reqdata/unprepdr"    , unprepdr);
	model.makeValue("/root/send/reqdata/deptengabbr" , deptengabbr);
	model.makeValue("/root/send/reqdata/stnddd"      , stnddd);
	model.makeValue("/root/send/reqdata/grupflag"    , grupflag);
	if(submit("TRMRI02604")){
	}
}

/**
 * @desc ¼ýÀÚ¿©ºÎ ÆÇ´Ü
 */ 
function isNumber(str) {
	str += ''; // ¹®ÀÚ¿­·Î º¯È¯
	str = str.replace(/^\s*|\s*$/g, ''); // ÁÂ¿ì °ø¹é Á¦°Å
	if (str == '' || isNaN(str)){
		return false;
	}
	return true;
}

/**
 * @desc ºÎ¼­ÄÞº¸ Á¶È¸
 */ 
function fGetDeptCodeComboList(ref, rsltref, orddeptflag, stnddd){
	var mmb_rsltref = "/root/hidden/mmb/orddept";
	model.removeNode(mmb_rsltref);
	model.makeNode(mmb_rsltref);

	model.removeNode(ref);
	model.makeValue(ref + "/orddeptflag", orddeptflag);
	if(stnddd != ""){    
		model.makeValue(ref + "/stnddd", stnddd);
	}

	if(submit("TRMMB04101", "false", ref, mmb_rsltref)==true){
		model.copyNode(rsltref, mmb_rsltref);
		model.removeNode(mmb_rsltref);
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·Ï»óÅ ¹èÄ¡¹Ìºñ¼öÁ¤
 */
function fSetUnPrepRecInfo0(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "ud"){
			messageBox("Àǻ纯°æ ÈÄ¿¡ ¹Ìºñ»óŸ¦ º¯°æ", "I006");
			continue;
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status"    , "u");
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "0");
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#0000ff";
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·Ï»óÅ ¹ÌºñÈ®ÀμöÁ¤
 */
function fSetUnPrepRecInfo1(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "ud"){
			messageBox("Àǻ纯°æ ÈÄ¿¡ ¹Ìºñ»óŸ¦ º¯°æ", "I006");
			continue;
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "u");
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "1");
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#0000ff";
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·Ï»óÅ ÀÇ»çÈ®ÀμöÁ¤
 */
function fSetUnPrepRecInfo2(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "ud"){
			messageBox("Àǻ纯°æ ÈÄ¿¡ ¹Ìºñ»óŸ¦ º¯°æ", "I006");
			continue;
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "u");
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "2");
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#0000ff";
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·Ï»óÅ Àç¹Ìºñ¼öÁ¤
 */
function fSetUnPrepRecInfo3(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "ud"){
			messageBox("Àǻ纯°æ ÈÄ¿¡ ¹Ìºñ»óŸ¦ º¯°æ", "I006");
			continue;
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "u");
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "3");
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#0000ff";
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·Ï»óÅ ¿Ï·á¼öÁ¤
 */
function fSetUnPrepRecInfo4(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "ud"){
			messageBox("Àǻ纯°æ ÈÄ¿¡ ¹Ìºñ»óŸ¦ º¯°æ", "I006");
			continue;
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "u");
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "4");
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#0000ff";
	}
	model.refresh();
}

/**
 * @desc ¼öÁ¤Ãë¼Ò
 */ 
function fCnclSetPrepRecInfo(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0 ; i < len; i++){
		var currow          = grd_unprepreclist.selectedRow(i);
		var status          = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		var orgunprepstat   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgunprepstat");
		var orgunprepdrnm   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgunprepdrnm");
		var orgdoctkindflag = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgdoctkindflag");
		var orgunprepdrid   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgunprepdrid");
		var orgorddeptcd    = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgorddeptcd");
		var orgdetldeptnm   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgdetldeptnm");
		var orgdetldeptcd   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orgdetldeptcd");
		
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", orgunprepstat);
		var startcol = grd_unprepreclist.colRef("dschdd");
		var endcol   = grd_unprepreclist.colRef("lastupdtdt");
		grd_unprepreclist.cellStyle("color", currow, startcol, currow, endcol) = "#000000";
		if(status == "ud" || status == "l"){
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepdrnm"  , orgunprepdrnm);
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/doctkindflag", orgdoctkindflag);
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepdrid"  , orgunprepdrid);
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/orddeptcd"   , orgorddeptcd);
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/detldeptnm"  , orgdetldeptnm);
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/detldeptcd"  , orgdetldeptcd);
		}
		model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "");
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ»èÁ¦
 */
function fDelUnPrepRecInfo(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = len-1 ; i >= 0; i--){
		var currow   = grd_unprepreclist.selectedRow(i);
		var status   = model.getValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status");
		if(status == "i"){
			model.removeNode("/root/main/unpreprecinfo/unprepreclist[" + currow + "]");
			
		}else{
			var startcol = grd_unprepreclist.colRef("dschdd");
			var endcol   = grd_unprepreclist.colRef("lastupdtdt");
			grd_unprepreclist.cellStyle("color", currow,  startcol, currow, endcol) = "#ff0000";
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/status", "d");
			model.setValue("/root/main/unpreprecinfo/unprepreclist[" + currow + "]/unprepstat", "9");
			
		}					
	}
	grd_unprepreclist.refresh();
}

/**
 * @desc ¹ÌºñÀǻ纯°æ
 */
function fChngUnPrepDrInfo(){
	var orddd = model.getValue(grd_unprepreclist.nodeset + "[" + grd_unprepreclist.row + "]/formrecdd");				
	setParameter("SPMRI02900_stnddd", orddd);				
	modal("SPMRI02900");
	
	if(getParameter("SPMRI02900_useyn")=="Y"){
		var doctinfo = getParameter("SPMRI02900_rtnparam");
		doctinfo = doctinfo.split("^");					
		var len = grd_unprepreclist.selectedRows;
		for(var i = 0; i < len; i++){
			var currow = grd_unprepreclist.selectedRow(i);
			var status = model.getValue(grd_unprepreclist.nodeset + "[" + currow + "]/status");
			if(status != "i"){ //½Å±Ô°¡ ¾Æ´Ñ °æ¿ì, Àǻ纯°æÀ¸·Î »óź¯°æ
				model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/status", "ud");
			}
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/orddeptcd"   , doctinfo[0]);
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/unprepdeptnm", doctinfo[1]);
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/doctkindflag", doctinfo[2]);
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/unprepdrid"  , doctinfo[3]);
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/unprepdrnm"  , doctinfo[4]);
			var startcol = grd_unprepreclist.colRef("dschdd");
			var endcol   = grd_unprepreclist.colRef("lastupdtdt");			
			grd_unprepreclist.cellStyle("color", currow,  startcol, currow, endcol) = "#808080";
		}
		model.refresh();
	}
	setParameter("SPMRI02900_useyn"   , "");
	setParameter("SPMRI02900_rtnparam", "");
}

/**
 * @desc   : NodeList sorting
 *         : node ±¸Á¶¸¦ º¯°æÇϸç Á¤·ÄÀ» ¼öÇà			 
 */
function nodeListSort( nodeset, trgRef, mode ){
	var nodesetCnt = model.getXPathValue("count(" + nodeset + ")");
	if(nodesetCnt == 0) return;
	
	var tmpVal1, tmpVal2;
	var tmpIndx;    
	
	for(var i = 1; i <= nodesetCnt; i++){
		for(var j = i + 1 ; j <= nodesetCnt; j++){
			tmpVal1 = model.getValue(nodeset + "[" + i + "]/" + trgRef);
			tmpVal2 = model.getValue(nodeset + "[" + j + "]/" + trgRef);
			if(isNumber(tmpVal1)==true){tmpVal1 = Number(tmpVal1);}
			if(isNumber(tmpVal2)==true){tmpVal2 = Number(tmpVal2);}
			if(mode == "desc"){
				if(tmpVal1 < tmpVal2){
					model.duplicate(instance1.selectSingleNode(nodeset).parentNode, nodeset + "[" + j + "]", "*[" + i + "]");
					model.removenode(nodeset + "[" +  (j + 1) + "]");
					model.duplicate(instance1.selectSingleNode(nodeset).parentNode, nodeset + "[" + (i + 1) + "]", "*[" + j + "]");
					model.removenode(nodeset + "[" +  (i + 1) + "]");
				}

			}else if(mode == "asc"){
				if(tmpVal1 > tmpVal2){
					model.duplicate(instance1.selectSingleNode(nodeset).parentNode, nodeset + "[" + j + "]", "*[" + i + "]");
					model.removenode(nodeset + "[" +  (j + 1) + "]");
					model.duplicate(instance1.selectSingleNode(nodeset).parentNode, nodeset + "[" + (i + 1) + "]", "*[" + j + "]");
					model.removenode(nodeset + "[" +  (i + 1) + "]");
				}

			}
		}
	}
}

/**
 * @desc : ¹ÌºñÃß°¡ ÈÄ ÀúÀåµÉ Á¤º¸ ¼³Á¤
 */
function fSetUnPrepSaveInfo(){
	var nodelist = model.instances(0).selectNodes("/root/temp/unpreprecinfo/unprepreclist");
	var iloopcnt = nodelist.length;
	for(var i = 1 ; i <= iloopcnt; i++){
		var pid          = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/pid");
		var indd         = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/indd");
		var cretno       = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/cretno");
		var hngnm        = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/hngnm");
		var dschdeptcd   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/dschdeptcd");
		var dschdeptnm   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/dschdeptnm");
		var dschdd       = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/dschdd");
		var doctkindflag = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/jobposnm");
		var unprepdrnm   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/unprepdrnm");
		var unprepdrid   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/unprepdrid");
		var formcd       = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/formcd");
		var formnm       = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/formnm");
		var unprepitemnm = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/unprepitemnm");
		var unprepitemcd = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/unprepitemcd");
		var oprsrvno     = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/oprsrvno");
		var orddd        = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/orddd");
		var indschflag   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/indschflag");
		var orddeptcd    = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/orddeptcd");
		var formrecseq   = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/formrecseq");
		var medirecalertcnts = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/medirecalertcnts");
		var unprepno     = model.getValue("/root/temp/unpreprecinfo/unprepreclist[" + i + "]/unprepno");
		
		if(formrecseq == ""){
			formrecseq = "-1";
		}
		
		grd_unprepreclist.addRow(false, true);
		var trgtrow = grd_unprepreclist.row;
		
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/status"      , "i");
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/indschflag"  , indschflag);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/pid"         , pid);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/indd"        , indd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/cretno"      , cretno);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/hngnm"       , hngnm);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/dschdeptcd"  , dschdeptcd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/dschdeptnm"  , dschdeptnm);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/dschdd"      , dschdd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepstat"  , "1");
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/doctkindflag", doctkindflag);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepdrnm"  , unprepdrnm);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepdrid"  , unprepdrid);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/formrecdd"   , orddd);
	    model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/orddeptcd"   , orddeptcd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/formcd"      , formcd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/formnm"      , formnm);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/oprsrvno"    , oprsrvno);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepitemnm" , unprepitemnm);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepitemcd" , unprepitemcd);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/formrecseq"   , formrecseq);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/medirecalertcnts" , medirecalertcnts);
		model.setValue(grd_unprepreclist.nodeset + "[" + trgtrow + "]/unprepno"    , unprepno);
	}
	model.removeNodeset("/root/temp/unpreprecinfo/unprepreclist");
	model.refresh();
}

/**
 * @desc ¹ÌºñÀÇ»ç Á÷Á¾(Staff)·Î º¯°æ
 */ 
function fChngUnPrepStaffPos(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue(grd_unprepreclist.nodeset + "[" + currow + "]/status");
		if(status != "i"){
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/status", "up");
		}
		model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/doctkindflag", "St");
	}
	model.refresh();
}

/**
 * @desc ¹ÌºñÀÇ»ç Á÷Á¾(Resident)·Î º¯°æ
 */ 
function fChngUnPrepResiPos(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue(grd_unprepreclist.nodeset + "[" + currow + "]/status");
		if(status != "i"){
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/status", "up");
		}
		model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/doctkindflag", "R");
	}
	model.refresh();
}

/**
 * @desc ¹ÌºñÀÇ»ç Á÷Á¾(Intern)À¸·Î º¯°æ
 */ 
function fChngUnPrepInternPos(){
	var len = grd_unprepreclist.selectedRows;
	for(var i = 0; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		var status = model.getValue(grd_unprepreclist.nodeset + "[" + currow + "]/status");
		if(status != "i"){
			model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/status", "up");
		}
		model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/doctkindflag", "I");
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ°ú º¯°æ Æ˾÷â open
 */
function fOpenUnPrepDeptCD(){
	group1.attribute("left")   = event.targetX;
	group1.attribute("top")    = event.targetY;
	
	// targetX°¡ °£È¤ À½¼ö°¡ ³ª¿À´Â ÄÉÀ̽º¸¦ ¼öÁ¤
	//group1.attribute("left")   = event.clientX;
	//group1.attribute("top")    = event.clientY;
	group1.attribute("height") = 55;
	
	//grd_unprepreclist.disabled    = true;
	//btn_requnpreppatbase.disabled = true;
	//btn_requnprepdrbase.disabled  = true;
	//btn_realunprep.disabled = true;
	//btn_opinfo.disabled     = true;
	//btn_totrec.disabled     = true;
	//btn_unprepcert.disabled = true;
	//btn_del.disabled  = true;
	//btn_ex.disabled   = true;
	//btn_save.disabled = true;
}

/**
 * @desc ¹Ìºñ°ú º¯°æ
 */
function fReqSetUnPrepDeptCD(){
	var len = grd_unprepreclist.selectedRows;
	var orddeptcd = model.getValue("/root/init/unprepdeptcd");
	var orddeptnm = combo1.label;
	for(var i = 0; i < len; i++){
		var currow = grd_unprepreclist.selectedRow(i);
		model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/status"      , "di");
		model.setValue(grd_unprepreclist.nodeset + "[" + currow + "]/orddeptcd"   , orddeptcd);					
	}
	model.refresh();
	
	var savenodelist = model.instances(0).selectNodes("/root/main/unpreprecinfo/unprepreclist[status='di']");
	/*
	var srchflag = model.getValue("/root/main/cond/srchflag");
	if(srchflag == "pat"){
	    model.copyNode("/root/send/reqdata", "/root/main/cond/unpreppatbase");
	    
	}else{
	    model.copyNode("/root/send/reqdata", "/root/main/cond/unprepdrbase");
	}*/
	
	var srchnodelist = model.instances(0).selectNodes("/root/send/reqdata");
	if(savenodelist.length == 0){
		messageBox("ÀúÀåÇÒ Á¤º¸°¡", "I004");
		return;
		
	}else{
		var savedata = getNodeListCSV(savenodelist);
		var srchdata = getNodeListCSV(srchnodelist);
		model.removeNodeset("/root/send/savedata");
		model.makeNode("/root/send/savedata");
		model.makeValue("/root/send/savedata", savedata);
		model.makeValue("/root/send/srchdata", srchdata);
		if(submit("TXMRI01702")){
			grd_unprepreclist.allstyle("data", "color") = "#000000";
			grd_unprepreclist.mergeCells = "bycol";
			grd_unprepreclist.mergeCol(grd_unprepreclist.colRef("pid"))  = true;
			grd_unprepreclist.mergeCol(grd_unprepreclist.colRef("hngnm"))= true;
			grd_unprepreclist.merge();
		}
	}
}

function doSrchCondCSV(nodeList, sColSep, sRowSep){
	if( nodeList.length == 0 ){
		return;
	}
	
	var rCSV = "";
	var childNodeList = nodeList.item(0).childNodes;
	var childNodeCnt = childNodeList.length;
	if( childNodeCnt == 0 ){
		return;
	}
	
	var i, j;
	for( i = 0; i < childNodeCnt - 1; i++) {
		rCSV += childNodeList.item(i).nodeName + sColSep;
	}
	rCSV += childNodeList.item(i).nodeName + sRowSep;
	
	var node;
	while( node = nodeList.nextNode() ) {
		childNodeList = node.childNodes;
		for( i = 0; i < childNodeCnt - 1; i++) {
			rCSV += childNodeList.item(i).text + sColSep;
		}
		rCSV += childNodeList.item(i).text + sRowSep;
	}
	return rCSV;
}

/**
 * @desc ¹ÌºñÇ׸ñÄÚµå Count¿¹¿ÜÄÚµå Á¶È¸
 */ 
function reqGetUnPrepBaseExptCnt(){
	model.removeNodeset("/root/send/reqdata");				
	if(submit("TRMRI01703")){
	}
}

/**
 * @desc ´ÙÀ½´ÞÀ» ±¸ÇÏ´Â ÇÔ¼ö
 * @param yyyy : ³âµµ
 * @param  mm   : ¿ù
 * @return yyyymm : ³â¿ù
 */
function addMonth(yyyymm){
	var yyyy = yyyymm.substring(0, 4);
	var mm   = yyyymm.substring(4, 6);
	var bfmm;
	
	if(mm.substr(0,1) == "0"){ //10¿ù ÀÌÀüÀÎ °æ¿ì, ¾ÕÀÚ¸® 0À» Á¦°Å
		bfmm = mm.substr(1,1);
		bfmm++;
		
	}else{                   //10¿ù ÀÌÈÄÀÎ °æ¿ì					
		bfmm = mm;
		bfmm++;
	}
	
	if(bfmm > 12){ // 1¿ù ÀÌÀüÀ» ¼±ÅÃÇÑ °æ¿ì, ³âµµ¸¦ ¹Ù²Þ
		bfmm = "01";
		yyyy++;
		
	}else if(bfmm < 10){ //10¿ù ÀÌÈÄÀÎ °æ¿ì¿¡´Â ¾ÕÀÚ¸®¿¡ 0À» ºÙÀÓ.
		bfmm = "0".concat(bfmm);					
	}				
	return "" + yyyy + "".concat(bfmm);
}

/**
 * @desc ´Þ°£°ÝÀ» ±¸ÇÏ´Â ÇÔ¼ö
 * @param startdd : ½ÃÀÛ³â¿ù(YYYY-MM)
 * @param enddd   : Á¾·á³â¿ù(YYYY-MM)
 * @return monthcnt : ´Þ°£°Ý
 */
function getMonthInterval(startdd, enddd){
	var monthcnt = 0;				
	while(startdd != enddd){
		startdd = addMonth(startdd);
		monthcnt++;
	}
	return monthcnt;
}

/**
 * @desc ȯÀÚ ±â·ÏÁö Á¶È¸
 */
function fReqGetPatRecList(pid, orddd, cretno){
	model.removeNodeset("/root/send/recreqdata");
	model.makeValue("/root/send/recreqdata/pid", pid);
	model.makeValue("/root/send/recreqdata/orddd", orddd);
	model.makeValue("/root/send/recreqdata/cretno", cretno);
	if(submit("TRMRI01704")){
	}
}

/**
 * @desc Àǻ纰¹Ìºñ¸®½ºÆ® unmerge
 */
function fDoUnMergeUnPrepRecList()
{		
	grd_unprepreclist.sortClear();
	for(var i = 1; i < grd_unprepreclist.rows; i++)
	{
		if(grd_unprepreclist.isMerge(i, grd_unprepreclist.colRef("pid")))
		{
			grd_unprepreclist.unmergeByFree(i, grd_unprepreclist.colRef("pid"));
			grd_unprepreclist.unmergeByFree(i, grd_unprepreclist.colRef("hngnm"));
			grd_unprepreclist.unmergeByFree(i, grd_unprepreclist.colRef("dschdd"));
			grd_unprepreclist.unmergeByFree(i, grd_unprepreclist.colRef("dschdeptnm"));
			grd_unprepreclist.unmergeByFree(i, grd_unprepreclist.colRef("medispclnm"));
		}
	}
	grd_unprepreclist.refresh();
	model.refresh();    
}

/**
 * @desc ¹Ìºñ±â·Ï°ü¸® merge
 */
function fDoMergeUnPrepRecList()
{			
	grd_unprepreclist.allstyle("data", "color") = "#000000";
	grd_unprepreclist.allStyle("data", "font-style") = "";
    
	var patcnt = 0;
	var reccnt = 0;
	var icnt   = 0;
	var startrow = 1;
	var color = "#ffffcc";		// ±×¸®µå ¹è°æ»ö
	var checkcol = grd_unprepreclist.colRef("check");
	
	for(var i = 1; i < grd_unprepreclist.rows; i++)
	{
		var unprepitemcd = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/unprepitemcd");
		var formrecseq   = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/formrecseq");
		var delyn        = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/delyn");
		var result = model.getValue("/root/main/unprepiteminfo/unprepiteminfo[unprepitemcd='" + unprepitemcd + "']/unprepitemcd");
		
		var deldt        = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/deldt");
		var deluserid        = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/deluserid");
		var delusernm        = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/delusernm");
		
		/*
		//if(delyn == "Y"){
		if(delyn == "Y" || (formrecseq == "-1" && deluserid != "" && deldt != "")){
		    grd_unprepreclist.cellStyle("color", i, checkcol, i, grd_unprepreclist.cols-1) = "#999999";
		}
		*/

		if(result == ""){
			reccnt++;
		}
		
		if(i == 1){
			patcnt++;
			var orgpid    = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/pid");
			var orgdschdd = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/dschdd");
			var orgindd   = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/indd");
			startrow = 1;
			grd_unprepreclist.rowStyle(i, "data", "background-color")= color;
			
			if(formrecseq <= 0){
		    	grd_unprepreclist.cellStyle("background-color", i, checkcol, i, checkcol) = "#ff0000";		// ±â·ÏÁö ¿¬°á¾ÈµÈ ¹Ìºñ³»¿ª(»¡°£»ö)
    	}
    	
			if(delyn == "Y" || (formrecseq == "-1" && deluserid != "" && deldt != "")){
				grd_unprepreclist.cellStyle("color", i, checkcol, i, grd_unprepreclist.cols-1) = "#999999";	// »èÁ¦µÈ ±â·ÏÁö(¿¬ÇÑ È¸»ö)
			}
			continue;
		}
		
		var pid    = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/pid");
		var indd   = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/indd");
		var dschdd = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/dschdd");						
		
		if(orgpid == pid && orgdschdd == dschdd && orgindd == indd){
			grd_unprepreclist.mergeByFree(startrow, grd_unprepreclist.colRef("pid")       , i, grd_unprepreclist.colRef("pid"));
			grd_unprepreclist.mergeByFree(startrow, grd_unprepreclist.colRef("hngnm")     , i, grd_unprepreclist.colRef("hngnm"));
			grd_unprepreclist.mergeByFree(startrow, grd_unprepreclist.colRef("dschdd")    , i, grd_unprepreclist.colRef("dschdd"));
			grd_unprepreclist.mergeByFree(startrow, grd_unprepreclist.colRef("dschdeptnm"), i, grd_unprepreclist.colRef("dschdeptnm"));
			grd_unprepreclist.mergeByFree(startrow, grd_unprepreclist.colRef("medispclnm"), i, grd_unprepreclist.colRef("medispclnm"));
		}
		else
		{
			patcnt++;
			var orgpid   = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/pid");
			var orgdschdd= model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/dschdd");
			var orgindd  = model.getValue(grd_unprepreclist.nodeset + "[" + i + "]/indd");
			startrow = i;
			if(color == "#ffffcc"){
				color = "#ffffff";		// Åõ¸í»ö
			}else{
				color = "#ffffcc";		// ±×¸®µå ¹è°æ»ö(¿¬ÇÑ ³ë¶õ»ö)
			}
		}
		grd_unprepreclist.rowStyle(i, "data", "background-color")= color;
		if(formrecseq <= 0){
			grd_unprepreclist.cellStyle("background-color", i, checkcol, i, checkcol) = "#ff0000";	// ±â·ÏÁö ¿¬°á¾ÈµÈ ¹Ìºñ³»¿ª(»¡°£»ö)
		}
		
		if(delyn == "Y" || (formrecseq == "-1" && deluserid != "" && deldt != "")){
		    grd_unprepreclist.cellStyle("color", i, checkcol, i, grd_unprepreclist.cols-1) = "#999999";	// »èÁ¦µÈ ±â·ÏÁö(¿¬ÇÑ È¸»ö)
		}
	}
	model.setValue("/root/main/cond/patcnt", patcnt);
	model.setValue("/root/main/cond/reccnt", reccnt);
	model.refresh();
}


/**
 * @desc ¹Ìºñ±â·Ï ¸®½ºÆ® Á¶È¸, ÀÇ»çÁ¤º¸ ±âÁØ
 */
function fReqGetUnPrepRecDrBaseList(unprepsign){
    //¹Ìºñ±â·ÏÃß°¡, ÀúÀå ÀÌÈÄ¿¡ ÇöÀç Á¶È¸µÈ ¹Ìºñ±â·Ï¸®½ºÆ®¸¦ ÀçÁ¶È¸Çϱâ À§ÇØ ¼³Á¤ÇÔ
    model.setValue("/root/main/cond/srchflag", "dr");
    model.setValue("/root/main/cond/unprepdrbase/scrnflag"  , "unprepdrbase");
    model.setValue("/root/main/cond/unprepdrbase/unprepsign", unprepsign); //½ÇÁ¦¹Ìºñ¸®½ºÆ® Á¶È¸½Ã
    
    	//¹ÌºñÀÇ»ç¸íÀÌ ¾ø´Â °æ¿ì, Á¶È¸Á¶°ÇÀÇ ÀÇ»çID¸¦ »èÁ¦
	if(ipt_unprepdrnm.currentText == ""){
		model.setValue("/root/main/cond/unprepdrbase/unprepdrid", "");
	}
    
    //Á¶È¸Á¶°Ç ¹Ìºñ»óÅ°ª ¼³Á¤
	var unprepstat = model.getValue("/root/main/cond/unprepdrbase/unprepstat");					
	if(unprepstat != "-"){
		var unprepstatArray = unprepstat.split(' ');
		var cond = "";
		for(var i = 0; i < unprepstatArray.length; i++){							
			cond += unprepstatArray[i] + '\',\'';
		}
		model.setValue("/root/main/cond/unprepdrbase/unprepstatlist", cond.substring(0, cond.length - 3));
	}
	
	model.removeNodeset("/root/send/reqdata");
	model.makeNode("/root/send/reqdata");	
	model.copyNode("/root/send/reqdata", "/root/main/cond/unprepdrbase");	
	if(submit("TRMRI02107")){
		fDoMergeUnPrepRecList();
	}
}

/**
 * @desc ¹Ìºñ±â·Ï load
 */
function fLoadUnPrepFormRec(){
    var currow = grd_unprepreclist.row;
    if(currow < 1){
        return;
    }
    
    var pid        = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/pid");
    var indd       = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/indd");
    var cretno     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/cretno");
    var formcd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formcd");
    var srcformcd  = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/srcformcd");
    var dschdd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/dschdd");  
    var oprsrvno   = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/oprsrvno");
    var orddrid    = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepdrid");
    var orddeptcd  = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/indschdeptcd");
    var formrecseq = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formrecseq");
    var formrecdd  = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formrecdd");
    var instcd     = getUserInfo("dutplceinstcd");
    
    //2009-07-08 ¿ÀÈÄ 8:03:43 °­ÁöÈÆ ¼öÁ¤ : 20091002·Î ÇϵåÄÚµùµÈ ³»¿ªÀ» °øÅëÄÚµå "M0546" À¯ÇüÄÚµå "M0037" ·Î °ü¸®
    var opendd     = model.getValue("/root/init/openday/M0037M0546/cdid"); // º´¿øº° ¿ÀÇÂÀÏ    
    var preopendd = opendd.toDate().getAddDate(-1, "D").getDateFormat(); 
    
    var preOpenMonth = preopendd.substring(4,6);
    var preOpenDay   = preopendd.substring(6,8);
     
    if(formrecdd <= preopendd){
        messageBox(preOpenMonth+"¿ù "+preOpenDay+"ÀϱîÁö ¹ß»ýµÈ ¹Ìºñ±â·ÏÀº ±¸OCSÇÁ·Î±×·¥°ú Á¾ÀÌ¿¡ ÀÛ¼º", "I008");
        return;
    }
    
    // 2009-11-02 ÀÌ°æÈñ
    // ¿ÀÇÂÀÌÀü ±â·Ï ¸Þ½ÃÁö¿Í ±â·ÏÁö ¿¬°áÀÌ ¾ÈµÈ ¹Ìºñ ¸Þ½ÃÁö¿Í ¼ø¼­¸¦ º¯°æÇÔ
    if(formrecseq == 0 || formrecseq == -1){
        messageBox("±â·ÏÁö¿Í ¿¬°áÀÌ µÇÁö ¾ÊÀº ¹Ìºñ", "I009");
        return;
    }
    
    // 2009.07.01 ÀÌ°æÈñ
		// ȯÀÚÀÇ Åð¿øÀÏÀÌ ÇØ´ç ÀÏÀÚ ÀÌÈÄÀÎ °æ¿ì. Áï Àç¿øÁßÀΠȯÀÚ´Â dschdd¸¦ ÇöÀçÀÏÀÚ·Î ³Ñ±ä´Ù.
		var today = getCurrentDate();
		if(dschdd > today)	{
			dschdd = today
		}
		
    //¼ö¼ú±â·ÏÀÎ °æ¿ì, »ó´ÜÁ¤º¸ ó¸®
    if(srcformcd == "0000000676"){
	    var param = "T"         + "¢Ë" + 
	                pid         + "¢Ë" +
	                formrecdd   + "¢Ë" + 
	                cretno      + "¢Ë" + 
                    instcd      + "¢Ë" +
	                ""          + "¢Ë" +
	                ""          + "¢Ë" +
	                "I"         + "¢Ë" +
	                "F"         + "¢Ë" +
	                oprsrvno    + "¢Ë" +
	                ""          + "¢Ë" +
	                dschdd;
	    setParameter("condparam", param);

    //¼ö¼ú±â·Ï ÀÌ¿ÜÀÇ »ó´ÜÁ¤º¸ ó¸®       
    }else{
        var param = "I"    + "¢Ë" + 
                    pid    + "¢Ë" + 
                    indd   + "¢Ë" + 
                    cretno + "¢Ë" + 
                    instcd + "¢Ë" + 
                    dschdd; 
	    setParameter("condparam", param);

    }    
    
	setGlobalVariable("linked_formcd"    , formcd     , "emr");
	setGlobalVariable("linked_formrecseq", formrecseq , "emr");
	setGlobalVariable("linked_formrecdd" , formrecdd  , "emr");	
    modal("SPMMO08900", 1, 0, 0, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    
    var gmainwnd = getMainViewer();
    setParameter("SMMMO04100_ANSWCNT", "");
    gmainwnd.javascript.navigate("SMMMR00100");
    model.refresh();    
}

/**
 * @desc ¹ÌºñÀÇ»ç Á¶È¸
 */ 
function fReqGetUnPrepDrSmplList(srchflag, srchdata){
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/srchflag", srchflag);
    model.makeValue("/root/send/reqdata/srchdata", srchdata);
    if(submit("TRMRI02901")){
    }
}

/**
 * @desc ¹ÌºñÃß°¡µÈ Á¤º¸ »ý¼º
 */
function fCretUnPrepSaveInfo(){
    var sCSV = model.getValue("/root/temp/unpreprecinfo");
    model.setValue("/root/temp/unpreprecinfo", "");
    setCSVToNode("/root/temp/unpreprecinfo", sCSV, "unprepreclist");
    fSetUnPrepSaveInfo();
}

/**
 * @desc ¹Ìºñ ExcelÈ­ÀÏ »ý¼º
 */
function reqGetUnPrepCreateExcelFile(){
    var files = window.fileDialog("save", "|", true, "", "", "Excel Files(*.xls)|*.xls");
	if(files != ""){
		model.removeNodeset("/root/send/reqdata");
		
		//È­ÀÏ µð·ºÅ丮 À§Ä¡, È­ÀϸíÀ» ¹Þ´Â´Ù.
		var filesarr= files.split("\\");
		var filenm  = filesarr[filesarr.length-1];
		var filepath= files.split(filenm);		

		var colref  = "pid^hngnm^dschdeptnm^dschdd^indd^medispclnm^unprepstatnm^doctkindflag^unprepdrnm^unprepdeptnm^formnm^unprepitemnm^formrecdd^medirecalertcnts^drcnfmdt^dralertcnts^fstrgstrnm^fstrgstdt^lastupdtrnm^lastupdtdt";
		//Á¶È¸½Ã Á¶°ÇÀ» ¼³Á¤ÇÏ¿© CSVÇüÅ·ΠÀüȯÇÏ¿© Á¶È¸
		
		model.setValue("/root/main/cond/srchflag", "dr");
		var unprepstat = model.getValue("/root/main/cond/unprepdrbase/unprepstat");
		if(unprepstat != "-"){
			var unprepstatArray = unprepstat.split(' ');
			var cond = "";
			for(var i = 0; i < unprepstatArray.length; i++){
				cond += unprepstatArray[i] + '\',\'';
			}
			model.setValue("/root/main/cond/unprepdrbase/unprepstatlist", cond.substring(0, cond.length - 3));
		}
		
	    //¹ÌºñÀÇ»ç¸íÀÌ ¾ø´Â °æ¿ì, ID¸¦ clear
		if(ipt_unprepdrnm.currentText == ""){
			model.setValue("/root/main/cond/unprepdrbase/unprepdrid", "");
		}
		model.removeNodeset("/root/send/reqdata");
		model.makeNode("/root/send/reqdata");
		model.setValue("/root/main/cond/unprepdrbase/unprepsign", "N");
		model.makeValue("/root/main/cond/unprepdrbase/scrnflag" , "unprepdrbase");
		
		//ÀüüÁ¶È¸ ¿ùº°·Î ³ª´²¼­ file·Î ´Ù¿î·Îµåó¸®
		//2008. 12. 22 ¿ÀÁöÈÆ
		var dayflag = model.getValue("/root/main/cond/unprepdrbase/dayflag");
		if(dayflag == "N"){							
			model.setValue("/root/main/cond/unprepdrbase/dayflag", "Y");
			
			// 2009-07-25 ÀÌ°æÈñ
			// ¿¢¼¿ÀúÀå½Ã 2009/07/01·Î °íÁ¤µÈ ºÎºÐÀ» ¼öÁ¤.
			//var startdate = "20070101";
			var opendd     = model.getValue("/root/init/openday/M0037M0546/cdid"); // º´¿øº° ¿ÀÇÂÀÏ    
			var startdate = opendd.toDate().getDateFormat("YYYYMM") + "01";	// ¿ÀÇÂÇÑ ´ÞÀÇ Ã¹³¯ºÎÅÍ·Î ¼³Á¤
					
			var enddate   = getCurrentDate();
			
		}else{
			model.setValue("/root/main/cond/unprepdrbase/dayflag", "Y");
			var startdate = model.getValue("/root/main/cond/unprepdrbase/fromdd");
			var enddate   = model.getValue("/root/main/cond/unprepdrbase/todd");
			var backupflag = "Y";
		}
		
		var steps = parseInt(model.getValue("/root/main/cond/excelcond/steps")) - 1;
		var lastdd = "";
		var enddd  = "";
		
		//½ÃÀÛÀÏÀÚ¿Í Á¾·áÀÏÀÚ°¡ µ¿ÀÏÇÑ ´ÞÀÎ °æ¿ì(monthcnt == 0), Á¾·áÀÏÀÚ´Â ±×´ë·Î
		//µ¿ÀÏÇÑ ´ÞÀÌ ¾Æ´Ñ °æ¿ì, ±× ´ÞÀÇ ¸¶Áö¸· ³¯Â¥¸¦ concatÇÑ´Ù.
		while(enddate > startdate){		    
		    
    		enddd = ((startdate.toDate()).getAddDate(steps, "M")).getDateFormat();
    		if(enddd.substring(0, 6) >= enddate.substring(0, 6)){
    		    enddd = enddate;
    		    
    		}else{
    		    var dd1 = enddd.substring(0, 6).concat("01");
    		    var dd2 = ((dd1.toDate()).getAddDate(1, "M")).getDateFormat();
    		    
    		    lastdd = getDateInterval(dd1, dd2);
    		    enddd  = enddd.substring(0, 6).concat(lastdd);
    		}

			model.setValue("/root/main/cond/unprepdrbase/fromdd", startdate);
			model.setValue("/root/main/cond/unprepdrbase/todd"  , enddd);

			var condnode = model.instance1.selectNodes("/root/main/cond/unprepdrbase");							
			model.makeValue("/root/send/reqdata/colref"  , colref);
			model.makeValue("/root/send/reqdata/sqlid"   , "getUnPrepRecList");
			model.makeValue("/root/send/reqdata/srchcond", doSrchCondCSV(condnode, "^", "|"));

			var param = "&colref=" + colref +
						"&sqlid="  + "getUnPrepRecList" +
						"&srchcond=" + model.getValue("/root/send/reqdata/srchcond");                        
			model.download(getActionURL("TRMRI02108")+param, files + "_" + startdate + "_" + enddd + ".xls", false);
			
			startdate = ((startdate.toDate()).getAddDate(steps + 1, "M")).getDateFormat();
		}

		//¿ø·¡ ±â°£ Á¶È¸°¡ ¾Æ´Ï¾úÀ¸¹Ç·Î ±â°£Á¶È¸¸¦ NÀ¸·Î ó¸®ÇÔ
		if(backupflag == "Y"){
			model.setValue("/root/main/cond/unprepdrbase/dayflag", "N");
		}
		
	}else{
		return;
		
	}
}

/**
 * @desc ¹Ìºñ Á¤º¸ ÀúÀå
 */
function fSaveUnPrepInfo(){
	
    var savenodelist = model.instances(0).selectNodes("/root/main/unpreprecinfo/unprepreclist[status!='']");
	var srchflag = model.getValue("/root/main/cond/srchflag");
	if(srchflag == "pat"){
		var srchnodelist = model.instances(0).selectNodes("/root/main/cond/unpreppatbase");
	}else{
		var srchnodelist = model.instances(0).selectNodes("/root/main/cond/unprepdrbase");
	}
	//var srchnodelist = model.instances(0).selectNodes("/root/send/reqdata");
	if(savenodelist.length == 0){
		messageBox("ÀúÀåÇÒ Á¤º¸°¡", "I004");
		return;
	}else{
		grd_patreclist.attribute("visibility") = "hidden";
		var savedata = getNodeListCSV(savenodelist);
		var srchdata = getNodeListCSV(srchnodelist);
		model.removeNodeset("/root/send/savedata");
		model.makeNode("/root/send/savedata");
		model.makeValue("/root/send/savedata", savedata);
		model.makeValue("/root/send/srchdata", srchdata);

		if(submit("TXMRI02101")){
		    fDoMergeUnPrepRecList();
	    }
    }
}

/**
 * @desc ±â·Ï¿¬µ¿ ÇØÁ¦
 */
function fCnclFormRecSeq(){
    var loopcnt = grd_unprepreclist.selectedRows;
    for(var i = 0 ; i < loopcnt ; i++){
        grd_unprepreclist.valueMatrix(grd_unprepreclist.selectedRow(i), grd_unprepreclist.colRef("status")) = "f";
    }
}

/**
 * @desc ¹ÌºñºÐ°ú ¼³Á¤Ã¢ open
 */
function fOpenUnPrepDeltDeptCD(){

    var currow = grd_unprepreclist.row;
    if(currow > 0){
        group3.attribute("left")= event.targetX;
        group3.attribute("top") = event.targetY;
        
        // targetX°¡ °£È¤ À½¼ö°¡ ³ª¿À´Â ÄÉÀ̽º¸¦ ¼öÁ¤
        //group3.attribute("left")= event.clientX;
        //group3.attribute("top") = event.clientY;
        group3.attribute("height") = 55;

//      grd_unprepreclist.disabled    = true;
//    	btn_requnpreppatbase.disabled = true;
//    	btn_requnprepdrbase.disabled  = true;
//    	btn_realunprep.disabled = true;
//    	btn_opinfo.disabled     = true;
//    	btn_totrec.disabled     = true;
//    	btn_unprepcert.disabled = true;
//    	btn_del.disabled  = true;
//    	btn_ex.disabled   = true;
//    	btn_save.disabled = true;
			
        var orddeptcd = model.getValue(grd_unprepreclist.nodeset + "[" + currow + "]/orddeptcd");
        //¹Ìºñ°ú¿¡ µû¶ó ¹ÌºñºÐ°ú comboÁ¤º¸¸¦ º¯°æ
        if(orddeptcd == "2040000000"){ //¿Ü°ú
            cmb_detldeptcd.choices.itemset.attribute("nodeset") = "/root/init/M0501/M0501";

        }else if(orddeptcd == "2100000000"){ //»êºÎÀΰú
            cmb_detldeptcd.choices.itemset.attribute("nodeset") = "/root/init/M0502/M0502";

        }else if(orddeptcd == "2110000000"){ //¼Ò¾Æ°ú
            cmb_detldeptcd.choices.itemset.attribute("nodeset") = "/root/init/M0503/M0503";

        }
        else
        {
        	cmb_detldeptcd.choices.itemset.attribute("nodeset") = "/root/init/M0504/M0504";
        	model.makeValue("/root/main/unprepdeptcd/detldeptcd", "");
        	cmb_detldeptcd.refresh();
        	return;
        }
        cmb_detldeptcd.select(1);
        cmb_detldeptcd.refresh();
    }
}

/**
 * @desc ¼¼ºÎ°ú¼³Á¤
 */
function fSetDetlDeptCD(){
    var loopcnt = grd_unprepreclist.selectedRows;
    for(var i = 0 ; i < loopcnt ; i++){
        grd_unprepreclist.valueMatrix(grd_unprepreclist.selectedRow(i), grd_unprepreclist.colRef("status")) = "l";
        grd_unprepreclist.valueMatrix(grd_unprepreclist.selectedRow(i), grd_unprepreclist.colRef("detldeptnm")) = cmb_detldeptcd.label;
        grd_unprepreclist.valueMatrix(grd_unprepreclist.selectedRow(i), grd_unprepreclist.colRef("detldeptcd")) = cmb_detldeptcd.value;
    }
    model.refresh();
}

function fManageAlertCnts()
{
		var currow = grd_unprepreclist.row;
		
		var pid        = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/pid");
    var formcd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formcd");
    var formrecdd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formrecdd");  
    var unprepdrid   = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepdrid");
    var unprepitemcd    = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepitemcd");
    var unprepstat    = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepstat");
    var unprepno  = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepno");
		
		model.removeNodeset("/root/send/savedata");
		model.makeNode("/root/send/savedata");
		model.makeValue("/root/send/savedata/pid", pid);
		model.makeValue("/root/send/savedata/formcd", formcd);	
		model.makeValue("/root/send/savedata/formrecdd", formrecdd);	
		model.makeValue("/root/send/savedata/unprepdrid", unprepdrid);	
		model.makeValue("/root/send/savedata/unprepitemcd", unprepitemcd);	
		model.makeValue("/root/send/savedata/unprepstat", unprepstat);
		model.makeValue("/root/send/savedata/unprepno", unprepno);
		model.makeValue("/root/send/savedata/gubun", "med");	// ÀÇ»ç Àü´Þ»çÇ× ±¸ºÐ
		
		if(submit("TRMRI01706") == true)
		{
			if(grd_medalertlist.rows == 1)
				return;
			var medirecalertcnts = "";
			for(var idx = 1; idx < grd_medalertlist.rows; idx++)
			{
				var tmpDate = model.getValue(grd_medalertlist.nodeset + "[" + idx + "]/lastupdtdt");
				var tmpmedirecalertcnts = model.getValue(grd_medalertlist.nodeset + "[" + idx + "]/medirecalertcnts");
				var tmpstr = tmpDate + "\n" + tmpmedirecalertcnts + "\n";
				medirecalertcnts += tmpstr;
			}
			
			setParameter("SPMRI02000_scrnflag" , "m");
			setParameter("SPMRI02000_alertcnts", medirecalertcnts);
			modal("SPMRI02000");
						
		}
}

function fManageDrAlertCnts()
{
		var currow = grd_unprepreclist.row;
		
		var pid        = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/pid");
    var formcd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formcd");
    var formrecdd     = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/formrecdd");  
    var unprepdrid   = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepdrid");
    var unprepitemcd    = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepitemcd");
    var unprepstat    = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepstat");
    var unprepno  = model.getValue(grd_unprepreclist.nodeset + "["+ currow +"]/unprepno");
    
		model.removeNodeset("/root/send/savedata");
		model.makeNode("/root/send/savedata");
		model.makeValue("/root/send/savedata/pid", pid);
		model.makeValue("/root/send/savedata/formcd", formcd);	
		model.makeValue("/root/send/savedata/formrecdd", formrecdd);	
		model.makeValue("/root/send/savedata/unprepdrid", unprepdrid);	
		model.makeValue("/root/send/savedata/unprepitemcd", unprepitemcd);	
		model.makeValue("/root/send/savedata/unprepstat", unprepstat);	
		model.makeValue("/root/send/savedata/unprepno", unprepno);
		model.makeValue("/root/send/savedata/gubun", "dr");	// ÀÇ»ç Àü´Þ»çÇ× ±¸ºÐ
		
		if(submit("TRMRI01707") == true)
		{
			if(grd_dralertlist.rows == 1)
				return;			
			var dralertcnts = "";
			for(var idx = 1; idx < grd_dralertlist.rows; idx++)
			{
				var tmpDate = model.getValue(grd_dralertlist.nodeset + "[" + idx + "]/lastupdtdt");
				var tmpDralertcnts = model.getValue(grd_dralertlist.nodeset + "[" + idx + "]/medirecalertcnts");
				var tmpstr = tmpDate + "\n" + tmpDralertcnts + "\n";
				dralertcnts += tmpstr;
			}
			
			setParameter("SPMRI02000_scrnflag" , "d");
			setParameter("SPMRI02000_alertcnts", dralertcnts);
			modal("SPMRI02000");
		}
}

function fManageAlert(){
	
}