// Edited by nj 2007-07-27 À̹ÌÁö pathÀ» 1depth·Î ÁöÁ¤
//var gv_ImgeSavePath = "C:\\Temp\\BCP\\OCR_Image\\";


//-- 20130418 ±èµ¿ÁØ start(html ´Ù¿î·Îµå½Ã º»¿ø°ú Ä¥°î ºÐ±â)
/* ÀüÀÚµ¿ÀǼ­ ¿ÀÇ½à ¿¡·¯¶°¼­ ÀÓ½ÃÀûÀ¸·Î ¸·¾Æ ³õÀ½ getUserInfo("dutplceinstcd")¿¡¼­ ¿¡·¯¶ä
var gv_Instcd = getUserInfo("dutplceinstcd");
var gv_ImgeSavePath = "C:\\BCP_OCR_Image" + gv_Instcd + "\\";
*/

var gv_ImgeSavePath = "C:\\BCP_OCR_Image\\";
//-- 20130418 ±èµ¿ÁØ end

// Edited by nj 2007-07-27 ȯ°æÆÄÀÏÀ» ÇöÀç xrwÆÄÀÏ À§Ä¡·Î º¯°æ
//var gv_BCPINIPath = "BCP\\INI\\";
var gv_BCPINIPath = document.location;
var gv_Logo_ImgePath = "../../../com/commonweb/images";
var gTimerID;

var gocrprntyn = "Y";

/**
 * @desc   : OCR µ¥ÀÌŸ Á¤º¸ Á¶È¸ ÈÄ ÆÄÀϼ¼ÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn, ocrtag){
  //model.addlog("fGetOCRInfo: " + formcd + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + formtypecls + "," + ocrtagprntyn + "," + ocrtag);
	var instance = document.models(0).instances(0);
	var nodelist = null;
	var localfilenm = null;
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	var img_size = "";
	var para = false;
	var errFlag = false;
	
	if(formtypecls == '1'){
	    rdo_diagopnm.visible = true;
	    ipt_diagnm.visible = true;
	    
	} else if(formtypecls == '2'){
	    rdo_diagopnm.visible = true;
	    ipt_diagnm.visible = true;
	    //ipt_diagnm.value = "Å×½ºÆ®";
	    rdo_diagopnm.select(0);
	} else if((formtypecls == '3') || (formtypecls == '4') || (formtypecls == '5')){
	    rdo_diagopnm.visible = false;
	    ipt_diagnm.visible = false;
	}
	
	model.removeNodeset("/root/hidden");
	if((pid != null) && (orddd != null) && (cretno != null) && (ordtype != null)){
		model.makeValue("/root/hidden/parentflag", "ETC");
	} else if((pid == null) && (orddd == null) && (cretno == null) && (ordtype == null)){
		model.makeValue("/root/hidden/parentflag", "PRNT");
	} else {
	    messageBox("¿ø¹«Á¢¼ö Á¤º¸°¡", "I004");
	    return;
	}
	model.makeValue("/root/main/forminfo/formcd", formcd);
//	model.setValue("/root/main/forminfo/formfromdt", formfromdt);
	model.makeValue("/root/main/forminfo/formtypecls", formtypecls);
// 20090715 ocrtagprntyn °ª Ãß°¡ nj
    model.makeValue("/root/main/forminfo/ocrtagprntyn", ocrtagprntyn);
	model.removeNodeset("/root/send/reqdata");
	model.makeValue("/root/send/reqdata/formcd", formcd);
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
    	model.makeValue("/root/send/reqdata/pid", parent.model.getValue("/root/main/ordinfo/pid"));
    } else {
        model.makeValue("/root/send/reqdata/pid", pid);
    }
	model.makeValue("/root/send/reqdata/ocrtag", ocrtag);
	
    if(submit("TRMRF03801")){
  	    var ocrimgcnt = getNodesetCount("/root/main/ocrinfo/ocrlist");
        if(ocrimgcnt == 0){
        	var check = parent.window.javaScript.getParameter("SPMRF01100");
        	if ( check == "Y" )
        	{
       		 	messageBox("¿¬°áµÈ ¼­½ÄÀÌ Á¸ÀçÇÏÁö", "I011");
        	}
        	else
        	{
        		messageBox("OCR·Î Ãâ·ÂÇÒ ¼ö ¾ø´Â ¼­½Ä", "E008");
        	}
            return;
        }
        else {
	        //20170623 ÀÌÀ±ÁÖ ¼öÁ¤
	        var formtypecls = model.getValue("/root/main/ocrinfo/ocrlist/formtypecls");
			    if (formtypecls == "7" || formtypecls == "8") {
			    	messageBox("Ãâ·ÂÇÒ ¼ö ¾ø´Â ¼­½ÄÀÔ´Ï´Ù Ku2.0¿¡¼­ ÀÛ¾÷ÇϽñ⠹ٶø´Ï´Ù.","I");
				    return;
				  }
        }
    } else {
        messageBox("OCR µ¥ÀÌÅÍ Á¶È¸¸¦", "E009");
        return;
    }
    
    /** fFolderSet(path, flag)
     * path¿¡ ÇØ´çÇÏ´Â Æú´õ¸¦ local¿¡ »ý¼º
     * path´Â À̹ÌÁö°¡ ÀúÀåµÉ path
     * flag´Â ÇØ´ç Æú´õÀÇ fileÀ» »èÁ¦ ¿©ºÎ¸¦ ³ªÅ¸³¿
     * flag: "D"ÀÌ¸é »èÁ¦ °ªÀ» ÁÖÁö ¾ÊÀ¸¸é »èÁ¦ÇÏÁö ¾ÊÀ½
    */
    fFolderSet(gv_ImgeSavePath, "D");
    nodelist = instance.selectNodes("/root/main/ocrinfo/ocrlist");
    model.makeValue("/root/main/ocrinfo/ocrdatacnt", nodelist.length);

    FileCount:
    for(var i = 0; i < nodelist.length;  i++){
    	fGetOCRData(i+1);
    	var img_file = fso.GetFile(gv_ImgeSavePath+model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm"));
        var timeOut = getCurrentDateTime();
        timeOut = timeOut.replace(" ", "");
        timeOut = parseInt(timeOut) + 5;
        
        FileSize:
        while(true){
            img_size = img_file.size;
            var currDate = getCurrentDateTime();
            currDate = currDate.replace(" ", "");
            currDate = parseInt(currDate);
    	    if(timeOut < currDate){
    	        errFlag = true;
    	        break FileCount;
    	    }
            if(fso.FileExists(gv_ImgeSavePath+model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm"))
   			  && (img_size == model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilesize"))){
   				break FileSize;
   			}
   	     }
    }
    if(errFlag){
        messageBox("ÆÄÀÏ ´Ù¿î·Îµå¸¦", "E009");
        return;
    }
	/* Edited by nj 2007-07-27 CurrentDirectoryÀ» »ç¿ëÇÏÁö ¾ÊÀ½ */
    
	if(model.getValue("/root/hidden/parentflag") == "ETC"){
		model.makeValue("/root/send/reqdata/pid", pid);
		model.makeValue("/root/send/reqdata/orddd", orddd);
		model.makeValue("/root/send/reqdata/cretno", cretno);
		model.makeValue("/root/send/reqdata/ordtype", ordtype);
		model.makeValue("/root/send/reqdata/ocrtag", ocrtag);
		if(submit("TRMRF03803")){
		    var rrgstno = model.getValue("/root/main/patinfo/items/rrgstno").substring(0, 8) + "XXXXXX";
	        model.makeValue("/root/main/patinfo/items/rrgstno", rrgstno);
	        
	        /*
    	    var sainfo = model.getValue("/root/main/patinfo/items/sa");
    	    if(sainfo.indexOf("M") >= 0){
    	        model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-1XXXXXX");
    	    } else if(sainfo.indexOf("F") >= 0){
    	        model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-2XXXXXX");
    	    }
    	    */
	    }
	}
	model.makeValue("/root/main/ocrinfo/currentpage", "1");
	model.makeValue("/root/main/ocrinfo/doubcnt", "1");
	opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
	/** Edited by nj 2007-08-28 Ãâ·Â ¼­½ÄÀÌ 5°³ Á¾·ù·Î ³ª´¸
	  * TYPE1: ȯÀÚÁ¤º¸+Áø´Ü¸í/¼ö¼ú¸í+º»¹®
	  * TYPE2: ȯÀÚÁ¤º¸+Áø´Ü¸í+º»¹®
	  * TYPE3: ȯÀÚÁ¤º¸+º»¹®
	  * TYPE4: ȯÀÚÁ¤º¸+º»¹®(OMR)
	  * TYPE5: º»¹®(DSC)
	  * TYPE6: ȯÀÚÁ¤º¸+º»¹® ( 2013.08.21 cyw )
	*/
	

	fInitCreateHtml(); //Footer ¹× Header Á¤º¸»ý¼º
	
	fBaseCreateHtml(formtypecls); //Typeº° Á¤º¸¼ÂÆÃ
	
	fChartCreateHtml(formtypecls,formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn); //OCRÆÄÀÏÁ¤º¸ »ý¼º.
	

	if(model.getValue("/root/main/ocrinfo/ocrdatacnt") == model.getValue("/root/main/ocrinfo/currentpage")){
        btn_postpage.disabled = true;
        btn_prepage.disabled = true;
	} else {
	    btn_postpage.disabled = false;
        btn_prepage.disabled = true;
    }
	
	//2013/03/29 Start
	model.makeValue("/root/main/ocrinfo/ocrtag/tag", ocrtag);
	//2013/03/29 End

	model.refresh();
}

function fChartCreateHtml(formtypecls,formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn)
{
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	if(fso.FileExists(gv_ImgeSavePath + "chart1.html") == true)
	{
		fso.DeleteFile(gv_ImgeSavePath + "chart*.html", true)
	}
	
	// ȯÀÚÁ¤º¸ 
	var getdate = "";
	
	var barcode= "";
	var pidinfo = "";
	var patnminfo = "";
	var prnt_patnminfo ="";
	var sa = "";
	var barcode_pid = parent.model.getValue("/root/main/ordinfo/pid");
	
	if( formtypecls != "6" ){
		if( ocrtag == "" || ocrtag == null){
			ocrtag = "+2012123456789+";
			barcode = "*2012123456789*";
		}else if( ocrtag == "N" ){
			
		}else{
			ocrtag = "+" + ocrtag + "+";
			barcode = "*" + ocrtag + "*";
		}
	}else{
		if( ocrtag == "" || ocrtag == null){
			ocrtag = "+2012123456789+";
			barcode = "*" + barcode_pid + "*";
		}else if( ocrtag == "N" ){
			
		}else{
			ocrtag = "+" + ocrtag + "+";
			barcode = "*" + barcode_pid + "*";
		}	
	}
	
	//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
	var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
	if(pInstcd ==""){
		  pInstcd =getUserInfo("dutplceinstcd");
	}
	//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
  //f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");	
	if(model.getValue("/root/hidden/parentflag") == "ETC"){
		pidinfo = model.getValue("/root/main/patinfo/items/pid");
		patnminfo = model.getValue("/root/main/patinfo/items/patnm");
		model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
		model.makeValue("/root/main/patinfo/items/centcd", model.getValue("/root/main/patinfo/items/centcd"));
		model.makeValue("/root/main/patinfo/items/centnm", model.getValue("/root/main/patinfo/items/centnm"));
		model.makeValue("/root/main/patinfo/items/centengabbr", model.getValue("/root/main/patinfo/items/centengabbr"));
	
	} else if (model.getValue("/root/hidden/parentflag") == "PRNT"){
		pidinfo = parent.model.getValue("/root/main/ordinfo/pid");
		patnminfo = parent.model.getValue("/root/main/ordinfo/patnm");
	  sa = parent.model.getValue("/root/main/ordinfo/sa");
	  	  
		model.makeValue("/root/main/patinfo/items/pid", parent.model.getValue("/root/main/ordinfo/pid"));
		model.makeValue("/root/main/patinfo/items/orddd", parent.model.getValue("/root/main/ordinfo/orddd"));
		model.makeValue("/root/main/patinfo/items/ordtype", parent.model.getValue("/root/main/ordinfo/ordtype"));
		model.makeValue("/root/main/patinfo/items/orddeptcd", parent.model.getValue("/root/main/ordinfo/orddeptcd"));
		model.makeValue("/root/main/patinfo/items/patnm", parent.model.getValue("/root/main/ordinfo/patnm"));
		model.makeValue("/root/main/patinfo/items/orddeptnm", parent.model.getValue("/root/main/ordinfo/orddeptnm"));
		model.makeValue("/root/main/patinfo/items/drid", parent.model.getValue("/root/main/ordinfo/drid"));		
		model.makeValue("/root/main/patinfo/items/drnm", parent.model.getValue("/root/main/ordinfo/drnm"));
		model.makeValue("/root/main/patinfo/items/sa", parent.model.getValue("/root/main/ordinfo/sa"));
		model.makeValue("/root/main/patinfo/items/inroomcd", parent.model.getValue("/root/main/ordinfo/inroomcd"));
		model.makeValue("/root/main/patinfo/items/cretno", parent.model.getValue("/root/main/ordinfo/cretno"));
		model.makeValue("/root/main/patinfo/items/rrgstno", parent.model.getValue("/root/main/ordinfo/rrgstno"));
		
		model.makeValue("/root/main/patinfo/items/centcd", parent.model.getValue("/root/main/ordinfo/centcd"));
		model.makeValue("/root/main/patinfo/items/centnm", parent.model.getValue("/root/main/ordinfo/centnm"));
		model.makeValue("/root/main/patinfo/items/centengabbr", parent.model.getValue("/root/main/ordinfo/centengabbr"));
	}
	
	var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
	
	if (hardcd == "Y")
	{
		for(var i = pidinfo.length; i <= 8; i++){
			if(i < 8){
				pidinfo = "0"+pidinfo;
			}
		}
		var str1 = pidinfo.substr(0, 3);
		var str2 = pidinfo.substr(3, 2);
		var str3 = pidinfo.substr(5, 2);
		var str4 = pidinfo.substr(7, 1);
		pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
	}
	
	getdate = model.getValue("/root/main/patinfo/items/orddd");
	
	// ȯÀÚ¸í 5Àڱ ¼öÁ¤
	if (patnminfo.length > 5 && patnminfo.length <= 10)
	{
		prnt_patnminfo = patnminfo;
	}
	else if (patnminfo.length > 11)
	{
		//ÀÌÀ±ÁÖ ¸·À½
		//prnt_patnminfo = patnminfo.substring(0, 10);
		prnt_patnminfo = patnminfo;
	}
	else
	{
		for(var i = 0; i <= patnminfo.length; i++){
			tmp_patnminfo = patnminfo.substring(i, i+1);
			if(i == patnminfo.length){
				break;
			}
			prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
		}
	}
	
	model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
	model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));

    // Áø·áÁ¤º¸ 
	submit("TRMRF03805");
	var dept = model.getValue("/root/main/deptinfo/info/deptengabbr");
	var juminno = model.getValue("/root/main/patinfo/items/rrgstno");
	var treatdate = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	
	var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
	if (ordtype == 'I')	{
		model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
		model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
		submit("TRMRF03809");
		var inroomcd = model.getValue("/root/main/inroominfo/inroomlist/roomcd");
	}
	else {
		var inroomcd =" ";
	}
			
	
	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
    var formnm ="" ;
    var formnm2 ="" ;
    
    
    if(arryformnm.length == 2){    
	    formnm = arryformnm[0];
	    formnm2 = arryformnm[1];
	} else if(arryformnm.length == 1){
	    formnm = arryformnm[0];    
	}
	
	//formnm = getformnm.replace("\n",' ');
	
	// Ãâ·ÂÁ¤º¸
	var getdate = getCurrentDate();
	var gettime = getCurrentTime();
	var getuser = getUserName();
	var getuseren = getUserInfo("userengnm");
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
	var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
	
	var printDate = "";
	var printDept = "";
	
	var printIP = getUserInfo("ipaddr").split(".");
	
	//¿¹Àüµ¥ÀÌÅÍ »ÌÀ»¶§ È°¿ë - Æò°¡(ÀÌÀ±ÁÖ)
//	var dateprnt = "2018/02/28";
//	var timeprnt = "11:43:10";
//	var getuser = "Áøº¸Çö";
//	var inroomcd = "3265";
//	printIP[2] = "32";
//	printIP[3] = "50";
	
	
	switch(langflag){
	    case "KO":
	    	printDate = "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
	    	printDept = "Ãâ·ÂÀÚ : " + getuser;
	        break;
	    case "EN":
	    	printDate = "Print Date : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
        	printDept = "Printed by : " + getuser;
	        break;
        default:
        	printDate = "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt + " " + printIP[2] + "." + printIP[3]+ " " +inroomcd;
	    	printDept = "Ãâ·ÂÀÚ : " + getuser;
        	break;
	}
	
	 model.removeNodeset("/root/send/reqdata");
	
	if(model.getValue("/root/main/exist") == "Y"){
	
	}
	
	/* 
	else if(model.getValue("/root/main/exist") == "N" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
		model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
		model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
		model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
		model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
	
		submit("TRMRF03807");
	}
	jindan1 = model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm");
	*/
	//2012-10-15 ±èÀ¯¼º ¼öÁ¤--------------------------------------------------------------------------------------------------
	else if(model.getValue("/root/main/exist") == "" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
	  model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
		model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
		model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
		model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
	  
	  model.removeNodeset("/root/temp/ocrinfo/ocrtag/diaginfo");
	  model.removeNodeset("/root/temp/ocrinfo/ocrtag/opinfo");
		submit("TRMRF03807");
	}
	jindan1 = model.getValue("/root/temp/ocrinfo/ocrtag/diaginfo/diagengnm");
	jindan2 = model.getValue("/root/temp/ocrinfo/ocrtag/diaginfo[2]/diagengnm");
	opengnm1 = model.getValue("/root/temp/ocrinfo/ocrtag/opinfo/opengnm");
	opengnm2 = model.getValue("/root/temp/ocrinfo/ocrtag/opinfo[2]/opengnm");
	//--------------------------------------------------------------------------------------------------------------------------
	
	var nodelist ="";
	var instance = document.models(0).instances(0);
	nodelist = instance.selectNodes("/root/main/ocrinfo/ocrlist");
	
	f_View.PageRemove(0,0);
	f_View.Viewmode = 0;
	f_View.BackColor = parent.rgb(255,255,255)
	f_View.AutoRefresh = false;
	for(var i = 0; i < nodelist.length;  i++){
		trans="";
		trans = "<!--@\n @DOCUMENT_HOME = " + gv_ImgeSavePath +
            "\n @OUTPUT_WIDTH          = 21.00" +
            "\n @OUTPUT_HEIGHT         = 29.70" + 
            "\n @OUTPUT_MARGIN_TOP          = 0.84" + 
            "\n @OUTPUT_MARGIN_BOTTOM       = 0.84" +
            "\n @OUTPUT_MARGIN_LEFT         = 0.84" +
            "\n @OUTPUT_MARGIN_RIGHT        = 0.84" +
            "\n @OUTPUT_MAGNIFICATION       = 2" 
        	if( i == 0)
			{
				trans = trans +
				"\n @COVER_HEADER = template/cover_header" + formtypecls + ".html" +
            	"\n @COVER_FOOTER = template/cover_footer.html"  
			} else
			{
				trans = trans +
				"\n @COVER_HEADER = template/body_header.html" +
	            "\n @COVER_FOOTER = template/body_footer.html" 
				// "\n @BODY_HEADER = template/body_header.html"  + 
				// "\n @BODY_FOOTER = template/body_footer.html" 
			}
			
			if (ordtype == 'I')	{
			
				if (inroomcd == "" || inroomcd == null)
				{
				}
				else
				{
					//2013/04/15 Start
					//pidinfo = pidinfo + "(" + inroomcd + ")"
					//2013/04/15 End
				}
			
			}

			
            trans = trans +
			"\n @VAR_OCR_LEFT  = " + ocrtag + 
			"\n @VAR_OCR_RIGHT = " + ocrtag + 
			"\n @VAR_PAT_NUM  = " + pidinfo + 
			"\n @VAR_PAT_NAME  = " + prnt_patnminfo +
			"\n @VAR_PAT_NAME1  = " + patnminfo + 
			"\n @VAR_PAT_SA  = " + sa +
			"\n @VAR_PAT_JUMIN_NO  = " + juminno + 			 
			"\n @VAR_TREAT_DEPT = " + dept + 
			"\n @VAR_TREAT_DATE = " + treatdate +
			"\n @VAR_WARD_HEAD = " + "º´½Ç : "  + inroomcd +
			"\n @VAR_CHART_NAME_TOP = " + formnm + 
			"\n @VAR_CHART_NAME2_TOP = " + formnm2 + 
			"\n @VAR_PRINT_DATE = " + printDate +  
			"\n @VAR_PRINT_DEPT = " + printDept + 
			"\n @VAR_PRINT_BARCODE = " + barcode +
			"\n @VAR_JINDAN1 = " + jindan1 +
            "\n @VAR_JINDAN2 = " + jindan2 +
            "\n @VAR_OPERATION1 = " + opengnm1 +
            "\n @VAR_OPERATION2 = " + opengnm2 +
            "\n @VAR_PAGE_CURRENT = " + "Page: " + ( i + 1 ) +
            "\n @VAR_PAGE_TOTAL = " + nodelist.length  +
			"\n @-->\n" +
		    "<HTML>" +
           	"\n<BODY>" +
            "\n<TABLE WIDTH='100%' HEIGHT='100%'>" +
		    "\n   <TR>" +
		    "\n       <TD align='center'>"
		    
        var path;
        var width;
        path = gv_ImgeSavePath + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm")
        		
        f_View.PageAppend( path ,1,1);
        f_View.PageCurrent = f_View.PageTotal;
        width = f_View.PageWidth ;
        f_View.PageRemove(f_View.PageTotal,f_View.PageTotal);
		if( i == 0)
		{
			
			switch(formtypecls)
			{
				case "1":
					
					trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='650' ISOTROPIC BORDERREMOVE>"
					break; 
				case "2":
					trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='800' ISOTROPIC BORDERREMOVE>"
					break; 
				case "3":
					if( width < 1400 ){
						trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='850' ISOTROPIC BORDERREMOVE:1,1>"
					} else {
						trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='850' ISOTROPIC BORDERREMOVE:1412,1800>"
					}
					
					break; 
				case "4":
					trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='850' ISOTROPIC BORDERREMOVE>"
					break; 
				case "5":
					trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='850' ISOTROPIC BORDERREMOVE>"
					break; 
				case "6":
					trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='850' ISOTROPIC BORDERREMOVE>"
					break;
			}
		} else
		{
			if( width < 1400 ){
				trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='910' ISOTROPIC BORDERREMOVE:1,1>"
			} else {
				trans = trans + "\n            <IMG SRC='" + model.getValue("/root/main/ocrinfo/ocrlist["+ (i+1) +"]/ocrfilenm") + "'  WIDTH='700' HEIGHT='910' ISOTROPIC BORDERREMOVE:1412,1900>"
			}
			 
		}  
		        
		
		
		trans = trans + "\n       </TD>" +
                "\n   </TR>" +
	            "\n</TABLE>" +
                "\n</BODY>" +
                "\n</HTML>" + 
                "\n"
                
        var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + (i + 1) + ".html", true, true);
    	a.WriteLine(trans);
    	a.Close();
	 
	 
	 //2012-08-10 ¿ÀÀü 9:45:48 °­ÁöÈÆ ÀüÀÚµ¿ÀǼ­ ¼­¸íÀ» À§ÇÑ ÆÄÀÏÆнº°æ·Î ÀúÀå.
	  var ocrfilepath = gv_ImgeSavePath + "chart" + (i + 1) + ".html";
	  model.removeNode("/root/main/ocrinfo/ocrfilepath");
	  model.makeValue("/root/main/ocrinfo/ocrfilepath", ocrfilepath);
    	
		f_View.PageAppend(ocrfilepath,1,1);
		
	}

	f_View.PageCurrent = 1;
	f_View.AutoRefresh = true;	
}


function pause(numberMillis) {
	 
     var now = new Date();
     var exitTime = now.getTime() + numberMillis;

     while (true) {
          now = new Date();
          if (now.getTime() > exitTime)
              return;
          
     }
}

function fBarcodeCheck(OCRno)
{
	
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	var chkFlag = false;
    	
	while(chkFlag == false){
	
    	var j = 0;
    	var k = 0;
    	
		fOCRReplace(OCRno);
		
		j = j + 1;
		
		//¹ÙÄÚµå üũ
		for(var i = 1; i <= f_View.Pagetotal ;  i++){
			
			var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1, false, -1)
			var databuffer = "";
			
			while (!r.AtEndOfStream)
		    {
		    	databuffer = r.ReadLine();
		    	
		    	if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
		    		if ( databuffer.indexOf("+") == -1 ) {
		    			k = k + 1;
		    		}
		    	}
		        
				if (i == k) {
					chkFlag = true;
				} 
				
				if (j >= 30 ) {
					chkFlag = true;
				}
			
			}
			
			r.Close();
		}
		
		if( chkFlag == false ) {
			//ÀÌÀ±ÁÖ(LCTECH ¿äû-20130414)
			//pause(j * 1000);
			model.makeValue("/root/send/reqdata/ocrtag",OCRno);
			model.makeValue("/root/send/reqdata/ipaddr",getUserInfo("ipaddr"));
			model.makeValue("/root/send/reqdata/instrid",getUserInfo("userid"));
			if(submit("TXMRF03806")){
			    model.removeNodeset("/root/send/reqdata");
			    return true;
			}
			
		}
	
	}
}

function fOCRReplace(OCRno)
{ 
 	var fso = new ActiveXObject("Scripting.FileSystemObject");
    var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
    
 	model.makeValue("/root/main/exist", "N");
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
      if(parent.swt_ocrinfoflag.selectedIndex == "1"){
          parent.btn_prnt.disabled = true;
      } else {
          var parentauth = parent.model.getValue("/root/properties/auth")
          if(parentauth.charAt(1) == '1'){	//20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æó¸®.(¿äû¹øÈ£ : 11292)
          	parent.btn_prnt.disabled = false;
          }
      }
  }
  if(OCRno != ""){
    OCRno = OCRno.replace("+","");
	OCRno = OCRno.replace("+","");
	OCRno = OCRno.replace("+",""); 
	OCRno = OCRno.replace("+",""); 
	OCRno = OCRno.replace("+",""); 
	OCRno = OCRno.replace("+","");   
    model.makeValue("/root/main/ocrinfo/ocrtag/tag", OCRno);
  }
  	
	for(var i = 1; i <= f_View.Pagetotal ;  i++){
		//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
		var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
		if(pInstcd ==""){
			  pInstcd =getUserInfo("dutplceinstcd");
		}
		var OCR = "";
		OCR = "+" + OCRno + "+";
		
		var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1,false, -1)
		var databuffer = "";
		var trans ="";
		//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
		//f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");
		while (!r.AtEndOfStream)
	    {
	    	
	    	databuffer = r.ReadLine();	

	    	if(databuffer.substr(1, 10) == "@VAR_OCR_L"){    	
	    		databuffer = " @VAR_OCR_LEFT  = " + OCR 
	    	}
		    if(databuffer.substr(1, 10) == "@VAR_OCR_R"){  
		    	if(OCRno == "[ȯÀÚ º¸°ü¿ë]")
		    	{
		    		databuffer = " @VAR_OCR_RIGHT  = " 
			    }
			    else
			    {
			    	databuffer = " @VAR_OCR_RIGHT  = " + OCR
			    }
	    		 
	    	}
		    if( formtypecls != "6" ){
		    	if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
		    		databuffer = " @VAR_PRINT_BARCODE  = *" + OCRno + "0" + i + "*"
		    	}
		    }
	    	trans += databuffer + "\n";
	    	
	    }
	    
	    r.Close();
	    
	    var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + i + ".html", true, true);
	    a.WriteLine(trans);
	    a.Close();
	    
	    f_View.ActionParamINT1 = i;
    	f_View.ActionSingle = 1; 		
	}
	
	
}

function fBarCodeReplace(OCRno)
{
 
	for(var i = 1; i <= f_View.Pagetotal ;  i++){

		var OCR = "";
		OCR = OCRno
		OCR = OCR.replace("+","");
		OCR = OCR.replace("+","");
		OCR = OCR.replace("+","");
		OCR = OCR.replace("+","");
		OCR = OCR.replace("+","");
		OCR = OCR.replace("+","");
		var fso = new ActiveXObject("Scripting.FileSystemObject");
		var r = fso.OpenTextFile(gv_ImgeSavePath + "chart" + i + ".html", 1,false, -1)
		var databuffer = "";
		var trans ="";

    
		while (!r.AtEndOfStream)
	    {
	    	
			databuffer = r.ReadLine();	
			
	    	if(databuffer.substr(1, 18) == "@VAR_PRINT_BARCODE"){
	    		OCR = OCR.replace("+","*");
		    	OCR = OCR.replace("+","*");
		    	databuffer = " @VAR_PRINT_BARCODE  = " + "*" + OCR  + "0" + i +  "*"
	    	}
		    	
	    	trans += databuffer + "\n";
	    	
	    }
	    
	    r.Close();
	    
	    var a = fso.CreateTextFile(gv_ImgeSavePath + "chart" + i + ".html", true, true);
	    a.WriteLine(trans);
	    a.Close();
	    
	    f_View.ActionParamINT1 = i;
    	f_View.ActionSingle = 1; 		
	}
	
	
}



/**
 * @desc   : Footer ¹× Header Á¤º¸»ý¼º
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fInitCreateHtml()
{
	var stype = "";
	var cover_header ="";
	var cover_footer ="";
	var body_header ="";
	var body_footer ="";
	var headertitle ="";
	var local_path  ="";
	var local_file  ="";
	
	var trans = "";
	var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
	var ocrtagprnt = model.getValue("/root/main/forminfo/ocrtagprntyn"); // TAGÃâ·Â¿©ºÎ - TAGÃâ·Â¿©ºÎ°¡ NÀμ­½ÄÀº
	                                                                     // ocrtag¹øÈ£ ¹× ¹ÙÄÚµå ¼­½Ä¿¡¼­ »ý¼ºÇÏÁö ¾ÊÀ½ 2012-11-05 ±èÀ¯¼º
	
	local_path = gv_ImgeSavePath + "template\\" ;
	
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	
	if( fso.FolderExists(gv_ImgeSavePath) == false)
	{
		fso.CreateFolder(gv_ImgeSavePath)
	}
	if( fso.FolderExists(local_path) == false)
	{
		fso.CreateFolder(local_path)
	}
	
	//Free 3 of 9
	
	if(ocrtagprnt == "N"){
		  cover_footer =  " <HTML>																												" +
								"\n <BODY style='margin: 0;'>                                                                                 	" +
								"\n                                                                                                                     	" +
								"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                    		" +
								"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                  		" +
								"\n 	<TR>                                                                                                            	" +
								"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>      " +
								"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                      	" +
								"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                       	" +
								"\n 	</TR>                                                                                                           " +
								"\n 	</TABLE>                                                                                                    	" +
								"\n </DIV>                                                                                                      		" +
								"\n                                                                                                                     	" +
								"\n </BODY>                                                                                                   		" +
								"\n </HTML>                                                                                                      	"; 
		body_header =   " <HTML>                                                                                        		 				" +
								"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>                                 	" +
								"\n <TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 14pt;'>                                                                                        " +
								"\n <TR>                                                                                           	" +
								"\n </TR>                                                                                          	" +
								"\n </TABLE>                                                                                       	" +
								"\n <TABLE>                                                                                        	" +
								"\n <TR>                                                                                           	" +
								"\n 		<TD style='width: 100%; text-align: center;' ><!--?VAR_CHART_NAME_TOP?--></TD>                " +
								"\n </TR>                                                                                          	" +
								"\n </TABLE>                                                                                       	" +
								"\n <DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 2px;'>          " +
								"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>       " +
								"\n 	                                                                                           			" +
								"\n  	<TR>                                                                                       		" +
								"\n 		<TD style='text-align: left;  '><!--?VAR_PAT_NUM?--></TD>           	" +
								"\n 		<TD style='text-align: center;'><!--?VAR_PAT_NAME1?--></TD>     	" +
								"\n 		<TD style='text-align: center;'>|&nbsp;Áø·á°ú&nbsp;:&nbsp;<!--?VAR_TREAT_DEPT?--></TD>              	" +
								"\n 		<TD style='text-align: center;'>|&nbsp;Áֹεî·Ï¹øÈ£&nbsp;:&nbsp;<!--?VAR_PAT_JUMIN_NO?--></TD>	" +
								"\n 		<TD style='text-align: right; '>|&nbsp;Áø·áÀÏ&nbsp;:&nbsp;<!--?VAR_TREAT_DATE?--></TD>                	" +
								"\n 	</TR>                                                                                      		" +
								"\n 	</TABLE>                                                                                   	" +
								"\n </DIV>                                                                                         	" +
								"\n                                                                                                		" +
								"\n </BODY>                                                                                        " +
								"\n </HTML>                                                                                        ";
				
		body_footer =  	"<HTML>																															" +
								"\n <BODY style='margin: 0;'>                                                                                            	" +
								"\n                                                                                                                         			" +
								"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                                     " +
								"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                                	" +
								"\n 	<TR>                                                                                                                			" +
								"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>          " +
								"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                                      	" +
								"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                                        " +
								"\n 	</TR>                                                                                                               			" +
								"\n 	</TABLE>                                                                                                            			" +
								"\n </DIV>                                                                                                                  			" +
								"\n                                                                                                                         				" +
								"\n </BODY>                                                                                                                 		" +
								"\n </HTML>                                                                                                                 		"; 	
		}else{	
			if( formtypecls == "6" ){  // type6ÀÎ °æ¿ì ocrtag ¾ø¾Ö°í ¹ÙÄÚµå´Â ¿À¸¥ÂÊ À§·Î, ȯÀÚÁ¤º¸ º¸ÀÌ°Ô 
				cover_footer =  " <HTML>																												" +
									"\n <BODY style='margin: 0;'>                                                                                   	" +
									"\n                                                                                                                     		" +
									"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                          	" +
									"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                          	" +
									"\n 	<TR>                                                                                                            		" +
									"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                        	" +
									"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                         	" +
									"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>      " +
									"\n 		<TD ></TD>                                    												" +
									"\n 	</TR>                                                                                         		" +
									"\n 	</TABLE>                                                                                     		" +
									"\n </DIV>                                                                                        		" +
									"\n                                                                                                  			" +
									"\n </BODY>                                                                                       		" +
									"\n </HTML>                                                                                           	"; 
				body_header =   " <HTML>                                                                                         		" +
									"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>                 		" +
									"\n <TABLE style='width: 100%; font-family: Arial; font-size: 14pt; font-weight: bold;'>                                                                                        " +
									"\n <TR>                                                                                           		" +
									"\n 		<TD></TD>                                                                               	" +
									"\n 		<TD></TD>                                                                               	" +
									"\n 		<TD></TD>                                                                               	" +
									//"\n 		<TD style='text-align: right; font-family: Free 3 of 9;font-size: 24pt;' ><!--?VAR_PRINT_BARCODE?--></TD>                " +
									"\n </TR>                                                                                          		" +
									"\n </TABLE>                                                                                       		" +
									"\n <TABLE>                                                                                        		" +
									"\n <TR>                                                                                           		" +
									"\n 		<TD style='width: 100%; text-align: center;' ><!--?VAR_CHART_NAME_TOP?--></TD>  	" +
									"\n </TR>                                                                                          		" +
									"\n </TABLE>                                                                                       		" +
									"\n <DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 2px;'>          	" +
									"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>       	" +
									"\n 	                                                                                           				" +
									"\n  	<TR>                                                                                       			" +
									"\n 		<TD style='text-align: left;  '><!--?VAR_PAT_NUM?--></TD>                	" +
									"\n 		<TD style='text-align: center;'><!--?VAR_PAT_NAME1?--></TD>           	" +
									"\n 		<TD style='text-align: center;'>|&nbsp;Áø·á°ú&nbsp;:&nbsp;<!--?VAR_TREAT_DEPT?--></TD>              	" +
									"\n 		<TD style='text-align: center;'>|&nbsp;Áֹεî·Ï¹øÈ£&nbsp;:&nbsp;<!--?VAR_PAT_JUMIN_NO?--></TD> 	" +
									"\n 		<TD style='text-align: right; '>|&nbsp;Áø·áÀÏ&nbsp;:&nbsp;<!--?VAR_TREAT_DATE?--></TD>                	" +
									"\n 	</TR>                                                                                      			" +
									"\n 	</TABLE>                                                                                   		" +
									"\n </DIV>                                                                                         		" +
									"\n                                                                                                			" +
									"\n </BODY>                                                                                        		" +
									"\n </HTML>                                                                                        		";
							
				body_footer =  	"<HTML>																															" +
									"\n <BODY style='margin: 0;'>                                                                                              	" +
									"\n                                                                                                                         				" +
									"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                                    		" +
									"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                                		" +
									"\n 	<TR>                                                                                                                				" +
									"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                                      	" +
									"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                                        " +
									"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>          " +
									"\n 		<TD></TD>                                        																		" +
									"\n 	</TR>                                                                                                               			" +
									"\n 	</TABLE>                                                                                                            			" +
									"\n </DIV>                                                                                                                  			" +
									"\n                                                                                                                         				" +
									"\n </BODY>                                                                                                                 		" +
									"\n </HTML>                                                                                                    						";
				}else{
					cover_footer =  " <HTML>																														" +
											"\n <BODY style='margin: 0;'>                                                                                         	" +
											"\n                                                                                                                     			" +
											"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                               	" +
											"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                            	" +
											"\n 	<TR>                                                                                                            			" +
											"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                               	" +
											"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                               	" +
											"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>      " +
											"\n 		<TD style='text-align: left; font-family: Free 3 of 9;font-size: 24pt;'><!--?VAR_PRINT_BARCODE?--></TD>                                    " +
											"\n 	</TR>                                                                                                           		" +
											"\n 	</TABLE>                                                                                                        		" +
											"\n </DIV>                                                                                                              		" +
											"\n                                                                                                                     			" +
											"\n </BODY>                                                                                                             	" +
											"\n </HTML>                                                                                                             	";
					body_header =   " <HTML>                                                                                         								" +
											"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>               							" +
											"\n <TABLE style='width: 100%; font-family: Arial; font-size: 14pt; font-weight: bold;'>         		" +
											"\n <TR>                                                                                           							" +
											"\n 		<TD style='width: 15%; text-align: left; ' ><!--?VAR_OCR_LEFT?--></TD>                 	" +
											"\n 		<TD style='width: 10%; text-align: right;' ><!--?VAR_OCR_RIGHT?--></TD>                	" +
											"\n </TR>                                                                                          							" +
											"\n </TABLE>                                                                                       							" +
											"\n <TABLE>                                                                                        							" +
											"\n <TR>                                                                                           							" +
											"\n 		<TD style='width: 100%; text-align: center;' ><!--?VAR_CHART_NAME_TOP?--></TD>  	" +
											"\n </TR>                                                                                          							" +
											"\n </TABLE>                                                                                       							" +
											"\n <DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 2px;'>          	" +
											"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>       " +
											"\n 	                                                                                           			" +
											"\n  	<TR>                                                                                       		" +
											"\n 		<TD style='text-align: left;  '><!--?VAR_PAT_NUM?--></TD>          	" +
											"\n 		<TD style='text-align: center;'><!--?VAR_PAT_NAME1?--></TD>      	" +
											"\n 		<TD style='text-align: center;'>|&nbsp;Áø·á°ú&nbsp;:&nbsp;<!--?VAR_TREAT_DEPT?--></TD>              		" +
											"\n 		<TD style='text-align: center;'>|&nbsp;Áֹεî·Ï¹øÈ£&nbsp;:&nbsp;<!--?VAR_PAT_JUMIN_NO?--></TD>    	" +
											"\n 		<TD style='text-align: right; '>|&nbsp;Áø·áÀÏ&nbsp;:&nbsp;<!--?VAR_TREAT_DATE?--></TD>                    	" +
											"\n 	</TR>                                                                                      		" +
											"\n 	</TABLE>                                                                                   	" +
											"\n </DIV>                                                                                         	" +
											"\n                                                                                                		" +
											"\n </BODY>                                                                                        " +
											"\n </HTML>                                                                                        ";
												
					    body_footer = "<HTML>																																" +
											"\n <BODY style='margin: 0;'>                                                                                               	" +
											"\n                                                                                                                         				" +
											"\n <DIV style='border-top-style: solid; border-width: 2px;'>                                                        	" +
											"\n 	<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ; font-size: 10pt;'>                                		" +
											"\n 	<TR>                                                                                                                				" +
											"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DATE?--></TD>                                      	" +
											"\n 		<TD style='text-align: center;'><!--?VAR_PRINT_DEPT?--></TD>                                        " +
											"\n 		<TD style='text-align: left;  '><!--?VAR_PAGE_CURRENT?-->/<!--?VAR_PAGE_TOTAL?--></TD>          " +
											"\n 		<TD style='text-align: left; font-family: Free 3 of 9;font-size: 24pt;'><!--?VAR_PRINT_BARCODE?--></TD>                                        " +
											"\n 	</TR>                                                                                                               			" +
											"\n 	</TABLE>                                                                                                            			" +
											"\n </DIV>                                                                                                                  			" +
											"\n                                                                                                                         				" +
											"\n </BODY>                                                                                                                 		" +
											"\n </HTML>                                                                                                    						";
					}							
		 }
		
	
	    	
	if(fso.FileExists(local_path + "cover_footer.html") == true)
	{
		fso.DeleteFile(local_path + "cover_footer.html", true)
	}
	var a = fso.CreateTextFile( local_path + "cover_footer.html" , true, true);
    a.WriteLine(cover_footer);
    a.Close();
    
    if(fso.FileExists(local_path + "body_header.html") == true)
	{
		fso.DeleteFile(local_path + "body_header.html", true)
	}
	var a = fso.CreateTextFile( local_path + "body_header.html" , true, true);
    a.WriteLine(body_header);
    a.Close();
    
    if(fso.FileExists(local_path + "body_footer.html") == true)
	{
		fso.DeleteFile(local_path + "body_footer.html", true)
	}
	var a = fso.CreateTextFile( local_path + "body_footer.html" , true, true);
    a.WriteLine(body_footer);
    a.Close();
    
    
}

/**
 * @desc   : Typeº° Á¤º¸¼ÂÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fBaseCreateHtml(formtypecls)
{
	var stype = "";
	var cover_header ="";
	var headertitle ="";
	var local_path  ="";
	var local_file  ="";
	
	var trans = "";
	
	local_path = gv_ImgeSavePath + "template\\" ;
	
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	
	if( fso.FolderExists(gv_ImgeSavePath) == false)
	{
		fso.CreateFolder(gv_ImgeSavePath);
	}
	if( fso.FolderExists(local_path) == false)
	{
		fso.CreateFolder(local_path);
	}
	var ocrtagprnt = model.getValue("/root/main/forminfo/ocrtagprntyn"); // TAGÃâ·Â¿©ºÎ - TAGÃâ·Â¿©ºÎ°¡ NÀμ­½ÄÀº
	                                                                     // ocrtag¹øÈ£ ¹× ¹ÙÄÚµå ¼­½Ä¿¡¼­ »ý¼ºÇÏÁö ¾ÊÀ½ 2012-11-05 ±èÀ¯¼º                                                                                            
	if(ocrtagprnt == "N"){
		cover_header =  "<HTML>" +
					"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>					" +
					"\n <DIV >                                                                                          	" +
					"\n 	<TABLE  width='100%' style='font-family: ¸¼Àº °íµñ; font-size: 14pt;'>   	" +
					"\n 	<TR>                                                                                          	" +
					"\n 	</TR>                                                                                         	" +
					"\n 	</TABLE>                                                                                      " +
					"\n </DIV>                                                                                         	"; 
	}else{ 
		if( formtypecls == "6" ){
			cover_header =  "<HTML>" +
									"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>						" +
									"\n <DIV >                                                                                            	" +
									"\n 	<TABLE  width='100%' style='font-family: Arial; font-size: 14pt; '>                            " +
									"\n 	<TR>                                                                                          		" +
									"\n 		<TD></TD>                     	 															" +
									"\n 		<TD></TD>                     	 															" +
									"\n 		<TD></TD>                     	 															" +
			//					"\n 		<TD style='text-align: right; font-family: Free 3 of 9;font-size: 24pt;'><!--?VAR_PRINT_BARCODE?--></TD>                    " +
									"\n 	</TR>                                                                                         		" +
									"\n 	</TABLE>                                                                                      	" +
									"\n </DIV>                                                                                            	";
		}else{
			 cover_header =  "<HTML>" +
									"\n <BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>						" +
									"\n <DIV >                                                                                            	" +
									"\n 	<TABLE  width='100%' style='font-family: Arial; font-size: 14pt; font-weight: bold;'>                            " +
									"\n 	<TR>                                                                                          		" +
									"\n 		<TD style='width: 100%; text-align: left'><!--?VAR_OCR_LEFT?--></TD> 	" +
									"\n 		<TD style='width: 100%; text-align: right'><!--?VAR_OCR_RIGHT?--></TD>  " +
									"\n 	</TR>                                                                                         		" +
									"\n 	</TABLE>                                                                                      	" +
									"\n </DIV>                                                                                            	"; 
			
		}		
	}
	//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
	var pInstcd = parent.model.getValue("/root/main/ordinfo/instcd");
	if(pInstcd ==""){
		  pInstcd =getUserInfo("dutplceinstcd");
	}
	//[2012.04.27 ±â°üÄÚµå Ãß°¡ ]
    //f_View.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+pInstcd+".jpg");	
  	
  	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
	
	headertitle =  "\n <TABLE cellspacing='0' width='100%'>                                                            	" +
					"\n <TR>                                                                                              				" +
					"\n     <TD width='65%'> 																			   			" +
					"\n 		<TABLE style='width: 100%; font-family: ¸¼Àº °íµñ;'>											" +
					"\n 		<TR> 																						  				" +	
					"\n 			<TD><IMG SRC='" + getDomain() + "/himed/webapps/com/commonweb/images/biglogo" + pInstcd+".jpg" + "' width='130' height='30' ></TD>				  " +				
					"\n 		</TR>                                                                                         				" +
					"\n 		<TR>                                                                                          				" +
					"\n 			<TD style='font-size: 18pt; text-align: center;'><!--?VAR_CHART_NAME_TOP?--></TD>         " +
					"\n 		</TR>                                                                                         				";
					 
	if(arryformnm.length == 2){    
	    headertitle = headertitle +
	    			  "\n 		<TR>                                                                                          			" +
	                  "\n 			<TD style='font-size: 14pt; text-align: center;'><!--?VAR_CHART_NAME2_TOP?--></TD>         " +
					  "\n 		</TR>                                                                                         			";
	}				
	headertitle =  headertitle +
	                "\n 		</TABLE>                                                                                        			" +
					"\n     </TD>																											" +
					"\n 	<TD width='35%'>                                                                              			" +
					"\n 		<DIV style='border-style: solid; border-width: 1px; padding: 2px'>                      	" +
					"\n 			<TABLE cellspacing='0' width='100%' style='font-family: ¸¼Àº °íµñ;'>            	" +
					"\n 			<TR>                                                                                  					" +
					"\n 				<TD style='font-size: 18pt' width='70%'><!--?VAR_PAT_NUM?--></TD>   	" +
					"\n 				<TD style='font-size: 14pt; text-align: center;' width='30%'><!--?VAR_TREAT_DEPT?--></TD>                          " +
					"\n 			</TR>         																		  					" +
					"\n       </TABLE>																		      				" +
					"\n       <TABLE>                                                                               				" +
					"\n 			<TR>                                                                                  					" +
					"\n 				<TD style='font-size: 14pt' width='60%'><!--?VAR_PAT_NAME?--></TD>                            " +
					"\n 				<TD style='font-size: 14pt; text-align: center;' width='40%'><!--?VAR_PAT_SA?--></TD>                          " +
					"\n 			</TR>                                                                                 					" +
					"\n 			<TR height='40'>                                                                                  	" +
					"\n 				<TD style='font-size: 12pt' width='60%' ><!--?VAR_PAT_JUMIN_NO?--></TD>                        " +
					"\n 				<TD style='font-size: 12pt' width='40%'><!--?VAR_TREAT_DATE?--></TD>                         " +
					"\n 			</TR>                                                                                 					" +
					"\n 			</TABLE>                                                                              				" +
					"\n 		</DIV>                                                                                    					" +
					"\n 	</TD>                                                                                         					" +
					"\n </TR>                                                                                             				" +
					"\n </TABLE>                                                                                          				" ;
    footer = "\n <DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 1.5px;'>  	" +
			"\n </DIV>                                                                                            						" +
			"\n                                                                                                   							" +
			"\n </BODY>                                                                                           						" +
			"\n </HTML>                                                                                           						";
												
	switch(formtypecls)
	{
		case "1":
			local_file = "cover_header1.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}			
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + 
				"\n <DIV style='border-top-style: solid; border-width: 2px;'>																																													" +
				"\n <TABLE cellspacing='0' >                                                                                                                                                                                                                    " +
				"\n 	<TR ><TD ></TD></TR>                                                                                                                                                                                                                    " +
				"\n </TABLE>                                                                                                                                                                                                                                    " +
				"\n </DIV>                                                                                                                                                                                                                                      " +
				"\n <TABLE cellspacing='0' width='100%' >                                                                                                                                                                                                       " +
				"\n <TR>																																																				" +
				"\n		<TD style='border-style: solid; border-width: 1; border-color: #000000; font-size: 12pt; font-family: ¸¼Àº °íµñ; text-align: center;' width='12%'>																" +
				"\n			Áø´Ü¸í																																																		" +
				"\n		</TD>																																																			" +
				"\n		<TD style='border-style: solid; border-left-style: none; border-width: 1; border-color: #000000; font-size: 12pt; font-family: ¸¼Àº °íµñ;' width='88%'>															" +
				"\n			<TABLE width='100%' height='100%'>																																											" +
				"\n			<TR>																																																		" +
				"\n				<TD style='border-bottom-style: solid; border-width: 1; border-color: #000000;'>																														" +
				"\n					&nbsp;<!--?VAR_JINDAN1?-->																																											" +
				"\n				</TD>																																																	" +
				"\n			</TR>																																																		" +
				"\n			<TR>																																																		" +
				"\n				<TD>																																																	" +
				"\n					&nbsp;<!--?VAR_JINDAN2?-->																																											" +
				"\n				</TD>																																																	" +
				"\n			</TR>																																																		" +
				"\n			</TABLE>																																																	" +
				"\n		</TD>																																																			" +
				"\n	</TR>																																																				" +
				"\n	<TR>																																																				" +
				"\n		<TD style='border-left-style: solid; border-right-style: solid; border-bottom-style: solid; border-width: 1; border-color: #000000; font-size: 12pt; font-family: ¸¼Àº °íµñ; text-align: center;' width='12%'>    " +
				"\n			&nbsp;&nbsp;¼ö¼ú¸í<BR>(óġ/°Ë»ç)																																												" +
				"\n		</TD>																																																			" +
				"\n		<TD style='border-right-style: solid; border-bottom-style: solid; border-width: 1; border-color: #000000; font-size: 12pt; font-family: ¸¼Àº °íµñ;' width='88%'>													" +
				"\n			<TABLE width='100%' height='100%'>																																											" +
				"\n			<TR>																																																		" +
				"\n				<TD style='border-bottom-style: solid; border-width: 1; border-color: #000000;'>																														" +
				"\n					&nbsp;<!--?VAR_OPERATION1?-->																																										" +
				"\n				</TD>																																																	" +
				"\n			</TR>																																																		" +
				"\n			<TR>																																																		" +
				"\n				<TD>																																																	" +
				"\n					&nbsp;<!--?VAR_OPERATION2?-->																																										" +
				"\n				</TD>																																																	" +
				"\n			</TR>																																																		" +
				"\n			</TABLE>																																																	" +
				"\n		</TD>																																																			" +
				"\n	</TR>																																																				" +
				"\n </TABLE>                                                                                                                                                                                                                                    " +
				"\n <TABLE cellspacing='0' >                                                                                                                                                                                                                    " +
				"\n 	<TR ><TD ></TD></TR>                                                                                                                                                                                                                    " +
				"\n </TABLE>   	                                                                                                                                                                                                                                 " +
				footer 
			}
			break;
		case "2":
			local_file = "cover_header2.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + 
				"\n <DIV style='border-top-style: solid; border-width: 2px;'>																																						" +
				"\n <TABLE cellspacing='0' >                                                                                                                                                                                        " +
				"\n 	<TR ><TD ></TD></TR>                                                                                                                                                                                        " +
				"\n </TABLE>                                                                                                                                                                                                        " +
				"\n </DIV>                                                                                                                                                                                                          " +
				"\n <TABLE cellspacing='0' width='100%' >                                                                                                                                                                           " +
				"\n 	<TR>                                                                                                                                                                                                        " +
				"\n 		<TD style='border-style: solid;border-right-style: none; border-color: #000000; border-width: 1px; font-size: 13pt; font-family: ¸¼Àº °íµñ; text-align: center;' width='10%' rowspan='2'>Áø´Ü¸í</TD>           " +
				"\n 		<TD style='border-style: solid;border-bottom-style: none; border-color: #000000; border-width: 1px; font-size: 13pt;' width='90%' height='20px' >&nbsp;                                                 " +
				"\n 			<!--?VAR_JINDAN1?-->                                                                                                                                                                                " +
				"\n 		</TD>                                                                                                                                                                                                   " +
				"\n 	</TR>                                                                                                                                                                                                       " +
				"\n 	<TR >                                                                                                                                                                                                       " +
				"\n 		<TD style='border-style: solid; border-color: #000000; border-width: 1px; font-size: 13pt;' width='90%' height='20px'>&nbsp;                                                                            " +
				"\n 			<!--?VAR_JINDAN2?-->                                                                                                                                                                                " +
				"\n 		</TD>                                                                                                                                                                                                   " +
				"\n 	</TR>	                                                                                                                                                                                                    " +
				"\n </TABLE>                                                                                                                                                                                                        " +
				"\n <TABLE cellspacing='0' >                                                                                                                                                                                        " +
				"\n 	<TR ><TD ></TD></TR>                                                                                                                                                                                        " +
				"\n </TABLE>                                                                                                                                                                                                        " +
				footer 
			}
			break;
		case "3":
			local_file = "cover_header3.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + footer
			}
			break;
		case "4":
			local_file = "cover_header4.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + footer
			}
			break;
		case "5":
			local_file = "cover_header5.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + 
				    "\n <TABLE cellspacing='0' width='100%'>                                                              " +
					"\n <TR>                                                                                              " +
					"\n 	<TD width='100%'>                                                                              " +
					"\n 		<TABLE style='width=100%; font-family: ¸¼Àº °íµñ;'>                                           " +
					"\n 		<TR>                                                                                      " +
					"\n 			<TD style='font-size: 18pt; text-align: center;'><!--?VAR_CHART_NAME_TOP?--></TD>     " +
					"\n 		</TR>                                                                                     " +
					"\n 		</TABLE>                                                                                  " +
					"\n 	</TD>                                                                                         " +
					"\n </TR>                                                                                             " +
					"\n </TABLE>                                                                                          " +
				 	footer
			}
			break;
		case "6":
			local_file = "cover_header6.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + footer
			}
			break;
		default:
			local_file = "cover_header3.html";
			if(fso.FileExists(local_path + local_file) == true)
			{
				fso.DeleteFile(local_path + local_file, true)
			}
			if(fso.FileExists(local_path + local_file) == false)
			{
				cover_header =  cover_header + headertitle + footer
			}
			break;
			break;
	}
	
	var a = fso.CreateTextFile( local_path + local_file , true, true);
    a.WriteLine(cover_header);
    a.Close();
    
}

/**
 * @desc   : OCR Ãâ·Â
 *
 * @param  : prntflag : A-ÀçÃâ·Â 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fPrint(prntflag)
{
 
    var insyn;
    var existyn; 
    var ocrDataCnt = model.getValue("/root/main/ocrinfo/ocrdatacnt");
    var currentpage = model.getValue("/root/main/ocrinfo/currentpage");
    var prntcnt = 1;
    var succ_Prnt = false;
    var save_ocrtag = "";
    var doubyn = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/doubyn");
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
        parent.btn_prnt.disabled = true;
    }
    
    //ÀÌÀ±ÁÖ ¼öÁ¤ 20160912 formtypecls=6 Àΰæ¿ì´Â À̹ÌÁö¸¸ Ãâ·Â
    var formtypecls = model.getValue("/root/main/forminfo/formtypecls");
    if (formtypecls == "6") {
			fPrintOCR();
			return;
		}
    
    if((prntflag == 'A') || (prntflag == 'P')){
    

    	model.makeValue("/root/main/temp/ocrtag/tag", "+" + model.getValue("/root/main/ocrinfo/ocrtag/tag") + "+");
        
        fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
        
        fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
        
        if(ocrDataCnt > 0){
        	if(prntflag == 'P'){
        		
        	    for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
                    if(doubcnt == 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                        //--Yoo fSetBarCode();
                        // 20090715 OCRTAG Ãâ·Â¿©ºÎ °ª¿¡ µû¸¥ ¼öÁ¤
                        if(model.getValue("/root/main/forminfo/ocrtagprntyn") == "N"){
 
                             fOCRReplace("");
                        } else {
 
                            fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
                        }
                    } else {
                    	
                        fOCRReplace("[ȯÀÚ º¸°ü¿ë]");                        
                    }
            		opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
            	    succ_Prnt = fPrintOCR();
            	}           	
        	} else if (prntflag == 'A'){        // ÀçÃâ·Â
                for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
                    for(prntcnt = 1; prntcnt <= ocrDataCnt; prntcnt++){
                        model.makeValue("/root/main/ocrinfo/doubcnt", doubcnt);
                        //--Yoo fMovePage('1');
                        // 2009-07-27 nj OCT TYPE5 ¹öÀü ¼öÁ¤
                        // if((prntcnt != 1) && (model.getValue("/root/main/forminfo/formtypecls") != "5")){
                        if(prntcnt != 1){
                            
                    		model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
                    		opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
                    		
                            if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                            	fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
                            }
                            else
                            {
                            	fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
                            }
                        } else {
                    		model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
                    		opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
                    		
                            if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                            	fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
                            }
                             else
                            {
                            	fOCRReplace(model.getValue("/root/main/temp/ocrtag/tag"));
                            }
                        }
                        model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
                        
                    }
                    succ_Prnt = fPrintOCR();
                }
            }
        }
        if(succ_Prnt){
            //messageBox("Ãâ·ÂÀÌ", "I002");
        } else {
            messageBox("Ãâ·ÂÀ»", "E009");
            return;
        }
    } else{
    	var n_ocrtag;
    	n_ocrtag = fmakeOCRTag()
    	fOCRReplace(n_ocrtag);
    	//fBarcodeCheck¿¡¼­ fOCRReplace¸¦ ½ÇÇàÇÑ´Ù.
    	//fOCRReplace(n_ocrtag);

    	fBarcodeCheck(n_ocrtag);
        // À̷°ü·ÃÇؼ­ ÀúÀåÈÄ Ãâ·ÂÀ¸·Î ÀӽüöÁ¤(20090225)
        //fSaveOCR();
        //--Yoo fMovePage('1');
        save_ocrtag = fSaveOCR();
        insyn = model.getValue("/root/hidden/insocrtag/insyn");
        if(insyn == "Y"){
            if(ocrDataCnt > 0){
                for(var doubcnt = 1; doubcnt <= doubyn; doubcnt++){
                    for(prntcnt = 1; prntcnt <= ocrDataCnt; prntcnt++){
                        model.makeValue("/root/main/ocrinfo/doubcnt", doubcnt);
                        //--Yoo fMovePage('1');
                        // 2009-07-27 nj OCT TYPE5 ¹öÀü ¼öÁ¤
                    	// if((prntcnt != 1) && (model.getValue("/root/main/forminfo/formtypecls") != "5")){
                    	if(prntcnt != 1){
                        	
                    		model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
                    		opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
                    		//--Yoo fSetBottomInfo();
                    		if(doubcnt != 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                    			fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
                            }
                    	} else {
                        	model.makeValue("/root/main/ocrinfo/currentpage", prntcnt);
                        	opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
                        	
                            if(doubcnt!= 1){ // 2008-08-31 ȯÀÚ¿ë Ãâ·Â½Ã ¹ÙÄÚµå Á¤º¸´Â Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                            	fOCRReplace("[ȯÀÚ º¸°ü¿ë]");
                           
                            }
                    	}
                     
                    }
                    
                    if (gocrprntyn == "Y") {
                      succ_Prnt = fPrintOCR(); 
                    }
                    else {
                    	succ_Prnt = "Y"; //ÇϵåÄڵ忡 µî·ÏµÈ °ú´Â ½ÇÁ¦ Ãâ·ÂÇÏÁö ¾Ê´Â´Ù
                    }
                }
            }
        }
        else
        {
            messageBox("Ãâ·Â(OCR)À»", "E009");
            return;
        }
        
        if(succ_Prnt){
            // À̷°ü·ÃÇؼ­ ÀúÀåÈÄ Ãâ·ÂÀ¸·Î ÀӽüöÁ¤(20090225)
            //save_ocrtag = fSaveOCR();
            insyn = model.getValue("/root/hidden/insocrtag/insyn");
            if(insyn == "Y"){
                //messageBox("Ãâ·ÂÀÌ", "I002");
            } else if(insyn != "Y"){
                messageBox("ÀúÀåÀ»", "E009");
                return;
            }
        } else {
            messageBox("Ãâ·ÂÀ»", "E009");
            return;
        }
        
    }
    
    /*
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
        parent.btn_prnt.disabled = true;
    }
    */
    	
    model.makeValue("/root/main/ocrinfo/doubcnt", "1");
    model.makeValue("/root/main/ocrinfo/currentpage", "1");

    model.makeValue("/root/main/iptdiaghngnm", "");
    return save_ocrtag;
}

function fPrintOCR()
{
	try{
		var i;
		
		f_print.DocumentBegin(f_View.PageTotal+"_"+"OCRPrint");     
	
		for(i = 1; i <= f_View.PageTotal; i++)
		{
			f_print.PageBegin();         
				             
		    f_print.PrintImage(f_View.PageFilePath(i), f_View.PageFilePage(i) + 1, 0, 0, f_print.PrintableWidth, f_print.PrintableHeight, 2,1,1,12);

		    f_print.PageEnd();                      
		}
	    f_print.DocumentEnd();
	    
		model.makeValue("/root/main/exist", "N");
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
        if(parent.swt_ocrinfoflag.selectedIndex == "1"){
            parent.btn_prnt.disabled = true;
        } else {
            var parentauth = parent.model.getValue("/root/properties/auth")
            if(parentauth.charAt(1) == '1'){	//20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æó¸®.(¿äû¹øÈ£ : 11292)
            	parent.btn_prnt.disabled = false;
            }
        }
    }

  
	    return true;
	}
	catch(e){
		return false;
	}
}

/**
 * @desc   : OCR µ¥ÀÌŸ ÃʱâÈ­
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fGetOCRData(inode){
  var localfilenm = model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrfilenm");    

  // knuh 20111128 ÃÖ¿øµ· ³×¹ø° ÀÎÀÚ¿¡ µ¿±â/ºñµ¿±âÀÎÁö ¿©ºÎ¸¦ ÁöÁ¤ÇÒ¼ö ÀÖµµ·Ï ºä¾î¸¦ ÆÐÄ¡
  // ÁÖÀÇ   : µ¿±â½ÄÀ¸·Î ÁöÁ¤ ½Ã ¼Óµµ°¡ ´Ù¼Ò ´Ê¾îÁö´Â Çö»óÀÌ ÀÖÀ¸¹Ç·Î ÇÊ¿äÇÑ °æ¿ì¿¡¸¸ ¼³Á¤ÇؾßÇÔ.
  // sample : // var async = false; //ºñµ¿±â½Ä (defalut : true [µ¿±â½Ä]) // var ui = false;
  //          // model1.download("http://his031edu.knu.ac.kr/himed/webapps/com/hismainweb/images/login_mis_dev.jpg", "C:\\temp\\download\\login_mis_dev.jpg", ui, async);
  // ¿øº»   : model.download(getActionURL("TRMRF03802")+ getUserSessionString() +"&ocrseq=" + model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrseq"), gv_ImgeSavePath+localfilenm, false);
  model.download(getActionURL("TRMRF03802")+ getUserSessionString() +"&ocrseq=" + model.getValue("/root/main/ocrinfo/ocrlist[" + (inode) + "]/ocrseq"), gv_ImgeSavePath+localfilenm, false, false);
}

/**
 * @desc   : Æú´õ ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fFolderSet(folderpath, delflag)
{
	var fso;
    var haveFile;
    var currFile;

    fso = new ActiveXObject("Scripting.FileSystemObject");
    if(fso.FolderExists(folderpath) == false){
    	fso.CreateFolder(folderpath);
    }
    
    if (delflag == "D"){
	    haveFile = fso.GetFolder(gv_ImgeSavePath);
		currFile = new Enumerator(haveFile.Files);
    
    	for( ; !currFile.atEnd(); currFile.moveNext()){
    		//20130418 ±èµ¿ÁØ start try Catch Ãß°¡
    		 try{
    			 	fso.DeleteFile(currFile.item().path, true);
		    }
			catch(e){
				
			}
			//20130418 ±èµ¿ÁØ end
    	}
    }	
}

/**
 * @desc   : ȯÀÚ Á¤º¸ ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetPatInfo(formcd, pid, orddd, cretno, ordtype){
	var pidinfo = "";
	var patnminfo = "";
	var orddept = "";
	var drinfo = "";
	var sainfo = "";
	var inroomcd = "";
	var prnt_patnminfo = "";
	var tmp_patnminfo = "";
	var getdate = "";
	
    if(model.getValue("/root/hidden/parentflag") == "ETC"){
        pidinfo = model.getValue("/root/main/patinfo/items/pid");
	    patnminfo = model.getValue("/root/main/patinfo/items/patnm");
	    orddept = model.getValue("/root/main/patinfo/items/orddeptnm");
	    drinfo = model.getValue("/root/main/patinfo/items/drnm");
	    sainfo = model.getValue("/root/main/patinfo/items/sa");
	    /* if(sainfo.indexOf("M") >= 0){
	        model.setValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-1XXXXXX");
	    } else if(sainfo.indexOf("F") >= 0){
	        model.setValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno") + "-2XXXXXX");
	    } */
	    model.makeValue("/root/main/patinfo/items/rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
	    
	    model.makeValue("/root/main/patinfo/items/centcd", model.getValue("/root/main/patinfo/items/centcd"));
	    model.makeValue("/root/main/patinfo/items/centnm", model.getValue("/root/main/patinfo/items/centnm"));
	    model.makeValue("/root/main/patinfo/items/centengabbr", model.getValue("/root/main/patinfo/items/centengabbr"));

    } else if (model.getValue("/root/hidden/parentflag") == "PRNT"){
    	pidinfo = parent.model.getValue("/root/main/ordinfo/pid");
	    patnminfo = parent.model.getValue("/root/main/ordinfo/patnm");
    	orddept = parent.model.getValue("/root/main/ordinfo/orddeptnm");
    	drinfo = parent.model.getValue("/root/main/ordinfo/drnm");
	    sainfo = parent.model.getValue("/root/main/ordinfo/sa");
		/* 2009-03-16 Edited by Nj
		if(parent.swt_trgtmanlist.selectedIndex == 0){
			ordtype = 'O';
		} else if(parent.swt_trgtmanlist.selectedIndex == 1){
		  	ordtype = 'I';
		} else if(parent.swt_trgtmanlist.selectedIndex == 2){
		 	ordtype = 'E';
		} */
		model.makeValue("/root/main/patinfo/items/pid", parent.model.getValue("/root/main/ordinfo/pid"));
		model.makeValue("/root/main/patinfo/items/orddd", parent.model.getValue("/root/main/ordinfo/orddd"));
		model.makeValue("/root/main/patinfo/items/ordtype", parent.model.getValue("/root/main/ordinfo/ordtype"));
		model.makeValue("/root/main/patinfo/items/orddeptcd", parent.model.getValue("/root/main/ordinfo/orddeptcd"));
		model.makeValue("/root/main/patinfo/items/patnm", parent.model.getValue("/root/main/ordinfo/patnm"));
		model.makeValue("/root/main/patinfo/items/orddeptnm", parent.model.getValue("/root/main/ordinfo/orddeptnm"));
		model.makeValue("/root/main/patinfo/items/drid", parent.model.getValue("/root/main/ordinfo/drid"));		
		model.makeValue("/root/main/patinfo/items/drnm", parent.model.getValue("/root/main/ordinfo/drnm"));
		model.makeValue("/root/main/patinfo/items/sa", parent.model.getValue("/root/main/ordinfo/sa"));
		model.makeValue("/root/main/patinfo/items/inroomcd", parent.model.getValue("/root/main/ordinfo/inroomcd"));
		model.makeValue("/root/main/patinfo/items/cretno", parent.model.getValue("/root/main/ordinfo/cretno"));
		model.makeValue("/root/main/patinfo/items/rrgstno", parent.model.getValue("/root/main/ordinfo/rrgstno"));
		
		model.makeValue("/root/main/patinfo/items/centcd", parent.model.getValue("/root/main/ordinfo/centcd"));
		model.makeValue("/root/main/patinfo/items/centnm", parent.model.getValue("/root/main/ordinfo/centnm"));
		model.makeValue("/root/main/patinfo/items/centengabbr", parent.model.getValue("/root/main/ordinfo/centengabbr"));
		
    }
    patnminf = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/patnm"); 
	
	
	// º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
	mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼­½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
	var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
	
	if (hardcd == "Y")
	{
	    for(var i = pidinfo.length; i <= 8; i++){
    	    if(i < 8){
	            pidinfo = "0"+pidinfo;
    	    }
    	}
    	var str1 = pidinfo.substr(0, 3);
    	var str2 = pidinfo.substr(3, 2);
    	var str3 = pidinfo.substr(5, 2);
    	var str4 = pidinfo.substr(7, 1);
    	pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
	}

	obj_BCP.setParam("rgst_no", pidinfo);

	getdate = model.getValue("/root/main/patinfo/items/orddd");
	
	
	// ȯÀÚ¸í 5Àڱ ¼öÁ¤
	if (patnminfo.length > 5 && patnminfo.length <= 10)
	{
	    prnt_patnminfo = patnminfo
	}
    else if (patnminfo.length > 11)
    {
        prnt_patnminfo = patnminfo.substring(0, 10);
    }
    else
    {
    	for(var i = 0; i <= patnminfo.length; i++){
    		tmp_patnminfo = patnminfo.substring(i, i+1);
    		if(i == patnminfo.length){
    			break;
    		}
    		prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
    	}
    }

    /* ¿ø source
    for(var i = 0; i <= patnminfo.length; i++){
		tmp_patnminfo = patnminfo.substring(i, i+1);
		if(i == patnminfo.length){
			break;
		}
		prnt_patnminfo = prnt_patnminfo + tmp_patnminfo.concat(" ");
	}
	*/
		
	obj_BCP.setParam("pat_nm", prnt_patnminfo);
	
	
	model.makeValue("/root/send/reqdata/deptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
	model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
	
	// ºÎ¼­¾à¾î °¡Á®¿À±â
	submit("TRMRF03805");
	obj_BCP.setParam("orddept", model.getValue("/root/main/deptinfo/info/deptengabbr"));
	obj_BCP.setParam("rrgstno", model.getValue("/root/main/patinfo/items/rrgstno"));
	obj_BCP.setParam("fromdd", getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2));
	/* obj_BCP.setParam("sa",        "³ªÀÌ / ¼ºº° : " + sainfo);

    switch(ordtype){
		case 'O':
			obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/¿Ü·¡ : " + orddetp_drinfo);	
			break;
		case 'I':
			if(model.getValue("/root/hidden/parentflag") == "ETC"){
				inroomcd = model.getValue("/root/main/patinfo/items/inroomcd");
			} else {
				inroomcd = parent.model.getValue("/root/main/ordinfo/inroomcd");
			}
			obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/º´½Ç : " + orddetp_drinfo+"/"+inroomcd);	
			break;
		case 'E':
			obj_BCP.setParam("orddetp_orddr", "Áø·á°ú/ÀÀ±Þ : " + orddetp_drinfo);	
			break;
    }
    */

	// 2009.11.16. ÇöÀç Àç¿øÁßÀÎ º´½ÇÁ¤º¸ °¡Á®¿À±â.. & º´½ÇÁ¤º¸ Ãâ·ÂÇϱâ..
	obj_BCP.setParam("inroomcd", "");
	var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
	if (ordtype == 'I')	{
		model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
		model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
		submit("TRMRF03809");
		var inroomcd = model.getValue("/root/main/inroominfo/inroomlist/roomcd");
		if (inroomcd != "False" && inroomcd != "" )	{
			//obj_BCP.setParam("inroomcd", "º´½Ç : "  + inroomcd);
			//lyj 2011/11/29
			obj_BCP.setParam("rgst_no", pidinfo +" ("+inroomcd+")");
			 
		}
	}


}

/**
 * @desc   : ŸÀÌƲ Á¤º¸ ¼ÂÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetTitle(){
	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    var langflag = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/langflag");
    if(arryformnm.length == 2){    
	    obj_BCP.setParam("formnm1", arryformnm[0]);
	    obj_BCP.setParam("formnm2", arryformnm[1]);
	} else if(arryformnm.length == 1){
	    obj_BCP.setParam("formnm", arryformnm[0]);    
	}
	
	//obj_BCP.setParam("centnm", "¼¾Å͸í : " ); // + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
	
	switch(langflag){
	    case "KO":
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
        	    obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
        	}
        	break;
        case "EN":
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
        	if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
        	    obj_BCP.setParam("useflag", "\"" + "For Patient Use" + "\"");
        	}
        	break;
        default:
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	if(model.getValue("/root/main/ocrinfo/doubcnt") != "1"){
        	    obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
        	}
        	break;
    }
	//obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/logo012.gif");

}

/**
 * @desc   : OCR Å×±× ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetOCRTag ÆĶó¸ÞÅÍ ¼öÁ¤ fSetOCRTag(flag) - > fSetOCRTag(flag, ocrtagprntyn)
 */
function fSetOCRTag(flag, ocrtagprntyn){
	var getocrtag;
	model.removeNodeset("/root/send/reqdata");
	//copyNodeset("/root/send/reqdata", "/root/main/patinfo/items");
	//model.makeValue("/root/send/reqdata/formcd", model.getValue("/root/main/ocrinfo/ocrlist/formcd"));
	//model.makeValue("/root/send/reqdata/formfromdt", model.getValue("/root/main/ocrinfo/ocrlist/formfromdt"));
	//submit("TRMRF03804");
	//getocrtag = model.getValue("/root/main/ocrinfo/ocrtag/tag");

	// »õ·Î OCRTag¸¦ »ý¼ºÀ¸·Î ¹Ù²Þ.
    // °£È£ºÐ¸¸ÇÁ·Î±×·¥¿¡¼­ ȯÀÚ°¡ µÎ ¸íÀÇ ¾ÆÀ̸¦ ºÐ¸¸ÇÏ¿´À» °æ¿ì,
    // °¢°¢ OCRTAG°¡ °³º°ÀûÀ¸·Î »ý¼ºÀÌ µÇ¾î¾ß ÇÑ´Ù.
    // MRI µ¿ÀǼ­ °°Àº °æ¿ì °¢°¢ µ¿ÀǼ­°¡ Ãâ·ÂµÇ¾î¾ß ÇÏ°í OCRTAGµµ °¢°¢ Ãâ·ÂÀÌ µÇ¾î¾ß ÇÔ.
    // ¼öÁ¤ÀÏ 2007.12.10
    model.makeValue("/root/main/exist", "N");
    if(model.getValue("/root/hidden/parentflag") == "PRNT"){
        if(parent.swt_ocrinfoflag.selectedIndex == "1"){
            parent.btn_prnt.disabled = true;
        } else {
            var parentauth = parent.model.getValue("/root/properties/auth")
            if(parentauth.charAt(1) == '1'){	//20100727-kys-½ÇÇà±ÇÇÑÀÌ ÀÖÀ»½Ã¿¡¸¸ disableº¯°æó¸®.(¿äû¹øÈ£ : 11292)
            	parent.btn_prnt.disabled = false;
            }
        }
    }
    if(flag != ""){
        // 20090715 ocrtag Ãâ·Â±¸ºÐ °ªÀ¸·Î Ãâ·Â¿©ºÎ ÆÇ´Ü ¼öÁ¤ nj
        // obj_BCP.setParam("ocrtag", "+"+flag+"+");
        if(ocrtagprntyn == "N"){
            obj_BCP.setParam("ocrtag", "");
        } else {
            obj_BCP.setParam("ocrtag", "+"+flag+"+");
        }
        
	    model.makeValue("/root/main/ocrinfo/ocrtag/tag", flag);
	    fSetBarCode();
    }
    /*
	if(getocrtag == ""){
		model.setValue("/root/main/exist", "N");
		if(model.getValue("/root/hidden/parentflag") == "PRNT"){	
			parent.btn_prnt.disabled = false;
		}
	} else {
		model.setValue("/root/main/exist", "Y");
	    obj_BCP.setParam("ocrtag", "+"+getocrtag);
	    fSetBarCode();
		if(model.getValue("/root/hidden/parentflag") == "PRNT"){
			parent.btn_prnt.disabled = true;
		}
	}
	*/
	obj_BCP.Refresh();
}

/**
 * @desc   : OCR Å×±× »ý¼º 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fmakeOCRTag(){
	/*
		OCRTag´Â ÀϷùøÈ£¸¦ »ç¿ëÇϱâ·ÎÇÔ.
		ÀϽÃ+ÀϷùøÈ£ »ç¿ë
	*/
	var ocrtag = null;
	var tmptag;
	var prntocrtag = "";
	
	model.removeNode("/root/main/ocrinfo/ocrtag/tag");
	model.makeValue("/root/send/reqdata/date", getCurrentDate());
	submit("TRMRF03806");
	
	ocrtag = getCurrentDate() + model.getValue("/root/main/ocrtag/seq");
	for(var i = 0; i <= ocrtag.length; i++){
		tmptag = ocrtag.substring(i, i+1);
		if(i == ocrtag.length){
			break;
		}
		// ±ÛÀÚ »çÀÌÀÇ °ø¹éÀ» Á¦°Å
		// prntocrtag = prntocrtag + tmptag.concat(" ");
		prntocrtag = prntocrtag + tmptag;
	}
	model.makeValue("/root/main/ocrinfo/ocrtag/tag", prntocrtag);
	model.makeValue("/root/main/temp/ocrtag/tag", "+"+prntocrtag+"+");
	model.removeNode("/root/send/reqdata/date");
	return model.getValue("/root/main/temp/ocrtag/tag");
}

/**
 * @desc   : OCR ÀúÀå µ¥ÀÌŸ ¼ÂÆà ÈÄ ÀúÀå 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSaveOCR(){
	var savepath = "/root/send/reqdata/";
	model.makeValue(savepath + "ocrtag", model.getValue("/root/main/ocrinfo/ocrtag/tag"));
	model.makeValue(savepath + "pid", model.getValue("/root/main/patinfo/items/pid"));
	model.makeValue(savepath + "orddd", model.getValue("/root/main/patinfo/items/orddd"));
	model.makeValue(savepath + "cretno", model.getValue("/root/main/patinfo/items/cretno"));
	model.makeValue(savepath + "ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
	model.makeValue(savepath + "orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
	model.makeValue(savepath + "orddrid", model.getValue("/root/main/patinfo/items/drid"));
	model.makeValue(savepath + "instcd", getUserInfo("dutplceinstcd"));
	model.makeValue(savepath + "formcd", model.getValue("/root/main/ocrinfo/ocrlist/formcd"));
	model.makeValue(savepath + "formfromdt", model.getValue("/root/main/ocrinfo/ocrlist/formfromdt"));
	model.makeValue(savepath + "fstprntdt", getCurrentDate()+getCurrentTime());
	model.makeValue(savepath + "fstprntdeptcd", getUserInfo("dutplcecd"));
	model.makeValue(savepath + "fstprntid", getUserInfo("userid"));
	model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
	model.makeValue(savepath + "updtdeptcd", getUserInfo("dutplcecd"));
	model.makeValue(savepath + "updtuserid", getUserInfo("userid"));
	model.makeValue(savepath + "diagnm", model.getValue("/root/main/diaginfo/diaghngnm"));
	model.makeValue(savepath + "opnm", model.getValue("/root/main/opinfo/ophngnm"));
	model.makeValue(savepath + "pagecnt", model.getValue("/root/main/ocrinfo/ocrdatacnt"));
	
	if (gocrprntyn == "N") {
		model.makeValue(savepath + "updtresncnts", "½ÇÁ¦ Ãâ·ÂÀº ÇÏÁö ¾ÊÀ½");
		model.makeValue(savepath + "realprntyn", "N");
	}
	
	model.addlog("ocrtag:" + model.getValue(savepath + "ocrtag"));
	model.addlog("pid:" + model.getValue(savepath + "pid"));
	model.addlog("orddd:" + model.getValue(savepath + "orddd"));
	model.addlog("cretno:" + model.getValue(savepath + "cretno"));
	model.addlog("ordtype:" + model.getValue(savepath + "ordtype"));
	model.addlog("orddeptcd:" + model.getValue(savepath + "orddeptcd"));
	model.addlog("orddrid:" + model.getValue(savepath + "orddrid"));
	model.addlog("instcd:" + model.getValue(savepath + "instcd"));
	model.addlog("formcd:" + model.getValue(savepath + "formcd"));
	model.addlog("formfromdt:" + model.getValue(savepath + "formfromdt"));
	model.addlog("fstprntdt:" + model.getValue(savepath + "fstprntdt"));
	model.addlog("fstprntdeptcd:" + model.getValue(savepath + "fstprntdeptcd"));
	model.addlog("fstprntid:" + model.getValue(savepath + "fstprntid"));
	model.addlog("updtdt:" + model.getValue(savepath + "updtdt"));
	model.addlog("updtdeptcd:" + model.getValue(savepath + "updtdeptcd"));
	model.addlog("updtuserid:" + model.getValue(savepath + "updtuserid"));
	model.addlog("pagecnt:" + model.getValue(savepath + "pagecnt"));
	
    if(submit("TXMRF03805")){
        return model.getValue("/root/main/ocrinfo/ocrtag/tag");
    }
	//model.removeNodeset("/root/send/reqdata");
}

/**
 * @desc   : OCR ÆäÀÌÁö À̵¿ 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fMovePage(pageno){
	var formtype = model.getValue("/root/main/forminfo/formtypecls");
	
    var pid = model.getValue("/root/main/patinfo/items/pid");
    var orddd = model.getValue("/root/main/patinfo/items/orddd");
    var ordtype = model.getValue("/root/main/patinfo/items/ordtype");
    var cretno = model.getValue("/root/main/patinfo/items/cretno");
    var formcd = model.getValue("/root/main/ocrinfo/ocrlist/formcd");
    var ocrtag = model.getValue("/root/main/ocrinfo/ocrtag/tag");
    var ocrtagprntyn = model.getValue("/root/main/forminfo/ocrtagprntyn");
    var topinfoprntyn = parent.window.javascript.getParameter("topinfoprntyn");
	
	if(pageno == '1'){
/*
		switch(formtype){
			case '1':
				fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
				break;
			case '2':
				fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
				break;
			case '3':
				fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
				break;
			case '4':
				fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
				break;
			case '5':
				fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn);
				break;
		}
*/
	} else if ( topinfoprntyn != "Y") {
	    /* 2009-07-27 nj OCR TYPE5 ¼öÁ¤
	    if(formtype != "5"){
   	        obj_BCP.LoadChart(gv_BCPINIPath+"default.ini");
		    fSetDefault();
		    fSetBottomInfo();
		    fSetBarCode();
		}*/
   	    //obj_BCP.LoadChart(gv_BCPINIPath+"default.ini");
		//fSetDefault();
		//fSetBottomInfo();
		//fSetBarCode();
	}
	opt_pagecnt.attribute("text") = model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt");
	//--Yoo obj_BCP.setParam("bg_path", gv_ImgeSavePath + model.getValue("/root/main/ocrinfo/ocrlist["+pageno+"]/ocrfilenm"));
	//--Yoo obj_BCP.Refresh();
	
	f_View.Pagecurrent = pageno;
}

/**
 * @desc   : ±âÁØÆäÀÌÁö¿¡¼­ ´ÙÀ½ ÆäÀÌÁö 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fPostPage(){
    var currpage = parseInt(model.getValue("/root/main/ocrinfo/currentpage"));

	if( currpage == f_View.Pagetotal )
	{
	
	} else
	{
		currpage = currpage+1;
		model.makeValue("/root/main/ocrinfo/currentpage", currpage);
		fMovePage(currpage);    
	    btn_prepage.attribute("visibility") = "visible";
	    if(parseInt(currpage) == parseInt(model.getValue("/root/main/ocrinfo/ocrdatacnt"))){
	        btn_postpage.disabled = true;
	        btn_prepage.disabled = false;
	    }else {
	        btn_postpage.disabled = false;
	        btn_prepage.disabled = false;    
	    }
	}
	
}
/**
 * @desc   : ±âÁØÆäÀÌÁö¿¡¼­ ÀÌÀü ÆäÀÌÁö 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fPrePage(){
    var currpage = parseInt(model.getValue("/root/main/ocrinfo/currentpage"));
	
	if(currpage == 1){
		
	} else
	{
		currpage = currpage-1;
		model.makeValue("/root/main/ocrinfo/currentpage", currpage);
		fMovePage(currpage);    
	    if(currpage == 1){
	        btn_prepage.disabled = true;
	        btn_postpage.disabled = false;
	    } else {
	        btn_prepage.disabled = false;
	        btn_postpage.disabled = false;    
	    }
	}
}

/**
 * @desc   : ¹ÙÄÚµå ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetBarCode(){
	var barcode = "";
    var pageno = 0;
    
	barcode = model.getValue("/root/main/ocrinfo/ocrtag/tag");
	pageno = model.getValue("/root/main/ocrinfo/currentpage");
	if(pageno.length == 1){
	    pageno = "0"+pageno;
	}
	
	obj_BCP.setParam("barcode", "*"+barcode+pageno+"*");
	
}

/**
 * @desc   : Áø´Ü¸í ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetDiag(pid, orddd, cretno, ordtype){
    model.removeNodeset("/root/send/reqdata");
	
	if(model.getValue("/root/main/exist") == "Y"){
//		obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í");
//		obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
	} else if(model.getValue("/root/main/exist") == "N" && model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm") == ""){
		model.makeValue("/root/send/reqdata/pid", model.getValue("/root/main/patinfo/items/pid"));
		model.makeValue("/root/send/reqdata/orddd", model.getValue("/root/main/patinfo/items/orddd"));
		model.makeValue("/root/send/reqdata/cretno", model.getValue("/root/main/patinfo/items/cretno"));
		model.makeValue("/root/send/reqdata/orddeptcd", model.getValue("/root/main/patinfo/items/orddeptcd"));
		model.makeValue("/root/send/reqdata/ordtype", model.getValue("/root/main/patinfo/items/ordtype"));
	
		submit("TRMRF03807");
//		obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í")
//		obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
	}
	
	obj_BCP.setParam("tag_diagnm", "Áø´Ü¸í")
	obj_BCP.setParam("diagnm", model.getValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm"));
	obj_BCP.Refresh();
}

/**
 * @desc   : ¼ö¼ú¸í ¼ÂÆà 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetOp(pid, orddd, cretno, ordtype){
	obj_BCP.setParam("tag_opnm", "¼ö¼ú¸í");
	obj_BCP.setParam("tag_opnm1", "(óġ/°Ë»ç)");
}

/**
 * @desc   : ÇÏ´ÜÁ¤º¸(Ãâ·ÂÀϽÃ, Ãâ·ÂÀÚ, ÆäÀÌÁö) ¼ÂÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetBottomInfo(){
	var getdate = getCurrentDate();
	var gettime = getCurrentTime();
	var getuser = getUserName();
	var getuseren = getUserInfo("userengnm");
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
	var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
	var ipaddr = getUserInfo("ipaddr");
	
	
	
	switch(langflag){
	    case "KO":
        	obj_BCP.setParam("bottom_time", "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt);
        	obj_BCP.setParam("bottom_user", "Ãâ·ÂÀÚ : " + getuser );
        	obj_BCP.setParam("pagecnt", "ÆäÀÌÁö : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
	        break;
	    case "EN":
        	obj_BCP.setParam("bottom_time", "Print Date : " + dateprnt + " " + timeprnt);
        	if((getuseren == null)||(getuseren == "")){
            	obj_BCP.setParam("bottom_user", "Printed by : " + getuser);
            } else {
                // ¿µ¹®µ¿ÀǼ­µµ Ãâ·ÂÀÚ´Â Çѱ۸íÀ¸·Î Ç¥½ÃµÇ¾î¾ß ÇÔ. 2008-09-17 ±è¹Ì¼± ¼±»ý´Ô ¿äû
                obj_BCP.setParam("bottom_user", "Printed by : " + getuser);
                //obj_BCP.setParam("bottom_user", "Printed by : " + getuseren.substring(0, 7));
            }
        	obj_BCP.setParam("pagecnt", "Page : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
	        break;
        default:
        	obj_BCP.setParam("bottom_time", "Ãâ·ÂÀϽà : " + dateprnt + " " + timeprnt);
        	obj_BCP.setParam("bottom_user", "Ãâ·ÂÀÚ : " + getuser);
        	obj_BCP.setParam("pagecnt", "ÆäÀÌÁö : " + model.getValue("/root/main/ocrinfo/currentpage") + "/" + model.getValue("/root/main/ocrinfo/ocrdatacnt"));
        	break;
	}
	
	var centnm = model.getValue("/root/main/patinfo/items/centnm");

	//if (centnm != "")
	if (centnm != "False" && centnm != "" )
	{
	    obj_BCP.setParam("centnm", "¼¾Å͸í : "  + centnm+'('+ipaddr+')');
	} 
  else
  {
    obj_BCP.setParam("centnm", ipaddr);
  }

}

/**
 * @desc   : ÆÄÀϼÂÆÃ1
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetInitFile1 ÆĶó¸ÞÅÍ ¼öÁ¤ fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
 */
function fSetInitFile1(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
    obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype1.ini");
	fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
	if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
       	// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆĶó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
       	// 20090715 fSetOCRTag(ocrtag);
       	fSetOCRTag(ocrtag, ocrtagprntyn);
    }
	fSetTitle();
	fSetDiag(pid, orddd, cretno, ordtype);
	fSetOp(pid, orddd, cretno, ordtype);
	fSetBottomInfo();
}

/**
 * @desc   : ÆÄÀϼÂÆÃ2
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetInitFile2 ÆĶó¸ÞÅÍ ¼öÁ¤ fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
 */
function fSetInitFile2(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
    obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype2.ini");
	fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
	if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
       	// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆĶó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
       	// 20090715 fSetOCRTag(ocrtag);
       	fSetOCRTag(ocrtag, ocrtagprntyn);
    }
	fSetTitle();
	fSetDiag(pid, orddd, cretno, ordtype);
	fSetBottomInfo();
}

/**
 * @desc   : ÆÄÀϼÂÆÃ3
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetInitFile3 ÆĶó¸ÞÅÍ ¼öÁ¤ fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
 */
function fSetInitFile3(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
    obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype3.ini");
	fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
	if(model.getValue("/root/main/ocrinfo/doubcnt") == "1"){
       	// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆĶó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
       	// 20090715 fSetOCRTag(ocrtag);
       	fSetOCRTag(ocrtag, ocrtagprntyn);
    }
	fSetTitle();
	fSetBottomInfo();
}

/**
 * @desc   : ÆÄÀϼÂÆÃ4
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetInitFile4 ÆĶó¸ÞÅÍ ¼öÁ¤ fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
 */
function fSetInitFile4(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
    obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype4.ini");
	fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
	if(model.getValue("/root/main/ocrinfo/doubcnt") == 1){
       	// 20090715 fSetOCRTag È£Ãâ½Ã OCRTAG Ãâ·Â¿¡ ¿©ºÎ¿¡ µû¸¥ ÆĶó¸ÞÅÍ Ãß°¡·Î ³Ñ±è nj
       	// 20090715 fSetOCRTag(ocrtag);
       	fSetOCRTag(ocrtag, ocrtagprntyn);
    }
	fSetTitle();
	fSetBottomInfo();
}

/**
 * @desc   : ÆÄÀϼÂÆÃ5
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 * 20090715 fSetInitFile5 ÆĶó¸ÞÅÍ ¼öÁ¤ fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag) - > fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn) nj
 */
function fSetInitFile5(formcd, pid, orddd, cretno, ordtype, ocrtag, ocrtagprntyn){
    obj_BCP.LoadChart(gv_BCPINIPath+"set_ocrtype5.ini");
    fSetPatInfo(formcd, pid, orddd, cretno, ordtype);
    // 2009-07-27 nj Ãß°¡
	var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");

    // formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ 
	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    if(arryformnm.length == 2){    
	    obj_BCP.setParam("formnm1", arryformnm[0]);
	    obj_BCP.setParam("formnm2", arryformnm[1]);
	} else if(arryformnm.length == 1){
	    obj_BCP.setParam("formnm", arryformnm[0]);    
	}
	
    fSetOCRTag(ocrtag, ocrtagprntyn);
	switch(langflag){
	    case "KO":
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
	        break;
	    case "EN":
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
	        break;
        default:
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	break;
	}
	fSetBottomInfo();
}

/**
 * @desc   : Áø´Ü¸íÀ̳ª opnm ¼ÂÆÃ
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetDiagOpnm(){
    var iptflag = model.getValue("/root/main/iptnmflag");
    
    if(iptflag == "diagnm") {
        obj_BCP.setParam("diagnm", model.getValue("/root/main/iptdiaghngnm"));
        model.makeValue("/root/main/ocrinfo/ocrtag/diaginfo/diagengnm", model.getValue("/root/main/iptdiaghngnm"));
    } else if(iptflag == "opnm") {
        obj_BCP.setParam("opnm", model.getValue("/root/main/iptdiaghngnm"));
        model.makeValue("/root/main/ocrinfo/ocrtag/opinfo/opengnm", model.getValue("/root/main/iptdiaghngnm"));
    }
    obj_BCP.Refresh();	
}

/**
 * @desc   : OCR ¼­½Ä º´¿ø º¸°ü¿ë Default Á¤º¸ Ãâ·Â
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetDefault(){
	var getdate = model.getValue("/root/main/patinfo/items/orddd");
// Default page Ãâ·Â¸íĪ À¸·Î ¼öÁ¤
//	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist/formnm");
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2); 
	var pidinfo = model.getValue("/root/main/patinfo/items/pid");
	var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");

// formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ 
	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    if(arryformnm.length == 2){    
	    obj_BCP.setParam("formnm1", arryformnm[0]);
	    obj_BCP.setParam("formnm2", arryformnm[1]);
	} else if(arryformnm.length == 1){
	    obj_BCP.setParam("formnm", arryformnm[0]);    
	}
	
    // º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
	mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼­½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
	var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
	
	if (hardcd == "Y")
	{
        for(var i = pidinfo.length; i <= 8; i++){
    	    if(i < 8){
    	        pidinfo = "0"+pidinfo;
    	    }
    	}
    	var str1 = pidinfo.substr(0, 3);
    	var str2 = pidinfo.substr(3, 2);
    	var str3 = pidinfo.substr(5, 2);
    	var str4 = pidinfo.substr(7, 1);
    	pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
	}
  
  obj_BCP.setParam("rgst_no", pidinfo);
	
	// ȯÀÚ¸í 5ÀڷΠ¥¸£±â
	var pat_nm = model.getValue("/root/main/patinfo/items/patnm");
	
	if (pat_nm.length > 10)
	{
	    pat_nm = pat_nm.substr(0, 10);
	}
	
	//obj_BCP.setParam("pat_nm", model.getValue("/root/main/patinfo/items/patnm"));
	obj_BCP.setParam("pat_nm", pat_nm);
	
	
//	obj_BCP.setParam("formnm", getformnm);
    // 2009-07-27 OCRTAG Ãâ·Â¿©ºÎ ¼öÁ¤
    if(model.getValue("/root/main/forminfo/ocrtagprntyn") == "N"){
        obj_BCP.setParam("ocrtag", "");
    } else {
   	    obj_BCP.setParam("ocrtag", model.getValue("/root/main/temp/ocrtag/tag"));
   	}

	switch(langflag){
	    case "KO":
        	obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
        	obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));	
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
	        break;
	    case "EN":
        	obj_BCP.setParam("fromdd", "Date : " + dateprnt);
        	obj_BCP.setParam("orddept", "Dept : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
        	obj_BCP.setParam("rrgstno", "SN : " + model.getValue("/root/main/patinfo/items/rrgstno"));
	        break;
        default:
        	obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
        	obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));	
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
        	break;
	}

}

/**
 * @desc   : OCR ¼­½Ä ȯÀÚ º¸°ü¿ë Default Á¤º¸ Ãâ·Â
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSetDefaultPat(){
	var getdate = model.getValue("/root/main/patinfo/items/orddd");
// Default page Ãâ·Â¸íĪ À¸·Î ¼öÁ¤
//	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist/formnm");
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	var pidinfo = model.getValue("/root/main/patinfo/items/pid");
	var langflag = model.getValue("/root/main/ocrinfo/ocrlist["+ 1 +"]/langflag");
	
// formprntnmÀ¸·Î Ãâ·Â¸í º¯°æ 
	var getformnm = model.getValue("/root/main/ocrinfo/ocrlist[" + 1 + "]/formprntnm");
    var arryformnm = getformnm.split("\n");
    if(arryformnm.length == 2){    
	    obj_BCP.setParam("formnm1", arryformnm[0]);
	    obj_BCP.setParam("formnm2", arryformnm[1]);
	} else if(arryformnm.length == 1){
	    obj_BCP.setParam("formnm", arryformnm[0]);    
	}
	
	// º´¿øº° µî·Ï¹øÈ£ Ç¥½Ã¹æ¹ý ¿©ºÎ(HardCode Å×À̺í ÀÌ¿ë) - 2009/06/01 Ãß°¡
	mmbfGetHardCodeInfoNm("/root/send/harddata","/root/temp/hardcode", 3801); //OCR¼­½ÄÀÇ µî·Ï¹øÈ£ üũ·ÎÁ÷ Ç¥½Ã ¿©ºÎ
	var hardcd = model.getValue("/root/temp/hardcode/hardcd/hardcd");
	
	if (hardcd == "Y")
	{
        for(var i = pidinfo.length; i <= 8; i++){
    	    if(i < 8){
    	        pidinfo = "0"+pidinfo;
    	    }
    	}
    	var str1 = pidinfo.substr(0, 3);
    	var str2 = pidinfo.substr(3, 2);
    	var str3 = pidinfo.substr(5, 2);
    	var str4 = pidinfo.substr(7, 1);
    	pidinfo = str1 + " " + str2 + " " + str3 + "-" + str4;
	}
	
	obj_BCP.setParam("rgst_no", pidinfo);
	
	// ȯÀÚ¸í 5ÀڷΠ¥¸£±â
	var pat_nm = model.getValue("/root/main/patinfo/items/patnm");
	
	if (pat_nm.length > 10)
	{
	    pat_nm = pat_nm.substr(0, 10);
	}
	
	//obj_BCP.setParam("pat_nm", model.getValue("/root/main/patinfo/items/patnm"));
	obj_BCP.setParam("pat_nm", pat_nm);

	
//	obj_BCP.setParam("formnm", getformnm);
    
	switch(langflag){
	    case "KO":
        	obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
        	obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
            obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
            obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
            obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
	        break;
	    case "EN":
        	obj_BCP.setParam("fromdd", "Date : " + dateprnt);
        	obj_BCP.setParam("orddept", "Dept : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
            obj_BCP.setParam("useflag", "\"" + "For Patient Use" + "\"");
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+"e.jpg");
        	obj_BCP.setParam("rrgstno", "SN : " + model.getValue("/root/main/patinfo/items/rrgstno"));
	        break;
        default:
        	obj_BCP.setParam("fromdd", "Áø·áÀÏ : " + dateprnt);
        	obj_BCP.setParam("orddept", "Áø·á°ú : " + model.getValue("/root/main/deptinfo/info/deptengabbr"));
            obj_BCP.setParam("useflag", "[ȯÀÚ º¸°ü¿ë]");
        	obj_BCP.setParam("logo_imge", gv_Logo_ImgePath + "/biglogo"+getUserInfo("dutplceinstcd")+".jpg");
        	obj_BCP.setParam("rrgstno", "Áֹεî·Ï¹øÈ£: " + model.getValue("/root/main/patinfo/items/rrgstno"));
        	break;
	}
}

/**
 * @desc   : ¼ö°¡¿Í ¸ÅÇÎµÈ ¼­½Ä Á¶È¸¸¦ À§ÇÑ ÀÎÅÍÆäÀ̽º 
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fCalcScorInterface(pid, orddd, cretno, ordtype, calcscorcd, ocrprntyn){
    if((pid == null) || (orddd == null) || (cretno == null) || (ordtype == null)){
        messageBox("¿ø¹«Á¢¼ö Á¤º¸°¡", "I004");
        return;
    }
    
    if ( ocrprntyn == "N" ){
    	gocrprntyn = "N";
    }
    
    var formtypecls = "";
    var ocrtagprntyn = "";
    var formcd = "";
    var formfromddt = "";
    var calcscorcdList = "";
    var arrycalcscorcd = calcscorcd.split("¢Ë");
    var formcd_calc = "";
    var prcp_rtn = "";
    var popyn = "";

    var node = getGlobalVariable("paminfo");
    setCSVToNode("/root/main/paminfo", node);
    
    for(var i = 1; i <= arrycalcscorcd.length -1; i++){
        calcscorcdList = calcscorcdList + arrycalcscorcd[i-1];
        if(i < arrycalcscorcd.length -1){
            calcscorcdList = calcscorcdList + ",";
        }
    }
    model.makeValue("/root/send/reqdata/calcscorcd", calcscorcdList);
    
    submit("TRMRF03808");
    
    //¼­½Äº° µ¿ÀǼ­ Ãâ·Â ¿¹¿ÜºÎ¼­(20171230)	
    var excnt = getNodesetCount("/root/main/calcscor/list2[trgtcdnm = '"+arrycalcscorcd[0]+"']");
    if (excnt> 0) {
    	return "X";
    }
    
    //½ÃÇàºÎ¼­ ó¹æ¿¡¼­ µ¿ÀǼ­ Ãâ·ÂÀ¯¹«		
		var openWin  = getOpenWindow("SMMMO00200"); 
		var popcnt = getNodesetCount("/root/main/calcscor/list[popyn = 'Y']");
    
		if (openWin != null && popcnt> 0) {
			if ( 6 != messageBox("µ¿ÀǼ­¸¦ Ãâ·ÂÇϽðڽÀ´Ï±î?","Q") ) {
				return "X";
			}
		} 
    
    var formList = getNodesetCount("/root/main/calcscor/list");
    for(var i = 1; i <= formList; i++){
        formcd = model.getValue("/root/main/calcscor/list["+i+"]/formcd");
        formfromdt = model.getValue("/root/main/calcscor/list["+i+"]/formfromdt");
        formtypecls = model.getValue("/root/main/calcscor/list["+i+"]/formtypecls");
        ocrtagprntyn = model.getValue("/root/main/calcscor/list["+i+"]/ocrtagprntyn");
        formcd_calc = model.getValue("/root/main/calcscor/list["+i+"]/calcscorcd");
        popyn =  model.getValue("/root/main/calcscor/list["+i+"]/popyn");
        
        fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn);
        var save_ocrtag = fPrint();
        var arry_calccd = formcd_calc.split(",");
        for(var samecnt = 0; samecnt < arry_calccd.length; samecnt++){
            prcp_rtn = prcp_rtn + arry_calccd[samecnt] + "¢Ë" + save_ocrtag + "¢Ë";
        }
    }
    return prcp_rtn;
}

/**
 * @desc   : OCR Á¤º¸ ÀúÀå
 *
 * @param  : 
 * @return :
 * @author : HIT EMR Team
 * @---------------------------------------------------
 */
function fSaveOCRIF(ocrtag, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, diaghngnm, ophngnm, pagecnt, rtnyn){
    model.addlog("fSaveOCRIF: " + ocrtag + "," + pid + "," + orddd + "," + cretno + "," + ordtype + "," + orddeptcd + "," + orddrid + "," + formcd + "," + formfromdt + "," + diaghngnm + "," + ophngnm + "," + pagecnt);
	var savepath = "/root/send/reqdata/";
	model.makeValue(savepath + "ocrtag", ocrtag);
	model.makeValue(savepath + "pid", pid);
	model.makeValue(savepath + "orddd", orddd);
	model.makeValue(savepath + "cretno", cretno);
	model.makeValue(savepath + "ordtype", ordtype);
	model.makeValue(savepath + "orddeptcd", orddeptcd);
	model.makeValue(savepath + "orddrid", orddrid);
	model.makeValue(savepath + "instcd", getUserInfo("dutplceinstcd"));
	model.makeValue(savepath + "formcd", formcd);
	model.makeValue(savepath + "formfromdt", formfromdt);
	model.makeValue(savepath + "fstprntdt", getCurrentDate()+getCurrentTime());
	model.makeValue(savepath + "fstprntdeptcd", getUserInfo("dutplcecd"));
	model.makeValue(savepath + "fstprntid", getUserInfo("userid"));
	model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
	model.makeValue(savepath + "updtdeptcd", getUserInfo("dutplcecd"));
	model.makeValue(savepath + "updtuserid", getUserInfo("userid"));
	model.makeValue(savepath + "diagnm", diaghngnm);
	model.makeValue(savepath + "opnm", ophngnm);
	model.makeValue(savepath + "pagecnt", pagecnt);
	
	
	if(submit("TXMRF03805")){
		if(rtnyn == "Y"){ //hardcdno : 9950 ÀÚµ¿¹Ý³³°ü¸®
			sleep(1000);
			model.makeValue(savepath + "barcode", ocrtag);
			model.makeValue(savepath + "updtdt", getCurrentDate()+getCurrentTime());
			model.makeValue(savepath + "lstupdtdt", getCurrentDate()+getCurrentTime());
			model.makeValue(savepath + "lstupdtuserid", getUserInfo("userid"));
			model.makeValue(savepath + "lstupdtdeptcd", getUserInfo("dutplcecd"));
			model.makeValue(savepath + "updtresncnts", "");
			model.makeValue(savepath + "statcd", "R");
			model.makeValue(savepath + "scanyn", "N");
			model.makeValue(savepath + "scancnt", "0");
			
		    if(!submit("TXMRF02901")){
		    	messageBox("ÀÚµ¿¹Ý³³ÀúÀåÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù");
		    }
		}
		model.removeNodeset("/root/send/reqdata");
	    return true;
	} else {
	    model.removeNodeset("/root/send/reqdata");
	    return false;
	}
}

// µô·¹ÀÌ function
function sleep(msecs){
  var start =new Date().getTime();
  var cur=start; 

  while(cur-start<msecs){
	cur=new Date().getTime();
  }
}


/**
 * @desc   : ƯÁ¤ µ¿ÀǼ­¸¦ Ãâ·ÂÇÑ´Ù.
 *
 * @param  : 
 * @return :
 * @author : ±è¿µÇÐ
 * @---------------------------------------------------
 */
function fSpclOCRPrintInterface(formcd, cnts){
    var formtypecls = "";
    var ocrtagprntyn = "";
    var formfromddt = "";
    var calcscorcdList = "";
    var formcd_calc = "";
    var prcp_rtn = "";

    var node = getGlobalVariable("paminfo");
    setCSVToNode("/root/main/paminfo", node);
    
    model.makeValue("/root/send/reqdata/formcd", formcd);
    submit("TRMRF03810");
    for(var i = 1; i <= cnts; i++){      
        pid         = model.getValue("/root/main/paminfo/list/pid");
        orddd       = model.getValue("/root/main/paminfo/list/orddd");
        cretno      = model.getValue("/root/main/paminfo/list/cretno");
        ordtype     = model.getValue("/root/main/paminfo/list/ordtype");
        orddrid     = model.getValue("/root/main/paminfo/list/orddrid");
        orddeptcd   = model.getValue("/root/main/paminfo/list/orddeptcd");
    
        formcd = model.getValue("/root/main/spclocrprntinfo/spclocrprntlist/formcd");
        formfromdt = model.getValue("/root/main/spclocrprntinfo/spclocrprntlist/formfromdt");
        formtypecls = model.getValue("/root/main/spclocrprntinfo/spclocrprntlist/formtypecls");
        ocrtagprntyn = model.getValue("/root/main/spclocrprntinfo/spclocrprntlist/ocrtagprntyn");
        
        fGetOCRInfo(formcd, pid, orddd, cretno, ordtype, formtypecls, ocrtagprntyn);
        var save_ocrtag = fPrint();
    }
        
    return prcp_rtn;
}

/**
 * @desc   : À¯ÀüÀڰ˻絿ÀǼ­¸¦ ÀçÃâ·ÂÇÑ´Ù.
 *
 * @param  : 
 * @return :
 * @author : ÀÌÀ±ÁÖ
 * @---------------------------------------------------
 */
function fGenePrint(ocrtag,ordtype,formcd)
{
	model.makeValue("/root/send/reqdata/ocrtag", ocrtag);
	model.makeValue("/root/send/reqdata/ordtype", ordtype);
	
	submit("TRMRF03811");

	makeReportPreview(0, 0, 10, 10, "grp_report");
	
	var sPrintcd = "";
	
	 // À¯ÀüÀÚ µ¿ÀǼ­ : 1300014609 , ÀÎüÀ¯·¡¹° µ¿ÀǼ­ :  1000007185
	
	if(formcd == "1300014609"){		
		model.makeNode("/root/hidden/geneunitlist2");
		copyNodeType("/root/hidden/geneunitlist2", "/root/hidden/geneunitlist", "after");		
		exeReportPreview("RPMMO21002", "XMLSTR" , "/root/hidden/geneunitlist2"  , ""   , "true" , "", "", "", "", "", "", "grp_report");
		model.removeNodeSet("/root/hidden/geneunitlist2");
	}else{
		exeReportPreview("RPMMO21001", "XMLSTR" , "/root/hidden/geneunitlist"  , ""   , "true" , "", "", "", "", "", "", "grp_report");
	}
	

}