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

    ¾÷¹«ÇùÁ¶¹® SMMMO16300_¾÷¹«ÇùÁ¶¹®.xrw - JScript )

  - ¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì¢Ì

*/

var sNodeList_Path = "/root/main/info/list";

/*
 * @desc   : ¾÷¹«ÇùÁ¶¹® ±âº»Á¶°Ç ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ±è¿µÇÐ
 * @---------------------------------------------------
 */
 function fSetBaseInit() {
	
	model.setValue("/root/main/cond/orddeptcd"           , "-");
	model.setValue("/root/main/cond/wardcd"           , "-");
	
	var jobkind = getUserInfo("jobkindcd");
	if (  jobkind == "0330" || jobkind == "1411" )
	{
		grd_prcplist.colHidden(grd_prcplist.colRef("wardnm")) = true;
		model.toggle("case1");
		model.toggle("case3");
		
		mmbfGetDeptCodeComboList("/root/send/reqdata"  , "/root/init/orddept", "A");
		addComboInstance("/root/init/orddept"                    , "deptcd^depthngnm", "-^Àüü", "dept");      //ºÎ¼­ÄÞº¸ Item 'Àüü'Ãß°¡
		model.setValue("/root/main/cond/orddeptcd"           , "-");
	}
	else
	{
		grd_prcplist.colHidden(grd_prcplist.colRef("wardnm")) = false;
		model.toggle("case2");
		model.toggle("case4");
		submit("TRMNR01002", false);
		addComboInstance("/root/init/wardcdgrup"                    , "wardcd^wardnm", "-^Àüü", "wardcdgruplist");      //ºÎ¼­ÄÞº¸ Item 'Àüü'Ãß°¡
		model.setValue("/root/main/cond/wardcd"           , "-");
	}

    model.setValue("/root/main/cond/fromdd"               , getCurrentDate());
	model.setValue("/root/main/cond/todd"                 , getCurrentDate());	
 }
 
 /*
 * @desc   : ¾÷¹«ÇùÁ¶¹® ó¹æÄڵ峪 »óº´ÄÚµå ¼±Åýà ±×¸®µå ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ±è¿µÇÐ
 * @---------------------------------------------------
 */
 function fGrdInit() {
    model.removeNodeset("/root/main/patprcpinfo/patprcplist");
	var code = model.getValue("/root/main/cond/code");
	if (code =="P" ) {    // ó¹æ ÄÚµå Á¶È¸
		//grd_prcplist.caption="ȯÀÚ¹øÈ£^ȯÀÚ¸í^S/A^ÁֹιøÈ£^ó¹æÀÏ^ó¹æÀÇ^¼ö·®^¿ë·®^Ƚ¼ö^Àϼö^¿ë¹ý/°Ëü^ó¹æÄÚµå^Áø´ÜÄÚµå^Áø·á°ú^¿ìÆí¹øÈ£^ÁÖ¼Ò" 
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpqty")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpvol")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcptims")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpdayno")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("drugmthdspccdnm")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpcd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("icd10cd")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("diagcd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("diagengnm")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpnm")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("rgstdd")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("kindcd")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("kindcdflag")) = true;
		//grd_prcplist.colHidden(grd_prcplist.colRef("rsrvflag")) = false;
				
	} else {    // Áø´ÜÄÚµå·Î Á¶È¸
		//grd_prcplist.caption="ȯÀÚ¹øÈ£^ȯÀÚ¸í^S/A^ÁֹιøÈ£^Áø·áÀÏ^ó¹æÀÇ^¼ö·®^¿ë·®^Ƚ¼ö^Àϼö^¿ë¹ý/°Ëü^ó¹æÄÚµå^Áø´ÜÄÚµå^Áø·á°ú^¿ìÆí¹øÈ£^ÁÖ¼Ò" 
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpqty")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpvol")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcptims")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpdayno")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpnm")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("drugmthdspccdnm")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("prcpcd")) = true;
		grd_prcplist.colHidden(grd_prcplist.colRef("icd10cd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("diagcd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("diagengnm")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("rgstdd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("kindcd")) = false;
		grd_prcplist.colHidden(grd_prcplist.colRef("kindcdflag")) = false;
		//grd_prcplist.colHidden(grd_prcplist.colRef("rsrvflag")) = true;
		
	}
	grd_prcplist.rebuild();
 } 
 
 /**
  * @desc   : Áø´Ü¿ë¾îÄÚµå °Ë»ö
  * @                   
  * @param  :
  * @return :
  * @author : ¿ÀÁöÈÆ    -- 2008. 12. 08 . ¾÷¹«ÇùÁ¶¹®¿¡ ¸Â°Ô ³»¿ë¼öÁ¤
  * @---------------------------------------------------
  */
 function fSearchDiagTermCD(){
    var icd10cd   =   ipt_code.currentText;
    var diagengnm =   ipt_name.currentText;
    if(icd10cd == "" && diagengnm == ""){ //¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾Ê´Â °æ¿ì return
 	  return;
    }
    
    if (isNull(icd10cd)) {
       setParameter("SPMMO00800_cond1", 2);
       setParameter("SPMMO00800_cond2", 4);
       setParameter("SPMMO00800_cond3", fIsHangul(diagengnm));
       setParameter("SPMMO00800_cond4", getCurrentDate());
       setParameter("SPMMO00800_cond5", diagengnm);
    } else if (isNull(diagengnm)) {
       setParameter("SPMMO00800_cond1", 1);
       setParameter("SPMMO00800_cond2", 4);
       setParameter("SPMMO00800_cond3", "E");
       setParameter("SPMMO00800_cond4", getCurrentDate());
       setParameter("SPMMO00800_cond5", icd10cd);
    }
 
    modal("SPMMO00850");
    //lyj ¼öÁ¤
    //modal("SPMMO00800");
 
    var useyn = getParameter("SPMMO00800_rtn_useyn");
    if(useyn == "Y"){
 	  setParameter("SPMMO00800_rtn_useyn", "");
 	  fSetDiagTermCD();
    }else{
 	  setParameter("SPMMO00800_rtn_useyn", "");
 	  model.setValue(root.main.cond.code  , "");
 	  model.setValue(root.main.cond.name  , "");
 	  model.refresh();
    }
 }
 
 /**
  * @desc   : Áø´Ü¿ë¾îÄÚµå ¼³Á¤
  * @
  * @param  :
  * @return :
  * @author : ¿ÀÁöÈÆ   -- 2008. 12. 08 . ¾÷¹«ÇùÁ¶¹®¿¡ ¸Â°Ô ³»¿ë¼öÁ¤
  * @---------------------------------------------------
  */
 function fSetDiagTermCD(){
    
    var rtnparam = getParameter("SPMMO00800_rtn");
   
    rtnparam = rtnparam.split("¢Ì");
    
    for(i = 1; i< rtnparam.length-1; i++){ 
 	  var tmpstr = rtnparam[i];
 	  tmpstr = tmpstr.split("¢Ë");
  	
  	var currow = grd_prcplist.rows;
    grd_prcplist.addRow(false);
 	  
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/code"     , tmpstr[3]);
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/engnm"    , tmpstr[6]);
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/hngnm"    , tmpstr[5]);
 	  
    }
    
    model.recalculate();
    model.refresh();
 }		
 
 /**
  * @desc   : Áø´ÜÆ˾÷ open
  * @
  * @param  :
  * @return :
  * @author : ¿ÀÁöÈÆ
  * @---------------------------------------------------
  */
 function fOpenDiagPopUp(){
 	modal("SPMMO03200");
 	
 	var useyn = getParameter("SPMMO03200_rtn_useyn");
 	if(useyn == "Y"){
 		setParameter("SPMMO03200_rtn_useyn", "");
 		var totcnt = getNodeSetCnt("/root/temp/selectdiaglist");
 		for(var i = 1; i <= totcnt; i++){
 			var diagcd     = model.getValue("/root/temp/selectdiaglist[" + i + "]/diagcd");
 			var dispdiagcd = model.getValue("/root/temp/selectdiaglist[" + i + "]/dispdiagcd");
 			var diagengnm  = model.getValue("/root/temp/selectdiaglist[" + i + "]/diagengnm");
 			var diaghngnm  = model.getValue("/root/temp/selectdiaglist[" + i + "]/diaghngnm");
 		}
 	}
 	model.refresh();    
 }	 
 
 
 /*
 * @desc   : ¾÷¹«ÇùÁ¶¹® ÄÚµåÁ¶È¸ ÃʱâÈ­
 * @
 * @param  :
 * @return :
 * @author : ±è¿µÇÐ
 * @---------------------------------------------------
 */
 function fCodeSrchInit() {
	model.removeNodeset("/root/main/info/list");
	if (code == "P") {
		cap_code.value 			= "ó¹æÄÚµå :";
		cap_name.value 			= "ó ¹æ ¸í :"
		cap_subtitle.value 			= "ó¹æÄÚµåÁ¶È¸"
		grd_prcplist.caption		= "ó¹æÄÚµå^ó¹æ¸í^ó¹æÇѱ۸í" 
	} else {
		cap_code.value      		= "Áø´ÜÄÚµå :";
		cap_name.value      		= "Áø ´Ü ¸í :"			
		cap_subtitle.value       	= "Áø´ÜÄÚµåÁ¶È¸"
		grd_prcplist.caption     	= "Áø´ÜÄÚµå^Áø´Ü¸í^Áø´ÜÇѱ۸í" 
	}
	model.refresh();		
 }
 
 
 
 
  /**
  * @desc   : ó¹æÄÚµå °Ë»ö
  * @                   
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.10)
  * @---------------------------------------------------
  */
 function fSearchPrcpTermCD(){
    var icd10cd   =   ipt_code.currentText;
    var diagengnm =   ipt_name.currentText;
    var fromdd    =   model.getValue("/root/main/cond/fromdd");
    var todd      =   model.getValue("/root/main/cond/todd");
    
    if(icd10cd == "" && diagengnm == ""){ //¾Æ¹« °ªµµ ÀÔ·ÂÇÏÁö ¾Ê´Â °æ¿ì return
 	  return;
    }    

    if (isNull(icd10cd)) {
    setParameter("SPMMO00800_cond1", 2);
    setParameter("SPMMO00800_cond5", diagengnm);  
    setParameter("SPMMO00800_fromdd", fromdd);  
    setParameter("SPMMO00800_todd"  , todd);  
    } else if (isNull(diagengnm)) {
    setParameter("SPMMO00800_cond1", 1);
    setParameter("SPMMO00800_cond5", icd10cd);  
    setParameter("SPMMO00800_fromdd", fromdd);  
    setParameter("SPMMO00800_todd"  , todd);  
    }

    modal("SPMMO16700");
 
    var useyn = getParameter("SPMMO00800_rtn_useyn");
    if(useyn == "Y"){
 	  setParameter("SPMMO00800_rtn_useyn", "");
 	  fSetPrcpTermCD();
    }else{
 	  setParameter("SPMMO00800_rtn_useyn", "");
 	  model.setValue(root.main.cond.code  , "");
 	  model.refresh();
    }
 }
 
 
 
  /**
  * @desc   : ó¹æÄÚµå ¼³Á¤
  * @
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.10)
  * @---------------------------------------------------
  */
 function fSetPrcpTermCD(){
    
    var rtnparam = getParameter("SPMMO00800_rtn");
    rtnparam = rtnparam.split("¢Ì");
    
    for(i = 1; i< rtnparam.length-1; i++){ 
 	  var tmpstr = rtnparam[i];
 	  tmpstr = tmpstr.split("¢Ë");
  	  var currow = grd_prcplist.rows;
      grd_prcplist.addRow(false);
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/code"     , tmpstr[1]);
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/engnm"    , tmpstr[2]);
 	  model.makeValue(sNodeList_Path + "[" + currow + "]/hngnm"    , tmpstr[3]);
 	  
    }
    
    model.recalculate();
    model.refresh();
 }	
 
  /**
  * @desc   : Modal â¿¡¼­ µ¥ÀÌÅ͸¦ ¼±ÅÃÇÑ °ÍÀ» ³ª´²¾î ÁÜ
  * @
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.10)
  * @---------------------------------------------------
  */
function getCodeNodeListCSV(nodeList) {
	 if( nodeList.length == 0 ){
		return;
	 }
				
	 var sColSep = "¢Ë";
	 var sRowSep = "¢Ì";
	 
	 var rCSV = "";
	 
	 var childNodeList = nodeList.item(0).childNodes;
	 var childNodeCnt = childNodeList.length;
	 if( childNodeCnt == 0 ){
		return;
	 }
		
	 var i, j;
	 for( i = 0; i < childNodeCnt - 1; i++) {
		rCSV += childNodeList.item(i).nodeName + sColSep;
	 }
	 rCSV += childNodeList.item(i).nodeName + sRowSep;
	
	 var node;
	 var cnt = 1;
	 var selCnt = 0;
	 while( node = nodeList.nextNode() ) {
		 childNodeList = node.childNodes;
		 for( i = 0; i < childNodeCnt - 1; i++) {						             
			rCSV += childNodeList.item(i).text + sColSep;
		}
		rCSV += childNodeList.item(i).text + sRowSep;
		selCnt++;					 	
	 } 		
	 if ( selCnt == 0 ) {
		return "N"
	 } else {
		 return rCSV;					 	
	 }
} 


  /**
  * @desc   : Äڵ带 ÄÞº¸ ÀνºÅϽº¿¡ ¸ÅÇÎ
  * @
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.10)
  * @---------------------------------------------------
  */
 function fSetComboCodeCD(){
    
    var rtnparam = getParameter("SPMMO16300");
    rtnparam = rtnparam.split("¢Ì");
    
    for(i = 1; i< rtnparam.length-1; i++){ 
 	  var tmpstr = rtnparam[i];
 	  tmpstr = tmpstr.split("¢Ë");
 	  model.makeValue("/root/init/code/prcpcd[" + i + "]/codecd"    , tmpstr[0]);
 	  model.makeValue("/root/init/code/prcpcd[" + i + "]/codenm"    , tmpstr[0]);  	  
 	  
    }
    
    
    model.refresh();
 }	
 
  /**
  * @desc   : ÄÚµåÁ¶È¸
  * @
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.12)
  * @---------------------------------------------------
  */ 
 function fGetData() {
	if (code == "P") {
		fSearchPrcpTermCD();
		var sRtnMsg = messageBox("Ãß°¡·Î Äڵ带 °Ë»ö", "S001");
		if (sRtnMsg == "6" ) {
		} else {
			var rtn1 = getCodeNodeListCSV ( model.instances(0).selectNodes( "/root/main/info/list" ));
			opener.javascript.setParameter( "SPMMO16300", rtn1 );
			window.close();
		}
	} else {
		fSearchDiagTermCD();
		var sRtnMsg = messageBox("Ãß°¡·Î Äڵ带 °Ë»ö", "S001");
		if (sRtnMsg == "6" ) {
		} else {
			var rtn1 = getCodeNodeListCSV ( model.instances(0).selectNodes( "/root/main/info/list" ));
			opener.javascript.setParameter( "SPMMO16300", rtn1 );								
			window.close();
		}
	}
}

  /**
  * @desc   : ¿¢¼¿ÀúÀå
  * @
  * @param  :
  * @return :
  * @author : ±è¿µÇÐ (2008.12.18)
  * @---------------------------------------------------
  */ 
function fsaveGridToExcel(grdObj, title){
    var sTitle = "Äڵ庰 ȯÀÚÁ¶È¸ " + title; 
    var fileName = window.fileDialog("save", ",", false, sTitle, "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
	if (fileName != ""){
		grdObj.saveExcel(fileName, sTitle, true, true, "", "", true);
	}
}