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

    ¼ö¼ú¿¹¾àÀåºÎµî·Ï ( SMMMO05700_¼ö¼ú¿¹¾àÀåºÎµî·Ï.xrw - JScript )

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

var sOPSCHERECINFO_PATH = "/root/main/opscherecinfo/opscherecinfo";
var sOPSCHERECLIST_PATH = "/root/main/opschereclist/opschereclist";
var sPATORDINFOLIST_PATH= "/root/patordinfo/patordinfolist";
var gButtonID = "";
//2012/06/26 Start
// ¼ö¼ú ¿¹¹æÀû Ç×»ýÁ¦ °ü·Ã
var nodecnt ="";
//2012/06/26 End

/**
 * @desc   : ¼ö¼ú ¿¹¾à ÀåºÎ µî·Ï È­¸é ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fInitialize_SMMMO05700(){
   model.removeNodeset(sOPSCHERECLIST_PATH);
   
   fClkBtnInit();
   
   //°­³²¼º¸ð´Â ¿Ü·¡ disable
   //2008.08.25 LWS ¼ö¼ú¿¹¾àÁ¤ºÎ¿¡¼­´Â ¿Ü·¡ È°¼ºÈ­
   //if(getUserInfo("dutplceinstcd") == "012") rdo_out.disabled = true;
   //login ÁýµµÀÇ, Áýµµ°ú mapping
   if( !isNull(getUserInfo("dutplcecd"))) model.setValue("/root/main/opscherecinfo/opscherecinfo/perfdeptcd", getUserInfo("dutplcecd"));
   if( !isNull(getUserId())) model.setValue("/root/main/opscherecinfo/opscherecinfo/perfdrid", getUserId());
   
   mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", "O");      
   addComboInstance("/root/init/orddept", "deptcd^depthngnm", "-^Àüü", "dept"); //ºÎ¼­ÄÞº¸ ÀüüÇ׸ñ Ãß°¡
      
   mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept2", "O");
   var deptcd = model.getValue("/root/init/orddept/dept[deptcd = '" + getUserInfo("dutplcecd") + "']");   

   if(deptcd == ""){
      model.setValue("/root/main/cond/orddeptcd", "-");
   }
         
   mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", getUserInfo("dutplcecd"), "0330");
   mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist2", getUserInfo("dutplcecd"), "0330");
   mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist3", getUserInfo("dutplcecd"), "0330");
   
   addComboInstance("/root/init/userlist2", "userid^usernm", "-^Àüü", "usercombo"); //ºÎ¼­ÄÞº¸ ÀüüÇ׸ñ Ãß°¡
   addComboInstance("/root/init/userlist3", "userid^usernm", "^Àüü", "usercombo"); //ºÎ¼­ÄÞº¸ ÀüüÇ׸ñ Ãß°¡
   model.setValue("/root/main/cond/perfdrid", "-");
   model.setValue("/root/main/cond/scheperfdrid", "");
      
   zbcfGetCodeList(new Array("M0014", "M0017", "M0020"), new Array("/root/init/M0014", "/root/init/M0017", "/root/init/M0020"));
   
   reqOpRoomList(getCurrentDate(), "/root/init/oproomlist" , "total"); //¼ö¼ú½Ç Á¶È¸
   
   reqOpRoomList(getCurrentDate(), "/root/init/oproomlist2", "total"); //¼ö¼ú½Ç Á¶È¸ (ÀϺ° °¡´ÉÇÑ ¼ö¼ú½Ç Á¶È¸°¡ ¾Æ´Ñ ¼ö¼ú½Ç Àüü Á¶È¸)
   addComboInstance("/root/init/oproomlist2", "oproomcd^oproomnm", "-^Àüü", "oproomlist"); //¼ö¼ú½ÇÄÞº¸ ÀüüÇ׸ñ Ãß°¡
   
   mmbfGetHardCodeInfoNm("/root/send/reqdata", "/root/init/oppatflag", 84); //¼ö¼úȯÀÚ±¸ºÐ
   
   fChkPatTopInfoParam();
   
   model.setValue("/root/main/cond/fromdd", getCurrentDate());//½ÃÀÛÀÏÀÚ
   var todd = (getCurrentDate().toDate()).getAddDate(3);
   todd = todd.getDateFormat();
   model.setValue("/root/main/cond/todd"      , todd); //Á¾·áÀÏÀÚ
   model.setValue("/root/main/cond/oproomcd"  , "-");  //¼ö¼ú½Ç
   model.setValue("/root/main/cond/perfdeptcd", getUserInfo("dutplcecd"));
   
   model.setValue("/root/main/cond/year" , getCurrentDate().substr(0, 4)); //year
   model.setValue("/root/main/cond/month", getCurrentDate().substr(4, 2)); //month
   
   gButtonID = "btn_".concat(model.getValue("/root/main/cond/month")); //selectµÈ buttonÀÇ color¸¦ º¯°æÇØ ÁØ´Ù.
   var btnobj = document.controls.item(gButtonID);
   btnobj.attribute("class") = "btn5_letter2";
         
   grd_calendar.dataheight = 58;

   fReqOpScheRecCalendar();
   
   //2012/06/25 Start
   //¼ö¼ú ¿¹¹æÀû Ç×»ýÁ¦ °ü·Ã   
   mmbfGetHardCodeInfo("/root/send/reqdata", "/root/temp/opcd", 5606);
   nodecnt = instance1.selectNodes("/root/temp/opcd/hardcd");
   //2012/06/25 End

   //fReqDiagList();
	reqOrderInfoOfCol("SMMMO05700", "grd_opschelist");   

}

/**
 * @desc   : ¼ö¼ú ¿¹¾à ÀåºÎ µî·Ï°ª ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fClkBtnInit(){
   model.resetInstanceNode(sOPSCHERECINFO_PATH);
   model.setValue(sOPSCHERECINFO_PATH + "/opschedd", getCurrentDate());
   model.setValue(sOPSCHERECINFO_PATH + "/status"  , "i");
   ipt_opcd.attribute("editable")   = "true";
   ipt_opnm.attribute("editable")   = "true";
   ipt_diagcd.attribute("editable") = "true";
   ipt_diagnm.attribute("editable") = "true";
   model.refresh();
   
}

/**
 * @desc   : ¼ö¼ú¸í °Ë»ö Æ˾÷ open
 * @
 * @param  : pFlag 󸮱¸ºÐ (code : ÄÚµå°Ë»ö, term : ¼ö¼ú¸í)
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fOpenOpSearch(pFlag){
   if(pFlag == "code"){
      var param = "1¢Ë"    + 
                  "1¢ËE¢Ë" +
                  getCurrentDate() + "¢Ë" +
                  model.getValue(sOPSCHERECINFO_PATH + "/dispopcd");
      setParameter("SPMMO05200_param", param);
      
   }else if(pFlag == "term"){
      var opnm = model.getValue("/root/main/opscherecinfo/opscherecinfo/opnm");
      var param = "2¢Ë4¢Ë" +
                  fIsHangul(opnm)  + "¢Ë" +
                  getCurrentDate() + "¢Ë" +
                  opnm;
      setParameter("SPMMO05200_param", param);
      
   }
   modal("SPMMO05200");
   
   var useyn = getParameter("SPMMO05200_rtn_useyn");
   if(useyn == "Y"){
      setParameter("SPMMO05200_rtn_useyn", "N");
      var rtnparam = getParameter("SPMMO05200_rtn_param");
      rtnparam = rtnparam.split("¢Ì");
      
      var tmpstr = rtnparam[0];
      tmpstr = tmpstr.split("¢Ë");
      model.setValue(sOPSCHERECINFO_PATH + "/dispopcd" , tmpstr[0]);
      model.setValue(sOPSCHERECINFO_PATH + "/opcd"     , tmpstr[1]);
      model.setValue(sOPSCHERECINFO_PATH + "/opnm"     , tmpstr[2]);
      ipt_opcd.attribute("editable") = "false";
      ipt_opnm.attribute("editable") = "false";
      model.setFocus("ipt_diagcd");
      model.refresh();
      
   }else{
      model.setValue(sOPSCHERECINFO_PATH + "/dispopcd", "");
      model.setValue(sOPSCHERECINFO_PATH + "/opcd"   , "");
      model.setValue(sOPSCHERECINFO_PATH + "/opnm"   , "");
      model.refresh();
      
   }   
}

/**
 * @desc   : Áø´Ü¸í °Ë»ö Æ˾÷ open
 * @
 * @param  : pFlag 󸮱¸ºÐ (code : ÄÚµå°Ë»ö, term : ¼ö¼ú¸í)
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fOpenDiagSearch(pFlag){
   if(pFlag == "code"){
      setParameter("SPMMO00800_cond1", 1);
      setParameter("SPMMO00800_cond2", 1);
      setParameter("SPMMO00800_cond3", "E");
      setParameter("SPMMO00800_cond4", getCurrentDate());      
      setParameter("SPMMO00800_cond5", model.getValue(sOPSCHERECINFO_PATH + "/dispdiagcd"));
      
   }else if(pFlag =="term"){
      var diagnm = model.getValue(sOPSCHERECINFO_PATH + "/diagnm");
      setParameter("SPMMO00800_cond1", 2);
      setParameter("SPMMO00800_cond2", 4);
      setParameter("SPMMO00800_cond3", fIsHangul(diagnm));
      setParameter("SPMMO00800_cond4", getCurrentDate());      
      setParameter("SPMMO00800_cond5", diagnm);
      
   }
   modal("SPMMO00800");
   
   var useyn = getParameter("SPMMO00800_rtn_useyn");
   if(useyn == "Y"){
      setParameter("SPMMO00800_rtn_useyn", "N");
      var rtnparam = getParameter("SPMMO00800_rtn");
      rtnparam = rtnparam.split("¢Ì");      
      var tmpstr = rtnparam[1];
      
      tmpstr = tmpstr.split("¢Ë");
      model.setValue(sOPSCHERECINFO_PATH + "/dispdiagcd", tmpstr[1]);
      model.setValue(sOPSCHERECINFO_PATH + "/diagcd"    , tmpstr[9]);
      model.setValue(sOPSCHERECINFO_PATH + "/diagnm"    , tmpstr[2]);
      ipt_diagcd.attribute("editable") = "false";
      ipt_diagnm.attribute("editable") = "false";
      model.setFocus("ipt_opregstremfact");
      model.refresh();
      
   }else{
      model.setValue(sOPSCHERECINFO_PATH + "/dispdiagcd", "");    
      model.setValue(sOPSCHERECINFO_PATH + "/diagcd"    , "");
      model.setValue(sOPSCHERECINFO_PATH + "/diagnm"    , "");
      model.refresh();      
   }
}

/**
 * @desc   : ¼ö¼ú¿¹¾à ¸®½ºÆ® ±×¸®µå Ŭ¸¯
 * @
 * @param  : 
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fClkGrdOpScheList(){
   if(grd_opschelist.isCell(event.target) && grd_opschelist.row >= grd_opschelist.fixedRows){

      var orddeptcd = model.getValue(sOPSCHERECLIST_PATH + "[" + grd_opschelist.row + "]/perfdeptcd");
      //zsufGetUserInfoCombo(orddeptcd, "/root/init/userlist", "_D"); //ÀÇ»ç ÄÞº¸Á¶È¸
      mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", orddeptcd, "0330");
      
      model.copyNode(sOPSCHERECINFO_PATH, sOPSCHERECLIST_PATH + "[" + grd_opschelist.row + "]");
      model.copyNode("/root/cmpopschelist", sOPSCHERECLIST_PATH + "[" + grd_opschelist.row + "]");
      model.setValue("/root/cmpopschelist/status", "u");
      model.setValue(sOPSCHERECINFO_PATH + "/status", "u");
   }
   if(ipt_opcd.value != null) {
	   ipt_opcd.attribute("editable")   = "false";
	   ipt_opnm.attribute("editable")   = "false";
	}
	if(ipt_diagcd.value != null) {
	   ipt_diagcd.attribute("editable") = "false";
	   ipt_diagnm.attribute("editable") = "false";
  }
   model.refresh();
}

/**
 * @desc   : ¼ö¼ú¿¹¾àÀåºÎ ´Þ·ÂÁ¤º¸ Á¶È¸
 * @
 * @param  : 
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fReqOpScheRecCalendar(){
   model.removeNodeset("/root/send/reqdata");
   model.makeValue("/root/send/reqdata/year"      		, model.getValue("/root/main/cond/year"));
   model.makeValue("/root/send/reqdata/month"     	, model.getValue("/root/main/cond/month"));
   model.makeValue("/root/send/reqdata/perfdeptcd"	, model.getValue("/root/main/cond/perfdeptcd"));
   model.makeValue("/root/send/reqdata/perfdrid"		, model.getValue("/root/main/cond/scheperfdrid"));
   var rtnval = submit("TRMMO05702");
   if(rtnval == true){
      fMakeCalendar();
   }   
}

/**
 * @desc   : ´Þ·Â°ª ¼³Á¤
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fMakeCalendar(){
   model.removeNodeset("/root/main/week/week");
   model.refresh();
   
   grd_calendar.addRow(false, true);
   var row = 0;
   var col = 0;
   var patsum = 0;
   var totcnt = getNodeSetCnt("/root/main/opschecal/opschecal");
   for(var i = 1; i <= totcnt ; i++){
      row     = model.getValue("/root/main/opschecal/opschecal[" + i + "]/week");
      col     = model.getValue("/root/main/opschecal/opschecal[" + i + "]/day") - 1;
      patsum  = model.getValue("/root/main/opschecal/opschecal[" + i + "]/patsum");
      dutflag = model.getValue("/root/main/opschecal/opschecal[" + i + "]/dutflag");
      if(dutflag == 4){ //Åä
         grd_calendar.cellstyle("color", row, col) = "#0000FF";
      }else if(dutflag == 8){ //ÀÏ
         grd_calendar.cellstyle("color", row, col) = "#FF0000";
      }else{ //ÈÞÀÏ
         grd_calendar.cellstyle("color", row, col) = "#000000";
      }
      grd_calendar.valueMatrix(row, col) = i + "\n(" + patsum + ")";
      if(col == 6){
         grd_calendar.addRow(false, true);
      }
   }
   grd_calendar.rebuild();
}

/**
 * @desc   : ´Þ·Â ¼±Åýà ¼ö¼ú¿¹¾à ¸®½ºÆ® Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fSelectCalendar(){
   if(grd_calendar.isCell(event.target) && grd_calendar.row >= grd_calendar.fixedRows){
      var week   = grd_calendar.row;
      var day    = grd_calendar.col + 1;
      var basedd = model.getValue("/root/main/opschecal/opschecal[week = '" + week + "' and day   = '" + day    + "']/basedd");   
      model.setValue("/root/main/opscherecinfo/opscherecinfo/opschedd", basedd);
      model.setValue("/root/main/cond/queryflag", "cal");
      model.setValue("/root/main/cond/basedd"   , basedd);      
      model.copyNode("/root/send/reqdata", "/root/main/cond");
      model.setValue("/root/send/reqdata/perfdrid", model.getValue("/root/main/cond/scheperfdrid"));      
      var rtnval = submit("TRMMO05701");
      if(rtnval == true){
         fSetOpTimeToHourMin();
      }
   }
   
   var openflag = model.getValue("/root/main/cond/openflag"); //¼ö¼ú½ÇÀÏÁ¤ º¸±â°¡ checkµÈ °æ¿ì ¼ö¼ú½ÇÀÏÁ¤ ¿­±â
   if(openflag == "Y"){
      var param = "r"                                          + "¢Ë" + //status : rÁ¶È¸ Àü¿ëÈ­¸é
                  ""                                           + "¢Ë" + //oproomcd
                  ""                                           + "¢Ë" + //opregstno
                  ""                                           + "¢Ë" + //opregsthistno
                  ""                                           + "¢Ë" + //pid
                  basedd                                       + "¢Ë" + //opschedd
                  model.getValue("/root/main/cond/perfdeptcd") + "¢Ë" + //perfdeptcd
                  ""                                           + "¢Ë" + //opfromtmcd
                  ""                                           + "¢Ë" + //opendtmcd
                  "opsche"                                     + "¢Ë" + //queryflag
                  "";                                                   //perfdrid
      setParameter("SPMMO08800_param", param);
      modal("SPMMO08800");
   }  
}

/**
 * @desc   : Á¶È¸¹öÆ° Ŭ¸¯½Ã, Á¶È¸Á¶°ÇÀ¸·Î °Ë»ö
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fClkBtnReq(){
   model.setValue("/root/main/cond/queryflag", "");
   model.copyNode("/root/send/reqdata", "/root/main/cond");
   var rtnval = submit("TRMMO05701");
   if(rtnval == true){
      fSetOpTimeToHourMin();
   }
}

/**
 * @desc   : ¼ö¼ú¿¹¾à½Ã°£ ¼³Á¤
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fOpenSetOpScheTime(){
   var param = model.getValue(sOPSCHERECINFO_PATH + "/status")       + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/oproomcd")     + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/opregstno")    + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/opregsthistno")+ "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/pid")          + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/opschedd")     + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/perfdeptcd")   + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/opfromtmcd")   + "¢Ë" +
               model.getValue(sOPSCHERECINFO_PATH + "/opendtmcd")    + "¢Ë" +
               //"opsche"                                              + "¢Ë" +
               "oprsrv"                                              + "¢Ë" +          //¸¶Ãë°ú¿¡¼­ µî·ÏÇØ ³õÀº ¹æÀ¸·Î º¸±â¸¦ ¿äû(2008.03.18)
               model.getValue(sOPSCHERECINFO_PATH + "/perfdrid");
               
   setParameter("SPMMO08800_param", param);   
   modal("SPMMO08800");

   var rtnuseyn = getParameter("SPMMO08800_rtn_useyn");
   if(rtnuseyn == "Y"){
      setParameter("SPMMO08800_rtn_useyn", "N");
      var rtnparam = getParameter("SPMMO08800_rtn_param");      
      rtnparam = rtnparam.split("¢Ë");
      if(rtnparam[1] != "" || rtnparam[2] != ""){
        var difftime = getTimeInterval(rtnparam[1], rtnparam[2]);
        model.setValue(sOPSCHERECINFO_PATH + "/oproomcd"  , rtnparam[0]);
        model.setValue(sOPSCHERECINFO_PATH + "/opfromtmcd", rtnparam[1]);
        model.setValue(sOPSCHERECINFO_PATH + "/opendtmcd" , rtnparam[2]);
        model.setValue(sOPSCHERECINFO_PATH + "/opusetm"   , fTransSecToHourMin(difftime));
		clearParameter("SPMMO08800_rtn_param");
      }else{
      	// ¸¶ÃëÀÇ·Ú È­¸éÀ¸·Î ¿¬µ¿µÉ¶§ ¹®Á¦ - Á¤±Ô·Î ÀÇ·ÚÇßÀ»¶§ ¼ö¼ú¹æÀº ¼±Åõƴµ¥ ¼ö¼ú½Ã°£ÀÌ ºñ¾î¹ö¸²
        model.setValue(sOPSCHERECINFO_PATH + "/oproomcd"  , rtnparam[0]);

      }
   }
   model.refresh();
}

/**
 * @desc   : Ãʸ¦ ½ÃºÐÃÊ·Î Àüȯ
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fTransSecToHourMin(sec){
   var hr  = 3600;
   var min = 60;
   hour = parseInt(sec/hr);
   min  = parseInt(sec%hr/min);   
   var rtnstr = hour + "h " + min + "m ";
   return rtnstr;
}

/**
 * @desc   : ¼ö¼ú½Ã°£ ½ÃºÐÃÊ·Î º¯°æ
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fSetOpTimeToHourMin(){
   for(var i = 1; i < grd_opschelist.rows; i++){
      var opfromtmcd = model.getValue(sOPSCHERECLIST_PATH + "[" + i + "]/opfromtmcd");
      var opendtmcd  = model.getValue(sOPSCHERECLIST_PATH + "[" + i + "]/opendtmcd");      
      if(opfromtmcd == "" || opendtmcd == ""){
        var difftime = 0;
      }else{
        var difftime = getTimeInterval(opfromtmcd, opendtmcd);        
      }
      model.setValue(sOPSCHERECLIST_PATH + "[" + i + "]/opusetm", fTransSecToHourMin(difftime));
   }
   grd_opschelist.refresh();
}

/**
 * @desc   : parameter Á¡°Ë ¹× »ó´ÜÁ¤º¸ Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fChkPatTopInfoParam(){
   if(checkOpener()){      
      var param = opener.javascript.getParameter("SMMMO05700_param");      
      if(param.length > 0){ //parameterÁ¤º¸°¡ ÀÖ´Â °æ¿ì
         param = param.split("¢Ë");
         var pid       = param[0];
         var hngnm     = param[1];
         var sex       = param[2];
         var age       = param[3];
         var orddd     = param[6];
         var orddeptcd = param[7];
         var ioflag    = param[8];
         
      }else{ //parameterÁ¤º¸°¡ ¾ø´Â °æ¿ì, »ó´ÜÁ¤º¸ °Ë»ç
         var paminfo = getGlobalVariable("paminfo");
         var patflag = getGlobalVariable("patflag");
         
         if(paminfo.length > 0){ //»ó´ÜÁ¤º¸°¡ ÀÖ´Â °æ¿ì
            model.removeNodeset("/root/paminfo/list");
            model.removeNodeset("/root/patflag/list");
            
            setCSVToNode("/root/paminfo", paminfo);
            setCSVToNode("/root/patflag", patflag);
            var ioflag = model.getValue("/root/patflag/list/prcpgenrflag");
            if(ioflag == "I"){
               var orddd = model.getValue("/root/paminfo/list/indd");               
            }else{
               var orddd = model.getValue("/root/paminfo/list/orddd");             
            }
            var pid       = model.getValue("/root/paminfo/list/pid");
            var hngnm     = model.getValue("/root/paminfo/list/hngnm");
            var sex       = model.getValue("/root/paminfo/list/sex");
            var age       = model.getValue("/root/paminfo/list/age");
            var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
            var insukind  = model.getValue("/root/paminfo/list/insukind");
            var suppkind  = model.getValue("/root/paminfo/list/suppkind");
            
         }else{ //»ó´ÜÁ¤º¸°¡ ¾ø´Â °æ¿ì
            return;
            
         }
      }
      model.setValue(sOPSCHERECINFO_PATH + "/pid"      , pid);
      model.setValue(sOPSCHERECINFO_PATH + "/hngnm"    , hngnm);
      model.setValue(sOPSCHERECINFO_PATH + "/sex"      , sex);
      model.setValue(sOPSCHERECINFO_PATH + "/age"      , age);
      model.setValue(sOPSCHERECINFO_PATH + "/insukind" , insukind);
      model.setValue(sOPSCHERECINFO_PATH + "/suppkind" , suppkind);
   }
   
   fReqPatCurrentDiagList(pid, orddd, orddeptcd, ioflag); //ÇöÀç ȯÀÚ Áø´Ü Á¶È¸
   model.refresh();
}

/**
 * @desc   : ÀúÀå¹öÆ° Ŭ¸¯
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fClkBtnSave(){
  var status = model.getValue(sOPSCHERECINFO_PATH + "/status");
  if(status == "u"){
    if(!compareNodeVal("/root/cmpopschelist", sOPSCHERECINFO_PATH)){
      messageBox("º¯°æµÈ »çÇ×ÀÌ", "I004");
      return;
    }
  }  
  
  if(fChkValidOpScheInfo()== true){ //ÀúÀåÀ¯È¿¼º °Ë»ç

	  //2012/06/26 Start
	  //¼ö¼ú ¿¹¹æÀû Ç×»ýÁ¦ °ü·Ã
	  var dispopcd=model.getValue("/root/main/opscherecinfo/opscherecinfo/dispopcd");
	  var t_pname = model.getValue("/root/main/opscherecinfo/opscherecinfo/hngnm");
	  var t_opnm = model.getValue("/root/main/opscherecinfo/opscherecinfo/opnm");
	  if(model.getValue("/root/main/opscherecinfo/opscherecinfo/age")>17){
		for(var i=1; i<=parseInt(nodecnt.length); i++){
			  var cdseqno=model.getValue("/root/temp/opcd/hardcd["+ i +"]/cdseqno");
			  var trgtcd=model.getValue("/root/temp/opcd/hardcd["+ i +"]/hardcd");
			  if(cdseqno==dispopcd.length && dispopcd==trgtcd.substr(0,3)){
				  messageBox("("+t_pname+")"+" ȯÀÚ´Â " +"("+t_opnm+")" + " ¼ö¼ú·Î ¼ö¼ú¿¹¹æÀû Ç×»ýÁ¦ ÀûÁ¤¼º Æò°¡ ´ë»óÀÔ´Ï´Ù.\n" +
						     "1,2¼¼´ë ¼¼ÆÄ°è Ç×»ýÁ¦¸¦ ´Üµ¶À¸·Î Åõ¿©ÇϽøé Æò°¡¸¦ Àß ¹ÞÀ» ¼ö ÀÖ½À´Ï´Ù.", "I");
				  break;
			  }else if(cdseqno==dispopcd.length && dispopcd==trgtcd.substr(0,4)){
				  messageBox("("+t_pname+")"+" ȯÀÚ´Â " +"("+t_opnm+")" + " ¼ö¼ú·Î ¼ö¼ú¿¹¹æÀû Ç×»ýÁ¦ ÀûÁ¤¼º Æò°¡ ´ë»óÀÔ´Ï´Ù.\n" +
						     "1,2¼¼´ë ¼¼ÆÄ°è Ç×»ýÁ¦¸¦ ´Üµ¶À¸·Î Åõ¿©ÇϽøé Æò°¡¸¦ Àß ¹ÞÀ» ¼ö ÀÖ½À´Ï´Ù.", "I");
				  break;
			  } 	
		  }
	  }
	  //2012/06/26 End
	  
    model.copyNode("/root/send/savedata", "/root/main/opscherecinfo/opscherecinfo");
    var rtnval = submit("TXMMO05701");
    if(rtnval == true){
       fSetOpTimeToHourMin();
       var pid = model.getValue("/root/main/opscherecinfo/opscherecinfo/pid");   
       model.copyNode(sOPSCHERECINFO_PATH, sOPSCHERECLIST_PATH + "[pid= '" + pid + "']");
       model.setValue(sOPSCHERECINFO_PATH + "/status", "u");
       model.refresh();
       
       fReqOpScheRecCalendar();
    }
  }
}


/**
 * @desc   : ȯÀÚ ÇöÀç Áø´Ü Á¶È¸ (Áø´Ü±¸ºÐÄÚµå:M)
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fReqPatCurrentDiagList(pid, orddd, orddeptcd, ioflag){
   model.removeNodeset("/root/send/reqdata");
   model.makeValue("/root/send/reqdata/pid"           , pid);
   model.makeValue("/root/send/reqdata/orddd"         , orddd);
   model.makeValue("/root/send/reqdata/orddeptcd"     , orddeptcd);
   model.makeValue("/root/send/reqdata/ioflag"        , ioflag);
   model.makeValue("/root/send/reqdata/diagkindcdflag", "M");
   if(submit("TRMMO00114")==true){
    
   }
   model.refresh();
}

/**
 * @desc   : ȯÀÚ ¼öÁøÁ¤º¸ Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fReqPatOrdInfo(){
  var pid = model.getValue(sOPSCHERECINFO_PATH + "/pid");
  if(pid == ""){
    messageBox("ȯÀÚÀÇ µî·Ï¹øÈ£¸¦", "C001");
    return;
  }
  model.removeNodeset("/root/send/reqdata");
  model.makeValue("/root/send/reqdata/cond1", "1"); //1Àº µî·Ï¹øÈ£, 2´Â ȯÀÚ¸í
  model.makeValue("/root/send/reqdata/cond2", pid); //µî·Ï¹øÈ£
  model.makeValue("/root/send/reqdata/cond3", getUserInfo("dutplceinstcd"));
  model.makeValue("/root/send/reqdata/cond4", "N"); //¿ø¹«Å° ±âÁØ¿©ºÎ
  model.makeValue("/root/send/reqdata/cond5", "N"); //´çÀϱâÁØ Á¶È¸¿©ºÎ
  model.makeValue("/root/send/reqdata/cond6", "-"); //¿Ü·¡,ÀÔ¿øÅ×ÀÌºí ±âÁØ
  if(submit("TRMMO00200")==true){  	
  	/*var nodecnt = getNodeSetCnt(sPATORDINFOLIST_PATH)  	
  	if(nodecnt > 1){
			var xpt   = window.screenleft + 50;
			var ypt   = window.screenTop + 80;
			var coord = getRelativeCoordinate(xpt, ypt);
			var mon   = coord[0];
			xpt       = coord[1];
			ypt       = coord[2];
		  modal("SPMMO09100", mon, xpt, ypt, "patordinfo", "/root/patordinfo", "/root/patordinfo", "", false );
		  
		  param = getParameter("SPMMO09100_rtn_param");		  
		  if(param.length > 0){
		    model.removeNodeset(sPATORDINFOLIST_PATH);		    
		    setCSVToNode("/root/patordinfo", param, "patordinfolist");
		  }
  	}
  	var ioflag = model.getValue(sPATORDINFOLIST_PATH + "/ioflag");
  	var pid    = model.getValue(sPATORDINFOLIST_PATH + "/pid");
  	var orddd  = model.getValue(sPATORDINFOLIST_PATH + "/orddd");
  	var cretno = model.getValue(sPATORDINFOLIST_PATH + "/cretno");
  	var instcd = model.getValue(sPATORDINFOLIST_PATH + "/instcd");
  	var srchdd = model.getValue(sPATORDINFOLIST_PATH + "/orddd");*/
  	
  	// 2008.11.18 ·Î±×ÀÎ ÀÇ»ç Áø·á°úÀÇ ÃÖ±Ù ¼öÁø ÀÌ·ÂÀ» ¼±ÅÃÇÑ »óÅÂ
  	sortNodeList("/root/patordinfo/patordinfolist", "orddd", "desc");
  	var patlist = model.instance1.selectNodes("/root/patordinfo/patordinfolist[orddeptcd = " + getUserInfo("dutplcecd") + "and orddd <="+ getCurrentDate() +"]");
  	if(patlist.length > 0) {
  		var ioflag = patlist.item(0).selectSingleNode("ioflag").text;
	  	var pid    = patlist.item(0).selectSingleNode("pid").text;
	  	var orddd  = patlist.item(0).selectSingleNode("orddd").text;
	  	var cretno = patlist.item(0).selectSingleNode("cretno").text;
	  	var instcd = patlist.item(0).selectSingleNode("instcd").text;
	}else{
		var cretno = "";
	}
	// (e)
	
	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); 
  	
  	// 2008.10.31 µî·Ï¹øÈ£ °Ë»öÀ¸·Î ÀǷڽà »ó´Ü UP Á¶°Ç icdr.fromdd
  	if(submit("TRMMO00210")) {
  		var srchdd = model.getValue("/root/main/topinfo/topinfo/fromdd");
  	}
  	// (e)
  	
  	if(ioflag == "I" || ioflag == "D"){
  	  var param = "I" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + srchdd;
  	  
  	} else if(ioflag == "E") {
  	  var param = "E" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + srchdd;
  	  
  	}else{
  	  var param = "O" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë"   + instcd;
  	}
  	
  	setParameter("condparam", param);   
    modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){
       setParameter("SPMMO08900_rtn_useyn", "");
       fChkPatTopInfoParam();
       
    }else{
       return;
       
    }
  }
}

/**
 * @desc   : ¼ö¼ú¿¹¾àÀåºÎ ÀúÀå½Ã ¹«°á¼º °Ë»ç
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fChkValidOpScheInfo(){
  var pid        = model.getValue(sOPSCHERECINFO_PATH + "/pid");
  var perfdeptcd = model.getValue(sOPSCHERECINFO_PATH + "/perfdeptcd");
  var perfdrid   = model.getValue(sOPSCHERECINFO_PATH + "/perfdrid");
  var oproomcd   = model.getValue(sOPSCHERECINFO_PATH + "/oproomcd");
  var opcd       = model.getValue(sOPSCHERECINFO_PATH + "/opcd");
  var diagcd     = model.getValue(sOPSCHERECINFO_PATH + "/diagcd");
  var opfromtmcd = model.getValue(sOPSCHERECINFO_PATH + "/opfromtmcd");
  var opendtmcd  = model.getValue(sOPSCHERECINFO_PATH + "/opendtmcd");
  var oppatflagcd= model.getValue(sOPSCHERECINFO_PATH + "/oppatflagcd");
  
  if(pid == ""){
    messageBox("ȯÀÚÀÇ µî·Ï¹øÈ£¸¦", "C001");
    return false;
  }
  
  if(perfdeptcd == ""){
    messageBox("ÁýµµºÎ¼­¸¦", "C001");
    return false;
  }
  
  if(perfdrid == ""){
    messageBox("ÁýµµÀǸ¦", "C001");
    return false;
  }
  
  /*
  if(opcd == ""){
    messageBox("¼ö¼úÄڵ带", "C001");
    return false;
  }
  */
  
  if(diagcd == ""){
    messageBox("Áø´ÜÄڵ带", "C001");
    return false;
  }
  
  if(oppatflagcd == ""){
    messageBox("¼ö¼úȯÀÚ±¸ºÐÀ»", "C002");
    return false;
  }
  /*
  if(opfromtmcd == "" || opendtmcd == ""){
    messageBox("¼ö¼ú¿¹¾à½Ã°£À»", "C002");
    return false;
  }*/

  return true;
}

/**
 * @desc   : ȯÀÚÀÇ Áø´Ü Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fReqDiagList(){  

  var paminfocsv = getGlobalVariable("paminfo");
  var patflagcsv = getGlobalVariable("patflag");
  
  model.setValue("/root/main/cond/orddeptcd" , getUserInfo("dutplcecd")); //Áø·á°ú
	model.setValue("/root/main/cond/perfdrid"   , getUserInfo("userid"));    //˂ȍ  
	model.refresh();
	
  if(paminfocsv.length > 1){
     model.removeNodeSet ( "/root/paminfo/list"); //»ó´ÜÈ­¸é Á¤º¸ ÃʱâÈ­
     setCSVToNode ("/root/paminfo", paminfocsv);
  }else{
     return;
  }

  if(patflagcsv.length > 1){
     model.removeNodeSet ( "/root/patflag/list"); //ȯÀÚ±¸ºÐ Á¤º¸ ÃʱâÈ­
     setCSVToNode ("/root/patflag", patflagcsv);
  }else{
     return;
  }
  
  var ioflag    = model.getValue("/root/patflag/list/prcpgenrflag");
  var pid       = model.getValue("/root/paminfo/list/pid");
  var orddeptcd = model.getValue("/root/paminfo/list/orddeptcd");
  if(ioflag == "O" || ioflag == "S"){
    var orddd = model.getValue("/root/paminfo/list/orddd");
    
  }else{
    var orddd = model.getValue("/root/paminfo/list/indd");

  }
  
  model.removeNodeset("/root/send/reqdata");
  model.makeValue("/root/send/reqdata/pid"      , pid);
  model.makeValue("/root/send/reqdata/orddeptcd", orddeptcd);
  model.makeValue("/root/send/reqdata/orddd"    , orddd);
  model.makeValue("/root/send/reqdata/ioflag"   , ioflag);
  if(submit("TRMMO00114")==true){
   var diagcd     = model.getValue("/root/main/diaginfo/diagcdlist[1]/diagcd");
   var dispdiagcd = model.getValue("/root/main/diaginfo/diagcdlist[1]/icd10cd");
   var diagengnm  = model.getValue("/root/main/diaginfo/diagcdlist[1]/diagengnm");   
     
   model.setValue(sOPSCHERECINFO_PATH + "/diagcd"    , diagcd);
   model.setValue(sOPSCHERECINFO_PATH + "/dispdiagcd", dispdiagcd);
   model.setValue(sOPSCHERECINFO_PATH + "/diagnm"    , diagengnm);   
   model.refresh();
  }  
  
  model.refresh();

  fOpenDiagLnkOpList(); //ȯÀÚÀÇ Áø´Ü¿¬°è¼ö¼ú Á¶È¸
}

/**
 * @desc   : ȯÀÚÀÇ Áø´Ü¿¬°è¼ö¼ú Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fOpenDiagLnkOpList(){
  var diagcd = model.getValue(sOPSCHERECINFO_PATH + "/diagcd");
  
  clearParameter("SPMMO04000_dispopcd");
  clearParameter("SPMMO04000_orgopcd");
  clearParameter("SPMMO04000_opengnm");
  
  if(diagcd != ""){
    setParameter("SPMMO04000_userid"   , getUserInfo("userid"));
    setParameter("SPMMO04000_orddeptcd", getUserInfo("dutplcecd"));
    setParameter("SPMMO04000_diagcd"   , diagcd);
    modal("SPMMO04000");
    
    var useyn = getParameter("SPMMO04000_useyn");
    if(useyn == "Y"){
      var dispopcd = getParameter("SPMMO04000_dispopcd");
      var opcd     = getParameter("SPMMO04000_orgopcd");
      var opengnm  = getParameter("SPMMO04000_opengnm");
      
      model.setValue(sOPSCHERECINFO_PATH + "/dispopcd", dispopcd);
      model.setValue(sOPSCHERECINFO_PATH + "/opcd"    , opcd);
      model.setValue(sOPSCHERECINFO_PATH + "/opnm"    , opengnm);
      model.refresh();
    }
  setParameter("SPMMO04000_useryn", "");
  }
}


/**
 * @desc   : ȯÀÚÁø·áÁ¤º¸ list Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¹ÚÀ¯¹Ì
 * @---------------------------------------------------
 */
 function fOpenPatInfo(){
 	var pid = model.getValue(sOPSCHERECINFO_PATH + "/pid");
  if(pid == ""){
    messageBox("ȯÀÚÀÇ µî·Ï¹øÈ£¸¦", "C001");
    return;
  }
  model.removeNodeset("/root/send/reqdata");
  model.makeValue("/root/send/reqdata/cond1", "1"); //1Àº µî·Ï¹øÈ£, 2´Â ȯÀÚ¸í
  model.makeValue("/root/send/reqdata/cond2", pid); //µî·Ï¹øÈ£
  model.makeValue("/root/send/reqdata/cond3", getUserInfo("dutplceinstcd"));
  model.makeValue("/root/send/reqdata/cond4", "N"); //¿ø¹«Å° ±âÁØ¿©ºÎ
  model.makeValue("/root/send/reqdata/cond5", "N"); //´çÀϱâÁØ Á¶È¸¿©ºÎ
  model.makeValue("/root/send/reqdata/cond6", "-"); //¿Ü·¡,ÀÔ¿øÅ×ÀÌºí ±âÁØ
  if(submit("TRMMO00200")==true){  	
  	var nodecnt = getNodeSetCnt(sPATORDINFOLIST_PATH)  	
  	if(nodecnt > 1){
			var xpt   = window.screenleft + 50;
			var ypt   = window.screenTop + 80;
			var coord = getRelativeCoordinate(xpt, ypt);
			var mon   = coord[0];
			xpt       = coord[1];
			ypt       = coord[2];
		  modal("SPMMO09100", mon, xpt, ypt, "patordinfo", "/root/patordinfo", "/root/patordinfo", "", false );
		  
		  param = getParameter("SPMMO09100_rtn_param");		  
		  if(param.length > 0){
		    model.removeNodeset(sPATORDINFOLIST_PATH);		    
		    setCSVToNode("/root/patordinfo", param, "patordinfolist");
		  }
  	}
  	var ioflag = model.getValue(sPATORDINFOLIST_PATH + "/ioflag");
  	var pid    = model.getValue(sPATORDINFOLIST_PATH + "/pid");
  	var orddd  = model.getValue(sPATORDINFOLIST_PATH + "/orddd");
  	var cretno = model.getValue(sPATORDINFOLIST_PATH + "/cretno");
  	var instcd = model.getValue(sPATORDINFOLIST_PATH + "/instcd");
  	var srchdd = model.getValue(sPATORDINFOLIST_PATH + "/orddd");
	
	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); 
  	
  	// 2008.10.31 µî·Ï¹øÈ£ °Ë»öÀ¸·Î ÀǷڽà »ó´Ü UP Á¶°Ç icdr.fromdd
  	if(submit("TRMMO00210")) {
  		var srchdd = model.getValue("/root/main/topinfo/topinfo/fromdd");
  	}
  	// (e)
  	
  	if(ioflag == "I" || ioflag == "D"){
  	  var param = "I" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + srchdd;
  	  
  	} else if(ioflag == "E") {
  	  var param = "E" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + instcd + "¢Ë" + srchdd;
  	  
  	}else{
  	  var param = "O" + "¢Ë" + pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë"   + instcd;
  	}
  	
  	setParameter("condparam", param);   
    modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){
       setParameter("SPMMO08900_rtn_useyn", "");
       fChkPatTopInfoParam();
       
    }else{
       return;
       
    }
  }
}
 
 
 function fChoJinRecSrch(){
	var signno = 0;
	var ckcnt = 0;
	var formcd = "";
	var signstr = "";
	model.removeNode("/root/send/chojindata");
	model.makeNode("/root/send/chojindata");
	 
	model.makeValue("/root/send/chojindata/instcd"			, getUserInfo("dutplceinstcd") );
	model.makeValue("/root/send/chojindata/pid"				, model.getValue("/root/main/opschereclist/opschereclist[" + grd_opschelist.row + "]/pid") );
	model.makeValue("/root/send/chojindata/perfdeptcd"		, model.getValue("/root/main/opschereclist/opschereclist[" + grd_opschelist.row + "]/perfdeptcd") );
	if( submit("TRMMO05707") ){
		var nodecnt = getNodesetCount("/root/main/chojin/chojinlist");
		for (var k = 1; k <= nodecnt; k++){
			signno = model.getValue("/root/main/chojin/chojinlist[" + k + "]/signno");
			formcd = model.getValue("/root/main/chojin/chojinlist[" + k + "]/formcd");
			signstr  += "E¢Ë";
			signstr  += signno+"¢Ë";
			signstr  += formcd+"¢Ì";
		}
	}

	if ( signstr != "" ) {
		setParameter("SPMRI02400_prtyn" , "N");
		setParameter("SPMRI02400_prtrecinfo", signstr);
		var xpt = 50;
		var ypt = 50;
		aezfTopMost("SPMRI02400",2,xpt,ypt,"SPMRI02400");
	}else {
		alert("Ãâ·ÂÇÒ ¼­½Ä µðÀÚÀÎÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
		return;
	}
 }