/*  1. CP (SMMMP00800_CPGMAIN), 2. Ç×¾ÏÇÁ·ÎÅäÄÝ()
<function list>
fGetCurrentPrcpList          : CPÀÇ ½ºÅÜÀÇ ÁøÇà»óŸ¦ Âü°íÇÏ¿©, ó¹æÁ¤º¸¸¦ Á¶È¸ÇÑ´Ù
fCheckCpPrcp                 : ±×·ìó¹æÀÏ °æ¿ì, ÀÚÄڵ带 Á¶È¸ÇÏ¿© Ãß°¡ÇÑ´Ù
fInvalPrcpTret               : ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ¼öµ¿ ó¸®ÇÑ´Ù
fBatSaveCpPrtlPrcp           : CPÀÇ ¹ßÇà °¡´ÉÇÑ Ã³¹æµé¿¡ ´ëÇؼ­ ÀÏ°ýÀúÀå(¹× ÀÎÁõÀúÀå)À» ÇÑ´Ù
fPrcpDCSave_CP               : Ç×¾Ï, CP ¹Ì·¡Ã³¹æ ÀÏ°ýÀúÀå (MMPHPTCP)
<È£ÃâÇÏ´Â function list>
addPrcp
fPrcpSave
addPrcpSetValue
*/

/* ±Û·Î¹ú º¯¼ö (È£ÃâÇÏ´Â js¿¡¼­ º¯¼öÀÇ Ãâó¸¦ ¾Ë ¼ö ÀÖµµ·Ï, "º¯¼ö¸í_SMMMO00110"À¸·Î »ç¿ë)*/
var questionYN_SMMMO00110 	       = "N";		//½Çó¹æ ÀúÀå ÀÌÈÄ, ÇÁ·ÎÅäÄÝ ÀúÀå ·ÎÁ÷À» ¼öÇàÇÒ ¶§, "ÀúÀåÇϽðڽÀ´Ï±î?"¶ó´Â ¸Þ¼¼Áö°¡ 2¹ø ³ª¿À±â ¶§¹®¿¡, ½Çó¹æ ÀúÀå ¿Ï·á ÈÄ questionYNÀÇ °ªÀ» Y·Î ¼³Á¤, ÇÁ·ÎÅäÄÝ ÀúÀ嶧 Áú¹® ¿©ºÎ °áÁ¤
var stopSavePrcpYN_SMMMO00110  = "N";	//ÀúÀå ¸ðµâÀÌ ¼º°øÇÏÁö ¸øÇÏ°í, ó¹æÀúÀå¿À·ù·Î ÀÎÇØ return µÈ »óÅ : Y (fGetCurrentPrcpList()¸¦ ÅëÇÑ CP¾à¼Óó¹æ ÀçÁ¶È¸¸¦ ¸·±âÀ§ÇÔ)
var clickBtnNm_SMMMO00110         = "";			//ÀÌÀü¿¡ Ŭ¸¯Çß´ø ¹öÆ° (S:ÀúÀå, A:Àû¿ë) 
var prtlFlag_SMMMO00110 	        = "";			//ÇÁ·ÎÅäÄÝ ±¸ºÐ(01:CP, 02:CPG, 10:Ç×¾ÏÇÁ·ÎÅäÄÝ,20:ÀÓ»ó½ÃÇèÇÁ·ÎÅäÄÝ)
var appNo_SMMMO00110 		          = "";			//ÇÁ·ÎÅäÄݹøÈ£(CPG Àû¿ë¹øÈ£)
var etclnkspecValue_SMMMO00110    = "";			//Ç×¾ÏÇÁ·ÎÅäÄݹøÈ£ | CP¹øÈ£
var prtlprcpstatus_SMMMO00110     = "";			//ÇÁ·ÎÅäÄÝÀúÀå»óÅÂ(º¸ÅëÀº I, ÇÁ·ÎÅäÄÝó¹æÅ×ÀÌºí¿¡ µî·ÏµÈ µ¥ÀÌÅ͸¦ ¼öÁ¤, »èÁ¦ÇÒ ¶§´Â U/D)
var isstimes_SMMMO00110 	        = "";			//¹ßÇà½ÃÀÛȸÂ÷ | ¹ßÇàÁ¾·áȸÂ÷
var isssteps_SMMMO00110 	        = "";			//cpÀ϶§ »ç¿ëÇÏ´Â ¹ßÇà½ÃÀÛ½ºÅÜ | ¹ßÇàÁ¾·á½ºÅÜ
var stepArray_SMMMO00110 	        = "";			//cpÀ϶§ »ç¿ëÇÏ´Â ½ºÅÜ array
var prcpddArray_SMMMO00110 				= "";
var invalYN_SMMMO00110            = "N";
var ErrExistYN_SMMMO00110         = "N";
var SubmitTF_SMMMO00110           = false;	//fPrcpsave()¿¡¼­ÀÇ TXMMP00803/4 ÀúÀå ¼º°ø ¿©ºÎ
var curSavePrcpFlag_SMMMO00110    = "";			//N:´çÀÏ, T:¹Ì·¡
var saveNum_SMMMO00110            = 0;			//0:ÀúÀåÀü, 1:´çÀÏó¹æÀúÀå¿Ï·á, 2:¹Ì·¡Ã³¹æÀúÀå¿Ï·á
/*------fPrcpSave()ÀÇ local º¯¼ö, ¹Ì·¡Ã³¹æ ÀúÀå ÈÄ ÀνÄÇϱâ À§ÇØ CP¿¡¼­´Â global º¯¼ö·Î »ç¿ë-------*/
var prcpsaveyn_SMMMO00110         = "N";
var ocrcalcscorcd_SMMMO00110      = "";     //OCRÀÚµ¿Ãâ·Â ¼öÇà ¿©ºÎ (´çÀÏ+¹Ì·¡ÀúÀå ÈÄ N->Y)
var cpSaveKindFlag_SMMMO00110     = "";     //"" "N" "T"
var cpTmpPrcpSaveYN_SMMMO00110    = "N";    //ÀÓ½Ãó¹æÀ» CPó¹æÀ¸·Î ´ëÄ¡ÇÏ´ÂÁö ¿©ºÎ

//parameter list
//SMMMP00800_cpsaveflag                     //CP ó¹æ ÀúÀå ¸ðµå  (T:¹Ì·¡Ã³¹æ)
//SMMMP00800_tnmOrCncrSaveYN                //º´±âºÐ·ù ÀúÀå ¿©ºÎ (´çÀÏ+¹Ì·¡ÀúÀå ÈÄ N->Y) 2009.05.06
//SMMMP00800_nonprgresnSaveYN               //ÀӺαݱâ ÀúÀå ¿©ºÎ (´çÀÏ/¹Ì·¡ÀúÀå ÈÄ N->Y) 2009.05.06
/*-------------------------------------------------------------------------------------------------*/

/**
 * @group  :
 * @ver    : 2007.09
 * @by     : ÀüÁöÀº
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ½ºÅÜÀÇ ÁøÇà»óŸ¦ Âü°íÇÏ¿©, ó¹æÁ¤º¸¸¦ Á¶È¸ÇÑ´Ù
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fGetCurrentPrcpList(mode){
	/* 2007.11.22 Ãß°¡
	 * ÀÏ°ý¹ßÇàÀ» Çϱâ Àü, ó¹æ ±×¸®µå¿¡ ¹Ì¸® Ãß°¡½ÃÄÑ ³õÀº ó¹æÀÌ ÀÖÀ» °æ¿ì,
	 * prcp ÀÇ Ã³¹æ ¸®½ºÆ®¸¦ copyÇؼ­ µû·Î ´ã¾ÆµÎ¾ú´Ù°¡
	 * ¾à¼Ó¼Â¿¡¼­ Á¶È¸ÇÑ ¸®½ºÆ®( /root/main/prcpsrch )¿¡ ÇÕÄ£´Ù.
	 * "/root/main/prcp" -> (copy) ->  "/root/temp1/addprcp" -> (Ãß°¡) -> "/root/main/prcpsrch"
	 */
	if( isNull(mode) ){
	 	mode = "SEL";
	}
	
	var today        = getCurrentDate();
	var prcpGenrFlag = model.getValue("/root/patflag/list/prcpgenrflag");
	var cpgIoFlag    = model.getValue("/root/main/masterinfo/info/ioflagcd");
	if( cpgflagcd == "01" && prcpGenrFlag == "O"){ //1. CP¿Ü·¡È¯ÀÚ
		if(cpgIoFlag == "O" ){    // 1-1) ¿Ü·¡CP
			var nodelist = instance1.selectNodes("/root/main/steppath/info" + "[prcpdd='" + today + "']");
		}else{                    // 1-2) D0ÀÔ¿øCP
			var nodelist = instance1.selectNodes("/root/main/steppath/info" + "[times='0']");
			
			if( nodelist.length <= 0 ){
				var nodelist = instance1.selectNodes("/root/main/steppath/info" + "[times='1']");
			}			
		}
		
	} else{                   //2. CPÀÔ¿øȯÀÚ, CPGÀÔ¿ø+¿Ü·¡È¯ÀÚ
		var inptStepNode = instance1.selectSingleNode("/root/main/steppath/info[stepstat = '10' and decirflag = 'I']/stepno");
		/*if( (prcpGenrFlag == "D" || prcpGenrFlag == "E") && inptStepNode != null ){
			var nodelist = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10' and stepno<='" + inptStepNode.text + "']");
			if( nodelist.length <= 0 ){
				messageBox ( "ÀÔ¿ø Àüȯ ÀÌÈÄ ÀúÀåÀÌ", "I006" );
				return false;
			}
		}else
		*/
		var nodelist = null;
//		if( cpgflagcd == "01" ) nodelist = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10']");
//	  else                    
	  nodelist = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10' and savestatus='I']");
	}
	
	model.makeValue ( "/root/send/reqdata/cpgno", model.getValue("/root/main/masterinfo/info/cpgno") );
	model.makeValue ( "/root/send/reqdata/cpghistseq", model.getValue("/root/main/masterinfo/info/cpghistseq") );
	model.makeValue ( "/root/send/reqdata/cpgappno", model.getValue("/root/temp1/getdata/cpgappno") );
	model.makeValue ( "/root/send/reqdata/cpgflagcd", cpgflagcd ); //@@@¼±ÅÃÇʼö Á¶È¸¸¦ À§ÇÑ ÆĶó¸ÞÅÍ(cpgFlagCd) Ãß°¡
	
	//var appScopMode = model.getValue("/root/main/appscopmode"); //CPGÀÎ °æ¿ì, CPG½ºÅÜ/CP½ºÅÜ Àû¿ë ¸ðµå¸¦ ±¸ºÐÇÔ (2010.06.26)
	var setNoArray = "";
	var timesArray = "";
	var startStepNo = "";
	var endStepNo = "";
	var startTimes = "";
	var endTimes = "";
	var prcpddArray = "";
	isstimes_SMMMO00110 = "";					//¹ßÇà½ÃÀÛȸÂ÷ | ¹ßÇàÁ¾·áȸÂ÷
	isssteps_SMMMO00110 = "";					//¹ßÇà½ÃÀÛ½ºÅÜ | ¹ßÇàÁ¾·á½ºÅÜ
	stepArray_SMMMO00110 = "";
	prcpddArray_SMMMO00110 = "";
	
	if( nodelist.length > 0 ){
		for(var i=0; i<nodelist.length; i++){
			var node = nodelist.item(i);
			
			var val1 = node.selectSingleNode("setno");
			if( !isNull(val1.text) ){
				setNoArray = setNoArray + val1.text + ",";
			}
			
			var val2 = node.selectSingleNode("times");
			var orgVal2 = node.selectSingleNode("orgtimes");
			if( !isNull(orgVal2.text) ){
				timesArray = timesArray + orgVal2.text + ",";
				if(i == 0){
					startTimes = orgVal2.text;
				}
				if(i == (nodelist.length-1)){
					endTimes = orgVal2.text;
				}
			}else if( !isNull(val2.text) ){
				timesArray = timesArray + val2.text + ",";
				if(i == 0){
					startTimes = val2.text;
				}
				if(i == (nodelist.length-1)){
					endTimes = val2.text;
				}
			}
			
			var val3 = node.selectSingleNode("stepno");
			if( !isNull(val3.text) ){
				stepArray_SMMMO00110 = stepArray_SMMMO00110 + val3.text + "|";
				if(i==0){
					startStepNo = val3.text;
				}
				if(i==(nodelist.length-1)){
					endStepNo = val3.text;
				}
			}
			
			var stepflagcd = node.selectSingleNode("stepflagcd");
			var val4 = node.selectSingleNode("prcpdd");
			if( !isNull(val4.text) ){
				prcpddArray_SMMMO00110 = prcpddArray_SMMMO00110 + val4.text + "|";
				
				if( stepflagcd.text != "D" ){
					prcpddArray = prcpddArray + val4.text + ",";
				}
			}
		}
		setNoArray = setNoArray.substr(0, setNoArray.length-1);
		timesArray = timesArray.substr(0, timesArray.length-1);
		stepArray_SMMMO00110 = stepArray_SMMMO00110.substr(0, stepArray_SMMMO00110.length-1);
		prcpddArray = prcpddArray.substr(0, prcpddArray.length-1);		//D½ºÅÜ Æ÷ÇÔ Ã³¹æÀÏ
		prcpddArray_SMMMO00110 = prcpddArray_SMMMO00110.substr(0, prcpddArray_SMMMO00110.length-1);	//D½ºÅÜ Á¦¿Ü A½ºÅܵéÀÇ Ã³¹æÀÏ
		
		isstimes_SMMMO00110 = startTimes + "|" + endTimes;		//½ÃÀÛ-Á¾·áȸÂ÷(js°øÅ뺯¼ö)
		isssteps_SMMMO00110 = startStepNo + "|" + endStepNo;	//½ÃÀÛ-Á¾·á½ºÅÜ(js°øÅ뺯¼ö)
	}else{
		mode = "";
	}
	
	/*------------------------------------------------------------------------------------------------------------------*/
	// DSC or ER ȯÀÚÀÏ °æ¿ì ÀÔ¿øÇÊ¿ä Àü ó¹æ±îÁö´Â ordtype 'D'  ÀÌÈÄ Ã³¹æµéÀº 'I' °¡ µÇ¹Ç·Î, ±âÁØ ½ºÅÜÀ» ÇÔ²² º¸³½´Ù.
	// => isssteps_SMMMO00110 ÀÇ ¿¹¿Ü »ç¿ë : ÀÔ¿øÇʿ佺ÅÜ Á¸Àç ½Ã, ÇØ´ç 'ÀÔ¿øÇʿ䳯¥'¸¦ | ±¸ºÐÀÚ·Î ¼¼¹ø° °ªÀ¸·Î º¸³»ÁÜ.
	//    ¹Ì·¡Ã³¹æ ÀúÀå ½Ã server ´Ü¿¡¼­´Â 'ÀÔ¿øÇʿ䳯¥'ºÎÅʹ ó¹æÀÇ ordtypeÀ» I·Î ³Ö¾îÁÜ (ÀÔ¿øÇʿ䳯¥ ÀÌÀü:ÇöÀç ordtype, ÀÌÈÄ:I)
	/*------------------------------------------------------------------------------------------------------------------*/
	if( (prcpGenrFlag == "D" || prcpGenrFlag == "E") && inptStepNode != null ){
		var inptDDNode = instance1.selectSingleNode("/root/main/steppath/info" + "[stepstat = '10' and stepno='" + inptStepNode.text + "']/prcpdd");
		isssteps_SMMMO00110 += "|" + inptDDNode.text;
	}
	
	model.makeValue ("/root/send/reqdata/dayno", timesArray);
	model.makeValue ("/root/send/reqdata/setcond", setNoArray);
	model.makeValue ("/root/send/reqdata/cpgflagcd", settypecd);
	model.makeValue ("/root/send/reqdata/prcpddcond", prcpddArray);
	model.makeValue ("/root/send/reqdata/stepcond", stepArray_SMMMO00110); //@@@¼±ÅÃÇʼö Á¶È¸¸¦ À§ÇÑ Á¶°Ç Ãß°¡
	
	if( mode == "SEL" ){
		var genrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
		//setno¿¡ Æ÷ÇԵǴ ¸ðµç ó¹æÄÚµå(¸ñ·Ï)¸¦ Á¶È¸ÇÑ´Ù.
		if( submit("TRMMP02202", false ) ){
			
			//start: CPGÀÎ °æ¿ì, ó¹æ ÀúÀå ¹üÀ§ Áß Çʼöó¹æÀÌ ÀÖ´Ù¸é º°µµ table¿¡ Á¤º¸¸¦ ÇÔ²² ÀúÀå
			if( cpgflagcd == "02" ){
				//(1) ¼±ÅÃÇʼö(±×·ì) ¼Â ó¹æÀ» µû·Î Á¶È¸Çؿͼ­, Æ˾÷À¸·Î ¹ßÇàÇÒ Ã³¹æ ¼±ÅÃÀº ÈÄ prcpsrch¿¡ ÇÕÃÄÁÜ (2010.04.28 JJE)
				if( instance1.selectSingleNode("/root/main/prcpsrch/essprcplist") != null ){
					modal("SPMMP03900"); //¼±ÅÃÇʼö Æ˾÷ È£Ãâ (return °á°ú: /root/send/dessprcplist)
					model.removeNodeset("/root/main/prcpsrch/essprcplist"); //¼±ÅÃÇʼö Àüü ¸®½ºÆ® »èÁ¦
				}
			}
			
			var PrcpList = instance1.selectNodes("/root/main/prcpsrch/prcplist");
			var keyInfo = "";
			var pEssCnt = 0;
			var dEssCnt = 0;
			for(var i=0; i<PrcpList.length; i++){
				var node = PrcpList.item(i);
				var etclnkspecNode = node.selectSingleNode("etclnkspec");
				var prcpinptflagNode = node.selectSingleNode("prcpinptflag");
				var prcpgenrflagNode = node.selectSingleNode("prcpgenrflag");
				
				// ¡Ú stepno ÀÇ ³ëµå text ¿¡ °ªÀÌ null À̶ó¸é, setval ¾ÈÇÑ´Ù!
				model.setValue(prcpinptflagNode, "05");
				model.setValue(prcpgenrflagNode, genrflag);
				
				var pEssnprcpynNode    = node.selectSingleNode("essnprcpyn");
				var pEsslimnoNode 		= node.selectSingleNode("limno");
				var pEsslimhistnoNode	= node.selectSingleNode("limhistno");
				var pEssSetnoNode 		= node.selectSingleNode("setno");
				var pEssSettypecdNode = node.selectSingleNode("settypecd");
				var pEssSetcdnoNode 	= node.selectSingleNode("setcdno");
				var pEssPrcpddNode 		= node.selectSingleNode("prcpdd");
				var pEssPrcpcdNode 		= node.selectSingleNode("prcpcd");
				
				var dSetattrno 				= node.selectSingleNode("setattrno");
				var dSetattrhistno 		= node.selectSingleNode("setattrhistno");
				
				if (cpgflagcd == "02" && pEssnprcpynNode != null && pEsslimnoNode != null && pEsslimhistnoNode != null && pEssSetnoNode != null && pEssSettypecdNode != null && pEssSetcdnoNode != null && pEssnprcpynNode.text == "Y"){
					pEssCnt++; //(2) ½ºÅÜÇʼö(´Üµ¶) ó¹æ
					keyInfo = "0" + "|" + appNo_SMMMO00110 + "^" + "P" + "^" + pEsslimnoNode.text + "^" + pEsslimhistnoNode.text + "^" + pEssSetnoNode.text + "^" + pEssSettypecdNode.text + "^" + pEssSetcdnoNode.text;
				}else if (cpgflagcd == "02" && dSetattrno != null && dSetattrhistno != null && pEssSetnoNode != null && pEssSettypecdNode != null && pEssSetcdnoNode != null){
					dEssCnt++; //(2) ¼±ÅÃÇʼö(±×·ì) ó¹æ
					keyInfo = "0" + "|" + appNo_SMMMO00110 + "^" + "D" + "^" + dSetattrno.text + "^" + dSetattrhistno.text + "^" + pEssSetnoNode.text + "^" + pEssSettypecdNode.text + "^" + pEssSetcdnoNode.text;
				}else{
					keyInfo = etclnkspecValue_SMMMO00110;
				}
				model.setValue(etclnkspecNode, keyInfo);
				
				if(pEssnprcpynNode != null) 	model.removenode(pEssnprcpynNode);
				if(pEsslimnoNode != null) 		model.removenode(pEsslimnoNode);
				if(pEsslimhistnoNode != null) model.removenode(pEsslimhistnoNode);
				if(dSetattrno != null) 				model.removenode(dSetattrno);
				if(dSetattrhistno != null) 		model.removenode(dSetattrhistno);
			}
			
			if( pEssCnt > 0 ){
				model.makeNode("/root/send/pessprcplist");
				model.makeValue("/root/send/pessprcplist/pesscpgappno"	, appNo_SMMMO00110);
			}
			if( dEssCnt > 0 ){
				model.makeNode("/root/send/dessprcplist");
				model.makeValue("/root/send/dessprcplist/desscpgappno"	, appNo_SMMMO00110);
			}
		}
	}
	stopSavePrcpYN_SMMMO00110 = "Y";
	
	model.removeNodeset ( "/root/send/reqdata" );	//2008.11.30 Ãß°¡
	
	/* //DSC or ER ȯÀÚÀÏ °æ¿ì ÀÔ¿ø Àü ó¹æ±îÁö¸¸ ÀÏ°ý¹ßÇà½ÃÄÑ¾ß ÇÑ´Ù
	if( prcpGenrFlag == "D" || prcpGenrFlag == "E" ){
		//var inptStepNode = instance1.selectSingleNode("/root/main/prcpsrch/prcplist[prcpcd='000000000297']/stepno");
		if( inptStepNode != null ){
			model.removeNodeset("/root/main/prcpsrch/prcplist[stepno>'" + inptStepNode.text + "']");
		}
	}*/
}

/**
 * @group  :
 * @ver   
 : 2008.01
 * @by     : ÀüÁöÀº
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×·ìó¹æÀÏ °æ¿ì, ÀÚÄڵ带 Á¶È¸ÇÏ¿© Ãß°¡ÇÑ´Ù
 * @param : 
 * @return : true / false
 * @---------------------------------------------------
 */
function fCheckCpPrcp( objFlag, strSrc, strDest, sendRow, srchRow, prcpInptFlag, grupSrc, direcSrc  ) {
	var prcpClsCd     = model.getValue( strSrc + "[" + sendRow + "]/prcpclscd" );    
	var prcpKindCd    = model.getValue( strSrc + "[" + sendRow + "]/prcpkindcd" );    
  var drugmthdspccd = model.getValue( strSrc + "[" + sendRow + "]/drugmthdspccd" );    
  var prcpnm        = model.getValue( strSrc + "[" + sendRow + "]/prcpnm" );    
  var drugmastspec  = model.getValue( strSrc + "[" + sendRow + "]/drugmastspec" ) + "^"; 
    
  usge = model.getValue ( "/root/usge" );
	cpchk = model.getValue ( "/root/cp" );
	prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
  
  //Ãß°¡
  var prcpInptFlag = model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" );    
  
	if ( model.getValue( strSrc + "[" + sendRow + "]/grupsnglflag" ) == "M" ) { //±×·ìÄÚµå MÀ» ã¾Æ³½´Ù. ó¹æ°Ë»öÀ϶§¸¸ Ç®¸°´Ù.

		var grupCond1 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" );
		var grupCond3 = "";
		var grupCond4 = "";
		var inclprcpno = "";

		if ( objFlag == "child" ) {
			grupCond3 = opener.model.getValue ( "/root/init/prcpdd" );
			grupCond4 = opener.model.getValue ( "/root/paminfo/list/insukind");
			
			if ( usge == "prcp" ) { //ó¹æÈ­¸é¿¡¸¸ Á¾¼Óó¹æÀÌ Àû¿ëµÈ´Ù.
				inclprcpno = eval(model.getValue ( "/root/init/inclprcpno")) + 1; //Á¾¼Óó¹æ¹øÈ£¸¦ ¹Þ¾Æ¿Â´Ù.
			}
		} else {
			grupCond3 = model.getValue ( "/root/init/prcpdd" );
			grupCond4 = model.getValue ( "/root/paminfo/list/insukind");
			if ( usge == "prcp" ) {//ó¹æÈ­¸é¿¡¸¸ Á¾¼Óó¹æÀÌ Àû¿ëµÈ´Ù.
				inclprcpno = eval(model.getValue ( "/root/init/inclprcpno")) + 1; //Á¾¼Óó¹æ¹øÈ£¸¦ ¹Þ¾Æ¿Â´Ù.
			}
		}
		
		prcpGroupSrch ( grupCond1, grupCond3, grupCond4 );

		if ( grupSrc == null ) grupSrc = "/root/prcpgroup/prcplist";
		var srcNodeList = model.instances(0).selectNodes( grupSrc );
		
		if ( srcNodeList.length > 0 ) {
			if ( objFlag == "child" ) {
				var destNode = model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
				model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]");	
				if (!opener.javascript.addPrcpSetValue( "main", "/root/main/prcp/prcplist" , srchRow, prcpInptFlag, "N", "05" )) {
					return 0;
				}
			} else {
				var destNode = strDest;
				model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]");	
				if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", "05" )) {
					return 0;
				}
			}

			srchRow ++;		

			if ( usge == "prcp" ) {

				for (var i=1; i<=srcNodeList.length; i++) {
					if ( objFlag == "child" ) {
						var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
						model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]");
						if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", "05" )) {
							return 0;
						} 
					} else {
						var destNode = strDest;
						model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]");
						//if (!addPrcpSetValue( "import", "/root/main/prcp/prcplist" , srchRow, prcpInptFlag, "N", "" )) {
						if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, prcpInptFlag, "N", "05" )) {
							return 0;
						}
						//ÀÚÄÚµåÀÇ Ã³¹æÁ¾·ù¿¡ °ªÀÌ µé¾î°¡Áö ¾Ê¾Æ, °­Á¦·Î ¼ÂÆÃÇÔ
						model.setValue(strSrc + "[" + srchRow + "]/prcpkindcd", model.getValue( strSrc + "[" + sendRow + "]/prcpkindcd" ));
						//cpó¹æÀÏ °æ¿ì, prcpinptflag¿Í cpno¸¦ ¸ðÄÚµå¿Í µ¿ÀÏÇÑ °ªÀ¸·Î ¼ÂÆÃÇÔ
						if( model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" ) == "05" ){
							model.setValue(strSrc + "[" + srchRow + "]/prcpinptflag", "05");
							model.setValue(strSrc + "[" + srchRow + "]/etclnkspec", model.getValue( strSrc + "[" + sendRow + "]/etclnkspec" ));
						}
					}

					if ( objFlag == "child" ) {	
						srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
					} else {
						srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
					}
					srchRow ++;
				}
			}	
			
			return srchRow;
		}
	
    } else if ( model.getValue( strSrc + "[" + sendRow + "]/grupsnglflag" ) == "J" ) { //±×·ìÁö½Ãó¹æ JÀ» ã¾Æ³½´Ù.
        //Á¶È¸Á¶°Ç
		var direcCond1 = model.getValue( strSrc + "[" + sendRow + "]/srchcondcnts" );
		var direcCond5 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" );
		var direcCond3 = "";
		var direcCond4 = "";

    if ( prcpClsCd == "04" ) {
		  hsctflag = "Y";
	  }

		if ( objFlag == "child" ) {
			direcCond3 = opener.model.getValue ( "/root/init/prcpdd" );
			direcCond4 = opener.model.getValue ( "/root/paminfo/list/insukind"); 
		} else {
			direcCond3 = model.getValue ( "/root/init/prcpdd" );
			direcCond4 = model.getValue ( "/root/paminfo/list/insukind");
		}		

	    prcpDirecSrch ( direcCond1, direcCond3, direcCond4, direcCond5 );        

		if ( direcSrc == null ) direcSrc = "/root/prcpdirec/prcplist";
	    var srcNodeList = model.instances(0).selectNodes( direcSrc );

		if ( srcNodeList.length > 0 ){ //±×·ìÁö½Ãó¹æ J´Â Á¾¼ÓÇÏ´Â ¼ö°¡ Äڵ尡 ÀÖÀ» ¶§¸¸ Ãß°¡.

			if ( objFlag == "child" ) {
				var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
				model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]");	
				//Á¾¼Óó¹æ¹øÈ£ Setting ( hsctlnkno )
				var hsctlnkno = eval ( opener.model.getValue ( "/root/init/hsctlnkno" )) + 1;
				opener.model.setValue ( "/root/init/hsctlnkno", hsctlnkno );
				if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05", "M" )) {
					return 0;
				}
			} else {
				var destNode = strDest;
				var hsctlnkno = eval ( model.getValue ( "/root/init/hsctlnkno" )) + 1;
				model.setValue ( "/root/init/hsctlnkno", hsctlnkno );
				model.duplicate( destNode, strSrc + "[" + sendRow + "]", "*[" + srchRow + "]");	
				if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05", "M" )) {
					return 0;
				}
			}		
			
			//CP ¾à¼Ó¼Â »ý¼º ½Ã¿¡´Â ÀÚÄڵ尡 Ç®¸®¸é ¾ÈµÈ´Ù. CP¹èÄ¡¸¦ ÅëÇØ ½Çó¹æ ÀúÀå½Ã Ç®¸°´Ù! (2008.01.22)
			if( opener.model.getValue("/root/cp") == "S" || model.getValue("/root/cp") == "S" ){
				return;	
			}
			
			if ( objFlag == "child" ) {	
				srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
			} else {
				
				srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
			}
			srchRow ++;			

			for (var k=1; k <= srcNodeList.length; k++) {
				if ( objFlag == "child" ) {
					var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
					model.duplicate( destNode, direcSrc + "[" + k + "]", "*[" + srchRow + "]" );
					if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05", hsctflag )) {
						return 0;
					}
				} else {
					var destNode = strDest;
					model.duplicate(  destNode, direcSrc + "[" + k + "]", "*[" + srchRow + "]");
					if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05", hsctflag )) {
						return 0;
					}
					
					if( model.getValue( strSrc + "[" + sendRow + "]/prcpinptflag" ) == "05" ){
						model.setValue(strSrc + "[" + srchRow + "]/prcpinptflag", "05");
						model.setValue(strSrc + "[" + srchRow + "]/etclnkspec", model.getValue( strSrc + "[" + sendRow + "]/etclnkspec" ));
					}
				}	
				if ( objFlag == "child" ) {	
					srchRow = opener.javascript.addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
				} else {
					srchRow = addPrcpPop (srchRow, usge, prcpClsCd, srchRow );
				}
				srchRow ++;		     				    
			}
	   }
	   
	   return srchRow;
	   
	} else if ( (prcpClsCd == "B2" || prcpClsCd == "B4" || prcpClsCd == "B6") && (getArrayData (drugmastspec, 0, 2, "^", "|" ) == "0" || getArrayData (drugmastspec, 0, 2, "^", "|" ) == "-")){

		//°Ë»ç´ëºÐ·ùÀ¯Çü(testlrgkind) ±×·ì: 0, 1
		//-ÀÏ ¶§´Â °Ëü¿Í »ó°ü¾ø´Â ±×·ìÄÚµå
		var grupCond1 = model.getValue( strSrc + "[" + sendRow + "]/prcpcd" );

		var grupCond3 = "";
		var grupCond4 = "";
		var popflag = "group"

		if ( objFlag == "child" ) {
			popflag = "child";
			grupCond3 = opener.model.getValue ( "/root/init/prcpdd" );
			grupCond4 = opener.model.getValue ( "/root/paminfo/list/insukind"); 
		} else {
			grupCond3 = model.getValue ( "/root/init/prcpdd" );
			grupCond4 = model.getValue ( "/root/paminfo/list/insukind");
		}		
		//±¸¼ö°¡ÄÚµåÀÏ °æ¿ì
		if ( oldprcpflag == "Y" ) {
			popflag = "oldprcp";
		}
		var drugmthdspccd = model.getValue ( strSrc + "[" + sendRow + "]/drugmthdspccd" );

		var spccd = "";
		var spcnm = "";
		
		if ( drugmthdspccd == "998" || drugmthdspccd == "999" ) { 
			
			fGetSpc ( sendRow, popflag );

			if ( drugmthdspccd == "998") {
				if ( getParameter ("SPMMO03500_rtn_useyn") == "Y" ) {
					spccd = getParameter ( "SPMMO03500_rtn_spccd" );
					spcnm = getParameter ( "SPMMO03500_rtn_spcscrnnm" );
				}
					clearParameter ( "SPMMO03500_rtn_useyn" );
					clearParameter ( "SPMMO03500_rtn_spccd" );
					clearParameter ( "SPMMO03500_rtn_spcscrnnm" );
			} else {
				if ( getParameter ("SPMMO03400_rtn_useyn") == "Y" ) {
					spccd = getParameter ( "SPMMO03400_rtn_spccd" );
					spcnm = getParameter ("SPMMO03400_rtn_spcscrnnm" );
				}
					clearParameter ( "SPMMO03400_rtn_useyn" );
					clearParameter ( "SPMMO03400_rtn_spccd" );
					clearParameter ( "SPMMO03400_rtn_spcscrnnm" );
			}

		} else { //Æ˾÷ÀÌ ¶ßÁö ¾ÊÀ» ¶§´Â º»Ã¼ÀÇ °ËüÄÚµå·Î °Ë»öÇÑ´Ù.
			spccd = drugmthdspccd;
			spcnm = model.getValue ( strSrc + "[" + sendRow + "]/drugmthdspccdnm" );
		}
		//if (isNull(spccd)) {
		//	return 0 ;
		//}		

		//getArrayData (drugmastspec, 0, 2, "^", "|" ) °Ë»çºÐ·ùÀ¯Çü
		
		prcpGroupSrch ( grupCond1, grupCond3, grupCond4, spccd, getArrayData (drugmastspec, 0, 2, "^", "|" ), "getLisPrcpGroupInfo" );

		if ( objFlag == "child" ) {
			var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
		} else {
			var destNode = strDest;
		}

		if ( grupSrc == null ) grupSrc = "/root/prcpgroup/prcplist";
		var srcNodeList = model.instances(0).selectNodes( grupSrc );
		
		for (var i=1; i<=srcNodeList.length; i++) {
			if ( objFlag == "child" ) {
				var destNode = opener.model.instances(0).selectSingleNode( strDest ) // or opener.root.main.prcp ÀÌ·±½ÄÀ¸·Î
				model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]");
				if (!opener.javascript.addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05" )) {
					return 0;
				} 
				if (!isNull(spccd))	{
					opener.model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccd", spccd );
					opener.model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccdnm", spcnm );
				}
			} else {
				var destNode = strDest;
				model.duplicate( destNode, grupSrc +"[" + i + "]", "*[" + srchRow + "]");
				if (!addPrcpSetValue ( "main", strDest + "/prcplist", srchRow, "05" )) {
					return 0;
				}
				if (!isNull(spccd))	{
					model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccd", spccd );
					model.setValue ( "/root/main/prcp/prcplist[" + srchRow + "]/drugmthdspccdnm", spcnm );
				}
			}	
			srchRow ++;	
		}
		
	} else { //±×·ìÄÚµå M, J °¡ ¾Æ´Ò °æ¿ì
		return 0;
	}
}

/**
 * @group  :
 * @ver   
 : 2007.09
 * @by     : ÀüÁöÀº
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹Ì¿Ï¼º ó¹æÀ¸·Î ¼öµ¿ ó¸®ÇÑ´Ù
 * @param : errflagcd						1:¼ö¼ú(´çÀÏ), 2:¼ö¼ú(¹Ì·¡), 4:Åð¿ø¿¹°í(´çÀÏ)
 				  : opCSV								¹Ì¿Ï¼º ´ë»ó ó¹æ Nodeset
 				  : flag
 * @return :
 * 
 * [¹Ì¿Ï¼º3:Åð¿ø¿¹°íó¹æ(¹Ì·¡)] ¹Ì·¡Ã³¹æ Áß Åð¿ø¿¹°íó¹æ Á¸Àç ½Ã, ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ÀúÀå
 * var opNodeList = instance1.selectNodes("/root/main/prcp/prcplist[status!='S' and prcpkindcd = '70' ]");
 * @---------------------------------------------------
 */
function fInvalPrcpTret(errflagcd, sFlag){
	var appScopMode = model.getValue("/root/main/appscopmode"); //CPGÀÎ °æ¿ì, CPG½ºÅÜ/CP½ºÅÜ Àû¿ë ¸ðµå¸¦ ±¸ºÐÇÔ (2010.06.26)
	if( cpgflagcd == "02" && appScopMode != "W" ) return; //CPG+CPÀÇ CPó¹æÀº ¹Ì¿Ï¼º ó¸® µÇµµ·Ï
	
	var today = getCurrentDate();
	var copyYN = "N";		//2008.10.14 (ÀúÀåÃë¼Ò-ÀúÀå ¹Ýº¹ÀûÀ¸·Î ¼öÇà ½Ã *n°Ç ¹ß»ýµÇ¾î ÀúÀåµÇ´Â °Í ¸·À½)
	
	if(model.getValue("/root/patflag/list/prcpgenrflag") == "O"){
		var pOrdDD = model.getValue("/root/paminfo/list/orddd");
	}else{
		var pOrdDD = model.getValue("/root/paminfo/list/indd");
	}
	
	if( instance1.selectSingleNode("/root/send/errprcplist") == null ){
		model.makeNode("/root/send/errprcplist");
	}
	if(  instance1.selectSingleNode("/root/result") == null ){
		model.makeNode("/root/result");
	}
	
	//¼ö¼úó¹æ Á¸Àç ½Ã, ¼ö¼ú¿¹¾àÁ¤º¸ Á¶È¸
	if ( errflagcd != 4 ){
		model.makeValue( "/root/send/pamdata/pid"     , model.getValue("/root/paminfo/list/pid") );
		model.makeValue( "/root/send/pamdata/orddd"   , pOrdDD );
		
		var rsrvOpCnt = 0;
		if( instance1.selectSingleNode("/root/temp1/oplist/info") == null ){
			submit("TRMMP02801", false);
		}
		model.removeNodeset("/root/send/pamdata");
		
		rsrvOpCnt = instance1.selectNodes("/root/temp1/oplist/info").length;
		if(rsrvOpCnt >= 1){
			if( errflagcd == 1 ){
				var opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
			}else if( errflagcd == 2 ){
				var opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and anstcnfmneedyn!='N']");
			}
			
			for( var r=0; r<rsrvOpCnt; r++ ){
				var rsrvDD     = model.getValue("/root/temp1/oplist/info["+(r+1)+"]/opschedd");	//¿¹Á¤ÀÏ
				var rsrvNo     = model.getValue("/root/temp1/oplist/info["+(r+1)+"]/oprsrvno");	//¿¹¾à¹øÈ£
				var opfromtmcd = model.getValue("/root/main/oplist/info["+(r+1)+"]/opfromtmcd");
				var erYN   = "N";			//ÀÀ±Þ±¸ºÐ
				var nighYN = "N";		//¾ß°£±¸ºÐ
				if( model.getValue("/root/temp1/oplist/info["+(r+1)+"]/opflagcd") == "2" ){
					erYN = "Y";
				}
				if(eval(opfromtmcd) > 170000 ) { 
					nighYN = "Y";
				}
				
				var sameopscheddCnt = instance1.selectNodes("/root/temp1/oplist/info[opcnfmdd='"+rsrvDD+"']").length;	//opcnfmdd:È®Á¤ÀÏ,opschedd:¿¹Á¤ÀÏ
				if(sameopscheddCnt == 1){		//µ¿ÀÏÇÑ ¿¹Á¤ÀÏÀ» °®´Â ¼ö¼ú¿¹¾àÀÌ 1°ÇÀÏ °æ¿ì¸¸ ó¹æ¿¡ ¿¹¾à¹øÈ£ ¼ÂÆÃ(2°Ç ÀÌ»óÀ̸é, skip)
					for(var i=0; i<opNodeList.length; i++){
						var node = opNodeList.item(i);
						if( node.selectSingleNode("prcpdd").text == rsrvDD ){
							model.setValue(node.selectSingleNode("oprsrvno")    , rsrvNo);
							model.setValue(node.selectSingleNode("erprcpflag")  , erYN);
							model.setValue(node.selectSingleNode("nigtprcpflag"), nighYN);
						}
					}
				}
			}	//end for
			
		}	//end if(rsrvOpCnt >= 1)
	}	//end if(errflagcd != 4)
	
	var opNodeList = null;
	
	if( errflagcd == 1 ){
		if( sFlag == "U" ){
			opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and valyn!='¿Ï¼º' and anstcnfmneedyn!='N']");
		}else{
			opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
		}
	}else if( errflagcd == 2 ){
		if( sFlag == "U" ){
			opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and valyn!='¿Ï¼º' and anstcnfmneedyn!='N']");
		}else{
			opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and anstcnfmneedyn!='N']");
		}
	}else if (errflagcd == 4 ){
		opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status!='S' and (prcpkindcd = '60' or prcpkindcd = '70') and prcpdd='" + today + "']");
	}
	
	if(opNodeList.length > 0){
		opCSV = getNodeListCSV(opNodeList);
	}else{
		return;
	}
	
	setCSVToNode("/root/result", opCSV, "saveinvaliprcplist");
	
	var saveInvaliPrcpList =  instance1.selectNodes( "/root/result/saveinvaliprcplist" );
	for(var i=1; i<=saveInvaliPrcpList.length; i++){
		model.removenode("/root/result/saveinvaliprcplist[" + i + "]/stepno");
		model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/orddd", pOrdDD);
		if( errflagcd == 1 || errflagcd == 2 ){
			//2008.11.27 --¾Æ·¡ 1ÁÙ ÁÖ¼®Ã³¸®
			//model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/prtlprcpno", "12");			//¹Ì¿Ï¼ºÃ³¹æ ÀúÀå ½Ã, prtlstatÀÇ °ªÀ» prtlprcpno¿¡ ´ë½Å ³Ö¾î¼­ º¸³½´Ù(prtlprcpno´Â insert ¶§´Â ÇÊ¿ä¾ø´Â ³ëµåÀÓ)
			model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/incpltnresn", "¼ö¼ú¿¹¾à¹øÈ£°¡ ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù.");	
			model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/errtretflag", "8");	
			ErrExistYN_SMMMO00110 = "Y";		//ÀúÀå ÈÄ ¹Ì¿Ï¼ºÃ³¹æ Á¸ÀçÀ¯¹« ÆÄ¾Ç -> ¹Ì¿Ï¼ºÆ˾÷ ¿ÀÇ ±âÁØ
			
		}else if( errflagcd == 4 ){
			//model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/prtlprcpno", "12");
			model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/incpltnresn", "Åð¿ø¿¹°í¸¦ ÇÏÁö ¾ÊÀ¸¼Ì½À´Ï´Ù.");	
			model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/errtretflag", "10");	
			ErrExistYN_SMMMO00110 = "Y";		//ÀúÀå ÈÄ ¹Ì¿Ï¼ºÃ³¹æ Á¸ÀçÀ¯¹« ÆÄ¾Ç -> ¹Ì¿Ï¼ºÆ˾÷ ¿ÀÇ ±âÁØ
		}
		
		// ¿À¶óŬ null error ·Î ÀÎÇÑ default°ª ¼³Á¤
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/prcphopedd"            , model.getValue("/root/result/saveinvaliprcplist[" + i + "]/prcpdd") );
		
		//CPG+CP ¿¡¼­ CP½ºÅÜÀÇ prcphopeddNode(ó¹æÈñ¸ÁÀÏÀÚ)´Â Çش糯¥·Î º¯°æÇØÁÜ (2010.06.26)
		if( cpgflagcd == "02" && appScopMode == "W" ){
			var iSetno = model.getValue("/root/result/saveinvaliprcplist[" + i + "]/setno");
			var iSettypecd = model.getValue("/root/result/saveinvaliprcplist[" + i + "]/settypecd");
			var iOrgprcpdd = model.getValue("/root/main/steppath/info[setno='"+iSetno+"' and settypecd='"+iSettypecd+"']/orgprcpdd");
			if( !isNull(iSetno) && !isNull(iSettypecd) && !isNull(iOrgprcpdd) ){
				model.makeValue("/root/result/saveinvaliprcplist[" + i + "]/prcphopedd"           , iOrgprcpdd );
			}
		}
		
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/offictourhealexamflag" , "N");	
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/prcpauthflag"          , "0");	
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/prcpsignflag"          , "2");	
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/cvrtbforddd"           , "00000000");	
		model.makeValue   ("/root/result/saveinvaliprcplist[" + i + "]/cvrtbfprcpgenrflag"    , "-");	
	}
			
	var saveInvaliPrcpList =  model.instances(0).selectNodes( "/root/result/saveinvaliprcplist" );		//¿¡·¯°¡ Á¸ÀçÇÏ¿© ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ÀúÀåµÉ µ¥ÀÌÅÍ
	model.makeValue("/root/send/errprcplist", getNodeListCSV(saveInvaliPrcpList));
	
	// TXMMP00803,4 ¿¡ saveinvaliprcplist ÀÇ ÇϺγëµå ¸íÀº inval_ À¸·Î ½ÃÀÛÇϹǷÎ, ³ëµå ¸íÀ» ¹Ù²Û´Ù (2008.02.12)
	for( var i=0; i<saveInvaliPrcpList.length; i++ ){
		var node = model.instance1.selectSingleNode( "/root/result/saveinvaliprcplist["+(i+1)+"]" );
		var childNodeList = node.childNodes;
		for( var k=0; k<childNodeList.length; k++ ){
			var iNode = childNodeList.item(k);
			iNode.nodeName = "inval_" + iNode.nodeName;
		}
	}
	
	copyNodeListType("/root/main/invalprcplist", "/root/result/saveinvaliprcplist", "after", model, model);
	copyNodeListType("/root/send",               "/root/result/saveinvaliprcplist", "after", model, model);
	model.removeNodeset("/root/result/saveinvaliprcplist");
	//model.removeNodeset("/root/send/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0']");
	if( errflagcd == 1 ){
		if( sFlag == "U" ){
			model.removeNodeset("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and valyn!='¿Ï¼º' and anstcnfmneedyn!='N']");
		}else{
			model.removeNodeset("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
		}
		model.removeNodeset("/root/temp1/addprcp/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
		
	}else if( errflagcd == 2 ){
		if( sFlag == "U" ){
			model.removeNodeset("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and valyn!='¿Ï¼º' and anstcnfmneedyn!='N']");
		}else{
			model.removeNodeset("/root/main/prcpsrch/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and anstcnfmneedyn!='N']");
		}
		model.removeNodeset("/root/temp1/addprcp/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
		
	}
	else if( errflagcd == 4 ){
		model.removeNodeset("/root/main/prcpsrch/prcplist[status!='S' and (prcpkindcd = '60' or prcpkindcd = '70') and prcpdd='" + today + "']");
		model.removeNodeset("/root/temp1/addprcp/prcplist[status!='S' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "']");
		
	}
	
}

/**
 * @group  :
 * @ver   
 : 2007.09
 * @by     : ÀüÁöÀº
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : CPÀû¿ë ÈÄ, ¹ßÇà °¡´ÉÇÑ Ã³¹æµé¿¡ ´ëÇؼ­ ÀÏ°ýÀúÀå(¹× ÀÎÁõÀúÀå)À» ÇÑ´Ù
 * @param : flag										"":ÀÔ·Â / "U":¼öÁ¤
 				  : prcpflag								ó¹æ±¸ºÐ (2007.09.19 Ãß°¡µÊ)	ex:0(ÀϹÝ),6(CP),7(Ç×¾ÏÇÁ·ÎÅäÄÝ)...
 				  : prtlFlag_SMMMO00110	(+) ÇÁ·ÎÅäÄÝó¹æ±¸ºÐ(2007.09.19 Ãß°¡µÊ) ex:01,02,10,20
 				  : rtnpstn (+)             return position
 * @return :
 * @---------------------------------------------------
 */
function fBatSaveCpPrtlPrcp( flag, prcpflag, savePrtlFlag, rtnpstn ){
    var today        = getCurrentDate();
	var prcpgenrflag = model.getValue("/root/patflag/list/prcpgenrflag");
	var cpgIoFlag    = model.getValue("/root/main/masterinfo/info/ioflagcd");
	var addFlag = "add_After";	//Ãß°¡Ã³¹æ ÀúÀå ½Ã, ´çÀÏ ¹× OCS¿¡¼­ Ãß°¡ ½Ã addPrcpÈ£Ãâ(X), ȯÀÚ°èȹǥ¿¡¼­ Ãß°¡ ½Ã addPrcpÈ£Ãâ(O)
	//ÃʱⰪ setting
    prtlFlag_SMMMO00110        = savePrtlFlag;
    questionYN_SMMMO00110      = "N";
    appNo_SMMMO00110           = model.getValue("/root/temp1/getdata/cpgappno");
    //ErrExistYN_SMMMO00110    = "N";
    etclnkspecValue_SMMMO00110 = "0" + "|" + appNo_SMMMO00110;
    saveNum_SMMMO00110         = 0;
    cpSaveKindFlag_SMMMO00110  = flag;				//cp ÀúÀ屸ºÐ¿¡ µû¶ó,   '-'¸¦ °°ÀÌ Ã³¸®ÇÒÁö ¸»Áö...
	var dcNode = null;			//DC³ëµå
	
	var sCpBatchTime = fGetHardCDList("Y", 599, 3);   //¹èÄ¡ ½ÇÇà ½Ã°£ 2018.01.25 ¾ö¿µ¸¸
    if(isNull(sCpBatchTime)) {
        sCpBatchTime = "180000";     // µðÆúÆ® 6½Ã
    }
	
	//Àû¿ë Á÷Àü, Ç×¾ÏÇÁ·ÎÅäÄÝ(¾ÈƼ½º) ÁøÇàÁßÀÎÁö¸¦ üũÇÑ´Ù. (2008.09.30) (s)
	model.removeNodeset ( "/root/send/reqdata" );
	model.makeNode( "/root/send/reqdata" );
	model.makeNode( "/root/temp1/rsltgetdata" );
	model.makeValue("/root/send/reqdata/pid", model.getValue("/root/paminfo/list/pid"));
	model.makeValue("/root/send/reqdata/cretno",model.getValue("/root/paminfo/list/cretno"));
	model.makeValue("/root/send/reqdata/prcpgenrflag",prcpgenrflag);
	if(prcpgenrflag == "O") model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/paminfo/list/orddd"));
	else                    model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/paminfo/list/indd"));
	model.makeValue("/root/send/reqdata/getanticncryn", "Y");		//Ç×¾ÏÇÁ·ÎÅäÄÝ ÁøÇàÁßÀÎÁö Á¶È¸ ¿©ºÎ
	if( submit("TRMMP00807", false) ){
		if( instance1.selectSingleNode("/root/temp1/rsltgetdata/getdata/cpgappno") != null ){
			if( model.getValue("/root/temp1/rsltgetdata/getdata/prtlflagcd") == "10" ){
				messageBox( "Ç×¾ÏÇÁ·ÎÅäÄÝ ÁøÇàÁßÀΠȯÀÚÀ̹ǷΠÀúÀå", "E001" );
				return false;
			}
		}
	}
	model.removeNodeSet ( "/root/temp1/rsltgetdata/getdata" );
	
	// (e)
	//[ÀúÀå]¹öÆ° (¹Ì¿Ï¼ºÃ³¹æ ¼öÁ¤ÀúÀå ÇÒ °æ¿ì, »èÁ¦ µ¥ÀÌÅ͸¦ µû·Î ´ã¾Æ°£´Ù)
	if( flag == "U" ){
		var delPrcpList = instance1.selectNodes("/root/main/prcp/prcplist[status='I' or status='U' or status='D']");	//prcp->prcpsrch º¯°æ ¿©ºÎ..
		var delHeader = "dstatus¢Ëprtlprcpno";
		var delData = "";
		var delCnt = 0;
		for(var i=0; i<delPrcpList.length; i++){
			var node = delPrcpList.item(i);
			var prcpddNode = node.selectSingleNode("prcpdd");
			var prtlprcpnoNode = node.selectSingleNode("prtlprcpno");
			//2008.06.23
			var errtretflagNode = node.selectSingleNode("errtretflag");
			var valynNode = node.selectSingleNode("valyn");
			var saveStatusNode = node.selectSingleNode("status");
			
			//if( prcpddNode.text == today || (errtretflagNode != null && valynNode.text == "¿Ï¼º") ){  //2008.06.23
			if( saveStatusNode.text == "D" ){ //2008.07.04
				var statusText = "22";
				delCnt++;
			}else if( saveStatusNode.text == "U" ){
				model.setValue(saveStatusNode, "I");
				var statusText = "23";
				delCnt++;
			}
			
			//2ȸ ÀúÀåºÎÅÍ prtlprcpnoNode ¾ø¾î¼­ ¿À·ù ¹ß»ý
			if( prtlprcpnoNode != null ){
				delData = delData + "¢Ì" + statusText + "¢Ë" + prtlprcpnoNode.text;
			}
		}
		
		if( delCnt > 0 ){
			model.makeValue("/root/send/delprcplist", delHeader + delData + "¢Ì");
		}
		copyNodeListType( "/root/main/prcpsrch", "/root/main/prcp/prcplist[status='I']", "replace", model, model );
	} else { //[Àû¿ë]¹öÆ°
	    var addPrcpNodeList = null;
		if( isNull(flag) ){
			if( ivw_prcp3.visible == true ){
				dcNode = ivw_prcp3.instance1.selectSingleNode("/root/prcpsrch/prcplist[chkcol='D']");
			}
			
			var nodeList = null;
			//CP/CPGº° ÀúÀå ´ë»óÀÌ ´Ù¸§ ó¸® (2008.12.06)
			if( cpgIoFlag == "O" ){
				nodeList = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10' and prcpdd='" + today + "' and savestatus='I']");
			} else {
                if( prcpgenrflag == "O" ){
			  	    nodeList = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10' and prcpdd='" + today + "']");
			    }else{
			  	    nodeList = instance1.selectNodes("/root/main/steppath/info" + "[stepstat = '10' and savestatus='I']"); 
			    }
			}
			
			var DetlNodeList = null;
			if( ivw_detail.src != "" ) DetlNodeList = ivw_detail.instance1.selectNodes("/root/main/prcp/prcplist[status='I' or status='U' or status='D']");	// (OCS¿¡¼­ Ãß°¡µÈ) Ãß°¡Ã³¹æ
			var existPrcpNode      = instance1.selectSingleNode("/root/main/prcp/prcplist[status='I' or status='U' or status='D' or status='-']");
			var existPrcpSrchNode  = instance1.selectSingleNode("/root/main/prcpsrch/prcplist[status='I' or status='U' or status='D']");
			
			var nextDay = getCurrentDate().toDate().getAddDate(1,"D").getDateFormat();
			var toDay   = parseInt(getCurrentDate());
			var initDay = parseInt(model.getValue("/root/init/prcpdd"));
			
			if( ivw_detail.visible == true ){
				//ȯÀÚ°èȹǥ visible : prcp ÀνºÅϽº ´ë»ó
				if( nodeList.length <= 0 && DetlNodeList.length <= 0 && dcNode == null ){
					stopSavePrcpYN_SMMMO00110 = "Y";	//refresh°¡ ¾È µÇµµ·Ï, ¸®ÅÏ°ªÀ» Y
					messageBox( "ÀúÀåÇÒ", "E013" );
					return false;
				}
				
				ivw_detail.model.removeNodeset("/root/main/prcp/prcplist[status='' or status='S']");
				addFlag = "add_Before";
			} else if (imp_prcp.visible == true && existPrcpSrchNode == null ){
				//OCS visible : prcpsrch ÀνºÅϽº ´ë»ó (prcpsrch=nullÀ̸é, ÃÖÃÊÀúÀåÀÇ °æ¿ìÀÓ)
				//prcpsrch¿¡ µ¥ÀÌÅÍ°¡ ¾ø°í, prcp¿¡ µ¥ÀÌÅÍ°¡ ¾ø°í, diaginfo¿¡ µ¥ÀÌÅÍ°¡ ¾øÀ» °æ¿ì, return
				if( (prcpgenrflag != "O" && nodeList.length <= 0 && existPrcpNode == null) ||
				    (prcpgenrflag == "O" && nodeList.length <= 0 && existPrcpNode == null ) ) {
				    	
					if( dcNode == null && instance1.selectSingleNode("/root/main/diaginfo/diagcdlist[status!='-' and status!='' and status!='S']") == null ){
						stopSavePrcpYN_SMMMO00110 = "Y";
						messageBox( "ÀúÀåÇÒ", "E013" );
						return false;
					}
				}
				addFlag = "add_After";
			}

			if( nodeList.length > 0 ){
				//½ºÅÜÀÌ °¡Áö°í ÀÖ´Â setó¹æ ¸ñ·ÏÀ» Á¶È¸ÇÑ´Ù(¿Ü·¡È¯ÀÚ´Â D0 ó¹æ¸¸À» select, D0°¡ ¾ø´Ù¸é 0°Ç)
				if( getParameter("SPMMP00200_popupYN") != "Y" && cpTmpPrcpSaveYN_SMMMO00110 != "Y" ){	//¾à¼Óó¹æ ÃÖÃÊ 1ȸ¸¸ Á¶È¸(2008.10.14), D0ó¹æÀº óÀ½ºÎÅÍ Á¸ÀçÇϹǷΠ¶Ç Á¶È¸ÇÒ ÇÊ¿ä ¾øÀ½(2009.02.03)
					fGetCurrentPrcpList("SEL");
					setParameter("SPMMP00200_popupYN", "Y");	//CP ó¹æ ÀúÀå ½Ã, ÀúÀå ÈÄ ¿À·ùÀÖ´Ù¸é ¿À·ùÆ˾÷ È£Ãâ(YÀ̸é Æ˾÷È£Ãâ) (2008.09.30)
					//addPrcpSetValue()¿¡ saveflaginfo °ª ¼³Á¤ ºÎºÐÀÌ À߸øµé¾î°¡ÀÖ¾î À§Ä¡ º¯°æ.. (2008.12.09)
					//¼³Á¤ ½ÃÀÛ (s)
					model.makeValue ( "/root/save/saveflaginfo/isstimes", 		isstimes_SMMMO00110 );					//¹ßÇà½ÃÀÛȸÂ÷, Á¾·áȸÂ÷
					model.makeValue ( "/root/save/saveflaginfo/isssteps", 		isssteps_SMMMO00110 );					//¹ßÇà½ÃÀÛ½ºÅÜ, Á¾·á½ºÅÜ
					model.makeValue ( "/root/save/saveflaginfo/steparray", 		stepArray_SMMMO00110 );					//ÀúÀåÇÏ´Â ½ºÅÜ ¸®½ºÆ® (|)
					model.makeValue ( "/root/save/saveflaginfo/prcpddarray", 	prcpddArray_SMMMO00110 );				//ÀúÀåÇÏ´Â ½ºÅÜ Ã³¹æÀÏ ¸®½ºÆ® (|)
					// ¼³Á¤ ³¡ (e)
				}
			}
			
			// ¡Ú 2007.11.14 (¸¸¾à, ȯÀÚ°èȹǥ âÀÌ ¿­·ÁÀÖ´Ù¸é, ¼öÁ¤µÈ ³ëµå¸¦ ÇÔ²² ´õÇÑ´Ù)
			if( ivw_detail.visible == true ){
				
				if( DetlNodeList.length > 0 ){
					//init/prcpdd ¹Ì·¡ÀÏÀÚ·Î º¯°æ (ivw_detailÀÇ prcp´Â ÀúÀå Ãë¼Ò°¡ µÇ¾îµµ »èÁ¦µÇÁö ¾ÊÀ¸¹Ç·Î Ç×»ó prcpÀÇ Ã¹¹ø° prcpdd¸¦ set)
					var org_initprcpdd = model.getValue("/root/init/prcpdd");
					var new_initprcpdd = ivw_detail.instance1.selectSingleNode("/root/main/prcpsrch/prcplist[1]/prcpdd");
					if( new_initprcpdd != null ){
						if( !isNull(new_initprcpdd.text) && org_initprcpdd != new_initprcpdd.text ){
							model.setValue( "/root/init/prcpdd", new_initprcpdd.text );
							fPrcpDdCheck();
						}
					}
					var delHeader = "dstatus¢Ëprtlprcpno";
					var delData = "";
					for(var i=0; i<DetlNodeList.length; i++){
						var node = DetlNodeList.item(i);
						var prcpddNode = node.selectSingleNode("prcpdd");
						var prtlprcpnoNode = node.selectSingleNode("prtlprcpno");
						var statusNode = node.selectSingleNode("status");
						
						//»õ·Î Ãß°¡ÇÏ´Â ¹Ì·¡Ã³¹æÀº ÇÁ·ÎÅäÄÝ Ã³¹æÅ×ÀÌºí¿¡¼­ »èÁ¦ÇÒ ´ë»óÀÌ ¾øÀ½
						if( statusNode.text != "I" ){
							if(statusNode.text == "D"){
								var statusText = "22";		// row delete(prtlstat 22(»èÁ¦)·Î update ó¸®)
								
							}else if(statusNode.text == "U"){
								//model.setValue(statusNode, "I");												// U -> I (±âÁ¸ row´Â »èÁ¦Ã³¸®)
								if(prcpddNode.text == today){
									var statusText = "22";		// row status update
								}else{
									var statusText = "23";		// row remove(delete)
								}
								model.setValue(statusNode, "I");
							}
							delData = delData + "¢Ì" + statusText + "¢Ë" + prtlprcpnoNode.text;
						}
					}
					//case 2. ȯÀÚ°èȹǥ¿¡¼­ Ãß°¡/¼öÁ¤ÇÑ ¹Ì·¡Ã³¹æÀ» prcpsrch ¿¡ add
					model.makeValue("/root/send/delprcplist", delHeader + delData + "¢Ì");
					model.makeValue("/root/send/delprcplist", delHeader + delData + "¢Ì");
					//test(Ãß°¡Ã³¹æ ÀúÀåÃë¼Ò-ÀúÀå ½Ã *n°Ç ÀúÀåµÇ´Â ¹®Á¦·Î ÀÎÇÑ, addPrcp Àü prcp remove ó¸®)
					//model.removeNodeset("/root/main/prcp/prcplist");
					/*before
						copyNodeListType( "/root/main/prcpsrch", "/root/main/prcpsrch/prcplist[status='I']", "after", model, ivw_detail.model );
					 after
					*/
					//2008.10.31 copy from.prcpsrch-prcpsrch -> prcp-prcp
					//copyNodeListType( "/root/main/prcp", "/root/main/prcp/prcplist[status='I']", "before", model, ivw_detail.model );
					copyNodeListType( "/root/main/prcp", "/root/main/prcp/prcplist[status='I']", "replace", model, ivw_detail.model );
					// end after
					
					var PrcpSrchList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I']");
					for(var i=0; i<PrcpSrchList.length; i++){
						var node = PrcpSrchList.item(i);
						var prtlprcpnoNode = node.selectSingleNode("prtlprcpno");
						var prcpnoNode = node.selectSingleNode("prcpno");
						var prcphistnoNode = node.selectSingleNode("prcphistno");
						var certprcpnoNode = node.selectSingleNode("certprcpno");
						var prtlstatNode = node.selectSingleNode("prtlstat");
						var timesNode = node.selectSingleNode("times");
						var stepnoNode = node.selectSingleNode("stepno");
						var stepnmNode = node.selectSingleNode("stepnm");
						
						if( prtlprcpnoNode != null && flag != "U" ) 	{ model.removenode(prtlprcpnoNode); }	//Á¶°Ç add(2008.11.28)
						if( prcpnoNode != null ) 		{ model.removenode(prcpnoNode); }
						if( prcphistnoNode != null ) 	{ model.removenode(prcphistnoNode); }
						if( certprcpnoNode != null ) 	{ model.removenode(certprcpnoNode); }
						if( prtlstatNode != null ) 		{ model.removenode(prtlstatNode); }
						if( timesNode != null ) 		{ model.removenode(timesNode); }
						if( stepnoNode != null ) 		{ model.removenode(stepnoNode); }
						if( stepnmNode != null ) 		{ model.removenode(stepnmNode); }
					}
				}
			}
		}
		flag = "I";
	}
	
	model.makeValue ( "/root/save/saveflaginfo/prtlflag", 		prtlFlag_SMMMO00110 );			//ÇÁ·ÎÅäÄݱ¸ºÐ
	model.makeValue ( "/root/save/saveflaginfo/cpgappno", 		appNo_SMMMO00110 );				//CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ no
	model.makeValue ( "/root/save/saveflaginfo/prtlprcpstatus", prtlprcpstatus_SMMMO00110 );	//CPó¹æ or ÇÁ·ÎÅäÄÝó¹æ ÀúÀå status
	
	var saveDiagNode            = instance1.selectSingleNode( "/root/main/diaginfo/diagcdlist[status!='-' and status!='S']");
	var savePrcpSrchNode        = instance1.selectSingleNode("/root/main/prcpsrch/prcplist[status='I' or status='U']");
	var delprcplistNode         = instance1.selectSingleNode("/root/send/delprcplist");
	var saveinvaliprcplistNode  = instance1.selectSingleNode("/root/result/saveinvaliprcplist");
	var addprcpNode             = instance1.selectSingleNode("/root/temp1/addprcp/prcplist");
	//add node
	var savePrcpNode = instance1.selectSingleNode("/root/main/prcp/prcplist[status='I' or (status='-' and prcphistcd='T')]");

	if( dcNode == null && savePrcpNode == null && savePrcpSrchNode == null && delprcplistNode != null && saveinvaliprcplistNode == null ){
		//¿¹¿Ü1 : »èÁ¦¸¸ ¼öÇàÇÑ´Ù¸é, TRMMP00803/TRMMP00804 ¼öÇàÇÏÁö ¾Ê°í, ¹Ù·Î TXMMP00806¸¸ ¼öÇàÇÑ´Ù (2008.06.23)
		//ÀÎÁõ¼­¸¦ ¶ç¿ö ÀÎÁõÀúÀåÀ» ÇؾßÇÏÁö¸¸, ÀÎÁõ µ¥ÀÌÅÍ ±¸Á¶¸¦ ¸¸µé ¼ö ¾øÀ½...
		//alert("¿¹¿Ü1 ok");
		if( messageBox ( "", "Q002" ) == 7 ){
			stopSavePrcpYN_SMMMO00110 = "Y";
            return false;
      	} else {
      		submit("TXMMP00806", false);
    		stopSavePrcpYN_SMMMO00110 = "N";
    		return true;
      	}
	} else if( dcNode != null && savePrcpNode == null && savePrcpSrchNode == null && delprcplistNode == null && saveinvaliprcplistNode == null ){
		//¿¹¿Ü2 : DCó¹æ¸¸ ÀúÀåÇÒ °æ¿ì, DCó¹æÀúÀ常 ¼öÇà
		//alert("¿¹¿Ü2 ok");
		var prePrcpDD = ivw_prcp3.model.getValue("/root/init/bfprcpdd");
		model.setValue( "/root/init/prcpdd", prePrcpDD );
		fPrcpSave( "0", "0", "/root/main/prcp/prcplist", "N" );
		if( SubmitTF_SMMMO00110  == false ){
			//´çÀÏ Ã³¹æÀúÀå ½ÇÆÐ, refresh ¾ÈÇÔ.
			stopSavePrcpYN_SMMMO00110 = "Y";
			return false;
		}else{
			stopSavePrcpYN_SMMMO00110 = "N";
			return true;
		}
	} else if( dcNode == null && savePrcpNode == null && savePrcpSrchNode == null && delprcplistNode == null && saveinvaliprcplistNode != null ){
		//¿¹¿Ü3 : ÀúÀå ÇÒ Ã³¹æÀº ¾øÁö¸¸, ¹Ì¿Ï¼º ó¹æ¸¸ Á¸ÀçÇÏ´Â °æ¿ì
		//alert("¿¹¿Ü3");
		if( messageBox ( "", "Q002" ) == 7 ){
			stopSavePrcpYN_SMMMO00110 = "Y";
            return false;
  	    }else{
			fSetSavrPrcpInfo();	//ÀúÀå½Ã ÇÊ¿äÇÑ µ¥ÀÌÅ͸¦ ÀÓÀÇ·Î ±¸¼ºÇÔ
      		if( !submit("TXMMP00806", false) ){
    		    stopSavePrcpYN_SMMMO00110 = "Y";
    	        return false;
      		}else{
				stopSavePrcpYN_SMMMO00110 = "N";
				return true;
			}
  	    }
	}

	if( saveDiagNode != null && dcNode == null && savePrcpNode == null && savePrcpSrchNode == null && delprcplistNode == null && saveinvaliprcplistNode == null ){
		//¿¹¿Ü4 : ÀúÀåÇÒ Ã³¹æµ¥ÀÌÅÍ´Â ¾ø°í, Áø´Üµ¥ÀÌÅ͸¸ Á¸ÀçÇÒ °æ¿ì, Áø´Ü¸¸ ÀúÀå(´çÀÏó¹æ°ú µ¿ÀÏÇÑ func È£Ãâ). 2008.02.13
		//alert("¿¹¿Ü4 ok");
		if( !fPrcpSave( "0", "0", "/root/main/prcp/prcplist", "N" ) ){
			//´çÀÏ Ã³¹æÀúÀå ½ÇÆÐ, refresh ¾ÈÇÔ.
			stopSavePrcpYN_SMMMO00110 = "Y";
            return false;	
		}else{
			if( SubmitTF_SMMMO00110  == false ){
				//´çÀÏ Ã³¹æÀúÀå ½ÇÆÐ, refresh ¾ÈÇÔ.
				stopSavePrcpYN_SMMMO00110 = "Y";
	            return false;	
			}else{
				stopSavePrcpYN_SMMMO00110 = "N";
				var diagNode = instance1.selectSingleNode( "/root/main/diaginfo/diagcdlist" + "[status = 'I' or status = 'U' or status = 'D']");
				var diagList = instance1.selectNodes( "/root/main/diaginfo/diagcdlist" + "[status = 'I' or status = 'U' or status = 'D']");
				if( diagNode != null ){
					for(var i=0; i<diagList.length; i++){
						var node = diagList.item(i);
						var statusNode = node.selectSingleNode("status");
						model.setValue(statusNode, "-");
					}
				}
				return true;
			}
		}
	}

	model.removeNodeset("/root/send/srchcond");
	model.removeNodeset("/root/send/steplist");
	model.makeNode("/root/send/srchcond");
	model.makeNode("/root/send/steplist");
	// ÀνºÅϽº¸í Áߺ¹À» ÇÇÇϱâ À§ÇØ, reqdata »èÁ¦
	model.removeNodeset ( "/root/send/reqdata" );
	model.removeNodeset ( "/root/send/savedata" );
	model.removenode("/root/save/saveflaginfo/cpsaveflag");		//ÀúÀå Àü, cpÀúÀ屸ºÐ ³ëµå »èÁ¦
	
	//2008.10.07
	if( flag != "U" ){
		if( instance1.selectSingleNode("/root/main/steppath/info" + "[stepstat = '10' and prcpdd='" + today + "']") != null ){
			//1. CP ¿øó¹æ ÀúÀå
			var todayPrcpNode = instance1.selectSingleNode("/root/main/prcpsrch/prcplist" + "[prcpdd='" + today + "' and status='I']");	//2008.08.30 I Ãß°¡
			if(cpTmpPrcpSaveYN_SMMMO00110 == "Y"){	//2009.03.10
				if( todayPrcpNode == null )
					copyNodeListType("/root/main/prcpsrch", "/root/main/prcp/prcplist[status='-' or status='I']", "replace", model, model);
				var todayPrcpNode = instance1.selectSingleNode("/root/main/prcp/prcplist" + "[status='I']");
			}
			
		}else{
			//2. Ãß°¡Ã³¹æ ÀúÀå ½Ã
			if( model.getValue("/root/init/prcpdd") == today ){
				var todayPrcpNode = instance1.selectSingleNode("/root/main/prcp/prcplist" + "[status='I' or staus='-']");	//2008.08.30 I Ãß°¡
			}else{
				var todayPrcpNode = null;
			}
		}
	} else {
		var todayPrcpNode = instance1.selectSingleNode("/root/main/prcpsrch/prcplist" + "[prcpdd='" + today + "' and (status='I' or status='-')]");	//2008.08.30 I Ãß°¡
	}
	
	//´çÀÏ------------->
	var appScopMode = model.getValue("/root/main/appscopmode"); //CPGÀÎ °æ¿ì, CPG½ºÅÜ/CP½ºÅÜ Àû¿ë ¸ðµå¸¦ ±¸ºÐÇÔ (2010.06.26)
	if( todayPrcpNode != null ){
	    /* [¹Ì¿Ï¼º1:¼ö¼úó¹æ(´çÀÏ)] ó¹æ¼ö¼úó¹æÀº ´çÀÏ, ¹Ì·¡ »ó°ü ¾øÀÌ ¹«Á¶°Ç ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ÀúÀå */
		var opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I' and prcpclscd='H2' and oprsrvno='0' and prcpdd='" + today + "' and anstcnfmneedyn!='N']");
		if( opNodeList.length > 0 && (cpgflagcd == "01" || (flag != "U" && cpgflagcd == "02" && appScopMode == "W")) ){
			//var opCSV = getNodeListCSV(opNodeList);
			fInvalPrcpTret(1, flag);		//¹Ì¿Ï¼ºÃ³¹æ(inval)À¸·Î ¼öµ¿À¸·Î º¯°æ
		}
		
		/* [¹Ì¿Ï¼º4:(´çÀÏ)] 1 or 2 day cp Åð¿ø¿¹°í ¾øÀÌ  ÁøÇàÇÑ °æ¿ì*/
		var dschdclrtyn = getPatientInfoDetail("dschdclrtyn");
		if( dschdclrtyn != "Y" ) {
    		var dschNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I' and (prcpkindcd = '60' or prcpkindcd = '70') and prcpdd='" + today + "']");
    		if( dschNodeList.length > 0 && (cpgflagcd == "01" || (flag != "U" && cpgflagcd == "02" && appScopMode == "W")) ){
    			fInvalPrcpTret(4, flag);		//¹Ì¿Ï¼ºÃ³¹æ(inval)À¸·Î ¼öµ¿À¸·Î º¯°æ
			}
		}
		
		if( flag != "U" ){
			if( instance1.selectSingleNode("/root/main/steppath/info" + "[stepstat = '10' and prcpdd='" + today + "']") != null && curSavePrcpFlag_SMMMO00110 == "" ){	//ÃÖÃÊ 1ȸ¸¸ addPrcp
				if( cpTmpPrcpSaveYN_SMMMO00110 != "Y" ){
					curSavePrcpFlag_SMMMO00110 = "N";
					//prcpsrch -> prcp ÀνºÅϽº·Î º¹»ç
					addPrcp("import", "/root/main/prcpsrch/prcplist[status!='S']", "/root/main/prcp",  "Y", "prcpdd", today, grd_formlist, "N", "05");
				}
			}
		}
		/* addPrcp ÀÌÈÄ, prcp ³ëµå¸®½ºÆ®°¡ ±¸¼ºµÇ¾ú´Ù¸é, ³ëµå¸®½ºÆ®¸¦ ÀçÁ¤ºñÇÑ´Ù. */
		//2008.10.07
		if( flag != "U" ){
			var prcpSrchNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[prcpdd='" + today + "' and (status='I' or status='-')]");	//2008.08.29 Ãß°¡Á¶°Ç
		}else{
			var prcpSrchNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[prcpdd='" + today + "' and status='I']");	//2008.08.29 Ãß°¡Á¶°Ç
		}
		
		var prcpNodeList = instance1.selectNodes("/root/main/prcp/prcplist");
		var prcpNodeListCnt = prcpNodeList.length;
		var groupFlag           = "";
		var groupInclprcpno     = "0";
		var groupHsctlnkno      = "0";
		var groupEtclnkspecNode = "-";
		var groupPrcpkindcd     = "10";	
		var srchRow = 0;
		var valynTxt = "";
		
		for(var i=0; i<prcpNodeListCnt; i++){
			srchRow++;
			var node = prcpNodeList.item(i);
			var statusNode         = node.selectSingleNode("status");
			var stepnoNode         = node.selectSingleNode("stepno");
			var stepnmNode         = node.selectSingleNode("stepnm");
			var setnoNode          = node.selectSingleNode("setno");
			var settypecdNode      = node.selectSingleNode("settypecd");
			var prcpddNode         = node.selectSingleNode("prcpdd");
			var incpltnresnNode    = node.selectSingleNode("incpltnresn");
			var prtlprcpnoNode     = node.selectSingleNode("prtlprcpno");
			var ordddNode          = node.selectSingleNode("orddd");
			
			var groupFlag          = node.selectSingleNode("grupsnglflag");
			var inclprcpnoNode     = node.selectSingleNode("inclprcpno");		//ÀÚÄÚµåÀÇ MSET ¸ðÄÚµå ¿¬°á¹øÈ£
			var hsctlnknoNode      = node.selectSingleNode("hsctlnkno");		  //ÀÚÄÚµåÀÇ BMTÁö½Ãó¹æ ¸ðÄÚµå ¿¬°á¹øÈ£
			
			var prcpkindcdNode     = node.selectSingleNode("prcpkindcd");
			var prcpinptflagNode   = node.selectSingleNode("prcpinptflag");
			var etclnkspecNode     = node.selectSingleNode("etclnkspec");
			var prcpclscdNode      = node.selectSingleNode("prcpclscd");
			var oprsrvnoNode       = node.selectSingleNode("oprsrvno");
			var anstcnfmneedynNode = node.selectSingleNode("anstcnfmneedyn");
			var valynNode          = node.selectSingleNode("valyn");
			if( valynNode != null ) var valynTxt = valynNode.text;
			
			var prcphopeddNode     = node.selectSingleNode("prcphopedd");
			if( prcphopeddNode != null ) var prcphopeddTxt = prcphopeddNode.text;
			
			if( (inclprcpnoNode != null || hsctlnknoNode != null) && groupFlag != null ){
				var ininclprcpnoText = inclprcpnoNode.text;
				var hsctlnknoText = hsctlnknoNode.text;
				if( isNull(ininclprcpnoText) ){
					ininclprcpnoText = "0";
				}
				if( isNull(hsctlnknoText) ){
					hsctlnknoText = "0";
				}
				
				if( parseInt(ininclprcpnoText) > 0 || parseInt(hsctlnknoText) > 0 ){
					//¸ðÄڵ尡 M/JÀ̸鼭, CPó¹æÀ̸é,
					// BMTÁö½Ãó¹æÀº hsctlnkno ·Î ó¸®
					if( groupFlag.text == "M" && prcpinptflagNode.text == "05" ){
						if( prcpclscdNode.text=="H2" && oprsrvnoNode.text=="0" && valynTxt!="¿Ï¼º" )break;
						if( dschdclrtyn != "Y" && (prcpkindcdNode.text == "60" || prcpkindcdNode.text == "70") )break;
						groupInclprcpno =  inclprcpnoNode.text;
						groupEtclnkspec = etclnkspecNode.text;
						groupPrcpkindcd = prcpkindcdNode.text;
						groupHsctlnkno = "0";
						
					} else if( groupFlag.text == "J" && prcpinptflagNode.text == "05" ){
						if( prcpclscdNode.text=="H2" && oprsrvnoNode.text=="0" && valynTxt!="¿Ï¼º" )break;
						if( dschdclrtyn != "Y" && (prcpkindcdNode.text == "60" || prcpkindcdNode.text == "70") )break;
						groupHsctlnkno   = hsctlnknoNode.text;
						groupEtclnkspec = etclnkspecNode.text;
						groupInclprcpno = "0";
						
					} else if(groupFlag.text == "S" && groupInclprcpno != "0"){
						//ÀÚÄÚµåÀ̸é, cpó¹æÀ¸·Î º¯È¯ÇÑ´Ù.
						if(groupInclprcpno == inclprcpnoNode.text){
							model.setValue(prcpinptflagNode, "05");
							model.setValue(etclnkspecNode,   groupEtclnkspec);
							model.setValue(prcpkindcdNode,   groupPrcpkindcd);		//ó¹æÁ¾·ù°¡ »ç¶óÁö¹Ç·Î, °­Á¦ ¼ÂÆÃ
						}
					} else if(groupFlag.text == "S" && groupHsctlnkno != "0"){
						//ÀÚÄÚµåÀ̸é, cpó¹æÀ¸·Î º¯È¯ÇÑ´Ù.
						if(groupHsctlnkno == hsctlnknoNode.text){
							model.setValue(prcpinptflagNode, "05");
							model.setValue(etclnkspecNode,   groupEtclnkspec);
						}
					}
				}
			}
			
			/* ÀúÀåÇÒ prcp ³ëµå¸®½ºÆ®¸¦ µ¿ÀÏÇÑ ³ëµå¼Â ÇüÅ×·Î ¸¸µé±â À§ÇØ, ÇÊ¿ä¾ø´Â ³ëµåµéÀ» »èÁ¦ÇÑ´Ù. */
			if(stepnoNode != null) {model.removenode(stepnoNode);}
			if(stepnmNode != null) {model.removenode(stepnmNode);}
			if(anstcnfmneedynNode != null) {model.removenode(anstcnfmneedynNode);}
			if( flag != "U" ){
				//´Ù½Ã »èÁ¦ ó¸® (2008.08.31)
				if(prcpddNode  != null){model.removenode(prcpddNode);}
				if(incpltnresnNode  != null){model.removenode(incpltnresnNode);}
			}
			if(ordddNode  != null){model.removenode(ordddNode);}
			if(prtlprcpnoNode  != null){
				if(flag != "U") model.removenode(prtlprcpnoNode);	//Á¶°Ç add(2008.11.28)
				//¹Ì¿Ï¼ºÃ³¹æ ±×¸®µå¿¡¼­ ´çÀϹ̿ϼº ¼öÁ¤ÇÒ °æ¿ì, cpó¹æÀ¸·Î °£ÁֵǾî¾ß ÇÔ.
				model.setValue(prcpinptflagNode, "05");
				model.setValue(etclnkspecNode,   etclnkspecValue_SMMMO00110);
			}
			
			if( statusNode.text != "-" && statusNode.text != "S" ){		//flag == "U" &&  2009.03.10 Á¦¿Ü
				if( groupFlag.text == "M" || groupFlag.text == "J" ){
					var vSrchRow = srchRow;
					groupFlagRow = srchRow;
					
					if( prcpclscdNode.text=="H2" && oprsrvnoNode.text=="0" && valynTxt!="¿Ï¼º" )break;
					if( dschdclrtyn != "Y" && (prcpkindcdNode.text == "60" || prcpkindcdNode.text == "70") )break;
					if( groupFlag.text == "M" && inclprcpnoNode.text != "0" )break;
					if( groupFlag.text == "J" && hsctlnknoNode.text != "0" )break;
					
					model.resetInstanceNode ( "/root/temp1/addprcp" );
					for(var j=prcpNodeListCnt ; j>srchRow ; j--){
						fAppendSaveNode( "/root/temp1/addprcp", "/root/main/prcp/prcplist["+j+"]" );
						model.removeNodeset("/root/main/prcp/prcplist["+j+"]");
					}
					
					srchRow = fCheckCpPrcp("import", "/root/main/prcp/prcplist", "/root/main/prcp", groupFlagRow, srchRow, "05" );
					
					if( srchRow == 0 ){
						cnt++;
						srchRow = vSrchRow; //º¹»çµÈ °ªÀÌ ¾ø¾î srchrow°¡ ¾øÀ¸¸é ±âÁ¸ srchrow·Î ´Ù½Ã ½ÃÀÛÇÔ
					}else{
						groupFlagRow = 0;
						model.removeNodeset("/root/main/prcp/prcplist[("+srchRow+")]");
						
						grd_prcplist.refresh();
						model.recalculate();
						
						--srchRow;
						i = srchRow-1;
						
						var addPrcpNodeList = instance1.selectNodes("/root/temp1/addprcp/prcplist");
						for(var j=addPrcpNodeList.length ; j>=1 ; j--){
							var statusTxt = model.getValue("/root/temp1/addprcp/prcplist["+j+"]/status");
							var prcpnmTxt = model.getValue("/root/temp1/addprcp/prcplist["+j+"]/prcpcd");
							//alert(statusTxt + " , " + prcpnmTxt);
							fAppendSaveNode( "/root/main/prcp", "/root/temp1/addprcp/prcplist["+j+"]" );
							model.removeNodeset("/root/temp1/addprcp/prcplist["+j+"]");
						}
						grd_prcplist.refresh();
						model.recalculate();
						
						prcpNodeList = instance1.selectNodes("/root/main/prcp/prcplist");
						prcpNodeListCnt = prcpNodeList.length;
					}
					
				}else{
					groupFlagRow = 0;
					var iPrcpInptFlag = model.getValue("/root/main/prcp/prcplist[" + srchRow + "]/prcpinptflag");
					addPrcpSetValue( "main", "/root/main/prcp/prcplist" , srchRow, "05"); 
					//¡Ú»èÁ¦ ¹Ì·¡Ã³¹æ Á¸ÀçÇÒ °æ¿ì, status°¡ I·Î return µÇ±â ¶§¹®¿¡, ´Ù½Ã 'D"·Î ¼ÂÆÃ
					if( stsText == "D" ){
						model.setValue("/root/main/prcp/prcplist[" + srchRow + "]/status", "D");
					}else if( stsText == "-" ){
						model.setValue("/root/main/prcp/prcplist[" + srchRow + "]/status", "-");
					}
				}
				
			}	//end if(flag == "U")
			
			//s ÀÀ±ÞȯÀÚ admission, Á¤±Ô, ¿ÜÃâ¿Ü¹Ú ó¹æ ºÒ°¡ ó¸® (2008.12.30)
			if ( prcpgenrflag == "E" && (prcpkindcdNode.text == "00" || prcpkindcdNode.text == "10" || prcpkindcdNode.text == "50") ) {
				//messageBox ( "ÀÀ±ÞȯÀÚ´Â Admission, Á¤±Ô, ¿ÜÃâ¿Ü¹Ú ó¹æÀ» µî·ÏÇÏ½Ç ¼ö", "I004" );
				model.setValue(prcpkindcdNode, "20");	//Ãß°¡Ã³¹æÀ¸·Î ´ë½Å ³¿.
				setParameter("CheckPrcpKind01_SMMMO00110", "Y");
				
			}else if( model.getValue( "/root/initsrchprcp/prcpetccnts/admiprcpyn") != "Y" && prcpkindcdNode.text == "00" ){
				//messageBox ( "Admission ó¹æÀº 1ȸ¸¸", "I006"  );
					model.setValue(prcpkindcdNode, "20");	//Ãß°¡Ã³¹æÀ¸·Î ´ë½Å ³¿.
					setParameter("CheckPrcpKind02_SMMMO00110", "Y");
			}//e
			
			//CPG+CP ¿¡¼­ CP½ºÅÜÀÇ prcphopeddNode(ó¹æÈñ¸ÁÀÏÀÚ)´Â Çش糯¥·Î º¯°æÇØÁÜ (2010.06.26)
			if( flag != "U" && cpgflagcd == "02" && appScopMode == "W" ){
				//prcpdd or stepno or setno+settypecd
				if(statusNode.text != "-" && statusNode.text != "S" && setnoNode != null && settypecdNode != null ){ // && settypecdNode.text == "W"
					prcphopeddTxt = model.getValue("/root/main/steppath/info[setno='"+setnoNode.text+"' and settypecd='"+settypecdNode.text+"']/orgprcpdd");
					//model.removenode(setnoNode);
					//model.removenode(settypecdNode);
				}
			}
			
			//ó¹æ Èñ¸ÁÀÏÀÚ°¡ ÀúÀý·Î ¿øº¹µÇ´Â ¹®Á¦ Á¶Ä¡ (2010.06.26 JJE)
			model.setValue(prcphopeddNode,   prcphopeddTxt);
		}	//end for
		model.setValue("/root/main/appscopmode", ""); //ÃÖÃʸ¸ prcphopedd¸¦ default·Î ¼³Á¤, ÀÌÈÄ¿¡´Â º¯°æÇÑ ´ë·Î ÁöÁ¤µÇµµ·Ï ÇϱâÀ§ÇÔ (2010.06.26 JJE)
		
		clearParameter("CheckPrcpKind01_SMMMO00110");
		clearParameter("CheckPrcpKind02_SMMMO00110");
		
		model.removeNodeset("/root/send/savedata/master");
		/* Àû¿ë»óÅÂ(appstat) ¹× ½ºÅÜ»óÅÂ(stepstat) ÀúÀåÇϱâ À§ÇÑ µ¥ÀÌÅÍ ±¸¼º */
		if( cpgflagcd == "01" && prcpgenrflag == "O"){
			model.makeValue("/root/send/srchcond/srchcond"  , "C");
			model.makeValue("/root/send/srchcond/cpgappno"  , model.getValue("/root/temp1/getdata/cpgappno"));		//2008.06.23 Ç®¾îÁáÀ½
			model.makeValue("/root/send/srchcond/cpgno"     , model.getValue("/root/main/masterinfo/info/cpgno"));	//2008.07.31 Ãß°¡
			model.makeValue("/root/send/srchcond/cpghistseq", model.getValue("/root/main/masterinfo/info/cpghistseq"));	//2008.07.31 Ãß°¡
			model.makeValue("/root/send/srchcond/cpgflagcd" , model.getValue("/root/main/masterinfo/info/cpgflagcd"));	//2009.02.16 Ãß°¡
			if( cpgIoFlag == "O" ){
				//(1). ¿Ü·¡È¯ÀÚÀ̸鼭 ¿Ü·¡CPÀ̸é, ó¹æÀÏÀÌ ´çÀÏÀÎ ½ºÅܸ¸ ¹ßÇà.
				var nodeList = instance1.selectNodes("/root/main/steppath/info" + "[prcpdd='" + today + "' and stepstat='10']");
				model.makeValue("/root/send/srchcond/appstat", "10");		//ÁøÇàÁß
			}else{
				//(2). ¿Ü·¡È¯ÀÚÀ̸鼭, D0°¡ step ÀÌ ÀÖ´Ù¸é, D0 ½ºÅÜÀÇ Ã³¹æ¸¸À» ½Çó¹æÀ¸·Î ÀúÀåÇÏ°í, cpÀû¿ëȯÀÚ¸®½ºÆ®¿¡ appstat¸¦ 12(ÀÔ¿øÇÊ¿ä)·Î ¹Ù²Û´Ù
				//¿Ü·¡È¯ÀÚÀ̸鼭, ÀÔ¿øCP(D0)À̸é, D0 ó¹æ¸¸ ¹ßÇà °¡´ÉÇϹǷΠD1ºÎÅÍ ½ºÅÜÁ¤º¸¸¦ ÀúÀåÇÒ ÇÊ¿ä°¡ ¾øÀ½.
				var nodeList = instance1.selectNodes("/root/main/steppath/info" + "[times='0' and stepstat='10']");
				model.makeValue("/root/send/srchcond/appstat", "12");		//ÀÔ¿øÇÊ¿ä
			}
			var stepCSV = getNodeListCSV(nodeList);
			model.makeValue("/root/send/steplist", stepCSV);
			
		}else{
			//(3). ÀÔ¿ø ȤÀº DSCȯÀÚ µîÀÇ °æ¿ì, ÇÏ·çÄ¡ ´çÀÏ Ã³¹æ¸¸ ÀúÀåÇÑ °æ¿ì, »óÅ°ªÀ» ¹Ù²ãÁÖ°í, return
			model.makeValue("/root/send/srchcond/srchcond", "C");
			model.makeValue("/root/send/srchcond/cpgappno", model.getValue("/root/temp1/getdata/cpgappno"));		//2008.06.23 Ç®¾îÁáÀ½
			model.makeValue("/root/send/srchcond/cpgno"     , model.getValue("/root/main/masterinfo/info/cpgno"));	//2008.07.31 Ãß°¡
			model.makeValue("/root/send/srchcond/cpghistseq", model.getValue("/root/main/masterinfo/info/cpghistseq"));	//2008.07.31 Ãß°¡
			model.makeValue("/root/send/srchcond/cpgflagcd" , model.getValue("/root/main/masterinfo/info/cpgflagcd"));	//2009.02.16 Ãß°¡
			
			if( cpgflagcd == "01" ){ //CPÀ϶§ÀÇ appstat º¯°æ ±âÁØ
				var trgNodeLngth = instance1.selectNodes("/root/main/steppath/info").length;
				var lastPrcpDD = model.getValue("/root/main/steppath/info[" + trgNodeLngth + "]/prcpdd");
				var nxtDate = new Date().getAddDate(1, "D").getDateFormat();
				
				
				if( lastPrcpDD == today && model.getValue("/root/main/masterinfo/info/fcstinhospdayno") == "1" && parseInt(model.getValue("/root/temp1/getdata/appstat")) < 30 ){
				    //ÇÏ·çÂ¥¸® case Ãß°¡ (2009.05.25)
					model.makeValue("/root/send/srchcond/appstat", "30");	//ÇÏ·çÂ¥¸® CPÀ̹ǷΠ30
				} else if( (lastPrcpDD == today || (lastPrcpDD == nxtDate && getCurrentTime() >= sCpBatchTime)) && model.getValue("/root/main/masterinfo/info/fcstinhospdayno") != "1" ){
				    //¸¶Áö¸·½ºÅÜó¹æ¹ßÇà(30) À¸·Î º¸³ÂÀ¸³ª, ÀÌÀü »óÅ º¯°æ ¾øµµ·Ï null º¸³¿(2009.03.16)
					model.makeValue("/root/send/srchcond/appstat", "");
				} else {
				    //¸¶Áö¸· ½ºÅÜ Ã³¹æÀÏ ÀüÀÏ ¸¶Áö¸· ½ºÅÜÀÇ Ã³¹æÀÌ ½Çó¹æ ¹ßÇàµÈ »óÅ¿¡¼­, ÀÍÀÏ Ãß°¡Ã³¹æ ÀúÀå ½Ã appstat 30->10À¸·Î ¹Ù²îÁö ¾Êµµ·Ï ó¸® (2008.10.16 JJE)
					if( parseInt(model.getValue("/root/temp1/getdata/appstat")) < 30 ){
						model.makeValue("/root/send/srchcond/appstat", "10");		//ÁøÇàÁß(10) ȤÀº ¸¶Áö¸·½ºÅÜó¹æ¹ßÇà(30)
					}
				}
			}else { //CPGÀ϶§ÀÇ appstat º¯°æ ±âÁØ
				var swimLineNo = model.getValue("/root/main/masterinfo/info/swimlineno");
				if( model.getValue("/root/main/steppath/info[swimlineno = '" + swimLineNo + "']/savestatus") == "I" ){
					model.makeValue("/root/send/srchcond/appstat", "30");		//ÁøÇàÁß(10) ȤÀº ¸¶Áö¸·½ºÅÜó¹æ¹ßÇà(30)
				}else{
					//¸¶Áö¸· ½ºÅÜ Ã³¹æÀÏ ÀüÀÏ ¸¶Áö¸· ½ºÅÜÀÇ Ã³¹æÀÌ ½Çó¹æ ¹ßÇàµÈ »óÅ¿¡¼­, ÀÍÀÏ Ãß°¡Ã³¹æ ÀúÀå ½Ã appstat 30->10À¸·Î ¹Ù²îÁö ¾Êµµ·Ï ó¸® (2008.10.16 JJE)
					if( parseInt(model.getValue("/root/temp1/getdata/appstat")) < 30 ){
						model.makeValue("/root/send/srchcond/appstat", "10");		//ÁøÇàÁß(10) ȤÀº ¸¶Áö¸·½ºÅÜó¹æ¹ßÇà(30)
					}
				}
			}
			
			var nodeList = instance1.selectNodes("/root/main/steppath/info" + "[stepstat='10' and (prcpdd='" + today + "' and savestatus!='-')]");  //2009.06.23 or->and
			var stepCSV = getNodeListCSV(nodeList);
			model.makeValue("/root/send/steplist", stepCSV);
		}

		/* 1. PRCPDD°¡ ¿À´Ã ³¯Â¥ÀΠó¹æµéÀº µû·Î ½Çó¹æ ÀúÀåÀ» ¸ÕÀú ÇÑ´Ù (ó¹æ ·ÎÁ÷À» ±×´ë·Î µû¸¥´Ù) */
		SubmitTF_SMMMO00110 = false;	//TXMMP00803, TXMMP00804 ¼öÇà °á°ú true À̸é SubmitTF_SMMMO00110 = true
		if( flag != "U" ){
			if( instance1.selectSingleNode("/root/main/steppath/info" + "[stepstat = '10' and prcpdd='" + today + "']") != null ){
				var prcpSrchNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[prcpdd='" + today + "' and status='I' or status='-']");	//2008.08.29 Ãß°¡Á¶°Ç
			}else{
				var prcpSrchNodeList = instance1.selectSingleNode("/root/main/prcp/prcplist" + "[status='I' or status='-']");
			}
			
		}else{
			var prcpSrchNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[prcpdd='" + today + "' and status='I']");	//2008.08.29 Ãß°¡Á¶°Ç
		}
		
		if(prcpSrchNodeList.length > 0){
			if( flag != "U" ){
				var saveSrc = "/root/main/prcp/prcplist";
			}else{
				var saveSrc = "/root/main/prcp/prcplist[status='I']";
			}
			fPrcpSave( "0", "0", saveSrc );
			
			if( SubmitTF_SMMMO00110  == false ){
				//´çÀÏ Ã³¹æÀúÀå ½ÇÆÐ, refresh ¾ÈÇÔ.
				stopSavePrcpYN_SMMMO00110 = "Y";
				return;
				
			}else{
				//´çÀÏó¹æÀúÀå ¼º°ø, ¹Ì·¡Ã³¹æÀÌ Á¸ÀçÇÑ´Ù¸é, ó¹æÀúÀåÀ» °è¼Ó ÁøÇà
				var diagNode = instance1.selectSingleNode( "/root/main/diaginfo/diagcdlist" + "[status = 'I' or status = 'U' or status = 'D']");
				var diagList = instance1.selectNodes     ( "/root/main/diaginfo/diagcdlist" + "[status = 'I' or status = 'U' or status = 'D']");
				if( diagNode != null ){
					//Áø´Ü Äڵ尡 ÀÖÀ¸¸é, ÀúÀå falg¸¦ '-'·Î ¹Ù²Û´Ù (Á¦´ë·Î µ¹¾Æ°£´Ù¸é, ÀÌ ºÎºÐÀÌ ÇÊ¿ä°¡ ¾ø´ÂÁö È®ÀÎ)
					for(var i=diagList.length-1; i>=0; i--){
						var node = diagList.item(i);
						var statusNode = node.selectSingleNode("status");
						if(statusNode.text == "D"){
							model.removeNodeset("/root/main/diaginfo/diagcdlist["+(i+1)+"]");
						}else{
							model.setValue(statusNode, "-");
						}
					}
					//grd_diaglist.refresh();
				}
				//alert(diagNode.xml);
				questionYN_SMMMO00110 = "Y";
				stopSavePrcpYN_SMMMO00110 = "N";
				var nodeInvalPrcpList = model.instance1.selectSingleNode("/root/main/invalprcplist/prcplist");
				if(nodeInvalPrcpList != null && nodeInvalPrcpList.length > 0){		//2008.09.30
					ErrExistYN_SMMMO00110 = "Y";		//´çÀÏ Ã³¹æ ÀúÀå Áß ¹Ì¿Ï¼ºÃ³¹æÀÌ ÀÖ´Ù¸é, Y
				}
				model.removeNodeset("/root/main/prcp/prcplist[status != 'S']");
				model.removeNodeset("/root/result/saveinvaliprcplist");
				model.removeNodeset("/root/send/saveinvaliprcplist");
				model.removeNodeset("/root/result/errprcplist");
				model.removeNodeset("/root/result/prcperrlist");			//ó¹æ¿À·ù(Æ˾÷) µ¥ÀÌÅÍ »èÁ¦
				model.removeNodeset("/root/send/errprcplist");
				
				// ÀνºÅϽº¸í Áߺ¹À» ÇÇÇϱâ À§ÇØ, reqdata »èÁ¦(2008.08.28)
				model.removeNodeset ( "/root/send/reqdata" );
				model.removeNodeset ( "/root/send/savedata" );
				
				// ¿øÀ§Ä¡
				if( cpgIoFlag == "O" || prcpgenrflag == "O" || instance1.selectSingleNode("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']") == null){
					model.removeNodeset("/root/main/prcpsrch/prcplist");
					return;
				}
			}	//ó¹æÀúÀå END if
		}else{
			//¿¹¿Ü5: ´çÀÏ Ã³¹æ ¸ðµÎ°¡, ¹Ì¿Ï¼º ó¹æÀÏ °æ¿ì..
			//alert("¿¹¿Ü5, ¿À´Ã³¯Â¥ ó¹æ Áß ¹Ì¿Ï¼º¸¸ Á¸ÀçÇÔ");
			fSetSavrPrcpInfo();	//ÀúÀå½Ã ÇÊ¿äÇÑ µ¥ÀÌÅ͸¦ ÀÓÀÇ·Î ±¸¼ºÇÔ
			if( !submit("TXMMP00803", false) ){
				stopSavePrcpYN_SMMMO00110 = "Y";
				return false;
			}else{
				questionYN_SMMMO00110 = "Y";
				stopSavePrcpYN_SMMMO00110 = "N";
				model.removeNodeset("root/result");
				model.makeNode("root/result");
				model.removeNodeset("root/send/delprcplist");
				model.removeNodeset("root/send/errprcplist");
				model.removeNodeset("root/send/saveinvaliprcplist");
				//¹Ì·¡Ã³¹æµµ ¾ø´Ù¸é ´õÀÌ»ó ÀúÀåÇÒ µ¥ÀÌÅÍ°¡ ¾øÀ¸¹Ç·Î, return
				if( instance1.selectSingleNode("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']") == null ){
					model.removeNodeset("/root/main/prcpsrch/prcplist");
					return true;
				}
			}
		}
		//´çÀÏÀÚ Ã³¹æÀÌ ÀÖÀ» ¶§, END
	} else{
		stopSavePrcpYN_SMMMO00110 = "N";
	}
	
	if(stopSavePrcpYN_SMMMO00110 == "Y") return;
	
	if ( SubmitTF_SMMMO00110 == "Y" ){
		saveNum_SMMMO00110 = 1;
	}
	
	/* ------------------------------------------------------------------------------------------------------------------------------------------------------------- */
	//¹Ì·¡------------->
	//(ÇÁ·ÎÅäÄÝ Å×À̺í ÀúÀå + ÇÁ·ÎÅäÄÝó¹æ ÀÎÁõÀúÀå)
	/* [¹Ì¿Ï¼º2:¼ö¼úó¹æ] ó¹æ¼ö¼úó¹æÀº ´çÀÏ, ¹Ì·¡ »ó°ü ¾øÀÌ ¹«Á¶°Ç ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ÀúÀå */
	var opNodeList = instance1.selectNodes("/root/main/prcpsrch/prcplist[status='I' and prcpclscd='H2' and oprsrvno='0' and prcpdd>'" + today + "' and anstcnfmneedyn!='N']");
	if( opNodeList.length > 0 ){
		//var opCSV = getNodeListCSV(opNodeList);
		fInvalPrcpTret(2, flag);		//¹Ì¿Ï¼ºÃ³¹æ(inval)À¸·Î ¼öµ¿À¸·Î º¯°æ
	}

	if( flag != "U" ){
	    var dayCntList = instance1.selectNodes("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']");
		if(dayCntList.length > 0){
			model.removeNodeset("/root/main/prcpsrch/prcplist[prcpdd <='" + today + "']");
			curSavePrcpFlag_SMMMO00110 = "T";
			//prcpsrch -> prcp
			addPrcp("import", "/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']", "/root/main/prcp",  "Y", "status", "I", grd_prcplist, "N", "05");
		}
	}
	
	var nodelist = instance1.selectNodes("/root/main/prcp/prcplist");
	var srchNodelist = instance1.selectNodes("/root/main/prcpsrch/prcplist");
	var srchRow = 0;
	var groupFlagRow = 0;
	var cnt = 0;
	var nodelistLength = nodelist.length;
	var valynTxt = "";
	
	if(nodelist.length > 0){
		for(var i=0; i<nodelistLength; i++){
			srchRow++;
			
			var node = nodelist.item(i);
			var prcpClsCd      = node.selectSingleNode("prcpclscd");
		    var prcpKindCd     = node.selectSingleNode("prcpkindcd");
		    var drugmthdspccd  = node.selectSingleNode("drugmthdspccd");
		    var prcpnm         = node.selectSingleNode("prcpnm"); 
		    var drugmastspec   = node.selectSingleNode("drugmastspec")  + "^";
			var statusNode     = node.selectSingleNode("status");
			var stsText        = statusNode.text; 
			var etclnkspecNode = node.selectSingleNode("etclnkspec");		// if( statusNode.text == "I" ) model.setValue(etclnkspecNode, etclnkspecValue_SMMMO00110);
			var stepnoNode     = node.selectSingleNode("stepno");
			var stepnmNode     = node.selectSingleNode("stepnm");
			var prcpddNode     = node.selectSingleNode("prcpdd");
			var prcphopeddNode = node.selectSingleNode("prcphopedd");
			var rsrvddNode     = node.selectSingleNode("rsrvdd");
			var oprsrvno       = node.selectSingleNode("oprsrvno");
			
			var dschdclrtyn    = getPatientInfoDetail("dschdclrtyn");
			var valynNode      = node.selectSingleNode("valyn");
			if( valynNode != null ) valynTxt = valynNode.text;
			var anstcnfmneedynNode = node.selectSingleNode("anstcnfmneedyn");
			if(anstcnfmneedynNode != null) {model.removenode(anstcnfmneedynNode);}
			
			if(prcpddNode != null && !isNull(prcpddNode.text)){
				model.setValue ( "/root/init/prcpdd", prcpddNode.text );
				if(prcphopeddNode != null && !isNull(prcpddNode.text)){
				    model.setValue(prcphopeddNode, prcpddNode.text);
				}
			}
			var groupFlag      =  node.selectSingleNode("grupsnglflag");
			var inclprcpnoNode =  node.selectSingleNode("inclprcpno");
			var hsctlnknoNode  =  node.selectSingleNode("hsctlnkno");
			var prcpInptFlag = "05";		//cpó¹æ

			if( flag == "U" && stsText != "-" ){
				if( groupFlag.text == "M" || groupFlag.text == "J" ){
					var vSrchRow = srchRow;
					groupFlagRow = srchRow;
					
					if( prcpClsCd.text=="H2" && oprsrvno.text=="0" && valynTxt!="¿Ï¼º" )break;
					if( dschdclrtyn != "Y" && (prcpKindCd.text == "60" || prcpKindCd.text == "70") )break;
					if( groupFlag.text == "M" && inclprcpnoNode.text != "0" )break;
					if( groupFlag.text == "J" && hsctlnknoNode.text != "0" )break;
					
					model.resetInstanceNode ( "/root/temp1/addprcp" );
					for(var j=prcpNodeListCnt ; j>srchRow ; j--){
						fAppendSaveNode( "/root/temp1/addprcp", "/root/main/prcp/prcplist["+j+"]" );
						model.removeNodeset("/root/main/prcp/prcplist["+j+"]");
					}
					
					srchRow = fCheckCpPrcp("import", "/root/main/prcp/prcplist", "/root/main/prcp", groupFlagRow, srchRow, "05" );
					
					if( srchRow == 0 ){
						cnt++;
						srchRow = vSrchRow; //º¹»çµÈ °ªÀÌ ¾ø¾î srchrow°¡ ¾øÀ¸¸é ±âÁ¸ srchrow·Î ´Ù½Ã ½ÃÀÛÇÔ
					}else{
						groupFlagRow = 0;
						model.removeNodeset("/root/main/prcp/prcplist[("+srchRow+")]");
						
						grd_prcplist.refresh();
						model.recalculate();
						
						//srchRow = instance1.selectNodes("/root/main/prcp/prcplist").length-1;
						--srchRow;
						i = srchRow-1;
						
						var addPrcpNodeList = instance1.selectNodes("/root/temp1/addprcp/prcplist");
						for(var j=addPrcpNodeList.length ; j>=1 ; j--){
							var statusTxt = model.getValue("/root/temp1/addprcp/prcplist["+j+"]/status");
							var prcpnmTxt = model.getValue("/root/temp1/addprcp/prcplist["+j+"]/prcpcd");
							//alert(statusTxt + " , " + prcpnmTxt);
							fAppendSaveNode( "/root/main/prcp", "/root/temp1/addprcp/prcplist["+j+"]" );
							model.removeNodeset("/root/temp1/addprcp/prcplist["+j+"]");
						}
						grd_prcplist.refresh();
						model.recalculate();
						
						prcpNodeList = instance1.selectNodes("/root/main/prcp/prcplist");		//´Ù½Ã..
						prcpNodeListCnt = prcpNodeList.length;
					}
				}else{
					groupFlagRow = 0;
					var iPrcpInptFlag = model.getValue("/root/main/prcp/prcplist[" + srchRow + "]/prcpinptflag");
					addPrcpSetValue( "import", "/root/main/prcp/prcplist" , srchRow, "05"); 
					if( stsText == "D" ){
						model.setValue("/root/main/prcp/prcplist[" + srchRow + "]/status", "D");
					}else if( stsText == "-" ){
						model.setValue("/root/main/prcp/prcplist[" + srchRow + "]/status", "-");
					}
				}
			} else if( flag != "U" && ivw_detail.visible == true && stsText == "I" ){
			    /* after (ȯÀÚ°èȹǥ¿¡¼­ 'Ãß°¡' ½Ã ¹Ì¸® addprcp ¼öÇàµÇ¾úÀ¸¹Ç·Î addprcpSetValue() ¼öÇà¾ÈµÇ¾îµµ µÊ. 2Áß È£Ãâ. but, '¼öÁ¤' ½Ã´Â addprcpSetValue°¡ ¼öÇàµÇ¾î¾ß ÇÔ. 2008.12.02) */
				//ȯÀÚ°èȹǥ¿¡¼­ Ãß°¡/¼öÁ¤ÇÑ Ã³¹æ ÀúÀåÇÏ´Â °æ¿ì, addPrcpSetValue() prcppkspec, pampkspec µî ±¸¼ºÀ» À§ÇØ ÇÊ¿ä (2008.10.31 JJE)
				if(DetlNodeList.length > 0 && curSavePrcpFlag_SMMMO00110 != "T") addPrcpSetValue( "import", "/root/main/prcp/prcplist" , srchRow, "05"); 
			}	//add (after end)
		}
	}

	//½ÇÁ¦ ÀúÀå ½ÃÀÛ
	fClearSaveInstance();
	SubmitTF_SMMMO00110 = false;
	/* after */
	var iPrcpddNode = instance1.selectSingleNode("/root/main/steppath/info[prcpdd > '"+today+"' and stepstat = '10']/prcpdd");
	if( imp_prcp.visible == true && iPrcpddNode == null && flag != "U" && parseInt(model.getValue("/root/init/prcpdd")) > parseInt(today) && instance1.selectSingleNode("/root/main/prcp/prcplist[status='I' or status='-']") != null ){
		//(1) ¹Ì·¡ÀÏÀÚÀÌÁö¸¸ ó¹æ ÀúÀå ÇÁ·Î¼¼½º¸¦ µû¶ó°¡´Â °æ¿ì...!
		prtlFlag_SMMMO00110 = "-";
		fPrcpSave( "0", "0", "/root/main/prcp/prcplist" );
		
		prtlFlag_SMMMO00110 = model.getValue("/root/main/masterinfo/info/cpgflagcd");
		
		if( SubmitTF_SMMMO00110  == false ){
			//´çÀÏ Ã³¹æÀúÀå ½ÇÆÐ, refresh ¾ÈÇÔ.
			stopSavePrcpYN_SMMMO00110 = "Y";
			return;
		}else{
			//´çÀÏó¹æÀúÀå ¼º°ø, ¹Ì·¡Ã³¹æÀÌ Á¸ÀçÇÑ´Ù¸é, ó¹æÀúÀåÀ» °è¼Ó ÁøÇà
			questionYN_SMMMO00110 = "Y";
			stopSavePrcpYN_SMMMO00110 = "N";
			
			model.removeNodeset("/root/main/prcp/prcplist[status != 'S']");
			model.removeNodeset("/root/result/saveinvaliprcplist");
			model.removeNodeset("/root/send/saveinvaliprcplist");
			model.removeNodeset("/root/result/errprcplist");
			model.removeNodeset("/root/result/prcperrlist");			//ó¹æ¿À·ù(Æ˾÷) µ¥ÀÌÅÍ »èÁ¦
			model.removeNodeset("/root/send/errprcplist");
			model.removeNodeset ( "/root/send/reqdata" );
			model.removeNodeset ( "/root/send/savedata" );
			return;
		}	//ó¹æÀúÀå END if
	} else {
		//(2) cp ¹Ì·¡Ã³¹æ ÀúÀå
		if( fPrcpDCSave_CP(prcpflag, rtnpstn, flag) != false ){
			questionYN_SMMMO00110 = "N";
			stopSavePrcpYN_SMMMO00110 = "N";
			
			//JJE 2008.10.09 (s)
			model.removeNodeset("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']");
			if( flag != "U" && !isNull(ivw_detail.src) ){
				ivw_detail.model.removeNodeset("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']");
			}
			//(e)
		}else{
			model.removeNodeset("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']");
			if( flag != "U" && !isNull(ivw_detail.src) ){
				ivw_detail.model.removeNodeset("/root/main/prcpsrch/prcplist[prcpdd >'" + today + "']");
			}
			return false;
		}	//ÇÁ·ÎÅäÄÝó¹æ ÀúÀå end
	
	}	//add(after end)
	
	model.setValue( "/root/init/prcpdd", today );
}

/**
 * @group  :
 * @ver   
 : 2007.09
 * @by     : ÀüÁöÀº
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : TRMMP00803 À» °ÅÄ¡Áö ¾Ê°í ¹Ù·Î ÀúÀåÇÏ´Â °æ¿ì, ÀúÀå½Ã ÇÊ¿äÇÑ µ¥ÀÌÅ͸¦ ÀÓÀÇ·Î ±¸¼ºÇÔ
 * @param : 
 * @return :
 * @---------------------------------------------------
 */
function fSetSavrPrcpInfo(){
		var prcpgenrflag = model.getValue("/root/patflag/list/prcpgenrflag");
		
		//ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo)
		model.removeNodeset("/root/send/cond1");
		model.makeNode("/root/send/cond1");
		model.makeValue ( "/root/save/saveflaginfo/savedataflag", 2 );
		model.makeValue ( "/root/save/saveflaginfo/saveflag"    , prcpgenrflag );
		model.makeValue ( "/root/save/saveflaginfo/prcpflag"    , "0" );
		model.makeValue ( "/root/save/saveflaginfo/inptflag"    , "0" );
		model.makeValue ( "/root/save/saveflaginfo/deptcd"      , getUserInfo("dutplcecd"));
		model.makeValue ( "/root/save/saveflaginfo/deptnm"      , getUserInfo("dutplcenm"));
		model.makeValue ( "/root/save/saveflaginfo/userid"      , getUserInfo("userid"));
		model.makeValue ( "/root/save/saveflaginfo/usernm"      , getUserInfo("usernm"));
		model.makeValue ( "/root/save/saveflaginfo/signyn"      , "Y" );
		model.makeValue ( "/root/save/saveflaginfo/prcpdd"      , getCurrentDate() );
		model.makeValue ( "/root/save/saveflaginfo/divyn"       , "N" );
		model.makeValue ( "/root/save/saveflaginfo/prtlflag"		 , prtlFlag_SMMMO00110 );
		
		model.makeValue ( "/root/save/saveflaginfo/prtlprcpstatus" , "U" );
		/*
		model.makeValue ( "/root/save/saveflaginfo/isstimes"		 , "" );
		model.makeValue ( "/root/save/saveflaginfo/isssteps"		 , "" );
		model.makeValue ( "/root/save/saveflaginfo/steparray"		 , "" );
		*/
		model.makeValue ( "/root/save/saveflaginfo/cpsaveflag"  , "T" );
		
		var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );
		model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
		
		//saveRgstInfo µ¥ÀÌÅÍ ±¸¼º
		
		model.makeNode("/root/send/cond2/savepamlist");
		model.copyNode( "/root/send/cond2", "/root/paminfo/list" ); //¿ø¹«Á¤º¸ ÀúÀåµ¥ÀÌÅÍ
		
		var savepamlist = model.instance1.selectSingleNode( "/root/send/cond2" );
		var childNodeList = savepamlist.childNodes;
		for( var k=0; k<childNodeList.length; k++ ){
			var iNode = childNodeList.item(k);
			iNode.nodeName = "pam_" + iNode.nodeName;
		}
		model.makeValue ( "/root/send/cond2/pam_ordtype" , prcpgenrflag );
		
		//var saveRgstInfo = model.instances(0).selectNodes( "/root/send/cond2" );
		//model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo));
		
}

/********************************* ó¹æ°ú ÀúÀå functon ÇÕÄ¡±â Àü *********************************/
/**
 * @group  :
 * @ver    : 2007.09
 * @by     : 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹Ì¼öÇàó¹æ/DCó¹æ ÀúÀå ¹× CP/Ç×¾ÏÇÁ·ÎÅäÄÝó¹æ ÀúÀå
 * @param  : prcpflag: ó¹æ±¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ
             rtnPstn : return position
 * @return : true, false
 * @---------------------------------------------------
 */
function fPrcpDCSave_CP(prcpflag , rtnPstn, saveflag, prcpchkflag ) {
	var today = getCurrentDate();
	if( parseInt(model.getValue("/root/init/prcpdd")) > parseInt(today) ){
		setParameter("SMMMP00800_cpsaveflag", "T");
	}
	if (isNull(saveflag))    saveflag    = "";
	if (isNull(prcpchkflag)) prcpchkflag = "Y"; //"ÀúÀåÇϽðڽÀ´Ï±î?" ¸Þ¼¼Áö or div ¿©ºÎ
	if (isNull(prcpflag)){
		var cpgflag = model.getValue("/root/main/masterinfo/info/cpgflagcd");
		if(cpgflagcd == "01")  prcpflag    = "6";
	}
	var savekindflag = "0";		//ÀÎÁõÀúÀå
	var saveNode = "/root/main/prcp/prcplist";
	var prcpgenrflag = model.getValue ( "/root/patflag/list/prcpgenrflag" );
	prtlFlag_SMMMO00110 = model.getValue("/root/main/masterinfo/info/cpgflagcd");	//fPrcpSave() ÈÄ '-'·Î ¹Ù²î¹Ç·Î ´Ù½Ã ¼±¾ð
	//¾Æ·¡ÀÇ ¿ë·®ºÐÇÒ, º¸ÇèÁ¦ÇÑ, Á¦ÇÑÇ×»ýÁ¦ üũ¿¡ °É·Á¼­ fPrcpDCSave_CP()°¡ Àç±ÍÈ£ÃâµÇ´Â °æ¿ì ocrcalcscorcd °¡ ºñ¿öÁö´Â Çö»óÀÌ ¹ß»ýÇÔ->Á¶Ä¡(2008.11.07) 
	if( ocrcalcscorcd != "" ){
		ocrcalcscorcd_SMMMO00110 = ocrcalcscorcd;
	}
	////saveNode ¼ÂÆà ³¡
	
	//´çÀÏó¹æ ÀúÀå ½Ã Áú¹®À» Çß´Ù¸é, Áú¹® skip
	if( questionYN_SMMMO00110 != "Y" ){
    	var msg = messageBox ( "", "Q002" );
    	if( msg == 7 ){
    		stopSavePrcpYN_SMMMO00110 = "Y";
            return false;
    	}else{
    		 saveok = "Y";
    	}
	}else{
		saveok = "Y";
	}
	
	if(saveok == "Y"){
		//ÃÖÃÊÀúÀåÀÎ °æ¿ì iPrcpddNode > 0
		var iPrcp = "";
		var iPrcpddNode = instance1.selectSingleNode("/root/main/steppath/info[prcpdd > '"+today+"' and stepstat = '10']/prcpdd");
		
		//ÀúÀåÇÒ µ¥ÀÌÅÍ°¡ ÀÖ´ÂÁö üũ
		//var savedataflag = fSaveExistCheck( savekindflag );
		//ó¹æ ÀúÀåÀü üũ ÇØ¾ß ÇÒ °Íµé  
        if (savekindflag != 1) { // ó¹æ ÀúÀåÀü üũ ÇØ¾ß ÇÒ °Íµé           
        	model.setValue ( "/root/save/saveflaginfo/prcpdd"      , today );
            if (!fPrcpSaveChkBf(prcpchkflag)) return false;		//2009.05.06(Ãß°¡¼öÁ¤ by mjm)
        }

    	model.removeNodeSet ( "/root/send/cond2" );
        model.makeNode ( "/root/send/cond2" );
    	
    	//ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo)
    	model.setValue ( "/root/save/saveflaginfo/savedataflag", 2 );                       //ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ÀÓ½ÃÀúÀå
    	model.setValue ( "/root/save/saveflaginfo/saveflag"    , prcpgenrflag );    				//ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
    	model.setValue ( "/root/save/saveflaginfo/prcpflag"    , "0" );                     //ó¹æ±¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ
    	model.setValue ( "/root/save/saveflaginfo/inptflag"    , "0" );                     //ÀԷ±¸ºÐ 0:ÀÇ»ç, 1:°£È£»ç(°£È£¿¡¼­ »ç¿ë), 3:Áö¿øºÎ¼­
    	model.setValue ( "/root/save/saveflaginfo/deptcd"      , getUserInfo("dutplcecd")); //ºÎ¼­ÄÚµå
    	model.setValue ( "/root/save/saveflaginfo/deptnm"      , getUserInfo("dutplcenm")); //ºÎ¼­¸í
    	model.setValue ( "/root/save/saveflaginfo/userid"      , getUserInfo("userid"));    //»ç¿ëÀÚID
    	model.setValue ( "/root/save/saveflaginfo/usernm"      , getUserInfo("usernm"));    //»ç¿ëÀÚ¸í
    	model.setValue ( "/root/save/saveflaginfo/signyn"      , signyn );
    	model.setValue ( "/root/save/saveflaginfo/prcpdd"      , today );
    	model.setValue ( "/root/save/saveflaginfo/divyn"       , prcpchkflag );             //¿ë·®ºÐÇÒ ÇÒ°ÇÁö
    	
    	if( parseInt(model.getValue("/root/init/prcpdd")) > parseInt(today) ){
    		/*after Á¶°Ç Ãß°¡(1ÁÙ)*/
    		if( !(iPrcpddNode == null && imp_prcp.visible == true && instance1.selectSingleNode("/root/main/prcp/prcplist[status='I' or status='-']") != null) ){
    			model.makeValue ( "/root/save/saveflaginfo/cpsaveflag" , "T" );              				//¹Ì·¡Ã³¹æ üũ flag(2008.08.02 Ãß°¡)
    		}	//add (after end)
    	}
	    model.makeValue ( "/root/save/saveflaginfo/prtlflag", prtlFlag_SMMMO00110 );
	
    	//ÀúÀåÁ¤º¸
    	var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );
    	model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
    
    	//ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo)
    	var saveRgstInfo = model.instances(0).selectNodes( "/root/paminfo/list" );
    	model.setValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo));
    
    	//ÀúÀåó¹æÁ¤º¸(savePrcpInfo)
    	var savePrcpInfo = model.instances(0).selectNodes( saveNode );
    	model.copyNode ( "/root/send/cond3", "/root/main/prcp" ); 
    	fAppendSaveNode( "/root/send/cond3", "/root/prcper/prcplist" );
    	fAppendSaveNode( "/root/send/cond3", "/root/prcpdc/prcplist" );
    	
    	//ÀúÀå ÈÄ, send¿¡¼­ ¹Ì¿Ï¼ºÃ³¹æÀ» »©±â À§ÇØ, rownumÀ» ¼øÂ÷ÀûÀ¸·Î ¸¸µé¾îÁÜ(¿øº»°ú °á°ú ºñ±³¸¦ À§ÇÔ)
    	var cond3List = instance1.selectNodes("/root/send/cond3/prcplist");
    	for(var i=1; i<=cond3List.length; i++){
    		model.makeValue("/root/send/cond3/prcplist[" + i + "]/rownum", i);
    	}
	
    	if ( prcpchkflag == "drugdc" ) { //¾à/ÁÖ»ç D/C ¿äû Áß¿¡ ¹Ý³³¿äûµÈ °ÍÀº D/C ó¸®ÇÑ´Ù.( ÀúÀå·ÎÁ÷¿¡¼­ »ç¿ë )
    	    model.setValue ( "/root/send/cond14", getNodeListCSV (model.instances(0).selectNodes( "/root/prcpdc/prcplist" ))); 
    	}
	
	    //setValue ÈÄ¿¡ prcpdc ¿¡ ¿Å°Ü ³õÀº prcplist¸¦ Ŭ¸®¾î ÇÑ´Ù.
	    model.removeNodeset ( "/root/prcpdc/prcplist" ); 
	
	    //ÀúÀåÁø´ÜÁ¤º¸(saveDiagInfo)
    	var saveDiagInfo = model.instances(0).selectNodes( "/root/main/diaginfo/diagcdlist" );
    	model.setValue ( "/root/send/cond4", getNodeListCSV(saveDiagInfo));		
	
    	//ÀúÀåµ¥ÀÌÅÍ Á¶È¸ ºÐ±â
    	if ( prcpgenrflag == "O" ) {
    		if ( !submit ( "TRMMP00805", false )) {		//TRMMO00103
    			stopSavePrcpYN_SMMMO00110 = "Y";
    			return false;
    		}
    	} else {
    		if ( !submit ( "TRMMP00806", false )){		//TRMMO00104
    			stopSavePrcpYN_SMMMO00110 = "Y";
    			return false;
    		}
    	}
    	if( rtnPstn == 1 ){
    		return false;
    	}
	    //return;
	    
        /* CP ¹Ì·¡Ã³¹æÀÇ À¯ÀüÀÚ °Ë»ç µ¿ÀǼ­ ó¸® 
        Ãâ·ÂÀº Àû¿ë ½Ã ¸ðµÎ ¹ß»ýÇÏ°í ½ÇÁ¦ µ¥ÀÌÅÍ´Â ¹èÄ¡ ½ÇÇà½Ã¿¡ ¹ß»ýÇÑ´Ù. 20100514  by LYJ
        ===========================================================================================================================================*/
        //**********************¹Ì·¡Ã³¹æ¿¡ À¯ÀüÀÚ°Ë»ç ó¹æÀÌ ÀÖÀ» °æ¿ì Ãâ·Â¹° ¸ð´ÞÀ» ¶ç¿î´Ù **********
        var atadagn = model.getValue("root/tmp/atadagn");
        if ( atadagn != "" ) {
            var atadPrcpNodes =  instance1.selectNodes("/root/result/savedrprcplist[tempcol13='A' and status='I']");
            var Nodes =  instance1.selectNodes("/root/result/savedrprcplist");
            model.removeNodeSet("/root/hidden/atadinfo");
            model.removeNodeSet("/root/hidden/geneunitlist");
        
            if( atadPrcpNodes.length > 0 ) {
                model.makeValue("/root/hidden/atadinfo", "");
                for(var m=0; m < atadPrcpNodes.length; m++ ){ 
                    var node = atadPrcpNodes.item(m);
                    var atadNode = node.selectSingleNode("tempcol14");
                    var atadNodeArray = atadNode.text.split("¢Ë");
            
                    model.makeValue("/root/init/atadinfo/row/instcd", atadNodeArray[0]);
                    model.makeValue("/root/init/atadinfo/row/prcpdd", atadNodeArray[1]);
                    model.makeValue("/root/init/atadinfo/row/prcpno", atadNodeArray[2]);
                    model.makeValue("/root/init/atadinfo/row/pid", atadNodeArray[3]);
                    model.makeValue("/root/init/atadinfo/row/orddd", atadNodeArray[4]);
                    model.makeValue("/root/init/atadinfo/row/cretno", atadNodeArray[5]);
                    model.makeValue("/root/init/atadinfo/row/patnm", getPatientInfoDetail("hngnm") );
            
            
                    var gender = atadNodeArray[7].substr(6, 1);
                    var regYY = parseInt(atadNodeArray[7].substr(0, 2));
            
                    if(gender == '3' || gender == '4' || gender == '7' || gender == '8') {
            	        regYY += 2000;
                    } else if(gender == '0' || gender == '9') {
            	        regYY += 1800;
                    } else {
            	        regYY += 1900;
                    }
                    model.makeValue("/root/init/atadinfo/row/rrgstno", regYY + atadNodeArray[7].substr(2, 5));
                    model.makeValue("/root/init/atadinfo/row/drnm", getUserInfo("usernm") ); 
            
                    gender = atadNodeArray[9].substr(6, 1);
                    regYY = parseInt(atadNodeArray[9].substr(0, 2));
            
                    if(gender == '3' || gender == '4' || gender == '7' || gender == '8') {
            	        regYY += 2000;
                    } else if(gender == '0' || gender == '9') {
            	        regYY += 1800;
                    } else {
            	        regYY += 1900;
                    }
                    model.makeValue("/root/init/atadinfo/row/drbrthdd", regYY + atadNodeArray[9].substr(2, 4));
                    model.makeValue("/root/init/atadinfo/row/prcpcd", atadNodeArray[10]);
                    model.makeValue("/root/init/atadinfo/row/prcpnm", atadNodeArray[11]);
                    model.makeValue("/root/init/atadinfo/row/deptengabbr", atadNodeArray[12]); 
                    model.makeValue("/root/init/atadinfo/row/roomcd", atadNodeArray[13]);
                    model.makeValue("/root/init/atadinfo/row/prcpgenrflag", atadNodeArray[14]);
                    model.makeValue("/root/init/atadinfo/row/centcd", model.getValue("/root/paminfo/list/centnm") );
                    model.makeValue("/root/init/atadinfo/row/ocrtag", atadNodeArray[16]);
                    model.makeValue("/root/init/atadinfo/row/formcd", atadNodeArray[17]);
                    model.makeValue("/root/init/atadinfo/row/formfromdt", atadNodeArray[18]);
                    model.makeValue("/root/init/atadinfo/row/pagenum", atadNodeArray[19]);
                    model.makeValue("/root/init/atadinfo/row/execprcpuniqno", atadNodeArray[20]);
                    model.makeValue("/root/init/atadinfo/row/pattelno", atadNodeArray[21]);
                    model.makeValue("/root/init/atadinfo/row/pataddr", atadNodeArray[22]);
                    model.makeValue("/root/init/atadinfo/row/patsex", atadNodeArray[23]);
                    model.makeValue("/root/init/atadinfo/row/instnm", atadNodeArray[24]);
                    model.makeValue("/root/init/atadinfo/row/insttelno", atadNodeArray[25]);
            
                    copyNodeType("/root/hidden/atadinfo", "/root/init/atadinfo", "after");
                }
                modal("SPMMO21000", "", "", "", "", "/root/hidden/atadinfo", "/root/main/prcplist");
                var atadInfoNodes =  instance1.selectNodes("/root/hidden/geneunitlist");
                if( atadInfoNodes.length > 0 ) { }
                else return false;
            }
    
            //**********************À¯ÀüÀÚ °Ë»ç °ü·Ã ó¹æÀÇ µ¥ÀÌÅ͸¦ »ý¼ºÇÏ¿© bach ½ÇÇà½Ã¿¡ ½ÇÁ¦ ¹ß»ýµÉ µ¥ÀÌÅ͸¦ »ý¼ºÇØ mmphptcp¿¡ ÀúÀåÇÑ´Ù  **********
            var atadInfoNodes =  instance1.selectNodes("/root/hidden/geneunitlist");
            if( atadPrcpNodes.length > 0 ) {
                for (var i = 0; i< atadPrcpNodes.length  ; i++) {
                    var j = i+1;
                    var geneprnttmp = model.getValue("/root/hidden/geneunitlist[" + j + "]/testresn")  + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/spcpossnterm") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/stdyresn") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/spcproccd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/spcpossntermcd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/spcuseaprvyn") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/patinfouseyn") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/pid") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/patnm") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/procernm") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/procerbrthdd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/rrgstno") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/rrgstno2") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/drnm") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/drbrthdd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/deptengabbr") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/roomcd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/prcpgenrflag") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/centcd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/ocrtag") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/histcd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/proceryn") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/orddd") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/logurl") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/pagenum") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/execprcpuniqno") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/pattelno") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/pataddr") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/patsex") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/instnm") + "¢Ë" +
                                      model.getValue("/root/hidden/geneunitlist[" + j + "]/insttelno");
        
                    var node = atadPrcpNodes.item(i);
                    var atadNode = node.selectSingleNode("tempcol14");
                    var atadNodeArray = atadNode.text.split("¢Ë");
                    for (var z = 1; z<= Nodes.length  ; z++) {
                        if (model.getValue ("/root/result/savedrprcplist[" + z + "]/prcpcd") == atadNodeArray[10]){
                            if ( model.getValue ("/root/result/savedrprcplist[" + z + "]/geneprnttmp") == "" ){
                                model.setValue("/root/result/savedrprcplist[" + z + "]/geneprnttmp" ,geneprnttmp)
                                break;
                            }
                        }                    
                    }
                }
                var atadInfoNodeleng =  instance1.selectNodes("/root/hidden/geneunitlist/pid");
                if( atadPrcpNodes.length > 0 ) {
                    for (var j = 1; j <= atadPrcpNodes.length ; j++){
                        if ( j != 1 ){
                            model.copyNode("/root/hidden/geneunitlist[" +1 + "]", "/root/hidden/geneunitlist[" + j + "]");
                        }
        
                        exeReportPreview("RPMMO21001", "XMLSTR" , "/root/hidden/geneunitlist", ""   , "true" , "", "", "", "", "", "", "grp_report");
                        var orddrid = ""
                        if (model.getValue("/root/hidden/atadinfo/row[" + j + "]/prcpgenrflag") == "O" || model.getValue("/root/hidden/atadinfo/row[" + j + "]/prcpgenrflag") == "S" ) { 
                            orddrid = model.getValue("/root/paminfo/list/orddrid")
                        } else {
                            orddrid = model.getValue("/root/paminfo/list/medispclid");
                        }
                    
                        if( ! fSaveOCRIF(model.getValue("/root/hidden/atadinfo/row[" + j + "]/ocrtag")
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/pid")
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/orddd")
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/cretno")
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/prcpgenrflag")
                                       , model.getValue("/root/paminfo/list/orddeptcd")
                                       , orddrid
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/formcd")
                                       , model.getValue("/root/hidden/atadinfo/row[" + j + "]/formfromdt")
                                       , "", "", 1) ) {
                            messageBox("À¯ÀüÀڰ˻絿ÀǼ­ IF ÀúÀå½Ã ¿À·ù¹ß»ý", "I");
                        }
                    }
                }
            }
        }
        model.makeValue("root/tmp/atadagn", "Y");
	  
         
       // ===========CP ¹Ì·¡Ã³¹æÀÇ À¯ÀüÀÚ °Ë»ç µ¿ÀǼ­ ó¸®  END================================================================================================================================
		if ( model.getValue ( "/root/result/divinfo/divchkflag" ) == "N" ) {
			var divPrcpInfo = model.instances(0).selectNodes( "/root/result/prcplist" );
			if ( divPrcpInfo.length > 0 ) { // ¿ë·®ºÐÇÒ, ÀúÇÔ·®
				if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){
					xpt = window.screenleft + 100;
					ypt = window.screenTop + 50;                    
					coord = getRelativeCoordinate ( xpt, ypt );
					mon = coord[0];
					xpt = coord[1];
					ypt = coord[2];
					modal ( "SPADB62400", mon,  xpt, ypt, "SPADB62400", "/root/result", "/root/main/prcp", "", false );
					model.refresh();
					model.recalculate();
					fClearSaveInstance();
				}
				else model.refresh();
				//fPrcpSave( "", "", "", "N"  );
				fPrcpDCSave_CP(prcpflag , rtnPstn, saveflag, "N");
				return false;
			}
		} else if (model.getValue ( "/root/result/divinfo/divchkflag" ) == "A") {
			//20090420 ¸¶Á¤¹Î ¼öÁ¤ Ç׾Ͽ뷮ºÐÇÒÀº ±âÁ¸¿¡´Â ¼­¹ö¿¡¼­ ºÒÇÒµÇ¾î ¹Ù·Î ÀúÀåüũ·ÎÁ÷À¸·Î °¬Áö¸¸ º¸ÇèÁ¦ÇѱÔÁ¤¿¡ °É·Á¼­
			//´Ù½ÃÀúÀåÇÒ¶§ ºÐÇÒµÈ ³»¿ëÀÌ È­¸éÀÌ Ç¥½Ã°¡ µÇÁö ¾Ê¾Æ ¿ë·®ºÐÇÒÀÌ µÇÁö ¾ÊÀ½.
			//Ç׾Ͽ뷮ºÐÇÒµµ È­¸é¿¡ Ç¥½ÃÇÏ°Ô ¼öÁ¤
			model.removeNodeSet ( "/root/main/prcp/prcplist" );
			var srcNodeList = model.instances(0).selectNodes("/root/result/prcplist"); 
			var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
			for ( i=0; i < srcNodeList.length; i++ ){
				destNode.appendChild(srcNodeList.item(i).cloneNode(true));
			}
			model.refresh();
			//fPrcpSave( "", "", "", "N"  );
			fPrcpDCSave_CP(prcpflag , rtnPstn, saveflag, "N");
			return false;
		}
    
		//½ÇÆнÃ, ÀνºÅϽº °ªÀ» È®ÀÎÇϱâ À§Çؼ­ °ªÀ» copy
		model.makeNode("/root/result_copy");
		copyNodesetType("/root/result_copy", "/root/result", "replace", model, model);
		
		//CPÀÏ °æ¿ì, ¹Ì¿Ï¼º ó¹æÀ» ÀνºÅϽº·Î °¡Áö°í¸¸ ÀÖÀ½(Æ˾÷Àº ÀúÀå ÈÄ open)
		if(prcpflag == "6") {
			if( instance1.selectSingleNode("/root/result/savedrprcplist[status='U' or status='D']") ){
				var DetlNodeList = instance1.selectNodes("/root/result/savedrprcplist[status='U' or status='D']");
				for(var i=0; i<DetlNodeList.length; i++){
					var node = DetlNodeList.item(i);
					var prcpnoNode     = node.selectSingleNode("prcpno");
					var etcLnkSpecNode = node.selectSingleNode("etclnkspec");
					var tmpstatNode    = node.selectSingleNode("tmpstat");
					var etcLnkSpecText = etcLnkSpecNode.text;
					// ¼öÁ¤ÇÏ´Â °æ¿ì, ÇÁ·ÎÅäÄÝó¹æ Å×À̺íÀÇ Å°°ªÀ» °¡Á®°¡¾ß ÇÔ
					//if(prcpnoNode) 		{model.setValue(prcpnoNode, etcLnkSpecText.split("|")[2]);}
					//if(etcLnkSpecNode) {model.setValue(etcLnkSpecNode, etcLnkSpecText.split("|")[0] + "|" + etcLnkSpecText.split("|")[1]);}
				}
			}	
		}
	    //return;
	
		//¿À·ù¸Þ¼¼Áö Æ˾÷ ºÐ±â
		if( ErrExistYN_SMMMO00110 != "Y" ) ErrExistYN_SMMMO00110 = "N";
		var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist/prcpcd" );
		
		if ( prcpErrList.length > 0 ) {
			if ( !isNull(model.getValue ( "/root/result/prcperrlist/prcpcd")) ){
				var srcNodeList = model.instances(0).selectNodes ("/root/result/prcperrlist");
				var flag = "";
				var errorCnt = 0;
				var notErrorCnt = 0;

				var nErrorCnt = 0;  // ¿À·ù CNT
				var nResnCnt  = 0;  // »çÀ¯ CNT
				var nInfoCnt  = 0;  // Á¤º¸ CNT
			
				//ó¹æµ¥ÀÌÅͱ¸¼º ÀνºÅϽº ¸®ÅÏ ÈÄ, ó¹æµ¥ÀÌÅͱ¸¼º Àü ÀνºÅϽº¿¡¼­ ¿À·ùó¹æ(¹Ì¿Ï¼ºÃ³¹æ)À» Á¦ÇÑ´Ù
				var orgCond3List = model.instances(0).selectNodes( "/root/send/cond3/prcplist" );
				if(orgCond3List.length > 0){
					if(prcpErrList.length != orgCond3List.length){
						var valPrcpList = model.instances(0).selectNodes( "/root/result/savedrprcplist" );
						
						if(valPrcpList.length > 0){
							for ( var k=1; k <= orgCond3List.length; k++ ){
								model.setValue("/root/send/cond3/prcplist[" + k + "]/tempcol5", "D");
							}
							
							for(var k=0; k<valPrcpList.length; k++){
								var node       = valPrcpList.item(k);
								var rownumNode = node.selectSingleNode("rownum");
								if(rownumNode != null){
									if( instance1.selectSingleNode("/root/send/cond3/prcplist[rownum='"+rownumNode.text+"']") != null ){
										model.setValue("/root/send/cond3/prcplist[rownum='"+rownumNode.text+"']/tempcol5", (k+1));
									}
								}
							}
						}
						model.removeNodeSet("/root/send/cond3/prcplist[tempcol5='D']");
					}
				}
				//ÀνºÅϽº Á¦°Å end
				
				//º´¿ë±Ý±â, ¿¬·É±Ý±â Æ˾÷Àº ¹Ì¸® ¶ç¿î´Ù
				for ( var i=1; i <= srcNodeList.length; i++ ) {
					flag = model.getValue ( "/root/result/prcperrlist[" + i + "]/flag" );
					if ( flag == "1" ) {  // DUR ó¸® ±¸ºÐ (1:¿À·ù, 5:»çÀ¯ÀÔ·Â, 4:Á¤º¸Á¦°ø)
						nErrorCnt++;
					} else if (flag == "5") {
						nResnCnt++;
					} else if (flag == "4") {
					    nInfoCnt++;
					}
				}
				
				/*
				if ( nErrorCnt > 0 ){
					//¿À·ùó¹æ ¸®ÅÏ ¿©ºÎ (CPÀÏ °æ¿ì, ¿À·ùó¹æÀÌ À־ Á¦¿ÜÇÑ Ã³¹æµ¥ÀÌÅ͸¦ ÇÔ²² ¸®ÅÏÇϹǷΠ¿À·ù¸Þ¼¼Áö Æ˾÷Àº skip)
					ErrExistYN_SMMMO00110 = "Y";
				} else if (nResnCnt > 0) {
				    xpt = window.screenleft + 100;
					ypt = window.screenTop + 50;                    
					coord = getRelativeCoordinate ( xpt, ypt );
					mon = coord[0];
					xpt = coord[1];
					ypt = coord[2];
					
				    clearParameter ( "SPMMO90200_rtn" )
				    modal("SPMMO90200", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false); 
				    if ( getParameter ( "SPMMO90200_rtn" ) != "Y" ) {	//CP¹Ì·¡Ã³¹æÀº Ãë¼Ò ºí·ÏÅ· ó¸®ÇßÀ¸¹Ç·Î NÀÏ °æ¿ì ¾øÀ½...(2009.05.04 JJE)
						var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
						for(var i=1; i<=srcNodeList.length; i++) {
							model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
						}
						return false;
					}
				} else if (nInfoCnt > 0) {
				    xpt = window.screenleft + 100;
					ypt = window.screenTop + 50;                    
					coord = getRelativeCoordinate ( xpt, ypt );
					mon = coord[0];
					xpt = coord[1];
					ypt = coord[2];
					
				    clearParameter("SPMMO90100_rtn");
                    modal("SPMMO90100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false); 
                    if(getParameter("SPMMO90100_rtn") != "Y") { 
                        var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
						for(var i=1; i<=srcNodeList.length; i++) {
							model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
						}
						return false;
                    } 
				}
				*/
				/*
				if( notErrorCnt > 0 ){
					//2008-09-28 ¸¶Á¤¹Î ¼öÁ¤
					xpt = window.screenleft + 100;
					ypt = window.screenTop + 50;                    
					coord = getRelativeCoordinate ( xpt, ypt );
					mon = coord[0];
					xpt = coord[1];
					ypt = coord[2];
					
					clearParameter ( "SPMMO16100_rtn1" )
	                modal ( "SPMMO16100", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false ); //º´¿ë¿¬·É±Ý±â
					if ( getParameter ( "SPMMO16100_rtn1" ) != "Y" ) {	//CP¹Ì·¡Ã³¹æÀº Ãë¼Ò ºí·ÏÅ· ó¸®ÇßÀ¸¹Ç·Î NÀÏ °æ¿ì ¾øÀ½...(2009.05.04 JJE)
						var srcNodeList = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );
						for(var i=1; i<=srcNodeList.length; i++) {
							model.setValue ( "/root/main/prcp/prcplist[" + i + "]/tempcol19" , "" );
						}
						return false;
					} else {
						//messageBox ( "»èÁ¦¼±ÅÃµÈ Ã³¹æÀÌ ÀÖ½À´Ï´Ù. »èÁ¦ÈÄ °è¼Ó ÀúÀåµË´Ï´Ù." , "I" );
						if ( getParameter ( "SPMMO16100_rtn2" ) == "D" ){
							fPrcpDCSave_CP(prcpflag , rtnPstn, saveflag, "N");	//fPrcpSave( "", "", "", "N"  );
							return false;
						}
					}
				}
				*/
			}
		}
			
		if(iPrcpddNode == null){
			//iPrcp = model.getValue("/root/send/cond3/prcplist[1]/prcpdd");
			var jPrcpddNode = instance1.selectSingleNode("/root/result/savedrprcplist[1]/prcpdd");
			if(jPrcpddNode != null){
				iPrcp = jPrcpddNode.text;
			}
		}else{
			iPrcp = iPrcpddNode.text;
		}
		if( !isNull(iPrcp) ){
			model.setValue ( "/root/save/saveflaginfo/prcpdd", iPrcp );
			var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );
			model.setValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
		}
			
			//¹Ì·¡Ã³¹æ »çÀü üũ(1ȸ) (s)
	    if ( model.getValue("/root/init/restantimicyn") == "Y" ) { // Á¦ÇÑÇ×»ýÁ¦Ã³¹æ
	        if (!fAntiBioticsChk()) {
	            fClearSaveInstance();
	            return false;
	        }
	    }

	  	var qestflagcnt = 0;
	    var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" ); // º¸ÇèÁ¦ÇÑó¹æ
	    if ( limprcplist.length > 0 ) {
	    	for ( var i=1; i < limprcplist.length; i++ ) {
				if ( model.getValue ( "/root/result/limprcplist[" + i + "]/qestflag") != "M" ) {
					qestflagcnt++;
				}
			}
			if ( qestflagcnt == 0 && getRegistryPrcp ( "limprcp|"+getCurrentDate()) == "Y" ) {
			} else {
    	        if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))){
    	        	xpt = window.screenleft + 100;
    	            ypt = window.screenTop + 50;
                    coord = getRelativeCoordinate ( xpt, ypt );
                    mon = coord[0];
                    xpt = coord[1];
                    ypt = coord[2];
                    var rowid = 0;
                    for ( var k=1; k <= limprcplist.length; k++ ){
                        rowid = eval(model.getValue ( "/root/result/limprcplist[" + k + "]/rowid" ));
                        var displayprcpnm = rowid + ". " + model.getValue ( "/root/result/limprcplist[" + k + "]/calcscorcd" ) +  "\n" + "[" + model.getValue ( "/root/result/limprcplist[" + k + "]/prcpnm") + "]";
                        model.setValue ( "/root/result/limprcplist[" + k + "]/displayprcpnm", displayprcpnm );
                    }
                    modal ( "SPMMO00900", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result", "", false );
                    model.removeNodeset("/root/result/limprcplist");
                    if ( getParameter ( "SPMMO00900_rtnyn" ) == "Y" ) {
                        clearParameter ( "SPMMO00900_rtnyn" );
                        var savePrcpListLen = model.instances(0).selectNodes ( prcpNode + "[status!='S']" ).length;
                        var saveDiagListLen = model.instances(0).selectNodes ( diagNode + "[status!='S' and status!='-']" ).length;
                        if ( savePrcpListLen > 0 || saveDiagListLen >0 ) {
                        	//fPrcpSave( "", "", "", "N"  );
                        	fPrcpDCSave_CP(prcpflag , rtnPstn, saveflag, "N");
                        }
                        return false;
                    } else if ( getParameter ( "SPMMO00900_rtnyn" ) == "C" ) {
                    //msg¸¸ ÀÖ´Â °ÍÀ̶ó¸é ±×³É ÁøÇàÇÔ
                    } else {
                        return false;
                    }
    	        }
    	    }
	    } // º¸ÇèÁ¦ÇÑó¹æ³¡
	    
	    if ( !isNull(model.getValue ( "/root/result/savetnmlist/pid" )) || !isNull(model.getValue ( "/root/result/savecncrlist/pid" ))) { //º´±âºÐ·ù
		    xpt = window.screenleft + 300;
		    ypt = window.screenTop;                 
		    coord = getRelativeCoordinate ( xpt, ypt );
		    mon = coord[0];
		    xpt = coord[1];
		    ypt = coord[2];                 
		    modal ( "SPMMO08400", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/tempresult", "", false );
		    if ( getParameter ( "SPMMO08400_rtn1" ) != "Y" ){
		    	return false;
		    }
	    }

		fClearSaveInstance();
		if ( savekindflag != 1 && signyn == "Y" ) {
	        var signbfcnts = model.getValue ( "/root/result/signprcplist/signprcp_signbfcnts" );
			var setnode = "/root/result/signprcplist/signprcp_signaftcnts";
			var signid = getUserInfo ("userid");
			var signopt = false;
			if ( prcpgenrflag != "O" ) {
				signopt = true;
			} 
				
			////ÀÎÁõ ±¸ºÐÀÚ Ãß°¡
			if( prcpflag == "6" ){
				//CP ÀÏ ¶§, ÀÎÁõÀúÀå 2¹ø ¶ß´Â °ÍÀ» ¸·´Â´Ù
				if( questionYN_SMMMO00110 == "Y" ){
					var signid = getUserInfo ("userid");
					signopt = false;
				}
			}
			////ÀÎÁõ ±¸ºÐÀÚ Ãß°¡ ³¡
			//ó¹æÀÎÁõ
			var v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode );
			if ( v_stext != "N" ) {
				if (isNull( v_stext )) {
					stopSavePrcpYN_SMMMO00110 = "Y";
					//fRemoveSaveNodeList();
					return false;
				}
				var saveSignPrcpInfo = model.instances(0).selectNodes( "/root/result/signprcplist" );
				//model.setValue ( "/root/send/cond2", getNodeListCSV(saveSignPrcpInfo)); 
				fAppendSaveNode( "/root/send/cond2", "/root/result/signprcplist" ); //ÀÇ»çó¹æµ¥ÀÌÅÍ
				signopt = false; //Áø´Ü¿¡¼­ ¶Ç ¾È¶ç¿ì±â À§Çؼ­ false·Î ¼öÁ¤
			}

			signbfcnts = model.getValue ( "/root/result/signdiaglist/signbfcnts" );
			setnode = "/root/result/signdiaglist/signaftcnts";

			//Áø´ÜÀÎÁõ
			v_stext = fSaveSign ( signbfcnts, signid, signopt, setnode );
			if ( v_stext != "N") {
				if (isNull(v_stext)) {
					stopSavePrcpYN_SMMMO00110 = "Y";
					//fRemoveSaveNodeList();
					return false;
				}
				var saveSignDiagInfo = model.instances(0).selectNodes( "/root/result/signdiaglist" );
				//model.setValue ( "/root/send/cond2", getNodeListCSV(saveSignDiagInfo)); 		
				fAppendSaveNode( "/root/send/cond2", "/root/result/signdiaglist" ); //ÀÇ»çó¹æµ¥ÀÌÅÍ
			}
		}
			
		fAppendSaveNode( "/root/send/cond2", "/root/result/savedrprcplist" );   //ÀÇ»çó¹æµ¥ÀÌÅÍ
		fAppendSaveNode( "/root/send/cond2", "/root/result/saveexecprcplist" ); //½Ç½Ãó¹æ ÀúÀåµ¥ÀÌÅÍ
		fAppendSaveNode( "/root/send/cond2", "/root/result/savediaglist" );     //Áø´ÜÀúÀå ÀúÀåµ¥ÀÌÅÍ
		fAppendSaveNode( "/root/send/cond2", "/root/result/savepamlist" );      //¿ø¹«Á¤º¸ ÀúÀåµ¥ÀÌÅÍ
		fAppendSaveNode( "/root/send/cond2", "/root/result/savematrprcplist" ); //Àç·áó¹æÁ¤º¸ ÀúÀåµ¥ÀÌÅÍ
		
		if ( prcpgenrflag != "O" ) {
			//Åð¿øÈÄ ¿Ü·¡Ã³¹æ ÀúÀå setting
			fAppendSaveNode( "/root/send/cond2", "/root/result/dschflaginfo" );
			fAppendSaveNode( "/root/send/cond2", "/root/result/dschpamlist" );
			fAppendSaveNode( "/root/send/cond2", "/root/result/dschdrprcplist" );
			fAppendSaveNode( "/root/send/cond2", "/root/result/dschexecprcplist" );
			fAppendSaveNode( "/root/send/cond2", "/root/result/dschmatrprcplist" );
			
			if(ErrExistYN_SMMMO00110 == "Y"){
				//¹Ì¿Ï¼º ó¹æÀ» ÀúÀåÇϱâ À§ÇØ send¿¡ append
				fAppendSaveNode ( "/root/send", "/root/result/saveinvaliprcplist" );
				model.removeNodeset("/root/result/saveinvaliprcplist");		//2008.09.03 Ãß°¡
			}
		}
        //return;
		//ÀúÀå(return:¿À·ùó¹æ Á¶È¸) Àü ¿À·ùó¹æ ¹ÞÀ» ÀνºÅϽº ºñ¿ò.
		model.removeNodeset ("/root/main/invalprcplist/prcplist");
		
		if( prcpflag == "0" ){
			if ( !submit ( "TXMMO00103", false )) {
				model.removeNodeSet ( "/root/result");
				model.resetInstanceNode ( "/root/send" );
				model.refresh();
				return false;
			}	
		}else{
			if ( prcpgenrflag == "O" ) {
				if ( !submit ( "TXMMP00804", false )) {			//TXMMO00101
					model.removeNodeSet ( "/root/result");
					stopSavePrcpYN_SMMMO00110 = "Y";
					if( saveNum_SMMMO00110 == 1 ) messageBox ("¹Ì·¡Ã³¹æ ÀúÀåÀ» ½ÇÆÐÇß½À´Ï´Ù.\n´Ù½Ã ÀúÀå", "I008");
					return false;
				}else{
					SubmitTF_SMMMO00110 = true;
				}
				
			}else {
				if ( !submit( "TXMMP00803", false )) {			//TXMMO00103
					//messageBox("ó¹æ ÀúÀåÀ» ", "E009");
					model.removeNodeSet ( "/root/result");
					stopSavePrcpYN_SMMMO00110 = "Y";
					if( saveNum_SMMMO00110 == 1 ) messageBox ("¹Ì·¡Ã³¹æ ÀúÀåÀ» ½ÇÆÐÇß½À´Ï´Ù.\n´Ù½Ã ÀúÀå", "I008");
					return false;
				}else{
					SubmitTF_SMMMO00110 = true;
				}
			}

            if (savekindflag != 1) {
                /* ¼­¹ö´Ü¿¡¼­ ó¸® ÇÔ
                   if ( prcpgenrflag != "O" ) { //¿Ü·¡¸¦ Á¦¿ÜÇÏ°í ¿ø¹« batch È£Ãâ
                    model.removeNodeset("/root/send/batch");
                    model.makeValue("/root/send/batch/pid"   , model.getValue("/root/paminfo/list/pid"));
                    model.makeValue("/root/send/batch/prcpdd", model.getValue("/root/init/prcpdd"));
                    model.makeValue("/root/send/batch/instcd", model.getValue("/root/paminfo/list/instcd"));
                    submit ( "TXMMO00111", false );
                }*/
                /*
                if ( prcpgenrflag == "I" || prcpgenrflag == "D" ) { //ÀÔ¿øÀÏ ¶§ ¾àÁý°è È£Ãâ		=> mgr·Î »©´Þ¶ó´Â ¿äû or ¾à±¹ ÀÚµ¿ Áý°è
                    submit ( "TXMMO00106", false );
                }
                if ( prcpgenrflag == "E" ) { //ÀÀ±ÞÀÏ ¶§ Áø·áÁö¿ø ¿¹¾à¸ðµâ È£Ãâ
                    submit ( "TXMMO00110", false );
                }
                if ( model.getValue ( "/root/init/restantimicyn" ) == "Y" ) { //Á¦ÇÑÇ×»ýÁ¦ ÀúÀå
                    fAntiBioticsSave();
                }
                */
            }
            
            /*¹Ì·¡Ã³¹æ ºÐ¿¡ ´ëÇÑ Ã³¹æ¿À·ù ¸Þ¼¼Áö Æ˾÷ (·ÎÁ÷ ¸Ç ¸¶Áö¸·À¸·Î À̵¿ (web))
			var popYN = getParameter("SPMMP00200_popupYN");
			if ( ErrExistYN == "Y" && instance1.selectSingleNode("/root/main/invalprcplist/prcplist") != null && popYN != "Y" ) {
				//...
			}*/
			saveNum_SMMMO00110 = 2;
			stopSavePrcpYN_SMMMO00110 = "N"
			clearParameter("SMMMP00800_cpsaveflag");
			return true;
		}
		return true;
	}  
}

/************************************************************************
1. fCheckInvalList() : ÃÖÃÊ ¹Ì·¡Ã³¹æ ÀúÀå ½Ã, ÀúÀå Àü ¹Ì¿Ï¼º ó¹æÀ¸·Î ºÐ·ù
2. fTretInvalList() : ¹Ì·¡Ã³¹æ-¹Ì¿Ï¼º ó¹æ ÀúÀå ½Ã, ¸ðµÎ üũ - Æ˾÷/ÀúÀå
************************************************************************/
/**
 * @group  :
 * @ver    : 2008.03
 * @by     : 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : CP¹Ì·¡Ã³¹æÀ» üũÇÏ¿© ¹Ì¿Ï¼ºÃ³¹æÀ» ºÐ¸®ÇÑ´Ù (»ç¿ë¾ÈÇÔ-·ÎÁ÷º¯°æ)
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fCheckInvalList(){
	/* üũÇØ¾ß ÇÒ ¹Ì¿Ï¼º ó¹æ
		 - 1 : ÀúÇÔ·® ¹è¼ö   	        => ÀúÇÔ·®¹è¼öó¹æ »çÀ¯ µé¾î°¡´Â Ä÷³..fastprcpflag ¿¡´Â ÄÚµå°í ±âŸÀ϶§ tootfact¿¡ ³»¿ë
		 - 2 : º´¸®ÀÇ·ÚÁö : fReqfrm ( curRow, flag )   -> D2 (mgr¿¡¼­ ³Ö¾îÁÜ)
		 - 3 : Á¦ÇÑÇ×»ýÁ¦Ã³¹æ üũ                     => getArrayData ( drugmastspec + "^", 0, 16, "^", "|" )
		 - 4 : º¸ÇèÁ¦ÇÑó¹æ ó¸®      =>
		 - º´±âºÐ·ù               => Áø´Ü(cncr)/ó¹æ -> cancer stage ºÐ·ù
		 - ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸®
		 - Åð¿øÈÄ ¿Ü·¡Ã³¹æ üũ
		 - ÀÔ¿øÀÏ ¶§ ¾àÁý°è È£Ãâ(skip)
		 - ÀÀ±ÞÀÏ ¶§ Áø·áÁö¿ø ¿¹¾à¸ðµâ È£Ãâ(skip)
		 - ó¹æÁߺ¹Ã¼Å©(skip)
		 - OCR ÀÚµ¿Ãâ·Â ocrcalcscorcd °ªÀº MMO001¿¡ global·Î ¼±¾ð. °ªÀº fPrcpSaveChkaft¿¡¼­ üũ(skip)
	*/
	
	// /root/result/savedrprcplist
	var nodelist = instance1.selectNodes("/root/result/savedrprcplist");							//Á¤»ó ó¹æ
	var limprcplist = model.instances(0).selectNodes( "/root/result/limprcplist" );		//º¸ÇèÁ¦ÇÑ ´ë»ó ó¹æ
	var divPrcpList = model.instances(0).selectNodes( "/root/result/prcplist" );			//¿ë·®ºÐÇÒ ´ë»ó ó¹æ
	
	var limprcplistCnt = 0;		//º¸ÇèÁ¦ÇÑó¹æ °¹¼ö
	var checkYN = "N";				//Áߺ¹copy¸¦ ¸·À½
	var checkCnt = 0;
	model.removeNodeset("/root/result/saveinvaliprcplist");
	model.makeNode("/root/temp1/checkinvalprcp");
		
	//if ( model.getValue ( "/root/init/restantimicyn" ) == "Y" ){  					// Á¦ÇÑÇ×»ýÁ¦Ã³¹æ + º¸ÇèÁ¦ÇÑóó¹æ
		//for(var i=0; i<nodelist.length; i++){
		var endNo = nodelist.length - 1;
		for(var i=endNo; i>=0; i--){
			var node = nodelist.item(i);
			var prcpno = node.selectSingleNode("prcpno").text;
			checkYN = "N";
			
			/*
			//1. ¿ë·®ºÐÇÒÀº reqGetPrcpSaveChk() ¿¡¼­ üũ
			//2. º´¸®ÀÇ·ÚÁö -> reqGetPrcpSaveChk()-getPrcpSaveChk() ¿¡¼­ üũ
			var prcpclscd = node.selectSingleNode("prcpclscd").text;
			if(prcpclscd == "D2"){
				fAppendSaveNode( "/root/temp1/checkinvalprcp", "/root/main/prcp/prcplist["+(i+1)+"]" );
				checkYN = "Y";
			}
			*/
			// 3. Á¦ÇÑÇ×»ýÁ¦Ã³¹æ
			var drugmastspec = node.selectSingleNode("drugmastspec").text;
			var restantimicyn = "N";
			restantimicyn = getArrayData ( drugmastspec + "^", 0, 16, "^", "|" );
			
			if( restantimicyn == "Y" && checkYN == "N" ){
				if( isNull(model.getValue("/root/result/savedrprcplist[" + (i+1) + "]/tempcol6")) && isNull(model.getValue("/root/result/savedrprcplist[" + (i+1) + "]/tempcol7")) ){
					fAppendSaveNode( "/root/temp1/checkinvalprcp", "/root/result/savedrprcplist["+(i+1)+"]" );

					checkYN = "Y";
					checkCnt++;
					var prcpSpec = model.getValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcppkspec");
					model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcpdd", prcpSpec.substr(0, 8));	
					//model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prtlprcpno", "12");			//¹Ì¿Ï¼ºÃ³¹æ ÀúÀå ½Ã, prtlstatÀÇ °ªÀ» prtlprcpno¿¡ ´ë½Å ³Ö¾î¼­ º¸³½´Ù(prtlprcpno´Â insert ¶§´Â ÇÊ¿ä¾ø´Â ³ëµåÀÓ)
					if(model.getValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcpgenrflag") == "O"){
						model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/orddd", model.getValue("/root/paminfo/list/orddd"));
					}else{
						model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/orddd", model.getValue("/root/paminfo/list/indd"));
					}
					model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/incpltnresn", "Á¦ÇÑÇ×»ýÁ¦½ÂÀνÅû¼­¸¦ ÀÛ¼ºÇØ¾ß ÇÕ´Ï´Ù.");	
					model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/errtretflag", "3");	
					
				}
			}
			
			// 2. º¸ÇèÁ¦ÇÑó¹æ
			if ( limprcplist.length > 0 && limprcplistCnt <= limprcplist.length && checkYN == "N" ) {
				if ( !isNull(model.getValue ( "/root/result/limprcplist/calcscorcd"))) {
					//var k=0;
					//while(k<limprcplist.length && checkYN == "N"){
					//k++;
					for(var k=0; k<limprcplist.length; k++){
						var limNode = limprcplist.item(k);
						var limprcpcd = limNode.selectSingleNode("calcscorcd").text;
						var limprcpdd = limNode.selectSingleNode("prcpdd").text;
						var limprcpno = limNode.selectSingleNode("prcpno").text;
						var trgprcpcd = node.selectSingleNode("prcpcd").text;
						var trgprcpdd = node.selectSingleNode("prcpdd").text;
						var trgprcpno = node.selectSingleNode("prcpno").text;
						if( limprcpno == trgprcpno && checkYN == "N"){		//trgprcpcd == limprcpcd && trgprcpdd == limprcpdd
							fAppendSaveNode( "/root/temp1/checkinvalprcp", "/root/result/savedrprcplist["+(i+1)+"]" );
							checkYN = "Y";
							checkCnt++;
							limprcplistCnt++;
							var prcpSpec = model.getValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcppkspec");
							model.makeValue  ("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcpdd", prcpSpec.substr(0, 8));	
							//model.makeValue  ("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prtlprcpno", "12");
							if(model.getValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/prcpgenrflag") == "O"){
								model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/orddd", model.getValue("/root/paminfo/list/orddd"));
							}else{
								model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/orddd", model.getValue("/root/paminfo/list/indd"));
							}
							model.makeValue  ("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/incpltnresn", "º¸ÇèÁ¦ÇÑ Ã³¹æÀÔ´Ï´Ù.");	
							model.makeValue("/root/temp1/checkinvalprcp/savedrprcplist[" + checkCnt + "]/errtretflag", "4");	
							
						}
					}
				}
			}
			
			//À§¿¡¼­ Áö¿ì¸é node.selectSingleNode("prcpcd").text; ¿¡¼­ err
			if( checkYN == "Y" ){
				model.removeNodeset("/root/result/savedrprcplist["+(i+1)+"]");	
			}
			
		}
	//}
	

	
	var checkinvalNodeList = instance1.selectNodes("/root/temp1/checkinvalprcp/savedrprcplist");											//Á¦ÇÑÇ×»ýÁ¦, º¸ÇèÁ¦ÇÑ
	
	if( checkinvalNodeList.length > 0 ){
		if( instance1.selectSingleNode("/root/send/errprcplist") == null ){
			model.makeNode("/root/send/errprcplist");
		}
		if(  instance1.selectSingleNode("/root/result") == null ){
			model.makeNode("/root/result");
		}
		
		var checkinvalCSV = getNodeListCSV(checkinvalNodeList);
		setCSVToNode("/root/result", checkinvalCSV, "saveinvaliprcplist");

		var saveInvaliPrcpList =  model.instances(0).selectNodes( "/root/result/saveinvaliprcplist" );		//¿¡·¯°¡ Á¸ÀçÇÏ¿© ¹Ì¿Ï¼ºÃ³¹æÀ¸·Î ÀúÀåµÉ µ¥ÀÌÅÍ
		model.makeValue("/root/send/errprcplist", getNodeListCSV(saveInvaliPrcpList));
		
		model.removeNodeset("/root/result/saveinvaliprcplist/valyn");
		// TXMMP00803,4 ¿¡ saveinvaliprcplist ÀÇ ÇϺγëµå ¸íÀº inval_ À¸·Î ½ÃÀÛÇϹǷÎ, ³ëµå ¸íÀ» ¹Ù²Û´Ù (2008.02.12)
		for( var i=0; i<saveInvaliPrcpList.length; i++ ){
			var node = instance1.selectSingleNode( "/root/result/saveinvaliprcplist["+(i+1)+"]" );
			var childNodeList = node.childNodes;
			for( var k=0; k<childNodeList.length; k++ ){
				var iNode = childNodeList.item(k);
				if( iNode.nodeName.substr(0, 5) != "inval_" ){
					iNode.nodeName = "inval_" + iNode.nodeName;
				}
			}
		}
		
		copyNodeListType("/root/main/invalprcplist", "/root/result/saveinvaliprcplist", "after", model, model);
		copyNodeListType("/root/send", "/root/result/saveinvaliprcplist", "after", model, model);
		model.removeNodeset("/root/result/saveinvaliprcplist");
		// ¡Ú prcpno ¸®½ºÆ®¿Í ºñ±³ÇÏ¿© prcp ³ëµå¸®½ºÆ®¿¡¼­ »èÁ¦
		model.removeNodeset("/root/temp1/checkinvalprcp");
	}
	
}

/**
 * @group  :
 * @ver    : 2008.03
 * @by     : 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : CP¹Ì·¡Ã³¹æÀ» üũÇÏ¿© ¹Ì¿Ï¼ºÃ³¹æÀ» ó¸®ÇÑ´Ù(Æ˾÷ ¹× Á¤º¸ÀúÀå)
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fTretInvalList(){
	/* üũÇØ¾ß ÇÒ ¹Ì¿Ï¼º ó¹æ
		 - º´¸®ÀÇ·ÚÁö : fReqfrm ( curRow, flag )   -> D2
		 - Á¦ÇÑÇ×»ýÁ¦Ã³¹æ üũ                     => getArrayData ( drugmastspec + "^", 0, 16, "^", "|" )
		 - º¸ÇèÁ¦ÇÑó¹æ ó¸®      =>
		 - º´±âºÐ·ù               => Áø´Ü(cncr)/ó¹æ -> cancer stage ºÐ·ù
		 - ó¹æ¿¡ ´ëÇÑ ÁßÁõÁø·á, »êÁ¤Æ¯·Ê, ¹ýÁ¤Àü¿°º´ ó¸®
		 - ÀúÇÔ·® ¹è¼ö   	        => ÀúÇÔ·®¹è¼öó¹æ »çÀ¯ µé¾î°¡´Â Ä÷³..fastprcpflag ¿¡´Â ÄÚµå°í ±âŸÀ϶§ tootfact¿¡ ³»¿ë
		 - Åð¿øÈÄ ¿Ü·¡Ã³¹æ üũ
		 - ÀÔ¿øÀÏ ¶§ ¾àÁý°è È£Ãâ(skip)
		 - ÀÀ±ÞÀÏ ¶§ Áø·áÁö¿ø ¿¹¾à¸ðµâ È£Ãâ(skip)
		 - ó¹æÁߺ¹Ã¼Å©(skip)
		 - OCR ÀÚµ¿Ãâ·Â ocrcalcscorcd °ªÀº MMO001¿¡ global·Î ¼±¾ð. °ªÀº fPrcpSaveChkaft¿¡¼­ üũ(skip)
	*/
	  
	// 1. ¿ë·®ºÐÇÒ
		if ( divPrcpList.length > 0 ) { // ¿ë·®ºÐÇÒ, ÀúÇÔ·®
			if ( !isNull(model.getValue ( "/root/result/prcplist/prcpcd"))){
				for(var i=0; i<divPrcpList.length; i++){
					var divNode = divPrcpList.item(i);
					var divprcpcd = divNode.selectSingleNode("calcscorcd").text;
					var divprcpdd = divNode.selectSingleNode("prcpdd").text;
					var trgprcpcd = node.selectSingleNode("prcpcd").text;
					var trgprcpdd = node.selectSingleNode("prcpdd").text;
					if( trgprcpcd == divprcpcd && trgprcpdd == divprcpdd ){
						fAppendSaveNode( "/root/temp1/checkinvalprcp", "/root/main/prcp/prcplist["+(i+1)+"]" );
						limprcplistCnt++;
					}
			}
		}
	}
}