/*
  
      ÀÀ±Þ½Ç Åð½ÇÁ¤¸®(SMMNE00200.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01
 */
    
var xPathInddPationList = "/root/main/inddpatlist/inddpatinfo";
var xPathMainCondNode = "/root/main/condition";   


/**
 * @group  :
 * @ver    : 2007.06.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ãʱâ È­¸é ¼³Á¤(±âÃÊ Á¤º¸ ¼³Á¤)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */              
function fInit(){
				
  fInotSetNode(); 
  model.removenode("/root/send");
  model.makeValue("/root/send/searchitem", "outrm");
  model.setValue("/root/main/condition/outrmdd", getCurrentDate() );
  model.setValue("/root/main/condition/outrmtm", fTimeSetting() );
  model.setValue("/root/main/condition/researchflag", "N");
  grd_patlist.rebuildStyle();
  submit("TRMNE00203");

	zbcfGetCodeList( new Array("M0011"), new Array("/root/init/M0011list") );
       
  fGetPatList();
  
}

/**
 * @group  :
 * @ver    : 2007.06.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÇöÀç ½Ã°£ ¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fTimeSetting(){
  var  d, s= "" ,t;
  d = new Date();

  if( d.getMinutes() > 10  ) {
    if(d.getHours() >= 10 ) {
      t =  d.getHours() + ""  + d.getMinutes();                                
    } else {
      t = "0" + d.getHours() + ""  + d.getMinutes();                                
    }
  } else {
    if(d.getHours() >= 10 ) {
      t = d.getHours() + "0" + d.getMinutes();
    } else {
      t = "0" + d.getHours() + "0" + d.getMinutes();
    }
  }
  return t;
  //model.setValue("/root/main/condition/outrmtm", t );
}
        
/**
 * @group  :
 * @ver    : 2007.06.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Àç¿ø ȯÀÚ Á¶È¸ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fGetPatList(){
  var sSrchData   = "";
  var sSrchHeader = "section¢Ì";
  var sSrchData   = model.getValue("/root/main/condition/section")+"¢Ì";
  
  model.removenode("/root/send");
  model.makeValue("/root/send/searchinfo", sSrchHeader + sSrchData);
  grd_patlist.allstyle("all",  "background-color") = "white"; 
  submit("TXMNE00201");
  
  var tRow = grd_patlist.rows;
  for(i= 0 ; i < tRow ; i ++ ){
    if(model.getValue("/root/main/inddpatlist/inddpatinfo["+i+"]/dschdclrtyn") == "Y"){
      //Åð¿ø¿¹°í ȯÀÚ¿¡ ´ëÇØ ¼¿ »ö»ó ÁöÁ¤
      grd_patlist.cellstyle("background-color", i, 0, i, 4) = "#ffd3ff";
    } 
  }
  fGetParamSetting();
  fChangeFocusColor();
  model.refresh();
}
        
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ³ëµå ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */    
function fInotSetNode(){
  //model.removeNodeset("/root/main/inddpatlist/inddpatinfo");
  model.removeNodeset("/root/main/incplist/testinfo"      );
  model.removeNodeset("/root/main/incplist/inginfo"       );        
}
    
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : »ó´Ü Åð½Ç Á¶°Ç ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */        
function fInitSettingTop(flag){
  if(flag =="A"){
    model.setValue("/root/main/condition/section", "-");    
  }
  //top ȯÀÚÁ¤º¸ ÃʱâÈ­
  model.setValue("/root/main/condition/t_patinfo"     , "");
  model.setValue("/root/main/condition/t_chosdt"      , "");                       
  model.setValue("/root/main/condition/t_outrmdt"     , "");
  model.setValue("/root/main/condition/t_calctm"      , "");
  model.setValue("/root/main/condition/t_assgroom"    , "");
  
  //Åð¿øÁ¶°Ç ºÎºÐ ÃʱâÈ­
  model.setValue("/root/main/condition/outrmtp"       , "");    
  model.setValue("/root/main/condition/chnghospnm"    , "");    
  model.setValue("/root/main/condition/outrmcd"       , "");    
  model.setValue("/root/main/condition/dethdd"        , "");    
  model.setValue("/root/main/condition/dethtm"        , "");    
  model.setValue("/root/main/condition/pid"           , "");
  model.setValue("/root/main/condition/healcaretgdyn" , "");
  model.setValue("/root/main/condition/proceraprvyn"  , "");
  
  caption1.attribute("visibility")          = "hidden";
  caption2.attribute("visibility")          = "hidden";
  //caption2.attribute("text")                = "¼¼ºÎ»çÇ×";
  caption4.attribute("visibility")          = "hidden";
  caption6.attribute("visibility")          = "hidden";
  ipt_chnghosnm.attribute("visibility")     = "hidden";
  ipt_dethtm.attribute("visibility")        = "hidden";
  ipt_dethdd.attribute("visibility")        = "hidden";
  cmb_outrmcd.attribute("visibility")       = "hidden";
  chk_proceraprvyn.attribute("visibility")  = "hidden";
  chk_healcaretgdyn.attribute("visibility") = "hidden";
  ipt_outrmetc.attribute("visibility")      = "hidden";
  ipt_chnghospchoi.attribute("visibility") = "hidden";
  model.makeValue("/root/main/condition/chnghospchoi", "");       
   
    
  model.setValue("/root/main/condition/outrmtm", fTimeSetting() );

}

/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀÀ±Þ½Ç ó¹æ Á¶È¸ key¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
function fSetPatInfo(){
  var iRow = grd_patlist.row;
  
  var sSrchData = "";
  var sSrchHeader = "pid¢Ëindd¢Ëcretno¢Ëinstcd¢Ëdschdclrdt¢Ì";
  var sSrchData   = model.getValue(xPathInddPationList+"["+iRow+"]/pid"   )+"¢Ë"
                  + model.getValue(xPathInddPationList+"["+iRow+"]/indd"  )+"¢Ë"
                  + model.getValue(xPathInddPationList+"["+iRow+"]/cretno")+"¢Ë"
                  + model.getValue(xPathInddPationList+"["+iRow+"]/instcd")+"¢Ë"
                  + model.getValue(xPathInddPationList+"["+iRow+"]/dschdclrdt")+"¢Ì";
  
  model.removeNodeset("/root/send");
  return sSrchHeader + sSrchData;
}

/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀÀ±Þ½Ç Àç¿øȯÀÚ ¼±Åà °Ë»ç/¾à,ÁÖ»ç ó¹æ Á¶È¸&
 *           Åõ¾àÀúÀå Á¤º¸ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */    
function fSelectInddPatList(pFlag){
    
  // °Ë»ç, ¾à/ÁÖ»ç ó¹æ Á¶È¸
  if(pFlag == "S"){
    model.makeValue("/root/send/searchpat", fSetPatInfo() );
    model.setValue("/root/main/condition/researchflag", "N");
  }
  
  // Åõ¾àÀúÀå Á¤º¸ Á¶È¸
  if(pFlag == "R"){
    if(model.getValue("/root/main/condition/researchflag") == "N"){
      model.makeValue("/root/send/researchpat",sSrchHeader+sSrchData );
      model.setValue("/root/main/condition/researchflag", "I");
    } else {
      model.makeValue("/root/send/searchpat", sSrchHeader+sSrchData );
      model.setValue("/root/main/condition/researchflag", "N");
    }
  }
  
  //grd_inglist.allstyle("all",  "background-color") = "white"; 
  grd_inglist.rebuildStyle();
  submit("TXMNE00202");
  grd_inglist.rebuild();

  var tRow = grd_inglist.rows;
  
  for(i= 0 ; i < tRow ; i ++ ){
    if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){
      //Åð¿ø¾à ¾à È®ÀÎ
      grd_inglist.cellstyle("background-color", i, 0, i, 21) = "#ccffff";
    }    
  }    
  model.refresh();
}
        
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀÀ±Þ½ÇÅð½ÇÁ¤¸® È­¸é ÄÞÆ÷ ¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */        
function fSelctionOutRmCombo(pFlag){
    
  model.removeNodeset("/root/hidden/item");
  
  for(i=1; i <= getNodesetCount("/root/init/erbaselist/outrminfo");i++ ) {
    if(model.getValue("/root/init/erbaselist/outrminfo["+i+"]/supbasetypecd") == pFlag ){
      model.makeValue("/root/hidden/item["+i+"]/label", model.getValue("/root/init/erbaselist/outrminfo["+i+"]/typenm"));
      model.makeValue("/root/hidden/item["+i+"]/value", model.getValue("/root/init/erbaselist/outrminfo["+i+"]/basetypecd"));
    }
  }
  cmb_outrmcd.refresh();
}

/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é»ó´ÜÁ¤º¸¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
function fSetParam(){

  // ÀÀ±ÞȯÀÚ È­¸é»ó´ÜÁ¤º¸ ¼³Á¤
  if(grd_patlist.row < 1){
      return;    
  } else {
  		var sPid    = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid"     );
  		var sIndd   = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/indd"    );
  		var sCretno = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/cretno"  );
  		var sInstcd = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/instcd"  );
  		
      var param = "E¢Ë" 
                + sPid    + "¢Ë" 
                + sIndd   + "¢Ë" 
                + sCretno + "¢Ë"     
                + sInstcd + "¢Ë" 
                + "¢Ë" ;
      
      setParameter("condparam",  param);
      
      modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
  }
}

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀÀ±Þ½Ç Åð½Çó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */         
function fOutRmTret(){
  //var iRow = grd_patlist.row;
  
  var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false);
   
  // ȯÀÚ ¼±Åà ¿©ºÎ üũ
  if(model.getValue("/root/main/condition/pid") == "" ) {
    messageBox("ȯÀÚ°¡ ¼±ÅõÇÁö", "E007");
    model.setFocus("grd_patlist");
    return;
  }

  
  // ÀÔ¿øÀ¸·Î ÀÎÇÑ Åð¿ø ¹èÁ¤ º´½Ç üũ
  if(model.getValue("/root/main/condition/outrmtp") =="2" && 
     model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/assgroom") == ""){
      messageBox("ÀÔ¿ø º´½Ç ¹èÁ¤ÀÌ µÇÁö ¾Ê¾Ò½À´Ï´Ù.","I");
      return;	
    }
  
  // ȯÀÚ Åð¿ø¿¹°í »óÅ üũ
  if(( model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/dschdclrtyn") == "N" || 
       model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/dschdclrtyn") == ""  ) &&
       model.getValue("/root/main/condition/outrmtp") != "2"  ){
    messageBox("Åð¿ø¿¹°í ȯÀÚ°¡ ¾Æ´Õ´Ï´Ù.", "E");
    model.setFocus("grd_patlist");
    return;
  }
  
  // ¹ÌÈ®ÀΠó¹æ üũ (2008.10.16)   
  if ((model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/uncnfmcnt") != "0"))  {
    messageBox("¹ÌÈ®ÀΠó¹æÀÌ ÀÖ½À´Ï´Ù. Order Manage¿¡¼­ ó¸®ÇϽñ⠹ٶø´Ï´Ù.", "E");
    model.setFocus("grd_patlist");
    return;
  }
  
   
  // Åð½ÇÀϽà ÀԷ üũ
  if(model.getValue("/root/main/condition/outrmdd") == "" || 
     model.getValue("/root/main/condition/outrmtm")== ""){
    messageBox("Åð½ÇÀϽôÂ", "I003");
    model.setFocus("ipt_outrddd");
    return;
  }
  
  // Åð½ÇÀϽà ³»¿øÀϽà ºñ±³ üũ
  var eroutdt = model.getValue("/root/main/condition/outrmdd") 
              + model.getValue("/root/main/condition/outrmtm");
                
  if(model.getValue("/root/main/inddpatlist/inddpatinfo/chosdt") > eroutdt ) {
    messageBox("³»¿ø/Åð¿ø ÀϽø¦ È®ÀÎÇϽʽÿä", "I");
    model.setFocus("ipt_outrdtm");             
  }
   
  // Åð½Ç±¸ºÐ ÀԷ üũ
  if(model.getValue("/root/main/condition/outrmtp") == ""){
    messageBox("Åð½Ç±¸ºÐÀ»", "I003");
    model.setFocus("rdo_outrmflag");
    return;
  }
   
  // ¼¼ºÎ»çÇ× ÀԷ üũ
  if(model.getValue("/root/main/condition/outrmcd") == ""){
    messageBox("¼¼ºÎ»çÇ×", "I003");
    model.setFocus("cmb_outrmcd");
    return;
  }
   
  // »ç¸ÁÀϽà ÀԷ üũ
  if(model.getValue("/root/main/condition/outrmtp") == 6){
    if(model.getValue("/root/main/condition/dethdd") == "" || 
       model.getValue("/root/main/condition/dethtm") == "" ){
      messageBox("»ç¸ÁÀϽø¦", "C001");
      model.setFocus("ipt_dethdd");
      return;
    }
  }
  
  //Åð½Ç±¸ºÐ(Àü¿ø), ¼¼ºÎ»çÇ×(±âŸ´Ù¸¥»çÀ¯·ÎÀü¿ø)À϶§ ±âŸ»çÀ¯°ª À¯¹«Ã¼Å©
   if(model.getValue("/root/main/condition/outrmtp") == 3){
    if(model.getValue("/root/main/condition/outrmcd") == "28") {      
        if(model.getValue("/root/main/condition/chnghospchoi") =="") {
            messageBox("±âŸ»çÀ¯¸¦", "C001");
             model.setFocus("ipt_chnghospchoi");
             return;
        }      
    }
  }
      
  // Åð½Ç±¸ºÐ:±Í°¡ and  ¼¼ºÎ»çÇ×: ±âŸ´Ù¸¥»óÅ·Π±Í°¡½Ã ==> ±âŸ»çÀ¯ ÀԷ üũ
  if( (model.getValue("/root/main/condition/outrmtp") == 1) && (model.getValue("/root/main/condition/outrmcd") == 18) ){
    if(model.getValue("/root/main/condition/outrmetc") == "" ){
      messageBox("±âŸ»çÀ¯¸¦", "C001");
      model.setFocus("ipt_outrmetc");
      return;
    }
  }

	//¹Ì½ÃÇà °Ë»ç ó¹æ Á¸Àç ¿©ºÎ üũ
//  var chktest = "Y";
//	for(i=1; i <= getNodesetCount("/root/init/erbaselist/outrminfo");i++ ) {
//    if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N" ){
//  	 chktest = "N";
//    }
//  }
//  
//  if( chktest == "N" ){
//    if ( model.getValue("/root/main/condition/outrmtp") == "2" ) {
//			var vbYes = messageBox("¹Ì½ÃÇà °Ë»ç ó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.","Q003");
//			if( vbYes != 6 ){
//				return;
//			}
//  	}else{
//			messageBox("¹Ì½ÃÇà °Ë»çó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E");
//    	model.setFocus("grd_testlist");
//    	return;	
//  	}
//  }
  
  //¹Ì½ÃÇà ¾à,ÁÖ»ç ó¹æ Á¸Àç ¿©ºÎ üũ 
  var chking = "";
	for(i=1; i <= getNodesetCount("/root/main/incplist/inginfo"); i++ ) {
    if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ){
    	if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){
   	    chking = "OUT";
	   	}else{
	   		chking = "N";
	   	}
    }else if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "DC"){
    	chking = "DC";
    }
  }
  
  if(chking == "OUT"){
  	messageBox("Åð¿ø¾àÈ®ÀÎÀ» ÇÏÁö ¾ÊÀº Åð¿øó¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
    model.setFocus("btn_drugsave");
    return;
  }
  
  if(chking == "N"){
    messageBox("¹Ì½ÃÇà ¾à/ÁÖ»ç ó¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
    model.setFocus("grd_inglist");
    return;
  }
  
  if(chking == "DC"){
		messageBox("¹Ýȯ¿äû ¾à/ÁÖ»ç ó¹æÀÌ Á¸ÀçÇÏ¿© Åð½Ç󸮸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
    model.setFocus("grd_inglist");
    return;
  }

	//Åð¿øÈÄ ¿Ü·¡ ó¹æ üũ & ¹Ì½ÃÇà °Ë»çó¹æ üũ
 	var sOutPrcp = "";
 	var sDefineCnt = 0;
  for(i=1 ; i < grd_testlist.rows ; i++){
  	if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT" ){
  		if(sOutPrcp == ""){
  			sOutPrcp = "Åð¿ø ÈÄ ¿Ü·¡ ó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.";
  		}
  		sOutPrcp += "\n" + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm") ;
  	}else{
  		if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "-"){
  			sDefineCnt++;
  		}
  	}
  }
  
	if(sDefineCnt > 0){
		if(model.getValue("/root/main/condition/outrmtp") == "2"){
			messageBox(sDefineCnt+" °ÇÀÇ »óÅ ¹Ì¼³Á¤ µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.\n¹ÌÁ¤¼³ µ¥ÀÌÅÍ´Â º´µ¿ÀÌ°ü µË´Ï´Ù.", "I");
		}else{
			messageBox("¹Ì½ÃÇà °Ë»çó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E");
  		model.setFocus("grd_testlist");
  		return;	
		}
	}
	
	var vbYes = messageBox("Åð½Ç󸮸¦ ", "Q004");
  if(vbYes == 6){
	 	//ÀÀ±Þ°ü¸®·á üũ
		if(model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/g3existyn") == "N"){
			var vbNo = messageBox("ÀÀ±ÞÀÇÇÐ·á °ü¸®·á ó¹æÀÌ ¾ø½À´Ï´Ù. °è¼Ó Åð¿øÁøÇàÀ» ", "Q004");
			if(vbNo == 7){
				return;
			}
		}
		
		//Åð¿øÈÄ ¿Ü·¡ ó¹æ È®ÀÎ ¸Þ½ÃÁö
		if(sOutPrcp != ""){
	  	messageBox(sOutPrcp, "I");
		}
	 
	 //Åð¿ø°áÁ¤ÀϽà ¼ÂÆÃ(ÀÔ¿ø :  ÀÔ¿ø°áÁ¤ÀϽà , ±âŸ : Åð¿ø¿¹°íÀϽÃ)
	 var dschdclrdt = "";
	 if(rdo_outrmflag.value == "2"){
	  dschdclrdt = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/inrsrvacptdt");
	 }else{
	 	dschdclrdt = model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/dschdclrdt");
	 }
	  
	  var sSrchData = "";
	  var sSrchHeader = "pid¢Ëindd¢Ëcretno¢Ëvisitno¢Ëoutrmdd¢Ëoutrmtm¢Ëoutrmcd¢Ëchnghospnm¢Ëdethdd¢Ëdethtm¢Ëdethyn¢Ëhealcaretgdyn¢Ëproceraprvyn¢Ëchnghospchoi¢Ëeroutdt¢Ëinstcd¢Ëdschdclrdt¢Ëoutrmtp¢Ëoutrmetc¢Ì";
	  var sSrchData   =  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/pid"       )+"¢Ë"
	                  +  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/indd"      )+"¢Ë"
	                  +  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/cretno"    )+"¢Ë"
	                  +  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/visitno"   )+"¢Ë"
	                  +  model.getValue("/root/main/condition/outrmdd"                               )+"¢Ë"
	                  +  model.getValue("/root/main/condition/outrmtm"                               )+"¢Ë"
	                  +  model.getValue("/root/main/condition/outrmcd"                               )+"¢Ë"
	                  +  model.getValue("/root/main/condition/chnghospnm"                            )+"¢Ë"
	                  +  model.getValue("/root/main/condition/dethdd"                                )+"¢Ë"
	                  +  model.getValue("/root/main/condition/dethtm"                                )+"¢Ë"
	                  +  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/dethyn"    )+"¢Ë"
	                  +  model.getValue("/root/main/condition/healcaretgdyn"                         )+"¢Ë"
	                  +  model.getValue("/root/main/condition/proceraprvyn"                          )+"¢Ë"
	                  +  model.getValue("/root/main/condition/chnghospchoi"                               )+"¢Ë"
	                  +  eroutdt                                                                      +"¢Ë"
	                  +  model.getValue("/root/main/inddpatlist/inddpatinfo" +"["+iRow+"]/instcd"    )+"¢Ë"
	                  +	 dschdclrdt                                                                   +"¢Ë"
	                  +  model.getValue("/root/main/condition/outrmtp"                               )+"¢Ë"
	                  +  model.getValue("/root/main/condition/outrmetc"                              )+"¢Ì";
	                  //+  "er"+
	                  
	
	  model.removenode("/root/send");
	  model.makeValue("/root/send/outrmtret", sSrchHeader + sSrchData);
	              
	  var sSrchData   = "";
	  var sSrchHeader = "section¢Ì";
	  var sSrchData   = model.getValue("/root/main/condition/section")+"¢Ì";
	  
	  model.makeValue("/root/send/searchinfo", sSrchHeader + sSrchData);
	  fInotSetNode();
	  
	  //¼±Åà Çà ¼¿ »ö»ó ÃʱâÈ­
	  //grd_patlist.allstyle("all",  "background-color") = "white"; 

	  if(submit("TXMNE00201")== true){		
		grd_patlist.rebuildStyle();
		ipt_chnghospchoi2.visible = false;
	  	fInitSettingTop();
	  }else {	
		//model.removeNodeset("/root/main/inddpatlist/inddpatinfo");  
		//fGetPatList();		
		grd_patlist.rebuildStyle();
		fInotSetNode();
		model.refresh();		
	    
	  }
	  
	  var tRow = grd_patlist.rows;
	  
	  for(i= 0 ; i < tRow ; i ++ ){
	    if(model.getValue("/root/main/inddpatlist/inddpatinfo["+i+"]/dschdclrtyn") == "Y"){
	      //Åð¿ø¿¹°í ȯÀÚ¿¡ ´ëÇØ ¼¿ »ö»ó ÁöÁ¤
	      grd_patlist.cellstyle("background-color", i, 0, i, 4) = "#ffd3ff";
	    }    
	  }        
	  model.refresh();
	}else{
		return;
	}
}
    
/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×¸®µå ¼±Åà ÄÁÆ®·Ñ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
function fSelectGridRowCtrl(pPath, pFlag){
	//¼±ÅÃrow ÃʱâÈ­
	var iRow = "";
	var iRow = "";
	var sRow = "";
	var tRow = "";
	var chkNode1 = "";
	var chkNode2 = "";
	
	//°Ë»ç ±×¸®µå ¼±Åà ½Ã ¹ß»ý
	if(pFlag == "T"){
     iRow = grd_testlist.row;
     sRow = grd_testlist.selectedRows;
     eRow = grd_testlist.selectedRow(0);
     tRow = grd_testlist.rows;
     chkNode1 = "/selectyn";
     chkNode2 = "/testtp";  
     
     
  //¾à,ÁÖ»ç ±×¸®µå ¼±Åà ½Ã ¹ß»ý
  }else if(pFlag == "I"){
  	 //grd_inglist.setfocus
  	// model.setfocus("grd_inglist", true);
  	 iRow = grd_inglist.row;
     sRow = grd_inglist.selectedRows;
     eRow = grd_inglist.selectedRow(0);
     tRow = grd_inglist.rows;
     chkNode1 = "/selectyn";
     chkNode2 = "/prcpkindcdyn";
     //alert(sRow);
  }  

  if(eRow < "0"){
      return;
  } else {
  	if(pFlag == "T"){
      if(tRow != "1"){
        // ctrlÅ° ´©¸¥ »óÅ¿¡¼­ ±×¸®µå Ŭ¸¯½Ã ¼±ÅÃµÈ ¸ðµç Çà »óÅ°ª º¯°æ
        if(event.ctrlKey == 1){
          if(model.getValue(pPath+"["+iRow+"]"+chkNode1) != "Y" ){
            //&& model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) {
            model.setValue(pPath+"["+iRow+"]"+chkNode1, "Y");
          } else {
            model.setValue(pPath+"["+iRow+"]"+chkNode1, "");
          }                                    
        }
        // shiftÅ° ´©¸¥ »óÅ¿¡¼­ ¼±ÅÃÇà°ú ¸¶Áö¸· ¼±ÅÃÇà »çÀÌÀÇ ±×¸®µå »óÅ°ª º¯°æ
        else if(event.shiftKey == 1){
          for(i =1 ; i <  tRow ; i++){
              model.setValue(pPath+"["+i+"]"+chkNode1, "");
          }                                    
          if(iRow == eRow){
            for(i = iRow ; i < iRow+sRow ; i++) {
              if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){ 
                //  && model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y" ) {
                model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
              }
            }
          }else{
            for(i = eRow; i <= iRow ; i ++ ){
              if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){
                // && model.getValue(pPath+"["+iRow+"]"+chkNode2)== "Y"  ) {
                model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
              }
            }
          }                    
        }
        // ¸¶¿ì½º µå·¡±×¸¦ ÇÏ¿© ±×¸®µåÀÇ ·Î¿ì ¼±Åýà »óÅ°ª º¯°æ
        else {
          for(i =1 ; i <  tRow ; i++){
              model.setValue(pPath+"["+i+"]"+chkNode1, "");              
          }                                    
          if((sRow == "1")&& (iRow != "0")){
            if(model.getValue(pPath+"["+eRow+"]"+chkNode1) != "Y" ){               
              if(tRow ==1){
                return;
              }else{
                model.setValue(pPath+"["+eRow+"]"+chkNode1, "Y"); /////¿¡·¯³ª´ÂÁÙ1
              }
            } else {
              model.setValue(pPath+"["+eRow+"]"+chkNode1, "");
            }
          } else {
            if (iRow != "0") {
                if(iRow == eRow){
                  for(i = iRow ; i < iRow+sRow ; i++) {
                    if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){                   
                        model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
                    }
                  }
                }else{
                  for(i = eRow; i <= iRow ; i ++ ){
                    if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ){                   
                        model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
                    }
                  }
                }
            }// if irow end
          }
        }
      }
  	}else if(pFlag == "I"){
      if(tRow != "1"){
        // ctrlÅ° ´©¸¥ »óÅ¿¡¼­ ±×¸®µå Ŭ¸¯½Ã ¼±ÅÃµÈ ¸ðµç Çà »óÅ°ª º¯°æ
        if(event.ctrlKey == 1){
          if(model.getValue(pPath+"["+iRow+"]"+chkNode1) != "Y"  ) {
            model.setValue(pPath+"["+iRow+"]"+chkNode1, "Y");
          } else {
            model.setValue(pPath+"["+iRow+"]"+chkNode1, "");
          }                                    
        }
        // shiftÅ° ´©¸¥ »óÅ¿¡¼­ ¼±ÅÃÇà°ú ¸¶Áö¸· ¼±ÅÃÇà »çÀÌÀÇ ±×¸®µå »óÅ°ª º¯°æ
        else if(event.shiftKey == 1){
          for(i =1 ; i <  tRow ; i++){
            model.setValue(pPath+"["+i+"]"+chkNode1, "");
          }                                    
          if(iRow == eRow){
            for(i = iRow ; i < iRow+sRow ; i++) {
              if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) {
                model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
              }
            }
          }else{
            for(i = eRow; i <= iRow ; i ++ ){
              if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y"  ) {
                model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
              }
            }
          }                    
        }
        // ¸¶¿ì½º µå·¡±×¸¦ ÇÏ¿© ±×¸®µåÀÇ ·Î¿ì ¼±Åýà »óÅ°ª º¯°æ
        else {
          for(i =1 ; i <  tRow ; i++){
            model.setValue(pPath+"["+i+"]"+chkNode1, "")
            //alert("2-"+chkNode1);;
          }                                    
          //alert(sRow+'/'+iRow);
          if((sRow == "1") && (iRow != "0")){
            if(model.getValue(pPath+"["+eRow+"]"+chkNode1) != "Y" ) {
              if(tRow ==1){
                return;
              }else{
                model.setValue(pPath+"["+eRow+"]"+chkNode1, "Y"); ///////¿¡·¯³ª´Â ÁÙ2
              }
            } else {
              model.setValue(pPath+"["+eRow+"]"+chkNode1, "");
            }
          } else {
            if (iRow != "0") {
                if (iRow == eRow){
                  for(i = iRow ; i < iRow+sRow ; i++) {
                    if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y" ) {
                      model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
                    }
                  }
                }else{
                  for(i = eRow; i <= iRow ; i ++ ){
                    if(model.getValue(pPath+"["+i+"]"+chkNode1) != "Y"  ) {
                      model.setValue(pPath+"["+i+"]"+chkNode1, "Y");
                    }
                  }
                }
        	} // if irow end
          }
        }
      }
    }
  }
}
    
/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾àÀúÀå À̹êÆ® ó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
function fSaveDrugTret(){
	var pid = model.getValue("/root/hidden1/incplist/pid");
	var patnm = model.getValue("/root/hidden1/incplist/patnm");
	var sexage = model.getValue("/root/hidden1/incplist/sexage");
	var drugno = model.getValue("/root/main/incplist/inginfo["+1+"]/drugno");		
	for(var i=1; i<grd_inglist.rows;i++) {
		if(model.getValue("/root/main/incplist/inginfo["+i+"]/spcldrug") =="M") { //¸¶¾à¿©ºÎ È®ÀÎ
			var narcyn = "(¸¶)";
			break;
		}
		else{
			var narcyn ="";
		}
	}
	alert("pid:"+pid+", patnm:"+patnm+", sexage:"+sexage+", drugno"+drugno+", narcyn"+narcyn);
	return;
	
	//¹ÌÁ¤ÀÇ(»ç¿ëÇÏÁö ¾ÊÀ½)
  if(model.getValue("/root/main/condition/researchflag") == "I"){
    fSelectInddPatList("S");
  }

  var datacheck2 = "N";
  var datacheck3 = "N";
  //Åð¿ø¾àÀ̸鼭 ¾à±¹À¸·Î Àü¼ÛÇÏ¿© Áý°èÇÏÁö ¾Ê´Â ó¹æ °ËÁõ
  //alert(grd_inglist.rows);
  for(i= 1 ; i < grd_inglist.rows; i++ ) {
  	//alert(i);
    if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y" && 
       model.getvalue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ){
       datacheck2 = "Y";
    }
    
    if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpstatcd") == "000"){
    	datacheck2 = "C";
    }
    
    if(model.getvalue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y"){
    	datacheck3 = "Y";
    }
  }
	
//if(datacheck3 == "Y"){
//  var chkpid = "";
//  if(model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/dschdclrtyn") != "Y"){
//    fGetPatList();
//  }
//}
  if(datacheck2 == "N" || grd_inglist.rows == "1" ){
    messageBox("¹Ì½ÃÇà Åð½Çó¹æÀÌ Á¸ÀçÇÏÁö", "E007");
    model.setFocus("btn_outsave");
    return;
  }else if(datacheck2 == "C"){
    messageBox("°£È£È®ÀÎÀ» ÇÏÁö ¾ÊÀº Åð¿ø¾àÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E");
    return;
  }else{
  	model.removenodeset("/root/send");
  	model.makeValue("/root/send/searchpat", fSetPatInfo() );
    model.makeValue("/root/send/drugsaveinfo", grd_inglist.getUpdateDataAll("i"));
    model.removeNodeset("/root/main/incplist");
    if(submit("TXMNE00202")== true){
		//messageBox("¾à±¹À¸·Î Åð¿ø¾à Àü¼Û ¿Ï·áÇß½À´Ï´Ù.","I");	 
      model.refresh(); 	
    }	

//** ÀÀ±Þ½Ç¿¡¼­ Åð¿ø¾àÈ®Àνà Åõ¾à¹øÈ£¶óº§ Ãâ·Â Ãß°¡_20090218(ByCY) **// 
	if(model.getValue("/root/main/incplist/inginfo["+i+"]/drugno") != null) {
		var pid = model.getValue("/root/hidden1/incplist/pid");
		var patnm = model.getValue("/root/hidden1/incplist/patnm");
		var sexage = model.getValue("/root/hidden1/incplist/sexage");
		var drugno = model.getValue("/root/main/incplist/inginfo["+1+"]/drugno");		
		for(var i=1; i<grd_inglist.rows;i++) {
			if(model.getValue("/root/main/incplist/inginfo["+i+"]/spcldrug") =="M") { //¸¶¾à¿©ºÎ È®ÀÎ
				var narcyn = "(¸¶)";
				break;
			}
			else{
				var narcyn ="";
			}
		}
						
		fERCareDrugNoLabel2(pid, patnm, sexage, drugno, narcyn, "(¾à±¹)", "(°£È£)");//Åõ¾à¹øȣǥÃâ·Â		
    }
//** ÀÀ±Þ½Ç¿¡¼­ Åð¿ø¾àÈ®Àνà Åõ¾à¹øÈ£¶óº§ Ãâ·Â Ãß°¡_20090218(ByCY) **// 
  }
}
  
/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åð½Ç±¸ºÐ ¼±Åà ¹× ÄÞº¸ ¿É¼Ç ¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fSelectOutRmCnts(){
	//Åð½Ç±¸ºÐ ÃʱâÈ­
  model.setValue("/root/main/condition/outrmcd", "");
  var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false);
  ipt_outrmetc.attribute("left") = "660"; // ±âŸ»çÀ¯ â À§Ä¡º¯°æ
      
  // ±Í°¡
  if(rdo_outrmflag.value == 1) {
    fSelctionOutRmCombo("BT1");
  }
  
  // ÀÔ¿ø
  if(rdo_outrmflag.value == 2) {
    fSelctionOutRmCombo("BT3");
  }
  
  // Àü¿ø
  if(rdo_outrmflag.value==3){    
    caption2.visible = "visible";
    caption1.visible="visible";
    ipt_chnghosnm.visible="visible";
    chk_proceraprvyn.visible="visible";
    chk_proceraprvyn.value = "Y";
    chk_healcaretgdyn.visible="visible";
    chk_healcaretgdyn.value = "Y";       
    fSelctionOutRmCombo("BT2");        
  } else {    
	caption2.visible = false;
    caption1.visible = false;
    ipt_chnghosnm.visible = false;
    chk_proceraprvyn.visible= false;
    chk_healcaretgdyn.visible= false;
    ipt_chnghospchoi.visible = false;
    model.makeValue("/root/main/condition/chnghospchoi", "");       
    model.setValue("/root/main/condition/chnghospnm", "");
    model.refresh();
  }
  
  // »ç¸Á
  if(rdo_outrmflag.value == 6) {
    fSelctionOutRmCombo("BT4");
    ipt_dethtm.visible = "visible";
    caption4.visible = "visible";
    ipt_dethdd.visible = "visible";
    
    if(model.getValue("/root/main/inddpatlist/inddpatinfo["+ iRow +"]/dethyn") == "Y"){
			model.setValue("/root/main/condition/dethdd", model.getValue("/root/main/inddpatlist/inddpatinfo["+ iRow +"]/dethdd") ); 
      model.setValue("/root/main/condition/dethtm", model.getValue("/root/main/inddpatlist/inddpatinfo["+ iRow +"]/dethtm") ); 
      ipt_dethdd.refresh();
      ipt_dethtm.refresh();
      messageBox("»ç¸Á ±â·Ï ³»¿ªÀÌ Á¸ÀçÇÕ´Ï´Ù.", "I");
    }
  } else {
    model.setValue("/root/main/condition/dethdd", "");
    model.setValue("/root/main/condition/dethtm", "");
    ipt_dethtm.visible = false;
    caption4.visible = false;
    ipt_dethdd.visible = false;
  }                                     
      
  // ±âŸ, ¹Ì»ó
  if(rdo_outrmflag.value == 8 || rdo_outrmflag.value == 9 ){
    caption2.visible= false;
    cmb_outrmcd.visible= false;
    ipt_outrmetc.visible = false; // ±âŸ»çÀ¯
    
    if(rdo_outrmflag.value == 8){
        model.setValue("/root/main/condition/outrmcd", "88");
       // ipt_chnghospchoi.visible = false;   
		ipt_chnghospchoi2.visible = true;
		ipt_chnghospchoi2.disabled = true;
		caption3.visible = true;
        model.setValue("/root/main/condition/chnghospchoi", "Å»¿ø");
        ipt_chnghospchoi.disabled = true;
		caption3.visible = true;
        model.refresh();
        //ipt_outrmetc.visible = "visible"; // ±âŸ»çÀ¯
        //caption2.visible= true;
        //caption2.attribute("text")                = "±âŸ»çÀ¯";
    } else if (rdo_outrmflag.value == 9 ){
        model.setValue("/root/main/condition/outrmcd", "99");     
       // ipt_chnghospchoi.visible = false;  
	    ipt_chnghospchoi2.visible = false;
		caption3.visible = false;
        model.setValue("/root/main/condition/chnghospchoi", "");
        ipt_chnghospchoi.disabled = false; 
		ipt_chnghospchoi2.disabled = true;
        //ipt_outrmetc.visible = false; // ±âŸ»çÀ¯
        //caption2.visible= false;
        //caption2.attribute("text")                = "¼¼ºÎ»çÇ×";
    }
    
  } else {
    caption3.visible= "visible";
    //caption2.attribute("text")                = "¼¼ºÎ»çÇ×";
    cmb_outrmcd.visible= "visible";	
	ipt_chnghospchoi2.visible = false;
	ipt_chnghospchoi2.disabled = false;
    ipt_chnghospchoi.visible = false;  
    ipt_chnghospchoi.disabled = false; // ±âŸ»çÀ¯
    model.setValue("/root/main/condition/chnghospchoi", "");
  }      
}


function fChangeOutRm(sFlag){
	if(sFlag != 2){
		for(var i= 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++){
			if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "3"){
				model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", "-");
			} 
		}
	}
}
		
		
/**
 * @group  :
 * @ver    : 2007.07.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿ÞÂÊ ¸¶¿ì½º Ŭ¸¯ ¸Þ´º
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
 
function fPopupMenuInfo(pFlag){
	//¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ° Ŭ¸¯½Ã À̹êÆ® ¹ß»ý    	
	if(event.button == 3){
	  //°Ë»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý
	if(pFlag == "T"){
		  //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà À̹êÆ®
		  
//		  alert(grd_testlist.row +" : "+ 	grd_testlist.mouseRow +" : "+ grd_testlist.selectedRow(0) +" : "+grd_testlist.selectedRows);
//		  alert(grd_testlist.selectedRow(0) +" : "+ grd_testlist.mouseRow);
//		  alert((grd_testlist.row + grd_testlist.selectedRow(0) -1)  +" : "+ grd_testlist.mouseRow);

		if(grd_testlist.selectedRows == 1 || (( grd_testlist.selectedRow(0) > grd_testlist.mouseRow)  || ((grd_testlist.row + grd_testlist.selectedRows -1)  < grd_testlist.mouseRow ))){
			for(var i = 1 ; i < grd_testlist.rows ; i++){
				model.setValue("/root/main/incplist/testinfo["+i+"]/selectyn", "");
			}
			grd_testlist.row = 	grd_testlist.mouseRow;
		}
		
     //¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆ˾÷â È°¼ºÈ­
     if(grd_testlist.isCell(event.target) && grd_testlist.mouseRow >= grd_testlist.fixedrows){
     	model.setValue("/root/main/incplist/testinfo["+grd_testlist.row+"]/selectyn", "Y");
     	
     	//Åð½Ç±¸ºÐ¿¡ µû¸¥ Æ˾÷¸ñ·Ï ¼±ÅÃ
     	if( model.getValue("/root/main/condition/outrmtp") == ""){
				//window.setPopupMenu( true, "/root/codedata/popupmenu/grid00/item", "name", "func", true); //Åð¿ø±¸ºÐ ¹Ì¼±ÅÃ
			}else if(model.getValue("/root/main/condition/outrmtp") == "2"){
				window.setPopupMenu( true, "/root/codedata/popupmenu/grid01/item", "name", "func", true); //Åð¿ø±¸ºÐ ÀÔ¿ø ¼±ÅÃ
			}else{
				window.setPopupMenu( true, "/root/codedata/popupmenu/grid02/item", "name", "func", true); //Åð¿ø±¸ºÐ ¼±ÅÃ(ÀÔ¿øÁ¦¿Ü)
			}
     }else{
       window.setPopupMenu(false);
     }
	 //¾à,ÁÖ»çÅÇ¿¡¼­ ¸¶¿ì½º Ŭ¸¯½Ã ¹ß»ý
	}else{
	  //¼±ÅþøÀÌ ¸¶¿ì½º ¿À¸¥ÂÊ Å¬¸¯À¸·Î ¼±Åà À̹êÆ®
		if(grd_inglist.selectedRows == 1 || (( grd_inglist.selectedRow(0) > grd_inglist.mouseRow)  || ((grd_inglist.row + grd_inglist.selectedRows -1)  < grd_inglist.mouseRow ))){
			for(var i = 1 ; i < grd_inglist.rows ; i++){
				model.setValue("/root/main/incplist/inginfo["+i+"]/selectyn", "");
			}
			grd_inglist.row = 	grd_inglist.mouseRow;
		}
		
		//¼±ÅÃÇà ¼±Åà Ç÷¡±× º¯°æ ÈÄ DCÆ˾÷â È°¼ºÈ­
	    if(grd_inglist.isCell(event.target) && grd_inglist.mouseRow >= grd_inglist.fixedrows){
	    	model.setValue("/root/main/incplist/inginfo["+grd_inglist.row+"]/selectyn", "Y");
	      	window.setPopupMenu( true, "/root/codedata/popupmenu/grid10/item", "name", "func", true); //Åð¿ø±¸ºÐ ¹Ì¼±ÅÃ
	    }else{
	      window.setPopupMenu(false);
	    }                    
	  }	
	}	 
}

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»ç, ¾àÁÖ»ç ¿À¸¥ÂÊ Æ˾÷ ¸Þ´º ¼±Åÿ¡ µû¸¥ ó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fChagnePrcpStat(pFlag){
	if(pFlag == ""){
		pFlag == "StatInit";
	}
	
	var sStatFlag = "";   // 1: DC, 2: Action, 3: º´µ¿ÀÌ°ü, -: ÃʱâÈ­
	var sTargetGrid = ""; // All : °Ë»ç, ¾à Àüü ÃʱâÈ­, Test: °Ë»ç ÃʱâÈ­, Ing: ¾àÁÖ»ç ÃʱâÈ­
	var sExecFlag = "";
	
	//Param¿¡ µû¸¥ »óÅ°ª ¼³Á¤
	if(pFlag == "StatInit"){
		sStatFlag = "-";
		sTargetGrid = "ALL";
		sExecFlag = "N";
	}else if(pFlag == "DefTestDC"){
		sStatFlag = "1";
		sTargetGrid = "Test";
		sExecFlag = "Y";
	}else if(pFlag == "DefTestAct"){
		sStatFlag = "2";
		sTargetGrid = "Test";
		sExecFlag = "Y";
	}else if(pFlag == "ChosTestInit"){
		sStatFlag = "-";
		sTargetGrid = "Test";
		sExecFlag = "N";
	}else if(pFlag == "ChosTestWard"){
		sStatFlag = "3";
		sTargetGrid = "Test";
		sExecFlag = "N";
	}else if(pFlag == "ChosTestDC"){
		sStatFlag = "1";
		sTargetGrid = "Test";
		sExecFlag = "N";
	}else if(pFlag == "ChosTestAct"){ // °Ë»ç Acting
		sStatFlag = "2";
		sTargetGrid = "Test";
		sExecFlag = "N";
	}else if(pFlag == "DefIngDC"){
		sStatFlag = "1";
		sTargetGrid = "Ing";
		sExecFlag = "Y";
	}else if(pFlag == "ChosIngInit"){
		sStatFlag = "-";
		sTargetGrid = "Ing";
		sExecFlag = "N";
	}else if(pFlag == "ChosIngDC"){
		sStatFlag = "1";
		sTargetGrid = "Ing";
		sExecFlag = "N";
	}
	
//	alert(sExecFlag +" : "+ sTargetGrid +" : "+ sStatFlag );
	
	// »óÅ º¯°æ¹× ½ÇÇà function È£Ã⠺κÐ
	if(sExecFlag != "" && sTargetGrid != "" && sStatFlag != ""){
		
		// ¼±Åà ¹Ù·Î ½Ç½Ã( Acting, D/C )
		if(sExecFlag == "Y"){  
			if(sStatFlag == "1"){  			// D/C
				fPrcpDC(sTargetGrid);
			}else if(sStatFlag == "2"){ // Action
				fSaveTestPrcp();
			}else if(sStatFlag == "3" || sStatFlag == "-" ){
				return;
			}
		// »óÅ º¯°æ
		}else{
			fChangeStatCode(sStatFlag, sTargetGrid);
		}
	}
}


function fChangeStatCode(pStat, pTarget){	
	//alert(pStat+'/'+pTarget);
	if(pTarget == "Test" ){
		for(var i= 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++){
			var chkprcp = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm"); 
			
			//var selectchk = model.getValue("/root/main/incplist/testinfo["+i+"]/selectyn");
		  	//alert(chkprcp+'/'+selectchk);
		  	
			if(model.getValue("/root/main/incplist/testinfo["+i+"]/selectyn")=="Y"){                                            // ¼±ÅÃµÈ Ã³¹æ
				if(model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "Y" ||                                         
				  (model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "N" && (pStat == "3" || pStat == "-"))){       // Ç÷¾×ó¹æÀÌ ¾Æ´Ñ°Í || Ç÷¾×ó¹æÀ̸鼭 º´µ¿ÀÌ°ü
    	    		if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N"){                                        // ¹Ì¼öÇà ó¹æ ¼±ÅÃ
	   					if((model.getValue("/root/main/incplist/testinfo["+i+"]/grupsnglflag") == "M" && (pStat == "3" || pStat == "-") ) || 
	   				    	model.getValue("/root/main/incplist/testinfo["+i+"]/grupsnglflag") != "M" ){                              // MSetó¹æ
              				if(model.getValue("/root/main/incplist/testinfo["+i+"]/c2check") == "N" || 
                 				model.getValue("/root/main/incplist/testinfo["+i+"]/c2check") == "Y" && (pStat == "1" ||pStat == "3" || pStat == "-")){ //´Ü¼ø¿µ»ó ó¹æ
              	 				model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", pStat);
              				}else{
							   messageBox(chkprcp+" ó¹æÀº °­Á¦ Acting ÇÒ ¼ö ¾ø´Â ´Ü¼ø ¿µ»ó ó¹æÀÔ´Ï´Ù.","E");
							}
							}else{
							 messageBox(chkprcp+" ó¹æÀº MSet ó¹æÀÔ´Ï´Ù.\nD/C, °­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
							}
						}else if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT"){
			    	 		messageBox(chkprcp+" ó¹æÀº Åð¿ø ÈÄ ¿Ü·¡ °Ë»ç ó¹æÀÔ´Ï´Ù.\nº´µ¿ÀÌ°ü, D/C, °­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
    		  			}else{
    		  	 			messageBox(chkprcp+" ó¹æÀº ½ÃÇàµÈ °Ë»ç ó¹æÀÔ´Ï´Ù.\nº´µ¿ÀÌ°ü, D/C, °­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
    		  			}
				}else{					 
				 	if ((pStat == "1") && (model.getValue("/root/main/incplist/testinfo["+i+"]/dcyn")=="N")) {
				 		messageBox(chkprcp+" ó¹æÀº Ç÷¾×ó¹æÀÔ´Ï´Ù.\n ó¹æ»óÅ°¡ ó¹æ/°£È£È®ÀÎÀÌ ¾Æ´Ï¸é D/CÇÒ ¼ö ¾ø½À´Ï´Ù..", "E");
					}
				   	else if ((pStat == "1") && (model.getValue("/root/main/incplist/testinfo["+i+"]/dcyn")=="Y")) {					 	
				 		model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", pStat);
					}
					else if (pStat == "2") {
						messageBox(chkprcp+" ó¹æÀº Ç÷¾×ó¹æÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
					}
					else {
						//messageBox(chkprcp+" ó¹æÀº Ç÷¾×ó¹æÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
					}
				}

				// Áø°Ë B2 ó¹æÀÎ °æ¿ì ¹ÙÄÚµåÃâ·Â»óÅÂ(400)ÀÌÈĸ¸ °­Á¦ActingµÇµµ·Ï
				//alert("ddd");
				
				if(model.getValue("/root/main/incplist/testinfo["+i+"]/prcpclscd") == "B2" ){
					if((model.getValue("/root/main/incplist/testinfo["+i+"]/prcpstatcd") < "400" )&& (pStat == "2")){
						messageBox(chkprcp+"ó¹æÀº Áø°Ë ó¹æÀÔ´Ï´Ù.\n¹ÙÄÚµå ¹ßÇà ÈÄ °­Á¦ Acting ÇϽʽÿÀ.","E");	
						model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", "-");
					}else {
						//messageBox(chkprcp+"dddddddó¹æÀº Áø°Ë ó¹æÀÔ´Ï´Ù.\n¹ÙÄÚµå ¹ßÇà ÈÄ °­Á¦ Acting ÇϽʽÿÀ.","E");	
						model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", pStat);
					}
				}
				
				
			} // selectyn = 'Y' end		
		
		} // for end
	}	else if(pTarget == "Ing"){
		for(var i= 0 ; i <= getNodesetCount("/root/main/incplist/inginfo") ; i++){
			if(model.getValue("/root/main/incplist/inginfo["+i+"]/selectyn")=="Y"){
				model.setValue("/root/main/incplist/inginfo["+i+"]/viewstat", pStat);
			}
		}	
	} else if(pTarget == "All"){
		for(var i= 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++){
			model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", pStat);
		}
		for(var i= 0 ; i <= getNodesetCount("/root/main/incplist/inginfo") ; i++){
			model.setValue("/root/main/incplist/inginfo["+i+"]/viewstat", pStat);
		}
	}

} // function end

	        
/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»ç, ¾àÁÖ»ç DC ±¸Çö ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fPrcpDC(pFlag){
	
	var prcpddprcpno = "";			//------------(20080917)±èº¸¼º
		
	if(messageBox ( "DC 󸮸¦ ", "Q003" ) == "6"){
		
		var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false);
    var sHeaderData = "status¢Ëprcpdd¢Ëprcpno¢Ëprcphistno¢Ëinstcd¢Ì";
    var dcPrcpInfo = "";
	  var dcPrcpCnt = 0;
	  
		if(pFlag == "Test"){
			//DCÇÒ °Ë»çó¹æ È®ÀÎ
	    var tRow = grd_testlist.rows;

	    for(i=1 ; i < tRow ; i ++){
	    	var chkprcp = "";
	    	var chkprcp = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm");
	    	// ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±ÅÃ
	    	if(model.getValue("/root/main/incplist/testinfo["+i+"]/selectyn") == "Y" ){
	    		//¼±ÅÃµÈ Ã³¹æ Áß Ç÷¾× ó¹æ Á¦¿Ü
	    		if( model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "Y"){
	    			//¹Ì¼öÇà ó¹æ ¼±ÅÃ
	    			if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N"){
	    				if(model.getValue("/root/main/incplist/testinfo["+i+"]/grupsnglflag") != "M"){
	    		      dcPrcpInfo += "C¢Ë"  
	    		                 + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd"     ) + "¢Ë"
	    		                 + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno"     ) + "¢Ë" 
	    		                 + model.getValue("/root/main/incplist/testinfo["+i+"]/prcphistno" ) + "¢Ë" 
	    		                 + model.getValue("/root/main/incplist/testinfo["+i+"]/instcd"     ) + "¢Ì";
	    		      dcPrcpCnt++;
	    		    }else{
	    		    	messageBox(chkprcp+" ´Â Mset ó¹æÀÔ´Ï´Ù.","E");
	    		    }
	    		  }else if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT"){
	    		  	messageBox(chkprcp+"´Â Åð¿ø ÈÄ ¿Ü·¡ °Ë»ç ó¹æÀÔ´Ï´Ù.","E");
	    		  }else{
	    		  	messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ °Ë»ç ó¹æÀÔ´Ï´Ù.","E");
	    		  }
	    		}else{
	    			messageBox(chkprcp+"´Â Ç÷¾× ó¹æÀÔ´Ï´Ù.","E");
	    		}
	    	}
	    }
	  }else{
	  	//DCÇÒ ¾à/ÁÖ»ç ó¹æ È®ÀÎ
			var tRow = grd_inglist.rows;
	    var prcpno = "";
	    for(i=1 ; i < tRow ; i ++){
	    	var chkprcp = model.getValue("/root/main/incplist/inginfo["+i+"]/prcpnm");
	    	// ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±ÅÃ
	    	if(model.getValue("/root/main/incplist/inginfo["+i+"]/selectyn") == "Y" ){
					//¹Ì¼öÇà ó¹æ ¼±Åà ( Actiong ¿Ï·á, Åð¿ø¾à ¾à±¹Àü¼Û °Ç Á¦¿Ü)
					if(model.getValue("/root/main/incplist/inginfo["+i+"]/prcpkindcdyn") == "Y" ){
						messageBox(chkprcp + "´Â Åð¿ø¾à ó¹æÀÔ´Ï´Ù.\nÅð¿ø ó¹æÀº °£È£»ç°¡ D/CÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
					}else{
	    			if( model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "N" ){
	    				  //¾à,ÁÖ»ç °æ¿ì´Â 3°³·Î Ç®¸± ¼ö ÀÖÀ¸¹Ç·Î ÇÑ°³ÀÇ Ã³¹æ ¹øÈ£¸¸ ³Ñ±âµµ·Ï ÇÔ
	    					//if(prcpno != model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno")){
	    					
							prcpno =  model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno");
							dcPrcpInfo += "C¢Ë"  
	    		                 + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd"     ) + "¢Ë"
	    		                 + model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno"     ) + "¢Ë" 
	    		                 + model.getValue("/root/main/incplist/inginfo["+i+"]/prcphistno" ) + "¢Ë" 
	    		                 + model.getValue("/root/main/incplist/inginfo["+i+"]/instcd"     ) + "¢Ì";
	  			      		dcPrcpCnt++;

	  		      		//-----------------(20080926) ±èº¸¼º
	  		      		if (model.getValue("/root/main/incplist/inginfo["+i+"]/prcpstatcd") > "000" ) {
							prcpddprcpno += "'" + 
											model.getValue("/root/main/incplist/inginfo["+i+"]/prcpdd") + 
											model.getValue("/root/main/incplist/inginfo["+i+"]/prcpno") + "',";	
						}
	  		      		//-----------------(20080926)
	  		      		  		      		
	    		  }else if(model.getValue("/root/main/incplist/inginfo["+i+"]/execyn") == "DC"){
							messageBox(chkprcp+"´Â ¹Ýȯ¿äûµÈ ó¹æÀÔ´Ï´Ù.","E");
	    		  }else{
	    		  	messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ ó¹æÀÔ´Ï´Ù.","E");
	    		  }
	    		}
	    	}
			}
	  }

    model.makeValue("/root/send/cond3" , sHeaderData+dcPrcpInfo );
    
    //ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo)
    model.setValue ( "/root/save/saveflaginfo/savedataflag" , "2"                       );   //ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ÀÓ½ÃÀúÀå
    model.setValue ( "/root/save/saveflaginfo/saveflag"     , "E"                       );   //ÀúÀ屸ºÐ 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"     , "3"                       );   //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
    model.setValue ( "/root/save/saveflaginfo/pamflag"      , "Y"                       );   //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
    model.setValue ( "/root/save/saveflaginfo/diagflag"     , "Y"                       );   //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
    model.setValue ( "/root/save/saveflaginfo/prcperrflag"  , "Y"                       );   //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
    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"       , "N"                       );   //ÀüÀÚ¼­¸í¿©ºÎ
    
    var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );
    model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
    
    //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo)
    model.setValue ( "/root/save/savergstinfo/pid"        , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/pid")       );   // µî·Ï¹øÈ£(¿ø¹«Key)
    model.setValue ( "/root/save/savergstinfo/orddd"      , "-"                                                                      );   // Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
    model.setValue ( "/root/save/savergstinfo/indd"       , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/indd")      );   // ÀÔ¿øÀÏÀÚ(¿ø¹«Key)
    model.setValue ( "/root/save/savergstinfo/cretno"     , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/cretno")    );   // »ý¼º¹øÈ£(¿ø¹«Key)
    model.setValue ( "/root/save/savergstinfo/orddeptcd"  , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/orddeptcd") );   // Áø·á°ú(¿ø¹«)
    model.setValue ( "/root/save/savergstinfo/orddrid"    , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/orddrid")   );   // Áø·áÀÇID(¿ø¹«)
    model.setValue ( "/root/save/savergstinfo/instcd"     , model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/instcd")    );   // ±â°üÄÚµå
    
    var saveRgstInfo = model.instances(0).selectNodes( "/root/save/savergstinfo" );
    model.makeValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); 
    
    // D/CÇÒ Ã³¹æÀÌ ¾øÀ» °æ¿ì returnó¸®
	//alert( "d/c" + pFlag + "/" + dcPrcpCnt); 
	if( dcPrcpCnt > 0 ){
		//-----------------------(20080917)±èº¸¼º		
		//¾à D/CÀÎ °æ¿ì¸¸
		
		if(pFlag != "Test") {
			//1. ÀÎÁõÀ» À§ÇÑ ÀÚ·á ÃßÃâ
			prcpddprcpno = prcpddprcpno.substr(0,prcpddprcpno.length-1);
			//alert("prcpddprcpno:" + prcpddprcpno);
			fnSignSaveCall("30",prcpddprcpno);
			
			//----------------(20090923)
			if (getNodesetCount("/root/signinfo/signsave/signdata") > 0 ) {
			//2. ÀÚ·á¿¡ ´ëÇؼ­ ÀÎÁõÇϱâ
				if ( fnSignSaveWork() == true) {
					//3. ÀÎÁõÀڷḦ ¹­À½submit("TXMNP06013")				
				    var signsave = model.instances(0).selectNodes( "/root/signinfo/signsave/signdata" );
				    model.makeValue ( "/root/send/cond4", getNodeListCSV(signsave));
				} else {
					return ;		//---(20080922)
				}
			}
			//----------------(20090923)				
		}
		
		//-----------------------(20080917)			
	    if(submit("TXMNE00203") == true ){
    		if(getNodesetCount("/root/temp/errlist") > 0){
				var iNode = "/root/srcdata/list/patlist";
				fShowModal("SPMNE00200");	
			}    		
    		fSelectInddPatList("S");
			//-----------------------(20080917):±èº¸¼º
		
			//¾à D/CÀÎ °æ¿ì¸¸
			if(pFlag != "Test") {
				//1. ÀÏÀÚº° ÀÎÁõÀ» À§ÇÑ ÀÏÀÚ ÃßÃâ
				var signDates = new Array;
				var signDateCnt = 0;
				var signdispdd = "";
				var sPathsignsave = "/root/signinfo/signsave/signdata";				
				var rows  = getNodesetCount(sPathsignsave);
				
				if (rows <= 0 ) return;					
				for (var i=1;i<= rows ;i++) {		//---(0922)
					signdispdd 	= model.getValue(sPathsignsave + "[" + i + "]/execdd");
					//alert( "Àüüloop:" + signdispdd + "/"+ medrexecdd + "/" + currentdd);
					if ( signDates.length == 0) {
						signDateCnt =0;
						signDates[signDateCnt] = "";
					}
					if (signdayFind(signDates,signdispdd) == true ) {			//------(Åõ¾àÀÏÀÚ)
						signDateCnt ++;					
						signDates[signDateCnt] = signdispdd;
						//alert("b:" + signDates[signDateCnt] +"/" + medrexecdd);
					}				
				}
				//2. Åõ¾à±â·ÏÀ» ÀÏÀÚº°·Î XLST¸¦ ¸¸µé±â À§Çؼ­
				fnWorkddSign(signDates);					
			}
			//-----------------------(20080917)    		
	    }
  	}
  }
}
    
function fShowModal(pProgID) {  

   var xpos = event.screenX-300;
   var ypos = event.screenY-400;

   modal(pProgID, 1, xpos, ypos, pProgID, "/root/temp", "/root/result");  

   var iProperties  = getParameter("SendData"); 
   return iProperties
} 

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åð½ÇÀϽà ȮÀÎ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fChkOutrmdd(){
	var iRow = grd_patlist.findRow(model.getValue("/root/main/condition/pid"), 1, grd_patlist.colRef("pid"), false, false);
	var nowDate = fTimeSetting(); 	//ÇöÀç ½Ã°£ ¼ÂÆÃ
	var checktime = model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm") ; //üũÇÒ ½Ã°£ ¼ÂÆÃ(Åð¿øÀϽÃ)
	
	//³»¿ø½Ã°£, Åð¿ø½Ã°£ üũ
	if(model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt")  >   checktime ){
		model.setValue("/root/main/condition/outrmdd", getCurrentDate() );
		model.setValue("/root/main/condition/outrmtm", nowDate );
		ipt_outrddd.refresh();
		ipt_outrmtm.refresh();
		messageBox("¼±ÅÃÀÏÀÌ ³»¿øÀϽú¸´Ù ÀÌÀüÀÔ´Ï´Ù.", "E");
	} else {
		model.setValue("/root/main/condition/t_outrmdt",   model.getValue("/root/main/condition/outrmdd") + model.getValue("/root/main/condition/outrmtm") );
	}
	output3.refresh();
}

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ ±âº» Á¤º¸ ¼³Á¤ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fCalcChosOut(){
	var iRow = grd_patlist.row;
	if(model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt") == "" || 
	   model.getValue("/root/main/condition/outrmdd") == ""){
		return;
	}
	
	//Åð½ÇÀϽà ȮÀÎ ºÎºÐ
	fChkOutrmdd();
	
	var CalcDate = "";
	//³»¿ø½Ã°£ ¼¼ÆÃ
	var chosyy   = model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt").substr(0,4);
	var chosmm   = model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt").substr(4,2);
	var chosdd   = model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt").substr(6,2);
	var choshh   = model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt").substr(8,2);
	var chosnn   = model.getValue("/root/main/inddpatlist/inddpatinfo["+iRow+"]/chosdt").substr(10,2);
	
	//Åð½Ç½Ã°£ ¼¼ÆÃ
	var outrmyy   = model.getValue("/root/main/condition/outrmdd").substr(0,4);
	var outrmmm   = model.getValue("/root/main/condition/outrmdd").substr(4,2);
	var outrmdd   = model.getValue("/root/main/condition/outrmdd").substr(6,2);
	var outrmhh   = model.getValue("/root/main/condition/outrmtm").substr(0,2);
	var outrmnn   = model.getValue("/root/main/condition/outrmtm").substr(2,2);
	
	//Àç½Ç ½Ã°£ °è»êÀ» À§ÇÏ¿© ½Ã°£, ºÐ ´ÜÀ§·Î Â÷À̸¦ °è»ê
	var rstFromTime = new Date(chosyy,chosmm,chosdd,choshh,chosnn,0);
	var rstEndTime  = new Date(outrmyy, outrmmm,outrmdd,outrmhh,outrmnn,0);
	var diffnn      = ((rstEndTime - rstFromTime) / (60*1000))  ;
	var diffhh      = Math.ceil( (rstEndTime - rstFromTime) / ( 60*60*1000)  )  ;
	
	//½Ã°£ : ºÐ ±¸Çϱâ
	if(chosnn != outrmnn){		
		calcdiffhh = diffhh -1;
		calcdiffnn = (diffnn - ((diffhh-1) * 60 ));		
	//ºÐÀÌ Á¤°¢ÀÏ °æ¿ì
	}else{
		calcdiffhh = diffhh;
		calcdiffnn = "00"
	}
	
	//ȯÀÚ ±âº»Á¤º¸ ¹®Àå »ý¼º		
	CalcDate = calcdiffhh  + "½Ã°£ "+ calcdiffnn + "ºÐ" ;
	return CalcDate;
} 


/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»ç ó¹æ °­Á¦ Action ó¸® ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fSaveTestPrcp(){
	//actingÀúÀå								       
	var datacheck2 = "N";
  var tRow = grd_testlist.rows;
	
  var vbYes = messageBox("¼±ÅÃµÈ Ã³¹æ Acting","Q004");
	if( vbYes == 6 ){
	
		//¸¶¿ì½º µå·¡±×½Ã ½Ç½Ã °Ë»ç ó¹æ ¿©ºÎ È®ÀÎ
	  for(i= 1 ; i <tRow; i++ ) {
	    if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N" ){
	       var datacheck2 = "Y";
	    }
	  }
	  
		if(datacheck2 == "N" || grd_testlist.rows == "1"){
		    messageBox("¹Ì½ÃÇà °Ë»ç ó¹æÀÌ Á¸ÀçÇÏÁö", "E007");
		    model.setFocus("button3");
		    return;
		}else{
		  for(i=1 ; i < tRow ; i ++){
		  	var chkprcp = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm");		  	
		  	if(model.getValue("/root/main/incplist/testinfo["+i+"]/selectyn") == "Y" ){       // µå·¡±× ¼±Åÿ©ºÎ üũ
		  		if( model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "Y"){     // 
		  			if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N"){ // Acting¿©ºÎ üũ
		   				if(model.getValue("/root/main/incplist/testinfo["+i+"]/grupsnglflag") != "M" ){   // MSetó¹æ
									model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat" , "2");
							}else{
								messageBox(chkprcp+"ó¹æÀº MSet ó¹æÀÔ´Ï´Ù.\n°­Á¦ ActingÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
							}

							
		  		  }else if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT"){
		  		  	messageBox(chkprcp+"´Â Åð¿ø ÈÄ ¿Ü·¡ ó¹æÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
		  		  }else{
		  		  	messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ ó¹æÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
		  		  }
		  		}else{
		  			messageBox(chkprcp+" Àº Ç÷¾×ó¹æ ÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
		  		}		  		  				  		
		  		
		  	}
		  } // for end
		  		
			model.removenodeset("/root/send");
		  model.makeValue("/root/send/searchpat", fSetPatInfo() );
	    model.makeValue("/root/send/prcplist", grd_testlist.getUpdateDataAll("i"));
	    model.removeNodeset("/root/main/incplist");
	    submit("TXMNE00204");
	    model.refresh();		
		}
	}
}

/**
 * @group  :
 * @ver    : 2007.06.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : »ó´Ü Á¤º¸ ÀÌ¿ë ȯÀÚ ¼±ÅÃ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fGetParamSetting(){
	//var chkPid = getPatientInfo("pid");
	var chkPid = '19733962'; //'19733953';
	var iTgPatRow = 0;

	var count = 0;
	alert("aaaa");
	if(chkPid != ""){
		alert("bbbb");
		alert("chkPid :" +chkPid);
		var tRow = grd_patlist.rows;
		if(tRow == "1"){
			return;
		}else{
			/*0202
			for( i =0 ; i < tRow ; i++ ){
				count++;
				iTgPatRow = grd_patlist.findRow(chkPid ,1, 3,true,true);
				
				alert("1:"+iTgPatRow);
			}
			*///0202
			iTgPatRow = grd_patlist.findRow(chkPid ,1, 3,true,true);
			alert("1:"+iTgPatRow);
		}
	}
	alert("count:"+count);
	alert("2:"+iTgPatRow);
	alert("cccc");
	if(iTgPatRow > 0){
       	grd_patlist.row = iTgPatRow;
       	grd_patlist.topRow = iTgPatRow;
		fSelectPatList();
		alert("dddd");
	}
	
}

/**
 * @group  :
 * @ver    : 2007.06.07
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ ¼±Åà °Ë»ç/¾à,ÁÖ»ç ó¹æÁ¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fSelectPatList(){
	 alert("asdasd");
  if(grd_patlist.row < 1){
	    alert("13123123123");
		return;
	}
	
	fResrchPatList();        //ȯÀÚ ÀçÁ¶È¸
	fSetParam();             //»ó´ÜÁ¤º¸¼³Á¤
	fSelectInddPatList("S"); //°Ë»ç, ¾àÁÖ»ç, ¸¶¾à Á¶È¸
	//020202
	model.refresh();
	alert("°Ë»ç: "+grd_testlist.rows);
	alert("¸¶¾à: "+grd_narcoticlist.rows);
	alert("¾à/ÁÖ»ç: "+grd_inglist.rows);
	
	if(grd_narcoticlist.rows != '1') {
		alert("11");
		btn_antimv.visible = true;
		messagebox("¹ÌÁ¤¸®µÈ ¸¶¾àó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "i");
		model.refresh();
	}
	else {
		alert("22");
		btn_antimv.visible = false;
	}	
/*
	for(var i=1; i<grd_inglist.rows;i++) {
		if(model.getValue("/root/main/incplist/inginfo["+i+"]/spcldrug") =="M") { //¸¶¾à¿©ºÎ È®ÀÎ
			alert("11");
			btn_antimv.visible = true;
			messageBox("¹ÌÁ¤¸®µÈ ¸¶¾àó¹æÀÌ Á¸ÀçÇÕ´Ï´Ù.", "I");
			model.refresh();
			break;
		}		
		else {
			alert("22");
			btn_antimv.visible = false;
		}	
	}
	*/
	
	//020202
	fInitSettingTop();       //Åð½Çó¸® ȯÀڱ⺻Á¤º¸ ÃʱâÈ­
	model.setValue("/root/main/condition/pid",model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid"));
	
	var tRow = grd_testlist.rows;
	var iRow = grd_inglist.rows;
	var maxDate = "";
	var minDate = "";
	
	for(i = 1 ; i < tRow ; i++){
		if(maxDate != ""){
			if(maxDate < model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd") ){
				maxDate = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd");
			} 
		}else{
			maxDate = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd");
		}
		
		if(minDate != ""){
			if(minDate >= model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd") ){
				minDate = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd");
			} 
		}else {
			minDate =  model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd");
		}
	}
	
	model.setValue("/root/main/condition/outrmdd", getCurrentDate() );
	model.setValue("/root/main/condition/outrmtm", fTimeSetting() );
                                   							
	var t_patinfo = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid")+"  "
	                    + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/patnm")+"  "
	                    + model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/sexage");
	var t_chosdt = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/chosdt");
	var t_outrmdt = model.getValue("/root/main/condition/outrmdd")
	                    + model.getValue("/root/main/condition/outrmtm");
	var t_calctm = fCalcChosOut();
	var t_assgroom = model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/assgroom");

	model.setValue("/root/main/condition/t_patinfo"  , t_patinfo  );
	model.setValue("/root/main/condition/t_chosdt"   , t_chosdt   );
	model.setValue("/root/main/condition/t_outrmdt"  , t_outrmdt  );
	model.setValue("/root/main/condition/t_calctm"   , t_calctm   );
	model.setValue("/root/main/condition/t_assgroom" , t_assgroom );
	ipt_chnghospchoi.visible = false;
	ipt_chnghospchoi2.visible = false;
	caption2.visible = false;
    caption3.visible = false;
	model.makeValue("/root/main/condition/chnghospchoi","");	

	var fselectRow = grd_patlist.row;
	model.copyNode("/root/hidden1/incplist","/root/main/inddpatlist/inddpatinfo["+fselectRow+"]");	


	model.refresh();
	
}

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»ç ÀÏ°ý DC ±¸Çö ºÎºÐ(»óÅ°ªÀ¸·Î D/C °áÁ¤ µÈ ó¹æ ÀÏ°ý D/C)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fPrcpDCSave(pFlag, pCnt){
	
  var sHeaderData = "status¢Ëprcpdd¢Ëprcpno¢Ëprcphistno¢Ëinstcd¢Ì";
  var dcPrcpInfo  = "";
  var dcPrcpCnt   = 0;
	
	//DCÇÒ °Ë»çó¹æ È®ÀÎ
  var tRow = grd_testlist.rows;

  for(i=1 ; i < tRow ; i ++){
  	// ±×¸®µå¿¡¼­ ¼±ÅÃµÈ Ã³¹æ ¼±ÅÃ
  	if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "1" ){
	    dcPrcpInfo += "C¢Ë"  
	               + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd"    ) + "¢Ë"
	               + model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno"    ) + "¢Ë" 
	               + model.getValue("/root/main/incplist/testinfo["+i+"]/prcphistno") + "¢Ë" 
	               + model.getValue("/root/main/incplist/testinfo["+i+"]/instcd"    ) + "¢Ì";
	    dcPrcpCnt++;          
  	}
  }
  
	//alert(dcPrcpInfo);
	model.removenodeset("/root/send");        
  model.makeValue("/root/send/cond3" , sHeaderData+dcPrcpInfo );
  
  //ÀúÀ屸ºÐÁ¤º¸(saveFlagInfo)
  model.setValue ( "/root/save/saveflaginfo/savedataflag"   , "2"                      );   //ÀúÀåÀڷᱸºÐ 0:Áø´Ü ¹× ó¹æ, 1:Áø´Ü, 2:ó¹æ, 4:ÀÓ½ÃÀúÀå
  model.setValue ( "/root/save/saveflaginfo/saveflag"       , "E"                      );   //ÀúÀ屸ºÐ 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"       , "3"                      );   //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
  model.setValue ( "/root/save/saveflaginfo/pamflag"        , "Y"                      );   //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
  model.setValue ( "/root/save/saveflaginfo/diagflag"       , "Y"                      );   //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
  model.setValue ( "/root/save/saveflaginfo/prcperrflag"    , "Y"                      );   //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
  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"         , "N"                      );   //ÀüÀÚ¼­¸í¿©ºÎ
  
  var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/save/saveflaginfo" );
  model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 
  
  //ÀúÀåµî·ÏÁ¤º¸(saveRgstInfo)
  model.setValue ( "/root/save/savergstinfo/pid"        , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/pid")       );   // µî·Ï¹øÈ£(¿ø¹«Key)
  model.setValue ( "/root/save/savergstinfo/orddd"      , "-"                                                                                 );   // Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
  model.setValue ( "/root/save/savergstinfo/indd"       , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/indd")      );   // ÀÔ¿øÀÏÀÚ(¿ø¹«Key)
  model.setValue ( "/root/save/savergstinfo/cretno"     , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/cretno")    );   // »ý¼º¹øÈ£(¿ø¹«Key)
  model.setValue ( "/root/save/savergstinfo/orddeptcd"  , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddeptcd") );   // Áø·á°ú(¿ø¹«)
  model.setValue ( "/root/save/savergstinfo/orddrid"    , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/orddrid")   );   // Áø·áÀÇID(¿ø¹«)
  model.setValue ( "/root/save/savergstinfo/instcd"     , model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/instcd")    );   // ±â°üÄÚµå
  
  var saveRgstInfo = model.instances(0).selectNodes( "/root/save/savergstinfo" );
  model.makeValue ( "/root/send/cond2", getNodeListCSV(saveRgstInfo)); 
	
  // D/CÇÒ Ã³¹æÀÌ ¾øÀ» °æ¿ì returnó¸®
	if( dcPrcpCnt > 0 ){
	  if(submit("TXMNE00203") == true ){
	  	if(getNodesetCount("/root/temp/errlist") > 0){
	  		var iNode = "/root/srcdata/list/patlist";
				fShowModal("SPMNE00200");	
	  	}    
	  	if(pCnt < 1){
	  		fSelectInddPatList("S");
	  	}
	  }
	}
}
    

/**
 * @group  :
 * @ver    : 2007.06.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»ç ó¹æ °­Á¦ Action ó¸® ºÎºÐ(Acting»óÅ°ª ó¹æ ÀÏ°ý Acting)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fSaveTestPrcpSave(){
//  »óÅ°ª ¼³ÀúÀ¸·Î ÀÎÇÏ¿© Acting Á¶°Ç üũ ·ÎÁ÷ »èÁ¦ : 2008-01-21
//	var datacheck2 = "N";
//  var tRow = grd_testlist.rows;
//	
//	//¸¶¿ì½º µå·¡±×½Ã ½Ç½Ã °Ë»ç ó¹æ ¿©ºÎ È®ÀÎ
//  for(i= 1 ; i <tRow; i++ ) {
//    if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "N" ){
//       var datacheck2 = "Y";
//    }
//  }
//  
//	if(datacheck2 == "N" || grd_testlist.rows == "1"){
//	    messageBox("¹Ì½ÃÇà °Ë»ç ó¹æÀÌ Á¸ÀçÇÏÁö", "E007");
//	    model.setFocus("button3");
//	    return;
//	}else{
//	  for(i=1 ; i < tRow ; i ++){
//	  	var chkprcp = model.getValue("/root/main/incplist/testinfo["+i+"]/prcpnm");
//	  	if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "2" ){
//	  		if( model.getValue("/root/main/incplist/testinfo["+i+"]/testtp") == "Y"){
//	  			if( model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "Y"){
//	  		  	messageBox(chkprcp+"´Â ÀÌ¹Ì ½ÃÇàµÈ °Ë»çÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","I");
//	  		  	return;  		
//	  		  }else if(model.getValue("/root/main/incplist/testinfo["+i+"]/execyn") == "OUT"){
//	  		  	messageBox(chkprcp+"´Â Åð¿ø ÈÄ ¿Ü·¡ ó¹æÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","I");
//	  		  	return;  		
//	  		  }
//	  		}else{
//	  			messageBox(chkprcp +" Àº Ç÷¾×ó¹æ ÀÔ´Ï´Ù.\n°­Á¦ Acting ÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
//	  			return;
//	  		}
//	  	}
//	  }
	  model.removenodeset("/root/send");
	  model.makeValue("/root/send/searchpat", fSetPatInfo() );
    model.makeValue("/root/send/prcplist", grd_testlist.getUpdateDataAll("i"));
    model.removeNodeset("/root/main/incplist");
    submit("TXMNE00204");
  
}

/**
 * @group  :
 * @ver    : 2008.01.17
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °Ë»çó¹æ ÀÏ°ý ó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveTestPrcpAll(){
	
	model.removeNodeset("/root/testprcp/tmp");
	var tRow = grd_testlist.rows;
	var cntDC = 0;
	var cntACT = 0;
	var cntWard = 0 ;
	
	//»óÅ ¼³Á¤°ª ÀúÀå(º´µ¿ÀÌ°ü)
	for(var i = 1 ; i<tRow ; i++){
		if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "1"){
			cntDC++;
		}	
		if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "2"){
			cntACT++;
		}
		if(model.getValue("/root/main/incplist/testinfo["+i+"]/viewstat") == "3"){
			cntWard++;
			model.makeValue("/root/testprcp/tmp["+cntWard+"]/prcpno"     , model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno"));
			model.makeValue("/root/testprcp/tmp["+cntWard+"]/prcphistno" , model.getValue("/root/main/incplist/testinfo["+i+"]/prcphistno"));
			model.makeValue("/root/testprcp/tmp["+cntWard+"]/prcpdd"     , model.getValue("/root/main/incplist/testinfo["+i+"]/prcpdd"));
		}
	}
	
	if(cntDC < 1 && cntACT < 1){
		messageBox("DC & Acting ÇÒ Ã³¹æÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "I");
		return;
	}
	
	var vbYes = messageBox("DC : "+cntDC+" °Ç   Acting : "+cntACT+" °Ç ÀÔ´Ï´Ù.","Q004");
	if( vbYes == 6 ){
		
		if(cntDC > 0){  //DC ¼³Á¤ ½ºÅ©¸³Æ® È£Ãâ
			fPrcpDCSave("Test", cntACT);
		}
		if(cntACT > 0){ //Acting ¼³Á¤ ½ºÅ©¸³Æ® È£Ãâ
			fSaveTestPrcpSave();
		}
		
		//Àӽà ÀúÀåµÈ »óÅ ¼³Á¤°ª ¼¼ÆÃ(º´µ¿ÀÌ°ü)
		for(var i = 1 ; i <= getNodesetCount("/root/main/incplist/testinfo") ; i++ ){
			for(var j = 1 ; j <= getNodesetCount("/root/testprcp/tmp") ; j++ ){
				if(model.getValue("/root/main/incplist/testinfo["+i+"]/prcpno") == model.getValue("/root/testprcp/tmp["+j+"]/prcpno") ){
					model.setValue("/root/main/incplist/testinfo["+i+"]/viewstat", "3");
				}
			}
		}
		model.refresh();
	}
}

/**
 * @group  :
 * @ver    : 2008.01.17
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åð¿ø¿¹°í ȯÀÚ Cellstyle º¯°æ ¹× Æ÷Ä¿½º Ä÷¯ º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fChangeFocusColor(){
	//var color = grd_patlist.cellstyle("background-color", grd_patlist.row, grd_patlist.col, grd_patlist.row, grd_patlist.col);
	//if(color == "#ffd3ff"){
	if(model.getValue("/root/main/inddpatlist/inddpatinfo["+grd_patlist.row+"]/dschdclrtyn") == "Y"){
		grd_patlist.cellstyle("background-color", grd_patlist.row, 0, grd_patlist.row, 4) = "#ffd3ff";
		grd_patlist.attribute("focuscolor") = "#00cc66";
		grd_patlist.refresh();
	}
}


/**
 * @group  :
 * @ver    : 2008.01.17
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Å¬¸¯½Ã »ó´ë°ª ÀçÁ¶È¸(Åð¿ø¿¹°í, ¿¹Á¤º´½Ç)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fResrchPatList(){
	var sRow = grd_patlist.row;

  var sSrchHeader = "pid¢Ëindd¢Ëcretno¢Ì";
  var sSrchData   = model.getValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/pid"   ) +"¢Ë"
									+ model.getValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/indd"  ) +"¢Ë"
									+ model.getValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/cretno") +"¢Ì";

	model.removenode("/root/send");
  model.makeValue("/root/send/reqcond", sSrchHeader + sSrchData);
  if(submit("TRMNE00201") == true){
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/bedposcnts"   , model.getValue("/root/temp/patinforesrch/patinfo/bedposcnts")   );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dschdclrtyn"  , model.getValue("/root/temp/patinforesrch/patinfo/dschdclrtyn")  );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/chosdt"       , model.getValue("/root/temp/patinforesrch/patinfo/chosdt")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dschdclrdt"   , model.getValue("/root/temp/patinforesrch/patinfo/dschdclrdt")   );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/orddrid"      , model.getValue("/root/temp/patinforesrch/patinfo/orddrid")      );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/roomcd"       , model.getValue("/root/temp/patinforesrch/patinfo/roomcd")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/medispclid"   , model.getValue("/root/temp/patinforesrch/patinfo/medispclid")   );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/assgroom"     , model.getValue("/root/temp/patinforesrch/patinfo/assgroom")     );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/wardcd"       , model.getValue("/root/temp/patinforesrch/patinfo/wardcd")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/ordtype"      , model.getValue("/root/temp/patinforesrch/patinfo/ordtype")      );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dethdd"       , model.getValue("/root/temp/patinforesrch/patinfo/dethdd")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dethtm"       , model.getValue("/root/temp/patinforesrch/patinfo/dethtm")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dethyn"       , model.getValue("/root/temp/patinforesrch/patinfo/dethyn")       );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/g3existyn"    , model.getValue("/root/temp/patinforesrch/patinfo/g3existyn")    );
  	model.setValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/inrsrvacptdt" , model.getValue("/root/temp/patinforesrch/patinfo/inrsrvacptdt") );

		model.removeNodeset("/root/temp/patinforesrch/patinfo");
  }
  
  if( model.getValue("/root/main/inddpatlist/inddpatinfo["+ sRow +"]/dschdclrtyn") == "Y" ){
  	fChangeFocusColor();
  	//grd_patlist.cellstyle("background-color", sRow, 0, sRow, 4) = "#ffd3ff";
  	//grd_patlist.attribute("focuscolor") = "#00cc66";
  }
}

//=====================================================================================
// ¾Æ·¡´Â  ¾à D/C ½Ã Åõ¾à±â·Ï¿¡ ¹Ý¿µ¹× Åõ¾à±â·Ï ÀÏÀÚº° XSLT »ý¼ºÇϱâ(20080917) ±èº¸¼º 
//=====================================================================================

 // Åõ¾à±â·Ï ÅëÇÕ±â·ÏÀ» À§ÇÑ ÀÚ·á ÃßÃâÁúÀǹ®
 // prcpddprcpnoÀ¸·Î n°³ÀÇ iprc¿¡ ´ëÇÑ exip´ÜÀ§ÀÇ Á¤º¸¸¦ ÃßÃâÇÑ´Ù.

 function fnSignSaveCall(workflag, prcpddprcpno) {

	var sPathSign = "/root/signinfo";	
	model.resetInstanceNode(sPathSign + "/reqsigncond");
	var pGrd = grd_patlist;
	
	var spid		= model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row + "]/pid");	//µî·Ï¹øÈ£(Çʼö)					
	var sinstcd		= getUserInfo("dutplceinstcd");													//±â°üÄÚµå(»ç¿ëX)
	var sindd		= model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row +"]/indd");	//ÀÔ¿øÀÏÀÚ(Çʼö)					
	var scretno		= "";																			//»ý¼º¹øÈ£(»ç¿ëX)					
	var sprcpdd		= "";																			//ó¹æÀÏÀÚ(PRN½Ã Çʼö)					
	var sprcpno		= "";																			//ó¹æ¹øÈ£(È®ÀλçÇ×)					
	var sworkdd		= "";																			//Åõ¾àÀÏ(ÀÏÀÚ±×·ìÀ϶§¸¸ (Çʼö))				
	var slistflag	= workflag;																		//ÀÛ¾÷±¸ºÐ(Çʼö)					
	var snursnm		= getUserName();																//°£È£»ç¸íÃß°¡(Çʼö)				
	var shngnm		= model.getValue("/root/main/inddpatlist/inddpatinfo["+ pGrd.row +"]/patnm");	//ȯÀÚ¸íÃß°¡	(Çʼö)			
	var smedrexecdd	= "";																			//È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ(»ç¿ëX)	
	var smedrexectm	= "";																			//È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£(»ç¿ëX)	
	var sprcpddprcpno = prcpddprcpno;																//n°³ÀÇ iprc
	
	model.setValue(sPathSign + "/reqsigncond/pid"			,spid		);		//desc="µî·Ï¹øÈ£"					
	model.setValue(sPathSign + "/reqsigncond/instcd"		,sinstcd	);		//desc="±â°üÄÚµå"					
	model.setValue(sPathSign + "/reqsigncond/indd"			,sindd		);		//desc="ÀÔ¿øÀÏÀÚ"					
	model.setValue(sPathSign + "/reqsigncond/cretno"		,scretno	);		//desc="»ý¼º¹øÈ£"					
	model.setValue(sPathSign + "/reqsigncond/prcpdd"		,sprcpdd	);		//desc="ó¹æÀÏÀÚ"					
	model.setValue(sPathSign + "/reqsigncond/prcpno"		,sprcpno	);		//desc="ó¹æ¹øÈ£"					
	model.setValue(sPathSign + "/reqsigncond/workdd"		,sworkdd	);		//desc="Åõ¾àÀÏ"					
	model.setValue(sPathSign + "/reqsigncond/listflag"		,slistflag	);		//desc="ÀÛ¾÷±¸ºÐ"					
	model.setValue(sPathSign + "/reqsigncond/nursnm"		,snursnm	);		//desc="°£È£»ç¸íÃß°¡"				
	model.setValue(sPathSign + "/reqsigncond/hngnm"			,shngnm		);		//desc="ȯÀÚ¸íÃß°¡"				
	model.setValue(sPathSign + "/reqsigncond/medrexecdd"	,smedrexecdd);		//desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ"	
	model.setValue(sPathSign + "/reqsigncond/medrexectm"	,smedrexectm);		//desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£"	
	model.setValue(sPathSign + "/reqsigncond/prcpddprcpno"	,sprcpddprcpno);	//desc=""	

	var sPathSign = "/root/signinfo";	
	model.removenode(sPathSign + "/signsave/signdata");
	submit("TRMNR00608");
 }
 
 /**
 * @group  :
 * @ver    : 2008.08.31
 * @by     : ±èº¸¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Åõ¾à±â·Ï °ü·Ã ÀÎÁõÀúÀå(interfaceÁ¦°øÇÑ web¿¡¼­ »ç¿ë)(iprc´ÜÀ§ 1°³ 󸮿ë)
 *         : µû¶ó¼­ ¿©·¯°³ÀÇ iprcÀ̸é n¹ø È£ÃâÇؾßÇÑ´Ù.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
 function fnSignSaveWork() {
	
	var sSignPath		= "/root/signinfo/signsave/signdata";
	var sSignPathCount	= getNodesetCount(sSignPath);
	var sPathSignSave	= "/root/signinfo/signsave/signdata";		

	if ( sSignPathCount <= 0 ) {
		messageBox("ÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. ","E999");
		return false;	
	}
	
	//alert("test");
	Sign.certreload = true ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öÆ°À»  ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¶ßµµ·Ï ó¸®(20080922)
	model.removenode("/root/send/savedata");
	for(var j = 1; j <= getNodesetCount(sSignPath); j++){		
		//alert("loop:"+j);		
		sSignRow= j;					//Àü¿ªº¯¼ö(ÇÁ·Î±×·¥³»)
		if(Sign.signprocess() == false){//ÀÎÁõÀúÀå µ¥ÀÌÅÍ »ý¼ºfMake_SignData È£Ãâ
			Sign.certreload = false ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öÆ°À»  ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¾È¶ßµµ·Ï ó¸®(20080922)	
			return false;
		}
		Sign.certreload = false ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öÆ°À»  ´©´Ã¶§¸¶´Ù ÀÎÁõ¼­°¡ ¾È¶ßµµ·Ï ó¸®(20080922)
		
		model.setValue(sPathSignSave + "[" + j + "]/recdd",			getCurrentDate());		//½ÇÁ¦±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·ÏÀÏÀÚ
		model.setValue(sPathSignSave + "[" + j + "]/rectm",			getCurrentTime());		//½ÇÁ¦±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·Ï½Ã°£
		model.setValue(sPathSignSave + "[" + j + "]/recsaveflag",	"Y");					//ÀüÀÚ¼­¸íÀÎÀûÁ¤º¸º¯°æ¿©ºÎ
		model.setValue(sPathSignSave + "[" + j + "]/signflag",		"02");					//¼­¸íÀڷᱸºÐ(02:°£È£)
		model.setValue(sPathSignSave + "[" + j + "]/signgenrflag",	"E");					//¿Ü·¡/ÀÔ¿ø±¸ºÐ
		model.setValue(sPathSignSave + "[" + j + "]/formcd",		"0000002476");			//Åõ¾à±â·Ï ¼­½Ä¹øÈ£
		model.setValue(sPathSignSave + "[" + j + "]/signbfcnts",	Sign.signedInfos[1]);	//ÀÎÁõÇÒ µ¥ÀÌÅÍ Á¤º¸(¹Ì±â·Ï ³ëµå Á¦°ÅµÈ Á¤º¸)
		model.setValue(sPathSignSave + "[" + j + "]/signaftcnts",	Sign.signedInfos[2]);	//°øÀÎÀÎÁõ ó¸®ÈÄ µ¥ÀÌÅÍ
		model.setValue(sPathSignSave + "[" + j + "]/signflagyn",	"Y");					//ºñ°ø½ÄÀûÀ¸·Î ÀÎÁõµÇÁö¾Êµµ·Ï Á¦¾îÇÒ¼ö Àִ±â´É
		
		//--------------------------(20080921)
		//°Çº°ÀÎÁõÀº ÅëÇÕ±â·ÏÁ¶È¸¿¡¼­ º¸ÀÌÁö ¾Ê°í ÀÏÀÚº°À» º¸À̱â À§Çؼ­
		//°Çº°ÀÎÁõÀº dispyn ='N'
		//ÇÏ´ÜÀÇ ÀÏÀÚº°ÀÎ °æ¿ì¸¸ º¸ÀÓ
		model.setValue(sPathSignSave + "[" + j + "]/dispyn",       "N");
		//--------------------------(20080921)		
	} 	
	return true;
 }

//ÀÎÁõÁ¤º¸ ¸»±â
function fMake_SignData(){
	
	//alert("fMake_SignData---------½ÃÀÛ");
	/*
		<signinfo>
			<signdata>
				<pid>29953</pid>
				<hngnm>TÀÔ0820</hngnm>
				<prcpdd>20080821</prcpdd>
				<execdd>20080821</execdd>
				<prcpkindnm/>
				<prcpmixno/>
				<prcpcd>DSSL500</prcpcd>
				<prcpnm>Disal tab. 500mg (Salsalate)</prcpnm>
				<prcpvolnm>1500mg</prcpvolnm>
				<prcpqtynm>3T</prcpqtynm>
				<abbrnm>PO</abbrnm>
				<exectm>130000</exectm>
				<nursnm>±èº¸¼º</nursnm>
				<execcarestatnm>Á¤»óÅõ¾à</execcarestatnm>
				<carecfactnm> </carecfactnm>
				<orddrnm>±è¸¸¼ö</orddrnm>
			</signdata>
		</signinfo>	
	*/
	
	var ssigndruglist = "/root/signinfo/signsave/signdata";
	
	var spid			= model.getValue(ssigndruglist + "[" + sSignRow + "]/pid");
	var shngnm			= model.getValue(ssigndruglist + "[" + sSignRow + "]/hngnm");
	var sprcpdd			= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpdd");
	var sexecdd			= model.getValue(ssigndruglist + "[" + sSignRow + "]/execdd");
	/*
      ,CASE WHEN a.careprnexecflag = 'P' THEN 'PRN'  ELSE '' END || ' ' ||
       CASE WHEN a.anticncrprtlno <> 0   THEN 'Ç×¾Ï' ELSE '' END || ' ' ||		           
       CASE WHEN a.dccountyn = 'Y' AND a.selfdrugflag = 'Y'  THEN 'self D/C'
       		WHEN a.dccountyn = 'Y' then 'D/C' 
       		WHEN a.selfdrugflag = 'Y' then 'self'		           		
       END prcpkindnm		
		//ó¹æÁ¾·ù¸í (´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ
	*/
	var sprcpkindnm		= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpkindnm");
	var sprcpmixno		= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpmixno");
	var sprcpcd			= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpcd");
	var sprcpnm			= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpnm");
	var sprcpvolnm		= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpvolnm");
	var sprcpqtynm		= model.getValue(ssigndruglist + "[" + sSignRow + "]/prcpqtynm");
	var sabbrnm			= model.getValue(ssigndruglist + "[" + sSignRow + "]/abbrnm");
	var sexectm			= model.getValue(ssigndruglist + "[" + sSignRow + "]/exectm");
	var snursnm			= model.getValue(ssigndruglist + "[" + sSignRow + "]/nursnm");
	var sexeccarestatnm	= model.getValue(ssigndruglist + "[" + sSignRow + "]/execcarestatnm");
	var scarecfactnm	= model.getValue(ssigndruglist + "[" + sSignRow + "]/carecfactnm");
	var sorddrnm		= model.getValue(ssigndruglist + "[" + sSignRow + "]/orddrnm");
	
	model.resetInstanceNode("/root/send/signinfo/signdata");
	model.makeValue("/root/send/signinfo/signdata/pid", 	spid	);
	model.makeValue("/root/send/signinfo/signdata/hngnm", 	shngnm	);
	model.makeValue("/root/send/signinfo/signdata/prcpdd",	sprcpdd	);	//ó¹æÀÏÀÚ	

	if(sexecdd == "00000000"){											//Åõ¾àÀÏÀÚ
		model.makeValue("/root/send/signinfo/signdata/execdd", "");
	}else{
		model.makeValue("/root/send/signinfo/signdata/execdd", sexecdd);
	}	
	
	model.makeValue("/root/send/signinfo/signdata/prcpkindnm",	sprcpkindnm	);	
	model.makeValue("/root/send/signinfo/signdata/prcpmixno",	sprcpmixno	);	//MIXNO	
	
	model.makeValue("/root/send/signinfo/signdata/prcpcd", 		sprcpcd		);	//ó¹æÄÚµå	
	model.makeValue("/root/send/signinfo/signdata/prcpnm", 		sprcpnm		);	//ó¹æ¸í	
	model.makeValue("/root/send/signinfo/signdata/prcpvolnm", 	sprcpvolnm	);	//¿ë·®´ÜÀ§¸íĪ(¿ë·®+¿ë·®´ÜÀ§¸íĪ)	
	model.makeValue("/root/send/signinfo/signdata/prcpqtynm",	sprcpqtynm	);	//¼ö·®´ÜÀ§¸íĪ(¼ö·®+¼ö·®´ÜÀ§¸íĪ)
	//Åõ¿©¹æ¹ý¾à¾î¸í(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ)
	model.makeValue("/root/send/signinfo/signdata/abbrnm", 		sabbrnm		);

	if(sexectm == "000000"){													//Åõ¾à½Ã°£		
		model.makeValue("/root/send/signinfo/signdata/exectm", "");
	}else{
		model.makeValue("/root/send/signinfo/signdata/exectm", 	sexectm);
	}	
	model.makeValue("/root/send/signinfo/signdata/nursnm", 		snursnm);		//°£È£»ç¸íĪ
	if(sexeccarestatnm == "")	sexeccarestatnm = "N";

	//¹ÌÈ®ÀÎ,Á¤»óÅõ¾à,Åõ¾àX-¹Ýȯ°¡´É,Åõ¾àX-¹ÝȯºÒ°¡,Åð¿ø´çÀϳ²Àº¾à
	//(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã Á¤»óÅõ¾à,)
	model.makeValue("/root/send/signinfo/signdata/execcarestatnm",	sexeccarestatnm);
	//°£È£»çREMARK CODE¿¡ ´ëÇÑ REMARK ¸íĪ((´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã °ø¹é)
	model.makeValue("/root/send/signinfo/signdata/carecfactnm", 	scarecfactnm);
	//Áø·áÀǸí(´Ù¸¥¾÷¹«¿¡¼­ Åõ¾à±â·Ï°ü·ÃÀÎÁõÁ¤º¸¸¦ »ý¼º½Ã ¾î·Á¿î Ç׸ñ)
	model.makeValue("/root/send/signinfo/signdata/orddrnm",			sorddrnm);
	
	Sign.addnode("/root/send/signinfo/signdata");
	//alert("fMake_SignData---------Á¾·á");
	//Sign.signedInfos[1] ´Â ¾øÀ½
	//alert("fmake_signdata"+ Sign.signedInfos[1] );
}


//ÀÏÀÚº° XSLT »ý¼ºÀÛ¾÷
function fnWorkddSign(signDates) {

	//-----------------------------------------------)
	//	Åõ¾à±â·ÏÀ» ÀÏÀÚº°·Î XLST¸¦ ¸¸µé±â À§Çؼ­
	//-----------------------------------------------
	var sPathSign = "/root/signinfo";	
	var pGrd = grd_patlist;
	var signDate = "";
	
	//alert(signDates.length);	
	for (var i=0;i<signDates.length;i++) {	
		signDate = "" + signDates[i];		
		//alert("1:" + signDate);		
		if ( signDate != "") {
			model.resetInstanceNode(sPathSign + "/reqsigncond");
			signDate = signDate.replace("-","");

			//alert("2:" + signDate);
						
			var spid		= model.getValue("/root/main/inddpatlist/inddpatinfo[" + pGrd.row + "]/pid");	//µî·Ï¹øÈ£				(Çʼö)					
			var sinstcd		= "";//model.getValue("/root/main/inddpatlist/inddpatinfo/instcd");				//±â°üÄÚµå				(»ç¿ëX)
			var sindd		= model.getValue("/root/main/inddpatlist/inddpatinfo[" + pGrd.row + "]/indd");	//ÀÔ¿øÀÏÀÚ				(Çʼö)					
			var scretno		= model.getValue("/root/main/inddpatlist/inddpatinfo[" + pGrd.row + "]/cretno");//»ý¼º¹øÈ£				(»ç¿ëX)					
			var sprcpdd		= "";																			//ó¹æÀÏÀÚ				(PRN½Ã Çʼö)					
			var sprcpno		= "";																			//ó¹æ¹øÈ£				(È®ÀλçÇ×)					
			var sworkdd		= signDate;		//model.getValue("/root/main/cond/orddd");						//Åõ¾àÀÏ(ÀÏÀÚ±×·ìÀ϶§¸¸ (Çʼö)				
			var slistflag	= "90";																			//ÀÛ¾÷±¸ºÐ				(Çʼö)					
			var snursnm		= getUserName();																//°£È£»ç¸íÃß°¡			(Çʼö)				
			var shngnm		= model.getValue("/root/main/inddpatlist/inddpatinfo[" + pGrd.row + "]/patnm")	//ȯÀÚ¸íÃß°¡			(Çʼö)			
			var smedrexecdd	= "";																			//È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ(»ç¿ëX)	
			var smedrexectm	= "";																			//È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£(»ç¿ëX)	
		
			model.setValue(sPathSign + "/reqsigncond/pid"			,spid		);		//desc="µî·Ï¹øÈ£"					
			model.setValue(sPathSign + "/reqsigncond/instcd"		,sinstcd	);		//desc="±â°üÄÚµå"					
			model.setValue(sPathSign + "/reqsigncond/indd"			,sindd		);		//desc="ÀÔ¿øÀÏÀÚ"					
			model.setValue(sPathSign + "/reqsigncond/cretno"		,scretno	);		//desc="»ý¼º¹øÈ£"					
			model.setValue(sPathSign + "/reqsigncond/prcpdd"		,sprcpdd	);		//desc="ó¹æÀÏÀÚ"					
			model.setValue(sPathSign + "/reqsigncond/prcpno"		,sprcpno	);		//desc="ó¹æ¹øÈ£"					
			model.setValue(sPathSign + "/reqsigncond/workdd"		,sworkdd	);		//desc="Åõ¾àÀÏ"					
			model.setValue(sPathSign + "/reqsigncond/listflag"		,slistflag	);		//desc="ÀÛ¾÷±¸ºÐ"					
			model.setValue(sPathSign + "/reqsigncond/nursnm"		,snursnm	);		//desc="°£È£»ç¸íÃß°¡"				
			model.setValue(sPathSign + "/reqsigncond/hngnm"			,shngnm		);		//desc="ȯÀÚ¸íÃß°¡"				
			model.setValue(sPathSign + "/reqsigncond/medrexecdd"	,smedrexecdd);		//desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾àÀÏÀÚ"	
			model.setValue(sPathSign + "/reqsigncond/medrexectm"	,smedrexectm);		//desc="È­¸é¿¡¼­ÀúÀåÇÒÅõ¾à½Ã°£"	
		
			var pFlag	= "Drug";										//ÀúÀ屸ºÐ (Drug : Åõ¾à±â·Ï)
			var pNode1	= "";											//Á¶È¸ÇÒ Á¶°Ç PATH(Àǹ̾øÀ½)
			var pNode2	= "/root/signinfo/signdruginfo/signdruglist";	//Return ¸®½ºÆ® PATH
			
			//alert("signDate:" + i + "/" + signDate);
			//Àӽ÷Π¸·À½(test)
			fCare_SignNode(pFlag, pNode1, pNode2,spid,sindd,scretno,"E");		//-----(20080917)¼öÁ¤
			//fCare_SignNode(pFlag, pNode1, pNode2, pPid, pIndd, pCretno, pIoflag){
		}
	}
}
 
//ÀÏÀÚº° ÀÎÁõÁ¤º¸¸¦ ¹­À» ÀÏÀÚ¸¦ ã´Â´Ù
//³Ö¾î¾ß ÇÒÁö´Â ÆÇ´ÜÇÑ´Ù.
function signdayFind(signDates,findDate) {

	var sreturn = false;
	if (findDate == "00000000" || findDate == "") {
	} else {		
		//alert("signDates.length:"+ signDates.length);		
		for (var i=0;i<signDates.length;i++) {
			//alert("ºñ±³:" + signDates[i] + "/" + findDate);	
			sreturn = true;		
			if ( signDates[i] == findDate) {
				sreturn = false;
				break;
			}	
		}
	}
	return sreturn; 
}

//=====================================================================================

//** ÀÀ±Þ½Ç¿¡¼­ Åõ¾à½Åû, Áï½ÃºÒÃâ½Åû½Ã Åõ¾à¹øÈ£¶óº§ Ãâ·Â Ãß°¡_20081230(ByJA) **//	
	function fERCareDrugNoLabel2(pid, patnm, sexage, drugno, narcyn, fstcmd, scndcmd){
		// ¹ÙÄÚµåOCX »ý¼º
		if(document.all("CommAX") == null){
			lzzfMakeBrcdPrntObjHanDo("CommAX");
		}
		
		// ¹ÙÄÚµå ¶óº§ Ãʱ⠼³Á¤°ª Á¶È¸
		var scrnid = "SMMNR00600";
	//	fGetBarCodeInfo(scrnid);    // CareCom.js
		model.removeNodeset("/root/main/barcdprntsetup");
		model.resetInstanceNode("/root/send/reqdata");
		model.makeValue("/root/send/scrnid", scrnid);
		submit("TRLLC90101");
		
		// ¹ÙÄÚµå ¶óº§ È¯°æ¼³Á¤
		var sSndMsg    = "";
		var portOpenTF = "";  //¿ÀÇ ¼º°ø ¿©ºÎ
		var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
	//	fSettingBarCode(barcdRef);  // CareCom.js
		var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
		var sCommKind = model.getValue(barcdRef + "[1]/commkind");
		if(sCommKind == "01") {
			var sSetUpVal = model.getValue(barcdRef + "[1]/comm01/setupval");
		}else if(sCommKind == "02") {
			var sComm     = model.getValue(barcdRef + "[1]/comm02/comm");
			var sDataBit  = model.getValue(barcdRef + "[1]/comm02/databit");
			var sStopBit  = model.getValue(barcdRef + "[1]/comm02/stopbit");
			var sBaudRate = model.getValue(barcdRef + "[1]/comm02/baudrate");
			var sParity   = model.getValue(barcdRef + "[1]/comm02/parity");
			var sSetUpVal = model.getValue(barcdRef + "[1]/comm02/setupval");  // 20080802Ãß°¡(ByJA)
			CommAX.CommPort = sComm;
			CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
			portOpenTF = CommAX.PortOpen(true);
		}else if(sCommKind == "03") {
			var sSetUpVal = model.getValue(barcdRef + "[1]/comm03/setupval");
		}
		if(portOpenTF == "TRUE"){
			var iLeft   = model.getValue(barcdRef + "/blank/left");
			var iTop    = model.getValue(barcdRef + "/blank/top");
						
			if(iLeft == "" || iLeft == "-"){
				iLeft = 0;
			}
			if(iTop == ""  || iTop == "-"){
				iTop  = 0;
			}
		
			// BP_StartFormat
			var sData = "^XA^LH0,20";  
			var sFstData, sScndData; 
			
			var prtdt  = getCurrentDateTime().substr(0,4) + "/";
				 prtdt += getCurrentDateTime().substr(4,2) + "/";
				 prtdt += getCurrentDateTime().substr(6,2) + " ";
				 prtdt += getCurrentDateTime().substr(9,2) + ":";
				 prtdt += getCurrentDateTime().substr(11,2);
			
				sData += fCarePrintOutA  (iLeft+ 50,  iTop+10,  3, "N", pid, "");
				sData += fCarePrintOutH2 (iLeft+ 45, iTop+60,  3, "N", patnm, ""); 
				sData += fCarePrintOutA  (iLeft+245, iTop+75,  4, "N", sexage, "");
				sData += fCarePrintOutA  (iLeft+120, iTop+130, 5, "N", drugno, "");
				sData += fCarePrintOutH2 (iLeft+320, iTop+130, 4, "N", narcyn, "");
				sData += fCarePrintOutA  (iLeft+ 60,  iTop+205, 3, "N", prtdt, "");
				
				// (¾à±¹)
				sFstData = sData + fCarePrintOutH  (iLeft+ 350, iTop+10, 3, "Y", fstcmd, "");
				sFstData += fCareBP_EndFormat("1");
				CommAX.SendMessage(sFstData);
								
				// (°£È£)
				sScndData = sData + fCarePrintOutH  (iLeft+350, iTop+10, 3, "Y", scndcmd, "");
				sScndData += fCareBP_EndFormat("1");
				CommAX.SendMessage(sScndData);
				
				CommAX.PortOpen("false");
		} else {
			messageBox("Åõ¾à¹øȣǥ¸¦ Ãâ·ÂÇÏÁö ¸øÇß½À´Ï´Ù. ¾Æ·¡ »çÇ×À» È®ÀÎÇϽʽÿÀ."
						   + " \n 1.ÇÁ¸°Æ®¼³Á¤ È­¸é¿¡¼­ Åë½ÅÀ¯ÇüÀ» com À¸·Î ¼±ÅÃÇÑ °æ¿ì port ¹øÈ£ È®ÀÎ"
						   + " \n 2.ÄÉÀÌºí ¿¬°á È®ÀÎ"
						   + " \n 3.¸ÕÀú Ãâ·ÂÁßÀÎ ¹ÙÄÚµå È®ÀÎ(¸ðµÎ Ãâ·ÂµÈ ÈÄ Ãâ·Â°¡´É)", "I", "");
			return;
		}
	}
//** ÀÀ±Þ½Ç¿¡¼­ Åõ¾à½Åû, Áï½ÃºÒÃâ½Åû½Ã Åõ¾à¹øÈ£¶óº§ Ãâ·Â Ãß°¡_20081230(ByJA) **//