/*
  
     Àΰø½ÅÀå½Ç¸ÞÀÎ (SMMND00100.xrw - JScript )

      - Version :
          1)  : Ver.1.00.01
 */

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDone(){
	//**»ó´ÜÁ¤º¸ ÃʱâÈ­**//
	delPatientInfos(); //È­¸é»ó´ÜÁ¤º¸ »èÁ¦
  setGlobalVariable("paminfo", ""); //¿ø¹«Á¤º¸ reset
  if(getNodesetCount("/root/main/paminfo") > 0) {
       model.removeNodeset("/root/main/paminfo/list");
  }
  
	var sRtn = getCurrentDate();			//ÇöÀçÀÏÀÚ ¸®ÅÏ
	ipt_rsrvfromdd.value = sRtn;
	ipt_rsrvtodd.value = sRtn;
	rdo_shift.value = "A";
}

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSrchHDList(){	
	// Á¶È¸±â°£ üũ
	if(model.getValue("/root/main/condition/rsrvfromdd") > model.getValue("/root/main/condition/rsrvtodd")) {
	  	messageBox("¿¹¾àÀÏÀÚ ±â°£ÀÌ ¿Ã¹Ù¸£Áö ¾Ê½À´Ï´Ù.", "E");  
	  	var currentDate = getCurrentDate(); // ÇöÀçÀÏÀÚ
	  	model.makeValue("/root/main/condition/rsrvfromdd", currentDate);
	  	model.makeValue("/root/main/condition/rsrvtodd"  , currentDate);
	  	ipt_rsrvfromdd.refresh();
	  	ipt_rsrvtodd.refresh();
	}

	if(model.getValue("/root/main/condition/rsrvfromdd")=="" || model.getValue("/root/main/condition/rsrvtodd")=="") {
	  	messageBox("¿¹¾àÀÏÀÚ´Â", "I003", "");
	  	return;
	}

	model.removenode("/root/send");
	model.makeNode ("/root/send");
	model.makeValue("/root/send/reqdata/rsrvfromdd",model.getValue("/root/main/condition/rsrvfromdd"));
	model.makeValue("/root/send/reqdata/rsrvtodd",model.getValue("/root/main/condition/rsrvtodd"));
	model.makeValue("/root/send/reqdata/ioflag",model.getValue("/root/main/condition/ioflag"));
	model.makeValue("/root/send/reqdata/shift",model.getValue("/root/main/condition/shift"));
	
	//20090109 dhkim
	//³»È¯ÀÚ Ãß°¡
	model.makeValue("/root/send/reqdata/mypid",model.getValue("/root/main/condition/mypid"));
	
	model.removeNodeset("/root/main/hdschelist");
	//submit("TRMND00101", false);  
        if (submit("TRMND00101")){
             if(grd_hdschelist.rows > 1){
		for (var i = 1; i < grd_hdschelist.rows; i ++){
			grd_hdschelist.tooltipText(i, 5) = grd_hdschelist.valueMatrix(i, 48);
			}
		}else{
			grd_hdschelist.addRow();
		}  
	}
       grd_hdschelist.refresh();
       grd_hdschelist.allstyle("all", "background-color") = "white";
              

  //Ç÷¾×ÁغñȯÀÚ¸®½ºÆ® Á¶ÇÕ
  var blodpreppatlist="";
  for(var i = 1;  i <= getNodesetCount("/root/main/hdschelist/blodprep"); i++) {
  	if (i == 1) {
  		blodpreppatlist += model.getValue("/root/main/hdschelist/blodprep["+ i +"]/patnm");
  	} else {
  		blodpreppatlist += ", "  + model.getValue("/root/main/hdschelist/blodprep["+ i +"]/patnm");
  	}							
  }	
  model.makeValue("/root/main/hdschelist/precondlist/blodpreplist", blodpreppatlist);                           
  tar_blodprep.refresh();                                                               


     for(var i=1;i<=getNodesetCount("/root/main/hdschelist/hdscheinfo");i++){
         //°£È£Å×À̺íÀÇ ÀÔ¿ø¿Ü·¡±¸ºÐ°ú ½ÇÁ¦ ȯÀÚÀÇ ÀÔ¿ø¿Ü·¡±¸ºÐÀÌ ´Ù¸¥°æ¿ì ¼¿ »ö»óÇ¥½Ã
         var xIoflagPath = "/root/main/hdschelist/hdscheinfo[" + i + "]/ioflagvalue";
         var sIoflag = model.getValue(xIoflagPath);	 // °£È£Å×À̺íÀÇ ÀÔ¿ø¿Ü·¡ ±¸ºÐ
         var sHistStat = model.getValue("/root/main/hdschelist/hdscheinfo[" + i + "]/histstat");

         var sMedamtpostyn = model.getValue("/root/main/hdschelist/hdscheinfo[" + i + "]/medamtpostyn");  //Áø·áºñÈĺÒÁ¦

         //ÀÀ±Þ½Ç ȯÀÚÀÏ °æ¿ì "E" --> "I" ·Î º¯°æ
        if(sIoflag == "E"){
          sIoflag = "I";
        }
        if(sHistStat == "E"){
          sHistStat = "I";
        }
     
        if( sIoflag != sHistStat){
          grd_hdschelist.cellstyle("background-color", i, 0, i, 26) = "#e1ffe1";
        }

       //start
       //20120903 by kya Áø·áºñÈĺÒÇ¥½Ã
       if(sMedamtpostyn == "V"){
	    grd_hdschelist.cellstyle("background-color", i, 0, i, 26) = "yellow";
       } 
       //end

    //2012.07.13 by kya °¨¿°Á¤º¸Ç¥½Ã
       var disp1 = model.getValue("/root/main/hdschelist/hdscheinfo[" + i + "]/disp1");
       var disp2 = model.getValue("/root/main/hdschelist/hdscheinfo[" + i + "]/disp2");
       var disp3 = model.getValue("/root/main/hdschelist/hdscheinfo[" + i + "]/disp3");
       
       if (disp1 == "Y") {
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp1")) = "../../../com/hismainweb/images/btn_top_infection0.gif";
       }else{
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp1")) = "";
       }
       if (disp2 == "Y") {
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp2")) = "../../../com/hismainweb/images/btn_top_infection1.gif";
       }else{
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp2")) = "";
       }
       if (disp3 == "Y") {
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp3")) = "../../../com/hismainweb/images/btn_top_infection2.gif";
       }else{
        grd_hdschelist.cellstyle("background-image", i, grd_hdschelist.colRef("disp3")) = "";
       }
     }

} 

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿¢¼¿ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveExcel(grd){
	   var fileName = window.fileDialog("save", ",", false, "excel", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");
	   		
	   if (fileName != "")
	   {
	     	grd.saveExcel(fileName, "SheetName", true, true, "", "", false);
	   }
}

/**
 * @group  :
 * @ver    : 2007.05.10
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSrchPDList(){
	   // Á¶È¸±â°£ üũ
	   if(model.getValue("/root/main/condition/rsrvfromdd") > model.getValue("/root/main/condition/rsrvtodd")) {
	     	  messageBox("¿¹¾àÀÏÀÚ ±â°£ÀÌ ¿Ã¹Ù¸£Áö ¾Ê½À´Ï´Ù.", "E", "´Ù½Ã ÀÔ·ÂÇϽʽÿÀ.");
	     	  model.setValue("/root/main/condition/rsrvfromdd", "");
	     	  model.setValue("/root/main/condition/rsrvtodd", "");
	     	  model.refresh();
	     	  return;
	   }
	   
	   if(model.getValue("/root/main/condition/rsrvfromdd")=="" || model.getValue("/root/main/condition/rsrvtodd")=="") {
	     	  messageBox("¿¹¾àÀÏÀÚ´Â", "I003", "");
	     	  return;
	   }
	   
	   model.removenode("/root/send");
	   model.makeNode("/root/send");
	   model.makeValue("/root/send/reqdata/rsrvfromdd",model.getValue("/root/main/condition/rsrvfromdd"));
	   model.makeValue("/root/send/reqdata/rsrvtodd",model.getValue("/root/main/condition/rsrvtodd"));
	   model.removeNodeset("/root/main/pdschelist");
	   submit("TRMND00102");

     for(var i=1;i<=getNodesetCount("/root/main/pdschelist/pdscheinfo");i++){
         //°£È£Å×À̺íÀÇ ÀÔ¿ø¿Ü·¡±¸ºÐ°ú ½ÇÁ¦ ȯÀÚÀÇ ÀÔ¿ø¿Ü·¡±¸ºÐÀÌ ´Ù¸¥°æ¿ì ¼¿ »ö»óÇ¥½Ã
         var xIoflagPath = "/root/main/pdschelist/pdscheinfo[" + i + "]/ioflagvalue";
         var sIoflag = model.getValue(xIoflagPath);	 // °£È£Å×À̺íÀÇ ÀÔ¿ø¿Ü·¡ ±¸ºÐ
         var sHistStat = model.getValue("/root/main/pdschelist/pdscheinfo[" + i + "]/histstat");

         var sMedamtpostyn = model.getValue("/root/main/pdschelist/pdscheinfo[" + i + "]/medamtpostyn");  //Áø·áºñÈĺÒÁ¦
         //ÀÀ±Þ½Ç ȯÀÚÀÏ °æ¿ì "E" --> "I" ·Î º¯°æ
        if(sIoflag == "E"){
          sIoflag = "I";
        }
        if(sHistStat == "E"){
          sHistStat = "I";
        }
     
        if( sIoflag != sHistStat){
          grd_pdschelist.cellstyle("background-color", i, 0, i, 26) = "#e1ffe1";
        }

        
       //start
       //20120903 by kya Áø·áºñÈĺÒÇ¥½Ã ³ë¶õ»öÇ¥½Ã
       if(sMedamtpostyn == "V"){
	    grd_pdschelist.cellstyle("background-color", i, 0, i, 26) = "yellow";  
       } 
       //end

    //2012.07.13 by kya °¨¿°Á¤º¸Ç¥½Ã
       var disp1 = model.getValue("/root/main/pdschelist/pdscheinfo[" + i + "]/disp1");
       var disp2 = model.getValue("/root/main/pdschelist/pdscheinfo[" + i + "]/disp2");
       var disp3 = model.getValue("/root/main/pdschelist/pdscheinfo[" + i + "]/disp3");
       
       if (disp1 == "Y") {
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp1")) = "../../../com/hismainweb/images/btn_top_infection0.gif";
       }else{
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp1")) = "";
       }
       if (disp2 == "Y") {
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp2")) = "../../../com/hismainweb/images/btn_top_infection1.gif";
       }else{
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp2")) = "";
       }
       if (disp3 == "Y") {
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp3")) = "../../../com/hismainweb/images/btn_top_infection2.gif";
       }else{
        grd_pdschelist.cellstyle("background-image", i, grd_pdschelist.colRef("disp3")) = "";
       }
     }

}

/**
 * @group  :
 * @ver    : 2007.05.22
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é»ó´Ü Á¤º¸¼³Á¤
 * @param  : ±×¸®µå ID (pGrd), Åõ¼®±¸ºÐ(pFlag)
 * @return :
 * @---------------------------------------------------
 */
function fsetHngBaseInfo(pGrd, pFlag){
	   //**»ó´ÜÁ¤º¸ ÃʱâÈ­**//
     delPatientInfos(); //È­¸é»ó´ÜÁ¤º¸ »èÁ¦
     setGlobalVariable("paminfo", ""); //¿ø¹«Á¤º¸ reset
     if(getNodesetCount("/root/main/paminfo/list") > 0) {
           model.removeNodeset("/root/main/paminfo/list");
     }
	   
	   var sIoflag    = "";
     var sPid       = "";
     var sCretno    = "";
     var sSeqno     = "";
     var sInstcd    = "";
     var sIndd      = "";
     var sOrddd     = "";
     var sAcptseqno = "";
     var sOrgorddd  = "";
     var sOrddd     = "";
     var sRsrvdd    = "";
	   var iRow = pGrd.row;
	   	   	   
	   if(pFlag == "H"){        /*Ç÷¾×Åõ¼®*/
	       // »ó´Ü ȯÀÚÁ¤º¸ parameter 
	       sIoflag    = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/histstat"  ); //¿ø¹« ÀÔ¿ø¿Ü·¡±¸ºÐ(histstat)		
           
           sPid       = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/pid     "  ); //µî·Ï¹øÈ£	     
	       sCretno    = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/cretno"    ); //»ý¼º¹øÈ£    
           sSeqno     = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/seqno"     ); //ÀϷùøÈ£    
           sInstcd    = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/instcd"    ); //±â°üÄÚµå    
           sIndd      = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/indd"      ); //ÀÔ¿øÀÏÀÚ    
           sOrddd     = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/orddd"     ); //Áø·áÀÏÀÚ    
           sAcptseqno = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/acptseqno" ); //µî·ÏÀϷùøÈ£
           sOrgorddd  = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/orgorddd"  ); //¿øÁø·áÀÏÀÚ
           sOrddd     = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/orddd"     ); //Áø·áÀÏÀÚ
           sRsrvdd    = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/rsrvdd"    ); //Åõ¼®¿¹¾àÀÏÀÚ
           //--------(20110309) °æºÏ´ë
           sRsrvdd = sRsrvdd.substring(0,10);
           sRsrvdd = sRsrvdd.replace("-","");
           sRsrvdd = sRsrvdd.replace("-","");
           //--------(20110309) °æºÏ´ë
           
           var sIo   = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/ioflagvalue");
           var sHist = model.getValue("/root/main/hdschelist/hdscheinfo[" + iRow + "]/histstat");
           
	   }else if(pFlag == "P"){  /*º¹¸·Åõ¼®*/
	         // »ó´Ü ȯÀÚÁ¤º¸ parameter 
	         sIoflag    = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/histstat"  ); //¿ø¹« ÀÔ¿ø¿Ü·¡±¸ºÐ(histstat)		
           sPid       = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/pid     "  ); //µî·Ï¹øÈ£
	         sCretno    = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/cretno"    ); //»ý¼º¹øÈ£    
           sSeqno     = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/seqno"     ); //ÀϷùøÈ£    
           sInstcd    = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/instcd"    ); //±â°üÄÚµå    
           sIndd      = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/indd"      ); //ÀÔ¿øÀÏÀÚ    
           sOrddd     = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/orddd"     ); //Áø·áÀÏÀÚ    
           sAcptseqno = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/acptseqno" ); //µî·ÏÀϷùøÈ£
           sOrgorddd  = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/orgorddd"  ); //¿øÁø·áÀÏÀÚ
           sOrddd     = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/orddd"     ); //Áø·áÀÏÀÚ
           sRsrvdd    = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/rsrvdd"    ); //Åõ¼®¿¹¾àÀÏÀÚ
           //--------(20110309) °æºÏ´ë
           sRsrvdd = sRsrvdd.substring(0,10);
           sRsrvdd = sRsrvdd.replace("-","");
           sRsrvdd = sRsrvdd.replace("-","");
           //--------(20110309) °æºÏ´ë

           var sIo   = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/ioflagvalue");
           var sHist = model.getValue("/root/main/pdschelist/pdscheinfo[" + iRow + "]/histstat");

	   }
     var sParam;                                                                                            
        
     if(sIo == "E"){
       sIo = "I";
     }
     if(sHist == "E"){
       sHist = "I";
     }
     
     //20140618 by kya  ¼öÁ¤

     if(sHist == "D"){
       sHist = "I";
       sIoflag  = "I" ;
     }

     if( sIo != sHist){
     		if(sHist == "I") {
         		messageBox("ÀÔ¿øÀüȯÀÌ ÇÊ¿äÇÑ È¯ÀÚÀÔ´Ï´Ù. Åõ¼®¿Ü·¡¿¹¾à°ÇÁß ¼ö³³µÈ°ÍµéÀº ¼ö³³Ãë¼ÒÈÄ ¼ö³³ Ãë¼ÒÇϽʽÿÀ.", "I");
         	
        	} else {
        		messageBox("¿Ü·¡ÀüȯÀÌ ÇÊ¿äÇÑ È¯ÀÚÀÔ´Ï´Ù.", "I");
         	}
        model.property("pid") = sPid;
        modal("SMMND01100", 1, "5", "5", "SMMND01100");
        model.property("pid") = "";
     }
     
    // alert(" sIoflag = " + sIoflag );
    
     if(sIoflag == "O") { //¿Ü·¡È¯ÀÚÀÏ °æ¿ì(histstat : "O")   
     	     sParam  = (sIoflag + "¢Ë" + sPid + "¢Ë" + sOrddd + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë" + sAcptseqno + "¢Ë" + sOrgorddd );      
     } else {            //ÀÔ¿ø/ÀÀ±ÞȯÀÚÀÏ °æ¿ì(histstat : "I", "E")   
     	     sParam  = (sIoflag + "¢Ë" + sPid  + "¢Ë" + sIndd   + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë" + sRsrvdd );      
     } 
     
    //alert(" sParam  = " + sParam );

     setParameter("condparam", sParam);     
     modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
 
     var node = getGlobalVariable("paminfo");
     setCSVToNode("/root/main/paminfo", node);                                    
} 

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿À¸¥ÂÊ ¹öÆ° ¸Þ´º
 * @param  : sDialFlag ("H":Ç÷¾×Åõ¼®, "P":º¹¸·Åõ¼®)
 * @return :
 * @---------------------------------------------------
 */
function fSubMenu(sDialFlag) {
	    model.makeValue("/root/temp/dialflag", sDialFlag);
	    
	    if (event.button == 3) {
	    	  if(sDialFlag == "H") {
	    	  	  window.setPopupMenu(true, "/root/main/poplist/hdpopinfo/menu", "name", "func", false);
	    	  } else if(sDialFlag == "P") {
	    	  	  window.setPopupMenu(true, "/root/main/poplist/pdpopinfo/menu", "name", "func", false);
	    	  } else {
          window.setPopupMenu(false); 
          }         
      }else {
          window.setPopupMenu(false); 
      } 
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : HDScheduling ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OpenHDScheduling() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
      fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
    	modal("SMMND01100", 1, "5", "5", "SMMND01100");
      fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : À¯ÁöȯÀÚ °ü¸® ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OpenMatnPatMngt() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    if(sDialFlag == "H")        fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
	    else if(sDialFlag == "P")	  fsetHngBaseInfo(grd_pdschelist, sDialFlag);
	   
    	modal("SMMND01200", 1, "5", "5", "SMMND01200");
    	
    	if(sDialFlag == "H")        fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
    	else if(sDialFlag == "P")   fSrchPDList();  //º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °£È£Á¤º¸ Á¶»ç ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OpenCareInfo() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    if(sDialFlag == "H")         fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
	    else if(sDialFlag == "P")	  fsetHngBaseInfo(grd_pdschelist, sDialFlag);     

      modal("SMMND00300", 1, "5", "5", "SMMND00300");
      
      if(sDialFlag == "H")        fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
      else if(sDialFlag == "P")   fSrchPDList();  //º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾×Åõ¼® °£È£±â·Ï ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnHDCareRec() {
	    var iRow = grd_hdschelist.row;
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
	    modal("SMMND00700", 1, "5", "5", "SMMND00700", "/root/main/hdschelist/hdscheinfo["+iRow+"]/rsrvdd", "/root/main/condition/rsrvdd");	
	    fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸   
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾×Åõ¼® µµ°ü±â·Ï ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnHDPipeRec() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	   fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
     modal("SMMND01300", 1, "5", "5", "SMMND01300");	
     fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : »ó´ã±â·Ï ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnCnstRec() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    if(sDialFlag == "H")       fsetHngBaseInfo(grd_hdschelist, sDialFlag);    
	    else if(sDialFlag == "P")  fsetHngBaseInfo(grd_pdschelist, sDialFlag);     

      modal("SMMND01900", 1, "5", "5", "SMMND01900");		   
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : º¹¸·Åõ¼® ½Ç½Ã°ü¸® ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnPDExecRec() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    fsetHngBaseInfo(grd_pdschelist, sDialFlag);     
      modal("SMMND00800", 1, "5", "5", "SMMND00800");		
      fSrchPDList();  //º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸
}

/**
 * @group  :
 * @ver    : 2007.08.28
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : º¹¸·Åõ¼® µµ°ü±â·Ï ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnPDPipeRec() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    fsetHngBaseInfo(grd_pdschelist, sDialFlag);     
      modal("SMMND01400", 1, "5", "5", "SMMND01400");
      fSrchPDList();  //º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸		
      
}

/**
 * @group  :
 * @ver    : 2007.09.27
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ó¹æÈ®ÀÎ(ȯÀÚÁø·áÁ¤º¸Á¶È¸) ¿­±â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function OepnSrchOrdInfo() {
	    var sDialFlag = model.getValue("/root/temp/dialflag");
	    
	    // »ó´ÜÁ¤º¸ ¼³Á¤
	    if(sDialFlag == "H")        fsetHngBaseInfo(grd_hdschelist, sDialFlag);     
	    else if(sDialFlag == "P")	  fsetHngBaseInfo(grd_pdschelist, sDialFlag);     

      modal("SMMMO02500", 1, "5", "5", "SMMMO02500");		
      
      if(sDialFlag == "H")        fSrchHDList();  //Ç÷¾×Åõ¼® ½ºÄÉÁÙ Á¶È¸
      else if(sDialFlag == "P")   fSrchPDList();  //º¹¸·Åõ¼® ½ºÄÉÁÙ Á¶È¸
}



/**
 * creat  : 20090108
 * author : dhkim
 * desc   : ³»È¯ÀÚ¼¼ÆÃµÈ °£È£»ç load
 */
 function fLoadMyPatSetting(){
 	
 	model.removenode('/root/send');
 	model.makeValue('/root/send/wardcd', getUserInfo('dutplcecd'));
 	//model.refresh();
 	
 	//submit È£Ãâ
	if(!submit('TRMND03402')){
		messageBox('Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.', 'E999');
		return;
	}
	
	if(getNodesetCount("/root/init/settingrn/settingrnlist") < 2){
		cmb_mypid.value = "";
	}
 }
 
/**
 * @group  :
 * @ver    : 20009.10.08
 * @by     : ±è¾ç¼ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ¶óº§Ãâ·Â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fOpenLabelPrint(){										
	model.setValue("/root/main/printcnt","1");
	group6.attribute("left") = event.ScreenX-window.screenleft-10;
	group6.attribute("top") = event.ScreenY-window.screenTop-150;
	model.setFocus("ipt_patcntctel");				
	model.refresh();
	group6.visible = true;	
}

/**
 * @group  :
 * @ver    : 2011.09.16
 * @by     : ±Ç¿µ¾Ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀ̸§Ç¥Ãâ·Â
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */


function fOpenNamePrint_old() {	
        var row = grd_hdschelist.row;
        

	if (row >= 1) {	

        model.removeNodeset("/root/send");
	model.makeNode("/root/send/hdscheinfo");
         var spid =  model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/pid" );

	model.makevalue("/root/send/hdscheinfo/pid", spid );

        model.makevalue("/root/send/hdscheinfo/hngnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/hngnm" ));
        model.makevalue("/root/send/hdscheinfo/sexage", model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/sexage" ));
        model.makevalue("/root/send/hdscheinfo/ioflag", model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/ioflag" ));
        model.makevalue("/root/send/hdscheinfo/drnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/drnm" ));
        model.makevalue("/root/send/hdscheinfo/orddeptnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/orddeptnm"));						
        model.makevalue("/root/send/hdscheinfo/method",  model.getValue("/root/main/hdschelist/hdscheinfo[" + row + "]/dialseatflag"));

        //20150325 ¼Ò¹æÁ¤º¸ Ãß°¡
        model.makevalue("/root/send/hdscheinfo/dialseatflag", model.getValue("/root/main/condition/method"));
	exeReportPreview("RPMND00100", "XMLSTR" ); //¹Ì¸®º¸±âÃâ·Â
							
	//exeReportPreview("RPMND00100", "XMLSTR", "/root/main/prtinfo", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â
	}
}

function fOpenNamePrint() {	        
						
	if(btn_hdlist.selected == true) {	// Ç÷¾×Åõ¼® ½ºÄÉÁÙ ¿¡¼­ È£Ãâ
		group7.visible = true;
	}else{
		group8.visible = true;
	}
}

/**
 * @group  :
 * @ver    : 2015.03.25
 * @by     : ±Ç¿µ¾Ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀ̸§Ç¥Ãâ·Â¿¡¼­ ¼Ò¹æ°ü·Ã Á¤º¸ Æ÷ÇÔ
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */

//Á¤º¸È£Ãâ
function fGetPatName() {

	if(btn_hdlist.selected == true) {	// Ç÷¾×Åõ¼® ½ºÄÉÁÙ ¿¡¼­ È£Ãâ
		
		var row_om = grd_hdschelist.row;
		
		if (row_om >= 1) {
			
		    model.removeNodeset("/root/send");
		    model.makeNode("/root/send/hdscheinfo");
                    var spid =  model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/pid" );

	            model.makevalue("/root/send/hdscheinfo/pid", spid );

                    model.makevalue("/root/send/hdscheinfo/hngnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/hngnm" ));
                    model.makevalue("/root/send/hdscheinfo/sexage", model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/sexage" ));
                    model.makevalue("/root/send/hdscheinfo/ioflag", model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/ioflag" ));
                    model.makevalue("/root/send/hdscheinfo/drnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/drnm" ));
                    model.makevalue("/root/send/hdscheinfo/orddeptnm", model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/orddeptnm"));						
                    model.makevalue("/root/send/hdscheinfo/dialseatflag",  model.getValue("/root/main/hdschelist/hdscheinfo[" + row_om + "]/dialseatflag"));

                    //20150325 ¼Ò¹æÁ¤º¸ Ãß°¡
                    model.makevalue("/root/send/hdscheinfo/method", model.getValue("/root/main/condition/method"));
      	            exeReportPreview("RPMND00100", "XMLSTR" ); //¹Ì¸®º¸±âÃâ·Â
							
    	            //exeReportPreview("RPMND00100", "XMLSTR", "/root/main/prtinfo", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â	          
		}

	}else {	 // º¹¸·Åõ¼®¿¡¼­ È£Ãâ	
		var row_nr = grd_pdschelist.row;		
		
		if (row_nr >= 1) {

		    model.removeNodeset("/root/send");
		    model.makeNode("/root/send/hdscheinfo");
                    var spid =  model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/pid" );

	            model.makevalue("/root/send/hdscheinfo/pid", spid );

                    model.makevalue("/root/send/hdscheinfo/hngnm", model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/hngnm" ));
                    model.makevalue("/root/send/hdscheinfo/sexage", model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/sexage" ));
                    model.makevalue("/root/send/hdscheinfo/ioflag", model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/ioflag" ));
                    model.makevalue("/root/send/hdscheinfo/drnm", model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/drnm" ));
                    model.makevalue("/root/send/hdscheinfo/orddeptnm", model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/orddeptnm"));						
                    model.makevalue("/root/send/hdscheinfo/dialseatflag",  model.getValue("/root/main/pdschelist/pdscheinfo[" + row_nr + "]/dialseatflag"));

                    //20150325 ¼Ò¹æÁ¤º¸ Ãß°¡
                    model.makevalue("/root/send/hdscheinfo/method", model.getValue("/root/main/condition/method"));
      	            exeReportPreview("RPMND00100", "XMLSTR" ); //¹Ì¸®º¸±âÃâ·Â
							
    	            //exeReportPreview("RPMND00100", "XMLSTR", "/root/main/prtinfo", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â	
		}
	}
}		

/**
 * @group  :
 * @ver    : 2012.10.15
 * @by     : ±Ç¿µ¾Ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : SMS Àü¼Û
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */

function fSendSMS() {	
    open("SPZMS00100", "", "100", "100", "SPZMS00100", "", "");    
}