//ÃʱâÈ­
function fReady(){

    // ÃʱâÁ¤º¸ Ãëµæ
    submit("TRPMC06550");
    
    // Áø·á°ú/º´µ¿ Ç®´Ù¿î ¼¼ÆÃ
    copyNodesetType("/root/hidden/orddrid", "/root/init/orddrid");
    copyNodesetType("/root/hidden/specdrid", "/root/init/orddrid");
    addComboItem("cmb_orddeptcd", "Àüü", "", "above");
    addComboItem("cmb_wardcd",   "Àüü", "", "above");
    
    // Áø·áÀÇ Ç®´Ù¿î ¼¼ÆÃ
    addComboItem("cmb_orddrid",  "Àüü", "", "above");
    addComboItem("cmb_specdrid", "Àüü", "", "above");
    
    // Áø·áÀÏÀÚ ¹× ½ÅûÀÏÀÚ ±âº»°ª ¼³Á¤
    model.setValue("/root/send/cond/ordddfrom", getCurrentDate().toDate().getAddDate(-1,"D").getDateFormat());
    model.setValue("/root/send/cond/ordddto",   getCurrentDate());
    
    //model.setValue("/root/send/cond/appddfrom", getCurrentDate().toDate().getAddDate(-3,"M").getDateFormat());
    //model.setValue("/root/send/cond/appddto",   getCurrentDate());
    
    // ÀÏ°ýÃâ·Â±â´É Á¦¾î
    if (getUserId() == "09166") {
        model.setValue("/root/send/cond/returnyn", "N");
        checkbox5.visible = true;
        group5.visible = true;
    }
    
    model.refresh();
    
    // Ÿȭ¸é¿¡¼­ popupÀ¸·Î È£ÃâµÈ °æ¿ì
    if (checkOpener()) {
        
    
        var pid = opener.javascript.getParameter("SMPMC06503_PARM_PID");
        
        if (pid != null && pid != "") {
            model.setValue("/root/send/cond/pid", pid);
            model.setValue("/root/send/cond/ordddfrom", "");
            model.setValue("/root/send/cond/ordddto", "");
            fSearch();
            //º¸°Çº¹ÁöºÎ °¨»ç ´ëºñ ÀÏ°ý Ãâ·Â±â´É Ãß°¡(2017/06/01 ÀÌÁ¤ÅÃ)
            if(getUserInfo("dutplceinstcd") == "031"){
            	fPrintAll();
                if(printyn=='Y'){
                	grd_spif.valueMatrix(1, grd_spif.colRef("chk"))="true";
                    button2.dispatch("DOMActivate");	
                }	
            }
            //º¸°Çº¹ÁöºÎ °¨»ç ´ëºñ ÀÏ°ý Ãâ·Â±â´É Ãß°¡(2017/06/01 ÀÌÁ¤ÅÃ)
        } else {
            
            // °£È£È­¸é¿¡¼­ È£ÃâµÈ °æ¿ì
            var node = getGlobalVariable("paminfo");
            
            if( node != '' && node != null){
                        
                model.makeNode("/root/temp/paminfo");
                setCSVToNode("/root/temp/paminfo", node); 
                var pid = model.getValue("/root/temp/paminfo/list/pid");
                
                if (pid != null && pid != "") {
                    model.setValue("/root/send/cond/pid", pid);
                    model.setValue("/root/send/cond/ordddfrom", "");
                    model.setValue("/root/send/cond/ordddto", "");
                    fSearch();
                }
            }
        }
    }
}

/* Áø·á°ú ¼±Åýà Áø·á°úÀÇ»ç ¼³Á¤ */
function fSetOrdDrid() {
    
    var ordDeptCd = model.getValue("/root/send/cond/orddeptcd");
    
    if (ordDeptCd != null && ordDeptCd != "") {
        copyNodesetType("/root/hidden/orddrid", "/root/init/orddrid[dp=" + ordDeptCd + "]"); // [accptyn='Y']
    } else {
        copyNodesetType("/root/hidden/orddrid", "/root/init/orddrid");
    }
    
    addComboItem("cmb_orddrid"  , "Àüü", "", "above");
    model.refresh();
}

/* ¼±ÅÃÁø·á°ú ¼±Åýà ¼±ÅÃÁø·á°úÀÇ»ç ¼³Á¤ */
function fSetSpecDrid() {
    var specDeptCd = model.getValue("/root/send/cond/specdeptcd");
    if (specDeptCd != null && specDeptCd != "") {
        copyNodesetType("/root/hidden/specdrid", "/root/init/orddrid[dp=" + specDeptCd + "]"); // [accptyn='Y']
    } else {
        copyNodesetType("/root/hidden/specdrid", "/root/init/orddrid");
    }
    
    addComboItem("cmb_specdrid"  , "Àüü", "", "above");
    model.refresh();
}

function fSearch() {
    
    if(fValidForm()) {
        
        // Æ®¸®±¸Á¶ÀÇ °æ¿ì, ÀÌÀüµ¥ÀÌÅÍ°¡ ³²¾ÆÀ־ ¹®Á¦°¡ µÇ´Â°Í °°À½À¸·Î 
        // °Ë»öÁ÷Àü¿¡ ÇØ´ç ¸®½ºÆ®¸¦ ÃʱâÈ­ÇÏ°í °Ë»ö½Ç½Ã
        model.resetInstanceNode("/root/main/spiflist");
        model.refresh();
        
        submit("TRPMC06531");
        
        setTree(grd_spif , grd_spif.colref("hidden"), grd_spif.colref("hidden"), true);
        grd_spif.refresh();
        
        // °á°ú°Ç¼öÈ®Àοë
        if (grd_spif.rows < 2) {
            
            alert("°Ë»ö°á°ú°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
        }
    }
}

/* °Ë»öÁ¶°Ç°ËÁõ */
function fValidForm() {
    
    var strErrMsg = "";
    var hasErr = false;
    
    // Áø·áÀÏÀÚ NULLüũ´Â pid / ocrtag°¡ ¾øÀ» ¶§¸¸
    if (isNull(model.getValue("/root/send/cond/pid"))
            && isNull(model.getValue("/root/send/cond/ocrtag"))) {
        
        if(isNull(model.getValue("/root/send/cond/ordddfrom"))) {
            strErrMsg += "\r\nÁø·áÀÏÀÚ(FROM)"
                hasErr = true;
        }
        
        if (isNull(model.getValue("/root/send/cond/ordddto"))) {
            strErrMsg += "\r\nÁø·áÀÏÀÚ(TO)"
                hasErr = true;
        }
    }
    
    if (hasErr) {
        alert("´ÙÀ½ Ç׸ñÀº ÇʼöÀÔ´Ï´Ù." + strErrMsg);
        return false;
    } else {
    
        return true;
    }
}

/* ÃʱâÈ­ */
function fInit() {
    
    model.resetInstanceNode("/root/main/spiflist");
    model.resetInstanceNode("/root/main/rexpert/patappinfo1");
    model.resetInstanceNode("/root/main/rexpert/patappinfo2");
    model.resetInstanceNode("/root/main/rexpert/patappinfo3");
//    model.resetInstanceNode("/root/main/prnpatinfo");
    //model.resetInstanceNode("/root/send/cond");
    model.resetInstanceNode("/root/send/spifdesc");
    model.resetInstanceNode("/root/temp");
    
    model.refresh();
}

/* ±×¸®µå ´õºíŬ¸¯ ½Ã µ¿ÀÛ */
function fSelectPatData() {
    
    if (grd_spif.rows < 2) {
        
        return;
    }
    
    var ocrtag = model.getValue("/root/main/spiflist[" + grd_spif.row + "]/ocrtag");
    
    for (i = 1; i < grd_spif.rows; i++) {
        
        if (ocrtag == model.getValue("/root/main/spiflist[" + i + "]/ocrtag")) {
            
            model.setValue("/root/main/spiflist[" + i + "]/chk", "true");
        } else {
            model.setValue("/root/main/spiflist[" + i + "]/chk", "false");
        }
    }
    
    model.refresh();
}

/* ±×¸®µå ¼±ÅÃÇØÁ¦ */
function fDeselectPapData() {
    
    for (i = 1; i < grd_spif.rows; i++) {
        model.setValue("/root/main/spiflist[" + i + "]/chk", "false");
    }
}

/* ¼±ÅÃÁø·á½Åû¼­ Ãâ·Â */
function fPrint() {
    
    // Ãâ·Â´ë»óÈ­¸é ±¸ºÐ
    var isScaned = false;
    
    // Ãâ·Â´ë»óÀ¯¹«±¸ºÐ
    var hasData = false;
    
    // ¼­¸í±¸ºÐ
    var signFlag;
    
    // Ãâ·Â´ë»ó ¼±Á¤
    for (i = 1; i < grd_spif.rows; i++) {
        
        // SCAN¿©ºÎ ¼³Á¤
        if ("true" == model.getValue("/root/main/spiflist[" + i + "]/chk")
                && "Y" == model.getValue("/root/main/spiflist[" + i + "]/scanyn")) {
            
            isScaned = true;
        }
        
        // Ãâ·Â¿ë µ¥ÀÌÅÍ ¼³Á¤
        if ("true" == model.getValue("/root/main/spiflist[" + i + "]/chk")) {
            
            hasData = true;
            
            model.removeNodeset("/root/main/rexpert/patappinfo1");
            
            signFlag = model.getValue("/root/main/spiflist[" + i + "]/signflag");
            
            // ½Åû¼­ ÀçÃâ·Â¿ë
            model.makeValue("/root/main/rexpert/patappinfo1/pid",       model.getValue("/root/main/spiflist[" + i + "]/pid"));
            model.makeValue("/root/main/rexpert/patappinfo1/hngnm",     model.getValue("/root/main/spiflist[" + i + "]/hngnm"));
            model.makeValue("/root/main/rexpert/patappinfo1/zipcdaddr", model.getValue("/root/main/spiflist[" + i + "]/zipcdaddr"));
            model.makeValue("/root/main/rexpert/patappinfo1/detladdr",  model.getValue("/root/main/spiflist[" + i + "]/detladdr"));
            model.makeValue("/root/main/rexpert/patappinfo1/tel",       model.getValue("/root/main/spiflist[" + i + "]/tel"));
            model.makeValue("/root/main/rexpert/patappinfo1/rrgstno1",  model.getValue("/root/main/spiflist[" + i + "]/rrgstno1"));
            model.makeValue("/root/main/rexpert/patappinfo1/rrgstno2",  model.getValue("/root/main/spiflist[" + i + "]/rrgstno2"));
            model.makeValue("/root/main/rexpert/patappinfo1/ocrtag",    model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
            model.makeValue("/root/main/rexpert/patappinfo1/usernm",    model.getValue("/root/main/spiflist[" + i + "]/usernm"));
            model.makeValue("/root/main/rexpert/patappinfo1/hospnm",    model.getValue("/root/main/spiflist[" + i + "]/hospnm"));
            model.makeValue("/root/main/rexpert/patappinfo1/choiflag",  model.getValue("/root/main/spiflist[" + i + "]/choiflag"));
            model.makeValue("/root/main/rexpert/patappinfo1/orddeptkind",  model.getValue("/root/main/spiflist[" + i + "]/orddeptkind"));
            
            // OCR¿¬µ¿¿ë
            model.makeValue("/root/main/rexpert/patappinfo1/orddd",     model.getValue("/root/main/spiflist[" + i + "]/orddd"));
            model.makeValue("/root/main/rexpert/patappinfo1/orddeptcd", model.getValue("/root/main/spiflist[" + i + "]/orddeptcd"));
            model.makeValue("/root/main/rexpert/patappinfo1/orddeptnm", model.getValue("/root/main/spiflist[" + i + "]/orddeptnm"));
            model.makeValue("/root/main/rexpert/patappinfo1/orddrnm",   model.getValue("/root/main/spiflist[" + i + "]/orddrnm"));
            model.makeValue("/root/main/rexpert/patappinfo1/orddrid",   model.getValue("/root/main/spiflist[" + i + "]/orddrid"));
            model.makeValue("/root/main/rexpert/patappinfo1/specordyn", model.getValue("/root/main/spiflist[" + i + "]/specordyn"));
            model.makeValue("/root/main/rexpert/patappinfo1/ioflag",    model.getValue("/root/main/spiflist[" + i + "]/ioflag"));
            model.makeValue("/root/main/rexpert/patappinfo1/deptengabbr", model.getValue("/root/main/spiflist[" + i + "]/deptengabbr"));
            model.makeValue("/root/main/rexpert/patappinfo1/appdd",     model.getValue("/root/main/spiflist[" + i + "]/appdd"));
            model.makeValue("/root/main/rexpert/patappinfo1/cretno",    model.getValue("/root/main/spiflist[" + i + "]/cretno"));
            model.makeValue("/root/main/rexpert/patappinfo1/formcd",    model.getValue("/root/main/spiflist[" + i + "]/formcd"));
            model.makeValue("/root/main/rexpert/patappinfo1/fromdd",    model.getValue("/root/main/spiflist[" + i + "]/fromdd"));
            model.makeValue("/root/main/rexpert/patappinfo1/todd",      model.getValue("/root/main/spiflist[" + i + "]/todd"));
            model.makeValue("/root/main/rexpert/patappinfo1/ocrtag",               model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
            
            model.removeNodeset("/root/main/rexpert/patappinfo2");
            model.removeNodeset("/root/send/spifdesc");
                
            model.makeValue("/root/send/spifdesc/pid",                  model.getValue("/root/main/spiflist[" + i + "]/pid"));
            model.makeValue("/root/send/spifdesc/ocrtag",               model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
                
            // ¼±ÅÃÁø·áÁö¿øÇ׸ñ
            submit("TRPMC06532");
            model.makeValue("/root/main/rexpert/patappinfo1/maindrnm",   model.getValue("/root/main/rexpert/patappinfo2[" + 1 + "]/maindrnm"));
            
            break;
        }
    }
    
    if (!hasData) {
        alert("Ãâ·ÂÇÒ ´ë»óÀÌ Á¸ÀçÇÏÁö ¾Ê°Å³ª, ÁÖÁø·á°ú°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
        return;
    }
    
    // ÀüÀÚ¼­¸íÀÇ °æ¿ì, ±âÁ¸ÀÇ ¼±ÅÃÁø·á½Åû°ü¸®È­¸éÀ» È£Ãâ
    if (signFlag == "E") {
        modal("SMPMC06501");
        
    } else {
        
        // ½ºÄµ¿©ºÎ¿¡ µû¶ó ÇØ´çÈ­¸é È£Ãâ
        if (isScaned) {
            
            // µ¿ÀǼ­ ¹× ±âŸÃâ·Â¼­½ÄÈ­¸é
            fOpenOcr()
            
        } else {
            
            // ¼±Åñ¸ºÐ¿¡ ÇØ´çÇÏ´Â ¾ç½Ä Ãâ·Â
            /*
            if ("B" == model.getValue("/root/main/rexpert/patappinfo1/choiflag")) {
                
                // À§ÀÓ µ¿ÀǼ­ ÀçÃâ·Â
                exeReportPreview("RPPMC06504", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
            } else {
                
                // ¼±Åà µ¿ÀǼ­ ÀçÃâ·Â
                exeReportPreview("RPPMC06505", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
            }
            */
            
            // ¼±ÅÃÁø·á ½Åû¼­ ÀçÃâ·Â
            if (signFlag == 'O') {
                exeReportPreview("RPPMC06505", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
                
            // ¼±ÅÃÁø·á º¯°æ½Åû¼­ ÀçÃâ·Â
            } else {
                fSPIFChangeForm()
                //exeReportPreview("RPPMI02704", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
            }
            
        }
    }
}

/* ¼±ÅÃÁø·á½Åû¼­ »çº» Ãâ·Â */
function fCopyPrint() {
    
    model.removeNodeset("/root/main/rexpert/patappinfo3");
    model.removeNodeset("/root/send/spifdesc");
    
    model.makeValue("/root/send/spifdesc/pid",                    model.getValue("/root/main/rexpert/patappinfo1/pid"));
    model.makeValue("/root/send/spifdesc/orddd",                  model.getValue("/root/main/rexpert/patappinfo1/orddd"));
    model.makeValue("/root/send/spifdesc/ioflag",                 model.getValue("/root/main/rexpert/patappinfo1/ioflag"));
    
    // ¼±ÅÃÁø·áÁö¿øÇ׸ñ Á¤º¸
    submit("TRPMC06533");
    
    exeReportPreview("RPPMC06506", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
}

/* µ¿ÀǼ­ ¹× ±âŸÃâ·Â¼­½ÄÈ­¸é È£Ãâ */
function fOpenOcr() {
    
    model.resetInstanceNode("/root/send/iemr");
    
    model.makeValue("/root/send/iemr/ocrcode", model.getValue("/root/main/rexpert/patappinfo1/ocrtag"));
    
    if((window.children.item("imgemrviewer") == null)
            && (model.getValue("/root/send/iemr/ocrcode") != "")) {
        window.load("../../../emr/imgemrweb/xrw/SSMRC03130.xrw", "modeless", "imgemrviewer", "", "/root/send/iemr", "/root/hidden/temp");
        window.children.item("imgemrviewer").document.title = "Image EMR Viewer";
    }
    
    fCopyPrint();
}

/* OCRÁ¦ÃâÈ®ÀÎ */
function fSetReturnYN() {
    
    var hasData = false;
    
    model.resetInstanceNode("/root/send/spifdesc");
    
    // Ãâ·Â´ë»ó ¼±Á¤
    for (i = 1; i < grd_spif.rows; i++) {
        
        // SCAN¿©ºÎ ¼³Á¤
        if ("true" == model.getValue("/root/main/spiflist[" + i + "]/chk")
                && "N" == model.getValue("/root/main/spiflist[" + i + "]/returnyn")) {
            
            hasData = true;
            
            model.makeValue("/root/send/spifdesc/pid",      model.getValue("/root/main/spiflist[" + i + "]/pid"));
            model.makeValue("/root/send/spifdesc/signflag", model.getValue("/root/main/spiflist[" + i + "]/signflag"));
            model.makeValue("/root/send/spifdesc/ocrtag",   model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
            model.makeValue("/root/send/spifdesc/userid",   getUserId());
            
            break;
        }
    }
    
    // Á¦ÃâÈ®ÀÎ
    if (hasData) {
        if (submit("TXPMC06532")) {
            alert("Á¦ÃâÈ®ÀΠ󸮰¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.");
            
            // ¸®½ºÆ® ÀçÁ¶È¸
            submit("TRPMC06531");
        }
    } else {
        alert("ÀÌ¹Ì Á¦ÃâµÇ¾îÀְųª, Á¦ÃâÈ®ÀÎÇÒ ´ë»óÀÌ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.");
    }
}

function fSetBcode() {
    
    model.setValue("/root/send/cond/ordddfrom", "");
    model.setValue("/root/send/cond/ordddto", "");
    
    setInputNodeCurText();
    
    model.setValue("/root/send/cond/ocrtag", model.getValue("/root/send/cond/ocrtag").substring(0,13));
    input1.refresh();
    
    btn_search.dispatch("onkeypress");
}

function fSetWardDisable() {
    
    var ioflag = model.getValue("/root/send/cond/ioflag");
    
    if (ioflag == "I") {
        cmb_wardcd.disabled = false;
        
    } else {
        cmb_wardcd.disabled = true;
        model.setValue("/root/send/cond/wardcd", "");
    }
}

// ¼±ÅÃÁø·á º¯°æ/ÇØÁö ½Åû¼­ ÀçÃâ·Â
function fSPIFChangeForm() {
    
    model.makeValue("/root/main/prnpatinfo/seq", model.getValue("/root/main/rexpert/patappinfo1/ocrtag"));
    model.makeValue("/root/hidden/original/icdr/icdr_pid", model.getValue("/root/main/rexpert/patappinfo1/pid")); 
    model.makeValue("/root/send/hngnm", model.getValue("/root/main/rexpert/patappinfo1/hngnm"));
    model.makeValue("/root/main/prnpatinfo/orddeptabbr", model.getValue("/root/main/rexpert/patappinfo1/deptengabbr"));
    model.makeValue("/root/main/prnpatinfo/rrgstno1", model.getValue("/root/main/rexpert/patappinfo1/rrgstno1"));
    model.makeValue("/root/main/prnpatinfo/rrgstno2", model.getValue("/root/main/rexpert/patappinfo1/rrgstno2"));
    model.makeValue("/root/send/req/orddd", model.getValue("/root/main/rexpert/patappinfo1/orddd"));
    model.makeValue("/root/send/req/address", model.getValue("/root/main/rexpert/patappinfo1/zipcdaddr") + " " + model.getValue("/root/main/rexpert/patappinfo1/detladdr"));
    model.makeValue("/root/send/req/telno", model.getValue("/root/main/rexpert/patappinfo1/tel"));
    model.makeValue("/root/send/req/hospnm", model.getValue("/root/main/rexpert/patappinfo1/hospnm") + "Àå ±ÍÇÏ");
    model.makeValue("/root/send/req/curdate", getCurrentDate());
    model.makeValue("/root/send/req/curtm", getCurrentTime());
    model.makeValue("/root/send/req/usernm", getUserName());
    
    exeReportPreview("RPPMI02704","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
}

// ¼±ÅÃÁø·á½Åû¼­ ÀÏ°ýÃâ·Â
var printyn;
function fPrintAll() {
    
    var currOcrTag;
    var lastOcrTag;
    
    // µ¥ÀÌÅÍ ±¸ºÐ¿ë Ç÷¡±×
    var isNewData = true;
    
    //Á¦Ãâ/½ºÄµ±¸ºÐ
    var returnyn; 
    var scanyn;
    var returntm;
    var ocrtagcnt;
    printyn = "N"; // Ãâ·Â¿©ºÎ ÃʱâÈ­ ó¸®
    
    // Àüü ½Åû¼­¸¦ Ãâ·Â
    // Ãâ·Â´ÜÀ§´Â OCRTAG·Î ó¸®
    for (i = 1; i < grd_spif.rows; i++) {
        
        // ocrtag Ãëµæ
        currOcrTag = model.getValue("/root/main/spiflist[" + i + "]/ocrtag");
        
        // º¸°Çº¹ÁöºÎ °¨»ç °ü·Ã ¼öÁ¤(¼±ÅÃÁø·á ½ÅÁ¤¼­ Áß 2016/09/01 ÀÌÀü µ¿ÀǼ­´Â ½ºÅµÃ³¸®)(2017/06/19 ÀÌÁ¤ÅÃ)
        if(parseInt(currOcrTag.substr(0, 8))<parseInt('20160901')){
        	continue;
        }
        // º¸°Çº¹ÁöºÎ °¨»ç °ü·Ã ¼öÁ¤(¼±ÅÃÁø·á ½ÅÁ¤¼­ Áß 2016/09/01 ÀÌÀü µ¿ÀǼ­´Â ½ºÅµÃ³¸®)(2017/06/19 ÀÌÁ¤ÅÃ)
        
        //µ¿ÀǼ­ Á¦Ãâ/½ºÄµ±¸ºÐ
        returnyn = model.getValue("/root/main/spiflist[" + i + "]/returnyn");
        scanyn = model.getValue("/root/main/spiflist[" + i + "]/scanyn");
        returntm = model.getValue("/root/main/spiflist[" + i + "]/returntm");
        ocrtagcnt = getNodesetCount("/root/main/spiflist[ocrtag='" + currOcrTag + "']");
        
        //ÀÏ°ý Ãâ·Â½Ã µ¿ÀǼ­¸¦ ½ºÄµµÇ¾î ÀÖ´Ù¸é skipó¸®ÇÔ
        if(scanyn=='Y'){
        	continue;
        }
        
        // Á¦ÃâÈ®ÀÎÀ» 2017/06/02 ÀÌÈÄ·Î Çß´Ù¸é ½ºÅµ ó¸®ÇÔ
        if(returntm.substr(0, 8)>= '20170602'){
        	continue;
        }

        //Áø·áÁö¿ø Ç׸ñÀÌ ¹ÌÁ¸ÀçÇÏ´Â °æ¿ì´Â Ãâ·ÂµÇÁö ¾Êµµ·Ï ó¸®
        if(ocrtagcnt<=1){
        	continue;
        }
        
        
        
        // Ãâ·Â´ÜÀ§Á¦¾î
        if (!isNull(lastOcrTag) && currOcrTag == lastOcrTag) {
            
            // °ú°ÅOCRűװ¡ nullÀ̰ųª ÇöÀçOCRÅÂ±×¿Í µ¿ÀÏÇÏ´Ù¸é ½ºÅµ
            continue;
        }
        
        model.removeNodeset("/root/main/rexpert/patappinfo1");
        
        // ½Åû¼­ ÀçÃâ·Â¿ë
        model.makeValue("/root/main/rexpert/patappinfo1/pid",           model.getValue("/root/main/spiflist[" + i + "]/pid"));
        model.makeValue("/root/main/rexpert/patappinfo1/hngnm",         model.getValue("/root/main/spiflist[" + i + "]/hngnm"));
        model.makeValue("/root/main/rexpert/patappinfo1/zipcdaddr",     model.getValue("/root/main/spiflist[" + i + "]/zipcdaddr"));
        model.makeValue("/root/main/rexpert/patappinfo1/detladdr",      model.getValue("/root/main/spiflist[" + i + "]/detladdr"));
        model.makeValue("/root/main/rexpert/patappinfo1/tel",           model.getValue("/root/main/spiflist[" + i + "]/tel"));
        model.makeValue("/root/main/rexpert/patappinfo1/rrgstno1",      model.getValue("/root/main/spiflist[" + i + "]/rrgstno1"));
        model.makeValue("/root/main/rexpert/patappinfo1/rrgstno2",      model.getValue("/root/main/spiflist[" + i + "]/rrgstno2"));
        model.makeValue("/root/main/rexpert/patappinfo1/ocrtag",        model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
        
        // ÀÔ¿ø / ¿Ü·¡±¸ºÐÇÏ¿© Ãâ·Â
        if (model.getValue("/root/main/spiflist[" + i + "]/ioflag") == "O") {
            model.makeValue("/root/main/rexpert/patappinfo1/usernm",       model.getValue("/root/main/spiflist[" + i + "]/returnrnm"));
            
            var printdt = model.getValue("/root/main/spiflist[" + i + "]/returntm").toDate("YYYYMMDDhhmmss");
            var sprintdt = printdt.getAddDate(-103, "s").getDateFormat("YYYYMMDDhhmmss");

            model.makeValue("/root/main/rexpert/patappinfo1/printdt",      sprintdt);
        } else {
            model.makeValue("/root/main/rexpert/patappinfo1/usernm",       model.getValue("/root/main/spiflist[" + i + "]/fstrgstrnm"));
            model.makeValue("/root/main/rexpert/patappinfo1/printdt",      model.getValue("/root/main/spiflist[" + i + "]/fstrgstdt"));
        }
        
        model.makeValue("/root/main/rexpert/patappinfo1/hospnm",        model.getValue("/root/main/spiflist[" + i + "]/hospnm"));
        model.makeValue("/root/main/rexpert/patappinfo1/choiflag",      model.getValue("/root/main/spiflist[" + i + "]/choiflag"));
        model.makeValue("/root/main/rexpert/patappinfo1/orddeptkind",   model.getValue("/root/main/spiflist[" + i + "]/orddeptkind"));
        
        // OCR¿¬µ¿¿ë
        model.makeValue("/root/main/rexpert/patappinfo1/orddd",         model.getValue("/root/main/spiflist[" + i + "]/orddd"));
        model.makeValue("/root/main/rexpert/patappinfo1/orddeptcd",     model.getValue("/root/main/spiflist[" + i + "]/orddeptcd"));
        model.makeValue("/root/main/rexpert/patappinfo1/orddeptnm",     model.getValue("/root/main/spiflist[" + i + "]/orddeptnm"));
        model.makeValue("/root/main/rexpert/patappinfo1/orddrnm",       model.getValue("/root/main/spiflist[" + i + "]/orddrnm"));
        model.makeValue("/root/main/rexpert/patappinfo1/orddrid",       model.getValue("/root/main/spiflist[" + i + "]/orddrid"));
        model.makeValue("/root/main/rexpert/patappinfo1/specordyn",     model.getValue("/root/main/spiflist[" + i + "]/specordyn"));
        model.makeValue("/root/main/rexpert/patappinfo1/ioflag",        model.getValue("/root/main/spiflist[" + i + "]/ioflag"));
        model.makeValue("/root/main/rexpert/patappinfo1/deptengabbr",   model.getValue("/root/main/spiflist[" + i + "]/deptengabbr"));
        model.makeValue("/root/main/rexpert/patappinfo1/appdd",         model.getValue("/root/main/spiflist[" + i + "]/appdd"));
        model.makeValue("/root/main/rexpert/patappinfo1/cretno",        model.getValue("/root/main/spiflist[" + i + "]/cretno"));
        model.makeValue("/root/main/rexpert/patappinfo1/formcd",        model.getValue("/root/main/spiflist[" + i + "]/formcd"));
        model.makeValue("/root/main/rexpert/patappinfo1/fromdd",        model.getValue("/root/main/spiflist[" + i + "]/fromdd"));
        model.makeValue("/root/main/rexpert/patappinfo1/todd",          model.getValue("/root/main/spiflist[" + i + "]/todd"));
        model.makeValue("/root/main/rexpert/patappinfo1/ocrtag",        model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
        
        model.removeNodeset("/root/main/rexpert/patappinfo2");
        model.removeNodeset("/root/send/spifdesc");
            
        model.makeValue("/root/send/spifdesc/pid",                  model.getValue("/root/main/spiflist[" + i + "]/pid"));
        model.makeValue("/root/send/spifdesc/ocrtag",               model.getValue("/root/main/spiflist[" + i + "]/ocrtag"));
            
        // ¼±ÅÃÁø·áÁö¿øÇ׸ñ
        submit("TRPMC06532");
        model.makeValue("/root/main/rexpert/patappinfo1/maindrnm",   model.getValue("/root/main/rexpert/patappinfo2[" + 1 + "]/maindrnm"));
        
        // Ãâ·Â
        // 2017/06/02 ÀÌÁ¤Åà Ãâ·ÂÆû ¼öÁ¤
        exeReportPreview("RPPMC06505", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");
       // exeReportPreview("RPPMC06508", "XMLSTR", "/root/main/rexpert", "", "true", "", "", "", "", "true");

        // Ãâ·Â½Ã µ¥ÀÌÅÍ ¼¼ÆÃ(2017/06/02 ÀÌÁ¤ÅÃ)
        printyn = "Y";
        
        // ÇöÀçű׸¦ °ú°Åű׷Πó¸®
        lastOcrTag = currOcrTag;
    }
}