//ÄÞº¸¿¡ ÀλçÆò°¡ ºÐ·ù ÄÚµå  Setting
function rpvfComboValuClsList(pbasedd, pcontrol_name) {
    var control_id = pcontrol_name.attribute("id");
    
    var valucls_node = "/root/send/valucls";
    var valucls_rsltnode = "/root/init/valuclsinit";
    var valucls_itemset = "/root/init/" + control_id;
    
    model.removeNodeset(valucls_node);
    model.removeNodeset(valucls_itemset);
    
    model.makeNode(valucls_node);
    model.makeNode(valucls_node + "/basedd");
    
    model.makeNode(valucls_rsltnode);
    model.makeNode(valucls_itemset);
    
    pcontrol_name.choices.itemset.attribute("nodeset") = valucls_itemset+"/valuclslist";
    pcontrol_name.choices.itemset.label.attribute("ref") = "valuclsnm";
    pcontrol_name.choices.itemset.value.attribute("ref") = "valuclscd";
    pcontrol_name.refresh();
    
    model.setValue(valucls_node + "/basedd", pbasedd);
	
	model.removeChild("TRRPV99901");
	model.createChild("xforms:submission", "id:TRRPV99901;mediatype:application/x-www-form-urlencoded; method:post; ref:" + valucls_node + "; resultref:" + valucls_rsltnode + "; ");
	submit("TRRPV99901");
	
    model.copyNode(valucls_itemset,valucls_rsltnode);
    
    model.refresh();
}


//ÄÞº¸¿¡ Æò°¡°øÅëÄÚµå Á¶È¸
function rpvfComboValuCdList(pvaluyy, pvalucdflag_list, pcontrol_name_list) {

    var valucdflag_list = pvalucdflag_list.split(",");
    var control_list  = pcontrol_name_list.split(",");

    var comcd_node = "/root/send/valucd";
    var comcd_rsltnode = "/root/init/valucd";
    
    model.makeNode(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_node);
    model.makeNode(comcd_node + "/valuyy");
    model.makeNode(comcd_node + "/valucdflag");
    
    
    for (var i = 0; i < control_list.length; i++) {
        var control_id = control_list[i];
        var control = control_id.split(".");
        var obj = document.controls(control[0]);
        var comcd_itemset = "/root/init/valucd";
        
        var refcondNode = instance1.selectSingleNode(comcd_node + "/valuyy");
        var cdgrupidNode = instance1.selectSingleNode(comcd_node + "/valucdflag");
        
        var refcondvalueNode = instance1.createNode("element", "valuyy", "");
        var cdgrupvalueNode = instance1.createNode("element", "valucdflag", "");
        
        cdgrupvalueNode.text = valucdflag_list[i];
        refcondvalueNode.text = pvaluyy;
        
        refcondNode.appendChild(refcondvalueNode);
        cdgrupidNode.appendChild(cdgrupvalueNode);
    	
    	comcd_itemset = comcd_itemset + "/" + valucdflag_list[i] + "/" + valucdflag_list[i];
		
    	model.removeNodeset(comcd_itemset);
        model.makeNode(comcd_itemset);
        
        if (obj != null && obj.elementName == "xforms:datagrid") {
            obj = document.controls(obj.colAttribute(obj.colRef(control[1]), "id"));
        }
        
    	obj.choices.itemset.attribute("nodeset") = comcd_itemset;
        obj.choices.itemset.label.attribute("ref") = "valucdnm";
        obj.choices.itemset.value.attribute("ref") = "valucd";
        
    }
	
	
	model.removeChild("TRRPV99904");
	model.createChild("xforms:submission", "id:TRRPV99904;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99904");
    
}

//Grid ÄÞº¸¿¡ °øÅëÄÚµå Setting
/*
instcd : ±â°üÄÚµå
deptcd: ºÎ¼­ÄÚµå
*/
function rpvfComboIdxFlagCodeList(pinstcd, pdeptcd, pgrid_name, pcolumn_id) {
    var control_id = pgrid_name.attribute("id");
    var column_no = pgrid_name.colRef(pcolumn_id);
    var column_name = pgrid_name.colAttribute(column_no, "id");
    var column_obj = document.controls(column_name);

    var comcd_node = "/root/send/idxflagcdref";
    var comcd_rsltnode = "/root/init/idxflag";
    var comcd_itemset = "/root/init/" + control_id + "/" + pcolumn_id;
    
    model.removeNodeset(comcd_node);
    model.removeNodeset(comcd_itemset);

    model.makeNode(comcd_node);
    model.makeNode(comcd_node + "/instcd");
    model.makeNode(comcd_node + "/deptcd");
    
    model.makeNode(comcd_rsltnode);
    model.makeNode(comcd_itemset);
    
    var column_id = pgrid_name.colattribute(column_no, "id");
    
    column_obj.choices.itemset.attribute("nodeset") = comcd_itemset+"/idxflaglist";
    column_obj.choices.itemset.label.attribute("ref") = "idxflagnm";
    column_obj.choices.itemset.value.attribute("ref") = "idxflag";

    model.setValue(comcd_node + "/instcd", pinstcd);
    model.setValue(comcd_node + "/deptcd", pdeptcd);
	
	
	model.removeChild("TRRPV99905");
	model.createChild("xforms:submission", "id:TRRPV99905;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");
	submit("TRRPV99905");
	
    model.copyNode(comcd_itemset,comcd_rsltnode);
    
    model.refresh();
}

//ÄÞº¸¿¡ ÀλçÆò°¡ Áß ºÐ·ù ÄÚµå  Setting
function rpvfComboValuMidClsList(pbasedd, pvaluclscd, pcontrol_name) {
    var control_id = pcontrol_name.attribute("id");
    
    var valumidcls_node = "/root/send/valumidcls";
    var valumidcls_rsltnode = "/root/init/valumidclsinit";
    var valumidcls_itemset = "/root/init/" + control_id;
    
    model.removeNodeset(valumidcls_node);
    model.removeNodeset(valumidcls_itemset);
    
    model.makeNode(valumidcls_node);
    model.makeNode(valumidcls_node + "/basedd");
    model.makeNode(valumidcls_node + "/valuclscd");
    
    model.makeNode(valumidcls_rsltnode);
    model.makeNode(valumidcls_itemset);
    
    pcontrol_name.choices.itemset.attribute("nodeset") = valumidcls_itemset+"/valumidclslist";
    pcontrol_name.choices.itemset.label.attribute("ref") = "valumdlnm";
    pcontrol_name.choices.itemset.value.attribute("ref") = "valumdlcd";
    pcontrol_name.refresh();
    
    model.setValue(valumidcls_node + "/basedd", pbasedd);
    model.setValue(valumidcls_node + "/valuclscd", pvaluclscd);
	
	model.removeChild("TRRPV99902");
	model.createChild("xforms:submission", "id:TRRPV99902;mediatype:application/x-www-form-urlencoded; method:post; ref:" + valumidcls_node + "; resultref:" + valumidcls_rsltnode + "; ");
	submit("TRRPV99902");
	
    model.copyNode(valumidcls_itemset,valumidcls_rsltnode);
    
    model.refresh();
}

//ÄÞº¸¿¡ ÀλçÆò°¡ ¼¼ºÎ ºÐ·ù ÄÚµå  Setting
function rpvfComboValuSmallClsList(pbasedd, pvaluclscd, pvalumdlcd, pcontrol_name) {
    var control_id = pcontrol_name.attribute("id");

    var valusmallcls_node = "/root/send/valusmallcls";
    var valusmallcls_rsltnode = "/root/init/valusmallclsinit";
    var valusmallcls_itemset = "/root/init/" + control_id;
    
    model.removeNodeset(valusmallcls_node);
    model.removeNodeset(valusmallcls_itemset);
    
    model.makeNode(valusmallcls_node);
    model.makeNode(valusmallcls_node + "/basedd");
    model.makeNode(valusmallcls_node + "/valuclscd");
    model.makeNode(valusmallcls_node + "/valumdlcd");
    
    model.makeNode(valusmallcls_rsltnode);
    model.makeNode(valusmallcls_itemset);

    pcontrol_name.choices.itemset.attribute("nodeset") = valusmallcls_itemset+"/valusmallclslist";
    pcontrol_name.choices.itemset.label.attribute("ref") = "valuclsdetlnm";
    pcontrol_name.choices.itemset.value.attribute("ref") = "valuclsdetlcd";
    pcontrol_name.refresh();
    
    model.setValue(valusmallcls_node + "/basedd", pbasedd);
    model.setValue(valusmallcls_node + "/valuclscd", pvaluclscd);
    model.setValue(valusmallcls_node + "/valumdlcd", pvalumdlcd);
	
	model.removeChild("TRRPV99903");
	model.createChild("xforms:submission", "id:TRRPV99903;mediatype:application/x-www-form-urlencoded; method:post; ref:" + valusmallcls_node + "; resultref:" + valusmallcls_rsltnode + "; ");
	submit("TRRPV99903");
	
    model.copyNode(valusmallcls_itemset,valusmallcls_rsltnode);
    
    model.refresh();
}

//ÄÞº¸¿¡ ÀλçÆò°¡ Æò°¡±º ÄÚµå  Setting
function rpvfComboValuGthrngList(pbasedd, pcontrol_name) {
    var control_id = pcontrol_name.attribute("id");
    
    var valugthrng_node = "/root/send/valugthrng";
    var valugthrng_rsltnode = "/root/init/valugthrnginit";
    var valugthrng_itemset = "/root/init/" + control_id;
    
    model.removeNodeset(valugthrng_node);
    model.removeNodeset(valugthrng_itemset);
    
    model.makeNode(valugthrng_node);
    model.makeNode(valugthrng_node + "/basedd");
    
    model.makeNode(valugthrng_rsltnode);
    model.makeNode(valugthrng_itemset);
    
    pcontrol_name.choices.itemset.attribute("nodeset") = valugthrng_itemset+"/valugthrnglist";
    pcontrol_name.choices.itemset.label.attribute("ref") = "valugthrngnm";
    pcontrol_name.choices.itemset.value.attribute("ref") = "valugthrngcd";
    pcontrol_name.refresh();
    
    model.setValue(valugthrng_node + "/basedd", pbasedd);
	
	model.removeChild("TRRPV33301");
	model.createChild("xforms:submission", "id:TRRPV33301;mediatype:application/x-www-form-urlencoded; method:post; ref:" + valugthrng_node + "; resultref:" + valugthrng_rsltnode + "; ");
	submit("TRRPV33301");
	
    model.copyNode(valugthrng_itemset,valugthrng_rsltnode);
    
    model.refresh();
}

//ÄÚµå HELP È­¸é OPEN-Modal
/*
phelp_kind : "01" - »ç¹øÁ¶È¸
             "02" - ºÎ¼­ÄÚµå
             "03" - °øÅëÄÚµå
             "04" - ¿ìÆí¹øÈ£
             "05" - °èÁ¤ÄÚµå
             
pcontrol_name : OPENÇÏ´Â Control¸í(Grid,Input.....)
pcdgrupid : °øÅëÄÚµåÀÏ°æ¿ì Äڵ屺 ("Z0007","R0001"...)
precv_list: ¸®ÅϹÞÀ» Instance¸í (¸¶Áö¸· Element¸¸ ','·Î ºÐ¸®)
pdefault_value : ºÎ¸ð À©µµ¿ì¿¡¼­ ³Ñ¾î¿À´Â °ª
pcheck_yn : ¼±ÅÃÇü Æ˾÷âÀÎÁö ¾Æ´ÑÁö¸¦ üũ
*/
function rpvfOpenPopUpList(phelp_kind, pcontrol_name, pvalucdflag, precv_list, pdefault_value, pNodeName,precvnm_list) {
    
    var recv_list = precv_list.split(",");
    var arrNodeNames = "";
    
    if(pdefault_value != "" && pdefault_value != null)
    {
        var default_value =  pdefault_value.split(",");
    }
    
    if(pNodeName != "" && pNodeName != null)
    {
        var arrNodeNames =  pNodeName.split(",");
    }

//	model.removeNodeset("/root/source");
//	model.removeNodeset("/root/target");
//	
//	model.makeNode("/root/source");
//	model.makeNode("/root/target");
    
    var recvref_node = "/root/source/recvref";
    var pvalucdflag_node = "/root/source/valucdflag";
    var recvitem_node = "/root/source/recvitem";
    var default_node = "/root/source/defaultvalue";
    var checkyn_node = "/root/source/checkyn";
    var control_node = "/root/source/control";
    
    model.removeNodeset(recvref_node);
    model.removeNodeset(pvalucdflag_node);
	model.removeNodeset(recvitem_node);
	model.removeNodeset(default_node);
	model.removeNodeset(checkyn_node);
	model.removeNodeset(control_node);
	
	model.makeNode(recvref_node);
	model.makeNode(pvalucdflag_node);
	model.makeNode(recvitem_node);
	model.makeNode(default_node);
	model.makeNode(checkyn_node);
		
	if(precvnm_list != null && precvnm_list.length >0)
    {
        var recvnm_list = precvnm_list.split(",");
    	for (var k = 0; k <= recv_list.length - 1; k++) {
		    model.makeValue(recvitem_node + "/" + recv_list[k], recvnm_list[k]);
		}
	}
	else
	{
		for (var k = 0; k <= recv_list.length - 1; k++) {
		    model.makeValue(recvitem_node + "/" + recv_list[k], recv_list[k]);
		}
	}
	
	
	var obj = null;

	if (pcontrol_name.elementName == "xforms:datagrid") {
	    //grid¿¡¼­ È£Ãâ ÇßÀ»°æ¿ì.
	    
	    pcontrol_name.endEditCell();
	    if(pdefault_value != "" && pdefault_value != null)
	    {
            for (var z = 0; z < default_value.length; z++)
            {
        	    obj = document.controls(default_value[z]);
        	    
        	    if (obj != null && obj.elementName != "xforms:datagrid" )
        	    {
        	        model.makeValue(default_node + "/" + default_value[z] , model.getValue(obj.attribute("ref")));
//        	        model.makeValue(default_node + default_value[z] , 
//        	        							  model.getValue(pcontrol_name.nodeset + "[" + (pcontrol_name.row - pcontrol_name.fixedRows + 1) "/" + default_value[z]));
        	        
        	    }
        	    else
        	    {
        	        model.makeValue(default_node + "/" + default_value[z] , 
        	        							  model.getValue(pcontrol_name.nodeset + "[" + (pcontrol_name.row - pcontrol_name.fixedRows + 1)+ "]/" + default_value[z]));
        	    }

        	  	
    	    }
	    }
	    
		model.setValue(recvref_node, pcontrol_name.nodeset + "[" + (pcontrol_name.row - pcontrol_name.fixedRows + 1) + "]");
        
    }
    else
    {
        
        //grid¿ÜÀÇ control¿¡¼­ È£ÃâÇßÀ»°æ¿ì.
        var node_path = pcontrol_name.attribute("ref").split("/");
        var source_path = "/root";
        
        for (var i = 2 ; i < node_path.length - 1; i++)
        {
            source_path = source_path + "/" + node_path[i];
        }
        
        if(pdefault_value != "" && pdefault_value != null)
        {
            for (var z = 0; z < default_value.length; z++)
            {
        	    obj = document.controls(default_value[z]);
        	    
        	    if (obj != null && arrNodeNames.length == default_value.length)
        	    {
        	        model.makeValue(default_node + "/" + arrNodeNames[z], model.getValue(obj.attribute("ref")));
        	    }
        	    else if(obj != null)
        	    {
        	        model.makeValue(default_node + "/" + default_value[z] , model.getValue(obj.attribute("ref")));
        	    }
    	    }
	    }
        
        model.setValue(recvref_node ,source_path);
    }
    
    
    if (pvalucdflag.length > 0 ) {
        model.setValue(pvalucdflag_node ,pvalucdflag);
    }
    
    model.makeValue(control_node, pcontrol_name.attribute("id"));
    
    var window_name = "" ;
    
    if (phelp_kind == "01") //Àλ縶½ºÅ¸
	{
    	window_name = "SPRPC90200";
    }
	else if (phelp_kind == "18") //Æò°¡ºÐ·ù ¼¼ºÎÄÚµå Á¶È¸
    {
    	window_name = "SMRPV99500";
	}	
	else if (phelp_kind == "19") //°øÀ¯ÁöÇ¥ÄÚµåÁ¶È¸
    {
    	window_name = "SMRPV99600";
	}	
	else if (phelp_kind == "20") //±âº»¾÷¹«ÁöÇ¥ HELP Á¶È¸
    {
    	window_name = "SMRPV99700";
	}	
	else if (phelp_kind == "21") //±âº»¾÷¹«ÁöÇ¥ÄÚµåÁ¶È¸
    {
    	window_name = "SMRPV03202";
	}	
	else if (phelp_kind == "22") //°í°´¸¸Á·µµÁ¶È¸
    {
    	window_name = "SMRPV99900";
	}	
	else if (phelp_kind == "23") //¾÷¹«ÁöÇ¥ÄÚµåÁ¶È¸
    {
    	window_name = "SMRPV99400";
	}	
	else if (phelp_kind == "24") //Æò°¡°øÅëÄÚµåÁ¶È¸
	{
    	window_name = "SMRPV99100";
	}	
	else if (phelp_kind == "25") //º»Àξ÷ÀûÆò°¡µî·Ï
	{
    	window_name = "SMRPV06000";
	}	
	else if (phelp_kind == "26") //±âº»ÁöÇ¥ KeyWordÁ¶È¸
	{
    	window_name = "SMRPV99200";
	}	
	else if (phelp_kind == "27") //±â°üºÎ¼­Á÷Ã¥HELP
	{
    	window_name = "SMRPV99300";
	}	
	else if (phelp_kind == "28") //ºÎ¼­º° ¾÷¹«¸ñÇ¥  ÆÄÀϳ»¿ª Á¶È¸
	{
    	window_name = "SMRPV05701";
	}	
	else if (phelp_kind == "29") //ºÎ¼­º° ¾÷¹«¸ñÇ¥  UnitÁ¶È¸
	{
    	window_name = "SMRPV98100";
	}	
	else if (phelp_kind == "30") //¾÷¹«ÁöÇ¥ÄÚµåÁ¶È¸
    {
    	window_name = "SMRPV99800";
	}	
	else
    { 
    	window_name = "";
    }
    
    modal(window_name,"","","","","/root/source", "/root/target" );
}

//ÄÚµå HELP È­¸éÀÇ ¼±ÅÃµÈ °ª Return
/*
pgrid_name : HELPÈ­¸éÀÇ Grid
*/
function rpvfPopUpListReturn(pgrid_name, nodebigo) {
	
	try
	{
	    var recv_ref = model.getValue("root/target/recvref");
	//  var ins = document.models( 0 ).instances( 0 );
		var node = instance1.selectNodes("root/target/recvitem/*");	
		var checkyn = model.getValue("/root/target/checkyn");
		var control_name = model.getValue("root/target/control");
		var obj = document.controls(control_name);
		
		var getreturn = "";
		
		if(checkyn == "Y") {
			check_node = instance1.selectNodes("root/main/deptcodelist");
		}
		
		if (checkOpener()) {
			

	//	    for (var i = 1; i < pgrid_name.cols; i++) {
	//		    for (var j = 0; j < node.length; j++) {
	//			    if (node.item(j).nodeName == pgrid_name.colAttribute(i,"ref")) {
	//				    opener.model.setValue(recv_ref + "/" + pgrid_name.colAttribute(i,"ref"), model.getValue(pgrid_name.nodeset + "[" + pgrid_name.row + "]/" + pgrid_name.colAttribute(i,"ref")));
	//				}
	//			}
	//		}
			if(checkyn == "Y") {
				var opener_count = 1;
				for( var k = 0; k < check_node.length; k++){
					if(pgrid_name.valueMatrix(k,1) == "Y") {
						model.setValue("root/target/recvref","/root/main/deptlist[" + opener_count + "]");
						recv_ref = model.getValue("root/target/recvref");
						
						opener.grd_deptlist.addRow();
						
						if(nodebigo != null && nodebigo == "Y")
						{
							for (var j = 0; j < node.length; j++) {
								if(pgrid_name.colRef(node.item(j).nodeName) != -1)opener.model.setValue(recv_ref + "/" + node.item(j).nodeName, model.getValue(pgrid_name.nodeset + "["+ k + "]/" + node.item(j).nodeName));
							}
							
						}
						else
						{
							for (var j = 0; j < node.length; j++) {
								opener.model.setValue(recv_ref + "/" + node.item(j).nodeName, model.getValue(pgrid_name.nodeset + "["+ k + "]/" + pgrid_name.colAttribute(j+1,"ref")));
							}
						}
	        	        opener_count++;
	      	        }
	            }
	      
			}
	  	    else {
	  	    	if(nodebigo != null && nodebigo == "Y")
	  	    	{
	  	    		for (var j = 0; j < node.length; j++) {
		                if(pgrid_name.colRef(node.item(j).nodeName) != -1)opener.model.setValue(recv_ref + "/" + node.item(j).nodeName, model.getValue(pgrid_name.nodeset + "[" + (pgrid_name.row - pgrid_name.fixedRows + 1)  + "]/" + node.item(j).nodeName));
		            }
	  	    	
	  	    	}
	  	    	else
	  	    	{
	  	    		
		            for (var j = 0; j < node.length; j++)
		            {
		                opener.model.setValue(recv_ref + "/" + node.item(j).nodeName, model.getValue(pgrid_name.nodeset + "[" + (pgrid_name.row - pgrid_name.fixedRows + 1)  + "]/" + pgrid_name.colAttribute(j+1,"ref")));
		            }
	            }
	        }
	        
	//        var objID = opener.event.target;
	
	        var objID = opener.event.currentTarget;
	        var obj = opener.document.controls(objID);
	        
	        
	//        if (obj.elementName == "xforms:gridbutton") {
	
		        if (obj.elementName == "xforms:datagrid") {
	        	
	            //var grid_name = opener.document.controls(objID).parent.parent;
	            
	            if (obj.rowstatus(obj.row) == 0) {
	                obj.rowstatus(obj.row) = 2;
	            }
	
	        }
	        
	//		opener.model.refresh();
			window.close();
		}
		else {
			messageBox("»óÀ§ È­¸éÀÌ º¯°æµÇ¾î µ¥ÀÌÅ͸¦ Àü´Þ", "E001");
		}	
	}
	catch(Exception)
	{
		window.close();
	}
}	
	//ÄÞº¸¿¡ Æò°¡°øÅëÄÚµå Á¶È¸
function rpvfComboInstCdList(pcontrol_name_list,pvaluyy) {

    var control_list  = pcontrol_name_list.split(",");

    var comcd_node = "/root/send/instcd";
    var comcd_rsltnode = "/root/init/instcd";
    
    var valuyy_node = "/root/send/valuyy";
    
    model.makeNode(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_node);
    model.makeNode("/root/send/instnm");
    model.makeNode(valuyy_node);
        
    if (pvaluyy != null && pvaluyy != "") {
    	model.setValue( valuyy_node, pvaluyy);
    }
    
    for (var i = 0; i < control_list.length; i++) {
        var control_id = control_list[i];
        var control = control_id.split(".");
        var obj = document.controls(control[0]);
        var comcd_itemset = "/root/init/instcd/inst/inst";
        
    	model.removeNodeset(comcd_itemset);
        model.makeNode(comcd_itemset);
        
        
        if (obj != null && obj.elementName == "xforms:datagrid") {
            obj = document.controls(obj.colAttribute(obj.colRef(control[1]), "id"));
        }
        
        
    	obj.choices.itemset.attribute("nodeset") = comcd_itemset;
        obj.choices.itemset.label.attribute("ref") = "instnm";
        obj.choices.itemset.value.attribute("ref") = "instcd";
        
    }

	model.removeChild("TRRPV99909");
	model.createChild("xforms:submission", "id:TRRPV99909;mediatype:application/x-www-form-urlencoded; method:post; ref:" + valuyy_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99909");
}

function rpvfComboConCrList(pcontrol_name_list, pEmplno, pValuyy) {

    var control_list  = pcontrol_name_list.split(",");

    var comcd_node = "/root/send/concrcd";
    var comcd_rsltnode = "/root/init/concrcd";
    
    model.makeNode(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_node);
    model.makeValue(comcd_node + "/emplno", pEmplno);
    model.makeValue(comcd_node + "/valuyy", pValuyy);
    
    for (var i = 0; i < control_list.length; i++) {
        var control_id = control_list[i];
        var control = control_id.split(".");
        var obj = document.controls(control[0]);
        var comcd_itemset = "/root/init/concrcd/concr/concr";
        
    	model.removeNodeset(comcd_itemset);
        model.makeNode(comcd_itemset);
        
        
        if (obj != null && obj.elementName == "xforms:datagrid") {
            obj = document.controls(obj.colAttribute(obj.colRef(control[1]), "id"));
        }
        
        
    	obj.choices.itemset.attribute("nodeset") = comcd_itemset;
        obj.choices.itemset.label.attribute("ref") = "deptnm";
        obj.choices.itemset.value.attribute("ref") = "deptcd";
        
    }

	model.removeChild("TRRPV99915");
	model.createChild("xforms:submission", "id:TRRPV99915;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99915");
}

function rpvfComboDeptInfList(pcontrol_name_list, pInstcd, pValuyy, pDeptcd) {

    var control_list  = pcontrol_name_list.split(",");

    var comcd_node = "/root/send/infdept";
    var comcd_rsltnode = "/root/init/infdept";
    
    model.makeNode(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_node);
    model.makeValue(comcd_node + "/instcd", pInstcd);
    model.makeValue(comcd_node + "/valuyy", pValuyy);
    model.makeValue(comcd_node + "/deptcd", pDeptcd);
    
    for (var i = 0; i < control_list.length; i++) {
        var control_id = control_list[i];
        var control = control_id.split(".");
        var obj = document.controls(control[0]);
        var comcd_itemset = "/root/init/infdept/infdeptlist";
        
    	model.removeNodeset(comcd_itemset);
        model.makeNode(comcd_itemset);
        
        
        if (obj != null && obj.elementName == "xforms:datagrid") {
            obj = document.controls(obj.colAttribute(obj.colRef(control[1]), "id"));
        }
        
        
    	obj.choices.itemset.attribute("nodeset") = comcd_itemset;
        obj.choices.itemset.label.attribute("ref") = "deptnm";
        obj.choices.itemset.value.attribute("ref") = "deptcd";
        
    }

	model.removeChild("TRRPV99916");
	model.createChild("xforms:submission", "id:TRRPV99916;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99916");
}


/* ºÎ¼­ÄÚµå HelpÈ­¸é Open */
function rpvfOpenDeptCdHelp(pcontrol_name, precv_list, pdefault_value, pNodeName,precvnm_list) {
     misfOpenPopUpList("36", pcontrol_name,"", precv_list,pdefault_value,pNodeName,precvnm_list) ; 	
}



/* Æò°¡±â°£ üũ ¹× ÄÁÆ®·Ñ disabled ¼³Á¤. Song */
/*--------------------------------------------------------------------------------------
 * ´ëÁß¼Ò ºÐ·ù Load 
 * 2007.11.30 ±Ý¿äÀÏ    
 * From : ¼Û±¤È£(Áö±¸ÃÌ Àý¼¼ ¹Ì³²)
 * pValuyy		: Æò°¡³âµµ
 * pEmplno		: »ç¿ø¹øÈ£
 * pTrgtflag	: ´ë»ó±¸ºÐ (1Â÷,2Â÷ ¹ÌÆò°¡ÀÚ, °øÅë... - 01, 02, 03, 04)
 * pProgram		: È­¸é ID
 * pControl_list: ¹öÆ° ÄÁÆ®·Ñ ¸®½ºÆ®  "," ºÐ·ùÇÏ¿© ÀÔ·ÂÇÒ°Í.
 * °ü·Ã Å×À̺í	:  RPVMPROC, RPVMRSLT
---------------------------------------------------------------------------------------*/
function rpvfCheckDayFlag(pValuyy, pEmplno, pTrgtflag, pProgram,pControl_list){
		
	var send_Node = "/root/send/checkdata";
	var result_Node = "/root/init/checkflag";
	
	var fCheck= true;
	
	model.removeNodeset(send_Node);
	model.removeNodeset(result_Node);
	
	model.makeNode(send_Node);
	model.makeNode(result_Node);
	
	model.makeValue(send_Node + "/valuyy", pValuyy);
	model.makeValue(send_Node + "/emplno", pEmplno);
	model.makeValue(send_Node + "/trgtflag", pTrgtflag);
	model.makeValue(send_Node + "/program", pProgram);
	
		
	model.removeChild("TRRPV99910");
	model.createChild("xforms:submission", "id:TRRPV99910;mediatype:application/x-www-form-urlencoded; method:post; ref:" + send_Node + "; resultref:" + result_Node + ";");
	submit("TRRPV99910");

		
		
	if(model.getValue(result_Node+"/yn") == 'Y')
	{
		fCheck = false;
	}else{
		fCheck = true;
	}
	
	
    var control_list  = pControl_list.split(",");

    for (var i = 0; i < control_list.length; i++) {
        var obj = document.controls(control_list[i]);
        obj.disabled = fCheck;                
    }
    
    model.refresh();
}


/* ¹®ÀÚ¸Þ¼¼Áö Æ˾÷. Song */
/*--------------------------------------------------------------------------------------
 * 2007.12.29 Åä¿äÀÏ    
 * From : ¼Û±¤È£
 * ref	: ¸Þ¼¼Áö Àü¼Û¿¡ ÇÊ¿äÇÑ µ¥ÀÌÅÍ (¹®ÀÚ³»¿ë, ¹ß½ÅÀÚ¹øÈ£, ¼ö½ÅÀÚ¹øÈ£, À̸§....µîµî)
---------------------------------------------------------------------------------------*/
function rpvfOpenSMS( x, y, ref)
{
	open("SMRMS98200", 1, x, y, "ZMS00100", ref, "/root/main");
}


/* À̸ÞÀÏ Æ˾÷. Song */
/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * x	:
 * y	:
 * ref	: ³Ñ¾î°¥ µ¥ÀÌÅÍ
---------------------------------------------------------------------------------------*/
function rpvfOpenMail(x, y, ref)
{
	open("SMRME98300", 1, x, y, "ZMS00100", ref, "/root/send");
}

/* User Á¤º¸ Load. Song */
/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * Return : instcd, emplno, phone, email
---------------------------------------------------------------------------------------*/
function rpvfGetUserInfo(pEmplno, pInstcd, pResultNode){
		
	var send_Node = "/root/submit";
	var result_Node = '';
	
	if(pResultNode == "Y")
	{
		result_Node = "/root/init/receive/userinfo";
	}else{
		result_Node = "/root/init/info/userinfo";
	}
		
	model.removeNodeset(send_Node);
//	model.removeNodeset(result_Node);
	
	model.makeNode(send_Node);
	model.makeNode(result_Node);
	
	model.makeValue(send_Node + "/instcd", pInstcd);
	model.makeValue(send_Node + "/emplno", pEmplno);	
		
	model.removeChild("TRRPV99911");
	model.createChild("xforms:submission", "id:TRRPV99911;mediatype:application/x-www-form-urlencoded; method:post; ref:" + send_Node + "; resultref:" + result_Node + ";");
	submit("TRRPV99911");

    model.refresh();
}


/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * Email ±×¸®°í Sms Àü¼Û
 * º¸³»´Â »ç¶÷ÀÇ Email ÁÖ¼Ò°¡ ¾øÀ»°æ¿ì Sms¸¦ Àü¼ÛÇϵµ·Ï...Email ÁÖ¼Ò, Sms ÀüÈ­¹øÈ£°¡ ¾øÀ»°æ¿ì °æ°í ¸Þ¼¼Áö ¹ß»ý.
 * º¸³»´Â »ç¶÷ °ú ¹Þ´Â»ç¶÷ÀÌ 1:1 À϶§¸¸ »ç¿ë.
 * fCmt			: ÀüüÀûÀ¸·Î º¸³¾ Àü¼Û¸Þ¼¼Áö.
 * fEmailTitle	: À̸ÞÀÏ Àü¼Û½ÃÀÇ Á¦¸ñ.
 * fEmplno		: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ »ç¿ø¹øÈ£.
 * fInstcd		: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ ±â°üÄÚµå.
 * fReceiveEmplno	: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ »ç¿ø¹øÈ£.
 * fReceiveInstcd	: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ ±â°üÄÚµå.
---------------------------------------------------------------------------------------*/
function rpvfOneAndOneCheckEmailAndSms(fCmt, fEmailTitle, fEmplno, fInstcd , fReceiveEmplno, fReceiveInstcd)
{					
	//»ç¿ëÀÚ Á¤º¸ Á¶È¸.(¹ß½ÅÀÚÀÇ Á¤º¸ °¡Á®¿À±â.)
	rpvfGetUserInfo( fEmplno, fInstcd);
	
	//¹ÞÀ»»ç¶÷ÀÇ Á¤º¸ Á¶È¸(¼ö½ÅÀÚ)
	rpvfGetUserInfo( fReceiveEmplno, fReceiveInstcd, 'Y');

	
	if(model.getValue("/root/init/info/userinfo/email") != "")
	{	
	
		model.removeNode("/root/main/maildata");
	
		model.makeNode("/root/main/maildata");
		
		model.makeNode("/root/main/maildata/fromaddress");
		model.makeNode("/root/main/maildata/fromname");
		model.makeNode("/root/main/maildata/toaddress");
		model.makeNode("/root/main/maildata/ccaddress");
		model.makeNode("/root/main/maildata/subject");
		model.makeNode("/root/main/maildata/msg");
		model.makeNode("/root/main/maildata/closeflag");	
		
		var fEmail = '';
		var fLength = '';
		model.setValue("/root/main/maildata/fromaddress", model.getValue("/root/init/info/userinfo/email"));						// º¸³»´Â »ç¶÷ÀÇ E-mail ÁÖ¼Ò
		model.setValue("/root/main/maildata/fromname", model.getValue("/root/init/info/userinfo/emplnm"));		// º¸³»´Â »ç¶÷¸í
		
		fLength = model.getValue("/root/init/receive/userinfo/email").split("@");

		if( fLength[0] != '' )
		{

			fEmail +=  model.getValue("/root/init/receive/userinfo/email") + ';';
			
			model.setValue("/root/main/maildata/toaddress",  model.getValue("/root/init/receive/userinfo/email"));		// ¹Þ´ÂÀÌ À̸ÞÀÏ ÁÖ¼Ò  ¿©·¯¸íÀ϶§ ±¸ºÐÀÚ ';'
			model.setValue("/root/main/maildata/ccaddress", '');			// ÂüÁ¶ÀÎ À̸ÞÀÏ ÁÖ¼Ò
			model.setValue("/root/main/maildata/subject", fEmailTitle);		// Á¦¸ñ
			model.setValue("/root/main/maildata/msg", fCmt + "\n" + " <a href=" + '"' + "http://mis001.cmcnu.or.kr/himed" + '"' + " target=_new>http://mis001.cmcnu.or.kr/himed</a> ");// Àü¼Û¸Þ¼¼Áö
			
			
			
			//Çö¾÷ÀÇ ¿äûÀ¸·Î ÀÚµ¿Àü¼ÛÀ» ÇØÁ¦ ÇÔ.  - 2008/06/20 - ¼Û±¤È£
			// "Y" ¸¦ ³Ñ±â¸é ÀÚµ¿Àü¼ÛÀ¸·Î È­¸é»ó¿¡¼­ ó¸®ÇÏ°Ô µÇ¾îÀÖÀ½.			
			model.setValue("/root/main/maildata/closeflag", 'N');			// È­¸éÀÚµ¿ close
		
			// Email Æ˾÷
			// x, y, ³Ñ±æ µ¥ÀÌÅÍ					
			rpvfOpenMail(150, 150, "/root/main/maildata");	

		}else if( model.getValue("/root/init/receive/userinfo/phone") != ""){
			
			rpvfAddSms( model.getValue("/root/init/receive/userinfo/emplnm"), model.getValue("/root/init/receive/userinfo/emplnm"), model.getValue("/root/init/info/userinfo/phone"), fCmt );
			
			messageBox("¼ö½ÅÀÚ »ç¿ëÀÚ Á¤º¸¿¡ Email ¹Ì±âÀç·Î ¹®ÀÚÀü¼ÛÇÕ´Ï´Ù.", "I999");
			// Sms Æ˾÷
			// x, y, ³Ñ±æ µ¥ÀÌÅÍ
			rpvfOpenSMS(150, 150, "/root/main/smsdata");
		}
		
		
	}else if(model.getValue("/root/init/info/userinfo/phone") != ""){	
	
		if( model.getValue("/root/init/receive/userinfo/phone") != "" ){
			rpvfAddSms( model.getValue("/root/init/receive/userinfo/emplnm"), model.getValue("/root/init/receive/userinfo/emplnm"), model.getValue("/root/init/info/userinfo/phone"), fCmt );
			
			messageBox("¹ß½ÅÀÚ »ç¿ëÀÚ Á¤º¸¿¡ Email ¹Ì±âÀç·Î ¹®ÀÚÀü¼ÛÇÕ´Ï´Ù.", "I999");
			
			rpvfOpenSMS(150, 150, "/root/main/smsdata");			
		}
	
	}else{
		messageBox("»ç¿ëÀÚÁ¤º¸¿¡ Email ¹× ÀüÈ­¹øÈ£°¡ ¾øÀ¸¹Ç·Î \n ¾Ë¸²¼­ºñ½º¸¦ »ç¿ëÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.", "I999");
		return;
	}
}






/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * Email ±×¸®°í Sms Àü¼Û
 * º¸³»´Â »ç¶÷ÀÇ Email ÁÖ¼Ò°¡ ¾øÀ»°æ¿ì Sms¸¦ Àü¼ÛÇϵµ·Ï...Email ÁÖ¼Ò, Sms ÀüÈ­¹øÈ£°¡ ¾øÀ»°æ¿ì °æ°í ¸Þ¼¼Áö ¹ß»ý.
 * fGrid		: Email ÁÖ¼Ò³ª ÈÞ´ëÀüÈ­¹øÈ£°¡ ÀÖ´Â ±×¸®µå id.
 * fCmt			: ÀüüÀûÀ¸·Î º¸³¾ Àü¼Û¸Þ¼¼Áö.
 * fEmailTitle	: À̸ÞÀÏ Àü¼Û½ÃÀÇ Á¦¸ñ.
 * fCheckYN		: ¼±ÅÃµÈ »ç¶÷¸¸ Àü¼ÛÇÒÁö À¯¹«.
 * fEmplno		: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ »ç¿ø¹øÈ£.
 * fInstcd		: ¹ß½ÅÀÚÀÇ Á¤º¸ È£ÃâÀ» À§ÇÑ ¹ß½ÅÀÚ ±â°üÄÚµå.
 * fCheckName	: ±×¸®µåÀÇ ¼±ÅÃÀ¯¹« Ä÷³ÀÇ ³ëµå¸í.
---------------------------------------------------------------------------------------*/
function rpvfCheckEmailAndSms( fGrid, fCmt, fEmailTitle, fCheckYN, fEmplno, fInstcd , fCheckName, femailcol, femplnmcol, fphoncol, fvalupsn2yn)
{					
	//»ç¿ëÀÚ Á¤º¸ Á¶È¸.(Á¶È¸ÀÚÀÇ Á¤º¸ °¡Á®¿À±â.)
	rpvfGetUserInfo( fEmplno, fInstcd);
	
	if(model.getValue("/root/init/info/userinfo/email") != "")
	{	
		rpvfSendEmail(fGrid, model.getValue("/root/init/info/userinfo/email"), fCmt, fEmailTitle,fCheckYN, fCheckName, femailcol, femplnmcol, fphoncol,fvalupsn2yn);					
		
	}else if(model.getValue("/root/init/info/userinfo/phone") != ""){	
		rpvfSendMsg( fGrid, model.getValue("/root/init/info/userinfo/phone"), fCmt, fCheckYN, fCheckName, femplnmcol, fphoncol);
	}else{
		messageBox("»ç¿ëÀÚÁ¤º¸¿¡ Email ¹× ÀüÈ­¹øÈ£°¡ ¾øÀ¸¹Ç·Î \n ¾Ë¸²¼­ºñ½º´Â »ç¿ëÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.", "I999");
		return;
	}
}				 

/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * À̸ÞÀÏ Àü¼Û
 * fGridEmail	: À̸ÞÀÏ Á¤º¸¸¦ °¡Áö°í ÀÖ´Â ±×¸®µå.
 * fFromadd	: º¸³»´Â »ç¶÷ À̸ÞÀÏ ÁÖ¼Ò
 * fMsg		: Àü¼ÛÇÒ ¸Þ¼¼Áö
 * fCheckYN	: ±×¸®µåÀÇ Ã¼Å©¿©ºÎ¿¡ µû¸¥ Àü¼ÛÀ¯¹«   'Y' or 'N' or ''
---------------------------------------------------------------------------------------*/ 
function rpvfSendEmail(fGridEmail, fFromadd, fMsg, fEmailTitle, fCheckYN, fCheckName, femailcol, femplnmcol, fphoncol, fvalupsn2yn)
{
	misfGridInit(grd_msg);
	model.removeNode("/root/main/maildata");
	
	model.makeNode("/root/main/maildata");
	
	model.makeNode("/root/main/maildata/fromaddress");
	model.makeNode("/root/main/maildata/fromname");
	model.makeNode("/root/main/maildata/toaddress");
	model.makeNode("/root/main/maildata/ccaddress");
	model.makeNode("/root/main/maildata/subject");
	model.makeNode("/root/main/maildata/msg");
	model.makeNode("/root/main/maildata/closeflag");	
	
						
	
	var fEmail = '';
	var fLength = '';
	var emailarr = new Array();
	var phonearr = new Array();
	var emailcnt = 0;
	var phonecnt = 0;
	var checkyn = "N";
	
	model.setValue("/root/main/maildata/fromaddress", fFromadd);						// º¸³»´Â »ç¶÷ÀÇ E-mail ÁÖ¼Ò
	model.setValue("/root/main/maildata/fromname", model.getValue("/root/init/info/userinfo/emplnm"));		// º¸³»´Â »ç¶÷¸í
	
	if(fCheckYN == 'Y')
	{
		for(var i = fGridEmail.fixedRows; i < fGridEmail.rows; i++ )
		{
			if(fGridEmail.valueMatrix(i, fGridEmail.colRef(fCheckName)) == "Y")
			{
				if (femailcol != "" && femailcol != null) {
					fLength = fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol)).split("@");
					if(  fLength[0] != '' )
					{
						checkyn = "N";
						for (var z = 0; z < emailarr.length; z++) {
							if (emailarr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol))) {
								checkyn = "Y";
								break;
							}
						}
						
						if (checkyn != "Y") {
							fEmail += fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol)) + ';';
							emailarr[emailcnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol));
							emailcnt += 1;
						}
					}else{
						checkyn = "N";
						for (var z = 0; z < phonearr.length; z++) {
							if (phonearr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol))) {
								checkyn = "Y";
								break;
							}
						}
						if (checkyn != "Y") {
							rpvfAddSms( fGridEmail.valueMatrix(i, fGridEmail.colRef(femplnmcol)), fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol)), model.getValue("/root/init/info/userinfo/phone"), fMsg );
							phonearr[phonecnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol));
							phonecnt += 1;
						}
					}
				}
				else {
					fLength = fGridEmail.valueMatrix(i, fGridEmail.colRef("email")).split("@");
					if(  fLength[0] != '' )
					{
						checkyn = "N";
						for (var z = 0; z < emailarr.length; z++) {
							if (emailarr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("email"))) {
								checkyn = "Y";
								break;
							}
						}
						if (checkyn != "Y") {
							fEmail += fGridEmail.valueMatrix(i, fGridEmail.colRef("email")) + ';';
							emailarr[emailcnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("email"));
							emailcnt += 1;
						}
						
					}else{
						checkyn = "N";
						for (var z = 0; z < phonearr.length; z++) {
							if (phonearr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("phone"))) {
								checkyn = "Y";
								break;
							}
						}
						if (checkyn != "Y") {
							rpvfAddSms( fGridEmail.valueMatrix(i, fGridEmail.colRef("emplnm")), fGridEmail.valueMatrix(i, fGridEmail.colRef("phone")), model.getValue("/root/init/info/userinfo/phone"), fMsg );
							phonearr[phonecnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("phone"));
							phonecnt += 1;
						}
						
					}
				}
			}
		}
	}else{
		for(var i = fGridEmail.fixedRows; i < fGridEmail.rows; i++ )
		{
			if (femailcol != "" && femailcol != null) {
				fLength = fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol)).split("@");
				if(  fLength[0] != '' )
				{
					checkyn = "N";
					for (var z = 0; z < emailarr.length; z++) {
						if (emailarr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol))) {
							checkyn = "Y";
							break;
						}
					}
					
					if (checkyn != "Y") {
						fEmail += fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol)) + ';';
						emailarr[emailcnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef(femailcol));
						emailcnt += 1;
					}
					
				}else{
					checkyn = "N";
					for (var z = 0; z < phonearr.length; z++) {
						if (phonearr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol))) {
							checkyn = "Y";
							break;
						}
					}
					if (checkyn != "Y") {
						rpvfAddSms( fGridEmail.valueMatrix(i, fGridEmail.colRef(femplnmcol)), fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol)), model.getValue("/root/init/info/userinfo/phone"), fMsg );
						phonearr[phonecnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef(fphoncol));
						phonecnt += 1;
					}
				}
			}
			else {
				if ( fvalupsn2yn == "Y"){
					fLength = fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemail2")).split("@");
					if(  fLength[0] != '' )
					{
						checkyn = "N";
						for (var z = 0; z < emailarr.length; z++) {
							if (emailarr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemail2"))) {
								checkyn = "Y";
								break;
							}
						}
						if (checkyn != "Y") {
							fEmail += fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemail2")) + ';';
							emailarr[emailcnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemail2"));
							emailcnt += 1;
						}
						
					}else{
						checkyn = "N";
						if (fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemplno2"))!= "") {
							for (var z = 0; z < phonearr.length; z++) {
								if (phonearr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("valuphone2"))) {
									checkyn = "Y";
									break;
								}
							}
							if (checkyn != "Y") {
								rpvfAddSms( fGridEmail.valueMatrix(i, fGridEmail.colRef("valuemplnm2")), fGridEmail.valueMatrix(i, fGridEmail.colRef("valuphone2")), model.getValue("/root/init/info/userinfo/phone"), fMsg );
								phonearr[phonecnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("valuphone2"));
								phonecnt += 1;
							}
						}
					}
				}
				
				fLength = fGridEmail.valueMatrix(i, fGridEmail.colRef("email")).split("@");
				if(  fLength[0] != '' )
				{
					checkyn = "N";
					for (var z = 0; z < emailarr.length; z++) {
						if (emailarr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("email"))) {
							checkyn = "Y";
							break;
						}
					}
					if (checkyn != "Y") {
						fEmail += fGridEmail.valueMatrix(i, fGridEmail.colRef("email")) + ';';
						emailarr[emailcnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("email"));
						emailcnt += 1;
					}
					
				}else{
					checkyn = "N";
					for (var z = 0; z < phonearr.length; z++) {
						if (phonearr[z] == fGridEmail.valueMatrix(i, fGridEmail.colRef("phone"))) {
							checkyn = "Y";
							break;
						}
					}
					if (checkyn != "Y") {
						rpvfAddSms( fGridEmail.valueMatrix(i, fGridEmail.colRef("emplnm")), fGridEmail.valueMatrix(i, fGridEmail.colRef("phone")), model.getValue("/root/init/info/userinfo/phone"), fMsg );
						phonearr[phonecnt] = fGridEmail.valueMatrix(i, fGridEmail.colRef("phone"));
						phonecnt += 1;
					}
				}
			}	
		}
	}
	
	model.setValue("/root/main/maildata/toaddress", fEmail);		// ¹Þ´ÂÀÌ À̸ÞÀÏ ÁÖ¼Ò  ¿©·¯¸íÀ϶§ ±¸ºÐÀÚ ';'
	model.setValue("/root/main/maildata/ccaddress", '');			// ÂüÁ¶ÀÎ À̸ÞÀÏ ÁÖ¼Ò
	model.setValue("/root/main/maildata/subject", fEmailTitle);		// Á¦¸ñ
	model.setValue("/root/main/maildata/msg", fMsg + "\n" + " <a href=" + '"' + "http://mis001.cmcnu.or.kr/himed" + '"' + " target=_new>http://mis001.cmcnu.or.kr/himed</a> ");// Àü¼Û¸Þ¼¼Áö);				// Àü¼Û¸Þ¼¼Áö
	model.setValue("/root/main/maildata/closeflag", 'N');			// È­¸éÀÚµ¿ close
	
	// Email Æ˾÷
	// x, y, ³Ñ±æ µ¥ÀÌÅÍ					
	if(fEmail != '')
	{
		rpvfOpenMail(150, 150, "/root/main/maildata");	
	}															

	if(grd_msg.rows != grd_msg.fixedRows)
	{
		
		messageBox("Email ÀÌ ¾ø´Â »ç¿ëÀÚ°¡ ÀÖ¾î ¹®ÀÚ·Î Àü¼ÛÇÕ´Ï´Ù.", "I999");
		// Sms Æ˾÷
		// x, y, ³Ñ±æ µ¥ÀÌÅÍ
		rpvfOpenSMS(150, 150, "/root/main/smsdata");
	}
	
}

/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * Æù¼ö½ÅÀÚ Ãß°¡
 * fName			: Ãß°¡µÉ ¼ö½ÅÀÚ À̸§
 * fPhoneNumber	: Ãß°¡µÉ ¼ö½ÅÀÚ ÀüÈ­¹øÈ£
 * fPhoneno		: ¹ß½ÅÀÚ ÀüÈ­¹øÈ£
 * fMsg			: Àü¼ÛÇÒ ¸Þ¼¼Áö
---------------------------------------------------------------------------------------*/ 
function rpvfAddSms( fName, fPhoneNumber, fPhoneno, fMsg)
{
	var fPhone = '';
	var sPhone = '';
	var tPhone = '';
	
	tPhone = fPhoneno.split("-");
	fPhoneno = '';
	
	for(var r = 0; r < tPhone.length; r++ )
	{
		fPhoneno += tPhone[r];
	}
	
	if(fPhoneno == '') return;
	
	model.setValue("/root/main/smsdata/bizabbr", "mis");						// ±×·ì¸í,  ex>  mis, com, tis, his...µîµî...
	model.setValue("/root/main/smsdata/replytelno", fPhoneno);					// ¹ß½ÅÀÚ ÀüÈ­¹øÈ£
	model.setValue("/root/main/smsdata/rsrvyn", 0);							// ¿¹¾àÀü¼Û ±¸ºÐ
	model.setValue("/root/main/smsdata/rsrvdate", getCurrentDate());				// Àü¼Û ³¯ÀÚ 
	model.setValue("/root/main/smsdata/rsrvtime", getCurrentTime().substr(0,4));		// Àü¼Û ½Ã°£
	model.setValue("/root/main/smsdata/msgcnts", fMsg);		// Àü¼ÛÇÒ ¸Þ¼¼Áö
	model.setValue("/root/main/smsdata/closeflag", "Y");		// ¸Þ½ÃÁö Àü¼Û Æ˾÷È­¸éÀ» ¹Ù·Î ´Ý±âÀ§ÇÑ ±¸ºÐÀÚ.
	
	misfGridIUD(grd_msg, "A");
	fPhone = fPhoneNumber.split("-");
	sPhone = '';
	for(var p = 0; p < fPhone.length; p++ )
	{
		sPhone += fPhone[p];
	}
		
	grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("chk")) = 'Y'; 	// ¿©±â¼­ YÀÇ Àǹ̴  ¹®ÀÚ¸Þ¼¼Áö¸¦ º¸³¾¶§ Æ˾÷È­¸é¿¡¼­ Àü¼Û¹ÞÀ» ¼ö½ÅÀÚÀÇ ¼±ÅÃÀ¯¹«´Ù.  ¹«Á¶°Ç º¸³»±â À§ÇØ Y ·Î ¼³Á¤. 
	grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrnm")) = fName;   // ¼ö½ÅÀÚ À̸§ ¼³Á¤.
	grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrtelno")) = sPhone;	// ¼ö½ÅÀÚ ÀüÈ­¹øÈ£ ¼³Á¤.
}


/*--------------------------------------------------------------------------------------
 * 2007.12.31 ¿ù¿äÀÏ    
 * From : ¼Û±¤È£
 * ¹®ÀÚ¸Þ¼¼Áö Àü¼Û.
 * * ¼ö½ÅÀÚÀÇ ÀüÈ­¹øÈ£´Â 10ÀÚ¸®¸¦ ³Ñ¾î¾ß¸¸ Àü¼ÛÀÌ °¡´ÉÇϸç, ¹ß½ÅÀÚÀÇ ÀüÈ­¹øÈ£µµ 10ÀÚ¸®¸¦ ³Ñ¾î¾ß¸¸ÇÑ´Ù.
 * fgrid_target : ¼ö½ÅÀÚ ¸®½ºÆ® µ¥ÀÌÅÍ°¡ ÀÖ´Â ±×¸®µå.
 * fphoneno : ¹ß½ÅÀÚ ÀüÈ­¹øÈ£								- "01010092456"
 * fmsg : Àü¼ÛÇÒ ¹®ÀÚ ³»¿ë									- "ÇÏ°í½ÍÀº¸»À» ÀûÀ¸¸é µË´Ï´Ù."
 * checkYN : üũµÇ¾ú´Â »ç¿ëÀÚ¸¸ Àü¼ÛÇÒ°ÇÁö ÀüºÎ Àü¼ÛÇÒ°ÇÁö À¯¹«!   - "Y" or "N" or ""
---------------------------------------------------------------------------------------*/ 
function rpvfSendMsg( fgrid_target,fphoneno, fmsg, checkYN, fCheckName, femplnmcol, fphoncol)
{
	/// ¹ß½ÅÀÚ Á¤º¸ ¼³Á¤.
	misfGridInit(grd_msg);
	var fPhone = '';
	var sPhone = '';
	var tPhone = '';
	var checkyn = "N";
	
	tPhone = fphoneno.split("-");
	fphoneno = '';
	
	for(var r = 0; r < tPhone.length; r++ )
	{
		fphoneno += tPhone[r];
	}
	
	if(fphoneno == '') return;
	
	
	
	model.setValue("/root/main/smsdata/bizabbr", "mis");						// ±×·ì¸í,  ex>  mis, com, tis, his...µîµî...
	model.setValue("/root/main/smsdata/replytelno", fphoneno);					// ¹ß½ÅÀÚ ÀüÈ­¹øÈ£
	model.setValue("/root/main/smsdata/rsrvyn", 0);							// ¿¹¾àÀü¼Û ±¸ºÐ
	model.setValue("/root/main/smsdata/rsrvdate", getCurrentDate());				// Àü¼Û ³¯ÀÚ 
	model.setValue("/root/main/smsdata/rsrvtime", getCurrentTime().substr(0,4));		// Àü¼Û ½Ã°£
	model.setValue("/root/main/smsdata/msgcnts", fmsg);		// Àü¼ÛÇÒ ¸Þ¼¼Áö
	model.setValue("/root/main/smsdata/closeflag", "Y");		// ¸Þ½ÃÁö Àü¼Û Æ˾÷È­¸éÀ» ¹Ù·Î ´Ý±âÀ§ÇÑ ±¸ºÐÀÚ.
	
	///  ¼ö½ÅÀÚ Á¤º¸¼³Á¤.
	///  ¾Æ·¡¿¡ ÀÖ´Â ¼Ò½º´Â ¼ö½ÅÀÚÀÇ ¸®½ºÆ®¸¦ Á¤¸®ÇÑ´Ù.  ÇöÁ¦ DB¿¡ ÀüÈ­¹øÈ£°¡ 010-2321-1231  ÀÌ·¸°Ô µÇ¾î ÀÖÀ¸¹Ç·Î  '-'  ÀÌ°ÍÀ» Á¦¿ÜÇÑ 01023211231 ·Î º¯È¯.
	///  ±×¸®µå¿¡ üũ À¯¹«¿¡ µû¶ó ¼ö½ÅÀÚ ¸®½ºÆ®¿¡ Ãß°¡¸¦ Çϵµ·Ï µÇ¾îÀÖ´Ù.
	///  
	for(var i = fgrid_target.fixedRows; i < fgrid_target.rows; i++ )
	{
		// üũµÈ »ç¶÷¸¸ º¸³¾°ÇÁö  Àüü¸¦ º¸³¾°ÇÁö ±¸ºÐ.
		if(checkYN == "Y")
		{
			// üũµÈ»ç¶÷ À¯¹«.
			if(fgrid_target.valueMatrix(i, fgrid_target.colRef(fCheckName)) == "Y")
			{
				if (fphoncol != "" && fphoncol != null) {
					checkyn = "N";
					for (var z = grd_msg.fixedRows; z < grd_msg.rows; z ++) {
						if(fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)) == 
						   grd_msg.labelMatrix(z, grd_msg.colRef("recvrtelno"))) {
						   	checkyn = "Y";
						   	break;
						}
					}
					
					if(checkyn != "Y" && fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)) != '')
					{
						misfGridIUD(grd_msg, "A");
						fPhone = fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)).split("-");
						sPhone = '';
						for(var p = 0; p < fPhone.length; p++ )
						{
							sPhone += fPhone[p];
						}
							
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("chk")) = 'Y'; 	// ¿©±â¼­ YÀÇ Àǹ̴  ¹®ÀÚ¸Þ¼¼Áö¸¦ º¸³¾¶§ Æ˾÷È­¸é¿¡¼­ Àü¼Û¹ÞÀ» ¼ö½ÅÀÚÀÇ ¼±ÅÃÀ¯¹«´Ù.  ¹«Á¶°Ç º¸³»±â À§ÇØ Y ·Î ¼³Á¤. 
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrnm")) = fgrid_target.valueMatrix(i, fgrid_target.colRef(femplnmcol));   // ¼ö½ÅÀÚ À̸§ ¼³Á¤.
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrtelno")) = sPhone;									// ¼ö½ÅÀÚ ÀüÈ­¹øÈ£ ¼³Á¤.
					}
				}
				else {
					checkyn = "N";
					for (var z = grd_msg.fixedRows; z < grd_msg.rows; z ++) {
						if(fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")) == 
						   grd_msg.labelMatrix(z, grd_msg.colRef("recvrtelno"))) {
						   	checkyn = "Y";
						   	break;
						}
					}
					
					if(checkyn != "Y" && fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")) != '')
					{
						misfGridIUD(grd_msg, "A");
						fPhone = fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")).split("-");
						sPhone = '';
						for(var p = 0; p < fPhone.length; p++ )
						{
							sPhone += fPhone[p];
						}
							
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("chk")) = 'Y'; 	// ¿©±â¼­ YÀÇ Àǹ̴  ¹®ÀÚ¸Þ¼¼Áö¸¦ º¸³¾¶§ Æ˾÷È­¸é¿¡¼­ Àü¼Û¹ÞÀ» ¼ö½ÅÀÚÀÇ ¼±ÅÃÀ¯¹«´Ù.  ¹«Á¶°Ç º¸³»±â À§ÇØ Y ·Î ¼³Á¤. 
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrnm")) = fgrid_target.valueMatrix(i, fgrid_target.colRef("emplnm"));   // ¼ö½ÅÀÚ À̸§ ¼³Á¤.
						grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrtelno")) = sPhone;									// ¼ö½ÅÀÚ ÀüÈ­¹øÈ£ ¼³Á¤.
					}
				}
			}
		}else{
			if (fphoncol != "" && fphoncol != null) {
				checkyn = "N";
				for (var z = grd_msg.fixedRows; z < grd_msg.rows; z ++) {
					if(fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)) == 
					   grd_msg.labelMatrix(z, grd_msg.colRef("recvrtelno"))) {
					   	checkyn = "Y";
					   	break;
					}
				}
				
				if(checkyn != "Y" && fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)) != '')
				{
					misfGridIUD(grd_msg, "A");
					fPhone = fgrid_target.valueMatrix(i, fgrid_target.colRef(fphoncol)).split("-");
					sPhone = '';
					for(var p = 0; p < fPhone.length; p++ )
					{
						sPhone += fPhone[p];
					}
						
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("chk")) = 'Y'; 	// ¿©±â¼­ YÀÇ Àǹ̴  ¹®ÀÚ¸Þ¼¼Áö¸¦ º¸³¾¶§ Æ˾÷È­¸é¿¡¼­ Àü¼Û¹ÞÀ» ¼ö½ÅÀÚÀÇ ¼±ÅÃÀ¯¹«´Ù.  ¹«Á¶°Ç º¸³»±â À§ÇØ Y ·Î ¼³Á¤. 
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrnm")) = fgrid_target.valueMatrix(i, fgrid_target.colRef(femplnmcol));   // ¼ö½ÅÀÚ À̸§ ¼³Á¤.
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrtelno")) = sPhone;									// ¼ö½ÅÀÚ ÀüÈ­¹øÈ£ ¼³Á¤.
				}
			}
			else {
				checkyn = "N";
				for (var z = grd_msg.fixedRows; z < grd_msg.rows; z ++) {
					if(fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")) == 
					   grd_msg.labelMatrix(z, grd_msg.colRef("recvrtelno"))) {
					   	checkyn = "Y";
					   	break;
					}
				}
				
				if(checkyn != "Y" && fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")) != '')
				{
					misfGridIUD(grd_msg, "A");
					fPhone = fgrid_target.valueMatrix(i, fgrid_target.colRef("phone")).split("-");
					sPhone = '';
					for(var p = 0; p < fPhone.length; p++ )
					{
						sPhone += fPhone[p];
					}
						
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("chk")) = 'Y'; 	// ¿©±â¼­ YÀÇ Àǹ̴  ¹®ÀÚ¸Þ¼¼Áö¸¦ º¸³¾¶§ Æ˾÷È­¸é¿¡¼­ Àü¼Û¹ÞÀ» ¼ö½ÅÀÚÀÇ ¼±ÅÃÀ¯¹«´Ù.  ¹«Á¶°Ç º¸³»±â À§ÇØ Y ·Î ¼³Á¤. 
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrnm")) = fgrid_target.valueMatrix(i, fgrid_target.colRef("emplnm"));   // ¼ö½ÅÀÚ À̸§ ¼³Á¤.
					grd_msg.valueMatrix(grd_msg.row, grd_msg.colRef("recvrtelno")) = sPhone;									// ¼ö½ÅÀÚ ÀüÈ­¹øÈ£ ¼³Á¤.
				}
			}
		}
	}
	
	// ¸Þ½ÃÁö Àü¼Ûâ È­¸é ¹ÛÀ¸·Î À̵¿(rpvfOpenSMS »ç¿ëÇϽǶ§¿¡´Â ²À closeflag ¸¦ 'Y' ·Î ¼³Á¤ ÇϽñ⠹ٶø´Ï´Ù. )
	rpvfOpenSMS(100000, 100000, "/root/main/smsdata");
}
/*Æò°¡ÀÚ ºÐ·ù¿¡ µû¸¥ È­¸é ±ÇÇÑ Ã¼Å©*/
function rpvfCheckManFlag(pYy,pEmplno, pFlag){
	var send_Node = "/root/submit";
	var result_Node = '/root/userinfo';

	model.removeNodeset(send_Node);
//	model.removeNodeset(result_Node);
	
	model.makeNode(send_Node);
	model.makeNode(result_Node);
	
	model.makeValue(send_Node + "/valueyy", pYy);
	model.makeValue(send_Node + "/emplno", pEmplno);	
		
	model.removeChild("TRRPV99914");
	model.createChild("xforms:submission", "id:TRRPV99914;mediatype:application/x-www-form-urlencoded; method:post; ref:" + send_Node + "; resultref:" + result_Node + ";");
	submit("TRRPV99914");
    model.refresh();
    
    var valuclscd = "";
    if (pFlag != null && pFlag == "T") {
    	var valuclscd = model.getValue("/root/userinfo/valutrgtflag");
    }
    else if(pFlag != null && pFlag == "G") {
    	var valuclscd = model.getValue("/root/userinfo/orgimrsnexptyn");
    }
    else {
	    var valuclscd=model.getValue("/root/userinfo/valuclscd");
	}
	
	return valuclscd;
    
}
/*
È­¸é ¹öÆ° disabled ÄÁÆ®·Ñ
*/
function rpvfSetControlBy(pControlNames,pDisabledYn){
	var arrCtrlNms = pControlNames.split(",");
	var objCtrls = "";

	for(var i=0; i<arrCtrlNms.length; i++)
	{
		objCtrls = document.controls(arrCtrlNms[i]);
		 if(pDisabledYn =="Y")
		 {
			objCtrls.disabled = true;
		}
		else
		{
			objCtrls.disabled = false;
		}

	}

}
/*»ç¿ëÀÚ ±ÇÇÑ¿¡ µû¸¥ Æò°¡ È­¸é ±â°ü ºÎ¼­ÄÁÆ®·Ñ disable ¼³Á¤*/
function rpvfComboDisableYn(pControlNames,fControlNames,pInstcd,pEmplno){
	var ControlNames="";
		
		if(fControlNames ==null || fControlNames==""){
				ControlNames=pControlNames;
		}else{
	          	ControlNames = pControlNames+","+fControlNames;
	    }
	     /*»ç¿ëÀÚ ±ÇÇÑ °¡Á®¿À±â*/
	    if(pEmplno ==null || pEmplno==""){
	      misfGetUserAuth();
	    }else{
	      rpvfGetUserAuth(pInstcd,pEmplno);
	   }
	 if(DUTY_VALU_YN=='N'){
	 rpvfSetControlBy(ControlNames,"Y");
	 }else{
		
		 if(getUserInfo("dutplceinstcd") =='001' &&  DUTY_VALU_YN=='Y'){
		   rpvfSetControlBy(ControlNames,"N");
		 }else{
		   rpvfSetControlBy(pControlNames,"Y");
		 }
	 
	 }
}
/*ÄÞº¸¿¡ ÇÁ·Î±×·¥ ¼ÂÆÃ*/
function rpvfComboProgramSet(pValuyy, pcontrol_name,pValucdflag){

	var control_id = pcontrol_name.attribute("id");
	var comcd_node = "/root/send/valugthrng";
    var comcd_rsltnode = "/root/init/rpvdcode";
    var comcd_itemset = "/root/init/" + control_id;
    
    model.removeNodeset(comcd_node);
    model.removeNodeset(comcd_itemset);
    
    model.makeNode(comcd_node);
	model.makeNode(comcd_node + "/valuyy");
    model.makeNode(comcd_node + "/valucdflag");
    
    model.makeNode(comcd_rsltnode);
    model.makeNode(comcd_itemset);
    
    pcontrol_name.choices.itemset.attribute("nodeset") = comcd_itemset+"/rpvdcodelist";
    pcontrol_name.choices.itemset.label.attribute("ref") = "valucdnm";
    pcontrol_name.choices.itemset.value.attribute("ref") = "valucd";
    pcontrol_name.refresh();
    
    
    model.setValue(comcd_node + "/valuyy", pValuyy);
    model.setValue(comcd_node + "/valucdflag", pValucdflag);
	
	
	model.removeChild("TRRPV01502");
	
	model.createChild("xforms:submission", "id:TRRPV01502;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");
	submit("TRRPV01502");
	    model.makeValue(comcd_itemset+"/rpvdcodelist[" +1+ "]/valucdnm", "Àüü");
		model.makeValue(comcd_itemset+"/rpvdcodelist[" +1+ "]/valucd", "");
		model.makeValue(comcd_itemset+"/rpvdcodelist[" +1+ "]/valucdflag", pValucdflag);
		

		sourcenode = document.models(0).instances(0).selectSingleNode(comcd_rsltnode);
		tarnode = document.models(0).instances(0).selectSingleNode(comcd_itemset);

		cnt = 1;
		var sourcenodelist = sourcenode.childNodes;
		while (childNode = sourcenodelist.nextNode())
		{
			model.makeValue(comcd_itemset+"/rpvdcodelist[" +(cnt + 1)+ "]/valucdnm", childNode.getXPathString(comcd_rsltnode + "/rpvdcodelist[" +cnt + "]/valucdnm"));
			model.makeValue(comcd_itemset+"/rpvdcodelist[" +(cnt + 1)+ "]/valucd", childNode.getXPathString(comcd_rsltnode + "/rpvdcodelist[" +cnt + "]/valucd"));
			model.makeValue(comcd_itemset+"/rpvdcodelist[" +(cnt + 1)+ "]/valucdflag", childNode.getXPathString(comcd_rsltnode + "/rpvdcodelist[" +cnt + "]/valucdflag"));
			
			
			cnt++;
		}
  //model.copyNode(comcd_itemset,comcd_rsltnode);
    
    model.refresh();
	

}

function rpvfGetAndSetUserInfo(pYy,pEmplno){
	var send_Node = "/root/submit";
	var result_Node = '/root/valuempllist';

	model.removeNodeset(send_Node);
//	model.removeNodeset(result_Node);
	
	model.makeNode(send_Node);
	model.makeNode(result_Node);
	
	model.makeValue(send_Node + "/valuyy", pYy);
	model.makeValue(send_Node + "/emplno", pEmplno);	
		
	model.removeChild("TRRPV05805");
	model.createChild("xforms:submission", "id:TRRPV05805;mediatype:application/x-www-form-urlencoded; method:post; ref:" + send_Node + "; resultref:" + result_Node + ";");
	submit("TRRPV05805");
    model.refresh();

}
// »ç¿ëÀÚ ±ÇÇÑÀ» Á¶È¸ÇÑ´Ù.
function rpvfGetUserAuth(pInstcd,pEmplno)
{
	var sRecvNode		= "auth";
	var sParamsNode		= "/root/send/retrauthparams";
	var sRsltNode		= "/root/main/authlist";

	var arrRef			= "";
	var sShowRsltNode	= "";
	
	model.makeValue("/root/send/retrauthparams/instcd", pInstcd);
	model.makeValue("/root/send/retrauthparams/emplno", pEmplno);

	model.removeNodeset(sRsltNode);
	model.makeNode(sRsltNode);
	
	model.removeChild("TRRPD90001");
	model.createChild("xforms:submission", "id:TRRPD90001;mediatype:application/x-www-form-urlencoded; method:post; ref:" + sParamsNode + "; resultref:" + sRsltNode + "; ");
	submit("TRRPD90001");

	model.copyNode(sShowRsltNode, sRsltNode);

	if(instance1.selectNodes("/root/main/authlist/auth").length > 0)
	{
		DUTY_RESP_YN = model.getValue("/root/main/authlist/auth/dutyresp");
		DUTY_PART_YN = model.getValue("/root/main/authlist/auth/insaduty");
		DUTY_VALU_YN = model.getValue("/root/main/authlist/auth/insavaluation");
		DUTY_UNIT_CD = model.getValue("/root/main/authlist/auth/dutplcedeptcd");
		
	}
	else
	{
		DUTY_RESP_YN = "N";
		DUTY_PART_YN = "N";
		DUTY_VALU_YN = "N";
	}

	model.refresh();
}


/*--------------------------------------------------------------------------------------
 * 2008.04.24 ¸ñ¿äÀÏ    
 * From : ¼Û±¤È£
 * Æò°¡ÄÚµå Á¶È¸
 * pvaluyy 		: Æò°¡³âµµ
 * pvalucdflag	: Á¶È¸ ÄÚµå
---------------------------------------------------------------------------------------*/ 
function rpvfAnotherComboValuCdDataList(pvaluyy, pvalucdflag, pcontrol_name) {

    var valucdflag_list = pvalucdflag;
    var control_list  = pcontrol_name;

    var comcd_node = "/root/send/valucd";
    var comcd_rsltnode = "/root/init/" + pvalucdflag + "/" + pvalucdflag;
    
    model.removeNodeset(comcd_rsltnode);
    model.makeNode(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_node);
    model.makeNode(comcd_node + "/valuyy");
    model.makeNode(comcd_node + "/valucdflag");    
    
    var control_id = control_list;
    var control = control_id.split(".");
    var obj = document.controls(control[0]);
    //var comcd_itemset = comcd_rsltnode;
    
    model.removeNodeset("/root/init/" + pvalucdflag + "/valucd/" + pvalucdflag + "/" + pvalucdflag);
    var comcd_itemset = "/root/init/" + pvalucdflag + "/valucd/" + pvalucdflag + "/" + pvalucdflag;
    
    var refcondNode = instance1.selectSingleNode(comcd_node + "/valuyy");
    var cdgrupidNode = instance1.selectSingleNode(comcd_node + "/valucdflag");
    
    var refcondvalueNode = instance1.createNode("element", "valuyy", "");
    var cdgrupvalueNode = instance1.createNode("element", "valucdflag", "");
    
    cdgrupvalueNode.text = valucdflag_list;
    refcondvalueNode.text = pvaluyy;
    
    refcondNode.appendChild(refcondvalueNode);
    cdgrupidNode.appendChild(cdgrupvalueNode);
	
//	comcd_itemset = comcd_itemset + "/" + valucdflag_list + "/" + valucdflag_list;
	
//  model.makeNode(comcd_itemset);
    
    if (obj != null && obj.elementName == "xforms:datagrid") {
        obj = document.controls(obj.colAttribute(obj.colRef(control[1]), "id"));
    }
    
	obj.choices.itemset.attribute("nodeset") = comcd_itemset;
    obj.choices.itemset.label.attribute("ref") = "valucdnm";
    obj.choices.itemset.value.attribute("ref") = "valucd";
	
	obj.value = "";
	
	//alert(comcd_itemset);
	//alert(comcd_rsltnode);
	
	model.removeChild("TRRPV99904");
	model.createChild("xforms:submission", "id:TRRPV99904;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99904");      
	
	//obj.select(0);
}


/*--------------------------------------------------------------------------------------
 * 2008.04.24 ¸ñ¿äÀÏ    
 * From : ¼Û±¤È£
 * Æò°¡ÄÚµå Á¶È¸
 * pvaluyy 		: Æò°¡³âµµ
 * pvalucdflag	: Á¶È¸ ÄÚµå
---------------------------------------------------------------------------------------*/ 
function rpvComboValuCdDataList(pvaluyy, pvalucdflag, pGetDataflag)
{
	var comcd_node = "/root/send/valucd";
    var comcd_rsltnode = "/root/init/datayn";
    
    model.removeNodeset(comcd_rsltnode);
    model.removeNodeset(comcd_node);
    model.makeNode(comcd_rsltnode);
    model.makeNode(comcd_node);
    model.makeValue(comcd_node + "/valuyy", pvaluyy);
    model.makeValue(comcd_node + "/valucdflag", pvalucdflag);

	model.removeChild("TRRPV99904");
	model.createChild("xforms:submission", "id:TRRPV99904;mediatype:application/x-www-form-urlencoded; method:post; ref:" + comcd_node + "; resultref:" + comcd_rsltnode + "; ");

	submit("TRRPV99904");
	
	if( model.getValue(comcd_rsltnode+ "/valucd") != ''){
		//Y
		rpvfAnotherComboValuCdDataList(pvaluyy, pGetDataflag, pcontrol_name);
		
	}else{
		//N
		pcontrol_name.value = '';
		pcontrol_name.choices.itemset.attribute("nodeset") = "/root/exit";
	}
	
	
}