/*
  
      ¼öÇ÷°£È£±â·Ï(SMMNR01000.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01 
          2)  : var 2.0 khj  REA 12061 1Pint Åõ¿©·® Ãß°¡
                                     , ÀÓ½ÃÀúÀå-ÃʱâÈ­-¹Ì¼öÇà ¼öÇà¸ñ·Ï ¼±Åà ±â´É Á¶°Çº°¼öÁ¤
                                     , ±â·Ï»èÁ¦±â´É¼öÁ¤
                                     , ±â·Ï¼öÁ¤±â´ÉÁ¦ÇÑ
                                     , ¼öÇ÷±â·ÏµÈ Ç÷¾×ÀÇ Åë¹Ý³³/Æó±â ºÒ°¡´É ó¸®
*/

var xTopAttributePath   = "/root/main/topattribute";
var xRecgrupListPath    = "/root/main/recgrup/recgruplist";
var xHIsgrupListPath    = "/root/main/histgrup/histgruplist";
var xRecHIstPntListPath = "/root/main/rechistpntgrup/rechistpntlist";
var xClsListPath        = "/root/main/detlgrup/detlgruplist"
var xHIsgrupListBKPath  = "/root/temp/histgrup/histgruplist";

var xlrgListPath            = "/root/main/lrggrup/lrggruplist"
var xCondPath               = "/root/main/cond"; 
var xClsListBKPath          = "/root/temp/main/detlgrup/detlgruplist";
var xPopWndClsListBKPath    = "/root/temp/main/cond/execpopwnddetlgrup/execpopwnddetlgruplist";
var xPatientPath            = "/root/temp/cond/patientgrup/patientgruplist";
var xExecDetlListPath       = "/root/main/cond/execdetlgrup/execdetlgruplist";
var xPopWndExecDetlListPath = "/root/main/cond/execpopwnddetlgrup/execpopwnddetlgruplist";

var xDelDeliveExecPrcpListPath = "/root/main/cond/delivedetlgrup/delivedetlgruplist";
var xBlodReturnReqGrupListPath = "/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist";
var xBlodExecRecGrupListPath = "/root/main/cond/blodreturnreqgrup/blodexecrecgruplist";
var xVitalSignPath = "/root/main/cond/vitalsigngrup/vitalsigngruplist";

var xTnsNurseRecPath   ="/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist";

var xBlodNoRecPath = "/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist";

var ioparam     = "" ; // È­¸é¿¡¼­ ³Ñ¾î¿À´Â ÆĶó¸ÞÅÍ (Àý´ë Áö¿ì¸é ¾ÈµÊ)
var sGolPid     = "" ;
var sFlagChkYN  = "N"; // Æó±â È®Á¤ ¿©ºÎ 
var sFindBlodnm = "";

//------------(20100630:°æºÏ´ë)
var grecnm0 = "";	//¼öÇ÷±â·Ï¹öÆ°(È­¸éopen½Ã)
var grecnm1 = "";	//¼öÇ÷±â·Ï¹öÆ°(¹æ»ç¼±Á¶»ç)
var grecnm2 = "";	//¼öÇ÷±â·Ï¹öÆ°(¹éÇ÷±¸Á¦°ÅÇÊÅÍ)
var grecnm3 = "";	//¼öÇ÷±â·Ï¹öÆ°(¼öÇ÷ÀüÅõ¾à)
var grecnm4 = "";	//¼öÇ÷±â·Ï¹öÆ°(Ç÷¾×Ç÷
var grecnm5 = "";	//¼öÇ÷±â·Ï¹öÆ°(hb)
var grecnm6 = "";	//¼öÇ÷±â·Ï¹öÆ°(plt)
//------------(20100630:°æºÏ´ë)

/**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInitialize(){
	//debugger;
  var addDy = model.getValue("/root/main/cond/prcpddfrom");
  var dt = getCurrentDate();
//  var dt = "20080711";

  model.setValue(ipt_receiptid.attribute("ref"), getUserInfo("userid") );
  model.setValue(ipt_receiptnm.attribute("ref"), getUserInfo("usernm") );
  	
  ipt_receiptid.refresh();
  ipt_receiptnm.refresh();

  model.removeNodeset("/root/main/cond/execdetlgrup");
  model.removeNodeset("/root/main/cond/delivedetlgrup");
  model.removeNodeset("/root/main/cond/blodreturnreqgrup");
  model.removeNodeset("/root/main/cond/patcmtgrup");
  
  //-------------(20100630:°æºÏ´ë)
  if(submit("TRMNR01099")){
		grecnm0 = model.getValue("/root/hidden2/reclist/recnm0");
		grecnm1 = model.getValue("/root/hidden2/reclist/recnm1");
		grecnm2 = model.getValue("/root/hidden2/reclist/recnm2");
		grecnm3 = model.getValue("/root/hidden2/reclist/recnm3");
		grecnm4 = model.getValue("/root/hidden2/reclist/recnm4");
		grecnm5 = model.getValue("/root/hidden2/reclist/recnm5");
		grecnm6 = model.getValue("/root/hidden2/reclist/recnm6");
  }
  //-------------(20100630:°æºÏ´ë)	

  var pCode = "'172','016','013'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸(170331_AYS_º»¿ø ¸¶Ãëȸº¹½Ç, ¼ö¼ú½Ç ÄÚµå Ãß°¡)
  fGetNursHardCdInfo(pCode, dt);	  
     
  var instUseYN = model.getValue("/root/code/codeinfo/codelist[cdgrupid ='172']/cdid");
  if(instUseYN == "Y"){
     grp_bexcexec1.visible = 'true'			;
     grp_bexcexec2.visible = 'true'			;
  }  
  fInitWardList(getparam);  
  
          

  var sTopIOflag = ""; 
  var getparam   = "";  
  var getrgstdd   = "";
	
	var indd = opener.javascript.getParameter("SMMNR010_Param2");
	
	if(indd == "") {
		model.setValue(ipt_prcpddfrom.attribute("ref"), getDateCalc(dt, 2));          	
	} else {
		model.setValue(ipt_prcpddfrom.attribute("ref"), indd);
	}
  model.setValue(ipt_prcdddto.attribute("ref"), dt);    

  sTopIOflag = getPatientInfoDetail("ioflag"); //»ó´Ü Á¤º¸¿¡¼­ ¹ÞÀ½
    
  if(opener.javascript.getParameter("SMMNR010_Param") ==  ""){
	getparam = getScreenMenuParameter();         //¸Þ´º¿¡¼­ ÆĶó¹ÌÅÍ ¹ÞÀ½
  }else{
	 if(opener.javascript.getParameter("SMMNR010_RgstddDATA") !=  ""){    		 
		getrgstdd = opener.javascript.getParameter("SMMNR010_RgstddDATA"); //¼öÇ÷ÇöȲÁ¶È¸¿¡¼­ ÆĶó¹ÌÅ͹ÞÀ½(ó¹æÀÏÀÚ)
		model.setValue(ipt_prcpddfrom.attribute("ref"), getrgstdd);      
     }
     getparam = opener.javascript.getParameter("SMMNR010_Param");
  }

  if(getparam != ""){
    if(sTopIOflag == "O"){ //»ó´Ü Á¤º¸ ¿Ü·¡
      if(getparam == "IPRC" || getparam == ""){ //¸Þ´º ÆĶó¹ÌÅÍ º´µ¿ÀÏ °æ¿ì ÆĶó¹ÌÅÍ º¯°æ
        getparam = "OPRC";
        }else if(getparam == "IPRC1"){
            getparam = "OPRC1";
        }else if(getparam == "IPRC2"){
          getparam = "OPRC2";
        }
      }else if(sTopIOflag == "I" || sTopIOflag == "D" || sTopIOflag == "T" || sTopIOflag == "E"){ // ÀÔ¿ø, DSC&Ç×¾Ï, ¼ö¼ú, ÀÀ±Þ ÆĶó¹ÌÅÍ º¯°æ
        if(getparam == "OPRC" || getparam == ""){ //¸Þ´º ÆĶó¹ÌÅÍ ¿Ü·¡ÀÏ °æ¿ì ÆĶó¹ÌÅÍ º¯°æ
          getparam = "IPRC";
        }else if(getparam == "OPRC1"){
          getparam = "IPRC1";
        }else if(getparam == "OPRC2"){
          getparam = "IPRC2";
        }
     } 
  }
  
  getparam = fParam(getparam);             // ÆĶó¸ÞÅÍ¿¡ µû¸¥ Ç÷¾×ºÒÃâ/¼öÇ÷°£È£ case ¼±ÅÃ
  
  if(getparam == "OPRC"){
      rdo_ioflag1.value="O";
      btn_prtconsent.visible = false;
  }else{
      rdo_ioflag1.value="I";
      btn_prtconsent.visible = true;
  }

  // °øÅëÄÚµå ½ºÅ©¸³Æ® È£Ãâ - ¼öÇ÷ºÎÀÛ¿ë/¼öÇ÷Áß´Ü »çÀ¯
  zbcfGetCodeList( new Array("M0330", "L0084", "L0085", "L0093", "L0094"),
             new Array("/root/init/sideeffectcom", "/root/init/etcprcpresncd", "/root/init/discontinucom", "/root/init/L0093list", "/root/init/L0094list"), true,
             new Array("cdid"),  new Array("asc"));

  //¼öÇ÷Áß´Ü»çÀ¯Áß "º´¿ø»çÀ¯±âŸ" »èÁ¦ --> 2008-08-20 »çÀ¯°¡ ±âŸ·Î º¯°æµÇ¸é¼­ ÁÖ¼®Ã³¸®
  //model.removenode("/root/init/L0093list/L0093[cdid = '12399']");
    
  submit("TRMNR01026");
  
//  if(submit("TRMNR01026")){ // ¼öÇ÷Áß´Ü »çÀ¯ ÄÚµå °¡Á®¿À±â
//    for(var j=1 ; j <= getNodesetCount("/root/init/totresncd/item/cdid") ; j++){
//      for(var i =1 ; i <= getNodesetCount("/root/init/discontinucom/L0085") ; i++){
//        if( model.getValue("/root/init/totresncd/item["+j+"]/cdid") == model.getValue("/root/init/discontinucom/L0085["+i+"]/cdid") ){
//          var ChgLavel = model.getValue("/root/init/totresncd/item["+j+"]/cdnm");
//          model.setValue("/root/init/discontinucom/L0085["+i+"]/cdnm" , ChgLavel);
//        }
//      }
//        
//      for(var i =1 ; i <= getNodesetCount("/root/init/etcprcpresncd/L0084") ; i++){
//        if( model.getValue("/root/init/totresncd/item["+j+"]/cdid") == model.getValue("/root/init/etcprcpresncd/L0084["+i+"]/cdid") ){
//          var ChgLavel = model.getValue("/root/init/totresncd/item["+j+"]/cdnm");
//          model.setValue("/root/init/etcprcpresncd/L0084["+i+"]/cdnm" , ChgLavel);
//        }
//      }
//    }
//  }     
  
  cmb_discontinu.disabled = true ;
  ipt_etc.disabled = true ;
//----------------(20100630:°æºÏ´ë)
//textarea1.value = "¼öÇ÷ÆÈÂî È®ÀÎÇÔ, ¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ" + "\n" + "º»ÀÎÈ®ÀÎ Ç÷¾×Çü :";			//¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ Ãß°¡_20090327_SMY
	var tempstr = grecnm0
	if (tempstr != "") {
		textarea1.value = tempstr;			//¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ Ãß°¡_20090327_SMY		
	} else {
	  	if(getUserInfo("dutplceinstcd") == "031" && (getUserInfo("dutplcecd") == model.getValue("/root/code/codeinfo/codelist[cdgrupid ='016']/cdid") || getUserInfo("dutplcecd") == model.getValue("/root/code/codeinfo/codelist[cdgrupid ='013']/cdid")) ){	// '17.03.29_AYS_º»¿ø ¸¶Ãëȸº¹½Ç, ¼ö¼ú½Ç ¹®±¸ ¼öÁ¤
			textarea1.value = "Ç÷¾×Àü´Þ ¹× ¿¬°á½Ã ¼ö¿©ÀÚ¿Í Ç÷¾×ÀÇ È¯ÀÚÀ̸§, Ç÷¾×Çü, Ç÷¾×Á¾·ù¸¦ È®ÀÎÇÑ´Ù." + "\n" + "¼öÇ÷°£È£±â·ÏÀÇ vital sign±â·ÏÀ»  ¸¶Ãë±â·ÏÁ¶È¸(Áø·á)ÀÇ 5ºÐ vital signÀ¸·Î ´ëüÇÑ´Ù.";			// ¸¶Ãëȸº¹½Ç ¼öÇ÷¿À·ù °ü·Ã º¸¿Ï»çÇ×_170220_AYS
		} else{
			textarea1.value = "¼öÇ÷ÆÈÂî È®ÀÎÇÔ, ¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ" + "\n" + "¼öÇ÷ÀÌ ¿Ï·áµÉ ¶§±îÁö 30ºÐ¸¶´Ù ȯÀÚ »óŸ¦ °üÂûÇÏ°í È®ÀÎÇÑ´Ù." + "\n" + "º»ÀÎÈ®ÀÎ Ç÷¾×Çü È®ÀÎÇÔ";			//¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ Ãß°¡_20090327_SMY
  	}
  }
//----------------(20100630:°æºÏ´ë)  
  
  fGetBrcdPrntInfo(); //¹ÙÄÚµå ÇÁ¸°ÅÍ ¼³Á¤ Á¤º¸¸¦ °¡Áø Instance »ý¼º ¹× ¹ÙÄÚµå ÇÁ¸°ÅÍ ¼³Á¤ °¡Á®¿À±â
  //lzzfMakeBrcdPrntObj("CommAX");
  lzzfMakeBrcdPrntObjHanDo("CommAX");
  
  model.setfocus("ipt_pid");//µî·Ï¹øÈ£·Î Æ÷Ä¿½º ¸ÂÃã  
}


 /**
 * @group  :
 * @ver    : 2007.09.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹ÙÀÌÅ»½ÎÀÎ Çà»èÁ¦ (2008-08-19 ¿ä±¸»çÇ×À¸·Î »èÁ¦ ó¸®)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDelRow(){
  var iRow = grd_vitalsigngruplist.row ;
  var sRowNum = model.getValue(xVitalSignPath + "[" + iRow + "]/tnscarerecvsseq");
  
  if(parseInt(sRowNum) < 4){
    messageBox("Vital Sign ±âº»Á¤º¸´Â »èÁ¦ ","E001");
    return; 
  } else if( model.getValue(xVitalSignPath+"["+1+"]/stat") == 'I' ) {
      grd_vitalsigngruplist.deleteRow(iRow);
  } else if( model.getValue(xVitalSignPath+"["+1+"]/stat") == 'U'  && model.getValue(xVitalSignPath+"["+iRow+"]/stat") == 'I'  ) {
      grd_vitalsigngruplist.deleteRow(iRow);
  } else if( model.getValue(xVitalSignPath+"["+1+"]/stat") == 'U'  ) {
    grd_vitalsigngruplist.textmatrix(iRow, 1) = "D" ;
  }
}

 /**
 * @group  :
 * @ver    : 2007.09.27
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ÁÙÃß°¡ ¹öÆ° (2008-08-19 ¿ä±¸»çÇ×À¸·Î »èÁ¦ ó¸®)   
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAddSameLevlItemButton(){
//  var iRows = grd_vitalsigngruplist.rows;
  var iRow = grd_vitalsigngruplist.row;
  
  if(iRow > 0 ){
    grd_vitalsigngruplist.insertRow(iRow, "below");
    model.setValue(xVitalSignPath+"["+grd_vitalsigngruplist.row+"]/tnscarerecseq", model.getValue(xVitalSignPath+"["+1+"]/tnscarerecseq") );
    model.setValue(xVitalSignPath+"["+grd_vitalsigngruplist.row+"]/stat","I");
  }
}

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Âü¿©ÀÚ Á¤º¸ Æ˾÷ Á¶È¸
 * @param  : originalNode
 * @param  : copyNode
 * @return : true/false
 * @---------------------------------------------------
 */
function fClickUserBtn(userflag, seq, deptcd2, flag){
  var deptcd = "";
  var jobkindcd = "";
  var deptcd = "";
  if(userflag == "doctor"){
    deptcd = deptcd2;
    jobkindcd = "";
  }else if(userflag == "nurse"){
    deptcd = deptcd2;
    jobkindcd = "";
  }else{}
  setParameter("SPMNN02100_deptcd", deptcd);
  setParameter("SPMNN02100_jobkindcd", jobkindcd);
  
  modal("SPMNR02100");
  
  var userid = getParameter("SPMNN02100_userid");
  var usernm = getParameter("SPMNN02100_usernm");
  var posinstnm = getParameter("SPMNN02100_posinstnm");
  var posinstcd = getParameter("SPMNN02100_posinstcd");
  var posdeptnm = getParameter("SPMNN02100_posdeptnm");
  var posdeptcd = getParameter("SPMNN02100_posdeptcd");
  
  if(userid != "" && posdeptcd != ""){//»ç¿ëÀÚ Á¤º¸°¡ ÀÖÀ» °æ¿ì¿¡¸¸ ó¸®
    if(flag == "str"){
      model.setValue(opt_fromdeptnm.attribute("ref"), userid);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
      model.setValue(opt_fromusernm.attribute("ref"), usernm);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
      model.setValue(opt_tnsstrnursall.attribute("ref"), userid+","+usernm+","+posinstnm+","+posinstcd+","+posdeptnm+","+posdeptcd);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
    } else if(flag == "end"){
      model.setValue(opt_todeptnm.attribute("ref"), userid);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
      model.setValue(opt_tousernm.attribute("ref"), usernm);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
      model.setValue(opt_tnsendnursall.attribute("ref"), userid+","+usernm+","+posinstnm+","+posinstcd+","+posdeptnm+","+posdeptcd);// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
    }
  }

  model.refresh();  

  setParameter("SPMNN02100_userid", "");
  setParameter("SPMNN02100_usernm", "");
}

/**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×¸®µå Ŭ¸¯½Ã ¼±ÅÃÄ÷³ °ª º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fClickedGridRow(datagrid, aGridNm, xListPath){
  var iRow = 0; 
  var iCol = 0;
  var ocrtag = "";

  iRow = datagrid.row;  
  iCol = datagrid.col;
  
  if(iCol == 1) return;
  if(iRow < 1) return;
  
  var ocrtag = datagrid.valueMatrix(iRow, datagrid.colRef("ocrtag"));
  
  if(ocrtag == "") {
	 	if(model.getValue(xListPath+"["+iRow+"]/sel") == "true"){  	
	    model.setValue(xListPath+"["+iRow+"]/sel","false");
	    datagrid.removeStatus(iRow, "update");
	  }else{
	    model.setValue(xListPath+"["+iRow+"]/sel", "true");
	    datagrid.rowStatus(iRow) = 2;
	    if (aGridNm == "grd_execdetlgruplist") fSelchange();
	  }	
  } else {
  	for(var i = datagrid.fixedRows; i < datagrid.rows;  i++) {
  		if(ocrtag == datagrid.valueMatrix(i, datagrid.colRef("ocrtag"))) {
	  		if(model.getValue(xListPath+"["+i+"]/sel") == "true"){  	
			    model.setValue(xListPath+"["+i+"]/sel","false");
			    datagrid.removeStatus(i, "update");
			  }else{
			    model.setValue(xListPath+"["+i+"]/sel", "true");
			    datagrid.rowStatus(i) = 2;
			    if (aGridNm == "grd_execdetlgruplist") fSelchange();
			  }	
			}
  	}
  }
}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï ¸ñ·Ï¿¡¼­ ¼±ÅÃÇ׸ñ üũ(´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fParam(getparam) {
  var openernull = "" // Æĸ¶¸®ÅÍ null check
  var popvalue = "" ;
  var pidvalue = "" ;
  var sPid = getPatientInfo("pid");
  //debugger;

  //sGolPid = sPid; // ±âÁ¸ Pid ±â·Ï
  /* ¸Þ´º || ÆĶó¹ÌÅÍ·Î µé¾î¿Ã¶§ üũ ½ÃÀÛ */
  /* IPRC1 : ¼öÇ÷ºÒÃâ°ü¸®È­¸é(º´µ¿) */
  /* IPRC2 : ¼öÇ÷°£È£±â·Ï(º´µ¿) */
  /* OPRC1 : ¼öÇ÷ºÒÃâ°ü¸®È­¸é(¿Ü·¡) */
  /* OPRC2 : ¼öÇ÷°£È£±â·Ï(¿Ü·¡) */

  if( window.opener == null && 
    ( getparam == "IPRC1" || getparam == "IPRC2" || 
      getparam == "OPRC1" || getparam == "OPRC2" || 
      getparam == "IPRC"  || getparam == "OPRC") ) {//º´µ¿¸ÞÀÎ/Áֻ翡¼­ µé¾î¿ÀÁö ¾ÊÀ»¶§...

    openernull = 'Y';

    model.setValue(ipt_pid.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
    model.setValue(ipt_pid2.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
    if(getparam == "OPRC1"){
      button1.selected = true;
      model.toggle("case1");                
      group4.visible = false;
      getparam = "OPRC" ;   
      ioparam = getparam ;

      if(sPid != null && sPid != "" ) btn_srch1.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "OPRC2"){
      button2.selected = true;
      model.toggle("case2");
      group4.visible = true;
      getparam = "OPRC" ; 
      ioparam = getparam ;
      fGetPatientInfo("pid","case2");// ȯÀÚ °³ÀÎÁ¤º¸¸¦ °¡Á®¿Â´Ù.
      
      if(sPid != null && sPid != "" ) btn_srch2.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "IPRC1"){
      button1.selected = true;
      model.toggle("case1");    
      group4.visible = false;           
      getparam = "IPRC" ; 
      ioparam = getparam ;
      
      if(sPid != null && sPid != "" ) btn_srch1.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "IPRC2"){
      button2.selected = true;
      model.toggle("case2");    
      group4.visible = true;            
      getparam = "IPRC" ;   
      ioparam = getparam ;
      fGetPatientInfo("pid","case2");// ȯÀÚ °³ÀÎÁ¤º¸¸¦ °¡Á®¿Â´Ù.
      
      if(sPid != null && sPid != "" ) btn_srch2.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    }

  } else if( window.opener != null && 
             ( opener.window.javascript.getParameter("ioflag") == "IPRC1" || 
               opener.window.javascript.getParameter("ioflag") == "IPRC2" || 
               opener.window.javascript.getParameter("ioflag") == "OPRC1" || 
               opener.window.javascript.getParameter("ioflag") == "OPRC2" )) {//º´µ¿¸ÞÀÎ/ÁÖ»ç½Ç¸ÞÀο¡¼­ µé¾î¿Ã¶§...
                      
    popvalue = opener.window.javascript.getParameter("ioflag")
    pidvalue = opener.window.javascript.getParameter("pid")

    model.setValue(ipt_pid.attribute("ref"), opener.window.javascript.getParameter("pid") );
    model.setValue(ipt_pid2.attribute("ref"), opener.window.javascript.getParameter("pid") );
    //sGolPid = opener.window.javascript.getParameter("pid");
    
    if( popvalue != null && popvalue != "" && pidvalue != null && pidvalue != "") {//Ç÷¡±×º° È­¸é case ¼±ÅÃ
       if(popvalue == "OPRC1"){
        button1.selected = true;
        model.toggle("case1");    
        group4.visible = false;           
        getparam = "OPRC" ;   
        ioparam = getparam ;
        btn_srch1.dispatch("DOMActivate");
      } else if(popvalue == "OPRC2"){
        button2.selected = true;
        model.toggle("case2");          
        group4.visible = true;      
        getparam = "OPRC" ; 
        ioparam = getparam ;
        btn_srch2.dispatch("DOMActivate");
      } else if(popvalue == "IPRC1"){
        button1.selected = true;
        model.toggle("case1");                
        group4.visible = false;
        getparam = "IPRC" ; 
        ioparam = getparam ;
        btn_srch1.dispatch("DOMActivate");
      } else if(popvalue == "IPRC2"){
        button2.selected = true;
        model.toggle("case2");  
        group4.visible = true;              
        getparam = "IPRC" ;   
        ioparam = getparam ;
        btn_srch2.dispatch("DOMActivate");
      }
    }
  } else  if(( getparam == "IPRC1" || getparam == "IPRC2" || getparam == "OPRC1" || getparam == "OPRC2" || getparam == "IPRC" || getparam == "OPRC")) {// ¸Þ´º¿¡¼­ µé¾î¿Ã¶§
    model.setValue(ipt_pid.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
    model.setValue(ipt_pid2.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
    if(getparam == "OPRC1"){
      button1.selected = true;
      model.toggle("case1");      
      group4.visible = false;         
      getparam = "OPRC" ;   
      ioparam = getparam ;
    
      if(sPid != null && sPid != "" ) btn_srch1.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "OPRC2"){
      button2.selected = true;
      model.toggle("case2");          
      group4.visible = true;                
      getparam = "OPRC" ; 
      ioparam = getparam ;
      
      if(sPid != null && sPid != "" ) btn_srch2.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "IPRC1"){
      button1.selected = true;
      model.toggle("case1");        
      group4.visible = false;       
      getparam = "IPRC" ; 
      ioparam = getparam ;
      
      if(sPid != null && sPid != "" ) btn_srch1.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else if(getparam == "IPRC2"){
      button2.selected = true;
      model.toggle("case2");      
      group4.visible = true;          
      getparam = "IPRC" ;   
      ioparam = getparam ;
    
      if(sPid != null && sPid != "" ) btn_srch2.dispatch("DOMActivate"); //»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
    } else {
      if(sPid != null && sPid != "" ) {//»ó´ÜÁ¤º¸°¡ ÀÖÀ»¶§
        model.setValue(ipt_pid.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
        model.setValue(ipt_pid2.attribute("ref"), sPid  );//µî·Ï¹øÈ£ È­¸é¿¡ ¼ÂÆÃ
      }
    }
  } else if(getparam == "" || getparam == null  ) {// È­¸éÆĶó¹ÌÅÍ ¾øÀ»¶§ 
    button1.selected = true;
    model.toggle("case1");    
    group4.visible = false; 
    getparam = "IPRC";
  } else {
    openernull = 'Y';
    getparam = "" ;
  }

  /* ¸Þ´º && ÆĶó¹ÌÅÍ°¡ ¾Æ´Ñ ·ÎÄÃÀ̳ª ´Ù¸¥ °ªÀ¸·Î µé¾î¿Ã¶§ ±âº» ¼ÂÆðªÀ¸·Î ½ÃÀÛ */

  if(getparam == "" && openernull == "Y"){
    //        È­¸éÆĶó¹ÌÅÍ/Æ˾÷ÆĶó¹ÌÅÍ ¸ðµÎ ¾øÀ»¶§   
    button1.selected = true;
    model.toggle("case1");                
    group4.visible = false; 
    getparam = "IPRC" ; 
  }

  /* ¸Þ´º && ÆĶó¹ÌÅÍ°¡ ¾Æ´Ñ ·ÎÄÃÀ̳ª ´Ù¸¥ °ªÀ¸·Î µé¾î¿Ã¶§ ±âº» ¼ÂÆðªÀ¸·Î ³¡ */

  /* ¸Þ´º || ÆĶó¹ÌÅÍ°¡ ¿Ü·¡À϶§ º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled ½ÃÀÛ */
  if(getparam == "OPRC"){ // ¿Ü·¡À϶§, º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled
    cmb_wardcdgruplist2.disabled = true ;
    cmb_roomcdgruplist2.disabled = true ;
    cmb_patientgruplist2.disabled = true ;
    cmb_wardcdgruplist.disabled = true ;
    cmb_roomcdgruplist.disabled = true ;
    cmb_patientgruplist.disabled = true ;
  }else{
    cmb_wardcdgruplist2.disabled = false ;
    cmb_roomcdgruplist2.disabled = false ;
    cmb_patientgruplist2.disabled = false ;
    cmb_wardcdgruplist.disabled = false ;
    cmb_roomcdgruplist.disabled = false ;
    cmb_patientgruplist.disabled = false ;
  }

  /* ¸Þ´º || ÆĶó¹ÌÅÍ°¡ ¿Ü·¡À϶§ º´µ¿/º´½Ç/ȯÀÚ ¸®½ºÆ® disabled ³¡ */
  ioparam = getparam ;
  return getparam ;
}



 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¿äûÃë¼Ò ¼±ÅÃÇßÀ»¶§...
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReqCancelDoc(){
  var sRowCnt = grd_delivedetlgruplist.rows-grd_delivedetlgruplist.fixedrows;
  var cnt = 0 ;

  model.removeNode ("/root/send/report"); 

  for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    if( grd_delivedetlgruplist.labelmatrix(i, 1) == "true" ) {
      cnt = cnt + 1;

      if( grd_delivedetlgruplist.labelmatrix(i, 2) != "ºÒÃâ¿äû") {
        messageBox("ºÒÃâ¿äû »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äûÃë¼Ò¸¦ ","E001");
        return; 
      }

      if( grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("blodno") ).length <  5 ) {
        messageBox("Ç÷¾×¹øÈ£°¡ ","I004");
        return; 
      }

      model.makeValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]","");
      model.copyNode( "/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]", "/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]" );
    }
  }

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return; 
  }                       

  if(messageBox("Ç÷¾×¿äû Ãë¼Ò¸¦ ","Q004") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?

  model.makeValue("/root/send/report/patientnm",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm1") );                  
  model.makeValue("/root/send/report/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") );  
  model.makeValue("/root/send/report/sexage",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage") );  
  model.makeValue("/root/send/report/btypee",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype") );                 
  
  model.makeValue("/root/send/detlgrup",grd_delivedetlgruplist.getupdatedataAll("i"));
  
  if(submit("TXMNR01034")){
    fGettDeliveDetlList();// ºÒÃâ½Åû ³»¿ª ÀçÁ¶È¸
  } 
}


 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï ¸ñ·Ï¿¡¼­ ¼±ÅÃÇ׸ñ üũ(´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fGridSel() {

  var sRowCnt2 = grd_blodnoexecrecgruplist.rows-grd_blodnoexecrecgruplist.fixedrows;
  var iRow = grd_blodnoexecrecgruplist.Row ;

  if( grd_blodnoexecrecgruplist.labelmatrix(iRow, 1) == "FALSE" || grd_blodnoexecrecgruplist.labelmatrix(iRow, 1) == "false" ){
    grd_blodnoexecrecgruplist.textmatrix(iRow, 1) = "true" ;
    
    fOtherRecListUncheck("noexec");
    
  } else if( grd_blodnoexecrecgruplist.labelmatrix(iRow, 1) == "true"  ) {
    grd_blodnoexecrecgruplist.textmatrix(iRow, 1) = "FALSE" ;
  }
}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇà±â·Ï ³»¿ª »ó¼¼Á¤º¸ (´õºíŬ¸¯)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodExecRecDetlinfo() {

  var sRowCnt = grd_blodexecrecgruplist.rows-grd_blodexecrecgruplist.fixedrows;

  var iRow = grd_blodexecrecgruplist.row ;

  model.setValue(cap_blodno.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/blodno"));
  model.setValue(cap_blodnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpnm"));
  model.setValue(cap_aborh.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/abo") + model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/rh") );
  model.setValue(ipt_fromdd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(0,8));
  model.setValue(ipt_fromtm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(8,12));

  model.setValue(ipt_todd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(0,8));
  model.setValue(ipt_totm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(8,12));
  model.setValue(opt_fromdeptnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm"));
  model.setValue(opt_fromusernm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm"));
  model.setValue(opt_todeptnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm"));


  model.setValue(opt_tousernm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm"));
  model.setValue(cmb_tnssideeffect.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnssideeffect"));
  model.setValue(ipt_prcpdelivefact.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpdelivefact"));
  model.setValue(rdo_discontinuyn.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinuyn"));
  //rdo_discontinuyn.disabled = true;
  //cmb_discontinu.disabled = true;
  model.setValue(cmb_discontinu.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinu"));
  model.setValue(ipt_etc.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinuetc"));

  //model.setValue(ipt_drugqty.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/drugqty"));
  model.setValue(ipt_onepintqty.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/onepintqty"));
  fSumQtyCalc(model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/drugqty"));// ÃÑÅõ¿©·® °è»ê onepintqty * Ç÷¾×°¹¼ö
    
  model.setValue(textarea1.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsrec"));
  model.setValue(opt_instcd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/instcd"));
  model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno", 
  model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+iRow+"]/signno"));
  model.setValue(chk_smlqtytnsyn.attribute("ref"), model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+iRow+"]/smlqtytnsyn"));

  model.setValue(opt_tnsstrnursall.attribute("ref"), 
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnurseid")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm")+","+","+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptcd"));

  model.setValue(opt_tnsendnursall.attribute("ref"), 
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnurseid")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm")+","+","+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptcd"));

  if(rdo_discontinuyn.value=='Y'){
    cmb_discontinu.disabled = false ;
    if (cmb_discontinu.value.substring(3,5) == "99") {
      ipt_etc.disabled = false ;
    }
  }else{
    cmb_discontinu.disabled = true;
    ipt_etc.disabled = true ;
  }

  model.refresh();

  var sRowCnt2 = grd_blodnoexecrecgruplist.rows-grd_blodnoexecrecgruplist.fixedrows;
  
  for(var i=1; i<= sRowCnt2; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    grd_blodnoexecrecgruplist.textmatrix(i, 1) = "FALSE" ;
  }
}


 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetBlodExecRecList(blodpidflag){

  var sRowCnt = grd_execdetlgruplist.rows-grd_execdetlgruplist.fixedrows; 

  if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
  
//    messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
//    model.setfocus("ipt_blodno");
//    return; 
  
  }

  model.refresh();

  model.makeValue("/root/send/blodpidflag",blodpidflag);  

  model.makeValue("/root/send/blodno", ipt_blodno.value  );
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom2.value  );
  model.makeValue("/root/send/prcpddto", ipt_prcdddto2.value  );
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist2.value  );
  model.makeValue("/root/send/wardcdnm", cmb_wardcdgruplist2.label  );
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist2.value  );
  model.makeValue("/root/send/hngnm", cmb_patientgruplist2.value  );
  model.makeValue("/root/send/pid", ipt_pid2.value  );
  model.makeValue("/root/send/ioparam", ioparam);

  if(submit("TRMNR01024")){
  }   

}

  /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷°£È£±â·Ï ±â·ÏÀúÀå ¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fTnsRecSave(pFlag){
  
  if(pFlag==""){
    pFlag = "TempSave";
  }
  
  //20100415 khj 12061 ¼öÇ÷Á¾·áÀϽà ÀÔ·ÂÈÄ ÀÓ½ÃÀúÀå ±â´É ºí·ÎÅ·
  if ( pFlag == "TempSave" && !isNull(model.getValue(xTnsNurseRecPath+"/tnsenddd") ) ){
    messageBox("¼öÇ÷Á¾·áÀϽÃÀÇ ±â·ÏÀº ÀÎÁõÀúÀ常 ","I006");
    return;
  }
  
  //if (!isNull(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno") ) ){
  //  messageBox("ÃÖÃÊ ÀÎÁõÀúÀåÀÌ ¾Æ´Ï¹Ç·Î FlowSheet¿¡¼­ V/S ¼öÁ¤ÀÌ ÇÊ¿äÇÕ´Ï´Ù.","I");
  //}
  
  var CheckValue = "";
  var check = "" ;
  var sRowCnt = grd_blodexecrecgruplist.rows-grd_blodexecrecgruplist.fixedrows;
  var rtnBlodList = "";
  var rtnBlodFindRow = 0;
  var rtnBlodListArr = new Array();
  
  
  // ±âÁ¸ Signno ¿©ºÎ È®ÀÎ
  var CheckSignno = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno").split(",") ;
  if(CheckSignno.length > 0){
  	for(var i=0 ; i <= CheckSignno.length ; i++){
  		if(!isNull(CheckSignno[i])){
  			messageBox("ÃÖÃÊ ÀÎÁõÀúÀåÀÌ ¾Æ´Ï¹Ç·Î FlowSheet¿¡¼­ V/S ¼öÁ¤ÀÌ ÇÊ¿äÇÕ´Ï´Ù.","I");
  			break;
  		}
  	}
  }
  
  // ¹Ì¼öÇà±â·Ï¸ñ·Ï ¸®½ºÆ®, ¼öÇà±â·Ï ³»¿ª ¸®½ºÆ® È®ÀÎ ÀÛ¾÷
  var blodnodupSourcebase = new Array();
  var prcpnodupSourcebase = new Array();
  if(cap_blodno.value != ""){
    blodnodupSourcebase = cap_blodno.value.split(",") ;
    prcpnodupSourcebase = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",") ;
  }
//  else {
//    blodnodupSourcebase[0] = cap_blodno.value ;
//  }
    

  for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ, ¼öÇà±â·Ï³»¿ª¿¡¼­ ¼±ÅÃÇÑ Ç÷¾×¹øÈ£ÀÎÁö üũ
    if( grd_blodexecrecgruplist.valuematrix(i, grd_blodexecrecgruplist.colRef("blodno")) == blodnodupSourcebase[0] &&
        grd_blodexecrecgruplist.valuematrix(i, grd_blodexecrecgruplist.colRef("prcpno")) == prcpnodupSourcebase[0] ) {
      check = "Y" ;
      rtnBlodFindRow = i;
      break;
    }
  }
  
  if(check == "Y" && pFlag == "CertSave" && blodnodupSourcebase.length == 1  ){//ÀÎÁõÀúÀåÀÌ°í ÇϳªÀÇ Ç÷¾×¹øÈ£°¡ ¼±ÅÃµÇ¾î ¼öÁ¤ÇÒ°æ¿ì ÇÔ²² ±â·ÏµÈ Ç÷¾×¹øÈ£°¡ Á¸ÀçÇÏ´ÂÁö üũ
    rtnBlodList = fExistsExecRecTogether(rtnBlodFindRow,"U");
    
  }

  if(chk_smlqtytnsyn.value == "Y"){
    //if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/drugqty") == ""){
    if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/onepintqty") == ""){
      messageBox("Åõ¿©·®À» ÀÔ·ÂÇϽʽÿä", "E");
      model.setFocus("ipt_onepintqty");
      return;
    }
  }
  
  /* ¼öÇ÷Á¾·áÀϽð¡ ÀÔ·ÂµÇ¸é ¹Ýµå½Ã Åõ¿©·®ÀÌ ÀԷµǾî¾ßÇÔ */
  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") != "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") != "") {
    //if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/drugqty") == ""){
    if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/onepintqty") == ""){
      messageBox("Ç÷¾× Åõ¿©·®ÀÌ ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù.\n\nÅõ¿©·®À» ÀÔ·ÂÇϼ¼¿ä.", "E");
      model.setFocus("ipt_onepintqty");
      return;     
    }
  }
  
  //2008-12-16 Ãß°¡
  if(ipt_tnssideeffectetc.disabled == false && ipt_tnssideeffectetc.value == "" ){
    messageBox("¼öÇ÷ ºÎÀÛ¿ë ±âŸ¿¡ ´ëÇÑ »ó¼¼ ÀÔ·ÂÀ» ÇÏÁö ¾Ê¾Ò½À´Ï´Ù.\n\nºÎÀÛ¿ë ±âŸ¶õ¿¡ ÀÔ·ÂÇϼ¼¿ä.", "E");
    model.setfocus("ipt_tnssideeffectetc");
    return;
  }
    
  
  /* ¼öÇ÷Áß´ÜÀÌ Y À϶§ ¼öÇ÷Æó±â·Î »óÅ º¯°æ ½ÃÀÛ */
  if( rdo_discontinuyn.value == 'Y') {
  
    CheckValue = "Y";
    var blodnodupSource = new Array();
    var prcpnodupSource = new Array();
    
    if(cap_blodno.value != ""){
      blodnodupSource = cap_blodno.value.split(",") ;
      prcpnodupSource = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",") ;
    } 
//    else {
//      blodnodupSource[0] = cap_blodno.value ;
//    }
    
    for(var i=0; i<= blodnodupSource.length -1 ; i++){
//    if ( check != "Y" ){// ½Å±Ô ÀúÀå
      for(var n=1; n <= grd_blodreturnreqgruplist.rows ; n++){
        if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") &&
            prcpnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/prcpno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ
          if(model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflagstat") == "Y"){
            //messageBox(model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") + " ´Â Æó±â È®Á¤ µÈ Ç÷¾×ÀÔ´Ï´Ù.", "E");
            //return;
            grd_blodreturnreqgruplist.valuematrix(n,1) = 'true' ;
          }else{
            grd_blodreturnreqgruplist.valuematrix(n,1) = 'true' ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("reqflag")) =  '3' ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("returnabandondate")) = ipt_todd.value ;
            if(chk_smlqtytnsyn.value == "Y"){
              grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "13001"; //¼Ò·®¼öÇ÷ ÄÚµå ÇϵåÄÚµù
              grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = "" ;
            }else{
              grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = cmb_discontinu.value ;
              grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = ipt_etc.value ;
            }
          }
        }
      }
    }

    var cnt = 0 ;
    var Hosyn = 0;
    for(var i=1; i<= grd_blodreturnreqgruplist.rows ; i++){//üũµÈ ±×¸®µå °ª üũ
      if( grd_blodreturnreqgruplist.labelmatrix(i, 1) == "true" ) {
        cnt = cnt + 1;

        // ****************************** ¹Ý³³»çÀ¯ Çʼö ·ÎÁ÷ Ãß°¡ ***************************************
        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == ""){//¹Ý³³/Æó±â¸¦ üũ
          fReturnData("Y");
          messageBox("ÀÜ·®Æó±â¸¦ ","C002");
          return;     
        }

        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == ""){//¹Ý³³/Æó±âÀÏ Ã¼Å©
          fReturnData("Y");
          messageBox("ÀÜ·®Æó±âÀÏÀ»","C002");      
          model.setFocus("ipt_todd");
          return;     
        }

        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == ""){//¹Ý³³»çÀ¯ üũ
          fReturnData("Y");
          messageBox("ÀÜ·®Æó±â »çÀ¯¸¦","C002");
          model.setFocus("cmb_discontinu");
          return;     
        }
        
        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substr(3,2) == "99" && model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/clinccmtcnts") == ""){//¹Ý³³»çÀ¯ üũ
          fReturnData("Y");
          messageBox("±âŸ »çÀ¯ ó¸® ½Ã ±âŸ»çÀ¯³»¿ªÀ» ÀÔ·ÂÇØ¾ß ÇÕ´Ï´Ù.","C");
          model.setFocus("ipt_etc");
          return;     
        }       
        
        if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/onepintqty") == "" ){//Åõ¿©·® üũ
          fReturnData("Y");
          messageBox("Åõ¿©·®À» ÀÔ·ÂÇϽʽÿä","C");
          model.setFocus("ipt_onepintqty");
          return;     
        }
        
//        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substring(0,3) == "080"){ //¹Ý³³»çÀ¯°¡ º´¿ø»çÀ¯ÀÎÁö üũ
        if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substring(0,3) == "072"){ //¹Ý³³»çÀ¯°¡ º´¿ø»çÀ¯ÀÎÁö üũ
          Hosyn++;
        }
      }
    }
    
    if(Hosyn > 0 || CheckValue == "Y"){
      if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") == "" || 
         model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") == "" ){ 
         fReturnData("Y");
         messageBox("¼öÇ÷Á¾·á ÀϽø¦ ","C002"); 
         model.setFocus("ipt_todd");
         return;
       }
       
       if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursnm") == "" ){
        fReturnData("Y");
        messageBox("¼öÇ÷Á¾·á °£È£»ç¸¦ ","C002");  
        model.setFocus("btn_usersetting");
        return;
       }
      
      //¹Ý³³»çÀ¯°¡ º´¿ø»çÀ¯ÀÎÁö üũ
      if(Hosyn > 0){
        var sRtnMsg = messageBox("º´¿ø»çÀ¯¿¡ ÀÇÇÑ Ç÷¾×Æó±â½Ã Ç÷¾×´ë±ÝÀÌ º´¿ø¼Õ½Çó¸® µË´Ï´Ù.\n\n","Q003");
        if(sRtnMsg != 6){
          fReturnData("Y");
          return;
        }
      }else{
        if(model.getValue("root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinu").substring(0,3) == "072" ){
          var sRtnMsg = messageBox("º´¿ø»çÀ¯¿¡ ÀÇÇÑ Ç÷¾×Æó±â½Ã Ç÷¾×´ë±ÝÀÌ º´¿ø¼Õ½Çó¸® µË´Ï´Ù.\n\n","Q003");
          if(sRtnMsg != 6){
            fReturnData("Y");
            return;
          }
        }
      }
    }
      
//return;
//if ( check != "Y" ){// ½Å±Ô ÀúÀå

    if (CheckValue =="Y"){
      if(cnt < 1){
        messageBox("¼±Åà Á¤º¸°¡ ","I004");
        fReturnData("Y");
        return; 
      }
      model.removenode("/root/send");
      model.makeValue("/root/send/detlgrup2",grd_blodreturnreqgruplist.getupdatedataAll("i"));
    }
    model.makeValue("/root/send/discontinuyn2", "Y"  );
    
  } else {
    
    var blodnodupSource2 = new Array();
    var prcpnodupSource2 = new Array();
    
    if(cap_blodno.value != ""){
      blodnodupSource2 = cap_blodno.value.split(",") ;
      prcpnodupSource2 = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",") ;
    } 

    for(var i=0; i<= blodnodupSource2.length -1 ; i++){
      for(var x=1; x<= grd_blodreturnreqgruplist.rows ; x++){
        if( blodnodupSource2[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+x+"]/blodno") &&
            prcpnodupSource2[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+x+"]/prcpno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ
          //if(model.getValue(xBlodReturnReqGrupListPath+"["+x+"]/reqflagstat") == "Y"){
          //  messageBox(model.getValue(xBlodReturnReqGrupListPath+"["+x+"]/blodno") + " ´Â Æó±â È®Á¤ µÈ Ç÷¾×ÀÔ´Ï´Ù.", "E");
          //  return;
          //}else{
            grd_blodreturnreqgruplist.valuematrix(x,1) = 'true' ;
          //}
        }
      }
    }
  }

  /* ¼öÇ÷Áß´ÜÀÌ Y À϶§ ¼öÇ÷Æó±â·Î »óÅ º¯°æ ³¡ */
  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno") == ""){
    fReturnData("N");
    messageBox("Ç÷¾×¹øÈ£¸¦","C002");
    return; 
  }

  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpnm") == ""){
    fReturnData("N");
    messageBox("Ç÷¾×¸íÀ»","C002");
    return; 
  }

  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/abo") == ""){
    fReturnData("N");
    messageBox("Ç÷¾×ÇüÀ»","C002");
    return; 
  }

  // 15.09.08 Ãß°¡ - AYS  
	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrdd") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrtm") == "" ) {
		fReturnData("N");
		if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y"){
			messageBox("¼öÇ÷½ÃÀ۽ð£À»","C001");
		} else{
			messageBox("ȯÀÚº¸³½ ½Ã°£À»","C001");
		}
		model.setFocus("btn_setfromdt");
		return; 
	}
  
	
	// 15.09.08 Ãß°¡ - AYS  
	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursdeptnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall") == "") {
		fReturnData("N");
		if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y"){
			messageBox("¼öÇ÷½ÃÀÛ °£È£»ç¸¦","C002");
		} else{
			messageBox("´ã´ç °£È£»ç¸¦","C001");
		}
		model.setFocus("btn_srchfromus");
		return; 
	}
  
  // 15.09.08 Ãß°¡ - AYS
  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y"){
  	if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec") == "" ) {
  		fReturnData("N");
  		messageBox("¼öÇ÷±â·ÏÀ»","C001");
  		return; 
  	}
  }

  if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") != "Y" && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y") {
  	if( ( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursdeptnm") != "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursnm") != ""  ) &&
        ( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") == ""  ) ) {
        	fReturnData("N");
        	messageBox("¼öÇ÷Á¾·á½Ã°£À»","C001");
        	model.setFocus("btn_settodt");
        	return;
    }
  }
    
  if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") != "Y" && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y") {
  	if( ( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") != "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") != ""  ) &&
        ( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursdeptnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursnm") == "" ) ) {
        	fReturnData("N");
        	messageBox("¼öÇ÷Á¾·á °£È£»ç¸¦","C002");
        	model.setFocus("btn_usersetting");
        	return;
    }
  }
  
  if((model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") == "Y" && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinuyn") == "Y") || (model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") == "Y"  && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinuyn") == "Y")) {
    fReturnData("N");
    messageBox("Àü¿ø ¹× ¼ººÐäÁý½Ç ¼öÇ÷ ½Ã ¼öÇ÷ Áß´ÜÀ» ¼±ÅÃÇÒ ¼ö ¾ø½À´Ï´Ù.","C");
    return; 
  }
  
//  if(ipt_tnssideeffectetc.attribute("disabled")== "false"){
//    if(ipt_tnssideeffectetc.value == ""){
//      fReturnData("N");
//      messageBox("¼öÇ÷ ºÎÀÛ¿ë ³»¿ª Áß ±âŸ Ç׸ñÀÌ ¼±ÅõǾú½À´Ï´Ù.\n\nºÎÀÛ¿ë ±âŸ ³»¿ªÀº ÇʼöÀÔ·ÂÀÔ´Ï´Ù.","I");
//      return;   
//    }
//  }
  
  if(messageBox("¼öÇ÷±â·ÏÀ» ","Q002") != 6){
    fReturnData("N"); 
    return;// ÀúÀåÇϽðڽÀ´Ï±î? 
  }
    
  model.makeValue("/root/send/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") ) ;
  model.makeValue("/root/send/blodno",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno") ) ;
  model.makeValue("/root/send/tnsstrddtm",
                  ( !isNull(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrtm")) ? (model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrdd") + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrtm")+"00").substring(0,14): "") );
  model.makeValue("/root/send/tnsendddtm",
                  ( !isNull(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm")) ? (model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm")+"00").substring(0,14): "") );
  model.makeValue("/root/send/tnsstrnursall",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall") );
  model.makeValue("/root/send/tnsendnursall",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursall") );
  model.makeValue("/root/send/sideeffectcomcodelist",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnssideeffect") );
  model.makeValue("/root/send/tnssideeffectetc",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnssideeffectetc") );
  model.makeValue("/root/send/discontinuyn",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinuyn") );
  model.makeValue("/root/send/discontinucomcodelist",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinu") );
  model.makeValue("/root/send/discontinuetc",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/discontinuetc") );
  model.makeValue("/root/send/drugqty",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/drugqty") );
  model.makeValue("/root/send/onepintqty",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/onepintqty") );
  model.makeValue("/root/send/tnsrec",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec") );
  model.makeValue("/root/send/smlqtytnsyn",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/smlqtytnsyn") );
  model.makeValue("/root/send/tprlnkyn",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tprlnkyn") );
  
  
  // 150423 Ãß°¡ - AYS
//  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") != "Y") {
//  		model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn", "N");
//  }
  model.makeValue("/root/send/transferyn",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") );
  // 15.09.08 - AYS Ãß°¡
  model.makeValue("/root/send/nonactpher",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") );
  
  model.makeValue("/root/send/ioparam", ioparam);
  //model.makeValue("/root/send/prcpdelivefact",model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpdelivefact") );
  
  var sp = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsstrnursall").split(",");
  model.makeValue("/root/send/tnsstrnurseid",   sp[0] );
  model.makeValue("/root/send/tnsstrnursenm",   sp[1] );
  model.makeValue("/root/send/tnsstrnursedeptcd", sp[5] );
  model.makeValue("/root/send/tnsstrnursedeptnm", sp[4] );

  var sp2 = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursall").split(",");
  model.makeValue("/root/send/tnsendnurseid",   sp2[0] );
  model.makeValue("/root/send/tnsendnursenm",   sp2[1] );
  model.makeValue("/root/send/tnsendnursedeptcd", sp2[5] );
  model.makeValue("/root/send/tnsendnursedeptnm", sp2[4] );
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist2.value);
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist2.value);
  model.makeValue("/root/send/instcd", getUserInfo("dutplceinstcd"));
  
  var chekBlod = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno").split(",");
  if(chekBlod.length > 0) {
  	model.makeValue("/root/send/orddd", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist/orddd"));
  	model.makeValue("/root/send/cretno", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist/cretno"));
  }
  
  var pidblodflag = '';
  if(ipt_pid2.value != ""){
    pidblodflag = 'pid';
  } else if (ipt_blodno.value !="") {
    pidblodflag = 'blod';                   
  }

  if(pFlag == "CertSave"){
    // ÀÎÁõÀúÀå½Ã¿¡´Â ¼öÇ÷Á¾·áÀϽÃ, ¼öÇ÷Á¾·á°£È£»ç ¹Ýµå½Ã ÀÔ·Â ÈÄ ÀúÀå µÇµµ·Ï Ãß°¡ : 2008-01-16
    if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") != "Y" && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y") {
    	if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursdeptnm") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendnursnm") == "" )  {
    		fReturnData("Y");
    		messageBox("¼öÇ÷Á¾·á °£È£»ç¸¦","C002");
    		return; 
    	}
    }
    
    if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn") != "Y" && model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") != "Y") {
    	if( model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsenddd") == "" || model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsendtm") == ""  ) {
    		fReturnData("Y");
    		messageBox("¼öÇ÷Á¾·á ½Ã°£À»","C001");
    		return; 
    	}
    }

    model.removeNodeSet("/root/send/signdata");
    
    var chekBlod = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/blodno").split(",");
    var chekprcpnm = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpnm").split(",");
    var chekabo = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/abo").split(",");
    var cheksignno = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno").split(",");
    var chekprcpno = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",");
    
    //alert(chekBlod + "============" + chekBlod.length );
    
//    if(chekBlod.length == 1){
//      Sign.certreload = true; 
//    }
    
    for(var i=0; i < chekBlod.length ; i++){
      
      model.makeNode("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist");
      model.makeNode("/root/hidden/vitalsigngrup"    );
      
      model.copyNode("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist", "/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
      model.copyNode("/root/hidden/vitalsigngrup"                      , "/root/main/cond/vitalsigngrup");
      
      model.setValue("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist/blodno"  , chekBlod[i] );
      model.setValue("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist/prcpnm"  , chekprcpnm[i] );
      model.setValue("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist/abo"     , chekabo[i] );
      model.setValue("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist/signno"  , cheksignno[i] );

      
      sFindBlodnm = "";
      //if(getPatientInfo("pid") == ""){
        sFindBlodnm = chekprcpno[i];
      //}
        //if(chekBlod.length == 1){
        if( i== 0 ){
            Sign.certreload = true; 
        } else {
            Sign.certreload = false; 
        } 
            
        var fRow = "";
        fRow = grd_blodreturnreqgruplist.findRow(sFindBlodnm, 0, grd_blodreturnreqgruplist.colRef("prcpno"), true, true);
        if(Sign.signprocess() == true){  
           
           model.makeValue("/root/certtmp/signdata/certblodno", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/blodno"));
           model.makeValue("/root/certtmp/signdata/pid",        model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid"));
           model.makeValue("/root/certtmp/signdata/orddd",      model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/orddd"));
           model.makeValue("/root/certtmp/signdata/cretno",     model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/cretno"));    
           
           model.makeValue("/root/certtmp/signdata/signno",     cheksignno[i] );
           
           model.makeValue("/root/certtmp/signdata/recdd",      getCurrentDate());
           model.makeValue("/root/certtmp/signdata/rectm",      getCurrentTime());
           
           
//         if( check != "Y" ){// ½Å±Ô ÀúÀå
//             model.makeValue("/root/certtmp/signdata/recsaveflag", "N");  
//          }else{
           model.makeValue("/root/certtmp/signdata/recsaveflag", "Y");  
//          }
           model.makeValue("/root/certtmp/signdata/signflag", "02"); 
           
           if(ioparam == "IPRC"){
             //model.makeValue("/root/certtmp/signdata/signgenrflag", model.getValue("/root/temp/cond/patientgrup/patientgruplist/ordtype"));    
             model.makeValue("/root/certtmp/signdata/signgenrflag", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/ordtype")); 
             model.makeValue("/root/certtmp/signdata/orddeptcd", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/inptorddeptcd")); 
             model.makeValue("/root/certtmp/signdata/orddrid", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/medispclid"));              
           }else{
             model.makeValue("/root/certtmp/signdata/signgenrflag", "O");    
             model.makeValue("/root/certtmp/signdata/orddeptcd", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/orddeptcd")); 
             model.makeValue("/root/certtmp/signdata/orddrid", model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/orddrid"));                         
           }
           model.makeValue("/root/certtmp/signdata/formcd", "0000002460"); 
           
        //alert( Sign.signedInfos[4]);
        //alert( Sign.signedInfos[5]);
        //return; // test ÁÖ¼®
           
    //    ¢º ÀÎÁõÇÒ µ¥ÀÌÅÍ Á¤º¸(¹Ì±â·Ï ³ëµå Á¦°ÅµÈ Á¤º¸) 
    //    ¢º ¹Ì±â·Ï ³ëµå Á¦°ÅÀü ¿øº» ³ëµå Á¤º¸ : Sign.signedInfos[3]
            model.makeValue("/root/certtmp/signdata/signbfcnts", Sign.signedInfos[1]); 
    //        
    //    ¢º °øÀÎÀÎÁõ ó¸®ÈÄ µ¥ÀÌÅÍ
            model.makeValue("/root/certtmp/signdata/signaftcnts", Sign.signedInfos[2]);
            
            if(!copyNodeType("/root/send", "/root/certtmp", "after")){
              model.removeNode("/root/certtmp");
            }
        }else{
            fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
            fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
            //fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ
          return false; 
        }
      }
      
      model.removeNode("/root/hidden/tnsnurserecgrup");
      model.removeNode("/root/hidden/vitalsigngrup");
    } else {
    	
    }
  
  //debugger;
  /*  ÀúÀå / ¾÷µ¥ÀÌÆ® ±¸ºÐ üũ ³¡ */
  if( check != "Y" ){// ½Å±Ô ÀúÀå
    model.makeValue("/root/send/instcd",     "" );
    model.makeValue("/root/send/execprcpuniqno",     "" );

    //model.makeValue("/root/send/detlgrup",grd_blodnoexecrecgruplist.getupdatedataAll("i"));
    model.makeValue("/root/send/detlgrup",fSaveExecRecListMake("noexec"));//20100419 khj üũµÈ Á¤º¸ get
    model.makeValue("/root/send/vitalgrup",grd_vitalsigngruplist.getupdatedataAll("i"));
		
//  if(messageBox("¼öÇ÷±â·ÏÀ» ","Q002") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?
    
    if(submit("TXMNR01031")){
      model.copyNode("/root/hidden/main","/root/main");
    }
// ÀúÀå ½ÇÆÐ Çصµ ÀçÁ¶È¸ : 
//      fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
//      //fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
//      //fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ® 
//      fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
//      fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ
    
  } else if( check == "Y") {// ¾÷µ¥ÀÌÆ®
    
    model.makeValue("/root/send/prcpdd",    "" );
    model.makeValue("/root/send/prcpno",    "" );
    model.makeValue("/root/send/prcphistno",  "" );
    model.makeValue("/root/send/instcd",     "" );
    model.makeValue("/root/send/execprcpuniqno",     "" );

    model.makeValue("/root/send/detlgrup",fSaveExecRecListMake("exec"));//20100419 khj üũµÈ Á¤º¸ get
    model.makeValue("/root/send/vitalgrup",grd_vitalsigngruplist.getupdatedataAll("i"));	// 150310 - AYS
    
//  if(messageBox("","Q002") != 6) return;// ÀúÀåÇϽðڽÀ´Ï±î?
    
    if(submit("TXMNR01032")){
      model.copyNode("/root/hidden/main","/root/main");
    }
// ÀúÀå ½ÇÆÐ Çصµ ÀçÁ¶È¸ : // ÀúÀå ½ÇÆÐ Çصµ ÀçÁ¶È¸
//      fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
//      
//      //fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®                                   
//      //fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ®
//      
//      //model.removeNodeset("/root/main/cond/vitalsigngrup/vitalsigngruplist");
//      
//      fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
//      fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ

      
  }
      fBlodDeliveList(pidblodflag);// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
      //fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
      //fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ® 
      fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
      //fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ
      model.refresh();
}


function fMake_SignData(){
  
  if(sFindBlodnm != ""){
    var fRow = "";
    fRow = grd_blodreturnreqgruplist.findRow(sFindBlodnm, 0, grd_blodreturnreqgruplist.colRef("prcpno"),true, true);
    if(fRow > 0){
      
      model.setValue(Sign.XPATH_BASICINFO + "/pid"       , model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid"));
      model.setValue(Sign.XPATH_BASICINFO + "/pname"     , model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm1"));
      model.setValue(Sign.XPATH_BASICINFO + "/age"       , model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage"));
      model.setValue(Sign.XPATH_BASICINFO + "/body"      , "");
      model.setValue(Sign.XPATH_BASICINFO + "/btype"     , model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype"));
      model.setValue(Sign.XPATH_BASICINFO + "/insukind"  , "");
      model.setValue(Sign.XPATH_BASICINFO + "/orddept"   , model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/orddeptnm"));
      model.setValue(Sign.XPATH_BASICINFO + "/apntdr"    , model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+fRow+"]/orddrnm"));
      model.setValue(Sign.XPATH_BASICINFO + "/attndr"    , "");
    }
  }
  
  Sign.addnode("/root/hidden/tnsnurserecgrup/tnsnurserecgruplist");
  Sign.addnode("/root/hidden/vitalsigngrup");
  

  var xRecinfoPath      = Sign.XPATH_SIGNINFO+"/tnsnurserecgruplist";
  var xRecinfoVitalPath = Sign.XPATH_SIGNINFO+"/vitalsigngruplist";
          
  var sTnsSideeffect = model.getValue(xRecinfoPath + "/tnssideeffect");
  var sTnsDiscontinu = model.getValue(xRecinfoPath + "/discontinu"   );
  var sTnsTnsrec     = model.getValue(xRecinfoPath + "/tnsrec"       );
  var sTnsstrdd      = model.getValue(xRecinfoPath + "/tnsstrdd"     );
  var sTnsstrtm      = model.getValue(xRecinfoPath + "/tnsstrtm"     );
  var sTnsenddd      = model.getValue(xRecinfoPath + "/tnsenddd"     );
  var sTnsendtm      = model.getValue(xRecinfoPath + "/tnsendtm"     );
  var sTnsSideeffectRslt =  sTnsSideeffect.split(" ");
  
  if(sTnsSideeffect != "" ){
    sTnsEfftInfo = "";
    for(var i = 0 ; i < sTnsSideeffectRslt.length ; i ++){
      for(var j = 0 ; j <= getNodesetCount("/root/init/sideeffectcom/M0330") ; j++){
        if(sTnsSideeffectRslt[i] == model.getValue("/root/init/sideeffectcom/M0330["+j+"]/cdid")){
          if(sTnsEfftInfo == ""){
            sTnsEfftInfo += model.getValue("/root/init/sideeffectcom/M0330[cdid='"+sTnsSideeffectRslt[i]+"']/cdnm");
          }else{
            sTnsEfftInfo += ",  " + model.getValue("/root/init/sideeffectcom/M0330[cdid='"+sTnsSideeffectRslt[i]+"']/cdnm");
          }
        }
      }
    }
    model.setValue(xRecinfoPath + "/tnssideeffect", sTnsEfftInfo);
  }
  
  if(sTnsDiscontinu != "" ){
    model.setValue(xRecinfoPath + "/discontinu",
      model.getValue("/root/init/L0093list/L0093[cdid='"+sTnsDiscontinu+"']/cdnm"));
  }
  
//  if(sTnsstrdd != "" && sTnsstrtm != ""){
//    model.makeValue(xRecinfoPath + "/tnsstrdt",
//      sTnsstrdd.substring(1,4) + "-" + 
//      sTnsstrdd.substring(5,2) + "-" + 
//      sTnsstrdd.substring(7,2) + " " +
//      sTnsstrtm.substring(1,2) + ":" +
//      sTnsstrtm.substring(3,2) );
//    model.removenode(xRecinfoPath + "/tnsstrdd");
//    model.removenode(xRecinfoPath + "/tnsstrtm");
//  }
//  
//  if(sTnsenddd != "" && sTnsendtm != ""){
//    model.makeValue(xRecinfoPath + "/tnsenddt",
//      sTnsenddd.substring(1,4) + "-" +           
//      sTnsenddd.substring(5,2) + "-" +           
//      sTnsenddd.substring(7,2) + " " +           
//      sTnsendtm.substring(1,2) + ":" +           
//      sTnsendtm.substring(3,2) );                
//    model.removenode(xRecinfoPath + "/tnsenddd");
//    model.removenode(xRecinfoPath + "/tnsendtm");
//
//  }
}

/**
 * @group  :
 * @ver    : 2008.01.17
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷±â·Ï ³»¿ªÀÌ ÀÖ´Â ³»¿ªÀº ¸ðµç »óÅ º¯°æ ºÒ°¡´É not used
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fBlodColChg(){

  for(var i = 1 ; i < grd_blodreturnreqgruplist.rows; i++ ){
    for(var n = 1 ; n < grd_blodexecrecgruplist.rows; n++ ){
      if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/blodno") == model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ n +"]/blodno") 
       || model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/prcpno") == model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ n +"]/prcpno") 
      ) {
        grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("reqflag")) = true;
        grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = true;
        grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = true;
        grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("stat")) = true;
        grd_blodreturnreqgruplist.rowstyle(i, "data", "background-color") = "#fff000";
      }   
    }
  }
}

/**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¹Ì¼öÇà±â·Ï¸ñ·Ï¿¡¼­ ¼±ÅÃÇÑ Ç÷¾×Á¤º¸ ±â·Ï¹öÆ°
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fExecRec(){
  var sRowCnt = grd_blodnoexecrecgruplist.rows-grd_blodnoexecrecgruplist.fixedrows;   
  var cnt = 0 ;

  model.removenode("/root/send");
  model.makeValue("/root/send/detlgrup",grd_blodnoexecrecgruplist.getupdatedataAll("i"));
  
  var blodno = "" ;
  var prcpnm = "" ;
  var aborh = "" ;
  var prcpno = "";
  var prcpdelivefact = "" ;
  var duplreccheck = false ;
  
  btn_init.disabled = false;
  btn_tempsave.disabled = false;
  btn_certsave.disabled = false;
  
  /* ¹Ì¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ½ÃÀÛ */
  for(var i=1; i<= sRowCnt; i++){
//    alert(grd_blodnoexecrecgruplist.labelmatrix(i, 1));

    if( grd_blodnoexecrecgruplist.labelmatrix(i, 1) == "true" ) {
      blodno += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("blodno")) + "," ;
      prcpnm += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("prcpnm")) + "," ;
      aborh  += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("abo"))
              + grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("rh"))     + "," ;
      prcpno += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("prcpno")) + "," ;
      if(grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("prcpdelivefact")) != ""){
        prcpdelivefact += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("prcpdelivefact")) + "," ;
      }
      cnt = cnt + 1;
      
    }
  }

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return; 
  }

  /* ¹Ì¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ³¡ */

  var blodnodupSource =  blodno.substr(0,blodno.length-1).split(",");
  var prcpnodupSource =  prcpno.substr(0,prcpno.length-1).split(",");
//  alert(blodnodupSource);


  /* ¹Ì¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ½ÃÀÛ */


  for(var i=0; i<= blodnodupSource.length; i++){
//    alert(grd_blodnoexecrecgruplist.labelmatrix(i, 1));

    for(var n=0; n<= grd_blodexecrecgruplist.rows; n++){
      if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") &&
          prcpnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/prcpno") ) {
        duplreccheck = true ;
      }
    }
  }

  /* ¹Ì¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ³¡ */

//  alert(blodno.substr(0,blodno.length-1));

//  if( duplreccheck ){// Áߺ¹±â·Ï üũ
//    messageBox("¼öÇà±â·ÏµÈ Ç÷¾×À» Áߺ¹À¸·Î ±â·ÏÇÒ¼ö ","I004");
//    return; 
//  };

//  fClearChildNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
  
//  model.refresh();  

  model.setValue(cap_blodno.attribute("ref"), blodno.substr(0,blodno.length-1) );
  model.setValue(cap_blodnm.attribute("ref"), prcpnm.substr(0,prcpnm.length-1) );
  model.setValue(cap_aborh.attribute("ref"), aborh.substr(0,aborh.length-1) );
  model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno", prcpno.substr(0,prcpno.length-1));
  model.setValue(rdo_discontinuyn.attribute("ref"), "N" );

  model.setValue(ipt_prcpdelivefact.attribute("ref"), prcpdelivefact.substr(0,prcpdelivefact.length-1) );//Àü´Þ»çÇ×

  model.setValue(ipt_fromdd.attribute("ref"), getCurrentDate() );
  model.setValue(ipt_fromtm.attribute("ref"), getCurrentTime().substring(0,4) );

  model.setValue(opt_fromdeptnm.attribute("ref"), getUserId() );
  //±â·Ï ÀúÀå½Ã ºÎ¼­Á¤º¸ »èÁ¦, »ç¿ëÀÚ À̸§ ¼¼Æà : 2008-01-16
  //model.setValue(opt_fromusernm.attribute("ref"), getUserInfo("dutplcenm") );
  model.setValue(opt_fromusernm.attribute("ref"), getUserName() );
  model.setValue(opt_tnsstrnursall.attribute("ref"), getUserInfo("userid")+","+getUserInfo("usernm")+","+getUserInfo("dutplceinstnm")+","+getUserInfo("dutplceinstcd")+","+getUserInfo("dutplcenm")+","+getUserInfo("dutplcecd"));// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º
  model.setValue(chk_smlqtytnsyn.attribute("ref"), ""); //¼Ò·®¼öÇ÷ üũ
  model.setValue(chk_tprlnkyn.attribute("ref"), ""); //I/O¿¬µ¿¼³Á¤°ª DEFAULT ''
  
  // '15.11.26 ¼ººÐäÁý½Ç¼öÇ÷, Àü¿ø °ü·Ã ÃʱâÈ­
  model.setValue(bol_nonactpher.attribute("ref"), "N"); // ¼ººÐäÁý½Ç¼öÇ÷ ¿©ºÎ
  model.setValue(bol_transferyn.attribute("ref"), "N"); // Àü¿ø¿©ºÎ
  // '15.11.26 ¼ººÐäÁý½Ç¼öÇ÷, Àü¿ø °ü·Ã ÃʱâÈ­

  //model.setValue(opt_todeptnm.attribute("ref"), getUserId() );
  //model.setValue(opt_tousernm.attribute("ref"), getUserInfo("dutplcenm") );
  //model.setValue(opt_tnsendnursall.attribute("ref"), getUserInfo("userid")+","+getUserInfo("usernm")+","+getUserInfo("dutplceinstnm")+","+getUserInfo("dutplceinstcd")+","+getUserInfo("dutplcenm")+","+getUserInfo("dutplcecd"));// ÀúÀåÇÒ µ¥ÀÌÅÍ »ý¼º

  /* ¹Ì¼öÇà³»¿ª ¸®½ºÆ®¿¡¼­ ±â·Ï¹öÆ° ´©¸¦¶§ vital sign ÃøÁ¤½ÃÀÛ ÃøÁ¤ÀϽÃ/½Ã°£ 15ºÐÈÄ ÀϽà ½Ã°£ ¼ÂÆà ½ÃÀÛ */

  //grd_vitalsigngruplist.valuematrix(1, grd_vitalsigngruplist.colRef("recdd")) = getCurrentDate() ;
  //grd_vitalsigngruplist.valuematrix(1, grd_vitalsigngruplist.colRef("rectm")) = getCurrentTime() ;

  /* ¹Ì¼öÇà³»¿ª ¸®½ºÆ®¿¡¼­ ±â·Ï¹öÆ° ´©¸¦¶§ vital sign ÃøÁ¤½ÃÀÛ ÃøÁ¤ÀϽÃ/½Ã°£ 15ºÐÈÄ ÀϽà ½Ã°£ ¼ÂÆà ³¡ */

  //model.refresh();

//  if(submit("TRMNR01023")){
//    model.copyNode("/root/hidden/main","/root/main");
//  }
}

 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×¿äû¼­ ¼±ÅÃÇßÀ»¶§...
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReqDoc(gubn){
	//debugger;
  var sRowCnt = grd_delivedetlgruplist.rows-grd_delivedetlgruplist.fixedrows;
  var cnt = 0 ;

  model.removeNode ("/root/send/report"); 
  var receiptid = model.getValue(ipt_receiptid.attribute("ref"));
  var receiptnm = model.getValue(ipt_receiptnm.attribute("ref"));
  
  
  //20101220_KNUH_Start
  if( (receiptid == "" || receiptid == null) && (receiptnm == "" || receiptnm == null)) {
  	model.setValue(ipt_receiptid.attribute("ref"), getUserInfo("userid") );
  	model.setValue(ipt_receiptnm.attribute("ref"), getUserInfo("usernm") );
  	
  	ipt_receiptid.refresh();
  	ipt_receiptnm.refresh();
  	
  }
  //20101220_KNUH_End
  for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    if( grd_delivedetlgruplist.labelmatrix(i, 1) == "true" ) {
    	
      cnt = cnt + 1;

      if( grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("pid")) != ipt_pid.value ) {
        messageBox("ÀÔ·ÂµÈ µî·Ï¹øÈ£°¡ ","E004");
        model.setfocus("ipt_pid");
        return; 
      }
  
      if(gubn == "Blood") { // Ç÷¾×¿äû¼­ Ãâ·Â. üũ
  //      if( grd_delivedetlgruplist.labelmatrix(i, 2) != "°Ë»ç¿Ï·á" ) { //  ÄÚµå º¯°æÈÄ ¹Ù²Ù±â
  //      if( grd_delivedetlgruplist.labelmatrix(i, 35) != "520") {// 520 Ç÷¾×Áغñ (°øÅëÄÚµå)
  //      
  ////        messageBox("°Ë»ç¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");//  ÄÚµå º¯°æÈÄ ¹Ù²Ù±â
  //
  ////        if(grd_delivedetlgruplist.labelmatrix(i, 35) == "525"){
  ////          messageBox("Ç÷¾×¿äû¼­¸¦ ÀÌ¹Ì Ãâ·ÂÇÑ »óÅÂÀÔ´Ï´Ù. Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
  ////          return; 
  ////        } else
  //          
  ////        if(grd_delivedetlgruplist.labelmatrix(i, 35) != "520" && grd_delivedetlgruplist.labelmatrix(i, 35) != "525"){
  ////          messageBox("Áغñ¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
  ////          return; 
  ////        }
  //      
  //      }
        if(grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("ocrtag")) != "") {
        	messageBox("ÀÌ¹Ì Ãâ·ÂÇÑ Ç÷¾×À̹ǷΠÀçÃâ·ÂµË´Ï´Ù.", "E");
        	fRePrtBldReq();//ÀÌ¹Ì Ãâ·ÂÇÑ Ç÷¾×ÀÏ °æ¿ì¿¡´Â ÀçÃâ·Â ·ÎÁ÷À» Å¿ò.
        	return;
        }  
          
        if(grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("prcpstatcd3")) != "520" || grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("prcpstatcd3")) != "525"){
        	if(grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("prcpstatcd")) != "Áغñ¿Ï·á") {
	          messageBox("Áغñ¿Ï·á »óÅ ÀÌ¿Ü¿¡´Â Ç÷¾×¿äû¼­¸¦ Ãâ·Â ","E001");
	          return; 
	        }
        }

        if( grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("blodno") ).length <  5 ) {
          messageBox("Ç÷¾×¹øÈ£°¡ ","I004");
          return; 
        }
  
        model.makeValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]","");
        model.copyNode( "/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]", "/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]" );
  //      alert(instance1.selectSingleNode("/root/send/report/delivedetlgrup/delivedetlgruplist"+"["+cnt+"]").xml);
      } else if(gubn == "ER") { // ÀÀ±ÞÇ÷¾×ºÒÃâ¿äû¼­ Ãâ·Â. üũ
        model.makeValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]","");
        model.copyNode( "/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]", "/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]" );
        if( model.getValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]/blodno") == "-" ){
          model.setValue("/root/send/report/delivedetlgrup/delivedetlgruplist["+cnt+"]/blodno", "");
        }
      }
    
    }
  }
  
  model.makeValue("/root/send/report/receiptid", receiptid);
  model.makeValue("/root/send/report/receiptnm", receiptnm);
  

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return; 
  }

  if(messageBox("Ç÷¾×¿äû Ãâ·ÂÀ» ","Q004") != 6) return;
  
  for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    if( grd_delivedetlgruplist.labelmatrix(i, 1) == "true" ) {
    	grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("receiptid")) = receiptid;
    	grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("receiptnm")) = receiptnm;
    }
  }

  model.makeValue("/root/send/report/patientnm",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm1") );
  model.makeValue("/root/send/report/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") );  
  model.makeValue("/root/send/report/sexage",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage") );  
  model.makeValue("/root/send/report/btype",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype") );
  model.makeValue("/root/send/report/wardnm",cmb_wardcdgruplist.label );
  model.makeValue("/root/send/report/roomcd",cmb_roomcdgruplist.value );
  //model.makeValue("/root/send/report/logourl", getBigLogoImageURL("",getUserInfo("dutplceinstcd")));
  model.makeValue("/root/send/report/logourl", getImageURL("biglogo"+getUserInfo("dutplceinstcd"), "jpg"));
  
  //Ãâ·ÂÀϽÃ
  var printdd = getCurrentDate().substr(0,4) + "/" + getCurrentDate().substr(4,2) + "/" + getCurrentDate().substr(6,2);
  var printtm = getCurrentTime().substr(0,2) + ":" + getCurrentTime().substr(2,2) + ":" + getCurrentTime().substr(4,2);
  
  model.makeValue("/root/send/report/printdt", printdd + " " +printtm );
  model.makeValue("/root/send/report/usernm", getUserName() );

  if(gubn == "Blood"){
    model.makeValue("/root/send/ocrflag", "B");
  }else if(gubn == "ER"){
    model.makeValue("/root/send/ocrflag", "E");
  } 
  model.makeValue("/root/send/ioparam", ioparam);
  
//  exeReportPreview("RFMNR01000", "XMLSTR");
/*
exeReportPreview(·¹Æ÷Æ®¸í, ¿¬°è¹æ¹ý, ¸Å°³º¯¼öÇʵå XPath, SubmitID, Ãâ·Â¿©ºÎ, Àμâ â º¸ÀÓ ¿©ºÎ,  ÀúÀåŸÀÔ, ÆÄÀϸí, ÆÄÀÏ ÀúÀå â º¸ÀÓ¿©ºÎ, ¹Ì¸®º¸±ââ´Ý±â¿©ºÎ, ¸ð´ÏÅÍ ¹øÈ£, µ¥ÀÌÅÍ ¼Ò½º, µ¥ÀÌÅÍ XPath , ¸ÞÀθ®Æ÷Æ® ¹Ýº¹XPath, ¼­ºê¸®Æ÷Æ®1 ¹Ýº¹Xpath)

*/

  model.makeValue("/root/send/pid", model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid"));
  
  if(!submit("TRMNR01027")) return; //"TRMNN01603"
  
  //alert(model.getValue("/root/temp/ocrtag/ocrtagseq/seq"));
  //model.makeValue("/root/send/report/seq", "50001");
  model.makeValue("/root/send/report/seq",        model.getValue("/root/temp/ocrtag/ocrtagseq/seq"        ));
  model.makeValue("/root/send/report/formcd",     model.getValue("/root/temp/ocrtag/ocrtagseq/formcd"     ));
  model.makeValue("/root/send/report/formfromdt", model.getValue("/root/temp/ocrtag/ocrtagseq/formfromdt" ));
  
  var ip = app.clientIp.split("^");
  
  var ipstr = ip[0].split(".");
  
  model.makeValue("/root/send/report/ip", ipstr[2] + "." + ipstr[3]);
  
  // ****************************************************************************************************************
  
  //ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿ param setting
  var sSeq = "";
  var sPid = "";      
  var sIndd = "";      
  var sCretno = "";
  var sOrdtype = "";
  var sOrddeptcd = "";
  var sMedispclid = "";
  var sFormcd = "";
  var sFormfromdt = "";
  var sPagecnt = "";
  
  var compareCretno = "";
  var compareIndd = "";
  var compareOrddeptcd = "";
  var compareMedispclid = "";
  
  var rowcnt = 0;
  
  //ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿ parameter ¼³Á¤ ºÎºÐ
  for(var i = 1 ; i <= getNodesetCount("/root/main/cond/delivedetlgrup/delivedetlgruplist") ; i++){
    if(model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/sel") == "true"){
      if(compareCretno == ""){
        compareCretno = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/cretno");
      }else{
        if(compareCretno != model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/cretno")){
          messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß »ý¼º¹øÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê´Â µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.", "I");
          return;
        }
      }
      
      if(compareIndd == ""){
        if(ioparam == "OPRC"){
          compareIndd = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddd");
        }else if(ioparam == "IPRC"){
          compareIndd = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/indd");
        }
      }else{
        if(ioparam == "OPRC"){
          if(compareIndd != model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddd")){
            messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß Áø·áÀÏÀÚ°¡ ÀÏÄ¡ÇÏÁö ¾Ê´Â µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.", "I");
            return;
          }
        }else{
          if(compareIndd != model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/indd")){
            messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß ÀÔ¿øÀÏÀÚ°¡ ÀÏÄ¡ÇÏÁö ¾Ê´Â µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.", "I");
            return;
          }
        }
      }
      
      if(compareOrddeptcd == ""){
        if(ioparam == "OPRC"){
          compareOrddeptcd = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddeptcd");
        }else if(ioparam == "IPRC"){
          compareOrddeptcd = model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/orddeptcd");   
        }
      }
      
      if(compareMedispclid == ""){
        if(ioparam == "OPRC"){
          compareMedispclid = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddrid");
        }else if(ioparam == "IPRC"){
          compareMedispclid = model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/medispclid");   
        }
      }
            
// ±èº´·Î ÆÀÀå ¿ä±¸¿¡ ÀÇÇØ »èÁ¦(2008-09-27)
//      if(compareOrddeptcd == ""){
//        compareOrddeptcd = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddeptcd");
//      }else{
//        if(compareOrddeptcd != model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddeptcd")){
//          messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß Áø·á°ú°¡ ÀÏÄ¡ÇÏÁö ¾Ê´Â µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.", "I");
//          return;
//        }
//      }
//      
//      if(compareMedispclid == ""){
//        compareMedispclid = model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddrid");       
//      }else{
//        if(compareMedispclid != model.getValue("/root/main/cond/delivedetlgrup/delivedetlgruplist["+i+"]/orddrid")){
//          messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß Áø·áÀǻ簡 ÀÏÄ¡ÇÏÁö ¾Ê´Â µ¥ÀÌÅÍ°¡ Á¸ÀçÇÕ´Ï´Ù.", "I");
//          return;
//        }
//      }     
      rowcnt++;
    }
  }

  //Ãâ·Â page ¼ö  
  if(rowcnt == 0){
    messageBox("ºÒÃâ¿äû¼­ Ãâ·Â°ÇÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.","E");
    return;
  }else if( rowcnt < 5 ){
    sPagecnt = 1;
  }else{
    sPagecnt = 0;
    sPagecnt = sPagecnt + parseInt(rowcnt/4);
    if((rowcnt % 4 ) > 0 ){
      sPagecnt = sPagecnt + 1;
    }
  }
  
  if(ioparam == "OPRC"){ //¿Ü·¡
    sSeq          = model.getValue("/root/temp/ocrtag/ocrtagseq/seq");
    sPid          = model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") ; 
    sIndd         = compareIndd;
    sCretno       = compareCretno;
    sOrdtype      = "O";
    sOrddeptcd    = compareOrddeptcd;
    sMedispclid   = compareMedispclid;
    sFormcd       = model.getValue("/root/temp/ocrtag/ocrtagseq/formcd" );
    sFormfromdt   = model.getValue("/root/temp/ocrtag/ocrtagseq/formfromdt" );
  }else if(ioparam == "IPRC"){ // ÀÔ¿ø
    sSeq          = model.getValue("/root/temp/ocrtag/ocrtagseq/seq");
    sPid          = model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") ; 
    sIndd         = compareIndd;
    sCretno       = compareCretno;
    sOrdtype      = model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid ='"+ sPid+"']/ordtype");
    sOrddeptcd    = compareOrddeptcd;
    sMedispclid   = compareMedispclid;
    sFormcd       = model.getValue("/root/temp/ocrtag/ocrtagseq/formcd" );
    sFormfromdt   = model.getValue("/root/temp/ocrtag/ocrtagseq/formfromdt" );
  } 

  //param µ¥ÀÌÅÍ Á¸ÀçÇÏÁö ¿©ºÎ üũ
  if(sSeq == ""       || sPid == ""         || sIndd == ""   || sCretno == ""     || sOrdtype == "" || 
     sOrddeptcd == "" || sMedispclid  == "" || sFormcd == "" || sFormfromdt == "" ){
       //alert(sSeq + " : " + sPid + " : " + sIndd + " : " + sCretno + " : " + sOrdtype + " : " + sOrddeptcd + " : " + sMedispclid + " : " + sFormcd + " : " + sFormfromdt);
       messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿ ¼³Á¤ Á¶°Ç°ªÀÌ Á¤È®ÇÏÁö ¾Ê½À´Ï´Ù.", "E");
       return;  
    }

  if(!fSaveOCRIF(sSeq, sPid, sIndd, sCretno, sOrdtype, sOrddeptcd, sMedispclid, sFormcd, sFormfromdt, "", "", sPagecnt)){
    messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß ½ÇÆÐÇÏ¿´½À´Ï´Ù.","C999");
    return;
  } 
    
  if(gubn == "Blood") { // Ç÷¾×¿äû¼­ Ãâ·Â. üũ
    
    exeReportPreview("RFMNR01000", "XMLSTR", "", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â
    //exeReportPreview("RFMNR01000", "XMLSTR", "");                                                   //Àӽà ¹Ì¸®º¸±â â È°¼ºÈ­
    //exeReportPreview("RFMNR01000", "XMLSTR", "", "", "true", "", "", "", "", "true");               // ¹Ì¸®º¸±â ¶»´Ù°¡ »ç¶óÁö¸é¼­ Ãâ·Â

    for(var i = grd_delivedetlgruplist.fixedRows; i < grd_delivedetlgruplist.rows; i++) {
			if(grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("sel")) == "true") {
				grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("ocrtag")) = model.getValue("/root/temp/ocrtag/ocrtagseq/seq");
			}
		}
		
    model.makeValue("/root/send/detlgrup",grd_delivedetlgruplist.getupdatedataAll("i"));  

		model.makeValue("/root/send/ocrtag", model.getValue("/root/temp/ocrtag/ocrtagseq/seq"));
		
		
		
    if(submit("TXMNR01033")){
      fGettDeliveDetlList();// ºÒÃâ½Åû ³»¿ª ÀçÁ¶È¸
    }
  } else if(gubn == "ER") { // ÀÀ±ÞÇ÷¾×ºÒÃâ¿äû¼­ Ãâ·Â. üũ
    exeReportPreview("RFMNR01002", "XMLSTR", "", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â
    //exeReportPreview("RFMNR01002", "XMLSTR", "");                                                   //Àӽà ¹Ì¸®º¸±â â È°¼ºÈ­
    //exeReportPreview("RFMNR01002", "XMLSTR", "", "", "true", "", "", "", "", "true");               // ¹Ì¸®º¸±â ¶»´Ù°¡ »ç¶óÁö¸é¼­ Ãâ·Â

    model.makeValue("/root/send/detlgrup",grd_delivedetlgruplist.getupdatedataAll("i"));  
    for( var idx = grd_delivedetlgruplist.fixedRows ; idx <= grd_delivedetlgruplist.rows  ;  idx++ ){
        grd_delivedetlgruplist.valueMatrix( idx, grd_delivedetlgruplist.colRef("sel")) = false;
    }
  }
}


 /**
 * @group  :
 * @ver    : 2007.07.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ ³»¿ª ¼±Åà »èÁ¦ (½ÅûÃë¼Ò)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fDelDeliveExecPrcp(){


  var sRowCnt = grd_delivedetlgruplist.rows-grd_delivedetlgruplist.fixedrows; 
  var cnt = 0 ;

  for(var i=1; i<= sRowCnt; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    if( grd_delivedetlgruplist.labelmatrix(i, 1) == "true" ) {
      cnt = cnt + 1;
//      if( grd_delivedetlgruplist.labelmatrix(i, 2) != "500" ) {
//      
//        messageBox("ºÒÃâ½Åû ÀÌ¿ÜÀÇ »óÅ¿¡¼­´Â »èÁ¦ÇÒ ¼ö ","I004");
//        return; 
//      
//      }

      if( grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("prcpstatcd3")) > "100" ) {// 500 ºÒÃâ¿äû (°øÅëÄÚµå)
        messageBox("Ç÷¾×ÀºÇà¿¡ Á¢¼öµÈ »óÅ¿¡¼­´Â ½ÅûÃë¼Ò ÇÒ ¼ö ","I004");
        return; 
      } else if( grd_delivedetlgruplist.labelmatrix(i, grd_delivedetlgruplist.colRef("prcppreptfflag")) == "ÀÇ»ç") {// ÀÇ»ç ó¹æ »èÁ¦ ºÒ°¡´É
      
        messageBox("ÀÇ»çó¹æÀº ½ÅûÃë¼Ò ÇÒ ¼ö ","I004");
        return; 
        
      }
    }
  }

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return; 
  }

  model.removenode("/root/send");
  model.refresh();

//  model.makeValue("/root/send/blodpidflag",blodpidflag);  

  model.makeValue("/root/send/blodno", ipt_blodno.value  );
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom2.value  );
  model.makeValue("/root/send/prcpddto", ipt_prcdddto2.value  );
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist2.value  );
  model.makeValue("/root/send/wardcdnm", cmb_wardcdgruplist2.label  );
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist2.value  );
  model.makeValue("/root/send/hngnm", cmb_patientgruplist2.value  );
  model.makeValue("/root/send/pid", ipt_pid2.value  );

  model.makeValue("/root/send/ioparam", ioparam);


  /* ¾çõ´ö½Ã ·ÎÁ÷ ½ÃÀÛ */
  if(messageBox ( "½ÅûÃë¼Ò¸¦ ", "Q004" ) == "6"){
    model.makeValue("/root/send/detlgrup",grd_delivedetlgruplist.getupdatedataAll("i"));  
      
      if(submit("TXMNR01035") == true ){
      fGetExecDetlList();// ¼öÇàó¹æ³»¿ª¸®½ºÆ®  
      fGettDeliveDetlList();//  ºÒÃâ½Åû ³»¿ª ¸®½ºÆ®  
      fGetPatCmtList();
      }
   }
  /* ¾çõ´ö½Ã ·ÎÁ÷ ³¡ */
}

 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetBlodNoExecRecList(blodpidflag){

  var sRowCnt = grd_execdetlgruplist.rows-grd_execdetlgruplist.fixedrows; 

  if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
  
//    messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
//    model.setfocus("ipt_blodno");
//    return; 
  
  }

  /* ¼öÇ÷°£È£±â·Ï ³»¿ë ÃʱâÈ­ */
//  fClearChildNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
//  
//  model.refresh();

  model.makeValue("/root/send/blodpidflag",blodpidflag);  

  model.makeValue("/root/send/blodno", ipt_blodno.value  );
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom2.value  );
  model.makeValue("/root/send/prcpddto", ipt_prcdddto2.value  );
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist2.value  );
  model.makeValue("/root/send/wardcdnm", cmb_wardcdgruplist2.label  );
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist2.value  );
  model.makeValue("/root/send/hngnm", cmb_patientgruplist2.value  );
  model.makeValue("/root/send/pid", ipt_pid2.value  );

  model.makeValue("/root/send/ioparam", ioparam);

  if(submit("TRMNR01021")){
  }   

}

  /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ³»¿ªÀÇ Ç÷¾×¹Ý³³ÀÇ·Ú ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fBlodReturnSave(){
  var sRowCnt = grd_blodreturnreqgruplist.rows-grd_blodreturnreqgruplist.fixedrows;   
  var cnt = 0 ;

  model.removenode("/root/send");
  model.makeValue("/root/send/detlgrup",grd_blodreturnreqgruplist.getupdatedataAll("i")); 
  
  var Hosyn = 0 ;

  for(var i=1; i<= sRowCnt; i++){

    if( grd_blodreturnreqgruplist.labelmatrix(i, 1) == "true" ) {
      cnt = cnt + 1;

      // ****************************** ¹Ý³³»çÀ¯ Çʼö ·ÎÁ÷ Ãß°¡ ***************************************
      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/reqflag") == ""){//¹Ý³³/Æó±â¸¦ üũ
        messageBox("¹Ý³³/Æó±â¸¦ ","C002");
        return;     
      }

      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/returnabandondate") == ""){//¹Ý³³/Æó±âÀÏ Ã¼Å©
        messageBox("¹Ý³³/Æó±âÀÏÀ» ","C002");
        return;     
      }

      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == "-" || model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd") == ""){//¹Ý³³»çÀ¯ üũ
        messageBox("¹Ý³³/Æó±â »çÀ¯¸¦ ","C002");
        return;     
      }
//      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substring(0,3) == "080"){ //¹Ý³³»çÀ¯°¡ º´¿ø»çÀ¯ÀÎÁö üũ
      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substring(0,3) == "072"){ //¹Ý³³»çÀ¯°¡ º´¿ø»çÀ¯ÀÎÁö üũ
        Hosyn++;
      }
      
      if(model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/etcprcpresncd").substr(3,2) == "99" &&  model.getValue(xBlodReturnReqGrupListPath+"["+i+"]/clinccmtcnts")== ""){ 
        messageBox("±âŸ »çÀ¯ ó¸® ½Ã ±âŸ»çÀ¯³»¿ªÀ» ÀÔ·ÂÇØ¾ß ÇÕ´Ï´Ù.","C");
        return;
      }
    }
  }

  if(Hosyn > 0){
    var sRtnMsg = messageBox("º´¿ø»çÀ¯¿¡ ÀÇÇÑ Ç÷¾×Æó±â½Ã Ç÷¾×´ë±ÝÀÌ º´¿ø¼Õ½Çó¸® µË´Ï´Ù.\n\n","Q003");
    if(sRtnMsg != 6) return;
  }

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return;
  }

//return;
  model.removeNodeset("/root/temp/rtninfo");
  model.makeValue("/root/send/ioparam", ioparam);
  if(submit("TXMNR01030")){
    if(getNodesetCount("/root/temp/rtninfo/rtnlist") > 0){
      if(model.getValue("/root/temp/rtninfo/rtnlist/rtnflag") == "4"){
      }else{
        messageBox("Åð¿øȯÀÚ¿¡°Ô º´¿ø¼Õ½Çó¸® »çÀ¯·Î ¹Ý³³/Æó±â ÀÇ·Ú ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
      }
    }else{
      messageBox("¹Ý³³/Æó±â ÀÇ·Ú Ã³¸®¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
    }
    model.copyNode("/root/hidden/main","/root/main");
  }

  /* ¹Ý³³/Æó±â ÀÌÈÄ Á¤º¸ Á¶È¸ ½ÇÇà */

  var pidblodflag = '';
  if(ipt_pid2.value != ""){
    pidblodflag = 'pid';
  } else if (ipt_blodno.value !="") {
    pidblodflag = 'blod';                   
  }               

  fBlodDeliveList(pidblodflag); //Ç÷¾×ºÒÃâ ¸®½ºÆ® Á¶È¸¹öÆ°
  //fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
  //fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ
}

 /**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾×ºÒÃâ ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fBlodDeliveList(blodpidflag){

  var sRowCnt = grd_execdetlgruplist.rows-grd_execdetlgruplist.fixedrows; 

  if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
  
//    messageBox("Ç÷¾×¹øÈ£/µî·Ï¹øÈ£¸¦ ","C001");
//    model.setfocus("ipt_blodno");
//    return; 
  
  }

  model.removenode("/root/send");
  model.refresh();

  model.makeValue("/root/send/blodpidflag" , blodpidflag    );  
  model.makeValue("/root/send/blodno"      , ipt_blodno.value  );
  model.makeValue("/root/send/prcpddfrom"  , ipt_prcpddfrom2.value   );
  model.makeValue("/root/send/prcpddto"    , ipt_prcdddto2.value  );
  model.makeValue("/root/send/wardcd"      , cmb_wardcdgruplist2.value   );
  model.makeValue("/root/send/wardcdnm"    , cmb_wardcdgruplist2.label   );
  model.makeValue("/root/send/roomcd"      , cmb_roomcdgruplist2.value   );
  model.makeValue("/root/send/hngnm"       , cmb_patientgruplist2.value   );
  model.makeValue("/root/send/pid"         , ipt_pid2.value  );
  model.makeValue("/root/send/ioparam"     , ioparam        );
  
  grd_blodreturnreqgruplist.rebuildStyle();
  grd_blodexecrecgruplist.rebuildStyle();
  
  if(submit("TRMNR01020")){
    model.removenode("/root/blodrtninfo");
    model.makenode("/root/blodrtninfo");
    model.copynode("/root/blodrtninfo", "root/main/cond/blodreturnreqgrup");
    
    for(var i = 1 ; i < grd_blodreturnreqgruplist.rows; i++ ){
      // ¼¿ ÃʱâÈ­ ºÎºÐ
      grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("reqflag")) = false;
      grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("stat")) = false;
      grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = false;
      grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = false;
      grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = false;
      grd_blodreturnreqgruplist.cellComboNodeset(i, grd_blodreturnreqgruplist.colRef("reqflag")) = "/root/init/reqflaglist/itemlist1/item";
      
      if( grd_blodexecrecgruplist.rows > 1){ //¼öÇà±â·Ï ³»¿ª Á¸Àç ÇÒ °æ¿ì
        for(var n = 1 ; n <= grd_blodexecrecgruplist.rows; n++ ){
          //if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/blodno") == model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ n +"]/blodno") &&
          //    model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/prcpno") == model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ n +"]/prcpno")  ) {
          
          if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/chkstat") == "Y"){	//20090401_SMY¼öÁ¤
            if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/etcprcpresncd") != ""  ) {
              grd_blodreturnreqgruplist.cellComboNodeset(i, grd_blodreturnreqgruplist.colRef("reqflag")) = "/root/init/reqflaglist/itemlist2/item";
              //Æó±â ¹Ý³³ »çÀ¯ ¼ÂÆÃ
              if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/reqflag") == "1"  ){
                grd_blodreturnreqgruplist.cellComboNodeset(i,grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "/root/init/etcprcpresncd/L0084";       //¹Ý³³»çÀ¯
              }else{
                //grd_blodreturnreqgruplist.cellComboNodeset(i,grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "/root/init/L0093list/L0093";            //Æó±â»çÀ¯
                grd_blodreturnreqgruplist.cellComboNodeset(i,grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "/root/init/totresncd/item";            //Æó±â»çÀ¯
              }
              grd_blodreturnreqgruplist.rowstyle(i, "data", "background-color") = "#fff000";
            }
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("stat")) = true;   
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("reqflag")) = true;
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = true;
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = true;
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
            
            //ÃÖÀºÈñ ¼±»ý´Ô ¿äû : 2008 - 01- 29 Ç÷¾× Æó±â/¹Ý³³ÀÌ ¾Æ´Ñ °ÇÀº »ö Ç¥½Ã Á¦¿Ü
            //grd_blodreturnreqgruplist.rowstyle(i, "data", "background-color") = "#fff000";
            n = grd_blodexecrecgruplist.rows;
          }else{
            if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/etcprcpresncd") != ""  ) {
              grd_blodreturnreqgruplist.cellComboNodeset(i, grd_blodreturnreqgruplist.colRef("reqflag")) = "/root/init/reqflaglist/itemlist2/item";
              //Æó±â ¹Ý³³ »çÀ¯ ¼ÂÆÃ
              if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/reqflag") == "1"  ){
                grd_blodreturnreqgruplist.cellComboNodeset(i,grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "/root/init/etcprcpresncd/L0084";       //¹Ý³³»çÀ¯
              }else{
                grd_blodreturnreqgruplist.cellComboNodeset(i,grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = "/root/init/discontinucom/L0085";        //Æó±â»çÀ¯
              }
              
              if(model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/reqflagstat") == "Y"){
                grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = true;
                grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = true;
                grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
              }else{
                sChkReadOnlyCd = grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")); 
                //»çÀ¯°¡ ±âŸÀÎ Ç׸ñÀº ÀÔ·ÂÇÒ ¼ö ÀÖµµ·Ï ¼öÁ¤
                if(sChkReadOnlyCd.substr(3,5) != "99"){
                  grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
                }                   
              }
              
              grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("reqflag")) = true;
              grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("stat")) = true;
              grd_blodreturnreqgruplist.rowstyle(i, "data", "background-color") = "#fff000";
            }       
          }
        }
      }else{ //¼öÇà±â·Ï ³»¿ª Á¸ÀçÇÏÁö ¾ÊÀ» °æ¿ì
        if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/etcprcpresncd") != ""  ) {
          //Æó±â ¹Ý³³ »çÀ¯ ¼ÂÆÃ
          if( model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/reqflag") == "1"  ){
            grd_blodreturnreqgruplist.cellComboNodeset(i,13) = "/root/init/etcprcpresncd/L0084";        //¹Ý³³»çÀ¯
          }else{
            grd_blodreturnreqgruplist.cellComboNodeset(i,13) = "/root/init/discontinucom/L0085";        //Æó±â»çÀ¯
          }
          
          if(model.getValue("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist["+ i +"]/reqflagstat") == "Y"){
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = true;
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = true;
            grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
          }else{
            sChkReadOnlyCd = grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")); 
            //»çÀ¯°¡ ±âŸÀÎ Ç׸ñÀº ÀÔ·ÂÇÒ ¼ö ÀÖµµ·Ï ¼öÁ¤
            if(sChkReadOnlyCd.substr(3,5) != "99"){
              grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
            }                 
          }
          grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("reqflag")) = true;
          grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("stat")) = true;
          grd_blodreturnreqgruplist.rowstyle(i, "data", "background-color") = "#fff000";
        }else{
          grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) = true;
          grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) = true;
          grd_blodreturnreqgruplist.isReadOnly(i, grd_blodreturnreqgruplist.colRef("returnabandondate")) = true;
        }
      }
    }
    
    //¼öÇà±â·Ï ³»¿ª ¹ÌÁ¾·á °Ç »öÇ¥½Ã
    for(var i= grd_blodexecrecgruplist.fixedRows ; i <= grd_blodexecrecgruplist.rows; i ++){
      var sColor3 = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/signno"); //ÀÎÁõ¹øÈ£
      
      if( sColor3 != ""  ) {
        grd_blodexecrecgruplist.rowstyle(i, "data", "background-color") = "#ffff00"; //ÀÎÁõ Á¤º¸ È®ÀÎ
      }else{
        grd_blodexecrecgruplist.rowstyle(i, "data", "background-color") = "#00FF00"; //Á¾·á½Ã°£ Á¤º¸ È®ÀÎ
      }
    }
  }   
  model.setfocus("ipt_blodno");   
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ºÒÃâ½Åû ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGettDeliveDetlList(){
  if( ipt_pid.value == "" ){
    model.removenode("/root/main/cond/delivedetlgrup");
    model.refresh();
    return;
  }

  if( model.getValue("/root/main/cond/wardcdgrup/wardcdgruplist") == "" ){
//    messageBox("º´µ¿À» ","C002");
//    model.setfocus("cmb_wardcdgruplist");
//    return; 
  }

  model.removenode("/root/send");
  
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom.value);
  model.makeValue("/root/send/prcpddto", ipt_prcdddto.value);
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist.value); 
  model.makeValue("/root/send/wardcdnm", cmb_wardcdgruplist2.label  );
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist.value); 
  model.makeValue("/root/send/hngnm", cmb_patientgruplist.value);
  model.makeValue("/root/send/pid", ipt_pid.value);

  model.makeValue("/root/send/ioparam", ioparam);

  if(submit("TRMNR01009")){
    grd_delivedetlgruplist.rebuildStyle();
    var sTodate = getCurrentDate();
    for(var i = grd_delivedetlgruplist.fixedRows ; i <= grd_delivedetlgruplist.Rows ; i++){
      var sChkBlodBarCd = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("blodbarcd")); 
      var sValiDt       = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("validt")).substr(0,8); 
      var sChkDay       = getDateCalc(sTodate, 4, "+");
      if(sValiDt != ""){
        if( sChkBlodBarCd == "12003" || sChkBlodBarCd == "12004" || sChkBlodBarCd == "12017" || sChkBlodBarCd == "A0003"){
          if(sTodate >= sValiDt ){
            grd_delivedetlgruplist.rowStyle(i, "all", "background-color") = "#f7a08b";
          }
        }else{
          if(sChkDay >= sValiDt ){
            grd_delivedetlgruplist.rowStyle(i, "all", "background-color") = "#f7a08b";
          }
        }
      }
    }
  }   
}

/**
 * @group  :
 * @ver    : 2007.04.02
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇàó¹æ ¼±Åýà üũ»çÇ×
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fSelchange(){
  var iRow = grd_execdetlgruplist.row ;

    
    var pid = model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid");


  if( parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/prcpqty")) <= parseInt(model.getValue(xExecDetlListPath+"["+iRow+"]/appno")) ) {
    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
    messageBox("½Åû¼ö·®ÀÌ Ã³¹æ¼ö·®º¸´Ù Ŭ ¼ö ","I004");
    return;     
  }

  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "D/C") {
    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
    messageBox("D/C »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
    return;     
  } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "˂ȍ") {
    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
    messageBox("ÀÇ»ç »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
    return;     
  } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "¿Ï·á") {
    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
    messageBox("¿Ï·á »óÅ¿¡¼­´Â ½ÅûÇÒ ¼ö ","I004");
    return;     
  } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") != "ó¹æ") {
    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
    messageBox("ó¹æ »óÅ ÀÌ¿Ü¿¡´Â ½ÅûÇÒ ¼ö ","I004");
    return;     
  } else {
  
      if ( model.getValue("/root/main/cond/ioflag") == "I" 
        && (model.getValue(xExecDetlListPath+"["+iRow+"]/orddd") !=  model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid='"+ pid +"']/indd")  
         || model.getValue(xExecDetlListPath+"["+iRow+"]/cretno") !=  model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid='"+ pid +"']/cretno")) ){
            model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
            messageBox("°ú°Å (Åð¿ø)¼öÁøó¹æÀº ½ÅûÇÒ ¼ö ","I004");
            return;
      }else {
        if (  model.getValue("/root/main/cond/ioflag") == "I" ){
            model.removeNodeset("/root/temp/cond/patientgrup/patientgruplist");/* ȯÀÚ¸®½ºÆ®*/									
            fGetPatientList();// ȯÀÚ¸®½ºÆ® Á¤º¸¸¦ °¡Á®¿Â´Ù.		
            if (  model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid='"+ pid +"']/dschnotiyn") == "Y" ){
                    model.setValue(xExecDetlListPath+"["+iRow+"]/sel", "false" ) ;
                	messageBox("°£È£»ç Åð¿øÈ®Á¤ Ãë¼ÒÇϽðí", "C003");
                	return;
            }
            
        }
      } 
  }
}


/**
 * @group  :
 * @ver    : 2007.04.02
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ±×¸®µåÀÇ °ªÀÌ º¯°æµÇ¾úÀ»¶§, »óÅ°ªÀ» º¯°æÇÑ´Ù.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */   
function fChangedGridCol(){

  var sDetlGrupRow = grd_execpopwnddetlgruplist.row;
  var sDetlGrupBKRow=0;

  var num = model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/num");

  for(var i=1; i<= getNodesetCount(xPopWndClsListBKPath); i++){
    if(model.getValue(xPopWndClsListBKPath+"["+i+"]/num") == num){
      sDetlGrupBKRow = i;
      break;
    }
  }

  if(event.keyCode == "32") {
    messageBox("½Åû¼ö·®¿¡ ½ºÆäÀ̽º¸¦ ³ÖÀ» ¼ö ","I004");
    model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","-");
    model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno","");
    grd_execpopwnddetlgruplist.refresh();
    return;                     
  }
	
	//¿¹¾à½Ã°£ ¼öÁ¤ÇÒ °æ¿ì 6ÀÚ¸® ¼ÂÆÃ_20090304_SMY	
	var prcphopetm = grd_execpopwnddetlgruplist.textmatrix(sDetlGrupRow, grd_execpopwnddetlgruplist.colRef("prcphopetm")) ;
	if(prcphopetm.length > "0" && prcphopetm.length < "4"){
		messageBox("¿¹¾à½Ã°£ Á¤º¸¸¦ Á¤È®ÇÏ°Ô ÀÔ·ÂÇϼ¼¿ä","I");
		return;
	}else if(prcphopetm.length == "4"){
		model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/prcphopetm", prcphopetm+"00");	
	}
	
  var irr = grd_execpopwnddetlgruplist.textmatrix(sDetlGrupRow, grd_execpopwnddetlgruplist.colRef("irr")) ;

  if(model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno") == "0" || model.getValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/appno") == ""){
    model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","-");
    //grd_execpopwnddetlgruplist.rebuild();
    //return; 
  }
  
//  alert(instance1.selectSingleNode(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]").xml);
//
//  alert(instance1.selectSingleNode(xPopWndClsListBKPath+"["+sDetlGrupBKRow+"]").xml);

  if(instance1.selectSingleNode(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]").xml != instance1.selectSingleNode(xPopWndClsListBKPath+"["+sDetlGrupBKRow+"]").xml){
    model.setValue(xPopWndExecDetlListPath+"["+sDetlGrupRow+"]/stat","I");
    //grd_execpopwnddetlgruplist.rebuild();
  } 
  grd_execpopwnddetlgruplist.refresh();
}

 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fPopWndSave(){
	//debugger;
  var sRowCnt = grd_execpopwnddetlgruplist.rows-grd_execpopwnddetlgruplist.fixedrows;   
  var saveyn = 0 ;
  var rsrvflag = "";

  for(var i=1; i<= sRowCnt; i++){
    if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/stat") != "-") {
      saveyn = 1 ;
    }

    if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/stat") != "-" && model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno") == ""){
      messageBox("½Åû¼ö·®Àº","I003");
      return;     
    }

//    if( !isNumber(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno"))  ) {
//      messageBox("¼ýÀÚÇüÀ» ","C001");
//      return; 
//    }

    if( parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) < 1 || parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) == " " ) {
      messageBox("½Åû¼ö·®Àº 1°Ç ÀÌÇÏ·Î ÀÔ·ÂÇÒ ¼ö","E001");
      return;     
    }
    
    if( parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/delivepossno")) < parseInt(model.getValue(xPopWndExecDetlListPath+"["+i+"]/appno")) ) {
      messageBox("½Åû¼ö·®Àº ºÒÃâ¼ö·®º¸´Ù Å©°Ô ÀÔ·Â","E001");
      return;     
    }
    
    /**************************************************************°­³²¼º¸ð±âÁØ_¼­¿ï¼º¸ð¿ÀÇ½à »èÁ¦ºÎºÐ
    if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd") == "" || model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm") == ""){
      messageBox("¿¹¾àÀÏÀÚ/¿¹¾à½Ã°£Àº","I003");
      return;     
    }
    ***************************************************************/

	//*************************************************************************************¼­¿ï¼º¸ð¿Àǽà Àû¿ë
	if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd") == "" || model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm") == ""){
        //setrsrvyn : YÀÏ °æ¿ì ¿¹¾àÀϽà ÁöÁ¤ÄÚµå_20090223_SMYÃß°¡
	    if(rsrvflag != "N" && model.getValue(xPopWndExecDetlListPath+"["+i+"]/setrsrvyn") == "Y"){
	    	rsrvflag = "Y";
	    }else{
	    	rsrvflag = "N";
	    }
    }
    //****************************************************************************************/
    
  }
  
  //*****************************************************************************************¼­¿ï¼º¸ð¿Àǽà Àû¿ë
  //FFP, LRSDP, CRYO Ç÷¾×Á¦Á¦´Â ¿¹¾àÀÏÀÚ¿Í ½Ã°£ÁöÁ¤ÀÌ Çʼö_20090223_SMYÃß°¡
  if(rsrvflag == "N"){
	  messageBox("¿¹¾àÀÏÀÚ/¿¹¾à½Ã°£Àº","I003");
	  return;
	
  }else if (rsrvflag == "Y"){
	  var rtn = messageBox("FFP, LRSDP, CRYO Ç÷¾×Á¦Á¦´Â ¿¹¾àÀÏÀÚ¿Í ½Ã°£ÁöÁ¤ÀÌ ÇʼöÀÔ´Ï´Ù." +"\n" + "ÁöÁ¤ÇÏÁö ¾Ê´Â °æ¿ì ÇöÀç ÀϽ÷ΠÁ¢¼öµË´Ï´Ù." +"\n" + "ÇöÀçÀϽ÷Π¹Ù·Î Á¢¼öÇϽðڽÀ´Ï±î?","Q");
	  if (rtn == "7"){
	  	  return;
	  
	  }else{	  
	  	  for(var i=1; i<= sRowCnt; i++){
	  	  	  if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/setrsrvyn") == "Y"){
	  	      	  model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd",getCurrentDate());     
				  model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm",getCurrentTime());  
				  model.setValue(xPopWndExecDetlListPath+"["+i+"]/stat","I");
			  }
  		  }
  		  model.refresh();
	  }
  }
  //********************************************************************************************/
  

  if(saveyn <= 0 ){
    messageBox("¼öÁ¤»çÇ×ÀÌ ¾ø¾î ÀúÀå ","E001");
    return;
  }
  
    //alert("result : " + saveyn);
//  if(saveyn <= 0 ){
//    messageBox("¼öÁ¤»çÇ×ÀÌ ¾ø¾î ÀúÀå ","E001");
//    return; 
//  }

//  alert(model.getValue("/root/main/cond/clsflag"));
//  alert(model.getValue("/root/main/cond/recflag"));
//  
//  if(messageBox("","Q002") != 6) return;
//    alert(model.getValue("/root/main/cond/todd"));
//    model.makeValue("/root/send/lrggrupcd", model.getValue(xCondPath+"/lrggrupcd"));
//    model.makeValue("/root/send/clsflag", model.getValue("/root/main/cond/clsflag"));
//    model.makeValue("/root/send/recflag", model.getValue("/root/main/cond/recflag"))
//    model.makeValue("/root/send/todd2", model.getValue("/root/main/cond/todd"))
//    alert(model.getValue("/root/send/todd2"));    


  model.removenode("/root/send");
  model.makeValue("/root/send/detlgrup",grd_execpopwnddetlgruplist.getupdatedataAll("i"));  

  if(submit("TXMNR01008")){
    //model.copyNode("/root/hidden/main","/root/main");
    
    if ( !isNull( model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/ocrtargetyn"))
      && model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/ocrtargetyn") == "Y" ){
        
		cap_msg.text = "ù ¼öÇ÷À̰ųª ¸¶Áö¸· ¼öÇ÷½ÃÇàÀϷκÎÅÍ 60ÀÏ ÀÌ»óÀÌ °æ°úÇÏ¿´À¸´Ï \n ¼öÇ÷µ¿ÀǼ­¸¦ ÀÛ¼ºÇØÁֽñ⠹ٶø´Ï´Ù.\n ¼öÇ÷µ¿ÀǼ­¸¦ Áö±Ý Ãâ·ÂÇϽðڽÀ´Ï±î?"
		grp_msg.visible = true;
		rdo_msgcnfm.visible = true;
		model.setValue("/root/main/cond/ocrprntyn","N") ;
		
		model.setValue("/root/main/cond/ocrtargetyn", "Y");

        
    } else if ( !isNull( model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'E']/ocrtargetyn"))
      && model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'E']/ocrtargetyn") == "E" ){
		cap_msg.text = "´çÀÏ ¼öÇ÷µ¿ÀǼ­ Ãâ·Â ÀÌ·ÂÀÌ Á¸ÀçÇÕ´Ï´Ù. \n OCR Ãâ·Â ¸®½ºÆ®¿¡¼­ È®ÀÎÇϽñ⠹ٶø´Ï´Ù"
		grp_msg.visible = true;
		rdo_msgcnfm.visible = false;
		model.setValue("/root/main/cond/ocrtargetyn", "E");
        
    } else {
   		model.setValue("/root/main/cond/ocrtargetyn", "N");
   		grp_msg.visible = false;
   		cap_msg.text = "";
        window.close();
    }

  }

//  grd_detlgrup.row = 1;

}
 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷µ¿ÀǼ­ Ãâ·Â confirm
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPopWndOcrCnfm(){
    if ( model.getValue("/root/main/cond/ocrtargetyn") == "Y" ){
        if (model.getValue("/root/main/cond/ocrprntyn") == "Y" ){
            //emr/prcpmngtweb/js/MMO001.js
            
            fOcrAutoPrint(model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/calcscorcd")+ "¢Ë");
        } else if (model.getValue("/root/main/cond/ocrprntyn") == "N" ){
            //<script type="javascript" src="../../../emr/formmngtweb/js/MRF03800.js"/>
            //fSaveOCRIF(seq, pid, indd, cretno, ordtype, orddeptcd, medispclid, formcd, formfromdt, "", "", pagecnt)
            //xPatientPath
            var pid = model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/pid");
            fSaveOCRIF(model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/seq")
                     , pid
                     , opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/indd")
                     , opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/cretno")
                     , opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/ordtype")
                     , opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/orddeptcd")
                     , opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/medispclid")
                     , model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/formcd")
                     , model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/formfromdt")
                     , ""
                     , ""
                     , model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/pagecnt"))
        }
        
    } 
    
    window.close();
}

/**
 * @desc   : OCR ÀÚµ¿Ãâ·Â 
 * @
 * @return :
 * @author :  20087. 10. 17
 * @---------------------------------------------------
*/
function fOcrAutoPrint(calcscorcd) {

    var pid = model.getValue(xPopWndClsListBKPath + "[ocrtargetyn = 'Y']/pid");
    model.makeValue ( "/root/hidden/ocrprint/calcscor/pid", pid);
    model.makeValue ( "/root/hidden/ocrprint/calcscor/cretno", opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/cretno"));
    model.makeValue ( "/root/hidden/ocrprint/calcscor/orddd", opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/indd") );
    model.makeValue ( "/root/hidden/ocrprint/calcscor/ordtype", opener.model.getValue(xPatientPath + "[pid = '"+pid+"']/ordtype"));
    model.makeValue ( "/root/hidden/ocrprint/calcscor/calcscorcd", calcscorcd );
    model.makeValue ( "/root/hidden/ocrprint/calcscor/disflag", "calcscor" );
    
    var xpt = window.screenleft + 50;
    var ypt = window.screenTop + 50;                    
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2];
    
	model.addLog("µ¿ÀǼ­ Ãâ·Â - LSH");    
	model.addLog(model.instances(0).selectNodesXml("/root/hidden/ocrprint/calcscor"));        

    modal ( "SPMRF04500", mon,  xpt, ypt, "SSMRF03800", "/root/hidden/ocrprint/calcscor","/root/main/temp/calcscor", "", false );
}
 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPopWndInit(){
  model.makeValue("/root/send/prcpddfrom"     ,    opener.window.javascript.getParameter("prcpddfrom")      );
  model.makeValue("/root/send/prcpddto"       ,    opener.window.javascript.getParameter("prcpddto")        );
  model.makeValue("/root/send/wardcd"         ,    opener.window.javascript.getParameter("wardcd")          );
  model.makeValue("/root/send/roomcd"         ,    opener.window.javascript.getParameter("roomcd")          );
  model.makeValue("/root/send/pid"            ,    opener.window.javascript.getParameter("pid")             );
  model.makeValue("/root/send/queryprcpdd"    ,    opener.window.javascript.getParameter("queryprcpdd")     );
  model.makeValue("/root/send/queryprcpno"    ,    opener.window.javascript.getParameter("queryprcpno")     );
  model.makeValue("/root/send/queryprcphistno",    opener.window.javascript.getParameter("queryprcphistno") );

  if(submit("TRMNR01007")){
    model.copyNode("/root/temp/main","/root/main");

	
    for(var i = 1 ; i < grd_execpopwnddetlgruplist.rows ; i++) {
    	//setrsrvyn : YÀÏ °æ¿ì ¿¹¾àÀϽà ÁöÁ¤ÄÚµå_20090223_SMYÃß°¡
    	var setrsrvyn = model.getValue(xPopWndExecDetlListPath+"["+i+"]/setrsrvyn");
    	
      //if(model.getValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm") == "000000"  ){

    	 /**************************************************************°­³²¼º¸ð±âÁØ_¼­¿ï¼º¸ð¿ÀÇ½à »èÁ¦ºÎºÐ
         //prep order´Â ¹«Á¶°Ç ´çÀÏ·Î ¼ÂÆà : 2008-01-15
         model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd",getCurrentDate());     
	     model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm",getCurrentTime()); 
         ***************************************************************/


		 //*************************************************************************************¼­¿ï¼º¸ð¿Àǽà Àû¿ë
         if(setrsrvyn == "Y"){
	         model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd","");     
	         model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm","");  
	     }else{
	         model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopedd",getCurrentDate());     
	         model.setValue(xPopWndExecDetlListPath+"["+i+"]/prcphopetm",getCurrentTime());  
	     
	     }
	     //********************************************************************************************/

	     
      //}
    }
  } 
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ½Åû Æ˾÷
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPopWnd(){
  var iRows = grd_execdetlgruplist.rows;
  var queryprcpdd = "" ;
  var queryprcpno = "" ;
  var queryprcphistno = "" ;
  var checkcnt = 0 ;

  for(var i = 1 ; i < grd_execdetlgruplist.rows; i++ ) {// Àüü¸¦ µ¹¸é¼­ ±×·ì¿¡ °ªÀÌ Ã¼Å©µÇ¾î ÀÖ´Â°Í ÃʱâÈ­
    if( model.getValue(xExecDetlListPath+"["+ i +"]/sel") ==  "true" ) {

      queryprcpdd   = queryprcpdd   + "'" + model.getValue(xExecDetlListPath+"["+ i +"]/prcpdd2") + "'," ;
      queryprcpno   = queryprcpno   + ""  + model.getValue(xExecDetlListPath+"["+ i +"]/prcpno" ) + ","  ;
      queryprcphistno = queryprcphistno + "" + model.getValue(xExecDetlListPath+"["+ i +"]/prcphistno") + "," ;

      checkcnt++ ;
    } else {
    
    }
  }

  if( checkcnt <= 0 ) {
    messageBox("¼öÇ÷ó¹æ³»¿ªÀ» ","C002");
    return 0 ;  
  }
  
  if(opt_inj.value == ""){
    messageBox("º¸°ü°Ëü°¡ ¾ø½À´Ï´Ù.", "E");
  }

  queryprcpdd = queryprcpdd.replace(/-/g,"")

  queryprcpdd = queryprcpdd.substr(0,queryprcpdd.length-1) ;
  queryprcpno = queryprcpno.substr(0,queryprcpno.length-1) ;
  queryprcphistno = queryprcphistno.substr(0,queryprcphistno.length-1) ;

  setParameter("prcpddfrom", ipt_prcpddfrom.value);
  setParameter("prcpddto", ipt_prcdddto.value);
  setParameter("wardcd", cmb_wardcdgruplist.value);
  setParameter("roomcd", cmb_roomcdgruplist.value);
  setParameter("pid", ipt_pid.value);
  setParameter("queryprcpdd", queryprcpdd);
  setParameter("queryprcpno", queryprcpno);
  setParameter("queryprcphistno", queryprcphistno);

  var left = event.screenX-1000;
  var top = event.screenY+50;
  modal("SMMNR01001",1,left,top);
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇàó¹æ³»¿ª Á¶È¸ ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetExecDetlList(){
    var pid = ipt_pid.value;
  if( pid == "" ){
    model.removenode("/root/main/cond/execdetlgrup");
    model.refresh();
    return;
  }

  if( model.getValue("/root/main/cond/wardcdgrup/wardcdgruplist") == "" ){
//    messageBox("º´µ¿À» ","C002");
//    model.setfocus("cmb_wardcdgruplist");
//    return; 
  }
  grd_execdetlgruplist.rebuildStyle();
  model.removenode("/root/send");
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom.value);
  model.makeValue("/root/send/prcpddto", ipt_prcdddto.value);
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist.value); 
  model.makeValue("/root/send/wardcdnm", cmb_wardcdgruplist2.label  );
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist.value); 
  model.makeValue("/root/send/hngnm", cmb_patientgruplist.value);
  model.makeValue("/root/send/pid", pid);
  model.makeValue("/root/send/ioparam", ioparam);

  if(submit("TRMNR01006")){

    //½Åû ºÒ°¡ ¼±Åöõ Disabled ó¸® : 2008-01-16   
    for(iRow = 1 ; iRow <= getNodesetCount(xExecDetlListPath) ; iRow++ ){
      grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = false; // ÄÞº¸¹Ú½º ÃʱâÈ­
      if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "D/C") {
        grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = true; 
      } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "˂ȍ") {
        grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = true; 
      } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "¿Ï·á") {
        grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = true; 
      } else  if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") != "ó¹æ") {
        grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = true; 
      } else if( model.getValue(xExecDetlListPath+"["+iRow+"]/prcpstatcd") == "ó¹æ") {
          if ( model.getValue("/root/main/cond/ioflag") == "I" 
            && (model.getValue(xExecDetlListPath+"["+iRow+"]/orddd") !=  model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid='"+ pid +"']/indd")  
             || model.getValue(xExecDetlListPath+"["+iRow+"]/cretno") !=  model.getValue("/root/temp/cond/patientgrup/patientgruplist[pid='"+ pid +"']/cretno")) ){
                grd_execdetlgruplist.isReadOnly(iRow, grd_execdetlgruplist.colRef("sel")) = true;
          } 
      }
    }
  }
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ȯÀÚ »ó¼¼Á¤º¸ Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatientInfo(arg, aCase){
  var sLoPid = "";
  //±âÁ¸ Pid¿Í »õ·Î Á¶È¸µÇ´Â Pid°°ÀºÁö Á¡°Ë
  if(aCase == "case1") {
    sLoPid = ipt_pid.value;
  } else {
    sLoPid = ipt_pid2.value;
  }
  
  if(getPatientInfo("pid") != sLoPid ){
    delPatientInfos(); //È­¸é»ó´ÜÁ¤º¸ »èÁ¦
    setGlobalVariable("paminfo", ""); //¿ø¹«Á¤º¸ reset
  }

//  if(sGolPid == sLoPid) return;

  model.removenode("/root/send");
  if(aCase == "case1") { //¼öÇ÷ºÒÃâ°ü¸®È­¸é
    if(arg != ""){
      //cmb_wardcdgruplist2.value = "";
      //cmb_roomcdgruplist2.value = "";
      //cmb_patientgruplist2.value = "";
      //model.setValue("/root/temp/cond/wardcdgrup/wardcdgruplist", "");
      //model.setValue("/root/temp/cond/roomcdgrup/roomcdgruplist", "");
      //model.setValue("/root/temp/cond/patientgrup/patientgruplist", "");
    }
    //opt_patientnm.value = "" ;
    //opt_sexage1.value = "" ;
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm", "");
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage", "");
    
    model.makeValue("/root/send/wardcd", cmb_wardcdgruplist.value);
    model.makeValue("/root/send/roomcd", cmb_roomcdgruplist.value);

    if( ipt_pid.value != "" ){
      model.makeValue("/root/send/pid", ipt_pid.value);
    } else if( model.makeValue("/root/send/pid", cmb_patientgruplist.value) != "" ){
      model.makeValue("/root/send/pid", cmb_patientgruplist.value); 
    }
  } else {
    if(arg != ""){
      //cmb_wardcdgruplist.value = "" ;
      //cmb_roomcdgruplist.value = "" ; 
      //cmb_patientgruplist.value = "" ;
      //model.setValue("/root/temp/cond/wardcdgrup/wardcdgruplist", "");
      //model.setValue("/root/temp/cond/roomcdgrup/roomcdgruplist", "");
      //model.setValue("/root/temp/cond/patientgrup/patientgruplist", "");      
    }
    //opt_patientnm2.value = "" ;
    //opt_sexage.value = "" ;
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm", "");
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage", "");
    
    //opt_signno.value = "" ;
    model.makeValue("/root/send/wardcd", cmb_wardcdgruplist2.value);
    model.makeValue("/root/send/roomcd", cmb_roomcdgruplist2.value);

    if( ipt_pid2.value != "" ){
      model.makeValue("/root/send/pid", ipt_pid2.value);  
    } else if( model.makeValue("/root/send/pid", cmb_patientgruplist2.value) != "" ){
      model.makeValue("/root/send/pid", cmb_patientgruplist2.value);  
    }
  }
  
  model.makeValue("/root/send/ioparam", ioparam); 
  if(submit("TRMNR01005", false)){
    sGolPid = sLoPid;
    if( arg == "pid" && ioparam == "IPRC" ){

//      fGetWardList();

      if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") ) {
        return ;
      }

      if(aCase == "case1") { //¼öÇ÷ºÒÃâ°ü¸®È­¸é
        model.setValue(cmb_wardcdgruplist.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") );
  
        fGetRoomList();
  
        if( "" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") ) {
          return ;
        }
  
        model.setValue(cmb_roomcdgruplist.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") );
  
        fGetPatientList();
  
        if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") ) {
          return ;
        }
  
        model.setValue(cmb_patientgruplist.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") );
      } else {
        model.setValue(cmb_wardcdgruplist2.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/wardcd") );
  
        fGetRoomList();
  
        if( "" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") ) {
          return ;
        }
  
        model.setValue(cmb_roomcdgruplist2.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/roomcd") );
  
        fGetPatientList();
  
        if("" == model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") ) {
          return ;
        }
        model.setValue(cmb_patientgruplist2.attribute("ref"), model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pidsearchlistInfo/pid") );
      }
    }
  }   

  if(aCase == "case1") { //¼öÇ÷ºÒÃâ°ü¸®È­¸é
    model.setfocus("btn_srch1");
  } else {
    model.setfocus("btn_srch2");
  }
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ȯÀÚ Á¤º¸ Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatientList(){
  model.removenode("/root/send");
  
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist.value);
  model.makeValue("/root/send/roomcd", cmb_roomcdgruplist.value);

  if(submit("TRMNR01004", false)){
  }   

  model.setfocus("cmb_patientgruplist");
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º´½Ç Á¶È¸ combo
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetRoomList(){
  model.removenode("/root/send");
  
  model.makeValue("/root/send/wardcd", cmb_wardcdgruplist.value);

  if(submit("TRMNR01003", false)){
  }   

  model.setfocus("cmb_roomcdgruplist");
}

 /**
 * @group  :
 * @ver    : 2007.06.18
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º´µ¿ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetWardList(){
  model.removenode("/root/send");
  
  model.makeValue("/root/send/wardcd", model.getValue("/root/temp/cond/wardcdgrup/wardcdgruplist/wardcd"));

  if(submit("TRMNR01002", false)){
  }   

//  model.setfocus("cmb_wardcdgruplist");
}


 /**
 * @group  :
 * @ver    : 2007.05.09
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  Ç÷¾×ºÒÃâ°ü¸® init
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInitWardList( getparam){
  fGetWardList();// º´µ¿ÄÚµå ¸®½ºÆ®
}

/**
 * @group  :
 * @ver    : 2007.08.29
 * @by     : Á¤Âù¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fTnsRecInit(){
  
  rdo_discontinuyn.value = "N";						// ¼öÇ÷Áß´Ü
  rdo_discontinuyn.disabled = false;			// ¼öÇ÷Áß´Ü
  cmb_discontinu.disabled = true;					// ¼öÇ÷Áß´Ü ÄÞº¸
  ipt_etc.disabled = true;								// ¼öÇ÷Áß´Ü ±âŸ
  ipt_drugqty.disabled = true;						// ÃÑÅõ¿©·®
  ipt_onepintqty.disabled = false;				// 1pint Åõ¿©·®
  chk_tnssideeffect.disabled = false;			//20100126_SMYÃß°¡
  ipt_tnssideeffectetc.disabled = true;		// ¼öÇ÷ºÎÀÛ¿ë	±âŸ ºñÈ°¼ºÈ­
  chk_smlqtytnsyn.disabled = true;				// ¼Ò·®¼öÇ÷	ºñÈ°¼ºÈ­
  btn_deltemprec.disabled = true;					// ±â·Ï»èÁ¦ ¹öÆ° ºñÈ°¼ºÈ­
  btn_init.disabled = true;								// ÃʱâÈ­ ¹öÆ° ºñÈ°¼ºÈ­
  btn_tempsave.disabled = true;						// ÀÓ½ÃÀúÀå ¹öÆ° ºñÈ°¼ºÈ­
  btn_certsave.disabled = true;						// ÀÎÁõÀúÀå ¹öÆ° ºñÈ°¼ºÈ­
  
  model.removeNode ("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
  model.copyNode("/root/main/cond/tnsnurserecgrup","/root/temp/tnsnurserecgrup");

  model.removeNode ("/root/main/cond/vitalsigngrup/vitalsigngruplist");   
  model.copyNode("/root/main/cond/vitalsigngrup","/root/temp/vitalsigngrup");
  //textarea1.value = "¼öÇ÷ÆÈÂî È®ÀÎÇÔ" + "\n" + "º»ÀÎÈ®ÀÎ Ç÷¾×Çü :";
  
  // 170221_¸¶Ãëȸº¹½Ç, ¼ö¼ú½Ç ¼öÇ÷±â·Ï_¹®±¸¼öÁ¤
  if(getUserInfo("dutplceinstcd") == "031" && (getUserInfo("dutplcecd") == model.getValue("/root/code/codeinfo/codelist[cdgrupid ='016']/cdid") || getUserInfo("dutplcecd") == model.getValue("/root/code/codeinfo/codelist[cdgrupid ='013']/cdid")) ){
		model.makeValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec", "Ç÷¾×Àü´Þ ¹× ¿¬°á½Ã ¼ö¿©ÀÚ¿Í Ç÷¾×ÀÇ È¯ÀÚÀ̸§, Ç÷¾×Çü, Ç÷¾×Á¾·ù¸¦ È®ÀÎÇÑ´Ù." + "\n" + "¼öÇ÷°£È£±â·ÏÀÇ vital sign±â·ÏÀ»  ¸¶Ãë±â·ÏÁ¶È¸(Áø·á)ÀÇ 5ºÐ vital signÀ¸·Î ´ëüÇÑ´Ù.");
  }else{
		model.makeValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec", "¼öÇ÷ÆÈÂî È®ÀÎÇÔ, ¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ" + "\n" + "¼öÇ÷ÀÌ ¿Ï·áµÉ ¶§±îÁö 30ºÐ¸¶´Ù ȯÀÚ »óŸ¦ °üÂûÇÏ°í È®ÀÎÇÑ´Ù." + "\n" + "º»ÀÎÈ®ÀÎ Ç÷¾×Çü È®ÀÎÇÔ");
  }
  //model.makeValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnsrec", "¼öÇ÷ÆÈÂî È®ÀÎÇÔ, ¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ" + "\n" + "¼öÇ÷ÀÌ ¿Ï·áµÉ ¶§±îÁö 30ºÐ¸¶´Ù ȯÀÚ »óŸ¦ °üÂûÇÏ°í È®ÀÎÇÑ´Ù." + "\n" + "º»ÀÎÈ®ÀÎ Ç÷¾×Çü È®ÀÎÇÔ");		//¼öÇ÷ºÎÀÛ¿ë ¼³¸íÇÔ Ãß°¡_20090327_SMY
  
  model.makeValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/transferyn","N"); // 150309 - AYS
  model.makeValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher","N"); // 150908 - AYS
  
  // '15.09.08 - AYS
  caption17.value = "¼öÇ÷½ÃÀÛÀϽÃ";
	caption19.value = "¼öÇ÷½ÃÀÛ °£È£»ç";

  grd_vitalsigngruplist.row = 0;
  grd_vitalsigngruplist.col = 0;
  //model.refresh();
}

/**
 * @group  :
 * @ver    : 2007.08.29
 * @by     : Á¤Âù¼º
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Set¼±ÅÃÀÇ Ç׸ñ ÁöÁ¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fBaseMakeParameter() {
  var param = "";
  rowsep = "¢Ì";
  colsep = "¢Ë";
  
  param = "recflag" + colsep + "dutplaccd" + colsep + "reclnkkey"+ rowsep+"O" + colsep + "12611" + colsep + "12611" + rowsep;
  
  return param;
}


/**
 * @group  :
 * @ver    : 2007.12.29
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇà±â·Ï³»¿ª üũ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCheckExecRec(){
  
  var sRow = grd_blodexecrecgruplist.row;

  var sRowStratTime        = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/fstrgstdt3");
  var sRowEndTime          = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsendddtm");
  var sRowTnsstrnurseid    = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsstrnurseid");
  var sRowTnsendnurseid    = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsendnurseid");
  var sRowSmlqtytnsyn      = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/smlqtytnsyn");
  var sRowTnssideeffectetc = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnssideeffectetc");
  var sRowDiscontinuyn     = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/discontinuyn");  
	var sRowPrcpcd  			   = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/prcpcd");	// 170331_AYS_ó¹æÄÚµå µ¿½Ã È®ÀÎ

  if( model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/stat") == "true"){
    
    for(var i = 1 ; i < grd_blodexecrecgruplist.rows ; i++ ){
      model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/stat" , 'false');
    
      if(  model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/fstrgstdt3")       == sRowStratTime        && 
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsendddtm")       == sRowEndTime          &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsstrnurseid")    == sRowTnsstrnurseid    &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsendnurseid")    == sRowTnsendnurseid    &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/smlqtytnsyn")      == sRowSmlqtytnsyn      &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnssideeffectetc") == sRowTnssideeffectetc &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/discontinuyn")     == sRowDiscontinuyn     &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/prcpcd")  			   == sRowPrcpcd      			   ){	// 170331_AYS_ó¹æÄÚµå µ¿½Ã È®ÀÎ
         model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/stat" , 'true');
      }
    }
    
    fOtherRecListUncheck("exec");

  } else if( model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/stat") == "false"){
    
    for(var i = 1 ; i < grd_blodexecrecgruplist.rows ; i++ ){
    
      if( i != sRow  &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/fstrgstdt3")       == sRowStratTime        && 
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsendddtm")       == sRowEndTime          &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsstrnurseid")    == sRowTnsstrnurseid    &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnsendnurseid")    == sRowTnsendnurseid    &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/smlqtytnsyn")      == sRowSmlqtytnsyn      &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/tnssideeffectetc") == sRowTnssideeffectetc &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/discontinuyn")     == sRowDiscontinuyn     &&
         model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/prcpcd")  			   == sRowPrcpcd      			   ){	// 170331_AYS_ó¹æÄÚµå µ¿½Ã È®ÀÎ
         model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/stat" , 'false');
      }
    }

  }
  
  grd_blodexecrecgruplist.refresh();
  
}

/**
 * @group  :
 * @ver    : 2007.12.29
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾×¹øÈ£ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fFindBlod(){
  var sCheckBold = ipt_blodno.currentText;
    
  var frow1 = "";
  var frow2 = "";
  var frow3 = "";
  
  // Ç÷¾×ºÒÃâ³»¿ª Á¶È¸
      frow1 = grd_blodreturnreqgruplist.findRow(sCheckBold, 1, 2);
      grd_blodreturnreqgruplist.row = frow1;
      grd_blodreturnreqgruplist.topRow = frow1;
  
  // ¹Ì¼öÇà±â·Ï¸ñ·Ï Á¶È¸
      frow2 = grd_blodnoexecrecgruplist.findRow(sCheckBold, 1, 2);
      grd_blodnoexecrecgruplist.row = frow2;
      grd_blodnoexecrecgruplist.topRow = frow2;
  
  // ¼öÇà±â·Ï ³»¿ª Á¶È¸
      frow3 = grd_blodexecrecgruplist.findRow(sCheckBold, 1, 4);
      grd_blodexecrecgruplist.row = frow3;
      grd_blodexecrecgruplist.topRow = frow3;
    if(frow1 < 0 && frow2 < 0 && frow3 < 0){
      messageBox("°Ë»ö µÈ Ç÷¾×ÀÌ ¾ø½À´Ï´Ù.", "I");
      return;
    }
}

/**
 * @group  :
 * @ver    : 2007.12.29
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇà±â·Ï³»¿ª ´õºíŬ¸¯ À̹êÆ® ó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCheckExecRecDBclick(){
	//debugger;  
  if(grd_blodexecrecgruplist.row < 1){
    return;
  }
  
  for(var i=1 ; i < grd_blodexecrecgruplist.rows ; i++){
    model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ i +"]/stat" , 'false');
  }

  var iRow = grd_blodexecrecgruplist.Row ;
  model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ iRow +"]/stat", 'true');
  
  fOtherRecListUncheck("exec");
  
  grd_blodexecrecgruplist.refresh();
  
  //fBlodExecRecDetlinfo();// ¼öÇà±â·Ï³»¿ª »ó¼¼Á¤º¸     
  //fTnsRecInit();      
  fExecRecBottom();
  fVitalSignList();// vital sign List
}


/**
 * @group  :
 * @ver    : 2007.12.29
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇà±â·Ï³»¿ª ´õºíŬ¸¯À¸·Î ¼öÇ÷°£È£±â·Ï¿¡ Seeting ó¸®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fExecRecBottom(){
  var sRowCnt = grd_blodexecrecgruplist.rows-grd_blodexecrecgruplist.fixedrows;   
  var cnt = 0 ;

  model.removenode("/root/send");
  model.makeValue("/root/send/detlgrup",grd_blodexecrecgruplist.getupdatedataAll("i"));
  
  var blodno = "" ;
  var prcpnm = "" ;
  var aborh = "" ;
  var prcpdelivefact = "" ;
  var iRow = "";
  var chkreqcnt = 0;
  var signno = "";
  var prcpno = "";
  var duplreccheck = false ;
  var discontinuyn = "";
  sFlagChkYN = "N";
  
  /* ¹Ì¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ½ÃÀÛ */

  for(var i=1; i<= sRowCnt; i++){
//    alert(grd_blodnoexecrecgruplist.labelmatrix(i, 1));

    if( grd_blodexecrecgruplist.labelmatrix(i, 1) == "true" ) {
      blodno += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("blodno")) + "," ;
      prcpnm += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("prcpnm")) + "," ;
      aborh  += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("abo"))
              + grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("rh"))     + "," ;
      prcpdelivefact += grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("prcpdelivefact")) + "," ;
      signno += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("signno")) + "," ;      
      prcpno += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("prcpno")) + "," ;
      discontinuyn += grd_blodexecrecgruplist.labelmatrix(i, grd_blodexecrecgruplist.colRef("discontinuyn")) + "," ;
      if(iRow == ""){
        iRow = i ;
      }
      
      cnt = cnt + 1;
    }
  }

  if(cnt < 1){
    messageBox("¼±Åà Á¤º¸°¡ ","I004");
    return false; 
  }

  /* ¼öÇà±â·Ï ¸ñ·Ï ¼±Åà µÇ¾î ÀÖ´ÂÁö üũ ³¡ */

  var blodnodupSource =  blodno.substr(0,blodno.length-1).split(",");
  var prcpnodupSource =  prcpno.substr(0,prcpno.length-1).split(",");
//  alert(blodnodupSource);


  /* ¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ½ÃÀÛ */


  for(var i=0; i<= blodnodupSource.length; i++){
//    alert(grd_blodnoexecrecgruplist.labelmatrix(i, 1));

    for(var n=0; n<= grd_blodnoexecrecgruplist.rows; n++){
      if( blodnodupSource[i] ==  model.getValue(xBlodExecRecGrupListPath+"["+n+"]/blodno") &&
          prcpnodupSource[i] ==  model.getValue(xBlodExecRecGrupListPath+"["+n+"]/prcpno") ) {
        duplreccheck = true ;
      }
    }
  }
  
  btn_init.disabled = true;//20100415 khj ¼öÇà±â·Ï³»¿ª¿¡¼­ ³Ñ±ä°æ¿ì ÃʱâÈ­¹öÆ°ºñÈ°¼ºÈ­
  
  btn_certsave.disabled = false;
  //btn_deltemprec.disabled = true;
  var sChkSign = signno.split(",");
  var sChkDiscontinuyn = discontinuyn.split(",");
  for(var i=0 ; i < sChkSign.length-1 ; i++){
    if(sChkSign[i] == "" ){
      btn_tempsave.disabled = false;
      if(sChkDiscontinuyn[i]== "N"){
        btn_deltemprec.disabled = false;
      }
    }
  }
  
  for(var i=0; i<= blodnodupSource.length; i++){
//    alert(grd_blodnoexecrecgruplist.labelmatrix(i, 1));

    for(var n=1; n<= grd_blodreturnreqgruplist.rows; n++){
      if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") && 
          prcpnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/prcpno") ) {
        if(model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflagstat") == "Y" && model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflag") == "2"){
          chkreqcnt = chkreqcnt + 1;
        }
        
//        //¹Ý³³Æó±â ±¸ºÐ¿¡ Á¤º¸°¡ ÀÖÀ» °æ¿ì ±â·Ï »èÁ¦ ¹öÆ° ºñÈ°¼ºÈ­->  20100415 ±èÈ«Á¡ Æó±âÈ®Á¤Àü±îÁö´Â È°¼ºÈ­ÇÏ°í ¸Þ½ÃÁö Æ˾÷
//        if(model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflag") != ""){
//          btn_deltemprec.disabled = true;   
//        }
      }
    }
  }
  
  if(chkreqcnt > 0 ){
    rdo_discontinuyn.disabled = true;
    cmb_discontinu.disabled = true;
    chk_smlqtytnsyn.disabled = true;
    ipt_etc.disabled = true;
    ipt_drugqty.disabled = true;
    ipt_onepintqty.disabled = true;
    btn_deltemprec.disabled = true;   
    messageBox("Æó±â È®Á¤ Ç÷¾×Àº »çÀ¯ º¯°æÀ» ÇÒ ¼ö ¾ø½À´Ï´Ù.","I");
    sFlagChkYN = "Y";
  } else {
    //¼öÇ÷Áß´ÜNÀΰæ¿ì ±â·Ï»èÁ¦¹öÆ° È°¼ºÈ­ 20100415 khj 12061
    //ÀÜ¿©Æó±âÀǷڰǵµ ¹öÆ°Àº È°¼ºÈ­ ÈÄ ¸Þ½ÃÁö Æ˾÷
    btn_deltemprec.disabled = false;
    ipt_onepintqty.disabled = false;   
  }

  /* ¼öÇà³»¿ª ±â·Ï¹öÆ°½Ã Áߺ¹ üũ ³¡ */

//  alert(blodno.substr(0,blodno.length-1));

//  if( duplreccheck ){// Áߺ¹±â·Ï üũ
//    messageBox("¼öÇà±â·ÏµÈ Ç÷¾×À» Áߺ¹À¸·Î ±â·ÏÇÒ¼ö ","I004");
//    return; 
//  };

//  fClearChildNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist");
  
//  model.refresh();  

  model.setValue(cap_blodno.attribute("ref"), blodno.substr(0,blodno.length-1) );
  model.setValue(cap_blodnm.attribute("ref"), prcpnm.substr(0,prcpnm.length-1) );
  model.setValue(cap_aborh.attribute("ref"), aborh.substr(0,aborh.length-1) );
  model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno", prcpno.substr(0,prcpno.length-1));
  model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno", signno.substr(0,signno.length-1) );
  
//alert(instance1.selectSingleNode(xBlodExecRecGrupListPath).xml);

//  model.setValue(cap_blodno.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/blodno"));
//  model.setValue(cap_blodnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpnm"));
//  model.setValue(cap_aborh.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/abo") + model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/rh") );
  
  model.setValue(ipt_fromdd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(0,8));
  model.setValue(ipt_fromtm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrddtm").substring(8,12));

  model.setValue(ipt_todd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(0,8));
  model.setValue(ipt_totm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm").substring(8,12));
  
  //20100415 12061 khj ¼öÇ÷Á¾·áÀϽÃÀÔ·ÂµÈ ±â·ÏÀº ÀÓ½ÃÀúÀå¹öÆ°È°¼ºÈ­, ¼öÇ÷Áß´ÜNÀΰæ¿ì ±â·Ï»èÁ¦¹öÆ° È°¼ºÈ­
  
  if ( !isNull(model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendddtm")) ){
      btn_tempsave.disabled = true;
  }else{
      btn_tempsave.disabled = false;  
  }
  model.setValue(opt_fromdeptnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm"));
  model.setValue(opt_fromusernm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm"));
  model.setValue(opt_todeptnm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm"));

  model.setValue(opt_tousernm.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm"));
  //model.setValue(cmb_tnssideeffect.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnssideeffect"));
  model.setValue(chk_tnssideeffect.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnssideeffect"));
  model.setValue(ipt_tnssideeffectetc.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnssideeffectetc"));
  
  model.setValue(ipt_prcpdelivefact.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/prcpdelivefact"));
  model.setValue(rdo_discontinuyn.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinuyn"));
  //rdo_discontinuyn.disabled = true;
  //cmb_discontinu.disabled = true;
  model.setValue(cmb_discontinu.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinu"));
  model.setValue(ipt_etc.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/discontinuetc"));

  model.setValue(ipt_onepintqty.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/onepintqty"));
  fSumQtyCalc(model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/drugqty"));// ÃÑÅõ¿©·® °è»ê onepintqty * Ç÷¾×°¹¼ö 20100415 khj

  model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnscarerecseq", model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnscarerecseq"));
  
  //model.setValue(ipt_drugqty.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/drugqty"));
  model.setValue(textarea1.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsrec"));
  model.setValue(opt_instcd.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/instcd"));
  model.setValue(chk_smlqtytnsyn.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/smlqtytnsyn"));
  model.setValue(chk_tprlnkyn.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tprlnkyn"));
  
  // 15.04.28 - AYS
  model.setValue(bol_transferyn.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/transferyn"));
  // '15.09.08 - AYS Ãß°¡
  model.setValue(bol_nonactpher.attribute("ref"), model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/nonactpher"));
  
  // 15.11.27 ¼ººÐäÁý½Ç, Àü¿ø ±â·ÏÀº ÀÓ½ÃÀúÀå¹öÆ°È°¼ºÈ­ ±â·Ï»èÁ¦¹öÆ° È°¼ºÈ­
  if ( model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/transferyn") == 'Y' || model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/nonactpher") == 'Y' ){
      btn_tempsave.disabled = true;
  }else{
      btn_tempsave.disabled = false;  
  }
	// 15.11.27 ¼ººÐäÁý½Ç, Àü¿ø ±â·ÏÀº ÀÓ½ÃÀúÀå¹öÆ°È°¼ºÈ­ ±â·Ï»èÁ¦¹öÆ° È°¼ºÈ­
  
  model.setValue(opt_tnsstrnursall.attribute("ref"), 
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnurseid")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursenm")+","+","+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptnm")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsstrnursedeptcd"));

  model.setValue(opt_tnsendnursall.attribute("ref"), 
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnurseid")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursenm")+","+","+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptnm")+","+
  model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnsendnursedeptcd"));

  if(sFlagChkYN == "N"){
    if(rdo_discontinuyn.value=='Y'){
      rdo_discontinuyn.disabled = true;
      //chk_smlqtytnsyn.disabled = true ; 
      if(chk_smlqtytnsyn.value == 'Y'){
        chk_smlqtytnsyn.disabled = false ;    
        cmb_discontinu.disabled = true ;
      }else{
        chk_smlqtytnsyn.disabled = false ;    
        cmb_discontinu.disabled = false ;
        if (cmb_discontinu.value.substring(3,5) == "99") {
          ipt_etc.disabled = false ;
        }
      }
    }else{
      rdo_discontinuyn.disabled = false;
      cmb_discontinu.disabled = true;
      chk_smlqtytnsyn.disabled = true ; 
      ipt_etc.disabled = true ;
    }
  }
  
  // '15.09.08 Ãß°¡ - AYS
  if(model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/nonactpher") == "Y"){
  	caption17.value = "ȯÀÚ º¸³½ÀÏÀÚ";
		caption19.value = "´ã´ç °£È£»ç";
	} else{
		caption17.value = "¼öÇ÷½ÃÀÛÀϽÃ";
		caption19.value = "¼öÇ÷½ÃÀÛ °£È£»ç";
	}
  	
  
  //¼öÇ÷ºÎÀÛ¿ë ±âŸ»çÇ× ÀÔ·Ââ disabled ¼³Á¤
  /*
  var sItem = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnssideeffect");
  var sItemList = sItem.split(" ");
  var chkYN = "N";
  
  for(var i = 0 ; i < sItemList.length ; i ++){
    if(sItemList[i] == "07"){
      chkYN = "Y";
    }
  }
  
  if(chkYN == "Y"){
    ipt_tnssideeffectetc.disabled = false;  
  }else{
    ipt_tnssideeffectetc.value = "";  
    ipt_tnssideeffectetc.disabled = true; 
  }     

  //model.refresh();
  
  */
  fSelctTnssideEffect("Y");		//20100126_SMY
  

  var sRowCnt2 = grd_blodnoexecrecgruplist.rows-grd_blodnoexecrecgruplist.fixedrows;
  
  for(var i=1; i<= sRowCnt2; i++){ // ¼±ÅÃÇÑ °ªÀÌ ºÒÃâ½Åû »óÅÂÀÎÁö üũ
    grd_blodnoexecrecgruplist.textmatrix(i, 1) = "FALSE" ;
  }
  return true;
}

/**
 * @group  :
 * @ver    : 2007.07.16
 * @by     : Á¤Âù¼º 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  ¼öÇ÷ ¼öÇà ³»¿ª¿¡¼­ ´õºíŬ¸¯ ÇßÀ»¶§, vital sign ¸®½ºÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fVitalSignList(){
  var sRowCnt = grd_blodexecrecgruplist.rows-grd_blodexecrecgruplist.fixedrows;   
  var iRow = "";

  for(var i=1; i<= sRowCnt; i++){

    if( grd_blodexecrecgruplist.labelmatrix(i, 1) == "true" ) {
      if(iRow == ""){
        iRow = i ;
      }
    }
  }
  
  model.removenode("/root/send");
  model.makeValue("/root/send/tnscarerecseq",model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/tnscarerecseq"));  
  model.makeValue("/root/send/pid",model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/pid"));  
  model.makeValue("/root/send/instcd",model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/instcd"));  
  model.makeValue("/root/send/blodno",model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/blodno"));    
  model.makeValue("/root/send/ioparam", ioparam);
  model.refresh();  
  
  if(submit("TRMNR01025", false)){
    model.removenodeset("/root/main/cond/vitalsigngrup/vitalsigngruplist");
    model.copyNode("/root/main/cond/vitalsigngrup", "/root/temp/vitalsigngrup");
    
    if(model.getValue(xBlodExecRecGrupListPath+"["+iRow+"]/signno") != ""){
    	model.copyNode("/root/main/cond/vitalsigngrup", "/root/hidden/vitalsigngrup");
    }else{
	    for(var i = 1 ; i <= getNodesetCount("/root/hidden/vitalsigngrup/vitalsigngruplist") ; i ++){
	      insIndex = model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/tnscarerecvsseq");
	
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/stat"           , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/stat"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/recdd"          , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/recdd"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/rectm"          , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/rectm"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/flag"           , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/flag"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/bp"             , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/bp"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/pulse"          , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/pulse"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/breth"          , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/breth"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/bdtp"           , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/bdtp"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/tnscarerecseq"  , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/tnscarerecseq"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/tnscarerecvsseq", model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/tnscarerecvsseq"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/instcd"         , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/instcd"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/blodno"         , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/blodno"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/pid"            , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/pid"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/prcpcd"         , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/prcpcd"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/sbp"            , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/sbp"));
	      model.setValue("/root/main/cond/vitalsigngrup/vitalsigngruplist["+insIndex+"]/dbp"            , model.getValue("/root/hidden/vitalsigngrup/vitalsigngruplist["+i+"]/dbp"));
	    }
	  }
  }
  grd_vitalsigngruplist.refresh();
}

/**
 * @group  :
 * @ver    : 2008.01.10
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   :  º¸°ü°Ëü¹ÙÄÚµå Ãâ·Â 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fKeepBcnoPrint(){

  var pid = model.getvalue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid");
  
  if(pid=="") {
    messageBox("µî·Ï¹øÈ£¸¦", "C001");
    model.setfocus("ipt_pid");
    return; 
  }
  
  model.removeNodeset("/root/send/data1");
  model.makeValue("/root/send/data1" , pid);
  
  submit("TRLLC80101");
  
  if(getNodesetCount("/root/main/KeepBcnoPrint/printinfo") > 0){
    //fKeLabel();
    var prtkind = model.getvalue("/root/main/barcdprntsetup/prntsetupinfo/setupinfo/prntkind"); // ÇÁƾÅÍÁ¾·ù Ãß°¡_20090522(ByJA)
    var portnm = model.getvalue("/root/main/barcdprntsetup/prntsetupinfo/setupinfo/commkind"); 
    if( (prtkind == "9" && portnm == "01") || (prtkind == "11" && portnm == "01") || prtkind == "10" || prtkind == "2" || prtkind == "6" || prtkind == "7"){  // SATOÀÏ °æ¿ì Ãß°¡_20090522(ByJA)
    	fKeLabel2("/root/main/KeepBcnoPrint/printinfo", 1);  // liscommonweb/js/LLZ001.js
    }else{
    	fKeLabel ("/root/main/KeepBcnoPrint/printinfo", 1);  // liscommonweb/js/LLZ001.js
    }
  }
  
  //20101228_KNUH_Start
  /*
  var scrid = getScreenID();
		var pid = "";
		var toppid = "";

		//äÇ÷¹öÆ° Ŭ¸¯ÇÏ¿© º¸°ü°Ëü Ãâ·Â½Ã¿£ ¼±ÅÃµÈ È¯ÀÚ ¸ñ·Ï¿¡¼­ ȯÀÚ ¾ÆÀ̵𠰡Á®¿È. 2008.12.04 ±è¼ºÈñ ¼öÁ¤. 
		if(flag == "B"){
			pid = model.getValue(ipt_pid.attribute("ref"));	
		}else{
			toppid = getPatientInfo("pid");
			//top Á¤º¸°¡ ¾øÀ¸¸é Á¶È¸Á¶°Ç¿¡ ÀÔ·ÂÇÑ È¯ÀÚ¹øÈ£
			if(toppid == ""){
				pid = model.getValue("/root/hidden/JoHoiFlag/regnopatnm");
			//top Á¤º¸°¡ ÀÖÀ¸¸é žÁ¤º¸ÀÇ È¯ÀÚ¹øÈ£
			}else{
				pid = toppid;
			}
		}
		
		if(pid=="") return;
		
		model.removeNodeset("/root/send/data1");
		
		model.makeValue("/root/send/data1" , pid);
		
		submit("TRLLC80101");
		
		if(getNodesetCount("/root/main/KeepBcnoPrint/printinfo") > 0){
			var prtkind = model.getvalue("/root/main/barcdprntsetup/prntsetupinfo/setupinfo/prntkind");
			var portnm = model.getvalue("/root/main/barcdprntsetup/prntsetupinfo/setupinfo/commkind");
						
				if( (prtkind == "9" && portnm == "01") || (prtkind == "11" && portnm == "01") || prtkind == "10" || prtkind == "2" || prtkind == "6" || prtkind == "7"){
					if((flag == "B") && (scrid == "SMLLC00100")) { //¿Ü·¡Ã¤Ç÷À϶§
						LCount = getNodesetCount("/root/main/TestInfo/barcodeinfo"); //Áø°Ë¹ÙÄÚµå °¹¼ö
						
						fKeLabel2("/root/main/KeepBcnoPrint/printinfo", LCount);//portopenÀ» ³Ñ±â±â À§ÇØ
					} else if ((flag == "B") && (scrid != "SMLLC00100")){ //º´µ¿Ã¤Ç÷ ¹× ȯÀÚº°Ã¤Ç÷À϶§
						fKeLabel2("/root/main/KeepBcnoPrint/printinfo", "P"); //portopenÀ» ³Ñ±â±â À§ÇØ
					} else {//äÇ÷ÀÌ ¾Æ´Ò¶§..
						//º¸°ü°Ëü Ãâ·Â
						fKeLabel2("/root/main/KeepBcnoPrint/printinfo");
					}
				}else if(prtkind == "8"){ // ¿©Àǵµ B472 
					if((flag == "B") && (scrid == "SMLLC00100")) { //¿Ü·¡Ã¤Ç÷À϶§
						LCount = getNodesetCount("/root/main/TestInfo/barcodeinfo"); //Áø°Ë¹ÙÄÚµå °¹¼ö
						
						fKeLabel_B472("/root/main/KeepBcnoPrint/printinfo", LCount);//portopenÀ» ³Ñ±â±â À§ÇØ
					} else if ((flag == "B") && (scrid != "SMLLC00100")){ //º´µ¿Ã¤Ç÷ ¹× ȯÀÚº°Ã¤Ç÷À϶§
						fKeLabel_B472("/root/main/KeepBcnoPrint/printinfo", "P"); //portopenÀ» ³Ñ±â±â À§ÇØ
					} else {//äÇ÷ÀÌ ¾Æ´Ò¶§..
						//º¸°ü°Ëü Ãâ·Â
						fKeLabel_B472("/root/main/KeepBcnoPrint/printinfo");
					}
				}else{
					if((flag == "B") && (scrid == "SMLLC00100")) { //¿Ü·¡Ã¤Ç÷À϶§
						LCount = getNodesetCount("/root/main/TestInfo/barcodeinfo"); //Áø°Ë¹ÙÄÚµå °¹¼ö
						
						fKeLabel("/root/main/KeepBcnoPrint/printinfo", LCount);//portopenÀ» ³Ñ±â±â À§ÇØ
					} else if ((flag == "B") && (scrid != "SMLLC00100")){ //º´µ¿Ã¤Ç÷ ¹× ȯÀÚº°Ã¤Ç÷À϶§
						fKeLabel("/root/main/KeepBcnoPrint/printinfo", "P"); //portopenÀ» ³Ñ±â±â À§ÇØ
					} else {//äÇ÷ÀÌ ¾Æ´Ò¶§..
						//º¸°ü°Ëü Ãâ·Â
						fKeLabel("/root/main/KeepBcnoPrint/printinfo");
					}
				}
		}
  */
}


/*
function fKeLabel(){
  var ref = "/root/main/KeepBcnoPrint/printinfo";
  
  var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
  var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
  
  var sSndMsg = "";
  
  if (sPrntKind == 0) return;
  
  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");;
    CommAX.CommPort = sComm;
    CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
      CommAX.PortOpen();
  } else if(sCommKind == "03") {
    var sSetUpVal = model.getValue(barcdRef + "[1]/comm03/setupval");
  }
  
  var sStr = "º¸°ü°Ëü";
  var sRoomcd =  model.getvalue(ref +"/roomcd");
  var sPid =  model.getvalue(ref +"/pid");
  var sPatnm =  model.getvalue(ref +"/patnm");
  var sPatsexage =  model.getvalue(ref +"/patsex") + "/" + model.getvalue(ref +"/patage");
  var sOrddeptNm=  model.getvalue(ref +"/orddeptnm").substring(0,2);
  var sBtype =  model.getvalue(ref +"/btype");
  var sBcollNm =   "äÇ÷ÀÚ:" ;//+  model.getvalue(ref +"/bcollnm");
  var sDt =  model.getvalue(ref +"/dt");
  var sPidW = 85;
  var sBarcodeW = 130;
  var sBtypeW = 50;
  
  
  if(sPid.length == 10){
    //sPidW = 75;
    sBarcodeW = 90;
    sBtypeW = 20
  }
  if(sPrntKind == "1") {
    
    sSndMsg += lzzfBP_StartFormat(0, 20); // ½ÃÀÛÀ§Ä¡ ¼ÂÆÃ
    
    sSndMsg += CommAX.PrtImgOut("GRAPH001", sStr); 
    sSndMsg += lzzfBP_FiendOrigin(20, 2);
    sSndMsg += "^XGGRAPH001,1,1^FS";
    
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(200, 20, sRoomcd); 
            
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(30, 55, sPid);
    
    sSndMsg += CommAX.PrtImgOut("GRAPH004", sPatnm); 
    sSndMsg += lzzfBP_FiendOrigin(210, 50);
    sSndMsg += "^XGGRAPH004,2,1^FS";
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(265, 25, sPatsexage);
    
    sSndMsg += CommAX.PrtImgOut("GRAPH006", sOrddeptNm); 
    sSndMsg += lzzfBP_FiendOrigin(340, 20);
    sSndMsg += "^XGGRAPH006,1,1^FS";
    
    sSndMsg += CommAX.PrtImgOut("GRAPH007", sBcollNm); 
    sSndMsg += lzzfBP_FiendOrigin(230, 230);
    sSndMsg += "^XGGRAPH007,1,1^FS";
    
    sSndMsg += lzzfBP_ChangeFont("C", 85, 20); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(sBtypeW, 110, sBtype);
            
    sSndMsg += lzzfBP_ChangeFont("F", 1, 1);
    sSndMsg += lzzfBP_BarCode_Code39(sBarcodeW, 100, "N", 100, sPid); // ¹ÙÄÚµå
    
    sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(205, 205, "*"+sPid+"*");
    
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(20, 240, sDt);
    
    sSndMsg += lzzfBP_EndFormat();
    
    if(sCommKind == "01") {
        CommAX.SendMessageToLPT(sSndMsg);
      } else if(sCommKind == "02") {
        CommAX.SendMessage(sSndMsg);
      }

    //CommAX.SendMessageToLPT(sSndMsg);
    
  }
}
*/

/*
function fKeLabel(){
  var ref = "/root/main/KeepBcnoPrint/printinfo";
  
  var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
  var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
  
  var sSndMsg = "";
  
  if (sPrntKind == 0) return;
  
  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");;
    CommAX.CommPort = sComm;
    CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
  } else if(sCommKind == "03") {
    var sSetUpVal = model.getValue(barcdRef + "[1]/comm03/setupval");
  }
  
  var sStr = "º¸°ü°Ëü";
  var sRoomcd =  model.getvalue(ref +"/roomcd");
  var sPid =  model.getvalue(ref +"/pid");
  var sPatnm =  model.getvalue(ref +"/patnm");
  var sPatsexage =  model.getvalue(ref +"/patsex") + "/" + model.getvalue(ref +"/patage");
  var sOrddeptNm=  model.getvalue(ref +"/orddeptnm").substring(0,2);
  var sBtype =  model.getvalue(ref +"/btype");
  var sBcollNm =   "äÇ÷ÀÚ:" ;//+  model.getvalue(ref +"/bcollnm");
  var sDt =  model.getvalue(ref +"/dt");
  var sPidW = 85;
  var sBarcodeW = 130;
  var sBtypeW = 30; 
  
  if(sPid.length == 10){
    sBarcodeW = 90;
    sBtypeW = 20
  }
  if(sPrntKind == "1") {
    
    sSndMsg += lzzfBP_StartFormat(0, 1); // ½ÃÀÛÀ§Ä¡ ¼ÂÆÃ
        
    sSndMsg += CommAX.PrtImgOut(20, 2, sStr, 1, 1);     //°¡·Î½ÃÀÛÀ§Ä¡, ¼¼·Î½ÃÀÛÀ§Ä¡, Ãâ·ÂÇÒ¹®ÀÚ¿­, 1,1 (ºñÀ²)
    sSndMsg += CommAX.HanImageData();   
  
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(200, 20, sRoomcd); 
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(30, 55, sPid);
        
    sSndMsg += CommAX.PrtImgOut(210, 50, sPatnm, 2, 1);     //°¡·Î½ÃÀÛÀ§Ä¡, ¼¼·Î½ÃÀÛÀ§Ä¡, Ãâ·ÂÇÒ¹®ÀÚ¿­, 1,1 (ºñÀ²)
    sSndMsg += CommAX.HanImageData();       
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(265, 25, sPatsexage);
    
    sSndMsg += CommAX.PrtImgOut(340, 20, sOrddeptNm, 1, 1);     //°¡·Î½ÃÀÛÀ§Ä¡, ¼¼·Î½ÃÀÛÀ§Ä¡, Ãâ·ÂÇÒ¹®ÀÚ¿­, 1,1 (ºñÀ²)
    sSndMsg += CommAX.HanImageData();     
    
    
    sSndMsg += CommAX.PrtImgOut(230, 230, sBcollNm, 1, 1);     //°¡·Î½ÃÀÛÀ§Ä¡, ¼¼·Î½ÃÀÛÀ§Ä¡, Ãâ·ÂÇÒ¹®ÀÚ¿­, 1,1 (ºñÀ²)
    sSndMsg += CommAX.HanImageData();       

    sSndMsg += lzzfBP_ChangeFont("C", 85, 20); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(sBtypeW, 110, sBtype);
            
    sSndMsg += lzzfBP_ChangeFont("F", 1, 1);
    sSndMsg += lzzfBP_BarCode_Code39(sBarcodeW, 100, "N", 100, sPid); // ¹ÙÄÚµå
    
    sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(205, 205, "*"+sPid+"*");
    
    
    sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ÆùÆ® ¼³Á¤
    sSndMsg += lzzfBP_FieldDataA(20, 240, sDt);
    
    sSndMsg += lzzfBP_EndFormat();
    
    if(sCommKind == "01") {
        CommAX.SendMessageToLPT(sSndMsg);
      } else if(sCommKind == "02") {
            var portOpenTF = "";  //¿ÀÇ ¼º°ø ¿©ºÎ

      portOpenTF = CommAX.PortOpen("true");     
      if(portOpenTF == "TRUE"){       
          CommAX.SendMessage(sSndMsg);
          CommAX.PortOpen("false");
        } else {
        messageBox("¾Æ·¡ »çÇ×À» È®ÀÎÈÄ ÀçÃâ·ÂÇØÁֽʽÿÀ."
                     + " \n 1.ÇÁ¸°Æ®¼³Á¤ È­¸é¿¡¼­ Åë½ÅÀ¯ÇüÀ» com À¸·Î ¼±ÅÃÇÑ °æ¿ì port ¹øÈ£ È®ÀÎ"
                     + " \n 2.ÄÉÀ̺í È®ÀÎ"
                     + " \n 3.¸ÕÀú Ãâ·ÂÁßÀÎ ¹ÙÄÚµå È®ÀÎ(¸ðµÎ Ãâ·ÂµÈ ÈÄ ÀçÃâ·ÂÇϽʽÿÀ.)", "I", "");
          return;       
        }
        
      }   
  }
}
*/

/**
 * @group  :
 * @ver    : 2008.01.16
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷Á¾·áÀÏÀÚ, ¼öÇ÷Á¾·áÀϽà À¯È¿¼º üũ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fCheckTnsEndDt(pFlag, pData){
  var crtDate = getCurrentDate();
  var crtTime = getCurrentTime().substr(0,4);
  var sChkStrData = "";
  var sChkEndData = "";
  var fRow = "";
  
  for(var i = 1 ; i <= getNodesetCount("/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist") ; i++){
    if( grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("stat")) == "true"){
      fRow = grd_blodreturnreqgruplist.findRow( grd_blodnoexecrecgruplist.labelmatrix(i, grd_blodnoexecrecgruplist.colRef("blodno") ) , 1, grd_blodreturnreqgruplist.colRef("blodno"), false, false);
      if(sChkStrData == "" ){
        sChkStrData = grd_blodreturnreqgruplist.valuematrix(fRow, grd_blodreturnreqgruplist.colRef("fstdelive2"));
      }else{
        if(sChkStrData < grd_blodreturnreqgruplist.valuematrix(fRow, grd_blodreturnreqgruplist.colRef("fstdelive2")) ){
          sChkStrData = grd_blodreturnreqgruplist.valuematrix(fRow, grd_blodreturnreqgruplist.colRef("fstdelive2"));
        }
      }
    }
  }
  
  if(pFlag =="SD"){
    if(isValidDateTime(pData, "YYYYMMDD") == false){
      messageBox("ÀÔ·ÂÇÑ ÀÏÀÚ´Â À¯È¿ÇÏÁö","E007");  
      ipt_fromdd.value = crtDate;
    }else if(sChkStrData.substr(0,8) > pData ) {
      messageBox("½ÃÀÛÀÏÀÚ´Â ºÒÃâÀϺ¸´Ù ÀÌÀüÀÏ ¼ö ¾ø½À´Ï´Ù.","E");  
      ipt_fromdd.value = crtDate;
    }else{
      ipt_fromdd.value = pData;
    }
    
    var trsfsdt =  getDateAddcTm(ipt_fromdd.value+ipt_fromtm.value, 15);
    var trsfsdt2 =  getDateAddcTm(ipt_fromdd.value+ipt_fromtm.value, 30);
    grd_vitalsigngruplist.valuematrix(1,grd_vitalsigngruplist.colRef("recdd")) = ipt_fromdd.value ;
    grd_vitalsigngruplist.valuematrix(1,grd_vitalsigngruplist.colRef("rectm")) = ipt_fromtm.value ;                             
    grd_vitalsigngruplist.valuematrix(2, grd_vitalsigngruplist.colRef("recdd")) = trsfsdt.substr(0,8) ;
    grd_vitalsigngruplist.valuematrix(2, grd_vitalsigngruplist.colRef("rectm")) = trsfsdt.substr(8, 12) ; 
    grd_vitalsigngruplist.valuematrix(3, grd_vitalsigngruplist.colRef("recdd")) = trsfsdt2.substr(0,8) ;
		grd_vitalsigngruplist.valuematrix(3, grd_vitalsigngruplist.colRef("rectm")) = trsfsdt2.substr(8, 12) ;		  
  }
  
  if(pFlag =="ST"){
    if(ipt_fromdd.value == ""){
      messageBox("½ÃÀÛ ÀÏÀÚ¸¦ ¸ÕÀú ÀÔ·Â ÇϽʽÿä","E"); 
      ipt_fromtm.value = "";
      model.setfocus("ipt_fromdd");     
    }else if(isValidDateTime(pData, "hhmm") == false){
      messageBox("ÀÔ·ÂÇÑ ½Ã°£Àº À¯È¿ÇÏÁö","E007");  
      ipt_fromtm.value = crtTime;
    }else if(sChkStrData.substr(0,12) > ipt_fromdd.value + "" + ipt_fromtm.value){
      messageBox("½ÃÀÛÀϽô ºÒÃâÀϽú¸´Ù ÀÌÀüÀÏ ¼ö ¾ø½À´Ï´Ù.","E");  
      ipt_fromdd.value = crtDate;
      ipt_fromtm.value = crtTime;
    }else{
      ipt_fromtm.value = pData;
    }
    
    var trsfsdt =  getDateAddcTm(ipt_fromdd.value+ipt_fromtm.value, 15);
    var trsfsdt2 =  getDateAddcTm(ipt_fromdd.value+ipt_fromtm.value, 30);
    grd_vitalsigngruplist.valuematrix(1, grd_vitalsigngruplist.colRef("recdd")) = ipt_fromdd.value ;
    grd_vitalsigngruplist.valuematrix(1, grd_vitalsigngruplist.colRef("rectm")) = ipt_fromtm.value ;                              
    grd_vitalsigngruplist.valuematrix(2, grd_vitalsigngruplist.colRef("recdd")) = trsfsdt.substr(0,8) ;
    grd_vitalsigngruplist.valuematrix(2, grd_vitalsigngruplist.colRef("rectm")) = trsfsdt.substr(8, 12) ;
    
    if(grd_vitalsigngruplist.valuematrix(1,grd_vitalsigngruplist.colRef("signno")) == ""){
	    grd_vitalsigngruplist.valuematrix(3, grd_vitalsigngruplist.colRef("recdd")) = trsfsdt2.substr(0,8) ;
			grd_vitalsigngruplist.valuematrix(3, grd_vitalsigngruplist.colRef("rectm")) = trsfsdt2.substr(8, 12) ;	
		}
  }
  
  if(pFlag =="ED"){
    if(pData != ""){
      if(isValidDateTime(pData, "YYYYMMDD") == false){
        messageBox("ÀÔ·ÂÇÑ ÀÏÀÚ´Â À¯È¿ÇÏÁö","E007");  
        ipt_todd.value = crtDate;
      }else if(ipt_fromdd.value > pData ){
        messageBox("Á¾·áÀÏÀÚ´Â ½ÃÀÛÀÏÀÚº¸´Ù ÀÌÀüÀÏ ¼ö ¾ø½À´Ï´Ù.","E");  
        ipt_todd.value = crtDate;
      }else{
        ipt_todd.value = pData;
      }
    }
		if(grd_vitalsigngruplist.valuematrix(1,grd_vitalsigngruplist.colRef("signno")) == ""){
			grd_vitalsigngruplist.valuematrix(4,grd_vitalsigngruplist.colRef("recdd")) = ipt_todd.value ;
			grd_vitalsigngruplist.valuematrix(4,grd_vitalsigngruplist.colRef("rectm")) = ipt_totm.value ;	
		}else{
			grd_vitalsigngruplist.valuematrix(3,grd_vitalsigngruplist.colRef("recdd")) = ipt_todd.value ;
			grd_vitalsigngruplist.valuematrix(3,grd_vitalsigngruplist.colRef("rectm")) = ipt_totm.value ;	
		}      
  }
  
  if(pFlag =="ET"){
    if(pData != ""){
      if(ipt_todd.value == ""){
        messageBox("Á¾·á ÀÏÀÚ¸¦ ¸ÕÀú ÀÔ·Â ÇϽʽÿä","E"); 
        ipt_totm.value = "";
        model.setfocus("ipt_todd");
      }else if(isValidDateTime(pData, "hhmm") == false){
        messageBox("ÀÔ·ÂÇÑ ½Ã°£Àº À¯È¿ÇÏÁö","E007");  
        ipt_totm.value = crtTime;
      }else if(ipt_fromdd.value + "" + ipt_fromtm.value > ipt_todd.value + "" + pData){
        messageBox("Á¾·áÀϽô ½ÃÀÛÀϽú¸´Ù ÀÌÀüÀÏ ¼ö ¾ø½À´Ï´Ù.","E");  
        ipt_todd.value = crtDate;
        ipt_totm.value = crtTime;
      }else{
        ipt_totm.value = pData;
      }
    }
		if(grd_vitalsigngruplist.valuematrix(1,grd_vitalsigngruplist.colRef("signno")) == ""){
			grd_vitalsigngruplist.valuematrix(4,grd_vitalsigngruplist.colRef("recdd")) = ipt_todd.value ;
			grd_vitalsigngruplist.valuematrix(4,grd_vitalsigngruplist.colRef("rectm")) = ipt_totm.value ;	
		}else{
			grd_vitalsigngruplist.valuematrix(3,grd_vitalsigngruplist.colRef("recdd")) = ipt_todd.value ;
			grd_vitalsigngruplist.valuematrix(3,grd_vitalsigngruplist.colRef("rectm")) = ipt_totm.value ;	
		}          
  }
}

/**
 * @group  :
 * @ver    : 2008.01.16
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿Ü·¡, ÀÔ¿ø Á¶È¸ ´ë»ó º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fChangeIOflag(sparam, sflag){
    
  var pidblodflag = '';
  if(ipt_pid2.value != ""){
    pidblodflag = 'pid';
  }else if (ipt_blodno.value !="") {
    pidblodflag = 'blod';                   
  }
  
  //if(getPatientInfoDetail("pid") == ""){
  
 	//resetInstanceNode·Î º¯°æ_20090423_SMY
    //model.removenodeset("/root/temp/cond/roomcdgrup");
    //model.removenodeset("/root/temp/cond/patientgrup");
    
    model.resetInstanceNode("/root/temp/cond/roomcdgrup");
    model.resetInstanceNode("/root/temp/cond/patientgrup");
    
    fClearChildNode("/root/main/cond/patientgrupInfo/patientgruplistInfo");
  
    //model.setValue(opt_patientnm.attribute("ref"), "" );
    //model.setValue(opt_sexage1.attribute("ref"), "" );
    //model.setValue(opt_allseq.attribute("ref"), "" );
    //model.setValue(opt_inj.attribute("ref"), "" );
    //model.setValue(opt_signno.attribute("ref"), "" );
    
    cmb_wardcdgruplist2.value = "";
    cmb_wardcdgruplist.value = "";
    model.setValue("/root/temp/cond/wardcdgrup/wardcdgruplist"                      , "");           
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm"  , "");           
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage"     , "");    
  //}

  if(sparam =="1"){
    if(sflag == "O"){
      fParam("OPRC1");            
    }else{                        
      fParam("IPRC1");            
    }                             
    model.removenodeset("/root/main/cond/execdetlgrup/execdetlgruplist");
    model.removenodeset("/root/main/cond/delivedetlgrup/delivedetlgruplist");
    model.removenodeset("/root/main/cond/patcmtgrup/patcmtgruplist");
  }
  if(sparam =="2"){
    if(sflag == "O"){
      fParam("OPRC2");
    }else{
      fParam("IPRC2");    
    }
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist");
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist");
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist");
  }
  
  fTnsRecInit();
  
  model.refresh();  
}   

/**
 * @group  :
 * @ver    : 2008.01.28
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿¡·¯, Áß´Ü ½Ã Ç÷¾×ºÒÃâ³»¿ª °ª ¼ÂÆà ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReturnData(sParam){
  var blodnodupSource = new Array();
  if(cap_blodno.value.length > 10){
    blodnodupSource = cap_blodno.value.split(",") ;
  } else {
    blodnodupSource[0] = cap_blodno.value ;
  }
      
  if(sParam == "Y"){
    for(var i=0; i<= blodnodupSource.length -1 ; i++){
      for(var n=1; n <= grd_blodreturnreqgruplist.rows ; n++){
        if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/blodno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ
          if(model.getValue(xBlodReturnReqGrupListPath+"["+n+"]/reqflagstat") == "Y"){
            grd_blodreturnreqgruplist.valuematrix(n,1) = 'false' ;
          }else{
            grd_blodreturnreqgruplist.valuematrix(n,1) = 'false' ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("reqflag")) =  "" ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("returnabandondate")) =  "" ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("etcprcpresncd")) =  "" ;
            grd_blodreturnreqgruplist.valuematrix(n, grd_blodreturnreqgruplist.colRef("clinccmtcnts")) =  "" ;
          }
        }
      }
    } 
  }else{
    for(var i=0; i<= blodnodupSource.length -1 ; i++){
      for(var x=grd_blodreturnreqgruplist.fixedRows; x <= grd_blodreturnreqgruplist.rows ; x++){
        if( blodnodupSource[i] ==  model.getValue(xBlodReturnReqGrupListPath+"["+x+"]/blodno") ) {//Ç÷¾×¹øÈ£¿Í °°À¸¸é ±×¸®µå¿¡ ¼ÂÆÃ
          grd_blodreturnreqgruplist.valuematrix(x, 1) = 'false' ;
          grd_blodreturnreqgruplist.valuematrix(x, grd_blodreturnreqgruplist.colRef("reqflag")          ) =  model.getValue("/root/blodrtninfo/blodreturnreqgruplist[blodno ='"+blodnodupSource[i]+"']/reqflag") ;
          grd_blodreturnreqgruplist.valuematrix(x, grd_blodreturnreqgruplist.colRef("returnabandondate")) =  model.getValue("/root/blodrtninfo/blodreturnreqgruplist[blodno ='"+blodnodupSource[i]+"']/returnabandondate") ;
          grd_blodreturnreqgruplist.valuematrix(x, grd_blodreturnreqgruplist.colRef("etcprcpresncd")    ) =  model.getValue("/root/blodrtninfo/blodreturnreqgruplist[blodno ='"+blodnodupSource[i]+"']/etcprcpresncd") ;
          grd_blodreturnreqgruplist.valuematrix(x, grd_blodreturnreqgruplist.colRef("clinccmtcnts")     ) =  model.getValue("/root/blodrtninfo/blodreturnreqgruplist[blodno ='"+blodnodupSource[i]+"']/clinccmtcnts") ;         
        }
      }
    }
  }
}

/**
 * @group  :
 * @ver    : 2008.02.21
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷°£È£±â·Ï ¸®½ºÆ® Á¶È¸ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSrchTnsList(sParam){
  var pidblodflag = '';
  if(ipt_pid2.value != ""){
    pidblodflag = 'pid';
  }else if (ipt_blodno.value !="") {
    pidblodflag = 'blod';                   
  }else{
    messageBox("µî·Ï¹øÈ£¸¦ ","C001");
    model.setfocus("ipt_pid2");
    return;
  }

  fTnsRecInit();
  
  if(sParam == "button"){
    fGetPatientInfo("pid","case2"); // ȯÀÚ °³ÀÎÁ¤º¸¸¦ °¡Á®¿Â´Ù(º´µ¿/º´½Ç/ȯÀÚ ¼ÂÆÃ)
  }
  
  if( model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") == "" && model.getValue("/root/main/cond/blodno") == "" ){
    messageBox("ȯÀÚ Á¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.","E");
    model.removenodeset("/root/temp/cond/roomcdgrup");
    model.removenodeset("/root/temp/cond/patientgrup");
    fClearChildNode("/root/main/cond/patientgrupInfo/patientgruplistInfo");                   
    cmb_wardcdgruplist2.value = "";
    cmb_wardcdgruplist.value = "";
    model.setValue("/root/temp/cond/wardcdgrup/wardcdgruplist"                      , "");           
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm"  , "");           
    model.setValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage"     , "");  
    model.removenodeset("/root/main/cond/execdetlgrup/execdetlgruplist");
    model.removenodeset("/root/main/cond/delivedetlgrup/delivedetlgruplist");
    model.removenodeset("/root/main/cond/patcmtgrup/patcmtgruplist");
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodreturnreqgruplist");
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist");
    model.removenodeset("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist");     
    model.refresh();
    model.setfocus("ipt_pid2");
    return; 
  }
  fBlodDeliveList(pidblodflag); //Ç÷¾×ºÒÃâ ¸®½ºÆ® Á¶È¸¹öÆ°
  //fGetBlodNoExecRecList(pidblodflag); //¼öÇ÷ ¹Ì¼öÇà ³»¿ª ¸®½ºÆ®
  //fGetBlodExecRecList(pidblodflag); //¼öÇ÷ ¼öÇà ³»¿ª ¸®½ºÆ® 
  //fBlodColChg(); //Ä÷³¼Ó¼º º¯°æ
  model.refresh();
}

/**
 * @group  :
 * @ver    : 2008.02.21
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷°£È£±â·Ï ¸®½ºÆ® Á¶È¸ ºÎºÐ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetPatCmtList(){
  if( ipt_pid.value == "" ){
    model.removenode("/root/main/cond/delivedetlgrup");
    model.refresh();
    return;
  }

  model.removenode("/root/send");
  
  model.makeValue("/root/send/prcpddfrom", ipt_prcpddfrom.value);
  model.makeValue("/root/send/prcpddto", ipt_prcdddto.value);
  model.makeValue("/root/send/pid", ipt_pid.value);

  if(submit("TRMNR01028")){
  }   
}

/**
 * @group  :
 * @ver    : 2008.08.18
 * @by     : ¾çõ´ö 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ³¯Â¥ °è»ê(±âÁØÀÏÀÚ¸¦ ±âÁØÀ¸·Î ÀԷºи¸Å­ ÀÌÈÄ ³¯Â¥¸¦ ã¾Æ¿À±â)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function getDateAddcTm(inputday,addend){ 
  var backDate ="";
  var rt = 0;
  var yyyy = inputday.substring(0,4) +"";
  var mm   = inputday.substring(4,6) +"";
  var dd   = inputday.substring(6,8) +"";
  var hh   = inputday.substring(8,10) +"";
  var mi   = inputday.substring(10,12) +"";
  var startDate = new Date(yyyy,(eval(mm)-1),dd, hh, mi); 
  startDate.setTime(startDate.getTime()+(60000*addend)); 
  NowYear = startDate.getYear();// ³â 
  NowMonth = startDate.getMonth()+1;// ¿ù 
  NowDay = startDate.getDate(); // ÀÏ 
  NowHours = startDate.getHours() ; // ½Ã
  NowMinutes = startDate.getMinutes() ; // ºÐ 
  backDate += NowYear ; //³âµµ
  if (NowMonth < 10 ) backDate += "0" + NowMonth ;
  else backDate += (startDate.getMonth() + 1); 
  if (NowDay < 10 ) backDate += "0" + NowDay ;
  else backDate += (startDate.getDate());   
  if (NowHours < 10 )  backDate += "0" + NowHours ;
  else backDate += (startDate.getHours());  
  if(NowMinutes < 10 ) backDate += "0" + NowMinutes ;
  else backDate += (startDate.getMinutes());  
  
  return backDate ;
}

/**
 * @group  :
 * @ver    : 2008.09.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹®ÀÚÀÔ·Â Á¦ÇÑ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function isNumber(str) {
    str += ''; // ¹®ÀÚ¿­·Î º¯È¯
    str = str.replace(/^\s*|\s*$/g, ''); // ÁÂ¿ì °ø¹é Á¦°Å
    if (str == '' || isNaN(str)) return false;
    return true;
}   

/**
 * @group  :
 * @ver    : 2008.10.17
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ç÷¾× ¹Ý³³/Æó±â ÀÇ·Ú Ãë¼Ò ±â´É
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fBlodRtnCncl(pParam){
  var sChkRow = 0;
  var sChkBlodRtnFlag = "";
  var sDisUseYn = "N";//Æó±â
  var sDisUseResnCd = "";
  
  if(pParam == ""){
    messageBox("¹Ý³³/Æó±â ÀÇ·Ú Ãë¼ÒÇÒ Ç÷¾×¹øÈ£¸¦ ÀÔ·ÂÇϽʽÿä", "E");
    model.setFocus("ipt_blodrtncncl");
    return;     
  }
  
  for(var i = grd_blodreturnreqgruplist.fixedRows ; i < grd_blodreturnreqgruplist.Rows ; i++){
    if(grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("blodno")) == pParam && 
       grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("reqflagstat")) == "N" ){
      if(sChkRow == 0){
         sChkRow = i;
         sChkBlodRtnFlag = grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("reqflag"));
      }else{
        var msg = messageBox("¹Ý³³/Æó±â ÀÇ·ÚÁßÀÎ µ¿ÀÏÇÑ Ç÷¾×¹øÈ£°¡ Á¸ÀçÇÕ´Ï´Ù.\n\n"+grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("prcpnm"))+" Ç÷¾×À» ¹Ý³³/Æó±â ÀÇ·ÚÃë¼Ò ÇϽðڽÀ´Ï±î?", "Q");
        if(msg == 6){
          sChkRow = i;
          sChkBlodRtnFlag = grd_blodreturnreqgruplist.valueMatrix(i, grd_blodreturnreqgruplist.colRef("reqflag"));
        }
      }
    }
  }
  
  if(sChkRow == 0){
    messageBox("ÀÇ·ÚÃë¼Ò¸¦ ÇÒ ¼ö ¾ø´Â Ç÷¾×¹øÈ£ÀÔ´Ï´Ù.", "E");
    ipt_blodrtncncl.value = "";
    ipt_blodrtncncl.refresh();
    model.setFocus("ipt_blodrtncncl");
    //return; 
  }else{
    /*
     * <ul>
     * <li> ioflag              : ¿Ü·¡/ÀÔ¿ø±¸ºÐ (I/O)
     * <li> reqflag             : ÀÇ·Ú±¸ºÐ (1:¹Ý³³ÀÇ·Ú, 2:¹Ý³³¿Ï·á, 3:Æó±âÀÇ·Ú, 4:Æó±â¿Ï·á, 5:¹Ý³³/Æó±âÀÇ·Ú Ãë¼Ò)
     * <li> prcpdd              : ó¹æÀÏÀÚ (¿ø ó¹æ)
     * <li> prcpno              : ó¹æ¹øÈ£ (¿ø ó¹æ)
     * <li> prcphistno          : ó¹æÀ̷¹øÈ£ (¿ø ó¹æ)
     * <li> instcd              : ±â°üÄÚµå (¿ø ó¹æ)
     * <li> etcprcpresncd       : ¹Ý³³ ¹× Æó±â»çÀ¯ÄÚµå
     * <li> clinccmtcnts        : ¹Ý³³ ¹× Æó±â±âŸ»çÀ¯
     * <li> deptcd              : ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
     * <li> deptnm              : ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
     * <li> userid              : »ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
     * <li> usernm              : »ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
     */ 
    model.removeNodeset("/root/send");
    model.makeValue("/root/send/ioparam"           , model.getValue("/root/main/cond/ioflag"));
    model.makeValue("/root/send/prcpdd"            , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("prcpdd")));
    model.makeValue("/root/send/prcpno"            , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("prcpno")));
    model.makeValue("/root/send/prcphistno"        , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("prcphistno")));
    model.makeValue("/root/send/instcd"            , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("instcd")));
    model.makeValue("/root/send/etcprcpresncd"     , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("etcprcpresncd")));
    model.makeValue("/root/send/clinccmtcnts"      , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("clinccmtcnts")));
    model.makeValue("/root/send/reqflag"           , "5" );
    model.makeValue("/root/send/reqflagstat"       , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("reqflagstat")));
    model.makeValue("/root/send/returnabandondate" , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("returnabandondate")));
    model.makeValue("/root/send/pid"               , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("pid")));
    model.makeValue("/root/send/blodno"            , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("blodno")));   
    model.makeValue("/root/send/blodbarcd"         , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("blodbarcd")));    
    model.makeValue("/root/send/execprcpuniqno"    , grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("execprcpuniqno")));   
    
    var pDelPrcpNo = grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("prcpno"));
    var pDelBlodNo = grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("blodno"));
    
    if (  grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("reqflag")) == "1" ){//¹Ý³³
      sDisUseYn = "N"
    } else {
      sDisUseYn = "Y"
    }
    model.makeValue("/root/send/disuseyn"      , sDisUseYn );//Æó±â¿©ºÎ
    
    var msg1 ="";
    var msgtext = "Ç÷¾×¹øÈ£ : "+grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("blodno")) +" ["+grd_blodreturnreqgruplist.valueMatrix(sChkRow, grd_blodreturnreqgruplist.colRef("prcpnm")) +"]"; 
    
    if(sChkBlodRtnFlag == "2"){
      msg1 = messageBox(msgtext + " Ç÷¾×À» ¹Ý³³/Æó±â ÀÇ·Ú Ãë¼Ò ÇÏ°Ú½À´Ï´Ù.\n\nÀÜ¿©Æó±â ÀÇ·Ú µÈ Ç÷¾×ÀÇ ¼öÇ÷±â·ÏÀº ÀÓ½ÃÀúÀå »óÅ·Πº¯°æµË´Ï´Ù.","Q003");
    }else{
      msg1 = messageBox(msgtext + " Ç÷¾×À» ¹Ý³³/Æó±â ÀÇ·Ú Ãë¼Ò ÇÏ°Ú½À´Ï´Ù.","Q003");
    }
    if(msg1 == 6){
        //var sFindRecRow = grd_blodreturnreqgruplist.findRow(pParam, 0, grd_blodreturnreqgruplist.colRef("blodno"));
        //model.makeValue("/root/send/recdelflag"    , "Y");
        model.makeValue("/root/send/tnscarerecseq" , model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist[ prcpno = '"+pDelPrcpNo+"' and blodno = '"+pDelBlodNo+"']/tnscarerecseq") );
        model.makeValue("/root/send/prcpcd"        , model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist[ prcpno = '"+pDelPrcpNo+"' and blodno = '"+pDelBlodNo+"']/prcpcd") );
        model.makeValue("/root/send/signno"        , model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist[ prcpno = '"+pDelPrcpNo+"' and blodno = '"+pDelBlodNo+"']/signno") );

    }else{
        model.removeNodeset("/root/send");
        model.setFocus("ipt_blodrtncncl");
        return;
    }
    
    model.removeNodeset("/root/temp/rtninfo");
    submit("TXMNR01036", false);
    if(getNodesetCount("/root/temp/rtninfo/rtnlist") > 0){
      if(model.getValue("/root/temp/rtninfo/rtnlist/rtnflag") == "1"){
        //messageBox("¹Ý³³ / Æó±â ÀÇ·Ú Ãë¼Ò°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.", "I");
        ipt_blodrtncncl.value = "";
      }else{
        messageBox("¹Ý³³/Æó±â ÀÇ·Ú Ãë¼Ò 󸮸¦ ÇÒ ¼ö ¾ø´Â »óÅÂÀÔ´Ï´Ù.", "C");
      }
    }else{
      messageBox("ÀÇ·Ú Ãë¼Ò 󸮸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
    }
  }
  fBlodDeliveList('pid');// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
  fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
  model.refresh();
  model.setFocus("ipt_blodrtncncl");            
}

/**
 * @group  :
 * @ver    : 2008.10.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±â·Ï »èÁ¦ ±â´É
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fDelTempRec(){
  //Æó±â È®Á¤µÈ Ç÷¾×ÀÇ °æ¿ì »èÁ¦¹öÆ°Àº ºñÈ°¼ºÈ­µÇ¹Ç·Î ¾Æ·¡ Á¶°Ç¿¡¼­ »èÁ¦¹öÆ° Ŭ¸¯Çϴ°æ¿ì´Â Æó±âÀÇ·ÚÀÇ °æ¿ì 
  if( model.getValue(xTnsNurseRecPath+"/discontinuyn") =="Y" ) {
    messageBox("ÀÜ¿©Æó±â ÀÇ·ÚµÈ Ç÷¾×ÀÔ´Ï´Ù. ¹Ý³³Æó±âÀÇ·Ú Ãë¼Ò ÈÄ ±â·Ï»èÁ¦°¡ ","I006");
    return;
  }

  if ( messageBox("¼±ÅÃÇÑ ±â·Ï³»¿ªÀ» ","Q001") != "6" ){//»èÁ¦ÇϽðڽÀ´Ï±î?
    return;
  }

  var delBlodRow = 0;
  var sDelBoldNo = cap_blodno.value.split(",") ;
  var sDelPrcpNo = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",") ;
  var sDelSignNo = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno").split(",") ;
  var rtnBlodList = "";
  model.removeNodeSet("/root/send");
  
  if( !isNull(model.getValue(xTnsNurseRecPath+"/tnscarerecseq")) && sDelBoldNo.length == 1  ){
    //ÀÎÁõÀúÀåÀÌ°í ÇϳªÀÇ Ç÷¾×¹øÈ£°¡ ¼±ÅÃµÇ¾î »èÁ¦ ÇÒ°æ¿ì ÇÔ²² ±â·ÏµÈ Ç÷¾×¹øÈ£°¡ Á¸ÀçÇÏ´ÂÁö üũ
    
    for( var idx = 1 ; idx <= grd_blodexecrecgruplist.rows ; idx++ ){
      if ( model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/stat")         == "true"        && 
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/blodno")       == sDelBoldNo[0]        && 
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/prcpno")       == sDelPrcpNo[0]          ) {
            delBlodRow = idx;
            break;
      } 
    }
    
    rtnBlodList = fExistsExecRecTogether(delBlodRow,"D");
    
    sDelBoldNo = cap_blodno.value.split(",") ;
    sDelPrcpNo = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno").split(",") ;
    sDelSignNo = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno").split(",") ;
    
  }

  if ( !isNull(sDelSignNo[0]) ){
    
      Sign.certreload = true ; // ÀüÀÚ¼­¸í È£Ãâ½Ã ÀÎÁõÀúÀå ¹öÆ°À»  ´©¸¦¶§¸¶´Ù ÀÎÁõ¼­°¡ ¶ßµµ·Ï ó¸®
      if(Sign.signprocess() == true){	 
  	  // ÀüÀÚÀÎÁõ °ü·Ã ȯÀÚ ÀÎÀû Á¤º¸¸¦ º¸³»ÁÜ. 
  
          model.makeValue("/root/send/delreclist/status", "d");	//»èÁ¦ »óÅÂ
          model.makeValue("/root/send/delreclist/formcd","0000002460" ); //°¢ ±â·ÏÁöº° ¼­½ÄÄÚµå
          model.makeValue("/root/send/delreclist/signflag","02" ); //¼­¸íÀڷᱸºÐ (01 : Áø·á, 02 : °£È£, 03 : LIS, 04 : Áø·áÁö¿ø)
          model.makeValue("/root/send/delreclist/signbfcnts", "»èÁ¦"); 
          
          model.makeValue("/root/send/delreclist/recdd",getCurrentDate());// ½ÇÁ¦ ±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·ÏÀÏÀÚ
          model.makeValue("/root/send/delreclist/rectm",getCurrentTime());// ½ÇÁ¦ ±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·ÏÀÏÀÚ

      	  model.makeValue("/root/send/signdata/screenid", getScreenID());      
      }else{
          return;	
      }
      
  }
  
  for(var i = 0 ; i <= sDelBoldNo.length-1 ; i++){
    model.makeValue("/root/send/delreclist["+(i+1)+"]/pid"           , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/pid") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/tnscarerecseq" , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/tnscarerecseq") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/blodno"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/blodno") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/prcpcd"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/prcpcd") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/prcpno"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/prcpno") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/prcpdd"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/prcpdd") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/ioflag"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/ioflag") );
    model.makeValue("/root/send/delreclist["+(i+1)+"]/signno"        , model.getValue(xBlodExecRecGrupListPath+"[blodno='"+ sDelBoldNo[i]+"' and prcpno ='"+sDelPrcpNo[i]+"']/signno") );

  }
  submit("TXMNR01037", false);
  
  var rtncount = getNodesetCount("/root/temp/rtnlist/rtninfo");

  if(rtncount != 0){
    var rtnmsg = "";
    for(var i = 1 ; i <= rtncount ; i++){
      rtnmsg += model.getValue("/root/temp/rtnlist/rtninfo["+i+"]/blodno") + "  " ;
    }
    rtnmsg += "Ç÷¾×¿¡ ´ëÇÑ ¼öÇ÷±â·Ï »èÁ¦¸¦ ÇÒ ¼ö ¾ø½À´Ï´Ù.";
    messageBox(rtnmsg, "E");
  } else {
    if ( rtnBlodList != "" && sDelPrcpNo.length == 1){
        messageBox("ÇÊ¿ä½Ã ÇÔ²² ±â·ÏÇÑ ¼öÇ÷°£È£±â·ÏÀ» ¼öÁ¤ÇϽʽÿÀ","I");
    }
  }
  
  fBlodDeliveList('pid');// Ç÷¾×ºÒÃâ³»¿ª ¸®½ºÆ® 
  fTnsRecInit(); //¼öÇ÷°£È£±â·Ï ÃʱâÈ­
  model.refresh();
  
}

/**
 * @group  :
 * @ver    : 2008.10.20
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Multi ¼öÇ÷ ±â·Ï Ç÷¾× Alias üũ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fChkPrcpAlias(){
  if(grd_blodnoexecrecgruplist.valueMatrix(grd_blodnoexecrecgruplist.row, grd_blodnoexecrecgruplist.colRef("stat")) == "true"){
    var sPrcpAlias = grd_blodnoexecrecgruplist.valueMatrix(grd_blodnoexecrecgruplist.row, grd_blodnoexecrecgruplist.colRef("prcpalias"));
    for(var i = grd_blodnoexecrecgruplist.fixedRows ; i < grd_blodnoexecrecgruplist.Rows - grd_blodnoexecrecgruplist.fixedRows ; i++){
      if(grd_blodnoexecrecgruplist.valueMatrix(i, grd_blodnoexecrecgruplist.colRef("prcpalias")) != sPrcpAlias &&
         grd_blodnoexecrecgruplist.valueMatrix(i, grd_blodnoexecrecgruplist.colRef("stat")) == "true" ){
         messageBox("¼±ÅÃÇÑ Ç÷¾× ó¹æÀº ±â¼±ÅÃµÈ Ç÷¾× ó¹æ°ú Multi ±â·ÏÀ»", "E001");
         grd_blodnoexecrecgruplist.valueMatrix(grd_blodnoexecrecgruplist.row, grd_blodnoexecrecgruplist.colRef("stat")) = "FALSE";
         i = grd_blodnoexecrecgruplist.Rows;
         return;
      }
    }
    
    fOtherRecListUncheck("noexec");
  }
}


/**
 * @group  :
 * @ver    : 2010.01.26
 * @by     : ¼º¹Ì¿¬
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷ºÎÀÛ¿ë ¼±ÅÃ, ¼±ÅÃÃë¼Ò
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSelctTnssideEffect(ReadYN){
	//'¾øÀ½' üũ ¼±Åýà ±× ÀÌ¿ÜÀÇ ¼±ÅÃÇ׸ñµéÀ» disableÇϵµ·Ï ¼öÁ¤_20100126_SMY
	var sItem = model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnssideeffect");
	ipt_tnssideeffectetc.disabled = true;
	
	if(fSearchChar(sItem, "01") == true){			//¾øÀ½(01)ÀÌ ¼±ÅÃµÈ °æ¿ì
		//ReadYN : Y ±âÁ¸¿¡ ÀԷµǾî ÀÖ´Â µ¥ÀÌÅÍ Áß¿¡ ¾øÀ½À» Æ÷ÇÔÇÏ¿© Áߺ¹Ã¼Å©µÇ¾î ÀÖ´Â µ¥ÀÌÅÍ°¡ ÀÖÀ¸¹Ç·Î ¾øÀ½¸¸ üũµÈ °æ¿ì disableÇÔ
		if(ReadYN == "Y"){
			if(sItem == "01"){	
				selectAll(true);
				ipt_tnssideeffectetc.disabled = true;
			}	
		
		}else{
			selectAll(true);
			ipt_tnssideeffectetc.disabled = true;
		}
		
	} else if(fSearchChar(sItem, "07") == true){	//±âŸ(07)ÀÌ ¼±ÅÃµÈ °æ¿ì
		ipt_tnssideeffectetc.disabled = false;
		
	} else if(fSearchChar(sItem, "07") == false){	//±âŸ(07)ÀÌ ¼±ÅÃÇØÁ¦µÈ °æ¿ì
		ipt_tnssideeffectetc.disabled = true;
		ipt_tnssideeffectetc.value = "";
		
	} else if(sItem == ""){
		selectAll(false);
		ipt_tnssideeffectetc.disabled = true;
		ipt_tnssideeffectetc.value = "";
	}
	
	if(fSearchChar(sItem, "01") == false){			//¾øÀ½(01)ÀÌ ¼±ÅÃÇØÁ¦µÈ °æ¿ì
		chk_tnssideeffect.disabled = false;
		
	}
	model.refresh();
								
}

 
/**
 * @group  :
 * @ver    : 2010.01.26
 * @by     : ¼º¹Ì¿¬
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼öÇ÷ºÎÀÛ¿ë üũ½Ã disable/able
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function selectAll(flag){	
	for(var i= 1; i < chk_tnssideeffect.length; i++){	
		chk_tnssideeffect.deselect(i);
		chk_tnssideeffect.item(i).disabled = flag;
	}
	model.resetInstanceNode("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/tnssideeffectetc");
}


/**
 * @desc   : String¿¡¼­ ƯÁ¤ ¹®ÀÚ °Ë»ç
 * @
 * @param  : trgtStr - ŸÄÏÀÌ µÇ´Â String¹®ÀÚ¿­
 *         : fndCh   - ãÀ» Char¹®ÀÚ
 *
 * @return : true/false
 * @author : ¼º¹Ì¿¬ 
 * @---------------------------------------------------
 */
function fSearchChar(sItem, chFndChar){
	var sItemList = sItem.split(" ");
	
	for(var i = 0 ; i < sItemList.length ; i ++){
		if(sItemList[i] == chFndChar){
			return true;
		}
	}
	return false;
}

/**
 * @desc   : 1pint·®À¸·Î ÃÑÅõ¿©·® °è»ê
 * @
 * @param  : drugqty ÃÑÅõ¿©·®
 *         : 
 *
 * @return : 
 * @author :  khj
 * @---------------------------------------------------
 */
function fSumQtyCalc(drugqty){
    var blodcnt = (cap_blodno.value.split(",")).length;
    if ( isNull(model.getValue(xTnsNurseRecPath+"/onepintqty")) ){
        if ( !isNull(drugqty) ){
            model.setValue(xTnsNurseRecPath+"/drugqty" , drugqty);
        }else {
            model.setValue(xTnsNurseRecPath+"/drugqty" , "");
        }
        model.setValue(xTnsNurseRecPath+"/onepintqty" , "");
    } else {
        model.setValue(xTnsNurseRecPath+"/drugqty" , eval(model.getValue(xTnsNurseRecPath+"/onepintqty")) * blodcnt );
    }
	
	ipt_drugqty.refresh();

}

/**
 * @desc   : üũ¹Ú½º ¼±Åýà ´Ù¸¥ ±â·Ï³»¿ªÀÇ Ã¼Å©¹Ú½º´Â uncheckó¸®
 * @
 * @param  : checkTarget: üũ¹Ú½º Ŭ¸¯ÇÑ ¸ñ·Ï exec:¼öÇà   noexec:¹Ì¼öÇà
 *         : 
 *
 * @return : 
 * @author :  khj
 * @---------------------------------------------------
 */
function fOtherRecListUncheck(checkTarget){

    var xUncheckTargetPath = "";
    var xUncheckTargetGrid = grd_blodexecrecgruplist;
    
    if ( checkTarget =="exec" ){
        xUncheckTargetPath = "/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist" ;
        xUncheckTargetGrid = grd_blodnoexecrecgruplist;
    } else {
        xUncheckTargetPath = "/root/main/cond/blodreturnreqgrup/blodexecrecgruplist" ;
        xUncheckTargetGrid = grd_blodexecrecgruplist;
    }

    for(var n=1; n <= xUncheckTargetGrid.rows ; n++){
        if ( model.getValue(xUncheckTargetPath + "["+ n +"]/stat") == "true" ){
            model.setValue(xUncheckTargetPath + "["+ n +"]/stat", 'false' );
            
        }
    }

    xUncheckTargetGrid.refresh();
    
}

/**
 * @desc   : ¼öÇà±â·Ï³»¿ª¿¡¼­ ¼±ÅÃµÈ Ç÷¾×¹øÈ£¿Í ÇÔ²² ±â·ÏµÈ ³»¿ªÀÌ Á¸ÀçÇÏ´ÂÁö üũ
 * @
 * @param  : pBlodNo : ¼±ÅÃÇÑ Ç÷¾×¹øÈ£, pFlag = U(¼öÁ¤½Ã ÀÏ°ý¼öÁ¤ÇϹǷΠüũ¹Ú½º üũ), D(all»èÁ¦¿©ºÎ¸¦ ÄÁÆß¹ÞÀ¸¹Ç·Î üũ¹Ú½º üũ¾ÈÇÔ.) ¼öÁ¤»èÁ¦±¸ºÐ
 *         : 
 *
 * @return : rBlodList : ÇÔ²² ±â·ÏµÈ Ç÷¾×¹øÈ£
 * @author :  khj
 * @---------------------------------------------------
 */
function fExistsExecRecTogether(pRow, pFlag ){

  var sRow = pRow;
  
  if ( sRow < 1 ){
    return "";
  }
  
  var sRowStratTime        = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/fstrgstdt3");
  var sRowEndTime          = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsendddtm");
  var sRowTnsstrnurseid    = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsstrnurseid");
  var sRowTnsendnurseid    = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnsendnurseid");
  var sRowSmlqtytnsyn      = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/smlqtytnsyn");
  var sRowTnssideeffectetc = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/tnssideeffectetc");
  var sRowDiscontinuyn     = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/discontinuyn");
  var sRowPrcpcd  			   = model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ sRow +"]/prcpcd");	//170331_AYS_¼öÇ÷°£È£±â·Ï ó¹æÈ®ÀÎ
  
  var rBlodList = "";
  var sPrcpNoList = "";
  var sPrcpNmList = "";
  var sAboRhList = "";
  var sSignNoList = "";
  var sReturnGridBlodList = "";
  
  for( var idx = 1 ; idx <= grd_blodexecrecgruplist.rows ; idx++ ){
      if ( sRow != idx &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/fstrgstdt3")       == sRowStratTime        && 
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/tnsendddtm")       == sRowEndTime          &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/tnsstrnurseid")    == sRowTnsstrnurseid    &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/tnsendnurseid")    == sRowTnsendnurseid    &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/smlqtytnsyn")      == sRowSmlqtytnsyn      &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/tnssideeffectetc") == sRowTnssideeffectetc &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/discontinuyn")     == sRowDiscontinuyn  	 &&
           model.getValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/prcpcd")  				 == sRowPrcpcd      			   ){  //170331_AYS_¼öÇ÷°£È£±â·Ï ó¹æÈ®ÀÎ

          rBlodList   += grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("blodno")) + "," ;
          sPrcpNmList += grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("prcpnm")) + "," ;
          sAboRhList  += grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("abo"))
                       + grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("rh"))     + "," ;
          sSignNoList += grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("signno")) + "," ;      
          sPrcpNoList += grd_blodexecrecgruplist.labelmatrix(idx, grd_blodexecrecgruplist.colRef("prcpno")) + "," ;
          
          //if ( model.getValue(xBlodReturnReqGrupListPath + "[]/)
                
          if ( pFlag == "U" ){
              model.setValue("/root/main/cond/blodreturnreqgrup/blodexecrecgruplist["+ idx +"]/stat" , 'true');
          }
      }  
  }

  if ( pFlag == "U" ){

      if ( !isNull(rBlodList) ){
          messageBox("ÇÔ²² ±â·ÏµÈ ¼öÇ÷°£È£±â·ÏÀÌ Á¸ÀçÇÕ´Ï´Ù.( Ç÷¾×¹øÈ£ : " + rBlodList.substring(0,rBlodList.length -1 )  
                   + ")\n\nÇÔ²² ±â·ÏµÈ ¼öÇ÷°£È£±â·Ïµµ ¼öÁ¤µË´Ï´Ù.\n\nºÎºÐ¼öÁ¤Àº ±â·Ï»èÁ¦ ÀÌÈÄ¿¡¸¸ ","I006");
                   
          model.setValue(cap_blodno.attribute("ref"), rBlodList + model.getValue(cap_blodno.attribute("ref")) );
          model.setValue(cap_blodnm.attribute("ref"), sPrcpNmList + model.getValue(cap_blodnm.attribute("ref")) );
          model.setValue(cap_aborh.attribute("ref"), sAboRhList + model.getValue(cap_aborh.attribute("ref")) );
          model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno", sPrcpNoList+ model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno") );
          model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno", sSignNoList+ model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno") );
          
      } 
  } else if ( pFlag == "D" ){

      if ( !isNull(rBlodList) ){
          if( messageBox("ÇÔ²² ±â·ÏµÈ ¼öÇ÷°£È£±â·ÏÀÌ Á¸ÀçÇÕ´Ï´Ù.( Ç÷¾×¹øÈ£ : " + rBlodList.substring(0,rBlodList.length -1 )  
                          + ")\nÇÔ²² ±â·Ï ","Q001") == 6 ){//»èÁ¦ ÇϽðڽÀ´Ï±î ?  yes=6, no=7
              model.setValue(cap_blodno.attribute("ref"), rBlodList + model.getValue(cap_blodno.attribute("ref")) );
              model.setValue(cap_blodnm.attribute("ref"), sPrcpNmList + model.getValue(cap_blodnm.attribute("ref")) );
              model.setValue(cap_aborh.attribute("ref"), sAboRhList + model.getValue(cap_aborh.attribute("ref")) );
              model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno", sPrcpNoList + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/prcpno") );
              model.setValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno", sSignNoList + model.getValue("/root/main/cond/tnsnurserecgrup/tnsnurserecgruplist/signno") );
          }
          
      } 
  }
  
  cap_blodno.refresh();
  cap_blodnm.refresh();
  cap_aborh.refresh();  
  fSumQtyCalc();// ÃÑÅõ¿©·® °è»ê onepintqty * Ç÷¾×°¹¼ö

  return rBlodList;  
}

/**
 * @desc   : ¼öÇà±â·Ï³»¿ª¿¡¼­ üũ µÈ detlgrup ÀúÀåÆĶó¹ÌÅÍ ¸¸µé±â
 * @
 * @param  : checkTarget : exec:¼öÇà   noexec:¹Ì¼öÇà
 *         : 
 *
 * @return : rSaveList
 * @author :  khj
 * @---------------------------------------------------
 */
function fSaveExecRecListMake(checkTarget){

    var rSaveList = "stat¢Ëblodno¢Ëprcpnm¢Ëabo¢Ërh¢Ëprcpdd¢Ëprcpno¢Ëprcpcd¢Ëprcphistno¢Ëprcpdelivefact¢Ëpid¢Ëtnscarerecseq¢Ëinstcd¢Ì";
    var rSaveHeader = "";
    var xTargetGrid = grd_blodexecrecgruplist;
    var xTargetPath = "";
    
    if ( checkTarget =="exec" ){
        xTargetPath = "/root/main/cond/blodreturnreqgrup/blodexecrecgruplist" ;
        xTargetGrid = grd_blodexecrecgruplist;
    } else {
        xTargetPath = "/root/main/cond/blodreturnreqgrup/blodnoexecrecgruplist" ;
        xTargetGrid = grd_blodnoexecrecgruplist;
    }
        
    for(var n=1; n <= xTargetGrid.rows ; n++){
        if ( model.getValue(xTargetPath + "["+ n +"]/stat") == "true" ){
            rSaveList += model.getValue(xTargetPath + "["+ n +"]/stat")   + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/blodno") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcpnm") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/abo")    + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/rh")     + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcpdd") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcpno") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcpcd") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcphistno") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/prcpdelivefact") +"¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/pid") + "¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/tnscarerecseq") +"¢Ë"
                       + model.getValue(xTargetPath + "["+ n +"]/instcd") + "¢Ì"
        }
    }

    return rSaveList;
    
}
function fRePrtBldReq() {
	var chkyn;
	var ocrtag;
	var pretag;
	var cnt = 0;
	
	var receiptid="";
  var receiptnm="";
	
	for(var i = grd_delivedetlgruplist.fixedRows; i < grd_delivedetlgruplist.rows; i++) {
		chkyn = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("sel"));
		ocrtag = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("ocrtag"));
		
		if(chkyn == "true") {
			if(cnt == 0) {
				pretag = ocrtag;
				receiptid = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("receiptid"));
				receiptnm = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("receiptnm"));
				cnt++;
			}
			
			if(pretag != ocrtag) {
				messageBox("´Ù¸¥ OCR¹øÈ£¸¦ °¡Áø Ç÷¾×Àº ÀçÃâ·ÂÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
				return;
			}
			
			if(ocrtag == "") {
				messageBox("Ç÷¾×ºÒÃâµÇÁö ¾ÊÀº Ç÷¾×Àº ÀçÃâ·Â ÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.", "E");
				return;
			}	else {
				
			}
		}
	}
	
	
	var ip = app.clientIp.split("^");
  var ipstr = ip[0].split(".");
	
	model.makeValue("/root/send/report/patientnm",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/patientnm1") );                  
  model.makeValue("/root/send/report/pid",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/pid") );  
  model.makeValue("/root/send/report/sexage",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/sexage") );  
  model.makeValue("/root/send/report/btype",model.getValue("/root/main/cond/patientgrupInfo/patientgruplistInfo/btype") );
  model.makeValue("/root/send/report/wardnm",cmb_wardcdgruplist.label );
  model.makeValue("/root/send/report/roomcd",cmb_roomcdgruplist.value );
  //model.makeValue("/root/send/report/logourl", getBigLogoImageURL("",getUserInfo("dutplceinstcd")));
  
  model.makeValue("/root/send/report/logourl", getImageURL("biglogo"+getUserInfo("dutplceinstcd"), "jpg"));
  model.makeValue("/root/send/report/ip", ipstr[2] + "." + ipstr[3]);

  //Ãâ·ÂÀϽÃ
  var printdd = getCurrentDate().substr(0,4) + "/" + getCurrentDate().substr(4,2) + "/" + getCurrentDate().substr(6,2);
  var printtm = getCurrentTime().substr(0,2) + ":" + getCurrentTime().substr(2,2) + ":" + getCurrentTime().substr(4,2);
  
  model.makeValue("/root/send/report/printdt", printdd + " " +printtm );
  model.makeValue("/root/send/report/usernm", getUserName() );
  
  model.makeValue("/root/send/report/seq",       pretag);
  model.makeValue("/root/send/report/receiptid", receiptid);
  model.makeValue("/root/send/report/receiptnm", receiptnm);
  
  model.makeNode("/root/send/report/delivedetlgrup/delivedetlgruplist");  
  copyNodesetType( "/root/send/report/delivedetlgrup/delivedetlgruplist", "/root/main/cond/delivedetlgrup/delivedetlgruplist[sel='true']" );
	
	exeReportPreview("RFMNR01000", "XMLSTR", "", "", "true", "", "", "", "", "", "", "grp_report"); //¹Ì¸®º¸±â ¾øÀÌ Ãâ·Â
}

function fChngGridInfo() {
	var sel = grd_delivedetlgruplist.valueMatrix(grd_delivedetlgruplist.row, grd_delivedetlgruplist.colRef("sel"));
								
	if(grd_delivedetlgruplist.col == grd_delivedetlgruplist.colRef("sel")) {									
		var ocrtag = grd_delivedetlgruplist.valueMatrix(grd_delivedetlgruplist.row, grd_delivedetlgruplist.colRef("ocrtag"));
		
		if(ocrtag == "" || ocrtag == null) {
			return;
		}
		
		var ocrtag2="";
		for(i = grd_delivedetlgruplist.fixedRows; i < grd_delivedetlgruplist.rows; i++) {
			ocrtag2 = grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("ocrtag"));
			if(ocrtag == ocrtag2) {
				grd_delivedetlgruplist.valueMatrix(i, grd_delivedetlgruplist.colRef("sel")) = sel;
			}
		}
		grd_delivedetlgruplist.refresh();
	}
}