/*
  
      Åõ¾à½Ã°£ °ü¸®(SPMNR03300_Åõ¾à½Ã°£°ü¸®.xrw - JScript )

      - Version :
          1)  : Ver.1.00.01
 */
 
var xPathList1 = "/root/hidden/param1/list";
var xPathList2 = "/root/hidden/param2/list";
var xPathdrugmthdinfo = "/root/main/drugmthdinfo";
var xPathdrugmthdlist = "/root/main/drugmthdlist/drugmthdlist";
var carebaseddarr = new Array;
var carebasetmarr = new Array;

var gray = "#c0c0c0";
var yellow = "#ffff00";
var yellowishgreen = "#80ff00";
var red = "#ff0000";
var sky = "#00ffff";
var blue = "#0000ff";
var white = "#ffffff";
var yellowishgreen = "#80ff00"

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à½Ã°£ °ü¸® ÃʱⰪ ¼ÂÆÃ
 * @param  :
 * @param  : 		
 * @return :
 * @---------------------------------------------------
 */
function fInitialize(){	
	
	var param1 = opener.javascript.getParameter("SPMNR03300_param1");	//"/root/temp/warddruginfo/warddruglist"
	var param2 = opener.javascript.getParameter("SPMNR03300_param2");	//"/root/temp/warddruginfo/warddruglist/for"
	
	setCSVToNode("/root/hidden/param1", param1);			//prcpnoº° row
	setCSVToNode("/root/hidden/param2", param2);			//prcpnoÀÇ ÇÏÀ§ timsº° row
	
	//---------------(20080912)
	var calctims		= model.getValue(xPathList1 + "/calctims");
	//---------------(20080912)
	
	var tims			= model.getValue(xPathList1 + "/tims");
	var drugmthdspccd	= model.getValue(xPathList1 + "/drugmthdspccd");
	var drugtmspec		= model.getValue(xPathList1 + "/drugbasetmspec").split(" ");
	
	//alert(drugtmspec);
	
	var mthdcd			= model.getValue(xPathList1 + "/mthdcd");
	var mthdcnts4		= model.getValue(xPathList1 + "/mthdcnts4");
	var prcpclscd		= model.getValue(xPathList1 + "/prcpclscd");
	var prcphopedd		= model.getValue(xPathList1 + "/prcphopedd");
	var indd			= model.getValue(xPathList1 + "/indd");		//(20080620)
	var temp_tims		= 0;
	var medrexecdd		= "";

	model.setValue(xPathdrugmthdinfo + "/tims", model.getValue(xPathList1 + "/tims"));
	if(prcpclscd == "A6"){
		model.setValue(xPathdrugmthdinfo + "/abbrnm", mthdcnts4);
	}else{
		model.setValue(xPathdrugmthdinfo + "/abbrnm", drugmthdspccd);
	}
	
	model.setValue(xPathdrugmthdinfo + "/prcphopedd", prcphopedd);
	model.setValue(xPathdrugmthdinfo + "/indd", indd);

	//-------------(20080912)
	//for(var i = 1; i <= tims; i++){	
	for(var i = 1; i <= calctims; i++){
	//-------------(20080912)
		
		if(i != 1){
			grd_mthd.addrow();
		}
		model.setValue(xPathdrugmthdlist + "[" + i + "]/mthdcd", mthdcd);
		
		if(drugtmspec[i-1] != "" && drugtmspec != ""){
			if(drugtmspec[i-1] > 0){
				model.setValue(xPathdrugmthdlist + "[" + i + "]/drugmthdday", Math.floor(Number(drugtmspec[i-1]) / 2400));
				model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday", Math.floor(Number(drugtmspec[i-1]) / 2400));
			}else{
				model.setValue(xPathdrugmthdlist + "[" + i + "]/drugmthdday", Math.ceil(Number(drugtmspec[i-1]) / 2400));
				model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday", Math.ceil(Number(drugtmspec[i-1]) / 2400));
			}
			
			if(Number(drugtmspec[i-1]) < 0){
				temp_tims = -Number(drugtmspec[i-1] % 2400);
				temp_tims = fCarec_GetFillZeno(temp_tims, 4,0);
			}else{
				temp_tims = drugtmspec[i-1] % 2400;
				temp_tims = fCarec_GetFillZeno(temp_tims, 4,0);
			}
			model.setValue(xPathdrugmthdlist + "[" + i + "]/drugmthdtime", temp_tims);
			model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime", temp_tims);
		}
		//Åõ¾à¿©ºÎ
		if (model.getValue(xPathList2 + "[" + i + "]/medrexecdd") != '00000000' ) {
			model.setValue(xPathdrugmthdlist + "[" + i + "]/medrexecflag", "Y");
		} else {
			model.setValue(xPathdrugmthdlist + "[" + i + "]/medrexecflag", "N");
		}		
	}
	
	//--------------------------------------------------------
	//ó¹æ 1°³ ±âÁؽð£À» º¯°æÇÒ °æ¿ì ½Ç½ÃÇÑ È½¼ö´Â º¯°æ ºÒ°¡
	//°øÅëÀ¸·Î ¼³Á¤µÈ °ÍÀ» º¯°æÇÏ´Â °ÍÀÌ ¾Æ´Ï¶ó.
	//ÇÑ ÀÚ·á¿¡ ´ëÇÑ ½Ã°£´ë¸¦ º¯°æÇϴ°ÍÀÌ´Ù.
	//--------------------------------------------------------
	if(getNodesetCount(xPathList1) == 1){
		for(var k = 1; k <= getNodesetCount(xPathList2); k++){
			medrexecdd = model.getValue(xPathList2 + "[" + k + "]/medrexecdd");
			if(medrexecdd != "00000000"){
				grd_mthd.isReadOnly(k+1,3,k+1,4) = true;
				grd_mthd.cellstyle("background-color",k+1,0,k+1,grd_mthd.cols-1) = yellow;
			}
		}
	}
	
	//-------------(20080912)
	//if(model.getValue(xPathdrugmthdinfo + "/tims") == "1"){		
	if(model.getValue(xPathdrugmthdinfo + "/calctims") == "1"){	
	//-------------(20080912)
		ipt_sinterval.disabled = "true";
		ipt_hinterval.disabled = "true";
		ipt_minterval.disabled = "true";
		btn_interval.disabled = "true";
	}

	grd_mthd.rebuild();
	model.refresh();
	
	//----------------(20080603)
	// Åõ¾à±âÁؽð£°ü¸®¿¡¼­ °øÅë&¿ë¹ý Áß default°¡ 'N'ÀÎ °Í¸¸ ÃßÃâÇÏ¿© ÄÞº¸¸¦ ±¸¼ºÇÔ
	var sPath = "/root/send/reqdata";	
	model.removeNodeSet(sPath);
	model.setValue("/root/main/drugmthdinfo/abbrcd",model.getValue("/root/main/drugmthdlist/drugmthdlist[1]/mthdcd"));
	
	model.makeValue(sPath + "/direccd",	model.getValue("/root/main/drugmthdinfo/abbrcd"));	//desc=¿ë¹ýÄÚµå
	
	//----------(20080912)
	//¿Ü¿ë¾àÀº Ƚ¼ö3À̳ª ½Ã°£´ëÁ¤º¸´Â 1·Î ¼³Á¤µÇ¾î ÀÖÀ½
	//model.makeValue(sPath + "/exectims",model.getValue("/root/main/drugmthdinfo/tims")	);	//desc=ó¹æȽ¼ö
	model.makeValue(sPath + "/exectims",model.getValue("/root/main/drugmthdinfo/calctims")	);	//desc=ó¹æȽ¼ö
	//----------(20080912)
	
	model.makeValue(sPath + "/flag",	"3");												//desc=±¸ºÐ
	model.makeValue(sPath + "/deptcd",	"ALL");												//desc=ºÎ¼­ÄÚµå
	model.makeValue(sPath + "/prcpcd",	"ALL");												//desc=¾àÇ°ÄÚµå
			
	submit("TRMNR03301");
	//------------------------------
}

/**
 * @group  :
 * @ver    : 2008.06.03
 * @by     : ±èº¸¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à±âÁؽð£Á¤º¸¿¡¼­ °øÅë&¿ë¹ý¿¡¼­ DEFALUT!='Y'ÀΰÍÀ» ÃßÃâÇÑ´Ù.
 * @param  :
 * @return :
 * @---------------------------------------------------
 * @param  : 		
 */
function fTimeApply() {

	//var stime = model.getValue("/root/main/drugmthdinfo/drugtmspec");		//È­¸éÀ¸·Î °è»êµÈ ½Ã°£´ë(value)	2200 0800	label
	//var stime = model.getValue("/root/main/drugmthdinfo/drugtmspeccal");	//È­¸éÀ¸·Î °è»êµÈ ½Ã°£´ë(label) 2200 3200	value
	
	//var stime = cmb_mthd.label;
	var stime = cmb_mthd.value;	
	
	var sPath = "/root/main/drugmthdlist/drugmthdlist";
	
	if (stime =="") {
		messageBox("°øÅëÁöÁ¤½Ã°£ÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù","E999");
		return;
	}
	
	//---------------------------------------------------------
	var drugtmspec		= stime.split(" ");
	var tims			= drugtmspec.length;
	
	var prcpno			= model.getValue(xPathList1 + "/prcpno");
	var prcpdd			= model.getValue(xPathList1 + "/prcpdd");
	var prcpcd			= model.getValue(xPathList1 + "/prcpcd");
	var execprcptims	= model.getValue(xPathList1 + "/tims");
	var carebasedd		= "";
	var carebasetm		= "";
	var execprcpnoarr	= model.getValue(xPathList1 + "/execprcpnoarr").split(" ");
	var execuniqnoarr	= model.getValue(xPathList1 + "/execuniqnoarr").split(" ");
	var carebasetmspec	= "";
	var tmcalculate		= 0;
	var interval		= 0;

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

		carebasedd = parseInt(drugtmspec[i-1] / 2400);						//±âÁØ day
		carebasetm = fCarec_GetFillZeno((drugtmspec[i-1] % 2400),4,0);		//±âÁØ ½Ã°£´ë
		
		carebaseddarr[i-1] = carebasedd;
		carebasetmarr[i-1] = carebasetm;

		if (model.getValue(xPathdrugmthdlist + "[" + i + "]/medrexecflag") == "Y")	{
			carebasedd 	= model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday");
			carebasetm	= model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime");
			messageBox("Åõ¾àµÈ ÀÚ·á´Â ¼öÁ¤ÇÒ¼ö ¾ø½À´Ï´Ù.","E999");
		} else {
			model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday", 	carebasedd);
			model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime", 	carebasetm);
			
			grd_mthd.cellstyle("background-color",i+1,0,i+1,grd_mthd.cols-1) = gray;
		}
		tmcalculate = (Number(carebasetm) + Number(carebasedd) * 2400);
		tmcalculate = fCarec_GetFillZeno(tmcalculate,4,0);

		if(i == 1){
			carebasetmspec += tmcalculate;
		}else{
			carebasetmspec += " " + tmcalculate;
		}
	}
	
	//-----------------(20080605)
	//fSaveMthdInfo(carebasetmspec,"N");	
	//opener.javascript.setParameter("SPMNR03300_RtnParamYN", "Y");
	//model.close();
}

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à½Ã°£ º¯°æ(½Ã°£ÀÔ·Â)
 * @param  :
 * @return :
 * @---------------------------------------------------
 * @param  : 		
 */
function fSaveDrugmthd(){

	var tims = model.getValue(xPathList1 + "/tims");
	var prcpno = "";
	var prcpdd = "";
	var prcpcd = "";
	var execprcptims = "";
	var carebasedd = "";
	var carebasetm = "";
	var execprcpnoarr = "";
	var execuniqnoarr = "";
	var prcphistnoarr = "";
	var carebasetmspec = "";
	var tmcalculate = 0;
	
	//check(20080606)
	//--------------(20080912)
	var calctims = model.getValue(xPathList1 + "/calctims");
	//for(var i = 1; i <= tims; i++){
	for(var i = 1; i <= calctims; i++){	
	//--------------(20080912)
		carebasedd = model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday");
		carebasetm = model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime");
		
		//alert(carebasedd + "/" + carebasetm);
		
		carebaseddarr[i-1] = carebasedd;
		carebasetmarr[i-1] = carebasetm;
		if(carebasedd < 0){
			tmcalculate = (-Number(carebasetm) + (Number(carebasedd) * 2400));
		}else{
			tmcalculate = (Number(carebasetm) + (Number(carebasedd) * 2400));
		}
		
		//alert(tmcalculate);
		
		tmcalculate = fCarec_GetFillZeno(tmcalculate, 4,0);
		
		//ÀԷ»çÇ× Ã¼Å©
		if(carebasedd != "-3" && carebasedd != "-2" && carebasedd != "-1" && carebasedd != "0" && 
		   carebasedd != "3" && carebasedd != "2" && carebasedd != "1"){
			messageBox("Day´Â -3ÀÏ ~ 3Àϸ¸ ÀÔ·ÂÇÒ¼ö ÀÖ½À´Ï´Ù.","I999");
			return;
		}		
		if(carebasetm.length != 4){
			messageBox("±âÁؽð£Àº 4ÀÚ¸®¸¦ ÀÔ·ÂÇØ¾ß ÇÕ´Ï´Ù.","I999");
			return;
		}

		//-----------------------------(20080620)
		//ÀÔ¿øÀÏÀÌÀüÀ¸·Î Åõ¾à½Ã°£´ë¸¦ º¯°æÇÏÁö ¸øÇÏ°Ô ÇÑ´Ù.
		var sindd		= model.getValue("root/main/drugmthdinfo/indd");		//ÀÔ¿øÀÏ
		var sprcphopedd	= model.getValue("root/main/drugmthdinfo/prcphopedd");	//Àû¿ëÀÏ
		
		//alert (sprcphopedd + "/" + carebasedd);
		
		var scalcdd		= getDateAddc(sprcphopedd, carebasedd);					//°è»êÀÏ
	
		if (scalcdd < sindd) {
			messageBox("ÀÔ¿øÀÏÀÌÀüÀ¸·Î °è»êµÇ¾ú½À´Ï´Ù. È®ÀÎÇϽʽÿÀ.","I999");
			return;			
		}		
		//-----------------------------

		//-----------------------------(20080617)
		//¿©·¯°¡Áö ¹®Á¦°¡ °É·ÁÀÖÀ½
		//¼ø¼­¸¦ º¯°æÇÏ¸é ¾ÈµÊ(¸·À»Áö¸¦ Å×½ºÆ® Áß)
		//¸·´Â´ë½Å¿¡ ½Ã°£´ë¸¦ Á¤·ÄÇؾßÇÑ´Ù.
		//-----------------------------
		//		if(i != 1){
		//			if(model.getValue(xPathdrugmthdlist + "[" + (i-1) + "]/c_drugmthdday") >= carebasedd &&
		//			   model.getValue(xPathdrugmthdlist + "[" + (i-1) + "]/c_drugmthdtime") > carebasetm){
		//				messageBox((i-1) + "ȸÂ÷ ½Ã°£º¸´Ù " + i + "ȸÂ÷ ½Ã°£ÀÌ\nÀÛÀ» ¼ö ¾ø½À´Ï´Ù.","I999");
		//				return;
		//			}
		//		}
		//-------------------------------
		
		if(i == 1){
			carebasetmspec += tmcalculate;
		}else{
			carebasetmspec += " " + tmcalculate;
		}
	}

	//test
	//return;

	model.removeNodeSet("/root/send/savedata/mthdinfo");
	
	//-----------------(20080605)
	//¼³Á¤ÇÏ°í ÀúÀåÇÔ	
	fSaveMthdInfo(carebasetmspec,"Y");
	//opener.javascript.setParameter("SPMNR03300_RtnParamYN", "Y");
	//model.close();
	//-----------------
}

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à½Ã°£ º¯°æ(Interval ÁöÁ¤)
 * @param  :
 * @param  : 		
 * @return :
 * @---------------------------------------------------
 */
function fSaveInterval(){

	var tims			= model.getValue(xPathList1 + "/tims");		//xPathList1 : "/root/hidden/param1/list"
	var prcpno			= model.getValue(xPathList1 + "/prcpno");
	var prcpdd			= model.getValue(xPathList1 + "/prcpdd");
	var prcpcd			= model.getValue(xPathList1 + "/prcpcd");
	var execprcptims	= model.getValue(xPathList1 + "/tims");
	var carebasedd		= "";
	var carebasetm		= "";
	var execprcpnoarr	= model.getValue(xPathList1 + "/execprcpnoarr").split(" ");
	var execuniqnoarr	= model.getValue(xPathList1 + "/execuniqnoarr").split(" ");
	var carebasetmspec	= "";
	var tmcalculate		= 0;
	var s_interval		= model.getValue("/root/main/drugmthdinfo/s_interval");
	var h_interval		= model.getValue("/root/main/drugmthdinfo/h_interval");
	var m_interval		= model.getValue("/root/main/drugmthdinfo/m_interval");
	var interval		= 0;

	//---------------(20080912)
	var calctims	= model.getValue(xPathList1 + "/calctims");		//xPathList1 : "/root/hidden/param1/list"
	//for(var i = 1; i <= tims; i++){
	for(var i = 1; i <= calctims; i++){
	//---------------(20080912)	
		if(i == 1){
			interval = s_interval;				//interval ÁöÁ¤(½ÃÀÛ)
		}else{
			interval = fCarec_GetIntervalTime(s_interval.substr(0,2), s_interval.substr(2,2), h_interval, m_interval, i-1);
		}
		carebasedd = parseInt(interval / 2400);
		carebasetm = fCarec_GetFillZeno((interval % 2400),4,0);
		carebaseddarr[i-1] = carebasedd;
		carebasetmarr[i-1] = carebasetm;
		
		//Åõ¾àµÇ¾úÀ¸¸é º¯°æÇÒ¼ö ¾ø´Ù.
		if (model.getValue(xPathdrugmthdlist + "[" + i + "]/medrexecflag") != "Y") {
			model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday", carebasedd);
			model.setValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime", carebasetm);
			
			//grd_mthd.cellstyle("background-color",i+1,grd_mthd.colref("c_drugmthdday"),i+1,grd_mthd.colref("c_drugmthdtime")) = gray;			
			grd_mthd.cellstyle("background-color",i+1,0,i+1,grd_mthd.cols-1) = gray;
		} else {
			carebasedd	= model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdday");
			carebasetm	= model.getValue(xPathdrugmthdlist + "[" + i + "]/c_drugmthdtime");
			
			messageBox("±¸ºÐÀÌ 'Y'ÀÎ °æ¿ì Åõ¾àµÈ ÀÚ·á·Î º¯°æÇÒ ¼ö ¾ø½À´Ï´Ù.","E999");
		}
				
		tmcalculate = (Number(carebasetm) + Number(carebasedd) * 2400);
		tmcalculate = fCarec_GetFillZeno(tmcalculate,4,0);
		if(i == 1){
			carebasetmspec += tmcalculate;
		}else{
			carebasetmspec += " " + tmcalculate;
		}
	}
	//-----------------(20080605)
	//fSaveMthdInfo(carebasetmspec,"N");	
	//opener.javascript.setParameter("SPMNR03300_RtnParamYN", "Y");
	//model.close();
	//-----------------
}

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à½Ã°£ ÀúÀå
 * @param  :
 * @param  : 		
 * @return :
 * @---------------------------------------------------
 */
function fSaveMthdInfo(carebasetmspec,saveflag){

	var execprcptims = "";
	var prcpno = "";
	var prcpdd = "";
	var prcpcd = "";
	var execprcptims = "";
	var execprcpnoarr = "";
	var execuniqnoarr = "";
	var prcphistnoarr = "";
	var carebasedd = "";
	var carebasetm = "";
	var tims = model.getValue(xPathList1 + "/tims");
	//------------(20080912)
	//var tims = model.getValue(xPathList1 + "/tims");
	var calctims = model.getValue(xPathList1 + "/calctims");
	//------------(20080912)
	var drugtmspec = model.getValue(xPathList1 + "/drugtmspec");

	//---------------(20080617)
	//½Ã°£´ë°¡ ¼ø¼­¿¡ °ü°è¾øÀÌ º¯°æµÇ¹Ç·Î ½Ã°£´ë¸¦ Á¤·ÄÇؾßÇÑ´Ù.
	//-------------------------
	//-3200 -3000 2100 
	var carebasetmspec_bak = carebasetmspec;
	carebasetmspec = sortHashKeysString(carebasetmspec);
	
	////alert(carebasetmspec);
	//return;
	
	//-------------------------

	//-----------------(20081104)
	var listcnt = 0;
	//-----------------(20081104)
	
	//hiddenÁ¤º¸ : prcpnoº° row
	for(var j = 1; j <= getNodesetCount(xPathList1); j++){	//xPathList1 : /root/hidden/param1/list : 
		
		execprcptims	= model.getValue(xPathList1 + "[" + j + "]/tims");
		prcpno 			= model.getValue(xPathList1 + "[" + j + "]/prcpno");
		prcpdd			= model.getValue(xPathList1 + "[" + j + "]/prcpdd");
		
		prcpcd			= model.getValue(xPathList1 + "[" + j + "]/prcpcd");
		execprcptims	= model.getValue(xPathList1 + "[" + j + "]/tims");

		execprcpnoarr	= model.getValue(xPathList1 + "[" + j + "]/execprcpnoarr").split(" ");
		execuniqnoarr	= model.getValue(xPathList1 + "[" + j + "]/execuniqnoarr").split(" ");
		prcphistnoarr	= model.getValue(xPathList1 + "[" + j + "]/prcphistnoarr").split(" ");

//		<execprcpnoarr>1 2 3</execprcpnoarr>
//		<execuniqnoarr>23634 23635 23636</execuniqnoarr>
//		<prcphistnoarr>1 1 1</prcphistnoarr>
		//-----------(20080912)
		//for(var k = 1; k <= tims; k++){			///xPathdrugmthdlist : root/main/drugmthdlist/drugmthdlist(È­¸é»óÀÇ Á¤º¸)
		for(var k = 1; k <= calctims; k++){			///xPathdrugmthdlist : root/main/drugmthdlist/drugmthdlist(È­¸é»óÀÇ Á¤º¸)	
		//-----------(20080912)	
			carebasedd = model.getValue(xPathdrugmthdlist + "[" + k + "]/c_drugmthdday");		//º¯°æÀÏÀÚ(ÀԷ°ª)
			carebasetm = model.getValue(xPathdrugmthdlist + "[" + k + "]/c_drugmthdtime");		//º¯°æ½Ã°¢(ÀԷ°ª)
			
			
			model.resetInstanceNode("/root/hidden/mthdinfo");
			model.setValue("/root/hidden/mthdinfo/prcpno", 			prcpno);
			model.setValue("/root/hidden/mthdinfo/prcpdd", 			prcpdd);
			model.setValue("/root/hidden/mthdinfo/prcpcd", 			prcpcd);
			model.setValue("/root/hidden/mthdinfo/execprcptims", 	execprcptims);

			model.setValue("/root/hidden/mthdinfo/prcphistno", 		prcphistnoarr[k-1]);
			model.setValue("/root/hidden/mthdinfo/execprcpno", 		execprcpnoarr[k-1]);
			model.setValue("/root/hidden/mthdinfo/execprcpuniqno", 	execuniqnoarr[k-1]);

			//carebaseddarr : Àü¿ªº¯¼ö
			//carebasetmarr	: Àü¿ªº¯¼ö
			//-------------------(20081012)
			//ó¹æÀϱâÁØÀ¸·Î 
			//model.setValue("/root/hidden/mthdinfo/carebasedd", 		getDateAddc(prcpdd, carebaseddarr[k-1]));
			var prcphopedd = model.getValue(xPathList1 + "[" + j + "]/prcphopedd");
			//ó¹æÈñ¸ÁÀϱâÁØÀ¸·Î
			model.setValue("/root/hidden/mthdinfo/carebasedd", 		getDateAddc(prcphopedd, carebaseddarr[k-1]));
			//-------------------(20081012)
			model.setValue("/root/hidden/mthdinfo/carebasetm", 		carebasetmarr[k-1] + "00");
			model.setValue("/root/hidden/mthdinfo/pid", 			model.getValue(xPathList1 + "/pid"));			
			model.setValue("/root/hidden/mthdinfo/carebasetmspec",	carebasetmspec);

			//---------------------(20081104)
			//if(model.getValue(xPathList2 + "[" + k + "]/medrexistyn") == "N" || drugtmspec == ""){
			listcnt ++;
//alert(j + "/" + k + "/" + listcnt);
//alert(model.getValue(xPathList2 + "[" + listcnt + "]/medrexistyn"));
			if(model.getValue(xPathList2 + "[" + listcnt + "]/medrexistyn") == "N" || drugtmspec == ""){
			//---------------------(20081104)	
				model.setValue("/root/hidden/mthdinfo/status", "I");
			}else{
				model.setValue("/root/hidden/mthdinfo/status", "U");
			}
			model.makeNode("/root/send/savedata/mthdinfo[" + k + "]");
			model.duplicate("/root/send/savedata", "/root/hidden/mthdinfo");
		}
	}
//alert("˜ˌ˟:" + saveflag);
	if (saveflag == "Y") {
		submit("TXMNR03301");
		opener.javascript.setParameter("SPMNR03300_RtnParamYN", "Y");
		model.close();
	}
}

/*
	Á¤·ÄÇϱâ
*/
function sortHashKeysString(sColString){
	var sColArray = new Array;
	
	//string -> ¹è¿­·Î
	var sCol = sColString.split(" ");
	var temp = "";
	for(var i = 0; i < sCol.length; i++){
		//sColArray[i] = Number(sCol[i]);
		sColArray[i] = fCarec_GetFillZeno(sCol[i],4,0);
	}

	//¹è¿­ Á¤·Ä
	for(var i = 0; i < sColArray.length; i++){
		for(var j = 0; j < sColArray.length; j++){
			if(sort2(sColArray[i],sColArray[j]) == false){
				temp 			= fCarec_GetFillZeno(sColArray[i],4,0);
				sColArray[i]	= fCarec_GetFillZeno(sColArray[j],4,0);
				sColArray[j]	= fCarec_GetFillZeno(temp,4,0);
			}
		}
	}

	//Áߺ¹Á¦°Å(Áߺ¹°¡´É)
//	sColString = "";
//	for(var i = 0; i < sColArray.length; i++){
//		if ( sColArray[i] == "") continue;
//
//		for(var j = i+1; j < sColArray.length; j++){			
//			if ( sColArray[i] == sColArray[j]) sColArray[j] = "";
//		}
//	}

	//¹è¿­ -> string
	sColString = "";
	for(var i = 0; i < sColArray.length; i++){
		//Ƚ¼ö1ÀΠó¹æ¿¡ ´ëÇؼ­ ±âÁؽð£À» 00:00À¸·Î º¯°æ½Ã ¹ß»ýµÇ´Â ¿À·ù ¼öÁ¤_20091109_SMY
		//if (sColArray[i] == "0000") continue;
		sColString += sColArray[i] + " ";
	}

	//¸¶Áö¸· " " Á¦°Å
	sColString = sColString.substr(0,sColString.length-1);

	//string ¸®ÅÏ
	return sColString;
}
//--------------------(20080605)
// À½¼ö³¢¸®ÀÇ Á¤·ÄÀº ¹Ý´ëÀÓ(±â´ÉÃß°¡)
// -1800 < -2000 ÀÓ ½Ã°£À̹ǷÎ
//--------------------
function sort2(a,b){

	// µÎº¯¼ö°¡ ÀüºÎ À½¼öÀÎ °æ¿ì(À½¼ö,À½¼ö) -1800 < -2000
	if ( parseInt(a) < 0 && parseInt(b) < 0 ) {

		if(parseInt(a) < parseInt(b)){
			return true;
		}else if(parseInt(a) > parseInt(b)){
			return false;
		}else{
			var sort = new Array(a,b);
			sort.sort();
			return (sort[0] == a)? false:true;
		}

	} else {
	//±×¿Ü°æ¿ì (À½¼ö,¾ç¼ö/¾ç¼ö,À½¼ö/¾ç¼ö,¾ç¼ö)
		if(parseInt(a) > parseInt(b)){
			return true;
		}else if(parseInt(a) < parseInt(b)){
			return false;
		}else{
			var sort = new Array(a,b);
			sort.sort();
			return (sort[0] == a)? false:true;
		}
	}
}