/**
 * @desc   : È­¸éÃʱâÈ­
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */

var g_insukind = ""; 
var degnseqchk = "Y";

function fInitialize(){
	
	// KNUH_20101207_¹Ú¼ºÈ£_start_Àǹ«±â·Ï ºÎ¼­ÄÚµå °¡Á®¿À±â
	mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/dutplcecd", 5501);	
	// KNUH_20101207_¹Ú¼ºÈ£_end
   
  	btn_prof.dispatch("onclick");
    model.makeValue("/root/main/newprof/orddept"    , getUserInfo("dutplcenm"));
    model.makeValue("/root/main/newprof/orddeptcd"  , getUserInfo("dutplcecd"));
    model.makeValue("/root/main/newprof/orddoctid"  , getUserInfo("userid"));
    model.makeValue("/root/main/newprof/doctnm"     , getUserInfo("usernm"));
    model.makeValue("/root/main/newprof/licnsno"    , getUserInfo("licnsno"));

    var fromdd = ((getCurrentDate()).toDate()).getAddDate(-1, "M");
    model.setValue("/root/main/srchprofhist/fromdd" , fromdd.getDateFormat());
    model.setValue("/root/main/srchprofhist/todd"   , getCurrentDate());

    var node = getGlobalVariable("paminfo");
    setCSVToNode("/root/main/paminfo", node);
    if(model.getValue("/root/main/paminfo/list/pid") ==""){
    	// knuh_20110421_¹Ú¼ºÈ£_¼öÁ¤(Àǹ«±â·Ï, Á¦Áõ¸íÀÎ °æ¿ì ·Îµù½Ã µî·Ï¹øÈ£ üũÇÏÁö ¾ÊÀ½)
    	var dutplcecd = getUserInfo("dutplcecd");
    	//alert(model.getValue("/root/init/hardcd/hardcd[hardcd='" + dutplcecd + "']/hardcd"));
    	if(model.getValue("/root/init/hardcd/hardcd[hardcd='" + dutplcecd + "']/hardcd") == "")
    	{
        	messageBox("¼±ÅÃµÈ È¯ÀÚÁ¤º¸°¡", "I004");
        }
        model.setFocus("ipt_pid");
        model.refresh();
    }
    else
    {
    	// ȯÀÚ º¸ÇèÁ¤º¸ ¼³Á¤
    	model.makeValue("/root/main/patinfo/insukind", model.getValue("/root/main/paminfo/list/insukind"));
    		
        if(model.getValue("/root/temp/recive/disflag") != "popup"){
            model.makeValue("/root/main/patinfo/hngnm" ,model.getValue("/root/main/paminfo/list/hngnm"));
            model.makeValue("/root/main/patinfo/ioflag", model.getValue("/root/main/paminfo/list/ioflag"));

            // ÀÔ¿ø,¿Ü·¡ ±¸ºÐ
            model.makeValue("/root/main/patinfo/pid"    , fCheckedBindPid(model.getValue("/root/main/paminfo/list/pid"), "/root/temp2/reqata", "/root/temp2/tempbindpid"));
            model.makeValue("/root/main/patinfo/cretno" , model.getValue("/root/main/paminfo/list/cretno"));

            var ioflag = model.getValue("/root/main/patinfo/ioflag");
            if(ioflag == "O" || ioflag == "S"){
                model.makeValue("/root/main/patinfo/orddd"  , model.getValue("/root/main/paminfo/list/orddd"));
                model.makeValue("/root/main/patinfo/orddrid", model.getValue("/root/main/paminfo/list/orddrid"));

            }else{
                model.makeValue("/root/main/patinfo/orddd"  , model.getValue("/root/main/paminfo/list/indd"));
                model.makeValue("/root/main/patinfo/orddrid", model.getValue("/root/main/paminfo/list/medispclid"));

            }

            var sex = model.getValue("/root/main/paminfo/list/sex");
          if(sex == "M"){
              model.setValue("/root/main/patinfo/rrgstno1", model.getValue("/root/main/paminfo/list/rrgstno1") + "-1******");
          } else {
              model.setValue("/root/main/patinfo/rrgstno1", model.getValue("/root/main/paminfo/list/rrgstno1") + "-2******");
          }
            var age = model.getValue("/root/main/paminfo/list/age");

            model.makeValue("/root/main/patinfo/orddeptcd", model.getValue("/root/main/paminfo/list/orddeptcd"));
            model.makeValue("/root/main/patinfo/orddeptnm", model.getValue("/root/main/paminfo/list/orddeptnm"));
            model.makeValue("/root/main/patinfo/age"      , sex+"/"+age);
            model.makeValue("/root/main/patinfo/addr"     , getPatientInfo("addrdetl"));
            model.makeValue("/root/main/patinfo/hometel"  , getPatientInfo("telno"));
            model.makeValue("/root/main/patinfo/brthdd"   , model.getValue("/root/main/paminfo/list/brthdd"));
            model.makeValue("/root/main/patinfo/ordtm"    , model.getValue("/root/main/paminfo/list/ordtm"));
            
        }
    }
    
    // ÀÇ·á±Þ¿©Á¶È¸
    fGetPatInsuranceInfo();
    
    fGetProfForm();
    fReqFormlist();
    fPrstUsge();
    
    // 141021 - AYS ºÎ¼­ÄÚµå Á¶È¸	
    mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/main/orddept", "A");
    //addComboInstance("/root/main/orddept"  , "deptcd^depthngnm", "-^Àüü", "dept");
    addComboItem("cmb_selectdept", "Àüü", "-", "above");
    

    if(btn_tabprofhist.selected == true){
        model.setValue("/root/temp/openmode", "rec");
    }else{
        model.setValue("/root/temp/openmode", "new");
    }
    
    //2012/04/18 Start
    var prcp_formcd=opener.javascript.getParameter("SMMMR02900_formcd");
    if(prcp_formcd!="" && prcp_formcd=="1200012640"){ // ÁßÁõÈ­»óȯÀÚ »êÁ¤Æ¯·Ê ¿¬Àå½Åû ¼Ò°ß¼­
    	model.setValue("/root/main/formcd", "1200012640");
    	fChosProflist();
    }    
    //2012/04/18 End
    

    //ÀÇ·áÁ¤º¸, ÀÇ·áÁ¤º¸ºÐ¼®, ÀÀ±Þ½Ç ¿ø¹«°ú¸¸ ¹ßÇà, Àç¹ßÇà, ÀçÃâ·Â ó¸®
    model.refresh();
}



/**
 * @desc   : ¼­½Ä¸í Á¶È¸
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fReqFormlist(){
   if(submit("TRMRF00708")){
       addComboItem("cmb_profformlist", "Àüü", "-", "above");
   }
}

/**
* @desc   : Á¦Áõ¸í¸®½ºÆ®
* @
* @param  :
* @return :
* @---------------------------------------------------
*/
function fDelProflist(){
    var currow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
    if(currow < 1){
       messageBox("»èÁ¦ÇÒ Á¦Áõ¸íÀ»", "C001");
       return;
    }
    
    var profcertseq = model.getValue("/root/main/profhist/list[" + currow + "]/profcertseq");
		var yearseqno = model.getValue("/root/main/profhist/list[" + currow + "]/yearseqno");
		
		if (1 == 1) {
			//È­¸é¿¡ ¹ßÇà¹øÈ£°¡ ¾øÀ»½Ã Çö½ÃÁ¡ÀÇ ¹ßÇà¿©ºÎ¸¦ È®ÀÎÇÑ´Ù
			model.makeValue("/root/send/reqdata/profcertseq",profcertseq);
			
			submit("TRMMR05504",false);
			
			var balyncnt = model.getValue("/root/hidden/balyn/cnt");
			
			//È­¸éÀÌ old
			if (balyncnt != 0) {
				messageBox("Á¦Áõ¸íÀÌ ¹ßÇàµÇ¾î »èÁ¦ ºÒ°¡ÇÕ´Ï´Ù","I999");
				return ;
			}
		}
    
    if(messageBox("", "Q001") == 6){
        var profcertseq = model.getValue("/root/main/profhist/list[" + currow + "]/profcertseq");
        model.removeNodeset("/root/send/reqdata");
        model.makeValue("/root/send/reqdata/prof/status"         , "D");
        model.makeValue("/root/send/reqdata/profinfo/profcretseq", profcertseq);
        if(submit("TXMMR02903")){
            fGetProfPrntHist();
            ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
        }
    }
}

/**
 * @desc   : Á¦Áõ¸í¸®½ºÆ® ½Å±Ô ¼±ÅÃ
 * @
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fChosProflist(){
    
    var orddept     = model.getValue("/root/main/newprof/orddept");    //Áø·á°ú
    var orddeptcd   = model.getValue("/root/main/newprof/orddeptcd");  //Áø·á°úÄÚµå
    var orddoctid   = model.getValue("/root/main/newprof/orddoctid");  //Àü¹®ÀÇid
    var doctnm      = model.getValue("/root/main/newprof/doctnm");     //Àü¹®ÀÇÀ̸§
    var licnsno     = model.getValue("/root/main/newprof/licnsno");    //¸éÇã¹øÈ£
    var currenttime = getCurrentDate()+getCurrentTime();

    var ioflag = model.getValue("/root/main/patinfo/ioflag");
    var pid    = model.getValue("/root/main/patinfo/pid");
    var cretno = model.getValue("/root/main/patinfo/cretno");
    var orddd  = model.getValue("/root/main/patinfo/orddd");
    var profformcd = "";
    model.resetInstanceNode("/root/main/newprof");
    //2009-07-15 ¿ÀÀü 10:43:45 °­ÁöÈÆ Ãß°¡ : ¿ëµµ¸¦ reset½ÃÄ×´Ù°¡ ´Ù½Ã ¼ÂÆÃÇÑ´Ù.
    model.removeNode("/root/main/issusge");
    model.makeValue("/root/main/issusge", "");
    model.setValue("/root/main/newprof/orddept", orddept);     //Áø·á°ú
    model.setValue("/root/main/newprof/orddeptcd", orddeptcd);
    model.setValue("/root/main/newprof/orddoctid", orddoctid); //Àü¹®ÀÇid
    model.setValue("/root/main/newprof/doctnm", doctnm);       //Àü¹®ÀÇÀ̸§
    model.setValue("/root/main/newprof/licnsno", licnsno);     //¸éÇã¹øÈ£

    if((pid == "")&&(model.getValue("/root/main/emptyform") == "")){
        messageBox("ȯÀÚÁ¤º¸¸¦ ", "C001");
        return;
    }

    if((swc_prof.selectedIndex == 0) && (trv_proflist.value == "")){
        return;
    } else if((swc_prof.selectedIndex == 1) && (trv_favor.value == "")){
        return;
    }

    profformcd = model.getValue("/root/main/formcd");
    if(profformcd == ""){
        return;
    }
    
    //Àü¿ø¼Ò°ß¼­ ¸Þ¼¼Áö Ãß°¡
		var ioflag = model.getValue("/root/main/patinfo/ioflag");
		var insukind = model.getValue("/root/main/patinfo/insukind");
		var selformcd = profformcd;
		var dutplceinstcd = getUserInfo("dutplceinstcd");
		
		if(ioflag == "E" && selformcd == "0000002536" ) {
			var msg = messageBox("ÀÀ±ÞȯÀÚ´Â 'ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­'¸¦ ÀÛ¼ºÇÏ¼Å¾ß ÇÕ´Ï´Ù.\n'ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­' ÀÛ¼ºÀ»", "Q013");
			
			if(msg != "6" ) {
				ivw_loader.src="../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
				return;
			}
			
			var indx = trv_proflist.selectedIndex;
			trv_proflist.select(eval(indx)-1);
			model.setValue("/root/main/formcd", "0000003129");
		}
		
		
	  if (fContainsHardCD("6014", selformcd)) {
	  	messageBox("Ku1.0À¸·Î´Â ÀÛ¼ºÇÒ ¼ö ¾ø´Â ¼­½ÄÀÔ´Ï´Ù","I");
			return;
	  }
		
		//Àü¿ø¼Ò°ß¼­(º´µ¿,¿Ü·¡)-ȸ¼Û(Àü¿ø)¼­(20160509 ÀÌÀ±ÁÖ)
		if ( selformcd == "1100011397" ) {
			
			if ( ioflag == "E") {
				messageBox("ÀÀ±Þ½Ç ȯÀÚ´Â [ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­]¸¦ ÀÛ¼ºÇÏ¼Å¾ß ÇÕ´Ï´Ù!","I");
				return;
			}
			
			if (insukind == "21" || insukind == "22" ) {
				messageBox("ÀÇ·á±Þ¿© ȯÀÚÀÎ °æ¿ì¿¡´Â [ÀÇ·á±Þ¿©È¸¼Û¼­]¸¦ ÀÛ¼ºÇÏ¼Å¾ß ÇÕ´Ï´Ù!","I");
				return;
			}
			
		}
		
		//ÀÇ·á±Þ¿©È¸¼Û¼­(20160509 ÀÌÀ±ÁÖ)
		if (selformcd == "1400015254") {
			
			if (insukind.substr(0,1) != "2") {
				messageBox("ÀÇ·á±Þ¿© ȯÀÚÀÌ¿Ü´Â [ÀÇ·á±Þ¿©È¸¼Û¼­]¸¦ ÀÛ¼ºÇÏ½Ç ¼ö ¾ø½À´Ï´Ù!","I");
				return;
			}
			
		}
		
		//ÀÇ·á±Þ¿©Áø·áÀÇ·Ú¼­(20161031 ÀÌÀ±ÁÖ)
		if (selformcd == "1600017534") {
			
			if (insukind.substr(0,1) != "2") {
				messageBox("ÀÇ·á±Þ¿© ȯÀÚÀÌ¿Ü´Â [ÀÇ·á±Þ¿©ÀÇ·Ú¼­]¸¦ ÀÛ¼ºÇÏ½Ç ¼ö ¾ø½À´Ï´Ù!","I");
				return;
			}
			
		}
											
		//Áø·áÀÇ·Ú¼­(20160509 ÀÌÀ±ÁÖ)
		if (selformcd == "0900005340") {
			
			if ( ioflag == "E") {
				messageBox("ÀÀ±Þ½Ç ȯÀÚ´Â [ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­]¸¦ ÀÛ¼ºÇÏ¼Å¾ß ÇÕ´Ï´Ù!","I");
				return;
			}
			else {
				messageBox("3Â÷º´¿ø ÀÇ·Ú ½Ã »ç¿ë ºÎŹµå¸³´Ï´Ù!","I");
			}
			
		}
		
		//ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­(20160509 ÀÌÀ±ÁÖ)
		if (selformcd == "1100011620" || selformcd == "1600018117") {
			
			if ( ioflag != "E") {
				messageBox("ÀÀ±Þ½Ç ȯÀÚ°¡ ¾Æ´Ï¹Ç·Î [ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­]¸¦ ÀÛ¼ºÇÒ ¼ö ¾ø½À´Ï´Ù!","I");
				return;
			}
			
		}
		
		//ÀÇ·Úȸ¼Û¼­(20160509 ÀÌÀ±ÁÖ)
		if (selformcd == "1300014808") {
			messageBox("Àü¿ø¼Ò°ß¼­·Î ÀÛ¼ºÇϽʽÿÀ!","I");
			return;
		}
		
		//ȸ¼Û¼­(20160509 ÀÌÀ±ÁÖ)
		if (selformcd == "1100012259") {
			messageBox("Àü¿ø¼Ò°ß¼­·Î ÀÛ¼ºÇϽʽÿÀ!","I");
			return;
		}
    
    
    //2012/11/16 Start ¿ÀÇÂÇÑ Á¦Áõ¸í ¼­½ÄÀÌ ÀÏ¹Ý Áø´Ü(¼Ò°ß¼­)¼­ ÀϽÿ¡¸¸ ÀÔ¿øÀÌ·Â ÀÚµ¿ÀÔ·Â ¹öÆ° È°¼ºÈ­
    if(profformcd=="1100012297"){
    	btn_inptinfo.visible=true;
    }else{
    	btn_inptinfo.visible=false;
    	clearParameter("SMMMR08300_param");
    }
    //2012/11/16 End
    
	// 2012/05/11 Start Áø´Ü¼­ ÀÛ¼ºÁ¦ÇÑ È®ÀÎ    
    //if(fRestrictionform(profformcd) == false)
    //	return ;
    
    setParameter("SSMMR01100_getTopYn", "N");
    
    if (!ivw_loader.window.javascript.fSetPamInfo(pid, orddd, cretno, ioflag))
    {
    	return;
    }
    //2012/11/22 Start
    //var existyn = fExistProf(pid, cretno, orddd, ioflag, profformcd);
    
    if(inptinfo_flag==true){  // Áø´Ü(¼Ò°ß)¼­ ÀÏ °æ¿ì ÀÔ¿øÀÌ·Â ÀÚµ¿ÀÔ·ÂÀ» Ŭ¸¯½Ã ¾Æ·¡ÀÇ ¸Þ½ÃÁö ¶ß´Â°É ¹æÁö
    	var existyn = "N";
    }else{
    	clearParameter("SMMMR08300_param");
    	var existyn = fExistProf(pid, cretno, orddd, ioflag, profformcd, orddeptcd);
    	
    	// [¿äû¹øÈ£:20160708012] Àü¿ø¼Ò°ß¼­ Á¦¾î
    	if( model.getValue("/root/main/existdata/transexistyn") == "Y" ){
			messageBox("1³â À̳»¿¡ µ¿ÀÏ°ú¿¡ ÀçÀÛ¼ºÀÌ ºÒ°¡ÇÏ¿À´Ï Áø·áÀÇ·Ú¼­·Î ÀÛ¼º¹Ù¶ø´Ï´Ù","I");
			return;
    	}
    }
    inptinfo_flag=false;
    //2012/11/22 End
    

    if(existyn != "Y"){
        ivw_loader.window.javascript.fLoadNewForm(profformcd, false); // Áõ¸í¼­ ¿­±â 0707 ¼öÁ¤
        ivw_loader.window.javascript.afterSaveExeFuncNm = "fGetProfPrntHist";
    } else {
        if(window.alert("ÀÛ¼ºµÈ ¼­½ÄÀÌ Á¸ÀçÇÕ´Ï´Ù.\n½Å±Ô¼­½ÄÀ» ÀÛ¼ºÇϽðڽÀ´Ï±î?", "", 4) == 6){
            ivw_loader.window.javascript.fLoadNewForm(profformcd, false); // Áõ¸í¼­ ¿­±â  0707 ¼öÁ¤
            ivw_loader.window.javascript.afterSaveExeFuncNm = "fGetProfPrntHist";
        } else {
            btn_tabprofhist.dispatch("onclick");
            btn_tabprofhist.dispatch("DOMActivate");
            fGetProfPrntHist();
        }
    }
    
    btn_tranprnt.visible = false;
    btn_pathist.visible = true;
}

/**
 * @desc   : Á¦Áõ¸í¼­½Ä ·Îµå
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fLoadProfForm(){
    var currow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
    var formrecseq = model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq");
    var issstat    = model.getValue("/root/main/profhist/list[" + currow + "]/issstat");
    var issflag    = model.getValue("/root/main/profhist/list[" + currow + "]/issflag");
    var yearseqno  = model.getValue("/root/main/profhist/list[" + currow + "]/yearseqno");
    var issnm      = model.getValue("/root/main/profhist/list[" + currow + "]/issnm");
    var formcd     = model.getValue("/root/main/profhist/list[" + currow + "]/formcd");
    var pid        = model.getValue("/root/main/profhist/list[" + currow + "]/pid");
    var orddoctid  = model.getValue("/root/main/profhist/list[" + currow + "]/orddoctid");
    var issdeptnm  = model.getValue("/root/main/profhist/list[" + currow + "]/issdeptnm"); // 2011-01-19 °æºÏ´ë ÃÖ¿øµ· Ãß°¡
    
    var iptgbn  = model.getValue("/root/main/profhist/list[" + currow + "]/iptgbn");
    
    //»çü°Ë¾È¼­(0000002841), ÀÔÅð¿øÈ®Àμ­(Áø´Ü¸íÆ÷ÇÔ)(0000001283),
    //Ãâ»ýÁõ¸í¼­(0000001113), ¼Ò°ß¼­(0000001499)
    //ä¿ë½Åü°Ë»ç¼­(ÀϹÝ)(°ø¹«¿ø), »ç¸ÁÁø´Ü¼­(0000001314)
    //ÀÔ¿ø»ç½ÇÈ®Àμ­,¿Ü·¡Áø·áÈ®Àμ­
    mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/formhardcd", 1005);
    mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/tranprntcd", 9904); //ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­ formcd
    mmbfGetHardCodeInfo("/root/send/reqdata", "/root/nofee", 5972);//Ç×»ó ¹«·á·Î ¹ßÇàµÇ¾î¾ß ÇÏ´Â ºÎ¼­
    
    var iexNodeCnt = getNodesetCnt(model, "/root/init/formhardcd/hardcd[hardcd = '" + formcd + "']");  //¹«·á¹ß±Þ¼­½Ä(hardcd = 1005)
    
    if(iexNodeCnt > 0) {
        chk_freeflag.disabled = false;
    }else{
        model.setValue("/root/main/freeflag", "");
        chk_freeflag.disabled = true;
    }
    
    //ÀÌÀ±ÁÖ Ãß°¡(Ç×»ó ¹«·á·Î ¹ßÇàµÇ¾î¾ß ÇÏ´Â ·Î±äºÎ¼­)
    var dutplcecd = getUserInfo("dutplcecd");
    var iexNodeCnt = getNodesetCnt(model, "/root/nofee/hardcd[hardcd = '" + dutplcecd + "']");  //ÀÛ¼º ¹× ¹ßÇà°¡´ÉºÎ¼­
    
    if(iexNodeCnt > 0) {
        model.setValue("/root/main/freeflag", "Y");
        chk_freeflag.disabled = true;
    }
       

    if(formrecseq == 0){
    	//2009-08-04 ¿ÀÀü 8:59:54 °­ÁöÈÆ ¼öÁ¤ : ¿¬¹øÈ£°¡ ¾ø¾îµµ ½ºÄµµÈ À̹ÌÁö°¡ º¸¿©Áø´Ù. - ÀÌÅ°æ»ù ¿äû    	
    	model.resetInstanceNode("/root/init/iemr");
	    model.setValue("/root/init/iemr/pid"         , pid);       //µî·Ï¹øÈ£
	    model.setValue("/root/init/iemr/docucd"      , formcd);    //¼­½ÄÄÚµå
	    model.makeValue("/root/init/iemr/cmc_spcid"  , "");  //blocking null exception
	    model.makeValue("/root/init/iemr/cmc_orddate", "");  //blocking null exception
	    model.makeValue("/root/init/iemr/cmc_orderseqno", "");  //blocking null exception
    	
    	if(yearseqno != ""){
	    	model.setValue("/root/init/iemr/ocmnum"      , yearseqno); //¿¬¹øÈ£
      }
        
      if(window.children.item("imgemrviewer") == null){
	    	//window.load("SSMRC03130.xrw", "modeless", "imgemrviewer", "", "/root/init/iemr", "/root/hidden/temp");
	    }
	      if ( iptgbn == "I" ) {
	      	messageBox("ÀÎÅÍ³Ý Á¦Áõ¸íÀÔ´Ï´Ù.", "I999");
	      }
	      else {
		      messageBox("ÀÚÇÊ Á¦Áõ¸íÀÔ´Ï´Ù.", "I999");
		    }
    }else{
        model.setValue("/root/main/newprof/yearseqno", yearseqno);
        model.setValue("/root/main/newprof/doctnm"   , issnm);
        model.setValue("/root/main/newprof/orddept"  , issdeptnm); // 2011-01-19 °æºÏ´ë ÃÖ¿øµ· Ãß°¡

    }
    
    
    //2009-06-30 ¿ÀÈÄ 11:02:46 °­ÁöÈÆ ¼öÁ¤
    //1.ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­¸¦ ¼±Åà  2.ÀÎÁõÀúÀå  3.À̼ÛÀÇ·Ú¼­ OCR¼­½ÄÀÌ À¯È¿ : 3°¡Áö Á¶°ÇÀÌ ¸ðµÎ ÃæÁ·ÇØ¾ß À̼ÛÀÇ·Ú¼­ Ãâ·Â¹öÆ°ÀÌ º¸ÀδÙ.
    var tranformcd = "0900005742"; //À̼ÛÀÇ·Ú¼­ OCR ¼­½ÄÄÚµå
    model.removeNode("/root/send/formyn/tranformcd");
    model.makeValue("/root/send/formyn/formcd", tranformcd) ;
    
    var iTranPrntCnt = getNodesetCnt(model, "/root/init/tranprntcd/hardcd[hardcd = '" + formcd + "']");  //ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­(hardcd = 9904)
	  if(iTranPrntCnt > 0) {
	  	if(issstat == "I"){ 
	  		if(submit("TRMMR02912")){ //À̼ÛÀÇ·Ú¼­°¡ À¯È¿ÇÑÁö È®ÀÎÇÑ´Ù.
	  			var formYn = model.getValue("/root/temp/formyn/formyn");
	  			if(formYn == "Y"){
	      		btn_tranprnt.visible = true;
	      	}
	      	else{
	      		btn_tranprnt.visible = false;
	      	}
	      }
	      else{ // submit TRMMR02912 ½ÇÆÐÇÒ °æ¿ì
	      	btn_tranprnt.visible = false;
	      }
	    } else {  // ÀÎÁõÀúÀåÀÌ ¾Æ´Ñ°æ¿ì
	      btn_tranprnt.visible = false;
	    } 
	  }
	  else{ //ÀÀ±Þ½Ç Àü¿ø ¼Ò°ß¼­°¡ ¾Æ´Ñ°æ¿ì
	  	btn_tranprnt.visible = false;
	  }
    

    if(issstat == "R"){ //ÀÓ½ÃÀÎ °æ¿ì, Àç¹ßÇà, ÀçÃâ·Â, ¹ßÇà disabled
      btn_reiss.disabled  = true;
      btn_iss.disabled    = true;
      btn_reprnt.disabled = true;
      btn_del.disabled    = false;
    } else { //ÀÎÁõÀÎ °æ¿ì
        if(issflag == "10"){ //¹Ì¹ßÇà, ¹ßÇà enabled
            btn_iss.disabled    = false;
            btn_reiss.disabled  = true;
            btn_reprnt.disabled = true;
            btn_del.disabled    = false;
        }else if(issflag == "20"){ //¹ßÇà, Àç¹ßÇà, ÀçÃâ·Â enabled
            btn_iss.disabled    = true;
            btn_reiss.disabled  = false;
            btn_reprnt.disabled = false;
            btn_del.disabled    = true;
        }else if(issflag == "30"){ //Àç¹ßÇà, ÀçÃâ·Â enabled
            btn_iss.disabled    = true;
            btn_reiss.disabled  = true;
            btn_reprnt.disabled = false;
            btn_del.disabled    = true;
        }else if(issflag == "50"){  //¹ÝȯÀÎ °æ¿ì
            btn_iss.disabled    = false;
            btn_reiss.disabled  = true;
            btn_reprnt.disabled = true;
            btn_del.disabled    = false;
        }else if(issflag == "60"){  //ºÎºÐ¹ÝȯÀÎ °æ¿ì  2014.01.14
            btn_iss.disabled    = true;
            btn_reiss.disabled  = false;
            btn_reprnt.disabled = false;
            btn_del.disabled    = true;
        }
    }
    if(formrecseq != 0){
        ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";

		// Àü¿ø¼Ò°ß¼­(0000002536), ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­(0000003129) À϶§ Àü¿øÀÇ·ÚÁ¤º¸°¡ ÀÖ´Â °æ¿ì ¼ÂÆÃÇØÁÜ. ÇϵåÄÚµå(8900) (2010.06.14. ÀÌÀº¿µ Ãß°¡)
		if (formcd == "0000002536" || formcd == "0000003129") {
			fSetChngHospInfo(pid, formcd, formrecseq);
		}
    }
  	model.refresh();

}

/**
 * @desc   : Á¦Áõ¸í ¼­½Ä Æ®¸® ÀÛ¼º
 * @
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetProfForm(){
   model.removeNodeset("/root/send/reqdata");
   model.makeValue("/root/send/reqdata/formprogflag", "PROF");
   submit("TRMMR02903");
}

/**
 * @desc   : Ãâ·Â³»¿ª Á¤º¸ Á¶È¸
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetProfPrntHist(){
    if(model.getValue("/root/main/patinfo/pid") == ""){
        messageBox("ȯÀÚ¸¦", "C001");
        return;
    }
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/pid"    , model.getValue("/root/main/patinfo/pid"));
    model.makeValue("/root/send/reqdata/fromdd" , model.getValue("/root/main/srchprofhist/fromdd"));
    model.makeValue("/root/send/reqdata/todd"   , model.getValue("/root/main/srchprofhist/todd"));
    model.makeValue("/root/send/reqdata/formcd" , model.getValue("/root/main/newprof/formnm"));
    model.makeValue("/root/send/reqdata/issflag", model.getValue("/root/main/srchprofhist/issflag"));
    
    model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/selectdept"));	// 141021 - AYS Ãß°¡
    
    //20100621-kys-ÀÛ¼º±â°£Æ÷ÇÔ¿©ºÎ Ãß°¡
    if(model.getValue("/root/main/srchprofhist/allsrchflag") == "true"){
    	model.makeValue("/root/send/reqdata/allsrchflag", "N");	//ÀÛ¼º±â°£À¸·Î ÀÌ·ÂÁ¶È¸
    }else{
    	model.makeValue("/root/send/reqdata/allsrchflag", "Y");	//¸ðµçÁ¦Áõ¸í ÀÌ·ÂÁ¶È¸
    }
    
    //2009-09-01 ¿ÀÀü 9:55:40 °­ÁöÈƼöÁ¤ : ÇϵåÄÚµùÁ¤º¸ º¯°æ
    var userDept = getUserInfo("dutplcecd");
    var editableDeptList = findNodeset(model, "/root/init/editabledeptcd/hardcd[hardcd ='"+ userDept +"']"); //Á¦Áõ¸í Ãâ·ÂºÎ¼­ : ÇϵåÄÚµùÅ×ÀÌºí¿¡¼­ °ü¸®ÇÔ 9906
		if(0 < editableDeptList.length){
			model.makeValue("/root/send/reqdata/issstat", "R");
		}
		
		
    if(submit("TRMMR02904")){
        model.removeNodeset("/root/send/reqdata");
    }
    
    grd_profhistlist.rebuildStyle();
    
    /*Á¦Áõ¸í À̷¿¡¼­ ¹ßÇàÀÏÀÚ°¡ 3³âÀÌ»ó Áö³­°ÍÀº ºÓÀº »öÀ¸·Î Ç¥±â / ¿ø¹«°ú ¿äû*/
    var basedd = getCurrentDate().toDate().getAddDate(-36,'M').getDateFormat();
    var NodeCnt = getNodesetCount("/root/main/profhist/list");
    for(var i = 1; i <= NodeCnt; i++){
        if( model.getValue("/root/main/profhist/list["+i+"]/issdt") <= basedd ){
        	grd_profhistlist.cellstyle("background-color", i, 1, i, grd_profhistlist.cols-1) ="#ff0000";
        }
    }
    grd_profhistlist.refresh();
    
}


/**
 * @desc   : Á¦Áõ¸í Áñ°Üã±â ¼ÂÆÃ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetFavorProf(){
    model.copyNode("/root/send/reqdata", "/root/main/favor/savedata");
    submit("TXMMR02902");
}

/**
 * @desc   : Áñ°Üã±â ¸®½ºÆ® Á¶È¸
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetFavorList(){
    ivw_loader.src = "../../../emr/medirecweb/xrw/SMMMR00000_Empty.xrw";
    ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";

    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/indxflag", "I");
    model.makeValue("/root/send/reqdata/userid", getUserInfo("userid"));
    submit("TRMMR02905");
}

/**
 * @desc   : Á¤º¸ ÀúÀå
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSaveRec(saveflag)
{
    if (fSaveChk() == "false" )
    	return;
    
    var successflag = "";
    ivw_loader.window.javascript.gSubmitSaveFlag = false;
    var iRow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;

    if(saveflag == "I"){ //ÀÎÁõÀúÀå

	    var userDept = getUserInfo("dutplcecd");
	    var editableDeptList = findNodeset(model, "/root/init/editabledeptcd/hardcd[hardcd ='"+ userDept +"']"); //ÀÎÁõÀúÀå Á¦¿ÜºÎ¼­ : ÇϵåÄÚµùÅ×ÀÌºí¿¡¼­ °ü¸®ÇÔ 9906
			if(0 < editableDeptList.length){
				setParameter("SSMMR01100_nonCert", "Y");
			}     
      setParameter("chkdeptpresave", "N");
      successflag = ivw_loader.window.javascript.fClickSave("Y");
    } else if(saveflag == "R"){ //ÀÓ½ÃÀúÀå
        setParameter("chkdeptpresave", "N");
        successflag = ivw_loader.window.javascript.fClickSave("N");
    }
    
    
    if (getParameter("SMMMR02900_saveerr") == "Y"){
        clearParameter("SMMMR02900_saveerr");
        messageBox("ÀúÀåµÇÁö", "E007");//¾Ê¾Ò½À´Ï´Ù.
        return;
    } else {
        clearParameter("SMMMR02900_saveerr");
    }
    
    
    //2010.02.24 dhkim - blocking ¸Þ¼¼ÁöÈÄ¿¡ ¸®ÅÏó¸®
    if(successflag == false){
		return;
    }
    

    fSetRec();

    fSetProf(saveflag);
    
    if( degnseqchk == "N"){
    	return;
    }
    
    if(saveflag == "I"){
        if(model.getValue("/root/main/newprof/signedyn") == "N"){
            return;
        }
        model.setValue("/root/main/newprof/issstat", saveflag);
    }


    // KNUH_20101207_¹Ú¼ºÈ£_start_Àǹ«±â·Ï ºÎ¼­ÄÚµå °¡Á®¿À±â
    var dutplcecd = getUserInfo("dutplcecd");
    if(model.getValue("/root/init/dutplcecd/hardcd[hardcd='" + dutplcecd + "']/hardcd") == ""){
        model.makeValue("/root/main/newprof/orddeptcd", getUserInfo("dutplcecd"));
    }
    
    //2009-07-20 ¿ÀÈÄ 1:27:10 °­ÁöÈÆ ¼öÁ¤ : ¿ëµµ°¡ ´©¶ôµÇ´Â ¿À·ù ¼öÁ¤
    var issusge111 = instance1.selectSingleNode("/root/main/issusge");
    
    var issusge = model.getValue("/root/main/issusge");
		if(issusge != ""){
		    issusge = issusge.split("¢Ì");
		    var prstusge = issusge[1].split("¢Ë");
		    model.setValue("/root/main/newprof/prstusge"    , prstusge[0]);
		}
		else{
			model.removeNode("/root/main/newprof/prstusge");
			model.makeValue("/root/main/newprof/prstusge"    , "");
		}

    copyNodeset("/root/send/reqdata/prof", "/root/main/newprof", "replace");
    if(model.getValue("/root/main/newprof/status") == "U"){
        var sendNode = instance1.selectNodes("/root/main/savedinfo/rsltmsg");
        copyNodeset("/root/send/reqdata/profinfo", "/root/main/savedinfo/profcretseqinfo", "append");
        model.makeValue("/root/send/reqdata/rsltmsg", getNodeListCSV(sendNode));
    }
    if(submit("TXMMR02903")){
        var rsltNodeCnt = getNodesetCount("/root/main/savedinfo/rsltmsg");
        for(var i = 1; i <= rsltNodeCnt; i++){
            if(model.getValue("/root/main/savedinfo/rsltmsg["+i+"]/formrecseq") != ""){
                var formrecseq = model.getValue("/root/main/savedinfo/rsltmsg["+ i +"]/formrecseq");
                var rechistseq = model.getValue("/root/main/savedinfo/rsltmsg["+ i +"]/rechistseq");
                var espiseq    = model.getValue("/root/main/savedinfo/rsltmsg["+ i +"]/espiseq");
                ivw_loader.window.javascript.fSetSavedInfo(formrecseq, rechistseq, espiseq);

            }else{
                messageBox("ÀúÀåÀ»", "E009");	//*E009=½ÇÆÐÇÏ¿´½À´Ï´Ù.
                return;

            }
        }
        
        messageBox("¼º°øÀûÀ¸·Î ÀúÀåÀÌ", "I002");	//*I002=¿Ï·áµÇ¾ú½À´Ï´Ù.
        var pageInfo = new PAGEINFO();
        model.setValue("/root/main/newprof/status", ivw_loader.model.getValue(pageInfo.recMastRef + "/status"));
        chk_newiss.value = "";
        //model.resetInstanceNode("/root/main/savedinfo");
        if(model.getValue("/root/temp/closeyn") == "Y"){
        	return;	//âÀÌ ´ÝÈú¶§ È£ÃâÇÑ °ÍÀ̸é ÀúÀåÈÄ return.
        }

    } else {
        messageBox("ÀúÀåÀ»", "E009");
        return;

    }
    
    fSendRecInfoToSMMMO00100(saveflag);
    
    //2012/11/27 Start ÀÔ¿øÀÌ·Â ÀÚµ¿ÀÔ·Â ¹öÆ° È÷µçó¸®
    btn_inptinfo.visible=false;
    //2012/11/27 End

    btn_tabprofhist.selected = true;
    model.toggle("case3");
    model.makeValue("/root/main/newprof/formnm", "-");
    model.makeValue("/root/main/selectdept", "-");		// 141114 AYS - Ãß°¡

    chk_newiss.attribute("visibility") = "hidden";
    model.setValue("/root/temp/openmode", "rec");

    fGetProfPrntHist();

    var profcertseq = model.getValue("/root/main/savedinfo/profcertseqinfo/profcertseq");
    var trgtrow = grd_profhistlist.findRow(profcertseq, 1, grd_profhistlist.colRef("profcertseq"));
    grd_profhistlist.row = trgtrow;
    fLoadProfForm();

    model.removeNodeset("/root/main/issusge");
}

/**
 * @desc   : Á¦Áõ¸í Á¤º¸ ¼¼ÆÃ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetProf(saveflag){
    model.makeNode("/root/send/reqdata/prof");

    fSetProfNode(saveflag);
    return;
}

/**
 * @desc   : Á¦Áõ¸í ³ëµåÁ¤º¸ ¼ÂÆÃ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetProfNode(saveflag){
    var iRow      = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
    var nodePath  = "/root/main/newprof";
    var orddept   = model.getValue("/root/main/newprof/orddept");   //Áø·á°ú
    var orddeptcd = model.getValue("/root/main/newprof/orddeptcd"); //Áø·á°úÄÚµå
    var orddoctid = model.getValue("/root/main/newprof/orddoctid"); //Àü¹®ÀÇid
    var doctnm    = model.getValue("/root/main/newprof/doctnm");    //Àü¹®ÀÇÀ̸§
    var licnsno   = model.getValue("/root/main/newprof/licnsno");   //¸éÇã¹øÈ£

    // ÀÎÁõÀúÀåµÈ Á¦Áõ¸íÀ» ¼öÁ¤
    // ÀÌ·Â Tab¿¡¼­ ±â·ÏÀÌ ¹Ì¹ßÇàÀÌ ¾Æ´Ñ »óÅ¿¡¼­ ÀÎÁõÀúÀåÀ» Ŭ¸¯Çϸé,
    // »õ·Î¿î ±â·ÏÀ¸·Î Ãß°¡ µÈ´Ù
    if((saveflag == "I") && (model.getValue("/root/temp/openmode") == "rec")
     && (model.getValue("/root/main/profhist/list[" + iRow + "]/issflag") != "10")){
    	degnseqchk = "Y";
    	model.removenode("/root/send/degnpara");
    	model.makeNode("/root/send/degnpara");
    	model.makeValue("/root/send/degnpara/instcd", getUserInfo("dutplceinstcd"));
    	model.makeValue("/root/send/degnpara/formcd", model.getValue("/root/send/reqdata/formrec/formcd"));
    	if(submit("TRMMR06504")){
    		if( model.getValue("/root/send/reqdata/formrec/formdegnseq") != model.getValue("/root/degnseq/item/formdegnseq") ){    
				messageBox("ÇØ´ç ±â·ÏÀÇ ¼­½Ä µðÀÚÀÎÀÌ ÇöÀç º¯°æµÇ¾ú½À´Ï´Ù. \n½Å±Ô·Î ÀÛ¼ºÇØÁÖ¼¼¿ä.", "E999");
				degnseqchk = "N";
				return;    			
    		}
    	}
    	    	
        model.makeValue(nodePath+"/status", "C");
        model.makeValue("/root/send/reqdata/formrec/status" , "C");
        model.makeValue("/root/send/reqdata/formrec/pid"    , model.getValue("/root/main/patinfo/pid"));
        model.makeValue("/root/send/reqdata/formrec/orddd"  , model.getValue("/root/main/patinfo/orddd"));
        model.makeValue("/root/send/reqdata/formrec/cretno" , model.getValue("/root/main/patinfo/cretno"));
        model.makeValue("/root/send/reqdata/formrec/ioflag" , model.getValue("/root/main/patinfo/ioflag"));
        model.makeValue("/root/send/reqdata/formrec/orddeptcd"     , model.getValue("/root/main/patinfo/orddeptcd"));
        model.makeValue("/root/send/reqdata/formrec/formrecdeptcd" , getUserInfo("dutplcecd"));
        model.makeValue("/root/send/reqdata/formrec/formrecdeptnm" , getUserInfo("dutplcenm"));
        model.makeValue("/root/send/reqdata/formrec/formrecuserid" , getUserInfo("userid"));
        model.makeValue("/root/send/reqdata/formrec/formrecusernm" , getUserInfo("usernm"));

    } else {
    	degnseqchk = "Y";
        model.makeValue(nodePath+"/status", model.getValue("/root/send/reqdata/formrec/status"));

    }

    model.makeValue(nodePath+"/pid"       		, model.getValue("/root/main/patinfo/pid"));
    model.makeValue(nodePath+"/orddd"     	, model.getValue("/root/main/patinfo/orddd"));
    model.makeValue(nodePath+"/cretno"    	, model.getValue("/root/main/patinfo/cretno"));
    model.makeValue(nodePath+"/ioflag"    	, model.getValue("/root/main/patinfo/ioflag"));
    model.makeValue(nodePath+"/instcd"    	, getUserInfo("dutplceinstcd"));
    model.makeValue(nodePath+"/orddeptcd" 	, model.getValue("/root/main/patinfo/orddeptcd"));
    model.makeValue(nodePath+"/formcd"   	, model.getValue("/root/main/formcd"));
		
    if( swc_prof.selectedIndex == 2 ){
        model.makeValue(nodePath+"/formrecseq", model.getValue("/root/main/profhist/list["+iRow+"]/formrecseq"));
        model.makeValue(nodePath+"/yearseqno" , model.getValue("/root/main/profhist/list["+iRow+"]/yearseqno"));
        model.makeValue(nodePath+"/issstat"   , model.getValue("/root/main/profhist/list["+iRow+"]/issstat"));        
        
        var userDept = getUserInfo("dutplcecd");
        //Á¦Áõ¸í Ãâ·ÂºÎ¼­ : ÇϵåÄÚµùÅ×ÀÌºí¿¡¼­ °ü¸®ÇÔ 9906
        var editableDeptList = findNodeset(model, "/root/init/editabledeptcd/hardcd[hardcd ='"+ userDept +"']");
		if(0 < editableDeptList.length){
			model.makeValue(nodePath+"/issid"    , model.getValue("/root/main/profhist/list[" + iRow + "]/issid"));
			model.makeValue(nodePath+"/issdeptcd", model.getValue("/root/main/profhist/list[" + iRow + "]/issdeptcd"));
			model.makeValue(nodePath+"/issflag"  , model.getValue("/root/main/profhist/list[" + iRow + "]/issflag"));
		} else {
			model.makeValue(nodePath+"/issid"    , orddoctid);
			model.makeValue(nodePath+"/issdeptcd", orddeptcd);
			model.makeValue(nodePath+"/issflag"  , "10");
          //¸¶Áö¸· ¼öÁ¤ÀÇ»çÀÇ ¸éÇã¹øÈ£, ÀÇ»ç¸í, ÀÇ»ç¶óÀ̼¾½º°¡ µé¾î°£´Ù.
			model.makeValue(nodePath+"/orddoctid"  , getUserInfo("userid"));
			model.makeValue(nodePath+"/doctnm"     , getUserInfo("usernm"));
			model.makeValue(nodePath+"/licnsno"    , getUserInfo("licnsno"));
        }
        model.makeValue("/root/main/savedinfo/profcretseqinfo/profcretseq", model.getValue("/root/main/profhist/list["+iRow+"]/profcertseq"));
        
    } else {
        model.makeValue(nodePath+"/formrecseq", model.getValue("/root/main/savedinfo/rsltmsg/formrecseq"));
        model.makeValue(nodePath+"/issid"     , orddoctid);
        model.makeValue(nodePath+"/issdeptcd" , orddeptcd);
        model.makeValue(nodePath+"/issflag"   , "10");
        
        if(saveflag == "I"){                                       
				    model.makeValue(nodePath+"/issstat", saveflag);        
				} else {                                                   
				    model.makeValue(nodePath+"/issstat", "R");             
				}                                                  
    }
    
    var issusge = model.getValue("/root/main/issusge");
    if(issusge != ""){
        issusge = issusge.split("¢Ì");
        var prstusge = issusge[1].split("¢Ë");
        model.makeValue(nodePath+"/prstusge"    , prstusge[0]);
    }
    
    model.makeValue(nodePath+"/issdt"       , getCurrentDate() + getCurrentTime());
    model.makeValue(nodePath+"/deluserid"   , "");
    model.makeValue(nodePath+"/deldt"       , "");
    model.makeValue(nodePath+"/prntuserid"  , "");
    model.makeValue(nodePath+"/prntdeptcd"  , "");
    model.makeValue(nodePath+"/prntdt"      , "");
    model.makeValue(nodePath+"/prntuserid"  , "");
    model.makeValue(nodePath+"/freeissresn" , "");
    model.makeValue(nodePath+"/fstrgstrid"  , getUserInfo("userid"));
    model.makeValue(nodePath+"/fstrgstdt"   , getCurrentDate() + getCurrentTime());
    model.makeValue(nodePath+"/lastupdtrid" , getUserInfo("userid"));
    model.makeValue(nodePath+"/lastupdtdt"  , getCurrentDate() + getCurrentTime());
}

/**
 * @desc   : ±â·ÏÁ¤º¸ ÁöÁ¤
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetRec(){
    model.removeNodeset("/root/send/reqdata/recitem");
    model.removeNodeset("/root/send/reqdata/formrec");
    model.makeNode("/root/send/reqdata/recitem");
    model.makeNode("/root/send/reqdata/formrec");

  copyNodeset("/root/send/reqdata/formrec", "/root/send/saverecinfo/formrec" ,"replace" , model, ivw_loader.model);
  model.makeValue("/root/send/reqdata/recitem", ivw_loader.model.getValue("/root/send/saverecinfo/recitem"));
  if(model.getValue("/root/main/newprof/status") == "U"){
      model.setValue("/root/send/reqdata/formrec/status", "U");
  }
  if(chk_newiss.value == "newiss"){
      model.setValue("/root/send/reqdata/formrec/status", "C");
      model.setValue("/root/main/newprof/status", "C")
  }
}

/**
 * @desc   : ¸ð´Þ È£Ãâ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fCallModal(){
  var nodeList = "";
  model.makeNode("/root/send/reqdata/issusge");
  modal("SPMMR02200", 1, 0, 0, "SPMMR02200", "/root/main/newprof", "/root/temp/prof");
  
  //alert(instance1.selectNodesXml("/root/temp/prof"));
  
    model.setValue("/root/send/reqdata/issusge", model.getValue("/root/main/issusge"));
}

/**
 * @desc   : »ç¿ë¿©ºÎ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fPrstUsge(){
    model.removeNodeset("/root/hidden/issusge");
    model.makeNode("/root/hidden/issusge");
    zbcfGetCodeList(new Array("M0332"), new Array("/root/hidden/issusge"));

    // 2013.12.26 CYW Á¦Áõ¸í, »çº»¹ßÇà ¿ëµµ °øÅëÄÚµå ºÐ¸® 
    zbcfGetCodeList(new Array("M0385"), new Array("/root/hidden/issusge"));
    var isscnt = getNodesetCount("/root/hidden/issusge/M0385");
    for( i = 1 ; i <= isscnt ; i++ ){
    	model.makeValue("/root/hidden/issusge/M0332[" + i + "]/cdid", model.getValue("/root/hidden/issusge/M0385[" + i + "]/cdid"));
    	model.makeValue("/root/hidden/issusge/M0332[" + i + "]/cdnm", model.getValue("/root/hidden/issusge/M0385[" + i + "]/cdnm"));
    }
    model.refresh();

}

/**
 * @desc   : È­¸é Ç¥Çö ¼ÂÆÃ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetDisplay(pid, orddd, cretno, ioflag, disflag, profcertseq, formrecseq, issstat){
	
	
    var fromdd = ((getCurrentDate()).toDate()).getAddDate(-1, "M");
    model.setValue("/root/main/srchprofhist/fromdd", fromdd.getDateFormat());
    model.setValue("/root/main/srchprofhist/todd", getCurrentDate());

    model.setValue("/root/main/patinfo/pid"      , pid);
    model.setValue("/root/main/patinfo/orddd"    , orddd);
    model.setValue("/root/main/patinfo/cretno"   , cretno);
    model.setValue("/root/main/patinfo/ioflag"   , ioflag);
    cmb_profformlist.value = "-";
    cmb_selectdept.value = "-";
    
    fReqGetComnPatOrdInfo(pid);

    fGetProfForm();
    fReqFormlist();
    fPrstUsge();
    btn_tabprofhist.dispatch("onclick");
    
    

    if((formrecseq != "") || (formrecseq != null)){
        fGetProfPrntHist();
        if(profcertseq != ""){
            var iRow = grd_profhistlist.findRow(profcertseq, 1, grd_profhistlist.colRef("profcertseq"));
            grd_profhistlist.row = iRow;
            
    

            fLoadProfForm();
        }
    }
    model.refresh();
}

/**
 * @desc   : Áñ°Üã±â Ãß°¡
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fAddFavor(){
    var selectedFormcd = model.getValue("/root/main/profform/list[" + ( trv_proflist.mouseRow + 1 )+ "]/formcd");
    if(selectedFormcd == ""){
        return;
    }

    if(trv_proflist.isCell(event.target) && trv_proflist.mouseRow <= trv_proflist.length){
        var selIndx = trv_proflist.mouseRow + 1;
        var depth = instance1.selectSingleNode("/root/main/profform/list[" + selIndx + "]").depth.text;
        model.removeNodeSet("/root/main/favor/savedata");

        model.makeValue("/root/main/favor/savedata/supitemindxseq", instance1.selectSingleNode("/root/main/profform/list[" + selIndx + "]").supindx.text);
        model.makeValue("/root/main/favor/savedata/indxflag", "I");
        model.makeValue("/root/main/favor/savedata/deptcd", getUserInfo("dutplcecd"));
        model.makeValue("/root/main/favor/savedata/userid", getUserInfo("userid"));
        model.makeValue("/root/main/favor/savedata/fstrgstrid", getUserInfo("userid"));
        model.makeValue("/root/main/favor/savedata/fstrgstdt", getCurrentDate()+getCurrentTime());
        model.makeValue("/root/main/favor/savedata/lastupdtrid", getUserInfo("userid"));
        model.makeValue("/root/main/favor/savedata/lastupdtdt", getCurrentDate()+getCurrentTime());
        if(selectedFormcd == ""){
            model.makeValue("/root/main/favor/savedata/linkflag", "N");
            model.makeValue("/root/main/favor/savedata/linkcd", "");
        } else {
            model.makeValue("/root/main/favor/savedata/linkflag", "Y");
            model.makeValue("/root/main/favor/savedata/linkcd", selectedFormcd);
        }
        setPopupMenu("trv_proflist", false, "/root/init/mouserght", "label", "value");

    } else {
        initPopupMenu();
    }
}

/**
 * @desc   : Á¦Áõ¸í Áñ°Üã±â »èÁ¦
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fDelFavorProf(){
    var selIndx      = trv_favor.selectedIndex + 1;
    var profItemindx = instance1.selectSingleNode("/root/main/favorlist/list[" + selIndx + "]").itemindxseq.text

    model.removeNodeset("/root/send/reqdata");
    model.makeNode("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/itemindxseq", profItemindx);
    model.makeValue("/root/send/reqdata/indxflag"   , "I");
    model.makeValue("/root/send/reqdata/userid"     , getUserInfo("userid"));
    submit("TXMMR02904");
}

/**
 * @desc   : »ý¼ºµÉ ¼ö°¡µ¥ÀÌÅ͸¦ Á¶ÇÕÇÑ´Ù.
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fCalsSorcSave(iRow, calcCnt, freecalcscorcd){
    var sPassData =
          "savedataflag"                      //ÀúÀåÀڷᱸºÐ (2:ó¹æ)
        + "¢Ësaveflag"                        //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
        + "¢Ëprcpflag"                        //ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
        + "¢Ëinptflag"                        //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
        + "¢Ëpamflag"                         //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
        + "¢Ëdiagflag"                        //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
        + "¢Ëprcperrflag"                     //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
        + "¢Ëdeptcd"                          //ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
        + "¢Ëdeptnm"                          //ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
        + "¢Ëuserid"                          //»ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
        + "¢Ëusernm"                          //»ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
        + "¢Ësingyn"                          //ÀüÀÚ¼­¸í¿©ºÎ
        + "¢Ëpid"                             //µî·Ï¹øÈ£(¿ø¹«Key)
        + "¢Ëorddd"                           //Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
        + "¢Ëindd"                            //ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
        + "¢Ëcretno"                          //»ý¼º¹øÈ£(¿ø¹«Key)
        + "¢Ëorddeptcd"                       //Áø·á°ú(¿ø¹«)
        + "¢Ëorddrid"                         //Áø·áÀÇID(¿ø¹«)
        + "¢Ëinstcd"                          //±â°üÄÚµå
        + "¢Ëstatus"                          //½Å±Ô(I), DC(C)
        + "¢Ërowno"                           //ÁÙ¹øÈ£ (º´¸® ¿ä±¸)
        + "¢Ëprcpdd"                          //ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)
        + "¢Ëprcpno"                          //ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        + "¢Ëprcphistno"                      //ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        + "¢Ëprcpgenrflag"                    //ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
        + "¢Ëprcpstatcd"                      //ó¹æ»óÅ : '000'
        + "¢Ëprcpkindcd"                      //ó¹æÁ¾·ù : '20'
        + "¢Ëprcpcd"                          //ó¹æÄÚµå
        + "¢Ëcalcscorcd"                      //¼ö°¡ÄÚµå
        + "¢Ëinclprcpcd"                      //Á¾¼Óó¹æÄÚµå ('-')
        + "¢Ëinclprcpno"                      //Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
        + "¢Ëprcpexecdeptcd"                  //ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
        + "¢Ëprcphopedd"                      //ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
        + "¢Ëprcpqty"                         //ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
        + "¢Ëprcpqtyunitflag"                 //ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
        + "¢Ëprcptims"                        //ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
        + "¢Ëprcpdayno"                       //ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
        + "¢Ëpayflagcd"                       //±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
        + "¢Ëerprcpflag"                      //ÀÀ±Þó¹æ±¸ºÐ (Y/N)
        + "¢Ëprecureprcpflag"                 //¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
        + "¢Ënigtprcpflag"                    //¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
        + "¢Ëportprcpflag"                    //Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
        + "¢Ëfixprcpflag"                     //Á¤¾×ó¹æ±¸ºÐ (Y/N)
        + "¢Ëchoiordflag"                     //¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
        + "¢Ëanamneflag"                      //±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
        + "¢Ëprcpdirecflag"                   //ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
        + "¢Ëangioflagcd"                     //Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
        + "¢Ëopansflagcd"                     //¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
        + "¢Ëansttm"                          //¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
        + "¢Ëoffictourhealexamflag"           //ÃâÀå°ËÁø±¸ºÐ (Y/N)
        + "¢Ëstemcellflag"                    //'00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
        + "¢Ëhosinhosoutflag"                 //¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
        + "¢Ëhosinprcpresncd"                 //¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
        + "¢Ëissdeptcd"                       //¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
        + "¢Ëprcpauthflag"                    //ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
        + "¢Ëprcpinptflag"                    //ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
        + "¢Ëprcpsignflag"                    //ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
        + "¢Ëoprsrvno"                        //¼ö¼ú¿¹¾à¹øÈ£(0)
        + "¢Ëclincstdyflag"                   //Àӻ󿬱¸±¸ºÐ (Y/N)
        + "¢Ëclincstdycd"                     //Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
        + "¢Ëdrugmthdspccd"                   //Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
        + "¢Ëprcpdelivefact"                  //ó¹æÀü´Þ»çÇ×
        + "¢Ëtootfact"                        //Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
        + "¢Ëmatrsetprcpspec"                 //Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
        + "¢Ëcalcflag"                        //°è»ê±¸ºÐ (Y/N)
        + "¢Ërsrvflag"                        //¿¹¾à±¸ºÐ (Y/N)
        + "¢Ërsrvdd"                          //¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
        + "¢Ërsrvtm"                          //¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
        + "¢Ërsrvrid"                         //¿¹¾àÀÚID ('-')
        + "¢Ëexecdd"                          //½Ç½ÃÀÏÀÚ ('00000000')
        + "¢Ëexectm"                          //½Ç½Ã½Ã°£ ('000000')
        + "¢Ëexecrid"                         //½Ç½ÃÀÚID ('-')
        + "¢Ëdirecprcplnkdd"                  //Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
        + "¢Ëdirecprcplnkno"                  //Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
        + "¢Ëordreqlnkno"                     //Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
        + "¢Ëtestreqlnkno"                    //°Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë
        + "¢Ì";

    var savedataflag           = "";
    var saveflag               = "";
    var prcpflag               = "";
    var inptflag               = "";
    var pamflag                = "";
    var diagflag               = "";
    var prcperrflag            = "";
    var deptcd                 = "";
    var deptnm                 = "";
    var userid                 = "";
    var usernm                 = "";
    var singyn                 = "";
    var pid                    = "";
    var orddd                  = "";
    var indd                   = "";
    var cretno                 = "";
    var orddeptcd              = "";
    var orddrid                = "";
    var instcd                 = "";
    var status                 = "";
    var rowno                  = "";
    var prcpdd                 = "";
    var prcpno                 = "";
    var prcphistno             = "";
    var prcpgenrflag           = "";
    var prcpstatcd             = "";
    var prcpkindcd             = "";
    var prcpcd                 = "";
    var calcscorcd             = "";
    var inclprcpcd             = "";
    var inclprcpno             = "";
    var prcpexecdeptcd         = "";
    var prcphopedd             = "";
    var prcpqty                = "";
    var prcpqtyunitflag        = "";
    var prcptims               = "";
    var prcpdayno              = "";
    var payflagcd              = "";
    var erprcpflag             = "";
    var precureprcpflag        = "";
    var nigtprcpflag           = "";
    var portprcpflag           = "";
    var fixprcpflag            = "";
    var choiordflag            = "";
    var anamneflag             = "";
    var prcpdirecflag          = "";
    var angioflagcd            = "";
    var opansflagcd            = "";
    var ansttm                 = "";
    var offictourhealexamflag  = "";
    var stemcellflag           = "";
    var hosinhosoutflag        = "";
    var hosinprcpresncd        = "";
    var issdeptcd              = "";
    var prcpauthflag           = "";
    var prcpinptflag           = "";
    var prcpsignflag           = "";
    var oprsrvno               = "";
    var clincstdyflag          = "";
    var clincstdycd            = "";
    var drugmthdspccd          = "";
    var prcpdelivefact         = "";
    var tootfact               = "";
    var matrsetprcpspec        = "";
    var calcflag               = "";
    var rsrvflag               = "";
    var rsrvdd                 = "";
    var rsrvtm                 = "";
    var rsrvrid                = "";
    var execdd                 = "";
    var exectm                 = "";
    var execrid                = "";
    var direcprcplnkdd         = "";
    var direcprcplnkno         = "";
    var ordreqlnkno            = "";
    var testreqlnkno           = "";

    for(var i = 1; i <= calcCnt; i++){
        savedataflag = "2";       //ÀúÀåÀڷᱸºÐ (2:ó¹æ)
        if((iRow >= 0)&&(iRow != "")){
            saveflag = model.getValue("/root/main/profhist/list["+iRow+"]/ioflag"); //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
        } else {
            saveflag = model.getValue("/root/main/acptoccinfo/otpt_ordtype");       //ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
        }
        prcpflag    = "5";  //ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
        inptflag    = "15"; //ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
        pamflag     = "Y";  //¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
        diagflag    = "N";  //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
        prcperrflag = "N";  //ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
        deptcd      = getUserInfo("dutplcecd"); //ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
        deptnm      = getUserInfo("dutplcenm"); //ºÎ¼­¸í   (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
        userid      = getUserInfo("userid");    //»ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
        usernm      = getUserInfo("usernm");    //»ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
        if((iRow >= 0)&&(iRow != "")){
            singyn = "N";       //ÀüÀÚ¼­¸í¿©ºÎ
            pid = model.getValue("/root/main/profhist/list["+iRow+"]/pid");          //µî·Ï¹øÈ£(¿ø¹«Key)
            if(saveflag == "O") {
                orddd = model.getValue("/root/main/profhist/list["+iRow+"]/orddd");  //Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
                indd = "-";     //ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
            } else {
                indd = model.getValue("/root/main/profhist/list["+iRow+"]/orddd");
                orddd = "-";
            }
            cretno    = model.getValue("/root/main/profhist/list["+iRow+"]/cretno");       //»ý¼º¹øÈ£(¿ø¹«Key)
            
            // KNUH_20110504_¼öÁ¤(ȯÀÚ¼öÁøÁ¤º¸·Î Áø·á°ú, Áø·áÀÇ»ç ¼ÂÆÃ)
            //orddeptcd = model.getValue("/root/main/profhist/list["+iRow+"]/issdeptcd"); //Áø·á°ú(¿ø¹«)
            //orddrid   = model.getValue("/root/main/profhist/list["+iRow+"]/issid");
            orddeptcd = model.getValue("/root/main/profhist/list["+iRow+"]/orddeptcd"); //Áø·á°ú(¿ø¹«)
            orddrid   = model.getValue("/root/main/profhist/list["+iRow+"]/orddrid");

            if( model.getValue("/root/send/chngissinfo/issvaliinfoflag") == "Y" ){
                if ( model.getValue("/root/send/chngissinfo/orddeptcd") != "" ){
                	orddeptcd = model.getValue("/root/send/chngissinfo/orddeptcd"); 
                }
                
                if( model.getValue("/root/send/chngissinfo/orddoctid") != "" ){
                	orddrid = model.getValue("/root/send/chngissinfo/orddoctid");   
                }    	
            } 
            
            var issdt = model.getValue("/root/main/profhist/list["+iRow+"]/issdt");

        } else {
            singyn = "N";       //ÀüÀÚ¼­¸í¿©ºÎ
            pid = model.getValue("/root/main/acptoccinfo/otpt_pid");               //µî·Ï¹øÈ£(¿ø¹«Key)
            if(saveflag == "O") {
                orddd = model.getValue("/root/main/acptoccinfo/otpt_orddd");       //Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
                indd  = "-";       //ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
            } else {
                indd  = model.getValue("/root/main/acptoccinfo/otpt_orddd");
                orddd = "-";
            }
            cretno = 0;       //»ý¼º¹øÈ£(¿ø¹«Key)
            
            orddeptcd = model.getValue("/root/main/acptoccinfo/otpt_orddeptcd");    //Áø·á°ú(¿ø¹«)
            orddrid   = model.getValue("/root/main/acptoccinfo/otpt_orddrid");
        }

        instcd = getUserInfo("dutplceinstcd");       //±â°üÄÚµå
        status = "";       //½Å±Ô(I), DC(C)
        status = "I";
        rowno  = "1";      //ÁÙ¹øÈ£ (º´¸® ¿ä±¸)

        prcpdd = "";       //ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)
        if (saveflag == "I"){
            prcpdd = getCurrentDate();
        } else {
            prcpdd = orddd;
        }

        prcpno     = "0";              //ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        prcphistno = "0";              //ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
        prcpgenrflag = saveflag;       //ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
        prcpstatcd = "000";            //ó¹æ»óÅ : '000'
        prcpkindcd = "20";             //ó¹æÁ¾·ù : '20'
        prcpcd     = model.getValue("/root/main/calcscorinfo/calcscorlist[" + i + "]/calcscorcd"); //ó¹æÄÚµå
        calcscorcd = model.getValue("/root/main/calcscorinfo/calcscorlist[" + i + "]/calcscorcd"); //¼ö°¡ÄÚµå
        inclprcpcd = "-";              //Á¾¼Óó¹æÄÚµå ('-')
        inclprcpno = "";               //Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
        prcpexecdeptcd  = getUserInfo("dutplcecd"); //ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
        prcphopedd      = prcpdd       //ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
        prcpqty         = "1";         //ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
        prcpqtyunitflag = "-";         //ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
        prcptims   = "1";              //ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
        prcpdayno  = "1";              //ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
        payflagcd  = "-";              //±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
        erprcpflag = "N";              //ÀÀ±Þó¹æ±¸ºÐ (Y/N)
        precureprcpflag = "N";         //¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
        nigtprcpflag = "N";            //¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
        portprcpflag = "N";            //Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
        fixprcpflag = "N";             //Á¤¾×ó¹æ±¸ºÐ (Y/N)
        choiordflag = "-";             //¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
        anamneflag  = "N";             //±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
        prcpdirecflag = "-";           //ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
        angioflagcd = "-";             //Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
        opansflagcd = "-";             //¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
        ansttm = "0000";               //¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
        offictourhealexamflag = "N";   //ÃâÀå°ËÁø±¸ºÐ (Y/N)
        stemcellflag = "N";            //'00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
        hosinhosoutflag = "-";         //¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
        hosinprcpresncd = "00";        //¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
        issdeptcd       = "-";         //¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
        prcpauthflag    = "5";           //ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
        prcpinptflag    = "15";          //ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
        prcpsignflag    = "0";           //ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
        oprsrvno        = "0";           //¼ö¼ú¿¹¾à¹øÈ£(0)
        clincstdyflag   = "N";           //Àӻ󿬱¸±¸ºÐ (Y/N)
        clincstdycd     = "-";           //Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
        drugmthdspccd   = "-";           //Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
        prcpdelivefact  = "-";           //ó¹æÀü´Þ»çÇ×
        tootfact        = "-";           //Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
        matrsetprcpspec = "-";           //Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
        calcflag        = "N";           //°è»ê±¸ºÐ (Y/N)
        rsrvflag        = "N";           //¿¹¾à±¸ºÐ (Y/N)
        rsrvdd          = "00000000";    //¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
        rsrvtm          = "000000";      //¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
        rsrvrid         = "-";           //¿¹¾àÀÚID ('-')
        execdd          = getCurrentDate(); //½Ç½ÃÀÏÀÚ ('00000000')
        exectm          = getCurrentTime(); //½Ç½Ã½Ã°£ ('000000')
        execrid         = getUserInfo("userid"); //½Ç½ÃÀÚID ('-')
        direcprcplnkdd  = "00000000";      //Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
        direcprcplnkno  = "0";             //Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
        ordreqlnkno     = "0";             //Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
        testreqlnkno    = "0";             //°Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë

        sPassData = sPassData
                  + savedataflag                           //savedataflag               ÀúÀåÀڷᱸºÐ (2:ó¹æ)
                  + "¢Ë" + saveflag                        //saveflag"                  ÀúÀ屸ºÐ (O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø)
                  + "¢Ë" + prcpflag                        //prcpflag"                  ó¹æ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0035 ÂüÁ¶ '0'À» Á¦¿ÜÇÑ ÇØ´ç °ªÀ» ³Ö¾îÁÖ¼¼¿ä...)
                  + "¢Ë" + inptflag                        //inptflag"                  ÀԷ±¸ºÐ (11:°ÇÁøó¹æ, 12:LISÀåºñIF, 13:±âŸLIS, 14:º´¸®, 15:EMR±â·Ï, 16:¿ø¹«)
                  + "¢Ë" + pamflag                         //pamflag"                   ¿ø¹«Á¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½.
                  + "¢Ë" + diagflag                        //diagflag"                  Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
                  + "¢Ë" + prcperrflag                     //prcperrflag"               ó¹æ¿À·ù±¸ºÐ(Y/N) -> YÀÏ °æ¿ì ÀÇ»çó¹æ°ú µ¿ÀÏÇÏ°Ô ¿À·ù¸®½ºÆ®¸¦ ¹Ýȯ, NÀÌ¸é ¿À·ù¸¦ È®ÀÎÇÏÁö ¾ÊÀ½
                  + "¢Ë" + deptcd                          //deptcd"                    ºÎ¼­ÄÚµå (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­ÄÚµå)
                  + "¢Ë" + deptnm                          //deptnm"                    ºÎ¼­¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ ºÎ¼­¸í)
                  + "¢Ë" + userid                          //userid"                    »ç¿ëÀÚID (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚID)
                  + "¢Ë" + usernm                          //usernm"                    »ç¿ëÀÚ¸í (ÀÔ·ÂÀÚ ¶Ç´Â ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í)
                  + "¢Ë" + singyn                          //singyn"                    ÀüÀÚ¼­¸í¿©ºÎ
                  + "¢Ë" + pid                             //pid"                       µî·Ï¹øÈ£(¿ø¹«Key)
                  + "¢Ë" + orddd                           //orddd"                     Áø·áÀÏÀÚ(¿ø¹«Key) - ÀÔ¿øÀÏ°æ¿ì´Â '-'
                  + "¢Ë" + indd                            //indd"                      ÀÔ¿øÀÏÀÚ(¿ø¹«Key) - ¿Ü·¡ÀÏ°æ¿ì´Â '-'
                  + "¢Ë" + cretno                          //cretno"                    »ý¼º¹øÈ£(¿ø¹«Key)
                  + "¢Ë" + orddeptcd                       //orddeptcd"                 Áø·á°ú(¿ø¹«)
                  + "¢Ë" + orddrid                         //orddrid"                   Áø·áÀÇID(¿ø¹«)
                  + "¢Ë" + instcd                          //instcd"                    ±â°üÄÚµå
                  + "¢Ë" + status                          //status"                    ½Å±Ô(I), DC(C)
                  + "¢Ë" + rowno                           //rowno"                     ÁÙ¹øÈ£ (º´¸® ¿ä±¸)
                  + "¢Ë" + prcpdd                          //prcpdd"                    ó¹æÀÏÀÚ(¿Ü·¡/Á¾°ÇÀº orddd¿Í µ¿ÀÏ, ÀÔ¿øÀº ó¹æÀÏÀÚ)
                  + "¢Ë" + prcpno                          //prcpno"                    ó¹æ¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
                  + "¢Ë" + prcphistno                      //prcphistno"                ó¹æÀ̷¹øÈ£ (status°¡ 'I'ÀÏ °æ¿ì 0)
                  + "¢Ë" + prcpgenrflag                    //prcpgenrflag"              ó¹æ¹ß»ý±¸ºÐ(¿ø¹«) - O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
                  + "¢Ë" + prcpstatcd                      //prcpstatcd"                ó¹æ»óÅ : '000'
                  + "¢Ë" + prcpkindcd                      //prcpkindcd"                ó¹æÁ¾·ù : '20'
                  + "¢Ë" + prcpcd                          //prcpcd"                    ó¹æÄÚµå
                  + "¢Ë" + calcscorcd                      //calcscorcd"                ¼ö°¡ÄÚµå
                  + "¢Ë" + inclprcpcd                      //inclprcpcd"                Á¾¼Óó¹æÄÚµå ('-')
                  + "¢Ë" + inclprcpno                      //inclprcpno"                Á¾¼Óó¹æ¹øÈ£ (ÀϷùøÈ£ - Á¾¼Óó¹æÄڵ庰·Î »ý¼º)
                  + "¢Ë" + prcpexecdeptcd                  //prcpexecdeptcd"            ó¹æ½Ç½ÃºÎ¼­ÄÚµå (¼ö°¡ÀÇ Á¢¼öºÎ¼­¸¦ ³Ö¾î Áְųª, Á¢¼öÇÏ´Â ºÎ¼­ÄÚµå, ¾øÀ» °æ¿ì '-'·Î ó¸®)
                  + "¢Ë" + prcphopedd                      //prcphopedd"                ó¹æÈñ¸ÁÀÏÀÚ (ó¹æÀÏÀÚ ÀÌÀüÀ¸·Î ¹ß»ýºÒ°¡)
                  + "¢Ë" + prcpqty                         //prcpqty"                   ó¹æ¼ö·® (1) (¾àÇ°ÀÏ °æ¿ì ¹Ýµå½Ã Æ÷Àå´ÜÀ§ ¼ö·®À» ³Ö¾î ÁÖ¾î¾ß µÊ)
                  + "¢Ë" + prcpqtyunitflag                 //prcpqtyunitflag"           ó¹æ¼ö·®´ÜÀ§ (¾àÇ°ÀÏ °æ¿ì '3', ±×·¸Áö ¾ÊÀ»°æ¿ì '-')
                  + "¢Ë" + prcptims                        //prcptims"                  ó¹æȽ¼ö (1) (ÀÔ¿øÀÏ °æ¿ì Ƚ¼ö¿¡ µû¶ó Ç®¸²)
                  + "¢Ë" + prcpdayno                       //prcpdayno"                 ó¹æÀϼö (1) (Áö¿øºÎ¼­¿¡¼­´Â ÁÖ»çó¹æ¿¡ ´ëÇÏ¿© Àϼö¸¦ ³ÖÀ¸¸é ¾ÈµÊ, ³ÖÀ¸¸é ÀÚ·á°¡ ¹®Á¦°¡ »ý±è)
                  + "¢Ë" + payflagcd                       //payflagcd"                 ±Þ¿©±¸ºÐÄÚµå (M0029 ÂüÁ¶) -> '-'·Î ³ÖÀ¸ÁÖ¸é ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó ÀÚµ¿ ¹ß»ý
                  + "¢Ë" + erprcpflag                      //erprcpflag"                ÀÀ±Þó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + precureprcpflag                 //precureprcpflag"           ¼±Ã³Ä¡Ã³¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + nigtprcpflag                    //nigtprcpflag"              ¾ß°£Ã³¹æ±¸ºÐ (Y/N) : ¾ß°£°¡»ê¿¡ ÇØ´ç µÉ °æ¿ì
                  + "¢Ë" + portprcpflag                    //portprcpflag"              Æ÷Åͺíó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + fixprcpflag                     //fixprcpflag"               Á¤¾×ó¹æ±¸ºÐ (Y/N)
                  + "¢Ë" + choiordflag                     //choiordflag"               ¼±ÅÃó¹æ±¸ºÐ (Y/N) -> ¸¸¾à '-'ÀÏ °æ¿ì ¿ø¹«Á¤º¸ ±âÁØÀ¸·Î ó¸®
                  + "¢Ë" + anamneflag                      //anamneflag"                ±â¿Õ·Â(Áõ)±¸ºÐ (Y/N)
                  + "¢Ë" + prcpdirecflag                   //prcpdirecflag"             ó¹æ¹æÇⱸºÐ (ÄÚµåÁ¤ÀǼ­ M0041 ÂüÁ¶), ÀçÈ°Àº À§Ä¡±¸ºÐÀ¸·Î »ç¿ë : '-'
                  + "¢Ë" + angioflagcd                     //angioflagcd"               Angio±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0006 ÂüÁ¶) : '-'
                  + "¢Ë" + opansflagcd                     //opansflagcd"               ¼ö¼ú¸¶Ã뱸ºÐ (ÄÚµåÁ¤ÀǼ­ M0007, M0008 ÂüÁ¶) : '-'
                  + "¢Ë" + ansttm                          //ansttm"                    ¸¶Ãëó¹æ¿¡ ´ëÇÑ ¸¶ÃëÀû¿ë½Ã°£ - ºÐÀ» 4ÀÚ¸®·Î Ç¥Çö, ¿¬¼Ó°Ë»ç °Ë»ç°£°Ý
                  + "¢Ë" + offictourhealexamflag           //offictourhealexamflag"     ÃâÀå°ËÁø±¸ºÐ (Y/N)
                  + "¢Ë" + stemcellflag                    //stemcellflag"              '00NNN' °ÇÁøû±¸±¸ºÐ, Á¶Ç÷¸ð(ÁÙ±â)¼¼Æ÷ ±¸ºÐ - Stem Cell Source ¿©ºÎ ,Cryo¿©ºÎ, CD34 äÁý¿©ºÎ, Çص¿¿©ºÎÀÇ Á¶ÇÕÀ¸·Î ±¸¼º
                  + "¢Ë" + hosinhosoutflag                 //hosinhosoutflag"           ¿ø³»¿Ü±¸ºÐ(°ÇÁøÀº 'I', ¾àÀÌ ¾Æ´Ò°æ¿ì '-')
                  + "¢Ë" + hosinprcpresncd                 //hosinprcpresncd"           ¿ø³»Ã³¹æ»çÀ¯ (°ÇÁø¿¡ ÇØ´çÇÏ´Â »çÀ¯ - Á¤ÀÇ, ¾àÀÌ ¾Æ´Ò°æ¿ì '00')
                  + "¢Ë" + issdeptcd                       //issdeptcd"                 ¹ßÇàºÎ¼­ÄÚµå (Áý°è°¡ ŸºÎ¼­ÀÏ °æ¿ì Ÿ°úÄÚµå, ÀÔ¿øÀº ±âº»ÀÌ º´µ¿) -> '-' ·Î ó¸®Çϸé ÀÚµ¿ ó¸®(±âº»Àº ó¹æÀԷºμ­À̳ª ÀÔ¿øÀº ÇØ´ç º´µ¿À¸·Î ó¸®)
                  + "¢Ë" + prcpauthflag                    //prcpauthflag"              ó¹æ±ÇÇѱ¸ºÐ(0:ÀÇ»çó¹æÈ­¸é, 1:ÀÇ»ç¹×°£È£»ç°øÀ¯Ã³¹æ, 2:¼ø¼ö°£È£Ã³¹æ, 3:Áö¿øºÎ¼­ÀÇ»çó¹æ, 4:±âŸó¹æ - ±âŸ Áö¿øºÎ¼­ Ãß°¡, 5:°è»ê¿ë¿ø¹«Ã³¹æ, 6:°ÇÁøó¹æ ==> 0,1¸¸ ÀÇ»çó¹æÈ­¸é¿¡ º¸ÀÓ, ´Ü 3Àº ÃßÈÄ¿¡ °áÁ¤)
                  + "¢Ë" + prcpinptflag                    //prcpinptflag"              ó¹æÀԷ±¸ºÐ(ÀúÀ屸ºÐÁ¤º¸ÀÇ inptflag¿Í µ¿ÀÏÇÏ°Ô Ã³¸®)
                  + "¢Ë" + prcpsignflag                    //prcpsignflag"              ó¹æ¼­¸í±¸ºÐ(0:ÀÎÁõ¾ÈµÊ, 1:Àǻ簡 ÈÄÀÎÁõ, 2:ÀÎÁõ¿Ï·á)
                  + "¢Ë" + oprsrvno                        //oprsrvno"                  ¼ö¼ú¿¹¾à¹øÈ£(0)
                  + "¢Ë" + clincstdyflag                   //clincstdyflag"             Àӻ󿬱¸±¸ºÐ (Y/N)
                  + "¢Ë" + clincstdycd                     //clincstdycd"               Àӻ󿬱¸ÄÚµå ('-') -> Àӻ󿬱¸±¸ºÐÀÌ 'Y'ÀÏ °æ¿ì Àӻ󿬱¸Äڵ带 µî·Ï
                  + "¢Ë" + drugmthdspccd                   //drugmthdspccd"             Åõ¿©¹æ¹ý¹×°ËüÄÚµå(¾àÀÏ °æ¿ì º¹¿ë¹æ¹ý, Áø°Ë ¹× º´¸®ÀÏ °æ¿ì °ËüÄÚµå, Default '-')
                  + "¢Ë" + prcpdelivefact                  //prcpdelivefact"            ó¹æÀü´Þ»çÇ×
                  + "¢Ë" + tootfact                        //tootfact"                  Ä¡½Ä (º´¸®¸¸ »ç¿ë, ³ª¸ÓÁö´Â '-')
                  + "¢Ë" + matrsetprcpspec                 //matrsetprcpspec"           Àç·áó¹æ³»¿ë ('-') -> ÃßÈÄÁ¤ÀÇ
                  + "¢Ë" + calcflag                        //calcflag"                  °è»ê±¸ºÐ (Y/N)
                  + "¢Ë" + rsrvflag                        //rsrvflag"                  ¿¹¾à±¸ºÐ (Y/N)
                  + "¢Ë" + rsrvdd                          //rsrvdd"                    ¿¹¾àÀÏÀÚ ('N'ÀÏ °æ¿ì '00000000')
                  + "¢Ë" + rsrvtm                          //rsrvtm"                    ¿¹¾à½Ã°£ ('N'ÀÏ °æ¿ì '000000')
                  + "¢Ë" + rsrvrid                         //rsrvrid"                   ¿¹¾àÀÚID ('-')
                  + "¢Ë" + execdd                          //execdd"                    ½Ç½ÃÀÏÀÚ ('00000000')
                  + "¢Ë" + exectm                          //exectm"                    ½Ç½Ã½Ã°£ ('000000')
                  + "¢Ë" + execrid                         //execrid"                   ½Ç½ÃÀÚID ('-')
                  + "¢Ë" + direcprcplnkdd                  //direcprcplnkdd"            Áö½Ãó¹æ¿¬°èÀÏÀÚ (00000000) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ Ã³¹æÀÏÀÚ
                  + "¢Ë" + direcprcplnkno                  //direcprcplnkno"            Áö½Ãó¹æ¿¬°è¹øÈ£ (0) -> Áö¿øºÎ¼­¿¡¼­ »ç¿ë - ¿øÁö½Ãó¹æÀÇ ½Ç½Ãó¹æÀ¯ÀϹøÈ£
                  + "¢Ë" + ordreqlnkno                     //ordreqlnkno"               Áø·áÀÇ·Ú¿¬°è¹øÈ£ (0)
                  + "¢Ë" + testreqlnkno                    //testreqlnkno"              °Ë»çÀÇ·Ú¿¬°è¹øÈ£ (0) -> º´¸®¿Í Áø´Ü°Ë»ç »ç¿ë
                  + "¢Ì";
    }
    model.makeValue("/root/send/reqdata/rcptlist", sPassData);
}

/**
 * @desc
 *  Áø´Ü¼­¿Í ¸ÅÇÎµÈ ¼ö°¡ÄÚµå Á¶È¸ ¹× Á¦Áõ¸í ¼­½Ä¿¡ µû¶ó ¼ö°¡Ã³¸®
 * 1.»óÇØÁø´Ü¼­, ¿¹»óÄ¡·á±â°£ÀÌ 21ÀÏ ÀÌ»óÀÎ °æ¿ì, ¿øº»(HCDD022), »çº»(HCDD072)
 *                              21ÀÏ ¹Ì¸¸ÀÎ °æ¿ì, ¿øº»(HCDD021), »çº»(HCDD071)
 * 2.ÇâÈÄ Ä¡·áºñ ÃßÁ¤¼­, Àüü ÃßÁ¤ÇÕ°è°¡ 1000¸¸¿ø ÀÌ»óÀÎ °æ¿ì, ¿øº»(HCDD020), »çº»(HCDD070)
 *                                       1000¸¸¿ø ¹Ì¸¸ÀÎ °æ¿ì, ¿øº»(HCDD019), »çº»(HCDD069)
 * 3.¹«·á¹ß±Þ °¡´É Á¦Áõ¸í
 * 3-1. »çü°Ë¾È¼­   ¿øº»(HCDD018), »çº»¾øÀ½
 * 3-2. ÀÔÅð¿øÈ®Àμ­ ¿øº»(HCDD013), »çº»(HCDD064)
 * 3-3. Ãâ»ýÁõ¸í¼­   ¿øº»(HCDD010), »çº»¾øÀ½
 * 
 * 4.Àå¾ÖÁø´Ü¼­ (2009.12.17. ÀÌÀº¿µ Ãß°¡)
 *   [ÀÇÁ¤ºÎ]
 *   Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD111) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 4¸¸¿ø
 *                             "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD110) : ½É½ÅÀå¾ÖÁø´Ü¼­ 15000¿ø
 *   [¼­¿ï¼º¸ð, ¼ººó¼¾Æ®] (2010.01.08 ÀÌÀº¿µ Ãß°¡)
 *   Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD041) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 4¸¸¿ø
 *                             "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD040) : ½É½ÅÀå¾ÖÁø´Ü¼­ 15000¿ø
 *   [ºÎõ¼º¸ð] (2010.01.11 ÀÌÀº¿µ Ãß°¡)
 *   Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD150) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 4¸¸¿ø
 *                             "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD149) : ½É½ÅÀå¾ÖÁø´Ü¼­ 15000¿ø
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fSrchCalcScor(formcd){
    model.makeValue("/root/send/reqdata/calcscor/formcd"  , formcd);
    model.makeValue("/root/send/reqdata/calcscor/srchflag", "PROF");
    if(submit("TRMMR02906")){
        var ivwCtrl = ivw_loader.window.document.controls("ivw_base");

        if(formcd == "0000001455"){ //»óÇØÁø´Ü¼­ÀÎ °æ¿ì, ¿¹»óÄ¡·á±â°£¿¡ µû¶ó ¼ö°¡¸¦ º¯°æ
            var caredayno = ivw_loader.ivw_base.window.javascript.getFormItemValue("0005910.0000951");
            if(caredayno.reccnts >= 21){ //21ÀÏ ÀÌ»óÀÎ °æ¿ì, 21ÀÏ ¹Ì¸¸ÀÇ ¿øº», »çº» ¼ö°¡ »èÁ¦
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD021' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD071' and calcscorflag = 'C']");

            }else{ //21ÀÏ ¹Ì¸¸ÀÎ °æ¿ì, 21ÀÏ ÀÌ»óÀÇ ¿øº», »çº» ¼ö°¡ »èÁ¦
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD022' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD072' and calcscorflag = 'C']");

            }

        }else if(formcd == "0000001522" || formcd == "0800000403"){ //ÇâÈÄ Ä¡·áºñ ÃßÁ¤¼­ÀÎ °æ¿ì, Àüü ÃßÁ¤ÇÕ°è¿¡ µû¶ó ¼ö°¡¸¦ º¯°æ
                                                                    //2008.12.19 Ä¡°ú¿ë ÇâÈÄ Ä¡·áºñ ÃßÁ¤¼­ Ãß°¡. ¿ÀÁöÈÆ. ±è¼ºÁø ¼±»ý´Ô ¿À·ù»çÇ×
            var caremoney = ivw_loader.ivw_base.window.javascript.getFormItemValue("0000878");
            if(caremoney.reccnts >= 10000000){ //ÃßÁ¤ÇÕ°è õ¸¸¿ø ÀÌ»óÀÎ °æ¿ì, õ¸¸¿ø ¹Ì¸¸ÀÎ ¼ö°¡ »èÁ¦
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD019' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD069' and calcscorflag = 'C']");

            }else{ //ÃßÁ¤ÇÕ°è õ¸¸¿ø ¹Ì¸¸ÀÎ °æ¿ì, õ¸¸¿ø ÀÌ»óÀÎ ¼ö°¡ »èÁ¦
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD020' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = 'HCDD070' and calcscorflag = 'C']");

            }

        }else if(formcd == "0900004416"){ //Àå¾ÖÁø´Ü¼­(º´¿ø¼­½Ä)ÀÎ °æ¿ì, Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö" ÀÎÁö, ±× ÀÌ¿ÜÀÎÁö¿¡ µû¶ó ¼ö°¡°¡ º¯°æ µÊ
                                          //2009.12.17 ÀÌÀº¿µ Ãß°¡ (ÀÇÁ¤ºÎ ¼ö°¡ÄÚµå)
                                          //Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD111) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 40000¿ø
                                          //                          "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD110) : ½É½ÅÀå¾ÖÁø´Ü¼­         15000¿ø
                                          //2010.01.08 ÀÌÀº¿µ Ãß°¡ (¼­¿ï¼º¸ð, ¼ººó¼¾Æ® ¼ö°¡ÄÚµå)
                                          //Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD041) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 40000¿ø
                                          //                          "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD040) : ½É½ÅÀå¾ÖÁø´Ü¼­         15000¿ø
                                          //2010.01.11 ÀÌÀº¿µ Ãß°¡ (ºÎõ¼º¸ð ¼ö°¡ÄÚµå)
                                          //Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö"   ¿¡ ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD150) : ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ) 40000¿ø
                                          //                          "Á¤½ÅÁöü" ÀÌ¿Ü ÇØ´çÇÒ °æ¿ì, ¿øº»(HCDD149) : ½É½ÅÀå¾ÖÁø´Ü¼­         15000¿ø
			// ±â°üº° ¼ö°¡ÄÚµå Á¤º¸ °¡Á®¿À±â.. Àå¾ÖÁø´Ü¼­ ¼ö°¡ÄÚµå ("Á¤½ÅÁöü" ÀÌ¿Ü or "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö")
			// 9916 : Á¦Áõ¸í Àå¾ÖÁø´Ü¼­ ¼ö°¡ÄÚµå ½É½ÅÀå¾ÖÁø´Ü¼­
			// 9917 : Á¦Áõ¸í Àå¾ÖÁø´Ü¼­ ¼ö°¡ÄÚµå ½É½ÅÀå¾ÖÁø´Ü¼­(Á¤¹Ú¾Æ)
		    mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/handicapcd0", 9916); 
		    mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/handicapcd1", 9917); 
            var handicapcd0 =  model.getValue("/root/init/handicapcd0/hardcd/hardcd");
            var handicapcd1 =  model.getValue("/root/init/handicapcd1/hardcd/hardcd");


            var handicapflag = ivw_loader.ivw_base.window.javascript.getFormItemValue("0014563");
			// 2010.01.11 ÀÌÀº¿µ - Àå¾Öµî±ÞÀÌ "Á¤½ÅÁöüÀå¾Ö" "¹ß´ÞÀå¾Ö" ÀÎ °æ¿ì
			// 2010.05.14 ÀÌÀº¿µ - °í½Ã °ü·Ã Àå¾Öµî±Þ "¹ß´ÞÀå¾Ö" ºÐ·ù°¡ "ÁöÀûÀå¾Ö", "ÀÚÆó¼ºÀå¾Ö" 2°¡Áö·Î ºÐ¸®µÇ¾î Ãß°¡µÊ.
            if(handicapflag.rectermcd == "0031782001" || handicapflag.rectermcd == "0035247001" || handicapflag.rectermcd == "0039121001" || handicapflag.rectermcd == "0039126001"){
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = '" + handicapcd0 + "' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = '" + handicapcd0 + "' and calcscorflag = 'C']");

            }else{ //Àå¾Öµî±ÞÀÌ ±× ÀÌ¿ÜÀÎ °æ¿ì
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = '" + handicapcd1 + "' and calcscorflag = 'O']");
                model.removeNode("/root/main/calcscorinfo/calcscorlist[calcscorcd = '" + handicapcd1 + "' and calcscorflag = 'C']");

            }
        }

        var freeflag = model.getValue("/root/main/freeflag"); //¹«·á±¸ºÐ
        if(freeflag == "Y"){
            
    				//¹«·á¹ß±ÞºÎ¼­ÀÎ °æ¿ì ¸Þ½ÃÁö Æ˾÷ ¾È ¶ç¿ò(20140621)
    				var iexNodeCnt = getNodesetCnt(model, "/root/nofee/hardcd[hardcd = '" + getUserInfo("dutplcecd") + "']");
            var rtnval;
            if ( iexNodeCnt > 0 ) {
            	rtnval = 6;
            }
            else {
            	rtnval = messageBox("ÇØ´ç Á¦Áõ¸íÀÌ ¹«·á·Î ¹ß±Þ", "S001");
            }
                        
            if(rtnval == 6){
                model.removeNodeset("/root/main/calcscorinfo/calcscorlist");
                if(formcd == "0000002841"){ //»çü°Ë¾È¼­
                    model.setValue("/root/send/reqdata/profhist/freeissresn", "½Ã½Å±âÁõÀÚ");
                }else if(formcd == "0000001283"){ //ÀÔÅð¿øÈ®Àμ­(Áø´Ü¸íÆ÷ÇÔ)
                    model.setValue("/root/send/reqdata/profhist/freeissresn", "Åð¿ø´çÀÏ");
				        }else if(formcd == "0000001113" || formcd == "1100011102"){ //Ãâ»ýÁõ¸í¼­
                    model.setValue("/root/send/reqdata/profhist/freeissresn", "Åð¿ø´çÀÏ");
                }else if(formcd == "0000001499"){ //¼Ò°ß¼­
                    model.makeValue("/root/send/reqdata/profhist/freeissresn", "Ÿº´¿øÀü¿ø");
                }

            }else{
                return false;
            }
        }
    }
}

/**
 * @desc   : º¸°í¼­ µ¥ÀÌŸ »ý¼º
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetReportData(){
    var ivwLoader =  ivw_loader.window.document.controls("ivw_base");
    return ivwLoader.instance1.xml;
}

/**
 * @desc   : Á¸ÀçÇÏ´Â Á¦Áõ¸í °Ë»ö
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fExistProf(pid, cretno, orddd, ioflag, formcd, orddeptcd){
	// [¿äû¹øÈ£:20160708012] Àü¿ø¼Ò°ß¼­ Á¦¾î
	var chkprofhist = "N";//lf_CheckPerPrint(formcd);
	
    model.makeValue("/root/send/reqdata/hist/status", "new");
    model.makeValue("/root/send/reqdata/hist/pid"   , pid);
    model.makeValue("/root/send/reqdata/hist/cretno", cretno);
    model.makeValue("/root/send/reqdata/hist/orddd" , orddd);
    model.makeValue("/root/send/reqdata/hist/ioflag", ioflag);
    model.makeValue("/root/send/reqdata/hist/formcd", formcd);
    model.makeValue("/root/send/reqdata/hist/orddeptcd", orddeptcd);
    model.makeValue("/root/send/reqdata/hist/chkprofhist", chkprofhist);

    if(submit("TRMMR02902")){
        model.removeNodeset("/root/send/reqdata");
        return model.getValue("/root/main/existdata/existyn");
    } else {
        model.removeNodeset("/root/send/reqdata");
        return 0;
    }
}

/**
 * @desc   : ÀúÀå µÉ Á¦Áõ¸í ¼¼ÆÃ
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fNewRecProf(){
    var orddept     = model.getValue("/root/main/newprof/orddept");   //Áø·á°ú¸í
    var orddoctid   = model.getValue("/root/main/newprof/orddoctid"); //Àü¹®ÀÇid
    var doctnm      = model.getValue("/root/main/newprof/doctnm");    //Àü¹®ÀÇÀ̸§
    var licnsno     = model.getValue("/root/main/newprof/licnsno");   //¸éÇã¹øÈ£
    var currenttime = getCurrentDate()+getCurrentTime();
    var orddeptcd   = model.getValue("/root/main/newprof/orddeptcd");

    var ioflag     = model.getValue("/root/main/patinfo/ioflag");
    var pid        = model.getValue("/root/main/patinfo/pid");
    var cretno     = model.getValue("/root/main/patinfo/cretno");
    var orddd      = model.getValue("/root/main/patinfo/orddd");
    var profformcd = "";

    model.resetInstanceNode("/root/main/newprof");
    model.makeNode("/root/main/issusge"          , "");
    model.setValue("/root/main/newprof/orddept"  , orddept);   //Áø·á°ú¸í
    model.setValue("/root/main/newprof/orddeptcd", orddeptcd); //Áø·á°úÄÚµå
    model.setValue("/root/main/newprof/orddoctid", orddoctid); //Àü¹®ÀÇID
    model.setValue("/root/main/newprof/doctnm"   , doctnm);    //Àü¹®ÀǸí
    model.setValue("/root/main/newprof/licnsno"  , licnsno);   //¸éÇã¹øÈ£

    if(pid == ""){
        messageBox("ȯÀÚÁ¤º¸¸¦", "C001");
        return;
    }

    if((swc_prof.selectedIndex == 0) && (trv_proflist.value == "")){
        return;

    } else if((swc_prof.selectedIndex == 1) && (trv_favor.value == "")){
        return;

    }

    profformcd = model.getValue("/root/main/formcd");
    if(profformcd == ""){
        return;
    }
    ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";

    model.makeValue("/root/send/saveddata/pid", pid);
    model.makeValue("/root/send/saveddata/formcd", profformcd);
    model.makeValue("/root/send/saveddata/issdeptcd", orddeptcd);
    model.makeValue("/root/send/saveddata/issid", orddoctid);

    if(submit("TRMMR02901")){
        var formrecseq = model.getValue("/root/main/issprofinfo/info/formrecseq");
        ivw_loader.window.javascript.fLoadRecForm(formrecseq, false);
        if(formrecseq == ""){
            fChosProflist();
        }
    }
    model.refresh();
}

/**
 * @desc   : ȯÀÚ ³»¿ª Á¶È¸
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetPatHist(){
    /*
    if(btn_prof.selected == false){
        return;
    }*/
    var pid = model.getValue("/root/main/patinfo/pid");
    if(pid == ""){
        messageBox("¼±ÅÃµÈ È¯ÀÚ°¡", "I004");
        return;
    }

    //var formcd = model.getValue("/root/main/profform/list[" + ( trv_proflist.mouseRow + 1 )+ "]/formcd");
    //alert(trv_proflist.value);
    //if(trv_proflist.value !=""){
    //    formcd = trv_proflist.value;
    //}
    var formcd = "";
    
    if(btn_prof.selected == true){		// Á¦Áõ¸íÅÇ
        formcd = trv_proflist.value;
    }
    else if(btn_tabprofhist.selected == true){	// ÀÌ·ÂÅÇ
        formcd = model.getValue(grd_profhistlist.nodeset + "[" + grd_profhistlist.row  + "]/formcd");
    }
    else{	// Áñ°Üã±âÅÇ
        formcd = trv_favor.value;
        //return;
    }

    setParameter("SPMMR05500_formcd"   , formcd);
    setParameter("SPMMR05500_pid"      , pid);
    setParameter("SPMMR05500_orddeptcd", model.getValue("/root/main/patinfo/orddeptcd"));
    setParameter("SPMMR05500_savepath" , "/root/hidden/patinfo");
    //2009-08-06 ¿ÀÈÄ 5:36:48 °­ÁöÈÆ ¼öÁ¤ : Á¦Áõ¸í ¼öÁøÀ̷¿¡¼­ Á¶È¸ÇßÀ»¶§´Â Áø·áºÎµµ°Ç Á¦¿Ü(Y : Á¦¿Ü, N : Æ÷ÇÔ)
    setParameter("SPMMR05500_nopay"    , "Y");
    
    modal("SPMMR05500", 1, 10, 10, "SPMMR05500");

    if(getParameter("SPMMR05500_useyn") == "Y"){
        var ivwCtrl = ivw_loader.window.document.controls("ivw_base");
        var itemVal = new ITEMVAL();
        if(formcd == "0000002639"){ //Åë¿øÄ¡·á È®Àμ­(Áø´Ü¼­ Æ÷ÇÔ)
           itemVal.reccnts = getParameter("SPMMR05500_msg") + "\n\n»ó±âȯÀÚ´Â »ó±âÀÏÀÚ¿¡ Åë¿øÄ¡·á ÇÏ¿´À½À» È®ÀÎÇÕ´Ï´Ù.";
           ivwCtrl.window.javascript.setFormItemValue("0005910", itemVal, true);
        }
        
        if(formcd == "0000002588"){ //Åë¿øÄ¡·á È®Àμ­(¿µ¹®)
           itemVal.reccnts = getParameter("SPMMR05500_msg") + "\n\nI would identify that above patient visited out-patient clinic.";
           ivwCtrl.window.javascript.setFormItemValue("0005910", itemVal, true);
        }
        
        if(formcd == "0000001312"){ //¿Ü·¡Áø·áÈ®Àμ­
            itemVal.reccnts = getParameter("SPMMR05500_msg") + "\n\n»ó±âȯÀÚ´Â »ó±âÀÏÀÚ¿¡ ¿Ü·¡Áø·á ÇÏ¿´À½À» È®ÀÎÇÕ´Ï´Ù.";
            ivwCtrl.window.javascript.setFormItemValue("0005910", itemVal, true);
        }

		// knuh_20110324_¹Ú¼ºÈ£ ¼öÁ¤(ÀÔ¿ø»ç½ÇÈ®Àμ­(ÀÔ¿øÁß) Ãß°¡
        //if(formcd == "0000001283" || formcd == "0000001300"){ //ÀÔÅð¿øÈ®Àμ­, ÀÔ¿ø»ç½ÇÈ®Àμ­
        if(formcd == "0000001283" || formcd == "0000001300" || formcd == "1100011101"){ //ÀÔÅð¿øÈ®Àμ­, ÀÔ¿ø»ç½ÇÈ®Àμ­
           itemVal.reccnts = getParameter("SPMMR05500_msg");
           ivwCtrl.window.javascript.setFormItemValue("0002025", itemVal, true);

        }

        if(formcd == "0000001457"){ //¼ö¼úÈ®Àμ­
           itemVal = ivwCtrl.window.javascript.getFormItemValue("0010597");
           itemVal.reccnts += "\n" + getParameter("SPMMR05500_msg");
           ivwCtrl.window.javascript.setFormItemValue("0010597", itemVal, true);

           itemVal = ivwCtrl.window.javascript.getFormItemValue("0016684");
           itemVal.reccnts += "\n" + getParameter("SPMMR05500_opinfo");
           ivwCtrl.window.javascript.setFormItemValue("0016684", itemVal, true);
        }

        if(formcd == "0000002792"){ //»ó±Þº´½ÇÈ®Àμ­ (2009.07.27. Ãß°¡)
           itemVal = ivwCtrl.window.javascript.getFormItemValue("0002025");
           itemVal.reccnts = getParameter("SPMMR05500_msg");
           ivwCtrl.window.javascript.setFormItemValue("0002025", itemVal, true);

           itemVal = ivwCtrl.window.javascript.getFormItemValue("0000965");
           itemVal.reccnts = getParameter("SPMMR05500_orddeptnm");
           ivwCtrl.window.javascript.setFormItemValue("0000965", itemVal, true);

           var pid = getParameter("SPMMR05500_pid");
           var indd = getParameter("SPMMR05500_indd");
           var cretno = getParameter("SPMMR05500_cretno");

		   ivwCtrl.window.javascript.fGetRoomChargeList(pid, indd, cretno);
		   ivwCtrl.window.javascript.fSetPatRoomChargeInfo(pid, indd, cretno);
		}
		
    }
    setParameter("SPMMR05500_useyn", "N");
}

/**
 * @desc   : »ç¿ë¿©ºÎ Ãß°¡
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fAddIssUsge(){
    model.removeNodeset("/root/temp/issusge/list");
    fCallModal();
    var listNode = model.getValue("/root/main/issusge");
    var getNodeListCnt = getNodesetCount("/root/main/issusge");
    setCSVToNode("/root/temp/issusge", listNode);
    model.setValue("/root/main/issusge", "");
    model.refresh();

    fReqInsAddPrstUsge(); //»ç¿ë¿©ºÎ Ãß°¡ ÈÄ ÀÌ·ÂÀúÀå ·ÎÁ÷ó¸®
}

/**
 * @desc   : ºó¼­½Ä Ãâ·Â
 *
 * @param  :
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fEmptyFormPrnt(){
    /*var resval = messageBox("ºó ¼­½ÄÁö¸¦ Ãâ·Â", "S001");
    if(resval == 6){
        var currow = grd_profhistlist.row;
        if(currow < 1){
            messageBox("ºó¼­½Ä Ãâ·ÂÇÒ ¼­½ÄÀ»", "C002");
            return;
        }
        var formcd = model.getValue("/root/main/profhist/list[" + currow + "]/formcd");
        //¼­½Ä µÎ¹ø° Äڵ尡 8ÀÎ °æ¿ì,
        if(formcd.charAt(1)=="8"){
            formcd = formcd.substr(7, 3);
            var rexid = "RFM" + "80" + formcd + "00";
        }else{
            formcd = formcd.substr(5, 5);
            var rexid = "RFM" + formcd + "00";
        }

        //var ivwCtrl = ivw_loader.window.document.controls("ivw_base");
        //ºó¼­½Ä Ãâ·Â½Ã Ç¥½ÃµÇ¾î¾ßÇÒ »çÇ×
        //ȯÀڱ⺻Á¤º¸, µî·Ï¹øÈ£, ȯÀÚ¸í, Áֹεî·Ï¹øÈ£, ¼ºº°, ¿¬·É
        //ÀÇ·á±â°ü¸í, º´¿øÁÖ¼Ò, ÀüÈ­¹øÈ£, Áø·á°ú, FAX¹øÈ£

        var prntcnt = model.getValue("/root/main/issinfo/isscnt");
        exeReportPreview(rexid, "XMLSTR", "", "", "true", "", "", "", "", "true","", "", "", "", "hidden", 1);
        model.setValue("/root/main/issinfo/isscnt", "1");
        model.refresh();
    }*/
    
    //Ãâ·Â½Ã È£ÃâÇÒ REX report id¸¦ ¼³Á¤
    var ivwCtrl = ivw_loader.window.document.controls("ivw_base");
    var formcd = model.getValue("/root/main/formcd");
    
    if(formcd == "")
    {
      //var row = grd_profhistlist.rows - grd_profhistlist.fixedrows;
      var row = grd_profhistlist.row;
      
      formcd = model.getValue("/root/main/profhist/list[" + row + "]/formcd");
    }
    
    // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ ±¸ºÐ
    var nCheckPerPrint = lf_CheckPerPrint(formcd);
    
    model.makeValue("/root/send/reqdata/hardcdno", "1114"); //  Áø´Ü¼­ ¹ßÇà½Ã º¸ÇèÀ¯Çüº°·Î ´Ù¸£°Ô Ãâ·ÂµÇ´Â ¼­½Ä
		submit("TRMRF03104");
		
		var rexid = "";
		
		if(model.getValue("/root/main/hardcdlist[trgtcd="+ formcd +"]/trgtcd") != "")
		{
		  if(model.getValue("/root/main/hardcdlist[trgtcd="+ formcd +"]/trgtcdnm") == "Áø·áÀÇ·Ú¼­")
		  {
  			var hospcd = fGetHospitalCode();
  
  			var insukind = model.getValue("/root/main/result/pathistlist/insukind");

  			if(insukind == "11" || insukind == "81")    // °Ç°­º¸ÇèÀÎ °æ¿ì
  			{
  			  var tmpformcd = formcd.substr(5, 5);
  			  rexid = "RFM" + tmpformcd + "01"; 
  			}
  			else  // °Ç°­º¸ÇèÀÌ ¾Æ´Ñ °æ¿ì
  			{
  			  // ȯÀÚÀÇ ÀÚ°ÝÀ» Á¶È¸.
  			  fGetPatInsuranceInfo();
  			  
  			  var InsuranceInfoList = findNodeset(model, "/root/main/patinsuranceinfo");
  			  
  			  if(InsuranceInfoList.length > 0)
  			  {
  				var patInsuranceInfo = InsuranceInfoList.item(0);
  				var proccorpcd = patInsuranceInfo.selectSingleNode("proccorpcd").text;  //µî·Ï¹øÈ£
  				var hngnm = patInsuranceInfo.selectSingleNode("hngnm").text;          //ȯÀÚ¸í
  				var qualflag = patInsuranceInfo.selectSingleNode("qualflag").text;      //Àڰݱ¸ºÐ
  				var hshdnm = patInsuranceInfo.selectSingleNode("hshdnm").text;          //¼¼´ëÁÖ¼º¸í
  				var secuinstmark = patInsuranceInfo.selectSingleNode("secuinstmark").text;  //º¸Àå±â°ü±âÈ£
  				var estmmark = patInsuranceInfo.selectSingleNode("estmmark").text;          //½Ã¼³±âÈ£(Áõ¹øÈ£)
  				var ownbflag = patInsuranceInfo.selectSingleNode("ownbflag").text;          //º»Àκδ㱸ºÐ
  				var choicorpmark1 = patInsuranceInfo.selectSingleNode("choicorpmark1").text;    //¼±Åñâ°ü±âÈ£1
  				var choicorpmark2 = patInsuranceInfo.selectSingleNode("choicorpmark2").text;    
  				var choicorpmark3 = patInsuranceInfo.selectSingleNode("choicorpmark3").text;
  				var choicorpmark4 = patInsuranceInfo.selectSingleNode("choicorpmark4").text;
  				var choicorpnm1 = patInsuranceInfo.selectSingleNode("choicorpnm1").text;      //¼±Åñâ°üÀ̸§1
  				var choicorpnm2 = patInsuranceInfo.selectSingleNode("choicorpnm2").text;
  				var choicorpnm3 = patInsuranceInfo.selectSingleNode("choicorpnm3").text;
  				var choicorpnm4 = patInsuranceInfo.selectSingleNode("choicorpnm4").text;
  				
  				model.makeValue("/root/send/reqdata/hardcdno", "1115"); // ÀÇ·á±Þ¿©ÀÇ·Ú¼­ ¹ß±Þ ±âÁØ(Áø·áÀÇ·Ú¼­½Ä) 
  				submit("TRMRF03104");
  				
  				// 1) º»Àκδã¸éÁ¦ Ç׸ñÀÌ ºñ¾îÀְųª, º»Àκδã¸éÁ¦ Ç׸ñÀÌ ÀÖÀ¸¸é¼­ ÇØ´ç Äڵ尡 M003~M010 -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­: RFM0534002_ÀÇ·á±Þ¿©ÀÇ·Ú¼­002.rex
  				if(ownbflag == "" || (ownbflag != "" && model.getValue("/root/main/hardcdlist[trgtcd="+ ownbflag +"]/trgtcd") != "") )
  				{
  				  var tmpformcd = formcd.substr(5, 5);    
  				  rexid = "RFM" + tmpformcd + "02"; 
  				}
  				else
  				{
  					model.makeValue("/root/send/reqdata/hardcdno", "1116"); // ÀÇ·á±Þ¿©ÀÇ·Ú¼­ ¹ß±Þ ±âÁØ(Áø·áÀÇ·Ú¼­½Ä) 
  					submit("TRMRF03104");
  				  
  					if(model.getValue("/root/main/hardcdlist[trgtcd="+ ownbflag +"]/trgtcd") != "")		
  					{
  						var choicorpmark = "";
  						var selected = false;
  						for(var idx = 1; idx <= 4; idx++)
  						{
  							choicorpmark = "";
  							switch(idx)
  							{
  								case 1: choicorpmark = choicorpmark1;
  									break;
  								case 2: choicorpmark = choicorpmark2;
  									break;
  								case 3: choicorpmark = choicorpmark3;
  									break;
  								case 4: choicorpmark = choicorpmark4;
  									break;
  							}
  							
  							if(choicorpmark == hospcd)
  							{
  								selected = true;
  								break;
  							}
  						}
  								
  						// 2) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖ´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(¼±Åñâ°ü¹ßºÎ¿ë): RFM0534003_ÀÇ·á±Þ¿©ÀÇ·Ú¼­003.rex
  						if(selected == true)
  						{  
  							var tmpformcd = formcd.substr(5, 5);
  							rexid = "RFM" + tmpformcd + "03";
  						}
  						// 3) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖÁö ¾Ê´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(ÀÇ·ÚÁø·á±â°ü¿¡ "B006"À¸·Î ÂïÈû): RFM0534004_ÀÇ·á±Þ¿©ÀÇ·Ú¼­004.rex
  						else
  						{ 
  							var tmpformcd = formcd.substr(5, 5);    
  							rexid = "RFM" + tmpformcd + "04"; 
  						}
  					}
  				}
  			  }
  			  else
  			  {
	  				messageBox("ȯÀÚÀÇ ÀÇ·áÀÚ°ÝÁ¶È¸ Á¤º¸", "E013");
	  				return;
  			  }
  			}    
		  }   
		}
		else
		{
		  //¼­½Ä µÎ¹ø° Äڵ尡 8ÀÎ °æ¿ì,
			if(formcd.charAt(1)=="8")
			{
				formcd = formcd.substr(7, 3);
				rexid = "RFM" + "80" + formcd + "00";
			}
			else if (formcd.charAt(0) == "1")		// knuh_20110118 Ãß°¡
			{
				var precd = formcd.substr(0, 2);
				formcd = formcd.substr(5, 5);
				rexid = "RFM" + precd + formcd;
			}
			else
			{
				formcd = formcd.substr(5, 5);
				var rexid = "RFM" + formcd + "00";  
			}  
		}

    if(model.getValue("/root/main/emptyform") == "empty")
    {
      // º´¿ø¸í, ÀüÈ­¹øÈ£, ÁÖ¼Ò, fax, ¿ä¾ç±â°ü±âÈ£
      var instcd = getUserInfo("dutplceinstcd");
      
      copyNodeset("/root/main/recinfo", "/root/temp/recinfo", "replace", model, ivwCtrl.model);
      copyNodeset("/root/viewform/forminfo", "/root/main/forminfo", "replace", model, ivwCtrl.model);
      
      model.removenode("/root/hidden/docinfo/signimge");
      
      // Çʼö Ç׸ñÀ¸·Î µî·ÏµÈ rectermcd¸¦ »èÁ¦ÇÑ´Ù.
      var rectermcdList = findNodeset(model, "/root/main/recinfo/recitem[rectermcd !='']");

      for(var recidx = 0;  recidx < rectermcdList.length; recidx++)
      {
      	var recitemNode = rectermcdList.item(recidx);
      	
      	if(recitemNode.selectSingleNode("rectermcd") != null)
					recitemNode.selectSingleNode("rectermcd").text = "";
      }
      
      var formcd   = model.getValue("/root/viewform/forminfo/formmast" + "/formcd");
			var langflag = model.getValue("/root/viewform/forminfo/formmast" + "/langflag");	
      
      fSetHospInfo(instcd, formcd, langflag);
      //copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);
      //model.makeValue("/root/hidden/docinfo/signimge", ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));
    }
    else
    {
      copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);
      model.makeValue("/root/hidden/docinfo/signimge", ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));
  
      //Áø´ÜÄÚµå 3ÀÚ¸®¸¶´Ù Á¡(.)Ç¥½Ã
      var totcnt = getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[degnitemlevlcd='0016650.0000960.0000960']");
      for(var i = 0; i < totcnt; i++){
          var rectermcd = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd");
          rectermcd = removeChar(rectermcd, ".");    //Á¡À» Á¦°Å
          rectermcd = insertChar(rectermcd, ".", 3); // 3°³ ´ÜÀ§·Î Á¡À» ÀÔ·Â
          model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd", rectermcd);
      }
    }
    
    // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎ ¼­¸í Ãß°¡ ¹× À̹ÌÁö ÀúÀå
	if( nCheckPerPrint == "Y" && model.getValue("/root/main/emptyform") != "empty"){
		lf_getPerSignData();
		if( model.instance1.selectSingleNode("/root/persigntemp/memo/memo/elctsigncnts") != null ){
			model.makeValue("/root/hidden/signinfo/signimge", model.getValue("/root/persigntemp/memo/memo/elctsigncnts"));
		}
	}else{
		model.removenode("/root/hidden/signinfo/signimge");
	}
    
    exeReportPreview(rexid, "XMLSTR", "", "", "true", "", "", "", "", "true","", "", "", "", "hidden", 1); //Ãâ·Â  
    
    if(model.getValue("/root/main/emptyform") == "empty")	// »èÁ¦Çß´ø ³ëµå º¹¿ø
    {
    	if( swc_prof.selectedIndex == 2 && getParameter("reportprintyn") == "Y" ){
    		cbf_SetPrePrntInfo(30);
    	}
    	
    	copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);
    	model.makeValue("/root/hidden/docinfo/signimge", ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));
    }else{
    	if( swc_prof.selectedIndex == 2 && getParameter("reportprintyn") == "Y" ){
    		cbf_SetPrePrntInfo(20);
    	}
    }
}

/**
* @desc   : Á¦Áõ¸í¸®½ºÆ® ¹ß±Þ
* @
* @param  : flag - 20: ¹ßÇà / 30: Àç¹ßÇà / 40: ÀçÃâ·Â
* @return :
* @author :
* @---------------------------------------------------
*/
function fPrintProflist(flag){
    if(btn_tabprofhist.selected != true){
        messageBox("Á¦Áõ¸íÀÌ·Â ÅÇÀ¸·Î À̵¿", "I008");
        return;
    }

    var currow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
    if(currow < 1){
        messageBox("¹ß±ÞÇÒ Á¦Áõ¸í ¼­½ÄÀ»", "C001");
        return;
    }

    var issstat = model.getValue("/root/main/profhist/list[" + currow + "]/issstat"); //ÀÎÁõ»óÅÂ
    if(issstat == "R"){
        messageBox("ÀÎÁõµÇÁö ¾ÊÀº Á¦Áõ¸í ¼­½ÄÀ» Ãâ·Â", "");
        return;
    }

    var prntcnt = model.getValue("/root/main/issinfo/isscnt");
    if(prntcnt == 0){
        messageBox("¹ßÇàºÎ¼ö´Â ÇÑÀå ÀÌ»ó¸¸ Ãâ·Â", "I006");
        return;
    }
    
    var pageInfo = new PAGEINFO();
    var profcertseq = model.getValue("/root/main/profhist/list[" + currow + "]/profcertseq");
    var lformrecseq = model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq");
    var rformrecseq = ivw_loader.model.getValue(pageInfo.recMastRef + "/formrecseq");
    
    if (lformrecseq != rformrecseq) {
			messageBox("Á¿ìÀÇ ¼­½ÄÀÌ Æ²¸³´Ï´Ù. ´Ù½Ã ¼±ÅÃÇϽñ⠹ٶø´Ï´Ù","I");
			return;
		}
    
    
 
    
		
		//»èÁ¦¿©ºÎüũ
		model.makeValue("/root/send/reqdata/profcertseq",profcertseq);
		
		submit("TRMMR05505",false);
		
		var delyncnt = model.getValue("/root/hidden/delyn/cnt");
		
		//È­¸éÀÌ old
		if (delyncnt != 0) {
			messageBox("Á¦Áõ¸íÀÌ »èÁ¦µÇ¾î ¹ßÇà ºÒ°¡ÇÕ´Ï´Ù","I999");
			return ;
		}
		
		
   
    // 2014.04.09 CYW ¹ßÇà½Ã, Áø·áºÎ¼­, Áø·áÀÇÀÇ »óÅ Á¶È¸ Start ------------------------------------------------------------
    // ºÎ¼­°¡ »ç¿ë°¡´ÉÇÑ »óÅÂÀÎÁö, Áø·áÀÇÀÇ °èÁ¤ÀÌ »ì¾ÆÀÖ´ÂÁö
    
    model.removeNode("/root/send/chngissinfo");
    model.makeNode("/root/send/chngissinfo");
    model.makeValue("/root/send/chngissinfo/issvaliinfoflag", "N");
    model.makeValue("/root/send/chngissinfo/orddeptcd", "");
		model.makeValue("/root/send/chngissinfo/orddoctid", "");
	    
		model.removenode("/root/send/isspara");
		model.removenode("/root/issvaliinfo");
		model.makeNode("/root/send/isspara");
		model.makeNode("/root/issvaliinfo");
	
		model.makeValue("/root/send/isspara/instcd"			, getUserInfo("dutplceinstcd"));
		model.makeValue("/root/send/isspara/pid"				, model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
		model.makeValue("/root/send/isspara/ioflag"			, model.getValue("/root/main/profhist/list[" + currow + "]/ioflag"));
		model.makeValue("/root/send/isspara/orddd"			, model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));
		model.makeValue("/root/send/isspara/orddrid"		, model.getValue("/root/main/profhist/list[" + currow + "]/orddrid"));
		model.makeValue("/root/send/isspara/cretno"			, model.getValue("/root/main/profhist/list[" + currow + "]/cretno"));
		model.makeValue("/root/send/isspara/orddeptcd"	, model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd"));
	
    if( submit("TRMMR06505") ){
    	
    	// ºÎ¼­Á¤º¸ ¿À·ù
    	if( model.getValue("/root/issvaliinfo/issdeptinfo/deptvaliyn") == "N" ){
    		//messageBox("¹ßÇàºÎ¼­¸¦ ´Ù½Ã ¼±ÅÃÇØ ÁֽʽÿÀ.", "C999");
    		model.setValue("/root/send/chngissinfo/issvaliinfoflag", "Y");
    		
    		setParameter("SPMMR06503_pid"		  			, model.getValue("/root/main/profhist/list[" + currow + "]/pid") );
    		setParameter("SPMMR06503_orddeptcd"	 		, model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd") );
    		setParameter("SPMMR06503_switflag"	 			, "dept" );
    		setParameter("SPMMR06503_vieworddeptcd"	, "" );
    		
    		modal("SPMMR06503");
    		
    		if(  model.getValue("/root/send/chngissinfo/orddeptcd") == "" ){
    			messageBox("¹ßÇàºÎ¼­¸¦ ¼±ÅÃÇϽŠÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
    			return;
    		}
    		
    		setParameter("SPMMR06503_switflag"	 			, "orddrid" );
    		
    		// ¼±ÅÃÇÑ ¹ßÇà°ú°¡ ÀÖ´Ù¸é ÇØ´ç ¹ßÇà°úÀÇ ÀÇ»ç¸ñ·ÏÀ» °¡Á®¿À±âÀ§ÇÑ ÆĶó¸ÞŸ
    		if( model.getValue("/root/send/chngissinfo/orddeptcd") != ""  ){
    			setParameter("SPMMR06503_vieworddeptcd"	 		, model.getValue("/root/send/chngissinfo/orddeptcd") );	
    		}
    		
    		modal("SPMMR06503");
    		
    		if(  model.getValue("/root/send/chngissinfo/orddoctid") == "" ){
    			messageBox("¹ßÇàÀǻ縦 ¼±ÅÃÇϽŠÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
    			return;
    		}    	    		
    	}
    	
    	
    	// ÀÇ»çÁ¤º¸ ¿À·ù
    	if( model.getValue("/root/issvaliinfo/issdridinfo/orddridvaliyn") == "N" ){
    		if( model.getValue("/root/issvaliinfo/issdridinfo/msgtxt") != null && model.getValue("/root/issvaliinfo/issdridinfo/msgtxt") != "" ){
    			messageBox("¹ßÇàÀǻ縦 ´Ù½Ã ¼±ÅÃÇØÁֽʽÿÀ. ¡¼ " + model.getValue("/root/issvaliinfo/issdridinfo/msgtxt") + " ¡½" , "C999");
    		}
    		model.setValue("/root/send/chngissinfo/issvaliinfoflag", "Y");
    		setParameter("SPMMR06503_pid"		  			, model.getValue("/root/main/profhist/list[" + currow + "]/pid") );
    		setParameter("SPMMR06503_orddeptcd"	 		, model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd") );
    		setParameter("SPMMR06503_switflag"	 			, "orddrid" );
    		setParameter("SPMMR06503_vieworddeptcd"	, "" );
    		
    		// ¼±ÅÃÇÑ ¹ßÇà°ú°¡ ÀÖ´Ù¸é ÇØ´ç ¹ßÇà°úÀÇ ÀÇ»ç¸ñ·ÏÀ» °¡Á®¿À±âÀ§ÇÑ ÆĶó¸ÞŸ
    		if( model.getValue("/root/send/chngissinfo/orddeptcd") != ""  ){
    			setParameter("SPMMR06503_vieworddeptcd"	 		, model.getValue("/root/send/chngissinfo/orddeptcd") );	
    		}else{
    			setParameter("SPMMR06503_vieworddeptcd"	 		, model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd") );
    		}
    		
    		modal("SPMMR06503");
    		
    		if(  model.getValue("/root/send/chngissinfo/orddoctid") == "" ){
    			messageBox("¹ßÇàÀǻ縦 ¼±ÅÃÇϽŠÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
    			return;
    		}    		
    	}
    	
    	
    	/*getUserStateMsg : »ç¿ëÀÚ ÀϹÝÀÇ, ÅðÁ÷ÀÇ Á¶È¸*/
    	var deptcd = model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd");
    	
    	model.setValue("/root/send/msg/userid", model.getValue("/root/main/profhist/list[" + currow + "]/orddrid"));
    	model.setValue("/root/send/msg/deptcd", deptcd);
    	
    	submit("TRMMR00001");
    	
    	var chk_msg = model.getValue("/root/main/msg/msg/chk_msg");
    	var nodecnt = getNodesetCount("/root/main/msg/msg");
    	
    	if( nodecnt > 0 ){ 
    		messageBox(chk_msg, "E");
    		
    		setParameter("SPMMR06503_pid", model.getValue("/root/main/acptoccinfo/otpt_pid") );
    		setParameter("SPMMR06503_orddeptcd", deptcd );
    		setParameter("SPMMR06503_vieworddeptcd", deptcd );
    		setParameter("SPMMR06503_switflag"	 			, "orddrid" );
    		
    		modal("SPMMR06503");
    		
    		if(  model.getValue("/root/send/chngissinfo/orddoctid") == "" ){
    			messageBox("¹ßÇàÀǻ縦 ¼±ÅÃÇϽŠÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
    			return;
    		}else{
    			 var orddrid = model.getValue("/root/send/chngissinfo/orddoctid");
    		}
    	}
    }
    
    // ------------------------------------------------------------------------------------------------------------------------
    
    var formcd    = model.getValue("/root/main/profhist/list[" + currow + "]/formcd");
    var srcformcd    = model.getValue("/root/main/profhist/list[" + currow + "]/srcformcd");
    var formdegnseq   = model.getValue("/root/main/profhist/list[" + currow + "]/formdegnseq");
    var issdt   = model.getValue("/root/main/profhist/list[" + currow + "]/issdt");
    
    
    // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ ±¸ºÐ
    var nCheckPerPrint = lf_CheckPerPrint(srcformcd);
    // 2016.06.17 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ ȯÀÚ, °ü°è ÀÔ·Â Á¦¾î[¿äû¹øÈ£:20160617006]
    if( nCheckPerPrint == "Y" ){
			var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0001654");
			if( isNull(itemVal.reccnts) ){
				//messageBox("ȯÀÚ(¶Ç´Â º¸È£ÀÚ) ÀÔ·Â ÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
				//return;
			}
			itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0005964");
			if( isNull(itemVal.reccnts) ){
				//messageBox("°ü°è ÀÔ·Â ÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
				//return;
			}
	  }
    

    if( nCheckPerPrint == "Y" ){ 
  	   // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎÁ¤º¸ µ¿ÀǼ­ Ãâ·Â -> ¼Ò½ºÀ§Ä¡¼öÁ¤(20170920)
       lf_CheckPrintOCR(currow);
       var sPerprintyn = model.getValue("/root/ocrtemp/perprintyn");
	
			 //°³ÀÎÁ¤º¸µ¿ÀǼ­¸¦ ¹ÞÀ» ´ë»óÀÚ¿¡ ÇÑÇؼ­
			 if( sPerprintyn == "N" ) {
				 var rtntag = getParameter("SSMRC03160_param_rtnocrtag");
	       if (rtntag == 0 || rtntag == "") {
						messageBox("µ¿ÀǼ­ ¹ßÇà½Ã ¿À·ù!","E");
						return;
				 }
			 }
    }
    
    //½Ã½ºÅÛ on ÀÌ°í ÇØ´ç¼­½ÄÀ϶§:20171130 ÀÌÀ±ÁÖ
		if (fContainsHardCD("6008", formcd)&& fContainsHardCD("6009", "Y")) {
			//Áø·áÁ¤º¸±³·ùµ¿ÀÇ ¿©ºÎ ÆľÇ
			model.removeNodeset("/root/main/hiepatlist");
			model.removeNodeset("/root/main/consentlist");
			model.removeNodeset("/root/main/cdainfo");
			
			var consentyn = "N";
			model.makeValue("/root/send/cond/ssnnumber",model.getValue("/root/main/profhist/list[" + currow + "]/ssnnumber"));
			model.makeValue("/root/send/cond/reqdeptno",model.getValue("/root/main/profhist/list[" + currow + "]/reqdeptno"));
			model.makeValue("/root/send/cond/formrecseq",model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq"));
			model.makeValue("/root/send/cond/pid",model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
			
			if(submit("TRARC01415") == false ){
				return;
			}
			
			//Áø·á±³·ù ´ë»ó¿©ºÎ
			var hiepatyn = model.getValue("/root/main/hiepatlist/hiepatyn");
			
			//Áø·á±³·ù µ¿ÀÇ¿©ºÎ
			var consentyn = model.getValue("/root/main/consentlist/consentyn");
			
			var consentpid = model.getValue("/root/main/profhist/list[" + currow + "]/pid");
			
		  //µ¿ÀǼ­ ¾ø°Å³ª öȸ µÇ¾ú´Ù¸é	 && ¿¹¿ÜȯÀÚ Á¦¿Ü			
		  if ( consentyn != "Y" && !fContainsHardCD("6019", consentpid)) {
		  	
		  	if ( issdt > "20171129180000" && srcformcd == "0000002536" ) {
		  	
			  	if (formcd == "1700019854" && formdegnseq >= 1700082464 ) {
			  		var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012160");
				    var gbn = itemVal.rectermcd ;
				    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012160.0012159.0012164");
				    var relation = itemVal.reccnts ;
				    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012160.0012159.0012162");
				    var fname = itemVal.reccnts ;
				    		    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012160.0012159.0012163");
			  	}
			  	else if (formcd == "1700019834" && formdegnseq >= 1700082441 ) {
				  	var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012165");
				    var gbn = itemVal.rectermcd ;
				    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012165.0012164.0005964");
				    var relation = itemVal.reccnts ;
				    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012165.0012164.0012166");
				    var fname = itemVal.reccnts ;
				    		    
				    var itemVal = ivw_loader.ivw_base.window.javascript.getFormItemValue("0012165.0012164.0012167");
		        var phone = itemVal.reccnts ;	
		      }
	        
	        if (isNull(gbn)) {
	        	messageBox("ȯÀÚ(¶Ç´Â °¡Á·) ÀÔ·Â ÈÄ ÁøÇàÇØÁֽʽÿÀ.", "C999");
	        	return;
	        }
	        //°¡Á·
	        if (gbn == "0021027001") {
	        	if( isNull(relation) ){
							messageBox("°ü°è ÀÔ·Â ÈÄ ÁøÇàÇØ ÁֽʽÿÀ.", "C999");
							return;
						}
						if( isNull(fname) ){
							messageBox("À̸§ ÀÔ·Â ÈÄ ÁøÇàÇØ ÁֽʽÿÀ.", "C999");
							return;
						}
						if( isNull(phone) ){
							messageBox("ÀüÈ­¹øÈ£ ÀÔ·Â ÈÄ ÁøÇàÇØ ÁֽʽÿÀ.", "C999");
							return;
						}
						var tag3 = "FAMILY";
				  } else if (gbn == "0000475001") {
				  	var tag3 = "MYSELF";
				  }
				}
				else {
					tag3 = "MYSELF";
				}
				
				var tag3_kr = "";
				
			  if (tag3 == "MYSELF") {
			  	tag3_kr = "º»ÀÎ";
			  }
			  else if(tag3 == "FAMILY") {
			  	tag3_kr = "°¡Á·";
			  }
          	
		  	setParameter("SSMRC03160_param_instcd", getUserInfo("dutplceinstcd"));
				setParameter("SSMRC03160_param_patid",  model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
				setParameter("SSMRC03160_param_indate", model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));
				setParameter("SSMRC03160_param_cretno", model.getValue("/root/main/profhist/list[" + currow + "]/cretno"));
				setParameter("SSMRC03160_param_class",  model.getValue("/root/main/profhist/list[" + currow + "]/ioflag"));
				setParameter("SSMRC03160_param_tag1",  model.getValue("/root/main/patinfo/hngnm"));	// ȯÀÚ ¶Ç´Â ¹ýÁ¤´ë¸®ÀÎ ¼º¸í
				setParameter("SSMRC03160_param_tag3",  tag3_kr);	
				setParameter("SSMRC03160_param_flag",   "G");
				setParameter("SSMRC03160_param_cuser",  getUserInfo("userid"));
				setParameter("SSMRC03160_param_docucd", "1600018738");   //Áø·áÁ¤º¸ ±³·ù µ¿ÀǼ­
				modal("SSMRC03160");
				var rtnocrtag = getParameter("SSMRC03160_param_rtnocrtag");
				
				//µ¿ÀǼ­ ¿À·ù
				if (rtnocrtag == 0 || rtnocrtag == "") {
					messageBox("µ¿ÀǼ­ ¹ßÇà½Ã ¿À·ù! Áø·áÇù·Â¼¾ÅÍ·Î ¹®ÀÇÇϽñ⠹ٶø´Ï´Ù","I");
					return;
				}
				
				//hie µ¿ÀÇÁ¤º¸Àü¼Û
				model.makeValue("/root/send/save/name",model.getValue("/root/main/patinfo/hngnm"));
				model.makeValue("/root/send/save/relationship",tag3);
				model.makeValue("/root/send/save/instcd",getUserInfo("dutplceinstcd"));
				model.makeValue("/root/send/save/patid",model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
				model.makeValue("/root/send/save/formrecseq",model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq"));
				model.makeValue("/root/send/save/documenttype","1.2.410.100110.40.2.2.1.1");
				
				submit("TXARH01101",false);
				
				var sendCnt = getNodesetCnt(model, "/root/main/cdainfo");  // Àü¼Û¼º°ø¿©ºÎ ÆľÇ
			  
			  //Àü¼Û½ÇÆнà ¸®ÅÏ 
		  	if(sendCnt == 0){
					return;
				}
				
			}
		}
    
    //20120911 ÀÌÀ±ÁÖ ¼öÁ¤(¼­½Ä¿ëµµº¯°æ °¡´É¿©ºÎ)
    
    if (flag == "30" || flag == "40" )
    {
    	
    	//¿ëµµº¯°æ ¾ÆÀÌÅÛ Á¸ÀçÀ¯¹«
			var goalexistcnt = getNodesetCnt(ivw_loader.ivw_base.model,"/root/main/recinfo/recitem[degnitemcd='0036539001']");
			
			if ( goalexistcnt > 0) {
			  model.removeNodeset("/root/goal");
      	var rechistseq = ivw_loader.ivw_base.model.getValue("/root/hidden/recinfo/recitem/rechistseq");
	    	fgetGoal(rechistseq);
	    	//DB
				var goal = model.getValue("root/goal/val/goal");
				//È­¸é
				var changegoal = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemcd='0013100001']/reccnts");
				
				if ( goal != changegoal ){
					if ( fIsOkGoal(rechistseq) == "false") {
		    		messageBox("¿ëµµº¯°æÀÌ ºÒ°¡ÇÕ´Ï´Ù","I999");
		    		return;
		    	}
		    }
		  }
    }
    
    model.makeValue("/root/main/profhist/list[" + currow + "]/issflag"   , flag);                  //¹ßÇ౸ºÐ(10:¹Ì¹ßÇà, 20:¹ßÇà, 30:Àç¹ßÇà, 40:ÀçÃâ·Â)
    model.makeValue("/root/main/profhist/list[" + currow + "]/prntuserid", getUserInfo("userid")); //Ãâ·Â»ç¿ëÀÚID
    model.makeValue("/root/main/profhist/list[" + currow + "]/prntdt"    , getCurrentDate().concat(getCurrentTime())); //Ãâ·ÂÀϽÃ
    model.makeValue("/root/main/profhist/list[" + currow + "]/deluserid" , "");      //»èÁ¦»ç¿ëÀÚID
    model.makeValue("/root/main/profhist/list[" + currow + "]/deldt"     , "");      //»èÁ¦ÀϽÃ
    model.makeValue("/root/main/profhist/list[" + currow + "]/prntcnt"   , prntcnt); //Ãâ·ÂȽ¼ö
    grd_profhistlist.rebuild();

    model.removeNodeset("/root/send/reqdata");
    model.makeNode("/root/send/reqdata");
    model.setValue("/root/main/profhist/list[" + currow + "]/freeissresn", "");
    copyNodeset("/root/send/reqdata/profhist", "/root/main/profhist/list[" + currow + "]"); //ÀúÀå instance¿¡ º¹»ç
   
    var pid       = model.getValue("/root/main/profhist/list[" + currow + "]/pid");
    
    // KNUH_20110504_¼öÁ¤(ȯÀÚ ¼öÁøÀÏÀÚ·Î Áø·á°ú, Áø·áÀǻ縦 ¼ÂÆÃ)
    //var orddeptcd = model.getValue("/root/main/profhist/list[" + currow + "]/issdeptcd");
    //var orddrid   = model.getValue("/root/main/profhist/list[" + currow + "]/issid");
    var orddeptcd = model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd");
    var orddrid   = model.getValue("/root/main/profhist/list[" + currow + "]/orddrid");
    
    var issdd     = model.getValue("/root/main/profhist/list[" + currow + "]/issdt").substring(0, 8);
    issdd = issdd.substring(0, 4) + "-" + issdd.substring(4, 6) + "-" + issdd.substring(6, 8);

    //»ç¸ÁÁø´Ü¼­ ¹ß±ÞÀÎ °æ¿ì, ÀÔ¿øȯÀÚÀÇ Åð¿øºñ ¼ö³³¿©ºÎ È®ÀÎ ÇÔ.
    if(formcd == "0000001314"){
        var indschacptstat = model.getValue("/root/main/result/pathistlist/indschacptstat");
        
        //2009-06-26 ¿ÀÈÄ 12:20:46 °­ÁöÈÆ ¼öÁ¤ 
        if(indschacptstat != "D" && indschacptstat != "R"){
            messageBox("Åð¿øºñ Á¤»êÀÌ ÇÊ¿äÇÑ È¯ÀÚ", "E008");
        }
    }
    
    if( model.getValue("/root/send/chngissinfo/issvaliinfoflag") == "Y" ){
        if ( model.getValue("/root/send/chngissinfo/orddeptcd") != "" ){
        	orddeptcd = model.getValue("/root/send/chngissinfo/orddeptcd"); 
        }
        
        if( model.getValue("/root/send/chngissinfo/orddoctid") != "" ){
        	orddrid = model.getValue("/root/send/chngissinfo/orddoctid");
        }    	
    } 

    //¿ø¹«Á¤º¸ ¼³Á¤, µî·Ï¹øÈ£, Áø·áÀÏÀÚ, Áø·á°ú, Áø·áÀÇ, Áø·á½Ã°£
    fSetOtptPamInfo(pid, getCurrentDate(), orddeptcd, orddrid, "0000");
    copyNodeset("/root/send/reqdata/acptoccinfo", "/root/main/acptoccinfo"); //¿ø¹«Á¤º¸ ÀúÀå instance¿¡ º¹»ç

    //Á¦Áõ¸í ¼ö°¡Á¤º¸ Á¶È¸
    if(fSrchCalcScor(formcd)==false){
        return;
    }

    //ó¹æIF¿¡ ´ã±æ Á¦Áõ¸í ó¹æÁ¤º¸¸¦ »ý¼º
    var nodecnt = getNodesetCount("/root/main/calcscorinfo/calcscorlist");
    if(nodecnt != 0){
        fCalsSorcSave(currow, nodecnt);
    }

    model.makeValue("/root/send/reqdata/status", "U");
    //model.makeValue("/root/hidden/issflag"     , flag); report¿¡ »çº»À̶ó´Â ¸Þ½ÃÁö¸¦ ¾È ÂïÈ÷±â Çϱâ À§ÇØ Ã³¸®ÇÔ

    //Ãâ·Â½Ã È£ÃâÇÒ REX report id¸¦ ¼³Á¤
    var ivwCtrl = ivw_loader.window.document.controls("ivw_base");
    var formcd = model.getValue("/root/main/profhist/list["+ currow +"]/formcd");


    // ¼­½ÄÀÌ Áø·áÀÇ·Ú¼­ÀÎ °æ¿ì
    /* ȯÀÚÀÇ º¸ÇèÀ¯Çü (Äڵ屺 P0008 ÂüÁ¶)
      11	°Ç°­º¸Çè
      21	ÀÇ·á±Þ¿©1Á¾
      22	ÀÇ·á±Þ¿©2Á¾
      31	ÀÚº¸
      41	Ȑˍ
      42	°ø»ó
      51	ÀϹÝ
      61	¿Ü±¹ÀÎ
      71	ÀÓ»ó½ÃÇè
      81	³ëÀÎÀå±â¿ä¾çº¸Çè
    */
    // ÀÇ·á±Þ¿©°¡ º¸ÇèÀΠȯÀÚ -> ¿ä¾ç±Þ¿©ÀÇ·Ú¼­: RFM0534001_¿ä¾ç±Þ¿©ÀÇ·Ú¼­001.rex
    // ÀÇ·á±Þ¿©°¡ º¸ÇèÀÌ ¾Æ´Ñ °Í
    // 1) º»Àκδã¸éÁ¦ Ç׸ñÀÌ ºñ¾îÀְųª, º»Àκδã¸éÁ¦ Ç׸ñÀÌ ÀÖÀ¸¸é¼­ ÇØ´ç Äڵ尡 M003~M010 -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­: RFM0534002_ÀÇ·á±Þ¿©ÀÇ·Ú¼­002.rex
    // 2) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖ´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(¼±Åñâ°ü¹ßºÎ¿ë): RFM0534003_ÀÇ·á±Þ¿©ÀÇ·Ú¼­003.rex
    // 3) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖÁö ¾Ê´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(ÀÇ·ÚÁø·á±â°ü¿¡ "B006"À¸·Î ÂïÈû): RFM0534004_ÀÇ·á±Þ¿©ÀÇ·Ú¼­004.rex    
    model.makeValue("/root/send/reqdata/hardcdno", "1114"); //  Áø´Ü¼­ ¹ßÇà½Ã º¸ÇèÀ¯Çüº°·Î ´Ù¸£°Ô Ãâ·ÂµÇ´Â ¼­½Ä
    submit("TRMRF03104");
    
    var rexid = "";
    if(model.getValue("/root/main/hardcdlist[trgtcd='"+ formcd +"']/trgtcd") != "")
    {
      if(model.getValue("/root/main/hardcdlist[trgtcd='"+ formcd +"']/trgtcdnm") == "Áø·áÀÇ·Ú¼­")
      {
        var hospcd = fGetHospitalCode();

        var insukind = model.getValue("/root/main/result/pathistlist/insukind");
        
        //var retList = findNodeset(model, "/root/hidden/insuinfo");
        
        if(insukind == "11" || insukind == "81")    // °Ç°­º¸ÇèÀÎ °æ¿ì
        {
          var tmpformcd = formcd.substr(5, 5);
          rexid = "RFM" + tmpformcd + "01"; 
        }
        else  // °Ç°­º¸ÇèÀÌ ¾Æ´Ñ °æ¿ì
        {
          // ȯÀÚÀÇ ÀÚ°ÝÀ» Á¶È¸.
          fGetPatInsuranceInfo();
          
          var InsuranceInfoList = findNodeset(model, "/root/main/patinsuranceinfo");
          
          if(InsuranceInfoList.length > 0)
          {
            var patInsuranceInfo = InsuranceInfoList.item(0);
            var proccorpcd = patInsuranceInfo.selectSingleNode("proccorpcd").text;  //µî·Ï¹øÈ£
            var hngnm = patInsuranceInfo.selectSingleNode("hngnm").text;          //ȯÀÚ¸í
            var qualflag = patInsuranceInfo.selectSingleNode("qualflag").text;      //Àڰݱ¸ºÐ
            var hshdnm = patInsuranceInfo.selectSingleNode("hshdnm").text;          //¼¼´ëÁÖ¼º¸í
            var secuinstmark = patInsuranceInfo.selectSingleNode("secuinstmark").text;  //º¸Àå±â°ü±âÈ£
            var estmmark = patInsuranceInfo.selectSingleNode("estmmark").text;          //½Ã¼³±âÈ£(Áõ¹øÈ£)
            var ownbflag = patInsuranceInfo.selectSingleNode("ownbflag").text;          //º»Àκδ㱸ºÐ
            var choicorpmark1 = patInsuranceInfo.selectSingleNode("choicorpmark1").text;    //¼±Åñâ°ü±âÈ£1
            var choicorpmark2 = patInsuranceInfo.selectSingleNode("choicorpmark2").text;    
            var choicorpmark3 = patInsuranceInfo.selectSingleNode("choicorpmark3").text;
            var choicorpmark4 = patInsuranceInfo.selectSingleNode("choicorpmark4").text;
            var choicorpnm1 = patInsuranceInfo.selectSingleNode("choicorpnm1").text;      //¼±Åñâ°üÀ̸§1
            var choicorpnm2 = patInsuranceInfo.selectSingleNode("choicorpnm2").text;
            var choicorpnm3 = patInsuranceInfo.selectSingleNode("choicorpnm3").text;
            var choicorpnm4 = patInsuranceInfo.selectSingleNode("choicorpnm4").text;
            
            model.makeValue("/root/send/reqdata/hardcdno", "1115"); // ÀÇ·á±Þ¿©ÀÇ·Ú¼­ ¹ß±Þ ±âÁØ(Áø·áÀÇ·Ú¼­½Ä) 
            submit("TRMRF03104");
            
            // 1) º»Àκδã¸éÁ¦ Ç׸ñÀÌ ºñ¾îÀְųª, º»Àκδã¸éÁ¦ Ç׸ñÀÌ ÀÖÀ¸¸é¼­ ÇØ´ç Äڵ尡 M003~M010 -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­: RFM0534002_ÀÇ·á±Þ¿©ÀÇ·Ú¼­002.rex
            if(ownbflag == "" || (ownbflag != "" && model.getValue("/root/main/hardcdlist[trgtcd='"+ ownbflag +"']/trgtcd") != "") )
            {
              var tmpformcd = formcd.substr(5, 5);    
              rexid = "RFM" + tmpformcd + "02"; 
            }
            else
            {
              model.makeValue("/root/send/reqdata/hardcdno", "1116"); // ÀÇ·á±Þ¿©ÀÇ·Ú¼­ ¹ß±Þ ±âÁØ(Áø·áÀÇ·Ú¼­½Ä) 
              submit("TRMRF03104");
              
              if(model.getValue("/root/main/hardcdlist[trgtcd='"+ ownbflag +"']/trgtcd") != "")		
    					{
    						var choicorpmark = "";
    						var selected = false;
    						for(var idx = 1; idx <= 4; idx++)
    						{
    							choicorpmark = "";
    							switch(idx)
    							{
    								case 1: choicorpmark = choicorpmark1;
    									break;
    								case 2: choicorpmark = choicorpmark2;
    									break;
    								case 3: choicorpmark = choicorpmark3;
    									break;
    								case 4: choicorpmark = choicorpmark4;
    									break;
    							}
    							
    							if(choicorpmark == hospcd)
    							{
    								selected = true;
    								break;
    							}
    						}
    						
    						// 2) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖ´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(¼±Åñâ°ü¹ßºÎ¿ë): RFM0534003_ÀÇ·á±Þ¿©ÀÇ·Ú¼­003.rex
    						if(selected == true)
    						{  
    							var tmpformcd = formcd.substr(5, 5);
    							rexid = "RFM" + tmpformcd + "03";
    						}
    						// 3) º»Àκδã¸éÁ¦ Ç׸ñÀÌ M001, M002, B001, B002 À̸鼭 ¼±Åñâ°ü±âÈ£¿¡ ÇØ´ç ±â°üÀÌ µé¾îÀÖÁö ¾Ê´Â °æ¿ì -> ÀÇ·á±Þ¿©ÀÇ·Ú¼­(ÀÇ·ÚÁø·á±â°ü¿¡ "B006"À¸·Î ÂïÈû): RFM0534004_ÀÇ·á±Þ¿©ÀÇ·Ú¼­004.rex
    						else
    						{ 
    							var tmpformcd = formcd.substr(5, 5);    
    							rexid = "RFM" + tmpformcd + "04"; 
    						}
              }
            }
          }
          else
          {
            messageBox("ȯÀÚÀÇ ÀÇ·áÀÚ°ÝÁ¶È¸ Á¤º¸°¡", "E013");
            return;
          }
        }    
      }   
    }
    else
    {
		//¼­½Ä µÎ¹ø° Äڵ尡 8ÀÎ °æ¿ì,
		if(formcd.charAt(1)=="8")
		{
			formcd = formcd.substr(7, 3);
			rexid = "RFM" + "80" + formcd + "00";
		}
		else if (formcd.charAt(0) == "1")		// knuh_20110118 Ãß°¡
		{
			var precd = formcd.substr(0, 2);
			formcd = formcd.substr(5, 5);
			rexid = "RFM" + precd + formcd;
		}
		else
		{
			formcd = formcd.substr(5, 5);
			var rexid = "RFM" + formcd + "00";  
		}  
    }
    
    //¿ëµµº¯°æÀÌ ÀԷµǴ ¼­½Ä¿©ºÎ¸¦ °Ë»ç
    var hardcd = model.getValue("/root/init/hardcd/hardcd[hardcd='" + formcd + "']/hardcd");
    if(hardcd != ""){
        //¿ëµµº¯°æ Á¤º¸°¡ ÀÖ´Â ¼­½Ä
        model.makeValue("/root/send/reqdata/profhist/prstusgeflag", "Y");

    }else{
        //¿ëµµº¯°æ Á¤º¸°¡ ¾ø´Â ¼­½Ä
        model.makeValue("/root/send/reqdata/profhist/prstusgeflag", "N");

    }
    
////////////////////////////////
// 2009.10.13 Á¦Áõ¸í Ãâ·Â ½Ã ƯÁ¤ ÇÁ¸°ÅÍ·Î Ãâ·Â Çϱâ À§ÇØ Ãß°¡

    var sPrinterName = model.getValue("/root/init/PAM/P0018list/P0018[cdid = '5']/cdnm"); 
    
    // Äڵ尡 Á¸ÀçÇÏÁö ¾Ê°Å³ª ÄÚµå¸í(ÇÁ¸°Å͵å¶óÀ̹ö¸í)ÀÌ null(¼³Á¤µÇÁö ¾ÊÀ½)ÀÏ ¶§´Â ±âº»ÇÁ¸°ÅÍ·Î Ãâ·ÂÇÒ ¼ö ÀÖµµ·Ï ¼³Á¤
    if (isNull(sPrinterName)) {
        sPrinterName = "true";
    } else {
    	    var sPrinterCheck = model.registry("HKEY_CURRENT_USER", "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Devices", sPrinterName, "STRING");
    	    
    	    if ( sPrinterCheck == "" )
    	    	sPrinterName = "true";
    }
    
//////////////////////
    if(flag == "30"){
    	model.makeValue("/root/send/reqdata/certmemo",  model.getValue("/root/tmp/certmemo"));
    	model.makeValue("/root/send/reqdata/elctsignkey",  model.getValue("/root/tmp/elctsignkey"));
    	model.makeValue("/root/send/reqdata/elctsigncnts",  model.getValue("/root/tmp/elctsigncnts"));
    }else{
    	model.removenode("/root/send/reqdata/certmemo");
    	model.removenode("/root/send/reqdata/elctsignkey");
    	model.removenode("/root/send/reqdata/elctsigncnts");
    }

    if(flag != "40"){ //ÀçÃâ·ÂÀÌ ¾Æ´Ñ °æ¿ì

    //2012/03/28 Start Á¦Áõ¸í Àç¹ßÇàÀÇ °æ¿ì ¹ßÇà¿ëµµ¸¦ ¹Ù²Ù¾î¼­ ÀúÀå 
    	if(flag=="30" && ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemcd='0013100001']/reccnts")!=""){
    		var issusge = model.getValue("/root/main/issusge");
			if(issusge != ""){
		    	issusge = issusge.split("¢Ì");
		    	var prstusge = issusge[1].split("¢Ë");
		    	model.setValue("/root/send/reqdata/profhist/prstusge", prstusge[0]); //¿ëµµ±¸ºÐ
			}
    	}
    //2012/03/28 End
  		  
        if(submit("TXMMR02905")){
            var yearseqno = model.getValue("/root/main/iss/yearseqno");
            
            if(yearseqno != ""){
                var itemVal = new ITEMVAL();
                itemVal.reccnts = yearseqno;
                ivw_loader.ivw_base.window.javascript.setFormItemValue("0008632", itemVal, true); //¹ßÇà ÈÄ ¿¬¹øÈ£ ¼³Á¤
            }

            copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);                    //¼­½ÄÁö Á¤º¸ ¼³Á¤

            model.makeValue("/root/hidden/docinfo/signimge", ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));   //¼­½Ä¼­¸íÀ̹ÌÁö ¼³Á¤

            //Ãâ·Â Report¾ç½Äó¸®, 1)Áø´ÜÄÚµå 3ÀÚ¸® Á¡(.)Âï±â 2)Ãâ·Â³»¿ëÀÌ ´Ã¾î³ª´Â °ÍÀ» ¹æÁöÇϱâ À§ÇØ Á¦Áõ¸í³»¿ë instance·Î ºÐ¸®
            fDoMakeProfPrntInfo(ivwCtrl);
            
            // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎ ¼­¸í Ãß°¡ ¹× À̹ÌÁö ÀúÀå
 			if( nCheckPerPrint == "Y" ){
 				if( flag == "30" && model.instance1.selectSingleNode("/root/send/reqdata/elctsigncnts") != null ){ // ÀçÃâ·Â
 					model.makeValue("/root/hidden/signinfo/signimge", model.getValue("/root/send/reqdata/elctsigncnts"));
 				}else{
 					lf_getPerSignData(currow);
 					if( model.instance1.selectSingleNode("/root/persigntemp/memo/memo/elctsigncnts") != null ){
 						model.makeValue("/root/hidden/signinfo/signimge", model.getValue("/root/persigntemp/memo/memo/elctsigncnts"));
 					}
 				}
 				
 			}
				exeReportPreview(rexid, "XMLSTR", "", "", sPrinterName , "", "", "", "", "true","", "", "", "", "hidden", prntcnt); //Ãâ·Â

        // OCR À̹ÌÁö ÀúÀå ·ÎÁ÷ Á¦°Å(20160512 ÀÌÀ±ÁÖ)
        // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎ ¼­¸í Ãß°¡ ¹× À̹ÌÁö ÀúÀå
        if( nCheckPerPrint == "Y" ){ 
        	
        	LTP_Init();
	        
	        // ±âÁ¸ÆÄÀÏ »èÁ¦ ÈÄ »ý¼º
		   		try{
		   			var fso, folderspec;
		   			folderspec = "c:\\report";
		   			fso = new ActiveXObject("Scripting.FileSystemObject");
		   			fso.DeleteFolder(folderspec);
		   			var a = fso.CreateFolder(folderspec);
		   			//a.close();
		   		}catch(e){
		   			//alert(e);
		   		}
	
	           exeReportPreview(rexid, "XMLSTR", "", "", "false" , "false", "jpeg", rexid, "0", "true","", "", "", "", "", ""); //Ãâ·Â
	           
	           model.refresh();
	           	
	           model.makeValue("/root/send/ocrtaginfo/pid"				, model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
	           model.makeValue("/root/send/ocrtaginfo/formcd"			, model.getValue("/root/main/profhist/list[" + currow + "]/formcd"));
	           model.makeValue("/root/send/ocrtaginfo/orddd"			, model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));
	           model.makeValue("/root/send/ocrtaginfo/profcertseq"	, model.getValue("/root/main/iss/profcertseq"));
	           
	           if( submit("TXMMR02910") ){        	
	           	model.copyNode("/root/main/ocrtaginfo", "/root/tmp/ocrtaginfo/ocrtaginfo");
	
	           	model.makeValue("/root/send/ocrtreat/patid"			, model.getValue("/root/main/profhist/list[" + currow + "]/pid"));
	           	model.makeValue("/root/send/ocrtreat/cretno"			, model.getValue("/root/main/profhist/list[" + currow + "]/cretno"));
	           	model.makeValue("/root/send/ocrtreat/indate"			, model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));
	           	model.makeValue("/root/send/ocrtreat/instcd"			, getUserInfo("dutplceinstcd") );
	           	model.makeValue("/root/send/ocrtreat/class"			, model.getValue("/root/main/profhist/list[" + currow + "]/ioflag"));
	           	model.makeValue("/root/send/ocrtreat/docucd"		, model.getValue("/root/main/profhist/list[" + currow + "]/formcd"));
	           	model.makeValue("/root/send/ocrtreat/formcd"		, model.getValue("/root/main/profhist/list[" + currow + "]/formcd"));
	           	model.makeValue("/root/send/ocrtreat/cuser"			, getUserInfo("userid") );
	           	model.makeValue("/root/send/ocrtreat/ocrtag"			, model.getValue("/root/main/ocrtaginfo/ocrtag"));            	
	           	model.makeValue("/root/send/ocrtreat/formfromdt"	, model.getValue("/root/main/ocrtaginfo/formfromdt"));
	           	model.makeValue("/root/send/ocrtreat/orddeptcd"	, model.getValue("/root/main/profhist/list[" + currow + "]/orddeptcd"));
	           	model.makeValue("/root/send/ocrtreat/orddrid"		, model.getValue("/root/main/profhist/list[" + currow + "]/orddrid"));
	           	
	           	ImageSave( model.getValue("/root/send/ocrtaginfo/formcd") , rexid );
	           }
	           //  cyw À̹ÌÁöÀúÀå 2013-12-09 End --------------------------------------------------------------------------------------------------------------------------------
	          
        	} 
        	
            model.makeValue("/root/main/newprof/formnm", "-"); //ÀÌ·Â ÀüüÁ¶È¸
            model.makeValue("/root/main/selectdept", "-");	   // 141114 - AYS Ãß°¡
           

            model.setValue("/root/main/issinfo/isscnt", "1");  //¹ß±ÞºÎ¼ö 1·Î ±âº» ¼³Á¤
        }
        fGetProfPrntHist();

    }else{
        copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);

        model.makeValue("/root/hidden/docinfo/signimge", ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));

        //Ãâ·Â Report¾ç½Äó¸®, 1)Áø´ÜÄÚµå 3ÀÚ¸® Á¡(.)Âï±â 2)Ãâ·Â³»¿ëÀÌ ´Ã¾î³ª´Â °ÍÀ» ¹æÁöÇϱâ À§ÇØ Á¦Áõ¸í³»¿ë instance·Î ºÐ¸®
        fDoMakeProfPrntInfo(ivwCtrl);

        // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎ ¼­¸í Ãß°¡ ¹× À̹ÌÁö ÀúÀå
 		if( nCheckPerPrint == "Y"){
 			lf_getPerSignData(currow);
 			if( model.instance1.selectSingleNode("/root/persigntemp/memo/memo/elctsigncnts") != null ){
				model.makeValue("/root/hidden/signinfo/signimge", model.getValue("/root/persigntemp/memo/memo/elctsigncnts"));
			}
 		}
        exeReportPreview(rexid, "XMLSTR", "", "", sPrinterName , "", "", "", "", "true","", "", "", "", "hidden", prntcnt);  //Ãâ·Â

        // 2016.06.15 Àü¿ø(ȸ¼Û)¼Ò°ß¼­ °³ÀÎÁ¤º¸ µ¿ÀǼ­ Ãâ·Â
        if( nCheckPerPrint == "Y" ){
        	lf_CheckPrintOCR(currow);
        }
        
        model.makeValue("/root/main/newprof/formnm", "-");
        model.makeValue("/root/main/selectdept", "-");	// 141114 - AYS Ãß°¡
        
        fGetProfPrntHist();

    }
    model.setValue("/root/main/issinfo/isscnt", "1"); //Ãâ·Â¸Å¼ö 1¸Å·Î Àû¿ë
    model.refresh();
}

/**
* @desc   : ¿ëµµÃß°¡ ¹öÆ° Ŭ¸¯½Ã, ¼±ÅÃµÈ Á¦Áõ¸íÀÇ ¿ëµµ¸¦ º¯°æÇÑ ÀÌ·ÂÀ» Ãß°¡
*           ¹ßÇà»óÅ´ ¹Ì¹ßÇà, ¿¬¹øÈ£´Â »ý¼ºµÇÁö ¾Ê´Â´Ù.
* @
* @param  :
* @return :
* @author : 2008. 08. 13. ¿ÀÁöÈÆ
* @---------------------------------------------------
*/
function fReqInsAddPrstUsge(){
    var currow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
    if(currow < 1){
        messageBox("¿ëµµ Ãß°¡ÇÒ Á¦Áõ¸í ¼­½ÄÀ»", "C001");
        return;
    }

    var prstusge    = "";
    var prstusgenm  = "¡Ø¿ëµµÃß°¡¡Ø\n[";
    var prstusgecnt = getNodesetCount("/root/temp/issusge/list");
    if(prstusgecnt == 0){
        return;
    }

    for(var i = 1; i <= prstusgecnt; i++){
        prstusge   += model.getValue("/root/temp/issusge/list[" + i + "]/cdid").concat("^");
        prstusgenm += model.getValue("/root/temp/issusge/list[" + i + "]/cdnm").concat("]\n[");
    }
    prstusgenm = prstusgenm.substring(0, prstusgenm.length-1); //¸¶Áö¸·ÀÇ '['¸¦ Á¦°Å

    var resval = messageBox(prstusgenm + "ÀÇ ¿ëµµ·Î", "Q008");
    if(resval == 6){ // '¿¹'¸¦ ¼±ÅÃÇÑ °æ¿ì, Ãß°¡µÈ ¿ëµµ ÀúÀå
        model.removeNodeset("/root/send/savedata");
        model.makeValue("/root/send/savedata/pid"        , model.getValue("/root/main/profhist/list[" + currow + "]/pid"));        //µî·Ï¹øÈ£
        model.makeValue("/root/send/savedata/orddd"      , model.getValue("/root/main/profhist/list[" + currow + "]/orddd"));      //Áø·áÀÏÀÚ
        model.makeValue("/root/send/savedata/cretno"     , model.getValue("/root/main/profhist/list[" + currow + "]/cretno"));     //»ý¼º¹øÈ£
        model.makeValue("/root/send/savedata/ioflag"     , model.getValue("/root/main/profhist/list[" + currow + "]/ioflag"));     //¿Ü·¡ÀÔ¿ø±¸ºÐ
        model.makeValue("/root/send/savedata/formcd"     , model.getValue("/root/main/profhist/list[" + currow + "]/formcd"));     //¼­½ÄÄÚµå
        model.makeValue("/root/send/savedata/issstat"    , model.getValue("/root/main/profhist/list[" + currow + "]/issstat"));    //¹ßÇà»óÅÂ(ÀÓ½Ã, ÀÎÁõÀúÀå)
        model.makeValue("/root/send/savedata/issid"      , model.getValue("/root/main/profhist/list[" + currow + "]/issid"));      //¹ßÇàÀÚID
        model.makeValue("/root/send/savedata/issdeptcd"  , model.getValue("/root/main/profhist/list[" + currow + "]/issdeptcd"));  //¹ßÇàÀÚID
        model.makeValue("/root/send/savedata/issdt"      , model.getValue("/root/main/profhist/list[" + currow + "]/issdt"));      //¹ßÇàÀϽÃ
        model.makeValue("/root/send/savedata/profcertseq", model.getValue("/root/main/profhist/list[" + currow + "]/profcertseq"));//ÀϷùøÈ£
        model.makeValue("/root/send/savedata/formrecseq" , model.getValue("/root/main/profhist/list[" + currow + "]/formrecseq")); //¼­½Ä±â·Ï¼ø¹ø
        model.makeValue("/root/send/savedata/issflag"    , "10");                                     //¹Ì¹ßÇà
        model.makeValue("/root/send/savedata/prstusge"   , prstusge.substring(0, prstusge.length-1)); //¿ëµµ±¸ºÐ
        model.makeValue("/root/send/savedata/fstrgstrid" , getUserInfo("userid"));                    //ÃÖÃʵî·ÏÀÚID
        model.makeValue("/root/send/savedata/lastupdtrid", getUserInfo("userid"));                    //ÃÖÁ¾¼öÁ¤ÀÚID
        model.makeValue("/root/send/savedata/fromdd"     , model.getValue("/root/main/srchprofhist/fromdd")); //½ÃÀÛÀÏÀÚ-ÀúÀå ÀÌÈÄ Á¶È¸¿ë Á¤º¸
        model.makeValue("/root/send/savedata/todd"       , model.getValue("/root/main/srchprofhist/todd"));   //Á¾·áÀÏÀÚ-ÀúÀå ÀÌÈÄ Á¶È¸¿ë Á¤º¸
        model.makeValue("/root/send/savedata/histcd"     , 0);
        if(submit("TXMMR02906")){
            fGetProfPrntHist();
        }
    }else{ // '¾Æ´Ï¿À'¸¦ ¼±ÅÃÇÑ °æ¿ì, ¼±ÅÃµÈ ¿ëµµ nodeset Á¦°Å
        model.removeNodeset("/root/temp/issusge/list");
        model.makeNode("/root/temp/issusge/list");
    }
}

/**
* @desc   : ¼­½Ä¼ö°¡ Á¶È¸
* @
* @param  : formcd   : ¼­½ÄÄÚµå
*         : srchflag : Á¶È¸±¸ºÐ(PROF:Á¦Áõ¸í, OCR:OCR)
* @return : true     : Á¶È¸¼º°ø
*         : false    : Á¶È¸½ÇÆÐ
* @---------------------------------------------------
*/
function fReqGetCalcScorcd(formcd, srchflag){
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/calcscor/formcd"  , formcd);
    model.makeValue("/root/send/reqdata/calcscor/srchflag", srchflag);
    if(submit("TRMMR02906")){
        return true;
    }else{
        return false;
    }
}

/**
* @desc   : ȯÀÚ ¿Ü·¡¿ø¹«Á¤º¸ »ý¼º
* @
* @param  : formcd   : ¼­½ÄÄÚµå
*         : srchflag : Á¶È¸±¸ºÐ(PROF:Á¦Áõ¸í, OCR:OCR)
* @return :
* @---------------------------------------------------
*/
function fSetOtptPamInfo(pid, orddd, orddeptcd, orddrid){
    model.makeValue("/root/send/reqdata/pid",pid);
    model.makeValue("/root/send/reqdata/orddd",orddd);
    model.makeValue("/root/send/reqdata/orddeptcd",orddeptcd);
    
    if(submit("TRMMR02920")){
    	var centcd = model.getValue("/root/temp/centcd/centcd");
    	if (centcd == "") {
    		centcd = "-";
    	}
    }
   
    var insukind ="";
    var suppkind ="";
    
    var formcd = model.getValue("/root/send/reqdata/profhist/formcd");
    var srcformcd = model.getValue("/root/send/reqdata/profhist/srcformcd");
        
    //º¸ÇèÀ¯ÇüÀ» ³Ñ°Ü¾ß ÇÏ´Â ¼­½Äµé
    if ( srcformcd == "1300014808" || srcformcd == "1100012259" || srcformcd == "0000002536" || srcformcd == "1400015254" || srcformcd == "1000008583" ) {
    	var insukind = model.getValue("/root/main/patinfo/insukind");
    	var suppkind = model.getValue("/root/main/patinfo/suppkind");
    }
	  
    model.makeValue("/root/main/acptoccinfo/otpt_flag"          , "I");
    model.makeValue("/root/main/acptoccinfo/otpt_pid"           , pid);
    model.makeValue("/root/main/acptoccinfo/otpt_orddd"         , orddd);
    model.makeValue("/root/main/acptoccinfo/otpt_orddeptcd"     , orddeptcd);
    model.makeValue("/root/main/acptoccinfo/otpt_centcd"        , centcd);
    model.makeValue("/root/main/acptoccinfo/otpt_orddrid"       , orddrid);
    model.makeValue("/root/main/acptoccinfo/otpt_ordtm"         , "0000");
    model.makeValue("/root/main/acptoccinfo/otpt_ordtype"       , "O");
    model.makeValue("/root/main/acptoccinfo/otpt_medamtestmyn"  , "N");
    model.makeValue("/root/main/acptoccinfo/otpt_medamtfreeresn", "01");
    model.makeValue("/root/main/acptoccinfo/otpt_insukind "     , insukind);
    model.makeValue("/root/main/acptoccinfo/otpt_suppkind "     , suppkind);
    model.makeValue("/root/main/acptoccinfo/otpt_rsrvflag"      , "3");
    model.makeValue("/root/main/acptoccinfo/otpt_etcordflag"    , "");
    model.makeValue("/root/main/acptoccinfo/otpt_instcd"        , getUserInfo("dutplceinstcd"));
    model.makeValue("/root/main/acptoccinfo/sess_userid"        , getUserInfo("userid"));
    model.makeValue("/root/main/acptoccinfo/otpt_remfact"       , "Á¦Áõ¸í - Áø´Ü¼­¹ß±Þ");
}

/**
* @desc   : Á¦Áõ¸íÁ¤º¸ »ý¼º
* @
* @param  : status   : 󸮱¸ºÐ(0:¿Ü·¡°¡Á¢¼ö, 1:¿Ü·¡/ÀÔ¿ø¼öÁøÁ¤º¸)
*         : pid      : µî·Ï¹øÈ£
*         : orddd    : Áø·áÀÏÀÚ
*         : cretno   : »ý¼º¹øÈ£
*         : ioflag   : ¿Ü·¡ÀÔ¿ø±¸ºÐ
* @return :
* @---------------------------------------------------
*/
function fSetProfInfo(status, pid, orddd, cretno, ioflag, formcd, orddeptcd, orddrid, prntcnt, extraflag, issflag, holograpflag, prstusge) { // ¿ëµµ±¸ºÐ(prstusge) - 2010.05.04 ±èÂù¿µ Ãß°¡
    model.removeNode("/root/main/newprof");
    model.makeValue("/root/main/newprof/status"     , status);
    model.makeValue("/root/main/newprof/pid"        , pid);       //µî·Ï¹øÈ£
    model.makeValue("/root/main/newprof/orddd"      , orddd);     //Áø·áÀÏÀÚ
    model.makeValue("/root/main/newprof/cretno"     , cretno);    //»ý¼º¹øÈ£
    model.makeValue("/root/main/newprof/ioflag"     , ioflag);    //¿Ü·¡ÀÔ¿ø±¸ºÐ
    model.makeValue("/root/main/newprof/formcd"     , formcd);    //¼­½ÄÄÚµå
    model.makeValue("/root/main/newprof/issstat"    , "I");       //¹ßÇà»óÅÂ(ÀÓ½Ã, ÀÎÁõÀúÀå)
    model.makeValue("/root/main/newprof/issid"      , orddrid);   //¹ßÇàÀÚID
    model.makeValue("/root/main/newprof/issdeptcd"  , orddeptcd); //¹ßÇàÀÚID
    model.makeValue("/root/main/newprof/issdt"      , getCurrentDate().concat(getCurrentTime())); //¹ßÇàÀϽÃ
    model.makeValue("/root/main/newprof/profcertseq", "");  //ÀϷùøÈ£
    model.makeValue("/root/main/newprof/formrecseq" , 0);   //¼­½Ä±â·Ï¼ø¹ø
    model.makeValue("/root/main/newprof/issflag"    , issflag);//¹ßÇà
    model.makeValue("/root/main/newprof/prstusge"   , prstusge);  //¿ëµµ±¸ºÐ - 2010.05.04 ±èÂù¿µ Ãß°¡
    model.makeValue("/root/main/newprof/fstrgstrid" , getUserInfo("userid")); //ÃÖÃʵî·ÏÀÚID
    model.makeValue("/root/main/newprof/lastupdtrid", getUserInfo("userid")); //ÃÖÁ¾¼öÁ¤ÀÚID
    model.makeValue("/root/main/newprof/histcd"     , 0);
    model.makeValue("/root/main/newprof/orddept"    , "");  //Áø·á°ú
    model.makeValue("/root/main/newprof/doctnm"     , "");  //Áø·áÀÇÀ̸§
    model.makeValue("/root/main/newprof/licnsno"    , "");  //¸éÇã¹øÈ£
    model.makeValue("/root/main/newprof/formnm"     , "");  //¼­½ÄÁö¸í
    model.makeValue("/root/main/newprof/yearseqno"  , "");  //¿¬¹øÈ£
    model.makeValue("/root/main/newprof/prntcnt"    , prntcnt); //¹ß±ÞºÎ¼ö
    model.makeValue("/root/main/newprof/extraflag"  , extraflag); //»çº»±¸ºÐ
    model.makeValue("/root/main/newprof/holograpflag" , holograpflag); //ÀÚÇÊÁ¦Áõ¸í±¸ºÐ
    //2009-07-15 ¿ÀÀü 11:31:47 °­ÁöÈÆ Ãß°¡ : ¿¬¹øÈ£¹ßÇàÀÌÈÄ¿¡ ÀϺÎÁ¦Áõ¸í ½Å±ÔÀÛ¼ºÇÒ¶§ ¿À·ù¹ß»ýÇϴ°ÍÀ» ¹æÁö
    model.makeValue("/root/main/newprof/orddeptcd"  , getUserInfo("dutplcecd"));
    model.makeValue("/root/main/newprof/orddoctid"  , getUserInfo("userid"));
}

/**
* @desc   : Á¦Áõ¸í ¿¬¹øÈ£ ¹ßÇà
* @
* @param  :
* @return :
* @---------------------------------------------------
*/
function fReqInsCretYearNo(){
    //°ÇÁø¼¾ÅÍ¿¡¼­ ¹ßÇàÇÏ´Â °æ¿ì, °Ç°­Áø´Ü¼­, ä¿ë½Å°ËÀ» Á¦¿ÜÇÏ°í´Â ±ÇÇÑ ¾øÀ½ ¸Þ½ÃÁö¸¦ Ãâ·ÂÇÔ
    var dutplcecd = getUserInfo("dutplcecd");
    if(dutplcecd == "2370106000" || dutplcecd == "2370144000" ||
       dutplcecd == "2380000000" || dutplcecd == "2370301000" || dutplcecd == "2370302000"){
        messageBox("¹ß±Þ ±ÇÇÑÀÌ", "I004");
        return;
    }

    var pid = model.getValue("/root/main/patinfo/pid");
    if(memoviewflag == ""){
    	memoviewflag = popmemoviewflag;
    }
    setParameter("SPMMR02300_pid"				 	, pid );
    setParameter("SPMMR02300_memoviewflag"	, memoviewflag );
    setParameter("SPMMR02300_signflag"		 	, signflag );
    setParameter("SPMMR02300_signipcnt"		 	, signipcnt );
        
    modal("SPMMR02300");

    var useyn    = getParameter("SPMMR02300_useyn");
    if(useyn == "Y"){
    var formcd    = getParameter("SPMMR02300_formcd");
    var formnm    = getParameter("SPMMR02300_formnm");
    var orddeptcd = getParameter("SPMMR02300_orddeptcd");
    var orddrid   = getParameter("SPMMR02300_orddrid");
    var ioflag    = getParameter("SPMMR02300_ioflag");
    var cretno    = getParameter("SPMMR02300_cretno");
    var orddd     = getParameter("SPMMR02300_orddd");
    var prntcnt   = getParameter("SPMMR02300_prntcnt");
    var extraflag = getParameter("SPMMR02300_extraflag");
    var freeflag  = getParameter("SPMMR02300_freeflag");
    var status    = getParameter("SPMMR02300_status");
    var handicap  = getParameter("SPMMR02300_handicap");
    var extraflag = getParameter("SPMMR02300_extraflag");
    var issflag   = getParameter("SPMMR02300_issflag");
    var holograpflag = getParameter("SPMMR02300_holograpflag");
    var prstusge = getParameter("SPMMR02300_prstusge"); //¿ëµµ±¸ºÐ - 2010.05.04 ±èÂù¿µ Ãß°¡
    var certmemo = getParameter("SPMMR02300_certmemo");   // ¹ßÇàComment - 2014.01.10 cyw
    var elctsignkey = getParameter("SPMMR02300_elctsignkey");   // ¹ßÇà»çÀÎÅ° - 2014.01.16 cyw
    var elctsigncnts = getParameter("SPMMR02300_elctsigncnts");   // ¹ßÇà»çÀγ»¿ë - 2014.01.16 cyw
    

    fSetOtptPamInfo(pid, getCurrentDate(), orddeptcd, orddrid); //¿Ü·¡Á¢¼öÁ¤º¸ ¼³Á¤
    
    if(freeflag != "Y"){ //Ç×»ó ¹«·áÀÎ ºÎ¼­¿Í ¹«·á¸¦ check ÇÏÁö ¾ÊÀº °æ¿ì
        if(fReqGetCalcScorcd(formcd, "PROF")){ //ÀçÁõ¸í ¼ö°¡Á¤º¸ Á¶È¸
          var calcscorcd = model.getValue("/root/main/calcscorinfo/calcscorlist/calcscorcd");
          if(calcscorcd != ""){
            var calcNodeCnt = getNodesetCount("/root/main/calcscorinfo/calcscorlist");
            fCalsSorcSave("", calcNodeCnt);
          }else{
              var rtnval = messageBox("ÇØ´ç Á¦Áõ¸í ¼ö°¡ Á¤º¸°¡ ¾ø½À´Ï´Ù.", "Q003");
              if(rtnval == 7){
                  return;
              }
          }
        }
      }
      
      fSetProfInfo(status, pid, orddd, cretno, ioflag, formcd, orddeptcd, orddrid, prntcnt, extraflag, issflag, holograpflag, prstusge); //Á¦Áõ¸íÁ¤º¸ ¼³Á¤, ¿ëµµ±¸ºÐ(prstusge) - 2010.05.04 ±èÂù¿µ Ãß°¡

      model.makeValue("/root/main/newprof/prntdt"  			, getCurrentDate().concat(getCurrentTime()));  //¹ß±Þ½Ã°£ Ãß°¡
      
      copyNodeset("/root/send/reqdata/prof"        				, "/root/main/newprof");
      copyNodeset("/root/send/reqdata/acptoccinfo" 				, "/root/main/acptoccinfo");
      
      model.makeValue("/root/send/reqdata/prof/certmemo"		, certmemo ); // 2014.01.10
      model.makeValue("/root/send/reqdata/prof/elctsignkey"		, elctsignkey ); // 2014.01.16
      model.makeValue("/root/send/reqdata/prof/elctsigncnts"	, elctsigncnts ); // 2014.01.16
    
    if(handicap != ""){
        handicap = handicap.split("^");
        if(handicap.length > 0){
            model.makeValue("/root/send/reqdata/handicap/handicapflag"	, handicap[0] );
            model.makeValue("/root/send/reqdata/handicap/handicapgrde"	, handicap[1] );
            model.makeValue("/root/send/reqdata/handicap/handicapno"  	, handicap[2] );
            model.makeValue("/root/send/reqdata/handicap/claiminstcd" 	, handicap[3] );
          }
        }

    if(submit("TXMMR02901")){
        if(formcd == "0800000552"){ //¹æ¹®°£È£Áö½Ã¼­ÀÎ °æ¿ì ¹«·á¹ß±Þ»çÀ¯°¡ ¿¬¹øÈ£
            var yearseqno = model.getValue("/root/main/iss/freeissresn");

        }else{
          var yearseqno = model.getValue("/root/main/iss/yearseqno");

      }

      var hngnm = model.getValue("/root/main/patinfo/hngnm");
      if(yearseqno != ""){
        var msgstr = "ȯÀÚ : [" + pid + "]" + hngnm + "\n¼­½Ä : [" + formnm + "]\n¿¬¹øÈ£ : [" + yearseqno + "]·Î";
        messageBox(msgstr, "I001");
        model.makeValue("/root/main/newprof/formnm", "-");
        model.makeValue("root/main/selectdept", "-");			// 141114 - AYS Ãß°¡
        fGetProfPrntHist();
      }

    }

    setParameter("SPMMR02300_useyn"    , "N");
    setParameter("SPMMR02300_formcd"   , "");
    setParameter("SPMMR02300_formnm"   , "");
    setParameter("SPMMR02300_orddeptcd", "");
    setParameter("SPMMR02300_orddrid"  , "");
    setParameter("SPMMR02300_ioflag"   , "");
    setParameter("SPMMR02300_cretno"   , "");
    setParameter("SPMMR02300_orddd"    , "");
    setParameter("SPMMR02300_prntcnt"  , "");
    setParameter("SPMMR02300_status"   , "");
    setParameter("SPMMR02300_handicap" , "");
    setParameter("SPMMR02300_issflag"  , "");
    setParameter("SPMMR02300_prstusge"  , ""); //¿ëµµ±¸ºÐ - 2010.05.04 ±èÂù¿µ Ãß°¡
    setParameter("SPMMR02300_certmemo"  , ""); // ¹ßÇàComment - 2014.01.10 cyw
    setParameter("SPMMR02300_elctsignkey"  , "");
    setParameter("SPMMR02300_elctsigncnts"  , "");
  }
}

/**
* @desc   : ȯÀÚÁø·áÁ¤º¸ Á¶È¸ ¹× ¼³Á¤
* @
* @param  :
* @return :
* @---------------------------------------------------
*/
function fReqGetComnPatOrdInfo(pid){
    btn_cretotpt.visible = false; //»õ·Î¿î ȯÀÚÁ¶È¸½Ã °¡Á¢¼ö»ý¼º ¹öÆ° hidden
    model.removeNodeset("/root/send/reqdata");
    //2009 07 14 °­ÁöÈÆ ¼öÁ¤ : µî·Ï¹øÈ£·Î Á¶È¸ÇÒ¶§ ȯÀÚÁ¤º¸¹× ¹ßÇà¿ëµµ reset
		model.removeNodeset("/root/main/patinfo"); //ȯÀÚÁ¤º¸ »èÁ¦
    model.makeValue("/root/send/reqdata/pid"      , pid);
    model.makeValue("/root/send/reqdata/orddeptcd", "-");
    if(submit("TRMMR05501")){
        var srchnodelist = model.instances(0).selectNodes("/root/main/result/pathistlist");
        if(srchnodelist.length > 1){
            modal("SPMMR05700", "", 10, 10, "", "/root/main/result", "/root/main/result");
            if(getParameter("SPMMR05700_useyn")=="Y"){
                var pid      = model.getValue("/root/main/result/pathistlist/pid");
                var orddd    = model.getValue("/root/main/result/pathistlist/orddd");
                var cretno   = model.getValue("/root/main/result/pathistlist/cretno");
                var hngnm    = model.getValue("/root/main/result/pathistlist/hngnm");
                var sex      = model.getValue("/root/main/result/pathistlist/sex");
                var age      = model.getValue("/root/main/result/pathistlist/age");
                var brthdd   = model.getValue("/root/main/result/pathistlist/brthdd");
                var rrgstno1 = model.getValue("/root/main/result/pathistlist/rrgstno1");
                var rrgstno2 = model.getValue("/root/main/result/pathistlist/rrgstno2");
                var addr     = model.getValue("/root/main/result/pathistlist/addr");
                var hometel  = model.getValue("/root/main/result/pathistlist/hometel");
                var ioflag   = model.getValue("/root/main/result/pathistlist/ordtype");
                var orddeptcd= model.getValue("/root/main/result/pathistlist/orddeptcd");
                var orddeptnm= model.getValue("/root/main/result/pathistlist/orddeptnm");
                var orddrid  = model.getValue("/root/main/result/pathistlist/orddrid");
                var insukind = model.getValue("/root/main/result/pathistlist/insukind");
                var suppkind = model.getValue("/root/main/result/pathistlist/suppkind");
                var dschdd   = model.getValue("/root/main/result/pathistlist/dschdd");		// 2009.09.28 Åð¿øÀÏ Ãß°¡ (»ó±Þº´½ÇÈ®Àμ­) 
                setParameter("SPMMR05700_useyn", "N");

            }else{
                setParameter("SPMMR05700_useyn", "N");
                return;

            }

        }else if(srchnodelist.length == 1){
            var pid      = model.getValue("/root/main/result/pathistlist/pid");
            var orddd    = model.getValue("/root/main/result/pathistlist/orddd");
            var cretno   = model.getValue("/root/main/result/pathistlist/cretno");
            var hngnm    = model.getValue("/root/main/result/pathistlist/hngnm");
            var sex      = model.getValue("/root/main/result/pathistlist/sex");
            var age      = model.getValue("/root/main/result/pathistlist/age");
            var brthdd   = model.getValue("/root/main/result/pathistlist/brthdd");
            var rrgstno1 = model.getValue("/root/main/result/pathistlist/rrgstno1");
            var rrgstno2 = model.getValue("/root/main/result/pathistlist/rrgstno2");
            var addr     = model.getValue("/root/main/result/pathistlist/addr");
            var hometel  = model.getValue("/root/main/result/pathistlist/hometel");
            var ioflag   = model.getValue("/root/main/result/pathistlist/ordtype");
            var orddeptcd= model.getValue("/root/main/result/pathistlist/orddeptcd");
            var orddeptnm= model.getValue("/root/main/result/pathistlist/orddeptnm");
            var orddrid  = model.getValue("/root/main/result/pathistlist/orddrid");
            var insukind = model.getValue("/root/main/result/pathistlist/insukind");
            var suppkind = model.getValue("/root/main/result/pathistlist/suppkind");
            var dschdd   = model.getValue("/root/main/result/pathistlist/dschdd");		// 2009.09.28 Åð¿øÀÏ Ãß°¡ (»ó±Þº´½ÇÈ®Àμ­) 

        }else{
            model.removeNodeset("/root/send/reqdata");
            model.makeValue("/root/send/reqdata/pid", pid);
            if(submit("TRMMR02909")){
                var ptbsinfo = model.instances(0).selectNodes("/root/temp/patinfo/patinfo");
                if(ptbsinfo.length == 0){
                    messageBox("ȯÀÚÁ¤º¸°¡", "I004");
                    return;
                }

                var sex = model.getValue("/root/temp/patinfo/patinfo/sex");
                var age = model.getValue("/root/temp/patinfo/patinfo/age");
                var rrgstno1 = model.getValue("/root/temp/patinfo/patinfo/rrgstno1");
                var rrgstno2 = model.getValue("/root/temp/patinfo/patinfo/rrgstno2");

                model.makeValue("/root/main/patinfo/pid"     , pid);
                model.makeValue("/root/main/patinfo/hngnm"   , model.getValue("/root/temp/patinfo/patinfo/hngnm"));
                model.makeValue("/root/main/patinfo/age"     , sex.concat("/").concat(age));
                model.makeValue("/root/main/patinfo/rrgstno1", rrgstno1 + "-" + rrgstno2.substring(0, 1) + "******");
                model.makeValue("/root/main/patinfo/addr"    , model.getValue("/root/temp/patinfo/patinfo/addr"));
                model.makeValue("/root/main/patinfo/hometel" , model.getValue("/root/temp/patinfo/patinfo/hometel"));
                model.makeValue("/root/main/patinfo/brthdd"  , model.getValue("/root/temp/patinfo/patinfo/brthdd"));
                model.makeValue("/root/main/patinfo/insukind", model.getValue("/root/temp/patinfo/patinfo/insukind"));
                model.makeValue("/root/main/patinfo/suppkind", model.getValue("/root/temp/patinfo/patinfo/suppkind"));
            }
            btn_cretotpt.visible = true; //¿ø¹«¼öÁø Á¤º¸°¡ ¾ø´Â ȯÀÚÀÎ °æ¿ì, °¡Á¢¼ö»ý¼º ¹öÆ° visible
            model.refresh();
            return false;
        }

        model.makeValue("/root/main/patinfo/pid"       , pid);
        model.makeValue("/root/main/patinfo/orddd"     , orddd);
        model.makeValue("/root/main/patinfo/cretno"    , cretno);
        model.makeValue("/root/main/patinfo/hngnm"     , hngnm);
        model.makeValue("/root/main/patinfo/rrgstno1"  , rrgstno1 + "-" + rrgstno2.substring(0, 1) + "******");
        model.makeValue("/root/main/patinfo/age"       , sex.concat("/").concat(age));
        model.makeValue("/root/main/patinfo/brthdd"    , brthdd);
        model.makeValue("/root/main/patinfo/addr"      , addr);
        model.makeValue("/root/main/patinfo/ioflag"    , ioflag);
        model.makeValue("/root/main/patinfo/orddeptcd" , orddeptcd);
        model.makeValue("/root/main/patinfo/orddeptnm" , orddeptnm);
        model.makeValue("/root/main/patinfo/hometel"   , hometel);
        model.makeValue("/root/main/patinfo/orddrid"   , orddrid);
        model.makeValue("/root/main/patinfo/insukind"  , insukind);
        model.makeValue("/root/main/patinfo/suppkind"  , suppkind);
        model.makeValue("/root/main/patinfo/dschdd"	   , dschdd);		// 2009.09.28 Åð¿øÀÏ Ãß°¡ (»ó±Þº´½ÇÈ®Àμ­) 

		fSetRcptpossynmsg(model.getValue("/root/main/patinfo/pid"));		//¹«Àμö³³ °¡´É ¿©ºÎ Á¶È¸, 2010.03.08 ÁÖÈñ°æ
        
        model.refresh();
        
        // ȯÀÚ º¸ÇèÁ¤º¸ Á¶È¸
        fGetPatInsuranceInfo();

        if(btn_tabprofhist.selected == true){
            btn_profhist.dispatch("DOMActivate");
        }
        setParameter("SSMMR01100_getTopYn", "N");
        ivw_loader.window.javascript.fSetPamInfo(pid, orddd, cretno, ioflag);
        ivw_loader.src = "../../../emr/medirecweb/xrw/SSMMR01100_¼­½Ä·Î´õ.xrw";
    }
}

/**
 * @desc   : ȯÀÚ°Ë»ö Æ˾÷À¸·Î Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fOpenPatSrchWnd(){
    var rrgstno2 = "";
    //ȯÀÚÁ¤º¸ Á¶È¸Æ˾÷¿¡ ±âº» Á¤º¸ ³Ñ°ÜÁØ´Ù.
    model.makeValue("/root/tmp/pid",     model.getValue("/root/main/patinfo/pid"));
    model.makeValue("/root/tmp/hngnm",   model.getValue("/root/main/patinfo/hngnm"));
    model.makeValue("/root/tmp/srchcond",model.getValue("/root/main/patinfo/srchcond"));
    model.makeValue("/root/tmp/autoflag","Y");  // 1°ÇÀΰæ¿ì ÀÚµ¿À¸·Î´ÝÈû

    modal("SPPMC02500", 1, 10, 10, "SPPMC02500", "/root/tmp", "/root/send");
    var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
    
    model.removeNodeset("/root/main/patinfo/patinfolist");
    if(pid != ""){
        fReqGetComnPatOrdInfo(pid, "-");
    
        model.makeValue("/root/main/newprof/formnm", "-");
        model.makeValue("root/main/selectdept", "-");			// 141114 - AYS Ãß°¡
        btn_tabprofhist.dispatch("DOMActivate");
    }
}

/**
 * @desc   : ȯÀÚ°Ë»ö Æ˾÷À¸·Î Á¶È¸
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fDoMakeProfPrntInfo(ivwCtrl)
{
	try
	{
    //Áø´ÜÄÚµå 3ÀÚ¸®¸¶´Ù Á¡(.)Ç¥½Ã
    // Áø´Ü¸í ±×¸®µåÀÇ Áø´Ü¸í Ä÷³À» Ä«¿îÆ®
    var totcnt = getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[degnitemlevlcd='0016650.0000960.0000960']");
    var formcd = ivwCtrl.model.getValue("/root/main/forminfo/formmast/formcd");
    var srcformcd = ivwCtrl.model.getValue("/root/main/forminfo/formmast/srcformcd");
    
    for(var i = 0; i < totcnt; i++){
        var diagroflag   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[degnitemlevlcd='0016650.0000960.0004249' and rowno='" + i + "' and colno='0']/reccnts");
        var diagkindflag = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[degnitemlevlcd='0016650.0000960.0001443' and rowno='" + i + "' and colno='1']/reccnts");
        var rectermcd    = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd");
        var rectermnm    = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermnm");
        var reccnts      = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/reccnts");
        var langflag     = ivwCtrl.model.getValue("/root/main/forminfo/formmast/langflag");

        if(langflag == "KO"){
    //if(isHangul(rectermnm)== "H"){
            if(diagkindflag == "M"){
                rectermnm = "(ÁÖ)".concat(rectermnm);
            }
            if(diagroflag == "R"){
                rectermnm = "(ÀÇÁõ)".concat(rectermnm);
            }
            if(reccnts != ""){
                reccnts = " [" + reccnts + "]";
            }
            //2012/12/05 Start
            //1000007215-->1100011577·Î º¯°æ
            if(formcd != "1100011577"){	//20100621-kys-±Ù·Î´É·ÂÆò°¡Áø´Ü¼­´Â ÄÚ¸àÆ®¸¦ Áø´Ü¸í¿¡ ´ÞÁö ¾Ê´Â´Ù.
            	rectermnm = rectermnm + reccnts;
            }
            //2012/12/05 End

        }else if(langflag == "EN"){
        //}else if(isHangul(rectermnm)== "E"){

            if(diagkindflag == "M"){
                rectermnm = "(Principle diagnosis)".concat(rectermnm);
            }
            if(diagroflag == "R"){
                rectermnm = "(R/O)".concat(rectermnm);
            }
            if(reccnts != ""){
                reccnts = " [" + reccnts + "]";
            }
            //2012/12/05 Start
            //1000007215-->1100011577·Î º¯°æ
            if(formcd != "1100011577"){	//20100621-kys-±Ù·Î´É·ÂÆò°¡Áø´Ü¼­´Â ÄÚ¸àÆ®¸¦ Áø´Ü¸í¿¡ ´ÞÁö ¾Ê´Â´Ù.
            	rectermnm = rectermnm + reccnts;
            }
            //2012/12/05 End
        }

        rectermcd = removeChar(rectermcd, ".");    //Á¡À» Á¦°Å
        rectermcd = insertChar(rectermcd, ".", 3); // 3°³ ´ÜÀ§·Î Á¡À» ÀÔ·Â
        
        if(rectermcd != "")
        	model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd", rectermcd);
        
        if(rectermnm != "")
        	model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermnm", rectermnm);
    }

    //2012/12/05 Start ±Ù·Î´É·ÂÆò°¡¿ë Áø´Ü¼­¿¡¼­ Æò°¡´ë»ó Áúȯ¸í2ÀÏ °æ¿ì
    if(formcd=="1100011577"){
	    var totcnt = getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[degnitemlevlcd='0000960']");
	    
	    for(var i = 0; i < totcnt; i++){
	        var diagroflag   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[degnitemlevlcd='0000960.0004249' and rowno='" + i + "' and colno='0']/reccnts");
	        var diagkindflag = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[degnitemlevlcd='0000960.0001443' and rowno='" + i + "' and colno='1']/reccnts");
	        var rectermcd    = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd");
	        var rectermnm    = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[rowno='" + i + "' and colno='2']/rectermnm");
	        var reccnts      = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[rowno='" + i + "' and colno='2']/reccnts");
	        var langflag     = ivwCtrl.model.getValue("/root/main/forminfo/formmast/langflag");
	
	        if(langflag == "KO"){
	    //if(isHangul(rectermnm)== "H"){
	            if(diagkindflag == "M"){
	                rectermnm = "(ÁÖ)".concat(rectermnm);
	            }
	            if(diagroflag == "R"){
	                rectermnm = "(ÀÇÁõ)".concat(rectermnm);
	            }
	            if(reccnts != ""){
	                reccnts = " [" + reccnts + "]";
	            }
	        }else if(langflag == "EN"){
	        //}else if(isHangul(rectermnm)== "E"){
	
	            if(diagkindflag == "M"){
	                rectermnm = "(Principle diagnosis)".concat(rectermnm);
	            }
	            if(diagroflag == "R"){
	                rectermnm = "(R/O)".concat(rectermnm);
	            }
	            if(reccnts != ""){
	                reccnts = " [" + reccnts + "]";
	            }
	        }
	
	        rectermcd = removeChar(rectermcd, ".");    //Á¡À» Á¦°Å
	        rectermcd = insertChar(rectermcd, ".", 3); // 3°³ ´ÜÀ§·Î Á¡À» ÀÔ·Â
	        
	        if(rectermcd != "")
	        	model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd", rectermcd);
	        
	        if(rectermnm != "")
	        	model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0000960']/recitem[rowno='" + i + "' and colno='2']/rectermnm", rectermnm);
	    }
    }
    //2012/12/05 End
    
    
 
    var stmt = "";
    //var formcd = ivwCtrl.model.getValue("/root/main/forminfo/formmast/formcd"); 20100621-kys-À§·Î À§Ä¡À̵¿.
    
    //ÀϹÝÁø´Ü¼­, Á¤½ÅÁø´Ü¼­
    if(   formcd == "0000000890" || formcd == "1100010592" ){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0008224']/reccnts"); //ÇâÈÄ Ä¡·áÀÇ°ß
        fDoSepProfPage(stmt, 47);
    }
    
    //2012/11/26 Start ÀÏ¹Ý Áø´Ü(¼Ò°ß)¼­ ÀÏ°æ¿ì¿¡´Â 90À¸·Î Á¶Á¤
    if(formcd == "1100012297"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0008224']/reccnts"); //ÇâÈÄ Ä¡·áÀÇ°ß
        fDoSepProfPage(stmt);
    }
    //2012/11/26 End

    // 2013.12.04 CYW Start ÀÇ·Úȸ¼Û¼­ 
    if(formcd == "1300014808"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0008224']/reccnts"); //ÇâÈÄ Ä¡·áÀÇ°ß
        fDoSepProfPage(stmt);
    }
    // 2013.12.04 CYW End
    
    //ÀϹÝÁø´Ü¼­(¿µ¹®)
    if(formcd == "0000001442"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0008224']/reccnts"); //ÇâÈÄ Ä¡·áÀÇ°ß
        fDoSepProfPage(stmt, 90);
    }

    //¼Ò°ß¼­
    if(formcd == "0000001499"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0007168']/reccnts"); //³»¿ë
        fDoSepProfPage(stmt, 47);
    }

    //¼Ò°ß¼­(¿µ¹®)
    if(formcd == "0000001501"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0007168']/reccnts"); //³»¿ë
        fDoSepProfPage(stmt, 90);
    }

    //Àü¿ø¼Ò°ß¼­, ÀÀ±Þ½ÇÀü¿ø¼Ò°ß¼­,ȸ¼Û¼­
    if(srcformcd == "0000002536" || formcd == "1100012259" || formcd == "1100011397" || formcd == "0000003129" || formcd == "1100011620" || formcd == "1600018117"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0010597']/reccnts"); //³»¿ë
        fDoSepProfPage(stmt, 47);
    }

	//2012/05/07 Start    
    //Áø·áÀÇ·Ú¼­
    // 2016.07.12 1600017534 ÀÇ·á±Þ¿©ÀÇ·Ú¼­ Ãß°¡
    if(formcd == "0900005340" || formcd == "1700020559" || formcd == "1600017534"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001213']/reccnts"); //³»¿ë
        fDoSepProfPage(stmt, 47);
    }
    //2012/05/07 End

    //Åõ¼®È¯ÀÚ Àü¿ø¼Ò°ß¼­, Åõ¾à·Â, ±âŸÅõ¾à Ä÷³
    //2008. 1. 15 ¿ÀÁöÈÆ
    if(formcd == "0000000618"){
        model.removeNodeset("/root/main/contents");
        stmt  = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001112']/reccnts"); //Åõ¾à·Â
        stmt2 = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0014933']/reccnts"); //±âŸÅõ¾à
        fDoSepProfPageExtn(stmt, stmt2, "drug", "etcdrug");
    }

    //¼ö¼úÈ®Àμ­
    //2009. 2. 17 ¿ÀÁöÈÆ
    if(formcd == "0000001457"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemno='72']/reccnts"); //¼ö¼ú³»¿ª
        fDoSepProfPage(stmt, 90, "/root/main/content1");

        stmt = model.getValue("/root/main/recinfo/recitem[degnitemno='20']/reccnts"); //³»¿ë
        fDoSepProfPage(stmt, 90, "/root/main/content2");
    }

    //¿Ü·¡ Áø·áÈ®Àμ­
    if(formcd == "0000001312" || formcd == "0000002639"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0005910']/reccnts"); //Ä¡·á±â°£
        fDoSepProfPage(stmt, 90, "/root/main/content1");
    }
    //ÇâÈÄÄ¡·áºñ ÃßÁ¤¼­ 
    //2009-09-24 ¿ÀÀü 10:14:52 °­ÁöÈÆ Ãß°¡ 
    if(formcd == "0000001522" || formcd == "0800000403"){	// 2016.02.15 ÇâÈÄÄ¡·áºñ ÃßÁ¤¼­(Ä¡°ú) Ãß°¡
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0006706']/reccnts"); //ÁÖÄ¡ÀÇ ¼Ò°ß
        fDoSepProfPage(stmt, 47);
    }
    
    // ¿ä¾ç±Þ¿© ÀÇ·Ú¼­
    if(formcd == "1000007900"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001213']/reccnts"); //ÇâÈÄ Ä¡·áÀÇ°ß
        fDoSepProfPage(stmt, 85);
    }
    
    //±Ù·Î´É·ÂÆò°¡ Áø´Ü¼­-20100608-kys
    // knuh_20110803_¼öÁ¤_±Ù·Î´É·ÂÆò°¡¿ë Áø´Ü¼­ Ãß°¡
    if(formcd == "1000007215" || formcd == "1100011577"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001049']/reccnts"); //Ä¡·á°æ°ú ³»¿ë
        fDoSepProfPage(stmt, 47);
    }
    
    // 2016.08.08 ÀÇ·á±Þ¿©È¸¼Û¼­
    if(formcd == "1400015254"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0010597']/reccnts"); // ȯÀÚ»óÅ ¹× Áø·á¼Ò°ß
        fDoSepProfPage(stmt);
    }
    
    // 2016.08.26 ÀÀ±ÞȯÀÚÁø·áÀÇ·Ú¼­
    if(formcd == "1600018117"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0012043']/reccnts"); // ´ã´çÀÇ»ç¼Ò°ß ±âŸ
        fDoSepProfPage(stmt);
    }
    
    // 2016.12.09 (Àåºñ°øµ¿ÀÌ¿ë)°Ë»ç ÀÇ·Ú¼­
    if(formcd == "1600018709"){
        stmt = model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0016650.0041819']/reccnts"); // ȯÀÚ»óÅ ¹× Áø·á¼Ò°ß
        fDoSepProfPage(stmt, 47);
    }
    
  //2017.08.10 Àü¿ø¼Ò°ß¼­ Åõ¾àÁ¤º¸ Text º¯°æ
    if(formcd == "1700019854" || formcd == "1700019834"){
		var tmpArr = ["0012063.0041892","0012063.0041817","0012063.0041816","0012063.0014611","0012063.0014609","0012063.0001224","0012063.0017732","0012063.0014174"];
		
		//ó¹æ¸í ±âÁØ
		var totcnt = getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='0012063.0041816']");
		var recData = "";
		
		for(var i = 0; i < totcnt; i++){
			// ó¹æÀÏÀÚ
			var prcpdd   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[0] +"' and rowno='" + i + "' and colno='0']/reccnts");
			// ó¹æÄÚµå			
			var prcpcd   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[1] +"' and rowno='" + i + "' and colno='1']/reccnts");
			// ó¹æ¸í
			var prcpnm   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[2] +"' and rowno='" + i + "' and colno='2']/reccnts");
			// ¼ö·®
			var prcpqty   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[3] +"' and rowno='" + i + "' and colno='3']/reccnts");
			// ´ÜÀ§			
			var prcpqtyunitnm  = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[4] +"' and rowno='" + i + "' and colno='4']/reccnts");
			// Ƚ¼ö
			var prcptims   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[5] +"' and rowno='" + i + "' and colno='5']/reccnts");
			// Àϼö
			var prcpdayno   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[6] +"' and rowno='" + i + "' and colno='6']/reccnts");
			// ¿ë¹ý
			var drugmthdspccdnm   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[degnitemlevlcd='"+ tmpArr[7] +"' and rowno='" + i + "' and colno='7']/reccnts");
			
			recData = recData + "[" + prcpdd + "] " + prcpnm + " " + prcpqty + prcpqtyunitnm + " x " +  prcptims + " x " + prcpdayno + "days " + drugmthdspccdnm + "\n";
			
			model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0012063']/recitem[rowno='0' and colno='-1']/reccnts", recData);
		}
		
		// 2018.04.23 ¼ö¼úÁ¤º¸
		var tmpArr = ["0016684.0000515","0016684.0000509","0016684.0018746"];
		// ¼ö¼ú¸í ±âÁØ
		var totcnt = getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0016684']/recitem[degnitemlevlcd='0016684.0000509']");
		var recData = "";
		if( totcnt > 5 )	totcnt = 5;
		
		for(var i = 0; i < totcnt; i++){
			// ¼ö¼úÀÏÀÚ
			var opdd   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016684']/recitem[degnitemlevlcd='"+ tmpArr[0] +"' and rowno='" + i + "' and colno='0']/reccnts");
			// ¼ö¼úÄÚµå			
			var opcd   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016684']/recitem[degnitemlevlcd='"+ tmpArr[2] +"' and rowno='" + i + "' and colno='2']/reccnts");
			// ¼ö¼ú¸í
			var opnm   = model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016684']/recitem[degnitemlevlcd='"+ tmpArr[1] +"' and rowno='" + i + "' and colno='1']/reccnts");
			
			//recData = recData + "[" + opdd + " | " + opcd + "] " + opnm + "\n";
			if( i == 4 ){
				recData = recData + "[" + opdd + "] " + opnm;
			}else{
				recData = recData + "[" + opdd + "] " + opnm + "\n";
			}
			
			model.setValue("/root/main/recinfo/grid[degnitemlevlcd='0016684']/recitem[rowno='0' and colno='-1']/reccnts", recData);
		}
    }
    
  }
  catch(e)
  {
  	
  }
}

/**
 * @desc   : Á¦Áõ¸í ÆäÀÌÁö ¼³Á¤(Ãâ·Â½Ã, Á¦Áõ¸í ³»¿ëÀÌ ´Ã¾îÁö´Â °ÍÀ» ¸·´Â´Ù)
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fDoSepProfPage(stmt, maxcnt, path, nodenm, nodenm2){
    if(path == "" || path == null){
        path = "/root/main/contents";
    }

    if(nodenm == "" || nodenm == null){
        nodenm = "detail";
    }

    model.removeNodeset(path);

    var detail  = "";
    var wordcnt = 0;
    var rowcnt  = 1;
    	
    if(stmt != ""){
        for(var i = 0; i < stmt.length ; i++){
            if(stmt.charAt(i)=='\n'){ //EnterÀÔ·ÂÀÎ °æ¿ì
                model.makeNode(path + "[" + rowcnt + "]");
                model.makeValue(path + "[" + rowcnt + "]/" + nodenm, detail);
                detail  = "";
                wordcnt = 0;
                rowcnt++;
            }

            detail = detail.concat(stmt.charAt(i));
            wordcnt++;

            if(wordcnt == maxcnt){
                model.makeNode(path + "[" + rowcnt + "]");
                model.makeValue(path + "[" + rowcnt + "]/" + nodenm, detail);
                detail  = "";
                wordcnt = 0;
                rowcnt++;
            }
        }
    }
    model.makeNode(path + "[" + rowcnt + "]");
    model.makeValue(path + "[" + rowcnt + "]/" + nodenm, detail);
    model.refresh();
}

/**
 * @desc   :
 * @
 * @param  :
 * @return :
 * @author : ¿ÀÁöÈÆ
 * @---------------------------------------------------
 */
function fDoSepProfPageExtn(stmt, stmt2, nodenm, nodenm2){
    var path = "/root/main/contents";
    model.removeNodeset(path);

    var detail = "";
    var detail2= "";
    var rowcnt = 1;

    if(stmt != ""){
        for(var i = 0; i < stmt.length ; i++){
            if(stmt.charAt(i)=='\n'){ //EnterÀÔ·ÂÀÎ °æ¿ì
                model.makeNode(path + "[" + rowcnt + "]");
                model.makeValue(path + "[" + rowcnt + "]/" + nodenm , detail);
                detail  = "";
                rowcnt++;
            }
            detail = detail.concat(stmt.charAt(i));
        }
        model.makeNode(path + "[" + rowcnt + "]");
        model.makeValue(path + "[" + rowcnt + "]/" + nodenm , detail);

        rowcnt = 1;

        for(var i = 0; i < stmt2.length ; i++){
            if(stmt2.charAt(i)=='\n'){ //EnterÀÔ·ÂÀÎ °æ¿ì
                if(model.instance1.selectSingleNode(path + "[" + rowcnt + "]") != null){
                    model.makeValue(path + "[" + rowcnt + "]/" + nodenm2, detail2);

                }else{
                    model.makeNode(path  + "[" + rowcnt + "]");
                    model.makeValue(path + "[" + rowcnt + "]/" + nodenm2, detail2);
                }
                detail2 = "";
                rowcnt++;
            }
            detail2= detail2.concat(stmt2.charAt(i));
        }

        if(model.instance1.selectSingleNode(path + "[" + rowcnt + "]") != null){
            model.makeValue(path + "[" + rowcnt + "]/" + nodenm2, detail2);

        }else{
            model.makeNode(path  + "[" + rowcnt + "]");
            model.makeValue(path + "[" + rowcnt + "]/" + nodenm2, detail2);
        }
    }
    model.refresh();
}

// ȯÀÚ ÀǷẸÇè Á¶È¸
// root/patinsuranceinfo
function fGetPatInsuranceInfo()
{
  //var paminfo = getGlobalVariable("paminfo");
  
  //var rrgstno = model.getValue("/root/main/paminfo/list/rrgstno1") + model.getValue("/root/main/paminfo/list/rrgstno2");
  //var hngnm = model.getValue("/root/main/patinfo/hngnm");   
  //model.makeValue("/root/send/cond/hngnm", hngnm);
  //model.makeValue("/root/send/cond/rrgstno", rrgstno);    
  var pid = model.getValue("/root/main/patinfo/pid");
  var orddd = model.getValue("/root/main/patinfo/orddd");
  
  if(pid != "")
  {
    model.makeValue("/root/send/cond/pid", pid);
    model.makeValue("/root/send/cond/orddd", orddd);
    submit("TRMMR02910");
    
    // Á¶È¸µ¥ÀÌÅÍ È®ÀÎ
    var InsuranceInfoList = findNodeset(model, "/root/main/patinsuranceinfo");
  			  
  	if(InsuranceInfoList.length == 0)
  	{
  		model.makeValue("/root/send/cond/pid", pid);
    	model.makeValue("/root/send/cond/orddd", getCurrentDate());
    	submit("TRMMR02910");
  	}
  }
}

function fGetHospitalCode()
{
  var hospcd = model.getValue("/root/main/hospinfo/hospcd");
  
  if(hospcd == "")
  {
    model.makeValue("/root/send/reqdata/hardcdno", "1112"); //  ÀÇ·á±Þ¿©±â°üÄÚµå
    submit("TRMRF03104");
    
    var hardcdlistNode = findNodeset(model, "/root/main/hardcdlist");
    var hospcd = "";
    if(hardcdlistNode.length > 0)
    {
      var hardcdNode = hardcdlistNode.item(0);
      hospcd = hardcdNode.selectSingleNode("trgtcd").text;
    }
    
    model.makeValue("/root/main/hospinfo/hospcd", hospcd);
  }
  
  return hospcd;
}

function fSetHospInfo(instcd, formcd, langflag)
{ 
  try{
  	g_pageInfo = new PAGEINFO();
			  
    model.makeValue("/root/send/reqdata/hardcdno", "1007");	// Á¦Áõ¸í º´¿øÁÖ¼Ò ±âº» ¹®Àå ÄÚµå

    submit("TRMRF03104");
    
    var hardcdlistNode = findNodeset(model, "/root/main/hardcdlist");
    
    var CommonHospNm = "";
    var HospNm = "";
          
  	for(var idx = 0; idx < hardcdlistNode.length; idx++)
  	{
  		var hardcdNode = hardcdlistNode.item(idx);
  		
  		if(hardcdNode.selectSingleNode("trgtcd").text == "COMMON")
  			CommonHospNm = hardcdNode.selectSingleNode("trgtcdnm").text;
  			
  		if(hardcdNode.selectSingleNode("trgtcd").text == "ENGNM")
  			HospNm = hardcdNode.selectSingleNode("trgtcdnm").text;
    }

    submit("TRMRF01204");
    
    // ¹ßÇàÀÏ »èÁ¦
    fSetItemDataByItemBaseCd("0004499", "0004499", "");

    if(langflag != "EN")
    {
        //ÀÇ·á±â°ü¸í : 0004500.0004500
        fSetItemDataByItemBaseCd("0004500.0004500", "0004500", model.getValue("/root/hidden/hospinfo/hospnm"));
        //ÁÖ¼Ò : 0004500.0000930
        fSetItemDataByItemBaseCd("0004500.0000930", "0000930", model.getValue("/root/hidden/hospinfo/addr"));
        //ÀüÈ­ : 0004500.0000883
        fSetItemDataByItemBaseCd("0004500.0000883", "0000883", model.getValue("/root/hidden/hospinfo/reprtel1"));
        //Fax : 0004500.0008377
        fSetItemDataByItemBaseCd("0004500.0008377", "0008377", model.getValue("/root/hidden/hospinfo/reprfaxno"));
        //»ç¾÷ÀÚµî·Ï¹øÈ£ : 0004500.0014545
        fSetItemDataByItemBaseCd("0004500.0014545", "0014545", model.getValue("/root/hidden/hospinfo/bizmngrgstno"));
        //´ëÇ¥ÀÚ¸í : 0004500.0011291
        fSetItemDataByItemBaseCd("0004500.0011291", "0011291", model.getValue("/root/hidden/hospinfo/prsdnm"));
        //´ëÇ¥ÀÚ ÁֹιøÈ£ : 0004500.0011291.0000929
        //fSetItemDataByItemBaseCd("0012925.0000457", "0000929", model.getValue("/root/hidden/hospinfo/prsdnm"));
        //¿ä¾ç±â°ü±âÈ£
        fSetItemDataByItemBaseCd("0004500.0018753", "0018753", model.getValue("/root/hidden/hospinfo/proccorpcd"));
    }
    else
    {
        //ÀÇ·á±â°ü¸í : 0004500.0004500
        if(CommonHospNm != "" && HospNm != "")
        {
          //var hospengnm = CommonHospNm + "\n\r" + HospNm;
          var hospengnm = CommonHospNm + "\n" + HospNm;
          
          //fSetItemDataByItemBaseCd("0004500.0004500", "0004500", model.getValue("/root/hidden/hospinfo/hospengnm"));
          fSetItemDataByItemBaseCd("0004500.0004500", "0004500", hospengnm);
        }
        else
        {
          var hospengnmArr = model.getValue("/root/hidden/hospinfo/hospengnm").split(",");
          
          CommonHospNm = hospengnmArr[0].getTrimRight();
          CommonHospNm += ",\n";
          
          HospNm = hospengnmArr[1].getTrimLeft();
          
          fSetItemDataByItemBaseCd("0004500.0004500", "0004500", CommonHospNm + HospNm);
        }
        
        // 2009-04-02 ¿ÀÁöÈÆ ÇϵåÄÚµùÀ» ¼öÁ¤
        //ÁÖ¼Ò : 0004500.0000930
        //fSetItemDataByItemBaseCd("0004500.0000930", "0000930", "505.Banpo-Dong, Seocho-Gu, Seoul, Korea(137-040)");        
        fSetItemDataByItemBaseCd("0004500.0000930", "0000930", model.getValue("/root/hidden/hospinfo/engaddr"));
        
        //ÀüÈ­ : 0004500.0000883
        var reprtel1 = model.getValue("/root/hidden/hospinfo/reprtel1");
        if( !isNull(reprtel1) )
			reprtel1 = reprtel1.substr(1, reprtel1.length);
        fSetItemDataByItemBaseCd("0004500.0000883", "0000883", "82-" + reprtel1);
        //Fax : 0004500.0008377
        var reprfaxno = model.getValue("/root/hidden/hospinfo/reprfaxno");
        if( !isNull(reprfaxno) )
			reprfaxno = reprfaxno.substr(1, reprfaxno.length);
        fSetItemDataByItemBaseCd("0004500.0008377", "0008377", "82-" + reprfaxno);
        //»ç¾÷ÀÚµî·Ï¹øÈ£ : 0004500.0014545
        fSetItemDataByItemBaseCd("0004500.0014545", "0014545", model.getValue("/root/hidden/hospinfo/bizmngrgstno"));
        //´ëÇ¥ÀÚ¸í : 0004500.0011291
        fSetItemDataByItemBaseCd("0004500.0011291", "0011291", model.getValue("/root/hidden/hospinfo/prsdengnm"));
        //´ëÇ¥ÀÚ ÁֹιøÈ£ : 0004500.0011291.0000929
        //fSetItemDataByItemBaseCd("0012925.0000457", "0000929", model.getValue("/root/hidden/hospinfo/prsdnm"));
        //¿ä¾ç±â°ü±âÈ£
				fSetItemDataByItemBaseCd("0004500.0018753", "0018753", model.getValue("/root/hidden/hospinfo/proccorpcd"));
    }

    //Áõ¸í¼­º° Ư¼ö case
    if(formcd == "0000001485")//»ç»êÁõ¸í¼­
    {
        //»ç»êÀå¼Ò : 0014551.0000930
        fSetItemDataByItemBaseCd("0014551.0000930", "0000930", model.getValue("/root/hidden/hospinfo/hospnm"));
    }
    else if(formcd == "0000001484" || formcd == "1800020599")
    {
        //»óÈ£
        fSetItemDataByItemBaseCd("0012925.0004500", "0004500", model.getValue("/root/hidden/hospinfo/hospnm"));
        //¼ÒÀçÁö
        fSetItemDataByItemBaseCd("0012925.0000930", "0000930", model.getValue("/root/hidden/hospinfo/addr"));
    }   
    else if(formcd == "0900005340") // Áø·áÀÇ·Ú¼­
    {
      model.makeValue("/root/send/reqdata/hardcdno", "1117");

      submit("TRMRF03104");
      
      var hardcdlistNode = findNodeset(model, "/root/main/hardcdlist");
      var PrdNm = "";
            
    	for(var idx = 0; idx < hardcdlistNode.length; idx++)
    	{
    		var hardcdNode = hardcdlistNode.item(idx);
    		
    		if(hardcdNode.selectSingleNode("trgtcd").text == "PRDNM")
    			PrdNm = hardcdNode.selectSingleNode("trgtcdnm").text;
      }
      
      if(PrdNm != "")
        fSetItemDataByItemBaseCd("0004500.0011291", "0011291", PrdNm);
    }
  }
  catch(e)
  {
    
  }
	model.refresh();    
}


function fSetItemDataByItemBaseCd(levelcd, basecd, itemval, targetRef)
{
    if(targetRef == null)
        targetRef = "reccnts";

    var pageInfo = new PAGEINFO();
	//pmodel.setValue(pageInfo.recItemRef + "[degnitemcd = '" + degnitemcd + "']/itemval", itemval);
	var nodeList = instance1.selectNodes(pageInfo.recItemRef + "[contains(degnitemlevlcd, '" + levelcd + "') and contains(degnitemcd, '" + basecd + "')]/" + targetRef);
	//alert(levelcd + ", " + basecd + ", " + itemval + " : " + nodeList.length);
	for(var i = 0; i < nodeList.length; i++)
	{
		var node = nodeList.item(i);
		node.text = itemval;
	}

	//pmodel.refresh();
}


/**
* @desc   : ÀÀ±ÞȯÀÚ À̼ÛÀÇ·Ú¼­ Ãâ·Â ±â´É
* @param  :
* @return :
* @author : 2009-07-01 ¿ÀÀü 9:13:34 °­ÁöÈÆ
* @---------------------------------------------------
*/
function fSetTranPrnt(){
	
	var rtn = ivw_loader.window.javascript.fCheckChangeDataForCosign();
	
	if (rtn != "N")
	{
	    messageBox("±â·Ï³»¿ë Áß ¼öÁ¤µÈ ³»¿ëÀÌ ÀÖ½À´Ï´Ù. ÀúÀå ÈÄ", "C003");
	    model.setFocus("btn_save");
	    return;
	}
	
	mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/pidprntform", 3801);
	mmbfGetHardCodeInfo("/root/send/formhrdcd", "/root/init/eddeptcd", 1);
	
	var currow      = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
	var ivwCtrl     = ivw_loader.window.document.controls("ivw_base");
	var usernm      = getUserName();
	var instcd      = getUserInfo("dutplceinstcd");
	var pidPrntForm = model.getValue("/root/init/pidprntform/hardcd/hardcd");
	var pid         = model.getValue("/root/main/patinfo/pid");
	var orddeptcd   = model.getValue("/root/init/eddeptcd/hardcd/hardcd");
	var formcd      = "0900005742"; //À̼ÛÀÇ·Ú¼­ OCR ¼­½ÄÄÚµå
	var rexid       = "RFM0574200"; //À̼ÛÀÇ·Ú¼­ rexpert ID
	
	copyNodeset("/root/main/recinfo", "/root/main/recinfo", "replace", model, ivwCtrl.model);      //¼­½ÄÁö Á¤º¸ ¼³Á¤
	
	//TRMMR02911 submit Á¤º¸ setting
	model.removenode("/root/send/barcodereq");
	model.makeValue("/root/send/barcodereq/pid"      , pid);         //µî·Ï¹øÈ£
	model.makeValue("/root/send/barcodereq/orddeptcd", orddeptcd);   //ºÎ¼­ÄÚµå
	model.makeValue("/root/send/barcodereq/instcd"   , instcd);      //±â°üÄÚµå
	model.makeValue("/root/send/barcodereq/formcd"   , formcd);      //À̼ÛÀÇ·Ú¼­ ¼­½ÄÄÚµå
	
	
		
	
  //ÁֹιøÈ£, ºÎ¼­¸í °¡Á®¿À±â À§ÇÑ submit
	if(submit("TRMMR02911")){
		var seq       = model.getValue("/root/temp/docinfo/seq");
		var edcntctel = model.getValue("/root/temp/docinfo/edcntctel");
		var indd      = model.getValue("/root/main/patinfo/orddd");
		
		
		model.removenode("/root/hidden/docinfo");
		model.makeValue("/root/hidden/docinfo/signimge"     , ivwCtrl.model.getValue("/root/hidden/docinfo/signimge"));   //¼­½Ä¼­¸íÀ̹ÌÁö ¼³Á¤
		model.makeValue("/root/hidden/docinfo/orddd"        , indd);   //Áø·áÀÏ
		model.makeValue("/root/hidden/docinfo/logurl"       , getImageURL("biglogo"+getUserInfo("dutplceinstcd"), "jpg")); //º´¿ø ·Î°í
		model.makeValue("/root/hidden/docinfo/usernm"       , usernm); //Ãâ·ÂÀÚ¸í
		model.makeValue("/root/hidden/docinfo/seq"          , seq); //¹ÙÄÚµå¹øÈ£
		model.makeValue("/root/hidden/docinfo/orddeptabbr"  , model.getValue("/root/temp/docinfo/orddeptabbr")); //Áø·á°ú ¾à¾î¸í
		model.makeValue("/root/hidden/docinfo/rrgstno1"     , model.getValue("/root/temp/docinfo/rrgstno1")); //ÁֹιøÈ£¾ÕÀÚ¸®
		model.makeValue("/root/hidden/docinfo/rrgstno2"     , model.getValue("/root/temp/docinfo/rrgstno2")); //ÁֹιøÈ£µÞÀÚ¸®
		model.makeValue("/root/hidden/docinfo/curdd"        , getCurrentDate()); //ÇöÀç ¿¬¿ùÀÏ
		model.makeValue("/root/hidden/docinfo/curtm"        , getCurrentTime()); //ÇöÀç ½Ã°£
		model.makeValue("/root/hidden/docinfo/pidprntform"  , pidPrntForm); //¼­½Ä Ãâ·Â¾ç½Ä
		model.makeValue("/root/hidden/docinfo/edcntctel"    , edcntctel); //ÀÀ±Þ½Ç ÀüÈ­¹øÈ£
		
		
		
		fDoMakeProfPrntInfo(ivwCtrl);
		
		clearParameter("reportprintyn");	
		exeReportPreview(rexid, "XMLSTR", "", "", "true", "", "", "", "", "true"); //¹Ì¸®º¸±â¸¸ °¡´É
		
		if (getParameter("reportprintyn") == "Y"){   // ÇÁ¸°Æ® Ãâ·ÂÀÌ µÇ°í âÀÌ ´ÝÇûÀ» ¶§ 
			var pagecnt = getParameter("reportPageCount");		//Ãâ·ÂÀå¼ö(RPMNW03600)
			
			//OCRÁ¤º¸¸¦ ÀúÀåÇϱâ À§ÇÑ parameter
			var cretno = model.getValue("/root/main/patinfo/cretno");
			var ordtype = model.getValue("/root/main/patinfo/ioflag");
			var orddrid = model.getValue("/root/main/patinfo/orddrid");
			var formfromdt = model.getValue("/root/temp/docinfo/formfromdt");
			
			//OCR Á¤º¸ ÀúÀå
			if(!fSaveOCRIF(seq, pid, indd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, "", "", pagecnt)){
				messageBox("ÅëÇÕ±â·ÏÁ¶È¸ ¿¬µ¿Áß ½ÇÆÐÇÏ¿´½À´Ï´Ù.","C999");
				return;
			}
		}
		
		
	}
	else{
		messageBox("¼­½ÄÀ» ¿­ ¼ö", "I004");
    return;
	}
}

        
/**
* @desc   : ȯÀÚÀÇ º¸ÇèÀ¯Çü¿¡ µû¶ó Áø·áÀÇ·Ú¼­ ÀÛ¼º Á¦ÇÑ ±â´É
* @param  :
* @return :
* @author : 2009-07-03 ¿ÀÀü 8:46 ÀÌ°æÈñ
* @---------------------------------------------------
*/
function fRestrictionform(profformcd)
{
	// Áø·áÀÇ·Ú¼­ÀÎ °æ¿ì ȯÀÚÀÇ º¸ÇèÀ¯ÇüÀÌ °Ç°­º¸Çè, ÀÇ·á±Þ¿© 1,2Á¾ÀÌ ¾Æ´Ñ °æ¿ì Áø·áÀÇ·Ú¼­¸¦ ÀÛ¼ºÇÏÁö ¸øÇϵµ·Ï ÇÔ.
  if(profformcd == "0900005340")
  {
  	var insukind = model.getValue("/root/main/patinfo/insukind");
  	//var insukind = model.getValue("/root/main/paminfo/list/insukind");
  	
  	// º¸Çè °øÅëÄڵ屺 P0008
  		/*
  		11  °Çº¸
  		21  ÀÇ·á±Þ¿©1Á¾
  		22  ÀÇ·á±Þ¿©2Á¾
  		31	ÀÚº¸
			41	Ȑˍ
			42	°ø»ó
			51	ÀϹÝ
			61	¿Ü±¹ÀÎ
			71	ÀÓ»ó½ÃÇè
			81	³ëÀÎÀå±â¿ä¾çº¸Çè
			*/
			var insunm = "";
  		switch(insukind)
  		{
  			case "11": 
  			case "21": 
  			case "22": 
  				return true;
  				break;
  			case "31": insunm = "ÀÚº¸";
  				break;
  			case "41": insunm = "Ȑˍ";
  				break;
  			case "42": insunm = "°ø»ó";
  				break;
  			case "51": insunm = "ÀϹÝ";
  				break;
  			case "61": insunm = "¿Ü±¹ÀÎ";
  				break;
  			case "71": insunm = "ÀÓ»ó½ÃÇè";
  				break;
  			case "81": insunm = "³ëÀÎÀå±â¿ä¾çº¸Çè";
  				break;
  			
  		}
  		/*
  		var patnm = model.getValue("/root/main/patinfo/hngnm");
  		
  		if(patnm == "")
  			patnm = "ÇØ´ç";
  			
  		var msg = patnm + " ȯÀÚÀÇ º¸ÇèÀ¯Çü(" + insunm + ")À¸·Î´Â Áø·áÀÇ·Ú¼­¸¦ ÀÛ¼ºÇÒ ¼ö";
  		var optmsg = "\n¡ØÁø·áÀÇ·Ú¼­ÀÇ ÀÛ¼ºÀº °Ç°­º¸Çè, ÀÇ·á±Þ¿© 1, 2Á¾ÀÇ º¸ÇèÀ϶§¸¸ °¡´ÉÇÕ´Ï´Ù.";
  		messageBox(msg, "I004", optmsg);
  		*/
  		messageBox("Áø·áÀÇ·Ú¼­´Â °Ç°­º¸Çè, ÀÇ·á±Þ¿©(1,2Á¾)ÀÎ °æ¿ì¸¸ ÀÛ¼º", "I006");
  		return false;
  }
}


// Àü¿ø¼Ò°ß¼­(0000002536), ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­(0000003129) À϶§ Àü¿øÀÇ·ÚÁ¤º¸°¡ ÀÖ´Â °æ¿ì ¼ÂÆÃÇØÁÜ. ÇϵåÄÚµå(8900) (2010.06.14. ÀÌÀº¿µ Ãß°¡)
function fSetChngHospInfo(pid, formcd, formrecseq)
{
	//alert("pid=[" + pid + "] formcd=[" + formcd + "] formrecseq=[" + formrecseq + "]");

	model.makeValue("/root/send/chnghospinfo/instcd"	, getUserInfo("dutplceinstcd"));
	model.makeValue("/root/send/chnghospinfo/pid"		, pid);
	model.makeValue("/root/send/chnghospinfo/formcd"	, formcd);
	model.makeValue("/root/send/chnghospinfo/formrecseq", formrecseq);

	if (formrecseq != "0" && formrecseq != "")
	{
		if(submit("TRMMR02913"))
		{
			var coophospnm = model.getValue("/root/hidden/chnghospinfo/coophospnm");
			var coopdrnm   = model.getValue("/root/hidden/chnghospinfo/coopdrnm");

			if (coophospnm != "" || coopdrnm != "") {

				var item_coophospnm = ivw_loader.ivw_base.window.javascript.getFormItemValue("0016976.0016976");
				var temp_coophospnm = item_coophospnm.reccnts;

				var item_coopdrnm   = ivw_loader.ivw_base.window.javascript.getFormItemValue("0016976.0002730");
				var temp_coopdrnm   = item_coopdrnm.reccnts;

				if (coophospnm != temp_coophospnm || coopdrnm != temp_coopdrnm) {
					var msg = "";
					msg = msg + "\n" + "---------------------------------------------------------------";
					msg = msg + "\n" + "¼Ò°ß¼­¿¡ µî·ÏµÈ Á¤º¸ÀÔ´Ï´Ù. ";
					msg = msg + "\n" + "Àü¿øº´¿ø¸í [" + temp_coophospnm + "] È®ÀÎÀÚ(Àü¿øº´¿ø) [" + temp_coopdrnm + "]";
					msg = msg + "\n" + "---------------------------------------------------------------";
					msg = msg + "\n" + "Àü¿øÀÇ·Ú Á¤º¸ÀÔ´Ï´Ù.";
					msg = msg + "\n" + "Àü¿øÀÇ·Úº´¿ø [" + coophospnm + "] Àü¿øÀÇ·ÚÀÇ»ç [" + coopdrnm + "]";
					msg = msg + "\n" + "---------------------------------------------------------------";
					msg = msg + "\n" + "Àü¿øº´¿ø¸í°ú È®ÀÎÀÚ(Àü¿øº´¿ø)°¡ Àü¿øÀÇ·Ú Á¤º¸·Î º¯°æµÇ¾ú½À´Ï´Ù.";
					msg = msg + "\n" + "ÀúÀå ÈÄ ¹ßÇàÇϽʽÿÀ.";
					msg = msg + "\n" + "---------------------------------------------------------------";
					messageBox(msg, "I");

					// º¯°æµÈ ³»¿ë ¼ÂÆÃÇØÁÖ±â..
					item_coophospnm.reccnts = coophospnm;
					ivw_loader.ivw_base.window.javascript.setFormItemValue("0016976.0016976", item_coophospnm, true);

					item_coopdrnm.reccnts =coopdrnm;
					ivw_loader.ivw_base.window.javascript.setFormItemValue("0016976.0002730", item_coopdrnm, true);
				}
			}
		}
	}
}

function fSaveChk(){
	
	var chk="true";
	var formcd = ivw_loader.ivw_base.model.getValue("/root/main/forminfo/formmast/formcd");
	var srcformcd = ivw_loader.ivw_base.model.getValue("/root/main/forminfo/formmast/srcformcd");
	
	//Á¦Áõ¸í À̷¿¡¼­ ÀúÀå½Ã È­¸éüũ(20140724 ÀÌÀ±ÁÖ)
	if (swc_prof.selectedIndex == 2 ) {
		var selectedrow = grd_profhistlist.row;
		var profcertseq = model.getValue("/root/main/profhist/list[" + selectedrow + "]/profcertseq");
		var yearseqno = model.getValue("/root/main/profhist/list[" + selectedrow + "]/yearseqno");
		
		if (yearseqno == "") {
			//¹ßÇà¹øÈ£°¡ ¾øÀ»½Ã Çö½ÃÁ¡ÀÇ ¹ßÇà¿©ºÎ¸¦ È®ÀÎÇÑ´Ù
			model.makeValue("/root/send/reqdata/profcertseq",profcertseq);
			
			submit("TRMMR05504",false);
			
			var balyncnt = model.getValue("/root/hidden/balyn/cnt");
			
			//È­¸éÀÌ old
			if (balyncnt != 0) {
				messageBox("È­¸éÀ» ÀçÁ¶È¸ ÇϽÅÈÄ ÁøÇàÇϽñ⠹ٶø´Ï´Ù","I999");
				return "false";
			}
		}
		
		//[20150625009] ±âÃâ·ÂµÈ Á¦Áõ¸í ¼öÁ¤ÈÄ ½Å±Ô¼­½ÄÀ¸·Î ÀúÀå½Ã ¿À·ù¼öÁ¤ ¿äû
		var orddoctid   = model.getValue("/root/main/profhist/list[" + selectedrow + "]/issid");
		var sUserid		= getUserInfo("userid")
		// Á÷±ºÀÌ ÀÇ»ç, ¹ßÇ࿬¹øÈ£°¡ Á¸ÀçÇÏ°í ¹ßÇàÀÚ¿Í ·Î±×ÀÎÇÑ »ç¿ëÀÚ¿ÍÀÇ Á¤º¸°¡ ´Ù¸¦°æ¿ì ·Î±×ÀÎÇÑ »ç¿ëÀÚÀÇ Á¤º¸¸¦ ¼³Á¤ 
		if(yearseqno != "" && yearseqno != null && orddoctid != sUserid && formcd != "0000001539" && getUserInfo("jobkindcd").substring(0,2) == "03")
		{
			var langflag = ivw_loader.ivw_base.model.getValue("/root/main/forminfo/formmast/langflag");
			
			drid = getUserId();
	        drnm = getUserInfo("usernm");
	        drengnm = getUserInfo("userengnm");
	        deptnm = getUserInfo("dutplcenm");
	        deptengnm = getUserInfo("deptengnm");
	        licnsno = getUserInfo("licnsno");
	        medispclno = getUserInfo("medispclno");
	    
	        ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0016651.0007593", "0007593" , licnsno);    //ÀÇ»ç¸éÇã¹øÈ£ : 0007593
	        ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0016651.0017053", "0017053" , medispclno); //Àü¹®ÀÇ ¹øÈ£
		    
		    if(langflag == "EN"){ //¿µ¹®¼­½ÄÀÎ °æ¿ì ¿µ¹®¸í ¼³Á¤
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0016651.0000940", "0000940", drengnm); //Àǻ缺¸í : 0000940
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0000965", "0000965", deptengnm);       //Áø·á°ú : 0000965
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0012706.0016979", "0016979", drid);    //ÀÛ¼ºÀÚ : 0012706.0016979
	
		    }else{                
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0016651.0000940", "0000940", drnm);    //Àǻ缺¸í : 0000940    
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0000965", "0000965", deptnm);          //Áø·á°ú : 0000965
		    	ivw_loader.ivw_base.window.javascript.fSetItemDataByItemBaseCd("0012706.0016979", "0016979", drid);    //ÀÛ¼ºÀÚ : 0012706.0016979
	
		    }
		
		}
		
	}
		
	//»ç¸ÁÈ®Àμ­  or ½Ãü°Ë¾È¼­
	if(formcd=="0000001314" ||formcd=="0000002841" ){
		var bal = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno='9']/reccnts");
		if (bal !=""){
			if (bal.length < 21) {
				messageBox("¹ßº´ÀϽð¡ Á¤È®ÇÏ°Ô ÀԷµÇÁö ¾È¾Ò½À´Ï´Ù.\nÀÛ¼º ¿¹(2011³â 12¿ù 25ÀÏ 12½Ã 25ºÐ)", "I");
				chk="false";
				return chk;
			}
		}
		var deathdate = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno='10']/reccnts");
		if (deathdate !=""){
			if (deathdate.length< 21){
					messageBox("»ç¸ÁÀϽð¡ Á¤È®ÇÏ°Ô ÀԷµÇÁö ¾È¾Ò½À´Ï´Ù.\nÀÛ¼º ¿¹(2011³â 12¿ù 25ÀÏ 12½Ã 25ºÐ)", "I");
					chk="false";
					return chk;
			}
			var currentdate = getCurrentDate()+getCurrentTime();
			currentdate = currentdate.substr(0,12);
			deathdate = deathdate.substr(0,4)+deathdate.substr(6,2)+deathdate.substr(10,2)+deathdate.substr(14,2)+deathdate.substr(18,2);
			if (deathdate > currentdate) {
				messageBox("»ç¸ÁÀϽð¡ Çö ½Ã°¢º¸´Ù ´ÊÀ» ¼ö´Â ¾ø½À´Ï´Ù","I");
				chk="false";
				return chk;
			}
		}
		
		var badate = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno='47']/reccnts");
		if (badate !=""){
			if (badate.length < 21){
					messageBox("»ç°í ¹ß»ýÀϽð¡ Á¤È®ÇÏ°Ô ÀԷµÇÁö ¾È¾Ò½À´Ï´Ù.\nÀÛ¼º ¿¹(2011³â 12¿ù 25ÀÏ 12½Ã 25ºÐ)", "I");
					chk="false";
					return chk;
			}
		}
		//2012/06/22 Start
		if(formcd=="0000001314"){
			var juminbunho = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001209.0000929']/reccnts");
			var birthday = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemlevlcd='0001209.0001037']/reccnts");
			var jumin = juminbunho.substring(0,6);
			var birth = birthday.substring(2,8);
			if(jumin != birth){
				var check=messageBox("ÁֹιøÈ£ ¾ÕÀÚ¸®¿Í ½ÇÁ¦ »ý³â¿ùÀÏÀÌ ´Ù¸¨´Ï´Ù.\n°è¼Ó ÁøÇà", "S001", ""); //¿¹:6  ¾Æ´Ï¿À:7  Ãë¼Ò:2
				if(check=="6"){
					chk="true";
				}else if(check=="7"){
					chk="false";
					return chk;
				}else if(check=="2"){
					chk="false";
				}
			}
			return chk;
		}
		//2012/06/22 End
	}
	
	//Àü¿ø¼Ò°ß¼­
	if(srcformcd=="0000002536"){
		
		if(!fTransChk()) {
			messageBox("´ç¿ù µ¿ÀÏ°ú ¶Ç´Â Àç¿øÁß¿¡ ¹ßÇàÀÌ·ÂÀÌ ÀÖÀ¸´Ï Áø·áÀÇ·Ú¼­·Î ÀÛ¼º ÇϽñ⠹ٶø´Ï´Ù! ¹®ÀÇ:Áø·áÀÇ·Ú¼¾ÅÍ(5023)","I");
			return "false";
		}
		
		
		var hospname = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno='126']/reccnts");
		if (hospname !=""){
			if (hospname.length < 3){
					messageBox("Àü¿ø º´¿ø¸íÀº ¼¼±ÛÀÚ ÀÌ»óÀ̾î¾ß ÇÕ´Ï´Ù.", "I");
					chk="false";
					return chk;
			}
		}
	}
	
	//ÀÀ±Þ½Ç Àü¿ø¼Ò°ß¼­
	if(formcd=="1100011620"){
		var hospname = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemno='134']/reccnts");
		if (hospname !=""){
			if (hospname.length < 3){
					messageBox("Àü¿ø º´¿ø¸íÀº ¼¼±ÛÀÚ ÀÌ»óÀ̾î¾ß ÇÕ´Ï´Ù.", "I");
					chk="false";
					return chk;
			}
		}
	}
	
 	// 2014.03.17 cyw Á¦Áõ¸í ÀϹÝÁø´Ü¼­ ÀԷ½Ã, ºñ°í¶õ ±æÀÌ Ã¼Å©. ÇØ´ç ³Êºñ ÃÊ°úÇÏÁö ¾Êµµ·Ï!!----------------------------------------
 	if( formcd == "1100012297"){
 		var Nodelist = findNodeset(ivw_loader.ivw_base.model, "/root/main/recinfo/recitem[degnitemcd ='0000381001' and degnitemkind = 'MTX']");
 		
 		if( Nodelist.length > 0 ){
	 		var FormNodelist = Nodelist.item(0);
	 		var reccnts = FormNodelist.selectSingleNode("reccnts").text;
	 		var reccntarry = reccnts.split("\n");
 			var reccntcnt = reccntarry.length-1;
 			
 			// Enter Å°°ªÀÌ ¾øÀ»°æ¿ì ¹®ÀåÀÇ ±æÀÌ Ã¼Å©
	 		if( reccntcnt == 0 ){
	 			if(reccntarry[0].length > 175 ){  
	 				messageBox("ºñ°í¶õÀÇ ±ÛÀÚ¼ö°¡ ÃÊ°úµÇ¾úÀ¸´Ï À§Ä­(¼Ò°ß¶õ)À» ÀÌ¿ëÇϽñ⠹ٶø´Ï´Ù. ( ¹®ÀÇ : ¿ø¹«ÆÀ Á¦Áõ¸í ´ã´ç )","I");
	 				chk="false";   return chk;
	 			}
	 		}else{ 
	 			// °¢ ÇàÀÇ ±æÀÌ Ã¼Å©
	 			if( reccntcnt > 4 ){   // EnterÅ°°ªÀÌ 5°³ ÀÌ»óÀÏ °æ¿ì 
	 				messageBox("ºñ°í¶õÀÇ ±ÛÀÚ¼ö°¡ ÃÊ°úµÇ¾úÀ¸´Ï À§Ä­(¼Ò°ß¶õ)À» ÀÌ¿ëÇϽñ⠹ٶø´Ï´Ù. ( ¹®ÀÇ : ¿ø¹«ÆÀ Á¦Áõ¸í ´ã´ç )","I"); chk="false";   return chk;
	 			}else{
	 				var calcvalue = 0;	 				
 					for( var i = 0 ; i <= reccntcnt; i++ ){
 						calcvalue = calcvalue + reccntarry[i].length;
 					}
 					
 					if( calcvalue > 140 ) {  
 						messageBox("ºñ°í¶õÀÇ ±ÛÀÚ¼ö°¡ ÃÊ°úµÇ¾úÀ¸´Ï À§Ä­(¼Ò°ß¶õ)À» ÀÌ¿ëÇϽñ⠹ٶø´Ï´Ù. ( ¹®ÀÇ : ¿ø¹«ÆÀ Á¦Áõ¸í ´ã´ç )","I"); 
 						chk="false";   
 						return chk;  
 					}
	 			}
	 		}
 		}
 	}
 	//---------------------------------------------------------------------------------------------------------------------------------	
	
 	// 2016.06.17  ȸ¼Û(Àü¿ø)¼Ò°ß¼­ Áø´Ü¸í ¾øÀ»°æ¿ì Á¦¾î[¿äû¹øÈ£:20160617006]
 	if( lf_CheckPerPrint(formcd) == "Y" ) {
 		var nGrdCnt = ivw_loader.ivw_base.window.javascript.getNodesetCount("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[degnitemlevlcd='0016650.0000960.0000960']");
 		var sComment = "";
 		for( var i=0; i<nGrdCnt; i++ ){
 			var diagcd = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermcd");
 			var diagnm = ivw_loader.ivw_base.model.getValue("/root/main/recinfo/grid[degnitemlevlcd='0016650.0000960']/recitem[rowno='" + i + "' and colno='2']/rectermnm");
 			if( i!=0 && isNull( diagcd ) && isNull( diagnm ) ){
 				continue;
 			}else if( isNull( diagcd ) ){
 				sComment = "Áø´ÜÄÚµå";
 				break;
 			}else if( isNull( diagnm ) ){
 				sComment = "Áø´Ü¸í";
 				break;
 			}
 		}
 		if( !isNull( sComment ) ){
 			messageBox("Áø´Ü¸í " + (i+1) + "Çà " + sComment + " ÀԷ¹ٶø´Ï´Ù.", "I");
 			chk="false";
 			return chk;
 		}
 		if( nGrdCnt < 1 ){
 			messageBox("Áø´Ü¸íÀº ÇʼöÀÔ·ÂÀÔ´Ï´Ù.", "I");
 			chk="false";
 			return chk;
 		}
 		
 	}
	
	//2012/01/25
	//¸ðµç Á¦Áõ¸íÀÇ ¹ßÇàÀÏ
	var y=getCurrentDate().substring(0, 4);
	var m=getCurrentDate().substring(4, 6);
	var d=getCurrentDate().substring(6, 8);
	var current_date=y+"-"+m+"-"+d;
	if((ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemcd='0004499002']/reccnts")!=current_date)&&
	   (ivw_loader.ivw_base.model.getValue("/root/main/recinfo/recitem[degnitemcd='0004499002']/reccnts")!="")){
	   var check=messageBox("¹ßÇàÀÏÀÌ °ú°Å ÀÏÀÚÀÔ´Ï´Ù. °è¼Ó ÁøÇà", "S001", ""); //¿¹:6  ¾Æ´Ï¿À:7  Ãë¼Ò:2
		if(check=="6"){
			chk="true";
		}else if(check=="7"){
			chk="false";
			return chk;
		}else if(check=="2"){
			chk="false";
			return chk;
		}
	}
}	

function fIsOkGoal(rechistseq){
	var chk="false";
	 
	 model.makeValue("/root/send/reqdata/rechistseq", rechistseq);
   submit("TRMMR02916");
   var cnt = model.getValue("root/goal/cnt/cnt");
   
   if (cnt > 0 ) {
   	chk = "true";
  }
  return chk;
}

function fgetGoal(rechistseq){
	
	 model.makeValue("/root/send/reqdata/rechistseq", rechistseq);
   
   submit("TRMMR02917");
   
}

//ÀÏ¹Ý Áø´Ü(¼Ò°ß)¼­¿¡¼­ Áø´Ü ±â°£À» ´ç°Ü¿Ã ¼ö ÀÖµµ·Ï ÇÏ´Â ·ÎÁ÷ Ãß°¡
var inptinfo_flag=false;
function fInptInfo(){
	
	model.makeValue("/root/send/inptinfo/pid", model.getValue("/root/main/patinfo/pid"));
	//ȯÀÚÀÇ ÀÔ¿ø±â·ÏÀÌ ÀÖ´ÂÁö È®ÀÎ(ÃÖ±Ù 1³â°£)
	submit("TRMMR02918");
	if(model.getValue("/root/temp/inptinfo/chkyn")=='Y'){ // 1³â À̳»¿¡ ÀÔ¿øÀÌ·ÂÀÌ ÀÖÀ» °æ¿ì¸¸ ó¸®
		var check=messageBox("ȯÀÚÀÇ ÀÔ¿ø ÀÌ·ÂÀ» ¼±Åà ÇÒ °æ¿ì ÀÛ¼ºµÈ ¸ðµç ³»¿ëÀÌ »èÁ¦µË´Ï´Ù. \n±×·¡µµ", "Q003", ""); //¿¹:6  ¾Æ´Ï¿À:7  Ãë¼Ò:2
		if(check=="6"){
    		setParameter("SMMMR08300_pid", model.getValue("/root/main/patinfo/pid"));
        	modal("SMMMR08300", 1, 0, 0, "", "", "");
	    	// ÀÔ¿øÀÌ·ÂÀ» ¼±ÅÃÇßÀ» °æ¿ì ¸ðµç ±â·Ï¾ÆÀÌÅÛ ÃʱâÈ­
	    	if(getParameter("SMMMR08300_param")!=""){
	    		inptinfo_flag=true;
	    		fChosProflist();
	    	}
		}else if(check=="7"){
			return;
		}else if(check=="2"){
			return;
		}
	}else{
		messageBox(model.getValue("/root/main/patinfo/hngnm")+"´ÔÀº ÃÖ±Ù 1³â°£ ÀÔ¿ø ¶Ç´Â ÀÀ±ÞÀ¸·Î ³»¿øÇϽŠÀûÀÌ", "I004");
		return;
	}
}

// ¾ÆÀ̺ä¾îÀÇ Å©±â Á¶Àý
function fiviewSize(param){
	
	if(param=="expand"){
		swc_prof.attribute("width") = "967";
		grd_profhistlist.attribute("width") = "964";
		ivw_loader.attribute("left")="972px";
		ivw_loader.attribute("width")="218px";
	}else if(param=="normal"){
		swc_prof.attribute("width") = "375";
		grd_profhistlist.attribute("width") = "372";
		ivw_loader.attribute("left")="380px";
		ivw_loader.attribute("width")="810px";
		ivw_loader.ivw_base.attribute("width") ="805";	
	}
}

// 2013.12.06 Á¦Áõ¸í ¹ßÇà½Ã, ¼­½ÄÀ» À̹ÌÁö·Î ÀúÀå 
function ImageSave(formcd, rexid )
{
	var fso;
	var jpgpath;
	var count;
	var cretno;
	var pathidimg;
	var pathidrecord;
	var instcd;
	var treatno;
	var formcode;
	var cuserid;
	var userid;
	var dutplcecd;
	var dutplceinstcd;
	var localpath;
	var localfullpath = "";
	var imgpaths ="";
	var imgpath ="";
	var wavpaths ="";
	var wavpath ="";
	var pid;
	var ordtype;
	var orddd;
	var flag;
	var checkdatas;
	var checkdata;
	var checkdataval;
	var checkid;
	var checkvalue;
	var ocrtag;
	var cdate;
	var ctime;
	var cdateyyyymm;
	var cdatedd;
	var pagecnt;
	var instance = document.models(0).instances(0);
	var orddrid;
	var orddeptcd;
	var formfromdt;
	var depthngnm;
	var imgcnt = 0;

	var imgpath_head =  "c:\\" + "report" + "\\";
	
//	var server = '192.168.100.194';
//	var port = '2500';
//	var user = 'user';

	var server = model.getValue("/root/main/ltp/img/ltpindexserver");
	var port = model.getValue("/root/main/ltp/img/ltpindexport");
	var user = model.getValue("/root/main/ltp/img/ltpindexuser");
	
	if (LTPInit1(server, port, user) == false)
	{
		alert("ÆÄÀϼ­¹ö°¡ ¿­·ÁÀÖÁö¾Ê°Å³ª Á¢¼Ó ÇÒ ¼ö ¾ø½À´Ï´Ù.")
		window.close();
		//return;
	}
	
	fso = new ActiveXObject("Scripting.FileSystemObject");
	
	for( var i = 1; i <= 10; i++ ){
		imgpath = imgpath_head + rexid + i + ".jpeg";
		  if(fso.FileExists(imgpath)){
			  imgcnt++;
	      }	
	}
	
	model.removeNodeset("/root/data");
	model.makeNode("/root/data");
	model.removeNodeset("/root/hidden/paget");
	model.makeNode("/root/hidden/paget");
	 
	orddd = model.getValue("/root/main/result/pathistlist/orddd");
	submit("TRMPL04308");  //get Treatno

//	imgpath = imgpaths.split("|");  //ÀúÀåµÈ Æнº ¿©·¯ÀåÀÏ°æ¿ì ±¸ºÐÀÚ '|' ·ÎÀ߶óÁà¾ßÇÔ
//	pagecnt = imgpath.length-1;
	
	model.removeNodeset("/root/main/paget");
	model.makeNode("/root/main/paget");
	
	model.makeValue("/root/main/paget/cdate"   , "null");
	model.makeValue("/root/main/paget/instcd"  , model.getValue("/root/send/ocrtreat/instcd"    ));
	model.makeValue("/root/main/paget/pathid"  , model.getvalue("/root/main/ltpindexinfo/pathid"));
	model.makeValue("/root/main/paget/treatno" , model.getValue("/root/hidden/paget/treatno"    ));
	model.makeValue("/root/main/paget/formcode", model.getValue("/root/send/ocrtreat/formcd"    ));
	model.makeValue("/root/main/paget/cuserid" , model.getValue("/root/send/ocrtreat/cuser"     ));
	
	cuserid      = model.getValue("/root/send/ocrtreat/cuser"); 
	pid          = model.getValue("/root/send/ocrtreat/patid");
	patname      = model.getValue("/root/main/treat/patname");
	ordtype      = model.getValue("/root/send/ocrtreat/class");
	orddd        = model.getValue("/root/send/ocrtreat/indate");
	orddrid      = model.getValue("/root/send/ocrtreat/orddrid");
	orddeptcd    = model.getValue("/root/send/ocrtreat/orddeptcd");
	cretno       = model.getValue("/root/send/ocrtreat/cretno");
	treatno      = model.getValue("/root/main/paget/treatno");
	formcode     = model.getValue("/root/send/ocrtreat/formcd");
	instcd       = model.getValue("/root/send/ocrtreat/instcd");
	flag         = model.getValue("/root/send/ocrtreat/flag"); 
	pathidimg    = model.getValue("/root/main/ltp/img/pathid");
	pathidrecord = model.getValue("/root/main/ltp/record/pathid");
	formfromdt    = model.getValue("/root/send/ocrtreat/formfromdt");
	depthngnm1    = model.getValue("/root/main/treat/depthngnm1")

	dutplcecd = getUserInfo("dutplcecd");
	dutplceinstcd = getUserInfo("dutplceinstcd");
	
	ocrtag = model.getValue("/root/send/ocrtreat/ocrtag");

	cdateyyyymm = getCurrentDate() + getCurrentTime().substr(0, 6);
	
	//cmr ÀúÀå
	imgpath = "";
	var sSaveData = "status¢Ëpathid¢Ëcdate¢Ëcuserid¢Ëfilesize¢Ëextension¢Ëinstcd¢Ëtreatno¢Ëformcode¢Ëpid¢Ëorddd¢Ëclass¢Ëocrtag¢Ëflag¢Ëcretno¢Ëpage¢Ëorddeptcd¢Ì";
	for (count = 1; count <= imgcnt; count++)
	{			
		imgpath = imgpath_head + rexid + count + ".jpeg" ;
		pageno = model.getValue("/root/hidden/paget/pageno");

		//ssave data ¸¦ Àå¼ö´ë·Î ¸¸µé¾îÁÖ¸éµÊ
		sSaveData += "d¢Ë" + pathidimg + "¢Ë" + cdate ;
		sSaveData += "¢Ë"  + cuserid + "¢Ë" + fso.GetFile(imgpath).size ;
		sSaveData += "¢Ë"  + "jpg"   + "¢Ë" + instcd + "¢Ë" + treatno + "¢Ë" + formcode ;
		sSaveData += "¢Ë"  + pid     + "¢Ë" + orddd  + "¢Ë" + ordtype  ;
		sSaveData += "¢Ë"  + ocrtag  + "¢Ë" + flag   + "¢Ë" + cretno   + "¢Ë" + count + "¢Ë" + orddeptcd  + "¢Ì" ;
	}     
	if( imgcnt == 0 ){
		//ssave data ¸¦ Àå¼ö´ë·Î ¸¸µé¾îÁÖ¸éµÊ
		imgpath = imgpath_head + rexid + ".jpeg";

		sSaveData += "d¢Ë" + pathidimg + "¢Ë" + cdate ;
		sSaveData += "¢Ë"  + cuserid + "¢Ë" + fso.GetFile(imgpath).size ;
		sSaveData += "¢Ë"  + "jpg"   + "¢Ë" + instcd + "¢Ë" + treatno + "¢Ë" + formcode ;
		sSaveData += "¢Ë"  + pid     + "¢Ë" + orddd  + "¢Ë" + ordtype  ;
		sSaveData += "¢Ë"  + ocrtag  + "¢Ë" + flag   + "¢Ë" + cretno   + "¢Ë" + "1" + "¢Ë" + orddeptcd  + "¢Ì" ;			
	}
 
	//ocr ÀúÀå
	var sOcrData = "ocrtag¢Ëpid¢Ëordtype¢Ëorddd¢Ëcretno¢Ëorddrid¢Ëorddeptcd¢Ëformcd¢Ëformfromdt¢Ëfstprntdt¢Ëfstprntdeptcd¢Ëfstprntid¢Ëupdtdt¢Ëupdtdeptcd¢Ëupdtuserid¢Ëdiagnm¢Ëopnm¢Ëeocryn¢Ëpagecnt¢Ì";

	sOcrData += ocrtag + "¢Ë" + pid + "¢Ë" + ordtype + "¢Ë" + orddd + "¢Ë" + cretno ;
	sOcrData += "¢Ë" + orddrid + "¢Ë" + orddeptcd + "¢Ë" + formcode + "¢Ë" + formfromdt;
	sOcrData += "¢Ë" + cdateyyyymm + "¢Ë" + dutplcecd + "¢Ë" + cuserid + "¢Ë" + cdateyyyymm;
	sOcrData += "¢Ë" + dutplcecd +  "¢Ë" + cuserid + "¢Ë" + "" + "¢Ë" + ""; 
	sOcrData += "¢Ë" + "Y" + "¢Ë" + imgcnt + "¢Ì" ;

    model.makeValue("/root/data/savedata", sSaveData);
    model.makeValue("/root/data/ocrdata", sOcrData);
    var imgpaths = "";
	for (count = 1; count <= imgcnt; count++)
	{	
		imgpath = imgpath_head + rexid + count + ".jpeg" ;
		if( count == 1 ){
			imgpaths = imgpath ;	
		} else{
			imgpaths = imgpaths + "|" + imgpath;
		}
	}
	
	if( imgcnt == 0 ){
		imgpath = imgpath_head + rexid + ".jpeg" ;
		imgpaths = imgpath;
	}

    if (submit("TXMPL03304")) { 
    	if (ImageFilePut(imgpaths) == false)
    	{
    		alert("À̹ÌÁöÆÄÀÏ ÀúÀå½ÇÆÐ");
    		filetransfail(imgpaths)
    		
    		//insert µÈ ocr Á¤º¸ »èÁ¦
    		model.setValue("/root/send/ocrhistory/ocrtag", ocrtag);
    		model.setValue("/root/send/ocrhistory/delflag", 1);
    		submit("TXMPL03303");
    		return;
    	}
    	
    } else {
        
        messageBox("Á¦Áõ¸í ÀúÀå½ÇÆÐ", "I000");
        model.setValue("/root/send/ocrhistory/ocrtag", ocrtag);
		model.setValue("/root/send/ocrhistory/delflag", 1);
		submit("TXMPL03303");
    }
}


function LTPInit1(server, port, user)
{		   	
	if(f_ltp.IsOnline)
    {	
    }
    else
    {	
		f_ltp.server = server;
    	f_ltp.port = 2500;
    	f_ltp.account = user;	    	
    			
		if(f_ltp.Connect())
        {	
        }
        else
        {
            alert('LTP µ¥¸ó°úÀÇ Á¢¼ÓÀÌ ½ÇÆÐÇÏ¿´½À´Ï´Ù.');
            return false;
        }
	}     	
}

function LTP_Init()
{
	model.setValue("/root/send/ltp/activeA","A");  // À̹ÌÁöÀúÀåb
	model.setValue("/root/send/ltp/activeR","R"); // üũ , °¡À̵å xml ÆÄÀÏ
	model.setValue("/root/send/ltp/activeC","C"); // µðÀÚÀÎ , Çì´õǪÅÍ ÆÄÀÏ
	model.setValue("/root/send/ltp/activeV","V"); // À½¼º³ìÀ½ ÀúÀå
	submit("TRMPL03307"); // ltpÁ¤º¸ 
	
	model.setValue("/root/main/ltp/img/ltpindexserver",model.getValue("/root/main/ltpindexinfo[" + 1 +"]/ltpindexserver"));
	model.setValue("/root/main/ltp/img/ltpindexport","2500");
	model.setValue("/root/main/ltp/img/ltpindexuser",model.getValue("/root/main/ltpindexinfo[" + 1 +"]/ltpindexuser"));
	model.setValue("/root/main/ltp/img/ltpindexpath",model.getValue("/root/main/ltpindexinfo[" + 1 +"]/ltpindexpath"));
	model.setValue("/root/main/ltp/img/pathid",model.getValue("/root/main/ltpindexinfo[" + 1 +"]/pathid"));
	
	model.setValue("/root/main/ltp/validata/ltpindexserver",model.getValue("/root/main/ltpindexinfo["+ 2 +"]/ltpindexserver"));
	model.setValue("/root/main/ltp/validata/ltpindexport","2500");
	model.setValue("/root/main/ltp/validata/ltpindexuser",model.getValue("/root/main/ltpindexinfo["+ 2 +"]/ltpindexuser"));
	model.setValue("/root/main/ltp/validata/ltpindexpath",model.getValue("/root/main/ltpindexinfo["+ 2 +"]/ltpindexpath"));
	model.setValue("/root/main/ltp/validata/pathid",model.getValue("/root/main/ltpindexinfo["+ 2 +"]/pathid"));
	
	
	model.setValue("/root/main/ltp/resource/ltpindexserver",model.getValue("/root/main/ltpindexinfo["+ 3 +"]/ltpindexserver"));
	model.setValue("/root/main/ltp/resource/ltpindexport","2500");
	model.setValue("/root/main/ltp/resource/ltpindexuser",model.getValue("/root/main/ltpindexinfo["+ 3 +"]/ltpindexuser"));
	model.setValue("/root/main/ltp/resource/ltpindexpath",model.getValue("/root/main/ltpindexinfo["+ 3 +"]/ltpindexpath"));
	model.setValue("/root/main/ltp/resource/pathid",model.getValue("/root/main/ltpindexinfo["+ 3 +"]/pathid"));
	
	
	model.setValue("/root/main/ltp/record/ltpindexserver",model.getValue("/root/main/ltpindexinfo["+ 4 +"]/ltpindexserver"));
	model.setValue("/root/main/ltp/record/ltpindexport","2500");
	model.setValue("/root/main/ltp/record/ltpindexuser",model.getValue("/root/main/ltpindexinfo["+ 4 +"]/ltpindexuser"));
	model.setValue("/root/main/ltp/record/ltpindexpath",model.getValue("/root/main/ltpindexinfo["+ 4 +"]/ltpindexpath"));
	model.setValue("/root/main/ltp/record/pathid",model.getValue("/root/main/ltpindexinfo["+ 4 +"]/pathid"));
	model.refresh();
}

function ImageFilePut(imgpaths)
{
	var dirname;
    var fullpath;
	var dirfull; 
	var count;
	var pagecnt;
	var imgpath;
	var flag;
	var fso;
	fso = new ActiveXObject("Scripting.FileSystemObject"); 
	
	imgpath = imgpaths.split("|");  //ÀúÀåµÈ Æнº ¿©·¯ÀåÀÏ°æ¿ì ±¸ºÐÀÚ '|' ·ÎÀ߶óÁà¾ßÇÔ
	pagecnt = imgpath.length;

    for (count = 0; count < pagecnt; count++)
   	{
    	  pageno = model.getValue("/root/main/paget[" + (count+1) +"]/pageno");
    	  dir = pageno.substr(pageno.length -4 , pageno.length );

     	  dirfull = model.getValue("/root/main/ltp/img/ltpindexpath") + "\\" + dir;
    	  fullpath = dirfull + "\\" + pageno + ".jpg";
    	  
    	  flag = LTPFilePut(fullpath,imgpath[count])
    	  
    	  if (flag == false)
		  {
		  	return false;
		  }
    	  else if(flag == true)
    	  {
    		  if(fso.FileExists(imgpath[count]))
    		  {
    			  fso.DeleteFile(imgpath[count], true);
    	      }
    	  }
   	}
    return flag;
}

function filetransfail(imgpaths)
{
	var bDelData = "status¢Ëpageno¢Ì";
	
	imgpath = imgpaths.split("|");  //ÀúÀåµÈ Æнº ¿©·¯ÀåÀÏ°æ¿ì ±¸ºÐÀÚ '|' ·ÎÀ߶óÁà¾ßÇÔ
	pagecnt = imgpath.length-1;
	
	for (count = 0; count < pagecnt; count++)
   	{
		pageno = model.getValue("/root/main/paget[" + (count+1) +"]/pageno");
		
		bDelData += "d¢Ë" + pageno + "¢Ì";
   	}
	model.setValue("/root/send/delimage/pageno", bDelData);			
	submit("TXMPL03317");	
		
}


function fSendRecInfoToSMMMO00100(pSaveflag){
	if(getUserInfo("jobkindcd").substring(0,2) == "03"){
		
		if(isPopup()){
			if(pSaveflag == "I"){
				if(model.getValue("/root/hidden/procpconfiag/answcnt") == "001"){
					
					var pamInfoNode = "/root/main/paminfo/list";
	    
				    var pid = model.getValue ( pamInfoNode + "/pid" );
				    var cretno = model.getValue ( pamInfoNode + "/cretno" );
				    var orddd = model.getValue ( pamInfoNode + "/orddd" );
				    
				    if(isNull(orddd)){
				        orddd = model.getValue ( pamInfoNode + "/indd" );
				    }
				
					var wd = opener.javascript.findChildWindowByScreenID("SMMMO00100");
					
					if(wd != null){
						var formcd = model.getValue("/root/main/formcd");
						var formnm;
						var swindex = swc_prof.selectedIndex;
						var gridrow = model.getValue("/root/send/certimgrownum");			
						
						if(!isNull(formcd) || (gridrow != null && gridrow > 0)){
							
							switch(swindex){
							case 0 :
							    formnm = model.getValue("/root/main/profform/list[formcd='" + formcd + "']/formnm");
							    break;
							case 1 :
							    formnm = model.getValue("/root/main/favorlist/list[formcd='" + formcd + "']/formnm");
							    break;
							case 2 :
							    if(gridrow != null && gridrow > 0){
			                        formnm = model.getValue("/root/main/profhist/list[" + gridrow + "]/formnm"); 
			                    }else{                    
				                    if(!isNull(formcd)){
				                        formnm = model.getValue("/root/main/profhist/list[formcd='" + formcd + "']/formnm");  
				                    }else{
				                        formnm = "Á¦Áõ¸í";
				                    }
			                    }
			                    break;
							default : formnm = "Á¦Áõ¸í";  
							          break;
							}
						}else{
							formnm = "Á¦Áõ¸í";  
						}
						
			            wd.javascript.fSetAutoPrcpInfo(pid, cretno, orddd, formnm + " ÀÛ¼º" );
					}
				}
			}
		}
	}	
}


/*************************************************************************************************************
 * Function 	    : lf_CheckPrintOCR
 * Description		: Àü¿ø(ȸ¼Û)ÀÇ·Ú¼­ °³ÀÎÁ¤º¸ À̿뵿ÀǼ­ Ãâ·Â¿©ºÎ
 * Argument			: 01.nRow - Á¦Áõ¸í ÀÌ·Â ¼±ÅÃÇà
 * retrun type		: 
 * Creator			: 
 ************************************************************************************************************/
function lf_CheckPrintOCR(nRow){
	
	if( nRow == "" ){
		nRow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
	}
	
	var nPid = model.getValue("/root/main/profhist/list[" + nRow + "]/pid");
	var nOrddd = model.getValue("/root/main/profhist/list[" + nRow + "]/orddd");
	var nCretno = model.getValue("/root/main/profhist/list[" + nRow + "]/cretno");
	var nIoflag = model.getValue("/root/main/profhist/list[" + nRow + "]/ioflag");
	
	//°³ÀÎÁ¤º¸À̿뵿ÀǼ­ Ãâ·ÂÀ» À§ÇÑ ¼­½ÄÄÚµå Ãëµæ
	reqHardCodeInfo("/root/send/reqdata", "/root/init/prncd", "5604");
	
	// ±¸ºÐ¿¡ ¸ÂÃç ÆûÄÚµå ó¸®(1:ÀϹݾàÁ¤¼­ / 2:±â°£¾àÁ¤¼­ / 3:°³ÀÎÁ¤º¸À̿뵿ÀǼ­)
	var nFormcd = model.getValue("/root/init/prncd/hardcd[cdseqno='3']/hardcd");
	
	// Step1. ±âÁØÀÏÀÚ : 2016501(¹Ý³³È®ÀÎÀÏ ±âÁØ) 
	model.makeValue("/root/send/ocrdata/pid", nPid);
	model.makeValue("/root/send/ocrdata/formcd", nFormcd);
	submit("TRMMR02921");
	
	var sPerprintyn = model.getValue("/root/ocrtemp/perprintyn");
	
	if( sPerprintyn == "N" ){
		// ÄÚµåÁ¶È¸ 
		pamfGetCodeList(new Array("PK018"), new Array("/root/init/PAM/PK018list"));
		
		// Step2. °³ÀÎÁ¤º¸µ¿ÀǼ­ Ãâ·Â
		var sOcrType = "O";
		if (model.getValue("/root/init/PAM/PK018list/PK018[cdid='" + app.clientIp + "']/cdnm") == "Y"){
			sOcrType = "S";
		}
		
		
		//alert(nFormcd + " || " + nPid + " || " + nOrddd+ " || " +nCretno+ " || " +sOcrType);
		
		//°³ÀÎÁ¤º¸À̿뵿ÀǼ­ Ãâ·Â
		fPerPrintOCR(nFormcd, nPid, nOrddd, nCretno, nIoflag, sOcrType);
		
	}
		
}

/*************************************************************************************************************
 * Function 	    : lf_getPerSignData
 * Description		: Àü¿ø(ȸ¼Û)ÀÇ·Ú¼­ Á¦Áõ¸í ¼­¸í Á¤º¸ Á¶È¸
 * Argument			: 01.nRow - Á¦Áõ¸í ÀÌ·Â ¼±ÅÃÇà
 * retrun type		: 
 * Creator			: 
 ************************************************************************************************************/
function lf_getPerSignData(nRow){
	if( isNull(nRow) ){
		nRow = grd_profhistlist.row - grd_profhistlist.fixedRows + 1;
	}
	var nPid = model.getValue("/root/main/profhist/list[" + nRow + "]/pid");
	var nProfcertseq = model.getValue("/root/main/profhist/list[" + nRow + "]/profcertseq");
	
	model.makeValue("/root/send/reqdata/pid"		 , nPid );
	model.makeValue("/root/send/reqdata/profcertseq" , nProfcertseq );
	
	submit("TRMMR06502");
}

/*************************************************************************************************************
 * Function 	    : lf_getPerSignData
 * Description		: Àü¿ø(ȸ¼Û)ÀÇ·Ú¼­ ½ÇÇà¿©ºÎ ¸®ÅÏ
 * Argument			: 01.nFormcd - ¼­½ÄÄÚµå
 * retrun type		: Y / N
 * Creator			: 
 ************************************************************************************************************/
function lf_CheckPerPrint(nFormcd){
	
    var nCheckPerPrint = "N";
    if( nFormcd == "0000002536" ){
		nCheckPerPrint = "Y";
    }
    
	return nCheckPerPrint;
}

/*************************************************************************************************************
 * Function 	    : cbf_SetPrePrntInfo
 * Description		: Ãâ·ÂÁ¤º¸ ÀúÀå
 * Argument			: N/A
 * retrun type		: N/A
 ************************************************************************************************************/
function cbf_SetPrePrntInfo(nFlag){
	
	model.removeNodeset("/root/preprntinfo/list");
	model.makeNode("/root/preprntinfo/list");
	
	var currow = grd_profhistlist.row;
	
	if(currow < 0){
		return;
	}
	
	model.copyNode("/root/preprntinfo/list", "/root/main/profhist/list["+ currow +"]");
	model.makeValue("/root/preprntinfo/list/prntflag", nFlag);
	
	//var nParamCnt = getParameter("reportPageCount");
	
	model.setValue("/root/preprntinfo/list/prntcnt" 	, 1);
	model.setValue("/root/preprntinfo/list/prntuserid" 	, getUserInfo("userid"));
	model.setValue("/root/preprntinfo/list/prntdeptcd" 	, getUserInfo("dutplcecd"));
	model.setValue("/root/preprntinfo/list/prntdt" 		, getCurrentDate() + getCurrentTime());
	model.setValue("/root/preprntinfo/list/fstrgstrid"  , getUserInfo("userid"));
	model.setValue("/root/preprntinfo/list/fstrgstdt"   , getCurrentDate() + getCurrentTime());
	model.setValue("/root/preprntinfo/list/lastupdtrid" , getUserInfo("userid"));
	model.setValue("/root/preprntinfo/list/lastupdtdt"  , getCurrentDate() + getCurrentTime());
		
	submit("TXMMR02911", false);
}

function fTransChk() {
	
	var pid    = model.getValue("/root/main/patinfo/pid");
  var orddeptcd  = model.getValue("/root/main/patinfo/orddeptcd");
  
  model.makeValue("/root/send/savedata/pid",pid);
  model.makeValue("/root/send/savedata/orddeptcd",orddeptcd);
  
  if(submit("TRMMR02922")) {
  	var cnt = model.getValue("/root/tmp2/cntlist/cnt");
  	
  	if(cnt > 0){
			return false;
		}
  }
  else {
  	return false;
  }
  return true;
}