function fInit() {
    model.resetInstanceNode("/root/send/cond");
    model.resetInstanceNode("/root/send/agmtdesc");
    model.resetInstanceNode("/root/main/agmtlist");
    model.resetInstanceNode("/root/main/printinfo");
    model.resetInstanceNode("/root/main/ininfo");
    model.resetInstanceNode("/root/main/agmtcount");
    model.resetInstanceNode("/root/init");
    model.resetInstanceNode("/root/hidden");
    model.resetInstanceNode("/root/tmp");
    
    model.setValue("/root/send/cond/agmttype", 0); // ±¸ºÐ:Àüü
    
    model.setValue("/root/send/agmtdesc/ocrtype",  "S"); // O:OCR, S:ÀüÀÚ¼­¸í
    model.setValue("/root/send/agmtdesc/agmttype", "1");
    model.setValue("/root/send/agmtdesc/fromdd",   getCurrentDate());
    
    var todd = getNewDate();
    todd = todd.getAddDate(364, "D");
    todd = getDateTime(todd, "D");
    model.setValue("/root/send/agmtdesc/todd",     todd);
    
    cmb_type.disabled = false;
    combo1.disabled   = false;
    
    model.refresh();
}

// OCRNOÀÔ·Â
function fSetBcode() {
    
    setInputNodeCurText();
    
    var sOcrTagNo = model.getValue("/root/send/cond/ocrtagno");
    
    if (isNull(sOcrTagNo) || sOcrTagNo.length < 13) {
        
        //messageBox("OCRÄڵ尡 Á¤»óÀûÀ¸·Î ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù.", "C000");
        
        return false;
    }
    
    // °Ë»ö ½Ç½Ã
    fSearch();
}

/*ÀÏ°ýµî·Ï(¸¶°¨)¹æ½ÄÀ» äÅÃÇÔÀ¸·Î ÀÎÇØ ÀÚµ¿µî·ÏÀº ÇÏÁö ¾ÊÀ½

function fAutoRgst() {
    
    var pid      = model.getValue("/root/main/ininfo/pid");
    var indd     = model.getValue("/root/main/ininfo/indd");
    var agmttype = model.getValue("/root/main/ininfo/agmttype");
    
    // ÀÚµ¿½Åû È®ÀÎ¿ë ¸Þ¼¼Áö - ÀÔ¿ø°áÁ¤¼­ ÀÖ´Â °æ¿ì
    if (messageBox(model.getValue("/root/send/agmtdesc/hngnm")
                          + "(" + pid + ")ÀÇ "
                          + "ÀÔ¿øÀÏÀÚ : " + indd + "°ÇÀ» "
                          + "¾àÁ¤¼­ (" + model.getValue("/root/send/cond/ocrtagno").substr(0, 13)
                          + ")¿¡ µî·ÏÇϽðڽÀ´Ï±î?\r\n\r\n"
                          + "½ÃÀÛÀÏÀÚ´Â " + indd + "·Î ¼³Á¤µË´Ï´Ù. "
                          , "Q000") == '6') {
        
        model.setValue("/root/send/agmtdesc/fromdd", indd);
        
        model.makeValue("/root/send/agmtdesc/updateflag", "U");
        model.makeValue("/root/send/agmtdesc/formcd", fGetFromCd(model.getValue("/root/send/agmtdesc/agmttype")));
        
        if (submit("TXPMI03202")) {
            
            // Àǹ«±â·Ï ¿¬µ¿ÀÌ µÇ¾î ÀÖÁö ¾ÊÀº °æ¿ì ¿¬µ¿½Ç½Ã
            if (model.getValue("/root/send/agmtdesc/emrif") == "N") {
                
                if (fOCRSave()) {
                    
                    // ¿¬µ¿ ¼º°ø½Ã ÀÚµ¿ ´Ý±â
                    model.close();
                }
            }
        }
    }
}
 */


/**
 * fPrintAgmt ÀÔ¿ø¾àÁ¤¼­ ½Å±ÔÃâ·Â
 * 
 * @param pid       : ȯÀÚ¹øÈ£
 * @param orddd     : Áø·áÀÏÀÚ
 * @param orddeptcd : Áø·á°ú
 * @param orddrid   : Áø·áÀÇ
 * @param agmttype  : ¾àÁ¤¼­±¸ºÐ(1:ÀϹݾàÁ¤¼­, 2:±â°£¾àÁ¤¼­)
 * @param rsrvyn    : ÀÔ¿ø°áÁ¤¼­À¯¹«
 * */
function fPrintAgmt(pid, orddd, orddeptcd, orddrid, agmttype, rsrvyn, roomnm, roomcnt, insukind, todd, cretno) {
    
    model.makeValue("/root/send/printcond/pid",        pid);
    model.makeValue("/root/send/printcond/orddd",      orddd);
    model.makeValue("/root/send/printcond/orddeptcd",  orddeptcd);
    model.makeValue("/root/send/printcond/orddrid",    orddrid);
//    model.makeValue("/root/send/printcond/formcd",     formcd);
    model.makeValue("/root/send/printcond/agmttype",   agmttype);
    model.makeValue("/root/send/printcond/rsrvyn",     rsrvyn);
    model.makeValue("/root/send/printcond/ocrtype",    "O"); // ¼­½ÄÁ¾·ù(O:OCR, S:ÀüÀÚ¼­¸í)
    model.setValue("/root/send/agmtdesc/ocrtype",      "O"); // ÀÚµ¿¿¬µ¿ ½Ã µðÆúÆ® ó¸®(O:OCR, S:ÀüÀÚ¼­¸í)
    
    // ÀÔ¿ø¾àÁ¤¼­ ÀúÀå ¹× OCRÃâ·ÂÁ¤º¸ Ãëµæ
    if (submit("TXPMI03203")) {
    
        var usernm   = getUserName();
        var curdate  = getCurrentDate();
        var curtm    = getCurrentTime();
        
        model.makeValue("/root/main/printinfo/usernm",    usernm);
        model.makeValue("/root/main/printinfo/curdate",   curdate);
        model.makeValue("/root/main/printinfo/curtm",     curtm);
        
        model.makeValue("/root/main/printinfo/roomnm",    roomnm);
        model.makeValue("/root/main/printinfo/roomcnt",   roomcnt);
        model.makeValue("/root/main/printinfo/insukind",  insukind);
        model.makeValue("/root/main/printinfo/orddd",     orddd);
        model.makeValue("/root/main/printinfo/fromdd",     orddd);
        model.makeValue("/root/main/printinfo/todd",      todd);
        model.makeValue("/root/main/printinfo/rsrvyn",    rsrvyn);
        
        // ÀϹݾàÁ¤¼­
        if (agmttype == "1") {
            exeReportPreview("RPPMI03401","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
            
        // ±â°£¾àÁ¤¼­
        } else {
            exeReportPreview("RPPMI03402","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
        }
        
        // ¿ø¹«¿¡¼­ Ãâ·ÂÇÏ´Â °æ¿ì, ÀÚµ¿¿¬µ¿±â´É Ãß°¡(ÀÔ¿ø°áÁ¤½Ã¿¡´Â Á¦¿Ü)
        if (rsrvyn == "N") {
        
            // ¿¬µ¿±â´É ±¸ÇöÀ» À§ÇÑ ÆĶó¹ÌÅÍ ¼³Á¤
            model.setValue("/root/send/agmtdesc/pid",         pid);
            model.setValue("/root/send/agmtdesc/ocrtagno",    model.getValue("/root/main/printinfo/ocrtagno"));
            model.setValue("/root/send/agmtdesc/agmttype",    agmttype);
            model.setValue("/root/send/agmtdesc/indd",        orddd);
            
            model.makeValue("/root/send/agmtdesc/emrif",       "N");
            model.makeValue("/root/send/agmtdesc/cretno",      cretno);
            model.makeValue("/root/send/agmtdesc/orddeptcd",   orddeptcd);
            model.makeValue("/root/send/agmtdesc/medispclid",  orddrid);
            model.makeValue("/root/send/agmtdesc/ocrtype",     "O"); // ¿ø¹« Ãâ·Â ½Ã ÀÚµ¿¿¬µ¿ 󸮿ë ocrtype
            
            fOCRSave();
        }
    }
}

function fOCRSave() {
    
    // ¿¬µ¿´ë»ó°ËÁõ : ´ë»óÀÌ ¼±ÅõÇÁö ¾Ê¾Ò°Å³ª, ÀÌ¹Ì ¿¬µ¿ÀÌ ¿Ï·áµÈ µ¥ÀÌÅÍ´Â Á¦¿Ü½ÃÅ´
    if (isNull(model.getValue("/root/send/agmtdesc/pid"))) {
        
        messageBox("´ë»óÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "C000");
        
        return;
    } 
    
    if (model.getValue("/root/send/agmtdesc/emrif") == "Y") {
        
        messageBox("ÀÌ¹Ì ¿¬µ¿ÀÌ ¿Ï·áµÈ µ¥ÀÌÅÍÀÔ´Ï´Ù.", "C000");
        
        return;
    }
    
    // ¿¬µ¿Àº OCR ¼­½Ä¸¸ °¡´É(ÀüÀÚ¼­¸í ºÒ°¡)
    if (model.getValue("/root/send/agmtdesc/ocrtype") != "O") {
        
        messageBox("Àü»ç¼­¸í¼­½ÄÀº ¿¬µ¿ ºÒ°¡´ÉÇÕ´Ï´Ù. (ÀÚµ¿¿¬µ¿)", "C000");
        
        return ;
    }
    
    // formcd ¼³Á¤
    model.makeValue("/root/send/agmtdesc/formcd", fGetFromCd(model.getValue("/root/send/agmtdesc/agmttype")));
    
    // Àǹ«±â·Ï ¿¬µ¿À§ÇÑ µ¥ÀÌÅÍ Á¶È¸
    submit("TRPMI03205");
    
    // ÆĶó¹ÌÅÍ ¼¼ÆÃ
    var ocrtagno   = model.getValue("/root/main/ocrinfo/ocrtagno"); 
    var pid        = model.getValue("/root/main/ocrinfo/pid");
    var orddd      = model.getValue("/root/main/ocrinfo/orddd");
    var cretno     = model.getValue("/root/main/ocrinfo/cretno");
    var ordtype    = model.getValue("/root/main/ocrinfo/ordtype"); 
    var orddeptcd  = model.getValue("/root/main/ocrinfo/orddeptcd");
    var orddrid    = model.getValue("/root/main/ocrinfo/orddrid");
    var formcd     = model.getValue("/root/main/ocrinfo/formcd");
    var formfromdt = model.getValue("/root/main/ocrinfo/formfromdt");
    var pagecnt    = model.getValue("/root/main/ocrinfo/pagecnt");
    
    if(!fSaveOCRIF(ocrtagno, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, "", "", pagecnt)){
        
        messageBox("ÅëÇÕ±â·Ï ¿¬µ¿Áß ¿À·ù°¡ ¹ß»ýÇÏ¿´½À´Ï´Ù. ","C999");
        
        return false;
    } else {
    
        // ÀÔ¿ø¾àÁ¤¼­ °ü¸®È­¸é¿¡¼­ È£ÃâÇÑ °æ¿ì¸¸ ÀçÁ¶È¸(ÀÔ¿øµî·Ï IF¿¡¼­´Â È£Ãâ Á¦¿Ü)
        if (cretno == null) {
        
            messageBox("Á¤»óÀûÀ¸·Î µî·ÏµÇ¾ú½À´Ï´Ù. ","I000");
        
            fSearch();
            
            // ´ÙÀ½µ¥ÀÌÅÍ ÀÔ·ÂÀ» À§ÇÑ Æ÷Ä¿½º À̵¿
            model.setFocus("ipt_ocrtagnoif");
        }
        
        return true;
    }
    
}

function fGetFromCd(agmttype) {
    
    var formcd;
    var nodeCnt = getNodesetCount("/root/init/prncd/hardcd");
    
    // ±¸ºÐ¿¡ ¸ÂÃç ÆûÄÚµå ó¸®(1:ÀϹݾàÁ¤¼­ / 2:±â°£¾àÁ¤¼­ / 3:°³ÀÎÁ¤º¸À̿뵿ÀǼ­)
    for (i = 1; i <= nodeCnt; i++) {
        if (agmttype == model.getValue("/root/init/prncd/hardcd[" + i + "]/cdseqno")) {
            
            formcd = model.getValue("/root/init/prncd/hardcd[" + i + "]/hardcd");
            break;
        }
    }
    
    return formcd;
}

function fSearch() {
    
    // Á¶È¸
    if (submit("TRPMI03201")) {
        
        model.resetInstanceNode("/root/send/agmtdesc");
        model.refresh();
    }
}

// ivr¿ë - ÀÔ¿øÀÏÀÚ¿¡ À¯È¿ÇÑ ÀÔ¿ø¾àÁ¤¼­ À¯¹« Á¶È¸(ÀÚµ¿Ãâ·ÂÀÇ ±âÁØÀ¸·Î »ç¿ë)
function fReqGetInAgmtCount(pid, indd, agmttype) {
    
    model.setValue("/root/send/cond/pid",      pid);
    model.setValue("/root/send/cond/fromdd",   indd);
    model.setValue("/root/send/cond/agmttype", agmttype);
    
    // Á¶È¸
    if (submit("TRPMI03204")) {
    
        if (parseInt(model.getValue("/root/main/agmtcount/cnt")) > 0) {
            
            return true;
        } else {
            return false;
        }
    }
}

function fRePrintOcr() {
    
    if (isNull(model.getValue("/root/send/agmtdesc/ocrtagno"))) {
        
        messageBox("¾àÁ¤¼­ Á¤º¸¸¦ ¼±ÅÃÇØÁֽʽÿä.", "C000");
        return;
    }
    
    if (model.getValue("/root/send/agmtdesc/scanyn") != "Y") {
        
        model.makeValue("/root/main/printinfo/instcd",      model.getValue("/root/send/agmtdesc/instcd"));
        model.makeValue("/root/main/printinfo/ocrtagno",    model.getValue("/root/send/agmtdesc/ocrtagno"));
        model.makeValue("/root/main/printinfo/pid",         model.getValue("/root/send/agmtdesc/pid"));
        model.makeValue("/root/main/printinfo/hngnm",       model.getValue("/root/send/agmtdesc/hngnm"));
        model.makeValue("/root/main/printinfo/rrgstno1",    model.getValue("/root/send/agmtdesc/rrgstno").substr(0,6));
        model.makeValue("/root/main/printinfo/rrgstno2",    model.getValue("/root/send/agmtdesc/rrgstno").substr(6,13));
        model.makeValue("/root/main/printinfo/address",     model.getValue("/root/send/agmtdesc/address"));
        model.makeValue("/root/main/printinfo/hometel",     model.getValue("/root/send/agmtdesc/hometel"));
        model.makeValue("/root/main/printinfo/mpphontel",   model.getValue("/root/send/agmtdesc/mpphontel"));
        model.makeValue("/root/main/printinfo/hospnm",      model.getValue("/root/send/agmtdesc/hospnm"));
        model.makeValue("/root/main/printinfo/ordcentnm",   model.getValue("/root/send/agmtdesc/ordcentnm"));
        model.makeValue("/root/main/printinfo/orddeptnm",   model.getValue("/root/send/agmtdesc/orddeptnm"));
        
        model.makeValue("/root/main/printinfo/usernm",      getUserName());
        model.makeValue("/root/main/printinfo/curdate",     getCurrentDate());
        model.makeValue("/root/main/printinfo/curtm",       getCurrentTime());
        
        model.makeValue("/root/main/printinfo/roomnm",      model.getValue("/root/send/agmtdesc/roomnm"));
        model.makeValue("/root/main/printinfo/roomcnt",     "");
        model.makeValue("/root/main/printinfo/insukind",    model.getValue("/root/send/agmtdesc/insukind"));
        model.makeValue("/root/main/printinfo/orddd",       model.getValue("/root/send/agmtdesc/indd"));
        model.makeValue("/root/main/printinfo/fromdd",      model.getValue("/root/send/agmtdesc/fromdd"));
        model.makeValue("/root/main/printinfo/todd",        model.getValue("/root/send/agmtdesc/todd"));
        
        // ÀϹݾàÁ¤¼­
        if (model.getValue("/root/send/agmtdesc/agmttype") == "1") {
            exeReportPreview("RPPMI03401","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
            
        // ±â°£¾àÁ¤¼­
        } else {
            exeReportPreview("RPPMI03402","XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true");
        }
        
    } else {
        
        messageBox("½ºÄµÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù. ÀçÃâ·ÂÀº OCR¹Ý³³È­¸é¿¡¼­ ÇϽñ⠹ٶø´Ï´Ù.", "C000");
        
        return;
    
        /*
        // Ȥ½Ã Àǹ«±â·Ï ½ºÄµ ÀÌÈÄÀÇ ¾àÁ¤¼­¸¦ Ãâ·ÂÇØ¾ß ÇÒ °æ¿ì ¾Æ·¡ÀÇ Ã³¸® Å¿ì¸é µÊ
        model.resetInstanceNode("/root/send/iemr");
        model.makeValue("/root/send/iemr/ocrcode", model.getValue("/root/send/agmtdesc/ocrtagno"));
        
        if((window.children.item("imgemrviewer") == null)
                && (model.getValue("/root/send/iemr/ocrcode") != "")) {
            window.load("../../../emr/imgemrweb/xrw/SSMRC03100.xrw", "modeless", "imgemrviewer", "", "/root/send/iemr", "/root/hidden/temp");
            window.children.item("imgemrviewer").document.title = "Image EMR Viewer";
        }
        */
    }
}

// ÀÔ¿ø¾àÁ¤¼­ ÀçÃâ·Â - ÀÔ¿øµî·ÏÈ­¸é¿¡¼­ ÀçÃâ·ÂÇÒ °æ¿ì »ç¿ë
function rePrintAgmtPid(pid, indd) {
    
    // ÃʱâÈ­
    fInit();
    
    model.setValue("/root/send/cond/pid",       pid);
    model.setValue("/root/send/cond/indd",      indd);
    model.setValue("/root/send/cond/agmttype",  "1"); // ÀϹݾàÁ¤¼­
    
    // ¾àÁ¤¼­ Á¶È¸
    submit("TRPMI03201");
    
    // ¾àÁ¤¼­ µ¥ÀÌÅÍ ¼³Á¤
    model.copyNode("/root/send/agmtdesc", "/root/main/agmtlist[1]");
    
    // ¾àÁ¤¼­°¡ ¾ø´Â °æ¿ì °ü¸®È­¸éÀ¸·Î À¯µµ
    if (isNull(model.getValue("/root/send/agmtdesc/ocrtagno"))) {
        
        messageBox("ÀÔ¿ø¾àÁ¤¼­°¡ ÀçÃâ·Â¿¡ ¹®Á¦°¡ ¹ß»ýÇß½À´Ï´Ù. ÀÔ¿ø¾àÁ¤¼­°ü¸®È­¸é¿¡¼­ È®ÀÎÇϼ¼¿ä.", "C000");
        return;
    } 
    
    // ÀϹݾàÁ¤¼­ Ãâ·Â¿ë
    model.setValue("/root/send/agmtdesc/agmttype", "1");
    
    // ¾àÁ¤¼­ ÀçÃâ·Â
    fRePrintOcr();
}