/*

(SMMNB06300_Åõ¾àwork list.xrw - JScript )

- Version :
1)  : Ver.1.00.01
 */
var xCondPath 			= "/root/main/cond";
var xPatInfoPath 		= "/root/main/paminfo/pamlist";
var xWardDrugListPath 	= "/root/main/warddruginfo/warddruglist";
var xHiddenWardDrugPath = "/root/hidden/warddruginfo/warddruglist";
var xWardPatList = "/root/main/wardpatinfo/wardpatlist";

//----------------(20080801)
//var xCaption			= "ȯÀÚÁ¤º¸^±¸ºÐ^¸¶¾à±¸ºÐ^ó¹æÄÚµå^ó¹æ¸í^1ÀÏ¿ë·®^´ÜÀ§^1Àϼö·®^´ÜÀ§^1ÀÏȽ¼ö^°æ·Î^¿ë¹ý^ó¹æRemark^ó¹æÀÇ^ó¹æ½Ã°£^ó¹æÈñ¸ÁÀÏ";	//16°³
//var colDataidx		= 16;			//coldataidxÀÌ»óÀÇ Ä÷³Àº ÀÏÀÚdataÄÄ·³

//var xCaption			= "ȯÀÚÁ¤º¸^±¸ºÐ^Mix^¸¶¾à±¸ºÐ^ó¹æÄÚµå^ó¹æ¸í^1ÀÏ¿ë·®^´ÜÀ§^1Àϼö·®^´ÜÀ§^1ÀÏȽ¼ö^°æ·Î^¿ë¹ý^ó¹æRemark^ó¹æÀÇ^ó¹æ½Ã°£^ó¹æÀû¿ëÀÏ";	//16°³
//var colDataidx			= 17;		//¸¶¾à±¸ºÐÃß°¡

//var xCaption			= "¼±ÅÃ^ȯÀÚÁ¤º¸^±¸ºÐ^Mix^¸¶¾à±¸ºÐ^ó¹æÄÚµå^ó¹æ¸í^1ÀÏ¿ë·®^´ÜÀ§^1Àϼö·®^´ÜÀ§^1ÀÏȽ¼ö^°æ·Î^¿ë¹ý^ó¹æRemark^ó¹æÀÇ^ó¹æ½Ã°£^ó¹æÀû¿ëÀÏ";	//16°³
//var colDataidx			= 18;		//¼±ÅÃÇ׸ñÃß°¡(20080910)
//----(20080919)
//var xCaption			= "^ȯÀÚÁ¤º¸^±¸ºÐ^Mix^¸¶¾à±¸ºÐ^ó¹æÄÚµå^ó¹æ¸í^1ÀÏ¿ë·®^´ÜÀ§^1Àϼö·®^´ÜÀ§^1ÀÏȽ¼ö^°æ·Î^¿ë¹ý^ó¹æRemark^ó¹æÀÇ^ó¹æÀϽÃ^ó¹æÀû¿ëÀÏ^prcpdd^prcpno";	//20°³
//var colDataidx			= 20;			//prcpdd,prcpnoÃß°¡(20080910)

var xCaption			= "^ȯÀÚÁ¤º¸^±¸ºÐ^½ÂÀÎ^Mix^¸¶¾à±¸ºÐ^ó¹æÄÚµå^ó¹æ¸í\n[* : È¥µ¿ÁÖÀÇ/°íÀ§Çè ¾àÁ¦]^1ȸ¿ë·®^1ÀÏ¿ë·®^´ÜÀ§^1ȸ¼ö·®^1Àϼö·®^´ÜÀ§^1ÀÏȽ¼ö^°æ·Î^¿ë¹ý^ó¹æRemark^ó¹æÀÇ^ó¹æÀϽÃ^ó¹æÀû¿ëÀÏ^prcpdd^prcpno^ó¹æ¸íast^ó¹æ¸íÃâ·Â¿ë";	//25°³
var colDataidx			= 25;			//prcpddastÃß°¡(20081121) drprcpetc7, drprcpetc8Ãß°¡(±èº´±¹20110102) 23->25º¯°æ
//----------------------------

var testcnt=0;

/**
 * @group  :
 * @ver    : 2007.07.11
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾àwork list ÃʱⰪ ¼ÂÆà ¹× ÃʱâÁ¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInitialize(){
	grd_patlist.fixedcellcheckbox(0,0) = true;
	grd_patlist.mergecells = "bycol";
	grd_patlist.mergecol(0) = false;
	grd_patlist.mergecol(2) = false;
	grd_patlist.mergecol(3) = false;	
	grd_patlist.mergecol(4) = false;	

	// Á¤¸®	
	model.removeNodeSet("/root/hidden/warddruginfo");
	model.removeNodeSet("/root/main/warddruginfo");

	// ȯÀÚÁ¤º¸ Á¶È¸
	var sPamInfo = getGlobalVariable("paminfo");
	setCSVToNode("/root/main/paminfo",sPamInfo,"pamlist");

 //------------------(20080801)
	var sWardCd	= "";
	var sRoomCD	= "";
	var sPid	= "";
	var sPatNm	= "";
	var sDd		= "";
		
	//--------------(20080804)
	// °ªÀÖÀ¸¸é Åõ¾à±â·Ï¿¡¼­ È£Ãâ
	// °ªÀÌ ¾øÀ¸¸é ¸Þ´º¿¡¼­ È£Ãâ
	var openchk = opener.javascript.getParameter("SMMNR06300_Param");
	//-------------
	//if(checkOpener()){	
	if( !isNull(openchk) && openchk != "null" ){	
		sWardCd	= opener.javascript.getParameter("SMMNR06300_Param");
		sRoomCD	= opener.javascript.getParameter("SMMNR06300_Param1");
		sPid	= opener.javascript.getParameter("SMMNR06300_Param2");
		sPatNm	= opener.javascript.getParameter("SMMNR06300_Param3");
		sDd		= opener.javascript.getParameter("SMMNR06300_Param4");
	}else{
		sWardCd = ( isNull(getPatientInfoDetail("wardcd")) ? getUserInfo("dutplcecd") : getPatientInfoDetail("wardcd"));
		sRoomCD	= model.getValue(xPatInfoPath+"/roomcd");
		sPid	= model.getValue(xPatInfoPath+"/pid");
		sPatNm	= model.getValue(xPatInfoPath+"/hngnm");

	}
 
 	fGetWardList();				//º´µ¿ÄÞº¸

	model.makeValue("/root/main/cond/orddd", getCurrentDate());// ±âÁØÀÏ¿¡ ÇöÀ糯¥(µðÆúÆ®);
    model.makeValue("/root/main/cond/wardcd",	sWardCd);

	fGetRoomList();				//º´µ¿¿¡ ´ëÇÑ º´½ÇÄÞº¸
	fGetZoneList();				//ERÀÇ ±¸¿ª ÄÞº¸			//------------(20080608)
	fnZoneDisp("init");	//----------------------(20080910)

    if ( isNull(model.getValue("/root/init/ward[wardcd ='"+ sWardCd +"']/wardnm")) ){
        return;
    }

	model.makeValue("/root/main/cond/roomcd", sRoomCD);
	fGetPatList();				//ȯÀÚ¸íÄÞº¸
	//-----------------------------(20080906)
	fSetsettingrnid();
	//-----------------------------(20080906)
	//if(checkOpener()){	

	model.makeValue("/root/main/cond/pid",   sPid);
	model.makeValue("/root/main/cond/hngnm", sPatNm);

    if ( !isNull(sPid) ){
        model.setValue(xWardPatList+"[pid = '"+ sPid +"']/check", "true");
    }
    
    
	if(!isNull(openchk) && openchk != "null" ){	
		model.makeValue("/root/main/cond/orddd", sDd);
		
		model.refresh();
		
		fClickDrugListBefore();	//------------(20081117)
									
		fWorkListQuery();
		//fSettingLine();
		//------------------------(20080910)
		//Åõ¾à±â·Ï¿¡¼­ ³Ñ¾î¿Â °ªÀ» Åõ¾àworklist¿¡¼­ Ç¥½ÃÇÑ´Ù.
		var sflagChk = opener.javascript.getParameter("SMMNR06300_Param5");
		var sPathDrug = "/root/main/warddruginfo/warddruglist";		
		var sCount = 0;		
		
		var rows = getNodesetCount(xWardDrugListPath);
		
		if (sflagChk.substr(0,1) == "Y") {			
			var sPrcpdd = "";
			var sPrcpno = "";
			sCount = sflagChk.substr(1, sflagChk.length-1);	
				
			for (var row=1;row<= rows;row++ ) {
				sPrcpdd = model.getValue(sPathDrug + "[" + row + "]/prcpdd");
				sPrcpno = model.getValue(sPathDrug + "[" + row + "]/prcpno");
				
				//alert(row + "/" + sPrcpdd + "/" + sPrcpno);
				
				//¼±ÅÃµÈ ÀڷḸ Ãâ·ÂÇÑ´Ù.
				if (fnFindParam(sPrcpdd,sPrcpno,sCount) == true) {
					model.makeValue(sPathDrug + "[" + row + "]/prtchk","true");			
				} else {
					model.makeValue(sPathDrug + "[" + row + "]/prtchk","false");
				}
			}
		} else {
			//--------------------(20080927)
			if ( rows >= 1) {
				model.makeValue("/root/main/cond/multicheck","true");			
				for (var row=1;row<= rows;row++ ) {				
					model.makeValue(sPathDrug + "[" + row + "]/prtchk","true");			
				}
			}
			//--------------------(20080927)
		}
		fClickDrugListAfter();		//------------(20081117)		
											
		//------------------------(20080910)
	} else {
		fClickDrugListBefore();	//------------(20081117)
									
		fWorkListQuery();
		//fSettingLine();
		
	    fClickDrugListAfter();	
	}
 //------------------(20080801)		
	
	model.refresh();
}

//---------------------------(20080910)
//Æĸ®¹ÌÅÍ¿¡¼­ °ªÀ» ã´Â´Ù.
function fnFindParam(sPrcpDd,sPrcpNo,sCount) {
	for (var row=6;row<=sCount;row++) {
		sParamNm = "SMMNR06300_Param" + row;

		sParamValue = opener.javascript.getParameter(sParamNm);
		var sParamArr = sParamValue.split("/");
		
		//alert(sPrcpDd + "/" + sParamArr[0] + "/" + sPrcpNo + "/" + sParamArr[1]);
		
		if ( sPrcpDd == sParamArr[0] && sPrcpNo == sParamArr[1] ) {
			//alert("true");
			return true;
		}
	}
	return false;
}
//---------------------------(20080910)

/**
 * @group  :
 * @ver    : 2008.09.06
 * @by     : 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ³»È¯ÀÚ°¡ ¼³Á¤µÇ¾î ÀÖÀ¸¸é ÀÚµ¿À¸·Î ³»È¯ÀÚ¼³Á¤½ÃÅ°±â(¼º°ø)
 * @param  :
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetsettingrnid(){
	var sUserId = getUserId();
	var sUserIdFind = ""
	
	for(i = 1; i <= getNodesetCount("/root/main/wardpatinfo/settingrn"); i++ ) {
		sUserIdFind = model.getValue("/root/main/wardpatinfo/settingrn["+ i +"]/settingrnid");
		if (sUserId == sUserIdFind) {
			model.makeValue("/root/main/cond/settingrnid", sUserIdFind);		
			model.refresh();
			fGetPatList();
			return;
		}					
	}	
}
/**
 * @group  :
 * @ver    : 2007.06.08
 * @by     : ±èº¸¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ERÀÇ ÀÀ±Þ ¸®½ºÆ® Á¶È¸ CareCom.js·Î »©³¿
 * @param  :
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
/*function fGetZoneList(){
	submit("TRMNR06302");  
}*/

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : º´µ¿ ¸®½ºÆ® Á¶È¸
 * @param  :
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetWardList(){
	submit("TRMNR00601");
}

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à±â·Ï º´µ¿º° º´½Ç ¸®½ºÆ® Á¶È¸
 * @param  :
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetRoomList(){
	model.makeValue("/root/main/cond/roomcd", "");
	model.resetInstanceNode("/root/send/reqdata");
	model.copynode("/root/send/reqdata", xCondPath);
	submit("TRMNR00602");
}

/**
 * @group  :
 * @ver    : 2007.07.11
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : com_hngnm ³»¿ë °Ë»ö
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatList(){
	model.resetInstanceNode("/root/send/reqdata");
	model.copynode("/root/send/reqdata", xCondPath);
	submit("TRMNR00603");
	grd_patlist.fixedcellischeck(0,0) = false;
	model.removeNodeSet("/root/hidden/warddruginfo");
	model.removeNodeSet("/root/main/warddruginfo");	
	grd_druglist.rebuild();
}

/**
 * @group  :
 * @ver    : 2007.07.11
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
var fstdispcol=0, lstdispcol=0;  // 20090629


function fWorkListQuery(){

	model.resetInstanceNode("/root/send/reqdata");

	var pid = model.getValue("/root/main/cond/pid");
	var indd = "";
	var cretno = "";
	var sHeader = "pid¢Ëindd¢Ëcretno¢Ì"
	var sContents = "";
	var forcnt = 0;
	if( !isNull(pid)){
		indd	= model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + pid + "']/indd");
		cretno	= model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + pid + "']/cretno");
		
		model.makeValue("/root/main/cond/indd",	indd);
		model.makeValue("/root/main/cond/cretno",cretno);

		//alert(pid + "/" + indd + "/" + cretno );
		sContents = pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ì";
		forcnt++;
	} else {
	    for ( var idx = 1 ; idx <= getNodesetCount(xWardPatList) ; idx++ ){
	        if ( model.getValue(xWardPatList + "["+ idx +"]/check") == "true" ){
    	        sContents += model.getValue("/root/main/wardpatinfo/wardpatlist["+ idx +"]/pid") + "¢Ë" 
    	                  + model.getValue("/root/main/wardpatinfo/wardpatlist["+ idx +"]/indd") + "¢Ë" 
    	                  + model.getValue("/root/main/wardpatinfo/wardpatlist["+ idx +"]/cretno") + "¢Ì";
                forcnt++;	            
	        }
	    }
	}

	if ( forcnt < 1 ){
	    return;
	}
	
	var orddd = model.getValue("/root/main/cond/orddd");
	var yorddd = getDateAddc(orddd,-1);
	var torddd = getDateAddc(orddd,1);
	
	model.makeValue("/root/main/cond/yorddd", yorddd);
	model.makeValue("/root/main/cond/torddd", torddd);
	
	model.copynode("/root/send/reqdata", xCondPath);	
	model.makeValue("/root/send/reqdata/reqpidcond", sHeader + sContents);
	
	if(submit("TXMNR06301")){
	    model.makeValue("/root/send/reqdata/pidseqno", model.getValue("/root/hidden/pidseqnoinfo/pidseqnoinfo/pidseqno"));
	
    }else {
        return;
    }
	//----------------------------
	// Á¶È¸Àü È­¸é Á¤¸®
	//----------------------------
	
	model.removeNodeSet("/root/hidden/warddruginfo");
	model.removeNodeSet("/root/main/warddruginfo");

	for (var col= (grd_druglist.cols-1);col>=colDataidx;col--) {
		grd_druglist.deleteColumn(col);
	}
	grd_druglist.caption 	= xCaption;	
	grd_druglist.refresh();

	if(submit("TRMNR06301")){
		
		var inst_cnt = 0;
		var prev_prcpno = "";
		var drugtmspec = "";
		var drugtmspeccal = "";
		var medrbaseexistyn = "";
		var prcpno = "";
		var mod = "";
		var quotient = "";
		var prcpvol = "";
		var prcpvolunitflag = "";
		var prcpqty = "";
		var prcpqtyunitflag = "";
		var carebasedd = "";
		var carebasetm = "";
		var ast = "";
		var aprvstat = "";

		var tempddtm	= "";
		var tempdd		= "";
		var temptm		= "";
		
		var addCol_Array = new Array;
		//1.ÀÏÀÚÃßÃâ -Ä÷³Ãß°¡(È­¸é data)
		var cnt = getNodesetCount("/root/hidden/warddruginfo/warddruglist");
		
		//---------------------------------------
		//alert("°è»ê½ÃÀÛ:" + cnt);(20080801)		
		if ( cnt <= 0 ) {
			messageBox("Á¶È¸µÈÀÚ·á°¡ ¾ø½À´Ï´Ù.","E999");
			return;
		}
		//---------------------------------------
		for(var i = 1; i <= cnt; i++){
			//alert("i=" +i);
			
			tempddtm = model.getValue("/root/hidden/warddruginfo/warddruglist[" + i + "]/ddtm");
			//--------------------------------------------------(20080610)
			//Åõ¾àµÈÀÏÀÚ(Àý´ëÀÏÀÚ),º¯°æµÇÀÏÀÚ(Àý´ëÀÏÀÚ)					YYYYMMDDSSMM00
			//Èñ¸ÁÀÏ+¼³Á¤µÈ½Ã°£´ë==> Àý´ë½Ã°£´ë·Î º¯°æÇÑ´Ù.(·ÎÁ÷)		SSMM
			//alert("0927:"+ tempddtm);
			
			if ( tempddtm.length == 4) {
				tempdd = model.getValue("/root/hidden/warddruginfo/warddruglist[" + i + "]/prcphopedd");
				temptm = tempddtm;

				//alert("A:" + "/" +tempdd + "/" + temptm);

				tempdd = getDateAddc(tempdd, parseInt(tempddtm / 2400));
				temptm = tempddtm % 2400;

				//alert("B:" + "/" +tempdd + "/" + temptm);
				
				temptm = Math.abs(Number(temptm)).toString();
				temptm = fCarec_GetFillZeno(temptm, 4,0);
				
				tempddtm = tempdd + "" + temptm + "" + '00';
			}
			//alert("tempddtm=" + tempddtm);
			
			//°è»êµÈ ÀÏÀÚ ±â·Ï
			//alert(tempddtm);

			model.makeValue("/root/hidden/warddruginfo/warddruglist[" + i + "]/ddtm_calc",tempddtm);
			//--------------------------------------------------
			tempdd = tempddtm.substr(0,8);
			//alert("i¹è¿­=" + tempdd);
			
			//ÀÏÀڹ迭¿¡ ÀúÀå
			careIsSearchString(addCol_Array,tempdd);
			

		}
		
		//alert("1:" + addCol_Array.length);
		
		if (addCol_Array.length <= 0) {
			messageBox("ÀÏÀÚÁ¤º¸°¡ ¾ø½À´Ï´Ù.","E999");
			return;
		}

		//ÀÏÀÚ Á¤·Ä(¿À¸§Â÷¼ø)
		var addCol_Arr = new Array;
		addCol_Arr = sortHashKeysArray(addCol_Array);

		//alert("2:" + addCol_Arr.length);
		
		//2.±×¸®µå¿¡ Ä÷³Ãß°¡
		var pGrd = grd_druglist;
		var sGrdheader = "";

		//-------------------------------------------------------
		//Ä÷³À» ´Ã¸®±â À§Çؼ­ ºó row¸¦ ¸¸µç´Ù.
		//model.duplicate(a,b): b->a Àε¥, ÁÖÀÇ a´Â ÇÑ´Ü°èÀ§ÀÓ)
		//-------------------------------------------------------
		
		model.duplicate("/root/main","/root/temp/warddruginfo");
		
		var tempColIdx;
		
		fstdispcol = Number(colDataidx)+1; // 20090629
		
		for(var k = 1; k <= addCol_Arr.length; k++){
		
			tempColIdx = Number(colDataidx)+Number(k);
			pGrd.addColumn("ref:dispdd" + tempColIdx + "; type:output; ", false);
			//pGrd.colWidth(pGrd.cols - 1) = 150;
			pGrd.colWidth(pGrd.cols) = 150;
			
			//------------------------------(20080802)
			//---(20080802) YYYYMMDD
			//ÀÏÀÚ
			//sGrdheader 	+= addCol_Arr[k-1].toString() + "^";		//YYYYMMDD			
			var sTempDt	= addCol_Arr[k-1].toString(); 
			sTempDt = sTempDt.substr(0,4) + "-" + sTempDt.substr(4,2) + "-" + sTempDt.substr(6,2);
			sGrdheader 	+= sTempDt + "^";			//YYYY-MM-DD
			//------------------------------
		}
		lstdispcol = tempColIdx;  // 20090629
		
		sGrdheader = sGrdheader.substr(0,sGrdheader.length-1);		// ¸¶Áö¸· "^" Á¦°Å
		pGrd.caption = pGrd.caption + "^" + sGrdheader;
		
		//alert("3:" + pGrd.caption);
		pGrd.refresh();

		//3.hidden data -> È­¸é data)
		var preprcpno = "";
		var nowprcpno = "";

		var hiddenPath	= 	"/root/hidden/warddruginfo/warddruglist";
		var dispPath	=	"/root/main/warddruginfo/warddruglist";
		var inst_cnt	= 0;
		var tempdd		= "";
		
		var cnt = getNodesetCount("/root/hidden/warddruginfo/warddruglist");
		
		//Çì´õ¸¦ ¸¸µé±â À§ÇØ ÀÖ´õ ÀÚ·á »èÁ¦		
		pGrd.deleteRow(1);		
		
		for(var i = 1; i <= cnt; i++){
			nowprcpno	= model.getValue(hiddenPath + "[" + i + "]/prcpno");
			
			//prcpno°¡ ´Ù¸£¸é row Ãß°¡
			if (preprcpno != nowprcpno) {
				
				pGrd.addRow(false,false);
				//row Ãß°¡
				//alert("rowÃß°¡:" + preprcpno + "/" + nowprcpno);
				
				inst_cnt++;				
			
				//model.makeValue(dispPath + "[" + inst_cnt + "]", "");
				
				//-----------------------------(20080801)
				//ÀϹÝÀûÀÎ °øÅë»çÇ× º¹»ç
//				var disppatinfo = 	model.getValue(hiddenPath + "[" + i + "]/roomcd") + " " +
//									model.getValue(hiddenPath + "[" + i + "]/patnm") + " " +
//									model.getValue(hiddenPath + "[" + i + "]/sexage") + " " +
//									model.getValue(hiddenPath + "[" + i + "]/pid") + " ";

				//-------------(20080922)
				//var disppatinfo = 	model.getValue(hiddenPath + "[" + i + "]/pid") + " " +
				//					model.getValue(hiddenPath + "[" + i + "]/patnm") + " " +
				//					model.getValue(hiddenPath + "[" + i + "]/roomcd") + " " +									
				//					model.getValue(hiddenPath + "[" + i + "]/sexage");								

				if (model.getValue(hiddenPath + "[" + i + "]/roomcd") == "ERBD") {
						var disppatinfo = 	model.getValue(hiddenPath + "[" + i + "]/pid").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/patnm").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/bedposcnts").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/sexage").toString().replace(" ","") + " " ;
				} else {
						var disppatinfo = 	model.getValue(hiddenPath + "[" + i + "]/pid").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/patnm").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/roomcd").toString().replace(" ","") + " " +
											model.getValue(hiddenPath + "[" + i + "]/sexage").toString().replace(" ","") + " " ;
				}
				//-------------(20080922)
				//-----------------------------(20080801)
				

				var dispprcpkindnm		= model.getValue(hiddenPath + "[" + i + "]/prcpkindnm");
				var dispprcpmixno		= model.getValue(hiddenPath + "[" + i + "]/prcpmixno");
				var dispprcpcd			= model.getValue(hiddenPath + "[" + i + "]/prcpcd");
				var dispprcpnm			= model.getValue(hiddenPath + "[" + i + "]/prcpnm");
				
				//----------------------------(20080917)
				if ( dispprcpmixno != '-' && dispprcpmixno != '') {
					dispprcpnm = "(" + dispprcpmixno + ")" + dispprcpnm;
				}
				//----------------------------(20080917)
				
				var dispprcpvol			= model.getValue(hiddenPath + "[" + i + "]/prcpvol");
				var dispprcpvolunitflag	= model.getValue(hiddenPath + "[" + i + "]/prcpvolunitflag");
				var dispprcpqty			    = model.getValue(hiddenPath + "[" + i + "]/prcpqty");
				var dispprcpqtyunitflag	= model.getValue(hiddenPath + "[" + i + "]/prcpqtyunitflag");
				var dispprcptims		= model.getValue(hiddenPath + "[" + i + "]/prcptims");
				var dispabbrnm			= model.getValue(hiddenPath + "[" + i + "]/abbrnm");
				var dispdrugmthdspccd	  = model.getValue(hiddenPath + "[" + i + "]/drugmthdspccd");
				var dispprcpdelivefact	= model.getValue(hiddenPath + "[" + i + "]/prcpdelivefact");
				var disporddrnm			= model.getValue(hiddenPath + "[" + i + "]/orddrnm");
				var dispfstrgstdt		= model.getValue(hiddenPath + "[" + i + "]/fstrgstdt");
				var dispprcphopedd	= model.getValue(hiddenPath + "[" + i + "]/prcphopedd");

				var dispspcldrug		= model.getValue(hiddenPath + "[" + i + "]/spcldrug");		//(2008081)				
				var dispprcpdd			= model.getValue(hiddenPath + "[" + i + "]/prcpdd");		//(20080910)
				var dispprcpno			= model.getValue(hiddenPath + "[" + i + "]/prcpno");		//(20080910)
				//----------------------------(20081121)				
				var dispprcpnmast		= model.getValue(hiddenPath + "[" + i + "]/prcpnmast");
				var dispprcpnmprt		= model.getValue(hiddenPath + "[" + i + "]/prcpnmprt");
        var ast             = model.getValue(hiddenPath + "[" + i + "]/ast");
        var aprvstat        = model.getValue(hiddenPath + "[" + i + "]/aprvstat");
        var tims            = model.getValue(hiddenPath + "[" + i + "]/tims");          // 20090629
        var mthdcd          = model.getValue(hiddenPath + "[" + i + "]/mthdcd");        // 20090629
        var orgprcpclscd    = model.getValue(hiddenPath + "[" + i + "]/orgprcpclscd");  // 20090629
        var roomcd          = model.getValue(hiddenPath + "[" + i + "]/roomcd");        // 20090629
        var patnm           = model.getValue(hiddenPath + "[" + i + "]/patnm");         // 20090629
        var pid             = model.getValue(hiddenPath + "[" + i + "]/pid");           // 20090629
        var prtchk          = model.getValue(hiddenPath + "[" + i + "]/prtchk");        // 20090629
				
				var prcphngnm       = model.getValue(hiddenPath + "[" + i + "]/prcphngnm");     // 20090714
				var prcpclscd       = model.getValue(hiddenPath + "[" + i + "]/prcpclscd");     // 20091023
				
				var drprcpetc7      = model.getValue(hiddenPath + "[" + i + "]/drprcpetc7");     // 20110202_KNUH_Start
				var drprcpetc8      = model.getValue(hiddenPath + "[" + i + "]/drprcpetc8");     // 20110202_KNUH_Start
				var zonecd			= model.getValue(hiddenPath + "[" + i + "]/zonecd");     // 20110211_KNUH			
				var pid = model.getValue(hiddenPath + "[" + i + "]/pid").toString().replace(" ","");   //20110907
				
				var sexage    = model.getValue(hiddenPath + "[" + i + "]/sexage");      //20111230_KNUH_Start ¼ºº°/³ªÀÌ(Á¤º¸Ãß°¡)
				var orddeptnm = model.getValue(hiddenPath + "[" + i + "]/orddeptnm");   //20111230_KNUH_Start ºÎ¼­¸í(Á¤º¸Ãß°¡)
				
				//----------------------------(20081121)

				model.makeValue(dispPath + "[" + inst_cnt + "]/prtchk",			prtchk      		);	//(20080910)
				model.makeValue(dispPath + "[" + inst_cnt + "]/patinfo",			disppatinfo			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpkindnm",		dispprcpkindnm		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpmixno",		dispprcpmixno		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpcd",			dispprcpcd			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpnm",			dispprcpnm			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpvol",			dispprcpvol			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpvolunitflag",	dispprcpvolunitflag	);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpqty",			dispprcpqty			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpqtyunitflag",	dispprcpqtyunitflag	);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcptims",		dispprcptims		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/abbrnm",			dispabbrnm			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/drugmthdspccd",	dispdrugmthdspccd	);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpdelivefact",	dispprcpdelivefact	);
				model.makeValue(dispPath + "[" + inst_cnt + "]/orddrnm",			disporddrnm			);
				model.makeValue(dispPath + "[" + inst_cnt + "]/fstrgstdt",		dispfstrgstdt		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcphopedd",		dispprcphopedd		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/spcldrug",		dispspcldrug		);	//(2008081)

				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpdd",			dispprcpdd			);	//(20080910)
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpno",			dispprcpno			);	//(20080910)

				//-----------(20081121)
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpnmast",		dispprcpnmast		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpnmprt",		dispprcpnmprt		);
				//-----------(20081121)
				model.makeValue(dispPath + "[" + inst_cnt + "]/ast",		ast		);
				model.makeValue(dispPath + "[" + inst_cnt + "]/aprvstat",		aprvstat		);
				
				model.makeValue(dispPath + "[" + inst_cnt + "]/tims"        , tims);         // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/prtabbrnm"   , dispabbrnm);   // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/orgprcpclscd", orgprcpclscd); // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/viewroomcd"  , roomcd);       // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/patnm"       , patnm);        // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/astyn"       ,	ast);          // 20090629
				model.makeValue(dispPath + "[" + inst_cnt + "]/pid"         ,	pid);          // 20090629
				
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcphngnm"   ,	prcphngnm);    // 20090714
				model.makeValue(dispPath + "[" + inst_cnt + "]/prcpclscd"   ,	prcpclscd);    // 20091023
				
				model.makeValue(dispPath + "[" + inst_cnt + "]/drprcpetc7"  ,	drprcpetc7);    // 20110202_KNUH_Start
				model.makeValue(dispPath + "[" + inst_cnt + "]/drprcpetc8"   ,	drprcpetc8);    //  20110202_KNUH_Start
				model.makeValue(dispPath + "[" + inst_cnt + "]/zonecd"   ,	zonecd);    //  20110211_KNUH
				model.makeValue(dispPath + "[" + inst_cnt + "]/pid"      ,	pid);    //  20110211_KNUH
				
				model.makeValue(dispPath + "[" + inst_cnt + "]/orddeptnm"      ,	orddeptnm);   //20111230_KNUH_Start ¼ºº°/³ªÀÌ(Á¤º¸Ãß°¡) 
				model.makeValue(dispPath + "[" + inst_cnt + "]/sexage"         ,	sexage);      //20111230_KNUH_Start ºÎ¼­¸í(Á¤º¸Ãß°¡)    
				
				model.makeValue(dispPath + "[" + inst_cnt + "]/roomcd"         ,	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + pid + "']/roomcd"));      //20111230_KNUH_Start ºÎ¼­¸í(Á¤º¸Ãß°¡)    
				
				
					
//				for(var k = 1; k <= addCol_Arr.length; k++){
//					tempColIdx = Number(colDataidx)+Number(k);
//					model.makeValue(dispPath + "[" + inst_cnt + "]/dispdd" + tempColIdx,"");
//				}
				//alert("°æ·Î:" + dispPath + "[" + inst_cnt + "]/patinfo");

				//now prcpno -> before prcpno
				preprcpno = nowprcpno;
			}

			tempdd		= model.getValue(hiddenPath + "[" + i + "]/ddtm_calc");
			tempdd		= tempdd.substr(0,8);

			//ÀÏÀÚÄ÷³Ã£±â
			var colindex = fnCaptionFind(tempdd);
			//alert("colindex:" + colindex + "/inst_cnt:" + inst_cnt);
			
			//Ä÷³ÀÌ ÀÖ´Â °æ¿ìº¹»ç
			if (colindex > 0) {
				//À̹øÀÚ·á
				var temptm1	= model.getValue(hiddenPath + "[" + i + "]/ddtm_calc");
				//0919
				//alert ("temptm1:" + temptm1);
				temptm1		= fCarec_GetFillZeno(temptm1.substr(8,4), 4,0);
				//0919
				//alert ("temptm1:" + temptm1);		//0000 Àΰæ¿ìµµ ¾ÆÁ÷ »ì¾ÆÀÖÀ½
				
				//±âÁ¸±×¸®µåÀÚ·á
				var temptm2 = model.getValue(dispPath + "[" + inst_cnt + "]/dispdd"+colindex);
				if (temptm2.length > 0) {
					temptm2 = temptm2 + " " + temptm1;
				} else {
					temptm2 = temptm1;				
				}
				//alert (temptm2 + "/" + temptm1);
				
				//sort ÇؾßÇÔ				
				temptm2 = temptm2.replace(":","");				//(20080804);
				//alert("1:" +temptm2);
				temptm2 = sortHashKeysString(temptm2);				
				//alert("2:" +temptm2);
				
				//-----------------------------------(20080801)
				// 0900 -> 09:00
				
				temptm2 = temptm2.replace(":","");
				var disp1temptm2 = temptm2.split(" ");
				var disp2temptm2 = "";
				var disp3temptm2 = "";

//0919
//alert(disp1temptm2);
		
				for (var t=0;t<disp1temptm2.length;t++) {
					
					disp2temptm2 = disp1temptm2[t];
					disp2temptm2 = disp2temptm2.replace(":","");					
					
					if (disp2temptm2 != "") {
						//alert("1:"+ disp2temptm2);
						disp2temptm2 = disp2temptm2.substr(0,2) + ":" + disp2temptm2.substr(2,2);
						//alert("2:"+ disp2temptm2);					
						if (t == (disp1temptm2.length-1)) {
							disp3temptm2 += disp2temptm2;
						} else {
							disp3temptm2 += disp2temptm2 + " ";
						}
					}
					//alert("3:" + disp3temptm2);
				}
				
				//alert(temptm2 + "/" + disp3temptm2);				
				temptm2 = disp3temptm2;
				//-----------------------------------
				
				//Á¤¸®µÈ ½Ã°£´ë ¹Ý¿µ
				model.makeValue(dispPath + "[" + inst_cnt + "]/dispdd"+colindex,temptm2);
			}
		}
		pGrd.refresh();		
		model.refresh();
		
		

/* ------------------------------------(°°ÀºÃ³¹æÀΰæ¿ì ÇÕÄ¡´Â ±â´É ¸·À½):¿äû»çÇ×, ±¸ÇöÀº µÇ¾úÀ½
		//--------------------------------------------------------------
		//4.¸ÓÁö(È­¸é¿¡¼­)
		//ó¹æÀû¿ëÀÏÀÌ ´Ù¸£°í, ¾àÁ¦,¿ë·®,¼ö·®,Ƚ¼ö,°æ·Î,¿ë¹ýÀÌ °°À¸¸é
		//ó¹æ¹øÈ£°¡ ´Þ¶óµµ row n°³¸¦ 1°³·Î ÇÕÄ£´Ù.
		//--------------------------------------------------------------
		
		var preprcpcd			= "";
		var preprcpvol			= "";
		var preprcpqty			= "";
		var preprcptims			= "";
		var preabbrnm			= "";
		var predrugmthdspccd	= "";

		var nowprcpcd			= "";
		var nowprcpvol			= "";
		var nowprcpqty			= "";
		var nowprcptims			= "";
		var nowabbrnm			= "";
		var nowdrugmthdspccd	= "";
		var delrowyn				= "";
		
		var cnt = getNodesetCount("/root/main/warddruginfo/warddruglist");

		for(var i = 1; i <= cnt; i++){
			model.makeValue(dispPath + "[" + i + "]/delrowyn","N");
		}
		for(var i = 1; i <= cnt; i++){
			preprcpcd		= model.getValue(dispPath + "[" + i + "]/prcpcd");
			preprcpvol		= model.getValue(dispPath + "[" + i + "]/prcpvol");
			preprcpqty		= model.getValue(dispPath + "[" + i + "]/prcpqty");
			preprcptims		= model.getValue(dispPath + "[" + i + "]/prcptims");
			preabbrnm		= model.getValue(dispPath + "[" + i + "]/abbrnm");
			predrugmthdspccd= model.getValue(dispPath + "[" + i + "]/drugmthdspccd");
			delrowyn			= model.getValue(dispPath + "[" + i + "]/delrowyn");

			if (delrowyn == "Y") continue;

			for (var j=1;j<=cnt;j++) {

				if (j==i) continue;
				
				nowprcpcd			= model.getValue(dispPath + "[" + j + "]/prcpcd");
				nowprcpvol			= model.getValue(dispPath + "[" + j + "]/prcpvol");
				nowprcpqty			= model.getValue(dispPath + "[" + j + "]/prcpqty");
				nowprcptims			= model.getValue(dispPath + "[" + j + "]/prcptims");
				nowabbrnm			= model.getValue(dispPath + "[" + j + "]/abbrnm");
				nowdrugmthdspccd	= model.getValue(dispPath + "[" + j + "]/drugmthdspccd");
			
				if ( nowprcpcd		    ==	preprcpcd	&&	 
				     nowprcpvol		    ==	preprcpvol	&&		 
				     nowprcpqty		    ==	preprcpqty	&&		 
				     nowprcptims		==	preprcptims	&&	 
				     nowabbrnm		    ==	preabbrnm	&&		 
				     nowdrugmthdspccd   ==	predrugmthdspccd  ) {
	
					preprcpcd		    = nowprcpcd;
				    preprcpvol		    = nowprcpvol;
				    preprcpqty		    = nowprcpqty;
				    preprcptims		    = nowprcptims;
				    preabbrnm		    = nowabbrnm;
				    predrugmthdspccd    = nowdrugmthdspccd;
	
					model.makeValue(dispPath + "[" + j + "]/delrowyn","Y");
	
					for (var col=colDataidx+1;col<=pGrd.cols;col++ ) {

						var temptm1 = model.getValue(dispPath + "[" + j + "]/dispdd"+col);
						var temptm2 = model.getValue(dispPath + "[" + i + "]/dispdd"+col);
						var temptm	= "";

						//»óÀ§loop = »óÀ§loop || ' ' || ÇÏÀ§loop
						if (temptm2.length >0 && temptm1.length >0 ) {
							temptm = temptm2 + " " + temptm1;
						} else if (temptm2.length >0) {
							temptm = temptm2;
						} else if (temptm1.length >0) {
							temptm = temptm1;
						} else {
							temptm = "";
						}
						//Á¤·Ä
						if (temptm != "") temptm = sortHashKeysString(temptm);
						//°ª¹Ý¿µ
						model.makeValue(dispPath + "[" + i +"]/dispdd" + col,temptm);
					}
				}  
			}
		}

		//--------------------------------------------------------------
		//5. ±×¸®µå Á¤¸®1
		//ÇÕÃÄÁø row´Â ¼û±ä´Ù.
		//--------------------------------------------------------------
		//for(var i = 1; i <= cnt; i++){
		//	var delflag = model.getValue(dispPath + "[" + i + "]/delrowyn");
		//	if (delflag == "Y") pGrd.rowHidden(i) = true;
		//}
//return;

		for(var i = 1; i <=cnt ; i++){
			var delflag = model.getValue(dispPath + "[" + i + "]/delrowyn");
			if (delflag == "Y") {
				grd_druglist.deleteRow(i);
				i--;
			}
		}
*/		
		//--------------------------------------------------------------
		//6. ±×¸®µå Á¤¸®2
		//ÇÕÃÄÁø col´Â ¼û±ä´Ù.
		//--------------------------------------------------------------
		if (grd_druglist.rows <= 1 ) return;

		var fromdd	= model.getValue("/root/main/cond/orddd");		//Á¶È¸ÀÏÀÚ
		var todd	= getDateAddc(fromdd,1);						//Á¶È¸ÀÏÀÚ+1
		var sCaption = grd_druglist.caption.split("^");	

		//------------------(20080802)
		//--------------------------------------------------------------
		//7. ÇØ´çÇÏ´Â ÀڷḸ ³ª¿Àµµ·Ï ÇÑ´Ù.(Ä÷³)
		//--------------------------------------------------------------
		var sCaptionDt = "";
		for(var i = (sCaption.length-1) ; i >= colDataidx ; i--){					
			
			sCaptionDt = sCaption[i];
			sCaptionDt = sCaptionDt.replace("-","");
			sCaptionDt = sCaptionDt.replace("-","");			//¸·Áö¸»°Í
					
		    if (sCaptionDt >= fromdd && sCaptionDt <= todd) {
			} else {
				grd_druglist.deleteColumn(i);
			}
		}
		grd_druglist.refresh();
		//------------------(20080802)
		
		//------------------(20080802)
		//--------------------------------------------------------------
		//8. ÇØ´çÇÏ´Â ÀڷḸ ³ª¿Àµµ·Ï ÇÑ´Ù.(row)
		//--------------------------------------------------------------		
		var rows = getNodesetCount(xWardDrugListPath);		
		if (rows <= 1) return;
		
		var rowidx = 1;
		for (var row=1;row<= rows;row++ ) {
			if ( 	grd_druglist.ValueMatrix(rowidx,colDataidx  ) == "" && 
					grd_druglist.ValueMatrix(rowidx,colDataidx+1) == "") {

				grd_druglist.deleteRow(rowidx);
				rowidx --;
			} else {
				rowidx ++;
			}
		}
		//------------------(20080802)		
		grd_druglist.refresh();

		//------------------(20080804)
//		var srows = getNodesetCount("/root/main/warddruginfo/warddruglist");
//
//		
//		for(var i = (sCaption.length-1) ; i >= colDataidx ; i--){					
//			
//			sCaptionDt = sCaption[i];
//			sCaptionDt = sCaptionDt.replace("-","");
//			sCaptionDt = sCaptionDt.replace("-","");			//¸·Áö¸»°Í
//						
//			//---------------------(20080803)
//			if (sCaptionDt >= fromdd && sCaptionDt <= todd) {
//			} else {
//				grd_druglist.deleteColumn(i);
//			}
//			
//			//---------------------(20080802)
//			// fromdd ÀÌ»óºÎÅ͸¸ Á¶È¸ÇÑ´Ù.
//			//alert( sCaptionDt + "/" + fromdd);
//			//if (sCaptionDt >= fromdd) {
//			//} else {
//			//	grd_druglist.deleteColumn(i);
//			//}
//			//---------------------(20080802)
//		}
		//------------------(20080804)
		//grd_druglist.refresh();



//		model.makeValue("/root/main/cond/title", "Åõ¾à work list(" + rdo_drugflag.label + ")");
//		model.makeValue("/root/main/cond/printdd", getCurrentDate());
//		model.makeValue("/root/main/cond/printtm", getCurrentTime().substr(0,4));

//		if(cnt > 0){
//			exeReportPreview("RPMNR06301", "XMLSTR" , ""  , ""   , "false" , "false", "", "", "", "false");
//		}else{
//			resetReportPreview();
//			messageBox("Ãâ·ÂÇÒ ³»¿ëÀÌ","I004");
//		}

		//-----------------------------(20080801)¹ÌÀÛ¾÷ºÐ
		//¸¶¾à,ÇâÁ¤½Å¼ºÀÎ °æ¿ì
		//if(spcldrug == "M"){
		//if( spcldrug == "M" || spcldrug == "H" ){
		//	grd_druglist.cellstyle("font-weight",i+1,1,i+1,grd_colcnt-3) =  "bold";
		//	grd_druglist.cellstyle("font-weight",i+1,grd_colcnt-1,i+1,grd_colcnt-1) =  "bold";
		//}
		
		var pGrd = grd_druglist;
		var pGrdCnt = getNodesetCount(xWardDrugListPath);
		var pGrdFlag = false;
		var pGrdValue = "";

		if (pGrdCnt <= 0 ) return;
		
		var pPatinfo = "";
		
		for (var t=1;t<=pGrdCnt;t++) {
			pGrdValue = model.getValue("root/main/warddruginfo/warddruglist[" + t + "]/spcldrug");
			
			pGrdFlag =	false;			
			if (pGrdValue == "M" || pGrdValue == "H") pGrdFlag = true;
			
			if (pGrdFlag == true) {	
				pGrd.cellstyle("font-weight",t,1,t,pGrd.cols-1) =  "bold";				
			}

			//--------------------(20081117)
			//¸ÓÁöµÈ°ÍÁß¿¡¼­ µ¿ÀÏÇÑ °æ¿ì´Â »ö»óº¯°æÀ¸·Î º¸ÀÌÁö ¾Ê°ÔÇÔ
			if (pPatinfo == model.getValue("root/main/warddruginfo/warddruglist[" + t + "]/patinfo")) {
				pGrd.cellStyle("color", t, pGrd.colref("patinfo")) = "white";
			} else {
				pPatinfo = model.getValue("root/main/warddruginfo/warddruglist[" + t + "]/patinfo");
				
				//20110907_KNUH_Start ȯÀÚº° ±¸ºÐ¼± Ãß°¡(»¡°£»ö)
				if(t !=1){
					grd_druglist.rowStyle(t-1, "all", "border-bottom-color") = "#ff0000";                                
					grd_druglist.rowStyle(t-1, "all", "border-top-width") = "3";
				}
			}
			//--------------------(20081117)
		}
		//-----------------------------
	}
	grd_druglist.refresh();
	
	
}

/**
 * @---------------------------------------------------
 * @desc   :  ¹è¿­¿¡ ¹®ÀÚ°¡ ÀÖ´ÂÁö È®ÀÎÇÏ¿© ¾øÀ¸¸é ¹è¿­¿¡ Ãß°¡
 * @param  : strSrc - Àüü ¹®Àå
 * @param  : strFind - ãÀ» ¹®Àå
 * @return :  boolean
 * @---------------------------------------------------
 */
function fnCaptionFind(strFind) {
	
	var pGrd		= grd_druglist;
	var sGrdCap1 	= pGrd.caption.split("^");
	var col_index	= "0";
	var sDT 		= "";
	
	for (var col1=0; col1 < sGrdCap1.length; col1++) {
		//---------------(20080802)		
		//if (sGrdCap1[col1] == strFind) {
		sDT = sGrdCap1[col1];
		sDT = sDT.replace("-","");
		sDT = sDT.replace("-","");			//Ç®Áö¸»°Í
		//alert(sDT + "/" + strFind);
		
		if (sDT == strFind) {
			col_index	= col1;
			col_index ++;
			break;
		}
	}
	return col_index;
}


/**
 * @---------------------------------------------------
 * @desc   :  ¹è¿­¿¡ ¹®ÀÚ°¡ ÀÖ´ÂÁö È®ÀÎÇÏ¿© ¾øÀ¸¸é ¹è¿­¿¡ Ãß°¡
 * @param  : strSrc - Àüü ¹®Àå
 * @param  : strFind - ãÀ» ¹®Àå
 * @return :  boolean
 * @---------------------------------------------------
 */
function careIsSearchString(strSrc, strFind){
	var flag = false;
	for(var i = 0; i < strSrc.length; i++){
		if (strFind.length != 8) {
			if(fCarec_GetFillZeno(strFind,4,0) == fCarec_GetFillZeno(strSrc[i],4,0)){
				flag = true;
				break;
			}
		} else {
			if(strFind == strSrc[i]){
				flag = true;
				break;
			}		
		}
	}
	if (flag != true) {
		if (strFind.length != 8) {
			strSrc[strSrc.length] = fCarec_GetFillZeno(strFind,4,0);
		} else {
			strSrc[strSrc.length] = strFind;		
		}
	}
}

/**
 * @group  :
 * @ver    : 2007.06.23
 * @by     : ÃÖ°æ¿ë
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Á¤·Ä
 * @param  :
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function sortHashKeysArray(sColArray){

	var temp;
	//¹è¿­¾ÈÀÇ ³»¿ë Á¤·Ä
	for(i = 0; i < sColArray.length; i++){
		for(j = 0; j < sColArray.length; j++){
			if(sort2(sColArray[i],sColArray[j]) == false){
				temp = sColArray[i];
				sColArray[i] = sColArray[j];
				sColArray[j] = temp;
			}
		}
	}
	return sColArray;
}

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);
		sColArray[i] = sColArray[i].toString().replace(":","");			//-----(20080919)
	}

	//¹è¿­ Á¤·Ä
	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++){
		//if (sColArray[i] == "0000") continue;	//---0919		
		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;
		}
	}
}

/**
 * @group  :
 * @ver    : 20080.06.12
 * @by     : ±èº¸¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fWorkListPrint() {

	var pGrd = grd_druglist;
	var stitle1	= "";
	var stitle2	= "";
	var stitle3	= "";		//--(20080923)
	
	if (pGrd.rows <= 1) {
		messageBox("ÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.","E999");
		return;
	}

	//-----------------------------(20080801)	
	//stitle1 = com_wardcd.label;
	//stitle2 = "Àüü";
	//stitle3 = "Àüü";
	
	//if (com_roomcd.label.replace("-","")	!= "")	stitle2 = com_roomcd.label + " ȣ";
	//if (ipt_pid.label						!= "")	stitle2 = opt_hngnm.label;
	//if (rdo_drugflag.label					!= "")	stitle3 = rdo_drugflag.label;

	//model.makeValue("/root/main/cond/title", "Åõ¾à work list(" + stitle1 + "-" + stitle2 + "-" + stitle3 + ")");
	//-----------------------------(20080801)		

	//-----------------------------(20081119)
	model.makeValue("/root/main/cond/title", "Åõ¾à work list");
	//-----------------------------(20081119)

	//-------------(20080802)
	var tempdd 	= model.getValue("/root/main/cond/orddd");		//printdtfr
	model.makeValue("/root/main/cond/printdtfr", tempdd);
	
	var colindex = fnCaptionFind(tempdd);
	colindex --;

	var sGrdCap1 	= pGrd.caption.split("^");	
	
	tempdd = "";
	if (sGrdCap1.length > (colindex+1)) {
		tempdd = sGrdCap1[colindex+1];	
		tempdd = tempdd.replace("-","");
		tempdd = tempdd.replace("-","");				//ÁÖ¼®Ã³¸®ÇÏÁö¸»°Í
		
		model.makeValue("/root/main/cond/printdtto", tempdd);
	}
	//-------------(20080802)
	
	model.makeValue("/root/main/cond/printdd", getCurrentDate());
	model.makeValue("/root/main/cond/printtm", getCurrentTime().substr(0,4));

	model.removeNodeSet("/root/main/prtinfo");
	model.makeNode("/root/main/prtinfo/cond");
	model.copynode("/root/main/prtinfo/cond", "/root/main/cond");
	
	var rows = getNodesetCount(xWardDrugListPath);
	var sPathTemp = "/root/main/prtinfo/warddruginfo/warddruglist";
	var sPathDrug = "/root/main/warddruginfo/warddruglist";

	//------------(20081117)
	var sTempPid = ipt_pid.value;
	//------------(20081117)

	//--------------(20080910)
	var prtflag = false;
	var makerow = 0;
	//--------------(20080910)
	
	var sPathTemp2 = "/root/main/prtinfo/warddruginfo/warddruglist";
	var sPathDrug2 = "/root/main/warddruginfo/warddruglist";
	
	model.makeNode(sPathTemp2);
	
	copyNodesetType(sPathTemp2, sPathDrug2 + "[prtchk='true']");
	
	if(getNodesetCount(sPathTemp2) > 0 ) {
		prtflag = true;
	} else {
		prtflag = false;
	}
	
	/*
	for (var row=1;row<= rows;row++ ) {
		
		//----------------------------(20080910)
		//¼±ÅÃµÈ ÀڷḸ Ãâ·ÂÇÑ´Ù.
		if (model.getValue(sPathDrug + "[" + row + "]/prtchk") != "true") {
			continue;
		}
		makerow ++;		
		prtflag = true;
		//----------------------------
		
		model.makeNode(sPathTemp + "[" + makerow + "]");		
		
		

		//---------(20080923)
		//model.makeValue(sPathTemp + "[" + makerow + "]/patinfo",		model.getValue(sPathDrug + "[" + row + "]/patinfo"));		
		var vpatinfo = new Array;
		vpatinfo = model.getValue(sPathDrug + "[" + row + "]/patinfo").toString().split(" ");
		var vTemp = "";
		for (var i=0;i<vpatinfo.length;i++) {
			vTemp += vpatinfo[i].toString() + "\n";
		}
		model.makeValue(sPathTemp + "[" + makerow + "]/patinfo", vTemp);
		//---------(20080923)
		
		//---------(20081117)	
		//ÀüºÎÀÌ·±ÇüÅ·ΠÃâ·ÂÇÑ´Ù.
		//if (sTempPid != "") {			
		//	model.makeValue(sPathTemp + "[" + makerow + "]/pid", 		model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/pid"));
		//	model.makeValue(sPathTemp + "[" + makerow + "]/patnm", 		model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/patnm"));
		//	model.makeValue(sPathTemp + "[" + makerow + "]/sexage", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/sexage"));
		//	model.makeValue(sPathTemp + "[" + makerow + "]/roomcd1", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/roomcd") + 'È£');
		//	model.makeValue(sPathTemp + "[" + makerow + "]/orddeptnm", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/orddeptnm"));
		//}
		//---------(20081117)

		sTempPid = vpatinfo[0];
		//alert(sTempPid);
		//---------(20081119)
		
		model.makeValue(sPathTemp + "[" + makerow + "]/pid1", 		model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/pid"));
		model.makeValue(sPathTemp + "[" + makerow + "]/patnm1", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/patnm"));
		model.makeValue(sPathTemp + "[" + makerow + "]/sexage1", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/sexage"));
		model.makeValue(sPathTemp + "[" + makerow + "]/roomcd1", 	model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/roomcd") + 'È£');
		model.makeValue(sPathTemp + "[" + makerow + "]/orddeptnm1", model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + sTempPid + "']/orddeptnm"));
		//---------(20081119)

		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpkindnm",		model.getValue(sPathDrug + "[" + row + "]/prcpkindnm"));
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpmixno",		model.getValue(sPathDrug + "[" + row + "]/prcpmixno"));

		//------------(20080801)
		if ( model.getValue(sPathDrug + "[" + row + "]/spcldrug") == "M" ) {		//¸¶¾à
			model.makeValue(sPathTemp + "[" + makerow + "]/spcldrug",	"Y");
		} else if ( model.getValue(sPathDrug + "[" + row + "]/spcldrug") == "H" ) {
			model.makeValue(sPathTemp + "[" + makerow + "]/spcldrug",	"Y");			//ÇâÁ¤½Å¼º
		} else {
			model.makeValue(sPathTemp + "[" + makerow + "]/spcldrug",	"N");			//±×¿Ü
		}
		//-------------			
		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpcd",			model.getValue(sPathDrug + "[" + row + "]/prcpcd"));
		
		//-----------------------(20080804)
		//model.makeValue(sPathTemp + "[" + row + "]/prcpnm",			model.getValue(sPathDrug + "[" + row + "]/prcpnm"));
		var sMixno = model.getValue(sPathDrug + "[" + row + "]/prcpmixno");
		//if (sMixno != "") {
		//	model.makeValue(sPathTemp + "[" + makerow + "]/prcpnm",	"(" + sMixno + ")" + model.getValue(sPathDrug + "[" + row + "]/prcpnm"));
		//} else {
			model.makeValue(sPathTemp + "[" + makerow + "]/prcpnm",		model.getValue(sPathDrug + "[" + row + "]/prcpnm"));
		//}		
		//-----------------------
		
		//model.makeValue(sPathTemp + "[" + row + "]/prcpvol",		model.getValue(sPathDrug + "[" + row + "]/prcpvol"));
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpvol",		model.getValue(sPathDrug + "[" + row + "]/prcpvol") + "" +
																		model.getValue(sPathDrug + "[" + row + "]/prcpvolunitflag"));		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpvolunitflag",model.getValue(sPathDrug + "[" + row + "]/prcpvolunitflag"));
		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpqty",		model.getValue(sPathDrug + "[" + row + "]/prcpqty") + "" +
																		model.getValue(sPathDrug + "[" + row + "]/prcpqtyunitflag"));
		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpqtyunitflag",model.getValue(sPathDrug + "[" + row + "]/prcpqtyunitflag"));
		
		model.makeValue(sPathTemp + "[" + makerow + "]/prcptims",		model.getValue(sPathDrug + "[" + row + "]/prcptims"));
		model.makeValue(sPathTemp + "[" + makerow + "]/abbrnm",			model.getValue(sPathDrug + "[" + row + "]/abbrnm"));
		model.makeValue(sPathTemp + "[" + makerow + "]/drugmthdspccd",	model.getValue(sPathDrug + "[" + row + "]/drugmthdspccd"));
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpdelivefact",	model.getValue(sPathDrug + "[" + row + "]/prcpdelivefact"));
		model.makeValue(sPathTemp + "[" + makerow + "]/orddrnm",		model.getValue(sPathDrug + "[" + row + "]/orddrnm"));
		model.makeValue(sPathTemp + "[" + makerow + "]/fstrgstdt",		model.getValue(sPathDrug + "[" + row + "]/fstrgstdt"));
		model.makeValue(sPathTemp + "[" + makerow + "]/prcphopedd",		model.getValue(sPathDrug + "[" + row + "]/prcphopedd"));		
		
		model.makeValue(sPathTemp + "[" + makerow + "]/drprcpetc7",		model.getValue(sPathDrug + "[" + row + "]/drprcpetc7"));
		model.makeValue(sPathTemp + "[" + makerow + "]/drprcpetc8",		model.getValue(sPathDrug + "[" + row + "]/drprcpetc8"));	
		
		
		//-----------------(20080802)
		model.makeValue(sPathTemp + "[" + makerow + "]/dispdd1", 		grd_druglist.ValueMatrix(row,colDataidx )	);
		model.makeValue(sPathTemp + "[" + makerow + "]/dispdd2", 		grd_druglist.ValueMatrix(row,colDataidx+1)	);
		//model.makeValue(sPathTemp + "[" + row + "]/dispdd1", 		grd_druglist.ValueMatrix(row,colindex 	));
		//model.makeValue(sPathTemp + "[" + row + "]/dispdd2", 		grd_druglist.ValueMatrix(row,colindex+1	));
		//-----------------(20080802)

		//-----------------------(20081121)
		model.makeValue(sPathTemp + "[" + makerow + "]/prcpnmast",		model.getValue(sPathDrug + "[" + row + "]/prcpnmast"));
		
		//-----------------------(20081217)
		if (sMixno != "") {
			model.makeValue(sPathTemp + "[" + makerow + "]/prcpnmprt",	"(" + sMixno + ")" + model.getValue(sPathDrug + "[" + row + "]/prcpnmprt"));
		} else {
			model.makeValue(sPathTemp + "[" + makerow + "]/prcpnmprt",	model.getValue(sPathDrug + "[" + row + "]/prcpnmprt"));
		}	
		//-----------------------(20081217)
		
		//model.makeValue(sPathTemp + "[" + makerow + "]/prcpnmprt",		model.getValue(sPathDrug + "[" + row + "]/prcpnmprt"));
		//-----------------------(20081121)
		model.makeValue(sPathTemp + "[" + makerow + "]/zonecd",		model.getValue(sPathDrug + "[" + row + "]/zonecd"));	
	}
	*/
	
	//------------------------(20080910)
	if ( prtflag == true ) {
		//exeReportPreview("RPMNR06301", "XMLSTR" , "/root/temp/prtinfo"  , ""   , "false" , "false", "", "", "", "false");
		//-----------(20081118)
		//ÅëÇÕÇÔ
		//if (sTempPid == "") {
		//	exeReportPreview("RPMNR06301", "XMLSTR" , "/root/main/prtinfo"); 
		//} else {
			//exeReportPreview("RPMNR06302", "XMLSTR" , "/root/main/prtinfo"); 
			
			exeReportPreview("RPMNR06302", "XMLSTR", "/root/main/prtinfo", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â ±èÈ«Á¡
		//}
		//-----------(20081117)
	} else {
		messageBox("Ãâ·ÂÇÒ ³»¿ëÀÌ","I004");
	}
	//------------------------(20080910)
}

function fWorkListPrint_OLD(){

	var pid = model.getValue("/root/main/cond/pid");
	var indd = "";
	var cretno = "";
	if(pid != ""){
		indd = model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + pid + "']/indd");
		cretno = model.getValue("/root/main/wardpatinfo/wardpatlist[pid ='" + pid + "']/cretno");
		model.makeValue("/root/main/cond/indd", indd);
		model.makeValue("/root/main/cond/cretno", cretno);
	}

	model.resetInstanceNode("/root/send/reqdata");
	var orddd = model.getValue("/root/main/cond/orddd");
	var yorddd = getDateAddc(orddd,-1);
	var torddd = getDateAddc(orddd,1);
	model.makeValue("/root/main/cond/yorddd", yorddd);
	model.makeValue("/root/main/cond/torddd", torddd);
	model.copynode("/root/send/reqdata", xCondPath);
	model.removeNodeSet("/root/hidden/warddruginfo");
	model.removeNodeSet("/root/main/warddruginfo");

	if(submit("TRMNR06301")){

		var cnt = getNodesetCount("/root/hidden/warddruginfo/warddruglist");
		var inst_cnt = 0;
		var prev_prcpno = "";
		var drugtmspec = "";
		var drugtmspeccal = "";
		var medrbaseexistyn = "";
		var prcpno = "";
		var mod = "";
		var quotient = "";
		var prcpvol = "";
		var prcpvolunitflag = "";
		var prcpqty = "";
		var prcpqtyunitflag = "";
		var carebasedd = "";
		var carebasetm = "";

		for(var i = 1; i <= cnt; i++){
			prcpno			= model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpno");
			drugtmspec		= model.getValue(xHiddenWardDrugPath + "[" + i + "]/drugtmspec");
			medrbaseexistyn = model.getValue(xHiddenWardDrugPath + "[" + i + "]/medrbaseexistyn");

		  	if(medrbaseexistyn == "Y"){
				carebasedd = drugtmspec.substr(0,8);
				carebasetm = drugtmspec.substr(8,4);
		  		if(carebasedd == orddd){
		  			mod = carebasetm;
		  			quotient = 0;
		  		}else if(carebasedd == orddd){
		  			mod = carebasetm;
		  			quotient = 1;
		  		}else{}
		  	}else if(medrbaseexistyn == "N"){
			  	mod = fCarec_GetFillZeno(parseInt(Number(drugtmspec) % 2400),4,0);
			  	quotient = parseInt(Number(drugtmspec) / 2400);
		  	}

			if(i == 1 || prev_prcpno != prcpno){
				inst_cnt++;
				prcpvol = model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpvol");
				prcpvolunitflag = model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpvolunitflag");
				prcpqty = model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpqty");
				prcpqtyunitflag = model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpqtyunitflag");
				model.makeNode(xWardDrugListPath + "[" + inst_cnt + "]");
				model.copynode(xWardDrugListPath + "[" + inst_cnt + "]", xHiddenWardDrugPath + "[" + i + "]");
				model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/prcpvolnm", prcpvol + prcpvolunitflag);
				model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/prcpqtynm", prcpqty + prcpqtyunitflag);
				model.makeNode(xWardDrugListPath + "[" + inst_cnt + "]/drugtmspeccal");
				model.makeNode(xWardDrugListPath + "[" + inst_cnt + "]/tdrugtmspeccal");

				if(quotient == 0){
					model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/drugtmspeccal", mod);
				}else if(quotient == 1){
					model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/tdrugtmspeccal", mod);
			}else{}
				prev_prcpno = model.getValue(xHiddenWardDrugPath + "[" + i + "]/prcpno");
			}else{
				drugtmspeccal = model.getValue(xWardDrugListPath + "[" + inst_cnt + "]/drugtmspeccal");
				tdrugtmspeccal = model.getValue(xWardDrugListPath + "[" + inst_cnt + "]/tdrugtmspeccal");
				if(quotient == 0){
					model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/drugtmspeccal", drugtmspeccal + " " + mod);
				}else if(quotient == 1){
					model.makeValue(xWardDrugListPath + "[" + inst_cnt + "]/tdrugtmspeccal", tdrugtmspeccal + " " + mod);
				}else{}
			}
		}
		
		model.makeValue("/root/main/cond/title", "Åõ¾à work list(" + rdo_drugflag.label + ")");
		model.makeValue("/root/main/cond/printdd", getCurrentDate());
		model.makeValue("/root/main/cond/printtm", getCurrentTime().substr(0,4));

		if(cnt > 0){
			exeReportPreview("RPMNR06301", "XMLSTR" , ""  , ""   , "false" , "false", "", "", "", "false");
		}else{
			resetReportPreview();
			messageBox("Ãâ·ÂÇÒ ³»¿ëÀÌ","I004");
		}
	}
}


 /* --------------------------------------------------*/
 /* type   : function                                 */
 /* access : public                                   */
 /* desc   : ȯÀÚÁ¤º¸ °¡Á®¿À±â(20080801)              */
 /* param  : °Ë»ö±¸ºÐ                                 */
 /* return :                                          */
 /* --------------------------------------------------*/
 function fSearchPatInfo(qryflag) {

	var sPath1 = "/root/main/cond";
	var sPath2 = "/root/main/patinfo/patinfolist";
	
	model.removenodeset("/root/temp/pidinfo");
	model.makeValue("/root/temp/pidinfo/pid",     model.getValue(sPath1 + "/pid_search"));
	model.makeValue("/root/temp/pidinfo/srchcond","1");	

	//modal("SPPMC02500", 1,10, 10, "SPPMC02500", "/root/temp", "/root/send");	17863430
	//modal("../../../pam/commonweb/xrw/SPPMC02500", qryflag,"150", "150", "SPPMC02500", "/root/source", "/root/send");
	modal("SPPMC02500", qryflag,"150", "150", "SPPMC02500", "/root/temp/pidinfo", "/root/send");
	
	//ȯÀÚ¹øÈ£ copy
	var popupendflag = model.getValue("/root/main/popupendflag");
	if (popupendflag == "ok"){

		//model.makeValue(sPath1 + "/pid_search",	model.getValue(sPath2 + "/pid")	);        		
		model.makeValue(sPath1 + "/pid",		model.getValue(sPath2 + "/pid")		);		
		model.makeValue(sPath1 + "/hngnm",	model.getValue(sPath2 + "/hngnm")	);
	} else {
		model.makeValue(sPath1 + "/pid",		""	);		
		model.makeValue(sPath1 + "/hngnm",	""	);
	}
	model.refresh();	
 }
 
 //---------------------------(20080910)
 function fnZoneDisp(pFlag) {
 
	//ÀÀ±ÞÀÇ·á¼¾ÅÍ(2280200000)ÀÎ °æ¿ì
	//º´µ¿Á¤º¸´ë½Å¿¡ ±¸¿ªÁ¤º¸°¡ º¸ÀÓ)(20080620)
	if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+com_wardcd.value+"']/cdid")) ) {
		cap_roomcd.visible = false;
		com_roomcd.visible = false;
		//caption17.visible = false;
		//cmb_settingrn.visible = false;
		cap_Zone.visible = true;
		cmb_Zone.visible = true;
		
		var zonecd = model.getValue("/root/main/paminfo/pamlist/sectioncd");
		if( !isNull(zonecd) && zonecd != "-" ){
			cmb_Zone.value = model.getValue("/root/main/paminfo/pamlist/sectioncd");
		} else {
			cmb_Zone.value = "-";
		}
		
	} else {
		cap_roomcd.visible = true;
		com_roomcd.visible = true;
		//caption17.visible = true;
		//cmb_settingrn.visible = true;
		cap_Zone.visible = false;
		cmb_Zone.visible = false;

		if ( pFlag != "init"){
		fGetRoomList();
		model.makeValue("/root/main/cond/pid", "");
		model.makeValue("/root/main/cond/hngnm", "");
		model.makeValue("/root/main/cond/indd", "");
		model.makeValue("/root/main/cond/cretno", "");
		model.makeValue("/root/main/cond/roomcd", "");
		model.makeValue("/root/main/cond/settingrnid", "");
		model.makeValue("/root/main/cond/zonecd", "");
    	model.removeNodeSet("/root/hidden/warddruginfo");
    	model.removeNodeSet("/root/main/warddruginfo");	
    	grd_druglist.rebuild();
        
		}
	}

        //fGetPatList();
 }
 //---------------------------(20080910)
 
 
 //-------------------(20081117)
function fClickDrugListBefore() {
	grd_druglist.visible = false;
	bolall.visible = false;				//Àüü¼±ÅùöÆ°
	//grpalert.visible = true;	
	callLoadingWindow("");
}

function fClickDrugListAfter() {
	grd_druglist.visible = true;
	bolall.visible = true;				//Àüü¼±ÅùöÆ°
	//grpalert.visible = false;
	removeLoadingWindow();
}
 
 //--------¿ø¹«ÆÀÀÇ ÀÔ¿øµî·Ï¿¡¼­ »ç¿ëÇÏ´Â °Í ÀÌ¿ëÇÔ
function callLoadingWindow(msg){
	//20080703 À̵¿½Ä Ãß°¡
	//ȯÀÚÁ¤º¸ Á¶È¸ Áß »óÅ ǥ½Ã
	body.createChild("xforms:iviewer", "id:ivr_progress; src:../../../com/commonweb/xrw/SPZZZ00400_·ÎµùÁßÈ­¸é.xrw; left:435px; top:339px; width:330px; height:120px;");
	var ivrObjt = document.all("ivr_progress");	
	if( msg == '' || msg == '-' ){
		msg = "Åõ¾àworklist Á¶È¸ Áß ÀÔ´Ï´Ù...";
	}
	ivrObjt.model.makeValue("/root/main/msg", msg);
	ivrObjt.model.refresh();	
}

function removeLoadingWindow(){
	//20080703 À̵¿½Ä Ãß°¡
	//ȯÀÚÁ¤º¸ Á¶È¸ Áß »óÅ ǥ½Ã Áö¿ì±â
	body.removeChild("ivr_progress");
}

function WaitLoadingWindow(idx) {
	var msg = "Åõ¾àworklist Á¶È¸ Áß ÀÔ´Ï´Ù...";
	//var msg = "Åõ¾à±â·Ï Á¶È¸(" + idx + ") Áß ÀÔ´Ï´Ù...";
	var ivrObjt = document.all("ivr_progress");	
	model.setFocus("ivr_progress");	
	ivrObjt.model.setFocus("caption75");
	
	ivrObjt.model.makeValue("/root/main/msg", msg);
	ivrObjt.model.refresh();	
	//model.setFocus("output33");
	model.refresh();
}
//-------------------(20081117)

/**
 * @group  :
 * @ver    : 2009.06.29
 * @by     : JA
 * @---------------------------------------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾àÄ«µå Ãâ·Â (A2:°æ±¸, A4:¿Ü¿ë, A60:ÁÖ»ç, A61:¼ö¾×) 
            (SMMNR06000.js:fClickDrugPrint)-> ÀÏ°ýÃâ·Â±â´ÉÀ¸·Î º¯°æ_20090629
 * @param  : sLineFlag : "Y" - Åõ¾àworklist¿¡¼­ È£Ã⠽à Åõ¾àÄ«µå¿¡ Á¡¼±±â´É Ãß°¡
 * @return :
 * @---------------------------------------------------------------------------------
 */
function fAllDrugCardPrint(sLineFlag){
	model.removeNodeSet("/root/send/medicard/warddruglist");
	model.makeNode("/root/send/medicard");
	var prt_row        = "1";
	var prt_col        = "1";
	var rows           = grd_druglist.rows-1;
	var prcpclscd      = "";
	var tims           = "";
	var mthdcd         = "";
	var prcpmixno      = "";
	var drugbasetmspec = "";
	var pid            = ""; // 20090629
	var prcphopedd     = ""; // ó¹æÀû¿ëÀÏ_20091023
	
	var medicardcnt    = 1; //°æ±¸
	//var medicardcnt5 = 1; //ÁÖ»ç
	//var medicardcnt7 = 1; //¿Ü¿ë
	
	var prtTims_Array     = new Array;
	var prtMthd_Array     = new Array;
	var prtBaseTims_Array = new Array;
	var prtMix_Array      = new Array;
	var prtPid_Array      = new Array; // 20090629
	var k=1;
	model.removeNodeSet("/root/send/medicard");
	for(var i = 1; i <= rows; i++){
		drugbasetmspec = "";
		if(model.getValue(xWardDrugListPath + "[" + i + "]/prtchk") == "true"){
		//	alert(model.getValue(xWardDrugListPath + "[" + i + "]/prtchk")+"\n"+model.getValue(xWardDrugListPath + "[" + i + "]/pid")+"\n"+model.getValue(xWardDrugListPath + "[" + i + "]/prcpcd"));
		
      orgprcpclscd = model.getValue(xWardDrugListPath + "[" + i + "]/orgprcpclscd");
      prcpclscd    = model.getValue(xWardDrugListPath + "[" + i + "]/prcpclscd"); // 20091023 //¿øº»    prcpclscd    = model.getValue(xWardDrugListPath + "[" + i + "]/orgprcpclscd");
      tims         = model.getValue(xWardDrugListPath + "[" + i + "]/tims");
      mthdcd       = model.getValue(xWardDrugListPath + "[" + i + "]/mthdcd");
      prcpmixno    = model.getValue(xWardDrugListPath + "[" + i + "]/prcpmixno");
      pid          = model.getValue(xWardDrugListPath + "[" + i + "]/pid");       // 20090629
      prcphopedd   = model.getValue(xWardDrugListPath + "[" + i + "]/prcphopedd");// ó¹æÀû¿ëÀÏ_20091023
      orddd        = model.getValue("/root/main/cond/orddd");                     // Á¶È¸Á¶°ÇÀÇ ¾÷¹«ÀÏÀÚ_20091023
      prcpmixno    = model.getValue(xWardDrugListPath + "[" + i + "]/prcpmixno"); // 20091230Ãß°¡

			for(var j=fstdispcol; j<=lstdispcol; j++){
				if(model.getValue(xWardDrugListPath + "[" + i + "]/dispdd"+j)!=""){
					 drugbasetmspec += model.getValue(xWardDrugListPath + "[" + i + "]/dispdd"+j)+" ";
				}
			}
			
			//°æ±¸
/*¿øº»_20090629_°æ±¸¾àÀº µû·Îµû·Î Ãâ·ÂµÇ¾îµµ µÊ_½Å¹ÌÁøITC
			if(prcpclscd == "A2"){
				alert(pid+"\n"+isSearchArrayIndex2(prtBaseTims_Array, drugbasetmspec, prtMthd_Array, mthdcd, prtPid_Array, pid));
				if(isSearchArrayIndex2(prtBaseTims_Array, drugbasetmspec, prtMthd_Array, mthdcd, prtPid_Array, pid) == -1){
				  prtBaseTims_Array[medicardcnt] = drugbasetmspec;
				  prtMthd_Array[medicardcnt] = mthdcd;
				  prtPid_Array[medicardcnt] = pid // 20090629
				  model.makevalue(xWardDrugListPath + "[" + i + "]/soding", medicardcnt);
				  medicardcnt++;
			  }else{
				  model.makeValue(xWardDrugListPath + "[" + i + "]/soding", isSearchArrayIndex2(prtBaseTims_Array, drugbasetmspec, prtMthd_Array, mthdcd, prtPid_Array, pid));
			  }
			}
*/
    if(prcphopedd == orddd && prcpmixno == ""){ // ¾÷¹«ÀÏÀÚ¿Í Ã³¹æÀû¿ëÀÏÀÚ°¡ µ¿ÀÏ ÇÑ °æ¿ì¿¡¸¸ Ãâ·Â, ¹Í½ºµÈ ÁÖ»çÁ¦¿Ü(¹Í½ºÁÖ»çÁ¦ ¸ðµÎ Á¦¿Ü¿©ºÎ È®ÀÎ ÇÊ¿ä!!!!!)
      // ÁÖ»ç
      // ¼ö¾×Á¦¿Ü(prcpclscd:A61)_20091023
      if(orgprcpclscd == "A6" && prcpclscd != "A61"){     // ¿øº»  if(prcpclscd  == "A6"){
				if(prcpmixno == "" || isSearchArrayIndex(prtMix_Array, prcpmixno, prtPid_Array, pid) == -1){
		   	  prtMix_Array[medicardcnt] = prcpmixno;
		   	  prtPid_Array[medicardcnt] = pid // 20090629
		   	  model.makeValue(xWardDrugListPath + "[" + i + "]/soding", medicardcnt);
		   	  medicardcnt++;
			  }else{
				  model.makeValue(xWardDrugListPath + "[" + i + "]/soding", isSearchArrayIndex(prtMix_Array, prcpmixno, prtPid_Array, pid));
			  }
			}

			//¿Ü¿ë
			if(orgprcpclscd == "A2" || orgprcpclscd ==  "A4"){  // ¿øº»  if(prcpclscd == "A2" || prcpclscd ==  "A4"){
				model.makeValue(xWardDrugListPath + "[" + i + "]/soding", medicardcnt);
				medicardcnt++;
			}			
    }
			
			// Åõ¾àÄ«µå Ãâ·Â ½Ã »ç¿ë
		  var drugtmspect = "";     
	    var drugtmspectime = "";  
      var tmpdrugtmspect = "";  
      var drugtmspectlist = ""; 
      var tims = "";
      var space;
      drugbasetmspec= drugbasetmspec.replace(":","");
			drugtmspect = drugbasetmspec.split(" ");
		  tims = model.getValue(xWardDrugListPath + "[" + i + "]/tims");

		  // Ƚ¼öº° ½Ã°£°ø¹éÁöÁ¤
		  if(tims < 4){
		  	space = "     ";
		  }else{
		  	space = "   ";
		  }
		/*  
		  for(var j=1; j<drugtmspect.length; j++){
		  	drugtmspect[j] = drugtmspect[j].replace(":","");
			  if(drugtmspect[j].substr(0,2) == "00"){
					  drugtmspect[j] = "24" + drugtmspect[j].substr(2,2);
		    }
		  }
		*/  
			// Sort±â´É
			var tempmin=0, tempmax=0;
			for(var j=1; j<drugtmspect.length; j++){
				if(Number(drugtmspect[j-1]) > Number(drugtmspect[j])){
					tempmin = drugtmspect[j];
					drugtmspect[j] = drugtmspect[j-1];
					drugtmspect[j-1] = tempmin;
				}
			}
			for(var j=0; j<drugtmspect.length; j++){
				if(Number(drugtmspect[j]) > Number(drugtmspect[j+1])){
					tempmax = drugtmspect[j];
					drugtmspect[j] = drugtmspect[j+1];
					drugtmspect[j+1] = tempmax;
				}
			}
		
      // ½Ã°£Çü½Ä ¼³Á¤(ex.1600 -> 4P)
			for(var j=0; j<drugtmspect.length; j++){
				if(drugtmspect[j] != ""){	
					drugtmspect[j] = drugtmspect[j].replace(":","");
			    if(drugtmspect[j].substr(0,2) == "00"){
					  drugtmspect[j] = "24" + drugtmspect[j].substr(2,2);
		      }
					tmpdrugtmspect = Number(drugtmspect[j]);
			    if(tmpdrugtmspect > 1200){
        	  if(tmpdrugtmspect >= 1300){
			    		tmpdrugtmspect = tmpdrugtmspect - 1200;
			    	}
            if(tmpdrugtmspect < 1000){
        	      tmpdrugtmspect = "0"+ String(tmpdrugtmspect);
          	}
          	if(String(tmpdrugtmspect).substr(2,2) == "00"){
        	  	drugtmspectime += String(tmpdrugtmspect).substr(0,2) + "P" + space;
        	  }else{
        	    drugtmspectime += String(tmpdrugtmspect).substr(0,2) +  ":" + String(tmpdrugtmspect).substr(2,2) + "P" + space;
          	}
          }else if(tmpdrugtmspect <= 1200){
          	if(tmpdrugtmspect < 1000){
          	    tmpdrugtmspect = "0"+ String(tmpdrugtmspect);
          	}
          	if(String(tmpdrugtmspect).substr(2,2) == "00"){
          		drugtmspectime += String(tmpdrugtmspect).substr(0,2) + "A" + space;
          	}else{
        	  	drugtmspectime += String(tmpdrugtmspect).substr(0,2) +  ":" + String(tmpdrugtmspect).substr(2,2) + "A" + space;
        	  }        	
          }
				}
				model.makeValue(xWardDrugListPath + "[" + i + "]/tempdrugtmspeccal", drugtmspectime);				
			} // end for Åõ¾àÄ«µå
		} // end if check
	} // end for

	for(var j = 1; j <= rows; j++){
		if(model.getValue(xWardDrugListPath + "[" + j + "]/prtchk") == "true"){
			model.makeValue(xWardDrugListPath + "[" + j + "]/last"       , medicardcnt-1);
			model.makeValue(xWardDrugListPath + "[" + j + "]/row"        , "1");
			model.makeValue(xWardDrugListPath + "[" + j + "]/col"        , "1");
			model.makeValue(xWardDrugListPath + "[" + j + "]/sLineFlag"  , sLineFlag);  // 20090629
			model.makeValue(xWardDrugListPath + "[" + j + "]/check"      , model.getValue(xWardDrugListPath + "[" + j + "]/prtchk"));  // 20090629
			
			model.makeNode ("/root/send/medicard");
		  model.duplicate("/root/send/medicard", xWardDrugListPath + "[" + j + "]");
		}
	}
	
	if(medicardcnt > 1){
		exeReportPreview("RPMNR00602", "XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true"); // ¹Ì¸®º¸±â ±â´É ¾øÀ½
	//	exeReportPreview("RPMNR00602", "XMLSTR", ""); // ¹Ì¸®º¸±â ±â´É ÀÖÀ½ TEST¿ë
	} else{
		if(prcpclscd == "A61"){
			 messageBox("¼ö¾×Àº Ãâ·ÂµÇÁö ¾Ê½À´Ï´Ù.","I");
		}else{
		     messageBox("Åõ¾àÄ«µå Ãâ·ÂÇ׸ñÀÌ ¾Æ´Õ´Ï´Ù","I");
		}
	}
} 

/**
 * @group  :
 * @ver    : 2007.06.25
 * @by     : ÃÖ°æ¿ë
 * @--------------------------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹®ÀÚ¿­ °Ë»ö(¹è¿­)
            -> SMMNR06000.js¿¡¼­ Åõ¾àÄ«µå Ãâ·ÂÀ» À§ÇØ °¡Á®¿È.
 * @param  :
 * @return :
 * @--------------------------------------------------------------------
 */
function isSearchArrayIndex(baseCol_Array, sData, prtPid_Array, pid){
	for(var i = 0; i <= baseCol_Array.length; i++){
		if((baseCol_Array[i]) == sData && prtPid_Array[i] == pid){
			return i;
		}
	}
	return -1;
}
function isSearchArrayIndex2(baseCol_Array1, sData1, baseCol_Array2, sData2, prtPid_Array, pid){
	for(var i = 0; i <= baseCol_Array1.length; i++){
		if(baseCol_Array1[i] == sData1 && baseCol_Array2[i] == sData2 && prtPid_Array[i] == pid){
			return i;
		}
	}
	return -1;
}


function fSettingLine() {
	  var firstpid="";
		var pid ="";
				
		if(grd_druglist.rows > grd_druglist.fixedRows) {
			firstpid = grd_druglist.valueMatrix(1, grd_druglist.colRef("pid"));			
		}
		
		for(var i = grd_druglist.fixedRows; i < grd_druglist.rows; i++){
		    pid = grd_druglist.valueMatrix(i, grd_druglist.colRef("pid"));
				
        if(firstpid != pid) {
		        firstpid = pid;
				    //grd_test
				    grd_druglist.rowStyle(i-1, "all", "border-bottom-color") = "#ff0000";                                
				    grd_druglist.rowStyle(i-1, "all", "border-top-width") = "3";
		    }
		}
    grd_druglist.refresh();
}