/**
 * @desc   : È­¸é ÃʱâÈ­
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : ÀÌ»óÇö
 */
function fInitialize()
{
    mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", "D");
    addComboInstance("/root/init/orddept", "deptcd^depthngnm", "-^Àüü", "dept");            //Áø·á°ú ÀüüÇ׸ñ Ãß°¡
    
    zbcfGetCodeList(new Array("P0008"), new Array("/root/init/item")); //°øÅëÄÚµå º¸ÇèÀ¯Çü(°Ç°­º¸Çè,ÀÇ·á±Þ¿©,»êÀç,ÀÚº¸ µî)
    zbcfGetCodeList(new Array("P0010"), new Array("/root/init/item")); //°øÅëÄÚµå º¸Á¶À¯Çü(Á¤»ó±Þ¿©,º»Àκδã100% µî)

    model.setValue("/root/main/orddeptcd", opener.javascript.getParameter("SPMMR05500_orddeptcd"));
    //grd_patinfo.colhidden(0) = true;

    var formcd = opener.javascript.getParameter("SPMMR05500_formcd");
    
    if(formcd != "0000001457")//¼ö¼úÈ®Àμ­
    {        
        grd_oplist.visible = false;
        caption2.visible   = false;
        line2.visible      = false;
        bool2.visible      = false;
        
        grd_oplist.attribute("top")  = "0px";
        btn_confirm.attribute("top") = "336px";
        btn_cncl.attribute("top")    = "336px";
        
        document.rebuild = true; 
        document.body.refresh();
        window.setSize(690, 440);
    }
    
    model.setValue("/root/main/amtyn", ""); // 2011-01-19 °æºÏ´ë ÃÖ¿øµ· ±Ý¾× Á¶È¸ Æ÷ÇÔ ¿©ºÎ : ÃʱâÈ­
    
    // knuh_20110324_¹Ú¼ºÈ£(ÀÔ¿ø»ç½ÇÈ®Àμ­(ÀÔ¿øÁß) Ãß°¡)
    if(formcd == "0000001457" ||   //¼ö¼úÈ®Àμ­
       formcd == "0000002792" ||   //»ó±Þº´½ÇÈ®Àμ­ (2009.07.27. Ãß°¡)
       formcd == "0000001300" ||   //ÀÔÅð¿øÈ®Àμ­(¿ø¹«¿ë)
       formcd == "0000001283" ||   //ÀÔÅð¿øÈ®Àμ­(Áø·á¿ë)            
       formcd == "1100011101")     //ÀÔ¿ø»ç½ÇÈ®Àμ­(ÀÔ¿øÁß)
    
    {
    	// knuh_20110324_¹Ú¼ºÈ£(ÀÔ¿ø»ç½ÇÈ®Àμ­(ÀÔ¿øÁß) Ãß°¡)
        //if(formcd == "0000001300")
        if(formcd == "0000001300" || formcd == "1100011101")
        {
            //grd_patinfo.colhidden(0) = false;
            model.setValue("/root/main/orddeptcd", "-");
        }
        model.setValue("/root/main/ordtype", "I");
        rdo_ordtype.disabled = true;
    }
    else if(formcd == "0000001312" ||   //¿Ü·¡Áø·áÈ®Àμ­
            formcd == "0000002639" ||   //Åë¿øÄ¡·áÈ®Àμ­
            formcd == "0000002588")     //Åë¿øÄ¡·áÈ®Àμ­(¿µ¹®)            
    {
        if(formcd == "0000001312")
        {
            //grd_patinfo.colhidden(0) = false;
            model.setValue("/root/main/orddeptcd", "-");
        }
        model.setValue("/root/main/ordtype", "O");
        rdo_ordtype.disabled = true;

		    model.setValue("/root/main/amtyn", "Y"); // 2011-01-19 °æºÏ´ë ÃÖ¿øµ· ±Ý¾× Á¶È¸ Æ÷ÇÔ ¿©ºÎ : ¼³Á¤
    } 
    
    //2012/03/29 Start
    	model.setValue("/root/send/patinfo/daykijun", "0");
    //2012/03/29 End
    
    fGetPatHist();
}

/**
 * @desc   : ȯÀÚ ¼öÁøÀÌ·Â Á¶È¸
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : ÀÌ»óÇö
 */
function fGetPatHist(){
	
	//2009-08-06 ¿ÀÈÄ 5:40:21 °­ÁöÈÆ ¼öÁ¤ : nopay Y : Áø·áºÎµµÁ¦¿Ü N : Áø·áºÎµµ Æ÷ÇÔ
	var nopay     = opener.javascript.getParameter("SPMMR05500_nopay");
    var pid       = opener.javascript.getParameter("SPMMR05500_pid");
    var orddeptcd = model.getValue("/root/main/orddeptcd");
    var ordtype   = model.getValue("/root/main/ordtype");
    model.setValue("/root/send/patinfo/pid"      , pid);
    model.setValue("/root/send/patinfo/orddeptcd", orddeptcd);
    model.setValue("/root/send/patinfo/ordtype"  , ordtype);
    model.setValue("/root/send/patinfo/nopay"    , nopay);
	// 2011-01-19 °æºÏ´ë ÃÖ¿øµ· Á¶È¸±â°£ ¹× ±Ý¾× Á¶È¸ Æ÷ÇÔ ¿©ºÎ
    model.setValue("/root/send/patinfo/ordddfr"  , model.getValue("/root/main/ordddfr"));
    model.setValue("/root/send/patinfo/ordddto"  , model.getValue("/root/main/ordddto"));
    model.setValue("/root/send/patinfo/amtyn"    , model.getValue("/root/main/amtyn"));

    if(submit("TRMMR05501")){
    }
}

/**
 * @group  :
 * @ver    : 
 * @by     : ÀÌ»óÇö
 * @modify : 2008.07.22
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ ¼öÁøÀÌ·Â ¼±Åýà À̺¥Æ®
 * @param  : 
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fSelectPatInfo(){

    var formcd    = opener.javascript.getParameter("SPMMR05500_formcd");
    var pid       = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/pid");
    var cretno    = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/cretno");
    var orddd     = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/orddd");
    var ordtype   = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/ordtype");
    var orddeptcd = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/orddeptcd");
    var orddeptnm = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/orddeptnm");
    var tabtype   = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/tabtype");
    var dschdd    = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/dschdd");
    var hngnm     = model.getValue(grd_patinfo.attribute("nodeset") + "[" + grd_patinfo.row + "]/hngnm");
      
    // knuh_20110324_¹Ú¼ºÈ£(ÀÔ¿ø»ç½ÇÈ®Àμ­(ÀÔ¿øÁß) Ãß°¡) 
    //if(formcd == "0000001300" || formcd == "0000001283"){ //ÀÔÅð¿øÈ®Àμ­, ÀÔ¿ø»ç½ÇÈ®Àμ­
	if(formcd == "0000001300" || formcd == "0000001283" || formcd == "1100011101"){ //ÀÔÅð¿øÈ®Àμ­, ÀÔ¿ø»ç½ÇÈ®Àμ­    	
        var selectList = instance1.selectNodes(grd_patinfo.attribute("nodeset") + "[chk = 'Y']");        
        var msg = "";
        for(var i = 0; i < selectList.length; i++){
            var item = selectList.item(i);
            var indd = item.selectSingleNode("orddd").text;            
            indd = indd.toDate().getDateFormat("YYYY/MM/DD");
            
            var dschdd = item.selectSingleNode("dschdd").text; 
            if(dschdd != "Àç¿øÁß"){
                dschdd = dschdd.toDate().getDateFormat("YYYY/MM/DD");                
            }
                        
            var orddeptnm = item.selectSingleNode("orddeptnm").text;            
            if(i == 0){
                msg += "[" + orddeptnm + "]  " + indd + " - " + dschdd;
                
            }else{
                msg += "\n[" + orddeptnm + "]  " + indd + " - " + dschdd;
                
            }
        }
        msg += "\n\n»ó±âȯÀÚ´Â À§ ±â°£µ¿¾È ÀÔ¿øÄ¡·á ÇÏ¿´À½À» È®ÀÎÇÕ´Ï´Ù.";
        opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , msg);
        window.close();
        
    }else if(formcd == "0000001312" || formcd == "0000002639"){ //¿Ü·¡Áø·áÈ®Àμ­, Åë¿øÄ¡·á È®Àμ­
        var selectList = instance1.selectNodes(grd_patinfo.attribute("nodeset") + "[chk = 'Y']");

        var msg = "";
       
        //2012/04/12 Start
            var chk=model.getValue("/root/send/patinfo/daykijun");
            if(chk=="0"){ //¼öÁøÀÏ ±âÁØ
            	msg += "[¼ö³³±Ý¾× ±âÁØ]" + "\n\n\n";
            }else if(chk=="1"){ // ½Ç½ÃÀÏ ±âÁØ 
            	msg += "[½Ç½Ã±Ý¾× ±âÁØ]" + "\n\n\n";
            }
        //2012/04/12 End
        
        for(var i = 0; i < selectList.length; i++){
            var item = selectList.item(i);
            var orddd = item.selectSingleNode("orddd").text;            
            orddd = orddd.toDate().getDateFormat("YYYY/MM/DD"); 
            
            //2013/02/15 Start ´ýÇÁ ȯÀÚÀÎ °æ¿ì´Â ¸ñ·Ï¿¡¼­ ¾Èº¸¿© ÁÖµµ·Ï ¼öÁ¤(±è¹«Á¶ ÆÄÆ®Àå´Ô°ú ÅëÈ­·Î ÇùÀÇ)
            if(item.selectSingleNode("tranflagyn").text == "Y"){
            	continue;
            }
            //2013/02/15 End
            
// 2013.11.14  »ó°ü¾øÀÌ ¸ðµÎ º¸¿©ÁÖ±â             
            //2013/06/12 Start   
/*            if(chk=="0" && item.selectSingleNode("issamt").text=="0"){ //¼ö³³±Ý¾×
            	continue;
            }else if(chk=="1" && item.selectSingleNode("silsiamt").text=="0"){ //½Ç½Ã±Ý¾×
            	continue;
            }
*/            
            //2013/06/12 End
            
            //KNUH 2011-04-29 ÃÖ¿øµ· ¼öÁøÁ¤º¸ Á¶È¸ ½Ã DSC/CHEMO ȯÀÚÀÏ °æ¿ì
            //¿Ü·¡¼öÁøÁ¤º¸(¼öÁøÀÏÀÚ, ±Ý¾×, °Ë»çÀÏÀÚ) Áß ±Ý¾× ¶Ç´Â °Ë»çÀÏÀÚ°¡ ÀÖÀ¸¸é Áõ¸í¼­ º¹»çÀÔ·Â ½Ã
            //¼öÁøÀÏÀÚ¸¦ NULL('          ')·Î ÀÔ·ÂÇÏ°í, ³ª¸ÓÁö´Â ±×´ë·Î ÀԷµǵµ·Ï ±â´É Ãß°¡
            if(item.selectSingleNode("tranflagyn").text == "Y")
            {
	            orddd = "               ";
            }

            var orddeptnm = item.selectSingleNode("orddeptnm").text;
            
            if(i == 0){
                msg += "[" + orddeptnm + "]  " + orddd;
                
            }else{
                msg += "\n[" + orddeptnm + "]  " + orddd;
                
            }

			//2012/04/12 Start ½Ç½Ã±Ý¾× ±âÁØ
			if(chk=="0"){ //¼öÁøÀÏ ±âÁØ ±Ý¾×Ç¥½Ã
				var ls_issamt = item.selectSingleNode("issamt").text;
	          	if (ls_issamt != "" && ls_issamt != "0"){
		            msg += "  (±Ý¾× : " + fGetaddCommas(item.selectSingleNode("issamt").text) + "¿ø)";
		        }
			}else if(chk=="1"){ // ½Ç½ÃÀÏ ±âÁØ ±Ý¾×Ç¥½Ã
				var ls_silsiamt = item.selectSingleNode("silsiamt").text;
	          	if (ls_silsiamt != "" && ls_silsiamt != "0"){
		            msg += "  (±Ý¾× : " + fGetaddCommas(item.selectSingleNode("silsiamt").text) + "¿ø)";
		        }
			}
			/* 2012/04/12 ÁÖ¼®Ã³¸®
            // 2011-01-19 °æ´ëº´¿ø ÃÖ¿øµ· Åë¿øÄ¡·áÈ®Àμ­ ±Ý¾×Ãß°¡
          	var ls_issamt = item.selectSingleNode("issamt").text;
          	
          	if (   ls_issamt != ""
                && ls_issamt != "0")
          	{
	            msg += "  (±Ý¾× : " + fGetaddCommas(item.selectSingleNode("issamt").text) + "¿ø)";
	          }
           */
           // 2012/04/12 End
           
           
            // 2011-03-29 °æ´ëº´¿ø ÃÖ¿øµ· °Ë»çÀÏÀÚ Ãß°¡
          	var ls_testdd = item.selectSingleNode("testdd").text;
          	
          	if (ls_testdd != "")
          	{
	            msg += "  (½ÃÇàÀÏÀÚ : " + item.selectSingleNode("testdd").text + ")";
	          }
        }
        opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , msg);
        window.close();
        
    }else if(formcd == "0000002588"){ //Åë¿øÄ¡·á È®Àμ­(¿µ¹®)
        var selectList = instance1.selectNodes(grd_patinfo.attribute("nodeset") + "[chk = 'Y']");
        var msg = "";
        for(var i = 0; i < selectList.length; i++){
            var item = selectList.item(i);
            var orddd = item.selectSingleNode("orddd").text;            
            orddd = orddd.toDate().getDateFormat("YYYY/MM/DD");            

            //KNUH 2011-04-29 ÃÖ¿øµ· ¼öÁøÁ¤º¸ Á¶È¸ ½Ã DSC/CHEMO ȯÀÚÀÏ °æ¿ì
            //¿Ü·¡¼öÁøÁ¤º¸(¼öÁøÀÏÀÚ, ±Ý¾×, °Ë»çÀÏÀÚ) Áß ±Ý¾× ¶Ç´Â °Ë»çÀÏÀÚ°¡ ÀÖÀ¸¸é Áõ¸í¼­ º¹»çÀÔ·Â ½Ã
            //¼öÁøÀÏÀÚ¸¦ NULL('          ')·Î ÀÔ·ÂÇÏ°í, ³ª¸ÓÁö´Â ±×´ë·Î ÀԷµǵµ·Ï ±â´É Ãß°¡
            if(item.selectSingleNode("tranflagyn").text == "Y")
            {
	            orddd = "               ";
            }

            var orddeptcd = item.selectSingleNode("orddeptcd").text;
            
            // ¿µ¹® ºÎ¼­¸í °¡Á®¿À±â
            var orddeptnm = item.selectSingleNode("orddeptnm").text;
            
            model.makeValue("/root/send/deptcd", orddeptcd);
            submit("TRMRF01217");
            orddeptnm = model.getValue("/root/main/deptinfo/deptengnm");
                       
            if(i == 0){
                msg += "[" + orddeptnm + "]  " + orddd;

            }else{
                msg += "\n[" + orddeptnm + "]  " + orddd;
                
            }

            // 2011-01-19 °æ´ëº´¿ø ÃÖ¿øµ· Åë¿øÄ¡·áÈ®Àμ­ ±Ý¾×Ãß°¡
          	var ls_issamt = item.selectSingleNode("issamt").text;
          	
          	if (ls_issamt != ""
                && ls_issamt != "0")
          	{
	            msg += "  (Amount : " + fGetaddCommas(item.selectSingleNode("issamt").text) + "KW)";
	          }

            // 2011-03-29 °æ´ëº´¿ø ÃÖ¿øµ· °Ë»çÀÏÀÚ Ãß°¡
          	var ls_testdd = item.selectSingleNode("testdd").text;
          	
          	if (ls_testdd != "")
          	{
	            msg += "  (The exam date : " + item.selectSingleNode("testdd").text + ")";
	          }
        }
        opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , msg);
        window.close();

     }else if(formcd == "0000002792"){ //»ó±Þº´½ÇÈ®Àμ­ (2009.07.27. Ãß°¡)
        var selectList = instance1.selectNodes(grd_patinfo.attribute("nodeset") + "[chk = 'Y']");        
        var msg = "";
        for(var i = 0; i < selectList.length; i++){
            var item = selectList.item(i);
            var indd = item.selectSingleNode("orddd").text;              
            indd = indd.toDate().getDateFormat("YYYY-MM-DD");
            
            var dschdd = item.selectSingleNode("dschdd").text; 
            if(dschdd != "Àç¿øÁß"){
                dschdd = dschdd.toDate().getDateFormat("YYYY-MM-DD");                
            }
                        
            var orddeptnm = item.selectSingleNode("orddeptnm").text;            
            if(i == 0){
                msg += indd + " ~ " + dschdd;                
            }     
			
			opener.javascript.setParameter("SPMMR05500_pid"		 , item.selectSingleNode("pid").text);
			opener.javascript.setParameter("SPMMR05500_indd"	 , item.selectSingleNode("orddd").text);
			opener.javascript.setParameter("SPMMR05500_cretno"	 , item.selectSingleNode("cretno").text);
        }
        opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , msg);
        opener.javascript.setParameter("SPMMR05500_orddeptnm", orddeptnm);
        window.close();

	// knuh_20110324_¹Ú¼ºÈ£(Ãâ»ýÁõ¸í¼­(ÀÔ¿øÁß) Ãß°¡)
   	//}else if(formcd == "0000001113"){
   	}else if(formcd == "0000001113" || formcd == "1100011102"){
   		var selectList = instance1.selectNodes(grd_patinfo.attribute("nodeset") + "[chk = 'Y']");
   		var msg = "";
   		var len = selectList.length;
   		
   		if(len > 1){
   			msg = "ÇϳªÀÇ °æ¿ì¸¸ ¼±ÅÃÇØÁÖ¼¼¿ä.";
   			return;
   		}else if(len > 0) {
   			var item = selectList.item(0);   		
   		
	   		opener.javascript.setParameter("SPMMR05500_pid"		 , item.selectSingleNode("pid").text);
			opener.javascript.setParameter("SPMMR05500_indd"	 , item.selectSingleNode("orddd").text);
			opener.javascript.setParameter("SPMMR05500_cretno"	 , item.selectSingleNode("cretno").text);
   		}
   		
		opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , msg);
        
        opener.javascript.fGetForm();
        opener.model.removenode("/root/temp/tempinfo");
        window.close();
        
   	}else{        
        opener.javascript.setParameter("SPMMR05500_useyn", "N");
        window.close();
        
    } 
}

/**
 * @desc   : ±Ý¾×Ç¥½Ã(Á¤±ÔÇ¥Çö)
 * @return : string
 * @authur : ÃÖ¿øµ·
 */
function fGetaddCommas(ps_value){    
	var objRegExp = new RegExp('(-?[0-9]+)([0-9]{3})'); 
	while(objRegExp.test(ps_value)) { 
		ps_value = ps_value.replace(objRegExp, '$1,$2'); 
	} 
	return ps_value;
}

/**
 * @desc   : ȯÀÚ ¼ö¼ú ³»¿ª ¼±ÅýÃ
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : ÀÌ»óÇö
 */
function fSelectOpInfo(){    
    var opcnts = "";
    
    var orddd  = model.getValue(grd_patinfo.nodeset + "[chk='Y']/orddd");
    var dschdd = model.getValue(grd_patinfo.nodeset + "[chk='Y']/dschdd");
    orddd = orddd.toDate().getDateFormat("YYYY-MM-DD");
    if(dschdd != "Àç¿øÁß"){
        dschdd = dschdd.toDate().getDateFormat("YYYY-MM-DD");
    }
    var opinfo = "[ÀÔ¿øÀÏÀÚ] : " + orddd + "~" + dschdd;
    
    
    for(var i = 1; i <= grd_oplist.row ; i++){
        var checkflag = model.getValue(grd_oplist.attribute("nodeset") + "[" + i + "]/checkflag");
        if(checkflag == "Y"){
            var opcnfmdd = model.getValue(grd_oplist.attribute("nodeset") + "[" + i + "]/opcnfmdd").toDate().getDateFormat("YYYY-MM-DD");
            var ophngnm  = model.getValue(grd_oplist.attribute("nodeset") + "[" + i + "]/ophngnm");            
        }
        
        if(i == 1){
            opcnts = opcnfmdd + " : " + ophngnm;
            opinfocnts = ">[¼ö¼úÀÏÀÚ] :" + opcnfmdd + " / [¼ö¼ú¸í] : " + ophngnm;
            
        }else{
            opcnts += "\n" + opcnfmdd + " : " + ophngnm;
            opinfocnts += ">[¼ö¼úÀÏÀÚ] :" + opcnfmdd + " / [¼ö¼ú¸í] : " + ophngnm;
            
        }
    }
    if(opcnts == ""){    
        opener.javascript.setParameter("SPMMR05500_useyn", "N");

    }else{
        opener.javascript.setParameter("SPMMR05500_useyn", "Y");
        opener.javascript.setParameter("SPMMR05500_msg"  , opcnts);
        opener.javascript.setParameter("SPMMR05500_opinfo", opinfo + "\n" + opinfocnts);

    }    
    window.close();
}