var sHealCareInfoUser = "";	// ÀÇ·áÁ¤º¸ »ç¿ëÀÚ ¿©ºÎ
// ÃʱⰪ
function fInit()
{
    //var instcd = "012";
    var instcd = getUserInfo("dutplceinstcd");
    var standard_yn = "orduseyn";
    var ord_deptflag = 'D';
    var rslt_ref  = "/root/init/deptlist";
    var sort_method = "depthngnm";
    zbcfGetDeptCodeList(instcd, standard_yn, ord_deptflag, rslt_ref, sort_method);

    // °øÅëÄÚµå ¸ñ·Ï °¡Á®¿À±â
    zbcfGetCodeList(new Array("P0001", "M0332", "M0333"),
    new Array("/root/init/ioflag", "/root/init/issgoalcd", "/root/init/issscopcd") , true);

    model.resetInstanceNode("/root/send/cond");
    model.removeNodeset("/root/main/apphist/applist");
    model.removeNodeset("/root/main/ordinfo/ordlist");
    model.resetInstanceNode("/root/main/appinfo/copyinfo");
    model.removeNodeset("/root/main/appinfo/applist");
    model.removeNodeset("/root/main/emrinfo/emrlist");
    model.setValue("/root/send/cond/addappyn","N");
    grd_emrlist.fixedcellcheckbox(0,1) = true;
    // ÀÇ·áÁ¤º¸ : 3230000000
    
    var dutplcecd = getUserInfo("dutplcecd");
    if (dutplcecd == "3230000000")
    {
        ipt_pid.disabled = false;
        ipt_hngnm.disaBled = false;
        ipt_rrgstno1.disabled = false;
        ipt_rrgstno2.disabled = false;
        btn_pat.disabled = false;
        btn_hngnm.disabled = false;
        btn_rrgstno.disabled = false;   
        cmb_orddrid.disabled = false;
        sHealCareInfoUser = "Y";
    }else{
    	cmb_orddrid.disabled = true;	
    	sHealCareInfoUser = "N"
    }
	btn_update.disabled = true;
	btn_delete.disabled = true;
    //fDisabled(true);

    // ¼öÁ¤(20070927 - ȯÀÚÁø·á°ú·Î º¯°æ)
    //var deptcd = getUserInfo("dutplcecd");
    //model.setValue("/root/main/appinfo/copyinfo/paperorddeptcd", deptcd);

    // emr Áø·á°ú¸¦ ¼±ÅÃÇÏ¸é ¼öÁøÀÌ·Â Á¶È¸ÇÑ´Ù.
    //model.setValue("/root/main/appinfo/copyinfo/emrorddeptcd", deptcd);
    //fOrdSpec();
	//»ó´Ü ȯÀÚ Á¤º¸ °¡Á®¿À±â
	var node = getGlobalVariable("paminfo");
	var deptcd = "";
	setCSVToNode("/root/main/paminfo", node);
	
	//»ó´Ü Á¤º¸ ÀÖ´ÂÁö À¯¹« üũ
	if(node != "")
	{
	    var ioflag = model.getValue("/root/main/paminfo/list/ioflag");
	
	    model.setValue("/root/send/cond/pid", model.getValue("/root/main/paminfo/list/pid"));
	    model.setValue("/root/send/cond/hngnm", model.getValue("/root/main/paminfo/list/hngnm"));
		
	    if ((ioflag == "I") || (ioflag == "E") || (ioflag == "D"))
	    {
	        model.setValue("/root/send/cond/orddd", model.getValue("/root/main/paminfo/list/indd"));
	    }
	    else
	    {
	        model.setValue("/root/send/cond/orddd", model.getValue("/root/main/paminfo/list/orddd"));
	    }
	
	    model.setValue("/root/send/cond/cretno", model.getValue("/root/main/paminfo/list/cretno"));
	    deptcd = model.getValue("/root/main/paminfo/list/orddeptcd");
	}
    
	// Æ˾÷À¸·Î ¶ç¿ì´Â °æ¿ì
	var sParamMsg = "";		
	if(checkOpener()){
		sParamMsg = opener.javascript.getParameter("SMMRC01200_Param");
		if(sParamMsg != ""){
			model.setValue("/root/send/cond/pid", getArrayData(sParamMsg,1,0));
			model.setValue("/root/send/cond/hngnm", getArrayData(sParamMsg,1,1));
			model.setValue("/root/send/cond/orddd", getArrayData(sParamMsg,1,3));
			model.setValue("/root/send/cond/cretno", getArrayData(sParamMsg,1,4));
			model.setValue("/root/send/cond/addappyn","Y");
			ioflag = getArrayData(sParamMsg,1,2);
			deptcd = getArrayData(sParamMsg,1,5);
			ipt_pid.disabled = true;
			btn_pat.disabled = true;
			ipt_hngnm.disabled = true;
			btn_hngnm.disabled = true;
			ipt_rrgstno1.disabled = true;
			ipt_rrgstno2.disabled = true;
			btn_rrgstno.disabled = true;
			cmb_orddrid.disabled = true;
			cmb_emrorddeptcd.disabled  =true;
		}
	}
	
	//fPatPopUp();
	if(sParamMsg != "" || node != ""){
	    // ÀÌÀü³»¿ªÁ¶È¸
	    fHistSearch();
		
	    //model.setValue("/root/main/appinfo/copyinfo/paperorddeptcd", deptcd);
	
	    model.setValue("/root/main/appinfo/copyinfo/emrorddeptcd", deptcd);
	    model.setValue("/root/main/appinfo/copyinfo/emrordflag", ioflag);
	    // Áø·á³»¿ª Á¶È¸
	    fOrdSpec();
	    fChngSrchCond("/root/main/appinfo/copyinfo/emrorddeptcd", "/root/init/doctor/drlist");
		if(sParamMsg != ""){			
			model.setValue("/root/main/appinfo/copyinfo/appdrid", getArrayData(sParamMsg,1,6));
		}else if(sHealCareInfoUser == "N"){
			model.setValue("/root/main/appinfo/copyinfo/appdrid", getUserId());
		}
	    //inputEnterKey("btn_pat", "DOMActivate");
	
		
	}

    // ½ÅûºÎ¼­ 1ºÎ default
    model.setValue("/root/main/appinfo/copyinfo/emrappcopies", "1" );
    
    model.refresh();
}

// ȯÀÚã±â Popup
function fPatPopUp(pFlag)
{	
	model.removenode("/root/temp/patcond");
	if(pFlag == "1"){
    	model.makeValue("/root/temp/patcond/pid",     model.getValue("/root/send/cond/pid"));
    }else if(pFlag == "2"){
    	model.makeValue("/root/temp/patcond/hngnm",     model.getValue("/root/send/cond/hngnm"));
    }else if(pFlag == "3"){
    	model.makeValue("/root/temp/patcond/rrgstno1",     model.getValue("/root/send/cond/rrgstno1"));
    	model.makeValue("/root/temp/patcond/rrgstno2",     model.getValue("/root/send/cond/rrgstno2"));
    }
    model.makeValue("/root/temp/patcond/srchcond",pFlag);
    model.makeValue("/root/temp/patcond/autoflag","Y");
	model.resetInstanceNode("/root/main/patinfo/patinfolist");		
	model.resetInstanceNode("/root/send/cond");
    modal("SPPMC02500", 1,10, 10, "SPPMC02500", "/root/temp/patcond", "/root/send");
       
    model.setValue("/root/send/cond/pid", model.getValue("/root/main/patinfo/patinfolist/pid"));
    model.setValue("/root/send/cond/hngnm", model.getValue("/root/main/patinfo/patinfolist/hngnm"));		
   
    fHistSearch();
       
	// Áø·á³»¿ª Á¶È¸
    fOrdSpec();
    fDisabled(false);
    btn_update.disabled = true;
    if (sHealCareInfoUser == "Y")
    {
	    cmb_emrorddeptcd.disabled = false;	
	    cmb_orddrid.disabled = false;
	    
	}
    model.refresh();

}


// ¹ßÇà¸ñÀû Æ˾÷ Á¶È¸
function fIssGoalPopUp(){
	var sIssUsge = "";
	var sIssUsgeCnt = 0;
	var sIssGoalEtcYN = false;
	var sIssGoalEtc = "";
	var sIssGoalEtcCd = "";
	var sIssGoalCd = "";
	var sStndRow = 0;
	setParameter("SPMMR02200_usage", "");
	
	if(model.getValue("/root/main/appinfo/copyinfo/status") == "u")
		setParameter("SPMMR02200_multichkyn", "N");
	else 
		setParameter("SPMMR02200_multichkyn", "Y");
	modal("SPMMR02200");
	sIssUsge = model.getValue("/root/main/issusge");
	sIssUsgeCnt = model.getValue("/root/main/issusge").split("¢Ì").length;
	if(sIssUsge != ""){
		for(var i=1; i<sIssUsgeCnt; i++){
			if(i != sIssUsgeCnt-1){
				if(sIssGoalEtc != "") sIssGoalEtc += ",";	
				if(sIssGoalEtcCd != "") sIssGoalEtcCd += ",";
			}
			
			sIssGoalEtc += getArrayData(sIssUsge, i, 1);	
			sIssGoalCd = getArrayData(sIssUsge, i, 0);	
			/*sStndRow = grd_apphist.findRow(sIssGoalCd, 0, 3);
			if(sStndRow > 0){
				messageBox("¼±ÅÃÇϽŠ»çº»¹ßÇà¸ñÀûÀº ÀÌ¹Ì ½ÅûµÇ¾ú½À´Ï´Ù. ´Ù½Ã","C002");	
				return;
			}*/
			if(sIssGoalCd == "99"){
				sIssGoalEtcYN = true;
				
			}
			sIssGoalEtcCd += sIssGoalCd;
		}
		if(sIssGoalEtcYN == true){
			ipt_issgoaletc.disabled = false;
		}else{
			model.setValue("/root/main/appinfo/copyinfo/issgoaletcnm","");
			ipt_issgoaletc.disabled = true;
		}
		if(sIssGoalEtcCd.indexOf("06") > -1){
			messageBox("Á÷ÇÒº´¿ø¿ë : ÁÖÄ¡ÀÇ°¡ 8°³ Á÷ÇÒ º´¿øÀ¸·Î À̵¿ÇÏ¿© ȯÀÚµµ ÇÔ²² Àü¿ø °¡±â¸¦ Èñ¸ÁÇÏ´Â °æ¿ì ¼±ÅÃ","E008");	
		} 
		model.setValue("/root/main/appinfo/copyinfo/issgoaletc", sIssGoalEtc);
		model.setValue("/root/main/appinfo/copyinfo/issgoaletccd", sIssGoalEtcCd);
	}
	model.refresh();
}
// ÀÌÀü³»¿ªÁ¶È¸
function fHistSearch()
{
    // reqGetCopyIssHist
    // getCopyIssHist
    model.resetInstanceNode("/root/main/appinfo/copyinfo");
    model.removeNodeset("/root/main/ordinfo/ordlist");
    model.removeNodeset("/root/main/appinfo/applist");
    model.removeNodeset("/root/main/emrinfo/emrlist");
    model.resetInstanceNode("/root/main/appinfo/patinfo");
    if (submit("TRMRC01201", false) == true)
    {    	
    	model.setValue("/root/send/cond/rrgstno1", model.getValue("/root/main/apphist/patinfo/rrgstno1"));
    	model.setValue("/root/send/cond/rrgstno2", model.getValue("/root/main/apphist/patinfo/rrgstno2"));        	 	
    }
    else
    {
        messageBox("Á¶È¸¸¦", "E009");
    }
    //model.refresh();

}

// ½ÅûÁ¤º¸ »ó¼¼Á¶È¸
function fAppSearch()
{
    if (grd_apphist.rows<= 1) return;
    if (grd_apphist.row < 1) return;

    var lrow = grd_apphist.row;

    model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + lrow + "]/copyseqno"));
    model.makeValue("/root/send/search/pid", model.getValue("/root/main/apphist/applist[" + lrow + "]/pid"));

    model.removeNodeset("/root/main/ordinfo/ordlist");
    model.removeNodeset("/root/main/appinfo/applist");
    model.removeNodeset("/root/main/emrinfo/emrlist");

    if (submit("TRMRC01202", false) == true)
    {
        //fDisabled(false);        
        
        // fIssGoalNmSetting();
        model.setValue("/root/main/appinfo/copyinfo/status", "u");
        fOrdSpec();
        fChngSrchCond("/root/main/appinfo/copyinfo/emrorddeptcd", "/root/init/doctor/drlist");
        fDisabled(true);
        btn_update.disabled = false;
        cmb_emrorddeptcd.disabled = true;
        cmb_orddrid.disabled = true;
        /*
		btn_save.disabled = true;
		btn_issgoaletc.disabled = true;
		cmb_trustyn.disabled = true;
		rdo_appmanflag.disabled = true;
		ipt_appmannm.disabled = true;
		btn_listdel.disabled = true;
		ipt_emrappcopies.disabled = true;
		btn_delete.disabled = true;*/
        if(model.getValue("/root/main/apphist/applist[" + lrow + "]/issno") == ""){        	
        	btn_delete.disabled = false;

			if(model.getValue("/root/main/isshist/isslist["+lrow+"]/prntlim") == "Y"){
	    		var msg = "»çº» ¹ß±Þ Á¦ÇÑ »çÀ¯ : "+ model.getValue("/root/main/isshist/isslist["+lrow+"]/limrem")
	    					+ model.getValue("/root/main/isshist/isslist["+lrow+"]/hngnm")+"ȯÀÚ´Â »çº»¹ß±Þ Á¦ÇÑ È¯ÀÚ";
	    		messageBox(msg,"I007");    		
	    	}
		}

    }
    else
    {
        messageBox("Á¶È¸¸¦", "E009");
    }
    //model.refresh();
}

// Áø·á³»¿ª Á¶È¸
function fOrdSpec()
{
	cmb_orddrid.disabled = false;
	
    if (model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd") == ""){
        return;
    }
	
	if (model.getValue("/root/main/appinfo/copyinfo/emrordflag") == ""){
        return;
    }
    
    model.makeValue("/root/send/deptcond/pid", model.getValue("/root/send/cond/pid"));
    model.makeValue("/root/send/deptcond/orddeptcd", model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd"));
	model.makeValue("/root/send/deptcond/emrordflag", model.getValue("/root/main/appinfo/copyinfo/emrordflag"));
	
	model.removeNodeset("/root/main/ordinfo/ordlist");	
    model.removeNodeset("/root/main/emrinfo/emrlist");
    
    // reqGetCopyOrdInfo
    // getCopyOrdList
    if (submit("TRMRC01204", false) == true)
    {

    }
    else
    {
        messageBox("Á¶È¸¸¦", "E009");
    }
    model.refresh();

}

// Áø·á³»¿ª ¼±Åýà EMR¼­½Ä ¸®½ºÆ® Á¶È¸
function fEMRList()
{
    if (grd_ordlist.rows<= 1) return;
    if (grd_ordlist.row < 1) return;

    var lrow = grd_ordlist.row;

    model.removeNodeset("/root/send/search");
    model.makeValue("/root/send/search/pid", model.getValue("/root/main/ordinfo/ordlist[" + lrow + "]/pid"));
    model.makeValue("/root/send/search/orddd", model.getValue("/root/main/ordinfo/ordlist[" + lrow + "]/orddd"));
    model.makeValue("/root/send/search/cretno", model.getValue("/root/main/ordinfo/ordlist[" + lrow + "]/cretno"));
    model.makeValue("/root/send/search/chrtflag", model.getValue("/root/main/ordinfo/ordlist[" + lrow + "]/chrtflag"));
    model.makeValue("/root/send/search/medirecno", model.getValue("/root/main/ordinfo/ordlist[" + lrow + "]/medirecno"));

    // reqGetCopyEmrInfo
    // getCopyEmrList
    if (submit("TRMRC01203", false) == true)
    {
		
    }
    else
    {
        messageBox("Á¶È¸¸¦", "E009");
    }
    model.refresh();
}


// Áø·á±¸ºÐ üũ¿¡¼­ üũ¹Ú½º ¼±ÅýÃ
function fPaperOrdFlagCheck(chkobj)
{
    var checkflag = chkobj.item(chkobj.focusIndex).value;

    var etcyn = "N";
    var chkvalue = chkobj.value;
    var chkarray = chkvalue.split(" ");
    for (i = 0; i < chkarray.length; i++){
        if (checkflag == chkarray[i]){
            if (checkflag == "A"){
                etcyn = "Y";
            }else{
                etcyn = "N";
            }
        }
    }

    if (etcyn == "Y"){
        chkobj.value = "A";
        if (chkobj.attribute("id") == "chk_emrordflag"){
            //fOrdSpec();
        }
    }else{
        var a  = chkobj.value;
        var lvalue = a.replace("A", "");
        chkobj.value = lvalue;
        //ipt_etcitem.value = "";
        //ipt_etcitem.disabled = true;
    }    
    fOrdSpec();
    model.refresh();

}

// Á¾À̼­½Ä¹üÀ§¿¡¼­ üũ¹Ú½º üũ½Ã
function fPaperScopCheck(){
    var etcyn = "N";
    var chkvalue = chk_paperscopcd.value;
    var chkarray = chkvalue.split(" ");
    for (i = 0; i < chkarray.length; i++){
        if (chkarray[i] == "99"){
            etcyn = "Y";
        }
    }

    if (etcyn == "Y"){
        //ipt_paperdocunm.value = "";
        //Ipt_paperdocunm.disabled = true;
        ipt_paperdocunm.disabled = false;
    }else{
        ipt_paperdocunm.value = "";
        ipt_paperdocunm.disabled = true;
    }
}



// EMR ¼­½Ä ¸®½ºÆ®¿¡¼­ ¼±ÅÃÇÑ ¼­½ÄÀ» ³Ñ±â±â
function fEmrListSelect()
{
	var reckeyno = "";
	var formcd = "";
    for(i = 1; i<grd_emrlist.rows; i++)
    {
    	
        var chk = grd_emrlist.valueMatrix(i, grd_emrlist.colRef("chk"));
        var lrow = null;
        // °°Àº ¼­½Ä¹øÈ£°¡ ÀÖÀ» °æ¿ì¿¡ ´ëÇÑ Ã¼Å© ·ÎÁ÷ ÇÊ¿ä
        if (chk == "Y")
        {
            var reckeyno = model.getValue("/root/main/emrinfo/emrlist[" + i + "]/reckeyno");
            var formcd = model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formcd");
            var chrtflag = model.getValue("/root/main/emrinfo/emrlist[" + i + "]/chrtflag");
    		if(model.getValue("/root/main/appinfo/applist[reckeyno='"+reckeyno+"' and formcd ='"+formcd+"']/reckeyno") == ""){
            
                grd_emrapplist.additem();
                lrow = grd_emrapplist.rows -1;
                // emr¼­½ÄÁ¤º¸
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/chrtflag", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/chrtflag"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formrecdt", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formrecdt"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formnm", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formnm"));
//                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formrecextnnm", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formrecextnnm"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/reckeyno", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/reckeyno"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/instcd", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/instcd"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formcd", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formcd"));

                // Áø·áÁ¤º¸
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/ioflag", model.getValue("/root/main/ordinfo/ordlist[" + grd_ordlist.row + "]/ioflag"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/orddeptnm", model.getValue("/root/main/ordinfo/ordlist[" + grd_ordlist.row + "]/orddeptnm"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/orddd", model.getValue("/root/main/ordinfo/ordlist[" + grd_ordlist.row + "]/orddd"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/dschdd", model.getValue("/root/main/ordinfo/ordlist[" + grd_ordlist.row + "]/dschdd"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/atdoctnm", model.getValue("/root/main/ordinfo/ordlist[" + grd_ordlist.row + "]/atdoctnm"));

                // key
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/copyseqno", model.getValue("/root/main/appinfo/copyinfo[" + grd_ordlist.row + "]/copyseqno"));

                grd_emrapplist.addStatus(lrow, "insert");
            }

        }
    }
    model.refresh();

}

// ½Å±Ô µ¥ÀÌÅÍ
function fNewDate()
{
    if (model.getValue("/root/send/cond/pid") == "")
    {
        messageBox("µî·Ï¹øÈ£¸¦", "C001");
        model.setFocus("inp_pid");
        return;
    }
    //fDisabled(false);

    model.resetInstanceNode("/root/main/appinfo/copyinfo");
    model.removeNodeset("/root/main/appinfo/applist");
    model.removeNodeset("/root/main/emrinfo/emrlist");
	model.removeNodeset("/root/main/ordinfo/ordlist");
	
    model.setValue("/root/main/appinfo/copyinfo/pid", model.getValue("/root/send/cond/pid") );
    model.setValue("/root/main/appinfo/copyinfo/orddd", model.getValue("/root/send/cond/orddd") );
    model.setValue("/root/main/appinfo/copyinfo/cretno", model.getValue("/root/send/cond/cretno") );

    // ½ÅûºÎ¼­ 1ºÎ default
    model.setValue("/root/main/appinfo/copyinfo/emrappcopies", "1" );

    
    
    //model.setValue("/root/main/appinfo/copyinfo/paperorddeptcd", deptcd);

    // emr Áø·á°ú¸¦ ¼±ÅÃÇÏ¸é ¼öÁøÀÌ·Â Á¶È¸ÇÑ´Ù.
    
    var ioflag = model.getValue("/root/main/paminfo/list/ioflag");
    if(ioflag != "") model.setValue("/root/main/appinfo/copyinfo/emrordflag", ioflag);
    fOrdSpec();

	
    model.setValue("/root/main/appinfo/copyinfo/status", "i");
    fAppManNmSetting("S");
    var sParamMsg = "";
    if(checkOpener()){
    	sParamMsg = opener.javascript.getParameter("SMMRC01200_Param");
    }
    if(sParamMsg != ""){
    	sParamMsg = opener.javascript.getParameter("SMMRC01200_Param");
    	model.setValue("/root/main/appinfo/copyinfo/emrorddeptcd", getArrayData(sParamMsg,1,5));
    	fChngSrchCond("/root/main/appinfo/copyinfo/emrorddeptcd", "/root/init/doctor/drlist");
    	model.setValue("/root/main/appinfo/copyinfo/appdrid", getArrayData(sParamMsg,1,6));
    }else if(sHealCareInfoUser == "N"){
    	var deptcd = getUserInfo("dutplcecd");
    	var userid = getUserId();
    	model.setValue("/root/main/appinfo/copyinfo/emrorddeptcd", deptcd);
    	
    	fChngSrchCond("/root/main/appinfo/copyinfo/emrorddeptcd", "/root/init/doctor/drlist");
   	    // ½Åû°ú ¼ÂÆÃ
   	   	model.setValue("/root/main/appinfo/copyinfo/appdeptcd", deptcd);
		model.setValue("/root/main/appinfo/copyinfo/appdrid", userid);
    }else{
    	model.setValue("/root/main/appinfo/copyinfo/emrorddeptcd", model.getValue("/root/send/cond/orddeptcd"));    	
    	fChngSrchCond("/root/main/appinfo/copyinfo/emrorddeptcd", "/root/init/doctor/drlist");
   	    // ½Åû°ú ¼ÂÆÃ
   	   	model.setValue("/root/main/appinfo/copyinfo/appdeptcd", model.getValue("/root/send/cond/orddeptcd"));
		model.setValue("/root/main/appinfo/copyinfo/appdrid", model.getValue("/root/send/cond/orddrid"));	
		if(model.getValue("/root/main/appinfo/copyinfo/cretno") != ""){
	    	cmb_emrorddeptcd.disabled = true;
	    	cmb_orddrid.disabled = true;
	    }else{
	    	cmb_emrorddeptcd.disabled = false;	
	    	cmb_orddrid.disabled = false;
	    }
    }
    
    fDisabled(false);
    btn_update.disabled = true;
    btn_delete.disabled = true;
    ipt_issgoaletc.disabled = true;
    model.refresh();

}

// disabled ¿©ºÎ
function fDisabled(flag)
{
	btn_save.disabled = flag;
	btn_issgoaletc.disabled = flag;
	cmb_trustyn.disabled = flag;	
    rdo_appmanflag.disabled = flag;
    rdo_appmanflag.disabled = flag;
    btn_select.disabled = flag;
//    ipt_appmannm.disabled = flag;
    btn_listdel.disabled = flag;
    ipt_emrappcopies.disabled = flag; 
//    ipt_issgoaletc.disabled = flag;
}

// ÀúÀå
function fSave()
{
	var dutplcecd = getUserInfo("dutplcecd");
    if (model.getValue("/root/send/cond/pid") == ""){
        messageBox("µî·Ï¹øÈ£¸¦", "C001");
        model.setFocus("inp_pid");
        return;
    }
    
	
	if(model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd") == ""){
		messageBox("Áø·á°ú¸¦", "C001");	
		model.setFocus("cmb_emrorddeptcd");
		return;
	}		
	
    if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") == ""){
        model.setFocus("rdo_appmanflag");
        messageBox("»çº»¹ßÇà ½ÅûÀÎÀ»", "C001");
        return;
    }

    if (model.getValue("/root/main/appinfo/copyinfo/trustyn") == ""){
        model.setFocus("cmb_trustyn");
        messageBox("À§ÀÓÀå/Àΰ¨Áõ¸í¼­ À¯¹«¸¦", "C001");
        return;
    }

    if (model.getValue("/root/main/appinfo/copyinfo/issgoaletc") == ""){
        model.setFocus("cmb_issgoalcd");
        messageBox("»çº»¹ßÇà¸ñÀûÀ»", "C001");
        return;
    }

    if (grd_emrapplist.rows <= 1){
        messageBox("ºÎºÐ¼­½Ä ¼±ÅÃÀ»", "C001");
        return;
    }

    // ½ÅûºÎ¼­ 1ºÎ default
    if (model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == "0"
        || model.getValue("/root/main/appinfo/copyinfo/emrappcopies") == ""  ){
        model.setValue("/root/main/appinfo/copyinfo/emrappcopies", "1" );
    }

    // ½Å±ÔÀÏ ¶§
    if (model.getValue("/root/main/appinfo/copyinfo/status") == "")
    {
    	model.setValue("/root/main/appinfo/copyinfo/status", "i");
    }
    
    if(model.getValue("/root/main/appinfo/copyinfo/status") == "i"){
        model.setValue("/root/main/appinfo/copyinfo/pid", model.getValue("/root/send/cond/pid") );
        model.setValue("/root/main/appinfo/copyinfo/orddd", model.getValue("/root/send/cond/orddd") );
        model.setValue("/root/main/appinfo/copyinfo/cretno", model.getValue("/root/send/cond/cretno") );
        var deptcd = getUserInfo("dutplcecd");

        // ½Åû°ú ¼ÂÆÃ
        model.setValue("/root/main/appinfo/copyinfo/appdeptcd", deptcd);

        
     
        if(model.getValue("/root/send/cond/cretno") == "" && (model.getValue("/root/main/appinfo/copyinfo/appdrid") == "" || model.getValue("/root/main/appinfo/copyinfo/appdrid") == "-")){
			messageBox("°¡Á¢¼ö¸¦ Çϱâ À§ÇØ Áø·áÀǻ縦", "C001");	
			model.setFocus("cmb_orddrid");
			return;	
		}
        if(model.getValue("/root/send/cond/cretno") == ""){
        	model.removeNodeset("/root/send/savedata/otptinfo");
			model.makeValue("/root/send/savedata/otptinfo/otpt_flag","I");	// ±¸ºÐÀÚ
			model.makeValue("/root/send/savedata/otptinfo/otpt_pid",model.getValue("/root/send/cond/pid"));	// µî·Ï¹øÈ£
			model.makeValue("/root/send/savedata/otptinfo/otpt_orddd",getCurrentDate());	// Áø·áÀÏÀÚ
			model.makeValue("/root/send/savedata/otptinfo/otpt_orddeptcd", model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd"));	// Áø·á°ú
			model.makeValue("/root/send/savedata/otptinfo/otpt_orddrid", model.getValue("/root/main/appinfo/copyinfo/appdrid"));	// Áø·áÀÇ»ç
			model.makeValue("/root/send/savedata/otptinfo/otpt_ordtm",getCurrentTime());	// Áø·á½Ã°£
			model.makeValue("/root/send/savedata/otptinfo/otpt_rsrvflag","4");	// ¿¹¾à±¸ºÐ
			model.makeValue("/root/send/savedata/otptinfo/otpt_instcd",getUserInfo("dutplceinstcd"));	// ±â°üÄÚµå
			model.makeValue("/root/send/savedata/otptinfo/otpt_remfact", "");	// Âü°í»çÇ×
			model.makeValue("/root/send/savedata/otptinfo/sess_userid",getUserInfo("userid"));	// »ç¿ëÀÚID	
			model.makeValue("/root/send/savedata/otptinfo/otpt_medamtestmyn", "N"); // ÁøÂû·á»êÁ¤¿©ºÎ
			model.makeValue("/root/send/savedata/otptinfo/otpt_medamtpostyn", "Y"); // ÁøÂû·áÈĺҿ©ºÎ
			model.makeValue("/root/send/savedata/otptinfo/otpt_medamtfreeresn", "10"); // ÁøÂû·á¹Ì»êÁ¤»çÀ¯
        }
    }
	
	if(model.getValue("/root/main/appinfo/copyinfo/status") == "u"){
		model.setValue("/root/main/appinfo/copyinfo/issgoalcd", model.getValue("/root/main/appinfo/copyinfo/issgoaletccd"));
		if(model.getValue("/root/main/appinfo/copyinfo/issgoaletccd") == "99"){	// »çº»¹ßÇà¸ñÀûÀÌ ±âŸÀÏ °æ¿ì
			model.setValue("/root/main/appinfo/copyinfo/issgoalnm", model.getValue("/root/main/appinfo/copyinfo/issgoaletcnm"));
		}else{
			model.setValue("/root/main/appinfo/copyinfo/issgoalnm", model.getValue("/root/main/appinfo/copyinfo/issgoaletc"));
		}
	}
    model.makeNode("/root/send/savedata/copyinfo");
    model.makeNode("/root/send/savedata/emrapplist");
    //model.makeNode("/root/send/savedata/paperlist");

    // ½ÅûÁ¤º¸
    if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") == "9")
    {
        model.setValue("/root/main/appinfo/copyinfo/appmannm", ipt_appmannm.currentText);
    }

    
    model.copyNode("/root/send/savedata/copyinfo", "/root/main/appinfo/copyinfo");

    // emr¼­½ÄÁ¤º¸
    model.setValue("/root/send/savedata/emrapplist", grd_emrapplist.getUpdateData());

    // reqExeCopyIssInfo
    if (submit("TXMRC01201", false) == true)
    {
        grd_emrapplist.clearStatus();
		if(model.getValue("/root/temp/outacptlist/outacptinfo/orddd") != ""){
			model.setValue("/root/send/cond/orddd", model.getValue("/root/temp/outacptlist/outacptinfo/orddd"));
		}
		if(model.getValue("/root/temp/outacptlist/outacptinfo/cretno") != ""){
			model.setValue("/root/send/cond/cretno", model.getValue("/root/temp/outacptlist/outacptinfo/cretno"));	
		}
		model.setValue("/root/send/cond/orddeptcd", model.getValue("/root/main/appinfo/copyinfo/emrorddeptcd"));
		model.setValue("/root/send/cond/orddrid", model.getValue("/root/main/appinfo/copyinfo/appdrid"));
        fHistSearch();
		var ioflag = model.getValue("/root/main/paminfo/list/ioflag");
		if(ioflag != "") model.setValue("/root/main/appinfo/copyinfo/emrordflag", ioflag);
    }
    else
    {
        messageBox("ÀúÀå¿¡", "E009");
    }
    fAppManNmSetting("S");
    btn_update.disabled = true;
    btn_delete.disabled = true;
    model.refresh();



}

// »çº»½Åû »èÁ¦
function fDelete(){
	var iRow = grd_apphist.row;
	var sIssNo = "";
	if(iRow < 1) return;
	
	if(model.getValue("/root/main/appinfo/copyinfo/status") == "u"){
		sIssNo = model.getValue("/root/main/apphist/applist["+iRow+"]/issno");
		if(sIssNo != ""){
			messageBox("»çº» ¹ßÇàÀÌ ÀÌ·ç¾îÁø °æ¿ì »èÁ¦", "E001");
			return;
		}	
		model.setValue("/root/main/appinfo/copyinfo/status","d");
		model.makeNode("/root/send/savedata/copyinfo");
		model.copyNode("/root/send/savedata/copyinfo", "/root/main/appinfo/copyinfo");
		if (submit("TXMRC01201", false) == true)
    	{
    		fHistSearch();
			var ioflag = model.getValue("/root/main/paminfo/list/ioflag");
			if(ioflag != "") model.setValue("/root/main/appinfo/copyinfo/emrordflag", ioflag);
    	}
	    else
	    {
	        messageBox("ÀúÀå¿¡", "E009");
	    }
	    btn_update.disabled = true;
	    model.refresh();
	}else{
		messageBox("ÀúÀå ³»¿ªÀÌ", "I004");	
	}	
}

// ½ÅûÀÎ ¼±Åÿ¡ µû¸¥ ½ÅûÀÎ ¸í ¼ÂÆÃ
function fAppManNmSetting(pFlag)
{
    // ±âŸ¸í ±âŸ¶õ È°¼ºÈ­
    //if (rdo_appmanflag.value != "9")
    if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") != "9")
    {
        ipt_appmannm.disabled = true;
        ipt_appmannm.value = "";
        model.setValue("/root/main/appinfo/copyinfo/appmannm", rdo_appmanflag.label);
    }
    else
    {
        ipt_appmannm.disabled = false;
        //ipt_appmannm.value = "";
    }
    
    // »çº»¹ßÇà¸ñÀû ±âŸ¶õ È°¼ºÈ­
	if(model.getValue("/root/main/appinfo/copyinfo/issgoaletccd") == "99"){
		ipt_issgoaletc.disabled = false;	
	}else{
		ipt_issgoaletc.disabled = true;
	}

		
    if (model.getValue("/root/main/appinfo/copyinfo/appmanflag") == "1")
    //if (rdo_appmanflag.value == "1")
    {
        cmb_trustyn.disabled = true;
        if(pFlag != "S") cmb_trustyn.value = "N";
    }
    else
    {
        cmb_trustyn.disabled = false;
        if(pFlag != "S") cmb_trustyn.value = "Y";
    }

}


// Á¾°á±â·ÏÀÇ ¿ø¿ÜÀÚ¼±  Çà»èÁ¦
function fEmrAppListRowDel(){
    if (grd_emrapplist.rows <= 1) return;
    grd_emrapplist.deleteItem(grd_emrapplist.row);
}


// ÅëÇÕ±â·ÏÁ¶È¸
function fViewer()
{
    //if (grd_isshist.rows<= 1) return;
	//if (grd_isshist.row < 1) return;
    var pid = model.getValue("/root/send/cond/pid");
    setParameter("SMMRI00400_param_pid", pid);
    modal("SMMRI00400", 1,10, 10, "SMMRI00400", "", "");
	var reqcopy = getParameter("SMMRI00400_reqcopy");
	var reckeyno = "";
	var formcd = "";
	var lrow = 0;
	if(reqcopy != ""){
		for(var iRow = 0; iRow<reqcopy.split("¢Ì").length-1; iRow++){
		
			reckeyno = getArrayData(reqcopy,iRow, 8);
			formcd = getArrayData(reqcopy,iRow,9);
			if(model.getValue("/root/main/appinfo/applist[reckeyno='"+reckeyno+"' and formcd ='"+formcd+"']/reckeyno") == ""){
				grd_emrapplist.additem();
                lrow = grd_emrapplist.rows -1;
                // emr¼­½ÄÁ¤º¸
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/chrtflag", getArrayData(reqcopy,iRow,0));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formrecdt", getArrayData(reqcopy,iRow,2));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formnm", getArrayData(reqcopy,iRow,3));
//                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formrecextnnm", model.getValue("/root/main/emrinfo/emrlist[" + i + "]/formrecextnnm"));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/reckeyno", reckeyno);
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/formcd", formcd);
				model.setValue("/root/main/appinfo/applist[" + lrow + "/instcd", getUserInfo("dutplceinstcd"));
                // Áø·áÁ¤º¸
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/ioflag", getArrayData(reqcopy,iRow,1));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/orddeptnm", getArrayData(reqcopy,iRow,4));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/orddd", getArrayData(reqcopy,iRow,5));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/dschdd", getArrayData(reqcopy,iRow,6));
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/atdoctnm", getArrayData(reqcopy,iRow,7));

                // key
                model.setValue("/root/main/appinfo/applist[" + lrow  + "]/copyseqno", model.getValue("/root/main/appinfo/copyinfo/copyseqno"));

                grd_emrapplist.addStatus(lrow, "insert");
			}
		}
	}
}