/*
  
      ±â°£º° ³»¿øȯÀÚ Á¶È¸(SMMNE01900.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01
 */

var xPathUser    = "/root/UserData/list";
var xPathUserPop = "/root/main/list";
var blue = "#0000FF";
var red = "#FF0000";
 
/**
 * @group  :
 * @ver    : 2007.07.12
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ãʱâ È­¸é ¼³Á¤(±âÃÊ Á¤º¸ ¼³Á¤)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */      
    function finit(pFlag){
            
        fInitSetNode();
        
        model.removeNodeset("/root/hidden/item");    
        
        var toDate = getCurrentDate(); 
        
        model.setValue("/root/main/condition/fromdate", toDate);
        model.setValue("/root/main/condition/todate", toDate);
        model.refresh();
        
        if(pFlag == "F"){    
            model.removenode("/root/send");
            model.makeValue("/root/send/searchitem", "outrmcd");
            submit("TRMNE00203");
        }

        model.setFocus("rdo_inoutflag");
    }
 
/**
 * @group  :
 * @ver    : 2007.07.12
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÇöÀç ½Ã°£ ¼³Á¤ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
    function fCurrentDate(){
        var  d, s="",t;
        d = new Date();
        s+= d.getYear() ;
        
        if(d.getMonth()<10) {
            s += "0"+(d.getMonth() + 1) ;
        } else {
            s += (d.getMonth() + 1) ;
        }
                    
        if(d.getDate()<10) {
            s += "0"+d.getDate();
        } else {
            s += d.getDate();
        }
        
        return s;
    }

/**
 * @group  :
 * @ver    : 2007.07.12
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±â°£º° ȯÀÚ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */       
    function fSearchPatList(){
        var sSrchData		= "";
        var sSrchHeader		= "inouttp¢Ësrchflag¢Ëfromdate¢Ëtodate¢Ëoutrm¢Ëoutrmcd¢Ëcancelyn¢Ì";
	    var sSrchData   		= model.getValue("/root/main/condition/inouttp")	+"¢Ë"
	                        + "T"															+"¢Ë"
	                        + model.getValue("/root/main/condition/fromdate")	+"¢Ë"
	                        + model.getValue("/root/main/condition/todate")		+"¢Ë"
	                        + model.getValue("/root/main/condition/outrm")		+"¢Ë"
	                        + model.getValue("/root/main/condition/outrmcd")	+"¢Ë"
	                        + model.getValue("/root/main/condition/cancelyn")	+"¢Ì";
		        
		model.setValue("/root/main/condition/pid","");
		model.setValue("/root/main/condition/patnm","");
		model.setValue("/root/main/condition/rrgsno1","");
		model.setValue("/root/main/condition/rrgsno1","");
		
	    model.removenode("/root/send");
	    model.makeValue("/root/send/cond", sSrchHeader + sSrchData);
	        
	    submit("TRMNE01901");
			
		var erptdgkd = "";
		var iRow = grd_chosinpatinfo.rows;
		
		for(var i = 1; i <= iRow; i++){
			erptdgkd = grd_chosinpatinfo.valueMatrix(i, grd_chosinpatinfo.colRef("erptdgkd"));
			patnm = grd_chosinpatinfo.valueMatrix(i, grd_chosinpatinfo.colRef("patnm"));
			poison = grd_chosinpatinfo.valueMatrix(i, grd_chosinpatinfo.colRef("poison"));
			if (erptdgkd == "2") {						
				grd_chosinpatinfo.rowStyle(i, "data", "color") = blue;
			}
			if (poison == "Y") {						
				grd_chosinpatinfo.rowStyle(i, "data", "color") = red;
			}
		}
		
		iRow = grd_chosoutpatinfo.rows;
		
		for(var i = 1; i <= iRow; i++){
			erptdgkd = grd_chosoutpatinfo.valueMatrix(i, grd_chosoutpatinfo.colRef("erptdgkd"));
			patnm = grd_chosoutpatinfo.valueMatrix(i, grd_chosoutpatinfo.colRef("patnm"));				
			poison = grd_chosoutpatinfo.valueMatrix(i, grd_chosoutpatinfo.colRef("poison"));
			if (erptdgkd == "2") {						
				grd_chosoutpatinfo.rowStyle(i, "data", "color") = blue;
			}
			if (poison == "Y") {						
				grd_chosoutpatinfo.rowStyle(i, "data", "color") = red;
			}
		}
		
		model.setValue("/root/main/condition/patnm","");
		model.setValue("/root/main/condition/rrgsno1","");		
		model.setValue("/root/main/condition/rrgsno2","");
		model.refresh();
    }
    
    function fSetIndIptBox(){
			 ipt_pid.value = "";
			 ipt_patnm.value = "";
			 ipt_rrgsno1.value = "";
	   	 ipt_rrgsno2.value = "";		
		 model.refresh();
    }
    
    function fSetIndPatData(){
		   if(event.keyCode == 13) {			
			   setInputNodeCurText(); // ÇöÀç ÀÎDz°ª ³ëµå ¹Ý¿µ							 					
		      fSearchIndPatList();
			}			
    }
    
/**
 * @group  :
 * @ver    : 2007.07.12
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ³ëµå ÃʱâÈ­ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
    function fInitSetNode(){
        model.removeNodeset("/root/main/chospatlist/chosoutpatinfo");
        model.removeNodeset("/root/main/chospatlist/chosinpatinfo");
        
        model.setValue("/root/main/condition/inouttp", "1");
        model.setValue("/root/main/condition/pid", "");
        model.setValue("/root/main/condition/patnm", "");
        model.setValue("/root/main/condition/rrgsno1", "");
        model.setValue("/root/main/condition/rrgsno2", "");
        model.setValue("/root/main/condition/outrm", "");
        model.setValue("/root/main/condition/outrmcd", "");
        
        cmb_outrmflag.disabled = true;
        chk_inpatflag.visible = false;
        caption9.visible = false;
    }
    
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Á¶È¸popup
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
    function fUserEnter(pPath, pNodeID,pNodeNM, pNodeRrgsNo1, pNodeRrgsNo2, pDOC) {
        var pParam = fUseridPopupData("TRMNE03701","SMMNE03700", pDOC.currentText);
        fUserDataSet(pParam, pPath+pNodeID,pPath+pNodeNM, pPath+pNodeRrgsNo1, pPath+pNodeRrgsNo2, pDOC);
    }      


    function fUseridPopup(pPath, pNodeID, pNodeNM, pNodeRrgsNo1, pNodeRrgsNo2, pDOC) {
        var pParam = fShowModal("SMMNE03700");  
        fUserDataSet(pParam, pPath+pNodeID,pPath+pNodeNM, pPath+pNodeRrgsNo1, pPath+pNodeRrgsNo2, pDOC);
    }
  
  
    function fGetValue(node, row, element) {
    
        var rtnValue = model.getValue(node + "[" + row + "]/" + element);
        return rtnValue;
    }

/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚº° Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
	function fSearchIndPatList(flag){		
			if(flag == "S"){
					var rrgstno1 = model.getValue("/root/main/condition/rrgsno1"   );
					var rrgstno2 = model.getValue("/root/main/condition/rrgsno2"   );
					
					if(rrgstno1.length > 6 ){
							messageBox("Á¶°ÇÀÌ Á¤È®ÇÏÁö ¾Ê½À´Ï´Ù.","E");
							return;
					}
					if(rrgstno2.length > 7 ){
							messageBox("Á¶°ÇÀÌ Á¤È®ÇÏÁö ¾Ê½À´Ï´Ù.","E");
							return;
					}
			} else {
					var rrgstno1 = model.getValue("/root/main/condition/rrgsno1");
					var rrgstno2 = "";
			}

			var sSrchData   = "";
			var sSrchHeader = "inouttp¢Ësrchflag¢Ëfromdate¢Ëtodate¢Ëpid¢Ëpatnm¢Ërrgstno1¢Ërrgstno2¢Ì";
			var sSrchData   = model.getValue("/root/main/condition/inouttp"   )+"¢Ë"
											+ "P"                                              +"¢Ë"
											+ model.getValue("/root/main/condition/fromdate"  )+"¢Ë"
											+ model.getValue("/root/main/condition/todate"    )+"¢Ë"
											+ model.getValue("/root/main/condition/pid"       )+"¢Ë"
											+ model.getValue("/root/main/condition/patnm"     )+"¢Ë"
											+ rrgstno1+"¢Ë"
											+ rrgstno2+"¢Ì";
											
			model.removenode("/root/send");
			model.makeValue("/root/send/cond", sSrchHeader + sSrchData);
			
			submit("TRMNE01901");
			
			if(model.getValue("/root/main/condition/pid") !="") {
					var erptdgkd = "";
					var poison = "";
					var iRow = 0;
				
					if(model.getValue("/root/main/chospatlist/chosoutpatinfo["+1+"]/pid") != ""){
							model.setValue("/root/main/condition/patnm",model.getValue("/root/main/chospatlist/chosoutpatinfo["+1+"]/patnm"));
							model.setValue("/root/main/condition/rrgsno1",model.getValue("/root/main/chospatlist/chosoutpatinfo["+1+"]/rrgstno1"));				                                     
							model.setValue("/root/main/condition/rrgsno2",model.getValue("/root/main/chospatlist/chosoutpatinfo["+1+"]/rrgstno2"));				
							
							iRow = grd_chosoutpatinfo.rows;
					
							for(var i = 1; i <= iRow; i++){
									erptdgkd = grd_chosoutpatinfo.valueMatrix(i, grd_chosoutpatinfo.colRef("erptdgkd"));
									poison = grd_chosoutpatinfo.valueMatrix(i, grd_chosoutpatinfo.colRef("poison"));
									if (erptdgkd == "2") {						
											grd_chosoutpatinfo.rowStyle(i, "data", "color") = blue;
									}
									if (poison == "Y") {						
											grd_chosoutpatinfo.rowStyle(i, "data", "color") = red;
									}
							}
					}
			
					if(model.getValue("/root/main/chospatlist/chosinpatinfo["+1+"]/pid") != ""){
							model.setValue("/root/main/condition/patnm",model.getValue("/root/main/chospatlist/chosinpatinfo["+1+"]/patnm"));
							model.setValue("/root/main/condition/rrgsno1",model.getValue("/root/main/chospatlist/chosinpatinfo["+1+"]/rrgstno1"));
							model.setValue("/root/main/condition/rrgsno2",model.getValue("/root/main/chospatlist/chosinpatinfo["+1+"]/rrgstno2"));
							
							iRow = grd_chosinpatinfo.rows;
					
							for(var i = 1; i <= iRow; i++){
									erptdgkd = grd_chosinpatinfo.valueMatrix(i, grd_chosinpatinfo.colRef("erptdgkd"));
									poison = grd_chosinpatinfo.valueMatrix(i, grd_chosinpatinfo.colRef("poison"));
									if (erptdgkd == "2") {
											grd_chosinpatinfo.rowStyle(i, "data", "color") = blue;
									}
									if (poison == "Y") {
											grd_chosinpatinfo.rowStyle(i, "data", "color") = red;
									}
							}
					}
			}
			model.refresh();
	}
    
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Á¶È¸popup
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
    function fUseridPopupData(pMapID, pProgID, pData) {

        var iParam="";
                  
        if (pData == "") {
            return iParam;
        }       

        model.removenode("/root/send");
        model.makeValue("/root/send/searchitem", pData);
        model.makeValue("/root/send/flag"      , "userid");    
        submit(pMapID);

        var NodeCnt = instance1.selectSingleNode(xPathUser).childNodes.length;
        var iNode   = xPathUser + "/userlist";

        switch(NodeCnt) {
            case 0 : messageBox(pData + "¿¡ ÇØ´çÇÏ´Â ÀÚ·á°¡", "I004"); 
            break;
            case 1 : iParam = fGetValue(iNode, 1, "pid"     ) + "|"
                            + fGetValue(iNode, 1, "patnm"   ) + "|"
                            + fGetValue(iNode, 1, "sexage"  ) + "|"
                            + fGetValue(iNode, 1, "rrgsno1" ) + "|"
                            + fGetValue(iNode, 1, "rrgsno2" ) ;              
            break;
            default : iParam =  fShowModal(pProgID);
            break;
        }
        return iParam;
    }      
  
    function fShowModal(pProgID) {  
    
         var xpos = event.screenX-100;
         var ypos = event.screenY-100;
          
         modal(pProgID, 1, xpos, ypos, pProgID, xPathUser, xPathUserPop);  
    
         var iProperties  = getParameter("SendData"); 
                  
         return iProperties
    } 

     function fUserDataSet(pData, pNodeID,pNodeNM, pNodeRrgsNo1, pNodeRrgsNo2, pDoc) {
  
         var iSplit_Value = pData.split("|");
                    
         if (pData == "") {
             ipt_pid.refresh();
             model.setFocus("ipt_pid");         
             return; 
         }      
         
					
         if (iSplit_Value.length > 0)  {
							model.setValue(pNodeID         , iSplit_Value[0]);      // ȯÀÚµî·Ï¹øÈ£                  
							model.setValue(pNodeNM         , iSplit_Value[1]);      // ȯÀÚ¸í
					  //model.setValue(pNodeSexAge     , iSplit_Value[2]);      // ¼ºº°/³ªÀÌ
							model.setValue(pNodeRrgsNo1    , iSplit_Value[3]);      // Áֹεî·Ï¹øÈ£ ¾ÕÀÚ¸®           
							model.setValue(pNodeRrgsNo2    , iSplit_Value[4]);      // Áֹεî·Ï¹øÈ£ µÞÀÚ¸®            
    
             ipt_pid.refresh(); 
             ipt_patnm.refresh();
             ipt_rrgsno1.refresh();
             ipt_rrgsno2.refresh();
             fSearchIndPatList("P");          
         }    
     }