/*
  - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì

    ±¸µÎó¹æ ( SMMNW10900_±¸µÎó¹æ.xrw - JScript )

  - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì
*/

var sPATINFO_PATH      = "/root/main/patinfocond/patinfo";                   //ȯÀÚÁ¤º¸
var sPRCPSRCHLIST_PATH = "/root/main/prcpsrch/prcplist";                     //ó¹æ°Ë»ö
var sBFPRCPLIST_PATH   = "/root/main/bfprcp/prcplist";                       //Àüó¹æ
var sPRCPLIST_PATH     = "/root/main/prcp/prcplist";                         //°£È£Ã³¹æ
var sSIGNDATA_PATH     = "/root/main/signdata/signprcplist";                 //ÀÎÁõµ¥ÀÌÅÍ
var sSIGNTEMPDATA_PATH = "/root/main/signdata/signtempprcplist";             //ÀÎÁõµ¥ÀÌÅÍ(ÀÓ½Ãó¹æ)

var homecarecenterdeptcd, homecareteamdeptcd;
var signtime = "";
var vsettime = "";
var vsetdate = "";
var spcldept = "";

/**
 * @desc   : È­¸é ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fInitialize_SMMNW20100(){
  
    //°£È£Ã³¹æ µµ¿ò¸» ±â´É Ä¥°î¸¸ º¸À̵µ·Ï 2013.07.15 KJS
    var sInstcd      = getUserInfo("dutplceinstcd");
    var sDutplcecd   = getUserInfo("dutplcecd");
	var settingnurid = ""; //³»È¯ÀÚ settingº¯¼ö
  
    zesfInitSign(); //ÀÎÁõ ¸ðµâ ÃʱâÈ­ 
  
    // °£È£ÇϵåÄÚµù Å×À̺í Á¶È¸_20090416(ByJA)
    //----------(20110118) °æºÏ´ë
  	//var pCode = "'047', '048','002','195','207'";   // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸ 002 : ÀÀ±ÞÀÇ·á¼¾ÅÍ Ãß°¡ (¾ß°£°¡»êÀº ÀÀ±ÞÀÇ·á¼¾Å͸¸ ¼¼ÆÃ)20091214 ±èÈ«Á¡
  	var pCode = "'003', '047', '048','002','195','207','016','T84','202','I09'"; //¸¶Ãëȸº¹½ÇÃß°¡   '046':¿µ»óÀÇÇаú Ãß°¡.  'T84':ÀÎÁõÀúÀåÆ˾÷.
  	var machideptcd = "";
    //----------(20110118) °æºÏ´ë   
   
    var pDate = getCurrentDate(); // Á¶È¸±âÁØÀÏÀÚ
    fGetNursHardCdInfo(pCode, pDate);
   
    for(var i=1; i<=getNodesetCount("/root/code/codeinfo/codelist"); i++){          
        switch (model.getValue("/root/code/codeinfo/codelist["+i+"]/cdgrupid")){
          	case "202": //´ëÂ÷¿©ºÎ
              cartcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
              break;
            case "047":  // °¡Á¤°£È£¼¾ÅÍ
              homecarecenterdeptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
              break;
            case "048":  // °¡Á¤°£È£ÆÀ
              homecareteamdeptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
              break;
            case "016":  // ¸¶Ãëȸº¹½Ç
              machideptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
              break;				          
    		case "T84":
              signtime = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
        }
    }
   
    spcldept = model.getValue("/root/code/codeinfo/codelist[cdgrupid='003']/cdid");
   
   
    if(cartcd != 'Y'){
        grd_prcpposlist.colHidden(grd_prcpposlist.colRef("drprcpetc10")) = true;
        grd_bfprcplist.colHidden(grd_bfprcplist.colRef("drprcpetc10"))   = true;
    }
  
    model.removeNodeset(sPRCPSRCHLIST_PATH);
    model.removeNodeset(sBFPRCPLIST_PATH);
    model.removeNodeset(sPRCPLIST_PATH);
  
    //ÄÞº¸¸®½ºÆ® ¼ÂÆÃ(±Þºñ, ó¹æºÐ·ù)
    zbcfGetCodeList(new Array("M0029", "M0005", "M0007", "P0506", "M0756"), new Array("/root/init/comcodelist/payflag_cmblist", "/root/init/comcodelist/clscd_cmblist", "/root/init/comcodelist/opflag_cmblist" ,"/root/init/drgacptflag", "/root/init/comcodelist/resn_cmblist"), true);
    model.setValue("/root/main/bfprcpinfo/bfcond/srchclscd", "ALL");
    
    //Ãʱ⠼ÂÆðª
    model.setValue("/root/main/cond/prcpdd", getCurrentDate()); //ó¹æÀÏ
    model.setValue("/root/main/bfprcpinfo/bfcond/prcpfromdd", model.getValue("/root/main/cond/prcpdd").toDate().getAddDate(-7, "D").getDateFormat());		//Àüó¹æ		
    model.setValue("/root/main/bfprcpinfo/bfcond/prcptodd", model.getValue("/root/main/cond/prcpdd"));
	
    //¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È
    model.makeNode("/root/main/paminfo");
    var node = getGlobalVariable("paminfo");
    setCSVToNode("/root/main/paminfo", node);
  
    if (model.getValue("/root/main/paminfo/list/pid") != "") {          //»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆõǾî ÀÖÀ» °æ¿ì 
  	    model.makeValue("/root/main/cond/upinfoyn", "Y");
        //patinfo Á¤º¸ ¼ÂÆÃ
        if (model.getValue("/root/main/paminfo/list/ioflag") == 'O') {
        	var centcd = model.getValue("/root/main/paminfo/list/centcd");
        	
        	if(centcd == "-" || centcd == "") {
          	    model.setValue("/root/main/cond/wardcd"        , model.getValue("/root/main/paminfo/list/orddeptcd"));
            } else {
              	model.setValue("/root/main/cond/wardcd"        , centcd);
            }
      
            model.setValue(sPATINFO_PATH + "/wardcd"       , model.getValue("/root/main/paminfo/list/orddeptcd"));
            model.setValue(sPATINFO_PATH + "/orddd"        , model.getValue("/root/main/paminfo/list/orddd"));
            model.setValue(sPATINFO_PATH + "/acptseqno"    , model.getValue("/root/main/paminfo/list/acptseqno"));
            model.setValue(sPATINFO_PATH + "/orddrid"      , model.getValue("/root/main/paminfo/list/orddrid"));
            model.setValue(sPATINFO_PATH + "/atdoctid"     , "-");
            model.setValue(sPATINFO_PATH + "/clincstdyflag", model.getValue("/root/main/paminfo/list/clincstdyacptflag"));
            model.setValue(sPATINFO_PATH + "/clincstdycd"  , model.getValue("/root/main/paminfo/list/clincstdyno"));
            model.makeValue(sPATINFO_PATH + "/dschnotiyn"  , "N"); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080807Ãß°¡(ByJA)
            model.makeValue(sPATINFO_PATH + "/careinrmyn"  , "Y"); // ÀÔ½ÇÈ®Àο©ºÎ üũ ¿Ü·¡´Â ºñ±³´ë»óÀÌ ¾Æ´Ï¹Ç·Î ¹«Á¶°Ç Y 20090908 khj
        } else {
            model.setValue("/root/main/cond/wardcd"        , model.getValue("/root/main/paminfo/list/wardcd"));
            model.setValue(sPATINFO_PATH + "/wardcd"       , model.getValue("/root/main/paminfo/list/wardcd"));
            model.setValue(sPATINFO_PATH + "/roomcd"       , model.getValue("/root/main/paminfo/list/roomcd"));
            model.setValue(sPATINFO_PATH + "/indd"         , model.getValue("/root/main/paminfo/list/indd"));
            model.setValue(sPATINFO_PATH + "/orddrid"      , model.getValue("/root/main/paminfo/list/medispclid"));
            model.setValue(sPATINFO_PATH + "/atdoctid"     , model.getValue("/root/main/paminfo/list/atdoctid"));
            model.setValue(sPATINFO_PATH + "/clincstdyflag", model.getValue("/root/main/paminfo/list/clincstdyyn"));
            model.setValue(sPATINFO_PATH + "/clincstdycd"  , model.getValue("/root/main/paminfo/list/clincstdycd"));
            model.makeValue(sPATINFO_PATH + "/dschnotiyn"  , model.getValue("/root/main/paminfo/list/dschnotiyn")); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080807Ãß°¡(ByJA)
            if ( model.getValue("/root/main/paminfo/list/ioflag") == 'E' && model.getValue("/root/main/paminfo/list/calcdd") != '-' ){
                model.makeValue(sPATINFO_PATH + "/careinrmyn"  ,'Y');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj
            } else if ( model.getValue("/root/main/paminfo/list/ioflag") != 'E' && model.getValue("/root/main/paminfo/list/careinrmdd") != '-' ){
                model.makeValue(sPATINFO_PATH + "/careinrmyn"  ,'Y');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj
            } else {
                model.makeValue(sPATINFO_PATH + "/careinrmyn"  ,'N');// ÀÔ½ÇÈ®Àο©ºÎ üũ 20090908 khj  
            }
        }
    
        model.setValue(sPATINFO_PATH + "/pid"      , model.getValue("/root/main/paminfo/list/pid"));
        model.setValue(sPATINFO_PATH + "/patnm"    , model.getValue("/root/main/paminfo/list/hngnm"));
        model.setValue(sPATINFO_PATH + "/cretno"   , model.getValue("/root/main/paminfo/list/cretno"));
        model.setValue(sPATINFO_PATH + "/orddeptcd", model.getValue("/root/main/paminfo/list/orddeptcd"));
        model.setValue(sPATINFO_PATH + "/ordtype"  , model.getValue("/root/main/paminfo/list/ioflag"));
        model.setValue(sPATINFO_PATH + "/sexage"   , model.getValue("/root/main/paminfo/list/sex") + "/" + model.getValue("/root/main/paminfo/list/age"));
    	model.setValue(sPATINFO_PATH + "/insukind" , model.getValue("/root/main/paminfo/list/insukind"));
    	model.setValue(sPATINFO_PATH + "/specordyn", model.getValue("/root/main/paminfo/list/specordyn"));
    	model.setValue(sPATINFO_PATH + "/instcd"   , model.getValue("/root/main/paminfo/list/instcd"));
		
		////20110828_KNUH_Start ³»È¯ÀÚsettingÁ¤º¸ Á¶È¸.
		fGetSettringInfoRef();
		
		//³»È¯ÀÚ¼ÂÆÃÁ¤º¸°¡ ÀÖÀ¸¸é set,¾øÀ¸¸é ±×³É null
		settingnurid = model.getValue("/root/init/settinginfo/settingrn[settingrnid='" + getUserInfo("userid") +"']/settingrnid");
	  	  
		if(settingnurid == null || settingnurid == "") {
			
		} else {
			model.setValue(cmb_settingrn.attribute("ref"), getUserInfo("userid"));
			cmb_settingrn.refresh();
		}
		//20110828_KNUH_End
    } else {                            
	    model.setValue("/root/main/cond/wardcd",  getUserInfo("dutplcecd"));    //»ó´ÜÁ¤º¸°¡ ¾øÀ» °æ¿ì °£È£»ç ¼Ò¼ÓºÎ¼­
    
    
        //20110828_KNUH_Start ȯÀÚsettingÁ¤º¸ Á¶È¸
        fGetSettringInfoRef(); 
    
        settingnurid = model.getValue("/root/init/settinginfo/settingrn[settingrnid='" + getUserInfo("userid") +"']/settingrnid");
	  
	    //³»È¯ÀÚ¼ÂÆÃÁ¤º¸°¡ ÀÖÀ¸¸é set,¾øÀ¸¸é ±×³É null	  
		if(settingnurid == null || settingnurid == "") {
			
		} else {
			model.setValue(cmb_settingrn.attribute("ref"), getUserInfo("userid"));
			cmb_settingrn.refresh();
		}
		//20110828_KNUH_End
    }
    
    mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept" , "D"); //ºÎ¼­ÄÚµå ÄÞº¸
    mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", model.getValue(sPATINFO_PATH + "/orddeptcd"), "0330");
  
    model.setValue("/root/main/prcpposinfo/cond/resndeptcd", model.getValue(sPATINFO_PATH + "/orddeptcd"));
    if("-" != model.getValue(sPATINFO_PATH + "/atdoctid") && !isNull(model.getValue(sPATINFO_PATH + "/atdoctid"))) {
        model.setValue("/root/main/prcpposinfo/cond/resndrid"  , model.getValue(sPATINFO_PATH + "/atdoctid"));
    } else {
        model.setValue("/root/main/prcpposinfo/cond/resndrid"  , model.getValue(sPATINFO_PATH + "/orddrid"));
    }
    
    submit("TRMNW11001", false);   //ºÎ¼­ÄÞº¸ Á¶È¸
    if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){
        model.setValue("/root/main/cond/homecareyn", "Y");
    }

    //20110215 À̼±°æ : °æºÏ´ë - ÀÀ±Þ½ÇÀÏ °æ¿ì ±¸¿ªÁ¤º¸¸¦ Á¶È¸
    fGetZoneList();
    fnZoneDisp();
    fRoomInfoRef("init");  //Çش纴µ¿ÀÇ Çش纴½ÇÁ¶È¸ 
  
    if(settingnurid == null || settingnurid=="") {
        cmb_room.disabled = false;
    } else {
        cmb_room.disabled = true;
     	fPatInfoRef("I");
    }

    cmb_userpos.disabled = true;


    fChkClincstdy(); //Àӻ󿬱¸ üũ 20100727 ȯÀÚÁ¤º¸ ÃÖÁ¾ Ä«ÇÇµÇ°í ³ª¼­ ¼¼ÆÃÇؾßÇϹǷΠÀ§Ä¡ ¿Å±â¸é ¾È‰Î.


    //°¡Á¤°£È£Ã³¹æÀÏ °æ¿ì ¹æ¹®ÀÏÀÚ ¼ÂÆÃ
    if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){
        model.setValue("/root/main/prcpposinfo/cond/poscd" , "2");          // ó¹æÀ§Ä¡_2:UserÀ§Ä¡ 
        model.setValue("/root/main/prcpposinfo/cond/deptcd", homecarecenterdeptcd); // UserÀ§Ä¡ÄÚµå_2361000000:°¡Á¤°£È£¼¾ÅÍ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø
        if(cmb_userpos.label == ""){
        	model.setValue("/root/main/prcpposinfo/cond/deptcd", homecareteamdeptcd); // UserÀ§Ä¡ÄÚµå_3090100000:°¡Á¤°£È£ÆÀ_°­³²¼º¸ð,¼­¿ï¼º¸ðº´¿ø
        }
        cmb_userpos.disabled = false;
    	fSearchHomePatInfo(); // ¹æ¹®ÀÏÀÚ Á¶È¸_Ãß°¡(20090331_ByJA)
    } else if(getScreenMenuParameter() == "SMMND"){ //Àΰø½ÅÀåÀÏ °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡·Î_20081015(byJA_¼Ò°æÈ­ITC¿äû)
      	model.setValue("/root/main/prcpposinfo/cond/poscd" , "2");          // ó¹æÀ§Áö_2:UserÀ§Ä¡
      	model.setValue("/root/main/prcpposinfo/cond/deptcd",  getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­
      	cmb_userpos.disabled = false;
    } else if(getScreenMenuParameter() == "SMAEA" || opener.javascript.getParameter("screenParam") == "SMAEA"){ //°£È£±â´ÉÆÄÆ®(³»½Ã°æ½Ç, ºÎÁ¤¸Æ°Ë»ç½Ç, °£Å©¸®´Ð, ±â°üÁö°æ½Ç, ½ÉÀåÃÊÀ½ÆĽÇ) °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡·Î_20081208(ByJA)
      	model.setValue("/root/main/prcpposinfo/cond/poscd" , "2");          // ó¹æÀ§Áö_2:UserÀ§Ä¡
      	model.setValue("/root/main/prcpposinfo/cond/deptcd",  getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­
      	cmb_userpos.disabled = false;
    } else if(machideptcd == getUserInfo("dutplcecd") ){ //°£È£±â´ÉÆÄÆ®(¸¶Ãëȸº¹½Ç) °æ¿ì ó¹æÀ§Ä¡ userÀ§Ä¡ //-------------(20110118) °æºÏ´ë 
      	model.setValue("/root/main/prcpposinfo/cond/poscd" , "2");          // ó¹æÀ§Áö_2:UserÀ§Ä¡
      	model.setValue("/root/main/prcpposinfo/cond/deptcd",  getUserInfo("dutplcecd")); //¼Ò¼ÓºÎ¼­
      	cmb_userpos.disabled = false;
    } //-------------(20110118) °æºÏ´ë 
    
    cmb_userpos.refresh();
    cmb_bfcond.choices.itemset.attribute("nodeset") = "/root/init/bfcondinfo/bfcond";
    
    //*** ó¹æ¸ñ·Ï
    model.makeValue("/root/send/reqdata/comnrefflag", 'Y');
    submit("TRMNW10901", false);   //setºÎ¼­ÄÞº¸ Á¶È¸(°øÅë Æ÷ÇÔ)
    
	var pid = model.getValue("/root/main/cond/pid");

	if(pid != ""){
		fprtlnm(pid);	
	}
}

/**
 * @desc   : ºÎ¼­Á¶°Ç¿¡ µû¸¥ º´½Ç Á¶È¸
 * @
 * @param  :initflag ="init" ÃʱâÈ­
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fRoomInfoRef(initflag) {
	model.removeNodeset("/root/init/roominfo/room/roomcd");
	model.resetInstanceNode("/root/main/cond/patnm");
	model.resetInstanceNode("/root/main/cond/pid");
	
	model.removeNodeset(sPRCPLIST_PATH);
	model.removeNodeset(sBFPRCPLIST_PATH);
  
  var settingrnid = model.getValue("/root/main/cond/settingrnid");
  
	var deptflag = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/cond/wardcd") + "']/deptflag");
	if (deptflag == 'I') {			//Çش纴µ¿ÀÇ Çش纴½ÇÁ¶È¸	
		cmb_room.disabled = false;
		model.removeNodeset("/root/send/reqdata");
		model.makeNode("/root/send/reqdata");
		model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
		model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
		
		if (submit("TRMNW10902", false)) {
			if (model.getValue("/root/main/cond/upinfoyn") == "Y") {		//»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆõǾî ÀÖÀ» °æ¿ì 
				
				//20110828_KNUH_Start
				if(settingrnid == null || settingrnid == "") {
					model.setValue("/root/main/cond/roomcd", model.getValue("/root/main/paminfo/list/roomcd"));
				} else {
					model.setValue("/root/main/cond/roomcd", "-");
				}
				//20110828_KNUH_End
				fPatInfoRef("I",initflag);
			} else {
				model.setValue("/root/main/cond/roomcd", "-");
				model.removeNodeset("/root/init/patinfo/patlist");
				
			}
		}
	} else {							//¿Ü·¡°ú ȯÀÚ Á¶È¸
		cmb_room.disabled = true;
		fPatInfoRef("O", initflag);//º´µ¿Àº »ó°ü¾ø°í ¿Ü·¡Àΰæ¿ì ³»½Ã°æ½ÇÀÇ °æ¿ì »ó´ÜÁ¤º¸´ë·Î ó¹æ¹ß»ý20100409 º¯°æÇùÀÇü°á°ú ³ª¿À±âÀü±îÁö Àӽà khj ->16040 ¿äû¹øÈ£¿¡ ÀÇÇØ ´çÀϼöÁø¿¡¸¸ ó¹æ¹ß»ýÇϵµ·Ï ÇÔ. 20100715 ±èÈ«Á¡
	}
	model.refresh();
} 

//20110828_KNUH_Start ȯÀÚsettingÁ¤º¸ Á¶È¸
function fGetSettringInfoRef() {
	model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd") );
	submit("TRMNW10910");
	
	cmb_settingrn.refresh();
	
	
}


/**
 * @desc   : º´½Çº° ȯÀÚ¸®½ºÆ® Á¶È¸, ºÎ¼­º° ȯÀÚ¸®½ºÆ® Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fPatInfoRef(deptflag, initflag) {
	
	var settingnurid="";
	
	settingnurid = model.getValue("/root/main/cond/settingrnid");
	
	model.resetInstanceNode("/root/main/cond/pid");
	model.resetInstanceNode("/root/main/cond/patnm");
				
	model.removeNodeset(sPRCPLIST_PATH);
	model.removeNodeset(sBFPRCPLIST_PATH); 
	
	model.removeNodeset("/root/send/reqdata");
	model.makeNode("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd"));
	model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
	
	var centcd = model.getValue("/root/main/paminfo/list/centcd");
	
	if(centcd != "-" && centcd != "") {
		model.makeValue("/root/send/reqdata/centflag", "Y");
	}
	
	model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
	
	if (deptflag == "I") {			//º´½Çº° ȯÀÚÁ¶È¸
		
		//20110828_KNUH_Start 
		if(settingnurid == null || settingnurid == "") {
			model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd"));	
		} else {
			model.makeValue("/root/send/reqdata/roomcd", "-");
		}
		//20110828_KNUH_End
		
		model.makeValue("/root/send/reqdata/refflag", "room");
		model.makeValue("/root/send/reqdata/ordtype", "I");
		model.makeValue("/root/send/reqdata/zonecd", model.getValue("/root/main/cond/zonecd"));
		model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
		
	} else {					//¿Ü·¡ºÎ¼­ ȯÀÚÁ¶È¸
		model.makeValue("/root/send/reqdata/refflag", "dept");
		model.makeValue("/root/send/reqdata/ordtype", "O");
		model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn"));
	}
	
	if(spcldept == model.getValue("/root/main/cond/wardcd")) {
		model.makeValue("/root/send/reqdata/spcldeptyn", "Y");
	} else {
		model.makeValue("/root/send/reqdata/spcldeptyn", "");
	}
	
	if (submit("TRMNW10903", false)) {
		
		
		if (model.getValue("/root/main/cond/upinfoyn") == "Y") {		//»ó´ÜÁ¤º¸¿¡ ȯÀÚ°¡ ¼ÂÆõǾî ÀÖÀ» °æ¿ì 
			
			model.setValue("/root/main/cond/patnm", model.getValue("/root/main/paminfo/list/pid"));
			model.setValue("/root/main/cond/pid", model.getValue("/root/main/paminfo/list/pid"));
			
			//°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸
		  	if(model.getValue("/root/main/cond/homecareyn") == "Y") {
		  		fSearchHomePatInfo();
		  	}
				  	
		} else {
			model.setValue("/root/main/cond/patnm", "");
			model.setValue("/root/main/cond/pid", "");
		}
	}
	
	var pid=model.getValue("/root/main/cond/pid");

    //º´µ¿Àº »ó°ü¾ø°í ¿Ü·¡Àΰæ¿ì ³»½Ã°æ½ÇÀÇ °æ¿ì »ó´ÜÁ¤º¸´ë·Î ó¹æ¹ß»ý20100409 º¯°æÇùÀÇü°á°ú ³ª¿À±âÀü±îÁö Àӽà khj
    //->16040 ¿äû¹øÈ£¿¡ ÀÇÇØ ´çÀϼöÁø¿¡¸¸ ó¹æ¹ß»ýÇϵµ·Ï ÇÔ. 20100715 ±èÈ«Á¡
//    if ( (getScreenMenuParameter() == "SMAEA" || opener.javascript.getScreenID() == "SMAEA01500" )
//      && deptflag == "O"
//      && initflag == "init"
//      || deptflag == "I"){////º´µ¿Àº Åð¿øȯÀÚµµ Àüó¹æÀº Á¶È¸µÇ¾î¾ß ÇÔ.
    if ( initflag == "init" && deptflag == "I"){////º´µ¿Àº Åð¿øȯÀÚµµ Àüó¹æÀº Á¶È¸µÇ¾î¾ß ÇÔ.
    	if ( !isNull(model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/pid"))) {
        	//ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ
        	model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']");

    	}
        fReqBfNursPrcpInfo();		//Àüó¹æ Á¶È¸
	}else{
	    fChgPatnm(deptflag, model.getValue("/root/main/cond/prcpdd"),initflag);
	}
	
	model.refresh();
}

/**
 * @desc   : ȯÀÚ¾ÆÀ̵ð·Î ÇØ´çºÎ¼­, º´½Ç, ȯÀÚ¸í Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fSearchPatInfo() {
	if(event.keycode == "13"){
		model.setFocus("btn_ref");
		
		//±×¸®µå ÃʱâÈ­
		model.removeNodeset(sPRCPLIST_PATH);
		model.removeNodeset(sBFPRCPLIST_PATH); 
		
		//ȯÀÚ¾ÆÀ̵ð·Î ÇöÀç »óÅ Á¶È¸
		var pid = model.getValue("/root/main/cond/pid");
		model.removeNodeset("/root/send/reqdata");
		model.makeNode("/root/send/reqdata");
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd"));
		model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/cond/pid"));
		model.makeValue("/root/send/reqdata/refflag", "pat");
		model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn"));					
		if (submit("TRMNW10904")) {
			if (model.getValue("/root/main/patinfocond/patinfo/wardcd") == 'err') {
				messageBox("ÇØ´ç ȯÀÚ Á¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.", "I");
				model.setValue("/root/main/cond/patnm", model.getValue("/root/init/patinfo/patlist/pid"));
				model.setFocus("ipt_pid");
				model.refresh();
				return;
				
			} else {
			    btn_signsave.disabled = false;
				//ÇØ´ç ºÎ¼­ ¼ÂÆÃ	
				if (getNodesetCount("/root/main/patinfocond/patinfo") > 1 ) {
					modal("SPMNW11800", 1, 100, 100, "SPMNW11800", "/root/main/patinfocond", "/root/main/patinfocond");	
				} 
				model.setValue("/root/main/cond/wardcd", model.getValue("/root/main/patinfocond/patinfo/wardcd"));			
				
				if (model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'I' || model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'D' || model.getValue("/root/main/patinfocond/patinfo/ordtype") == 'E') {
					cmb_room.disabled = false;
				
					//ÇØ´ç º´µ¿ÀÇ º´½Ç Á¶È¸
					model.removeNodeset("/root/send/reqdata");
					model.makeNode("/root/send/reqdata");
					model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
					submit("TRMNW10902", false);
					model.setValue("/root/main/cond/roomcd", model.getValue("/root/main/patinfocond/patinfo/roomcd"));		//ÇØ´ç º´½Ç ¼ÂÆÃ
					
					//ÇØ´ç º´½ÇÀÇ È¯ÀÚ Á¶È¸
					model.removeNodeset("/root/send/reqdata");
					model.makeNode("/root/send/reqdata");
					model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd"));
					model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
					model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd"));
					model.makeValue("/root/send/reqdata/refflag", "room");
					model.makeValue("/root/send/reqdata/ordtype", "I");
					model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
					
					if(spcldept == model.getValue("/root/main/cond/wardcd")) {
						model.makeValue("/root/send/reqdata/spcldeptyn", "Y");
					} else {
						model.makeValue("/root/send/reqdata/spcldeptyn", "");
					}
					submit("TRMNW10903", false);

					
					//20110216 °æºÏ´ë : ÀÀ±Þ½Ç ±¸¿ª ¸ÅÇÎ
					model.makeValue("/root/main/cond/zonecd", model.getValue("/root/main/patinfocond/patinfo/zonecd"));

					
				} else {
					model.removeNodeset("/root/init/roominfo/room/roomcd");
					cmb_room.disabled = true;
					
					//ÇØ´ç ºÎ¼­(Áø·á°ú)ÀÇ È¯ÀÚ Á¶È¸
					model.removeNodeset("/root/send/reqdata");
					model.makeNode("/root/send/reqdata");
					model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd"));
					model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
					model.makeValue("/root/send/reqdata/refflag", "dept");
					model.makeValue("/root/send/reqdata/ordtype", "O");
		            model.makeValue("/root/send/reqdata/homecareyn", model.getValue("/root/main/cond/homecareyn"));					
					
					if(spcldept == model.getValue("/root/main/cond/wardcd")) {
						model.makeValue("/root/send/reqdata/spcldeptyn", "Y");
					} else {
						model.makeValue("/root/send/reqdata/spcldeptyn", "");
					}
					
					submit("TRMNW10903", false);
					
					//°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸
				  	if(model.getValue("/root/main/cond/homecareyn") == "Y") {
				  		fSearchHomePatInfo();
				  	}
				}
            	//ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ
            	model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']");

				model.setValue("/root/main/cond/patnm", model.getValue("/root/main/patinfocond/patinfo/pid"));				//ÇØ´ç ȯÀÚ¸í ¼ÂÆÃ
				
				
				fChkClincstdy();			//Àӻ󿬱¸ üũ
				fReqBfNursPrcpInfo();		//Àüó¹æ Á¶È¸
			}
		}
	}		
}

/**
 * @desc   : Á¶È¸Á¶°Ç ȯÀÚ¸í º¯°æ½Ã
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fChgPatnm(deptflag, prcpdd, initflag) {
    btn_signsave.disabled = false;
    
	model.removeNodeset(sPRCPSRCHLIST_PATH);	//SETó¹æ Á¶È¸ÇÏ´Â ½ÃÁ¡¿¡ spynpy1¸¦ Á¶È¸Çϱâ À§ÇÑ insukind¸¦ ³Ñ°ÜÁà¾ß ÇÔ(ȯÀÚº°·Î ´Ù¸§)
	model.removeNodeset(sPRCPLIST_PATH);	

	var pid = model.getValue("/root/main/cond/patnm");
	model.setValue("/root/main/cond/pid", pid);
	
	if ( isNull(model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/pid"))) {
		
    	if (initflag =="init" 
    	 && deptflag == "O" 
    	 && model.getValue(sPATINFO_PATH + "/orddd") != prcpdd 
    	 && model.getValue("/root/main/cond/upinfoyn") =="Y" ) {			//È­¸é¿ÀÇ½à ¿Ü·¡¼öÁøÀÏÀÚ¿Í Ã³¹æÀÏÀÚ°¡ ´Ù¸¦°æ¿ì ºí·¯Å·¸Þ½ÃÁö.20100727 ±èÈ«Á¡ ±è¼÷ÀÎitc¿äû
    	
    		messageBox("Áø·áÀÏ["+model.getValue(sPATINFO_PATH + "/orddd")+"]°ú ó¹æÀÏÀÚ°¡ ´Þ¶ó ó¹æ¹ßÇàÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù", "I");
    		btn_signsave.disabled = true;
        	if ( !isNull(model.getValue("/root/main/cond/patnm")) ) {
              	fReqBfNursPrcpInfo();		//Àüó¹æ Á¶È¸
        	}  	
    		return;
    	}else {
    	    model.resetInstanceNode("/root/main/cond/pid");	
    	}
	}
	ipt_pid.refresh();
	
	if (model.getValue("/root/init/patinfo/patlist[pid = '" + pid + "']/elbulbodstat") == '0') {			//M0062 Àü±¤ÆÇ»óÅ 
		messageBox("ÇØ´ç °ú¿¡ °£È£Á¢¼öµÇÁö ¾ÊÀº ȯÀÚÀÔ´Ï´Ù.", "I");
	}
	//ȯÀÚÁ¤º¸Á¶°Ç ¼ÂÆÃ
	model.copyNode(sPATINFO_PATH, "/root/init/patinfo/patlist[pid = '" + pid + "']");
	
	// ó¹æÀÇ ¼ÂÆÃ
	mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", model.getValue(sPATINFO_PATH + "/orddeptcd"), "0330");
	model.setValue("/root/main/prcpposinfo/cond/resndeptcd", model.getValue(sPATINFO_PATH + "/orddeptcd"));
    
    if("-" != model.getValue(sPATINFO_PATH + "/atdoctid") && !isNull(model.getValue(sPATINFO_PATH + "/atdoctid"))) {
        model.setValue("/root/main/prcpposinfo/cond/resndrid"  , model.getValue(sPATINFO_PATH + "/atdoctid"));
    } else {
        model.setValue("/root/main/prcpposinfo/cond/resndrid"  , model.getValue(sPATINFO_PATH + "/orddrid"));
    }

  	//°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì ¹æ¹®ÀÏÀÚ Á¶È¸
  	if(model.getValue("/root/main/cond/homecareyn") == "Y") {
  		fSearchHomePatInfo();
  	}
  	
   	fChkClincstdy();			//Àӻ󿬱¸ üũ

	if ( !isNull(model.getValue("/root/main/cond/patnm")) && !isNull(model.getValue("/root/main/cond/pid")) ) {
      	fReqBfNursPrcpInfo();		//Àüó¹æ Á¶È¸
	}
	
	// Ç×¾ÏÇÁ·ÎÅäÄݸí Á¶È¸
	if(pid != ""){
		fprtlnm(pid);	
	}  	
}
 
 
/**
 * @desc   : °¡Á¤°£È£ ȯÀÚÀÇ ¼Ò¼Ó Á¤º¸ Á¶È¸(¹æ¹®ÀÏÀÚ Æ÷ÇÔ)
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */ 
function fSearchHomePatInfo() {
	//ÇØ´ç ȯÀÚÀÇ ¹æ¹®ÀÏÀÚ Á¶È¸ : ¹æ¹®ÀÏÀÚ¿¡ µû¶ó ¿ø¹«Á¤º¸°¡ ´Þ¶óÁü
	model.removeNodeset("/root/send/reqdata");
	model.makeNode("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/cond/pid"));
	
	submit("TRMNW10909");
 
}

/**
 * @desc   : ȯÀÚ¿¡ µû¸¥ Àӻ󿬱¸ üũ
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */ 
function fChkClincstdy() {
	//clincstdyacptflag : otpt(N:ÀÓ»ó½ÃÇèÁ¢¼ö¾Æ´Ô, P:»ç¶÷ÀÓ»ó A:µ¿¹°ÀÓ»ó), inpt(Àӻ󿬱¸¿©ºÎ)
	
	if( !isNull(model.getValue(sPATINFO_PATH + "/clincstdyflag"))
	 && model.getValue(sPATINFO_PATH + "/clincstdyflag") != "N"){
		chk_clincstdy.disabled = false;
		model.setValue("/root/main/cond/clincstdyflag", "Y");
	}else{
		chk_clincstdy.disabled = true;
		model.setValue("/root/main/cond/clincstdyflag", "N");
	}
}

/**
 * @desc   : º¸ÇèÁ¤º¸ Á¶È¸
 * @	
 * @param  : calcscorcd ¼ö°¡ÄÚµå
 * @return :
 * @author : ¼º¹Ì¿¬
           : - ¿ÀÁöÈÆ 2007.12.27 ¼öÁ¤
 * @---------------------------------------------------
 */
function fInsuMsgInfoRef(calcscorcd) {
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/calcscorcd", calcscorcd);
	if(submit("TRMNW10907")){
	}
}

/**
 * @desc   : ¾àÇ°Æí¶÷ Á¶È¸
 * @
 * @param  : 
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fDrugHbook() {
	var prcpclscd = model.getValue(sPRCPSRCHLIST_PATH +"[" + grd_prcplist.row  + "]/prcpclscd");
	
	if("A2" == prcpclscd || "A4" == prcpclscd || "A6" == prcpclscd) { 
		model.makeValue("/root/temp/setparma/prcpcd", model.getValue(sPRCPSRCHLIST_PATH +"[" + grd_prcplist.row  + "]/prcpcd"));
		modal("SMADB01900", "1", "0", "0", "","/root/temp/setparma/prcpcd", "/root/hidden/receivedata/srchdrugcd");
		model.removenode("/root/temp/setparma/prcpcd");  
	} else {
		messageBox("¾à/ÁÖ»ç ó¹æÀÌ ¾Æ´Õ´Ï´Ù.", "I");
	}
}


/**
 * @desc   : ¼ö°¡Æí¶÷ Á¶È¸
 * @
 * @param  : 
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fCalcScorHbook(flag) {
		
	var prcpcd;
	
	if(flag == 'prcp'){
		
		prcpcd = model.getValue(sPRCPSRCHLIST_PATH +"[" + grd_prcplist.row  + "]/prcpcd") 
		model.makeValue("/root/temp/setparma/prcpcd", prcpcd);
		modal("SMPIC00200", "1", "400", "400", "",  "/root/temp/setparma/prcpcd" , "/root/temp");
		
		if(prcpcd ==  model.getValue("/root/temp/picmmech/picmmech_calcscorcd") ) {
		  	if (grd_prcplist.row > 0 ){  		
	  			if (model.getValue("/root/main/cond/patnm") == "") {
						messageBox("ÇØ´ç ȯÀÚ¸¦", "C002");
						return;
				}
	
				//ó¹æ main grid·Î ¾à¼Óó¹æ copy
				mnwAddNursPrcp(sPRCPSRCHLIST_PATH, "/root/main/prcp", grd_prcplist.row, "");
		    
			  var prcplist = model.instances(0).selectNodes("/root/main/prcp/prcplist");
				fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length);
		    
			  fSetPrcpInfo();
			    //½Å±Ôó¹æÀº ¹ÝȯÄ÷³ disable
				grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("tempcol8")) = true;
        if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){
            grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true;
        }			
	    
		    //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸
		    var calcscormastspec = model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec");
		    var calcscorcd = calcscormastspec.split("|");
		    fInsuMsgInfoRef(calcscorcd[3]);
		  }	  
		}
		model.removenode("/root/temp/picmmech");  
		model.removenode("/root/temp/setparma"); 
			
	}else if(flag == 'prcppos'){
			prcpcd = model.getValue(sPRCPLIST_PATH +"[" + grd_prcpposlist.row  + "]/prcpcd") 
			model.makeValue("/root/temp/setparma/prcpcd", prcpcd);
			modal("SMPIC00200", "1", "400", "400", "",  "/root/temp/setparma/prcpcd" , "/root/temp");
	}else if(flag == 'bf'){
			prcpcd = model.getValue(sBFPRCPLIST_PATH +"[" + grd_bfprcplist.row  + "]/prcpcd") 
			model.makeValue("/root/temp/setparma/prcpcd", prcpcd);
			modal("SMPIC00200", "1", "400", "400", "",  "/root/temp/setparma/prcpcd" , "/root/temp");
	}
}


/**
 * @desc   : ¹°·ùÆí¶÷ Á¶È¸
 * @
 * @param  : 
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fGoodHbook() {
	modal("SMRSC00600", "1", "0", "0");
}

 
/**
 * @desc   : °£È£Ã³¹æ Ãß°¡
 * @
 * @param  : srcnode  ¿øº»³ëµå   
 *         : trgtnode ¸ñÀûÁö³ëµå
 *         : currow   row°ª 
 *         : pflag    󸮱¸ºÐ    popup¿¡¼­ opener·Î 󸮵Ǵ °æ¿ì, openerÀ¸·Î ¼³Á¤
 *         : status   »óű¸ºÐ(I:½Å±Ô, U:¼öÁ¤, D:D/C)
 *
 * @return : 
 * @author : ¿ÀÁöÈÆ 2007.12.27
 * @---------------------------------------------------
 */
function mnwAddNursPrcp(srcnode, trgtnode, currow, pflag){ 
  //¸ñÀûÁö ³ëµå¿¡ ó¹æinstance¸¦ copyÇÑ´Ù.
  var node = model.instances(0).selectSingleNode(srcnode + "[" + currow + "]");
  if(pflag == "popup"){
    var desnode     = opener.model.instances(0).selectSingleNode(trgtnode);
    var desnodelist = opener.model.instances(0).selectNodes(trgtnode);

  }else{
    var desnode     = model.instances(0).selectSingleNode(trgtnode);
    var desnodelist = model.instances(0).selectNodes(trgtnode);

  }  
  desnode.appendChild(node.cloneNode(true));
}

/**
 * @desc   : ÇÑ/¿µ ¿©ºÎ °Ë»ç
 * @
 * @param  : param  ÇÑ¿µ±¸ºÐÇÒ ¹®ÀÚ¿­ 
 * @return : "H"    ÇѱÛ
 *         : "E"    ¿µ¹®
 * @author : ¿ÀÁöÈÆ 2007.12.28
 * @---------------------------------------------------
 */
function fIsHng(param){
    //parameterÀÇ Ã¹¹ø° ±ÛÀÚÀÇ ¹®ÀÚÄÚµå °ªÀÌ 255º¸´Ù Å©¸é ÇѱÛ, ÀÛÀ¸¸é ¿µ¹®
	if(param.charCodeAt(0) > 255){ 
	    return "H";
	} else{
		return "E";
	}
}

/**
 * @desc   : ó¹ædata(¸í, ÄÚµå)°Ë»ö
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 *         : - ¿ÀÁöÈÆ 2007.12.27 ¼öÁ¤
 * @---------------------------------------------------
 */
function fReqSrchPrcpData(){
    if (model.getValue("/root/main/srchcond/srchdata").length < 2 ){
		messageBox("°Ë»ö¾î´Â 2ÀÚ ÀÌ»ó","C001");
		model.setFocus("ipt_listsrchdata");
		return;
	}
	model.removeNodeset("/root/main/prcpsrch"); // Á¶È¸°á°ú node¸¦ »èÁ¦
	model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/prcpdd"  ,  model.getValue("/root/main/cond/prcpdd"));
    model.makeValue("/root/send/reqdata/srchflag",  model.getValue("/root/main/srchcond/srchflag"));
    model.makeValue("/root/send/reqdata/srchdata",  model.getValue("/root/main/srchcond/srchdata"));
    model.makeValue("/root/send/reqdata/langflag",  fIsHng(model.getValue("/root/main/srchcond/srchdata")));
    model.makeValue("/root/send/reqdata/insukind",  model.getValue("/root/main/patinfocond/patinfo/insukind"));
    
  	if(submit("TRMNW20101")){
        //-------------°æºÏ´ë (20101213)
        var prcplist = model.instances(0).selectNodes("/root/main/prcpsrch/prcplist");
        //-------------°æºÏ´ë (20101213)
        if(prcplist.length > 0){
            //open("SPMNW10600", 1, "", "", "SPMNW10600", "/root/main/prcpsrch", "/root/main/prcpsrch");
            //model.removeNodeset("/root/main/prcpsrch"); //ó¹æ°Ë»ö °á°ú ÈÄ, Á¶È¸°á°ú node¸¦ »èÁ¦
        }else{
            messageBox("°Ë»ö °á°ú°¡", "I004");
            model.setFocus("ipt_listsrchdata");
            return;
        }
    }
    model.refresh();
}

/**
 * @desc   : SETó¹æ ¸®½ºÆ® ¿ë¹ý Ŭ¸¯½Ã Æ˾÷
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬
 * @---------------------------------------------------
 */
function fClickSavePrcpDrugMthd(){
	var currow = grd_prcpposlist.mouseRow;
	if(currow < 1){
		return;
	}
	var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + currow + "]/prcpclscd");
	if((prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6") && grd_prcpposlist.col == grd_prcpposlist.colRef("drugmthdspccdnm")){
		setParameter("srchRow", grd_prcpposlist.row);
		setParameter("GridPath", sPRCPLIST_PATH);
		modal("SPMNW11200");

	}else if (grd_prcpposlist.col < 4 ) {
		//¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸
	    var calcscormastspec = model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/calcscormastspec");
    	var calcscorcd = calcscormastspec.split("|");
	    fInsuMsgInfoRef(calcscorcd[3]);
	}	
}

/**
 * @desc   : °£È£Ã³¹æ SignData Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ 2008. 1. 2
 * @---------------------------------------------------
 */
function fReqNursPrcpSignData(){
    if (model.getValue("/root/main/cond/pid") == "" || model.getValue("/root/main/cond/patnm") == "") {
        messageBox("ȯÀÚ°¡ ÁöÁ¤µÇÁö", "E007");
        return;
    }
    //20110422_KNUH_Start Àá½Ã ÁÖ¼®Ã³¸®.
    //20110420_KNUH_Start
    var cnt = 0;
    var str = "";
    
    var drprcpetc7;
    var drprcpetc8;
    var prcpclscd;
    var prcpcd;
    
    //20110626_KNUH_Start º¸Á¶À¯ÇüÀÌ ¹Ì¿ë¼ºÇüÀÏ °æ¿ì, ó¹æÀ» º¸Á¶À¯ÇüÀ¸·Î ¹ßÇàÇϵµ·Ï ÇÏ´Â ·ÎÁ÷ Ãß°¡
    var anamneflag;      //±â¿Õ·Â À¯¹«(Y/N9
    var anamnecnt = 0;   
    var subcretno = "";  //º¸Á¶À¯Çü»ý¼º¹øÈ£(subcretno)
    
    var flag;
    var tempcol8;
    var str1 = "";
    var str2 = "";
    var stoccnt = 0;
    var stoccnt2 = 0;
    var idxinfo = "";
    var idxinfo2= "";
    
    var sResnCd   = model.getValue("/root/main/prcpposinfo/cond/resncd");
    var sResnCnts = "";
    
    if(sResnCd == "Z") {
        sResnCnts = model.getValue("/root/main/prcpposinfo/cond/etcresn");
    } else {
        sResnCnts = model.getValue("/root/init/comcodelist/resn_cmblist/M0756[cdid = '"+ sResnCd + "']/cdnm");
    }
    if (isNull(sResnCd)) {
        messageBox("ó¹æ»çÀ¯°¡ ÁöÁ¤µÇÁö", "E007");
        return;
    }
    
    var sResnDeptCd = model.getValue("/root/main/prcpposinfo/cond/resndeptcd"); 
    if (isNull(sResnDeptCd) || "-" == sResnDeptCd) {
        messageBox("ó¹æÀÇ»çÀÇ ºÎ¼­°¡ ÁöÁ¤µÇÁö", "E007");
        return;
    }
    
    var sResnDrId = model.getValue("/root/main/prcpposinfo/cond/resndrid"); 
    if (isNull(sResnDrId) || "-" == sResnDrId) {
        messageBox("ó¹æÀǻ簡 ÁöÁ¤µÇÁö", "E007");
        return;
    }
    
    if ("11111" == sResnDrId || "EMR" == sResnDrId) {
        messageBox("ó¹æÀÇ»ç·Î ÁöÁ¤ÇÒ¼ö ¾ø´Â ÀÇ»çÀÔ´Ï´Ù.", "E999");
        return;
    }
    
    for (var i=grd_prcpposlist.fixedRows; i < grd_prcpposlist.rows; i++) {
        drprcpetc7 = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc7"));
        drprcpetc8 = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc8"));
        prcpclscd  = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("prcpclscd"));
        prcpcd     = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("prcpcd"));
        prcpnm     = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("prcpnm"));
        
        flag       = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("flag"));
        tempcol8   = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("tempcol8"));
        
        qty         = parseInt(grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("drprcpetc8")));
        
        if(flag == "N" && (tempcol8 == "N" || tempcol8 == "" || tempcol8 == null)) {
      		messageBox("[" + prcpcd + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E");
      		grd_prcpposlist.row = i;
      		return;
      	}
  	
      	//20110626_KNUH_Start º¸Á¶À¯ÇüÀÌ ¹Ì¿ë¼ºÇüÀÏ °æ¿ì, ó¹æÀ» º¸Á¶À¯ÇüÀ¸·Î ¹ßÇàÇϵµ·Ï ÇÏ´Â ·ÎÁ÷ Ãß°¡
      	anamneflag = grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag"));
  	    if(anamneflag == "Y") {
      		if(anamnecnt == 0) {
      			var flag = fCheckSubKindCd();
      			if(flag == "false") {
      				return;
      			}

      			subcretno =  model.getValue("/root/temp/prcpinfo/subcretno");
      			if(subcretno == "0" || subcretno == "" || subcretno == null) {
      			    messageBox ( "ȯÀÚÀÇ ºÎÀ¯ÇüÀÌ ¾ø°Å³ª ¶Ç´Â ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.\n\n±â¿ÕÁõ üũ¸¦ ÇØÁ¦ ÇÕ´Ï´Ù.", "I999" );
   					subcretno = "0";
   				}
      		}
      		anamnecnt++;
      		if(subcretno != "0") {  		
    	  		grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno")) = subcretno;
    	  	} else {
    	  	    grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag")) = "N";
    	  		grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno"))  = "0";
    	  	}
  		} else {
  		    grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("anamneflag")) = "N";
  		    grd_prcpposlist.valueMatrix(i,grd_prcpposlist.colRef("subcretno"))  = "0";
  	    }
  	    //20110626_KNUH_End
  	
  	    if( drprcpetc7 != drprcpetc8 || drprcpetc7 == "Y" || drprcpetc8 == "Y" || drprcpetc7 == "N" || drprcpetc8 == "N") {
      		if(prcpclscd == "A6" || prcpclscd == "A4" || prcpclscd == "A2") {
      			continue;
      		} else {
    	  		grd_prcpposlist.cellstyle("background-color", i, 1, i, grd_prcpposlist.cols-1) = "#FFF000";
    	  		if(cnt != 0) {
    	  			str += ",";
    	  		}
    	  		str += i;  		
    	  		cnt++;
    	  	}
      	} else {
      		grd_prcpposlist.cellstyle("background-color", i, 1, i, grd_prcpposlist.cols-1) = "#FFFFFF";
      	} 	
    }
  
    if(cnt > 0) {
        messageBox(str + "¹ø° ó¹æÀÌ À߸ø ¹ß»ýµÇ¾ú½À´Ï´Ù. ¿ìÃø¸¶¿ì½º¸¦ ´­·¯ »èÁ¦ÈÄ ´Ù½Ã ÀÔ·ÂÇϽʽÿÀ.", "E");
        return;
    }
  
    //20090908 khj
    if (( model.getValue(sPATINFO_PATH + "/ordtype") == "I" || model.getValue(sPATINFO_PATH + "/ordtype") == "D" )) {
        model.removeNodeset("/root/send/reqdata");
        model.makeNode("/root/send/reqdata");      
        model.makeValue("/root/send/reqdata/orddd",         model.getValue("/root/main/cond/prcpdd"));
        model.makeValue("/root/send/reqdata/wardcd",        model.getValue("/root/main/cond/wardcd"));
        model.makeValue("/root/send/reqdata/roomcd",        model.getValue("/root/main/cond/roomcd"));
        model.makeValue("/root/send/reqdata/refflag",       "room");
        model.makeValue("/root/send/reqdata/ordtype",       "I");      
        model.makeValue("/root/send/reqdata/settingrnid",   model.getValue("/root/main/cond/settingrnid"));
     
    	if(spcldept == model.getValue("/root/main/cond/wardcd")) {
    		model.makeValue("/root/send/reqdata/spcldeptyn", "Y");
    	} else {
    		model.makeValue("/root/send/reqdata/spcldeptyn", "");
    	}
        submit("TRMNW10903");
      
        var pid = model.getValue("/root/main/cond/pid");
        model.copyNode("/root/main/patinfocond/patinfo", "/root/init/patinfo/patlist[pid = '" + pid + "']");
      
        if ( model.getValue(sPATINFO_PATH + "/careinrmyn") != "Y" ){
            messageBox("ÀÔ½Çüũ¸¦ Çϱâ Àü ¶Ç´Â Åð¿øȯÀڴ ó¹æ ÀúÀåÀ» ÇÏ½Ç ¼ö ", "I004");
            return; 
        }
    } 
  
    if (model.getValue(sPRCPLIST_PATH + "/prcpcd") == "") {
        messageBox("ÀúÀåÇÒ Ã³¹æ³»¿ªÀÌ", "I004");
        return; 
    } 
  
    var posdept = model.getValue("/root/main/prcpposinfo/cond/deptcd");
    if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '2' && model.getValue("/root/init/deptinfo/deptlist[deptcd = '"+ posdept + "']/deptcd") == "") {
        messageBox("UserÀ§Ä¡°¡ ÁöÁ¤µÇÁö", "E007");
        return;
    }

    model.removeNodeset("/root/send/reqdata");
    model.makeNode("root/err/result");
    model.makeNode("/root/endinfo/result");  
  
  
    //»ó´ÜÁ¤º¸°¡ ¾Æ´Ñ, ȯÀÚ°Ë»öÁ¤º¸ ¼³Á¤ÀÎ °æ¿ì
    var ioflag     = model.getValue("/root/main/patinfocond/patinfo/ordtype");
    var orddeptcd  = model.getValue("/root/main/patinfocond/patinfo/orddeptcd");
    var orddeptnm  = model.getValue("/root/main/patinfocond/patinfo/orddeptnm");
    var orddrid    = model.getValue("/root/main/patinfocond/patinfo/orddrid");
    var orddrnm    = model.getValue("/root/main/patinfocond/patinfo/orddrnm");
    var pid        = model.getValue("/root/main/patinfocond/patinfo/pid");
    var hngnm      = model.getValue("/root/main/patinfocond/patinfo/patnm");
    var cretno     = model.getValue("/root/main/patinfocond/patinfo/cretno");
    var instcd     = model.getValue("/root/main/patinfocond/patinfo/instcd");
    var sa         = model.getValue("/root/main/patinfocond/patinfo/sexage");
    var userkindcd = model.getValue("/root/main/patinfocond/patinfo/userkindcd");
    var aftcertdrid = "";
    var orddd = "";
    var pamflag = "";
    var chkprcpclscd ="";
    var chkaftcertyn ="";
  
    if(ioflag == "O" || ioflag == "S"){    
        orddd = model.getValue("/root/main/patinfocond/patinfo/orddd");
        if ( userkindcd == "97" ){
        	for (var i=1; i < grd_prcpposlist.rows; i++) {  
        		chkprcpclscd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpclscd");
         	    if (!isNull( model.getValue("/root/code/codeinfo/codelist[cdgrupid ='207' and cdid = '"+chkprcpclscd+"']/cdid") )) {
        			chkaftcertyn = "Y";
        			break;
        		}
        	}
        	if ( chkaftcertyn == "Y" ){
                setParameter("SPMMB04100_orddrid", orddrid);
                setParameter("SPMMB04100_defdeptcd", orddeptcd);
                modal("SPMMB04100");
                var useyn = getParameter("SPMMB04100_useyn");
        		if (useyn != "Y") {
        			return false;
        		}else if(useyn == "Y"){ //ÈÄÀÎÁõ ¼±ÅÃÀÇ»ç·Î ¼³Á¤
                    aftcertdrid = getParameter("SPMMB04100_orddrid");
                }
        	}
        }
    }else{
        orddd = model.getValue("/root/main/patinfocond/patinfo/indd");
    }
    
    var bedcd = model.getValue(cmb_Zone.attribute("ref"));
    var er	="";
    var grupcd = "";
    
    if(ioflag == "O"){ //¿Ü·¡ÀÎ °æ¿ì, ¿ø¹«Á¤º¸ ó¸®
        pamflag = "Y";
    }
    var deptcd="";
    var deptnm="";
  
    if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '1') {		//ȯÀÚÀ§Ä¡
        if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) {
        	deptcd = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd");
        	deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd") + "']/depthngnm");	
        } else {
    		deptcd = model.getValue("/root/main/cond/wardcd");
    		deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/cond/wardcd") + "']/depthngnm");
    	}
    } else {  //UserÀ§Ä¡
    	deptcd = model.getValue("/root/main/prcpposinfo/cond/deptcd");
    	deptnm = model.getValue("/root/init/deptinfo/deptlist[deptcd = '" + model.getValue("/root/main/prcpposinfo/cond/deptcd") + "']/depthngnm");	
    } 
  
    model.makeValue("/root/temp/saveflaginfo/savedataflag", "2");    //ÀúÀåÀڷᱸºÐ(2:ó¹æ)
    model.makeValue("/root/temp/saveflaginfo/saveflag"    , ioflag); //ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø, D:DSC
    model.makeValue("/root/temp/saveflaginfo/prcpflag"    , "2");    //ó¹æ±¸ºÐ (M0035 ó¹æ±ÇÇÑ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù : °£È£ Ãß°¡Ã³¹æ) ó¹æ±¸ºÐ 0:ÀÇ»çó¹æ, 2:°£È£, 3:Áö¿øºÎ¼­, 5:Admission, 6:CP, 7:Ç×¾ÏÇÁ·ÎÅäÄÝ, 8:ÀÓ½Ãó¹æ
    model.makeValue("/root/temp/saveflaginfo/inptflag"    , "38");   //ó¹æÀԷ±¸ºÐ (M0034 ó¹æÀԷ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù 38 : ±¸µÎó¹æ)
    model.makeValue("/root/temp/saveflaginfo/pamflag"     , pamflag);//¿ø¹«Á¤º¸ 󸮱¸ºÐ(¿Ü·¡¸¸ Y)
    model.makeValue("/root/temp/saveflaginfo/prcperrflag" , "Y");    //ó¹æ¿À·ù±¸ºÐ
    model.makeValue("/root/temp/saveflaginfo/deptcd"      , deptcd); //ºÎ¼­ÄÚµå
    model.makeValue("/root/temp/saveflaginfo/deptnm"      , deptnm); //ºÎ¼­¸í
    model.makeValue("/root/temp/saveflaginfo/userid"      , getUserInfo("userid")); //»ç¿ëÀÚID
    model.makeValue("/root/temp/saveflaginfo/usernm"      , getUserInfo("usernm")); //»ç¿ëÀÚ¸í
    model.makeValue("/root/temp/saveflaginfo/signyn"      , "Y");                   //ÀüÀÚ¼­¸í¿©ºÎ
    model.makeValue("/root/temp/saveflaginfo/prcpdd"      , model.getValue("/root/main/cond/prcpdd")); //ó¹æÀÏ
    model.makeValue("/root/temp/saveflaginfo/resndeptcd"  , sResnDeptCd);   //±¸µÎó¹æ ¹ßÇàÀÇ ºÎ¼­
    model.makeValue("/root/temp/saveflaginfo/resndrid"    , sResnDrId);     //±¸µÎó¹æ ¹ßÇàÀÇ
    model.makeValue("/root/temp/saveflaginfo/resncd"      , sResnCd);       //±¸µÎó¹æ »çÀ¯
    model.makeValue("/root/temp/saveflaginfo/resncnts"    , sResnCnts);     //±¸µÎó¹æ »çÀ¯ ³»¿ë
    
    
    var saveflaginfolist = getNodeListCSV(model.instances(0).selectNodes("/root/temp/saveflaginfo"));
    model.makeValue("/root/send/reqdata/saveflaginfo", saveflaginfolist);
    
    model.makeValue("/root/temp/savergstinfo/pid"         , pid);           //µî·Ï¹øÈ£
    model.makeValue("/root/temp/savergstinfo/indd"        , orddd);         //Áø·áÀÏÀÚ
    model.makeValue("/root/temp/savergstinfo/orddd"       , orddd);         //Áø·áÀÏÀÚ
    model.makeValue("/root/temp/savergstinfo/cretno"      , cretno);        //»ý¼º¹øÈ£
    model.makeValue("/root/temp/savergstinfo/instcd"      , instcd);        //±â°üÄÚµå
    model.makeValue("/root/temp/savergstinfo/orddeptcd"   , orddeptcd);     //Áø·á°ú
    model.makeValue("/root/temp/savergstinfo/orddeptnm"   , orddeptnm);     //Áø·á°ú¸í
    model.makeValue("/root/temp/savergstinfo/orddrid"     , orddrid);       //Áø·áÀÇ
    model.makeValue("/root/temp/savergstinfo/orddrnm"     , orddrnm);       //Áø·áÀǸí
    model.makeValue("/root/temp/savergstinfo/hngnm"       , hngnm);         //ȯÀÚ¸í
    model.makeValue("/root/temp/savergstinfo/sa"          , sa);            //¼ºº°³ªÀÌ
    model.makeValue("/root/temp/savergstinfo/ordtype"     , ioflag);        //¿Ü·¡ÀÔ¿ø±¸ºÐ
    model.makeValue("/root/temp/savergstinfo/aftcertdrid" , aftcertdrid);   //¿Ü·¡ ÀϹÝÀÇ»çÀÇ °æ¿ì ÈÄÀÎÁõ ´ë»óÀÇ»ç´Â ÁöÁ¤ÇÑ´Ù.
    
    var savergstinfolist = getNodeListCSV(model.instances(0).selectNodes("/root/temp/savergstinfo"));
    model.makeValue("/root/send/reqdata/savergstinfo", savergstinfolist);

    for(var i = 1; i < grd_prcpposlist.rows; i++){
        var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpclscd");
        var drugmthdspccd   = model.getValue(sPRCPLIST_PATH + "[" + i + "]/drugmthdspccd");
        var drugmthdspccdnm = model.getValue(sPRCPLIST_PATH + "[" + i + "]/drugmthdspccdnm");
        var prcpno          = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcprefseq");
        var prcpcd          = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpcd");
        var prcpnm          = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpnm");
        var rtnflag         = model.getValue(sPRCPLIST_PATH + "[" + i + "]/tempcol8");	//¹Ýȯüũ
        var enddd           = model.getValue(sPRCPLIST_PATH + "[" + i + "]/tempcol10");
        var prcppkspec      = (model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcppkspec")).split("|");	

       	//¾à,ÁÖ»ç ó¹æ Áß¿¡ ¿ë¹ýÀÌ ¾øÀ» °æ¿ì ¿¡·¯¸®½ºÆ®
       	if("A2" == prcpclscd || "A4" == prcpclscd || "A6" == prcpclscd){
       		if(drugmthdspccd == "-" || drugmthdspccdnm == "-" || drugmthdspccdnm == " " || drugmthdspccdnm == "") {
       			model.makeValue("/root/err/errresult/prcperrlist/prcpno",  prcpno);
       			model.makeValue("/root/err/errresult/prcperrlist/prcpcd",  prcpcd);
       			model.makeValue("/root/err/errresult/prcperrlist/prcpnm",  prcpnm);
       			model.makeValue("/root/err/errresult/prcperrlist/prcperr",  "¿ë¹ýÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
       			model.makeValue("/root/err/errresult/prcperrlist/prcplineno",  i);
       			model.duplicate("/root/err/result","/root/err/errresult/prcperrlist");
       		}
       	}

       	var prcpvol = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpvol");
       	var prcpqty = model.getValue(sPRCPLIST_PATH + "[" + i + "]/prcpqty");
   	
       	//¼ö·®ÀÌ 0º¸´Ù ÀûÀ» °æ¿ì ¿¡·¯¸®½ºÆ®
       	if(prcpvol <= 0 || prcpqty <= 0 ) {
       		model.makeValue("/root/err/errresult/prcperrlist/prcpno",  prcpno);
       		model.makeValue("/root/err/errresult/prcperrlist/prcpcd",  prcpcd);
       		model.makeValue("/root/err/errresult/prcperrlist/prcpnm",  prcpnm);
       		model.makeValue("/root/err/errresult/prcperrlist/prcperr",  "ó¹æ ¼ö·®À» È®ÀÎÇϼ¼¿ä");		
       		model.makeValue("/root/err/errresult/prcperrlist/prcplineno",  i);									
       		model.duplicate("/root/err/result","/root/err/errresult/prcperrlist");
       	}
   	
       	//********************************************
       	//Àӻ󿬱¸ ȯÀÚüũ	
       	if(model.getValue("root/main/cond/clincstdyflag") == "Y"){
       		model.setValue(sPRCPLIST_PATH + "[" + i + "]/clincstdyflag", "Y");
       		model.setValue(sPRCPLIST_PATH + "[" + i + "]/clincstdycd", model.getValue(sPATINFO_PATH + "/clincstdycd"));
       	}
   	    //*********************************************/
   	
       	//¸¶°¨ ÀÌÈÄ¿¡ ¹ÝȯÀÏ °æ¿ì ¹Ýȯ»çÀ¯ ÀÔ·Â Æ˾÷
       	//enddd default°ª º¯°æÀ¸·Î ¼öÁ¤_20080715
       	if(rtnflag == "Y" && enddd.substr(0,8) != '99991231' && enddd != ''){ 
       	    model.makeValue("/root/endinfo/endinforesult/list/prcpdd",      prcppkspec[0]);
       	    model.makeValue("/root/endinfo/endinforesult/list/prcpno",      prcppkspec[1]);
       	    model.makeValue("/root/endinfo/endinforesult/list/prcphistno",  prcppkspec[2]);
       	    model.makeValue("/root/endinfo/endinforesult/list/execprcpno",  "");
       	    model.makeValue("/root/endinfo/endinforesult/list/instcd",      prcppkspec[3]);
       	    model.makeValue("/root/endinfo/endinforesult/list/ioflag",      ioflag);
       	    model.duplicate("/root/endinfo/result","/root/endinfo/endinforesult/list");
       	}
    }

    var saveprcplist = getNodeListCSV(model.instances(0).selectNodes("/root/main/prcp/prcplist"));
    model.makeValue("/root/send/reqdata/saveprcpinfo", saveprcplist);
  
    if (getNodesetCount ("/root/err/result/prcperrlist") > 0 ) {
		var xpt = window.screenleft + 100;
 		var ypt = window.screenTop + 50;     
    	var coord = getRelativeCoordinate ( xpt, ypt );
     	var mon = coord[0];
    	xpt = coord[1];
    	ypt = coord[2];
 		open( "SPMNW11000", mon,  xpt, ypt, "prcpdetl", "/root/err/result", "/root/result", "", false ); 	

	  	//¿À·ù¸ñ·Ï »ý¼ºÈÄ ¿À·ù³­ ó¹æÀ» ºÓÀº »öÀ¸·Î Ç¥½Ã
	  	fDestDisplayErrlist("/root/err/result/prcperrlist", "grd_prcpposlist"); 		
    	model.removeNodeset("/root/err");
	} else {
        //ÀÎÁõµ¥ÀÌÅÍ Ã³¸®
        if(submit("TRMNW10906")){
    	  	//** °£È£»çÅð¿øÅ뺸°¡ µÇ¾îÀÖ´Â °æ¿ì **//
    	    var dschnotiyn = model.getValue(sSIGNDATA_PATH + "/dschnotiyn"); // °£È£»çÅð¿øÈ®Á¤¿©ºÎ_20080923(ByJA)
    	    if(dschnotiyn == "Y"){
    	    	messageBox(  "[" + model.getValue("/root/main/patinfocond/patinfo/pid")
      	            +" " + model.getValue("/root/main/patinfocond/patinfo/patnm")
      	            +"]\n ÀÌ¹Ì Åð¿øÅ뺸°¡ µÇ¾î ó¹æÀ» ÀúÀå", "E001");
                return;
    	    }
	        //** °£È£»çÅð¿øÅ뺸°¡ µÇ¾îÀÖ´Â °æ¿ì **//
	    
    	    var signbfcnts = model.getValue(sSIGNDATA_PATH + "/signbfcnts");
    	    var userid = getUserInfo("userid");
		    // -----------------------(2010.08.18 ¼¾ÅÍ)start--------------------		
			//¿î¿µ¼­¹ö´Â ÀÎÁõ¸ðµâ Ÿ°í ±×¿Ü¼­¹ö´Â ÀÎÁõ¸ðµâÁ¦¿Ü
			var signinfo = "";
			if(vsettime == "") { //ÀÎÁõÀúÀåÇѽð£.
				signinfo = fMakeSignData(signbfcnts, userid, true); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤(true)_20080909(ByJA)
			} else {
				var res2 = getTimeInterval(vsettime, getCurrentTime(), 'hhmmss');
				if(res2 > signtime* 60 || res2 < 0) {
					signinfo = fMakeSignData(signbfcnts, userid, true); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤(true)_20080909(ByJA)	
				} else {
					signinfo = fMakeSignData(signbfcnts, userid, false); // Ç×»ó ÀÎÁõ¼­ ºñ¹Ð¹øÈ£ È®ÀÎ ¼³Á¤¾ÈÇÔ(false)_20080909(ByJA)	
				}
			}
		    // -----------------------(2010.08.18 ¼¾ÅÍ)start--------------------
		
    	    if(signinfo == "" || signinfo == "-"){  //ÀÎÁõÀúÀå Ãë¼Ò
    	    	return;
    	    }else{
    			//ó¹æ¹Ýȯ»çÀ¯ Æ˾÷
   			    vsetdate = getCurrentDate();
    			vsettime = getCurrentTime();

    		    if (getNodesetCount ("/root/endinfo/result/list") > 0 ) {
    				modal("SPPAS03000", "2", "100", "100", "SPPAS03000", "/root/endinfo/result", "root/target",  "left:100; top:100; width:400; height:400; sysmenu:hidden; min:visible; max:hidden; :hidden; resize:true; caption:visible;", false);
    			  	model.removeNodeset("/root/endinfo");
    			}

        		model.setValue(sSIGNDATA_PATH + "/signaftcnts", signinfo);	//true : ó¹æÀúÀåÇÒ ¶§¸¶´Ù ÀÎÁõÀúÀå Å¿ò

    		    var savesignlist = getNodeListCSV(model.instances(0).selectNodes(sSIGNDATA_PATH));
    		    model.makeValue("/root/send/savedata/saveflaginfo", saveflaginfolist);
    		    model.makeValue("/root/send/savedata/savergstinfo", savergstinfolist);
    		    model.makeValue("/root/send/savedata/saveprcpinfo", saveprcplist);
    		    model.makeValue("/root/send/savedata/savesigninfo", savesignlist);
    		    
    		    fSavePrcp(); //ó¹æÀúÀå
    	    }
	    }
	}
}

/**
 * @desc   : °£È£Ã³¹æ SignData »ý¼º
 * @
 * @param  : signbfcnts   - ÀÎÁõ Àü µ¥ÀÌÅÍ
 *         : signuserid   - ÀÎÁõÀÚID
 *         : signcnfmflag - ÀÎÁõÈ®Àο©ºÎ
 * @return :
 * @author : ¿ÀÁöÈÆ 2008. 1. 3
 * @---------------------------------------------------
 */
function fMakeSignData(signbfcnts, userid, signcnfmflag){

	return zesfSignData(signbfcnts, userid, signcnfmflag);
}

/**
 * @desc   : °£È£ Àüó¹æ Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ 2008. 1. 3
 * @---------------------------------------------------
 */
function fReqBfNursPrcpInfo(){
	if (model.getValue("/root/main/cond/patnm") == "" && model.getValue("/root/main/paminfo/list/pid") != "") {
		model.resetInstanceNode("/root/main/cond/pid");
		ipt_pid.refresh();
		messageBox("ȯÀÚ¸¦ ¸ÕÀú ÁöÁ¤ÇϽʽÿÀ!", "C");
		return;
	}

  var ordtype     = model.getValue("/root/main/patinfocond/patinfo/ordtype");
  var pid         = model.getValue("/root/main/patinfocond/patinfo/pid");
  var cretno      = model.getValue("/root/main/patinfocond/patinfo/cretno");  
  var insukind    = model.getValue("/root/main/patinfocond/patinfo/insukind");  
  var prcpfromdd  = model.getValue("/root/main/bfprcpinfo/bfcond/prcpfromdd");
  var prcptodd    = model.getValue("/root/main/bfprcpinfo/bfcond/prcptodd");
  var srchflag    = model.getValue("/root/main/bfprcpinfo/bfcond/srchflag");
  var srchclscd   = model.getValue("/root/main/bfprcpinfo/bfcond/srchclscd");
  var srchdata    = model.getValue("/root/main/bfprcpinfo/bfcond/srchdata");
  var srchdayflag = model.getValue("/root/main/bfprcpinfo/bfcond/srchdayflag"); 
  var ordercond   = model.getValue("/root/main/bfprcpinfo/bfcond/ordercond");
  var ordercond2  = model.getValue("/root/main/bfprcpinfo/bfcond/ordercond2");   
  //°¡Á¤°£È£ ¿©ºÎ(°¡Á¤°£È£ ȯÀÚÀÎ °æ¿ì´Â Àüó¹æ Á¶È¸½Ã ¿ø¹«Á¤º¸ Á¶°ÇÀ» °ÉÁö ¾ÊÀ½)
  var homecareyn  = model.getValue("/root/main/cond/homecareyn");	
  var deptcd      = model.getValue("/root/main/cond/wardcd");		
  
  if(ordtype == "O" || ordtype == "S"){
    var orddd = model.getValue("/root/main/patinfocond/patinfo/orddd");
    
  }else{
    var orddd = model.getValue("/root/main/patinfocond/patinfo/indd");  
    
  }
  
  model.removeNodeset("/root/send/reqdata");
  model.makeValue("/root/send/reqdata/pid"          , pid);
  model.makeValue("/root/send/reqdata/orddd"        , orddd);
  model.makeValue("/root/send/reqdata/cretno"       , cretno);
  model.makeValue("/root/send/reqdata/insukind"     , insukind);
  model.makeValue("/root/send/reqdata/prcpfromdd"   , prcpfromdd);
  model.makeValue("/root/send/reqdata/prcptodd"     , prcptodd);
  model.makeValue("/root/send/reqdata/ordtype"      , ordtype);
  model.makeValue("/root/send/reqdata/srchflag"     , srchflag);
  model.makeValue("/root/send/reqdata/srchclscd"    , srchclscd);
  model.makeValue("/root/send/reqdata/srchdata"     , srchdata);
  model.makeValue("/root/send/reqdata/srchdayflag"  , srchdayflag);  
  model.makeValue("/root/send/reqdata/homecareyn"   , homecareyn);  
  model.makeValue("/root/send/reqdata/ordercond"    , ordercond);  
  model.makeValue("/root/send/reqdata/ordercond2"   , ordercond2);  
  model.makeValue("/root/send/reqdata/deptcd"       , model.getValue("/root/main/cond/wardcd"));  
  model.makeValue("/root/send/reqdata/prcpinptflag" , "38");  // ó¹æÀԷ¿¡ ´ëÇÑ ±¸ºÐÁ¾·ù ('09':°£È£Ã³¹æ, '38':°£È£±¸µÎó¹æ)
  
  grd_bfprcplist.rebuildStyle();
  
  if(submit("TRMNW10905")){
		// ó¹æÀÏÀÚ·Î ±¸ºÐ¼± Ç¥½Ã(±âÁØÀÚ·á¿¡ µî·ÏµÈ ºÎ¼­¸¸)
  	if( deptcd == model.getValue("/root/code/codeinfo/codelist[cdgrupid='I09' and cdid ='"+deptcd+"']/cdid")){
  		var pGrdCnt = getNodesetCount(sBFPRCPLIST_PATH);
  		
  		if (pGrdCnt != 0 ) {
							
				var rgstdt1 = "";
				var rgstdt2 = "";
								
				for (var i = grd_bfprcplist.fixedRows; i <= grd_bfprcplist.rows; i++) {
					
					rgstdt1 = model.getValue(sBFPRCPLIST_PATH + "[" + i + "]/rgstdt");
					rgstdt2 = model.getValue(sBFPRCPLIST_PATH + "[" + (i+1) + "]/rgstdt");
					
					if (rgstdt1.substring(0,8) == rgstdt2.substring(0,8)){
					
					}else{
						if(i != 0){
							grd_bfprcplist.rowStyle(i, "all", "border-bottom-color") = "#ff0000";                                
							grd_bfprcplist.rowStyle(i, "all", "border-top-width") = "1";
						}
					}
	  		}
	  		grd_bfprcplist.refresh();
	  	}
  	}
  }
  
  //Àüó¹æ °Ë»ö ÈÄ °Ë»öâ ÃʱâÈ­
  model.resetInstanceNode("/root/main/bfprcpinfo/bfcond/srchdata");
  model.setFocus("ipt_bfsrchdata");
  ipt_bfsrchdata.refresh();
	
  //Àüó¹æ ¸®½ºÆ®¿¡¼­ ¹Ý³³ÀÏ °æ¿ì ÅؽºÆ® »¡°£»ö
  for ( i = 1; i<= getNodesetCount(sBFPRCPLIST_PATH); i++) {
  	var prcphistcd = model.getValue(sBFPRCPLIST_PATH + "[" + i + "]/prcphistcd");
	if (prcphistcd == "L" || prcphistcd == "D" ) {  
		grd_bfprcplist.rowStyle(i, "data", "color") = "#FF0000";
	}
  }
  model.refresh();
	
}

/**
 * @desc   : °£È£Ã³¹æ ±âº»°ª ¼³Á¤
 * @
 * @param  : desrow  ¸ñÀûÁö ³ëµåÀÇ rowÀ§Ä¡
 * @return :
 * @author : ¿ÀÁöÈÆ 2008. 1. 4
 * @---------------------------------------------------
 */
function fSetNursPrcpDefault(desrow){
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/status"               , "I");  //ó¹æ»óÅÂ(½Å±Ô)
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpkindcd"           , "20"); //ó¹æºÐ·ùÄÚµå(±¸µÎó¹æÀº ¸ðµÎ Ãß°¡)
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpstatcd"           , "000"); //ó¹æ»óÅÂÄÚµå
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpauthflag"         , "8");  //ó¹æ±ÇÇѱ¸ºÐ,  0:ÀÇ»çó¹æÈ­¸é¿¡¼­ ¹ß»ý, 1:°£È£»ç°¡ ¹ß»ýÇÑ Ã³¹æÀ¸·Î Àǻ絵 °øÀ¯, 2:°£È£ Ãß°¡Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:Áö¿øºÎ¼­ Ãß°¡Ã³¹æ , 5:¿ø¹«°è»ê Ãß°¡Ã³¹æ, 6:°ÇÁøó¹æ, 7:º¸ÇèÆÀÃß°¡Ã³¹æ, 8:°£È£±¸µÎó¹æ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpinptflag"         , "38"); //ó¹æÀԷ±¸ºÐ, °£È£±¸µÎó¹æ:38
    model.setvalue(sPRCPLIST_PATH + "[" + desrow + "]/prcpnm"               , "[±¸µÎ]" + model.getvalue(sPRCPLIST_PATH + "[" + desrow + "]/orgprcpnm"));   //ó¹æ¸í¿¡ [±¸µÎ] Ãß°¡
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcphopedd"           , model.getValue("/root/main/cond/prcpdd")); //ó¹æÈñ¸ÁÀÏ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpmixno"            , 0);    //Mix¹øÈ£  
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prnprcpflag"          , "N");  //PRNó¹æ±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/precureprcpflag"      , "N");  //¼±Ã³Ä¡Ã³¹æ±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/drprcpetc10"          , "N");  //´ëÂ÷±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/drgacptflag"          , "-");  //DRGÀÎÁ¤
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/nigtprcpflag"         , "N");  //¾ß°£Ã³¹æ±¸ºÐ
    
    if ( model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/estmcls")!= "Y" ){
        grd_prcpposlist.isReadOnly(desrow, grd_prcpposlist.colRef("nigtprcpflag") ) = true;
    }
    
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/portprcpflag"         , "N");  //Æ÷Åͺíó¹æ±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/fixprcpflag"          , "N");  //Á¤¾×ó¹æ±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/choiordflag"          , "-");  //¿ø¹«±âÁØÀ¸·Î ó¸®Çϱâ À§ÇØ, '-' ¼³Á¤
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/anamneflag"           , "N");  //±â¿ÕÁõ±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/angioflagcd"          , "-");  //Angio±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpdelivefact"       , "-");	 //Àü´Þ»çÇ×
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/homematrflag"        , "N");  //±Í°¡À¯Ä¡¸¦ À§ÇÑ ¹°Ç°¿©ºÎ
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/homematrqty"         , "0");  //±Í°¡À¯Ä¡¸¦ À§ÇÑ ¹°Ç°¼ö·®
   
	if( model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/opansflagcd") == "") {
	    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/opansflagcd"      , "-");  //¼ö¼ú¸¶Ã뱸ºÐ
    }
    
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/offictourhealexamflag", "N");  //ÃâÀå°ËÁø±¸ºÐ
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpdayno"            , 1);    //ó¹æÀϼö(ÀÏÀÚ)
    model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpgenrflag"         , model.getValue("/root/main/patinfocond/patinfo/ordtype"));    
    model.setvalue(sPRCPLIST_PATH + "[" + desrow + "]/prcpsignflag"         , "");   //Àüó¹æ¿¡¼­ 2·Î copyµÇ¾î ""·Î ÃʱâÈ­
    
    //ó¹æ¼ö·®´ÜÀ§ ¼³Á¤, ¾àÇ°ÀÏ °æ¿ì '3', ±× ÀÌ¿Ü´Â '-'·Î ¼³Á¤  
    //¾àÇ° ó¹æ ÀÀ±Þó¹æ±¸ºÐ  µðÆúÆ® ÀÀ±ÞÀ¸·Î ¿äû¼­ 20170801042
    var prcpclscd = model.getValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpclscd");
    if(prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6"){
      model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/erprcpflag",      "Y");
      model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpqtyunitflag", "3");
    }else{
      model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/erprcpflag",      "N");
      model.setValue(sPRCPLIST_PATH + "[" + desrow + "]/prcpqtyunitflag", "-");
    }
    
    // Àüó¹æ Á¶È¸¿Í ÀνºÅϽº¸¦ ¸ÂÃß±âÀ§ÇØ
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/fstrgstrnm",  "-");
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/resncnts",    "-");
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/confirmdrnm", "-");
    model.makeValue(sPRCPLIST_PATH + "[" + desrow + "]/confirmdt",   "-");
}

/**
 * @desc   : °£È£Ã³¹æ ÀúÀå
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ 2008. 1. 4
 * @---------------------------------------------------
 */
function fSavePrcp(){
    if(submit("TXMNW10901")){
  	    //¿À·ùÆ˾÷
		var prcpErrList = model.instances(0).selectNodes( "/root/temp/result/prcperrlist" );
		if ( prcpErrList.length > 0 ) {
			if ( !isNull(model.getValue ("/root/temp/result/prcperrlist/prcpcd"))){
				var xpt = window.screenleft + 100;
			 	var ypt = window.screenTop + 50;     
		  	    var coord = getRelativeCoordinate ( xpt, ypt );
		  	    var mon = coord[0];
		  	    xpt = coord[1];
		  	    ypt = coord[2];
		  	    open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/temp/result", "/root/result", "", false ); 
		  			  	
    		  	model.removeNodeset("/root/temp/result/prcperrlist");
    		  	model.refresh();
			}
		} else {
			model.toggle("case_bf"); //Àüó¹æ È­¸éÀ¸·Î º¯°æ
			btn_bf.dispatch("onclick");
			//ó¹æ ÀúÀå ÈÄ Àüó¹æ Á¶È¸½Ã ÀúÀåµÈ ó¹æÀÌ º¸À̵µ·Ï ½ºÅ©·ÑÀ» °¡Àå À§·Î ÇÔ
			grd_bfprcplist.topRow = 1;	
			model.removeNodeset(sPRCPLIST_PATH);
			model.resetInstanceNode("/root/main/insumsginfo/insuinfo/limmsg");
			fReqBfNursPrcpInfo();    // Àüó¹æ Á¶È¸
			if(getScreenMenuParameter() == "SMMNH" || opener.javascript.getParameter("screenParam") == "SMMNH"){
			    fSearchHomePatInfo();    // ¹æ¹®ÀÏÀÚ Á¶È¸_20090330(ByJA)
		    }
		}
    }
}


/**
 * @desc   : ó¹æÀúÀå ¿À·ù³»¿ªÇ¥½Ã
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 2. 23
 * @---------------------------------------------------
 */
function fDestDisplayErrlist(errListPath, gridID ){
	var gridObj = document.controls.item(gridID);
	
	gridObj.rebuildStyle();

	//Àüó¹æ ¸®½ºÆ®¿¡¼­ ¹Ý³³ÀÏ °æ¿ì ÅؽºÆ® »¡°£»ö
	for (var i = 1; i<= getNodesetCount(errListPath); i++) {
	  	var prcplineno = model.getValue(errListPath + "[" + i + "]/prcplineno");

  		for (var j = 1; j< gridObj.rows; j++) {  			
			if (prcplineno == j ) {  
				gridObj.rowStyle(j, "data", "color") = "#FF0000";
			}
			
		}
	}
}	 


/**
 * @desc   : ó¹æ SET ±×¸®µå Ŭ¸¯½Ã 
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fClickSetPrcp(mthdflag){
	if(isNull(mthdflag)) mthdflag = "dblclick"; //º¹»ç ¹öÆ°Àº btnclick

	if ( !isDataCell() && mthdflag != "btnclick" ) {
		return;
	}

	if (grd_prcplist.row > 0 ){
  		
  		if (model.getValue("/root/main/cond/patnm") == "") {
			messageBox("ÇØ´ç ȯÀÚ¸¦", "C002");
			return;
		}
		
		//ALL SIZE ó¹æ ó¸®
		if(model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/prcpclscd") == "M2"
		  && model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/matrallsizespecid") == "ALL") 
		{
		
			var grupsnglflag = model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/grupsnglflag");
			//** prcpinptflag || '|' ||matrsetflag || '|' ||matrsizeflag  || '|' ||calcscorcd   AS calcscormastspec
			var calcscormastspec = (model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec")).split("|");	
			var matrsizeflag = calcscormastspec[2];
			var matrallsizespecid = model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/matrallsizespecid");
							
			var xpt = window.screenleft + 100;
			var ypt = window.screenTop + 50;					
			var coord = getRelativeCoordinate ( xpt, ypt );
			var mon = coord[0];
			xpt = coord[1];
			ypt = coord[2];
			
			setParameter("scrnflag",            "nursprcp");
			setParameter("grupsnglflag",        'S');
			setParameter("calcscorcd",          calcscormastspec[3]);
			setParameter("matrallsizespecid",   matrallsizespecid);
			setParameter("currow",              grd_prcplist.row);
			setParameter("targetpath",          "/root/main/prcp/prcplist");
			//setParameter("targetgridid", "grd_prcpposlist");
			modal("SPMNW11500", mon,  xpt, ypt);			
			
		}else{
			//ó¹æ main grid·Î ¾à¼Óó¹æ copy
			mnwAddNursPrcp(sPRCPSRCHLIST_PATH, "/root/main/prcp", grd_prcplist.row, "");
		    fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length);
		    model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.rows + "]/status", "I");  //ó¹æ»óÅ : ½Å±Ô
		}
	    
	    fSetPrcpInfo();
	    //½Å±Ôó¹æÀº ¹ÝȯÄ÷³ disable
		grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("tempcol8")) = true;
        if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){
            grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true;
        }
	    
	    //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸
	    var calcscormastspec = model.getValue(sPRCPSRCHLIST_PATH + "[" + grd_prcplist.row + "]/calcscormastspec");
	    var calcscorcd = calcscormastspec.split("|");
	    fInsuMsgInfoRef(calcscorcd[3]);
	}
}
  
/**
 * @desc   : Àüó¹æ ±×¸®µå Ŭ¸¯½Ã
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fClickBfPrcp(mthdflag){
	if(isNull(mthdflag)) mthdflag = "dblclick"; //º¹»ç ¹öÆ°Àº btnclick

	if ( !isDataCell() && mthdflag != "btnclick" ) {
		return;
	}
	
	if (grd_bfprcplist.row > 0 ){
	
  		if (model.getValue("/root/main/cond/patnm") == "") {
			messageBox("ÇØ´ç ȯÀÚ¸¦", "C002");
			return;
		}
		
		var prcphistcd = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcphistcd");
		var flag       = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/flag");
		var prcpcd     = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/prcpcd");
		
		if(flag == "N") {
			messageBox("[" + prcpcd + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E");
		}
		
		if (prcphistcd == "L" || prcphistcd == "D" ) { 
			return;
	
		}else{ 
			mnwAddNursPrcp(sBFPRCPLIST_PATH, "/root/main/prcp", grd_bfprcplist.row, "");
	    	fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length);
	   		model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.rows + "]/status", "B");  //ó¹æ»óÅÂ[Àü]
	    }

	  	fSetPrcpInfo();
        if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){
            grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true;
        }		  	
	    //¼ö°¡ º¸ÇèÁ¤º¸ Á¶È¸
	    var calcscormastspec = model.getValue(sBFPRCPLIST_PATH + "[" + grd_bfprcplist.row + "]/calcscormastspec");
	    var calcscorcd = calcscormastspec.split("|");
	    fInsuMsgInfoRef(calcscorcd[3]);
	}
}


/**
 * @desc   : ó¹æÀúÀå ±×¸®µå ÀúÀå ÀÌÀü ¼ÂÆÃ
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fSetPrcpInfo(refYN){
	//KNUH, ó¹æº¹»ç ¹öÆ° Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´ÉÀ» À§ÇØ refYN ÀÎÀÚ Ãß°¡ (2011.02.16 JJE)
	if( isNull(refYN) ) refYN = "Y";
	
	//KNUH, ó¹æº¹»ç ¹öÆ° Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´ÉÀ» À§ÇØ refYN °ª¿¡ µû¶ó refresh ó¸® ºÐ±â (2011.02.16 JJE)
	if(refYN == "Y") grd_prcpposlist.refresh();
}

/**
 * @desc   : ó¹æÀúÀå ±×¸®µå¿¡¼­ ó¹æ »èÁ¦(µå·¡±×ÇÏ¿© delete keyÀÌ¿ë)
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fDragDelPrcp() {	
	if (event.keyCode == "46") {
		for (i = 0; i < grd_prcpposlist.selectedRows; i++) {
			model.setValue("/root/main/prcp/prcplist[" + grd_prcpposlist.selectedRow(i) + "]/status", 'D');
		}
	
		for (i = 1; i <= getNodesetCount("/root/main/prcp/prcplist"); i++) {
			if (model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == 'D') {
				grd_prcpposlist.deleteRow(i, false);		
				i--;
			}
		}
		model.refresh();
	}	
}
 
/**
 * @desc   : ó¹æÀúÀå ±×¸®µå¿¡¼­ ¹ÝȯÄ÷³ Ŭ¸¯½Ã(¹°Ç° Æ˾÷, ¼ö·®, ÃÑ¿ë·® º¯°æ)
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fClickRtn() {
	var iRow = grd_prcpposlist.row;
	var prcppkspec = model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcppkspec");
	var deptcd = "";
	var pid = model.getValue("/root/main/cond/pid");
	
	if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) {
  	    deptcd = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd");
    } else {
  	    deptcd = model.getValue("/root/main/cond/wardcd");
    }

	if(grd_prcpposlist.col == grd_prcpposlist.colRef("tempcol8")){
		//Àüó¹æ¿¡¼­ º¹»çµÈ ó¹æÀÏ °æ¿ì([Àü])
		if(model.getValue("/root/main/prcp/prcplist[" + iRow + "]/status") == "B") {	
			
			//Àüó¹æÀ» ¿©·¯°³ À̵¿ÇÏ°í ¹Ýȯ½Ã µÎ°³ÀÌ»ó üũÇÒ °æ¿ì alert(ÇÑ°³¸¸ »èÁ¦ ¿äûÇϵµ·Ï)  
			if (getNodesetCount(sPRCPLIST_PATH + "[prcppkspec = '"+ prcppkspec + "' and tempcol8 = 'Y']/tempcol8") > 1) {
				messageBox("¹Ýȯ¿äûÀÌ", "E006");
				model.setValue("/root/main/prcp/prcplist[" + iRow + "]/tempcol8", "N");
				grd_prcpposlist.refresh();
				return;
			}
			
			//¹°Ç°¹Ý³³ºÎ¼­ ¼±Åà Æ˾÷(Àç·áÀÎ °æ¿ì)
			if (model.getValue("/root/main/prcp/prcplist[" + iRow + "]/tempcol8") == "Y" 
			    && model.getValue("/root/main/prcp/prcplist[" + iRow + "]/prcpclscd") == "M2" 
			    && model.getValue("/root/main/prcp/prcplist[" + iRow + "]/issdeptcd") != deptcd ) {
				fPopGoodRtn("/root/main/prcp/prcplist[" + iRow + "]", iRow);
			}
			
		//setó¹æ, °Ë»ö ó¹æÀÏ °æ¿ì(½Å±Ô - row »èÁ¦), ÀÓ½Ãó¹æµµ »èÁ¦	
		}else{
			model.removeNode(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]");
		}
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcpvol")){ //¼ö·®, ÃÑ¿ë·® º¯°æ½Ã
				
		if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol"))) {
			DrugCalc ("prcpvol" , grd_prcpposlist.row);			
		} else {
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol",model.getValue("/root/drugcalc/prcpvol"));
		}
	
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcpqty")) {
	
		if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty"))) {
			DrugCalc ("prcpqty" , grd_prcpposlist.row);		
		} else {
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty",model.getValue("/root/drugcalc/prcpqty"));
		}			
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drprcpetc7")) {
		if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7"))) {
			DrugCalc ("drprcpetc7" , grd_prcpposlist.row);		
		} else {
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7",model.getValue("/root/drugcalc/drprcpetc7"));
		}	
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drprcpetc8")) {
		if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8"))) {
			DrugCalc ("drprcpetc8" , grd_prcpposlist.row);		
		} else {
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8",model.getValue("/root/drugcalc/drprcpetc8"));
		}	
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("prcptims")) {
		if(!isNaN(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims"))) {
			DrugCalc ("prcptims" , grd_prcpposlist.row);		
		} else {
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims",model.getValue("/root/drugcalc/prcptims"));
		}	
	} else if(grd_prcpposlist.col == grd_prcpposlist.colRef("drgacptflag")) {
		if(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drgacptflag") == "A") { // PCA¿ë ¾àÁ¦
			messageBox ( "±Þ¿©±¸ºÐÀÌ 'º»Àκδã'À¸·Î º¯°æ µË´Ï´Ù.", "I" );
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/payflagcd", "1");
		} else if(model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drgacptflag") == "B") { // ¹Ì¿ë¼ºÇü
			messageBox ( "±Þ¿©±¸ºÐÀÌ 'ºñ±Þ¿©'À¸·Î º¯°æ µË´Ï´Ù.", "I" );
			model.setValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/payflagcd", "2");
		}
	}
	model.refresh();
}

/**
 * @desc   : ÃÑ¿ë·®, ¼ö·®ÀÇ ¼öÁ¤Àü °ªÀ» instance¿¡ ³Ö¾îµÐ´Ù.
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 3. 17
 * @---------------------------------------------------
 */
function fSetPrcpVolQty() {
	
	var curCol = grd_prcpposlist.col;
	
	if(curCol == grd_prcpposlist.colRef("prcpvol")){           			              				
		model.setValue("/root/drugcalc/prcpvol", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpvol"));		 	
	} else if(curCol == grd_prcpposlist.colRef("prcpqty")){		           			              
		model.setValue("/root/drugcalc/prcpqty", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcpqty"));		 
	} else if(curCol == grd_prcpposlist.colRef("prcptims")){
		model.setValue("/root/drugcalc/prcptims", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/prcptims"));		 
	} else if(curCol == grd_prcpposlist.colRef("drprcpetc7")){
		model.setValue("/root/drugcalc/drprcpetc7", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc7"));		 
	} else if(curCol == grd_prcpposlist.colRef("drprcpetc8")){
		model.setValue("/root/drugcalc/drprcpetc8", model.getValue(sPRCPLIST_PATH + "[" + grd_prcpposlist.row + "]/drprcpetc8"));		 
	}
}


 /**
 * @desc   : ¿ë·®, ¼ö·®, Ƚ¼ö¸¦ ¼öÁ¤ÇßÀ» ¶§ °ª°è»ê
 * @
 * @param  : flag : ¿ë·®, ¼ö·®, Ƚ¼ö º¯°æ ±¸ºÐ
             curRow : ¼öÁ¤ÇÒ ÇöÀç row
 * @return : void
 * @author : ¸¶Á¤¹Î 2007. 4. 30
  * ¼Ò½ºÄ«ÇÇ by cha
 * @---------------------------------------------------
 */
function DrugCalc ( flag, curRow ) {
    
    var PrcpVol = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol" );
    
    if ( isNull(PrcpVol) || PrcpVol == 0 ) {    
        PrcpVol = "1"; 
    }
    var PrcpQty = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty" );
    if ( isNull(PrcpQty) || PrcpQty == 0 ){ 
        PrcpQty = "1"; 
    }
    var PrcpTims = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/prcptims" );
    if ( isNull(PrcpTims) || PrcpTims == 0 ) {  
        PrcpTims = "1"; 
    }
    var drprcpetc7 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7" );
    var drprcpetc7_2 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7" );
    if ( isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
        drprcpetc7 = "1";         
    }
    var drprcpetc8 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8" );
    var drprcpetc8_2 = model.getValue (sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8" );
    if ( isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
        drprcpetc8 = "1"; 
    }
        
    var bfPrcpVol = model.getValue ( "/root/drugcalc/prcpvol" );
    if ( isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
        bfPrcpVol = "1"; 
    }
    var bfPrcpQty = model.getValue ( "/root/drugcalc/prcpqty" ); 
    if ( isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
        bfPrcpQty = "1"; 
    }
    var bfprcpTims = model.getValue ( "/root/drugcalc/prcptims" ); 
    if ( isNull(bfprcpTims) || bfprcpTims == 0 ) {  
        bfprcpTims = "1"; 
    }
    var bfdrprcpetc7 = model.getValue ( "/root/drugcalc/drprcpetc7" ); 
    if ( isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
        bfdrprcpetc7 = "1"; 
    }
    var bfdrprcpetc8 = model.getValue ( "/root/drugcalc/drprcpetc8" ); 
    if ( isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
        bfdrprcpetc8 = "1"; 
    }

    var calcPrcpVol = 0;
    var calcPrcpQty = 0;
    var calcPrcpTimeVol = 0;
    var calcPrcpTimeQty = 0;
    
	  //20090820 ¸¶Á¤¹Î ¼öÁ¤. ¾àÀÎ °æ¿ì´Â ÃÖÃÊÀÇ ¿ë·® ¼ö·® ºñÀ²·Î °è»êÇÏ´Â °ÍÀ¸·Î ¼öÁ¤
	  var baseQty = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 31 , "^", "|" );
	  var baseVol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 32 , "^", "|" );

	  var drugcntsvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 1 , "^", "|" );
	  var drugstndvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 3 , "^", "|" );
	  var drugpackvol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 5 , "^", "|" );
	  var drugbasevol = getArrayData ( model.getValue ( "/root/main/prcp/prcplist[" + curRow + "]/drugmastspec" ) + "^", 0, 7 , "^", "|" );

    var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
    var baseTimeQty = drugbasevol;
         
    if (model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" ).substring ( 0, 1 ) == "A" && !isNull(baseQty) && !isNull(baseVol)) {
			if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê
				calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; 
				calcPrcpQty = Math.round(calcPrcpQty)/1000; 
				
				calcPrcpTimeQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeQty)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 	

				calcPrcpTimeVol = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeVol)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
												
				//start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE)
				var cnclInptTxt  = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd");
				var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
				if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
					messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I");
					//model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol );
					//return;
				} //end
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); 				
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
								
			} else if ( flag == "prcpqty" && bfPrcpQty != PrcpQty ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê      
				
				var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" );
				calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 
				
				calcPrcpTimeQty = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeQty)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 	

				calcPrcpTimeVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeVol)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
								
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol );  
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol ); 				
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
				
				
			} else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê  
				
				
				
				calcPrcpQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseQty)*1000;
				calcPrcpQty = Math.round(calcPrcpQty)/1000;

				calcPrcpTimeQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseTimeQty)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 								
				
				calcPrcpVol = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 								
				
				//start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE)
				var cnclInptTxt  = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd");
				var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
				if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
					messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I");
					//model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol );
					//return;
				} //end				
				
				if(drprcpetc7.substr(0,1) == "0") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
				} 
				if(drprcpetc8.substr(0,1) == "0") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
				}
				
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty ); 
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol ); 
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty ); 
				
				
				
			} else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê      

				calcPrcpVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 				
												
				calcPrcpTimeVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseTimeVol)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
								
				calcPrcpQty = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseQty)*1000; 
				calcPrcpQty = Math.round(calcPrcpQty)/1000; 	
				
				if(drprcpetc7.substr(0,1) == "0") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
				} 
				if(drprcpetc8.substr(0,1) == "0") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
				}
												
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol );  
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty );  								
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );  
				
				var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" );
				
			}   

    } else {
    	
			if ( flag == "prcpvol" ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê
				calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; 
				calcPrcpQty = Math.round(calcPrcpQty)/1000; 

				calcPrcpTimeVol = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc7)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

				calcPrcpTimeQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc8)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

				
				//start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE)
				var cnclInptTxt  = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd");
				var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
				if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
					messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I");
					//model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol );
					//return;
				} //end
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );      
				
			} else if ( flag == "prcpqty" ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê      
				var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" );
				calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 
				
				calcPrcpTimeVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc7)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

				calcPrcpTimeQty = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc8)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 
								
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol );  
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );  
								
				if ( prcpclscd == "M2" ) {
					//20090330 ¸¶Á¤¹Î¼öÁ¤. ±Í°¡À¯Ä¡¿ë ¹°Ç°Ã³¹æÀº ÀÇ»çó¹æ ¼ö·®À» ¼öÁ¤ÇÏ¸é ±Í°¡À¯Ä¡¿ë¹°Ç°¼ö·®Ä÷³¿¡ °°ÀÌ ¹Ý¿µÇÑ´Ù.
					if (!isNull(model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")) && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4" )>0){
						model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4", PrcpQty );      
					}
				}
			} else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) { // ¿ë·®À» ¼öÁ¤ÇßÀ» ¶§: ¼ö·® ÀÚµ¿°è»ê  
				 
				calcPrcpTimeQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(drprcpetc8)*1000; 
				calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

				calcPrcpVol = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 

				calcPrcpQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpQty)*1000; 
				calcPrcpQty = Math.round(calcPrcpQty)/1000; 

				
				//start: ¿äû¹øÈ£ 9851, Àν¶¸°ÁÖ»çÁ¦ º¯°æ alert (2010.01.28 JJE)
				var cnclInptTxt  = model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/prcpcd");
				var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
				if(model.getValue(sPRCPLIST_PATH + "[" + curRow + "]/tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1){
					messageBox(cnclInptTxt + "\n\n¼Ò·® ó¹æÀ» ¿øÇϽô °æ¿ì¿¡´Â\nUNIT ´ÜÀ§ ÄÚµå(¿ø ó¹æÀÇ ³¡ÀÚ¸® J³ª P¸¦ »« ÄÚµå)·Î º¯°æ ó¹æÇÏ¿© Áֽñ⠹ٶø´Ï´Ù.", "I");
					//model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", bfPrcpVol );
					//return;
				} //end

				if(drprcpetc7.substr(0,1) == "0" && drprcpetc7.substr(1,1) != ".") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
					
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1");
				} 
				if(drprcpetc8.substr(0,1) == "0" && drprcpetc8.substr(1,1) != ".") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeQty = "1";
					
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1");
				}
				
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol );      
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", calcPrcpTimeQty );
				
				if ( isNull(drprcpetc7_2) || drprcpetc7_2 == 0 || drprcpetc7_2 == "-") { 
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", "1");
				}
				
			} else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) { // ¼ö·®À» ¼öÁ¤ÇßÀ» ¶§: ¿ë·® ÀÚµ¿°è»ê

				calcPrcpTimeVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(drprcpetc7)*1000; 
				calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

				calcPrcpVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpVol)*1000; 
				calcPrcpVol = Math.round(calcPrcpVol)/1000; 

				calcPrcpQty = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpQty)*1000; 
				calcPrcpQty = Math.round(calcPrcpQty)/1000; 	
				
				if(drprcpetc7.substr(0,1) == "0" && drprcpetc7.substr(1,1) != ".") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeVol = "1";
					
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1");
				} 
				if(drprcpetc8.substr(0,1) == "0" && drprcpetc8.substr(1,1) != ".") {
					calcPrcpQty = "1";
					calcPrcpVol = "1";
					calcPrcpTimeVol = "1";
					
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1");
				}
				
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpvol", calcPrcpVol );  
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpqty", calcPrcpQty );  								
				model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc7", calcPrcpTimeVol );  
				
				if ( isNull(drprcpetc8_2) || drprcpetc8_2 == 0 || drprcpetc8_2 == "-") { 
					model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc8", "1");
				}
				
				var prcpclscd = model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/prcpclscd" );
				if ( prcpclscd == "M2" ) {
					//20090330 ¸¶Á¤¹Î¼öÁ¤. ±Í°¡À¯Ä¡¿ë ¹°Ç°Ã³¹æÀº ÀÇ»çó¹æ ¼ö·®À» ¼öÁ¤ÇÏ¸é ±Í°¡À¯Ä¡¿ë¹°Ç°¼ö·®Ä÷³¿¡ °°ÀÌ ¹Ý¿µÇÑ´Ù.
					if (!isNull(model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")) && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4")!= "-" && model.getValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4" )>0){
						model.setValue ( sPRCPLIST_PATH + "[" + curRow + "]/drprcpetc4", PrcpQty );      
					}
				}
			}
	}    
    
}
 
/**
 * @desc   : ó¹æÀúÀå ±×¸®µå ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯½Ã(Àû¿ëÀÏÀÚ Æ˾÷, ¹Ý³³ºÎ¼­ Æ˾÷)
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fClickBkPrcp(){
    window.showPopupMenu(true);
	if (event.button == 3) {
		window.setPopupMenu(true, "/root/main/popupmenu/prcpposlist/item", "name", "func", false);	
		model.refresh();
	} else {
		return;
	}
}

/**
 * @desc   : ¹°Ç°ºÎ¼­ Æ˾÷
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fPopGoodRtn(GridPath, iRow) {
	var rtndeptcd = fGetPrcpPos();
	
	setParameter("rtndeptcd", rtndeptcd);
	open("SPMNW11400","1","300","500", "SPMNW11400", GridPath, "/root/main/prcp/prcplist");	
	
/*	
	if (model.getValue("/root/main/prcpposinfo/cond/goodrtnyn") != 'Y') {		//¹°Ç°¹Ý³³ºÎ¼­ ÁöÁ¤ ¹öÆ°À» ´©¸£Áö ¾Ê¾ÒÀ» °æ¿ì ¹Ýȯ ÇØÁö
		model.setValue("/root/main/prcpposinfo/prcpinfo/prcplist[" + iRow + "]/return", "false");
	//	model.setValue("/root/main/prcpposinfo/cond/dcdeptcd", model.getValue("/root/main/prcpposinfo/cond/dcdeptcd"));
		model.refresh();
	}
*/
}

/**
 * @desc   : ó¹æÀ§Ä¡ return
 * @
 * @param  :
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 1. 9
 * @---------------------------------------------------
 */
function fGetPrcpPos() {
	var PrcpPosCD = "";
	var pid=model.getValue("/root/main/cond/pid");
	
	if (model.getValue("/root/main/prcpposinfo/cond/poscd") == '1') {		//ȯÀÚÀ§Ä¡
		if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) {
	  	PrcpPosCD = model.getValue("/root/init/patinfo/patlist[pid='" + pid + "']/grupcd");  	
	  } else {
	  	PrcpPosCD = model.getValue("/root/main/cond/wardcd");
	  }
		
	} else {																														//UserÀ§Ä¡
		PrcpPosCD = model.getValue("/root/main/prcpposinfo/cond/deptcd");	
	} 
	return PrcpPosCD;
}


/**
 * @desc   : Àüó¹æ ±×¸®µå È®´ë/Ãà¼Ò
 * @
 * @param  : state - true : È®´ë, false : Ãà¼Ò
 * @return :
 * @author : ¼º¹Ì¿¬ 2008. 2. 5
 * @---------------------------------------------------
 */
function fbfzoomToggle(state){
	if(state) {
		btn_bfzoom.attribute("text") = "Ãà¼Ò";
		switch1.attribute("width")= "1165";
		grd_bfprcplist.attribute("width") = "1155";	
	} else {		
		btn_bfzoom.attribute("text") = "È®´ë";
		switch1.attribute("width")= "500";									
		grd_bfprcplist.attribute("width") = "489";	
	}	
}


function fDelPrcp() {
	for (i = 0; i < grd_prcpposlist.selectedRows; i++) {
		model.setValue("/root/main/prcp/prcplist[" + grd_prcpposlist.selectedRow(i) + "]/status", 'D');
	}
	for (i = 1; i <= getNodesetCount("/root/main/prcp/prcplist"); i++) {
		if (model.getValue("/root/main/prcp/prcplist[" + i + "]/status") == 'D') {
			grd_prcpposlist.deleteRow(i, false);		
			i--;
		}
	}
	model.refresh();
		
}

function fnZoneDisp() {
 
	//ÀÀ±ÞÀÇ·á¼¾ÅÍ(2280200000)ÀÎ °æ¿ì
	//º´µ¿Á¤º¸´ë½Å¿¡ ±¸¿ªÁ¤º¸°¡ º¸ÀÓ)(20080620)
	if ( !isNull(model.getValue("/root/code/codeinfo/codelist[cdgrupid ='002' and cdid ='"+combo1.value+"']/cdid")) ) {
		caption15.visible = false;
		cmb_room.visible = false;
		cap_Zone.visible = true;
		cmb_Zone.visible = true;
		
		
		//20110830_KNUH_Start
		//cmb_settingrn.visible = false;
		//cap_settingrn.visible = false;
		//20110830_KNUH_End
		
		cmb_room.value = "-";
		
		var zonecd = model.getValue("/root/main/paminfo/list/sectioncd");
		if( !isNull(zonecd) && zonecd != "-" ){
			cmb_Zone.value = model.getValue("/root/main/paminfo/list/sectioncd");
		} else {
			cmb_Zone.value = "-";
		}
		//cmb_settingrn.visible = false;
		
		
	} else {
		caption15.visible = true;
		cmb_room.visible = true;
		
		
		//cmb_settingrn.visible =true;
		cap_Zone.visible = false;
		cmb_Zone.visible = false;
		cmb_Zone.value = "";
		
		//20110830_KNUH_Start
		//cmb_settingrn.visible = true;
		//cap_settingrn.visible = true;
		//20110830_KNUH_End
		
	}

	model.refresh();
 }
 
/**
 * @desc   : KNUH, ó¹æº¹»ç ¹öÆ° Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´É
 * @
 * @param  :
 * @return :
 * @author : JJE 2011. 2. 16
 * @---------------------------------------------------
 */
function fClickSetPrcpRows(){

	var selectedRows = grd_prcplist.selectedRows;
	var prcpPosListRows = grd_prcpposlist.rows;
	
	if(selectedRows == 1 ){
		fClickSetPrcp("btnclick");
		return;
	}
	
	if (selectedRows > 0 ){
		if (model.getValue("/root/main/cond/patnm") == ""){
			messageBox("ÇØ´ç ȯÀÚ¸¦", "C002");
			return;
		}
		
		for (i=0; i<selectedRows; i++){
			var iRow = grd_prcplist.selectedrow(i);
			
			//ALL SIZE ó¹æ ó¸®
			if(model.getValue(sPRCPSRCHLIST_PATH + "[" + iRow + "]/prcpclscd") == "M2" && model.getValue(sPRCPSRCHLIST_PATH + "[" + iRow + "]/matrallsizespecid") == "ALL") {
				var grupsnglflag = model.getValue(sPRCPSRCHLIST_PATH + "[" + iRow + "]/grupsnglflag");
				var calcscormastspec = (model.getValue(sPRCPSRCHLIST_PATH + "[" + iRow + "]/calcscormastspec")).split("|");	
				var matrsizeflag = calcscormastspec[2];
				var matrallsizespecid = model.getValue(sPRCPSRCHLIST_PATH + "[" + iRow + "]/matrallsizespecid");

				var xpt = window.screenleft + 100;
				var ypt = window.screenTop + 50;
				var coord = getRelativeCoordinate ( xpt, ypt );
				var mon = coord[0];
				xpt = coord[1];
				ypt = coord[2];

				setParameter("scrnflag", "nursprcp");
				setParameter("grupsnglflag", 'S');
				setParameter("calcscorcd", calcscormastspec[3]);
				setParameter("matrallsizespecid", matrallsizespecid);
				setParameter("currow", iRow);
				setParameter("targetpath", "/root/main/prcp/prcplist");
				//setParameter("targetgridid", "grd_prcpposlist");
				modal("SPMNW11500", mon,  xpt, ypt);
			}else{
				//ó¹æ main grid·Î °Ë»öó¹æ copy
				mnwAddNursPrcp(sPRCPSRCHLIST_PATH, "/root/main/prcp", iRow, "");
				fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length);
				model.setValue(sPRCPLIST_PATH + "[" + prcpPosListRows + "]/status", "I");  //ó¹æ»óÅ : ½Å±Ô
				prcpPosListRows++;
			}
		    
			fSetPrcpInfo("N");
		} //end for
		
		model.refresh();
	}
	
}

/**
 * @desc   : KNUH, Àüó¹æº¹»ç ¹öÆ° Ŭ¸¯ÇÏ¿© ¼±ÅÃµÈ Ã³¹æ ¸®½ºÆ®¸¦ º¹»çÇÏ´Â ±â´É
 * @
 * @param  :
 * @return :
 * @author : JJE 2011. 2. 17
 * @---------------------------------------------------
 */
function fClickBfPrcpRows(){

	var selectedRows = grd_bfprcplist.selectedRows;
	var errRtnMsg = "";
	var prcpPosListRows = grd_prcpposlist.rows;
	
	if(selectedRows == 1 ){
		fClickBfPrcp("btnclick");
		return;
	}

	if (selectedRows > 0 ){
		if (model.getValue("/root/main/cond/patnm") == "") {
			messageBox("ÇØ´ç ȯÀÚ¸¦", "C002");
			return;
		}
		
		var cnt = 0;
		var str = "";
		for (i=0; i<selectedRows; i++){
			var iRow = grd_bfprcplist.selectedrow(i);
			
			var flag = model.getValue(sBFPRCPLIST_PATH + "[" + iRow + "]/flag");
			var prcpcd = model.getValue(sBFPRCPLIST_PATH + "[" + iRow + "]/prcpcd");
			
			if(flag == "N") {
				if(cnt == 0) {
					str = prcpcd
				} else {
					str +=", " + prcpcd;
				}
				cnt++;
			}
			
			var prcphistcd = model.getValue(sBFPRCPLIST_PATH + "[" + iRow + "]/prcphistcd");
			if (prcphistcd == "L" || prcphistcd == "D" ) {
				continue;
			}else{
				//¹æ¹®ÀÏÀÚ¿Í ´Ù¸¥ ¹æ¹®ÀÏÀÇ Ã³¹æ Ŭ¸¯½Ã blocking
				if (model.getValue("/root/main/cond/homecareyn") == "Y"){
					if (model.getValue("/root/main/cond/visitdd") == ""){
						if (model.getValue("/root/main/cond/visitdd") != model.getValue(sBFPRCPLIST_PATH + "[" + iRow + "]/prcpdelivefact")){
							if(errRtnMsg != "") errRtnMsg = errRtnMsg + ", ";
							errRtnMsg = errRtnMsg + model.getValue(sBFPRCPLIST_PATH + "[" + iRow + "]/prcpcd");
							continue;
						}
					}
				}
				
				mnwAddNursPrcp(sBFPRCPLIST_PATH, "/root/main/prcp", iRow, "");
				fSetNursPrcpDefault(model.instances(0).selectNodes("/root/main/prcp/prcplist").length);
				model.setValue(sPRCPLIST_PATH + "[" + prcpPosListRows + "]/status", "B");  //ó¹æ»óÅÂ[Àü]
				prcpPosListRows++;
			}
	  	
			fSetPrcpInfo("N");
			
			if ( model.getValue(sPRCPLIST_PATH + "[" + model.instances(0).selectNodes("/root/main/prcp/prcplist").length + "]/estmcls")!= "Y" ){
				grd_prcpposlist.isReadOnly(model.instances(0).selectNodes("/root/main/prcp/prcplist").length, grd_prcpposlist.colRef("nigtprcpflag") ) = true;
			}
		    
		} // end for
		
		if(cnt > 0) {
			messageBox("[" + str + "]ó¹æÀº ¼ö°¡°¡ Á¾·áµÇ¾î ¹Ýȯ¸¸ °¡´ÉÇÕ´Ï´Ù.", "E");				
		}
		model.refresh();
		
		if(errRtnMsg != ""){
			messageBox("¹æ¹®ÀÏÀÌ µ¿ÀÏÇÑ Ã³¹æ¿¡ ´ëÇؼ­¸¸ ÀÏ°ý ÀúÀåÀÌ °¡´ÉÇÕ´Ï´Ù.\n" + errRtnMsg + "ó¹æÀº ¹æ¹®ÀÏÀÌ µ¿ÀÏÇÏÁö ¾Ê½À´Ï´Ù.", "C");
		}
	}
}

/**
 * @desc   : 20110626_KNUH º¸Á¶À¯Çü üũÇÏ´Â ·ÎÁ÷
 * @
 * @param  :
 * @return :
 * @author : dark9258 2011. 6. 26
 * @---------------------------------------------------
 */
function fCheckSubKindCd() {
	
    var prcpgenrflag = model.getValue("/root/main/patinfocond/patinfo/ordtype");
    var pid          = model.getValue("/root/main/paminfo/list/pid");
    var indd         = model.getValue("/root/main/paminfo/list/indd");
      
    model.makeValue("/root/temp/send/pid", pid);
    model.makeValue("/root/temp/send/indd", indd);
      
    if(submit("TRMMO15701")){
        var nodelist = model.instances(0).selectNodes("/root/temp/patsupkind/patsupkind");
        if(nodelist != null) {
            if(nodelist.length > 1){
            	  clearParameter("SPMMO15700_subcretno");
                modal("SPMMO15700", "", "", "", "SPMMO15700", "/root/temp/patsupkind", "/root/main/patsupkind");
                
                var subcretno = getParameter("SPMMO15700_subcretno");
            		
            		if(subcretno == "0") {
            			var rtn = messageBox("ÁÖÀ¯ÇüÀ¸·Î ó¹æÀ» ¹ßÇàÇϽðڽÀ´Ï±î?", "Q");
            			
            			if(rtn != "6") {
            				return "false";
            			}
            		}
            		
            		if(subcretno == null || subcretno == "") {
            			messageBox("À¯ÇüÀ» ¼±ÅÃÇϼ¼¿ä.", "E");
            			
            			return "false";
            		}
                model.makeValue("/root/temp/prcpinfo/subcretno", subcretno);
            } else {
                model.makeValue("/root/temp/prcpinfo/subcretno", "0");
            }
        } else {
        	model.makeValue("/root/temp/prcpinfo/subcretno", "0");
        }
   }
   return "true";
   		
}
//20110828_KNUH_Start
function fGetPatInfo() {
	var settingnurid = model.getValue("/root/main/cond/settingrnid");
	
	if(settingnurid == null || settingnurid == "") {			
		cmb_room.disabled = false;
	} else {
		cmb_room.disabled = true;
	}
	
	model.removeNodeset("/root/send/reqdata");
	model.makeNode("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
	model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
	
	submit("TRMNW10902", false);
	model.setValue("/root/main/cond/roomcd", "-");		//ÇØ´ç º´½Ç ¼ÂÆÃ
	
	cmb_room.refresh();
	
	//ÇØ´ç º´½ÇÀÇ È¯ÀÚ Á¶È¸
	model.removeNodeset("/root/send/reqdata");
	model.makeNode("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/cond/prcpdd"));
	model.makeValue("/root/send/reqdata/wardcd", model.getValue("/root/main/cond/wardcd"));
	model.makeValue("/root/send/reqdata/roomcd", model.getValue("/root/main/cond/roomcd"));
	model.makeValue("/root/send/reqdata/refflag", "room");
	model.makeValue("/root/send/reqdata/ordtype", "I");
	
	model.makeValue("/root/send/reqdata/settingrnid", model.getValue("/root/main/cond/settingrnid"));
	
	if(spcldept == model.getValue("/root/main/cond/wardcd")) {
		model.makeValue("/root/send/reqdata/spcldeptyn", "Y");
	} else {
		model.makeValue("/root/send/reqdata/spcldeptyn", "");
	}
	submit("TRMNW10903", false);
	
	model.setValue("/root/main/cond/patnm", "");
	model.setValue("/root/main/cond/pid", "");
	
	cmb_patnm.refresh();
	ipt_pid.refresh();
	cap_prtlnm.refresh();
}

function fCalcScorHbookPrcp(){
	fCalcScorHbook('prcp');
}

function fCalcScorHbookPrcppos(){
	fCalcScorHbook('prcppos');
}

function fCalcScorHbookPrcpbf(){
	fCalcScorHbook('bf');
}

function fOpenSendSms(){
	
	var patnm      = model.getValue("/root/main/patinfocond/patinfo/patnm");
	
	var rgstridnm  = model.getValue(sBFPRCPLIST_PATH +"[" + grd_bfprcplist.row  + "]/rgstridnm") 
	var rgstrtelno = model.getValue(sBFPRCPLIST_PATH +"[" + grd_bfprcplist.row  + "]/rgstrtelno") 
	var wardtelno  = model.getValue(sBFPRCPLIST_PATH +"[" + grd_bfprcplist.row  + "]/wardtelno") 
	
	var msgcnts    = patnm + " ȯÀÚ¿¡°Ô ±¸µÎó¹æÀÌ ¹ßÇà µÇ¾ú½À´Ï´Ù."
	
	model.removeNodeset("/root/hidden/smsdata");

	model.makeValue("/root/hidden/smsdata/bizabbr",             "ENR");
	model.makeValue("/root/hidden/smsdata/replytelno",           wardtelno);
	model.makeValue("/root/hidden/smsdata/rsrvyn",               "");
	model.makeValue("/root/hidden/smsdata/rsrvdate",             "");
	model.makeValue("/root/hidden/smsdata/rsrvtime",             "");
	model.makeValue("/root/hidden/smsdata/msgcnts",              msgcnts);
	model.makeValue("/root/hidden/smsdata/recvrlist/chk",        "Y");
	model.makeValue("/root/hidden/smsdata/recvrlist/recvrnm",    rgstridnm);
	model.makeValue("/root/hidden/smsdata/recvrlist/recvrtelno", rgstrtelno);
	
	zmsfOpenSMS("/root/hidden/smsdata");

	model.removeNodeset("/root/hidden/smsdata");	
}

function fClickEr(){
	if(grd_prcpposlist.colRef("erprcpflag") == grd_prcpposlist.mouseCol){
		if(grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("erprcpflag")) == 'Y'){
			grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("drprcpetc10"))='Y';
		}else{
			grd_prcpposlist.valuematrix(grd_prcpposlist.row, grd_prcpposlist.colRef("drprcpetc10"))='N';
		}	
	}
}

function fprtlnm(pid){
	
	model.makeValue("/root/send/reqdata/pid", pid);
	submit("TRMNW10911");
	
}	 
//20110828_KNUH_End