/*function list
fMouseRghtBtnPopupPrcp: ¿À¸¥ÂÊ ¸¶¿ì½º Æ˾÷
fMouseRghtBtnPopupSet: ¿À¸¥ÂÊ ¸¶¿ì½º Æ˾÷
fInitialize: ¾à¼Óó¹æÈ­¸é ÃʱâÈ­
fAddPrmsDiagSet : ¾à¼Óó¹æ SET Æú´õ Ãß°¡
fUpdtPrmsDiagSet : ¾à¼Óó¹æ SET Æú´õ ¼öÁ¤
fDelPrmsDiagSet : ¾à¼Óó¹æ SET Æú´õ »èÁ¦
fShowWndIptBox : ¾à¼Óó¹æ Æú´õ¸íÀ» ÀÔ·ÂÇÒ InputBox¸¦ º¸¿©ÁÜ.
fSetPrmsDiagInfo : ¾à¼ÓÁø´Ü SETÁ¤º¸ SETTING
*/

var sPRMSPRCPSETLIST        = "/root/main/prmsprcpsetinfo/prmsprcpsetlist";
var sPRMSPRCPSETLIST_HIDDEN = "/root/hidden/prmsprcpsetinfo/prmsprcpsetlist";
var gEXPANDDEPTH            = 1;

/**
 * @desc     : ¾à¼Óó¹æ ó¹æGrid ¿À¸¥ÂÊ ¸¶¿ì½º Æ˾÷ ó¸®
 * @param    :
 * @event    : onmousedown
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 3. 25 
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopupPrcp(){
    if (event.button == 3 && grd_promprcplist.mouseRow >= grd_promprcplist.fixedRows){
        app.showPopupMenu(true);
        if(grd_promprcplist.isCell(event.target)){
            window.setPopupMenu(true, "/root/init/msrght/mouserghtprcp", "label", "func", false);
        }else{
            window.setPopupMenu(false); 
        }
    }
}

/**
 * @desc     : ¾à¼Óó¹æ Set Grid ¿À¸¥ÂÊ ¸¶¿ì½º Æ˾÷ ó¸®
 * @param    :
 * @event    : onmousedown
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 3. 25
 *                     ¿ÀÁöÈÆ 2007. 4. 24 - ¸¶¿ì½ºÆ÷Ä¿½º°¡ Æ®¸®ºäÀÇ cellÀ» ¼±ÅÃÇÑ °æ¿ì¿¡¸¸ Æ˾÷ÀÌ ¶ß°Ô ó¸®
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopupSet(){
    if(event.button == 3){
        var rowpos = trv_promprcpset.mouseRow;
        trv_promprcpset.select(rowpos);
    }
    
    var srchcond1 = model.getValue("/root/init/srchcond1"); //°³ÀÎ, °ú, Ÿ°ú ±¸ºÐ
    var srchcond3 = model.getValue("/root/init/srchcond3"); //¾à¼Ó, prlt ±¸ºÐ        
    if(srchcond3 == "P" && srchcond1 == "T"){
        setPopupMenu("trv_promprcpset", false, "/root/init/msrght/mouserghtset3", "label", "func");

    }else{
        setPopupMenu("trv_promprcpset", false, "/root/init/msrght/mouserghtset", "label", "func");
        
    }        
}

/**
 * @desc     : ¾à¼Óó¹æ SET Æú´õ Ãß°¡
 * @
 * @param    : onmousedown
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fAddPrmsDiagSet(){     
    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
    if(item == null){
        return;
    }
    var rowPos = item.index + 1;
    fSetPrmsDiagInfo(rowPos, "i");     
    model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/status", "i");                                                                                 
    model.refresh(); 
    
    var autoflag = model.getValue("/root/init/autoflag");
    if(autoflag != "Y"){
    group1.attribute("top") = 550;
    group1.attribute("height") = 55;
    model.setFocus("ipt_setnm");
    model.refresh();
    }else{    
       // fShowWndIptBox();    
        rectangle1.attribute("visibility") = "visible";
        caption1.attribute("visibility")   = "visible";
        input1.attribute("visibility")  = "visible";
        button2.attribute("visibility") = "visible";
        button4.attribute("visibility") = "visible";
        model.setFocus("input1");  
    }
}

/**
 * @desc     : ¾à¼Óó¹æ SET Æú´õ ¼öÁ¤
 * @
 * @param    :
 * @return :
 * @---------------------------------------------------
 */ 
function fUpdtPrmsDiagSet(){     
     var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
     if(item == null){return;} 
     var rowPos = item.index + 1;     
     if(fSetPrmsDiagInfo(rowPos, "u")!=-1){
         fShowWndIptBox();
     }
}

/**
 * @desc     : ¾à¼Óó¹æ SET Æú´õ »èÁ¦
 * @
 * @param    :
 * @return :
 * @---------------------------------------------------
 */ 
function fDelPrmsDiagSet(){         
     var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
     if(item == null){return;}
     var rowPos = item.index + 1;                             
     if(fSetPrmsDiagInfo(rowPos, "d")!= -1){            
         fSavePrmsDiagSet();
     }
}

/**
 * @desc     : ¾à¼Óó¹æSET Æú´õ¸íÀ» ÀÔ·ÂÇÒ InputBox¸¦ º¸¿©ÁÜ.
 * @
 * @param    : onmousedown
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fShowWndIptBox(){
    if(event.clientY >= 750){
        var ypos = 750;
    }else{
        var ypos = event.clientY
    }
    if( opener.model.getValue("/root/cp") == "S" ){
        if(event.clientY >= 550){
            var ypos = 550;
        }
    }
    group1.attribute("top") = ypos;
    group1.attribute("height") = 55;
    model.setFocus("ipt_setnm");
    model.refresh();
}

/**
 * @desc     : ¾à¼Óó¹æ SETÁ¤º¸ SETTING
 * @
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fSetPrmsDiagInfo(rowpos, status){     
     var setno = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setno");
     if(status == "u" && setno == 1){
          messageBox("¼±ÅÃÇÑ Æú´õ´Â ¼öÁ¤", "E001");
          return -1;            
     }else if(status == "d" && setno == 1){
          messageBox("¼±ÅÃÇÑ Æú´õ´Â »èÁ¦", "E001");
          return -1;
     }
     
     var setnm = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setnm");
     if(status == "d"){
         var rtnval = messageBox("[" + setnm + "]ÇÏÀ§ÀÇ ¸ðµç Æú´õ°¡ Áö¿öÁý´Ï´Ù. " + "[" + setnm + "]Æú´õ¸¦", "Q001");
         if(rtnval == 7){
             return -1;
         }
     }
     
     var levl      = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/levl");
     var supsetno  = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/supsetno");
     var setkindcd = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setkindcd");
     var setclscd  = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setclscd");
     var settrgtcd = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/settrgtcd");
     var settypecd = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/settypecd");     
     var sortno    = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/sortno");
     var prtlno    = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/prtlno");     
     var ioflag    = model.getValue("/root/init/srchcond4");

     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/levl"     , levl);            
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/setno"    , setno);            
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/setkindcd", setkindcd);
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/setclscd" , setclscd); 
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/settrgtcd", settrgtcd);
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/settypecd", settypecd);     
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/status"   , status);     
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/setnm"    , setnm);
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/prtlno"   , prtlno);
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/ioflag"   , ioflag);     
  
     if(status == "i"){
            model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/supsetno" , setno);             
     }else{
            model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/supsetno" , supsetno);
     }
     /*
     if(sortno == "")
            sortno = 1000;
     */     
            
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/sortno"     , sortno);
     model.refresh();
         
}

/**
 * @desc     : ¾à¼Óó¹æ SETÀúÀå
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fSavePrmsDiagSet(){
     var setnm = model.getValue("/root/main/iptbox/setnm");
     model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/setnm", setnm);
     model.copyNode("/root/send/savedata", sPRMSPRCPSETLIST_HIDDEN);
     if(submit("TXMMB00601",false)){
          model.setValue(trv_promprcpset.attribute("ref"), "");
          trv_promprcpset.rebuild();
     }
}

/**
 * @desc     : ¾à¼Óó¹æ SETÀúÀå
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fOndrop(){
     var rowpos = trv_promprcpset.mouseRow + 1;
     var levl    = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/levl");
     var setnm = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setnm");
     var x = event.clientX;                 
     var maxposX = 24 + 16 * (levl - 1) + ( 13 * setnm.length);
     var minposX = 24 + 16 * (levl - 1);
     
     if(maxposX > x){
         fPrmsDiagSetDrop();
     }else{
         return;
     }     
}

/**
 * @desc     : ¾à¼ÓÁø´ÜSET Drag
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fPrmsDiagSetDrag(){     
    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
    if(item == null){return;}
    var rowpos = item.index + 1;
    fSetPrmsDiagInfo(rowpos, "u");
    var setnm = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setnm");
    model.setValue("/root/main/iptbox/setnm", setnm);
    model.refresh();    
    //fSavePrmsDiagSet();    
}

/**
 * @desc     : ¾à¼ÓÁø´ÜSET Drop
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */ 
function fPrmsDiagSetDrop(){     
    var rowpos = trv_promprcpset.mouseRow + 1;
    var levl = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/levl");        
    var setno = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setno");
    var supsetno = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/supsetno");
    var cmplevl    = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/levl");
    var cmpsetno = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/setno");
    var cmpsupsetno = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/supsetno");    
    if(setno == cmpsetno){
        messageBox("µ¿ÀÏÇÑ À§Ä¡·Î À̵¿", "E001");
        trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("background-color") = "#ffffff";
        trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("text-decoration") = "";
        return;
    }else if(setno == cmpsupsetno){
        messageBox("ÁöÁ¤µÈ À§Ä¡·Î À̵¿", "E001");
        trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("background-color") = "#ffffff";
        trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("text-decoration") = "";
        return;
    }
    
    //À̵¿ÇÏ´Â SETÆú´õÀÇ depth°¡ µµÂøÇÏ´Â °÷º¸´Ù ³·Àº ·¹º§ÀÏ °æ¿ì, 
    //ÀÚ½ÅÀÇ child node ¾Æ·¡·Î À̵¿ÇÏ´Â °ÍÀ» ¹æÁöÇÔ.
    if(cmplevl < levl){
        var rootlevl;
        var rootsetno;
        
        while(cmplevl != rootlevl){
         rootlevl = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/levl");
         rootsetno = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setno");
         rowpos--;
        }
        if(rootsetno == cmpsetno){
         messageBox("ÁöÁ¤µÈ À§Ä¡·Î À̵¿", "E001");
         trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("background-color") = "#ffffff";
         trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("text-decoration") = "";
         return;
        }
    }    
    model.setValue(sPRMSPRCPSETLIST_HIDDEN + "/supsetno" , setno);
    model.refresh();    
    fSavePrmsDiagSet();    
}

/**
 * @desc     : ¾à¼ÓÁø´ÜSET MouseOver
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */
function fMouseOver(){
     var rowpos = trv_promprcpset.mouseRow + 1;
     var levl   = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/levl");
     var setnm  = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setnm");
     
     var x = event.clientX;                 
     var maxposX = 24 + 16 * (levl - 1) + ( 10 * setnm.length);
     var minposX = 24 + 16 * (levl - 1);
     
     if(maxposX > x){
         for ( var i = 0; i < trv_promprcpset.length; i++ ) {
             trv_promprcpset.item(i).attribute("background-color") = "#ffffff";
             trv_promprcpset.item(i).attribute("text-decoration") = "";
         }
         trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("background-color") = "#ece1ec";
         trv_promprcpset.item(trv_promprcpset.mouseRow).attribute("text-decoration") = "underline";
         
     }else{
         return;
     }     
}

/**
 * @desc     : TreeView ¼±ÅÃµÈ itemÀÇ background color¸¦ clearÇÔ
 * @
 * @param    :
 * @return : void
 * @authur : ¿ÀÁöÈÆ 2007. 4. 24
 * @---------------------------------------------------
 */
function fClrTreeViweSelect(){
     for(var i = 0; i < trv_promprcpset.length; i++){
            trv_promprcpset.item(i).attribute("background-color") = "#ffffff";
            trv_promprcpset.item(i).attribute("text-decoration") = "";
     }
}

function fReqPrmsDetlSet() {
    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
    if(item == null){
       return;
    }
    var rowpos = item.index + 1;
    fSetPrmsDiagInfo(rowpos);
    var setno     = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/setno");
    var settypecd = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/settypecd");
    if(setno == 1){
        return;
    }
    model.setValue ( "/root/send/cond1", setno);
    model.setValue ( "/root/send/cond2", settypecd);
    var insukind = opener.model.getValue ( "/root/paminfo/list/insukind");
    if (isNull(insukind)){
       insukind = model.getValue ( "/root/paminfo/list/insukind");
    }
    
    if (!isNull(insukind)){
        model.makeValue( "/root/send/cond3", insukind );                //¿Ü·¡follow up
    }
    model.makeValue("/root/send/prcpdd", opener.model.getValue("/root/init/prcpdd"));
    if(submit( "TRMMB00202" )){
        fAbsnSrch ( "/root/main/prcp/prcplist", grd_promprcplist );
    }
}
    
function fPrmsSave() {    
    var setno     = model.getValue("/root/hidden/prmsprcpsetinfo/prmsprcpsetlist/setno");
    var settypecd = model.getValue("/root/hidden/prmsprcpsetinfo/prmsprcpsetlist/settypecd");
    var setnm     = model.getValue("/root/hidden/prmsprcpsetinfo/prmsprcpsetlist/setnm");         
    var srchcond1 = model.getValue("/root/init/srchcond1");
    if ( opener.model.getValue("/root/paminfo/list/insukind") != "11" && opener.model.getValue("/root/paminfo/list/insukind") != "21" && opener.model.getValue("/root/paminfo/list/insukind") != "22" ) {
          //messageBox ( "ó¹æÈ­¸é¿¡¼­ ¾à¼Óó¹æ µî·Ï½Ã´Â º¸ÇèÀ¯Çü°ú ±Þºñ±âÁØÀÌ °ü·ÃÀÖÀ¸¹Ç·Î [°Ç°­º¸Çè,ÀÇ·á±Þ¿©1Á¾,ÀÇ·á±Þ¿©2Á¾] ȯÀÚ¿¡¼­¸¸ ¾à¼Óó¹æ µî·ÏÀÌ", "I006" );
          //return;
    }
    if ( srchcond1 == "T" ) {             
        if (model.getValue ( "/root/main/cond/deptcd" ) != getUserInfo("dutplcecd")) {
            messageBox ( "Ÿ°ú ¾à¼Óó¹æÆú´õ¿¡´Â ÀúÀå", "E001" );
            return;
        }
    }
    
    //ÀÚµ¿Æú´õ »ý¼º ÈÄ ¾à¼Óó¹æ ÀúÀå ±â´É
    //2008.07.25 ¿ÀÁöÈÆ
    if(model.getValue("/root/init/autoflag") != "Y"){
        if(setno == 1 || isNull(setnm)){ //ÃÖ»óÀ§ Æú´õ ¶Ç´Â ¼±ÅÃµÈ ¾à¼Óó¹æÆú´õ°¡ ¾ø´Â °æ¿ì´Â ÀÚµ¿À¸·Î Æú´õ¸¦ ¶ç¿ò
            trv_promprcpset.select(0);
            model.setValue("/root/init/autoflag", "Y");
            fAddPrmsDiagSet();
            return;
            
        }else{
            if ( messageBox( setnm + " ¾à¼Óó¹æÆú´õ¿¡ ¼±ÅÃÇϽŠó¹æÀ»", "Q002") == "7" ) {
                return;
            }
            model.setValue("/root/init/autoflag", "N"); //ó¹æÀúÀå ÈÄ autoflag NÀ¸·Î ¼³Á¤
        }
    }
    
    /*
    if(setno == 1){
        messageBox ( "ÃÖ»óÀ§ ¾à¼Óó¹æÆú´õ¿¡´Â ÀúÀå", "E001" );
        return;
    }
    if ( isNull(setnm)) {
        //messageBox ( "¼±ÅÃµÈ ¾à¼Óó¹æÆú´õ°¡", "I004" );
        trv_promprcpset.select(0);
        model.setValue("/root/init/autoflag", "Y");
        fAddPrmsDiagSet();        
        return;
        
    } else {
        if ( messageBox( setnm + " ¾à¼Óó¹æÆú´õ¿¡ ¼±ÅÃÇϽŠó¹æÀ»", "Q002") == "7" ) {
            return;
        }
    }
    */

    var curRow = 0;
    var grupsnglcnt = 0;
    var selectedRows = opener.grd_prcplist.selectedRows;
    var pDestNode = model.instances(0).selectSingleNode("/root/save/prcp");
    for ( var i=0; i < selectedRows; i++ ) {
        var prcpkindcd = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/prcpkindcd");
        var prcpnm = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/prcpnm");
        
		var inclprcpno = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/inclprcpno");
        var status = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/status");
        if ( !isNull(inclprcpno) && inclprcpno != "0" ) {
            var grupsnglflag = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/grupsnglflag");
            if ( grupsnglflag != "M" ) {
                grupsnglcnt++;
                continue;
            }
        }

		var hsctlnkno = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/hsctlnkno");
        if ( !isNull(hsctlnkno) && hsctlnkno != "0" ) {
            var prcpsetcd = opener.model.getValue ( "/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]/prcpsetcd");
            if ( prcpsetcd != "-" ) {
                grupsnglcnt++;
                continue;
            }
        }
        if ( status == "S" ) {
            continue;
        }
        
        if ( fPrmsSaveCheck ( "prms", prcpkindcd, prcpnm )) {
            curRow++;
            var pSrchNode = opener.model.instances(0).selectSingleNode("/root/main/prcp/prcplist[" + opener.grd_prcplist.selectedrow(i) + "]");
            pDestNode.appendChild(pSrchNode.cloneNode(true));                                 
            model.setValue("/root/save/prcp/prcplist[" + curRow + "]/prcppkspec", setno + "|" + settypecd);
            //model.setValue("/root/main/prcp/prcplist[" + curRow + "]/pampkspec", "Y"); //°Ë»öÀ» ´Ù½Ã ÇÒ ÇÊ¿ä°¡ ¾ø±â¿¡ ±¸ºÐÀÚ¸¦ ³Ö´Â´Ù.
            model.setValue("/root/save/prcp/prcplist[" + curRow + "]/status", "I");
            
			var drprcpetc2 = model.getValue("/root/save/prcp/prcplist[" + curRow + "]/drprcpetc2"); // Ư¼öÁÖ»ç½Ç Á¤º¸°¡ ¾øÀ¸¸é ÀúÀå ½Ã ¿À·ù ¼öÁ¤
	        if ( isNull(drprcpetc2) ) {
	        	model.setValue("/root/save/prcp/prcplist[" + curRow + "]/drprcpetc2", "-");
	        }            
        }
    }

    if ( grupsnglcnt > 0 ) {
        messageBox ( "¾à¼Óó¹æ¿¡´Â ´ëÇ¥Äڵ常 ÀúÀåµË´Ï´Ù.", "I" );
    }
    
    var savePrcpInfo = model.instances(0).selectNodes( "/root/save/prcp/prcplist" );    
    if ( savePrcpInfo.length > 0 ) {
        //model.setValue ( "/root/send/cond1", getNodeListCSV(savePrcpInfo)); 
        copyNodeListType ( "/root/send/cond1", "/root/save/prcp/prcplist[status!='S']", "replace", model, model);  //sort±â´É Ãß°¡ ÈÄ ¾à¼Ó¼Âcopy ½Ã Ä÷³¼ø¼­¶§¹® ¿À·ù ¼öÁ¤ (2009.10.28 by JJE)
        model.setValue ( "/root/send/cond2", "1" ); 
        model.removeNodeset ( "/root/save/prcp/prcplist" );
        if ( !submit ( "TRMMB00203", false )){
            model.resetInstanceNode ( "/root/send" );
            model.refresh();
            return;
        }

        var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" );

        var xpt = window.screenleft + 100;
        var ypt = window.screenTop + 50;                    
        var coord = getRelativeCoordinate ( xpt, ypt );
        var mon = coord[0];
        xpt = coord[1];
        ypt = coord[2]; 
        
        if ( prcpErrList.length > 0 ) {
            if ( !isNull(model.getValue ( "/root/result/prcperrlist[1]/prcpcd"))){
                open ( "SPMMO00600", mon,    xpt, ypt, "prcpdetl", "/root/result", "/root/result" ); //¿À·ùÆ˾÷
                model.removeNodeset("/root/result/prcperrlist");
            } 
                return; 
        }        

        submit("TXMMB00201"); 
        model.removeNodeset("/root/send/cond1/prcplist");  //reset (2009.10.28 by JJE)
        fAbsnSrch ( "/root/main/prcp/prcplist", grd_promprcplist ); 
    }
}
     
function fDelPrmsPrcp() {
    //Ÿ°ú ¾à¼Óó¹æÀ» »èÁ¦ÇÒ ¼ö ¾øµµ·Ï ó¸®ÇÔ
    var deptflag = model.getValue("/root/init/srchcond1"); //°³ÀÎ, °ú, Ÿ°ú
    var prmsflag = model.getValue("/root/init/srchcond3"); //¾à¼Óó¹æ, ÇÁ·ÎÅäÄÝ
    if(deptflag == "T"){ //Ÿ°ú
        var orddeptcd = model.getValue("/root/main/cond/deptcd");
        var orddeptnm = cmb_deptset.label;
        if(orddeptcd != getUserInfo("dutplcecd")){
            messageBox("[" + orddeptnm + "] ¾à¼Óó¹æÀ» »èÁ¦", "E001");
            return;
        }
    }
    
    if ( grd_promprcplist.row > 0 ) {
        model.setValue ( "/root/main/prcp/prcplist[" + grd_promprcplist.row + "]/status", "I" );
        model.refresh();
    }

    if ( messageBox( "¼±ÅÃµÈ Ã³¹æÀ»", "Q001") == "7" ) {
        return;
    }     
         
    for ( var i=1; i < grd_promprcplist.rows; i++ ) {     
        if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/status" ) == "I" ) {
            model.setValue ( "/root/main/prcp/prcplist[" + i + "]/status", "D" );
        }
    }

    var savePrcpInfo = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );    
    //model.setValue ( "/root/send/cond1", getNodeListCSV(savePrcpInfo)); 
    copyNodeListType ( "/root/send/cond1", "/root/main/prcp/prcplist[status!='S']", "replace", model, model);  //ó¹æ±×¸®µå sort±â´É Ãß°¡ ÈÄ ¾à¼Ó¼Âcopy ½Ã Ä÷³¼ø¼­¶§¹® ¿À·ù ¼öÁ¤ (2009.10.28 by JJE)
    submit("TXMMB00201");
    model.removeNodeset("/root/send/cond1/prcplist");  //reset (2009.10.28 by JJE)
}     

/**
 * @desc   : ´ëü¾à ÀÏ°ýº¯°æ
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 19
 * @
 */
function fAltDrugAll() {
    fAltDrug( grd_promprcplist.row, "3" );
    trv_promprcpset.dispatch("xforms-select");
}

/**
 * @desc   : ´ëü¾à Æú´õ³» º¯°æ
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 19
 * @
 */
function fAltDrugFolder () {
    fAltDrug( grd_promprcplist.row, "2" );
    trv_promprcpset.dispatch("xforms-select");
}

/**
 * @desc     : ´ëü¾àÀÌ ÀÖÀ»°æ¿ì »öó¸® ¹× ÇÁ·ÎÅäÄÝ °ª ¼¼ÆÃ
 * @param    : strSrc - source ³ëµå
                     : grdObj - DataGrid
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 7. 03
 */
function fAbsnSrch ( strSrc, grdObj ) {
    var srcNodeList = model.instances(0).selectNodes( strSrc );
    var tempcol16   = "";
    var prcpuseflag = "";
    var prcpclscd   = "";
    
    var settypecd = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/settypecd" );
    var prtlno    = model.getValue(sPRMSPRCPSETLIST_HIDDEN + "/prtlno");

    for(var i = 1; i <= srcNodeList.length; i++) {
        if (settypecd == "C" ) { //ÇÁ·ÎÅäÄݾà¼Óó¹æÀ̸é ÇÁ·ÎÅäÄÝ °ªÀ» ¼¼ÆÃÇÑ´Ù.
            model.setValue ( strSrc + "[" + i + "]/prtlno", prtlno );
        }
        
        model.setValue ( strSrc + "[" + i + "]/status", "I" );
        tempcol16   = model.getValue ( strSrc + "[" + i + "]/tempcol16");
        prcpclscd   = model.getValue ( strSrc + "[" + i + "]/prcpclscd");
        prcpuseflag = getArrayData (tempcol16, 0, 0, "^", "|" );
        grdObj.rowstyle(i, "data", "color") = "#000000"; //±âÁ¸¿¡ »öÄ¥µÇ¾î ÀÖ´Â °ÍÀ» clear ÇØ ÁØ´Ù.
        
        if (prcpuseflag == "D") { // ¼ö°¡Á¤º¸¿¡ ¾ø´Â°æ¿ì
            grdObj.rowstyle(i, "data", "color") = "#ff4848";
        } else if ( prcpclscd == "A2" || prcpclscd == "A4" || prcpclscd == "A6" ) {
            var drugmastspec = model.getValue ( strSrc + "[" + i + "]/drugmastspec") + "^";
            if ( getArrayData (drugmastspec, 0, 10, "^", "|" ) == "Y" ) { // Ç°Àý¿©ºÎ°¡ Y ÀÌ¸é »öÇ¥½Ã¸¦ ÇØÁØ´Ù.
                grdObj.rowstyle(i, "data", "color") = "#c0c0c0";
            }
        }
    }     
}

/**
 * @desc     : Æú´õ º¹»ç
 * @
 * @param    :
 * @return :
 * @authur : ¿ÀÁöÈÆ 2007. 10. 13
 * @---------------------------------------------------
 */
function    fFolderCopy(){
    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
    if(item == null){return;}
    var currow    = item.index + 1;
    var levl      = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/levl");
    var setno     = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setno");
    var settypecd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/settypecd");
    var setkindcd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setkindcd");
    var settrgtcd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/settrgtcd");
    var setclscd  = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setclscd"); 
    var setnm     = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setnm");
    
    if(setno == 1){
        messageBox("Áñ°Üã±â Æú´õ´Â º¹»ç", "E001");
        return;
    }
    
    model.setValue("/root/temp/copy/setno"        , setno);
    model.setValue("/root/temp/copy/settypecd", settypecd);
    model.setValue("/root/temp/copy/setkindcd", setkindcd);
    model.setValue("/root/temp/copy/setclscd" , setclscd);
    model.setValue("/root/temp/copy/settrgtcd", settrgtcd);
    model.setValue("/root/temp/copy/setnm"        , setnm);
}

/**
 * @desc     : Æú´õ ºÙ¿©³Ö±â
 * @
 * @param    :
 * @return :
 * @authur : ¿ÀÁöÈÆ 2007. 10. 13
 * @---------------------------------------------------
 */
function fFolderPaste(){    
    var setno = model.getValue("/root/temp/copy/setno");
    if(setno == ""){ //º¹»çÇÒ ³»¿ëÀÌ ¾ø´Â °æ¿ì
        return;
    }

    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);
    if(item == null){return;}
    var currow = item.index + 1;

    var supsetno  = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setno");    
    var setkindcd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setkindcd");    
    var settypecd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/settypecd");
    var settrgtcd = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/settrgtcd");
    var setclscd  = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/setclscd");
    var ioflag    = model.getValue(sPRMSPRCPSETLIST + "[" + currow + "]/ioflag");
    
    model.setValue("/root/temp/copy/supsetno"         , supsetno);
    model.setValue("/root/temp/copy/ioflag"     , ioflag);
    model.setValue("/root/temp/copy/trgtsettypecd", settypecd);
    model.setValue("/root/temp/copy/trgtsetkindcd", setkindcd);
    model.setValue("/root/temp/copy/trgtsettrgtcd", settrgtcd);
    model.setValue("/root/temp/copy/trgtsetclscd" , setclscd);
    
    //trgtioflag´Â ÀúÀå ÈÄ, Àç Á¶È¸½Ã È­¸éÀÇ ¿Ü·¡/ÀÔ¿ø±¸ºÐ¿¡ µû¶ó Á¶È¸Çϱâ À§ÇØ ¼³Á¤
    model.setValue("/root/temp/copy/trgtioflag"     , model.getValue("/root/init/srchcond4"));
    
    model.copyNode("/root/send/savedata", "/root/temp/copy");
    submit("TXMMB00607");
}

/**
 * @desc     : ¾à¼ÓSETÆú´õ ¼ø¼­ º¯°æ
 * @
 * @param    :
 * @return :
 * @authur : ¿ÀÁöÈÆ 2007. 10. 21
 * @---------------------------------------------------
 */
function fOpenPrmsSetFolderOrderChng(){
    var item = trv_promprcpset.item(trv_promprcpset.selectedIndex);     
    if(item == null){return;}
    var rowpos = item.index + 1;
    
    var setkindcd = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setkindcd");
    var setclscd  = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/setclscd");    
    var settypecd = model.getValue(sPRMSPRCPSETLIST + "[" + rowpos + "]/settypecd");
    var procflag  = "";
    var deptcd = getUserInfo("dutplcecd");
    var deptnm = getUserInfo("dutplcenm");    
    var ioflag = model.getValue("/root/init/srchcond4");
    var indx   = trv_promprcpset.selectedIndex;

    var prmsflag    = model.getValue("/root/init/srchcond1");
    if(prmsflag != "P"){
        procflag = "D";
    }
    var param = setkindcd + "¢Ë" +
                setclscd  + "¢Ë" +
                settypecd + "¢Ë" +
                procflag  + "¢Ë" +
                deptcd    + "¢Ë" +
                deptnm    + "¢Ë" +
                ioflag    + "¢Ë" +
                indx;

    setParameter("SPMMB00800_param", param);
    modal("SPMMB00800");
    
    fReqPrmsPrcpSet(settypecd, setkindcd, setclscd, procflag, deptcd, deptnm, ioflag)
    var rtnindx = getParameter("SPMMB00800_rtnparam");
    
    if(rtnindx != ""){
        trv_promprcpset.select(rtnindx);
        trv_promprcpset.expand(rtnindx, true);
    }
    trv_promprcpset.rebuild();
}

/**
 * @desc     : ¾à¼Óó¹æSET Á¶È¸
 * @
 * @param    :
 * @return :
 * @authur : ¿ÀÁöÈÆ 2007. 10. 21
 * @---------------------------------------------------
 */
function fReqPrmsPrcpSet(settypecd, setkindcd, setclscd, procflag, deptcd, deptnm, ioflag){
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/settypecd", settypecd);
    model.makeValue("/root/send/reqdata/setkindcd", setkindcd);
    model.makeValue("/root/send/reqdata/setclscd" , setclscd);
    model.makeValue("/root/send/reqdata/procflag" , procflag);
    model.makeValue("/root/send/reqdata/deptcd"   , deptcd);
    model.makeValue("/root/send/reqdata/deptnm"   , deptnm);
    model.makeValue("/root/send/reqdata/ioflag"   , ioflag);
    submit("TRMMB00601");
}

/**
 * @desc     : ÀÎÀÚ·Î ³Ñ¾î¿Â °ªÀ» label ·Î °°Àº ¾ÆÀÌÅÛÀÇ À妽º¸¦ ¹Ýȯ
 * @
 * @param    :
 * @return :
 * @authur : ¿ÀÁöÈÆ 2008. 06. 12
 * @---------------------------------------------------
 */
function labelToIndex(label, tree){
	for(var i=0; i<tree.length; i++){
		if(tree.item(i).label == label)
			return i;
	}
	return -1;
}