/**
 * @desc   : È­¸éÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ¹®¼¼Èñ
 * @---------------------------------------------------
 */
function fInitAfSignScrn(){ 
    var admininfo	= model.getValue ( "/root/admininfo" ); 
	var pid			= "";
	var orddd		= "";
	var cretno		= "";
	var instcd		= "";
	var ioflag		= "";
	var issdept		= "";
    var indschacptstat = "";
    var dschdd = "";
	
	//PRN Àû¿ë¿©ºÎ¸¦ ½Ç½Ã°£À¸·Î °¡Á®¿Í¼­ üũÇÑ´Ù. 2010-01-02 by LYJ 
    reqHardCodeInfo("/root/hidden/prnprcpyninfo", "/root/hidden/prnprcpyninfo", "173");
    model.makeValue( "/root/save/saveflaginfo/prnprcpyninfo", model.getValue("/root/hidden/prnprcpyninfo/hardcd/hardcd") );
   
	pid =  opener.javascript.getParameter ( "SMMMO00200_pid" );	

	if (!isNull ( pid )) {
	    orddd   = opener.javascript.getParameter ( "SMMMO00200_orddd");
		cretno  = opener.javascript.getParameter ( "SMMMO00200_cretno");
		instcd  = opener.javascript.getParameter ( "SMMMO00200_instcd");
		ioflag  = opener.javascript.getParameter ( "SMMMO00200_ioflag");	
		issdept = opener.javascript.getParameter ( "SMMMO00200_issdept");	
	} else {
		var pamInfoCvs = getGlobalVariable("paminfo");  //»ó´ÜÁ¤º¸°¡ ÀÖÀ» °æ¿ì´Â °Ë»ö
		var patFlagCvs  = getGlobalVariable("patflag");
		
		var pid = "";
	        if(pamInfoCvs.length > 0){
		    model.removeNodeSet ( "/root/paminfo/list" );
		    model.removeNodeSet ( "/root/patflag/list" );
		    
		    setCSVToNode ( "/root/paminfo", pamInfoCvs );
		    setCSVToNode ( "/root/patflag"  , patFlagCvs  );
		    pid = model.getValue ( "/root/paminfo/list/pid" );
		    ioflag = model.getValue ( "/root/paminfo/list/ioflag" );								
		    if ( ioflag == "O" || ioflag == "S") {
			    orddd = model.getValue ( "/root/paminfo/list/orddd" );
			    		    	
		    } else {					    
			    orddd = model.getValue ( "/root/paminfo/list/indd" );			    
		    }
		    cretno = model.getValue ( "/root/paminfo/list/cretno" );
		    instcd = model.getValue ( "/root/paminfo/list/instcd");
		 }
		 model.setValue("/root/init/srchcond2", pid);
		 model.setValue("/root/init/srchcond3", model.getValue("/root/paminfo/list/hngnm"));
		 model.setValue("/root/init/orddd",     orddd);
		 model.setValue("/root/init/orddeptnm", model.getValue("/root/paminfo/list/orddeptnm"));
		 model.setValue("/root/init/wardcd",    model.getValue("/root/paminfo/list/wardcd"));
	}	
	
	if ( !isNull ( pid )) {
		model.setValue ( "/root/send/cond1", "1");
		model.setValue ( "/root/send/cond2", pid);
		model.setValue ( "/root/send/cond3", instcd);
		model.setValue ( "/root/send/cond4", "Y");
		model.setValue ( "/root/send/cond5", "N");
		model.setValue ( "/root/send/cond6", ioflag);
		model.setValue ( "/root/send/cond7", pid);
		model.setValue ( "/root/send/cond8", orddd);
		model.setValue ( "/root/send/cond9", cretno);

        model.setValue("/root/init/srchcond2", pid);
		if (!submit ( "TRMMO00200",false )) {  //°Ë»ö ½ÃÀÛ °ªÀÌ ¾øÀ¸¸é clear ÇÑ´Ù.
			fClearAddPrcp();
			return;
		}

		var srcNodeList = model.instances(0).selectNodes("/root/patordinfo/patordinfolist");
		var currentDate = getCurrentDate(); 
		
		model.setValue("/root/formerkey/pseuacptflag", "N");
		if ( srcNodeList.length < 1) {
		    model.setValue ("/root/init/srchcond1", "1" );
		    model.setValue ("/root/init/srchcond2",  pid);
		    model.setValue ("/root/init/srchcond5",  ((getCurrentDate().toDate()).getAddDate(-12,"M")).getDateFormat());
		    fAfSignPatSrch();
		} else if ( srcNodeList.length == 1 ) { //°ªÀÌ ÇÑ°³¸é ¹Ù·Î È­¸é¿¡ º¸¿©ÁØ´Ù.
			var pid       = model.getValue("/root/patordinfo/patordinfolist/pid" );
			var orddd     = model.getValue("/root/patordinfo/patordinfolist/orddd" );
			var cretno    = model.getValue("/root/patordinfo/patordinfolist/cretno" );
			var instcd    = model.getValue("/root/patordinfo/patordinfolist/instcd" );
			var ioflag    = model.getValue("/root/patordinfo/patordinfolist/ioflag" );
			var orddeptcd = model.getValue("/root/patordinfo/patordinfolist/orddeptcd" ); 
    		var orddrid   = model.getValue("/root/patordinfo/patordinfolist/orddrid" );
    		var insukind  = model.getValue("/root/patordinfo/patordinfolist/insukindcd" ); 
    		var suppkind  = model.getValue("/root/patordinfo/patordinfolist/suppkind" ); 
    		var drvalidyn = model.getValue("/root/patordinfo/patordinfolist/drvalidyn" );  // ÅðÁ÷ ¿©ºÎ
    			 
			indschacptstat = model.getValue("/root/patordinfo/patordinfolist/indschacptstat" );
			dschdd = model.getValue("/root/patordinfo/patordinfolist/dschdd" );
			
			if ( drvalidyn == "N" || drvalidyn == "H") { // ÅðÁ÷ ¶Ç´Â ÈÞÁ÷ ÁßÀÎ ÀÇ»ç
			    model.setValue ("/root/init/srchcond1", "1" );
    		    model.setValue ("/root/init/srchcond2",  pid);
    		    model.setValue ("/root/init/srchcond5",  ((getCurrentDate().toDate()).getAddDate(-12,"M")).getDateFormat());
    		    fAfSignPatSrch();
			} else if ( "T" == indschacptstat && admininfo.substring( 0, 1 ) == "Y") {
			    model.setValue ("/root/init/srchcond1", "1" );
    		    model.setValue ("/root/init/srchcond2",  pid);
    		    model.setValue ("/root/init/srchcond5",  ((getCurrentDate().toDate()).getAddDate(-12,"M")).getDateFormat());
    		    fAfSignPatSrch();
			} else {
			    // Áø·áÀÏ°ú ÇöÀçÀÏÀÌ ´Ù¸¥ °æ¿ì °¡Á¢¼ö ÈÄ µ¥ÀÌŸ ¼ÂÆà 
        		if ( currentDate != orddd && ( ioflag == "O" || ioflag == "S" )) {
    				// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
    				model.setValue("/root/formerkey/pid",            pid);
    				model.setValue("/root/formerkey/orddd_old",      orddd);
    				model.setValue("/root/formerkey/cretno_old",     cretno);
    				model.setValue("/root/formerkey/instcd",         instcd);
    				model.setValue("/root/formerkey/genrflagcd_old", ioflag);
    				model.setValue("/root/formerkey/pseuacptflag",   "Y");
    
    				var returnkey = fSetAssumAccept(pid, orddd, cretno, "O", orddeptcd, orddrid); 
    				if (returnkey == false)  return ; 
    				
    				pid    = model.getValue("/root/execpatordinfo/execpatordinfolist/otpt_pid" ); 
    				orddd  = model.getValue("/root/execpatordinfo/execpatordinfolist/otpt_orddd" ); 
    				cretno = model.getValue("/root/execpatordinfo/execpatordinfolist/otpt_cretno" );	
    				
    				model.setValue("/root/formerkey/orddd",      orddd);
    				model.setValue("/root/formerkey/cretno",     cretno);
    				model.setValue("/root/formerkey/genrflagcd", ioflag);
    			} else if ( (ioflag == "I" || ioflag == "D" || ioflag == "E") && indschacptstat == "D" ) {
    				// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
    				model.setValue("/root/formerkey/pid",            pid);
    				model.setValue("/root/formerkey/orddd_old",      orddd);
    				model.setValue("/root/formerkey/cretno_old",     cretno);
    				model.setValue("/root/formerkey/instcd",         instcd);
    				model.setValue("/root/formerkey/genrflagcd_old", ioflag);
    				model.setValue("/root/formerkey/pseuacptflag",   "Y");
    				
    				var returnkey = fSetAssumAccept(pid, orddd, cretno, "I", orddeptcd, orddrid, insukind, suppkind ); 
    				if (returnkey == false)  return ; 
    				
    				pid    = model.getValue ( "/root/followup/followup/otpt_pid" ); 
    				orddd  = model.getValue ( "/root/followup/followup/otpt_orddd" ); 
    				cretno = model.getValue ( "/root/followup/followup/otpt_cretno" );	
    				ioflag = "O" ; 	//   °­Á¦·Î ¿Ü·¡ ¼ÂÆà 
    				model.setValue( "/root/patordinfo/patordinfolist/ioflag", ioflag); 
    				
    				model.setValue("/root/formerkey/orddd",      orddd);
    				model.setValue("/root/formerkey/cretno",     cretno);
    				model.setValue("/root/formerkey/genrflagcd", ioflag);
    			}
			
			    fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag , "N", dschdd );
		    } 
		} else if ( srcNodeList.length >= 1 ) { //°ªÀÌ ÇÑ°³ÀÌ»óÀ̸é Æ˾÷À» ¶ç¿î´Ù. 
			var xpt = window.screenleft + 50; 
			var ypt = window.screenTop + 80; 
			var coord = getRelativeCoordinate ( xpt, ypt ); 
			var mon = coord[0]; 
			xpt = coord[1]; 
			ypt = coord[2]; 

			modal ( "SPMMO09100", mon,  xpt, ypt, "patordinfo", "/root/patordinfo", "/root/patordinfo", "", false ); 
			// Æ˾÷¿¡¼­ Ãë¼Ò ½Ã À̺¥Æ® ó¸® 
			var cancelKey = getParameter ( "SPMMO09100_rtnyn"); 
			if (cancelKey != "Y") { 
				fClearAddPrcp(); 
				clearParameter("SPMMO09100_rtnyn" ); 
				return ; 
			}
			
			model.removeNodeset("/root/patordinfo/patordinfolist"); 
			var rtnparam = getParameter( "SPMMO09100_rtn_param"); 
			setCSVToNode("/root/patordinfo", rtnparam, "patordinfolist"); 
							
			var pid        = getParameter ( "SPMMO09100_pid" );
			var orddd      = getParameter ( "SPMMO09100_orddd");
			var cretno     = getParameter ( "SPMMO09100_cretno");
			var instcd     = getParameter ( "SPMMO09100_instcd");
			var ioflag     = getParameter ( "SPMMO09100_ioflag");	
			var orddeptcd  = getParameter ( "SPMMO09100_orddeptcd");	
			var orddrid    = getParameter ( "SPMMO09100_orddrid");	
			var insukind   = getParameter ( "SPMMO09100_insukind");	
			var suppkind   = getParameter ( "SPMMO09100_suppkind");
			indschacptstat = getParameter ( "SPMMO09100_indschacptstat");	
			dschdd = getParameter ( "SPMMO09100_dschdd");
			
			if ( getParameter ( "SPMMO09100_dc") != "DC" ) { 
				// Áø·áÀÏ°ú ÇöÀçÀÏÀÌ ´Ù¸¥ °æ¿ì °¡Á¢¼ö ÈÄ µ¥ÀÌŸ ¼ÂÆà  
				if ( currentDate != orddd && (ioflag == "O" || ioflag == "S")) {
					// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
					model.setValue("/root/formerkey/pid",            pid);
					model.setValue("/root/formerkey/orddd_old",      orddd);
					model.setValue("/root/formerkey/cretno_old",     cretno);
					model.setValue("/root/formerkey/instcd",         instcd);
					model.setValue("/root/formerkey/genrflagcd_old", ioflag);
					model.setValue("/root/formerkey/pseuacptflag",   "Y");											
					
					var returnkey = fSetAssumAccept(pid, orddd, cretno, "O", orddeptcd, orddrid); 
					if (returnkey == false)  return ; 
					
					pid    = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_pid" ); 
					orddd  = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_orddd" ); 
					cretno = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_cretno" ); 
	
					model.setValue("/root/formerkey/orddd", orddd);
					model.setValue("/root/formerkey/cretno", cretno);
					model.setValue("/root/formerkey/genrflagcd", ioflag);  	
				} else if ( (ioflag == "I" || ioflag == "D" || ioflag == "E") && indschacptstat == "D" ) {
					// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
					model.setValue("/root/formerkey/pid",            pid);
					model.setValue("/root/formerkey/orddd_old",      orddd);
					model.setValue("/root/formerkey/cretno_old",     cretno);
					model.setValue("/root/formerkey/instcd",         instcd);
					model.setValue("/root/formerkey/genrflagcd_old", ioflag);
					model.setValue("/root/formerkey/pseuacptflag",   "Y");	
					
					var returnkey = fSetAssumAccept(pid, orddd, cretno, "I", orddeptcd, orddrid, insukind, suppkind ); 
					if (returnkey == false)  return ; 
					
					pid    = model.getValue ( "/root/followup/followup/otpt_pid" ); 
					orddd  = model.getValue ( "/root/followup/followup/otpt_orddd" ); 
					cretno = model.getValue ( "/root/followup/followup/otpt_cretno" );	
					ioflag = "O" ; 	//   °­Á¦·Î ¿Ü·¡ ¼ÂÆà 
					model.setValue( "/root/patordinfo/patordinfolist/ioflag", ioflag); 
					
					model.setValue("/root/formerkey/orddd",      orddd);
					model.setValue("/root/formerkey/cretno",     cretno);
					model.setValue("/root/formerkey/genrflagcd", ioflag);  								
				}
			}	
	
			clearParameter("SPMMO09100_pid" );
			clearParameter("SPMMO09100_orddd");
			clearParameter("SPMMO09100_cretno");
			clearParameter("SPMMO09100_instcd");
			clearParameter("SPMMO09100_ioflag");	
			clearParameter("SPMMO09100_orddeptcd");	
			clearParameter("SPMMO09100_orddrid");		
			clearParameter("SPMMO09100_indschacptstat");		
			clearParameter("SPMMO09100_dschdd");		
			clearParameter("SPMMO09100_insukind");		
			clearParameter("SPMMO09100_suppkind");			

			if ( isNull(pid )) {
				fClearAddPrcp();
			} else {
				fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag , "N", dschdd );	
			}
		}
	}

	if ( ioflag == "O" ) caption14.visible = true;				//¿ø³»Ã³¹æ»çÀ¯		
	if (isNull(issdept)) issdept = getUserInfo( "dutplcecd" );	//¹ßÇàó
	
	model.setValue ( "/root/init/issdept", issdept );
	var depthngnm = model.getValue ( "/root/init/issdept/dept[deptcd='" + issdept + "']/depthngnm" );
    var sDutPlceCd = getUserInfo("dutplcecd");
        
	if ( isNull(depthngnm)) {
	    if (sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // ½É»ç½Ç ¿äûÀ¸·Î ¸Þ¼¼Áö Æ˾÷ Á¦°Å 2012.09.18 ¾ö¿µ¸¸
            messageBox ( "ÇöÀç ½ÃÇàºÎ¼­Ã³¹æÀÇ ¹ßÇàºÎ¼­´Â [" + getUserInfo ( "dutplcenm" ) + "] ÀÔ´Ï´Ù. \nÇØ´çºÎ¼­ ÄÚµå´Â ¹ßÇàºÎ¼­·Î µî·ÏµÇ¾î ÀÖÁö´Â ¾Ê½À´Ï´Ù. \n´Ù¸¥ ¹ßÇàºÎ¼­·Î ó¹æÀ» µî·ÏÇϽ÷Á¸é ¹ßÇàó¸¦ ¼öÁ¤ÇÏ¿© ÁֽʽÿÀ.", "E");
	    }
	} 
	
	if (getScreenMenuParameter() == "PAM") {
		cmb_prcpkind.disabled = true;
	}
	zesfInitSign();					
	model.removeNode ( "/root/init/prcpkindcd/M0003[cdid=80]" );
	model.setValue ( "/root/init/setprcpyn", "Y" );	
	
	if (sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // ½É»ç½Ç ¿äûÀ¸·Î Àüó¹æÅÇ Á¶È¸ Çϵµ·Ï ¼öÁ¤.  2012.09.18 ¾ö¿µ¸¸
        if (ivw_prcp3 != null) {
            ivw_prcp3.visible = false;
    	    ivw_prcp3.src = "SMMMO02100_Àüȸó¹æ.xrw";
	    }
    }
    
    //20131119 ÀÌÁ¤Åà Ãß°¡(»êÁ¤Æ¯·Ê ±â°£ ¾Ë ¼ö ÀÖµµ·Ï Ç¥½Ã)
    if(!isNull(model.getValue( "/root/initsrchprcp/prcpetccnts/message"))){
    	model.makeValue("/root/init/message", model.getValue( "/root/initsrchprcp/prcpetccnts/message"));
    }else{
    	model.makeValue("/root/init/message", "");
    }//20131119
}

/**
 * @desc   : ȯÀÚ Á¶È¸ 
 * @
 * @param  :
 * @return :
 * @author : ¹®¼¼Èñ
 * @---------------------------------------------------
 */
function fAfSignPatSrch(){
    var adminInfo = model.getValue ( "/root/admininfo" );
	var srchcond4 = model.getValue ( "/root/init/srchcond4" );
	 setParameter("SPMMO09100_paminfoyn", model.getValue ( "/root/init/paminfoyn" ));
	 
	if (isNull(srchcond4)) {
		model.setValue ( "/root/init/srchcond4", "-" );
		model.refresh();
	}
	// ´©¶ôó¹æÀÔ·Â Á¤º¸ ÃʱâÈ­ 
	setGlobalVariable("SPMMO16800_rtn1", ""); 
	model.resetInstanceNode("/root/prcpresn"); 
	
	// ±¸ ÀνºÅϽº ÃʱâÈ­ 
	model.resetInstanceNode("/root/formerkey");
	model.resetInstanceNode("/root/paminfo");

	clearParameter("SPMMO09100_pid" );
	clearParameter("SPMMO09100_orddd");
	clearParameter("SPMMO09100_cretno");
	clearParameter("SPMMO09100_instcd");
	clearParameter("SPMMO09100_ioflag");
	clearParameter("SPMMO09100_orddeptcd");
	clearParameter("SPMMO09100_orddrid");
	clearParameter("SPMMO09100_indschacptstat");
	clearParameter("SPMMO09100_rtnyn");
	clearParameter("SPMMO09100_dschdd");
	clearParameter("SPMMO09100_dc");
	clearParameter("SPMMO09100_insukind");
    clearParameter("SPMMO09100_suppkind");
	clearParameter("SPMMO09100_drvalidyn");

    model.setValue ( "/root/init/rrgstno1",  "");
    model.setValue ( "/root/init/rrgstno2",  "");
    model.setValue ( "/root/init/orddeptnm", "");
    model.setValue ( "/root/init/sex",       "");
    model.setValue ( "/root/init/age",       "");
    model.setValue ( "/root/init/wardcd",    "");
    model.setValue ( "/root/init/orddd",     "");

	model.setValue ( "/root/send/cond1",  model.getValue ( "/root/init/srchcond1" )); 
	if ( model.getValue ( "/root/send/cond1") == "1" ) { 
		model.setValue ( "/root/send/cond2",  model.getValue ("/root/init/srchcond2" )); 
	} else { 
		//À̸§À¸·Î °Ë»öÇÒ °æ¿ì 
		model.setValue ( "/root/send/cond2",  model.getValue ("/root/init/srchcond3" )); 
	} 
	
	model.setValue ( "/root/send/cond3",  getUserInfo("dutplceinstcd")); 
	model.setValue ( "/root/send/cond4",  "N"); 
	model.setValue ( "/root/send/cond5",  "N"); 
	model.setValue ( "/root/send/cond6",  model.getValue ("/root/init/srchcond4")); 
	model.setValue ( "/root/send/cond10", model.getValue ("/root/init/srchcond5")); 
	model.setValue ( "/root/send/cond11", model.getValue ("/root/init/srchcond6")); 
	if (!submit ( "TRMMO00200",false )) {  //°Ë»ö ½ÃÀÛ °ªÀÌ ¾øÀ¸¸é clear ÇÑ´Ù.
		fClearAddPrcp();
		return;
	}
	var srcNodeList = model.instances(0).selectNodes("/root/patordinfo/patordinfolist");
	var currentDate = getCurrentDate(); 
	
	model.setValue("/root/formerkey/pseuacptflag", "N");

	if ( srcNodeList.length >= 1 ) { //°ªÀÌ ÇÑ°³ÀÌ»óÀ̸é Æ˾÷À» ¶ç¿î´Ù. 
		var xpt = window.screenleft + 50; 
		var ypt = window.screenTop + 80; 
		var coord = getRelativeCoordinate ( xpt, ypt ); 
		var mon = coord[0]; 
		xpt = coord[1]; 
		ypt = coord[2]; 

		modal ( "SPMMO09100", mon,  xpt, ypt, "patordinfo", "/root/patordinfo", "/root/patordinfo", "", false );
		// Æ˾÷¿¡¼­ Ãë¼Ò ½Ã À̺¥Æ® ó¸® 
		var cancelKey = getParameter ( "SPMMO09100_rtnyn"); 
		if (cancelKey != "Y") { 
			fClearAddPrcp(); 
			clearParameter("SPMMO09100_rtnyn" ); 
			clearParameter("SPMMO09100_paminfoyn" );
			return ; 
		}

		model.removeNodeset("/root/patordinfo/patordinfolist");
		var rtnparam = getParameter( "SPMMO09100_rtn_param");
		setCSVToNode("/root/patordinfo", rtnparam, "patordinfolist");

		var pid            = getParameter ( "SPMMO09100_pid" );
		var orddd          = getParameter ( "SPMMO09100_orddd");
		var cretno         = getParameter ( "SPMMO09100_cretno");
		var instcd         = getParameter ( "SPMMO09100_instcd");
		var ioflag         = getParameter ( "SPMMO09100_ioflag");
		var orddeptcd      = getParameter ( "SPMMO09100_orddeptcd");
		var orddrid        = getParameter ( "SPMMO09100_orddrid");
		var indschacptstat = getParameter ( "SPMMO09100_indschacptstat");
		var dschdd         = getParameter ( "SPMMO09100_dschdd");
		var insukind       = getParameter ( "SPMMO09100_insukind");
		var suppkind       = getParameter ( "SPMMO09100_suppkind");
		var dcflag         = getParameter ( "SPMMO09100_dc");
		var drvalidyn      = getParameter ( "SPMMO09100_drvalidyn");
		//var srchdd         = getParameter ( "SPMMO09100_srchdd");
		var srchdd = ""; // ±âÁ¸¿¡ ÀÔ¿øÀÏÀÚ·Î Á¶È¸ ÇÏ´ø°ÍÀ» Åð¿ø ÀÏÀÚ·Î Á¶È¸ Çϵµ·Ï ¼öÁ¤ ÀÀ±Þ½Ç ³»¿øÈÄ º´µ¿ À̵¿ÀÏ °æ¿ì icdr¿¡ ordtype 'E' ·Î Á¸Àç ÇÏ¿© »ó´ÜÁ¤º¸ Á¶È¸½Ã ¿À·ù ¹ß»ý ¹æÁö 2014.07.11 ¾ö¿µ¸¸
		if(dschdd == "99991231") {
		    srchdd =  getCurrentDate();
		} else {
		    srchdd =  dschdd;
		}

		if ( dcflag != "DC" ) { 
			if ( currentDate != orddd && (ioflag == "O" || ioflag == "S")) { // Áø·áÀÏ°ú ÇöÀçÀÏÀÌ ´Ù¸¥ °æ¿ì °¡Á¢¼ö ÈÄ µ¥ÀÌŸ ¼ÂÆÃ. 20090604 Åð¿øÈÄ ¹Ù·Î °¡Á¢¼ö󸮰Ƕ§¹®¿¡ ¿Ü·¡¿¡¸¸ Àû¿ë. 
				// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
				model.setValue("/root/formerkey/pid",            pid);
				model.setValue("/root/formerkey/orddd_old",      orddd);
				model.setValue("/root/formerkey/cretno_old",     cretno);
				model.setValue("/root/formerkey/instcd",         instcd);
				model.setValue("/root/formerkey/genrflagcd_old", ioflag);
				model.setValue("/root/formerkey/pseuacptflag",   "Y");
				
				var returnkey = fSetAssumAccept(pid, orddd, cretno, "O", orddeptcd, orddrid); 
				if (returnkey == false)  return ; 
				
				pid    = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_pid" ); 
				orddd  = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_orddd" ); 
				cretno = model.getValue ( "/root/execpatordinfo/execpatordinfolist/otpt_cretno" ); 

				model.setValue("/root/formerkey/orddd",      orddd);
				model.setValue("/root/formerkey/cretno",     cretno);
				model.setValue("/root/formerkey/genrflagcd", ioflag);
			} else if ( (ioflag == "I" || ioflag == "D" || ioflag == "E") && indschacptstat == "D" ) {
				// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ Å° ¼ÂÆà 
				model.setValue("/root/formerkey/pid",            pid);
				model.setValue("/root/formerkey/orddd_old",      orddd);
				model.setValue("/root/formerkey/cretno_old",     cretno);
				model.setValue("/root/formerkey/instcd",         instcd);
				model.setValue("/root/formerkey/genrflagcd_old", ioflag);
				model.setValue("/root/formerkey/pseuacptflag",   "Y");
				
				var returnkey = fSetAssumAccept(pid, orddd, cretno, "I", orddeptcd, orddrid, insukind, suppkind ); 
				if (returnkey == false)  return ; 
				
				pid    = model.getValue ( "/root/followup/followup/otpt_pid" );
				orddd  = model.getValue ( "/root/followup/followup/otpt_orddd" );
				cretno = model.getValue ( "/root/followup/followup/otpt_cretno" );
				ioflag = "O" ; 	//   °­Á¦·Î ¿Ü·¡ ¼ÂÆà 
				model.setValue( "/root/patordinfo/patordinfolist/ioflag", ioflag);
				
				model.setValue("/root/formerkey/orddd",      orddd);
				model.setValue("/root/formerkey/cretno",     cretno);
				model.setValue("/root/formerkey/genrflagcd", ioflag);
			}
		}	

		clearParameter("SPMMO09100_pid" );
		clearParameter("SPMMO09100_orddd");
		clearParameter("SPMMO09100_cretno");
		clearParameter("SPMMO09100_instcd");
		clearParameter("SPMMO09100_ioflag");
		clearParameter("SPMMO09100_orddeptcd");
		clearParameter("SPMMO09100_orddrid");
		clearParameter("SPMMO09100_indschacptstat");
    	clearParameter("SPMMO09100_rtnyn");
		clearParameter("SPMMO09100_dschdd");
		clearParameter("SPMMO09100_dc");
		clearParameter("SPMMO09100_insukind");
		clearParameter("SPMMO09100_suppkind");
		clearParameter("SPMMO09100_drvalidyn");

		if ( isNull(pid )) {
			fClearAddPrcp();
		} else {
		    var sPamInfoYn = model.getValue ( "/root/init/paminfoyn" );
		    if ( dcflag == "DC" || sPamInfoYn == "Y") { // »ó´ÜÁ¤º¸ ¼³Á¤(°ú°Åó¹æDC, »ó´ÜÁ¤º¸ ¿¬°è)
		        // ÅðÁ÷Àǻ翡 ´ëÇؼ­ admin ±ÇÇÑÀ» °¡Áø »ç¶÷ÀÏ °æ¿ì´Â ÀÔ¿øÀϷΠüũÇϵµ·Ï ÇÑ´Ù.
		        var sTopSrchDd = "";
    			if ( drvalidyn == "N" && adminInfo.substring(0, 6) == "YYYYYY") {
    				sTopSrchDd = orddd;  
    			}
		        fSetTopPatInfo(instcd, ioflag, pid, orddd, cretno, sTopSrchDd); 
		        setParameter("SPMMO08900_rtn_useyn", "");  // ó¹æ ÀúÀåÈÄ ÀÇ»çó¹æÈ­¸é ¼³Á¤·ÎÁ÷À» ½ºÅµ Çϱâ À§ÇØ
		    } else {
		        var sDutPlceCd = getUserInfo("dutplcecd");
				if (sDutPlceCd != "4072000000" && sDutPlceCd != "4070700000" ) { // ½É»ç½Ç¿¡¼­ °¡Åð¿ø ȯÀÚ ¼±Åýà »ó´Ü Á¤º¸ »èÁ¦ µÇÁö ¾Êµµ·Ï ó¸®  2013.09.25 ¾ö¿µ¸¸
					delPatientInfos(); 
				}
		    }
		    
		    if(adminInfo.substring(0, 6) != "YYYYYY") {
			    fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag , "N",  dschdd );	
			} else {
			    fAddPrcpInitConDone( pid, orddd, cretno, instcd, ioflag , "N",  dschdd , srchdd);	
			}
			fPatDethInfo(); //»ç¸ÁȯÀÚ alert(2009.12.21 JJE)
		}
	}
    model.refresh();
}

/**
 * @desc   : »ó´Ü Á¤º¸¸¦ ¼ÂÆà ÇÑ´Ù.
 * @
 * @param  :
 * @return :
 * @author : 2014-06-09 ¾ö¿µ¸¸
 * @---------------------------------------------------
 */
function fSetTopPatInfo(sInstCd, sIoFlag, sPid, sOrdDd, sCretNo, sSrchDd) {
	var sTopIoFlag = "";
	if(sIoFlag == "O" || sIoFlag =="S") { //¿Ü·¡, °ÇÁø
	    sTopIoFlag = "O";
	} else if(sIoFlag == "I" || sIoFlag =="D") { //ÀÔ¿øȯÀÚ, DSC
	    sTopIoFlag = "I";
	} else if(sIoFlag == "E") { //ÀÀ±Þ½Ç
	    sTopIoFlag = "E";
	}
	
	var sParam = sTopIoFlag + "¢Ë"  
			   + sPid       + "¢Ë"
			   + sOrdDd     + "¢Ë"
			   + sCretNo    + "¢Ë"
			   + sInstCd    + "¢Ë"
			   + sSrchDd;
	
	setParameter("condparam", sParam);
	modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");	
}

/**
 * @desc   : ÈÄÀÎÁõ ´ë»ó °Ë»ç
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fChkAfSignUser(){
  //20090302 ¸¶Á¤¹Î ¼öÁ¤ ÀÇ»ç Á÷Á¤Äڵ尡 ¾Æ´Ï¸é ¸ðµÎ ÈÄÀÎÁõ Æ˾÷ ¶ßµµ·Ï ¼öÁ¤
  var jobkindcd = getUserInfo("jobkindcd");
  var userid    = getUserInfo("userid");
  
   if ( isNull(model.getValue ( "/root/initsrch/drjobkindcd[trgtcd='" + jobkindcd + "']/trgtcd" ))) {

      //ÈÄÀÎÁõ ´ë»óÀÇ»ç ¼±Åà Æ˾÷ ¶ç¿ò
      if (!fChkAfSignPrcpInfo()){
		  return false;
      }
      
      var prcpflag = model.getValue("/root/init/prcpauthflag");
	  if(!fPrcpSave(prcpflag)) {
          model.removeNodeset("/root/prcpdc/prcplist");
	  }

  } else {
      var prcpflag = model.getValue("/root/init/prcpauthflag");
	  if(!fPrcpSave(prcpflag)) {
          model.removeNodeset("/root/prcpdc/prcplist");
	  }
  }
}

/**
 * @desc   : ÈÄÀÎÁõ ó¹æ °Ë»ç
 *         : H2 - ¼ö¼ú
 *         : A2 - °æ±¸
 *         : A4 - ¿Ü¿ë
 *         : A6 - ÁÖ»ç
 *         : C2 - ¿µ»ó
 *         : C4 - Angio 
 *         : B2 - Áø°Ë
 *         : B4 - ¼öÇ÷
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fChkAfSignPrcpInfo(){    
    //var prcpclscd = model.getValue("/root/main/prcp/prcplist[prcpclscd='H2' or prcpclscd='A2' or prcpclscd='A4' or prcpclscd='A6' or prcpclscd='C2' or prcpclscd='C4' or prcpclscd='B2' or prcpclscd='B4' or prcpclscd='G2']/prcpclscd");
    var chkprcpclscd = "";
    var chkearnclscd = "";
    var chkaftcertyn = "";
    //20090302 ¸¶Á¤¹Î ¼öÁ¤: ÈÄÀÎÁõ ó¹æÁ¾·ù, ¼öÀͺзù üũ. hardcd Å×À̺í Á¤º¸ ÀÌ¿ë
	for (var i=1; i < grd_prcplist.rows; i++) {  
		chkprcpclscd = model.getValue("/root/main/prcp/prcplist[" + i + "]/prcpclscd");
		chkearnclscd = model.getValue("/root/main/prcp/prcplist[" + i + "]/tempcol2");
	    if (!isNull(model.getValue ( "/root/initsrch/aftcertprcpcls[trgtcd='" + chkprcpclscd + "']/trgtcd" ))) {
			chkaftcertyn = "Y";
			break;
		} else if (!isNull(model.getValue ( "/root/initsrch/aftcertearncls[trgtcd='" + chkearnclscd + "']/trgtcd" ))) {
			chkaftcertyn = "Y";
			break;
		}
	}

    if ( chkaftcertyn == "Y" ) { 
		
		var ioflag = model.getValue ( "/root/paminfo/list/ioflag");
		if ( ioflag == "O" || ioflag == "S" ) {
	        setParameter("SPMMB04100_orddrid", model.getValue ( "/root/paminfo/list/orddrid" ));
		} else {
	        setParameter("SPMMB04100_orddrid", model.getValue ( "/root/paminfo/list/medispclid" ));
		}
        setParameter("SPMMB04100_defdeptcd", model.getValue ( "/root/paminfo/list/orddeptcd" ));
        setParameter("SPMMB04100_prcpcd", model.getValue ( "/root/init/prcpdd" ));


        modal("SPMMB04100");
        
        var useyn = getParameter("SPMMB04100_useyn");
		if (useyn != "Y") {
			return false;
		}
        if(useyn == "Y"){ //ÈÄÀÎÁõ ¼±ÅÃÀÇ»ç·Î ¼³Á¤
            var orddrid = getParameter("SPMMB04100_orddrid");
    
        } else if(useyn == "X"){ //ȯÀÚÀÇ Àü¹®ÀÇ·Î ¼³Á¤
            var ioflag = model.getValue("/root/patflag/list/prcpgenrflag");
    
            if(ioflag == "O" || ioflag == "S"){ //¿Ü·¡, °ÇÁø
                var orddrid = model.getValue("/root/paminfo/list/orddrid");
    
            }else{
                var orddrid = model.getValue("/root/paminfo/list/medispclid");
    
            }
        }

        fSetAfSignDr(orddrid); //ÈÄÀÎÁõ ±¸ºÐ ¹× ÀÇ»ç ¼³Á¤
    }
		return true;
}

/**
 * @desc   : ÈÄÀÎÁõ ±¸ºÐ ¹× ÀÇ»ç ¼³Á¤
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fSetAfSignDr( orddrid ) {  
    //20090302 ¸¶Á¤¹Î ¼öÁ¤: ÈÄÀÎÁõ ó¹æÁ¾·ù, ¼öÀͺзù üũ. hardcd Å×À̺í Á¤º¸ ÀÌ¿ë
	for (var i=1; i < grd_prcplist.rows; i++) {  
		chkprcpclscd = model.getValue("/root/main/prcp/prcplist[" + i + "]/prcpclscd");
		chkearnclscd = model.getValue("/root/main/prcp/prcplist[" + i + "]/tempcol2");
	    if (!isNull(model.getValue ( "/root/initsrch/aftcertprcpcls[trgtcd='" + chkprcpclscd + "']/trgtcd" ))) {
			model.setValue("/root/main/prcp/prcplist[" + i + "]/aftcertflag", "01");
			model.setValue("/root/main/prcp/prcplist[" + i + "]/aftcertdrid", orddrid);
		} else if (!isNull(model.getValue ( "/root/initsrch/aftcertearncls[trgtcd='" + chkearnclscd + "']/trgtcd" ))) {
			model.setValue("/root/main/prcp/prcplist[" + i + "]/aftcertflag", "01");
			model.setValue("/root/main/prcp/prcplist[" + i + "]/aftcertdrid", orddrid);
		}
	}
}

/**
 * @desc   : ¹ß»ýÀÏÀÌ Æ²¸± °æ¿ì °¡Á¢¼ö ¹ß»ý 
 * @
 * @param  :
 * @return :
 * @author : ¹®¼¼Èñ
 * @---------------------------------------------------
 */
function fSetAssumAccept( pid, orddd, cretno, ioflag, orddeptcd, orddrid, insukind, suppkind ){ 
	// ¼öÁøÁ¤º¸°¡ ¿Ü·¡, ÀÔ¿øÀÏ °æ¿ì µû·Î ó¸® 
	if (ioflag == "O") { 
		model.makeValue("root/send/flag",           "I"); 
		model.makeValue("root/send/otpt_pid",       pid); 
		model.makeValue("root/send/otpt_orddd",     orddd); 
		model.makeValue("root/send/otpt_cretno",    cretno); 
		model.makeValue("root/send/otpt_orddeptcd", orddeptcd); 
		model.makeValue("root/send/otpt_orddrid",   orddrid); 
		model.makeValue("root/send/otpt_histstat",  "T"); 
		
		if(submit("TRMMO09101") == false){ 
			// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ ÀνºÅϽº ÃʱâÈ­ 
			model.resetInstanceNode("/root/formerkey");
			return false; 
		} 
	} else if (ioflag == "I") {
		var otpt_flag = "I"; 									// ±¸ºÐ Á¤º¸
		var otpt_orddd = getCurrentDate(); 						// ¹ß»ýÀÏ
		var otpt_orddeptcd = orddeptcd; 						// ¹ß»ýºÎ¼­
		var otpt_orddrid = orddrid;								// ¹ß»ýÀÇ
		var otpt_ordtm = eval(getCurrentTime().substr(0,4)); 	// ÇöÀç ½Ã°£	
		var otpt_rsrvflag = "P"; 								// ½ÃÇàºÎ¼­ ó¹æ 'P' 
		var sess_userid = getUserInfo("userid"); 				// »ç¿ëÀÚ ID 
		var indd = orddd;   									// ÀÔ¿øÀÏ 
		var otpt_pid = pid; 									// ȯÀÚID
		var otpt_etcordflag = "-" ; 							// ÀçÈ° :M  ¿Ü¿¡´Â ³ÖÁö ¸»°Í, ±âŸÁ¢¼ö±¸ºÐ 
		var otpt_medamtestmyn = "N"; 							// 'N' ÁøÂû·á»êÁ¤¿©ºÎ ¸éÁ¦ 
		var otpt_medamtfreeresn = "17"; 						// ÁøÂû·á¹Ì»êÁ¤»çÀ¯ - '17' ½ÃÇàºÎ¼­Ã³¹æ 
		
		model.makeValue("/root/send/cond1", otpt_flag);			
		model.makeValue("/root/send/cond3", otpt_orddd);				
		model.makeValue("/root/send/cond4", otpt_orddeptcd);	
		model.makeValue("/root/send/cond5", otpt_orddrid);  	
		model.makeValue("/root/send/cond6", otpt_ordtm);    	
		model.makeValue("/root/send/cond7", otpt_rsrvflag); 
		model.makeValue("/root/send/cond8", sess_userid);	
		model.makeValue("/root/send/cond9", indd);			
		model.makeValue("/root/send/cond10", cretno); 
		model.makeValue("/root/send/cond11", otpt_pid); 
		model.makeValue("/root/send/cond12", otpt_etcordflag); 
		model.makeValue("/root/send/cond13", otpt_medamtestmyn); 
		model.makeValue("/root/send/cond14", otpt_medamtfreeresn); 
		model.makeValue("/root/send/cond15", insukind); 
		model.makeValue("/root/send/cond16", suppkind); 
		
		if(submit("TXMMO00107") == false){
			// Áø´Ü¸í Á¶È¸¸¦ À§ÇÑ ±¸ ÀνºÅϽº ÃʱâÈ­
			model.resetInstanceNode("/root/formerkey");
			return false; 
		}
	}
}


/**
 * @desc   : °£È£¿¡¼­ ȯÀÚÀÇ »ç¸ÁÁ¤º¸ ºÒ·¯¿À±â
 * @
 * @param  :
 * @return :
 * @author : ¹ÚÀ¯Áø
 * @---------------------------------------------------
 */
function fPatDethInfo(){
	var pid = model.getValue("/root/paminfo/list/pid");
	if(!isNull(pid)){
  	model.makeValue("root/send/getpatdethinfo",pid);
		if(submit("TRMMO00216", false)){
			var dethyn = model.getValue("/root/temp/deth/dethinfo/dethyn");
			if(dethyn=="Y"){
				var dethdd = model.getValue("/root/temp/deth/dethinfo/dethdd");
				messageBox( dethdd + " »ç¸Á µî·ÏµÈ", "I005");
			}
		}
		model.removeNode ("root/send/getpatdethinfo");
	}
}