var gRecLoad = "N";

/**
 * @desc ¹Ìºñ¼­½Ä Á¶È¸
 */
function fReqGetUnPrepFormList(){
	model.removeNodeset("/root/send/reqdata");
	if(submit("TRMRI02602")){
	}
}

/**
 * @desc ¼­½Ä ¹ÌºñÇ׸ñ Á¶È¸
 * @param srcformcd : ¼­½ÄÄÚµå 
 *        commflag  : ALL¸ðµÎ, Y:°øÅëÇ׸ñ, N:¼­½ÄÄڵ忡 ÇØ´çÇ׸ñ¸¸ Á¶È¸ 
 */
function fReqGetFormUnPrepItemList(srcformcd, stnddd, itemflag){
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/formcd"  , srcformcd);				
	model.makeValue("/root/send/reqdata/stnddd"  , stnddd);
	model.makeValue("/root/send/reqdata/itemflag", itemflag);
	if(submit("TRMRI02603")){
	}
}

/**
 * @desc ¹ÌºñÀÇ»ç Á¶È¸
 * @param srchflag °Ë»ö±¸ºÐ(id:¾ÆÀ̵ð, nm:¸í)
 *        unprepdeptcd ¹ÌºñÁø·á°ú
 *        unprepdr ¹ÌºñÀÇ»ç(srch?id:¾ÆÀ̵ð, nm:¸í)
 *        stnddd ±âÁØÀÏÀÚ 
 *        deptengabbr ºÎ¼­¾à¾î¸í 
 */ 
function fReqGetUnPrepDrList(srchflag, unprepdeptcd, unprepdr, stnddd, deptengabbr){				
	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);
	if(submit("TRMRI02604")){
	}
}

/**
 * @desc ȯÀÚ³»¿øÁ¤º¸ Á¶È¸
 * @param pid : µî·Ï¹øÈ£ 
 *        ordtype : ³»¿ø±¸ºÐ
 *        srchflag: Á¶È¸±¸ºÐ(Åð¿ø, Àç¿ø, ¿Ü·¡, ÀÀ±Þ) 
 */
function fReqGetPatHistList(pid, ordtype, dschflag){
	model.removeNodeset("/root/main/patinfo/pathistlist");
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/pid"     , pid);
	model.makeValue("/root/send/reqdata/ordtype" , ordtype);
	model.makeValue("/root/send/reqdata/dschflag", dschflag);
	if(submit("TRMMR05501")){
	}
}

/**
 * @desc ȯÀÚÁø·á±â·Ï Á¤º¸ Á¶È¸
 * @param pid : µî·Ï¹øÈ£ 
 *        orddd : Áø·áÀÏÀÚ
 *        cretno : »ý¼º¹øÈ£
 *        orddeptcd : Áø·á°úÄÚµå
 *        chosflag : ³»¿ø±¸ºÐ
 *        formrecdeptcd : ¼­½ÄºÎ¼­ÄÚµå			 
 */
function fReqGetFormRecMastList(pid, orddd, cretno, orddeptcd, chosflag, fromdd, todd){
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/pid"          , pid);
	model.makeValue("/root/send/reqdata/orddd"        , orddd);
	model.makeValue("/root/send/reqdata/cretno"       , cretno);
	model.makeValue("/root/send/reqdata/orddeptcd"    , orddeptcd);
	model.makeValue("/root/send/reqdata/chosflag"     , "A");
	model.makeValue("/root/send/reqdata/formrecdeptcd", "ALL");
	model.makeValue("/root/send/reqdata/formcd"       , "-");
	model.makeValue("/root/send/reqdata/recfromdt"    , fromdd);
	model.makeValue("/root/send/reqdata/rectodt"      , todd);
	if(submit("TRMRI02606")){
	}
}

/**
 * @desc ¹ÌºñÃß°¡
 */ 
function fDoSetSaveUnPrepInfo(){				
	if(ipt_pid.currentText == ""){
		messageBox("ȯÀÚ µî·Ï¹øÈ£¸¦", "C001");
		return;
	}
	
	if(cmb_chosinfo.label == ""){
		messageBox("ȯÀÚ ³»¿øÁ¤º¸¸¦", "C001");
		return;
	}
	
	if(cmb_chosinfo.value == ""){
		messageBox("ȯÀÚ ³»¿øÁ¤º¸¸¦", "C001");
		return;
	}
	
	var pid    = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/pid");
	var hngnm  = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/hngnm");
	var orddd  = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/orddd");				
	var cretno = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/cretno");
	var dschdd = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/dschdd");
	var indschflag   = model.getValue("/root/main/cond/ordtype");				
	
	var dschdeptcd = "-";
	var dschdeptnm = "-";
	var orddeptcd  = "-";
	var orddeptnm  = "-";				
	var formrecdeptcd = "";
	
	//¼­½Ätab ¼±ÅÃÀÎ °æ¿ì, ÀÛ¼º¹ÌºñÀ̹ǷΠformrecseq -1, ¼­½ÄÄÚµå´Â srcformcd·Î ¼³Á¤
	if(btn_form.selected == true){ 
		var currow = grd_unprepformlist.row;
		if(currow < 0){
			messageBox("±â·ÏÁö¸¦", "C002");
			return;
		}
		var formrecseq = -1;
		var formcd     = model.getValue(grd_unprepformlist.nodeset + "[" + currow + "]/srcformcd");
		var formnm     = model.getValue(grd_unprepformlist.nodeset + "[" + currow + "]/formnm");
		var formrecdd  = model.getValue("/root/main/cond/orddd");
		
		// ÇØ´ç formcd°¡ À¯È¿ÇÑ ¼­½ÄÀÎÁö È®ÀÎ
		model.makeValue("/root/send/reqdata/formcd", formcd);
		if(submit("TRMRI02607") == true)
		{
			var valiformcdCnt = getNodesetCnt(model, "/root/main/validformcdlist/validformcdlist");
    	if(valiformcdCnt == 0) {
    		formcd = model.getValue(grd_unprepformlist.nodeset + "[" + currow + "]/formcd");
    	}
		}
		
	}else if(btn_op.selected == true){
		var currow = grd_unprepoplist.row;
		if(currow < 0){
			messageBox("¼ö¼úÁ¤º¸¸¦", "C001");
			return;
		}

		// 2010.01.22. ¼­¿ï¼º¸ð JCI °ü·Ã ¼ö¼ú±â·ÏÁö, Brief OP Note µÑ´Ù ¼ö¼ú¿¹¾àÁ¤º¸ ¿¬°áÇÔ..
		var formcd     = "0000000676";
		var formnm     = "¼ö¼ú±â·Ï";

		var formrecseq = -1;
		var oprsrvno   = model.getValue(grd_unprepoplist.nodeset + "[" + currow + "]/oprsrvno");
		var formrecdd  = model.getValue("/root/main/cond/orddd");
		
	
	}else if(btn_brief.selected == true){
		var currow = grd_unprepoplist.row;
		if(currow < 0){
			messageBox("¼ö¼úÁ¤º¸¸¦", "C001");
			return;
		}

		// 2010.01.22. ¼­¿ï¼º¸ð JCI °ü·Ã ¼ö¼ú±â·ÏÁö, Brief OP Note µÑ´Ù ¼ö¼ú¿¹¾àÁ¤º¸ ¿¬°áÇÔ..
		var formcd     = "0000003169";
		var formnm     = "Brief OP Note";

		var formrecseq = -1;
		var oprsrvno   = model.getValue(grd_unprepoplist.nodeset + "[" + currow + "]/oprsrvno");
		var formrecdd  = model.getValue("/root/main/cond/orddd");
		
	
	//±â·Ïtab ¼±ÅÃÀÎ °æ¿ì, Ç׸ñ¹ÌºñÀ̹ǷΠformrecseq, formcd´Â ÃÖÁ¾±â·ÏµÈ ±â·ÏÁ¤º¸·Î ¼³Á¤
	}else{
		var currow = grd_medireclist.row;
		if(currow < 0){
			messageBox("±â·ÏÁö¸¦", "C002");
			return;
		}
		var formrecseq = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/formrecseq");
		var formcd 	   = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/formcd");
		//var formnm     = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/formnminfo");
		var formnm     = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/formnm");
		var formrecdd  = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/formrecdd");
		var oprsrvno   = model.getValue(grd_medireclist.nodeset + "[" + currow + "]/oprsrvno");
	}
	
	if(indschflag == "I"){ //Àç¿ø
		orddeptcd = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptcd");
		orddeptnm = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptnm");
		formrecdeptcd = orddeptcd;
		
	}else if(indschflag == "D"){ //Åð¿ø
		orddeptcd = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptcd");
		orddeptnm = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptnm");
		dschdeptcd = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/orddeptcd");
		dschdeptnm = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/orddeptnm");
		formrecdeptcd = dschdeptcd;
	}else if(indschflag == "E"){ //ÀÀ±Þ½Ç
		orddeptcd = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptcd");
		orddeptnm = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddeptnm");
		formrecdeptcd = orddeptcd;			
	}					
	
	var orddrid = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddrid");
	if(orddrid == ""){
		messageBox("¹ÌºñÀǻ縦", "C002");
		return;
	}
	var orddrnm = model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/orddrnm");
	var jobposnm= model.getValue("/root/main/unprepdrinfo/unprepdrlist[checkflag = 'Y']/jobposnm");
	
	var itemlist = fGetUnPrepItems();
	if(itemlist == false){
		messageBox("¹ÌºñÇ׸ñÀ»", "C002");
		return;
	}
	var itemarr  = itemlist.split("|");
	var unprepitemcd = itemarr[0].split("^");
	var unprepitemnm = itemarr[1].split("^");
	
	for(var i = 0; i < unprepitemcd.length; i++){
	
		//¹Ìºñ±â·Ï½Ã ¹ÌºñÀÏ ¹«°á¼º °Ë»ç
		//±â·ÏÀÌ ÀÖ´Â °æ¿ì (formrecseq > 0) üŷ ¾ÈÇÔ. (2010.01.25. ÀÌÀº¿µ ¼öÁ¤)
		if (formrecseq < 0 && formrecdd > dschdd){
			messageBox("¹ÌºñÇ׸ñ ÀÏÀÚ°¡ Åð¿øÀϺ¸´Ù Ŭ ¼ö", "I004");
			continue;
		}

		// ¼­¿ï¼º¸ðº´¿ø(012) - º¯°æµÈ ±â·ÏÀÏÀÚ·Î ¹Ìºñ¸¦ ÀâÀ»¼ö ÀÖÀ½. (2010.01.25. ÀÌÀº¿µ ¼öÁ¤)
		var instcd = getUserInfo("dutplceinstcd");
		if (instcd == "012") {
			formrecdd  = model.getValue("/root/main/cond/orddd");
		}
		
		//´Þ·Â¼±Åà ÈÄ Ãß°¡ÀúÀå½Ã, ´Þ·Â¿¡¼­ return ¹ÌºñÀÏÀÚ¸¸Å­ ¹Ìºñ¸¦ Ãß°¡Ã³¸®
		var loopcnt = 1;
		var calcflag= "N";
		var unprepdd = getParameter("rtn");
		if(unprepdd !=""){
			unprepddarr = unprepdd.split("¢Ì");
			loopcnt = unprepddarr.length;
			calcflag ="Y";
		}
		
		for(var j = 0; j < loopcnt; j++){
			if(calcflag == "Y"){
				formrecdd = unprepddarr[j];
			}	
			grd_unpreplist.addRow(false, true);
			var trgtrow = grd_unpreplist.row;
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/status"    , "i");
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/orddeptcd" , orddeptcd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/orddeptnm" , orddeptnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/formrecdeptcd", formrecdeptcd);				
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/pid"       , pid);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/orddd"     , formrecdd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/cretno"    , cretno);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/indd"      , orddd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/hngnm"     , hngnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/dschdd"    , dschdd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/dschdeptcd", dschdeptcd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/dschdeptnm", dschdeptnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/formrecdd" , formrecdd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/formcd"    , formcd);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/formnm"    , formnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/formrecseq", formrecseq);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepdrid", orddrid);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepdrnm", orddrnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/jobposnm"  , jobposnm);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepitemcd", unprepitemcd[i]);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepitemnm", unprepitemnm[i]);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepstat"  , 1);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/oprsrvno"    , oprsrvno);
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/indschflag"  , indschflag);
			
			// 2009-07-25 unprepno Ãß°¡
			model.setValue("/root/main/unprepsaveinfo/unprepsavelist[" + trgtrow + "]/unprepno"    , trgtrow);
						
		}
	}
	model.refresh();
}

/**
 * @desc ¼±ÅÃµÈ ¹ÌºñÇ׸ñ ±¸Çϱâ
 * @param void 
 * @return rtnval ¹ÌºñÇ׸ñÄÚµå, Ç׸ñ¸í, degnlevelÄÚµå
 */ 
function fGetUnPrepItems(){
	var unprepnodelist = model.instances(0).selectNodes("/root/main/unprepiteminfo/unprepitemlist[checkflag='Y']");
	var loopcnt = unprepnodelist.length;
	if(loopcnt == 0){					
		return false;
	}
	
	var itemnode      = "";
	var unprepitemcds = "";
	var unprepitemnms = "";
	var degnitemlevlcds = "";
	var rtnval = "";
	for(var i = 0; i < loopcnt; i++){
		unprepitemcds += unprepnodelist.item(i).selectSingleNode("unprepitemcd").text + "^";
		unprepitemnms += unprepnodelist.item(i).selectSingleNode("unprepitemnm").text + "^";				
		
	}
	rtnval = unprepitemcds.substr(0, unprepitemcds.length - 1) + "|" +
	         unprepitemnms.substr(0, unprepitemnms.length - 1);
	return rtnval;
}

/**
 * @desc ¹ÌºñÀúÀåÁ¤º¸ »èÁ¦
 */ 
function fDelUnPrepSaveInfo(){
	var totrow = grd_unpreplist.selectedRows;				
	for(var i = totrow-1; i >= 0; i--){					
		model.removeNode(grd_unpreplist.nodeset + "[" + grd_unpreplist.selectedRow(i) + "]");
	}
	model.refresh();
	/*
	var currow = grd_unpreplist.row;
	if(currow > 0){
		model.removeNode(grd_unpreplist.nodeset + "[" + currow + "]");
		model.refresh();
	}*/
}

/**
 * @desc µî·Ï¹øÈ£·Î ³»¿øÁ¤º¸ °Ë»ö
 */
function fSrchPatInfoPID(keycd){
	if(keycd == 13){
		if(ipt_pid.currentText != ""){
			model.setValue("/root/main/cond/pid", ipt_pid.currentText);						
			
			model.setValue("/root/main/cond/hngnm", "");
			model.removeNodeset("/root/main/unprepdrinfo/unprepdrlist");

			var dschflag = "";
			var ordtype = model.getValue("/root/main/cond/ordtype");
			if(ordtype == "D"){
				dschflag = "D";
				ordtype  = "I";
			}else if(ordtype == "I"){
				dschflag = "I";
				ordtype  = "I";
			}
			
						
			fReqGetUnPrepPatChosInfo(ipt_pid.currentText, ordtype, dschflag);
			cmb_chosinfo.select(0);
			
			var nodelist = model.instances(0).selectNodes("/root/main/patinfo/pathistlist");
			if(nodelist.length != 0){
				var hngnm = model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/hngnm");
				model.setValue("/root/main/cond/hngnm", hngnm);
			}			
			btn_form.dispatch("onclick");
			 model.refresh();
		}
	}
}

/**
 * @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 fAddUnPrepSaveInfo(){
	if(btn_rec.selected == true){
		messageBox("ÀÛ¼ºµÈ ±â·ÏÁöÀÇ Ç׸ñ¹Ìºñ ´Þ·ÂÀº »ç¿ë", "E001");
		return;
	}
	setParameter("paramcalflag", "multi");
	setParameter("limitday"    , model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/dschdd"));
	setParameter("limitfromday", model.getValue("/root/main/patinfo/pathistlist[" + cmb_chosinfo.value + "]/orddd"));
	modal("SPMMO10600");
	
	if(getParameter("rtn")!=""){
		fDoSetSaveUnPrepInfo();
	}
	setParameter("rtn", "");
}

/**
 * @desc ¹Ìºñ»óÅ°ª º¯°æ
 * @param unprepstat  
 */ 
function fChngUnPrepStat(unprepstat){
	for(var i = 1; i < grd_unpreplist.row; i++){
		model.setValue(grd_unpreplist.nodeset + "[" + i + "]/unprepstat", unprepstat);
	}
	model.refresh();
}

/**
 * @desc ¹Ìºñ¼ö¼úÀÚ·á Á¶È¸
 * @param pid
 */
function fReqGetUnPrepOpList(pid, srchflag){
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/pid", pid);
	model.makeValue("/root/send/reqdata/srchflag", srchflag);
	if(submit("TRMRI02702")){			
	}
}

/**
 * @desc È­¸é ÃʱâÈ­
 */
function fInitialize(){
    //È­¸é±×¸®µå ÃʱâÈ­
	model.removeNodeset("/root/main/unprepforminfo/unprepformlist");
	model.removeNodeset("/root/main/unprepdrinfo/unprepdrlist");
	model.removeNodeset("/root/main/unprepiteminfo/unprepitemlist");
	model.removeNodeset("/root/main/unprepsaveinfo/unprepsavelist");
	
	//¼­½ÄÅÇ ¼±ÅÃ
	btn_form.selected = true;

	// 2010.01.22. ¼­¿ï¼º¸ð¸¸ Brief OP ¹öÆ° È°¼ºÈ­Çϱâ..
	/*
	var instcd = getUserInfo("dutplceinstcd");
	if (instcd == "012") {
		btn_brief.attribute("visibility") = "visible";
		btn_brief.refresh();
	} 
	*/

	// 2010.01.27. Brief OP ¹öÆ° È°¼ºÈ­Çϱâ..	
	btn_brief.attribute("visibility") = "visible";
	btn_brief.refresh();
	
	//Áø·áÀÏ
	model.setValue("/root/main/cond/orddd", getCurrentDate());					
	
	//Åð¿ø°ú ÄÞº¸ Á¶È¸
	mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept" , "D");
	
	//¹ÌºñÀÇ»çÁø·á°ú ÄÞº¸ Á¶È¸
	mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept2", "A");
	
	//¹Ìºñ¼­½ÄÁ¶È¸, ÃßÈÄ Áø·á°ú º¯°æ½Ã srcformcd·Î ÇØ´çÀÇ»çÀÇ ¼­½ÄÄڵ带 Á¶È¸Ã³¸®ÇÏ´Â ·ÎÁ÷ Ãß°¡
	fReqGetUnPrepFormList();

	//¹Ìºñ±â·Ï°ü¸® È­¸é¿¡¼­ÀÇ parameteró¸®
	if(checkOpener()){
	    
		var pid   = opener.javascript.getParameter("SPMRI02600_pid");
		var orddd = opener.javascript.getParameter("SPMRI02600_orddd");
		var cretno= opener.javascript.getParameter("SPMRI02600_cretno");
		var dschflag = opener.javascript.getParameter("SPMRI02600_dschflag");		
		model.setValue("/root/main/cond/pid", pid);
		model.setValue("/root/main/cond/ordtype", dschflag);
		model.refresh();
		
		fSrchPatInfoPID(13); //¿£ÅÍÅ° ÀÔ·Â event						
		
		var rowcnt = model.getValue("/root/main/patinfo/pathistlist[orddd='" + orddd + "' and cretno='" + cretno + "']/rowcnt");
		cmb_chosinfo.select(rowcnt-1);		
	}
	
	grd_unprepoplist.mergeCells = "byrestriccol";
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("oprsrvno")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("pid")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("hngnm")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("patinroomdt")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("opusetm")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("deptcd")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("deptnm")) = true;
	grd_unprepoplist.mergeCol(grd_unprepoplist.colRef("doctkindflag")) = false;
	grd_unprepoplist.refresh();
	
	model.refresh();
}

/**
 * @desc ¹Ìºñ±â·ÏÃß°¡ ȯÀÚÁ¤º¸º¯°æ
 */
function fSetPatInfo(pid, orddd, cretno, dschflag){
	model.setValue("/root/main/cond/pid"    , pid);
	model.setValue("/root/main/cond/ordtype", dschflag);
	model.refresh();
	
	fSrchPatInfoPID(13); //¿£ÅÍÅ° ÀÔ·Â event
	
	var rowcnt = model.getValue("/root/main/patinfo/pathistlist[orddd='" + orddd + "' and cretno='" + cretno + "']/rowcnt");
	cmb_chosinfo.select(rowcnt-1);
	
	//±â·ÏÅÇÀÌ ¼±ÅÃµÈ °æ¿ì, ȯÀÚ±â·Ï »õ·Î Á¶È¸
	if(btn_rec.selected == true){
	    fReqGetPatRecList(pid, orddd, cretno);
	    
	//¼ö¼úÅÇÀÌ ¼±ÅÃµÈ °æ¿ì, ȯÀÚ¼ö¼ú »õ·Î Á¶È¸
	}else if(btn_op.selected == true){
	    var srchflag = model.getValue("/root/main/cond/srchflag");
	    fReqGetUnPrepOpList(pid,srchflag);
	    
	}
}

/**
 * @desc   : EMRºÎ¼­ÄÞº¸ Á¶È¸
 * @
 * @param  : ref        - reference path
 *           rsltref    - result reference path
 *           orddeptflag- Áø·á°ú±¸ºÐ
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function mmbfGetDeptCodeComboList(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 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   : ¼ýÀÚ¿©ºÎ ÆÇ´Ü
 * @param  : String °´Ã¼
 * @return : ¼ýÀÚÀÏ °æ¿ì : true , ±× ¿ÜÀÇ °æ¿ì : false 
 */
function isNumber(str) {
  str += ''; // ¹®ÀÚ¿­·Î º¯È¯
  str = str.replace(/^\s*|\s*$/g, ''); // ÁÂ¿ì °ø¹é Á¦°Å
  if (str == '' || isNaN(str)) return false;
  return true;
}