YNU_JEUS/app_home/himed/imsi/xpapps/emr/chrtmngtxp/xp/SMMRC03100.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	DBS
 * Job Name 		:	
 * File Name 		:	SMMRC03100.xjs
 * Creator 	    	:	
 * Make Date 		:	2014-11-06
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2014-11-06        DBS       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
 //=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode = new HashArray();
var fso = inff_fileSystemObject();

 
//=======================================================================================
// Transaction Callback 
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Argument			: 01.sSvcId	: 서비스 ID
 *					: 02.nErrorCode	: 에러코드
 *					: 03.sErrorMsg	: 에러메시지
 * Description		: tr_getCodeList의 콜백함수
 ****************************************************************************************/
function cf_TRMMR05501(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMMR05501 *****");
}

function cf_TRMRF03104(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRF03104 *****");
}

function cf_TRMRC03019(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03019 *****");
}

function cf_TRMRC03103(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03103 *****");
}

function cf_TRMRC03004(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03004 *****");
	
	//sysf_trace(ds_grd_outpat.saveXML());
	
}

function cf_TRMRC03005(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03005 *****");
	
	//sysf_trace(ds_grd_outpat.saveXML());
	
}

function cf_TRMRC03010(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03010 *****");
	
	var oDs = this.objects["ds_main_appinfo_copyinfo"];
	dsf_setDefaultVal(oDs, "all");
	for( var i=0; i<oDs.rowcount; i++){
		oDs.setColumn(i, "issgoaletc", oDs.getColumn(i, "issgoalnm"));
		oDs.setColumn(i, "issgoaletccd", oDs.getColumn(i, "issgoalcd"));
	}
	ds_main_appinfo_copyinfo.applyChange();
}

function cf_TRMRC03003(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	sysf_trace("***** cf_TRMRC03003 *****");
	
	ds_grd_apphist.rowposition = -1;
	ds_grd_apphist.enableevent = true;
	
}

function cf_TRMRC03016(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03016 *****");
	
	var oDs = this.objects["ds_tmpinicert_iniinfo"];
	//xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(oDs.getColumnInfo("execprcpuniqno")))
	oDs.updateColID("execprcpuniqno", "cmc_orderseqno");
	dsf_setDefaultVal(oDs, "all");
	
}

function cf_TRMRC03021(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03021 *****");
}

function cf_TRMRI03004(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRI03004 *****");
	
	var oDs = this.objects["ds_tmpinicert_iniinfo"];
	//xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(oDs.getColumnInfo("execprcpuniqno")))
	oDs.updateColID("execprcpuniqno", "cmc_orderseqno");
	dsf_setDefaultVal(oDs, "all");
}



function cf_TRMRC03012(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03012 *****");
}

function cf_TRMRC03023(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03023 *****");
	
	// status_rcpt --> m
	// oldprcptimes 는 orgprcptimes로 대체
	dsf_setDefaultVal(ds_grd_rcptlist, "prcpno:0,prcphistno:0,cretno:0");
	for( var i=0; i<ds_grd_rcptlist.rowcount; i++)
		ds_grd_rcptlist.setColumn(i, "oldprcptims", ds_grd_rcptlist.getColumn(i, "prcptims"));
	
	ds_grd_rcptlist.applyChange();
}

function cf_TRMRC03017(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03017 *****");
	
	var oDs = this.objects["ds_grd_outapplist"];
	//xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(oDs.getColumnInfo("orddeptdcd")))
	oDs.updateColID("orddeptdcd", "orddeptcd");
	dsf_setDefaultVal(oDs, "all");
	dsf_setDefaultVal(oDs, "appseq:0,medirecno:0");
}

function cf_TRMRC03022(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03022 *****");
}

function cf_TRMRC03011(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03011 *****");
}

function cf_TRMRC03029(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03029 *****");
	
	var oDs = this.objects["ds_tmpinicert_iniinfo"];
	//xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(oDs.getColumnInfo("execprcpuniqno")))
	oDs.updateColID("execprcpuniqno", "cmc_orderseqno");
	dsf_setDefaultVal(oDs, "all");
}

function cf_TRMRC03027(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03027 *****");
}

function cf_TXMRC01310(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TXMRC01310 *****");
}

function cf_TXMRC03005(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TXMRC03005 *****");
}

function cf_TRMRC03024(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03024 *****");
}

function cf_TRMMO02705(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMMO02705 *****");
}

function cf_TRMRC03007(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03007 *****");
}

function cf_TRMRC03008(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRC03008 *****");
	
	sysf_trace(ds_temp_issinfo_copyinfo.saveXML());
	sysf_trace(ds_temp_issinfo_emrapplist.saveXML());
	sysf_trace(ds_temp_issinfo_rcptlist.saveXML());
	
}

function cf_TRMMR00001(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMMR00001 *****");
}

function cf_TXMRC03006(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TXMRC03006 *****");
}

function cf_TRMRI00407(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_TRMRI00407 *****");
}

function cf_(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
    sysf_trace("***** cf_ *****");
}

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Argument			: 01.flag	: true/false
 *					: 02.		: 
 * Description		: ds_main_otherinfo event on/off
 ****************************************************************************************/
function fSet_enableevent(flag){
	group1.chk_testinfo1.enableevent = flag;
	group1.chk_testinfo.enableevent = flag;
	group1.chk_testinfo_bak.enableevent = flag;
	chk_anoinfo.enableevent = flag;

}

/****************************************************************************************
 * Argument			: 01.		: 
 *					: 02.		: 
 * Description		: ds_main_emrinfo_emrlist default setting
 ****************************************************************************************/
function lf_fMakeColumn_main_emrinfo(){
	var oDsEmrlist = this.objects["ds_main_emrinfo_emrlist"];
	
	if( oDsEmrlist.getColumnInfo("chrtflag") == null 	|| oDsEmrlist.getColumnInfo("orddeptcd") == null || 
		oDsEmrlist.getColumnInfo("atdoctid") == null 	|| oDsEmrlist.getColumnInfo("formcd") == null || 
		oDsEmrlist.getColumnInfo("orddd") == null 		|| oDsEmrlist.getColumnInfo("cretno") == null || 
		oDsEmrlist.getColumnInfo("pid") == null 		|| oDsEmrlist.getColumnInfo("ioflag") == null || 
		oDsEmrlist.getColumnInfo("testflag") == null 	|| oDsEmrlist.getColumnInfo("reckeyno") == null || 
		oDsEmrlist.getColumnInfo("formnm") == null 		|| oDsEmrlist.getColumnInfo("supitemindxseq") == null || 
		oDsEmrlist.getColumnInfo("midindxseq") == null 	|| oDsEmrlist.getColumnInfo("sortno") == null || 
		oDsEmrlist.getColumnInfo("status") == null ){
	
		oDsEmrlist.addColumn("chrtflag", "string");			oDsEmrlist.addColumn("orddeptcd", "string");
		oDsEmrlist.addColumn("atdoctid", "string");			oDsEmrlist.addColumn("formcd", "string");
		oDsEmrlist.addColumn("orddd", "string");			oDsEmrlist.addColumn("cretno", "string");
		oDsEmrlist.addColumn("pid", "string");				oDsEmrlist.addColumn("ioflag", "string");
		oDsEmrlist.addColumn("testflag", "string");			oDsEmrlist.addColumn("reckeyno", "BIGDECIMAL");
		oDsEmrlist.addColumn("formnm", "string");			oDsEmrlist.addColumn("supitemindxseq", "string");
		oDsEmrlist.addColumn("midindxseq", "BIGDECIMAL");	oDsEmrlist.addColumn("sortno", "string");
		oDsEmrlist.addColumn("status", "string");
	}

}


var PRIN_COPY  = ""; // 출력매수
var PRIN_QUNT  = ""; // 부수
var SAVE_COPY = "1";
var RESAVE_COPY = "1";  // 재신청
var SAVE_ORDDD = "";
var OUTCOPY_FLAG = "";
var INCOPY_FLAG = "";
var issnoYN = "";
var PRCP_REISS = "";
var srchcnt = 0;
var srchorgcnt = 0;

var g_DefCalcscorcd = "";   // 기본 수가 코드
var g_DefCalcscorcdnm = "";   // 기본 수가 설명
var g_AddCalcscorcd = "";   // 추가 수가 코드
var g_AddCalcscorcdnm = "";   // 추가 수가 설명
var g_DefCnt = "";   // 기본 발행 매수
var g_AddCnt = "";   // 추가 발행 매수
var g_FreeCnt = "";   // 추가 발행 매수

var g_inputbox = "";
var g_addstatus = "";
var g_FreeCalcscorcd = "";    // 하드코드 테이블에 무료수가가 등록되어 있는 경우는 사용하는걸로 간주함.(등록된 무료수가가 없을 경우는 사용하지 않는 걸로 간주함.)
var g_FreeCalcscornm = "";  // 무료 수가 설명

var g_GrdTotalCnt = 0;

//2012/03/13 Start
var before_delivefact="";
var after_delivefact="";
//2012/03/13 End

//2013/01/14 Start 총 출력장수
var totprntcnt=0;
var printcount=0;
//2013/01/14 End

var splittxt = "";
var OcrImgUseFlag = "";



/****************************************************************************************
 * Function			: dsf_createDs
 * Description		: 공통코드를 가져온다.
 * Argument			: 01.sKey	: 코드아이디
 *					: 02.sValue	: 코드명
 * return type		: String - dataset name
 * Creator			: 임준호
 ****************************************************************************************/
/**
 * @desc   : 사본신청/발급 화면 초기화
 *         : 상단정보 처리 여부, 화면 팝업처리 여부 판단 및 화면 기본정보 설정
 * @
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fInitialize(){
	
	btn_out.setSelectStatus(true);
 	iviewerIemr.enableevent = false;
   	iviewerIemr.enableredraw = false;
	
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	lf_getHardCDList("N", 5501, null, ds_temp_hardcd);
	// KNUH_20101124_박성호_end
	
	// 2012/02/29 수가입력 버튼 제어
	lf_getHardCDList("N", 5567, null, ds_temp_hardcd2);
	//2012/02/29
	
	//2013/01/15 Start
	lf_getHardCDList("N", 5630, null, ds_temp_hardcd3);
	//2013/01/15 End
	
	//2014.01.16 Start 사본발행시 Split구분값 설정
	lf_getHardCDList("N", 5623, null, ds_temp_hardcd4);
	splittxt = ds_temp_hardcd4.getColumn(0, "hardcd");

	//2014.01.16 End	

	//2014.04.29 Start 사본발행 이미지포함 기능사용여부
	lf_getHardCDList("N", 5636, null, ds_temp_hardcd5);
	OcrImgUseFlag = ds_temp_hardcd5.getColumn(0, "hardcd");
	if( OcrImgUseFlag == "Y"){
		chk_addimageyn.visible = true;
		
	}else{
		chk_addimageyn.visible = false;
	}
	//2014.04.29 End		
	
    //2012/02/29 Start 칠곡에서 사본발행시 병동위임장 버튼 안보이게 함
	for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
		if(ds_temp_hardcd2.getColumn(i, "hardcd")==sysf_getUserInfo("dutplceinstcd")){
			button4.visible=true;
			break;
		}
	}
	//2012/02/29 End	
	
	//2013/01/15 Start 하드코드 번호 5630번에 등록된 유저라면 신청내역 건수가 보이도록 수정
	for(var i=0; i<ds_temp_hardcd3.rowcount; i++){
		if(ds_temp_hardcd3.getColumn(i, "hardcd")==sysf_getUserInfo("userid")){
			caption18.visible=true;
			output1.visible=true;
			break;
		}
	}
	ds_main.setColumn(0, "delivefactcnt", "");
	//2013/01/15 End
	
	//20140820 이윤주수정
	// jw.choe 같은 경로에 다른 코드 조회, 결과는 최종 코드만...
	//lf_getHardCDList("N", 5976, null, ds_temp_hardcd6);	//최초작성일자 보이는 기록지
	lf_getHardCDList("N", 5977, null, ds_temp_hardcd6);	//헤더정보를 기록시점의 icdr를 읽어서 표시
	
  	var paminfo = sysf_getGlobalVariable("paminfo");
  
  	if(!utlf_isNull(paminfo)){
  		ds_main_paminfo.clearData();
  		dsf_setCSVToDs("ds_main_paminfo", paminfo);
  		var ioflag = ds_main_paminfo.getColumn(0, "ioflag");
	
		if(!utlf_isNull(opener.frmf_getParameter("SMMRC03000_pid"))) { // 통합기록조회
			if(opener.frmf_getParameter("SMMRC03000_pid") != ds_main_paminfo.getColumn(0, "pid")) {
				sysf_messageBox("사본신청은 진료중인 환자에 대해서만 신청이 가능합니다.\n등록번호를 상단 환자등록번호와 일치시켜서","C003");
        		return;
        	}
  		}
  	
	    ds_main_cond.setColumn(0, "pid", ds_main_paminfo.getColumn(0, "pid"));
	    ds_main_cond.setColumn(0, "hngnm", ds_main_paminfo.getColumn(0, "hngnm"));
	    ds_main_cond.setColumn(0, "ioflag", ds_main_paminfo.getColumn(0, "ioflag"));
		  
		  
	    if ((ioflag == "I") || (ioflag == "E") || (ioflag == "D"))
	    {
	        ds_main_cond.setColumn(0, "orddd", ds_main_paminfo.getColumn(0, "indd"));
	        ds_main_cond.setColumn(0, "orddeptnm", ds_main_paminfo.getColumn(0, "orddeptnm"));
	        ds_main_cond.setColumn(0, "orddeptcd", ds_main_paminfo.getColumn(0, "orddeptcd"));
	        ds_main_cond.setColumn(0, "roomcd", ds_main_paminfo.getColumn(0, "roomcd"));
	        ds_main_cond.setColumn(0, "dschdd", ds_main_paminfo.getColumn(0, "dschdd"));
	        
	        //fClikInTab();
	        var e = new ClickEventInfo;
	        frmf_inputEnterKey("btn_in", "onclick", e);
	        //btn_in.dispatch("onclick");

	    }
	    else
	    {
	        ds_main_cond.setColumn(0, "orddd", ds_main_paminfo.getColumn(0, "orddd"));
	        
	        var e = new ClickEventInfo;
	        frmf_inputEnterKey("btn_out", "onclick", e);
	        //btn_out.dispatch("onclick");
	        //fClikOutTab();
	    }
	
	    ds_main_cond.setColumn(0, "cretno", ds_main_paminfo.getColumn(0, "cretno"));
	    //ds_main_cond.setColumn(0, "ioflag", ds_main_paminfo.getColumn(0, "ordtype"));
	    ds_main_cond.setColumn(0, "rrgstno1", ds_main_paminfo.getColumn(0, "rrgstno1"));
	    ds_main_cond.setColumn(0, "rrgstno2"  , "*******");
	    sex = ds_main_paminfo.getColumn(0, "sex");
	    age = ds_main_paminfo.getColumn(0, "age");
	    ds_main_cond.setColumn(0, "sa", sex.concat("/").concat(age));
	    ds_main_cond.setColumn(0, "age", age);
  	}

    var userinfo = sysf_getUserInfo("dutplcecd"); 
    var userid   = sysf_getUserId();
    var jobkindcd = sysf_getUserInfo("jobkindcd");
    
    lf_getHardCDList("N", 1200, null, ds_tmphdcd); //저장 후 창닫힘 여부

    userid = userid.getTrim();
    
    // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
  	//if(userinfo == "3230000000"){		// 의료정보
  	if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
  	{
  	// KNUH_20101124_박성호_end	
		
  		
  		parent.position.height = "967";
  		
  		// right
  		caption14.position2.top = "785";
  		caption20.position2.top = "785";
  		btn_cnfm.position2.top = "783";
  		rdo_lang.position2.top = "783";
  		btn_crtfct.position2.top = "783";
  		//btn_crtfct.position.top = "783";
  		textarea2.position2.top = "802";
  		grd_rcptlist.position2.top = "802";
  		button6.position2.top = "884";
  		button7.position2.top = "884";
  		button5.position2.top = "884";
  		button8.position2.top = "884";

		// 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트)
		btn_colorcalcscoryn.position2.top = "783";

		
  		//mmbfGetHardCodeInfo("/root/send/reqdata","/root/hidden/inputbox", 1111); //의무기록 사본발행수가코드
  		//g_inputbox = model.getValue("/root/hidden/inputbox/hardcd/hardcd");//의무기록 사본발행 수가코드
  		g_inputbox = lf_getHardCDList("Y", 1111, 3, null);

  		if(g_inputbox == "Y") // 수가가 기본, 추가 수가코드로 이루어진 경우
  		{
  		  // 부수 입력칸 추가..
    	  caption28.position2.top = "884";
    	  caption29.position2.top = "884";
    	  caption16.position2.top = "884";
    	  ipt_emrappcopies.position2.top = "884";
    	  
    	  button10.position2.top = "783";
    	  input1.position2.top = "884";
    	  caption11.position2.top = "882";  
    	  
//     	  grd_rcptlist.colAttribute (4, "disabled" ) = "true";
//     	  grd_rcptlist.colAttribute (19, "disabled" ) = "true";
		  grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "shtno"), "edittype", "none");
		  grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "prcptims"), "edittype", "none");
		  ds_grd_rcptlist.applyChange();
		  
    	  
  		}else{  // 수가가 추가 수가코드로 이루어진 경우
  		
  		  
  		}

  		// left
  		swc_prof.position2.height = "363";//343
  		swc_prof.out.grd_outpat.position2.height = "320";//330
  		group1.position2.top = "680";
  		caption24.position2.top = "785";
  		
  		caption18.position2.top = "785";
  		output1.position2.top = "785";
  		
  		txt_delivefact.position2.top = "802";
  		txt_delivefact.position2.height = "75";
  		btn_reappinfo.position2.top = "884";
  		button3.position2.top = "884";
  		btn_update.position2.top = "884";
  		btn_save.position2.top = "884";
  		
  		// 상세내역추가
  		button12.position2.top = "778";
  		
  		// switch
  		if(btn_in.getSelectStatus()) {
			
  			group1.visible = false;
			swc_prof.position2.height = "450";
			swc_prof.in.grd_inapplist.position2.height = "200";
			
			swc_prof.in.caption10.position2.top = "197";
			//line7.position.top = "218px";
			//grd_emrapplist.position.top = "212px";
			//grd_emrapplist.attribute("height") = "140px";
			swc_prof.in.grd_inpat.position2.top = "212";
			swc_prof.in.grd_inpat.position2.height = "140";
  		} 
  		
  		if(btn_out.getSelectStatus()) {
				swc_prof.tabindex = 0;
				//model.toggle("out" );  
				group1.visible = true;
				swc_prof.position2.height = "343";
				swc_prof.out.grd_outpat.position2.height = "310";
				group1.position2.top = "680";
				caption24.position2.top = "785";
				
				caption18.position2.top = "785";
		  		output1.position2.top = "785";
				
				txt_delivefact.position2.top = "802";
				txt_delivefact.position2.height = "75";
				btn_reappinfo.position2.top = "884";
				button3.position2.top = "884";
				btn_update.position2.top = "884";
				btn_save.position2.top = "884";
		}
		
		
  		iviewerIemr.position2.height = "710";
  		// jw.choe 임시
  		var e = new SizeEventInfo;
  		frmf_inputEnterKey("iviewerIemr", "onsize", e);
  		
  		
  	    cmb_emrorddeptcd.enable = true;
        cmb_orddrid.enable = true;
        
        
        fSetSugaCode();

        fSetData();
		
  	}else{
  		if(jobkindcd == "0330" || jobkindcd == "0332") { // 의사일 경우  		
	       
	        appf_getInOutOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", null, null, "ds_init_cmb_emrorddeptcd", false, null); //전체 진료과
			/*frmf_addComboItem("cmb_emrorddeptcd","전체","-", "above");*/
			ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd", sysf_getUserInfo("dutplcecd"));  // 신청과
			
			appf_getOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "usernm", "asc", utlf_getCurrentDate(), "ds_init_cmb_orddrid");//해당 주치의
			ds_main_appinfo_copyinfo.setColumn(0, "appdrid",userid);  //신청의

	    	iviewerIemr.position2.height = "720";
	    	// jw.choe 임시
			var e = new SizeEventInfo;
			frmf_inputEnterKey("iviewerIemr", "onsize", e);
			
	    	cmb_emrorddeptcd.enable = false;
	    	cmb_orddrid.enable = false;
        
			// 접근제한 환자인지 확인
			
			ds_send_cond.clearData();
			ds_send_cond.addRow();
			ds_send_cond.setColumn(0, "pid", ds_main_paminfo.getColumn(0, "pid"));
        
			var objColInfo = new Array();
			objColInfo.push({col: "pid", type:"string", size:256});
			objColInfo.push({col: "prntlim", type:"string", size:256});
			objColInfo.push({col: "limrem", type:"string", size:256});
			dsf_createDs("ds_tmppatinfo_accessiblepatinfo", objColInfo, true);
        
			var oParam = {};
				oParam.id       = "TRMRC03103";
				oParam.service  = "chrtmngtapp.CopyIssMngt";
				oParam.method   = "reqGetAccessiblePatInfo";
				oParam.inds     = "req=ds_send_cond";
				oParam.outds    = "ds_tmppatinfo_accessiblepatinfo=accessiblepatinfo";
				oParam.async    = false;
				oParam.callback = "cf_TRMRC03103";

			tranf_submit(oParam);
        
			if(ds_tmppatinfo_accessiblepatinfo.getColumn(0, "prntlim") == "Y") {
				if(!utlf_isNull(ds_tmppatinfo_accessiblepatinfo.getColumn(0, "limrem"))) {
					var limrem = ds_tmppatinfo_accessiblepatinfo.getColumn(0, "limrem");
					var pid = ds_main_cond.getColumn(0, "pid");
					var name = ds_main_cond.getColumn(0, "hngnm");
					sysf_messageBox("     " + pid +  "(" + name + ") : " + limrem +"     " + "\n     유의환자", "I009");
				}
			}
        
    	} else{ // 의사가 아닐경우
    		//iviewerIemr.attribute("height") = "590px";
    	}
    	this.titletext = "사본발행신청";
    	caption22.visible = true;
	    caption6.visible = false;
    }
    
    iviewerIemr.enableevent = true;
	iviewerIemr.enableredraw = true;


	if (jobkindcd == "1140" || jobkindcd == "1110")
	{
		fSetData();
		fSetDisabled();
	}
    iviewerIemr.setupChart("ThumbView"); // 여러페이지 보기 default

	ipt_pid.setFocus();
	//model.removeNodeset("/root/temp/issinfo/emrlist");
	
	ds_grd_outapplist.clearData();	//model.removeNodeset("/root/temp/issinfo/emrlist");
	ds_grd_inapplist.clearData();	//model.removeNodeset("/root/main/inpathistlist/inpathistlist");
	ds_grd_emrapplist.clearData();	//model.removeNodeset("/root/main/issinfo/emrapplist");
	ds_grd_outpat.clearData();		//model.removeNodeset("/root/main/outpathistlist/outpathistlist");
	ds_grd_inpat.clearData();		//model.removeNodeset("/root/main/midissinfo/emrapplist");
	ds_grd_apphist.clearData();		//model.removeNodeset("/root/main/apphist/applist");
	ds_grd_rcptlist.clearData();	//model.removeNodeset("/root/main/rcptlist/rcptlist");
	
	
	
	appf_getCodeList([{dsNm: "ds_init_ioflaglist_P0001", cdGrpId: "P0001"}, {dsNm: "ds_init_issgoalcd_M0332", cdGrpId: "M0332"}, {dsNm: "ds_init_prcpstatcd_M0011", cdGrpId: "M0011"}], true);
	//zbcfGetCodeList(new Array("P0001","M0332", "M0011"),new Array("/root/init/ioflaglist","/root/init/issgoalcd", "/root/init/prcpstatcd"));
	
	lf_mmbfGetDeptCodeComboList(ds_init_orddept, "A", utlf_getCurrentDate()); //부서코드 콤보	
	
	var fromdd = ((utlf_getCurrentDate()).toDate()).getAddDate(-1, "Y");

	//시작일자, 종료일자 설정
	ds_main_cond.setColumn(0, "fromdd", fromdd.getDateFormat());
	ds_main_cond.setColumn(0, "todd"  , utlf_getCurrentDate());
	
	ds_main_out.setColumn(0, "fromdd" , fromdd.getDateFormat());
	ds_main_out.setColumn(0, "todd"   , utlf_getCurrentDate());
	
	ds_main_in.setColumn(0, "fromdd" , fromdd.getDateFormat());
	ds_main_in.setColumn(0, "todd"   , utlf_getCurrentDate());
	
	ds_main_otherinfo.setColumn(0, "addimageyn", "Y");
	
	grdf_initGrid(swc_prof.in.grd_inpat);
	grdf_initGrid(swc_prof.out.grd_outpat);
	
// 	grd_inpat.fixedcellcheckbox(0, grd_emrapplist.colRef("chk"), false) = true;
// 	grd_outpat.fixedcellcheckbox(0, grd_outpat.colRef("chk"), false) = true;	
	
	if(!utlf_isNull(ipt_pid.text))
	{
	    fReqGetBfCopyIssHistList(ipt_pid.text); // 사본발행내역
	}
	//iviewerIemr.refresh();

	if(jobkindcd == "0330" || jobkindcd == "0332") { // 의사일 경우
		fReqGetOutPatHistList(); // 외래진료내역
		fReqGetInPatHistList(); // 입원진료내역
		fReqGetPaperYN(); // 종이차트유무
	}

	  if ((ioflag == "I") || (ioflag == "E") || (ioflag == "D"))
	  {
		fClikInTab();
	  }
	  else
	  {
		fClikOutTab();
	  }
	  
	  ds_main_otherinfo.setColumn(0, "addimageyn", "Y");
	  
}

/**
 * @desc   : 세션값을 읽어 해당환자의 사본신청 이력 조회
 * @
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fSetData()
{
sysf_trace("**** fSetData() *****");
	appf_getInOutOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", null, null, "ds_init_cmb_emrorddeptcd", false, null); //전체 진료과
	frmf_addComboItem("cmb_emrorddeptcd","전체","-", "above");
	ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd","-");  // 신청과

	appf_getOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "usernm", "asc", utlf_getCurrentDate(), "ds_init_cmb_orddrid");
	
	
	this.titletext = "사본신청/발급";
	caption22.visible = false;
	caption6.visible = true;

	if(!utlf_isNull(opener.frmf_getParameter("SMMRC03000_param_pid"))) {
		ds_main_cond.setColumn(0, "pid", opener.frmf_getParameter("SMMRC03000_param_pid"));
		//ds_main_cond.setColumn(0, "hngnm", opener.frmf_getParameter("SMMRC03000_param_hngnm"));
		//ds_main_cond.setColumn(0, "rrgstno1", opener.frmf_getParameter("SMMRC03000_param_rrgstno1"));
		//ds_main_cond.setColumn(0, "rrgstno2", opener.frmf_getParameter("SMMRC03000_param_rrgstno2"));
		ds_main_cond.setColumn(0, "copyseqno", opener.frmf_getParameter("SMMRC03000_param_copyseqno"));
		fReqGetComnPatOrdInfo(opener.frmf_getParameter("SMMRC03000_param_pid"));
		fReqGetPaperYN(); // 종이차트 유무여부
		if(opener.frmf_getParameter("SMMRC03000_param_prntlim") == "Y") {
			if(!utlf_isNull(ds_main_paper.getColumn(0, "limrem"))) {
				var limrem = ds_main_paper.getColumn(0, "limrem");
				var pid = ds_main_cond.getColumn(0, "pid");
				var name = ds_main_cond.getColumn(0, "hngnm");
				sysf_messageBox("     " + pid +  "(" + name + ") : " + limrem +"     " + "\n     유의환자", "I009");
			}
		}
	}
	
	frmf_clearParameter("SMMRC03000_param_pid");
	//frmf_clearParameter("SMMRC03000_param_hngnm");
	//frmf_clearParameter("SMMRC03000_param_rrgstno1");
	//frmf_clearParameter("SMMRC03000_param_rrgstno2");
	frmf_clearParameter("SMMRC03000_param_copyseqno");
	frmf_clearParameter("SMMRC03000_param_prntlim");
}

/**
 * @desc   : 사본 신청/발급 관련된 실행 버튼 disable 설정
 * @
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fSetDisabled()
{
	button12.enable = false;			//상세내역추가
	btn_reappinfo.enable = false;		//재신청
	button3.enable = false;			//초기화
	btn_update.enable = false;			//신청내역수정
	btn_save.enable = false;			//신청내역저장
	button6.enable = false;			//메모저장
	button7.enable = false;			//사본출력
	button5.enable = false;			//처방이력
	button8.enable = false;			//수가입력
	swc_prof.out.button9.enable = false;			//기록조회
}

/**
 * @desc   : 환자진료정보 조회 및 설정
 * @
 * @param  : pid : 등록번호
 * @return : 
 * @---------------------------------------------------
 */
function fReqGetComnPatOrdInfo(pid){

	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	
	ds_send_reqdata.setColumn(nRow, "pid"      , pid);
	ds_send_reqdata.setColumn(nRow, "orddeptcd", "-");
	ds_send_reqdata.setColumn(nRow, "orddrid", "-");
	ds_send_reqdata.setColumn(nRow, "srchmode" , "F");
	
	dsf_setDefaultVal(ds_send_reqdata, "orddeptcd:-,orddrid:-");
	
	var oParam = {};
		oParam.id       = "TRMMR05501";
		oParam.service  = "medirecapp.ExtnMediRec";
		oParam.method   = "reqGetPatHistList";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_result_pathistlist=pathistlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR05501";

	tranf_submit(oParam);
	
	
	if(arErrorCode.pop("TRMMR05501") > -1 ){
		dsf_setDefaultVal(ds_main_result_pathistlist, "all");
		if(ds_main_result_pathistlist.rowcount > 0){
			var pid      = ds_main_result_pathistlist.getColumn(0, "pid");
			var orddd    = ds_main_result_pathistlist.getColumn(0, "orddd");
			var cretno   = ds_main_result_pathistlist.getColumn(0, "cretno");
			var hngnm    = ds_main_result_pathistlist.getColumn(0, "hngnm");
			var sex      = ds_main_result_pathistlist.getColumn(0, "sex");
			var age      = ds_main_result_pathistlist.getColumn(0, "age");
			var brthdd   = ds_main_result_pathistlist.getColumn(0, "brthdd");
			var rrgstno1 = ds_main_result_pathistlist.getColumn(0, "rrgstno1");
			var rrgstno2 = ds_main_result_pathistlist.getColumn(0, "rrgstno2");
			var addr     = ds_main_result_pathistlist.getColumn(0, "addr");            
			var hometel  = ds_main_result_pathistlist.getColumn(0, "hometel");
			var ioflag   = ds_main_result_pathistlist.getColumn(0, "ordtype");
			var orddeptcd= ds_main_result_pathistlist.getColumn(0, "orddeptcd");
			var orddeptnm= ds_main_result_pathistlist.getColumn(0, "orddeptnm");
			
		}else{
			sysf_messageBox("환자 정보를 찾을 수", "I004");
			return;						
		}	
    		
		ds_main_cond.setColumn(0, "pid"       , pid);
		//ds_main_cond.setColumn(0, "orddd"     , orddd);
		//ds_main_cond.setColumn(0, "cretno"    , cretno);
		ds_main_cond.setColumn(0, "hngnm"     , hngnm);
		ds_main_cond.setColumn(0, "rrgstno1"  , rrgstno1);
		ds_main_cond.setColumn(0, "rrgstno2"  , rrgstno2.substring(0, 1) + "******");
		ds_main_cond.setColumn(0, "age" , age);
		ds_main_cond.setColumn(0, "sa" , sex.concat("/").concat(age));
		if(age < parseInt(14)) {
			ds_main_appinfo_copyinfo.setColumn(0, "appmanflag", "2");
			ds_main_appinfo_copyinfo.setColumn(0, "trustyn", "Y");
		}

		fSetRcptpossynmsg(ds_main_cond.getColumn(0, "pid"));		//무인수납 가능 여부 조회, 2010.03.08 주희경

	}
}

/**
 * @desc 이전사본발행 내역조회
 * @param pid : 등록번호 
 */ 
function fReqGetBfCopyIssHistList(pid){
	ds_grd_emrapplist.clearData();	//model.removeNodeset("/root/main/issinfo/emrapplist");
	
	ds_tmpinicert2_iniinfo.clearData();	//model.removeNodeset("/root/tmpinicert2/iniinfo");
	ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", pid);	
	
	ds_grd_apphist.enableevent = false;
	
	var oParam = {};
		oParam.id       = "TRMRC03003";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetCopyIssHist";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_grd_apphist=applist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03003";

	tranf_submit(oParam);
	
	
}

/**
 * @desc   : EMR부서콤보 조회
 * @
 * @param  : ref        - reference path
 *           rsltref    - result reference path
 *           orddeptflag- 진료과구분
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
 /*
function mmbfGetDeptCodeComboList(ref, rsltref, orddeptflag, stnddd){
	var mmb_rsltref = "/root/hidden/mmb/orddept";
	model.removeNode(mmb_rsltref);
	model.makeNode(mmb_rsltref);
  
	model.removeNode(ref);
	model.makeValue(ref + "/orddeptflag", orddeptflag);
	if(stnddd != ""){
		model.makeValue(ref + "/stnddd", stnddd);
	}

	if(submit("TRMMB04101", "false", ref, mmb_rsltref)==true){
		model.copyNode(rsltref, mmb_rsltref);
		model.removeNode(mmb_rsltref);
	}
	model.refresh();
}
*/
/**
 * @desc   : 하드코드 조회
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
 /*
function mmbfGetHardCodeInfo(ref, rsltref, hardcd){
    var mmb_rsltref = "/root/hidden/mmb/hardcd";
    model.removeNode(mmb_rsltref);
    model.makeNode(mmb_rsltref);
    model.removeNode(ref);
    model.makeValue(ref + "/hardcd", hardcd);
    if(submit("TRMMB04103", "false", ref, mmb_rsltref)==true){
        model.copyNode(rsltref, mmb_rsltref);
        model.removeNode(mmb_rsltref);
    }
    model.refresh();
}
*/

/**
 * @desc   : 하드코드 조회 (하드코드, 하드코드명) 
 * @
 * @param  : ref      - reference path
 *           rsltref  - result reference path
 *           hardcd   - 하드코드
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
 /*
function mmbfGetHardCodeInfoNm(ref, rsltref, hardcd){
    var mmb_rsltref = "/root/hidden/mmb/hardcd";
    model.removeNode(mmb_rsltref);
    model.makeNode(mmb_rsltref);
    model.removeNode(ref);
    model.makeValue(ref + "/hardcd", hardcd);
    if(submit("TRMMB04105", "false", ref, mmb_rsltref)==true){
        model.copyNode(rsltref, mmb_rsltref);
        model.removeNode(mmb_rsltref);
    }
    model.refresh();
}
*/

/**
 * @desc : 외래환자 이력조회
 *
 * @param :
 * @return:
 */
function fReqGetOutPatHistList(param){
sysf_trace("***** fReqGetOutPatHistList("+param+") *****");

	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	
  	if(param == "Y") {
    	ds_send_reqdata.setColumn(nRow, "fromdd", ds_main_out.getColumn(0, "fromdd"));
    	ds_send_reqdata.setColumn(nRow, "todd", ds_main_out.getColumn(0, "todd"));	
    	if(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd") != "-")
    		ds_send_reqdata.setColumn(nRow, "appdeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));
    }  
	ds_send_reqdata.setColumn(nRow, "ioflag", "O");
	ds_send_reqdata.setColumn(nRow, "pid", ds_main_cond.getColumn(0, "pid"));
	
	if(param == "T") {
		ds_send_reqdata.setColumn(nRow, "fromdd", ds_main_out.getColumn(0, "fromdd"));
    	ds_send_reqdata.setColumn(nRow, "todd", ds_main_out.getColumn(0, "todd"));	
    	ds_send_reqdata.setColumn(nRow, "anoinfo", "Y");
    }
	
	var userinfo = sysf_getUserInfo("dutplcecd");
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
	// KNUH_20101124_박성호_end
		ds_send_reqdata.setColumn(nRow, "orddeptcd", userinfo);
	}
	
	
  		
    var oParam = {};
		oParam.id       = "TRMRC03004";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetOutPatHistList";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_grd_outpat=outpathistlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03004";

	tranf_submit(oParam);

}

/**
 * @desc : 입원환자 이력조회
 *
 * @param :
 * @return:
 */
function fReqGetInPatHistList(param){
    ds_grd_inpat.clearData(); //model.removeNodeset("/root/main/midissinfo/emrapplist");
    ds_send_reqdata.clearData();
    var nRow = ds_send_reqdata.addRow();

    if(param == "Y") {
    	ds_send_reqdata.setColumn(nRow, "fromdd", ds_main_in.getColumn(0, "fromdd"));
    	ds_send_reqdata.setColumn(nRow, "todd", ds_main_in.getColumn(0, "todd"));	
    	if(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd") != "-")
    		ds_send_reqdata.setColumn(nRow, "appdeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));
    }    
	ds_send_reqdata.setColumn(nRow, "ioflag", "I");
	ds_send_reqdata.setColumn(nRow, "pid", ds_main_cond.getColumn(0, "pid"));
	
	if(param == "T") {
    	ds_send_reqdata.setColumn(nRow, "anoinfo", "Y");
    	ds_send_reqdata.setColumn(nRow, "fromdd", ds_main_in.getColumn(0, "fromdd"));
    	ds_send_reqdata.setColumn(nRow, "todd", ds_main_in.getColumn(0, "todd"));	
    }
    
	var userinfo = sysf_getUserInfo("dutplcecd");
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기

	if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
	// KNUH_20101124_박성호_end
		ds_send_reqdata.setColumn(nRow, "orddeptcd", userinfo);
	}
   
	var oParam = {};
		oParam.id       = "TRMRC03005";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetInPatHistList";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_grd_inapplist=inpathistlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03005";

	tranf_submit(oParam);
	
    if(arErrorCode.pop("TRMRC03005") > -1){
    
		swc_prof.in.grd_inapplist.setCellProperty("body", 0, "edittype", "none");
//     	for(var i = 0; i < ds_grd_inapplist.rowcount; i++) {
// 			//var chk = grd_inapplist.valueMatrix(i, grd_inapplist.colRef("chk"));
// 			grd_inapplist.isReadOnly(i, 0) = true;
// 		}
    }
}

function fReqGetPaperYN(param){
sysf_trace("***** fReqGetPaperYN("+param+") *****");
	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(nRow, "pid", ds_main_cond.getColumn(0, "pid"));
	if( !utlf_isNull(ds_main_cond.getColumn(0, "orddeptcd")) )
		ds_send_reqdata.setColumn(nRow, "orddeptcd", ds_main_cond.getColumn(0, "orddeptcd"));
		
	//종이차트 유무 체크 용 신청과 코드 전달 노드 셋팅
	if( !utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd")) )
		ds_send_reqdata.setColumn(nRow, "orddeptcd2", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));
	
	var userinfo = sysf_getUserInfo("dutplcecd");
   
	var age = ds_main_cond.getColumn(0, "age");
   
	// 사본발행 증명서 병원별 주소 가져오기
	var hardcdno = "1006";	// 사본발행 병원별 주소
	ds_send_reqdata.setColumn(nRow, "hardcdno", hardcdno);
	

	
	var oParam = {};
		oParam.id       = "TRMRF03104";
		oParam.service  = "formmngtapp.SetIndxMngt";
		oParam.method   = "reqGetEmrInfoTeamCd";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_hardcdlist=hardcdlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRF03104";

	tranf_submit(oParam);
	

  //var hardcdlistNode = findNodeset(model, "/root/main/hardcdlist");
    
	var HospAddr = "";

	for(var idx = 0; idx < ds_main_hardcdlist.rowcount; idx++)
	{
		if(ds_main_hardcdlist.getColumn(idx, "trgtcd") == "ADDR")
			HospAddr = ds_main_hardcdlist.getColumn(idx, "trgtcdnm");
	}


	var oParam = {};
		oParam.id       = "TRMRC03019";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetPaperChrtYN";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_paper=paper";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03019";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRMRC03019") > -1){
		//default null
		dsf_setDefaultVal(ds_main_paper, "all");
	
		ds_main_paper.setColumn(0, "addr", HospAddr);      
		var paperyn = ds_main_paper.getColumn(0, "paperyn");
		if(paperyn == "무") {
			swc_prof.out.rdo_outchrtflag.enable = false;
		} else if(paperyn == "유") {
			swc_prof.out.rdo_outchrtflag.enable = true;
		}

		if( param != "HIST") {
			var deathyn = ds_main_paper.getColumn(0, "deathyn");
			if(deathyn == "Y") {
				rdo_appmanflag.value = "";
			} else if(deathyn == "N") {
				if(age < parseInt(14)) {
					rdo_appmanflag.value = "2";
					ds_main_appinfo_copyinfo.setColumn(0, "trustyn", "Y");
				} else {
					rdo_appmanflag.value = "1";
				}
			}
		}

		var userinfo = sysf_getUserInfo("dutplcecd");

		// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기

		//if(userinfo == "3230000000"){
		if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
		{
		// KNUH_20101124_박성호_end
			ds_main_cond.setColumn(0, "roomcd", ds_main_paper.getColumn(0, "roomcd"));
			ds_main_cond.setColumn(0, "dschdd", ds_main_paper.getColumn(0, "dschdd"));
			ds_main_cond.setColumn(0, "orddeptnm", ds_main_paper.getColumn(0, "deptnm"));
			ds_main_cond.setColumn(0, "wardhospnm", ds_main_paper.getColumn(0, "wardhospnm"));
		}
	}
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 이전사본발행 내역 조회
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
/*
function fHistSearch()
{
    model.makeValue("/root/send/cond/pid",model.getValue("/root/temp/appinfo/patinfo/pid"));
        if(submit("TRMRC01201")){
        }   
    model.removeNodeset("/root/send/cond");
}
*/
/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 환자 회차별 정보 조회(입원)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
 /*
function fCopyPatInfoList()
{
     model.makeValue("/root/send/patinfo/pid",model.getValue("/root/temp/appinfo/patinfo/pid"));
     if(submit("TRMRC03202")){  
     }
     model.removeNodeset("/root/send/patinfo");
}
*/
 
/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 사본발행 목적 팝업 호출(사본발행신청 화면과 동일)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fIssGoalPopUp(){
sysf_trace("***** fIssGoalPopUp() *****");
	var sIssUsge = "";
	var sIssUsgeCnt = 0;
	var sIssGoalEtcYN = false;
	var sIssGoalEtc = "";
	var sIssGoalEtcCd = "";
	var sIssGoalCd = "";
	var sStndRow = 0;
    frmf_setParameter("SPMMR02200_multichkyn", "Y");
	frmf_modal("SPMMR02200", "SPMMR02200", null, null, null, null, null, null, null, null, null, null, "M");
	//ds_main_issusge dataset return
	
	//sIssUsge = model.getValue("/root/main/issusge");
	sIssUsgeCnt = ds_main_issusge.rowcount;
	if(sIssUsgeCnt > 0){
		for(var i=0; i<sIssUsgeCnt; i++){
			if(i != sIssUsgeCnt){
				if(!utlf_isNull(sIssGoalEtc)) sIssGoalEtc += ",";	
				if(!utlf_isNull(sIssGoalEtcCd)) sIssGoalEtcCd += ",";
			}
			
			sIssGoalEtc += ds_main_issusge.getColumn(i, 1);	
			sIssGoalCd = ds_main_issusge.getColumn(i, 0);	
			
			if(sIssGoalCd == "99"){
				sIssGoalEtcYN = true;
			}
			sIssGoalEtcCd += sIssGoalCd;
		}
		if(sIssGoalEtcYN == true){
			ipt_issgoaletc.enable = true;
		}else{
			ds_main_appinfo_copyinfo.setColumn(0, "issgoalcd","");             
			ipt_issgoaletc.enable = false;
		}
		if(sIssGoalEtcCd.indexOf("06") > -1){
			sysf_messageBox("직할병원용 : 주치의가 8개 직할 병원으로 이동하여 환자도 함께 전원 가기를 희망하는 경우 선택","E008");	
		} 
		ds_main_appinfo_copyinfo.setColumn(0, "issgoaletc", sIssGoalEtc);
		ds_main_appinfo_copyinfo.setColumn(0, "issgoaletccd", sIssGoalEtcCd);
		
		
	}
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 사본발행 기본정보 조회
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAppInfoSearch(){
 sysf_trace("***** fAppInfoSearch() *****");   
    //var hRow = grd_apphist.row - grd_apphist.fixedRows +1;
	try
	{
		var vdept = "";
		var hRow = ds_grd_apphist.rowposition;
		
		ds_send_search.clearData();
		var nRow = ds_send_search.addRow();
		
		if(hRow > -1){
		  ds_send_search.setColumn(nRow, "copyseqno", ds_grd_apphist.getColumn(hRow, "copyseqno"));
		  ds_send_search.setColumn(nRow, "pid", ds_grd_apphist.getColumn(hRow, "pid"));
		}
		
		var oParam = {};
			oParam.id       = "TRMRC03010";
			oParam.service  = "chrtmngtapp.CopyIssMngt";
			oParam.method   = "reqGetCopyIssInfo2";
			oParam.inds     = "req=ds_send_search";
			oParam.outds    = "ds_main_appinfo_copyinfo=copyinfo";
			oParam.async    = false;
			oParam.callback = "cf_TRMRC03010";

		tranf_submit(oParam);
    
		if (arErrorCode.pop("TRMRC03010") > -1){  // 사본발행기본정보, 저장된 서식정보조회 /root/main/appinfo/copyinfo
			
			for(var k = 0; k < ds_init_cmb_emrorddeptcd.rowcount; k++) {
				if(ds_main_appinfo_copyinfo.getColumn(0, "emrorddeptcd") == ds_init_cmb_emrorddeptcd.getColumn(k, "deptcd")){
					vdept = "Y";
				}
			}
			
			if(vdept == "Y") {
				ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd", ds_main_appinfo_copyinfo.getColumn(0, "emrorddeptcd"));
				appf_getOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "usernm", "asc", utlf_getCurrentDate(), "ds_init_cmb_orddrid");//해당 주치의
				ds_main_appinfo_copyinfo.setColumn(0, "appdrid", ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));
			}else {
				ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd", "");
				ds_main_appinfo_copyinfo.setColumn(0, "appdrid", "");
			}
			
		}
    
		btn_reappinfo.enable = true;
    
	}
	catch(e){ sysf_catchTrace(e); }
    
}

function fOutAppInfoSearch(){
sysf_trace("***** fOutAppInfoSearch() *****");

    var hRow = ds_grd_apphist.rowposition;
    ds_grd_outpat.clearData();
    
    ds_send_search.clearData();
    var nRow = ds_send_search.addRow();
    ds_send_search.setColumn(nRow, "copyseqno", ds_grd_apphist.getColumn(hRow, "copyseqno"));
    ds_send_search.setColumn(nRow, "pid", ds_grd_apphist.getColumn(hRow, "pid"));
    
    
    var oParam = {};
		oParam.id       = "TRMRC03011";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetCopyEmrOutAppList";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_grd_outpat=outpathistlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03011";

	tranf_submit(oParam);
    
    if (arErrorCode.pop("TRMRC03011") > -1)  // 사본발행기본정보, 저장된 서식정보조회 /root/main/appinfo/applist
    {   
    	for(var k = 0; k < ds_grd_outpat.rowcount; k++){
    		ds_grd_outpat.setColumn(k, "chk", "Y");
    		//sysf_trace(" k : "+ k);
    	}
    }
    

	btn_reappinfo.enable = true;
}

function fInAppInfoSearch(){
sysf_trace("***** fInAppInfoSearch() *****");

    var hRow = ds_grd_apphist.rowposition;
    
    
    ds_grd_inapplist.clearData();
    ds_send_search.clearData();
    var nRow =ds_send_search.addRow();
    
    ds_send_search.setColumn(nRow, "copyseqno", ds_grd_apphist.getColumn(hRow, "copyseqno"));
    ds_send_search.setColumn(nRow, "pid", ds_grd_apphist.getColumn(hRow, "pid"));
    
    var oParam = {};
		oParam.id       = "TRMRC03012";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetCopyEmrInAppList";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_grd_inapplist=inpathistlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03012";

	tranf_submit(oParam);
    
    if (arErrorCode.pop("TRMRC03012") > -1)  // 사본발행기본정보, 저장된 서식정보조회 /root/main/appinfo/applist
    {
    	for(var k = 0; k < ds_grd_inapplist.rowcount; k++)  
    		ds_grd_inapplist.setColumn(k, "chk", "Y");
    }
	//2012/02/29 Start
    //btn_save.disabled          = true;
    //btn_update.disabled        = false;
	//2012/02/29 End    
    btn_reappinfo.enable = true;
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 통합기록조회에서 받아오는 정보 함수
 * @param  :
 * @return : 
 * @---------------------------------------------------
 */
function fGetCopyInfo(copyparam)
{
	model.removeNodeset(" ");
    var copyArr = copyparam.split("▩");
   	var duplFlag = false;
    for(var i = 0; i <(copyArr.length-1); i++){
        var reckeyno = copyArr[i].split("▦")[15];
        var sFormcd = copyArr[i].split("▦")[16];
        var sFormnm = copyArr[i].split("▦")[8];
        var orddd =   copyArr[i].split("▦")[11];
        var ioflag =  copyArr[i].split("▦")[6];
        
        for(var rowcnt = 0; rowcnt < grd_outapplist.rows; rowcnt++){
            if((model.getValue("/root/temp/issinfo/emrapplist["+ rowcnt + "]/reckeyno") == reckeyno) && (model.getValue("/root/temp/issinfo/emrapplist["+ rowcnt + "]/formcd") == sFormcd)){
                duplFlag = true;
                break;
            } else {
                duplFlag = false;
            }
        }
        if(!(duplFlag)){                                                                                     
            grd_outapplist.addRow(false);                                                                
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/shtno"       ,copyArr[i].split("▦")[4]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/chrtflag"    ,copyArr[i].split("▦")[5]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/ioflag"      ,copyArr[i].split("▦")[6]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/dschdd"      ,copyArr[i].split("▦")[12]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/formnm"      ,copyArr[i].split("▦")[8]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/orddeptnm"   ,copyArr[i].split("▦")[9]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/orddeptcd"   ,copyArr[i].split("▦")[10]);
            if((ioflag=="O")||(ioflag=="E")){                                                           
                model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/orddd"   ,orddd);
            }else{                                                                                      
                model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/indd"    ,orddd);
            }                                                                                           
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/formrecdt"   ,copyArr[i].split("▦")[7]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/atdoctnm"    ,copyArr[i].split("▦")[13]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/atdoctid"    ,copyArr[i].split("▦")[14]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/reckeyno"    ,copyArr[i].split("▦")[15]);
            model.makeValue("/root/temp/issinfo/emrapplist["+grd_outapplist.row+"]/formcd"      ,copyArr[i].split("▦")[16]);
            duplFlag = false;
        }
    }
    grd_outapplist.colDisabled(grd_outapplist.colRef("chrtflag"))=true;
    grd_outapplist.colDisabled(grd_outapplist.colRef("ioflag"))=true;
    grd_outapplist.refresh();
}


// 외래 tab
function fClikOutTab() {
	var userinfo = sysf_getUserInfo("dutplcecd"); 
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	
	//if(userinfo != "3230000000"){
	if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
		swc_prof.tabindex = 0; 
		group1.visible = true;
		swc_prof.position2.height = "285";//270
	} 
	//else if(userinfo == "3230000000"){
	else if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
	// KNUH_20101124_박성호_end
		swc_prof.tabindex = 0; 
		group1.visible = true;
		swc_prof.position2.height = "363";//343
		swc_prof.out.grd_outpat.position2.height = "320";//310
		group1.position2.top = "680";
		caption24.position2.top = "785";
		
		caption18.position2.top = "785";
  		output1.position2.top = "785";
		
		txt_delivefact.position2.top = "802";
		txt_delivefact.position2.height = "75";
		btn_reappinfo.position2.top = "884";
		button3.position2.top = "884";
		btn_update.position2.top = "884";
		btn_save.position2.top = "884";
	}
}

// 입원 tab
function fClikInTab() {
	var userinfo = sysf_getUserInfo("dutplcecd"); 
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	
	//if(userinfo != "3230000000"){
	if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
		swc_prof.tabindex = 1; 
		group1.visible = false;
		swc_prof.position2.height = "379";//364
		swc_prof.in.grd_inapplist.position2.height = "161";
		
		swc_prof.in.caption10.position2.top = "184";
		swc_prof.in.grd_inpat.position2.top = "202";//200
		swc_prof.in.grd_inpat.position2.height = "160";
	} 
	else if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
	{
	//else if(userinfo == "3230000000"){
	// KNUH_20101124_박성호_end
		swc_prof.tabindex = 1; 
		group1.visible = false;

		swc_prof.position2.height = "457";//445
		swc_prof.in.grd_inapplist.position2.height = "200";
		
		swc_prof.in.caption10.position2.top = "225";
		swc_prof.in.grd_inpat.position2.top = "242";//240
		swc_prof.in.grd_inpat.position2.height = "200";
	}
}


 //  사본발행 신청내역 저장
function fBefCopySave(param)
{  
sysf_trace("***** fBefCopySave("+param+") *****");

    ds_send_savedata_copyinfo.clearData();
    ds_send_savedata_copyinfo.addRow();
    ds_send_savedata_emrapplist.clearData();
    ds_send_savedata_emrapplist.addRow();
    ds_send_savedata_otptinfo.clearData();
    ds_send_savedata_otptinfo.addRow();
    

    //2012/10/15 Start
    if(param=="UDT" && ds_grd_apphist.rowposition < 0){
   	 sysf_messageBox("수정할 사본발행 내역을 먼저 선택","I008");   
     return;
    }
    //2012/10/15 End
    
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"))){
        sysf_messageBox("진료과를 먼저 선택","I008");   
        return;
    }
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdrid"))){
        sysf_messageBox("신청의사를 선택","I008");     
        return;
    } 
	if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"))){
        rdo_appmanflag.setFocus();
        sysf_messageBox("사본발행 신청인을", "C001");
        return;
    }
    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "trustyn"))){
        rdo_trustyn.setFocus();
        sysf_messageBox("위임장/인감증명서 유무를", "C001");
        return;
    }
    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))){
        ipt_issgoalnm.setFocus();
        sysf_messageBox("사본발행목적을", "C001");
        return;
    }
    
    
    if(ds_grd_outpat.getCaseCount("chk == 'Y'") <  1) {
    	if(group1.chk_onlytest.value == "Y" || group1.chk_prcpinfo.value == "Y" || group1.chk_testinfo2.value == "Y" || group1.chk_testinfo3.value == "Y" || group1.chk_testinfo4.value == "Y" || group1.chk_testinfo5.value == "Y" || group1.chk_testinfo6.value == "Y" || group1.chk_testinfo7.value == "Y" || group1.chk_testinfo8.value == "Y") {
      		sysf_messageBox("외래 진료일을", "C002");
      		return;
      	}
    }
    
      //alert(333); return;
	// 외래 서식
	if(SAVE_COPY == 1) 
	{
		ds_grd_outapplist.clearData();
		
		// 외래 수진이력 체크된 노드를 가져옴.
		var rsrvinfoCnt = ds_grd_outpat.getCaseCount("chk == 'Y'");
	    
		if(rsrvinfoCnt > 0)  // 수진으로 신청
		{
			ds_send_search.clearData();
			ds_send_search.addRow();
	    	ds_send_search_rsrvinfo.clearData();
	    	
	    	ds_grd_outpat.filter("chk=='Y'");
	    	ds_send_search_rsrvinfo.copyData(ds_grd_outpat, true);
			ds_grd_outpat.filter("");
			ds_send_search_rsrvinfo.addColumn("chosflag", "string");
			ds_send_search_rsrvinfo.addColumn("chrtflag", "string");
			ds_send_search_rsrvinfo.addColumn("medirecno", "BIGDECIMAL");
			ds_send_search_rsrvinfo.addColumn("midindxseq", "BIGDECIMAL");
			ds_send_search_rsrvinfo.addColumn("supitemindxseq", "string");
			dsf_setDefaultVal(ds_send_search_rsrvinfo, "all");
			for(var i=0; i<ds_send_search_rsrvinfo.rowcount; i++)
				ds_send_search_rsrvinfo.setColumn(i, "chosflag", ds_send_search_rsrvinfo.getColumn(i, "ordtype"));
	    	
    	
	    	OUTCOPY_FLAG =  "Y"; // 외래기록 신청여부
	    	
			var onlytest = group1.chk_onlytest.value;  // 검사결과만  	
        
		  	if(onlytest == "Y") {
		  		ds_send_search.setColumn(0, "pid",  ds_main_cond.getColumn(0, "pid"));
			  	ds_send_search.setColumn(0, "onlytest", "Y");
			  	
			  	var midseq = "";
			  	if(group1.chk_testinfo2.value == "Y") { // 진단검사
					midseq += 11137 + ",";
				}
				
				if(group1.chk_testinfo3.value == "Y") { // 임상병리
					midseq += 11132 + ",";
				}
				
				if(group1.chk_testinfo4.value == "Y") {  // 기능검사
					midseq += 11135 + ",";
					ds_send_search.setColumn(0, "testinfo4", "Y");	
				} 
				
				if(group1.chk_testinfo5.value == "Y") { // 영상의학
					midseq += 11136 + ",";
					ds_send_search.setColumn(0, "testinfo5", "Y");	
				}
				
				if(group1.chk_testinfo6.value == "Y") { // 핵체외
					midseq += 18788 + ",";
				}
				
				if(group1.chk_testinfo7.value == "Y") {  // 내시경
					midseq += 11133 + ",";
					ds_send_search.setColumn(0, "testinfo7", "Y");	
				}
				
				if(group1.chk_testinfo8.value == "Y") {  // 미생물
					midseq += 19697 + ",";
				}
			  	ds_send_search.setColumn(0, "midseq", midseq.substring(0, midseq.length - 1));
			  } else {
					ds_send_search.setColumn(0, "pid",  ds_main_cond.getColumn(0, "pid"));
					ds_send_search.setColumn(0, "onlytest", "N");	
			  }
		
			  var oParam = {};
					oParam.id       = "TRMRC03024";
					oParam.service  = "chrtmngtapp.CopyIssMngt";
					oParam.method   = "reqGetAllCopyEmrInfo";
					oParam.inds     = "rsrvinfo=ds_send_search_rsrvinfo req=ds_send_search";
					oParam.outds    = "ds_main_emrinfo_emrlist=emrlist";
					oParam.async    = false;
					oParam.callback = "cf_TRMRC03024";

				tranf_submit(oParam);
			  
			  if(arErrorCode.pop("TRMRC03024") > -1) {
					//var NodeList = instance1.selectNodes("/root/main/emrinfo/emrlist");
					if(ds_main_emrinfo_emrlist.rowcount > 0) {
						ds_grd_outapplist.copyData(ds_main_emrinfo_emrlist);
						//setCSVToNode("/root/temp/issinfo", getNodeListCSV(NodeList), "emrlist");
					}
			  }
			//}
			
			//return;
			// 외래 검사
			if(group1.chk_testinfo.value == "Y") { // "전체" 체크박스가 선택되어 있는지 확인
				
				fAddTestList("0000000000");
				if(group1.chk_onlytest.value == "Y") { // 검사결과만 신청
					fAddTestList("T");
				}
				
			} else {
				if(group1.chk_prcpinfo.value == "Y") { // 처방기록
					fAddTestList("0800000636");
				} else {
					fDelTestList("0800000636");
				}
				
				if(group1.chk_testinfo2.value == "Y") { // 진단검사
					fAddTestList("0800004096");
				} else {
					fDelTestList("0800004096");
				}
				
				
				if(group1.chk_testinfo3.value == "Y") { // 임상병리
					fAddTestList("E");
				} else {
					fDelTestList("E");
				}
				
				if(group1.chk_testinfo4.value == "Y") {  // 기능검사
					fAddTestList("F");
				} else {
					fDelTestList("F");
				}		
				
				if(group1.chk_testinfo5.value == "Y") { // 영상의학
					fAddTestList("0800004099");
				} else {
					fDelTestList("0800004099");
				}
				
				if(group1.chk_testinfo6.value == "Y") { // 핵체외
					fAddTestList("0800004098");
				} else {
					fDelTestList("0800004098");
				}
				
				if(group1.chk_testinfo7.value == "Y") {  // 내시경
					fAddTestList("I");
				} else {
					fDelTestList("I");
				} 
				
				if(group1.chk_testinfo8.value == "Y") {  // 미생물
					fAddTestList("0800004097");
				} else {
					fDelTestList("0800004097");
				}
				
				if(group1.chk_onlytest.value == "Y") { // 검사결과만 신청
					fAddTestList("T");
				} else {
					fDelTestList("T");
				}
			}
			
			ds_main_cond.setColumn(0, "emrordflag", "O");
		}
	
		//return;
		// 종이차트
		fPaperList();
	} // end of 외래서식
	//debugger;
	//alert(457384); return;
    // 입원 서식 copy + 검사결과
    //fInEMRChrtListSelect();
    var inrsrvinfoCnt = ds_grd_inpat.getCaseCount("chk == 'Y'");
    if(inrsrvinfoCnt > 0) { // 수진으로 신청
    	INCOPY_FLAG = "Y";
    	
    	ds_send_search.clearData();
		ds_send_search.addRow();
		ds_send_search_rsrvinfo.clearData();
		
		ds_grd_outpat.filter("chk=='Y'");
		ds_send_search_rsrvinfo.copyData(ds_grd_outpat, true);
		ds_grd_outpat.filter("");
		ds_send_search_rsrvinfo.addColumn("chosflag", "string");
		ds_send_search_rsrvinfo.addColumn("chrtflag", "string");
		ds_send_search_rsrvinfo.addColumn("medirecno", "BIGDECIMAL");
		ds_send_search_rsrvinfo.addColumn("midindxseq", "BIGDECIMAL");
		ds_send_search_rsrvinfo.addColumn("supitemindxseq", "string");
		dsf_setDefaultVal(ds_send_search_rsrvinfo, "all");
		for(var i=0; i<ds_send_search_rsrvinfo.rowcount; i++)
			ds_send_search_rsrvinfo.setColumn(i, "chosflag", ds_send_search_rsrvinfo.getColumn(i, "ordtype"));
	    	
    	
    	ds_send_search.setColumn(0, "onlytest", "N");
	    var inmidseq = "";
	    var inimgseq = "";
	    
    	for(var x = 0; x < ds_grd_inpat.rowcount; x++){
    		if(ds_grd_inpat.getColumn(x, "chk") == "Y") {
    			if(!utlf_isNull(ds_grd_inpat.getColumn(x, "midindxseq"))) {
					inmidseq += ds_grd_inpat.getColumn(x, "midindxseq") + ",";
				}
				if(!utlf_isNull(ds_grd_inpat.getColumn(x, "formcd"))) {
					inimgseq += "'" + ds_grd_inpat.getColumn(x, "formcd") + "'" + ",";
				}
				
				if(ds_grd_inpat.getColumn(x, "midindxseq") == "11135") { // 기능
					ds_send_search.setColumn(0, "testinfo4", "Y");	
				}
				if(ds_grd_inpat.getColumn(x, "midindxseq") == "11136") { // 영상
					ds_send_search.setColumn(0, "testinfo5", "Y");	
				}
				if(ds_grd_inpat.getColumn(x, "midindxseq") == "11133") { // 내시경
					ds_send_search.setColumn(0, "testinfo7", "Y");	
				}
			}
		}
		ds_send_search.setColumn(0, "pid",  ds_main_cond.getColumn(0, "pid"));
    	ds_send_search.setColumn(0, "midseq",  inmidseq.substring(0, inmidseq.length - 1));
    	ds_send_search.setColumn(0, "imgseq",  inimgseq.substring(0, inimgseq.length - 1));
    	
    	sysf_trace(ds_send_search_rsrvinfo.saveXML());
    	sysf_trace(ds_send_search.saveXML());
    	
    	 var oParam = {};
			oParam.id       = "TRMRC03024";
			oParam.service  = "chrtmngtapp.CopyIssMngt";
			oParam.method   = "reqGetAllCopyEmrInfo";
			oParam.inds     = "rsrvinfo=ds_send_search_rsrvinfo req=ds_send_search";
			oParam.outds    = "ds_main_emrinfo_emrlist=emrlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMRC03024";

		tranf_submit(oParam);
    	
    	if(arErrorCode.pop("TRMRC03024") > -1) {
	    	//var NodeList = instance1.selectNodes("/root/main/emrinfo/emrlist");
			if(ds_main_emrinfo_emrlist.rowcount > 0) {
				ds_grd_outapplist.appendData(ds_main_emrinfo_emrlist, true, false);
				//copyNodeListType("/root/temp/issinfo", "/root/main/emrinfo/emrlist", "after", model, model);
				
				//var tmpNodeList = instance1.selectNodes("/root/temp/issinfo/emrlist");
				for(var a = 0; a < ds_grd_outapplist.rowcount; a++)
				{
					if (ds_grd_outapplist.getColumn(a, "status") == "i")
					{
						var arrPostion = new Array();
						arrPostion[0] = a;
						grdf_setStatus(grd_outapplist, "I", arrPostion);
						//grd_outapplist.addStatus(a +  1, "insert");
					}
				}						
			}
	    }

	    if(!utlf_isNull(ds_main_cond.getColumn(0, "emrordflag"))) {
	    	ds_main_cond.setColumn(0, "emrordflag", "OI");
	    } else {
	    	ds_main_cond.setColumn(0, "emrordflag", "I");
	    }
  	}
    
	//alert(4953); return;
// 	var outList = model.instance1.selectNodes("/root/main/outpathistlist/outpathistlist"); // 입원회차
// 	var totalList = model.instance1.selectNodes("/root/main/inpathistlist/inpathistlist"); // 입원회차
//  var chkList = model.instance1.selectNodes("/root/main/inpathistlist/inpathistlist[chk = 'Y']"); // 저장된 입원회차
// 	var midList = model.instance1.selectNodes("/root/main/midissinfo/emrapplist[chk = 'Y']");  // 중분류서식

	// ds_grd_outpat
	// ds_grd_inapplist
	var chkListCnt = ds_grd_inapplist.getCaseCount("chk=='Y'");
	var midListCnt = ds_grd_inpat.getCaseCount("chk=='Y'");
	
	if(param != "UDT")
	{
  		if(midListCnt > 0 && ds_grd_inapplist.rowcount != 0 && (ds_grd_inapplist.rowcount != chkListCnt)) {
  			SAVE_ORDDD = ds_grd_inpat.getColumn(0, "orddd");
  			////////////////////////////////////////////////////////////////////////////////////////////////////////
  			var midformcd = "";
  			var midreckeyno = "";
  			var comporddd = "";
  			var compcretno = "";
  			var compioflag = "";
  			var comporddeptcd = "";
  			//var compNodeSet = instance1.selectNodes("/root/temp/issinfo/emrlist");//ds_grd_outapplist
  			for(var j = 0; j < ds_grd_inpat.rowcount; j++ )
  			{
  				var chk = ds_grd_inpat.getColumn(j, "chk");
  				var emrflag = ds_grd_inpat.getColumn(j, "emrflag");
  				
  				if (emrflag == "E")
  				{
  				    var midindxseq =  ds_grd_inpat.getColumn(j, "midindxseq");
  				    if(chk =="Y")
  				    {
  				      var subNode = "";
  				      if(!utlf_isNull(ds_grd_outapplist.lookup("midindxseq", midindxseq, "midindxseq")))
  				      {
							compmidindxseq = ds_grd_outapplist.lookup("midindxseq", midindxseq, "midindxseq");
							if(midindxseq == compmidindxseq){
								for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
									//subNode = compNodeSet.item(i);
									if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "midindxseq") == midindxseq) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))
									{
										ds_grd_outapplist.setColumn(i, "status", "i");
									}
								}	
							}
    				  }
  				    }
  				}
  				else
  				{
      				var formcd   =  ds_grd_inpat.getColumn(j, "supitemindxseq");
      				var reckeyno =  ds_grd_inpat.getColumn(j, "midindxseq");
      				if(chk =="Y"){
      					var subNode = "";
      					compformcd = ds_grd_outapplist.lookup("formcd", formcd, "formcd");
      					compreckeyno = ds_grd_outapplist.lookup("reckeyno", reckeyno, "reckeyno");
      					if((formcd == compformcd)&&(reckeyno == compreckeyno)){
    						for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
    							//subNode = compNodeSet.item(i);
    							if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "formcd") == compformcd && ds_grd_outapplist.getColumn(i, "reckeyno") == compreckeyno) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))
    							{
    								ds_grd_outapplist.setColumn(i, "status", "i");
    							}
    						}
    					}
      				}
      			}
  			}
  			///////////////////////////////////////////////////////////////////////////////////////////////////////
       		ret =sysf_messageBox("신청서식이 저장되었습니다. 다른 회차도 신청", "Q014");
       		if(ret == "6") {
       			if(!utlf_isNull(SAVE_ORDDD)) {
					var nidx = ds_grd_inapplist.findRow("indd=='"+ SAVE_ORDDD +"'");
					ds_grd_inapplist.setColumn(nidx, "chk", "Y");
				}
       			SAVE_COPY ++;
       			ds_grd_emrapplist.clearData();
       		} else {
       			if(!utlf_isNull(SAVE_ORDDD)) {
					var nidx = ds_grd_inapplist.findRow("indd=='"+ SAVE_ORDDD +"'");
					ds_grd_inapplist.setColumn(nidx, "chk", "Y");
				}
       			//alert(3333); return;

				fCopySave();
				////////////////////////////////////////////
				// 2010.06.08. 후인증관련 사본발행 블러킹 //
				////////////////////////////////////////////
				var aftcertdryn = ds_send_aftcert.getColumn(0, "aftcertdryn");// model.getValue("/root/send/aftcert/aftcertdryn"); // 후인증 대상 의사 여부
				if (aftcertdryn == "Y") {
					return;
				}
				////////////////////////////////////////////
       			
       			sysf_messageBox("사본발행 신청이", "I002");
       			
       			// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
       			var dutplcecd = sysf_getUserInfo("dutplcecd");
       			
       			if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
       			{
       			// KNUH_20101124_박성호_end
       				opener.frmf_setParameter("SMMRC03000_appYN", "Y");
       				var oprnerId = opener.frmf_getScreenID();
  			        if(oprnerId == "SMMRC02200") opener.fGetCopyInfoHistSearch();
  			        frmf_clearParameter("SMMRC03000_appYN");
  			        
  			        var closeyn = ds_tmphdcd.getColumn(0, "hardcd");
  			        if (utlf_isNull(closeyn))
  			        {
  			            closeyn = "N";
  			        }
  			        
  			        if (closeyn == "Y")
  			        {
		                //20111017
  			            fReqGetBfCopyIssHistList(ipt_pid.text);
  			            //20111017 
  			        }
  			        else
    		        {
    		            fReqGetBfCopyIssHistList(ipt_pid.text);	
    		        }
  			        
       			} else {
       			    this.close();
  	     		}
       		}
    } 
    else 
    {
   		if(ds_grd_inapplist.rowcount > 0) { // 입원
     		if(!utlf_isNull(SAVE_ORDDD)){
				var nidx = ds_grd_inapplist.findRow("indd == '"+ SAVE_ORDDD +"'");
				ds_grd_inapplist.setColumn(nidx, "chk", "Y");
			}
			
     		fCopySave();
			////////////////////////////////////////////
			// 2010.06.08. 후인증관련 사본발행 블러킹 //
			////////////////////////////////////////////
			var aftcertdryn = ds_send_aftcert.getColumn(0, "aftcertdryn"); // 후인증 대상 의사 여부
			if (aftcertdryn == "Y") {
				return;
			}
			////////////////////////////////////////////
     		
     		sysf_messageBox("사본발행 신청이", "I002");
     		
     		// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
     		var dutplcecd = sysf_getUserInfo("dutplcecd");
   			if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
   			{
   			// KNUH_20101124_박성호_end
   				opener.frmf_setParameter("SMMRC03000_appYN", "Y");
   				var oprnerId = opener.frmf_getScreenID();
      		    if(oprnerId == "SMMRC02200") opener.fGetCopyInfoHistSearch();
      		    frmf_clearParameter("SMMRC03000_appYN");
      		    
      		    var closeyn = ds_tmphdcd.getColumn(0, "hardcd");
		        if (utlf_isNull(closeyn))
		        {
		            closeyn = "N";
		        }
		        
		        if (closeyn == "Y")
		        {
					//20111017
					fReqGetBfCopyIssHistList(ipt_pid.text);
					//20111017 
		        }
		        else
		        {
		            fReqGetBfCopyIssHistList(ipt_pid.text);	
		        }
   			} else {
   			    this.close();
     		}
   		} 
     	else {
     	    
     		fCopySave();
			////////////////////////////////////////////
			// 2010.06.08. 후인증관련 사본발행 블러킹 //
			////////////////////////////////////////////
			var aftcertdryn = ds_send_aftcert.getColumn(0, "aftcertdryn"); // 후인증 대상 의사 여부
			if (aftcertdryn == "Y") {
				return;
			}
			////////////////////////////////////////////

			sysf_messageBox("사본발행 신청이", "I002");
     		
     		// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
     		var dutplcecd = sysf_getUserInfo("dutplcecd");
     		
     		if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
     		{
     		// KNUH_20101124_박성호_end
     		
         		var closeyn = ds_tmphdcd.getColumn(0, "hardcd");
    	        if (utlf_isNull(closeyn))
    	        {
    	            closeyn = "N";
    	        }
    	        
    	        if (closeyn == "Y")
    	        {
					//20111017
					fReqGetBfCopyIssHistList(ipt_pid.text);
					//20111017 
    	        }
    	        else
		        {
		            fReqGetBfCopyIssHistList(ipt_pid.text);	
		        }

    	    }
     		else
     		{
     		    this.close();
     		}

     	}
   	}
  }   	//return;
  else
  {
    fCopySave("UPT");
  }
  //2012/03/12 Start 이전 사본발행 목적을 새로 클릭 하지 않더라도 증명서 및 승낙서가 발급될수 있도록 수정
	for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
		if(ds_temp_hardcd2.getColumn(i, "hardcd")!=sysf_getUserInfo("dutplceinstcd")){
		  	var goal1_cd=ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd"); // 사본신청내역 수정 전 발급목적 코드
		  	var goal1_nm=ds_main_appinfo_copyinfo.getColumn(0, "issgoalnm"); // 사본신청내역 수정 전 발급목적 이름
		  	var goal2_cd=ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"); // 사본신청내역 수정 후 발급목적 코드
		  	var goal2_nm=ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"); // 사본신청내역 수정 후 발급목적 이름
		  	
		  	if(goal1_cd!=goal2_cd && goal1_nm!=goal2_nm){ // 수정전과 수정후가 동일하지 않을 경우
			  	ds_main_appinfo_copyinfo.setColumn(0, "issgoalcd", goal2_cd);
			  	ds_main_appinfo_copyinfo.setColumn(0, "issgoalnm", goal2_nm);
		  	}
		}
	}
  //2012/03/12 End
}


// 사본 저장
function fCopySave(param) {
sysf_trace("***** fCopySave("+param+") *****");

	////////////////////////////////////////////
	// 2010.06.08. 후인증관련 사본발행 블러킹 //
	////////////////////////////////////////////
	ds_send_aftcert.setColumn(0, "aftcertdryn", "N");								// 후인증 대상 의사 여부

	// 외래 - 처방기록 포함 체크인 경우
	var prcpInfoYN = ds_main_otherinfo.getColumn(0, "prcpinfo");
	if (utlf_isNull(prcpInfoYN)) { prcpInfoYN = "N"; }
	// 입원 - 중분류서식 (의사지시기록) 체크인 경우
	var cntMidPrcp = 0;
	var cntMidList = ds_grd_inpat.rowcount;

	for (var i=0; i < cntMidList ; i++) {
		var chk        = ds_grd_inpat.getColumn(i, "chk");
		var midindxseq = ds_grd_inpat.getColumn(i, "midindxseq");
		if (midindxseq == '20337' && chk == "Y") {
			cntMidPrcp = cntMidPrcp + 1;
		}
	}

	if (prcpInfoYN == "Y" || cntMidPrcp > 0) {

		//alert("외래 처방기록 포함 여부 => " + prcpInfoYN + " , 입원 중분류서식(의사지시기록) 선택 건수 => " + cntMidPrcp);

		var userkind  = "E";							// 의사 : "D" , 그외 : "E"
		var jobkindcd = sysf_getUserInfo("jobkindcd");
		if(jobkindcd.substring(0, 2) == "03") {			// 의사일 경우 블락킹 (2010.06.14 변경)
			userkind  = "D";
		} 

		var pid    = "";
		var orddd  = "";
		var cretno = "";

		if (param == "UPT") {	// 수정모드
			pid    = ds_main_appinfo_copyinfo.getColumn(0, "pid");
			orddd  = ds_main_appinfo_copyinfo.getColumn(0, "orddd");
			cretno = ds_main_appinfo_copyinfo.getColumn(0, "cretno");
		} else {
			pid    = ds_main_cond.getColumn(0, "pid");
			orddd  = ds_main_cond.getColumn(0, "orddd");
			cretno = ds_main_cond.getColumn(0, "cretno");
		}

		if (utlf_isNull(cretno)) {		// 수진정보가 없으면..
			pid    = ds_main_result_pathistlist.getColumn(0, "pid");
			orddd  = ds_main_result_pathistlist.getColumn(0, "orddd");
			cretno = ds_main_result_pathistlist.getColumn(0, "cretno");
		}

		ds_send_aftcert.setColumn(0, "pid"	, pid);
		ds_send_aftcert.setColumn(0, "orddd"	, orddd);
		ds_send_aftcert.setColumn(0, "cretno"	, cretno);

		ds_send_aftcert.setColumn(0, "userdeptcd" , sysf_getUserInfo("dutplcecd"));		// 사용자 소속과
		ds_send_aftcert.setColumn(0, "userkind"   , userkind);						// 의사 : "D" , 그외 : "E"
		ds_send_aftcert.setColumn(0, "jobkindcd"  , jobkindcd);						// 직종코드

		var oParam = {};
			oParam.id       = "TRMMO02705";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqGetPatAftPrcpChk";
			oParam.inds     = "req=ds_send_aftcert";
			oParam.outds    = "ds_hidden_aftcert=aftcert";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO02705";

		tranf_submit(oParam);

		if (parseInt(ds_hidden_aftcert.getColumn(0, "aftcertcnt")) > 0 ) {
			if (userkind == "E") {
				frmf_setParameter("aftcert_pid", pid);
			}
			sysf_messageBox("후인증 미비 내역이 존재합니다. 인증 후 진행하시기 바랍니다.", "C");
			frmf_modal("SMMMO02700", "SMMMO02700", null, null, null, null, null, null, null, null, null, null, "M");

			if(userkind == "D") { // 의사일 경우 블락킹 (2010.06.14 변경)
				ds_send_aftcert.setColumn(0, "aftcertdryn", "Y"); // 후인증 대상 의사 여부
				return;
			}
		}
	}
	////////////////////////////////////////////
	// 2010.06.08. 후인증관련 사본발행 블러킹 //
	////////////////////////////////////////////

	if(param == "UPT") {  // 수정모드

		ds_send_savedata_copyinfo.clearData();
		ds_send_savedata_copyinfo.addRow();
		ds_send_savedata_emrapplist.clearData();
		ds_send_savedata_emrapplist.addRow();
		ds_send_savedata_otptinfo.clearData();
		ds_send_savedata_otptinfo.addRow();
		
	    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"))){
	        sysf_messageBox("진료과를 먼저 선택","I008");   
	        return;
	    }
	    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdrid"))){
	        sysf_messageBox("신청의사를 선택","I008");     
	        return;
	    }
	    
		if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"))){
	        rdo_appmanflag.setFocus();
	        sysf_messageBox("사본발행 신청인을", "C001");
	        return;
	    }
	
	    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "trustyn"))){
	        rdo_trustyn.setFocus();
	        sysf_messageBox("위임장/인감증명서 유무를", "C001");
	        return;
	    }
	
	    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))){
	        ipt_issgoalnm.setFocus();
	        sysf_messageBox("사본발행목적을", "C001");
	        return;
	    }
	    
	    // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	    var dutplcecd = sysf_getUserInfo("dutplcecd");
	    if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
	    {
	    // KNUH_20101124_박성호_end
		    if(!utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issno"))) {  // 발행번호가 있으면
		    	sysf_messageBox("사본이 발행되어 수정할 수 없습니다. 재신청", "I008");
		    	return;
		    }
		 }
	    
	}
	
	// 신청부서 1부 default
	if (ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == "0"|| utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies")) ){
		ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", "1" );
	}
	else
	{
    	ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") );
    }
	
	    // 신규일 때
	    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "status")))
	    {
          //if(model.getValue("/root/temp/appinfo/patinfo/cretno") == ""){
          if(utlf_isNull(ds_main_cond.getColumn(0, "cretno")))
          {
              ds_send_savedata_otptinfo.clearData();
              ds_send_savedata_otptinfo.addRow();
              
              ds_send_savedata_otptinfo.setColumn(0, "otpt_flag"		, "I");	// 구분자
              ds_send_savedata_otptinfo.setColumn(0, "otpt_pid"			, ds_main_cond.getColumn(0, "pid"));	// 등록번호
              ds_send_savedata_otptinfo.setColumn(0, "otpt_orddd"		, utlf_getCurrentDate());	// 진료일자
              ds_send_savedata_otptinfo.setColumn(0, "otpt_orddeptcd"	, ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	// 진료과
              ds_send_savedata_otptinfo.setColumn(0, "otpt_orddrid"		, ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));	// 진료의사
              ds_send_savedata_otptinfo.setColumn(0, "otpt_ordtm"		, utlf_getCurrentTime());	// 진료시간
              ds_send_savedata_otptinfo.setColumn(0, "otpt_rsrvflag"	, "4");	// 예약구분
              ds_send_savedata_otptinfo.setColumn(0, "otpt_instcd"		, sysf_getUserInfo("dutplceinstcd"));	// 기관코드
              ds_send_savedata_otptinfo.setColumn(0, "otpt_remfact"		, "");	// 참고사항
              ds_send_savedata_otptinfo.setColumn(0, "sess_userid"		, sysf_getUserInfo("userid"));	// 사용자ID	
              ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtestmyn", "N"); // 진찰료산정여부
              ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtpostyn", "Y"); // 진찰료후불여부
              ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtfreeresn", "10"); // 진찰료미산정사유
          }
          ds_send_savedata_copyinfo.setColumn(0, "status", "i");
          ds_send_savedata_copyinfo.setColumn(0, "pid"           ,ds_main_cond.getColumn(0, "pid"));
          ds_send_savedata_copyinfo.setColumn(0, "appdd"         ,utlf_getCurrentDate());
          
          if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9")
          {
	            ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
	            ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,ipt_appmannm.text);
	            //ds_send_savedata_copyinfo.setColumn(0, "appmanetc"     ,ipt_appmannm.currentText);
          }
          else
          {
	            ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
	            ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,rdo_appmanflag.text);
          }
          ds_send_savedata_copyinfo.setColumn(0, "trustyn"       ,ds_main_appinfo_copyinfo.getColumn(0, "trustyn"));
          
          if(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd") == "99")	// 사본발행목적이 기타일 경우
          {
            ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" , ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoaletcnm" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
          }
          else
          {
            ds_send_savedata_copyinfo.setColumn(0, "issgoaletc"   ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))
            ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
            ds_send_savedata_copyinfo.setColumn(0, "issgoaletcnm" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
          }
          ds_send_savedata_copyinfo.setColumn(0, "delivefact"    ,ds_main_appinfo_copyinfo.getColumn(0, "delivefact"));
          
          if((ds_main_cond.getColumn(0, "ioflag")=="O")||(ds_main_cond.getColumn(0, "ioflag")=="S"))
          {
                ds_send_savedata_copyinfo.setColumn(0, "orddd", ds_main_cond.getColumn(0, "orddd"));
          }
          else
          {
              ds_send_savedata_copyinfo.setColumn(0, "orddd", ds_main_cond.getColumn(0, "orddd"));
          }
          
          ds_send_savedata_copyinfo.setColumn(0, "cretno", ds_main_cond.getColumn(0, "cretno"));
          var userinfo = sysf_getUserInfo("dutplcecd"); 
          
          // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
          if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
          {
          // KNUH_20101124_박성호_end
            	 ds_send_savedata_copyinfo.setColumn(0, "emrordflag", ds_main_cond.getColumn(0, "emrordflag"));
          }else{
            	ds_send_savedata_copyinfo.setColumn(0, "emrordflag", ds_main_cond.getColumn(0, "emrordflag"));
          }
          
          ds_send_savedata_copyinfo.setColumn(0, "emrorddeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	// 진료과
          ds_send_savedata_copyinfo.setColumn(0, "appdeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	

		  ds_send_savedata_copyinfo.setColumn(0, "appdrid", ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));	// 진료의사
            

  			var midformcd = "";
  			var midreckeyno = "";
  			var comporddd = "";
  			var compcretno = "";
  			var compioflag = "";
  			var comporddeptcd = "";
  			//var compNodeSet = instance1.selectNodes("/root/temp/issinfo/emrlist");//ds_grd_outapplist
  			var histlength = ds_grd_inpat.rowcount;
  			if (histlength <= 0)
  			{
  			    for(var j = 0; j < ds_grd_outpat.rowcount; j++ ){
      				var chk = ds_grd_outpat.getColumn(j, "chk");
      				var orddd =  ds_grd_outpat.getColumn(j, "orddd");
  				    var cretno =  ds_grd_outpat.getColumn(j, "cretno");
  				    var ordtype =  ds_grd_outpat.getColumn(j, "ordtype");
  				    var orddeptcd =  ds_grd_outpat.getColumn(j, "orddeptcd");
  				    if(chk =="Y"){
  				        var subNode = "";
						for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
							//subNode = compNodeSet.item(i);
							if ((ds_grd_outapplist.getColumn(i, "orddd") == orddd &&
							   ds_grd_outapplist.getColumn(i, "cretno") == cretno && 
							   ds_grd_outapplist.getColumn(i, "ioflag") == ordtype &&
							   ds_grd_outapplist.getColumn(i, "orddeptcd") == orddeptcd) || (ds_grd_outapplist.getColumn(i, "chrtflag") == "P"))
							{
								var arrPostion = new Array();
								arrPostion[0] = i;
								grdf_setStatus(grd_outapplist, "I", arrPostion);
								//grd_outapplist.addStatus(i +  1, "insert");
							}
						}
  				    }
      			}
  			}
  			else
  			{
      			for(var j = 0; j < ds_grd_inpat.rowcount; j++ ){
      				var chk = ds_grd_inpat.getColumn(j, "chk");
      				
      				var emrflag =  ds_grd_inpat.getColumn(j, "emrflag");
      				
      				if (emrflag == "E")
      				{
      				    var midindxseq =  ds_grd_inpat.getColumn(j, "midindxseq");
      				    if(chk =="Y")
      				    {
    				        var subNode = "";
    				        if(!utlf_isNull(ds_grd_outapplist.lookup("midindxseq", midindxseq, "midindxseq")))
    				        {
    				        	compmidindxseq = ds_grd_outapplist.lookup("midindxseq", midindxseq, "midindxseq");
	          					if(midindxseq == compmidindxseq){
									for(var i = 0; i < ds_grd_outapplist.rowcount; i++)
									{	
										//subNode = compNodeSet.item(i);
										if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "midindxseq") == midindxseq) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))
										{
											var arrPostion = new Array();
											arrPostion[0] = i;
											grdf_setStatus(grd_outapplist, "I", arrPostion);
											//grd_outapplist.addStatus(i +  1, "insert");
										}
									}
								}
    				        }
      				    }
      				}
      				else
      				{
          				var formcd   =  ds_grd_inpat.getColumn(j, "supitemindxseq");
          				var reckeyno =  ds_grd_inpat.getColumn(j, "midindxseq");
          				if(chk =="Y"){
          					var subNode = "";
          					compformcd = ds_grd_outapplist.lookup("formcd", formcd, "formcd");
          					compreckeyno = ds_grd_outapplist.lookup("reckeyno", reckeyno, "reckeyno");
          					if((formcd == compformcd)&&(reckeyno == compreckeyno)){
        						for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
        							//subNode = compNodeSet.item(i);
        							if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "formcd") == compformcd && ds_grd_outapplist.getColumn(i, "reckeyno") == compreckeyno) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))  {
        								var arrPostion = new Array();
										arrPostion[0] = i;
        								grdf_setStatus(grd_outapplist, "I", arrPostion);
        								//grd_outapplist.addStatus(i +  1, "insert");
        							}
        						}
        					}
          				}
          			}
      			}
      		}
					
          //model.makeValue("/root/send/savedata/emrapplist"   ,grd_outapplist.getUpdateData());
            var oDsUpdate = grdf_getGridUpdateData(grd_outapplist);
            sysf_trace("***** grdf_getGridUpdateData(grd_outapplist) : " + oDsUpdate.saveXML());
			if( utlf_isNull(oDsUpdate) )	{
				sysf_trace("***** grdf_getGridUpdateData(grd_outapplist) data is NULL *****");
			}	    

			grdf_setStatusColumn(oDsUpdate, "status");
			ds_send_savedata_emrapplist.copyData(oDsUpdate, true);
			
			sysf_trace(ds_send_savedata_emrapplist.saveXML());
          
      }
      else if(ds_main_appinfo_copyinfo.getColumn(0, "status") == "u")
      {
          fInReCopyEMRChrtListSelect();
          
          if (ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == "0" || utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"))  )
          {
            ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", "1" );
          }
          else
            ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") );
            
          
		  if(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd") == "99")	// 사본발행목적이 기타일 경우
		  {
			ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoaletcnm" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));   
		  }
		  else
		  {
			ds_send_savedata_copyinfo.setColumn(0, "issgoaletc"   ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
		  }
		      
          if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9")
          {
                ds_send_savedata_copyinfo.setColumn(0, "appmanflag" ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
                ds_send_savedata_copyinfo.setColumn(0, "appmannm"  ,ipt_appmannm.text);
          }
          else
          {                                               
                ds_send_savedata_copyinfo.setColumn(0, "appmanflag" ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
                ds_send_savedata_copyinfo.setColumn(0, "appmannm"  ,rdo_appmanflag.text);
          }
          
          ds_send_savedata_copyinfo.setColumn(0, "delivefact"     ,ds_main_appinfo_copyinfo.getColumn(0, "delivefact"));
          ds_send_savedata_copyinfo.setColumn(0, "trustyn"        ,ds_main_appinfo_copyinfo.getColumn(0, "trustyn"));
          ds_send_savedata_copyinfo.setColumn(0, "copyseqno"      ,ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
          ds_send_savedata_copyinfo.setColumn(0, "emrordflag"     ,ds_main_appinfo_copyinfo.getColumn(0, "emrordflag"));
          ds_send_savedata_copyinfo.setColumn(0, "emrorddeptcd "  ,ds_main_appinfo_copyinfo.getColumn(0, "emrorddeptcd"));
          ds_send_savedata_copyinfo.setColumn(0, "status"         ,ds_main_appinfo_copyinfo.getColumn(0, "status"));
          ds_send_savedata_copyinfo.setColumn(0, "pid"            ,ds_main_cond.getColumn(0, "pid"));
          
          // KNUH_20101124_박성호_start_수정시 신청일자, 신청시간 기존꺼 가져오기
          ds_send_savedata_copyinfo.setColumn(0, "appdd"          ,ds_main_appinfo_copyinfo.getColumn(0, "appdd"));
          ds_send_savedata_copyinfo.setColumn(0, "apptm"          ,ds_main_appinfo_copyinfo.getColumn(0, "apptm"));
          // KNUH_20101124_박성호_end
          
          ds_send_savedata_copyinfo.setColumn(0, "orddd"          ,ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
          ds_send_savedata_copyinfo.setColumn(0, "cretno"         ,ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
          ds_send_savedata_copyinfo.setColumn(0, "appdeptcd"      ,ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));
          
          ds_send_savedata_copyinfo.setColumn(0, "appdrid"        ,ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));
          ds_send_savedata_copyinfo.setColumn(0, "copyseqno"      ,ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
          
          //grd_outapplist.clearStatus();  
          ds_grd_outapplist.applyChange();
          
  			var midformcd = "";
  			var midreckeyno = "";
  			var compformcd = "";
  			var compreckeyno = "";
  			//var compNodeSet = instance1.selectNodes("/root/temp/issinfo/emrlist");//ds_grd_outapplist
  			var histlength = ds_grd_inpat.rowcount;
  			
  			
  			if (histlength <= 0)
  			{
  			    for(var j = 0; j < ds_grd_outpat.rowcount; j++ ){
      				var chk = ds_grd_outpat.getColumn(j, "chk");
      				var orddd =  ds_grd_outpat.getColumn(j, "orddd");
  				    var cretno =  ds_grd_outpat.getColumn(j, "cretno");
  				    var ordtype =  ds_grd_outpat.getColumn(j, "ordtype");
  				    var orddeptcd =  ds_grd_outpat.getColumn(j, "orddeptcd");
  				    if(chk =="Y"){
  				        var subNode = "";
						for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
							//subNode = compNodeSet.item(i);
							if ((ds_grd_outapplist.getColumn(i, "orddd") == orddd &&
							   ds_grd_outapplist.getColumn(i, "cretno") == cretno && 
							   ds_grd_outapplist.getColumn(i, "ioflag") == ordtype &&
							   ds_grd_outapplist.getColumn(i, "orddeptcd") == orddeptcd) || (ds_grd_outapplist.getColumn(i, "chrtflag") == "P"))
							{
								var arrPostion = new Array();
								arrPostion[0] = i;
								grdf_setStatus(grd_outapplist, "U", arrPostion);
								//grd_outapplist.addStatus(i +  1, "update");
							}
						}
  				    }
      			}
  			}
  			else
  			{
      			for(var j = 0; j < ds_grd_inpat.rowcount; j++ ){
      				var chk = ds_grd_inpat.getColumn(j, "chk");
      				
      				var emrflag =  ds_grd_inpat.getColumn(j, "emrflag");
      				
      				if (emrflag == "E")
      				{
      				    var midindxseq =  ds_grd_inpat.getColumn(j, "midindxseq");
      				    if(chk =="Y"){
      				        var subNode = "";
          					compmidindxseq = ds_grd_outapplist.lookup("midindxseq", midindxseq, "midindxseq");
          					if(midindxseq == compmidindxseq){
        						for(var i = 0; i < ds_grd_outapplist.rowcount ; i++){	
        							//subNode = compNodeSet.item(i);
        							if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "midindxseq") == midindxseq) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))
        							{
										var arrPostion = new Array();
										arrPostion[0] = i;
										grdf_setStatus(grd_outapplist, "U", arrPostion);
        								//grd_outapplist.addStatus(i +  1, "update");
        							}
        						}
        					}
      				    }
      				}
      				else
      				{
          				var formcd   =  ds_grd_inpat.getColumn(j, "supitemindxseq");
          				var reckeyno =  ds_grd_inpat.getColumn(j, "midindxseq");
          				if(chk =="Y")
          				{
          					var subNode = "";
          					compformcd = ds_grd_outapplist.lookup("formcd", formcd, "formcd");
          					compreckeyno = ds_grd_outapplist.lookup("reckeyno", reckeyno, "reckeyno");
          					if((formcd == compformcd)&&(reckeyno == compreckeyno)){
        						for(var i = 0; i < ds_grd_outapplist.rowcount; i++){	
        							//subNode = compNodeSet.item(i);
        							if ((ds_grd_outapplist.getColumn(i, "chrtflag") == "P") || (ds_grd_outapplist.getColumn(i, "formcd") == compformcd && ds_grd_outapplist.getColumn(i, "reckeyno") == compreckeyno) || (ds_grd_outapplist.getColumn(i, "ioflag") =="O" || ds_grd_outapplist.getColumn(i, "ioflag") =="S"))
        							{
										var arrPostion = new Array();
										arrPostion[0] = i;
										grdf_setStatus(grd_outapplist, "U", arrPostion);
        								//grd_outapplist.addStatus(i +  1, "update");
        							}
        						}
        					}
          				}
          			}
      			}
      		}
  		 	
          //model.makeValue("/root/send/savedata/emrapplist"   ,grd_outapplist.getUpdateData());
            var oDsUpdate = grdf_getGridUpdateData(grd_outapplist);
			if( utlf_isNull(oDsUpdate) )	{
				sysf_trace("***** grdf_getGridUpdateData(grd_outapplist) data is NULL *****");
			}	    
			grdf_setStatusColumn(oDsUpdate, "status");
			ds_send_savedata_emrapplist.copyData(oDsUpdate, true);
			
			sysf_trace(ds_send_savedata_emrapplist.saveXML());
	    }
	//BMT사본신청여부 20100322
	ds_send_savedata_copyinfo.setColumn(0, "bmtappyn"      ,ds_main_otherinfo.getColumn(0, "bmtappyn"));
	
    ds_return.clearData();
    
    //2012/08/09 Start
    ds_send_savedata_copyinfo.setColumn(0, "memo"      ,ds_main_appinfo_copyinfo.getColumn(0, "memo"));
    //2012/08/09 end

    //2013/01/22 Start 기타 상세신청내역에 중간에 엔터키 삭제
	var temp_delivefact = ds_main_appinfo_copyinfo.getColumn(0, "delivefact").split("\n");
	var temp="";
	for(var i=0; i <temp_delivefact.length; i++){
		if(!utlf_isNull(temp_delivefact[i])){
			temp+=temp_delivefact[i]+"\n";
		}
	}
	ds_main_appinfo_copyinfo.setColumn(0, "delivefact", temp);
	ds_send_savedata_copyinfo.setColumn(0, "delivefact", temp);
	//2013/01/22 End

	// default value setting
	dsf_setDefaultVal(ds_send_savedata_copyinfo, "emrappcopies:0,cretno:0,reappyn:N");
	dsf_setDefaultVal(ds_send_savedata_emrapplist, "reckeyno:0,chrtseqno:0");
	
	sysf_trace(ds_send_savedata_copyinfo.saveXML());
	sysf_trace(ds_send_savedata_emrapplist.saveXML());
	sysf_trace(ds_send_savedata_otptinfo.saveXML());
	sysf_trace("***** TXMRC03005 *****");
	
	var oParam = {};
		oParam.id       = "TXMRC03005";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqExeCopyIssInfo2";
		oParam.inds     = "reqcopyinfo=ds_send_savedata_copyinfo reqemrapplist=ds_send_savedata_emrapplist reqotptinfo=ds_send_savedata_otptinfo";
		oParam.outds    = "ds_return=return";
		oParam.async    = false;
		oParam.callback = "cf_TXMRC03005";

	tranf_submit(oParam);

    if(arErrorCode.pop("TXMRC03005") > -1)
    {     	
     	if(param == "UPT") {  // 수정모드
            
            sysf_messageBox("수정이", "I002");
            
            //// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
     		var dutplcecd = sysf_getUserInfo("dutplcecd");
     		if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
     		// KNUH_20101124_박성호_end
     		{
    			fReqGetBfCopyIssHistList(ipt_pid.text);	
    	    }
    	    else
    	    {
     		    this.close();
     		}
     		
     		return;
     	}
    }
    else
    {
       sysf_messageBox("저장을","E009");
       return false;
    }
}


//  사본발행 수가입력시 부수만큼 신청내역 insert
function fCopyReSave()
{   
sysf_trace("***** fCopyReSave() *****");
    // 입원 서식
    for(var i = 0; i < ds_grd_inpat.rowcount; i++){  	
  		var nRow = ds_grd_outapplist.addRow();
        ds_grd_outapplist.setColumn(nRow, "formcd"   ,ds_grd_emrapplist.getColumn(i, "formcd"));
        ds_grd_outapplist.setColumn(nRow, "chrtflag" ,ds_grd_emrapplist.getColumn(i, "chrtflag"));
        ds_grd_outapplist.setColumn(nRow, "reckeyno" ,ds_grd_emrapplist.getColumn(i, "reckeyno"));
        ds_grd_outapplist.setColumn(nRow, "ioflag"	 , "I");
        ds_grd_outapplist.setColumn(nRow, "indd"     ,ds_grd_emrapplist.getColumn(i, "orddd"));
        ds_grd_outapplist.setColumn(nRow, "orddd"    ,ds_grd_emrapplist.getColumn(i, "orddd"));
        ds_grd_outapplist.setColumn(nRow, "pid"      ,ds_grd_emrapplist.getColumn(i, "pid"));
        ds_grd_outapplist.setColumn(nRow, "cretno"   ,ds_grd_emrapplist.getColumn(i, "cretno"));
        ds_grd_outapplist.setColumn(nRow, "orddeptcd",ds_grd_emrapplist.getColumn(i, "orddeptcd"));
        ds_grd_outapplist.setColumn(nRow, "testflag" ,ds_grd_emrapplist.getColumn(i, "testflag"));
        ds_grd_outapplist.setColumn(nRow, "atdoctid" ,ds_grd_inpat.getColumn(i, "formrecuserid"));
  	}
//     grd_outapplist.colDisabled(grd_outapplist.colRef("chrtflag"))=true;
//     grd_outapplist.colDisabled(grd_outapplist.colRef("ioflag"))=true;   
	
	// 신청부서 1부 default
	if (ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == "0"|| utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"))  ){
		ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", "1" );
	}
	else
	  ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") );
	
	    // 신규일 때

             if(utlf_isNull(ds_main_cond.getColumn(0, "cretno"))){
					ds_send_savedata_otptinfo.clearData();
					ds_send_savedata_otptinfo.addRow();
					ds_send_savedata_otptinfo.setColumn(0, "otpt_flag"		,"I");	// 구분자
					ds_send_savedata_otptinfo.setColumn(0, "otpt_pid"		,ds_main_cond.getColumn(0, "pid"));	// 등록번호
					ds_send_savedata_otptinfo.setColumn(0, "otpt_orddd"		,utlf_getCurrentDate());	// 진료일자
					ds_send_savedata_otptinfo.setColumn(0, "otpt_orddeptcd"	,ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	// 진료과
					ds_send_savedata_otptinfo.setColumn(0, "otpt_orddrid"	,ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));	// 진료의사
					ds_send_savedata_otptinfo.setColumn(0, "otpt_ordtm"		,utlf_getCurrentTime());	// 진료시간
					ds_send_savedata_otptinfo.setColumn(0, "otpt_rsrvflag"	,"4");	// 예약구분
					ds_send_savedata_otptinfo.setColumn(0, "otpt_instcd"	,sysf_getUserInfo("dutplceinstcd"));	// 기관코드
					ds_send_savedata_otptinfo.setColumn(0, "otpt_remfact"	, "");	// 참고사항
					ds_send_savedata_otptinfo.setColumn(0, "sess_userid"	,sysf_getUserInfo("userid"));	// 사용자ID	
					ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtestmyn"	, "N"); // 진찰료산정여부
					ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtpostyn"	, "Y"); // 진찰료후불여부
					ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtfreeresn", "10"); // 진찰료미산정사유
            }
	            ds_send_savedata_copyinfo.setColumn(0, "status", "i");
	            ds_send_savedata_copyinfo.setColumn(0, "pid"           ,ds_main_cond.getColumn(0, "pid"));
	            ds_send_savedata_copyinfo.setColumn(0, "appdd"         ,utlf_getCurrentDate());
        if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9"){
	            ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
	            ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,ipt_appmannm.text);
        }else{
	            ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
	            ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,rdo_appmanflag.text);
        }
            	ds_send_savedata_copyinfo.setColumn(0, "trustyn"       ,ds_main_appinfo_copyinfo.getColumn(0, "trustyn"));
        if(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd") == "99"){	// 사본발행목적이 기타일 경우
			 ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" , ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			 ds_send_savedata_copyinfo.setColumn(0, "issgoaletcnm" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
			 ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			 ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
        }else{
             ds_send_savedata_copyinfo.setColumn(0, "issgoaletc"   ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))
             ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
             ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
			 ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
        }
            ds_send_savedata_copyinfo.setColumn(0, "delivefact"    ,ds_main_appinfo_copyinfo.getColumn(0, "delivefact"));
            
            if((ds_main_cond.getColumn(0, "ioflag")=="O")||(ds_main_cond.getColumn(0, "ioflag")=="S")){
                ds_send_savedata_copyinfo.setColumn(0, "orddd"     ,ds_main_cond.getColumn(0, "orddd"));
            }else{
                ds_send_savedata_copyinfo.setColumn(0, "orddd"     ,ds_main_cond.getColumn(0, "orddd"));
            }
            ds_send_savedata_copyinfo.setColumn(0, "cretno"        ,ds_main_cond.getColumn(0, "cretno"));
            var userinfo = sysf_getUserInfo("dutplcecd"); 
            
            // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
            if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinf, "hardcd")))
			{
            // KNUH_20101124_박성호_end
               	 ds_send_savedata_copyinfo.setColumn(0, "emrordflag"    ,"O");
            }else{
            	ds_send_savedata_copyinfo.setColumn(0, "emrordflag"    ,ds_main_cond.getColumn(0, "ioflag"));
          	}
        	
        ds_send_savedata_copyinfo.setColumn(0, "emrorddeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	// 진료과
        
        // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
       var dutplcecd = sysf_getUserInfo("dutplcecd");
        if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
        {
	    	ds_send_savedata_copyinfo.setColumn(0, "appdeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	
	    } 
	    else if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
	    {
	    	ds_send_savedata_copyinfo.setColumn(0, "appdeptcd", dutplcecd);
	    // KNUH_20101124_박성호_end
	    }
        ds_send_savedata_copyinfo.setColumn(0, "appdrid", ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));	// 진료의사
		ds_grd_outapplist.applyChange();
		//grd_outapplist.clearStatus();  
		
        for(var i = 0; i < ds_grd_outapplist.rowcount; i++)
        {
			var arrPostion = new Array();
			arrPostion[0] = i;
	        grdf_setStatus(grd_outapplist, "I", arrPostion);
	        //grd_outapplist.addStatus(i, "insert");
        }
        //ds_send_savedamodel.makeValue("/root/send/savedata/emrapplist"   ,grd_outapplist.getUpdateData());
        var oDsUpdate = grdf_getGridUpdateData(grd_outapplist);
		if( utlf_isNull(oDsUpdate) )	{
			sysf_trace("***** grdf_getGridUpdateData(grd_outapplist) data is NULL *****");
		}	    
		grdf_setStatusColumn(oDsUpdate, "status");
		ds_send_savedata_emrapplist.copyData(oDsUpdate, true);
		
		sysf_trace(ds_send_savedata_emrapplist.saveXML());
}

// 종이차트 신청
function fPaperList()
{  
sysf_trace("***** fPaperList() *****");
    
    ds_main_emrinfo_emrlist.clearData();
    var j = 0;
    if(swc_prof.out.rdo_outchrtflag.value == "01" || swc_prof.out.rdo_outchrtflag.value == "02") {	    
        var nodeListCnt = ds_grd_outpat.rowcount;
    	if(nodeListCnt > 0)
    	{
			lf_fMakeColumn_main_emrinfo();
			
    	  	for(var i = 0 ; i < nodeListCnt; i++ )
    	  	{
    	  	    if("Y" == ds_grd_outpat.getColumn(i, "chk"))
    	  	    {
					ds_main_emrinfo_emrlist.insertRow(j);
        	  	    ds_main_emrinfo_emrlist.setColumn(j, "chrtflag"     , "P");
            	    ds_main_emrinfo_emrlist.setColumn(j, "ioflag"		, "O");
                    ds_main_emrinfo_emrlist.setColumn(j, "orddeptcd"    , cmb_emrorddeptcd.value);
                    ds_main_emrinfo_emrlist.setColumn(j, "atdoctid"     , cmb_orddrid.value);
                    ds_main_emrinfo_emrlist.setColumn(j, "formcd"       , swc_prof.out.rdo_outchrtflag.value);
                    ds_main_emrinfo_emrlist.setColumn(j, "testflag"		, "-");
            		ds_main_emrinfo_emrlist.setColumn(j, "reckeyno"		, "0");
            		ds_main_emrinfo_emrlist.setColumn(j, "pid"			, ds_grd_outpat.getColumn(i, "pid"));
            		ds_main_emrinfo_emrlist.setColumn(j, "orddd"		, ds_grd_outpat.getColumn(i, "orddd"));
            		ds_main_emrinfo_emrlist.setColumn(j, "cretno"		, ds_grd_outpat.getColumn(i, "cretno"));
            		ds_main_emrinfo_emrlist.setColumn(j, "status"     	, "");
            		
            		j++;
            	}        		
        	}
			ds_grd_outapplist.appendData(ds_main_emrinfo_emrlist, true, false);
    	    //copyNodeListType("/root/temp/issinfo", "/root/main/emrinfo/emrlist", "after", model, model);
    	    
    	}
	}
	if( !utlf_isNull(ds_main_cond.getColumn(0, "emrordflag")))
		ds_main_cond.setColumn(0, "emrordflag", "O");
}

// 검사결과 신청
function fAddTestList(formcd)
{  
sysf_trace("***** fAddTestList("+formcd+") *****");
	var vsformcd = formcd;
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"))){
        sysf_messageBox("진료과를 먼저 선택","I008");   
        fChkTestList(vsformcd);
        return;
    }
    
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdrid"))){
        sysf_messageBox("주치의를 선택","I008");   
       	fChkTestList(vsformcd);
        return; 
    }
    
    if(vsformcd == "0000000000") 
    {
    	if(group1.chk_prcpinfo.value == "Y") 
    	  fCopyTestList("0800000636");
    	fCopyTestList("0800004096");
    	fCopyTestList("0800004099");
    	fCopyTestList("0800004098");
    	fCopyTestList("0800004097");
    	fCopyTestList("E");
    	fCopyTestList("F");
    	fCopyTestList("I");    	
    	fCopyTestList("O");   
    }
    else
    {
	    fCopyTestList(vsformcd);
  	}
}

 // 검사 copy
function fCopyTestList(formcd)
{
sysf_trace("***** fCopyTestList("+formcd+") *****");
	var vsformcd = formcd;
	var testflg = "";
	var chrtflag = "";
	var formnm = "";
	var recdt = "";
	var supitemindxseq = "";
	var midindxseq = "";
	var sortno = "";
	
	if(vsformcd == "0800004096") {testflg = "D";  chrtflag = "E"; formnm = "진단검사"; supitemindxseq = "5162"; midindxseq = "11137"; sortno = "17";}// 진단검사
	if(vsformcd == "0800004099") {testflg = "G";  chrtflag = "E"; formnm = "영상의학"; supitemindxseq = "5162"; midindxseq = "11136"; sortno = "20";}// 영상의학
	if(vsformcd == "0800004098") {testflg = "H";  chrtflag = "E"; formnm = "핵체외"; supitemindxseq = "5162"; midindxseq = "18788"; sortno = "21";}// 핵체외
	if(vsformcd == "0800004097") {testflg = "J";   chrtflag = "E"; formnm = "미생물"; supitemindxseq = "5162"; midindxseq = "20339"; sortno = "23";}// 미생물
	if(vsformcd == "0800000636") {testflg = "A";  chrtflag = "E"; formnm = "처방기록"; supitemindxseq = "19338"; midindxseq = "20337"; sortno = "25";}// 처방기록
	if(vsformcd == "C") {testflg = "C";  chrtflag = "-"} // 초진
	if(vsformcd == "E") {testflg = "E";  chrtflag = "E"}// 임상병리
	if(vsformcd == "F") {testflg = "F";  chrtflag = "E"}// 기능검사
	if(vsformcd == "I") {testflg = "I";   chrtflag = "E"}// 내시경
	if(vsformcd == "T") {testflg = "T";   chrtflag = "E"}// 검사결과만 신청
	if(vsformcd == "O") {testflg = "O";   chrtflag = "E"}// 전체

	var j = 0;
	
	ds_main_emrinfo_emrlist.clearData();
	lf_fMakeColumn_main_emrinfo();
 
 	var nodeListCnt = ds_grd_outpat.getCaseCount("chk == 'Y'");
		if(nodeListCnt > 0){
		  	for(var i = 0 ; i < ds_grd_outpat.rowcount; i++ ) {
			  	if("Y" == ds_grd_outpat.getColumn(i, "chk")) {
					ds_main_emrinfo_emrlist.insertRow(j);
			        ds_main_emrinfo_emrlist.setColumn(j, "chrtflag"		,chrtflag);
			        ds_main_emrinfo_emrlist.setColumn(j, "orddeptcd"    ,ds_grd_outpat.getColumn(i, "orddeptcd"));
			        ds_main_emrinfo_emrlist.setColumn(j, "atdoctid"     ,cmb_orddrid.value);
			        ds_main_emrinfo_emrlist.setColumn(j, "formcd"     	,vsformcd);  	        
			        ds_main_emrinfo_emrlist.setColumn(j, "orddd"   		,ds_grd_outpat.getColumn(i, "orddd"));
			        ds_main_emrinfo_emrlist.setColumn(j, "cretno"   	,ds_grd_outpat.getColumn(i, "cretno"));
			        ds_main_emrinfo_emrlist.setColumn(j, "pid"   		,ds_grd_outpat.getColumn(i, "pid"));
			        ds_main_emrinfo_emrlist.setColumn(j, "ioflag"		,ds_grd_outpat.getColumn(i, "ordtype"));
			        ds_main_emrinfo_emrlist.setColumn(j, "testflag"		,testflg);
			        ds_main_emrinfo_emrlist.setColumn(j, "reckeyno"		,"0");
			        ds_main_emrinfo_emrlist.setColumn(j, "formnm"		,formnm);
			        ds_main_emrinfo_emrlist.setColumn(j, "supitemindxseq" ,supitemindxseq);
			        ds_main_emrinfo_emrlist.setColumn(j, "midindxseq"	,midindxseq);
			        ds_main_emrinfo_emrlist.setColumn(j, "sortno"		,sortno);
			        ds_main_emrinfo_emrlist.setColumn(j, "status"		,"");
			        j ++;
			     }
	    	}
	    	ds_grd_outapplist.appendData(ds_main_emrinfo_emrlist, true, false);
	    	//copyNodeListType("/root/temp/issinfo", "/root/main/emrinfo/emrlist", "after", model, model);
	   }
}

 // 검사 rest 
function fChkTestList(fromcd)
{
sysf_trace("***** fChkTestList("+fromcd+") *****");
// testinfo value "" -> "N" 로 변경

	var vsformcd = fromcd;
	switch(vsformcd){
        	case "0800004096": // 진검
        		ds_main_otherinfo.setColumn(0, "testinfo2", "N");
        		break;
        	case "0800004099": // 영상
        		ds_main_otherinfo.setColumn(0, "testinfo5", "N");
        		break;
        	case "0800004098": // 핵의학
        		ds_main_otherinfo.setColumn(0, "testinfo6", "N");
        		break;
        	case "0800004097": //미생물
        		ds_main_otherinfo.setColumn(0, "testinfo8", "N");
        		break;
        	case "0800000636": //처방
        		ds_main_otherinfo.setColumn(0, "prcpinfo", "N");
        		break;
        	case "0000000000": // 검사 전체
        		ds_main_otherinfo.setColumn(0, "testinfo", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo2", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo3", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo4", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo5", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo6", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo7", "N");
        		ds_main_otherinfo.setColumn(0, "testinfo8", "N");
        		break;
        }
}

// 검사결과 신청
function fDelTestList(formcd)
{  
sysf_trace("***** fDelTestList("+formcd+") *****");

    var vsformcd = formcd;
	if(vsformcd == "0000000000") {
		//var test2Row = grd_outapplist.findRow("0800004096", 0, parseInt(grd_outapplist.colRef("formcd")), "true", "true");//중복 서식 check
		var test2Row = ds_grd_outapplist.findRow("formcd", "0800004096");
		sysf_trace(" test2Row : " + test2Row);
		ds_grd_outapplist.deleteRow(test2Row);
		//var test5Row = grd_outapplist.findRow("0800004099", 0, parseInt(grd_outapplist.colRef("formcd")), "true", "true");//중복 서식 check
		var test5Row = ds_grd_outapplist.findRow("formcd", "0800004099");
		sysf_trace(" test5Row : " + test5Row);
		ds_grd_outapplist.deleteRow(test5Row);
		//var test6Row = grd_outapplist.findRow("0800004098", 0, parseInt(grd_outapplist.colRef("formcd")), "true", "true");//중복 서식 check
		var test6Row = ds_grd_outapplist.findRow("formcd", "0800004098");
		sysf_trace(" test6Row : " + test6Row);
		ds_grd_outapplist.deleteRow(test6Row);
		//var test8Row = grd_outapplist.findRow("0800004097", 0, parseInt(grd_outapplist.colRef("formcd")), "true", "true");//중복 서식 check
		var test8Row = ds_grd_outapplist.findRow("formcd", "0800004097");
		sysf_trace(" test8Row : " + test8Row);
		ds_grd_outapplist.deleteRow(test8Row);
		
	} else {
		var iFndRow2 = ds_grd_outapplist.findRow("formcd", vsformcd);
		sysf_trace(" iFndRow2 : " + iFndRow2 + " vsformcd : " + vsformcd);
		//var iFndRow2 = grd_outapplist.findRow(vsformcd, 0, parseInt(grd_outapplist.colRef("formcd")), "true", "true");//중복 서식 check
		ds_grd_outapplist.deleteRow(iFndRow2);
	}
}

 //회차별 입원 차트 조회
function fEMRChrtList(param)
{
sysf_trace("***** fEMRChrtList("+param+") *****");
	ds_send_search.clearData();
	ds_send_search_rsrvinfo.clearData();
	var nRow = ds_send_search.addRow();
	var i = 1;
	if(param != "F") {
		if(btn_out.getSelectStatus() == true) {
	      	cur = ds_grd_outpat.rowposition;
	      	ds_send_search.setColumn(nRow, "pid"         ,ds_grd_outpat.getColumn(cur, "pid"));
		    ds_send_search.setColumn(nRow, "orddd"       ,ds_grd_outpat.getColumn(cur, "orddd"));
		    ds_send_search.setColumn(nRow, "cretno"      ,ds_grd_outpat.getColumn(cur, "cretno"));
		    ds_send_search.setColumn(nRow, "deptcd"      ,ds_grd_outpat.getColumn(cur, "orddeptcd"));
		    ds_send_search.setColumn(nRow, "chrtflag"    ,"A");
	      } else if(btn_in.getSelectStatus() == true) {
	      	cur = ds_grd_inapplist.rowposition;
	      	ds_send_search.setColumn(nRow, "pid"         ,ds_grd_inapplist.getColumn(cur, "pid"));
		    ds_send_search.setColumn(nRow, "orddd"       ,ds_grd_inapplist.getColumn(cur, "indd"));
		    ds_send_search.setColumn(nRow, "indd"        ,ds_grd_inapplist.getColumn(cur, "indd"));
		    ds_send_search.setColumn(nRow, "cretno"      ,ds_grd_inapplist.getColumn(cur, "cretno"));
		    ds_send_search.setColumn(nRow, "deptcd"      ,ds_grd_inapplist.getColumn(cur, "orddeptcd"));
		    ds_send_search.setColumn(nRow, "ordtype"     ,"I");
		    ds_send_search.setColumn(nRow, "chrtflag"    ,"A");
	      }
    } else if(param == "F") {
    		cur = 1;
	      	ds_send_search.setColumn(nRow, "pid"         ,ds_grd_inapplist.getColumn(cur, "pid"));
		    ds_send_search.setColumn(nRow, "orddd"       ,ds_grd_inapplist.getColumn(cur, "indd"));
		    ds_send_search.setColumn(nRow, "indd"        ,ds_grd_inapplist.getColumn(cur, "indd"));
		    ds_send_search.setColumn(nRow, "cretno"      ,ds_grd_inapplist.getColumn(cur, "cretno"));
		    ds_send_search.setColumn(nRow, "deptcd"      ,ds_grd_inapplist.getColumn(cur, "orddeptcd"));
		    ds_send_search.setColumn(nRow, "ordtype"     ,"I");
		    ds_send_search.setColumn(nRow, "chrtflag"    ,"A");
    }
        
    
    ds_grd_emrapplist.clearData();
    
    var oParam = {};
		oParam.id       = "TRMRC03007";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetCopyEmrTestInfo";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_main_emrinfo_emrlist=emrlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03007";

	tranf_submit(oParam);
    
    if (arErrorCode.pop("TRMRC03007") > -1)
    {
		//var NodeList = instance1.selectNodes("/root/main/emrinfo/emrlist");
		if(ds_main_emrinfo_emrlist.rowcount > 0) {
			if(btn_out.getSelectStatus() == true) {
				fOutEMRChrtListSelect();
			} else if(btn_in.getSelectStatus() == true) {
				ds_grd_outapplist.copyData(ds_main_emrinfo_emrlist);
				//setCSVToNode("/root/main/issinfo", getNodeListCSV(NodeList), "emrapplist");
			}
		}
	    else{
	        return;
	    }
    }
    ds_send_search.clearData();
    ds_send_search.addRow();
    ds_send_search_rsrvinfo.clearData();
    
    return;
} 

// 입원 중분류 chart
function fGetINChrtList()
{
sysf_trace("***** fGetINChrtList() *****");
  if(ds_grd_inapplist.rowposition > -1)
  {
	iviewerIemr.cleanViewer();
	ds_tmpinicert2_iniinfo.clearData();
    //fShowProgress(true, "기록을 조회하고 있습니다");
    
    cur = ds_grd_inapplist.rowposition;    
    ds_send_search.clearData();
    ds_send_search.addRow();
    ds_send_search.setColumn(0, "pid"         ,ds_grd_inapplist.getColumn(cur, "pid"));
    ds_send_search.setColumn(0, "orddd"       ,ds_grd_inapplist.getColumn(cur, "indd"));
    ds_send_search.setColumn(0, "indd"       ,ds_grd_inapplist.getColumn(cur, "indd"));
    ds_send_search.setColumn(0, "dschdd"       ,ds_grd_inapplist.getColumn(cur, "dschdd"));
    ds_send_search.setColumn(0, "cretno"      ,ds_grd_inapplist.getColumn(cur, "cretno"));
    ds_send_search.setColumn(0, "deptcd"      ,ds_grd_inapplist.getColumn(cur, "orddeptcd"));
    //ds_send_search.setColumn(0, "ordtype"      ,ds_grd_inapplist.getColumn(cur, "ioflag"));
    ds_send_search.setColumn(0, "ordtype"      ,ds_grd_inapplist.getColumn(cur, "ioflag"));
    ds_send_search.setColumn(0, "emrflag"      ,ds_grd_inapplist.getColumn(cur, "emrflag"));
    //2009-11-02 오후 11:36:28 강지훈 추가 
    ds_send_search.setColumn(0, "bfopentest"      ,ds_grd_inapplist.getColumn(cur, "bfopentest"));
    ds_send_search.setColumn(0, "chrtflag"    ,"A");
    
    //ds_send_search.setColumn(0, "orddeptcd"      ,ds_grd_inapplist.getColumn(cur, "orddeptcd"));
    //ds_send_search.setColumn(0, "tabflag"      , "ALL");
    
    ds_grd_inpat.clearData();
    
   var oParam = {};
		oParam.id       = "TRMRC03021";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetInChrtList";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_grd_inpat=emrapplist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03021";

	tranf_submit(oParam);
   // fShowProgress(false);
    
    
  }    
}

/**
 * @type   : function
 * @access : public
 * @desc   :  진료일자별 외래 차트 사본 신청 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
 function fOutEMRChrtListSelect()
{
sysf_trace("***** fOutEMRChrtListSelect() *****");
    var formcd = "";
    var reckeyno = "";
    var duplFlag = false;

    if(ds_main_emrinfo_emrlist.rowcount > 0){
        for(var i = 0; i < ds_main_emrinfo_emrlist.rowcount; i++){
            reckeyno = ds_main_emrinfo_emrlist.getColumn(i, "reckeyno");
            formcd = ds_main_emrinfo_emrlist.getColumn(i, "formcd");
            for(var rowcnt = 0; rowcnt < ds_grd_outapplist.rowcount; rowcnt++){
                if((ds_grd_outapplist.getColumn(rowcnt, "reckeyno") == reckeyno) && (ds_grd_outapplist.getColumn(rowcnt, "formcd") == formcd)){
                    duplFlag = true;
                    break;
                } else {
                    duplFlag = false;
                }
            }
            if((duplFlag)){
                //sysf_messageBox(sFormnm+"은(는) 이미 신청하신 서식지","I009");
            }else{
                var nRow = ds_grd_outapplist.addRow();
                ds_grd_outapplist.setColumn(nRow, "formcd"   	,ds_main_emrinfo_emrlist.getColumn(i, "formcd"));
                ds_grd_outapplist.setColumn(nRow, "formnm"   	,ds_main_emrinfo_emrlist.getColumn(i, "formnm"));
                ds_grd_outapplist.setColumn(nRow, "chrtflag" 	,ds_main_emrinfo_emrlist.getColumn(i, "chrtflag"));
                ds_grd_outapplist.setColumn(nRow, "formrecdt" 	,ds_main_emrinfo_emrlist.getColumn(i, "formrecdt")); 
                ds_grd_outapplist.setColumn(nRow, "reckeyno" 	,ds_main_emrinfo_emrlist.getColumn(i, "reckeyno"));         
                ds_grd_outapplist.setColumn(nRow, "ioflag"		,"O");
                ds_grd_outapplist.setColumn(nRow, "orddd"   	,ds_grd_outpat.getColumn(ds_grd_outpat.rowposition, "orddd"));
                ds_grd_outapplist.setColumn(nRow, "orddeptcd"	,ds_main_emrinfo_emrlist.getColumn(i, "formrecdeptcd"));
                ds_grd_outapplist.setColumn(nRow, "orddeptnm"	,ds_main_emrinfo_emrlist.getColumn(i, "formrecdeptnm"));
                ds_grd_outapplist.setColumn(nRow, "atdoctnm" 	,ds_main_emrinfo_emrlist.getColumn(i, "formrecusernm"));
                ds_grd_outapplist.setColumn(nRow, "atdoctid" 	,ds_main_emrinfo_emrlist.getColumn(i, "formrecuserid"));
                duplFlag = false;
            }
        }
    }else{
        //sysf_messageBox("신청할 서식이","I004"); 
        if(ds_grd_outpat.getColumn(ds_grd_outpat.rowposition, "chk") == "Y") {
        	ds_grd_outpat.setColumn(ds_grd_outpat.rowposition, "chk", "N");
        }
        return;
    }
//     grd_outapplist.colDisabled(grd_outapplist.colRef("chrtflag"))=true;
//     grd_outapplist.colDisabled(grd_outapplist.colRef("ioflag"))=true;              
}

/**
 * @type   : function
 * @access : public
 * @desc   :  진료일자별 입원 차트 사본 신청 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
 function fInEMRChrtListSelect()
{  
sysf_trace("***** fInEMRChrtListSelect() *****");
    var nodeListCnt = ds_grd_inpat.getCaseCount("chk == 'Y'");
    if(nodeListCnt > 0){
    	// 서식
        for(var i = 0; i < ds_grd_inpat.rowcount; i++){
        	var chk = ds_grd_inpat.getColumn(i, "chk");
        	if( chk == "Y") {
        		var leftindx = ds_grd_inpat.getColumn(i, "midindxseq");
            	
            	for( var j = 0; j < ds_grd_emrapplist.rowcount; j++) {
            		var rightindx = ds_grd_emrapplist.getColumn(j, "midindxseq");
            		if(leftindx == rightindx) {
            			grd_outapplist.additem();
			            ds_grd_outapplist.setColumn(nRow, "formcd"   	,ds_grd_emrapplist.getColumn(j, "formcd"));
			            ds_grd_outapplist.setColumn(nRow, "chrtflag" 	,ds_grd_emrapplist.getColumn(j, "chrtflag"));
			            ds_grd_outapplist.setColumn(nRow, "reckeyno" 	,ds_grd_emrapplist.getColumn(j, "reckeyno"));
			            ds_grd_outapplist.setColumn(nRow, "ioflag"		, "I");
			            ds_grd_outapplist.setColumn(nRow, "indd"     	,ds_grd_emrapplist.getColumn(j, "orddd"));
			            ds_grd_outapplist.setColumn(nRow, "orddd"     	,ds_grd_emrapplist.getColumn(j, "orddd"));
			            ds_grd_outapplist.setColumn(nRow, "pid"     	,ds_grd_emrapplist.getColumn(j, "pid"));
			            ds_grd_outapplist.setColumn(nRow, "cretno"     	,ds_grd_emrapplist.getColumn(j, "cretno"));
			        	
			            ds_grd_outapplist.setColumn(nRow, "orddeptcd"	,ds_grd_emrapplist.getColumn(j, "orddeptcd"));
			            ds_grd_outapplist.setColumn(nRow, "testflag" 	,ds_grd_emrapplist.getColumn(j, "testflag"));
			            ds_grd_outapplist.setColumn(nRow, "atdoctid" 	,ds_grd_inpat.getColumn(i, "formrecuserid"));
            		}
            	}
	      	}
      	}
      	
    }else{
        //sysf_messageBox("신청할 서식이","I004"); 
        if(ds_grd_inpat.getColumn(ds_grd_inpat.rowposition, "chk") == "Y") {
        	ds_grd_inpat.setColumn(ds_grd_inpat.rowposition, "chk", "N");
        }
        return;
    }
//     grd_outapplist.colDisabled(grd_outapplist.colRef("chrtflag"))=true;
//     grd_outapplist.colDisabled(grd_outapplist.colRef("ioflag"))=true;      
}


// 신청된 사본 재신청시.
 function fInReCopyEMRChrtListSelect()
{  
sysf_trace("***** fInReCopyEMRChrtListSelect() *****");
    // 서식      	
	var j = 0;
	ds_main_emrinfo_emrlist.clearData();
	lf_fMakeColumn_main_emrinfo();
	for(var i = 0; i < ds_grd_emrapplist.rowcount; i++){
		ds_main_emrinfo_emrlist.insertRow(j);
		ds_main_emrinfo_emrlist.setColumn(j, "formcd"   ,ds_grd_emrapplist.getColumn(i, "formcd"));
		ds_main_emrinfo_emrlist.setColumn(j, "chrtflag" ,ds_grd_emrapplist.getColumn(i, "chrtflag"));
		ds_main_emrinfo_emrlist.setColumn(j, "reckeyno" ,ds_grd_emrapplist.getColumn(i, "reckeyno"));
		ds_main_emrinfo_emrlist.setColumn(j, "ioflag"	, "I");
		ds_main_emrinfo_emrlist.setColumn(j, "indd"     ,ds_grd_emrapplist.getColumn(i, "testorddd"));
		ds_main_emrinfo_emrlist.setColumn(j, "orddd"    ,ds_grd_emrapplist.getColumn(i, "testorddd"));
		ds_main_emrinfo_emrlist.setColumn(j, "pid"     	,ds_main_cond.getColumn(0, "pid"));
		ds_main_emrinfo_emrlist.setColumn(j, "cretno"   ,ds_grd_emrapplist.getColumn(i, "testcretno"));
		ds_main_emrinfo_emrlist.setColumn(j, "orddeptcd",ds_grd_emrapplist.getColumn(i, "testorddeptcd"));
		ds_main_emrinfo_emrlist.setColumn(j, "testflag" ,ds_grd_emrapplist.getColumn(i, "testflag"));
		j ++;
	}
    ds_grd_outapplist.appendData(ds_main_emrinfo_emrlist, true, false);  	
	//copyNodeListType("/root/temp/issinfo", "/root/main/emrinfo/emrlist", "after", model, model);
  
// 	grd_outapplist.colDisabled(grd_outapplist.colRef("chrtflag"))=true;
//  grd_outapplist.colDisabled(grd_outapplist.colRef("ioflag"))=true;      
    
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 초기화 버튼
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAppCopyInfoClear(){     
sysf_trace("***** fAppCopyInfoClear() *****");
    
        PRIN_COPY  = ""; // 출력매수
		PRIN_QUNT  = ""; // 부수
		SAVE_COPY = "1";
		RESAVE_COPY = "1";
		SAVE_ORDDD = "";
		OUTCOPY_FLAG = "";
		INCOPY_FLAG = "";
		
		ds_send.clearData();
		ds_send_cond.clearData();
		ds_send_reqdata.clearData();
		ds_send_search.clearData();
		ds_send_search_rsrvinfo.clearData();
		ds_main_appinfo_copyinfo.clearData();
		ds_main_appinfo_copyinfo.addRow();
		dsf_setDefaultVal(ds_main_appinfo_copyinfo, "all");
		fSet_enableevent(false);
		ds_main_otherinfo.clearData();
		ds_main_otherinfo.addRow();
		fSet_enableevent(true);
		ds_grd_outapplist.clearData();
		ds_grd_outpat.clearData();
		ds_grd_inapplist.clearData();
		ds_grd_emrapplist.clearData();
		ds_grd_inpat.clearData();
		ds_main_emrinfo_emrlist.clearData();
		//model.resetInstanceNode("/root/result");
        //model.removeNodeset("/root/main/ordinfo/ordlist");
        /*
        model.resetInstanceNode("/root/send");
        model.resetInstanceNode("/root/main/appinfo");
        model.resetInstanceNode("/root/main/otherinfo"); 
        model.removeNodeset("/root/temp/issinfo/emrlist");
        model.removeNodeset("/root/main/outpathistlist/outpathistlist");
        model.removeNodeset("/root/main/inpathistlist/inpathistlist");
        model.removeNodeset("/root/main/issinfo/emrapplist");
        model.removeNodeset("/root/main/midissinfo/emrapplist");
        
        
        model.removeNodeset("/root/main/emrinfo/emrlist");
        */
        rdo_appmanflag.enable	= true;
        rdo_trustyn.enable	 	= true;
        btn_save.enable	 		= true;
        btn_issgoal.enable	 	= true;
        btn_update.enable	 	= false;
        ds_main_appinfo_copyinfo.setColumn(0, "status","");
        
		ds_main_appinfo_copyinfo.setColumn(0, "appmanflag", "1");
		ds_main_appinfo_copyinfo.setColumn(0, "trustyn", "N");
		
		// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
		var dutplcecd = sysf_getUserInfo("dutplcecd");
  		
  		if(utlf_isNull(ds_temp_hardcd.lookup("hardcd", dutplcecd, "hardcd")))
  		{
			ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd", sysf_getUserInfo("dutplcecd"));  // 신청과
		    appf_getOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), cmb_emrorddeptcd.value, "usernm", "asc", utlf_getCurrentDate(), "ds_init_cmb_orddrid");//해당 주치의
		    ds_main_appinfo_copyinfo.setColumn(0, "appdrid", sysf_getUserId().getTrim());  //신청의
	  	}
	  	// KNUH_20101124_박성호_end
	  	
	  	iviewerIemr.cleanViewer();
	  	
	  	iviewerIemr.enableevent = false;
	  	
//  	  	var e = new SizeEventInfo;
//      	frmf_inputEnterKey("iviewerIemr", "onsize", e);

 		var strWidth	= parseInt(iviewerIemr.position.width);
 		var strHeight	= parseInt(iviewerIemr.position.height);
 		iviewerIemr.setChartViewerSize(strWidth, strHeight);//687

  		iviewerIemr.enableevent = true;

}
/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 신청인에 따른 위임장유뮤 변경
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAppManNmSetting()
{      
 sysf_trace("***** fAppManNmSetting() *****");
        if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")!="9"){
            ipt_appmannm.enable = false;
            ipt_appmannm.value = "";
            var appmanflag = ds_main_appinfo_copyinfo.getColumn(0, "appmanflag");
            if(appmanflag=="1"){
                rdo_trustyn.value = "N";
            }else{
                rdo_trustyn.value = "Y";
            }
        }else{
            ipt_appmannm.enable = true;
            rdo_trustyn.value = "Y";
        }
}
 
// 사본발행 재신청
function fReCopyAppInfoSave()
{
sysf_trace("***** fReCopyAppInfoSave() *****");
    ds_send_savedata_copyinfo.clearData();
    ds_send_savedata_copyinfo.addRow();
    ds_send_savedata_otptinfo.clearData();
    ds_send_savedata_otptinfo.addRow();
    ds_send_savedata_emrapplist.clearData();
    ds_send_savedata_emrapplist.addRow();
    
    
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"))){
        sysf_messageBox("진료과를 먼저 선택","I008");   
        return;
    }
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appdrid"))){
        sysf_messageBox("신청의사를 선택","I008");     
        return;
    } 
	
	if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"))){
        rdo_appmanflag.setFocus();
        sysf_messageBox("사본발행 신청인을", "C001");
        return;
    }

    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "trustyn"))){
        rdo_trustyn.setFocus();
        sysf_messageBox("위임장/인감증명서 유무를", "C001");
        return;
    }

    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))){
        ipt_issgoalnm.setFocus();
        sysf_messageBox("사본발행목적을", "C001");
        return;
    }
    
    var iCopyseqno = ds_main_cond.getColumn(0, "copyseqno");
	 	
 	if (utlf_isNull(iCopyseqno))
 	{
 	    sysf_messageBox("사본발행 내역을","C002");
 	    return;
 	}
 	
 	ds_send_savedata_copyinfo.setColumn(0, "copyseqno", iCopyseqno);
 	ds_send_savedata_copyinfo.setColumn(0, "reappyn", "Y");
    
    // 저장된 입원 서식 copy
    if(RESAVE_COPY == "1") {
    	
    }
    
	var userinfo = sysf_getUserInfo("dutplcecd"); 
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
    //if(userinfo == "3230000000"){
    if(!utlf_isNull(ds_temp_hardcd.lookup("hardcd", userinfo, "hardcd")))
    {
    // KNUH_20101124_박성호_end
        ds_main_appinfo_copyinfo.setColumn(0, "status","");
        ds_main_appinfo_copyinfo.setColumn(0, "cretno","");
        ds_main_cond.setColumn(0, "cretno","");
    }else{
        ds_main_appinfo_copyinfo.setColumn(0, "status","I");
    }
    
	ds_grd_outapplist.applyChange();  
	
	// 신청부서 1부 default
	if (ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == "0" || utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies")) ){
	  ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", "1" );
	}
	else
	  ds_send_savedata_copyinfo.setColumn(0, "emrappcopies", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") );

	    // 신규일 때
	    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "status")) || ds_main_appinfo_copyinfo.getColumn(0, "status") == "I")
	    {
             if(utlf_isNull(ds_main_cond.getColumn(0, "cretno"))) {
            	//model.removeNodeset("/root/send/savedata/otptinfo");
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_flag","I");	// 구분자
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_pid",ds_main_cond.getColumn(0, "pid"));	// 등록번호
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_orddd",utlf_getCurrentDate());	// 진료일자
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_orddeptcd", ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));	// 진료과
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_orddrid", ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));	// 진료의사
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_ordtm",utlf_getCurrentTime());	// 진료시간
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_rsrvflag","4");	// 예약구분
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_instcd",sysf_getUserInfo("dutplceinstcd"));	// 기관코드
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_remfact", "");	// 참고사항
    			ds_send_savedata_otptinfo.setColumn(0, "sess_userid",sysf_getUserInfo("userid"));	// 사용자ID	
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtestmyn", "N"); // 진찰료산정여부
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtpostyn", "Y"); // 진찰료후불여부
    			ds_send_savedata_otptinfo.setColumn(0, "otpt_medamtfreeresn", "10"); // 진찰료미산정사유
            }
            ds_send_savedata_copyinfo.setColumn(0, "status", "i");
            ds_send_savedata_copyinfo.setColumn(0, "pid"           ,ds_main_cond.getColumn(0, "pid"));
            ds_send_savedata_copyinfo.setColumn(0, "appdd"         ,utlf_getCurrentDate());
			if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9"){
				ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
				ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,ipt_appmannm.text);
				//ds_send_savedata_copyinfo.setColumn(0, "appmanetc"     ,ipt_appmannm.text);
			}else{
				ds_send_savedata_copyinfo.setColumn(0, "appmanflag"    ,ds_main_appinfo_copyinfo.getColumn(0, "appmanflag"));
				ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,rdo_appmanflag.text);
			}
				ds_send_savedata_copyinfo.setColumn(0, "trustyn"       ,ds_main_appinfo_copyinfo.getColumn(0, "trustyn"));
			if(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd") == "99"){	// 사본발행목적이 기타일 경우
				 ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" , ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
				 ds_send_savedata_copyinfo.setColumn(0, "issgoaletcnm" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
				 ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
				 ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
			}else{
				 ds_send_savedata_copyinfo.setColumn(0, "issgoaletc"   ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))
				 ds_send_savedata_copyinfo.setColumn(0, "issgoaletccd" ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
				 ds_send_savedata_copyinfo.setColumn(0, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
				 ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
			}
            ds_send_savedata_copyinfo.setColumn(0, "delivefact"    ,ds_main_appinfo_copyinfo.getColumn(0, "delivefact"));
           
            if((ds_main_appinfo_copyinfo.getColumn(0, "ioflag")=="O")||(ds_main_appinfo_copyinfo.getColumn(0, "ioflag")=="S")){
                ds_send_savedata_copyinfo.setColumn(0, "orddd"     ,ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
            }else{
                ds_send_savedata_copyinfo.setColumn(0, "orddd"     ,ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
            }
            
            ds_send_savedata_copyinfo.setColumn(0, "cretno"        ,ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
            
            ds_send_savedata_copyinfo.setColumn(0, "emrordflag"        ,ds_main_appinfo_copyinfo.getColumn(0, "emrordflag"));
            
            ds_send_savedata_copyinfo.setColumn(0, "emrorddeptcd"  ,ds_main_appinfo_copyinfo.getColumn(0, "emrorddeptcd"));
            ds_send_savedata_copyinfo.setColumn(0, "appdeptcd"     ,ds_main_appinfo_copyinfo.getColumn(0, "appdeptcd"));
            ds_send_savedata_copyinfo.setColumn(0, "appdrid"       ,ds_main_appinfo_copyinfo.getColumn(0, "appdrid"));
            
          
        }
        //alert(54268); return;
     	var hRow = ds_grd_apphist.rowposition;
	 	var IssNo = ds_grd_apphist.getColumn(hRow, "issno");
	
	//BMT사본신청여부 20100322
	ds_send_savedata_copyinfo.setColumn(0, "bmtappyn", ds_main_otherinfo.getColumn(0, "bmtappyn"));
	
	if(!utlf_isNull(IssNo)){
	   var Msg= sysf_messageBox("한번 발행한 사본입니다.그래도 재신청을","Q004");
	    if(Msg=="6"){
			// default value setting
			dsf_setDefaultVal(ds_send_savedata_copyinfo, "emrappcopies:0,cretno:0,reappyn:N");
			//dsf_setDefaultVal(ds_send_savedata_emrapplist, "reckeyno:0,chrtseqno:0");
			
			var oParam = {};
				oParam.id       = "TXMRC03005";
				oParam.service  = "chrtmngtapp.CopyIssMngt";
				oParam.method   = "reqExeCopyIssInfo2";
				oParam.inds     = "reqcopyinfo=ds_send_savedata_copyinfo reqemrapplist=ds_send_savedata_emrapplist reqotptinfo=ds_send_savedata_otptinfo";
				oParam.outds    = "ds_return=return";
				oParam.async    = false;
				oParam.callback = "cf_TXMRC03005";

			tranf_submit(oParam);

				
				
            if(arErrorCode.pop("TXMRC03005") > -1){
                sysf_messageBox("재신청이","I002");  
                opener.frmf_setParameter("SMMRC03000_appYN", "Y");
   				var oprnerId = opener.frmf_getScreenID();
		        if(oprnerId == "SMMRC02200") opener.fGetCopyInfoHistSearch();
		        frmf_clearParameter("SMMRC03000_appYN");
            }else{
                sysf_mssageBox("재신청이","E009");
            } 
            this.close();
	    }else if(Msg=="7"){
	    	RESAVE_COPY ++;
	    	ds_send_savedata_copyinfo.clearData();
	    	ds_send_savedata_emrapplist.clearData();
	    	ds_send_savedata_otptinfo.clearData();
			return;  
	    }
	}else{
	    var Msg= sysf_messageBox("신청된 사본입니다 그래도 재신청을","Q004");
        if(Msg=="6"){
			// default value setting
			dsf_setDefaultVal(ds_send_savedata_copyinfo, "emrappcopies:0,cretno:0,reappyn:N");
			//dsf_setDefaultVal(ds_send_savedata_emrapplist, "reckeyno:0,chrtseqno:0");
			
			var oParam = {};
				oParam.id       = "TXMRC03005";
				oParam.service  = "chrtmngtapp.CopyIssMngt";
				oParam.method   = "reqExeCopyIssInfo2";
				oParam.inds     = "reqcopyinfo=ds_send_savedata_copyinfo reqemrapplist=ds_send_savedata_emrapplist reqotptinfo=ds_send_savedata_otptinfo";
				oParam.outds    = "ds_return=return";
				oParam.async    = false;
				oParam.callback = "cf_TXMRC03005";

			tranf_submit(oParam);
			
            if(arErrorCode.pop("TXMRC03005") > -1){
                sysf_messageBox("재신청이","I002");  
                opener.frmf_setParameter("SMMRC03000_appYN", "Y");
   				var oprnerId = opener.frmf_getScreenID();
		        if(oprnerId == "SMMRC02200") opener.fGetCopyInfoHistSearch();
		        frmf_clearParameter("SMMRC03000_appYN");
            }else{
                sysf_mssageBox("재신청이","E009");
            } 
            this.close();
        }else if(Msg=="7"){
        	RESAVE_COPY ++;
        	ds_send_savedata_copyinfo.clearData();
	    	ds_send_savedata_emrapplist.clearData();
	    	ds_send_savedata_otptinfo.clearData();
	      return;    
        }
	}  
}


/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 통합뷰어 창 close 시 사본신청 창 close
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fCopyInfoClose()
{
	sysf_trace("***** fCopyInfoClose() *****");
    this.close();
}
/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 서식신청이 없을 시 메세지 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
function fSaveExcp()
{
sysf_trace("***** fSaveExcp() *****");
       var msg = sysf_messageBox("사본 신청된 내역이 없습니다\n"+"검사 결과에 대해서만 사본신청을","Q004"
       ,"\n(검사결과 신청내용은 텍스트로 전달사항에 기재해주세요)");
       if(msg=="6"){
         fCopySave();
       }else if(msg=="7"){
        sysf_messageBox("사본신청 취소가","I001");
        return;
       } 
}


function fBfAppformInfo()
{
sysf_trace("***** fBfAppformInfo() *****");
        
        ds_send_search.setColumn(0, "pid"		, ds_main_cond.getColumn(0, "pid"));
    	ds_send_search.setColumn(0, "copyseqno"	, ds_grd_inapplist.getColumn(ds_grd_inapplist.rowposition, "copyseqno"));
    	ds_send_search.setColumn(0, "srchflag"	, "Y");
		
		
		dsf_createDs("ds_temp_issinfo_copyinfo");
		dsf_createDs("ds_temp_issinfo_rcptlist");
		
		
		
		var oParam = {};
			oParam.id       = "TRMRC03008";
			oParam.service  = "chrtmngtapp.CopyIssMngt";
			oParam.method   = "reqGetCopyIssDetailInfo";
			oParam.inds     = "req=ds_send_search";
			oParam.outds    = "ds_temp_issinfo_copyinfo=copyinfo ds_temp_issinfo_emrapplist=emrapplist ds_temp_issinfo_rcptlist=rcptlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMRC03008";

		tranf_submit(oParam);
		
        if (arErrorCode.pop("TRMRC03008") > -1) {    }  // 서식 /root/temp/issinfo/emrlist   grd_outapplist
        
        ds_send_search.clearData();
        ds_send_search.addRow();
}


// 신청정보 상세조회
function fIssSearch()
{
sysf_trace("***** fIssSearch() *****");
	//debugger; 
    if (ds_grd_apphist.rowcount < 1) return;
	if (ds_grd_apphist.rowposition < 0) return;
	
	//Event Off
	ds_grd_rcptlist.enableevent = false;
	
	
	var lrow = ds_grd_apphist.rowposition;
	var RecPrcpCd =  ds_hidden_calcscorcd.getColumn(0, "hardcd");//의무기록 사본발행 수가코드
	
	
// 	ds_send_search.clearData();
// 	ds_send_search.addRow();
	ds_send_search.setColumn(0, "pid", ds_grd_apphist.getColumn(lrow, "pid"));
	ds_send_search.setColumn(0, "copyseqno", ds_grd_apphist.getColumn(lrow, "copyseqno"));
	ds_send_search.setColumn(0, "issno", ds_grd_apphist.getColumn(lrow, "issno"));
	
	var totalcopies = ds_grd_apphist.getColumn(lrow, "totalcopies");
	
	// reqGetCopyIssDetailInfo
	// getCopyIssInfo : 발행정보
	// getPaperScopCd : 종이서식범위
	// getCopyEmrAppList : emr서식
	// getCopyRcptList : 수가 
	/*if(model.getValue("/root/main/isshist/isslist[" + lrow + "]/unprepyn") == "Y"){
		messageBox("환자의 기록이 미완결","I009");	
	}*/
	ds_grd_rcptlist.applyChange();//	grd_rcptlist.clearStatus();

	var oParam = {};
		oParam.id       = "TRMRC03023";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetCopyRcptList";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_grd_rcptlist=rcptlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03023";

	tranf_submit(oParam);

//sysf_trace(ds_grd_rcptlist.saveXML());	
	
	    //fDisabled(false);
//	    fAppManNmSetting("S");
//	    fIssGoalNmSetting();
    ds_main_appinfo_copyinfo.setColumn(0, "status", "u");
    
    var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
  
	if(ds_grd_rcptlist.rowcount <= 0)   // 그리드가 빈줄인 경우
	{
        
		var currentdate = utlf_getCurrentDate();
	
		var lrow = ds_grd_rcptlist.addRow();

		// 06: 직할병원 - 수가코드(HCDD001-서울성모)
		if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))   // 무료 수가 코드 적용
		{
			ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_FreeCalcscorcd);
			ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_FreeCalcscorcdnm);
			// 처방코드(임시로 수가코드로 함)
			ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_FreeCalcscorcd);
			ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
		}
		else
		{ // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
		    if(g_DefCnt != 0)  // 기본수가코드의 기본매수가 0 이 아닌 경우( ex) 의정부성모..등  
            {
			    ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_DefCalcscorcd);
			    ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_DefCalcscorcd);
			    ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
			}
			else
			{
			    ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_AddCalcscorcd);
			    ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_AddCalcscorcd);
			    ds_grd_rcptlist.setColumn(lrow, "defyn", "ADD");
			}
			 
			// 수가 명칭 설정
		    if(ds_grd_rcptlist.getColumn(lrow, "defyn") == "ADD")
		    {
				ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_AddCalcscorcdnm);
		    }
			else
			{
				ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_DefCalcscorcdnm);
		    }
		}
		
		if(g_DefCnt != 0)
		{
			if(utlf_isNull(totalcopies)){
				ds_grd_rcptlist.setColumn(lrow, "shtno", g_DefCnt);
				//ds_grd_rcptlist.setColumn(lrow, "shtno", "1");
				ds_temp2_appinfo_copyinfo.setColumn(0, "totalshrtno", g_DefCnt);				
			}else{
				ds_grd_rcptlist.setColumn(lrow, "shtno", totalcopies);
				ds_temp2_appinfo_copyinfo.setColumn(0, "totalshrtno", totalcopies);	
			}
		}
		else
		{
		  ds_grd_rcptlist.setColumn(lrow, "shtno", g_AddCnt);
		  ds_temp2_appinfo_copyinfo.setColumn(0, "totalshrtno", g_AddCnt);
		}  
		//model.getValue("/root/temp/picmmech/picmmech_unitcost") 어디서나옴??
		ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
			
		if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
		{
			ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
		}
		ds_grd_rcptlist.setColumn(lrow, "prcpdd", currentdate);
		ds_grd_rcptlist.setColumn(lrow, "prcpno", "0");
		ds_grd_rcptlist.setColumn(lrow, "prcphistno", "0");
		
		ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
		ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
		ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
		
		ds_grd_rcptlist.setColumn(lrow, "oldshtno", "1");
		ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");
		ds_temp2_appinfo_copyinfo.setColumn(0, "totalcopies", "1");
		
		if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0)
		{
			ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", 1);
		}
					
		ds_grd_rcptlist.setColumn(lrow, "prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
		ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
		
		var arrPostion = new Array();
		arrPostion[0] = lrow;
		grdf_setStatus(grd_rcptlist, "I", arrPostion);
		
	}
	else  // 발행된 내역을 조회하는 경우
	{
		var shtno = 0;
		var iFindRow = 0;
		var RowCnt = 0;
		var lrow = 0;
		var currentdate = "";
		
		var tmpTotalCopies = 0;
		
		tmpTotalCopies = fGetTotalCopies();
		
		if(eval(ds_grd_rcptlist.rowcount) == 1)
		{			
            var iRow = ds_grd_rcptlist.rowcount - 1;
sysf_trace("***** iRow : " + iRow + " *****");                  
            if(parseInt(tmpTotalCopies) == parseInt(g_DefCnt))
            {
                ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
            }
        
            if(g_DefCnt > 0 && ds_grd_rcptlist.getColumn(iRow, "calcscorcd") == g_DefCalcscorcd)
            {
                ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
            }
sysf_trace("***** tmpTotalCopies : " + parseInt(tmpTotalCopies)+ " g_DefCnt : " + parseInt(g_DefCnt) +" *****");
			if(parseInt(tmpTotalCopies) > parseInt(g_DefCnt)) // 기본 매수보다 새로 입력한 장수가 10장 미만인경우
			{
				//var rcptNodelist = findNodeset(model, "/root/main/rcptlist/rcptlist[" + iRow + "]");
			    
			    if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))
			    {
			    }
			    else
			    {
			        
//     				if(rcptNodelist.length >= 1)
//     				{
    					//var rcptNode = rcptNodelist.item(0);
    
    					// 기본 수가로 설정
    					if(g_DefCnt != 0)
    					{
    					    //rcptNode.parentNode.appendChild(rcptNode);
    					    var nRow = ds_grd_rcptlist.addRow();
    					    ds_grd_rcptlist.copyRow(nRow, ds_grd_rcptlist, iRow);
    					    
    					    
    					    if(iRow == 0)
          					{
          						ds_grd_rcptlist.setColumn(iRow, "shtno", g_DefCnt);
          						//ds_grd_rcptlist.setColumn(iRow, "calcscornm", "의무기록사본발행");
          						ds_grd_rcptlist.setColumn(iRow, "calcscornm", g_DefCalcscorcdnm);
          						ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
          						ds_grd_rcptlist.setColumn(iRow, "prcpqty", "1"); // HCDD027 의 경우 매수를 10으로 하면 30000원이 계산됨.
          						
          						// 추가 수가를 설정-1
          						ds_grd_rcptlist.setColumn(nRow, "calcscorcd", g_AddCalcscorcd);
          						//ds_grd_rcptlist.setColumn(nRow, "calcscornm", "의무기록복사(추가한매당)");
          						ds_grd_rcptlist.setColumn(nRow, "prcpcd", g_AddCalcscorcd);
          						ds_grd_rcptlist.setColumn(nRow, "shtno", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
          						ds_grd_rcptlist.setColumn(nRow, "defyn", "ADD"); 
          						ds_grd_rcptlist.setColumn(nRow, "prcpqty", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
          					}  
    					}
    					else
    					{
    					    ds_grd_rcptlist.setColumn(iRow, "calcscorcd", g_AddCalcscorcd);
    						//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
    						ds_grd_rcptlist.setColumn(iRow, "prcpcd", g_AddCalcscorcd);
    						
    						if(g_DefCnt == 0)
    						{
    						  ds_grd_rcptlist.setColumn(iRow, "shtno", tmpTotalCopies);
    						  ds_grd_rcptlist.setColumn(iRow, "prcpqty", tmpTotalCopies);
    						}
    						else
    						{
    						  ds_grd_rcptlist.setColumn(iRow, "shtno", (tmpTotalCopies-g_AddCnt));
    						  ds_grd_rcptlist.setColumn(iRow, "prcpqty", (tmpTotalCopies-g_AddCnt));
    						}
    						ds_grd_rcptlist.setColumn(iRow, "defyn", "ADD"); 
    					}
    					
    					
    				//}
    		    }
			}
			else  // 기존 그리드가 1줄이고 이미 발행된 내역보다 새로 입력한 장수가 10장 이상인경우(그리드가 2줄이 되어야 함.
			{
                ds_grd_rcptlist.setColumn(iRow, "shtno", tmpTotalCopies);
			}
sysf_trace("***** g_inputbox : " + g_inputbox + " *****");			
			if(g_inputbox != "Y")
			{
			    if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") != ds_grd_rcptlist.getColumn(iRow, "prcptims"))
                {
                  ds_grd_rcptlist.setColumn(iRow, "prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
				  var arrPostion = new Array();
				  arrPostion[0] = iRow;
                  grdf_setStatus(grd_rcptlist, "U", arrPostion);
                }    
			}
		}
		else    // 수가가 여러줄인 경우
		{
		    if(g_DefCalcscorcd != "HCDD030")
		    {
		        for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
  			    {
      				// 첫번째 매수 확인
      				if(ds_grd_rcptlist.getColumn(iRow, "calcscorcd") == g_DefCalcscorcd && utlf_isNull(ds_grd_rcptlist.getColumn(iRow, "defyn")))
      				{
      					var fstshtno = ds_grd_rcptlist.getColumn(iRow, "shtno");
      				
      					if(fstshtno == g_DefCnt)
      					{
      						ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
      					}
      					
      					if(fstshtno > g_DefCnt)
      					{
      						ds_grd_rcptlist.setColumn(iRow, "shtno", g_DefCnt);	
      					}
      				}
  							
  				    // 기본 수가로 설정
  				    if(g_DefCnt != 0)
  				    {
  				        if(iRow == 0)
  					    {
      						ds_grd_rcptlist.setColumn(iRow, "shtno", g_DefCnt);
      						//ds_grd_rcptlist.setColumn(iRow, "shtno", "1");    // HCDD027 의 경우 매수를 10으로 하면 30000원이 계산됨.
      						//ds_grd_rcptlist.setColumn(iRow, "calcscornm", "의무기록사본발행");
      						ds_grd_rcptlist.setColumn(iRow, "calcscornm", g_DefCalcscorcdnm);
      						ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
      						ds_grd_rcptlist.setColumn(iRow, "prcpqty", "1");
      						
      						// 추가 수가를 설정
      						ds_grd_rcptlist.setColumn((iRow+1), "calcscorcd", g_AddCalcscorcd);
      						//ds_grd_rcptlist.setColumn((iRow+1), "calcscornm", "의무기록복사(추가한매당)");
      						ds_grd_rcptlist.setColumn((iRow+1), "calcscornm", g_AddCalcscorcdnm);
      						ds_grd_rcptlist.setColumn((iRow+1), "prcpcd", g_AddCalcscorcd);
      						ds_grd_rcptlist.setColumn((iRow+1), "shtno", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
      						ds_grd_rcptlist.setColumn((iRow+1), "defyn", "ADD"); 
      						ds_grd_rcptlist.setColumn((iRow+1), "prcpqty", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
  					    }  
  				    }
  				    else
  				    {
      				    ds_grd_rcptlist.setColumn(iRow, "calcscorcd", g_AddCalcscorcd);
      					//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
      					ds_grd_rcptlist.setColumn(iRow, "prcpcd", g_AddCalcscorcd);
      					ds_grd_rcptlist.setColumn(iRow, "shtno", parseInt(tmpTotalCopies)-parseInt(g_AddCnt));
      					ds_grd_rcptlist.setColumn(iRow, "defyn", "ADD"); 
      					ds_grd_rcptlist.setColumn(iRow, "prcpqty", parseInt(tmpTotalCopies)-parseInt(g_AddCnt));
  					
  					    // 의정부, 성가는 부수를 1로 고정
  					    if(g_inputbox == "Y")
  					    {
  					        ds_grd_rcptlist.setColumn(iRow, "prcptims", "1");
  					    }
  				    }
  			    }	
		    }
		}
		
		// 직할병원
		if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd)) 
		{
			//iFindRow = grd_rcptlist.findRow(g_FreeCalcscorcd,0,2);
			iFindRow = ds_grd_rcptlist.findRow("calcscorcd", g_FreeCalcscorcd);
			if(iFindRow < 0){
				for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
				{
					var arrPostion = new Array();
					arrPostion[0] = iRow;
					grdf_setStatus(grd_rcptlist, "D", arrPostion);
					ds_grd_rcptlist.setColumn(iRow, "readonly", "Y");
// 					grd_rcptlist.rowStatus(iRow) = 4;
// 					grd_rcptlist.isReadOnly(iRow,4) = true;
					shtno += eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
				}					
				RowCnt = 1;
			}
		}
		else
		{// 그외 목적
			
			//iFindRow = grd_rcptlist.findRow(RecPrcpCd,0,2);
			iFindRow = ds_grd_rcptlist.findRow("calcscorcd", RecPrcpCd);
// sysf_trace("*****#1 iFindRow : " + iFindRow +" *****");
// sysf_trace("*****#1 RecPrcpCd : " + RecPrcpCd +" *****");
			if(iFindRow < 0)
			{
    		    for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
    		    {
					var arrPostion = new Array();
					arrPostion[0] = iRow;
    				grdf_setStatus(grd_rcptlist, "D", arrPostion);
					ds_grd_rcptlist.setColumn(iRow, "readonly", "Y");
// 					grd_rcptlist.rowStatus(iRow) = 4;
//     				grd_rcptlist.isReadOnly(iRow,4) = true;
    				shtno += eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
    			}
				
				if(shtno > 10){
					RowCnt = 2;
				}else{
					RowCnt = 1;	
				}
        	}
		}
//sysf_trace("*****#2 iFindRow : " + iFindRow +" *****");		
		if(iFindRow < 0)
		{
			for(var iRow = 0; iRow < RowCnt; iRow++)
			{
				
				currentdate = utlf_getCurrentDate();
				lrow = ds_grd_rcptlist.addRow();	
				
				if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))
				{
					ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_FreeCalcscorcd);
        			ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_FreeCalcscorcdnm);
        			// 처방코드(임시로 수가코드로 함)
        			ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_FreeCalcscorcd);		
        			ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
				}
				else
				{
					if(iRow == 0)
					{
						ds_grd_rcptlist.setColumn(lrow, "calcscorcd", RecPrcpCd);
        		        //ds_grd_rcptlist.setColumn(lrow, "calcscornm", "의무기록사본발행");
        		        ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_DefCalcscorcdnm);
        		        // 처방코드(임시로 수가코드로 함)
        		        ds_grd_rcptlist.setColumn(lrow, "prcpcd", RecPrcpCd);
        		        ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
                    }
                    else if(iRow == 1)
                    {
						ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_AddCalcscorcd);
     				    ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_AddCalcscorcdnm);
     				    // 처방코드(임시로 수가코드로 함)
              			ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_AddCalcscorcd);
              			ds_grd_rcptlist.setColumn(lrow, "unitcost", "");			        		
        	        }
				}
					
				if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
		        {
		            ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
		        }
		        ds_grd_rcptlist.setColumn(lrow, "prcpdd", currentdate);
		        ds_grd_rcptlist.setColumn(lrow, "prcpno", "0");
		        ds_grd_rcptlist.setColumn(lrow, "prcphistno", "0");
			        
		        ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
		        ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
		        ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
		        
		        if(RowCnt == 1){
			        ds_grd_rcptlist.setColumn(lrow, "shtno", shtno);
			        ds_grd_rcptlist.setColumn(lrow, "oldshtno", shtno);
			        if(issgoalcd == "06"){
			        	ds_grd_rcptlist.setColumn(lrow, "prcpqty", shtno);
			        }else{
			        	ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");
			        }
			    }else{	// 직할병원을 제외한 목적의 경우로 매수가 10매 이상인 경우
			    	if(iRow == 0){	// 수가코드 (HCDD027) 처리
				        ds_grd_rcptlist.setColumn(lrow, "shtno", "10");
				        ds_grd_rcptlist.setColumn(lrow, "oldshtno", "10");
				        ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");
			    		
			    	}else if(iRow == 1){	// 수가코드(HCDD030) 처리
				        ds_grd_rcptlist.setColumn(lrow, "shtno", (shtno-10));
				        ds_grd_rcptlist.setColumn(lrow, "oldshtno", (shtno-10));
				        ds_grd_rcptlist.setColumn(lrow, "prcpqty", (shtno-10));				    		
			    	}
			    }
				   
		        ds_grd_rcptlist.setColumn(lrow, "prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
		        ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
				
				var arrPostion = new Array();
				arrPostion[0] = lrow;
      			grdf_setStatus(grd_rcptlist, "I", arrPostion);
      			//grd_rcptlist.addStatus(lrow, "insert");
        	}
		}
		
		//2008-10-24 이창록 수정 부수가 0이면 defalut 으로 1로 셋팅 
		if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies")==0){
			ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies",1);
			fChangedAppCopies();
		}
		
		var totalcopiesNew = ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "totalcopies");
		var emrappcopiesNew = ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "emrappcopies");
		
		g_GrdTotalCnt = totalcopiesNew * emrappcopiesNew;
	}
		  		
	if(g_inputbox == "Y") // 수가가 기본, 추가 수가코드로 이루어진 경우
	{
	    grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "shtno"), "edittype", "none");
	    grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "shtno"), "prcptims", "none");
// 	    grd_rcptlist.colAttribute (4, "disabled" ) = "true";
// 	    grd_rcptlist.colAttribute (19, "disabled" ) = "true";
		ds_grd_rcptlist.applyChange();
		
		// 그리드 복사
		ds_grd_tmprcptlist.copyData(ds_grd_rcptlist);
		ds_grd_tmprcptlist.applyChange();
		//model.copyNode("/root/temp2/rcptlist", "/root/main/rcptlist");
	}
	
	// event On
	ds_grd_rcptlist.enableevent = true;
	
}

function fIssSearch_old()
{ 
  if (grd_apphist.rows<= 1) return;
	if (grd_apphist.row < 1) return;
	
	var lrow = grd_apphist.row;
	var RecPrcpCd = model.getValue("/root/hidden/calcscorcd/hardcd/hardcd");//의무기록 사본발행 수가코드
	
	model.makeValue("/root/send/search/pid", model.getValue("/root/main/apphist/applist[" + lrow + "]/pid"));
	model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + lrow + "]/copyseqno"));
	//model.removeNodeset("/root/main/issinfo/emrapplist");
	
	// reqGetCopyIssDetailInfo
	// getCopyIssInfo : 발행정보
	// getPaperScopCd : 종이서식범위
	// getCopyEmrAppList : emr서식
	// getCopyRcptList : 수가 
	/*if(model.getValue("/root/main/isshist/isslist[" + lrow + "]/unprepyn") == "Y"){
		messageBox("환자의 기록이 미완결","I009");	
	}*/
	grd_rcptlist.clearStatus();
	if (submit("TRMRC03023", false) == true)
	//{
	    //fDisabled(false);
//	    fAppManNmSetting("S");
//	    fIssGoalNmSetting();
	    model.setValue("/root/main/appinfo/copyinfo/status", "u");
	    model.refresh();
	    var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
		if(grd_rcptlist.rows == grd_rcptlist.fixedrows){
			grd_rcptlist.additem();	
			var currentdate = getCurrentDate();
			var lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;			
			
			// 06: 직할병원 - 수가코드(HCDD001)
			if(issgoalcd == "06" && g_FreeCalcscorcd != "")			{
				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", "HCDD001");
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행(CMC 의사)");
        		// 처방코드(임시로 수가코드로 함)
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", "HCDD001");
			}else{ // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", RecPrcpCd);
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
        		// 처방코드(임시로 수가코드로 함)
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", RecPrcpCd);
			}
			
			
        	model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
			
			if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
	        {
	            model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
	        }
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", currentdate);
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpno", "0");
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcphistno", "0");
	        
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", "1");
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", "1");
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
	        
        	grd_rcptlist.addStatus(lrow, "insert");
        	//btn_delete.disabled = false;
        	//btn_delete.refresh();
		}else{
			var shtno = 0;
			var iFindRow =0;
			var RowCnt = 0;
			var lrow = 0;
			var currentdate = "";
			for(var iRow = grd_rcptlist.fixedrows; iRow <= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++){
				if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") != model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims")){
					model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
					grd_rcptlist.rowStatus(iRow) = 2;
				} 
			}
			// 직할병원
			if(issgoalcd == "06" && g_FreeCalcscorcd != ""){
				iFindRow = grd_rcptlist.findRow("HCDD001",0,2);
				if(iFindRow < 1){
					for(var iRow = grd_rcptlist.fixedrows; iRow <= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++){
						grd_rcptlist.rowStatus(iRow) = 4;
						grd_rcptlist.isReadOnly(iRow,4) = true;
						shtno += eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
					}					
					RowCnt = 1;
				}
			}else{// 그외 목적
				
				iFindRow = grd_rcptlist.findRow(RecPrcpCd,0,2);
				
				if(iFindRow < 1){
					for(var iRow = grd_rcptlist.fixedrows; iRow<= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++){
						grd_rcptlist.rowStatus(iRow) = 4;
						grd_rcptlist.isReadOnly(iRow,4) = true;
						shtno += eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
					}
					if(shtno > 10){
						RowCnt = 2;
					}else{
						RowCnt = 1;	
					}
					
	        	}
			}
			if(iFindRow < 1){
				for(var iRow = 1; iRow <= RowCnt; iRow++){
					grd_rcptlist.additem();	
					currentdate = getCurrentDate();
					lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
					if(issgoalcd == "06"){
						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", "HCDD001");
	        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행(CMC 의사)");
	        			// 처방코드(임시로 수가코드로 함)
	        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", "HCDD001");		
	        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
					}else{
						if(iRow == 1){
							model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", RecPrcpCd);
			        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
			        		// 처방코드(임시로 수가코드로 함)
			        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", RecPrcpCd);
			        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
			        	}else if(iRow == 2){
							model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", "HCDD030");
		       				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록복사(추가한매당)");
		       				// 처방코드(임시로 수가코드로 함)
		        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", "HCDD030");
		        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", "");			        		
			        	}
					}
					
				
					if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
			        {
			            model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
			        }
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", currentdate);
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpno", "0");
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcphistno", "0");
			        
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
			        if(RowCnt == 1){
				        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", shtno);
				        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", shtno);
				        if(issgoalcd == "06"){
				        	model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", shtno);
				        }else{
				        	model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
				        }
				    }else{	// 직할병원을 제외한 목적의 경우로 매수가 10매 이상인 경우
				    	if(iRow == 1){	// 수가코드 (HCDD027) 처리
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", "10");
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", "10");
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
				    		
				    	}else if(iRow == 2){	// 수가코드(HCDD030) 처리
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", (shtno-10));
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", (shtno-10));
					        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", (shtno-10));				    		
				    	}
				    }
				   
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
	        
        			grd_rcptlist.addStatus(lrow, "insert");
        		}
			}
			 //2008-10-24 이창록 수정 부수가 0이면 defalut 으로 1로 셋팅 
			if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies")==0){
				model.setValue("/root/main/appinfo/copyinfo/emrappcopies",1);
				//ipt_emrappcopies.refresh();
				fChangedAppCopies();
			}
			//btn_delete.disabled = true;
			//btn_delete.refresh();
		}
		
/*	}
	else
	{
		messageBox("조회를", "E009");
	}*/
	//model.refresh();
}


// 신청부수가 변경될 경우
function fChangedAppCopies(){
sysf_trace(" ***** fChangedAppCopies() *****");
		
	var sEMRAppCopies = ds_grd_rcptlist.getColumn(ds_grd_rcptlist.rowposition, "prcptims");
	var iPrcpTims = 0;
	var sShtNo = 0;
	var sOldShtNo = 0;
	var iStatus = 0;
	
	iRow = ds_grd_rcptlist.rowposition;
	iPrcpTims = ds_grd_rcptlist.getColumn(iRow, "oldprcptims");
	iStatus = ds_grd_rcptlist.getRowType(iRow);
	ds_grd_rcptlist.enableevent = false;
	if(sEMRAppCopies != iPrcpTims){
		ds_grd_rcptlist.setColumn(iRow, "prcptims",sEMRAppCopies);
		// TF status 0 : new , 2 : update   XP 1 : nomal, 4 : update
		if(iStatus == 1){
			var arrPostion = new Array();
			arrPostion[0] = iRow;
			grdf_setStatus(grd_rcptlist, "U", arrPostion);
		}
		//grd_rcptlist.rowstatus(iRow) = 2;
		
	}else{
		sShtNo = ds_grd_rcptlist.getColumn(iRow, "shtno");
		sOldShtNo = ds_grd_rcptlist.getColumn(iRow, "oldshtno");
		if(sShtNo == sOldShtNo && iStatus == 4){
			//grd_rcptlist.rowstatus(iRow) = 0;
			var arrPostion = new Array();
			arrPostion[0] = iRow;
			grdf_setStatus(grd_rcptlist, Dataset.ROWTYPE_NORMAL, arrPostion);
		}
	}
	ds_grd_rcptlist.enableevent = true;
	
}

function fChangedAppCopies_old(){
	//var sEMRAppCopies = ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies");
	
	var sEMRAppCopies = model.getValue("/root/main/rcptlist/rcptlist["+ grd_rcptlist.row +"]/prcptims");
	var iPrcpTims = 0;
	var sShtNo = 0;
	var sOldShtNo = 0;
	var iStatus = 0;
	
	//for(var iRow = grd_rcptlist.fixedrows; iRow <= grd_rcptlist.rows - grd_rcptlist.fixedrows; iRow++){
	iRow = grd_rcptlist.row;
		iPrcpTims = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldprcptims");
		iStatus = grd_rcptlist.rowstatus(iRow);
		if(sEMRAppCopies != iPrcpTims){
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcptims",sEMRAppCopies);
			if(iStatus == 0) grd_rcptlist.rowstatus(iRow) = 2;
		}else{
			sShtNo = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno");
			sOldShtNo = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno");
			if(sShtNo == sOldShtNo && iStatus == 2){
				grd_rcptlist.rowstatus(iRow) = 0;
			}
		}
	//}
}

function fGetInEmrFormList() {
	var hRow = grd_apphist.row - grd_apphist.fixedRows +1;
    model.removeNodeset("/root/main/issinfo/emrapplist");
    model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + hRow + "]/copyseqno"));
    model.makeValue("/root/send/search/pid", model.getValue("/root/main/apphist/applist[" + hRow + "]/pid"));
    
    if (submit("TRMRC03015",false))  // 서식지분류 조회 list /root/main/issinfo/emrapplist
    {   
    }
    btn_save.disabled          = true;
    btn_update.disabled        = false;
    btn_reappinfo.disabled     = false;
    grd_emrapplist.refresh();
}

function fGetEMRDrawList() {
	var hRow = grd_apphist.row - grd_apphist.fixedRows +1;
    model.removeNodeset("/root/main/issinfo/emrapplist");
    model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + hRow + "]/copyseqno"));
    model.makeValue("/root/send/search/pid", model.getValue("/root/main/apphist/applist[" + hRow + "]/pid"));
    
    if (submit("TRMRC03031",false)) 
    {   
    }
    btn_save.disabled          = true;
    btn_update.disabled        = false;
    btn_reappinfo.disabled     = false;
    grd_emrapplist.refresh();
}

// 신청된 사본 호출
function fGetMidFormList() {
sysf_trace("***** fGetMidFormList() *****");
    ds_grd_inpat.clearData();//model.removeNodeset("/root/main/midissinfo");
    ds_main_midissinfo_totemrapplist.clearData();
    
    dsf_createDs("ds_isstemp_emrapplist");
    dsf_createDs("ds_totisstemp_totemrapplist");
    dsf_copyColInfo(ds_isstemp_emrapplist, ds_grd_inpat);
    dsf_copyColInfo(ds_totisstemp_totemrapplist, ds_main_midissinfo_totemrapplist);
    
    
    var hRow = ds_grd_apphist.rowposition;
    var copyseqno = ds_grd_apphist.getColumn(hRow, "copyseqno");
    //var inpathistNodes = instance1.selectNodes("/root/main/inpathistlist/inpathistlist");
    
    for(var i = 0; i < ds_grd_inapplist.rowcount; i++)
    {
        ds_send_search.clearData();
        var nRow = ds_send_search.addRow();
        
        ds_send_search.setColumn(nRow, "copyseqno", copyseqno);
        ds_send_search.setColumn(nRow, "pid", ds_grd_inapplist.getColumn(i, "pid"));
        ds_send_search.setColumn(nRow, "orddd", ds_grd_inapplist.getColumn(i, "indd"));
        ds_send_search.setColumn(nRow, "cretno", ds_grd_inapplist.getColumn(i, "cretno"));
        ds_send_search.setColumn(nRow, "orddeptcd", ds_grd_inapplist.getColumn(i, "orddeptcd"));
        ds_send_search.setColumn(nRow, "ordtype", ds_grd_inapplist.getColumn(i, "ioflag"));
        //2009-11-03 오전 2:06:12 강지훈 추가 
        ds_send_search.setColumn(nRow, "bfopentest", ds_grd_inapplist.getColumn(i, "bfopentest"));
        
        if (!utlf_isNull(ds_grd_inapplist.getColumn(i, "pid")))
        {
            // 중분류 단위조회
            var oParam = {};
				oParam.id       = "TRMRC03022";
				oParam.service  = "chrtmngtapp.CopyIssMngt";
				oParam.method   = "reqGetInMidEmrFormList";
				oParam.inds     = "req=ds_send_search";
				oParam.outds    = "ds_grd_inpat=emrapplist ds_main_midissinfo_totemrapplist=totemrapplist";
				oParam.async    = false;
				oParam.callback = "cf_TRMRC03022";

			tranf_submit(oParam);
            
            if(arErrorCode.pop("TRMRC03022") > -1){
				
				ds_isstemp_emrapplist.appendData(ds_grd_inpat);
				ds_totisstemp_totemrapplist.appendData(ds_main_midissinfo_totemrapplist);
//             	copyNodeset("/root/isstemp/emrapplist", "/root/midtemp/midissinfo/emrapplist", "append");
//             	copyNodeset("/root/totisstemp/totemrapplist", "/root/midtemp/midissinfo/totemrapplist", "append");
            	ds_grd_inpat.clearData();//model.removeNodeset("/root/main/midissinfo");
				ds_main_midissinfo_totemrapplist.clearData();
            }
        }
    }
    
    ds_grd_inpat.appendData(ds_isstemp_emrapplist);
	ds_main_midissinfo_totemrapplist.appendData(ds_totisstemp_totemrapplist);
	dsf_deleteDs("ds_isstemp_emrapplist");
	dsf_deleteDs("ds_totisstemp_totemrapplist");
    
//     copyNodeset("/root/main/midissinfo/emrapplist", "/root/isstemp/emrapplist", "append");
//     copyNodeset("/root/main/midissinfo/totemrapplist", "/root/totisstemp/totemrapplist", "append");
//     model.removeNodeset("/root/isstemp");
//     model.removeNodeset("/root/totisstemp");

}

// 신청된 사본 호출
function fGetMidFormList_old() {
    var hRow = grd_apphist.row - grd_apphist.fixedRows +1;
    model.removeNodeset("/root/main/midissinfo/emrapplist");
    
    model.makeValue("/root/send/search/copyseqno", model.getValue("/root/main/apphist/applist[" + hRow + "]/copyseqno"));
    model.makeValue("/root/send/search/pid", model.getValue("/root/main/inpathistlist/inpathistlist/pid"));
    model.makeValue("/root/send/search/orddd", model.getValue("/root/main/inpathistlist/inpathistlist/indd"));
    model.makeValue("/root/send/search/cretno", model.getValue("/root/main/inpathistlist/inpathistlist/cretno"));
    model.makeValue("/root/send/search/orddeptcd", model.getValue("/root/main/inpathistlist/inpathistlist/orddeptcd"));
    model.makeValue("/root/send/search/ordtype", model.getValue("/root/main/inpathistlist/inpathistlist/ioflag"));
    
    if (model.getValue("/root/main/inpathistlist/inpathistlist/pid") != "")
    {
        // 중분류 단위조회
        if(submit("TRMRC03022")){
        	//for(var k = 1; k < grd_inpat.rows; k++)  
        	//	model.setValue("/root/main/midissinfo/emrapplist["+ k +"]/chk", "Y");
        }
    }
}

function fGetOutEmrFormList() {
sysf_trace("***** fGetOutEmrFormList() *****");
	var hRow = ds_grd_apphist.rowposition;
    ds_grd_outapplist.clearData();
    
//     ds_send_search.clearData();
//     var nRow = ds_send_search.addRow();
    ds_send_search.setColumn(0, "copyseqno", ds_grd_apphist.getColumn(hRow, "copyseqno"));
    ds_send_search.setColumn(0, "pid", ds_grd_apphist.getColumn(hRow, "pid"));
    
    
    //xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(ds_grd_outapplist.getColumnInfo("orddeptcd")))
		ds_grd_outapplist.updateColID("orddeptcd", "orddeptdcd");
    
    var oParam = {};
		oParam.id       = "TRMRC03017";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetOutEmrFormList";
		oParam.inds     = "req=ds_send_search";
		oParam.outds    = "ds_grd_outapplist=emrlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03017";

	tranf_submit(oParam);
    
    if (arErrorCode.pop("TRMRC03017") > -1)  // 사본신청 list /root/temp/issinfo/emrlist
    {   
		fSet_enableevent(false);
    	ds_main_otherinfo.clearData();
    	ds_main_otherinfo.addRow();
    	fSet_enableevent(true);
    	
    	if(ds_grd_outapplist.rowcount > 0) {
    		for(var rowcnt = 0; rowcnt < ds_grd_outapplist.rowcount; rowcnt++){
    			if(ds_grd_outapplist.getColumn(rowcnt, "chrtflag") == "P") { // 종이차트
    				ds_main_otherinfo.setColumn(0, "outchrtflag", ds_grd_outapplist.getColumn(rowcnt, "formcd"));
    			}
    			var testflag = ds_grd_outapplist.getColumn(rowcnt, "testflag");
    			//sysf_trace("testflag : " + testflag );
    			switch(testflag) {
    				case "A" : ds_main_otherinfo.setColumn(0, "prcpinfo", "Y"); break;
    				case "C" : ds_main_otherinfo.setColumn(0, "testinfo1", "Y"); break;
    				case "D" : ds_main_otherinfo.setColumn(0, "testinfo2", "Y"); break;
    				case "E" : ds_main_otherinfo.setColumn(0, "testinfo3", "Y"); break;
    				case "F" : ds_main_otherinfo.setColumn(0, "testinfo4", "Y"); break;
    				case "G" : ds_main_otherinfo.setColumn(0, "testinfo5", "Y"); break;
    				case "H" : ds_main_otherinfo.setColumn(0, "testinfo6", "Y"); break;
    				case "I" : ds_main_otherinfo.setColumn(0, "testinfo7", "Y"); break;
    				case "J" : ds_main_otherinfo.setColumn(0, "testinfo8", "Y"); break;
    				case "T" : ds_main_otherinfo.setColumn(0, "onlytest", "Y"); break;
    				case "O" : ds_main_otherinfo.setColumn(0, "testinfo", "Y"); break;
    			}
    		}
    	}
    	ds_main_otherinfo.setColumn(0, "lang", "K");
    }
    
    for(var i = 0; i < ds_grd_outapplist.rowcount; i++){
    	ds_grd_outapplist.setColumn(i, "indd"     ,ds_grd_outapplist.getColumn(i, "testorddd"));
        ds_grd_outapplist.setColumn(i, "orddd"    ,ds_grd_outapplist.getColumn(i, "testorddd"));
        ds_grd_outapplist.setColumn(i, "cretno"   ,ds_grd_outapplist.getColumn(i, "testcretno"));
        ds_grd_outapplist.setColumn(i, "orddeptcd",ds_grd_outapplist.getColumn(i, "testorddeptcd"));
    }
    
    btn_reappinfo.enable = true;
    //model.removeNodeset("/root/send/deptcond");
}

// 처방이력 팝업 호출
function fPopUpPrcpHist(){
sysf_trace("***** fPopUpPrcpHist() *****");
	if(ds_grd_apphist.rowposition < 0){
		sysf_messageBox("환자를 먼저", "C002");
		return;	
	}
	var copyseqno = ds_main_appinfo_copyinfo.getColumn(0, "copyseqno");
	frmf_setParameter("SPMRC02400_Param", copyseqno);
	frmf_modal("SPMRC02400", "SPMRC02400", null, null, null, null, null, null, null, null, null, null, "M");
}

// 승락서/증명서 출력
function fPrnt(pFlag)
{
sysf_trace("***** fPrnt("+pFlag+") *****");

	var iRow = ds_grd_apphist.rowposition;
	if(ds_grd_apphist.rowcount == 1) {iRow = 0;}
	else {
		var sCopySeqNo = ds_main_cond.getColumn(0, "copyseqno");
		// 2009.05.29 이경희
		// 이전 사본발행 내역에서 컬럼을 하나 추가함에 따라 검색 범위를 변경
		//var iRow = grd_apphist.findRow(sCopySeqNo,1,24);
		var iRow = ds_grd_apphist.findRow("copyseqno", sCopySeqNo);
		
		ds_grd_apphist.rowposition = iRow;
	}
		
	var pid = ds_main_cond.getColumn(0, "pid");
	if(utlf_isNull(pid)){
		sysf_messageBox("환자를 먼저","C002");
		return;				
	}
	
	var issno = ds_grd_apphist.getColumn(iRow, "issno");
	

	// 증명서
	if(pFlag == "crtfct" || pFlag == null){
		ds_temp_crtfctinfo.clearData();
		ds_temp_crtfctinfo.addRow();
		
		var sIssGoalCd = "";
		var sIssGoalNm = "";
		
		ds_temp_crtfctinfo.setColumn(0, "pid", pid);
		ds_temp_crtfctinfo.setColumn(0, "hngnm", ds_main_appinfo_copyinfo.getColumn(0, "hngnm"));
		ds_temp_crtfctinfo.setColumn(0, "engnm", ds_main_appinfo_copyinfo.getColumn(0, "engnm"));
		ds_temp_crtfctinfo.setColumn(0, "usernm", sysf_getUserInfo("usernm"));
		sIssGoalCd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
		
		if(rdo_lang.value == "E"){
			switch(sIssGoalCd){
	        	case "01": 
	        		sIssGoalNm = "Hospital Referral";
	        		break;
	        	case "02": 
	        		sIssGoalNm = "Insurance company Submission";
	        		break;
	        	case "03": 
	        		sIssGoalNm = "Military Submission";
	        		break;
	        	case "04": 
	        		sIssGoalNm = ds_main_appinfo_copyinfo.getColumn(0, "issgoalnm");	
	        		break;
	        	case "05": 
	        		sIssGoalNm = "Personal Record";
	        		break;
	        	case "06": 
	        		sIssGoalNm = ds_main_appinfo_copyinfo.getColumn(0, "issgoalnm");	
	        		break;
	        	case "07": 
	        		sIssGoalNm = "Government Submission";
	        		break;
	        	case "08": 
	        		sIssGoalNm = "Police Submission";
	        		break;
	        	case "09": 
	        		sIssGoalNm = "Court Submission";
	        		break;
	        	case "10": 
	        		sIssGoalNm = "Public corporation Submission";
	        		break;
	        	case "11": 
	        	    sIssGoalNm = "Company submission";
	        		break;
	        	case "12": 
	        	    sIssGoalNm = "School Submission";
	        		break;
	        	case "13": 
	        		sIssGoalNm = "Medical certificate issuance";
	        		break;
	        	case "99": 
	        		sIssGoalNm = "Other";
	        		sIssGoalNm += "("+ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm")+")";
	        		break;
        	}
        	ds_temp_crtfctinfo.setColumn(0, "issgoalnm", sIssGoalNm);
        	ds_temp_crtfctinfo.setColumn(0, "enghospnm", ds_main_paper.getColumn(0, "enghospnm"));
		} else {
			sIssGoalNm = ds_main_appinfo_copyinfo.getColumn(0, "issgoalnm");	
			ds_temp_crtfctinfo.setColumn(0, "hospnm", ds_main_paper.getColumn(0, "hospnm"));
			if(sIssGoalCd == "99"){	// 기타
				sIssGoalNm += "("+ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm")+")";
			}
		}
		ds_temp_crtfctinfo.setColumn(0, "issgoalnm", sIssGoalNm);
		ds_temp_crtfctinfo.setColumn(0, "addr", ds_main_paper.getColumn(0, "addr"));
		
		if(ds_temp2_appinfo_copyinfo.getColumn(0, "newcopy") == "Y")  // 추가로 사본등록을 신청한 경우
		{
		   ds_temp_crtfctinfo.setColumn(0, "totalcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
		}
		else
		  ds_temp_crtfctinfo.setColumn(0, "totalcopies", ds_main_appinfo_copyinfo.getColumn(0, "totalcopies"));
		
		ds_temp_crtfctinfo.setColumn(0, "issdd", ds_main_appinfo_copyinfo.getColumn(0, "issdt").substr(0,8));
		ds_temp_crtfctinfo.setColumn(0, "nissdd", ds_main_appinfo_copyinfo.getColumn(0, "issdt").substr(0,4) + "." + ds_main_appinfo_copyinfo.getColumn(0, "issdt").substring(4,6)+ "." + ds_main_appinfo_copyinfo.getColumn(0, "issdt").substring(6,8));
		
		//2008-09-20 이창록 추가 (신청 부수만큼 증명서 출력) 
		if(g_inputbox == "Y")
		{
		  sEMRAppCopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");  
		  
		  ds_temp_crtfctinfo.setColumn(0, "totalcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno")); 
		}
		else
		{
		  sEMRAppCopies = ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies");  
		}
		
		// KNUH_20101223_박성호_start_기관코드추가
		ds_temp_crtfctinfo.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
		// KHNU_20101223_end

		var tmpissno = "";
		if(issnoYN != "Y") {
			ds_temp_crtfctinfo.setColumn(0, "issno", issno);	
			
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "/root/temp/crtfctinfo", ds_temp_crtfctinfo); // 데이터셋 1	
			//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
				
			var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
			var option = "open=1;save=1;directprint=1;printdialog=0;print="+sEMRAppCopies+";zoom=0";
			
			// jw.choe print 장수 체크 필요!!!
			
			// 2013.09.05 CYW 증명서 출력시 느린현상 수정 
			if(rdo_lang.value == "K") {
				//exeReportPreview("RPMRC01100", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
				rptf_exeReportPreview30(["RPMRC01100"],[objParam], option);
			} else if(rdo_lang.value == "E"){
				//exeReportPreview("RPMRC01103", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
				rptf_exeReportPreview30(["RPMRC01103"],[objParam], option);
			} else {
 				//exeReportPreview("RPMRC01100", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
				rptf_exeReportPreview30(["RPMRC01100"],[objParam], option);
			}
		} else if(issnoYN == "Y") {
			//var issnolist = instance1.selectNodes("/root/return/return/issno");
			//model.makeNode("/root/temp/crtfctinfo/issno");
			
			var issnos = ds_return.rowcount;
		    var tmpissno1 = "";
		    var tmpissno2 = "";

			for(var i = 0; i < ds_return.rowcount; i++) {
			  
			  ds_temp_crtfctinfo.setColumn(0, "issno", ds_return.getColumn(i, "issno"));  


			  var objDOM = rptf_createDOM();	// DOM 객체 설정
			  rptf_setNodeListToDOM(objDOM, "/root/temp/crtfctinfo", ds_temp_crtfctinfo); // 데이터셋 1	
			  //sysf_trace(objDOM.documentElement.source);	// XML 내용출력
				
			  var objParam = new Object();
			  objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
			  var option = "open=1;save=1;directprint=1;printdialog=0;print="+sEMRAppCopies+";zoom=0";

			  // 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트) 하면서 증명서 출력매수 오류 수정...
			  tmpissno1 = ds_return.getColumn(i, "issno");
			  if (tmpissno1 != tmpissno2)
			  {
				  if(g_addstatus == "Y")
					tmpissno = ds_temp_crtfctinfo.getColumn(0, "llissno");
					
				  // 2013.09.05 CYW 증명서 출력시 느린현상 수정 
				  if(rdo_lang.value == "K") {
					//exeReportPreview("RPMRC01100", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
					rptf_exeReportPreview30(["RPMRC01100"],[objParam], option);
				  } else if(rdo_lang.value == "E"){
					//exeReportPreview("RPMRC01103", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
					rptf_exeReportPreview30(["RPMRC01103"],[objParam], option);
				  } else { 
					//exeReportPreview("RPMRC01100", "XMLSTR", "/root/temp/crtfctinfo", "", "true", "", "", "", "", "true",	  "","","","","", sEMRAppCopies,"","", "/root/temp/crtfctinfo");
					rptf_exeReportPreview30(["RPMRC01100"],[objParam], option);
				  } 
			  }
			  tmpissno2 = ds_return.getColumn(i, "issno");

			}
		}
		
	}
	
	if(pFlag == "cnfm" || pFlag == null){	// 승락서
		ds_temp_cnfminfo_issinfo.clearData();
		ds_temp_cnfminfo_issinfo.addRow();
	
		ds_send_reqdata.clearData()
		var nRow = ds_send_reqdata.addRow();
		ds_send_reqdata.setColumn(nRow, "pid", ds_grd_apphist.getColumn(iRow, "pid"));
		ds_send_reqdata.setColumn(nRow, "orddd", ds_grd_apphist.getColumn(iRow, "orddd"));
		ds_send_reqdata.setColumn(nRow, "cretno", ds_grd_apphist.getColumn(iRow, "cretno"));
		ds_send_reqdata.setColumn(nRow, "formcd", "0000001127");

		var oParam = {};
			oParam.id       = "TRMRC03027";
			oParam.service  = "chrtmngtapp.CopyIssMngt";
			oParam.method   = "reqGetOCRInfo";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_main_cnfmlist=cnfmlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMRC03027";

		tranf_submit(oParam);
		
		ds_temp_cnfminfo_issinfo.setColumn(0, "seq", ds_main_cnfmlist.getColumn(0, "seq"));
				
		var formnm = "";
		//model.resetInstanceNode("/root/temp/cnfminfo/issinfo");
		ds_temp_cnfminfo_issinfo.setColumn(0, "pid", pid);
		
		 if(g_addstatus == "Y")
		 	ds_temp_cnfminfo_issinfo.setColumn(0, "issno", tmpissno);
		 else
			ds_temp_cnfminfo_issinfo.setColumn(0, "issno", issno);
	  
		ds_temp_cnfminfo_issinfo.setColumn(0, "orddeptnm", ds_main_appinfo_copyinfo.getColumn(0, "orddeptnm"));
		ds_temp_cnfminfo_issinfo.setColumn(0, "atdoctnm", ds_main_appinfo_copyinfo.getColumn(0, "atdoctnm"));
		ds_temp_cnfminfo_issinfo.setColumn(0, "hngnm", ds_main_appinfo_copyinfo.getColumn(0, "hngnm"));
		ds_temp_cnfminfo_issinfo.setColumn(0, "rrgstno1", ds_main_appinfo_copyinfo.getColumn(0, "rrgstno1"));
		
		var rrgstno2 = ds_main_appinfo_copyinfo.getColumn(0, "rrgstno2");
		rrgstno2 = rrgstno2.substr(0,1) + "******";
		ds_temp_cnfminfo_issinfo.setColumn(0, "rrgstno2", rrgstno2);
		
		if(ds_temp2_appinfo_copyinfo.getColumn(0, "newcopy") == "Y")  // 추가로 사본등록을 신청한 경우
		{
		   ds_temp_cnfminfo_issinfo.setColumn(0, "totalcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
		   
		   //model.removeNodeset("/root/temp2");
		   ds_temp2_appinfo_copyinfo.clearData();
		   ds_temp2_appinfo_copyinfo.addRow();
		   ds_grd_rcptlist.clearData();
		}
		else
		  ds_temp_cnfminfo_issinfo.setColumn(0, "totalcopies", ds_main_appinfo_copyinfo.getColumn(0, "totalcopies"));
		
		if(g_inputbox == "Y")
		{	  
		  ds_temp_cnfminfo_issinfo.setColumn(0, "totalcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno")); 
		}
		
		ds_temp_cnfminfo_issinfo.setColumn(0, "issgoalcd", ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd"));
		ds_temp_cnfminfo_issinfo.setColumn(0, "issgoaletcnm", ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
		ds_temp_cnfminfo_issinfo.setColumn(0, "hospnm", ds_main_paper.getColumn(0, "hospnm"));
		var emrordflag = ds_main_appinfo_copyinfo.getColumn(0, "emrordflag");
		
		var inemrordinfo = ds_grd_inpat.getCaseCount("chk=='Y'");
		
		if (emrordflag == "O" && inemrordinfo > 0)
        {
            ds_main_appinfo_copyinfo.setColumn(0, "emrordflag", "OI");
            var emrordflag = ds_main_appinfo_copyinfo.getColumn(0, "emrordflag");
        }
        
		if (emrordflag.indexOf("O") >= 0 || emrordflag.indexOf("A") >= 0){
			ds_temp_cnfminfo_issinfo.setColumn(0, "outflag", "O");	// 에러
		}
		if (emrordflag.indexOf("I") >= 0 || emrordflag.indexOf("A") >= 0){
			ds_temp_cnfminfo_issinfo.setColumn(0, "inflag", "I");	
		}	
		if (emrordflag.indexOf("E") >= 0 || emrordflag.indexOf("A") >= 0){
			ds_temp_cnfminfo_issinfo.setColumn(0, "erflag", "E");	
		}	
		ds_temp_cnfminfo_issinfo.setColumn(0, "appdd", ds_main_appinfo_copyinfo.getColumn(0, "appdt").substr(0,8));		
		ds_temp_cnfminfo_issinfo.setColumn(0, "issdd", ds_main_appinfo_copyinfo.getColumn(0, "issdt").substr(0,8));
		for(var i = 0; i < ds_grd_outapplist.rowcount; i++){
			if(ds_grd_outapplist.getColumn(i, "chrtflag") == "P"){
				formnm += "종이차트("+ds_grd_outapplist.getColumn(i, "formnm")+")" +  ",";
			}else{
				
			}
			
		}
		for(var i = 0; i < ds_main_midissinfo_totemrapplist.rowcount; i++){
			formnm += ds_main_midissinfo_totemrapplist.getColCount(i, "formnm");
			if(!utlf_isNull(formnm)) formnm += ",";
		}
		if(formnm.length > 0) 
			formnm = formnm.substring(0, formnm.length - 1)
		
		// 승낙서 발행 시 상세내역 추가
		formnm = fPrntDetailContents(formnm);
		
		ds_temp_cnfminfo_issinfo.setColumn(0, "formnm", formnm);
		
		// 승낙서 출력 셋팅 변경 ( 매수가 많을 경우 Instance양으로 인해 느려지는 현상 처리 ) - 2013.08.19 CYW 
		var instcd = "";
		instcd = sysf_getUserInfo("dutplceinstcd");
		
		
		var objDOM = rptf_createDOM();	// DOM 객체 설정
	    rptf_setNodeListToDOM(objDOM, "/root/temp/cnfminfo/issinfo", ds_temp_cnfminfo_issinfo); // 데이터셋 1	
	    //sysf_trace(objDOM.documentElement.source);	// XML 내용출력
		
	    var objParam = new Object();
	    objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
	    var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
		
		if( instcd == "031"){
			//exeReportPreview("RPMRC01101", "XMLSTR", "/root/temp/cnfminfo/issinfo", "", "true","","","","","true","","", "","","","", "", "", "/root/temp/cnfminfo/issinfo");
			rptf_exeReportPreview30(["RPMRC01101"],[objParam], option);
		}else{
			//exeReportPreview("RPMRC01102", "XMLSTR", "/root/temp/cnfminfo/issinfo", "", "true","","","","","true","","", "","","","", "", "", "/root/temp/cnfminfo/issinfo");
			rptf_exeReportPreview30(["RPMRC01102"],[objParam], option);
		}
		
		var seq = ds_main_cnfmlist.getColumn(0, "seq");
		var pid = ds_main_cnfmlist.getColumn(0, "pid");
		var orddd = ds_main_cnfmlist.getColumn(0, "orddd");
		var cretno = ds_main_cnfmlist.getColumn(0, "cretno");
		var ordtype = ds_main_cnfmlist.getColumn(0, "ordtype");
		var orddeptcd = ds_main_cnfmlist.getColumn(0, "orddeptcd");
		var orddrid = ds_main_cnfmlist.getColumn(0, "orddrid");
		var formcd = "0000001127";
		var formfromdt = ds_main_cnfmlist.getColumn(0, "formfromdt");
		var pagecnt = "1";		//출력장수

		if(!fSaveOCRIF(seq, pid, orddd, cretno, ordtype, orddeptcd, orddrid, formcd, formfromdt, "", "", pagecnt)){
			return;
		}		
	}
}

// 그리드 열 변경
function fChangedGridRow()
{
sysf_trace("***** fChangedGridRow() *****");

    var iRow = ds_grd_rcptlist.rowposition;
    
	var totalshrtno = ds_grd_rcptlist.getColumn(iRow, "shtno");
	var totalcopies = ds_grd_rcptlist.getColumn(iRow, "prcptims");
	
	if(utlf_isNull(totalshrtno) || parseInt(totalshrtno) < 0)
	  return false;
	if(utlf_isNull(totalcopies) || parseInt(totalcopies) < 0)
	  return false;
	
	//Event Off
	ds_grd_rcptlist.enableevent = false;
	
	var totalpapers = parseInt(totalshrtno) * parseInt(totalcopies);
	ds_temp2_appinfo_copyinfo.setColumn(0, "totalpapers", totalpapers);
	
	
	var sShtNo= eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
	var sValue = 0;
	var sCalcScorCd = ds_grd_rcptlist.getColumn(iRow, "calcscorcd");
	var sExtraPrcpTims = 0;
	var currentdate = utlf_getCurrentDate();
	var iStatus = ds_grd_rcptlist.getRowType(iRow);
	if(iStatus == 4){// TF 2 -> XP 4
		if(ds_grd_rcptlist.getColumn(iRow, "shtno") == ds_grd_rcptlist.getColumn(iRow, "oldshtno")){
			//grd_rcptlist.rowStatus(iRow) = 0;
			var arrPostion = new Array();
			arrPostion[0] = iRow;
			grdf_setStatus(grd_rcptlist, Dataset.ROWTYPE_NORMAL, arrPostion);
		}
	}
	
	// 전체 매수
	var tmpTotalCopies = fGetTotalCopies();
	
	var sShtNo = eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
	
	if(ds_grd_rcptlist.rowcount > 1)
	{
		if(ds_grd_rcptlist.getColumn(iRow, "defyn") == "DEF" && eval(ds_grd_rcptlist.getColumn(iRow, "shtno")) != 1)
		{
			sysf_messageBox("기본 수가부분은 변경할 수 없습니다. 하단의 추가수가부분을", "I008");
			//model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno", "1");
			if(g_DefCnt != 0)
			  ds_grd_rcptlist.setColumn(iRow, "shtno", g_DefCnt);
			else
			  ds_grd_rcptlist.setColumn(iRow, "shtno", g_AddCnt);
			  
			ds_grd_rcptlist.setColumn(iRow, "prcpqty", "1");
			return;
		}
	}
	
	if(ds_grd_rcptlist.getColumn(iRow, "defyn") == "DEF" && eval(ds_grd_rcptlist.getColumn(iRow, "shtno")) > 1)
	{
		if(ds_grd_rcptlist.getColumn(iRow, "calcscorcd") == g_DefCalcscorcd)
		{
			sShtNo = eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
			
			if(sShtNo < 1)
			{
				sysf_messageBox("매수는","I003");
				//model.setValue("/root/main/issinfo/rcptlist["+iRow+"]/shtno",model.getValue("/root/main/issinfo/rcptlist["+iRow+"]/oldshtno"));
				ds_grd_rcptlist.setColumn(iRow, "shtno", ds_grd_rcptlist.getColumn(iRow, "oldshtno"));
				if(iStatus == 4){
	  				//grd_rcptlist.rowStatus(iRow) = 0;
	  				var arrPostion = new Array();
					arrPostion[0] = iRow;
	  				grdf_setStatus(grd_rcptlist, Dataset.ROWTYPE_NORMAL, arrPostion);
  				}
	    	}
	    	//else if(sShtNo > 10) - 기본수가 보다 클때
	    	else if(sShtNo > g_DefCnt)
	    	{
               // if(model.getValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/calcscorcd") == "")
				if( utlf_isNull(ds_grd_rcptlist.lookup("calcscorcd", "HCDD030", "calcscorcd")) )
	      	    {
    				var currentdate = utlf_getCurrentDate();
				    var lrow = ds_grd_rcptlist.addRow();
					
					  // 기본 매수 등록
    				ds_grd_rcptlist.setColumn((lrow-1), "shtno", g_DefCnt);
    				ds_grd_rcptlist.setColumn((lrow-1), "prcpqty", "1");
    				
    				var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
    				
  					// 06: 직할병원 - 수가코드(HCDD001)
  					if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))
  					{
  						ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_FreeCalcscorcd);
  						ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_FreeCalcscorcdnm);
  						// 처방코드(임시로 수가코드로 함)
  						ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_FreeCalcscorcd);
  					}
  					else
  					{ // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
  						ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_AddCalcscorcd);
  						
  						if(g_AddCalcscorcd == "HCDD030")
  						{
  							ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_AddCalcscorcdnm);
  						}
  						else
  						{
  							ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_DefCalcscorcdnm);
  						}
  							
  						ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_AddCalcscorcd);
  						ds_grd_rcptlist.setColumn(lrow, "defyn", "ADD");
  					}
						
  					ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
  						
  					if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
  					{
  						ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
  					}
  					ds_grd_rcptlist.setColumn(lrow, "prcpdd", currentdate);
  					ds_grd_rcptlist.setColumn(lrow, "prcpno", "0");
  					ds_grd_rcptlist.setColumn(lrow, "prcphistno", "0");
  					
  					ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
  					ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
  					ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
  					ds_grd_rcptlist.setColumn(lrow, "shtno", (tmpTotalCopies - g_DefCnt));
  					ds_grd_rcptlist.setColumn(lrow, "oldshtno", "1");
  					ds_grd_rcptlist.setColumn(lrow, "prcpqty", (tmpTotalCopies - g_DefCnt));
  					
  					if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0)
  					{
  						ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", 1);
  					}
  					
  					ds_grd_rcptlist.setColumn(lrow, "prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
  					ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));

	        	    //grd_rcptlist.addStatus(lrow, "insert");
	        	    var arrPostion = new Array();
					arrPostion[0] = lrow;
	        	    grdf_setStatus(grd_rcptlist, "I", arrPostion);
	  			}
	  			else
	  			{
	  				var sExtraRow = ds_grd_rcptlist.findRow("calcscorcd", "HCDD030");
	  				//grd_rcptlist.findRow("HCDD030", grd_rcptlist.fixedrows+1,2);
	  				var sExtraStatus = ds_grd_rcptlist.getRowType(sExtraRow);
	  				if(sExtraStatus != 2 ){
						var arrPostion = new Array();
						arrPostion[0] = sExtraRow;
						grdf_setStatus(grd_rcptlist, "U", arrPostion);//grd_rcptlist.rowStatus(sExtraRow) = 2;
					}
	  				ds_grd_rcptlist.setColumn(sExtraRow, "shtno", sValue);		
	  				ds_grd_rcptlist.setColumn(sExtraRow, "prcpqty", sValue);			
	  			}
		    }
		    else
		    {
		      
			}	
		}
		
	}

	if(sCalcScorCd == g_FreeCalcscorcd)
	{
		if(sShtNo < 1){
			sysf_messageBox("매수는","I003");
			ds_grd_rcptlist.setColumn(iRow, "shtno",ds_grd_rcptlist.getColumn(iRow, "oldshtno"));			
			if(iStatus == 4){
				//grd_rcptlist.rowStatus(iRow) = 0;
				var arrPostion = new Array();
				arrPostion[0] = iRow;
				grdf_setStatus(grd_rcptlist, Dataset.ROWTYPE_NORMAL, arrPostion);
			}
			sShtNo = ds_grd_rcptlist.getColumn(iRow, "oldshtno");		
		}
		if(sShtNo != ds_grd_rcptlist.getColumn(iRow, "prcpqty")){
			ds_grd_rcptlist.setColumn(iRow, "prcpqty", sShtNo);	
		}
	}
	else
	{	// 추가
		if(sShtNo < 1)
		{
			var iStatus = ds_grd_rcptlist.getRowType(iRow);
			if(iStatus == 2)
			{
				ds_grd_rcptlist.deleteRow(iRow);	
			}
			else 
			{
				//grd_rcptlist.rowStatus(iRow) = 4;
				var arrPostion = new Array();
				arrPostion[0] = iRow;
				grdf_setStatus(grd_rcptlist, "D", arrPostion);
		    }
		}
		else
		{
			// 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트)
			var colorcalcscoryn =  ds_hidden_colorcalcscoryn.getColumn(0, "hardcd");
			if (colorcalcscoryn == "Y") {
				if (ds_grd_rcptlist.getColumn(iRow, "pdefyn") == "ADD"){
					ds_grd_rcptlist.setColumn(iRow, "pprcpqty", sShtNo);	
				}
			} else {
				if (ds_grd_rcptlist.getColumn(iRow, "pdefyn") == "ADD" && (tmpTotalCopies - g_DefCnt) != ds_grd_rcptlist.getColumn(iRow, "pprcpqty")){
					ds_grd_rcptlist.setColumn(iRow, "pprcpqty", (tmpTotalCopies - g_DefCnt));	
				}
			}
		}
	}
		
	//Event On
	ds_grd_rcptlist.enableevent = true;
}

function fChangedGridRow_old(){
	var iRow = 	grd_rcptlist.row;
	var sShtNo= eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
	var sValue = 0;
	var sCalcScorCd = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/calcscorcd");
	var sExtraPrcpTims = 0;
	var currentdate = getCurrentDate();
	var iStatus = grd_rcptlist.rowStatus(iRow);
	if(iStatus == 2){
		if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno") == model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno")){
			grd_rcptlist.rowStatus(iRow) = 0;
		}
	}
	/*if(sCalcScorCd == "HCDD027"){
		if(sShtNo < 1){			
			messageBox("매수는","I003");
			model.setValue("/root/main/issinfo/rcptlist["+iRow+"]/shtno",model.getValue("/root/main/issinfo/rcptlist["+iRow+"]/oldshtno"));			
			if(iStatus == 2){
				grd_rcptlist.rowStatus(iRow) = 0;
			}
		}else if(sShtNo > 10){
			sValue = sShtNo - 10;
			model.setValue("/root/main/issinfo/rcptlist["+iRow+"]/shtno","10");
			if(model.getValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/calcscorcd") == ""){
				grd_rcptlist.additem();	
				var lrow = grd_rcptlist.rows - 1;
				model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/calcscorcd", "HCDD030");
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/calcscornm", "의무기록복사(추가한매당)");
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/unitcost", "");
		                                                                                      
		        if (model.getValue("/root/main/issinfo/copyinfo/ioflag") == "O")
		        {
		            model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcpdd", model.getValue("/root/main/issinfo/copyinfo/orddd"));
		        }
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcpdd", currentdate);
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcpno", "0");
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcphistno", "0");
		        
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/pid", model.getValue("/root/main/issinfo/copyinfo/pid"));
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/orddd", model.getValue("/root/main/issinfo/copyinfo/orddd"));
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/cretno", model.getValue("/root/main/issinfo/copyinfo/cretno"));
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/shtno", sValue);
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/oldshtno", sValue);
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcpqty", sValue);
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcptims", model.getValue("/root/main/issinfo/copyinfo/emrappcopies"));
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/copyseqno", model.getValue("/root/main/issinfo/copyinfo/copyseqno"));
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/issno", model.getValue("/root/main/issinfo/rcptlist[" + iRow + "]/issno"));
		        // 처방코드(임시로 수가코드로 함)
		        model.setValue("/root/main/issinfo/rcptlist[" + lrow + "]/prcpcd", "HCDD030");
		         
		        
		        grd_rcptlist.addStatus(lrow, "insert");
			}else{
				var sExtraRow = grd_rcptlist.findRow("HCDD030", grd_rcptlist.fixedrows+1,2);
				var sExtraStatus = grd_rcptlist.rowStatus(sExtraRow);
				if(sExtraStatus != 1 && sExtraStatus != 3) grd_rcptlist.rowStatus(sExtraRow) = 2;
				model.setValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/shtno", sValue);		
				model.setValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/prcpqty", sValue);		
				
			}
		}else{
			var sExtraRow = grd_rcptlist.findRow("HCDD030", grd_rcptlist.fixedrows+1,2);
			var sExtraStatus = grd_rcptlist.rowStatus(sExtraRow);
			if(sExtraStatus == 1 || sExtraStatus == 3){
				grd_rcptlist.deleteRow(sExtraRow, true);
			}else{
				grd_rcptlist.rowStatus(sExtraRow) = 4;
			}
		}
	}*/if(sCalcScorCd == "HCDD001"){
		if(sShtNo < 1){
			messageBox("매수는","I003");
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno",model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno"));			
			if(iStatus == 2){
				grd_rcptlist.rowStatus(iRow) = 0;
			}
			sShtNo = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno");		
		}
		if(sShtNo != model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty")){
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty", sShtNo);	
		}
	}else{	// 추가
		if(sShtNo < 1){
			var iStatus = grd_rcptlist.rowStatus(iRow);
			if(iStatus == 1 || iStatus == 3)
				grd_rcptlist.deleteRow(iRow, true);	
			else 
				grd_rcptlist.rowStatus(iRow) = 4;
		}else{
			if(sShtNo != model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty")){
				model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty", sShtNo);	
			}
		}
	}	
}

// 검사결과조회 호출 
function fExamRultListCall(){		
sysf_trace("***** fExamRultListCall() *****");
	var pid = ds_main_cond.getColumn(0, "pid");
	
	if(utlf_isNull(pid)){
		sysf_messageBox("검사결과조회 할 환자를", "C002");
		return;
	}	
	var objArgs = new Object();
	objArgs.ds_main_cond = ds_main_cond;
	frmf_open("SMAER00800", "SMAER00800", objArgs, null, null, null, null, null, null, null, null, null, "M");
	//open("SMAER00800","","","","SMAER00800", "/root/main/cond/pid", "/root/send/data/singdata/srchpid");
}

// 통합기록조회 호출
function fMedirecListCall(){
sysf_trace("***** fMedirecListCall() *****");	
	var pid = ds_main_cond.getColumn(0, "pid");
	if(utlf_isNull(pid)){
		sysf_messageBox("통합기록조회를 검색할 환자를", "C002");
		return;
	}
	var wndobj = frmf_findPopup("SMMRI00400");
	if(wndobj != null){
		frmf_setParameter("SMMRI00400_param_pid", pid);
		wndobj.fInitalize();
	}else{
		frmf_setParameter("SMMRI00400_param_pid", pid);
		frmf_open("SMMRI00400", "SMMRI00400", null, null, null, null, null, null, null, null, null, null, "M");
	}	
}

// 차트대출 호출
function fChrtRultListCall(){
sysf_trace("***** fChrtRultListCall() *****");		
	var pid = ds_main_cond.getColumn(0, "pid");
	if(utlf_isNull(pid)){
		sysf_messageBox("차트대출조회를 검색할 환자를", "C002");
		return;
	}

	frmf_setParameter("pid", pid);
	frmf_modal("SMMRC00100", "SMMRC00100", null, null, 1, 10, 10, null, null, null, null, null, "M");
	
}

// 차트대출이력 호출
function fChrtHistRultListCall(){
sysf_trace("***** fChrtHistRultListCall() *****");		
	var pid = ds_main_cond.getColumn(0, "pid");
	if(utlf_isNull(pid)){
		sysf_messageBox("차트대출이력조회를 검색할 환자를", "C002");
		return;
	}
	var wndobj = frmf_findPopup("SMMRC01400");
	if(wndobj != null){
		frmf_setParameter("pid", pid);
		wndobj.fInitalize();
	}else{
		frmf_setParameter("pid", pid);
		frmf_open("SMMRC01400", "SMMRC01400", null, null, 1, 10, 10, null, null, null, null, null, "M");
	}	
	
}

// 환자찾기 Popup
function fPatPopUp(pFlag)
{	
sysf_trace("***** fPatPopUp("+pFlag+") *****");	
	var objColInfo = new Array();
	objColInfo.push({col: "pid", type:"string", size:256});
	objColInfo.push({col: "hngnm", type:"string", size:256});
	objColInfo.push({col: "srchcond", type:"string", size:256});
	objColInfo.push({col: "autoflag", type:"string", size:256});
	objColInfo.push({col: "rrgstno1", type:"string", size:256});
	objColInfo.push({col: "rrgstno2", type:"string", size:256});
	dsf_createDs("ds_temp_patcond", objColInfo);
	ds_temp_patcond.addRow();
	
	ds_temp_patcond.setColumn(0, "srchcond", pFlag);
	if(pFlag == "1"){
		ds_temp_patcond.setColumn(0, "pid", utlf_transNullToEmpty(ds_main_cond.getColumn(0, "pid")));
	}else{
		ds_temp_patcond.setColumn(0, "pid", "");
	}
	if(pFlag == "2"){
		ds_temp_patcond.setColumn(0, "hngnm", utlf_transNullToEmpty(ds_main_cond.getColumn(0, "hngnm")));
	}else{
		ds_temp_patcond.setColumn(0, "hngnm", "");
	}
	if(pFlag == "3"){
		ds_temp_patcond.setColumn(0, "rrgstno1", utlf_transNullToEmpty(ds_main_cond.getColumn(0, "rrgstno1")));
		ds_temp_patcond.setColumn(0, "rrgstno2", utlf_transNullToEmpty(ds_main_cond.getColumn(0, "rrgstno2")));
	}else{
		ds_temp_patcond.setColumn(0, "rrgstno1", "");
		ds_temp_patcond.setColumn(0, "rrgstno2", "");
	}		
	ds_temp_patcond.setColumn(0, "autoflag", "Y");
    
    var objArgs = new Object();
    objArgs.ds_SPPMC02500 = ds_temp_patcond;
    
    ds_main_cond.clearData();
    ds_main_cond.addRow();
    
    
    frmf_modal("SPPMC02500", "SPPMC02500", objArgs, null, "1", "10", "10", null, null, null, null, null, "M");
	
	
	if(fIsEmrDept() == false){
		if(pFlag == "2"){
		  var globalPid = appf_getPatientInfo("pid");
		  var newPid = ds_patinfolist.getColumn(0, "pid");//model.getValue("/root/main/patinfo/patinfolist/pid");
		  if(globalPid != newPid) {
			sysf_messageBox("사본신청은 진료중인 환자에 대해서만 신청이 가능합니다.\n등록번호를 상단 환자등록번호와 일치시켜서","C003");
			fInitialize();
			return;
		  }
		}    
	}
  
  
    ds_main_cond.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
    ds_main_cond.setColumn(0, "hngnm", ds_patinfolist.getColumn(0, "hngnm"));
    ds_main_cond.setColumn(0, "rrgstno1", ds_patinfolist.getColumn(0, "rrgstno1"));
    ds_main_cond.setColumn(0, "rrgstno2", ds_patinfolist.getColumn(0, "rrgstno2"));
    ds_main_cond.setColumn(0, "sa", ds_patinfolist.getColumn(0, "sex") + "/" + ds_patinfolist.getColumn(0, "age"));
   
   //환자 이전사본발행내역 조회
    fReqGetBfCopyIssHistList(ipt_pid.text);
       
	// 진료내역 조회
   	fReqGetOutPatHistList(); // 외래진료내역
	fReqGetInPatHistList(); // 입원진료내역
	fReqGetPaperYN();
	
	ds_main_appinfo_copyinfo.clearData();
	ds_main_appinfo_copyinfo.addRow();
	dsf_setDefaultVal(ds_main_appinfo_copyinfo, "all");
	fSet_enableevent(false);
	ds_main_otherinfo.clearData();
	ds_main_otherinfo.addRow();
	fSet_enableevent(true);
	ds_grd_outapplist.clearData();
	ds_grd_rcptlist.clearData();
	ds_main_appinfo_copyinfo.setColumn(0, "trustyn", "N");
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-09-19 추가
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 발급제한 환자  제한 
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveRcpt()
{
    var iIssHistRow = grd_isshist.row;
    var msg = messageBox("사본 발급 제한 사유 : "+ model.getValue("/root/main/isshist/isslist["+iIssHistRow+"]/limrem")
    		+"\n"+ model.getValue("/root/main/isshist/isslist["+iIssHistRow+"]/hngnm")+"환자는 사본발급 제한 환자입니다\n","Q002");
    if(msg=="6"){
        fSave();
    }else if(msg=="7"){
        return;
    }   
}

// 수가입력저장
function fSave()
{
sysf_trace("***** fSave() *****");
	//debugger;
	if(ds_grd_apphist.rowposition < 0){
		sysf_messageBox("환자를 먼저", "C002");
		return;	
	}
	
	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(nRow, "pid", ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "pid"));
	ds_send_reqdata.setColumn(nRow, "orddd", ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "orddd"));
	
	// KNUH_20101124_박성호_start_사본용도 체크(멀티인 경우 수가입력 안되게)
	var IssUsgeCnt = ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd").split(",").length;
	
	if (IssUsgeCnt > 1){
		sysf_messageBox("하나의 사본발행목적일 때만 수가입력이 가능합니다. 여러목적으로 할 경우에는 신청내역을 저장하신 후", "I008");	
		return;
	}
	// KNUH_20101124_박성호_end
	
	
	ds_send_savedata_copyinfo.clearData();
	//ds_send_savedata_copyinfo.addRow();
	ds_send_savedata_outinfo.clearData();
	ds_send_savedata_ininfo.clearData();
	ds_send_savedata_rcptlist.clearData();
	ds_send_savedata_newinput.clearData();
	ds_send_savedata_newinput.addRow();

    if(g_inputbox == "Y")
    {
        ds_send_savedata_newinput.setColumn(0, "newinput", g_inputbox);
        //ds_send_savedata_newinput.setColumn(0, "shtno", ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno"));
        ds_send_savedata_newinput.setColumn(0, "shtno", ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno"));
        
        
        var tmp = parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno")) * parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));

		// KNUH_20101001_박성호_start 오류 수정
		// if (tmp = 0)
		if (tmp == 0)
        {
            ds_send_savedata_newinput.setColumn(0, "emrappcopies", 1);  
            var delyn = 'Y';
        }
        else
        {
            ds_send_savedata_newinput.setColumn(0, "emrappcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));  
        }
        
        
       
        ds_send_savedata_newinput.setColumn(0, "totalcopies", tmp);  
        ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
    }    
    else
    {
		var slow = ds_grd_rcptlist.rowcount - 1;

		ds_send_savedata_newinput.setColumn(0, "newinput", "N");
        ds_send_savedata_newinput.setColumn(0, "shtno", ds_grd_rcptlist.getColumn(slow, "shtno"));
        ds_send_savedata_newinput.setColumn(0, "emrappcopies", ds_grd_rcptlist.getColumn(slow, "prcptims"));  

        var tmp = parseInt(ds_grd_rcptlist.getColumn(slow, "shtno")) * parseInt(ds_grd_rcptlist.getColumn(slow, "prcptims"));
        ds_send_savedata_newinput.setColumn(0, "totalcopies", tmp);  

		// 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트)
		var colorcalcscoryn =  ds_hidden_colorcalcscoryn.getColumn(0, "hardcd");
		if (colorcalcscoryn == "Y") {
			var tmp = parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno")) * parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
			ds_send_savedata_newinput.setColumn(0, "totalcopies", tmp);  
		}

	}
    	  
	ds_main_appinfo_copyinfo.setColumn(0, "addstatus", "N");
	ds_send_savedata_newinput.setColumn(0, "prcpflag", "N");  
	  
    var iIssHistRow = ds_grd_apphist.rowposition;
    var sIssNo = ds_grd_apphist.getColumn(iIssHistRow, "issno");

    if(!utlf_isNull(sIssNo)) {
        if (delyn == "Y")
        {
            // 반환이면 승락서, 증명서 출력안되도록. 
	    	pntflag = "N";
        }
        else
        {
        	//2012/03/14 Start
			for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
				if(ds_temp_hardcd2.getcolumn(i, "hardcd")==sysf_getUserInfo("dutplceinstcd")){
					var ret = sysf_messageBox("추가 사본발행 수가를", "Q014");
				}else if(ds_temp_hardcd2.getcolumn(i, "hardcd")!=sysf_getUserInfo("dutplceinstcd")){
					var ret = sysf_messageBox("새로운 발행 번호로 수가를", "Q014");
					break;
				}
			}
			//2012/03/14 End
        	
        	if(ret == 6) { // 신규로 등록
				ds_send_savedata_newinput.setColumn(0, "prcpflag", "Y");  
        		PRCP_REISS = "Y";
        		
        		ds_grd_rcptlist.rowposition = 0;
        		
        		for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
        		{
    				if(ds_grd_rcptlist.getRowType(iRow) == 8)// TF 4 : delete -> XP 8 
    				{
    					ds_grd_rcptlist.deleteRow(iRow);
    				}
    			}				
    			
        		for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
        		{
    				//grd_rcptlist.rowstatus(iRow) = 1; // insert 상태로 변경	
    				var arrPostion = new Array();
					arrPostion[0] = iRow;
    				grdf_setStatus(grd_rcptlist, "I", arrPostion);
      			}
      			
   
      			var Tmptotalcopies = ds_main_appinfo_copyinfo.getColumn(0, "totalcopies");
      			
      			ds_temp2_appinfo_copyinfo.setColumn(0, "newcopy", "Y");
      			
      			ds_main_appinfo_copyinfo.setColumn(0, "addstatus", "Y");
      			g_addstatus = "Y";
      			
      			if(g_inputbox != "Y")	// 서울성모인 경우
      			{
      				ds_temp2_appinfo_copyinfo.setColumn(0, "totalcopies", ds_grd_rcptlist.getColumn((iRow-1), "shtno"));   
      			}
    	    } 
    	    else 
    	    {
    	    	// 반환이면 승락서, 증명서 출력안되도록. 
    	    	iRow = ds_grd_rcptlist.rowposition;
    	    	if(ds_grd_rcptlist.getRowType(iRow) == 8) var pntflag = "N";
    	    	
    	    	// 수가처방
                var iRow = ds_grd_rcptlist.rowposition;
    	    	
    	    	for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
        		{
        		    if (ds_grd_rcptlist.getRowType(iRow) == 1) // 상태값이 new일시에 TF 0 : new , XP 1 : nomal
                    {
                        //grd_rcptlist.rowstatus(iRow) = 1; // insert 상태로 변경	
                        var arrPostion = new Array();
						arrPostion[0] = iRow;
                        grdf_setStatus(grd_rcptlist, "I", arrPostion);
                    }
      			}
    	    }
	    }
    }
    else 
    {
    	ds_send_savedata_newinput.setColumn(0, "prcpflag", "Y");  
    	for(var iRow = 0; iRow < ds_grd_rcptlist.rowcount; iRow++)
		{
		    if (ds_grd_rcptlist.getRowType(iRow) == 1)
            {
                //grd_rcptlist.rowstatus(iRow) = 1; // insert 상태로 변경	
                  var arrPostion = new Array();
				  arrPostion[0] = iRow;
                 grdf_setStatus(grd_rcptlist, "I", arrPostion);
            }
			
		}
    }
    
    // 의정부인경우 출력 안되게..
    if(g_inputbox == "Y")
    {
        var tmp = parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno")) * parseInt(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
        if (tmp == 0)
        {
            var pntflag = "N";
        }
    }

 	//fCopyReSave(); // 부수만큼 신청내역 insert
    // 신청정보
    if (ds_main_appinfo_copyinfo.getColumn(0, "appmanflag") == "9") // 사본발행 신청인이 기타일 경우
    {
        ds_main_appinfo_copyinfo.setColumn(0, "appmannm", ipt_appmannm.text);
    }

    // 사본목적
    if(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd") == "99"){
    	ds_main_appinfo_copyinfo.setColumn(0, "issgoalnm", ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"));
    }else{
    	ds_main_appinfo_copyinfo.setColumn(0, "issgoalnm", ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"));
    }
    ds_main_appinfo_copyinfo.setColumn(0, "issgoalcd", ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
    
    /*getUserStateMsg : 사용자 일반의, 퇴직의 조회*/
	var deptcd = ds_main_appinfo_copyinfo.getColumn(0, "orddeptcd");
	
	var objColInfo = new Array();
	objColInfo.push({col: "userid", type:"string", size:256, val:ds_main_appinfo_copyinfo.getColumn(0, "orddrid")});
	objColInfo.push({col: "deptcd", type:"string", size:256, val:deptcd});
	dsf_createDsRow("ds_send_msg", objColInfo);
	
	objColInfo = new Array();
	objColInfo.push({col: "chk_msg", type:"string", size:256});
	dsf_createDs("ds_main_msg", objColInfo);
	
	var oParam = {};
		oParam.id       = "TRMMR00001";
		oParam.service  = "medirecapp.ComnMediRec";
		oParam.method   = "reqGetUserStateMsg";
		oParam.inds     = "req=ds_send_msg";
		oParam.outds    = "ds_main_msg=msg";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR00001";

	tranf_submit(oParam);
	
	var chk_msg = ds_main_msg.getColumn(0, "chk_msg");
	var nodecnt = ds_main_msg.rowcount;
	
	if( nodecnt > 0 ){
		sysf_messageBox(chk_msg, "E");
		
		frmf_setParameter("SPMMR06503_pid", ds_main_appinfo_copyinfo.getColumn(0, "pid") );
		frmf_setParameter("SPMMR06503_orddeptcd", deptcd );
		frmf_setParameter("SPMMR06503_vieworddeptcd", deptcd );
		frmf_setParameter("SPMMR06503_switflag"	 			, "orddrid" );
		
		var rtn = frmf_modal("SPMMR06503", "SPMMR06503", null, null, null, null, null, null, null, null, null, null, "M");
		
		//ds_send_chngissinfo dataset return
		if( utlf_isNull(rtn) ){
			sysf_trace(" SPMMR06503 return value Null ");
		}
		
		if(  utlf_isNull(ds_send_chngissinfo.getColumn(0, "orddoctid")) ){
			sysf_messageBox("발행의사를 선택하신 후 진행해주십시오.", "C999");
			return;
		}else{
			ds_main_appinfo_copyinfo.setColumn(0, "orddrid", ds_send_chngissinfo.getColumn(0, "orddoctid"));
		}
	}
    ds_send_savedata_copyinfo.copyData(ds_main_appinfo_copyinfo);
    //model.copyNode("/root/send/savedata/copyinfo", "/root/main/appinfo/copyinfo");
    
        
    // emr서식정보
    ds_grd_outapplist.applyChange();
    ds_grd_emrapplist.applyChange();
    
//     var outinfo = model.instance1.selectNodes("/root/temp/issinfo/emrlist");
//     var ininfo = model.instance1.selectNodes("/root/main/issinfo/emrapplist");
  
    if(ds_grd_outapplist.rowcount > 0) {
    	//model.setValue("/root/send/savedata/outinfo", getNodeListCSV(outinfo));
    	ds_send_savedata_outinfo.copyData(ds_grd_outapplist);
    	
    	//xp code add : col id change!!!orddeptcd
		if( !utlf_isNull(ds_send_savedata_outinfo.getColumnInfo("orddeptcd")))
			ds_send_savedata_outinfo.updateColID("orddeptcd", "orddeptdcd");
    }
    if(ds_grd_emrapplist.rowcount > 0) {
	    //model.setValue("/root/send/savedata/ininfo", getNodeListCSV(ininfo));
	    ds_send_savedata_ininfo.copyData(ds_grd_emrapplist);
	    
	    //xp code add : col id change!!!orddeptcd
		if( !utlf_isNull(ds_send_savedata_ininfo.getColumnInfo("orddeptcd")))
			ds_send_savedata_ininfo.updateColID("orddeptcd", "orddeptdcd");
	}
           
    //model.setValue("/root/send/savedata/rcptlist", grd_rcptlist.getUpdateData());
    var oDsUpdate = grdf_getGridUpdateData(grd_rcptlist);
	if( utlf_isNull(oDsUpdate) )	{
		sysf_trace("***** grdf_getGridUpdateData(grd_outapplist) data is NULL *****");
	}	    

	grdf_setStatusColumn(oDsUpdate, "status");
	ds_send_savedata_rcptlist.copyData(oDsUpdate, true);
	
	//sysf_trace(ds_send_savedata_rcptlist.saveXML());
    
    var sCopySeqNo = ds_main_appinfo_copyinfo.getColumn(0, "copyseqno");
    var sEMRAppCopies = ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies");
    
    if(g_inputbox == "Y")
    {
      // 출력매수 = 
      PRIN_COPY = ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno");
      
      // 출력부수 =
      PRIN_QUNT = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");  
    }  
    else
    {
      // 출력매수 = 
      PRIN_COPY = ds_grd_rcptlist.getColumn(0, "shtno");
      
      // 출력부수 =
      PRIN_QUNT = ds_grd_rcptlist.getColumn(0, "prcptims");  
    }
    
    //2012/03/13 Start
    for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
		if(ds_temp_hardcd2.getColumn(i, "hardcd")!=sysf_getUserInfo("dutplceinstcd")){
		    if(before_delivefact!=ds_main_appinfo_copyinfo.getColumn(0, "delivefact")){
		    	after_delivefact=ds_main_appinfo_copyinfo.getColumn(0, "delivefact")
		    	var chk_result = sysf_messageBox("기타 상세신청내역이 변경되었습니다. 변경된 내역으로 저장 ","S001");
		    	if(chk_result=="6"){ //변경된 내역으로  저장
		    	}else if(chk_result=="7"){ //변경되기 전 내역으로 저장
		    		ds_send_savedata_copyinfo.setColumn(0, "delivefact", before_delivefact);
		    	}else if(chk_result=="2"){// 수가 입력을 취소
		    		return;
		    	}
		    }
		}
		break;
	}	    
    //2012/03/13 End
    
    dsf_setDefaultVal(ds_send_savedata_copyinfo, "emrappcopies:0,cretno:0");
    dsf_setDefaultVal(ds_send_savedata_emrapplist, "formrecseq:0,appseq:0,medirecno:0");
    dsf_setDefaultVal(ds_send_savedata_outinfo, "appseq:0,medirecno:0");
	dsf_setDefaultVal(ds_send_savedata_rcptlist, "prcpno:0,prcphistno:0");
	
     
    var oParam = {};
		oParam.id       = "TXMRC03006";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqExeCopyIssMngt2";
		oParam.inds     = "reqcopyinfo=ds_send_savedata_copyinfo reqemrapplist=ds_send_savedata_emrapplist reqoutinfo=ds_send_savedata_outinfo reqininfo=ds_send_savedata_ininfo reqrcptlist=ds_send_savedata_rcptlist reqnewinput=ds_send_savedata_newinput";
		oParam.outds    = "ds_return=return";
		oParam.async    = false;
		oParam.callback = "cf_TXMRC03006";

	tranf_submit(oParam);
    
    
	if (arErrorCode.pop("TXMRC03006") > -1)
	{
		ds_main_appinfo_copyinfo.setColumn(0, "totalcopies", PRIN_COPY);
		ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", PRIN_QUNT);
	  	ds_grd_rcptlist.applyChange();
		fReqGetBfCopyIssHistList(ipt_pid.text);		
		// 2009.05.29 이경희
		// 이전 사본발행 내역에서 컬럼을 하나 추가함에 따라 검색 범위를 변경
		
		var iRow = ds_grd_apphist.findRow("copyseqno", sCopySeqNo);
		//grd_apphist.findRow(sCopySeqNo,1,25);
		
		ds_grd_apphist.rowposition = iRow;
		fIssSearch();
		fAppInfoSearch();
		//alert(pntflag);
		// 신규로 발행번호 발생시 출력.
		if(pntflag != "N") { // 반환된것은 출력되지 않도록
			if(utlf_isNull(sIssNo)){
				//var isslist = instance1.selectNodes("/root/return/return/issno");
				if(ds_return.rowcount > 0) {
				//2012/03/12 칠곡에서는 사본발행 목적을 바꾸더라도 증명서 및 승낙서가 발급되도록
					for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
						if(ds_temp_hardcd2.getColumn(i, "hardcd")==sysf_getUserInfo("dutplceinstcd")){
							issnoYN = "Y";
						}else if(ds_temp_hardcd2.getColumn(i, "hardcd")!=sysf_getUserInfo("dutplceinstcd")){
							issnoYN = "";
						}
					}
				}
			   //2012/03/12 End	
				fPrnt(); 
			}else if((!utlf_isNull(sIssNo))&&(sEMRAppCopies!=0)){// 사본 반환후 다시 입력시출력 가능
				//var isslist = instance1.selectNodes("/root/return/return/issno");
				if(ds_return.rowcount > 0) {
					issnoYN = "Y";
				}
				fPrnt(); 
			}
		}
		 
		opener.frmf_setParameter("SMMRC03000_appYN", "Y");
		var oprnerId = opener.frmf_getScreenID();
	    if(oprnerId == "SMMRC02200") opener.fGetCopyInfoHistSearch();
	    frmf_clearParameter("SMMRC03000_appYN");
		
		//2012/02/29 칠곡 요청 수가입력 후 자동으로 안닫히도록 수정(5567번)
		for(var i=0; i<ds_temp_hardcd2.rowcount; i++){
			if(ds_temp_hardcd2.getColumn(i, "hardcd")==sysf_getUserInfo("dutplceinstcd")){
				this.close();
				return;
			}
		}
		return;
		//2012/02/29

	}
	else
	{
		sysf_messageBox("저장에", "E009");
	}
    
}

// 이전내역조회
// jw.choe grd_isshist  화면에 미존재 호출부분 없음.
function fHistDetilSearch()
{

    // reqGetCopyIssHist
    // getCopyIssHist
    //model.resetInstanceNode("/root/main/issinfo/copyinfo");
    //model.removeNodeset("/root/main/issinfo/emrapplist");
    //model.removenode("/root/main/issinfo/rcptlist");
    //model.removeNodeset("/root/main/issinfo/rcptlist");
    if (submit("TRMRC01101",false) == true)
			{
				grd_isshist.rebuild();
				grd_isshist.rebuildStyle();
				setRowStyle("grd_isshist","0","입원","ioflagnm");
		  } 	
			else
			{
				messageBox("조회를", "E009");
			}
		   grd_isshist.rebuild();
}


/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 체크박스 선택시 전달사항에 전달
 * @param  :
 * @return :
 * @---------------------------------------------------
 */  
 function fSendChkLabelText(label)
{
	label += "\n";
	ds_main_appinfo_copyinfo.setColumn(0, "delivefact",txt_delivefact.text+label);     
}

/**
 * @desc   : 화면표시 대상이 EMR + IMG 기록인경우 처리
 * @id     :
 * @event  : onclick
 * @return : void
 * @authur : 박종훈
 */
function fEmrImgRec()
{    
	sysf_trace("***** fEmrImgRec() *****");
    //var certnodeList = instance1.selectNodes("/root/tmpinicert2/iniinfo");
    
    //--20130418 김동준 start(본원과 칠곡 분기)
    var foldernm = "C:/CertrecPrnt" + sysf_getUserInfo("dutplceinstcd");
    var local_path  ="";
	local_path = foldernm + "\\";
    //var foldernm = "C:/CertrecPrnt";
    //--20130418 김동준 end
    //sysf_trace("***** ds_tmpinicert2_iniinfo.rowcount : " + ds_tmpinicert2_iniinfo.rowcount);
    
    
    if (ds_tmpinicert2_iniinfo.rowcount <= 0)
        return;
    
    var emrpath = "";
    var emrorddate = "";
    var emrformnm = "";
    var emrformcd = "";
    var emrdeptnm = "";
    var emrdeptcd = "";
    
    //2013/01/15 Start
    var signemrdeptnm = "";
    var signemrdeptcd = "";
    var signorddeptcd = "";
    var signdeptengabbr = "";
    //2013/01/15 End
    
    var emrpage = "";
    var emrhiddenmsg = "";
    var k = "";
    var pid = "";
    var ptnm = "";
    var depthngnm = "";
    var deptengabbr = "";
    var icdrdeptengabbr = "";
    var rgstno = "";
    var sa = "";
    var disporddd = "";
    var orddd = "";
    var drid = "";
    var icdrdrid = "";
    var roomcd = "";
    var icdrroomcd = "";
    var ordtype = "";
    var chosflag = "";
    var orddeptcd = "";
    var signflag = "";
    var imgflag = "";
    var langflag = "";
    
    var tmptreatno = "";
    var tmpiformcd = "";
    
    var signno = 0;
    var formcd = "";
    var srcformcd = "";
    var formnm = "";
    var formprogflag = "";
    var recdt = "";
    
    var wardheader = "";
    var dateheader = "";
    var doctorheader = "";
    var printheader = "";
    var pageheader = "";
    var imgepath = "";
    var formrecdt = "";
    var fstrgstdt = "";
    var lastupdtdt = "";
    var staffconfirmdt = "";
    var fstrgstrusrnm = "";
    var lastupdtrusrnm = "";
    var erdt = "";
    var ervisittm = "";
    var staffnmheader = "";
    var staffnm = "";
    var emrrecusrnmheader = "";
    var emrrecusrnm = "";
    var indd = "";
    var dschdd = "";
    var inorddepthngnm = "";
    var dschorddepthngnm = "";
    var incnt = "";
    var mainyn = "";
    var rowno = "";
    //2013/02/15 소스머지 시작(추가)
    var surgeon = "";
    var cover_header = "";
    var cover_footer = "";
    var makebodyfilecnt =0;  
    
    var default_cover_header = "";
    var default_cover_footer = "";
    
    var cover_header1 = "";
    var cover_header2 = "";
    var cover_header3 = "";
    var cover_header4 = "";
    var cover_header10 = "";
    var cover_footer1 = "";
    var cover_footer2 = "";
    		
    var cover_header_filenm = "";
    var cover_footer_filenm = "";    
    //2013/02/15 소스머지 끝
    //2013/02/18 추가
    var trans="";
    var signgenrflag = "";
    //2013/02/18 추가
    
    //2013/08/20 Start CDIS 해당하는 이미지만 나오도록 수정
    var orderseqno = "";
    var temporderseqno="";
    //2013/08/20 End
    
    var prtnunm = sysf_getUserInfo("usernm");
    var prtndeptnm = "";
    //var getuseren = getUserInfo("userengnm");
    
    var getdate = utlf_getCurrentDate();
	var gettime = utlf_getCurrentTime();
	
	var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
	var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
	
	var prtdt = dateprnt + " " + timeprnt;
    var sDutplcecd = sysf_getUserInfo("dutplcecd");
    
    fExistFolder(foldernm);
    
    for(var i = 0; i < ds_tmpinicert2_iniinfo.rowcount; i++)
    {
    	orderseqno = ds_tmpinicert2_iniinfo.getColumn(i, "cmc_orderseqno");
        signno = ds_tmpinicert2_iniinfo.getColumn(i, "signno");
        formcd = ds_tmpinicert2_iniinfo.getColumn(i, "formcd");
        srcformcd = ds_tmpinicert2_iniinfo.getColumn(i, "srcformcd");
        formnm = ds_tmpinicert2_iniinfo.getColumn(i, "formnm");
        formprogflag = ds_tmpinicert2_iniinfo.getColumn(i, "formprogflag");
        recdt = ds_tmpinicert2_iniinfo.getColumn(i, "recdt");
        recdd = ds_tmpinicert2_iniinfo.getColumn(i, "recdd");
        if(utlf_isNull(recdd)){ //의사지시기록 
        	recdd = ds_tmpinicert2_iniinfo.getColumn(i, "recdt");
        }
        if(utlf_isNull(recdd)){//진단검사결과지, 영상의학판독, 핵의학검사지, 미생물검사결과지
        	recdd = ds_tmpinicert2_iniinfo.getColumn(i, "orddd");
        }
        trans = ds_tmpinicert2_iniinfo.getColumn(i, "trans");
        pid = ds_tmpinicert2_iniinfo.getColumn(i, "pid");
        ptnm = ds_tmpinicert2_iniinfo.getColumn(i, "ptnm");
        depthngnm = ds_tmpinicert2_iniinfo.getColumn(i, "depthngnm");
        deptengabbr = ds_tmpinicert2_iniinfo.getColumn(i, "deptengabbr");
        icdrdeptengabbr = ds_tmpinicert2_iniinfo.getColumn(i, "icdrdeptengabbr");
        signorddeptcd = ds_tmpinicert2_iniinfo.getColumn(i, "signorddeptcd");
        signdeptengabbr = ds_tmpinicert2_iniinfo.getColumn(i, "signdeptengabbr");
        
        rgstno = ds_tmpinicert2_iniinfo.getColumn(i, "rgstno");
        sa = ds_tmpinicert2_iniinfo.getColumn(i, "sa");
        disporddd = ds_tmpinicert2_iniinfo.getColumn(i, "disporddd");
        orddd = ds_tmpinicert2_iniinfo.getColumn(i, "orddd");
        drid = ds_tmpinicert2_iniinfo.getColumn(i, "drid");
        icdrdrid = ds_tmpinicert2_iniinfo.getColumn(i, "icdrdrid");
        roomcd = ds_tmpinicert2_iniinfo.getColumn(i, "roomcd");
        icdrroomcd = ds_tmpinicert2_iniinfo.getColumn(i, "icdrroomcd");
        ordtype = ds_tmpinicert2_iniinfo.getColumn(i, "ordtype");
        signgenrflag = ordtype;
        chosflag = ds_tmpinicert2_iniinfo.getColumn(i, "chosflag");
        orddeptcd = ds_tmpinicert2_iniinfo.getColumn(i, "orddeptcd");
        signflag = ds_tmpinicert2_iniinfo.getColumn(i, "signflag");
        imgflag = ds_tmpinicert2_iniinfo.getColumn(i, "imgflag");
        langflag = ds_tmpinicert2_iniinfo.getColumn(i, "langflag");
        formrecdt = ds_tmpinicert2_iniinfo.getColumn(i, "formrecdt");
        formrecdt = formrecdt.toString().toDate().getDateFormat("YYYY/MM/DD");
        fstrgstdt = ds_tmpinicert2_iniinfo.getColumn(i, "fstrgstdt");
        lastupdtdt = ds_tmpinicert2_iniinfo.getColumn(i, "lastupdtdt");
        staffconfirmdt = ds_tmpinicert2_iniinfo.getColumn(i, "staffconfirmdt");
        fstrgstrusrnm = ds_tmpinicert2_iniinfo.getColumn(i, "fstrgstrusrnm");
        /* 20100407-kys-작성자일시 주석처리.
        if(fstrgstrusrnm != "")
            fstrgstrusrnm = fstrgstrusrnm + " (" + fstrgstdt + ")";
        */
        lastupdtrusrnm = ds_tmpinicert2_iniinfo.getColumn(i, "lastupdtrusrnm");
        /* 20100407-kys-작성자일시 주석처리.
        if(lastupdtrusrnm != "")
            lastupdtrusrnm = lastupdtrusrnm + " (" + lastupdtdt + ")";
        */
        erdt = ds_tmpinicert2_iniinfo.getColumn(i, "erdt");
        ervisittm = ds_tmpinicert2_iniinfo.getColumn(i, "ervisittm");
        staffnm = ds_tmpinicert2_iniinfo.getColumn(i, "staffnm");
        surgeon = staffnm;
        emrrecusrnm = ds_tmpinicert2_iniinfo.getColumn(i, "emrrecusrnm");
        indd = ds_tmpinicert2_iniinfo.getColumn(i, "indd");
        dschdd = ds_tmpinicert2_iniinfo.getColumn(i, "dschdd");
        inorddepthngnm = ds_tmpinicert2_iniinfo.getColumn(i, "inorddepthngnm");
        dschorddepthngnm = ds_tmpinicert2_iniinfo.getColumn(i, "dschorddepthngnm");
        mainyn = ds_tmpinicert2_iniinfo.getColumn(i, "mainyn");
        rowno = ds_tmpinicert2_iniinfo.getColumn(i, "rowno");
        incnt = ds_tmpinicert2_iniinfo.getColumn(i, "incnt");
        if(!utlf_isNull(incnt))
            incnt += " 회차";
        
        var ininfo = indd + " / " + inorddepthngnm;
        if(!utlf_isNull(erdt))
            ininfo += " (응급실 내원일 : " + erdt + ")";
        var dschinfo = dschdd + " / " + dschorddepthngnm;
        
        
        var formnmarr = formnm.split("\n");
        var topformnm = "";
        var botformnm = "";
        
        if (formnmarr.length == 1)
        {
            topformnm = formnmarr[0];
        }
        else if (formnmarr.length == 2)
        {
            topformnm = formnmarr[0];
            botformnm = formnmarr[1];
        }
        else
        {
            topformnm = formnm;
        }
        
        //2009-06-02 등록번호 "-" 병원별 제거
        
        var pidynhcd = ds_init_pidynhcd.getColumn(0, "hardcd");
        if (pidynhcd == "Y")
        {
            for(var k = pid.length; k <= 8; k++)
            {
                if(k < 8){
                    pid = "0"+pid;
                }
            }
            var str1 = pid.substr(0, 3);
            var str2 = pid.substr(3, 2);
            var str3 = pid.substr(5, 2);
            var str4 = pid.substr(7, 1);
            var tmppid = str1 + " " + str2 + " " + str3 + "-" + str4;
        }
        else
        {
            tmppid = pid;
        }        
        
        if (chosflag == "O" || chosflag == "S")
        {
            wardheader = "진료과 : ";
        }
        else
        {
            wardheader = "병실 : ";
        }
        
        if (langflag == "KO")
        {
            if (chosflag == "O" || chosflag == "S")
            {
                wardheader = "진료과 : ";
            }
            else
            {
                wardheader = "병실 : ";
            }
            
            dateheader = "진료기간 : ";
            doctorheader = "주치의 : ";
            printheader = "출력 : ";
            prtndeptnm = sysf_getUserInfo("dutplcenm");
            
            imgepath = fGetImgPath("KO");
            //imgepath = "com/commonweb/images/biglogo012.jpg"
            pageheader = "페이지 : ";
        }
        else
        {
            if (chosflag == "O" || chosflag == "S")
            {
                wardheader = "Dept : ";
            }
            else
            {
                wardheader = "Room : ";
            }
            
            dateheader = "Date : ";
            doctorheader = "Doctor : ";
            printheader = "Print date : ";
            prtndeptnm = sysf_getUserInfo("deptengnm");
            
            imgepath = fGetImgPath("EN");
            //imgepath = "com/commonweb/images/biglogo012e.jpg"
            if (utlf_isNull(prtndeptnm))
            {
                prtndeptnm = sysf_getUserInfo("dutplcenm");
            }
            pageheader = "Page : ";
        }
        
        if (imgflag == "N")
        {   
			ds_datagrid1.insertRow(i);
			ds_datagrid1.setColumn(i, "pid", pid);
            ds_datagrid1.setColumn(i, "signno", signno);
            ds_datagrid1.setColumn(i, "reckind", "01");
            ds_datagrid1.setColumn(i, "readprtflag", "E");
            ds_datagrid1.setColumn(i, "formcd", formcd);
            ds_datagrid1.setColumn(i, "signflag", signflag);
            ds_datagrid1.setColumn(i, "orddd", orddd);
            ds_datagrid1.setColumn(i, "chosflag", chosflag);
            ds_datagrid1.setColumn(i, "refusge", "");
            ds_datagrid1.setColumn(i, "refremark", "");
            if(utlf_isNull(trans))
                trans = "<html><head><title>출력화면 구현중입니다.</title></head><body>출력화면 구현중입니다.</body></html>";

			//이윤주 수정(20140819:최초작성시각 보이는 서식) 
//             var fstsrcformcdcnt = ds_temp_hardcd6.getCaseCount("hardcd == '" + srcformcd + "'");  
// 			if (fstsrcformcdcnt > 0) {
// 				if(!utlf_isNull(fstrgstrusrnm)) {
// 					fstrgstrusrnm = fstrgstrusrnm + " (" + fstrgstdt + ")"; 
// 				}
// 			}
						
			//이윤주 추가(20140819:기록시점에 헤더정보 표현)
			var icdrsrcformcdcnt = ds_temp_hardcd6.getCaseCount("hardcd == '" + srcformcd + "'");  
			if (icdrsrcformcdcnt > 0) {
				deptengabbr =  icdrdeptengabbr;
				roomcd = icdrroomcd;
				drid = icdrdrid;  
			}            
            
            var instcd = sysf_getUserInfo("dutplceinstcd");
            if( instcd == "032" ){
            	switch(srcformcd)
                {
                		  case "0000000003"://입원초진 
    		              		cover_header = "emr/chrtmngtxp/html/cover_header2_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html"; 
    		              		break;        
    		              case "0000000676"://수술기록
    		                    cover_header = "emr/chrtmngtxp/html/cover_header_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer2.html";
    		              		break;
    		              case "0000000679"://응급실기록
    		              		cover_header = "emr/chrtmngtxp/html/cover_header3_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html"; 
    		              		break;     
    		              case "0000000680"://입퇴원요약
    		              		cover_header = "emr/chrtmngtxp/html/cover_header1_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer1.html";
    		              		break;
    		              case "0000002022"://마취기록지
    		              		cover_header = "emr/chrtmngtxp/html/cover_header4_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
    		              		break;
    		              //case "0000003325"://DSC기록
    		              case "0000003169"://Brief OP Note
    		              		cover_header = "emr/chrtmngtxp/html/cover_header_032.html";
    		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
    		              		break;
    		              default:   
    		            	  if(formprogflag == "-" || formprogflag == "MAIN" || mainyn == "Y"){
    		            		  cover_header = "emr/chrtmngtxp/html/cover_header10_032.html";
    		            		  cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
    				          }else{
    				        	  cover_header = "emr/chrtmngtxp/html/cover_header_032.html";
    				        	  cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
    		              	  }
                          break;
                	}               	
            }else{
            	 switch(srcformcd)
                 {

                 		  case "0000000003"://입원초진 
     		              		cover_header = "emr/chrtmngtxp/html/cover_header2.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html"; 
     		              		break;        
     		              case "0000000676"://수술기록
     		                    cover_header = "emr/chrtmngtxp/html/cover_header.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer2.html";
     		              		break;
     		              case "0000000679"://응급실기록
     		              		cover_header = "emr/chrtmngtxp/html/cover_header3.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html"; 
     		              		break;     
     		              case "0000000680"://입퇴원요약
     		              		cover_header = "emr/chrtmngtxp/html/cover_header1.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer1.html";
     		              		break;
     		              case "0000002022"://마취기록지
     		              		cover_header = "emr/chrtmngtxp/html/cover_header4.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
     		              		break;
     		              //case "0000003325"://DSC기록
     		              case "0000003169"://Brief OP Note
     		              		cover_header = "emr/chrtmngtxp/html/cover_header.html";
     		              		cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
     		              		break;
     		              default:   
     		            	  if(formprogflag == "-" || formprogflag == "MAIN" || mainyn == "Y"){
     		            		  cover_header = "emr/chrtmngtxp/html/cover_header10.html";
     		            		  cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
     				          }else{
     				        	  cover_header = "emr/chrtmngtxp/html/cover_header.html";
     				        	  cover_footer = "emr/chrtmngtxp/html/cover_footer.html";
     		              	  }
                           break;
                 	}            	
            }
           
					 trans = "utf16://<!--@\n  @DOCUMENT_HOME = " + sysf_getURLprefix() + "/xpapps/ " +
								"\n @COVER_HEADER = " + cover_header + 
								"\n @COVER_FOOTER = " + cover_footer +
								"\n @BODY_HEADER = emr/chrtmngtxp/html/body_header.html"  + 
								"\n @BODY_FOOTER = emr/chrtmngtxp/html/body_footer.html" +					            
								"\n @DEFAULT_FONT = 굴림  " + 
								"\n @DEFAULT_PRE_FONT = 굴림 " +
								"\n @DEFAULT_FONT_SIZE = 9pt " +  
								"\n @DEFAULT_PRE_FONT_SIZE = 10pt " +
								"\n @FONT_SIZE_OFFSET = 3px " +
								"\n @USE_NU_SIZE_ADJUST = TRUE " +
								"\n @HIDE_TAG = DIV:MTX_*, DIV:STX_* " +
								"\n @VAR_PAT_NUM = " + tmppid + 
								"\n @VAR_CLASS = " + ordtype + 
								"\n @VAR_CHART_NAME_TOP  = " + topformnm + 
								"\n @VAR_CHART_NAME_BOTTOM  = " + botformnm + 
								"\n @VAR_CHART_NAME_LINE  = " + formnm + 
								"\n @VAR_PAT_AGE_SEX = " + sa + 
								"\n @VAR_TREAT_DEPT = " + deptengabbr + 
								"\n @VAR_PAT_JUMIN_NO = " + rgstno + 
								"\n @VAR_PAT_NAME = " + ptnm + 
								"\n @VAR_PRINT_NAME = " + prtnunm + 
								"\n @VAR_PRINT_DEPT = " + prtndeptnm + 
								"\n @VAR_WARD_HEAD = " + wardheader + roomcd + 
								"\n @VAR_DATE_HEADER = " + dateheader + disporddd + 
								"\n @VAR_DOCTOR_HEADER = " + doctorheader + drid + 
								"\n @VAR_PRINT_HEADER = " + printheader + prtdt + 
								"\n @SYS_PAGE_HEADER = " + pageheader + 
								"\n @VAR_HOSP_IMG = " + imgepath + 
								"\n @VAR_ORDDATE = " + formrecdt + 
								"\n @VAR_ORDDEPT = " + depthngnm + 
								"\n @VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + 
								"\n @VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + 
								"\n @VAR_ERDT = " + erdt + 
								"\n @VAR_ERVISITTM = " + ervisittm + 
								"\n @VAR_STAFFNM_HEADER = " + staffnmheader + 
								"\n @VAR_STAFFNM = " + staffnm + 
								"\n @VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + 
								"\n @VAR_EMRRECUSRNM = " + emrrecusrnm + 
								"\n @VAR_ININFO = " + ininfo + 
								"\n @VAR_DSCHINFO = " + dschinfo + 
								"\n @VAR_INCNT = " + incnt + 
								"\n @VAR_INORDDEPTHNGNM = " + inorddepthngnm + 
								"\n @VAR_RECUSERID = " + fstrgstrusrnm +
								"\n @VAR_REALRECDT = " + erdt +
								"\n @VAR_TREAT_DEPT = " + deptengabbr +
								"\n @VAR_DSCHINFO = " + dschinfo + 
								"\n @VAR_SURGEON = " + surgeon +
								"\n @OUTPUT_MAGNIFICATION = 1 " +
								"\n@-->\n" + trans + "\n";
				
				
			//sysf_trace(trans);	
			// jw.choe 차후 비지니스 로직에서 해당부분 확인 필요!
			// SMMRC03000.xjs 6940 Line 동일
            if ( trans.indexOf("/himed/webapps/") > -1 ){
				trans = trans.replace("/himed/webapps/",  "/himed2/webapps/");
			}
			if( trans.indexOf("&amp;instcd=&amp;") > -1 ){
				trans = trans.replace("&amp;instcd=&amp;", "&amp;instcd="+sysf_getUserInfo("dutplceinstcd")+"&amp;");
			}else if( trans.indexOf("&amp;business_id=") > -1 ){
				trans = trans.replace("&amp;business_id=", "&amp;instcd="+sysf_getUserInfo("dutplceinstcd")+"&amp;business_id=");
			}
			
			
			emrpath = emrpath + trans.replace(/"/g, "'") + splittxt;
         
            //emrorddate += orddd + "|";
            emrorddate += recdd + splittxt;  //기록일을 보여달라는 의료정보팀 요청
            emrformnm += formnm + splittxt;
            emrformcd += formcd + splittxt;
            emrdeptnm += deptengabbr + splittxt;
            emrdeptcd += orddeptcd + splittxt;
            //2013/01/15 Start            
            signemrdeptnm += signdeptengabbr + splittxt;
            signemrdeptcd += signorddeptcd + splittxt;
            //2013/01/15 End            
            emrpage += "1"+ splittxt; 
            emrhiddenmsg += formcd + "▦" + signno + "▦" + formnm + "▦" + chosflag + "▦" +pid + "▦" + ptnm + "▦" + deptengabbr
                      + "▦" + sa + "▦" + rgstno + "▦" + disporddd + "▦" + drid + "▦" + roomcd + "▦" + disporddd + "▦" + ordtype + "▦" + "E" + splittxt;
        }
        else
        {
            tmptreatno += signno + ",";
            tmpiformcd += formcd + ",";
            emrpath += "*" + splittxt;
            emrorddate += "*" + splittxt;
            emrformnm += "*" + splittxt;
            emrformcd += "*" + splittxt;
            emrdeptnm += "*" + splittxt;
            emrdeptcd += "*" + splittxt;
            //2013/01/15 Start
            signemrdeptnm += "*" + splittxt; 
            signemrdeptcd += "*" + splittxt;
            //2013/01/15 End
            emrpage += "*" + splittxt;
            emrhiddenmsg += "*" + splittxt;
            
            //2013/08/20 Start
            temporderseqno += orderseqno +","; 
            //2013/08/20 End
        }
    
    }

    //model.removeNodeset("/root/temp/inisend");
    
    
    var objColInfo = new Array();
	objColInfo.push({col: "treatno", type:"string", size:256, val:tmptreatno.substring(0, tmptreatno.length - 1)});
	objColInfo.push({col: "docucd", type:"string", size:256, val:tmpiformcd.substring(0, tmpiformcd.length - 1)});
	//2013/08/20 Start 이정택:처방키가 있을시에 처방키에 해당하는 이미지만 가져오도록 소스 추가
	objColInfo.push({col: "cmc_orderseqno", type:"string", size:256, val:temporderseqno.substring(0, temporderseqno.length - 1)});
	//2013/08/20 End
	//objColInfo.push({col: "instcd", type:"string", size:256, val:ds_init_env.getColumn(0, "instcd")});
	dsf_createDsRow("ds_imgrec_iemr", objColInfo);
	
	objColInfo = new Array();
	objColInfo.push({col: "emrpath", type:"string", size:256});
	objColInfo.push({col: "emrorddate", type:"string", size:256});
	objColInfo.push({col: "emrformnm", type:"string", size:256});
	objColInfo.push({col: "emrformcd", type:"string", size:256});
	objColInfo.push({col: "emrdeptnm", type:"string", size:256});
	objColInfo.push({col: "emrdeptcd", type:"string", size:256});
	objColInfo.push({col: "signemrdeptcd", type:"string", size:256});
	objColInfo.push({col: "signemrdeptnm", type:"string", size:256});
	objColInfo.push({col: "emrpage", type:"string", size:256});
	objColInfo.push({col: "emrhiddenmsg", type:"string", size:256});
	dsf_createDs("ds_temp_inisend", objColInfo);
	ds_temp_inisend.addRow();
	
	 //이미지경로
    ds_temp_inisend.setColumn(0, "emrpath", emrpath.substring(0, emrpath.length - 1));
    iviewerIemr.main_emrpath = ds_temp_inisend.getColumn(0, "emrpath");
    //진료일
    ds_temp_inisend.setColumn(0, "emrorddate", emrorddate.substring(0, emrorddate.length - 1));
    iviewerIemr.main_emrorddate = ds_temp_inisend.getColumn(0, "emrorddate");
	//서식명
	ds_temp_inisend.setColumn(0, "emrformnm", emrformnm.substring(0, emrformnm.length - 1));
	iviewerIemr.main_emrformnm = ds_temp_inisend.getColumn(0, "emrformnm");
	//서식코드
	ds_temp_inisend.setColumn(0, "emrformcd", emrformcd.substring(0, emrformcd.length - 1));
	iviewerIemr.main_emrformcd = ds_temp_inisend.getColumn(0, "emrformcd");
	//진료과
	ds_temp_inisend.setColumn(0, "emrdeptnm", emrdeptnm.substring(0, emrdeptnm.length - 1));
	iviewerIemr.main_emrdeptnm = ds_temp_inisend.getColumn(0, "emrdeptnm");
	//진료과코드
	ds_temp_inisend.setColumn(0, "emrdeptcd", emrdeptcd.substring(0, emrdeptcd.length - 1));
	iviewerIemr.main_emrdeptcd = ds_temp_inisend.getColumn(0, "emrdeptcd");
	//2013/01/15 Start
	//기록과코드
	ds_temp_inisend.setColumn(0, "signemrdeptcd", signemrdeptcd.substring(0, signemrdeptcd.length - 1));
	iviewerIemr.main_signemrdeptcd = ds_temp_inisend.getColumn(0, "signemrdeptcd");
	//기록과
	ds_temp_inisend.setColumn(0, "signemrdeptnm", signemrdeptnm.substring(0, signemrdeptnm.length - 1));
	iviewerIemr.main_signemrdeptnm = ds_temp_inisend.getColumn(0, "signemrdeptnm");
	//2013/01/15 End
	//페이지
	ds_temp_inisend.setColumn(0, "emrpage", emrpage.substring(0, emrpage.length - 1));
	iviewerIemr.main_emrpage = ds_temp_inisend.getColumn(0, "emrpage");
	
	ds_temp_inisend.setColumn(0, "emrhiddenmsg", emrhiddenmsg.substring(0, emrhiddenmsg.length - 1));
	iviewerIemr.main_emrhiddenmsg = ds_temp_inisend.getColumn(0, "emrhiddenmsg");
	
	gtmptreatno = tmptreatno;
	gtmpiformcd = tmpiformcd;
	gemrpath = emrpath;
	gemrorddate = emrorddate;
	gemrformnm = emrformnm;
	gemrformcd = emrformcd;
	gemrdeptnm = emrdeptnm;
	gemrdeptcd = emrdeptcd;
	gemrpage = emrpage;
	gemrhiddenmsg = emrhiddenmsg;
	
	var iemrNode = ds_imgrec_iemr;
	
    
    iviewerIemr.searchChart_EMR(iemrNode); // CDIS 및 스캔 이미지 세팅
    
    if (iviewerIemr.downloadChart() == true)
	{
    		
		// 뷰어 모드 유지 기능 추가 - 20080417
		var ViewMode;
		ViewMode = iviewerIemr.hidden_currentViewMode;

		if (utlf_isNull(ViewMode))
		{
//2013/02/15 소스머지 시작(수정)
			iviewerIemr.setupChartCopy("ChartView");
//2013/02/15 소스머지 끝			
			
		}
		else
		{
//2013/02/15 소스머지 시작(수정)
			iviewerIemr.setupChartCopy(ViewMode);			
//2013/02/15 소스머지 끝
		}
    }
}


/* @group	: 폴더 존재여부 파악
 * @ver		: 2007.01.06
 * @by		: 박종훈
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fExistFolder(foldernm)
{
    //var fso,
    var folder, s;
    //fso = new ActiveXObject("Scripting.FileSystemObject");

    try
    {
        folder = fso.GetFolder(foldernm);
        s = folder.DateCreated;

        if (!utlf_isNull(s))
        {
            fDelFolder(foldernm);
            fMakeFolder(foldernm);
        }
    }
    catch (e)
    {
        fMakeFolder(foldernm);
    }
}

/* @group	: 폴더 삭제
 * @ver		: 2007.01.06
 * @by		: 박종훈
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fDelFolder(foldernm)
{
//     var fso;
//     fso = new ActiveXObject("Scripting.FileSystemObject");
    //20130418 김동준 start try Catch 추가
	try {
    	fso.DeleteFolder(foldernm);
	}
	catch(e){
		
	}
	//20130418 김동준 end
}

/* @group	: 폴더 생성
 * @ver		: 2007.01.06
 * @by		: 박종훈
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		:
*/
function fMakeFolder(foldernm)
{
 //   var fso = new ActiveXObject("Scripting.FileSystemObject");
    var check = true;
    
    while(check){  
	    try
	    {
	    	var a = fso.CreateFolder(foldernm);
	    	check = false;
	    }
	    catch (e)
	    {
	    	check = true;
	    }
	}
}

function fMakeFolder_20130328(foldernm)
{
   // var fso = new ActiveXObject("Scripting.FileSystemObject");
    var a = fso.CreateFolder(foldernm);
}


/**
 * @desc   : 사본발행 신청
 * @id     :
 * @event  : xforms-ready
 * @return : void
 * @authur : 박종훈
 */
function fAppcopy()
{
sysf_trace("***** fAppcopy() *****");
    var appcopykey = iviewerIemr.setCopy(true);   //영상뷰어에서의 리턴값
sysf_trace("***** appcopykey : "+ appcopykey );
    if (!utlf_isNull(appcopykey))
    {
        
        var copykey = appcopykey.split("|");
        var appkeyArr = copykey[0].split("▦");
        var reckind = "";    //기록, 영상구분(E/I)
        //var chosflag = model.getValue(ref + "[" + rowpos + "]/chosflag");
        if(btn_out.getSelectStatus() == true) {
        	var chosflag = "O";
        } else if(btn_in.getSelectStatus() == true) {
        	var chosflag = "I";
        }
        
        var sendval = "";
        var sendformcd = "";


        var tmpval = "";
        var tmpformcd = "";
        var tmptotpage = "";
        appkeyArr = "";

        var copyparam = "";
        var compsignno = "";

        for(var i = 0; i < copykey.length; i++)
        {
            appkeyArr = copykey[i].split("▦");
            reckind = appkeyArr[0];
            
            if (reckind == "I")
            {
                tmpval = appkeyArr[1];
                tmpformcd = appkeyArr[2];
                tmptotpage = appkeyArr[3];
            }
            else
            {
                tmpval = appkeyArr[2];
                tmpformcd = appkeyArr[1];
                tmptotpage = appkeyArr[16];
                
                if (compsignno != tmpval)
                {
                    compsignno = tmpval;
                }
                else
                {
                    continue;
                }
            }
			
			var objColInfo = new Array();
			objColInfo.push({col: "val", type:"string", size:256, val:tmpval});
			objColInfo.push({col: "formcd", type:"string", size:256, val:tmpformcd});
			objColInfo.push({col: "reckind", type:"string", size:256, val:reckind});
			objColInfo.push({col: "chosflag", type:"string", size:256, val:chosflag});
			objColInfo.push({col: "instcd", type:"string", size:256});
			dsf_createDsRow("ds_copysend", objColInfo);
			
            
            objColInfo = new Array();
            objColInfo.push({col: "patnm", type:"string", size:256});
            objColInfo.push({col: "ioflag", type:"string", size:256});
            objColInfo.push({col: "recdd", type:"string", size:256});
            objColInfo.push({col: "formnm", type:"string", size:256});
            objColInfo.push({col: "deptnm", type:"string", size:256});
            objColInfo.push({col: "deptcd", type:"string", size:256});
            objColInfo.push({col: "orddd", type:"string", size:256});
            objColInfo.push({col: "dschdd", type:"string", size:256});
            objColInfo.push({col: "atdoctnm", type:"string", size:256});
            objColInfo.push({col: "atdoctcd", type:"string", size:256});
            objColInfo.push({col: "keyno", type:"string", size:256});
            objColInfo.push({col: "formcd", type:"string", size:256});
            objColInfo.push({col: "cretno", type:"string", size:256});
			dsf_createDsRow("ds_tmpcopyinfo_copyinfo", objColInfo);
            
            var oParam = {};
				oParam.id       = "TRMRI00407";
				oParam.service  = "recmngtapp.SystView";
				oParam.method   = "reqGetReqCopyInfo";
				oParam.inds     = "req=ds_copysend";
				oParam.outds    = "ds_tmpcopyinfo_copyinfo=copyinfo";
				oParam.async    = false;
				oParam.callback = "cf_TRMRI00407";

			tranf_submit(oParam);
            
            if (arErrorCode.pop("TRMRI00407") > -1)
            {
                var patid = ds_patinfolist.getColumn(0, "pid");
                var patnm = ds_patinfolist.getColumn(0, "hngnm");
                var ioflag = ds_tmpcopyinfo_copyinfo.getColumn(0, "ioflag");
                var recdd = ds_tmpcopyinfo_copyinfo.getColumn(0, "recdd");
                var formnm = ds_tmpcopyinfo_copyinfo.getColumn(0, "formnm");
                var deptnm = ds_tmpcopyinfo_copyinfo.getColumn(0, "deptnm");
                var deptcd = ds_tmpcopyinfo_copyinfo.getColumn(0, "deptcd");
                var orddd = ds_tmpcopyinfo_copyinfo.getColumn(0, "orddd");
                var dschdd = ds_tmpcopyinfo_copyinfo.getColumn(0, "dschdd");
                var atdoctnm = ds_tmpcopyinfo_copyinfo.getColumn(0, "atdoctnm");
                var atdoctcd = ds_tmpcopyinfo_copyinfo.getColumn(0, "atdoctcd");
                var sex = ds_patinfolist.getColumn(0, "sex");
                var age = ds_patinfolist.getColumn(0, "age");
            }

            copyparam += patid + "▦" + patnm + "▦" + age + "▦" + sex + "▦" + tmptotpage + "▦" + reckind + "▦" + chosflag + "▦" + recdd + "▦" + formnm + "▦"
                   + deptnm + "▦" + deptcd + "▦" + orddd + "▦" + dschdd + "▦" + atdoctnm + "▦" + atdoctcd + "▦" + tmpval  + "▦" + tmpformcd + "▩";
        }
        
        this.close();
        
       return copyparam;        	
    }
    return "";
}




function fCheckAppList() {
	var userinfo = getUserInfo("dutplcecd"); 
	
	// KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
	//if(userinfo == "3230000000"){ 
	if(model.getValue("/root/temp/hardcd/hardcd[hardcd='" + userinfo + "']/hardcd") != "")
	{
	// KNUH_20101124_박성호_end
		var grdoRow = 0;
		var grdcRow = 0;
		var hist_orddd = 0;
		var hist_cretno = 0;
		var hist_indd = 0;
		var copyseqno = 0;
		var issno = 0;
		for( var i = 1 ; i < grd_apphist.rows; i++) {
			hist_orddd = model.getValue("/root/main/apphist/applist["+ i +"]/orddd");
			hist_indd = model.getValue("/root/main/apphist/applist["+ i +"]/orddd");
			hist_cretno = model.getValue("/root/main/apphist/applist["+ i +"]/cretno");
			copyseqno = model.getValue("/root/main/apphist/applist["+ i +"]/copyseqno");
			issno = model.getValue("/root/main/apphist/applist["+ i +"]/copyseqno");
			// 외래 신청내역 check되도록
			for(var j = 1; j < grd_outpat.rows; j++) {
				grdoRow = grd_outpat.findRow(hist_orddd, j, 3);
				grdcRow = grd_outpat.findRow(hist_cretno, j, 2);
				if(grdoRow > 0 && (grdoRow == grdcRow)) model.setValue("/root/main/outpathistlist/outpathistlist["+ j +"]/chk", "Y");
			}
			
			// 입원 신청내역 check 되도록
			for(var k = 1; k < grd_inapplist.rows; k++) {
				grdoRow = grd_inapplist.findRow(hist_indd, k, 1);
				grdcRow = grd_inapplist.findRow(hist_cretno, k, 6);
				if(grdoRow > 0 && (grdoRow == grdcRow)) {
					model.setValue("/root/main/inpathistlist/inpathistlist["+ k +"]/chk", "Y");
					model.makeValue("/root/main/inpathistlist/inpathistlist["+ k +"]/copyseqno", copyseqno);
					model.makeValue("/root/main/inpathistlist/inpathistlist["+ k +"]/issno", issno);
				}
			}
		}
	}
}

// 서식만
/*function fGetEMRList() {
	model.removeNodeset("/root/send/reqdata");
    ds_send_reqdata.setColumn(nRow, "depth", "3");
	ds_send_reqdata.setColumn(nRow, "label", "-");

	ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
	ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
	ds_send_reqdata.setColumn(nRow, "condflag", "ORDDD");
	ds_send_reqdata.setColumn(nRow, "testflag", "N");
							
    if(btn_out.selected) {
    	ds_send_reqdata.setColumn(nRow, "orddd", model.getValue("/root/main/outpathistlist/outpathistlist[" + grd_outpat.row + "]/orddd"));
    	ds_send_reqdata.setColumn(nRow, "indd", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddd"));
    	ds_send_reqdata.setColumn(nRow, "val", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddd"));
		ds_send_reqdata.setColumn(nRow, "pid", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/pid"));
		ds_send_reqdata.setColumn(nRow, "cretno", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/cretno"));
    	ds_send_reqdata.setColumn(nRow, "chosflag", "O");
    	ds_send_reqdata.setColumn(nRow, "ioflag", "O");
    	ds_send_reqdata.setColumn(nRow, "ordtype", "O");
    	ds_send_reqdata.setColumn(nRow, "orddeptcd",model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddeptcd"));
    	ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
    	
  	} else if(btn_in.selected) {
    	ds_send_reqdata.setColumn(nRow, "orddd", model.getValue("/root/main/inpathistlist/inpathistlist[" + grd_inapplist.row + "]/indd"));
    	ds_send_reqdata.setColumn(nRow, "indd", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/indd"));
    	ds_send_reqdata.setColumn(nRow, "val", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/indd"));
		ds_send_reqdata.setColumn(nRow, "pid", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/pid"));
		ds_send_reqdata.setColumn(nRow, "cretno", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/cretno"));
		ds_send_reqdata.setColumn(nRow, "chosflag", "I");
		ds_send_reqdata.setColumn(nRow, "ioflag", "I");
		ds_send_reqdata.setColumn(nRow, "ordtype", "I");
		ds_send_reqdata.setColumn(nRow, "orddeptcd",model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/orddeptcd"));
		ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
  	}
    
    if (submit("TRMRC03026",false))
    {   
    }
    btn_save.disabled          = false;
    btn_update.disabled        = true;
    btn_reappinfo.disabled     = true;
}*/

// 외래 : 기록조회
function fGetEMROutTestList() {
sysf_trace("***** fGetEMROutTestList() *****");	

	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	
	ds_send_reqdata.setColumn(nRow, "testflag", "Y");
  	
	ds_grd_outpat.filter("chk=='Y'");
	
		
  	//var rsrvinfo = model.instance1.selectNodes("/root/main/outpathistlist/outpathistlist[chk = 'Y']");
	
	if(ds_grd_outpat.rowcount < 1) {
		ds_grd_outpat.filter("");
		sysf_messageBox("외래 진료일을 check", "I008");
		return;
	} else{
		ds_tmpinicert2_iniinfo.clearData();
		
	    iviewerIemr.resetInstance_EMR();
	    iviewerIemr.cleanViewer();
	    
	    dsf_createDs("ds_grd_outpat_rsrvinfo_filter");
	    ds_grd_outpat_rsrvinfo_filter.copyData(ds_grd_outpat, true);
	    ds_grd_outpat.filter("");
	    ds_grd_outpat_rsrvinfo_filter.addColumn("chosflag", "string");
	    dsf_setDefaultVal(ds_grd_outpat_rsrvinfo_filter, "all");
	    for(var i=0; i<ds_grd_outpat_rsrvinfo_filter.rowcount; i++)
			ds_grd_outpat_rsrvinfo_filter.setColumn(i, "chosflag", ds_grd_outpat_rsrvinfo_filter.getColumn(i, "ordtype"));
	    
	    //ds_send_reqdata.setColumn(nRow, "rsrvinfo",getNodeListCSV(rsrvinfo));
		ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
		ds_send_reqdata.setColumn(nRow, "depth", "3");
		ds_send_reqdata.setColumn(nRow, "label", "-");
		ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
		ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
		ds_send_reqdata.setColumn(nRow, "condflag", "ORDDD");
	}
	
	ds_send_reqdata.setColumn(nRow, "scrnid"		, "SMMRC03000" );
	ds_send_reqdata.setColumn(nRow, "addimageyn"	, ds_main_otherinfo.getColumn(0, "addimageyn"));
	

  	if(group1.chk_testinfo.value == "Y") {
    	ds_send_reqdata.setColumn(nRow, "testinfo", "Y");
    	for( var i = 2; i < 9 ; i++) {
			ds_main_otherinfo.setColumn(0, "testinfo" + i +"", "Y");
			ds_send_reqdata.setColumn(nRow, "testinfo" + i +"", "Y");
		}
  	} else {

	    if(group1.chk_testinfo2.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo2", "Y");
	    }
	    if(group1.chk_testinfo3.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo3", "Y");
	    }
	    if(group1.chk_testinfo4.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo4", "Y");
	    }
	    if(group1.chk_testinfo5.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo5", "Y");
	    }
	    if(group1.chk_testinfo6.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo6", "Y");
	    }
	    if(group1.chk_testinfo7.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo7", "Y");
	    }
	    if(group1.chk_testinfo8.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo8", "Y");
	    }
  	}
  	
  	if(group1.chk_prcpinfo.value == "Y") {
  		ds_send_reqdata.setColumn(nRow, "prcpinfo", "Y");
  	}
  	
  	// 검사결과만
  	if(group1.chk_onlytest.value == "Y") {
  		ds_send_reqdata.setColumn(nRow, "onlytest", "Y");
  	}
  	
    ds_tmpinicert2_iniinfo.clearData();
    
//      sysf_trace(ds_grd_outpat_rsrvinfo_filter.saveXML());
//      sysf_trace(ds_send_reqdata.saveXML());
    
    
	//xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(ds_tmpinicert_iniinfo.getColumnInfo("cmc_orderseqno")))
		ds_tmpinicert_iniinfo.updateColID("cmc_orderseqno", "execprcpuniqno");
    
    var oParam = {};
		oParam.id       = "TRMRC03016";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetEMROutTestList";
		oParam.inds     = "rsrvinfo=ds_grd_outpat_rsrvinfo_filter req=ds_send_reqdata";
		oParam.outds    = "ds_tmpinicert_iniinfo=iniinfo";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03016";

	tranf_submit(oParam);
	
    if (arErrorCode.pop("TRMRC03016") > -1)
    {   
		if( ds_main_otherinfo.getColumn(0, "addimageyn") != "Y" ){
			iviewerIemr.cleanViewer();  	  
		
			var noimg = "";
		  	var imgarray = "";
			var certcnt = ds_tmpinicert_iniinfo.rowcount;
			
			for(var a = 0; a < certcnt ; a++ ){
				var add_imgflag = ds_tmpinicert_iniinfo.getColumn(a, "imgflag");
				var add_formcd = ds_tmpinicert_iniinfo.getColumn(a, "formcd");
				var add_formprogflag = ds_tmpinicert_iniinfo.getColumn(a, "formprogflag");
				
				if( !utlf_isNull(add_imgflag) ){
					if( add_imgflag != "N" && add_formcd != "Z001" &&  add_formprogflag != "IMG" ){				
						if( a == 0 ){
							noimg = ds_tmpinicert_iniinfo.getColumn(a, "signno"); 
						}else{
							noimg = noimg + "*" + ds_tmpinicert_iniinfo.getColumn(a, "signno");	
						}
					}
				}
			}
			
			imgarray = noimg.toString().split("*");
			for(var i = 0; i < imgarray.length ; i++ ){
				for(var j = 0; j < certcnt ; j++ ){
					if( imgarray[i] == ds_tmpinicert_iniinfo.getColumn(j, "signno") ){
						var bSucc = ds_tmpinicert_iniinfo.deleteRow(j);
						//ds_tmpinicert_iniinfo.applyChange();
					}
				}
			}    		
		}    
		dsf_copyColInfo(ds_tmpinicert2_iniinfo, ds_tmpinicert_iniinfo);
		//dsf_copyDs(ds_tmpinicert2_iniinfo, ds_tmpinicert_iniinfo, "after");
    	ds_tmpinicert2_iniinfo.appendData(ds_tmpinicert_iniinfo);
    	dsf_setDefaultVal(ds_tmpinicert2_iniinfo, "all");
    	
    }
    btn_reappinfo.enable = false;
}

//  입원 : 기록조회
function fGetEMRInTestList() {
	
	var supitemindxseq = "";
	var midindxseq = "";
	
	for(var i = 0; i < grd_inpat.rows; i++ ) {
		if("Y" == ds_grd_inpat.getColumn(i, "chk")) {
			supitemindxseq += ds_grd_inpat.getColumn(i, "supitemindxseq") + ",";
			midindxseq = ds_grd_inpat.getColumn(i, "midindxseq") + ",";
		}
	}
	
	model.removeNodeset("/root/send/reqdata");
	ds_send_reqdata.setColumn(nRow, "orddd", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/orddd"));
	ds_send_reqdata.setColumn(nRow, "indd", model.getValue("/root/main/midissinfo/emrapplist["+ grd_inpat.row +"]/orddd"));
	ds_send_reqdata.setColumn(nRow, "val", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/midindxseq"));
	ds_send_reqdata.setColumn(nRow, "pid", model.getValue("/root/main/midissinfo/emrapplist["+ grd_inpat.row +"]/pid"));
	ds_send_reqdata.setColumn(nRow, "cretno", model.getValue("/root/main/midissinfo/emrapplist["+ grd_inpat.row +"]/cretno"));
	ds_send_reqdata.setColumn(nRow, "orddeptcd",model.getValue("/root/main/midissinfo/emrapplist["+ grd_inpat.row +"]/orddeptcd"));
	ds_send_reqdata.setColumn(nRow, "chosflag", "I");
	ds_send_reqdata.setColumn(nRow, "ioflag", "I");
	ds_send_reqdata.setColumn(nRow, "ordtype", "I");
	
	if(isSearchString(supitemindxseq, "19338") || isSearchString(supitemindxseq, "5162")) {
		if(isSearchString(midindxseq, "19698")) { // 처방(운영)
			ds_send_reqdata.setColumn(nRow, "prcpinfo", "Y");
			ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
		
		} else if(isSearchString(midindxseq, "18788")) { // 핵의학
			ds_send_reqdata.setColumn(nRow, "testinfo6", "Y");
			
		} else if(isSearchString(midindxseq, "19697")) { // 미생물
			ds_send_reqdata.setColumn(nRow, "testinfo8", "Y");
			
		} else { // 통합검사결과에 포함되는 검사결과
			if(isSearchString(midindxseq, "11137")) { // 진검
				ds_send_reqdata.setColumn(nRow, "depth", "5");
				ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"))
				ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
				ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
				ds_send_reqdata.setColumn(nRow, "condflag", "MID");
				ds_send_reqdata.setColumn(nRow, "chosflag", "I");
				ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
				ds_send_reqdata.setColumn(nRow, "testinfo2", "Y");
				
			} else if(isSearchString(midindxseq, "11136")) { // 영상
				ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"))
				ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
				ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
				ds_send_reqdata.setColumn(nRow, "condflag", "MID");
				ds_send_reqdata.setColumn(nRow, "chosflag", "I");
				ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
				ds_send_reqdata.setColumn(nRow, "testinfo5", "Y");
				
			} else if(isSearchString(midindxseq, "11133")) { // 내시경
				ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"))
				ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
				ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
				ds_send_reqdata.setColumn(nRow, "condflag", "MID");
				ds_send_reqdata.setColumn(nRow, "chosflag", "I");
				ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
				ds_send_reqdata.setColumn(nRow, "testinfo7", "Y");

			} else if(isSearchString(midindxseq, "11135")) { // 기능
				ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"))
				ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
				ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
				ds_send_reqdata.setColumn(nRow, "condflag", "MID");
				ds_send_reqdata.setColumn(nRow, "chosflag", "I");
				ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
				ds_send_reqdata.setColumn(nRow, "testinfo4", "Y");

			} else {
				ds_send_reqdata.setColumn(nRow, "depth", "5");
				ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"));

				ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
				ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
				ds_send_reqdata.setColumn(nRow, "condflag", "MID");
				ds_send_reqdata.setColumn(nRow, "chosflag", "I");
				ds_send_reqdata.setColumn(nRow, "recinfo", "Y");				
													
			}
		}
		
	} else{
		
		ds_send_reqdata.setColumn(nRow, "depth", "5");
		ds_send_reqdata.setColumn(nRow, "label", model.getValue("/root/main/midissinfo/emrapplist[" + grd_inpat.row + "]/formnm"));

		ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
		ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
		ds_send_reqdata.setColumn(nRow, "condflag", "MID");
		ds_send_reqdata.setColumn(nRow, "chosflag", "I");
		ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
	}

	if(submit("TRMRC03025")) {
		copyNodeset("/root/tmpinicert2/iniinfo", "/root/tmpinicert/iniinfo");
		fEmrImgRec();  // html
	}
	
    btn_save.disabled          = false;
    btn_update.disabled        = true;
    btn_reappinfo.disabled     = true;
}

// 수진이력
function fGetPatHist() {
	frmf_setParameter("SPMMR05500_orddeptcd", ds_main_cond.getColumn(0, "orddeptcd"));
	frmf_setParameter("SPMMR05500_pid", ds_main_cond.getColumn(0, "pid"));
    frmf_modal("SPMMR05500", "SPMMR05500", null, null, 1, 10, 10, null, null, null, null, null, "M");
}

// 입원결과만
function fGetEMRTestList() {
	model.removeNodeset("/root/send/reqdata");
	ds_send_reqdata.setColumn(nRow, "depth", "3");
	ds_send_reqdata.setColumn(nRow, "label", "-");

	ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
	ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
	ds_send_reqdata.setColumn(nRow, "condflag", "ORDDD");
	ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
							
    if(btn_out.selected) {
    	ds_send_reqdata.setColumn(nRow, "orddd", model.getValue("/root/main/outpathistlist/outpathistlist[" + grd_outpat.row + "]/orddd"));
    	ds_send_reqdata.setColumn(nRow, "indd", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddd"));
    	ds_send_reqdata.setColumn(nRow, "val", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddd"));
		ds_send_reqdata.setColumn(nRow, "pid", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/pid"));
		ds_send_reqdata.setColumn(nRow, "cretno", model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/cretno"));
    	ds_send_reqdata.setColumn(nRow, "chosflag", "O");
    	ds_send_reqdata.setColumn(nRow, "ioflag", "O");
    	ds_send_reqdata.setColumn(nRow, "ordtype", "O");
    	ds_send_reqdata.setColumn(nRow, "orddeptcd",model.getValue("/root/main/outpathistlist/outpathistlist["+ grd_outpat.row +"]/orddeptcd"));
    	ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
    	
    	var rsrvinfo = model.instance1.selectNodes("/root/main/outpathistlist/outpathistlist[chk = 'Y']");
	    model.makeValue("/root/send/search/rsrvinfo",getNodeListCSV(rsrvinfo));
	    
    	
  	} else if(btn_in.selected) {
    	ds_send_reqdata.setColumn(nRow, "orddd", model.getValue("/root/main/inpathistlist/inpathistlist[" + grd_inapplist.row + "]/indd"));
    	ds_send_reqdata.setColumn(nRow, "indd", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/indd"));
    	ds_send_reqdata.setColumn(nRow, "val", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/indd"));
		ds_send_reqdata.setColumn(nRow, "pid", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/pid"));
		ds_send_reqdata.setColumn(nRow, "cretno", model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/cretno"));
		ds_send_reqdata.setColumn(nRow, "chosflag", "I");
		ds_send_reqdata.setColumn(nRow, "ioflag", "I");
		ds_send_reqdata.setColumn(nRow, "ordtype", "I");
		ds_send_reqdata.setColumn(nRow, "orddeptcd",model.getValue("/root/main/inpathistlist/inpathistlist["+ grd_inapplist.row +"]/orddeptcd"));
		ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
		/*ds_main_otherinfo.setColumn(0, "testinfo2", "Y");
		ds_main_otherinfo.setColumn(0, "testinfo6", "Y");
		ds_main_otherinfo.setColumn(0, "testinfo8", "Y");
		ds_main_otherinfo.setColumn(0, "testinfo5", "Y");
		ds_main_otherinfo.setColumn(0, "prcpinfo", "Y");*/
		ds_send_reqdata.setColumn(nRow, "testinfo2", "Y");
		ds_send_reqdata.setColumn(nRow, "testinfo6", "Y");
		ds_send_reqdata.setColumn(nRow, "testinfo8", "Y");
		ds_send_reqdata.setColumn(nRow, "testinfo5", "Y");
		ds_send_reqdata.setColumn(nRow, "prcpinfo", "Y");
  	}
  	
  	if(chk_testinfo.value == "Y") {
    	ds_send_reqdata.setColumn(nRow, "testinfo", "Y");
    	for( var i = 2; i < 9 ; i++) {
			ds_main_otherinfo.setColumn(0, "testinfo" + i +"", "Y");
			ds_send_reqdata.setColumn(nRow, "testinfo" + i +"", "Y");
		}
  	} else {

	    if(chk_testinfo2.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo2", "Y");
	    }
	    if(chk_testinfo3.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo3", "Y");
	    }
	    if(chk_testinfo4.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo4", "Y");
	    }
	    if(chk_testinfo5.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo5", "Y");
	    }
	    if(chk_testinfo6.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo6", "Y");
	    }
	    if(chk_testinfo7.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo7", "Y");
	    }
	    if(chk_testinfo8.value == "Y") {
	    	ds_send_reqdata.setColumn(nRow, "testinfo8", "Y");
	    }
  	}
  	
  	if(chk_prcpinfo.value == "Y") {
  		ds_send_reqdata.setColumn(nRow, "prcpinfo", "Y");
  	}

    /*if(param == "PRCP") {
    	ds_send_reqdata.setColumn(nRow, "fromdd", model.getValue("/root/main/cond/fromdd"));
    	ds_send_reqdata.setColumn(nRow, "todd", model.getValue("/root/main/cond/todd"));
    	model.makeValue("")
    }*/

    if (submit("TRMRC03025"))
    {   
    }
    btn_save.disabled          = false;
    btn_update.disabled        = true;
    btn_reappinfo.disabled     = true;

}

// 처방일만
function fGetEMRPrcpList() {
sysf_trace("***** fGetEMRPrcpList() *****");	
	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(nRow, "depth", "3");
	ds_send_reqdata.setColumn(nRow, "label", "-");

	ds_send_reqdata.setColumn(nRow, "tabflag", "ALL");
	ds_send_reqdata.setColumn(nRow, "viewflag", "DEPT");
	ds_send_reqdata.setColumn(nRow, "condflag", "ORDDD");
	ds_send_reqdata.setColumn(nRow, "recinfo", "Y");
	ds_send_reqdata.setColumn(nRow, "scrnflag", "prcp");
	ds_send_reqdata.setColumn(nRow, "testinfo2", "Y");
	ds_send_reqdata.setColumn(nRow, "testinfo6", "Y");
	ds_send_reqdata.setColumn(nRow, "testinfo8", "Y");
	ds_send_reqdata.setColumn(nRow, "testinfo5", "Y");
	ds_send_reqdata.setColumn(nRow, "prcpinfo", "Y");
	ds_send_reqdata.setColumn(nRow, "pid", ds_main_cond.getColumn(0, "pid"));
	
  	ds_send_reqdata.setColumn(nRow, "fromdd", ds_main_cond.getColumn(0, "fromdd"));
  	ds_send_reqdata.setColumn(nRow, "todd", ds_main_cond.getColumn(0, "todd"));
  	ds_send_reqdata.setColumn(nRow, "prcpflag", "Y");

    //xp code add : col id change!!!execprcpuniqno
	if( !utlf_isNull(ds_tmpinicert_iniinfo.getColumnInfo("cmc_orderseqno")))
		ds_tmpinicert_iniinfo.updateColID("cmc_orderseqno", "execprcpuniqno");
    
    var oParam = {};
		oParam.id       = "TRMRC03029";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetEMRPrcpList";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_tmpinicert_iniinfo=iniinfo";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03029";

	tranf_submit(oParam);


}

// 병동위임장
function fGetInptRoomInfo() {
	ds_send_reqdata.clearData();
	var nRow = ds_send_reqdata.addRow();
	var iRow = ds_grd_apphist.rowposition;
	ds_send_reqdata.setColumn(nRow, "pid", ds_grd_apphist.getColumn(iRow, "pid"));
	ds_send_reqdata.setColumn(nRow, "orddd", ds_grd_apphist.getColumn(iRow, "orddd"));
	ds_send_reqdata.setColumn(nRow, "cretno", ds_grd_apphist.getColumn(iRow, "cretno"));
	ds_send_reqdata.setColumn(nRow, "formcd", "0000001127");
	
	var oParam = {};
		oParam.id       = "TRMRC03027";
		oParam.service  = "chrtmngtapp.CopyIssMngt";
		oParam.method   = "reqGetOCRInfo";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_cnfmlist=cnfmlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03027";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMRC03027") > -1) {
		ds_main_cond.setColumn(0, "dschdd", ds_main_cnfmlist.getColumn(0, "dschdd"));
		ds_main_cond.setColumn(0, "roomcd", ds_main_cnfmlist.getColumn(0, "roomcd"));
	}
	
}
  
  
    // 신청된 사본 발급시 이미지 draw
function fViewer_back()
{
  
  if (grd_apphist.rows<= 1) return;
	if (grd_apphist.row < 1) return;
	var iRow = grd_emrapplist.row;

  if((grd_emrapplist.findRow("E", 1, grd_emrapplist.colRef("chrtflag"), false, false) == -1 && grd_emrapplist.findRow("I", 1, grd_emrapplist.colRef("chrtflag"), false, false) == -1)
       && (grd_outapplist.findRow("E", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1 && grd_outapplist.findRow("I", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1)
       ){
    	//messageBox("출력할 EMR 서식이 ","I004");
    	return;	
    }
    
    /*if(grd_outapplist.findRow("E", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1 && grd_outapplist.findRow("I", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1){
    	messageBox("출력할 EMR 서식이 ","I004");
    	return;	
    }*/

    var pid = model.getValue("/root/main/cond/pid");
    var certinfo = "";
    var intestinfo = "";
    var outtestinfo = "";
    var sChrtFlag = "";

    // 영상 or EMR  : 입원
    for(var rowCnt = 1; rowCnt <= grd_emrapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/chrtflag");
        sReckeyNo = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno");
        if(sReckeyNo != 0) {
	        if(sChrtFlag == "E"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag") + "▩";
		    }else if(sChrtFlag == "I"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag") + "▩";
			
		    }
	  	}
	}
	
	// 영상 or EMR  : 외래
	for(var rowCnt = 1; rowCnt <= grd_outapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/chrtflag");
        sReckeyNo = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno");
        if(sReckeyNo != 0) {
	        if(sChrtFlag == "E"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag") + "▩";
		    }else if(sChrtFlag == "I"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag") + "▩";
			
		    }
		}
	}
	
	// 영상 or EMR  : 입원
    for(var rowCnt = 1; rowCnt <= grd_emrapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/chrtflag");
        testflag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag");
        if(testflag != "-") {
	        if(sChrtFlag == "E"){
	        	intestinfo = intestinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/orddd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag")+ "▩";
		    }
	  	}
	}
	
	// 영상 or EMR  : 외래
	for(var rowCnt = 1; rowCnt <= grd_outapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/chrtflag");
        testflag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag");
        if(testflag != "-") {
	        if(sChrtFlag == "E"){
	        	outtestinfo = outtestinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/orddd")+ "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag")+"▩";
		    }
		}
	}
   
    if (certinfo != "" || intestinfo != "" || outtestinfo != "")
    {
        var certArr = certinfo.split("▩");
        var tmpsignno = "";             //EMR기록 인증번호
        var tmptreatno = "";            //영상차트 키값
        var tmpeformcd = "";            //EMR기록 서식코드
        var tmpiformcd = "";            //영상차트 서식코드
        var ieflag = "";
        
        var tmpotestflag = "";
        var tmpotestorddd = "";
        var tmpotestcretno = "";
        var tmpotestorddeptcd = "";
        var tmpotestioflag = "";
        var tmptestlist = "";
        var tmpitestflag = "";
        var tmpitestorddd = "";
        var tmpitestcretno = "";
        var tmpitestorddeptcd = "";
        var tmpitestioflag = "";
        var otestorddd = "";
        var otestcretno = "";
        var otestioflag = "";
        var itestorddd = "";
        var itestcretno = "";
        var itestioflag = "";
        
        var emrpath = "";
	    var emrorddate = "";
	    var emrformnm = "";
	    var emrformcd = "";
	    var emrdeptnm = "";
	    var emrdeptcd = "";
	    var emrpage = "";
	    var emrhiddenmsg = "";
	    var emrchosflag = "";
	    var emrsortno = "";
	    
        for(var i = 0; i < (certArr.length - 1); i++)
        {
            ieflag = certArr[i].split("▦")[0];
            
            if (ieflag == "I")
            {
                tmptreatno += certArr[i].split("▦")[1]+ ",";
                tmpiformcd += certArr[i].split("▦")[2]+ ",";
            }
            else
            {
                tmpsignno += certArr[i].split("▦")[1]+ ",";
                tmpeformcd += certArr[i].split("▦")[2]+ ",";
            }
        }
        
        
        if (tmpsignno != "" || intestinfo != "" || outtestinfo != "")    //EMR기록 + 검사결과
        {
            model.removeNodeset("/root/inisend");
            model.removeNodeset("/root/prthist");
            model.makeValue("/root/inisend/signno", tmpsignno.substring(0, tmpsignno.length - 1));
            model.makeValue("/root/inisend/dispall", "Y");
            model.makeValue("/root/inisend/pid", model.getValue("/root/main/cond/pid"));
            
            var outinfo = model.instance1.selectNodes("/root/temp/issinfo/emrlist[reckeyno = '0' and chrtflag = 'E']");
            var ininfo = model.instance1.selectNodes("/root/main/issinfo/emrapplist[reckeyno = '0' and chrtflag = 'E']");
			model.makeValue("/root/inisend/outinfo" ,getNodeListCSV(outinfo));
			model.makeValue("/root/inisend/ininfo" ,getNodeListCSV(ininfo));
            
            //if(submit("TRMRI02401"))
            if(submit("TRMRC03020"))
            {
                var certnodeList = instance1.selectNodes("/root/tmpinicert/iniinfo");
                
                //--20130418 김동준 start(본원과 칠곡 분기)
                var foldernm = "C:/CertrecPrnt" + getUserInfo("dutplceinstcd");
                
                //var foldernm = "C:/CertrecPrnt";
                //--20130418 김동준 end
                
                if (certnodeList.length <= 0)
                {
                    return;
                }
                
                //fExistFolder(foldernm);
                
				    var k = "";
				    var pid = "";
				    var ptnm = "";
				    var depthngnm = "";
				    var deptengabbr = "";
				    var rgstno = "";
				    var sa = "";
				    var disporddd = "";
				    var orddd = "";
				    var drid = "";
				    var roomcd = "";
				    var ordtype = "";
				    var chosflag = "";
				    var orddeptcd = "";
				    var signflag = "";
				    var imgflag = "";
				    var langflag = "";
				    
				    //var tmptreatno = "";
				    //var tmpiformcd = "";
				    
				    var signno = 0;
				    var formcd = "";
				    var srcformcd = "";
				    var formnm = "";
				    var formprogflag = "";
				    var recdt = "";
				    
				    var wardheader = "";
				    var dateheader = "";
				    var doctorheader = "";
				    var printheader = "";
				    var pageheader = "";
				    var imgepath = "";
				    var formrecdt = "";
				    var fstrgstdt = "";
				    var lastupdtdt = "";
				    var staffconfirmdt = "";
				    var fstrgstrusrnm = "";
				    var lastupdtrusrnm = "";
				    var erdt = "";
				    var ervisittm = "";
				    var staffnmheader = "";
				    var staffnm = "";
				    var emrrecusrnmheader = "";
				    var emrrecusrnm = "";
				    var indd = "";
				    var dschdd = "";
				    var inorddepthngnm = "";
				    var dschorddepthngnm = "";
				    var sortno = "";
				    var incnt = "";
				    
				    var prtnunm = getUserInfo("usernm");
				    var prtndeptnm = "";
				    //var getuseren = getUserInfo("userengnm");
				    
				    var getdate = getCurrentDate();
					var gettime = getCurrentTime();
					
					var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
					var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
					
					var prtdt = dateprnt + " " + timeprnt;
				
				    /*var item = grdObj.item(grdObj.selectedIndex);   
				    if(item == null){return;}
				    var rowpos = item.index + 1;
				    var condflag = model.getValue(ref + "[" + rowpos + "]/condflag");*/
				    var sDutplcecd = getUserInfo("dutplcecd");
				    
				    srchorgcnt = certnodeList.length;
				    
				    // KNUH_20101124_박성호_start_의무기록 부서코드 가져오기
				    //if (srchorgcnt < 15 || sDutplcecd == "3230000000")
				    if(srchorgcnt < 15 || (model.getValue("/root/temp/hardcd/hardcd[hardcd='" + sDutplcecd + "']/hardcd") != ""))
				    {
				    // KNUH_20101124_박성호_end
				        srchcnt = srchorgcnt;
				    }
				    else
				    {
				        srchcnt = 15;
				    }
				    
				    //openLoadingBar("기록정보");
				    fExistFolder(foldernm);
	            
                for(var i = 1; i <= srchcnt; i++)
                {
                    signno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signno");
			        formcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formcd");
			        srcformcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/srcformcd");
			        formnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formnm");
			        formprogflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formprogflag");
			        recdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdt");
			        // 2009.10.27 이경희
			        // 사본발행에서 간호경과기록의 기록일자가 보이지 않는 문제점 수정
			        recdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdd");
			        trans = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/trans");
			        pid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/pid");
			        ptnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ptnm");
			        depthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/depthngnm");
			        deptengabbr = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/deptengabbr");
			        rgstno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/rgstno");
			        sa = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/sa");
			        disporddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/disporddd");
			        orddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddd");
			        drid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/drid");
			        roomcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/roomcd");
			        ordtype = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ordtype");
			        chosflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/chosflag");
			        orddeptcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddeptcd");
			        signflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signflag");
			        imgflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/imgflag");
			        langflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/langflag");
			        formrecdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formrecdt");
			        formrecdt = formrecdt.toDate().getDateFormat("YYYY/MM/DD");
			        fstrgstdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstdt");
			        lastupdtdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtdt");
			        staffconfirmdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffconfirmdt");
			        fstrgstrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstrusrnm");
			        if(fstrgstrusrnm != "")
			            fstrgstrusrnm = fstrgstrusrnm + " (" + fstrgstdt + ")";
			        lastupdtrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtrusrnm");
			        if(lastupdtrusrnm != "")
			            lastupdtrusrnm = lastupdtrusrnm + " (" + lastupdtdt + ")";
			        erdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/erdt");
			        ervisittm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ervisittm");
			        staffnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffnm");
			        emrrecusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/emrrecusrnm");
			        indd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/indd");
			        dschdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschdd");
			        inorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/inorddepthngnm");
			        dschorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschorddepthngnm");
			        sortno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/sortno");
			        incnt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/incnt");
			        if(incnt != "")
			            incnt += " 회차";
			        
			        var ininfo = indd + " / " + inorddepthngnm;
			        if(erdt != "")
			            ininfo += " (응급실 내원일 : " + erdt + ")";
			        var dschinfo = dschdd + " / " + dschorddepthngnm;
			        
			        
			        var formnmarr = formnm.split("\n");
			        var topformnm = "";
			        var botformnm = "";
			        
			        if (formnmarr.length == 1)
			        {
			            topformnm = formnmarr[0];
			        }
			        else if (formnmarr.length == 2)
			        {
			            topformnm = formnmarr[0];
			            botformnm = formnmarr[1];
			        }
			        else
			        {
			            topformnm = formnm;
			        }
			        
			        for(var k = pid.length; k <= 8; k++)
			        {
			            if(k < 8){
			                pid = "0"+pid;
			            }
			        }
			        var str1 = pid.substr(0, 3);
			        var str2 = pid.substr(3, 2);
			        var str3 = pid.substr(5, 2);
			        var str4 = pid.substr(7, 1);
			        var tmppid = str1 + " " + str2 + " " + str3 + "-" + str4;
			        
			        
			        if (chosflag == "O" || chosflag == "S")
			        {
			            wardheader = "진료과 : ";
			        }
			        else
			        {
			            wardheader = "병실 : ";
			        }
			        
			        if (langflag == "KO")
			        {
			            if (chosflag == "O" || chosflag == "S")
			            {
			                wardheader = "진료과 : ";
			            }
			            else
			            {
			                wardheader = "병실 : ";
			            }
			            
			            dateheader = "진료기간 : ";
			            doctorheader = "주치의 : ";
			            printheader = "출력 : ";
			            prtndeptnm = getUserInfo("dutplcenm");
			            
			            imgepath = fGetImgPath("KO");
			            //imgepath = "com/commonweb/images/biglogo012.jpg"
			            pageheader = "페이지 : ";
			        }
			        else
			        {
			            if (chosflag == "O" || chosflag == "S")
			            {
			                wardheader = "Dept : ";
			            }
			            else
			            {
			                wardheader = "Room : ";
			            }
			            
			            dateheader = "Date : ";
			            doctorheader = "Doctor : ";
			            printheader = "Print date : ";
			            prtndeptnm = getUserInfo("deptengnm");
			            
			            imgepath = fGetImgPath("EN");
			            //imgepath = "com/commonweb/images/biglogo012e.jpg"
			            if (prtndeptnm == "" || prtndeptnm == null)
			            {
			                prtndeptnm = getUserInfo("dutplcenm");
			            }
			            pageheader = "Page : ";
			        }
			        
			         
			            ds_datagrid1.setColumn(i, "pid", pid);
			            ds_datagrid1.setColumn(i, "signno", signno);
			            ds_datagrid1.setColumn(i, "reckind", "01");
			            ds_datagrid1.setColumn(i, "readprtflag", "E");
			            ds_datagrid1.setColumn(i, "formcd", formcd);
			            ds_datagrid1.setColumn(i, "signflag", signflag);
			            ds_datagrid1.setColumn(i, "orddd", orddd);
			            ds_datagrid1.setColumn(i, "chosflag", chosflag);
			            ds_datagrid1.setColumn(i, "refusge", "");
			            ds_datagrid1.setColumn(i, "refremark", "");
			            if(trans == "")
			                trans = "<html><head><title>출력화면 구현중입니다.</title></head><body>출력화면 구현중입니다.</body></html>";
			            
			            var ininm = "cmc";
			            switch(srcformcd)
			            {
			                case "0000000001"://외래초진
			                case "0000000002"://외래재진
			                /* case "0000000003"://입원초진 */
			                case "0000000004"://입원경과
			                case "0000003325"://DSC기록
			                    ininm += "_0000000001.ini";
			                    break;                    
			                case "0000000003"://입원초진 분리 -20100311-kys
                				/* 20100309-kys-입원초진 Staff사인 추가-사본 버젼 맞춘후 반영하기로 함-20100310 */
                    			if(getUserInfo("dutplceinstcd") == "012" && orddd >= "20100316"){
                    			staffnmheader = "◈ Staff작성 및 확인 :";
 								if(staffnm != "")
                        			staffnm += "(" + staffconfirmdt + ")";
                    				emrrecusrnmheader = "";      
                    				ininm += "_1000000003.ini";
                    			}else{ 
                    				ininm += "_0000000003.ini";
                    			}
                    			break;
			                case "0000000676"://수술기록
			                    staffnmheader = "◈ Surgeon :";
			                    if(staffnm != "")
			                        staffnm += "(" + staffconfirmdt + ")";
			                    emrrecusrnmheader = "";  
			                    ininm += "_0000000676.ini";
			                    break;
			                case "0000003169"://Brief OP Note
			                	staffnmheader = "";
			                    ininm += "_0000000676.ini";
			                    break;
			                case "0000000680"://입퇴원요약
			                    staffnmheader = "◈ Staff작성 및 확인 :";
			                    if(staffnm != "")
			                        staffnm += "(" + staffconfirmdt + ")";
			                    emrrecusrnmheader = "◈ 의무기록사        :"; 
			                    ininm += "_0000000680.ini";
			                    break;                   
			                case "0000000679"://응급실기록
			                    ininm += "_0000000679.ini";
			                    break;
			                default:
			                    //ininm += "_0000000001.ini";
			                    if(formprogflag == "-" || formprogflag == "MAIN")
			                        ininm += "_0000000001.ini";
			                    else
			                        ininm += ".ini";
			                    break;
			            }
			            
			            
			            //출력메세지 미정의로 임시 막음(2009-06-30 박종훈)
                        trans = "<!--% \n %BASE " + getDomain() + "/himed/webapps/ \n %INCLUDE emr/recmngtweb/xrw/" + ininm + " \n VAR_PAT_NUM = " + tmppid + " \n VAR_CLASS = " + ordtype + " \n VAR_CHART_NAME_TOP  = " + topformnm + " \n VAR_CHART_NAME_BOTTOM  = " + botformnm + " \n VAR_CHART_NAME_LINE  = " + formnm + " \n VAR_PAT_AGE_SEX = " + sa + " \n VAR_TREAT_DEPT = " + deptengabbr + " \n VAR_PAT_JUMIN_NO = " + rgstno + " \n VAR_PAT_NAME = " + ptnm + " \n VAR_PRINT_NAME = " + prtnunm + " \n VAR_PRINT_DEPT = " + prtndeptnm + " \n VAR_WARD_HEAD = " + wardheader + roomcd + " \n VAR_DATE_HEADER = " + dateheader + disporddd + " \n VAR_DOCTOR_HEADER = " + doctorheader + drid + " \n VAR_PRINT_HEADER = " + printheader + prtdt + " \n SYS_PAGE_HEADER = " + pageheader + " \n VAR_HOSP_IMG = " + imgepath + " \n VAR_ORDDATE = " + formrecdt + " \n VAR_ORDDEPT = " + depthngnm + " \n VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + " \n VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + " \n VAR_ERDT = " + erdt + " \n VAR_ERVISITTM = " + ervisittm + " \n VAR_STAFFNM_HEADER = " + staffnmheader + " \n VAR_STAFFNM = " + staffnm + " \n VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + " \n VAR_EMRRECUSRNM = " + emrrecusrnm + " \n VAR_ININFO = " + ininfo + " \n VAR_DSCHINFO = " + dschinfo + " \n VAR_INCNT = " + incnt + "  \n VAR_INORDDEPTHNGNM = " + inorddepthngnm + "\n %-->\n" + trans;
                        //trans = "<!--% \n %BASE " + getDomain() + "/himed/webapps/ \n %INCLUDE emr/recmngtweb/xrw/" + ininm + " \n VAR_PAT_NUM = " + tmppid + " \n VAR_CLASS = " + ordtype + " \n VAR_CHART_NAME_TOP  = " + topformnm + " \n VAR_CHART_NAME_BOTTOM  = " + botformnm + " \n VAR_CHART_NAME_LINE  = " + formnm + " \n VAR_PAT_AGE_SEX = " + sa + " \n VAR_TREAT_DEPT = " + deptengabbr + " \n VAR_PAT_JUMIN_NO = " + rgstno + " \n VAR_PAT_NAME = " + ptnm + " \n VAR_PRINT_NAME = " + prtnunm + " \n VAR_PRINT_DEPT = " + prtndeptnm + " \n VAR_WARD_HEAD = " + wardheader + roomcd + " \n VAR_DATE_HEADER = " + dateheader + disporddd + " \n VAR_DOCTOR_HEADER = " + doctorheader + drid + " \n VAR_PRINT_HEADER = " + printheader + prtdt + " \n SYS_PAGE_HEADER = " + pageheader + " \n VAR_HOSP_IMG = " + imgepath + " \n VAR_ORDDATE = " + formrecdt + " \n VAR_ORDDEPT = " + depthngnm + " \n VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + " \n VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + " \n VAR_ERDT = " + erdt + " \n VAR_ERVISITTM = " + ervisittm + " \n VAR_STAFFNM_HEADER = " + staffnmheader + " \n VAR_STAFFNM = " + staffnm + " \n VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + " \n VAR_EMRRECUSRNM = " + emrrecusrnm + " \n VAR_ININFO = " + ininfo + " \n VAR_DSCHINFO = " + dschinfo + " \n VAR_INCNT = " + incnt + " \n VAR_PRINT_COPY =  " + "이 서식은 사본입니다(원본대조필)" + "\n %-->\n" + trans;
			            
			            var fso = new ActiveXObject("Scripting.FileSystemObject");
			            if(signno != 0) {
			            	var a = fso.CreateTextFile(foldernm + "\\" + chosflag + "_" +  signno + "_" + formcd + ".HTML", true, true);
			            }else if(signno == 0) {
			            	var a = fso.CreateTextFile(foldernm + "\\" + chosflag + "_" +  orddd + "_" + formcd + ".HTML", true, true);
			            }
			            a.WriteLine(trans);
			            a.Close();
						
						if(signno != 0) {
				            emrpath += foldernm + "\\" + chosflag + "_" +  signno + "_" + formcd + ".HTML|";
				        }else if(signno == 0) {
            				emrpath += foldernm + "\\" + chosflag + "_" +  orddd + "_" + formcd + ".HTML|";
            			}
			            //emrorddate += orddd + "|";
            			emrorddate += recdd + "|";  //기록일을 보여달라는 의료정보팀 요청
			            emrformnm += formnm + "|";
			            emrformcd += formcd + "|";
			            emrdeptnm += deptengabbr + "|";
			            emrdeptcd += orddeptcd + "|";
			            emrpage += "1|";
			            emrhiddenmsg += formcd + "▦" + signno + "▦" + formnm + "▦" + chosflag + "▦" +pid + "▦" + ptnm + "▦" + deptengabbr
			                      + "▦" + sa + "▦" + rgstno + "▦" + disporddd + "▦" + drid + "▦" + roomcd + "▦" + disporddd + "▦" + ordtype + "▦" + "E|";
			            emrchosflag += chosflag + "|";
			            emrsortno += emrsortno + "|";
			      }
			      
			      model.removeNodeset("/root/temp/inisend");
		    
				    //이미지경로
		            model.makeValue("/root/temp/inisend/emrpath", emrpath.substring(0, emrpath.length - 1));
		            //진료일
		            model.makeValue("/root/temp/inisend/emrorddate", emrorddate.substring(0, emrorddate.length - 1));
		      		//서식명
		      		model.makeValue("/root/temp/inisend/emrformnm", emrformnm.substring(0, emrformnm.length - 1));
		      		//서식코드
		      		model.makeValue("/root/temp/inisend/emrformcd", emrformcd.substring(0, emrformcd.length - 1));
		      		//진료과
		      		model.makeValue("/root/temp/inisend/emrdeptnm", emrdeptnm.substring(0, emrdeptnm.length - 1));
		      		//진료과코드
		      		model.makeValue("/root/temp/inisend/emrdeptcd", emrdeptcd.substring(0, emrdeptcd.length - 1));
		      		//페이지
		      		model.makeValue("/root/temp/inisend/emrpage", emrpage.substring(0, emrpage.length - 1));
		      		
		      		model.makeValue("/root/temp/inisend/emrhiddenmsg", emrhiddenmsg.substring(0, emrhiddenmsg.length - 1));
		      		
		      		model.makeValue("/root/temp/inisend/emrchosflag", emrchosflag.substring(0, emrchosflag.length - 1));
		      		
		      		model.makeValue("/root/temp/inisend/emrsortno", emrsortno.substring(0, emrsortno.length - 1));
			    }

		  		 model.refresh();
		  		 
            //chartview에 넘길 노드값 재구성(영상+EMR)
            var treatvar = "";
            var tsignno = "";
            var temrpath = "";
            var temrorddate = "";
            var temrformnm = "";
            var temrformcd = "";
            var temrdeptnm = "";
            var temrdeptcd = "";
            var temrpage = "";
            var temrhiddenmsg = "";
            
            var outtestArr = outtestinfo.split("▩");  // 검사결과서식 
            var intestArr = intestinfo.split("▩");  // 검사결과서식 
            
            if(certArr.length > 1 ) {  //EMR 서식이 있는 경우
	            for(var i = 0; i < (certArr.length - 1); i++)
	            {
	                ieflag = certArr[i].split("▦")[0];
	                
	                if (ieflag == "I")
	                {
	                    treatvar = "*" + certArr[i].split("▦")[1] + "-" + certArr[i].split("▦")[2];
	                    
	                    temrpath += treatvar + "|";
	                    temrorddate += treatvar + "|";
	                    temrformnm += treatvar + "|";
	                    temrformcd += treatvar + "|";
	                    temrdeptnm += treatvar + "|";
	                    temrdeptcd += treatvar + "|";
	                    temrpage += treatvar + "|";
	                    temrhiddenmsg += treatvar + "|";
	                }
	                else
	                {
	                    tsignno = certArr[i].split("▦")[1];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		
	            		var filepathnm = "";
	            		var orddatenm = "";
	                    var formnmnm = "";
	                    var formcdnm = "";
	                    var deptnmnm = "";
	                    var deptcdnm = "";
	                    var pagenm = "";
	                    var hiddnm = "";
	                    var chosflagnm = "";
	    
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
	                        
	                        if(isSearchString(filepathnm, tsignno))  
	                        {
	                            temrpath += filepathnm + "|";
	                            temrorddate += orddatenm + "|";
	                            temrformnm += formnmnm + "|";
	                            temrformcd += formcdnm + "|";
	                            temrdeptnm += deptnmnm + "|";
	                            temrdeptcd += deptcdnm + "|";
	                            temrpage += pagenm + "|";
	                            temrhiddenmsg += hiddnm + "|";
	                        }
	                    }
	                                    
	                }
	            }
	            
	            if(outtestArr.length > 1) {  // reckeyno 가 없는 서식이 있음
	            	for(var i = 0; i < (outtestArr.length - 1); i++)
		            {
		            	
						tformno = outtestArr[i].split("▦")[5] +"_" + outtestArr[i].split("▦")[4] +"_" + outtestArr[i].split("▦")[2];
						//torddd = outtestArr[i].split("▦")[4];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		var chosflagArr = model.getValue("/root/temp/inisend/emrchosflag").split("|");
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
	                        chosflagnm = chosflagArr[j];
							
							if(chosflagnm == "O") {
								if(isSearchString(filepathnm, tformno))   // formcd 만 있는 경우
			                    {
			                        temrpath += filepathnm + "|";
			                        temrorddate += orddatenm + "|";
			                        temrformnm += formnmnm + "|";
			                        temrformcd += formcdnm + "|";
			                        temrdeptnm += deptnmnm + "|";
			                        temrdeptcd += deptcdnm + "|";
			                        temrpage += pagenm + "|";
			                        temrhiddenmsg += hiddnm + "|";
		                      	}
	                      	}
	                    }
		            }
	            }
	            
	            if(intestArr.length > 1) {  // reckeyno 가 없는 서식이 있음
	            	for(var i = 0; i < (intestArr.length - 1); i++)
		            {
		            	
						tformno = intestArr[i].split("▦")[5] + "_" + intestArr[i].split("▦")[4] + "_" + intestArr[i].split("▦")[2];
						//torddd = intestArr[i].split("▦")[4];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		var chosflagArr = model.getValue("/root/temp/inisend/emrchosflag").split("|");
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
	                        chosflagnm = chosflagArr[j];
							
							if(chosflagnm == "I") {
								if(isSearchString(filepathnm, tformno))   // formcd 만 있는 경우
			                    {
			                        temrpath += filepathnm + "|";
			                        temrorddate += orddatenm + "|";
			                        temrformnm += formnmnm + "|";
			                        temrformcd += formcdnm + "|";
			                        temrdeptnm += deptnmnm + "|";
			                        temrdeptcd += deptcdnm + "|";
			                        temrpage += pagenm + "|";
			                        temrhiddenmsg += hiddnm + "|";
		                      	}
		                      }
	                    }
		            }
	            }
	            //sortNodeList("/root/main/grid01/row", "a", "asc");
          	} else { // 검사결과서식만 있는 경우
          		
          		if(outtestArr.length > 1) {  // reckeyno 가 없는 서식이 있음
	            	for(var i = 0; i < (outtestArr.length - 1); i++)
		            {
		            	
						tformno = outtestArr[i].split("▦")[5] +"_" + outtestArr[i].split("▦")[4] +"_" + outtestArr[i].split("▦")[2];
						//tformno = outtestArr[i].split("▦")[2];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		var chosflagArr = model.getValue("/root/temp/inisend/emrchosflag").split("|");
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
							chosflagnm = chosflagArr[j];
							
							if(chosflagnm == "O") {
								if(isSearchString(filepathnm, tformno))   // formcd 만 있는 경우
			                    {
			                        temrpath += filepathnm + "|";
			                        temrorddate += orddatenm + "|";
			                        temrformnm += formnmnm + "|";
			                        temrformcd += formcdnm + "|";
			                        temrdeptnm += deptnmnm + "|";
			                        temrdeptcd += deptcdnm + "|";
			                        temrpage += pagenm + "|";
			                        temrhiddenmsg += hiddnm + "|";
		                      	}
		                	}
	                    }
		            }
	            }
	            
	            if(intestArr.length > 1) {  // reckeyno 가 없는 서식이 있음
	            	for(var i = 0; i < (intestArr.length - 1); i++)
		            {
		            	
						//tformno = intestArr[i].split("▦")[2];
						tformno = intestArr[i].split("▦")[5] + "_" + intestArr[i].split("▦")[4] + "_" + intestArr[i].split("▦")[2];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		var chosflagArr = model.getValue("/root/temp/inisend/emrchosflag").split("|");
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
							chosflagnm = chosflagArr[j];
							
							if(chosflagnm == "I") {
								if(isSearchString(filepathnm, tformno))   // formcd 만 있는 경우
			                    {
			                        temrpath += filepathnm + "|";
			                        temrorddate += orddatenm + "|";
			                        temrformnm += formnmnm + "|";
			                        temrformcd += formcdnm + "|";
			                        temrdeptnm += deptnmnm + "|";
			                        temrdeptcd += deptcdnm + "|";
			                        temrpage += pagenm + "|";
			                        temrhiddenmsg += hiddnm + "|";
		                      	}
		                    }
	                    }
		            }
	            }
          	}
			
			model.resetInstanceNode("/root/send/iemr");
    		model.setValue("/root/send/iemr/treatno", tmptreatno.substring(0, tmptreatno.length - 1));
    		model.setValue("/root/send/iemr/docucd", tmpiformcd.substring(0, tmpiformcd.length - 1));
    		
    		
    		//이미지경로
    		model.makeValue("/root/inisend/emrpath", temrpath.substring(0, temrpath.length - 1));
            iviewerIemr.model.setValue("/root/main/emrpath", model.getValue("/root/inisend/emrpath"));
            //진료일
            model.makeValue("/root/inisend/emrorddate", temrorddate.substring(0, temrorddate.length - 1));
            iviewerIemr.model.setValue("/root/main/emrorddate", model.getValue("/root/inisend/emrorddate"));
    		//서식명
    		model.makeValue("/root/inisend/emrformnm", temrformnm.substring(0, temrformnm.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrformnm", model.getValue("/root/inisend/emrformnm"));
    		//서식코드
    		model.makeValue("/root/inisend/emrformcd", temrformcd.substring(0, temrformcd.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrformcd", model.getValue("/root/inisend/emrformcd"));
    		//진료과
    		model.makeValue("/root/inisend/emrdeptnm", temrdeptnm.substring(0, temrdeptnm.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrdeptnm", model.getValue("/root/inisend/emrdeptnm"));
    		//진료과코드
    		model.makeValue("/root/inisend/emrdeptcd", temrdeptcd.substring(0, temrdeptcd.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrdeptcd", model.getValue("/root/inisend/emrdeptcd"));
    		//페이지
    		model.makeValue("/root/inisend/emrpage", temrpage.substring(0, temrpage.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrpage", model.getValue("/root/inisend/emrpage"));
            //히든 메세지
            model.makeValue("/root/inisend/emrhiddenmsg", temrhiddenmsg.substring(0, temrhiddenmsg.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrhiddenmsg", model.getValue("/root/inisend/emrhiddenmsg"));
    		
    		
    		var iemrNode = instance1.selectSingleNode("/root/send/iemr");

		    iviewerIemr.window.javascript.searchChart_EMR(iemrNode);
		    
		    if (iviewerIemr.window.javascript.downloadChart() == true)
			{
				
				// 뷰어 모드 유지 기능 추가 - 20080417
				var ViewMode;
				ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
				
				if (ViewMode == null || ViewMode == "")
				{
					iviewerIemr.window.javascript.setupChart("ChartView");
					
				}
				else
				{
		
					iviewerIemr.window.javascript.setupChart(ViewMode);
					
				}
		    }
	  }
	}

  }
  
  
  
   // 신청된 사본 발급시 이미지 draw
function fViewer()
{

    if (grd_apphist.rows<= 1) return;
	  if (grd_apphist.row < 1) return;
	  var iRow = grd_emrapplist.row;

    if((grd_emrapplist.findRow("E", 1, grd_emrapplist.colRef("chrtflag"), false, false) == -1 && grd_emrapplist.findRow("I", 1, grd_emrapplist.colRef("chrtflag"), false, false) == -1)
       && (grd_outapplist.findRow("E", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1 && grd_outapplist.findRow("I", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1)
       ){
    	//messageBox("출력할 EMR 서식이 ","I004");
    	return;	
    }
    
    /*if(grd_outapplist.findRow("E", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1 && grd_outapplist.findRow("I", 1, grd_outapplist.colRef("chrtflag"), false, false) == -1){
    	messageBox("출력할 EMR 서식이 ","I004");
    	return;	
    }*/
    
    var pid = model.getValue("/root/main/cond/pid");
    var certinfo = "";
    var intestinfo = "";
    var outtestinfo = "";
    var sChrtFlag = "";
    
    lf_getHardCDList("N", 3801, null, ds_init_pidynhcd);
    //mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/pidynhcd", 3801);   // 환자 등록번호에 '0' 처리여부
    var pidynhcd = model.getValue("/root/init/pidynhcd/hardcd/hardcd");
    

    // 영상 or EMR  : 입원
    for(var rowCnt = 1; rowCnt <= grd_emrapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/chrtflag");
        sReckeyNo = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno");
        testflag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag");
        if(sReckeyNo != 0) {
	        if(sChrtFlag == "E"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag") + "▩";
		    }else if(sChrtFlag == "I"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag") + "▩";
			
		    }
	  	}
	  	
	  	else if(testflag != "-") {
	        if(sChrtFlag == "E"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/orddd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag")+ "▩";
		    }
	  	}
	}
	
	// 영상 or EMR  : 외래
	for(var rowCnt = 1; rowCnt <= grd_outapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/chrtflag");
        sReckeyNo = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno");
        testflag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag");
        if(sReckeyNo != 0) {
	        if(sChrtFlag == "E" && testflag != "T"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag") + "▩";
		    }else if(sChrtFlag == "I"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag") + "▩";
			
		    }
		}
		
		else if(testflag != "-" && testflag != "T") {
	        if(sChrtFlag == "E"){
	        	certinfo = certinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/orddd")+ "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag")+"▩";
		    }
		}
	}
	//alert(certinfo);
	// 영상 or EMR  : 입원
   /* for(var rowCnt = 1; rowCnt <= grd_emrapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/chrtflag");
        testflag = model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag");
        if(testflag != "-") {
	        if(sChrtFlag == "E"){
	        	intestinfo = intestinfo + sChrtFlag + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/reckeyno") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/formcd") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/orddd") + "▦" + model.getValue("/root/main/issinfo/emrapplist["+rowCnt+"]/ioflag")+ "▩";
		    }
	  	}
	}*/
	
	// 영상 or EMR  : 외래
	/*for(var rowCnt = 1; rowCnt <= grd_outapplist.rows; rowCnt++){
        sChrtFlag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/chrtflag");
        testflag = model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag");
        if(testflag != "-") {
	        if(sChrtFlag == "E"){
	        	outtestinfo = outtestinfo + sChrtFlag + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/reckeyno") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/formcd") + "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/testflag") +"▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/orddd")+ "▦" + model.getValue("/root/temp/issinfo/emrlist["+rowCnt+"]/ioflag")+"▩";
		    }
		}
	}*/
   //alert(certinfo);
    if (certinfo != "")
    {
        var certArr = certinfo.split("▩");
        var tmpsignno = "";             //EMR기록 인증번호
        var tmptreatno = "";            //영상차트 키값
        var tmpeformcd = "";            //EMR기록 서식코드
        var tmpiformcd = "";            //영상차트 서식코드
        var ieflag = "";
        
        var tmpotestflag = "";
        var tmpotestorddd = "";
        var tmpotestcretno = "";
        var tmpotestorddeptcd = "";
        var tmpotestioflag = "";
        var tmptestlist = "";
        var tmpitestflag = "";
        var tmpitestorddd = "";
        var tmpitestcretno = "";
        var tmpitestorddeptcd = "";
        var tmpitestioflag = "";
        var otestorddd = "";
        var otestcretno = "";
        var otestioflag = "";
        var itestorddd = "";
        var itestcretno = "";
        var itestioflag = "";
        
        var emrpath = "";
	    var emrorddate = "";
	    var emrformnm = "";
	    var emrformcd = "";
	    var emrdeptnm = "";
	    var emrdeptcd = "";
	    var emrpage = "";
	    var emrhiddenmsg = "";
	    var emrchosflag = "";
	    var emrsortno = "";
	    
        for(var i = 0; i < (certArr.length - 1); i++)
        {
            ieflag = certArr[i].split("▦")[0];
            
            if (ieflag == "I")
            {
                tmptreatno += certArr[i].split("▦")[1]+ ",";
                tmpiformcd += certArr[i].split("▦")[2]+ ",";
            }
            else
            {
                tmpsignno += certArr[i].split("▦")[1]+ ",";
                tmpeformcd += certArr[i].split("▦")[2]+ ",";
            }
        }
        
        
        if (tmpsignno != "")    //EMR기록 + 검사결과
        {
            model.removeNodeset("/root/inisend");
            model.removeNodeset("/root/prthist");
            model.makeValue("/root/inisend/signno", tmpsignno.substring(0, tmpsignno.length - 1));
            model.makeValue("/root/inisend/dispall", "Y");
            model.makeValue("/root/inisend/pid", model.getValue("/root/main/cond/pid"));
            
            var outinfo = model.instance1.selectNodes("/root/temp/issinfo/emrlist[reckeyno = '0' and chrtflag = 'E' and testflag != 'T']");
            var ininfo = model.instance1.selectNodes("/root/main/issinfo/emrapplist[reckeyno = '0' and chrtflag = 'E']");
			model.makeValue("/root/inisend/outinfo" ,getNodeListCSV(outinfo));
			model.makeValue("/root/inisend/ininfo" ,getNodeListCSV(ininfo));
            
            //if(submit("TRMRI02401"))
            if(submit("TRMRC03020"))
            {
                var certnodeList = instance1.selectNodes("/root/tmpinicert/iniinfo");
                
                //--20130418 김동준 start(본원과 칠곡 분기)
                var foldernm = "C:/CertrecPrnt" + getUserInfo("dutplceinstcd");
                
                //var foldernm = "C:/CertrecPrnt";
                //--20130418 김동준 end
                
                if (certnodeList.length <= 0)
                {
                    return;
                }
                
                //fExistFolder(foldernm);
                
				    var k = "";
				    var pid = "";
				    var ptnm = "";
				    var depthngnm = "";
				    var deptengabbr = "";
				    var rgstno = "";
				    var sa = "";
				    var disporddd = "";
				    var orddd = "";
				    var drid = "";
				    var roomcd = "";
				    var ordtype = "";
				    var chosflag = "";
				    var orddeptcd = "";
				    var signflag = "";
				    var imgflag = "";
				    var langflag = "";
				    
				    //var tmptreatno = "";
				    //var tmpiformcd = "";
				    
				    var signno = 0;
				    var formcd = "";
				    var srcformcd = "";
				    var formnm = "";
				    var formprogflag = "";
				    var recdt = "";
				    
				    var wardheader = "";
				    var dateheader = "";
				    var doctorheader = "";
				    var printheader = "";
				    var pageheader = "";
				    var imgepath = "";
				    var formrecdt = "";
				    var fstrgstdt = "";
				    var lastupdtdt = "";
				    var staffconfirmdt = "";
				    var fstrgstrusrnm = "";
				    var lastupdtrusrnm = "";
				    var erdt = "";
				    var ervisittm = "";
				    var staffnmheader = "";
				    var staffnm = "";
				    var emrrecusrnmheader = "";
				    var emrrecusrnm = "";
				    var indd = "";
				    var dschdd = "";
				    var inorddepthngnm = "";
				    var dschorddepthngnm = "";
				    var sortno = "";
				    var incnt = "";
				    
				    var prtnunm = getUserInfo("usernm");
				    var prtndeptnm = "";
				    //var getuseren = getUserInfo("userengnm");
				    
				    var getdate = getCurrentDate();
					var gettime = getCurrentTime();
					
					var dateprnt = getdate.substr(0, 4) + "/" +  getdate.substr(4, 2) +  "/" + getdate.substr(6, 2);
					var timeprnt = gettime.substr(0, 2) + ":" + gettime.substr(2, 2) + ":" + gettime.substr(4, 2); 
					
					var prtdt = dateprnt + " " + timeprnt;
				
				    /*var item = grdObj.item(grdObj.selectedIndex);   
				    if(item == null){return;}
				    var rowpos = item.index + 1;
				    var condflag = model.getValue(ref + "[" + rowpos + "]/condflag");*/
				    var sDutplcecd = getUserInfo("dutplcecd");
				    
				    srchorgcnt = certnodeList.length;
				    srchcnt = srchorgcnt;
				    /*if (srchorgcnt < 15 || sDutplcecd == "3230000000")
				        srchcnt = srchorgcnt;
				    else
				        srchcnt = 15;*/
				    
				    //openLoadingBar("기록정보");
				    fExistFolder(foldernm);
	          
            for(var i = 1; i <= srchcnt; i++)
            {
							signno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signno");
			        formcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formcd");
			        srcformcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/srcformcd");
			        formnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formnm");
			        formprogflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formprogflag");
			        recdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdt");
			        // 2009.10.27 이경희
			        // 사본발행에서 간호경과기록의 기록일자가 보이지 않는 문제점 수정
			        recdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/recdd");
			        trans = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/trans");
			        pid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/pid");
			        ptnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ptnm");
			        depthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/depthngnm");
			        deptengabbr = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/deptengabbr");
			        rgstno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/rgstno");
			        sa = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/sa");
			        disporddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/disporddd");
			        orddd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddd");
			        drid = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/drid");
			        roomcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/roomcd");
			        ordtype = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ordtype");
			        chosflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/chosflag");
			        orddeptcd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/orddeptcd");
			        signflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/signflag");
			        imgflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/imgflag");
			        langflag = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/langflag");
			        formrecdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/formrecdt");
			        formrecdt = formrecdt.toDate().getDateFormat("YYYY/MM/DD");
			        fstrgstdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstdt");
			        lastupdtdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtdt");
			        staffconfirmdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffconfirmdt");
			        fstrgstrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/fstrgstrusrnm");
			        /* 20100407-kys-작성자일시 주석처리.
			        if(fstrgstrusrnm != "")
			            fstrgstrusrnm = fstrgstrusrnm + " (" + fstrgstdt + ")";
			        */
			        lastupdtrusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/lastupdtrusrnm");
			        /* 20100407-kys-작성자일시 주석처리.
			        if(lastupdtrusrnm != "")
			            lastupdtrusrnm = lastupdtrusrnm + " (" + lastupdtdt + ")";
			        */
			        erdt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/erdt");
			        ervisittm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/ervisittm");
			        staffnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/staffnm");
			        emrrecusrnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/emrrecusrnm");
			        indd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/indd");
			        dschdd = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschdd");
			        inorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/inorddepthngnm");
			        dschorddepthngnm = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/dschorddepthngnm");
			        sortno = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/sortno");
			        incnt = model.getValue("/root/tmpinicert/iniinfo[" + i + "]/incnt");
			        if(incnt != "")
			            incnt += " 회차";
			        
			        var ininfo = indd + " / " + inorddepthngnm;
			        if(erdt != "")
			            ininfo += " (응급실 내원일 : " + erdt + ")";
			        var dschinfo = dschdd + " / " + dschorddepthngnm;
			        
			        
			        var formnmarr = formnm.split("\n");
			        var topformnm = "";
			        var botformnm = "";
			        
			        if (formnmarr.length == 1)
			        {
			            topformnm = formnmarr[0];
			        }
			        else if (formnmarr.length == 2)
			        {
			            topformnm = formnmarr[0];
			            botformnm = formnmarr[1];
			        }
			        else
			        {
			            topformnm = formnm;
			        }
			        
			        if (pidynhcd == "Y")
              {
                  for(var k = pid.length; k <= 8; k++)
                  {
                      if(k < 8){
                          pid = "0"+pid;
                      }
                  }
                  var str1 = pid.substr(0, 3);
                  var str2 = pid.substr(3, 2);
                  var str3 = pid.substr(5, 2);
                  var str4 = pid.substr(7, 1);
                  var tmppid = str1 + " " + str2 + " " + str3 + "-" + str4;
              }
              else
              {
                  tmppid = pid;
              }   
              /*
			        for(var k = pid.length; k <= 8; k++)
			        {
			            if(k < 8){
			                pid = "0"+pid;
			            }
			        }
			        var str1 = pid.substr(0, 3);
			        var str2 = pid.substr(3, 2);
			        var str3 = pid.substr(5, 2);
			        var str4 = pid.substr(7, 1);
			        var tmppid = str1 + " " + str2 + " " + str3 + "-" + str4;
			        */
			        
			        if (chosflag == "O" || chosflag == "S")
			        {
			            wardheader = "진료과 : ";
			        }
			        else
			        {
			            wardheader = "병실 : ";
			        }
			        
			        if (langflag == "KO")
			        {
			            if (chosflag == "O" || chosflag == "S")
			            {
			                wardheader = "진료과 : ";
			            }
			            else
			            {
			                wardheader = "병실 : ";
			            }
			            
			            dateheader = "진료기간 : ";
			            doctorheader = "주치의 : ";
			            printheader = "출력 : ";
			            prtndeptnm = getUserInfo("dutplcenm");
			            
			            imgepath = fGetImgPath("KO");
			            //imgepath = "com/commonweb/images/biglogo012.jpg"
			            pageheader = "페이지 : ";
			        }
			        else
			        {
			            if (chosflag == "O" || chosflag == "S")
			            {
			                wardheader = "Dept : ";
			            }
			            else
			            {
			                wardheader = "Room : ";
			            }
			            
			            dateheader = "Date : ";
			            doctorheader = "Doctor : ";
			            printheader = "Print date : ";
			            prtndeptnm = getUserInfo("deptengnm");
			            
			            imgepath = fGetImgPath("EN");
			            //imgepath = "com/commonweb/images/biglogo012e.jpg"
			            if (prtndeptnm == "" || prtndeptnm == null)
			            {
			                prtndeptnm = getUserInfo("dutplcenm");
			            }
			            pageheader = "Page : ";
			        }
			        
			         
			            ds_datagrid1.setColumn(i, "pid", pid);
			            ds_datagrid1.setColumn(i, "signno", signno);
			            ds_datagrid1.setColumn(i, "reckind", "01");
			            ds_datagrid1.setColumn(i, "readprtflag", "E");
			            ds_datagrid1.setColumn(i, "formcd", formcd);
			            ds_datagrid1.setColumn(i, "signflag", signflag);
			            ds_datagrid1.setColumn(i, "orddd", orddd);
			            ds_datagrid1.setColumn(i, "chosflag", chosflag);
			            ds_datagrid1.setColumn(i, "refusge", "");
			            ds_datagrid1.setColumn(i, "refremark", "");
			            if(trans == "")
			                trans = "<html><head><title>출력화면 구현중입니다.</title></head><body>출력화면 구현중입니다.</body></html>";
			            
			            var ininm = "cmc";
			            switch(srcformcd)
			            {
			                case "0000000001"://외래초진
			                case "0000000002"://외래재진
			                /* case "0000000003"://입원초진 */
			                case "0000000004"://입원경과
			                case "0000003325"://DSC기록
			                    ininm += "_0000000001.ini";
			                    break;                    
			                case "0000000003"://입원초진 분리 -20100311-kys
                				/* 20100309-kys-입원초진 Staff사인 추가-사본 버젼 맞춘후 반영하기로 함-20100310 */
                    			if(getUserInfo("dutplceinstcd") == "012" && orddd >= "20100316"){
                    			staffnmheader = "◈ Staff작성 및 확인 :";
 								/* 20100407-kys-작성자일시 주석처리.
 								if(staffnm != "")
                        			staffnm += "(" + staffconfirmdt + ")";
                    			*/
                    				emrrecusrnmheader = "";      
                    				ininm += "_1000000003.ini";
                    			}else{ 
                    				ininm += "_0000000003.ini";
                    			}
                    			break;
			                case "0000000676"://수술기록
			                    staffnmheader = "◈ Surgeon :";
			                    /*
			                    if(staffnm != "")
			                        staffnm += "(" + staffconfirmdt + ")";
			                    */
			                    emrrecusrnmheader = "";  
			                    ininm += "_0000000676.ini";
			                    break;
			                case "0000003169"://Brief OP Note
			                	staffnmheader = "";
			                    ininm += "_0000000676.ini";
			                    break;
			                case "0000000680"://입퇴원요약
			                    staffnmheader = "◈ Staff작성 및 확인 :";
			                    /*
			                    if(staffnm != "")
			                        staffnm += "(" + staffconfirmdt + ")";
			                    */
			                    emrrecusrnmheader = "◈ 의무기록사        :"; 
			                    ininm += "_0000000680.ini";
			                    break;                   
			                case "0000000679"://응급실기록
			                    ininm += "_0000000679.ini";
			                    break;
			                default:
			                    //ininm += "_0000000001.ini";
			                    if(formprogflag == "-" || formprogflag == "MAIN")
			                        ininm += "_0000000001.ini";
			                    else
			                        ininm += ".ini";
			                    break;
			            }
			            
			            
			            //출력메세지 미정의로 임시 막음(2009-06-30 박종훈)
                        trans = "<!--% \n %BASE " + getDomain() + "/himed/webapps/ \n %INCLUDE emr/recmngtweb/xrw/" + ininm + " \n VAR_PAT_NUM = " + tmppid + " \n VAR_CLASS = " + ordtype + " \n VAR_CHART_NAME_TOP  = " + topformnm + " \n VAR_CHART_NAME_BOTTOM  = " + botformnm + " \n VAR_CHART_NAME_LINE  = " + formnm + " \n VAR_PAT_AGE_SEX = " + sa + " \n VAR_TREAT_DEPT = " + deptengabbr + " \n VAR_PAT_JUMIN_NO = " + rgstno + " \n VAR_PAT_NAME = " + ptnm + " \n VAR_PRINT_NAME = " + prtnunm + " \n VAR_PRINT_DEPT = " + prtndeptnm + " \n VAR_WARD_HEAD = " + wardheader + roomcd + " \n VAR_DATE_HEADER = " + dateheader + disporddd + " \n VAR_DOCTOR_HEADER = " + doctorheader + drid + " \n VAR_PRINT_HEADER = " + printheader + prtdt + " \n SYS_PAGE_HEADER = " + pageheader + " \n VAR_HOSP_IMG = " + imgepath + " \n VAR_ORDDATE = " + formrecdt + " \n VAR_ORDDEPT = " + depthngnm + " \n VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + " \n VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + " \n VAR_ERDT = " + erdt + " \n VAR_ERVISITTM = " + ervisittm + " \n VAR_STAFFNM_HEADER = " + staffnmheader + " \n VAR_STAFFNM = " + staffnm + " \n VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + " \n VAR_EMRRECUSRNM = " + emrrecusrnm + " \n VAR_ININFO = " + ininfo + " \n VAR_DSCHINFO = " + dschinfo + " \n VAR_INCNT = " + incnt + "  \n VAR_INORDDEPTHNGNM = " + inorddepthngnm + "\n %-->\n" + trans;
                        //trans = "<!--% \n %BASE " + getDomain() + "/himed/webapps/ \n %INCLUDE emr/recmngtweb/xrw/" + ininm + " \n VAR_PAT_NUM = " + tmppid + " \n VAR_CLASS = " + ordtype + " \n VAR_CHART_NAME_TOP  = " + topformnm + " \n VAR_CHART_NAME_BOTTOM  = " + botformnm + " \n VAR_CHART_NAME_LINE  = " + formnm + " \n VAR_PAT_AGE_SEX = " + sa + " \n VAR_TREAT_DEPT = " + deptengabbr + " \n VAR_PAT_JUMIN_NO = " + rgstno + " \n VAR_PAT_NAME = " + ptnm + " \n VAR_PRINT_NAME = " + prtnunm + " \n VAR_PRINT_DEPT = " + prtndeptnm + " \n VAR_WARD_HEAD = " + wardheader + roomcd + " \n VAR_DATE_HEADER = " + dateheader + disporddd + " \n VAR_DOCTOR_HEADER = " + doctorheader + drid + " \n VAR_PRINT_HEADER = " + printheader + prtdt + " \n SYS_PAGE_HEADER = " + pageheader + " \n VAR_HOSP_IMG = " + imgepath + " \n VAR_ORDDATE = " + formrecdt + " \n VAR_ORDDEPT = " + depthngnm + " \n VAR_FSTRGSTRUSRNM = " + fstrgstrusrnm + " \n VAR_LASTUPDTRUSRNM = " + lastupdtrusrnm + " \n VAR_ERDT = " + erdt + " \n VAR_ERVISITTM = " + ervisittm + " \n VAR_STAFFNM_HEADER = " + staffnmheader + " \n VAR_STAFFNM = " + staffnm + " \n VAR_EMRRECUSRNM_HEADER = " + emrrecusrnmheader + " \n VAR_EMRRECUSRNM = " + emrrecusrnm + " \n VAR_ININFO = " + ininfo + " \n VAR_DSCHINFO = " + dschinfo + " \n VAR_INCNT = " + incnt + " \n VAR_PRINT_COPY =  " + "이 서식은 사본입니다(원본대조필)" + "\n %-->\n" + trans;
			            
			            var fso = new ActiveXObject("Scripting.FileSystemObject");
			            if(signno != 0) {
			            	var a = fso.CreateTextFile(foldernm + "\\" + chosflag + "_" +  signno + "_" + formcd + ".HTML", true, true);
			            }else if(signno == 0) {
			            	var a = fso.CreateTextFile(foldernm + "\\" + chosflag + "_" +  orddd + "_" + formcd + ".HTML", true, true);
			            }
			            a.WriteLine(trans);
			            a.Close();
						
						if(signno != 0) {
				            emrpath += foldernm + "\\" + chosflag + "_" +  signno + "_" + formcd + ".HTML|";
				        }else if(signno == 0) {
            				emrpath += foldernm + "\\" + chosflag + "_" +  orddd + "_" + formcd + ".HTML|";
            			}
			            //emrorddate += orddd + "|";
			            emrorddate += recdd + "|";  //기록일을 보여달라는 의료정보팀 요청
			            emrformnm += formnm + "|";
			            emrformcd += formcd + "|";
			            emrdeptnm += deptengabbr + "|";
			            emrdeptcd += orddeptcd + "|";
			            emrpage += "1|";
			            emrhiddenmsg += formcd + "▦" + signno + "▦" + formnm + "▦" + chosflag + "▦" +pid + "▦" + ptnm + "▦" + deptengabbr
			                      + "▦" + sa + "▦" + rgstno + "▦" + disporddd + "▦" + drid + "▦" + roomcd + "▦" + disporddd + "▦" + ordtype + "▦" + "E|";
			            emrchosflag += chosflag + "|";
			      }
			      
			      model.removeNodeset("/root/temp/inisend");
		    
				    //이미지경로
		            model.makeValue("/root/temp/inisend/emrpath", emrpath.substring(0, emrpath.length - 1));
		            //진료일
		            model.makeValue("/root/temp/inisend/emrorddate", emrorddate.substring(0, emrorddate.length - 1));
		      		//서식명
		      		model.makeValue("/root/temp/inisend/emrformnm", emrformnm.substring(0, emrformnm.length - 1));
		      		//서식코드
		      		model.makeValue("/root/temp/inisend/emrformcd", emrformcd.substring(0, emrformcd.length - 1));
		      		//진료과
		      		model.makeValue("/root/temp/inisend/emrdeptnm", emrdeptnm.substring(0, emrdeptnm.length - 1));
		      		//진료과코드
		      		model.makeValue("/root/temp/inisend/emrdeptcd", emrdeptcd.substring(0, emrdeptcd.length - 1));
		      		//페이지
		      		model.makeValue("/root/temp/inisend/emrpage", emrpage.substring(0, emrpage.length - 1));
		      		
		      		model.makeValue("/root/temp/inisend/emrhiddenmsg", emrhiddenmsg.substring(0, emrhiddenmsg.length - 1));
		      		
		      		model.makeValue("/root/temp/inisend/emrchosflag", emrchosflag.substring(0, emrchosflag.length - 1));
		      		
			    }

		  		 model.refresh();
		  		 
            //chartview에 넘길 노드값 재구성(영상+EMR)
            var treatvar = "";
            var tsignno = "";
            var temrpath = "";
            var temrorddate = "";
            var temrformnm = "";
            var temrformcd = "";
            var temrdeptnm = "";
            var temrdeptcd = "";
            var temrpage = "";
            var temrhiddenmsg = "";
            
            //var outtestArr = outtestinfo.split("▩");  // 검사결과서식 
            //var intestArr = intestinfo.split("▩");  // 검사결과서식 
            
            if(certArr.length > 1 ) {  //EMR 서식이 있는 경우
	            for(var i = 0; i < (certArr.length - 1); i++)
	            {
	                ieflag = certArr[i].split("▦")[0];
	                
	                if (ieflag == "I")
	                {
	                    treatvar = "*" + certArr[i].split("▦")[1] + "-" + certArr[i].split("▦")[2];
	                    
	                    temrpath += treatvar + "|";
	                    temrorddate += treatvar + "|";
	                    temrformnm += treatvar + "|";
	                    temrformcd += treatvar + "|";
	                    temrdeptnm += treatvar + "|";
	                    temrdeptcd += treatvar + "|";
	                    temrpage += treatvar + "|";
	                    temrhiddenmsg += treatvar + "|";
	                }
	                else
	                {
	                    tsignno = certArr[i].split("▦")[3] +"_" + certArr[i].split("▦")[1] +"_" + certArr[i].split("▦")[2];
	                    tformno = certArr[i].split("▦")[5] +"_" + certArr[i].split("▦")[4] +"_" + certArr[i].split("▦")[2];
	                    var filepathnmArr = model.getValue("/root/temp/inisend/emrpath").split("|");
	                    var orddateArr = model.getValue("/root/temp/inisend/emrorddate").split("|");
	            		var formnmArr = model.getValue("/root/temp/inisend/emrformnm").split("|");
	            		var formcdArr = model.getValue("/root/temp/inisend/emrformcd").split("|");
	            		var deptnmArr = model.getValue("/root/temp/inisend/emrdeptnm").split("|");
	            		var deptcdArr = model.getValue("/root/temp/inisend/emrdeptcd").split("|");
	            		var pageArr = model.getValue("/root/temp/inisend/emrpage").split("|");
	            		var hiddArr = model.getValue("/root/temp/inisend/emrhiddenmsg").split("|");
	            		
	            		var filepathnm = "";
	            		var orddatenm = "";
	                    var formnmnm = "";
	                    var formcdnm = "";
	                    var deptnmnm = "";
	                    var deptcdnm = "";
	                    var pagenm = "";
	                    var hiddnm = "";
	                    var chosflagnm = "";
	    
	                    
	                    for (var j = 0; j < filepathnmArr.length; j++)
	                    {
	                        filepathnm = filepathnmArr[j];
	                        orddatenm = orddateArr[j];
	                        formnmnm = formnmArr[j];
	                        formcdnm = formcdArr[j];
	                        deptnmnm = deptnmArr[j];
	                        deptcdnm = deptcdArr[j];
	                        pagenm = pageArr[j];
	                        hiddnm = hiddArr[j];
	                        
	                        if(isSearchString(filepathnm, tsignno))  
	                        {
	                            temrpath += filepathnm + "|";
	                            temrorddate += orddatenm + "|";
	                            temrformnm += formnmnm + "|";
	                            temrformcd += formcdnm + "|";
	                            temrdeptnm += deptnmnm + "|";
	                            temrdeptcd += deptcdnm + "|";
	                            temrpage += pagenm + "|";
	                            temrhiddenmsg += hiddnm + "|";
	                        } else if(isSearchString(filepathnm, tformno))  {
	                        	temrpath += filepathnm + "|";
	                            temrorddate += orddatenm + "|";
	                            temrformnm += formnmnm + "|";
	                            temrformcd += formcdnm + "|";
	                            temrdeptnm += deptnmnm + "|";
	                            temrdeptcd += deptcdnm + "|";
	                            temrpage += pagenm + "|";
	                            temrhiddenmsg += hiddnm + "|";
	                        }
	                    }        
	                }
	            }
          	} 
			
			model.resetInstanceNode("/root/send/iemr");
    		model.setValue("/root/send/iemr/treatno", tmptreatno.substring(0, tmptreatno.length - 1));
    		model.setValue("/root/send/iemr/docucd", tmpiformcd.substring(0, tmpiformcd.length - 1));
    		
    		
    		//이미지경로
    		model.makeValue("/root/inisend/emrpath", temrpath.substring(0, temrpath.length - 1));
            iviewerIemr.model.setValue("/root/main/emrpath", model.getValue("/root/inisend/emrpath"));
            //진료일
            model.makeValue("/root/inisend/emrorddate", temrorddate.substring(0, temrorddate.length - 1));
            iviewerIemr.model.setValue("/root/main/emrorddate", model.getValue("/root/inisend/emrorddate"));
    		//서식명
    		model.makeValue("/root/inisend/emrformnm", temrformnm.substring(0, temrformnm.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrformnm", model.getValue("/root/inisend/emrformnm"));
    		//서식코드
    		model.makeValue("/root/inisend/emrformcd", temrformcd.substring(0, temrformcd.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrformcd", model.getValue("/root/inisend/emrformcd"));
    		//진료과
    		model.makeValue("/root/inisend/emrdeptnm", temrdeptnm.substring(0, temrdeptnm.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrdeptnm", model.getValue("/root/inisend/emrdeptnm"));
    		//진료과코드
    		model.makeValue("/root/inisend/emrdeptcd", temrdeptcd.substring(0, temrdeptcd.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrdeptcd", model.getValue("/root/inisend/emrdeptcd"));
    		//페이지
    		model.makeValue("/root/inisend/emrpage", temrpage.substring(0, temrpage.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrpage", model.getValue("/root/inisend/emrpage"));
            //히든 메세지
            model.makeValue("/root/inisend/emrhiddenmsg", temrhiddenmsg.substring(0, temrhiddenmsg.length - 1));
    		iviewerIemr.model.setValue("/root/main/emrhiddenmsg", model.getValue("/root/inisend/emrhiddenmsg"));
    		

    		var iemrNode = instance1.selectSingleNode("/root/send/iemr");
		    
		    iviewerIemr.window.javascript.searchChart_EMR(iemrNode);
		    
		    if (iviewerIemr.window.javascript.downloadChart() == true)
			{
				
				// 뷰어 모드 유지 기능 추가 - 20080417
				var ViewMode;
				ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
				
				if (ViewMode == null || ViewMode == "")
				{
					iviewerIemr.window.javascript.setupChart("ChartView");
					
				}
				else
				{
		
					iviewerIemr.window.javascript.setupChart(ViewMode);
					
				}
		    }
	  } else
		{
		    model.removeNodeset("/root/inisend");
            
            model.resetInstanceNode("/root/send/iemr");
    		model.setValue("/root/send/iemr/treatno", tmptreatno.substring(0, tmptreatno.length - 1));
    		model.setValue("/root/send/iemr/docucd", tmpiformcd.substring(0, tmpiformcd.length - 1));
    		
    		var iemrNode = instance1.selectSingleNode("/root/send/iemr");
    
            iviewerIemr.window.javascript.searchChart_EMR(iemrNode);
            
            if (iviewerIemr.window.javascript.downloadChart() == true)
    		{
    			// 뷰어 모드 유지 기능 추가 - 20080417
				var ViewMode;
				ViewMode = iviewerIemr.model.getValue("/root/hidden/currentViewMode");
				
				if (ViewMode == null || ViewMode == "")
				{
					iviewerIemr.window.javascript.setupChart("ChartView");
					
				}
				else
				{
					iviewerIemr.window.javascript.setupChart(ViewMode);
					
				}
		    }
		}
	}

}

function fGetImgPath(langflag)
{
  var dutplceinstcd = sysf_getUserInfo("dutplceinstcd");
            
  if(langflag != "EN")
  {
    //imgepath = "com/commonweb/images/biglogo" + dutplceinstcd + ".jpg";  
    imgepath = "IMAGES/emr/MN/biglogo" + sysf_getUserInfo("dutplceinstcd") + ".jpg"
  }
  else
  {
    //imgepath = "com/commonweb/images/biglogo" + dutplceinstcd + "e.jpg";  
    imgepath = "IMAGES/emr/MN/biglogo" + sysf_getUserInfo("dutplceinstcd") + "e.jpg"
  }
  
  return imgepath;
}

// 의무기록 부서코드 찾기  
function fIsEmrDept()
{  
	var dutplcecd = sysf_getUserInfo("dutplcecd");
	var hardcdno = "1001";
	if( ds_send_reqdata.rowcount == 0 ) ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "hardcdno", hardcdno);
	//sysf_trace(ds_send_reqdata.saveXML());

	var oParam = {};
		oParam.id       = "TRMRF03104";
		oParam.service  = "formmngtapp.SetIndxMngt";
		oParam.method   = "reqGetEmrInfoTeamCd";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_main_hardcdlist=hardcdlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRF03104";

	tranf_submit(oParam);
	
	//sysf_trace(ds_main_hardcdlist.saveXML());
  
	for(var idx = 0; idx < ds_main_hardcdlist.rowcount; idx++)
	{
		if(dutplcecd == ds_main_hardcdlist.getColumn(idx, "trgtcd"))
		{
			return 1;
		}    	
		
	}
	return 0;
}
  
function fGetTotalCopies()
{
sysf_trace("***** fGetTotalCopies() *****");

	var tmpTotalCopies = 0;
	
	if(g_inputbox == "Y") // 수가가 기본, 추가 수가코드로 이루어진 경우
	{
	    var shtno = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno"));
	    var copies = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
	  
	    tmpTotalCopies = shtno * copies;
	}
	else  // 서울성모
	{
        // 가져온 그리드가 여러줄인경우를 대비해 전체 매수를 구한다.
        for(var idx = 0; idx < ds_grd_rcptlist.rowcount; idx++)
        {
            tmpTotalCopies += eval(ds_grd_rcptlist.getColumn(idx, "shtno"));
        }  
	}
sysf_trace("***** tmpTotalCopies : " + tmpTotalCopies );	
	return tmpTotalCopies;
}

function fAddCalcorcdColumn(prnShtno)
{
  
	var RecPrcpCd = model.getValue("/root/hidden/calcscorcd/hardcd/hardcd");  //의무기록 사본발행 수가코드
	
	var shtno = 0;
	var iFindRow =0;
	var RowCnt = 0;
	var lrow = 0;
	var currentdate = "";
	
	var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
	
	var PrevTotalCopies = fGetTotalCopies();
	
	var AddCopies = prnShtno;
	
	var Total = eval(PrevTotalCopies) + eval(AddCopies);
		
	if(eval(grd_rcptlist.rows-grd_rcptlist.fixedrows) == 1)   // 그리드에 한줄만 있을 경우
	{			  
		var iRow = grd_rcptlist.fixedrows;
		
		if(Total == g_DefCnt)
			model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "DEF");
		
		if(Total > g_DefCnt)
		{
			var rcptNodelist = findNodeset(model, "/root/main/rcptlist/rcptlist[" + iRow + "]");
		     
			if(rcptNodelist.length >= 1)
			{
				var rcptNode = rcptNodelist.item(0);

				// 기본 수가로 설정
				if(g_DefCnt != 0)
				{
				  rcptNode.parentNode.appendChild(rcptNode);
				  
				  if(iRow == 1)
					{
						model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", g_DefCnt);
						//model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscornm", "의무기록사본발행");
						model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "DEF");
						model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcpqty", "1"); // HCDD027 의 경우 매수를 10으로 하면 30000원이 계산됨.
						
						// 추가 수가를 설정
						model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscorcd", g_AddCalcscorcd);
						//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
						model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpcd", g_AddCalcscorcd);
						model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/shtno", eval(PrevTotalCopies) - eval(g_DefCnt) + eval(AddCopies));
						model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/defyn", "ADD"); 
						model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpqty", eval(PrevTotalCopies) - eval(g_DefCnt) + eval(AddCopies));
						
						grd_rcptlist.refresh();	
	
          	for(var idx = grd_rcptlist.fixedrows; idx <= eval(grd_rcptlist.rows-grd_rcptlist.fixedrows); idx++)
              grd_rcptlist.rowStatus(idx) = 1;
					}
					
				}
				else  // g_DefCnt == 0 인 경우 추가 수가에만 변경한다.
				{
				  model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscorcd", g_AddCalcscorcd);
					//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
					model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcpcd", g_AddCalcscorcd);
					//model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", eval(PrevTotalCopies) + eval(AddCopies));
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", eval(AddCopies));
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "ADD"); 
					//model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcpqty", eval(PrevTotalCopies) + eval(AddCopies));
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcpqty", eval(AddCopies));
				}
					/*
				if(iRow == 1)
				{
					model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", g_DefCnt);
					//model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscornm", "의무기록사본발행");
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "DEF");
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcpqty", "1");
					
					// 추가 수가를 설정
					model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscorcd", g_AddCalcscorcd);
					//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
					model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpcd", g_AddCalcscorcd);
					model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/shtno", (tmpTotalCopies-g_DefCnt));
					model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/defyn", "ADD");
					model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpqty", (tmpTotalCopies-g_DefCnt));
				}
				*/
				//if(model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscorcd") == g_DefCalcscorcd && model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn") == "")
				//{}
			}
		}
		
		if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") != model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims"))
		{
			model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
			grd_rcptlist.rowStatus(iRow) = 2;
		} 
	}
	else
	{
		for(var iRow = grd_rcptlist.fixedrows; iRow <= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++)
		{
			// 첫번째 매수 확인
			if(model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscorcd") == g_DefCalcscorcd && model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn") == "")
			{
				var fstshtno = model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno");
			
				if(fstshtno == g_DefCnt)
					model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "DEF");
				
				if(fstshtno > g_DefCnt)
				  if(g_DefCnt == 0)
					  model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", fstshtno);	
					else
					  model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", g_DefCnt);	
			}
						
			// 기본 수가로 설정
			if(iRow == 1)
			{
				model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/shtno", g_DefCnt);
				//model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/calcscornm", "의무기록사본발행");
				model.makeValue("/root/main/rcptlist/rcptlist[" + iRow + "]/defyn", "DEF");
				model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpqty", "1");
				
				// 추가 수가를 설정
				model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscorcd", g_AddCalcscorcd);
				//model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/calcscornm", "의무기록복사(추가한매당)");
				model.setValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpcd", g_AddCalcscorcd);
				model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/shtno", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
				model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/defyn", "ADD"); 
				model.makeValue("/root/main/rcptlist/rcptlist[" + (iRow+1) + "]/prcpqty", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
			}
					
					//{}
			
			if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") != model.getValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims"))
			{
				model.setValue("/root/main/rcptlist/rcptlist[" + iRow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
				grd_rcptlist.rowStatus(iRow) = 2;
			} 
		}	
	}
	
	grd_rcptlist.refresh();	
	
	/*
	for(var idx = grd_rcptlist.fixedrows; idx <= eval(grd_rcptlist.rows-grd_rcptlist.fixedrows); idx++)
		grd_rcptlist.rowStatus(idx) = 1;
	
	
	// 직할병원
	if(issgoalcd == "06" && g_FreeCalcscorcd != "") {
		iFindRow = grd_rcptlist.findRow("HCDD001",0,2);
		if(iFindRow < 1){
			for(var iRow = grd_rcptlist.fixedrows; iRow <= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++){
				grd_rcptlist.rowStatus(iRow) = 4;
				grd_rcptlist.isReadOnly(iRow,4) = true;
				shtno += eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
			}					
			RowCnt = 1;
		}
	}else{// 그외 목적
		
		//iFindRow = grd_rcptlist.findRow(RecPrcpCd,0,2);
		//iFindRow = grd_rcptlist.findRow(g_AddCalcscorcd, 2, 2);
		iFindRow = grd_rcptlist.findRow("ADD", 0, 22);
		
		if(iFindRow < 1){
			for(var iRow = grd_rcptlist.fixedrows; iRow<= (grd_rcptlist.rows-grd_rcptlist.fixedrows); iRow++){
				grd_rcptlist.rowStatus(iRow) = 4;
				grd_rcptlist.isReadOnly(iRow,4) = true;
				shtno += eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
			}
			if(shtno > 10){
				RowCnt = 2;
			}else{
				RowCnt = 1;	
			}
			
      	}
	}
	
	if(iFindRow < 1)
	{
		for(var iRow = 1; iRow <= RowCnt; iRow++)
		{
			grd_rcptlist.additem();	
			currentdate = getCurrentDate();
			lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
			if(issgoalcd == "06")
			{
				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", "HCDD001");
      			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행(CMC 의사)");
      			// 처방코드(임시로 수가코드로 함)
      			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", "HCDD001");		
      			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
			}
			else
			{
				if(iRow == 1){
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_DefCalcscorcd);
	        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
	        		// 처방코드(임시로 수가코드로 함)
	        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_DefCalcscorcd);
	        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
	        	}else if(iRow == 2){
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_AddCalcscorcd);
       				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록복사(추가한매당)");
       				// 처방코드(임시로 수가코드로 함)
        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_AddCalcscorcd);
        			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", "");			        		
	        	}
			}
				
			if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
	        {
	            model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
	        }
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", currentdate);
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpno", "0");
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcphistno", "0");
		        
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
	        
	        if(RowCnt == 1){
		        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", shtno);
		        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", shtno);
		        if(issgoalcd == "06"){
		        	model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", shtno);
		        }else{
		        	model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
		        }
		    }else{	// 직할병원을 제외한 목적의 경우로 매수가 10매 이상인 경우
		    	if(iRow == 1){	// 수가코드 (HCDD027) 처리
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", "10");
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", "10");
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
		    		
		    	}else if(iRow == 2){	// 수가코드(HCDD030) 처리
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", (shtno-10));
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", (shtno-10));
			        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", (shtno-10));				    		
		    	}
		    }
			   
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
	        model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
      
    		grd_rcptlist.addStatus(lrow, "insert");
      	}
	}
	*/
	//2008-10-24 이창록 수정 부수가 0이면 defalut 으로 1로 셋팅 
	if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies")==0){
		model.setValue("/root/main/appinfo/copyinfo/emrappcopies",1);
		//ipt_emrappcopies.refresh();
		fChangedAppCopies();
	}
	
	//btn_delete.disabled = true;
	//btn_delete.refresh();
}

/**
 * @desc   : 서식로드시 LoadingBar표시, 닫기
 * @id     :
 * @event  :
 * @return :
 * @authur : 박종훈
 */
 
// function fShowProgress(flag, msg)
// {
//   /*
//     if (gPrestIvw != null)
//     {
//         gPrestIvw.visible = !flag;
//     }
// */
//     if (flag)
//     {
//         openLoadingBar(msg);
//     }
//     else
//     {
//         closeLoadingBar();
//     }
// }

// 신청부수가 변경될 경우
function fChangedAppCopies2()
{
sysf_trace("***** fChangedAppCopies2() *****");  
	if(g_inputbox == "Y") // 수가가 기본, 추가 수가코드로 이루어진 경우
	{
// 	  	grd_rcptlist.colAttribute (4, "disabled" ) = "true";
// 	  	grd_rcptlist.colAttribute (19, "disabled" ) = "true";
		grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "shtno"), "edittype", "none");
		grd_rcptlist.setCellProperty("body", grd_rcptlist.getBindCellIndex("body", "prcptims"), "edittype", "none");
			
		// 그리드 복사(이미 발행된 사본의 경우 백업을 해둠)
		var lrow = ds_grd_apphist.rowposition;
		var issno = ds_grd_apphist.getColumn(lrow, "issno");
		if(!utlf_isNull(issno))
		{
			ds_grd_rcptlist.enableevent = false;
			ds_grd_rcptlist.clearData();
			ds_grd_rcptlist.copyData(ds_grd_tmprcptlist);
// 			model.removenode("/root/main/rcptlist");
// 			model.makeNode("/root/main/rcptlist");
// 			model.copyNode("/root/main/rcptlist", "/root/temp2/rcptlist");
			
			ds_grd_rcptlist.rowposition = 1;
			ds_grd_rcptlist.enableevent = true;
		  }
		} 

		if (ds_grd_apphist.rowcount < 1) return;
		if (ds_grd_apphist.rowposition < 0) return;

		var totalshrtno = ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno");
		var totalcopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");

		//alert(totalcopies);
		//alert(totalshrtno);

		if(utlf_isNull(totalshrtno) || parseInt(totalshrtno) < 0)
		  return false;
		if(utlf_isNull(totalcopies) || parseInt(totalcopies) < 0)
		  return false;
			
		var totalpapers = parseInt(totalshrtno) * parseInt(totalcopies);
		ds_temp2_appinfo_copyinfo.setColumn(0, "totalpapers", totalpapers);

		return true;
}

function fChangedGridRow2()
{	 
  var tmpTotalCopies = fGetTotalCopies(); // 수가 그리드의 매수 합만 계산
	//var tmpTotalCopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalpapers");
	  
	var iRow = 	grd_rcptlist.row;
	
	if(iRow < 0)
	  return;
	
	var sShtNo= eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
	var sValue = 0;
	var sCalcScorCd = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/calcscorcd");
	var sExtraPrcpTims = 0;
	var currentdate = getCurrentDate();
	var iStatus = grd_rcptlist.rowStatus(iRow);
	if(iStatus == 2){
		if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno") == model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno")){
			grd_rcptlist.rowStatus(iRow) = 0;
		}
	}
	
	// 선택한 그리드 행의 매수를 구함.
	var sShtNo = eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
	
	/* 매수 부수 입력창이 있는 경우 매수, 부수를 수정하지 못하도록 수정하였기 때문에 필요가 없는 로직임.
	// 2009.06.07 이경희
	if(grd_rcptlist.rows > 2)
	{
		if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/defyn") == "DEF" && eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno")) != 1)
		{
			messageBox("기본 수가부분은 변경할 수 없습니다. 하단의 추가수가부분을", "I008");
			//model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno", "1");
			if(g_DefCnt != 0)
			  model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno", g_DefCnt);
			else
			  model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno", g_AddCnt);
			  
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty", "1");
			model.refresh();
			return;
		}
	}
	*/
	if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/defyn") == "DEF" && eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno")) > 1)
	{
		if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/calcscorcd") == g_DefCalcscorcd)
		{
			sShtNo = eval(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno"));
			
			if(parseInt(sShtNo) < 1)
			{
				messageBox("매수는","I003");
				model.setValue("/root/main/issinfo/rcptlist["+iRow+"]/shtno",model.getValue("/root/main/issinfo/rcptlist["+iRow+"]/oldshtno"));			
				if(iStatus == 2){
	  				grd_rcptlist.rowStatus(iRow) = 0;
  				}
	    }
    	//else if(sShtNo > 10)
    	//else if(sShtNo > g_DefCnt)
    	else if(parseInt(tmpTotalCopies) > parseInt(g_DefCnt))
    	{
        if(model.getValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/calcscorcd") == "")
      	{
      	  var currentdate = getCurrentDate();
      	  var lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
      	  // 기존 그리드가 2줄인 경우
      	  if((grd_rcptlist.rows - grd_rcptlist.fixedrows) == 2)
      	  {
      	    
      	  }
      	  else
      	  {
      	    grd_rcptlist.additem();  
      	    
      	    lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
      	    
    				var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
    				
            // 06: 직할병원 - 수가코드(HCDD001)
            if(issgoalcd == "06" && g_FreeCalcscorcd != "")
            {
              model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_FreeCalcscorcd);
              model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", g_FreeCalcscorcdnm);
              // 처방코드(임시로 수가코드로 함)
              model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_FreeCalcscorcd);
            }
            else
  					{ // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
  						  /*
  							model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", RecPrcpCd);
  			        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
  			        		// 처방코드(임시로 수가코드로 함)
  			        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", RecPrcpCd);
  							*/
  						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_AddCalcscorcd);
  						
  						if(g_AddCalcscorcd == "HCDD030")
  						{
  							//model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록복사(추가한매당)");
  							model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", g_AddCalcscorcdnm);
  						}
  						else
  						{
  							//model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
  							model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", g_AddCalcscorcdnm);
  						}
  						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_AddCalcscorcd);
  						model.makeValue("/root/main/rcptlist/rcptlist[" + lrow + "]/defyn", "ADD");
  					}
  					
  					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/unitcost", model.getValue("/root/temp/picmmech/picmmech_unitcost"));
  						
  					if (ds_main_appinfo_copyinfo.getColumn(0, "ioflag") == "O")
  					{
  						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
  					}
  					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpdd", currentdate);
  					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpno", "0");
  					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcphistno", "0");
      	  }

  				//var currentdate = getCurrentDate();
				  //var lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
          // 기본 매수 등록
  				model.setValue("/root/main/rcptlist/rcptlist[" + (lrow-1) + "]/shtno", g_DefCnt);
  				model.setValue("/root/main/rcptlist/rcptlist[" + (lrow-1) + "]/prcpqty", "1");				
				  					
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", parseInt(tmpTotalCopies) - parseInt(g_DefCnt));
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", "1");
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", parseInt(tmpTotalCopies) - parseInt(g_DefCnt));
					
					if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0)
					{
						model.setValue("/root/main/appinfo/copyinfo/emrappcopies", 1);
					}
					else
					{
					  var Tmpappcopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");
					  model.setValue("/root/main/appinfo/copyinfo/emrappcopies", Tmpappcopies);
					}
					
					if(g_DefCalcscorcd != "HCDD027")
					  model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
					else
					  model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", "1");
					  
					model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));

	        grd_rcptlist.addStatus(lrow, "insert");
  			}
  			else
  			{
  				var sExtraRow = grd_rcptlist.findRow("HCDD030", grd_rcptlist.fixedrows+1,2);
  				var sExtraStatus = grd_rcptlist.rowStatus(sExtraRow);
  				if(sExtraStatus != 1 && sExtraStatus != 3) grd_rcptlist.rowStatus(sExtraRow) = 2;
  				model.setValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/shtno", sValue);		
  				model.setValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/prcpqty", sValue);			
  			}
	    }
	    else    // 총 매수가 10장 미만인 경우
	    {
        if(model.getValue("/root/main/issinfo/rcptlist[calcscorcd ='HCDD030']/calcscorcd") == "")
      	{ 				
  				var currentdate = getCurrentDate();
				  var lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
				
				  // 10장 미만이므로 전체 매수를 기입한다.
  				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", tmpTotalCopies);
  				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
  				
  				var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
  				
					// 06: 직할병원 - 수가코드(HCDD001)
					if(issgoalcd == "06" && g_FreeCalcscorcd != "")
					{
						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_FreeCalcscorcd);
						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", g_FreeCalcscorcdnm);
						// 처방코드(임시로 수가코드로 함)
						model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_FreeCalcscorcd);
					}
  			}	      

			}	
		}
	}
	else
	{				
	  var lrow = grd_rcptlist.rows - grd_rcptlist.fixedrows;
	  		
		var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
		
		// 06: 직할병원 - 수가코드(HCDD001)
		if(issgoalcd == "06" && g_FreeCalcscorcd != "")
		{
			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", g_FreeCalcscorcd);
			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", g_FreeCalcscorcdnm);
			// 처방코드(임시로 수가코드로 함)
			model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", g_FreeCalcscorcd);
		}
		else
		{ // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
			  /*
				model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscorcd", RecPrcpCd);
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/calcscornm", "의무기록사본발행");
        		// 처방코드(임시로 수가코드로 함)
        		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpcd", RecPrcpCd);
				*/
  	  for(var i = 1; i < lrow; i++)
  	  {
  	    if(model.getValue("/root/main/rcptlist/rcptlist[" + i + "]/calcscorcd") == g_AddCalcscorcd)
  	    {
  	      lrow = i;
  	      break;
  	    }
  	  }
  	  
  	  if(parseInt(tmpTotalCopies) > parseInt(g_DefCnt))
  	  {
  	    model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", parseInt(tmpTotalCopies) - parseInt(g_DefCnt));
  	    model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", parseInt(tmpTotalCopies) - parseInt(g_DefCnt));
  	  }
  	  else
  	  {
  	    model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/shtno", parseInt(tmpTotalCopies));
  	    model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", "1");
  	  }
  		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/oldshtno", "1");
  		//model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcpqty", parseInt(tmpTotalCopies) - parseInt(g_DefCnt));
		}

		if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0)
		{
			model.setValue("/root/main/appinfo/copyinfo/emrappcopies", 1);
		}
		else
		{
		  var Tmpappcopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");
		  model.setValue("/root/main/appinfo/copyinfo/emrappcopies", Tmpappcopies);
		}
				
		if(g_DefCalcscorcd != "HCDD027")
		  model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
		else
		  model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", "1");
		//model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
		
		model.setValue("/root/main/rcptlist/rcptlist[" + lrow + "]/copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));

    grd_rcptlist.addStatus(lrow, "insert");
	}
		
	//if(sCalcScorCd == "HCDD001")
	if(sCalcScorCd == g_FreeCalcscorcd)
	{
		if(sShtNo < 1){
			messageBox("매수는","I003");
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/shtno",model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno"));			
			if(iStatus == 2){
				grd_rcptlist.rowStatus(iRow) = 0;
			}
			sShtNo = model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/oldshtno");		
		}
		if(sShtNo != model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty")){
			model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty", sShtNo);	
		}
	}
	else
	{	// 추가
		if(sShtNo < 1)
		{
			var iStatus = grd_rcptlist.rowStatus(iRow);
			if(iStatus == 1 || iStatus == 3)
				grd_rcptlist.deleteRow(iRow, true);	
			else 
				grd_rcptlist.rowStatus(iRow) = 4;
		}
		else
		{
			if(model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/defyn") == "ADD" && (tmpTotalCopies - g_DefCnt) != model.getValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty")){
				model.setValue("/root/main/rcptlist/rcptlist["+iRow+"]/prcpqty", (tmpTotalCopies - g_DefCnt));	
			}
		}
	}	
}


// 추가(20090610)
// 수가 그리드 처리
function fChangedSugaGridRow()
{
sysf_trace("***** fChangedSugaGridRow() *****");
    var tmpTotalCopies = fGetTotalCopies(); // 수가 그리드의 매수 합만 계산
    
    var iRow = ds_grd_rcptlist.rowposition;
    
    if(iRow < 0)
    {
        return;
    }
    //Event Off
    ds_grd_rcptlist.enableevent = false;
    
    // 매수
    var sShtNo= eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
    var sValue = 0;
    
    var sCalcScorCd = ds_grd_rcptlist.getColumn(iRow, "calcscorcd");
    var sExtraPrcpTims = 0;
    var currentdate = utlf_getCurrentDate();

    // 선택한 그리드 행의 매수를 구함.
    var sShtNo = eval(ds_grd_rcptlist.getColumn(iRow, "shtno"));
    
    ds_grd_rcptlist.clearData();
    
    var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
    
    // 06: 직할병원 - 수가코드(HCDD001)
    if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))
    {
        var currentdate = utlf_getCurrentDate();
        var lrow = ds_grd_rcptlist.addRow;

        ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_FreeCalcscorcd);
        ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_FreeCalcscorcdnm);
        
        ds_grd_rcptlist.setColumn(lrow, "prcpqty", tmpTotalCopies);
        ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
        ds_grd_rcptlist.setColumn(lrow, "rcptyn", ds_grd_tmprcptlist.getColumn(0, "rcptyn"));
        
        // 처방코드(임시로 수가코드로 함)
        ds_grd_rcptlist.setColumn(lrow, "prcpno", ds_grd_tmprcptlist.getColumn(0, "prcpno"));
        ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_FreeCalcscorcd);
        ds_grd_rcptlist.setColumn(lrow, "prcphistno", ds_grd_tmprcptlist.getColumn(0, "prcphistno"));
        ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
        ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
        ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
        
        ds_grd_rcptlist.setColumn(lrow, "shtno", tmpTotalCopies);
        ds_grd_rcptlist.setColumn(lrow, "oldshtno", ds_grd_tmprcptlist.getColumn(0, "oldshtno"));
        ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_grd_tmprcptlist.getColumn(0, "prcpdd"));
        
        ds_grd_rcptlist.setColumn(lrow, "issseqno", ds_main_appinfo_copyinfo.getColumn(0, "issseqno"));
        ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
        ds_grd_rcptlist.setColumn(lrow, "issno", ds_main_appinfo_copyinfo.getColumn(0, "issno"));
        
        ds_grd_rcptlist.setColumn(lrow, "prcptims", 1);
        ds_grd_rcptlist.setColumn(lrow, "oldprcptims", ds_grd_tmprcptlist.getColumn(0, "oldprcptims"));
        
        ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
        

        // 부수
        if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0)
        {
            ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", 1);
        }
        var arrPostion = new Array();
		arrPostion[0] = lrow;
		grdf_setStatus(grd_rcptlist, "I", arrPostion);
        //grd_rcptlist.addStatus(lrow, "insert");
        
    }
    else
    {   // 다른 목적 : 수가코드(HCDD027) ->200원짜리 수가코드로 (HCDD030) 변경 이창록
        
        // 총매수가 기본수가(10장)을 넘길 경우 첫번째 Row는 기본 수가로  2번째 Row는 추가수가로 셋팅
        if(parseInt(tmpTotalCopies) > parseInt(g_DefCnt))
        {
            ds_grd_rcptlist.addRow();
            ds_grd_rcptlist.addRow();
            for(var i = 0; i < 2; i++)
            //for(var i = 0; i < 2; i++)
            {
                var currentdate = utlf_getCurrentDate();
                var lrow = i; //grd_rcptlist.rows - grd_rcptlist.fixedrows;
                if (i == 0)
                {
                    ds_grd_rcptlist.setColumn(lrow, "prcpstatcd", ds_grd_tmprcptlist.getColumn(0, "prcpstatcd"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_DefCalcscorcd);
                    ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_DefCalcscorcdnm);
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");
                    ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
                    ds_grd_rcptlist.setColumn(lrow, "rcptyn", ds_grd_tmprcptlist.getColumn(0, "rcptyn"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpno", ds_grd_tmprcptlist.getColumn(0, "prcpno"));
                    ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_DefCalcscorcd);
                    ds_grd_rcptlist.setColumn(lrow, "prcphistno", ds_grd_tmprcptlist.getColumn(0, "prcphistno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
                    ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
                    ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "shtno", g_DefCnt);
                    ds_grd_rcptlist.setColumn(lrow, "oldshtno", ds_grd_tmprcptlist.getColumn(0, "oldshtno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_grd_tmprcptlist.getColumn(0, "prcpdd"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
                    
                    // 기본일때는 수량을 1로
                    ds_grd_rcptlist.setColumn(lrow, "prcptims", "1");
                    ds_grd_rcptlist.setColumn(lrow, "oldprcptims", ds_grd_tmprcptlist.getColumn(0, "oldprcptims"));
                    
                    // 처방코드(임시로 수가코드로 함)
                    ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
                    
                    
                    ds_grd_rcptlist.setColumn(lrow, "issseqno", ds_main_appinfo_copyinfo.getColumn(0, "issseqno"));
                    ds_grd_rcptlist.setColumn(lrow, "issno", ds_main_appinfo_copyinfo.getColumn(0, "issno"));
            
					var arrPostion = new Array();
					arrPostion[0] = lrow;
                    grdf_setStatus(grd_rcptlist, "I", arrPostion);
                    //grd_rcptlist.addStatus(lrow, "insert");
                }
                else
                {
                    ds_grd_rcptlist.setColumn(lrow, "prcpstatcd", ds_grd_tmprcptlist.getColumn(0, "prcpstatcd"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_AddCalcscorcd);
                    ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_AddCalcscorcdnm);
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpqty", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
                    ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
                    ds_grd_rcptlist.setColumn(lrow, "rcptyn", ds_grd_tmprcptlist.getColumn(0, "rcptyn"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpno", ds_grd_tmprcptlist.getColumn(0, "prcpno"));
                    ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_AddCalcscorcd);
                    ds_grd_rcptlist.setColumn(lrow, "prcphistno", ds_grd_tmprcptlist.getColumn(0, "prcphistno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
                    ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
                    ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "shtno", parseInt(tmpTotalCopies)-parseInt(g_DefCnt));
                    ds_grd_rcptlist.setColumn(lrow, "oldshtno", ds_grd_tmprcptlist.getColumn(0, "oldshtno"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_grd_tmprcptlist.getColumn(0, "prcpdd"));
                    
                    ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
                    ds_grd_rcptlist.setColumn(lrow, "prcptims", 1);
                    ds_grd_rcptlist.setColumn(lrow, "oldprcptims", ds_grd_tmprcptlist.getColumn(0, "oldprcptims"));
                    
                    // 처방코드(임시로 수가코드로 함)
                    ds_grd_rcptlist.setColumn(lrow, "defyn", "ADD");
                    
                    ds_grd_rcptlist.setColumn(lrow, "issseqno", ds_main_appinfo_copyinfo.getColumn(0, "issseqno"));
                    ds_grd_rcptlist.setColumn(lrow, "issno", ds_main_appinfo_copyinfo.getColumn(0, "issno"));
            
					var arrPostion = new Array();
					arrPostion[0] = lrow;
                    grdf_setStatus(grd_rcptlist, "I", arrPostion);
                    //grd_rcptlist.addStatus(lrow, "insert");
                }

            }
        }
        else
        {
            if (tmpTotalCopies > 0)
            {
            
                var currentdate = utlf_getCurrentDate();
                var lrow = ds_grd_rcptlist.addRow();
                    
                ds_grd_rcptlist.setColumn(lrow, "prcpstatcd", ds_grd_tmprcptlist.getColumn(0, "prcpstatcd"));
                        
                ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_DefCalcscorcd);
                ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_DefCalcscorcdnm);
                
                ds_grd_rcptlist.setColumn(lrow, "prcpqty", 1);
                ds_grd_rcptlist.setColumn(lrow, "unitcost", ds_temp_picmmech.getColumn(0, "picmmech_unitcost"));
                ds_grd_rcptlist.setColumn(lrow, "rcptyn", ds_grd_tmprcptlist.getColumn(0, "rcptyn"));
                
                ds_grd_rcptlist.setColumn(lrow, "prcpno", ds_grd_tmprcptlist.getColumn(0, "prcpno"));
                ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_DefCalcscorcd);
                ds_grd_rcptlist.setColumn(lrow, "prcphistno", ds_grd_tmprcptlist.getColumn(0, "prcphistno"));
                
                ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
                ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
                ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));
                
                ds_grd_rcptlist.setColumn(lrow, "shtno", tmpTotalCopies);
                ds_grd_rcptlist.setColumn(lrow, "oldshtno", ds_grd_tmprcptlist.getColumn(0, "oldshtno"));
                
                ds_grd_rcptlist.setColumn(lrow, "prcpdd", ds_grd_tmprcptlist.getColumn(0, "prcpdd"));
                
                ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));
                ds_grd_rcptlist.setColumn(lrow, "prcptims", 1);
                
                ds_grd_rcptlist.setColumn(lrow, "oldprcptims", ds_grd_tmprcptlist.getColumn(0, "oldprcptims"));
                
                // 처방코드(임시로 수가코드로 함)
                ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
                
                
                ds_grd_rcptlist.setColumn(lrow, "issseqno", ds_main_appinfo_copyinfo.getColumn(0, "issseqno"));
                ds_grd_rcptlist.setColumn(lrow, "issno", ds_main_appinfo_copyinfo.getColumn(0, "issno"));
        
				var arrPostion = new Array();
				arrPostion[0] = lrow;
				grdf_setStatus(grd_rcptlist, "I", arrPostion);
                //grd_rcptlist.addStatus(lrow, "insert");
            }
        }
    }
    //Event On
    ds_grd_rcptlist.enableevent = true;
}

function fSugaCalc()
{
sysf_trace("***** fSugaCalc() *****");
    if(g_inputbox == "Y") // 수가가 기본, 추가 수가코드로 이루어진 경우
    {
		var lrow = ds_grd_apphist.rowposition;
        ds_send_search.setColumn(0, "issno", ds_grd_apphist.getColumn(lrow, "issno"));
  	
      	var issno = ds_grd_apphist.getColumn(lrow, "issno");
sysf_trace("fSugaCalc issno : " + issno );      	
        if(ds_grd_rcptlist.rowcount > 0 && utlf_isNull(issno))
        {
            //Event Off
			ds_grd_rcptlist.enableevent = false;

            // 매수 * 부수 입력창
            var shtno1 = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno"));
            var copies1 = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
            var total1 = shtno1 * copies1;
              
            var shtno2 = 0;
            var copies2 = 1;
            var total2 = 0;
            
            for(var idx = 0; idx < ds_grd_rcptlist.rowcount; idx++)
            {
                shtno2 += eval(ds_grd_rcptlist.getColumn(idx, "shtno"));
            }
            total2 = shtno2 * copies2;
            
            if(total1 < total2) // 그리드의 총 장수에 비해 입력한 매수*부수의 결과가 작은경우
            {
                // 그리드가 2줄인 경우 한줄을 삭제하고 기본으로 미리 세팅한다.
                if(ds_grd_rcptlist.rowcount > 1)
                {
                    //model.removeNodeset("/root/main/rcptlist/rcptlist[" + (grd_rcptlist.rows-grd_rcptlist.fixedrows) + "]");
                    ds_grd_rcptlist.deleteRow(ds_grd_rcptlist.rowcount - 1);
                }
                
                // 기본 수가로 설정
                var iRow = ds_grd_rcptlist.rowcount - 1;
               
                ds_grd_rcptlist.setColumn(iRow, "shtno", g_DefCnt);  			
          	    //ds_grd_rcptlist.setColumn(iRow, "shtno", "1");    // HCDD027 의 경우 매수를 10으로 하면 30000원이 계산됨.
          		ds_grd_rcptlist.setColumn(iRow, "calcscornm", "의무기록사본발행");
          		ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
          		ds_grd_rcptlist.setColumn(iRow, "prcpqty", "1");
          			
          		ds_grd_rcptlist.rowposition = 0;
          		var arrPostion = new Array();
				arrPostion[0] = 0;
          		grdf_setStatus(grd_rcptlist, "I", arrPostion);
          		//grd_rcptlist.rowStatus(1) = 1;
            }
            
            //Event Off
			ds_grd_rcptlist.enableevent = true;
			
            return 1; 
        } 
    }
}

function fChangeStatus()
{  
sysf_trace("***** fChangeStatus() *****");
	//Event Off
	ds_grd_rcptlist.enableevent = false;
	
	var lrow = ds_grd_apphist.rowposition;
	ds_send_search.setColumn(0, "issno", ds_grd_apphist.getColumn(lrow, "issno"));
	
	var issno = ds_grd_apphist.getColumn(lrow, "issno");
sysf_trace("***** fChangeStatus() issno : " + issno + "*****");	
	// 발행번호가 있는 경우 --> 수정으로 들어갈때
  if(!utlf_isNull(issno))
  {
    // 매수 * 부수 입력창
    var shtno1 = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalshrtno"));
    var copies1 = eval(ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies"));
    var NewTotal = shtno1 * copies1;
    
    var shtno2 = 0;
    var copies2 = 1;
    var OldTotal = 0;
    
    for(var idx = 0; idx < ds_grd_tmprcptlist.rowcount; idx++)
    {
      shtno2 += eval(ds_grd_rcptlist.getColumn(idx, "shtno"));
    }
    
    OldTotal = shtno2 * copies2;
    
    // 1) 이미 발행된 사본의 총 장수가 10장 미만인 경우 그리드는 1줄
    if(parseInt(OldTotal) <= parseInt(g_DefCnt))
    {
      var iRow = ds_grd_rcptlist.rowcount - 1;
      
      // 새로 입력받은 사본의 총 장수가 10장 미만(처방 그리드는 1줄이며, 매수를 기본으로 변경해주고 그리드 상태값을 변경)
      if(parseInt(NewTotal) <= parseInt(g_DefCnt))   
      {
  			ds_grd_rcptlist.setColumn(iRow, "shtno", NewTotal);
  			ds_grd_rcptlist.setColumn(iRow, "calcscornm", "의무기록사본발행");
  			ds_grd_rcptlist.setColumn(iRow, "defyn", "DEF");
  			ds_grd_rcptlist.setColumn(iRow, "prcpqty", "1");
  			
  			ds_grd_rcptlist.rowposition = 0;
  			var arrPostion = new Array();
			arrPostion[0] = 0;
  			grdf_setStatus(grd_rcptlist, "U", arrPostion);
  			 //grd_rcptlist.rowStatus(1) = 2;  // UPDATE
      }
      else  // 새로 입력받은 사본의 총 장수가 10장 이상이 되서 처방 그리드가 2줄이 되는 경우
      {
        var issgoalcd = ds_main_appinfo_copyinfo.getColumn(0, "issgoalcd");
  				
        // 06: 직할병원 - 수가코드(HCDD001)
        if(issgoalcd == "06" && !utlf_isNull(g_FreeCalcscorcd))
        {
          ds_grd_rcptlist.setColumn(lrow, "calcscorcd", g_FreeCalcscorcd);
          ds_grd_rcptlist.setColumn(lrow, "calcscornm", g_FreeCalcscorcdnm);
          // 처방코드(임시로 수가코드로 함)
          ds_grd_rcptlist.setColumn(lrow, "prcpcd", g_FreeCalcscorcd);
        }
        else
        {
			var lrow = ds_grd_rcptlist.rowcount - 1;
sysf_trace("	parseInt(NewTotal) <= parseInt(g_DefCnt)     else : 	issgoalcd == 06 && !utlf_isNull(g_FreeCalcscorcd else : " + lrow);	
			var arrPostion = new Array();
			arrPostion[0] = lrow-1;
            grdf_setStatus(grd_rcptlist, "U", arrPostion);
            arrPostion[0] = lrow;
            grdf_setStatus(grd_rcptlist, "I", arrPostion);
//          ds_grd_rcptlist.addStatus(lrow-1, "update");
// 	        ds_grd_rcptlist.addStatus(lrow, "insert");
        }					   
      }
    }
    else  // 2) 이미 발행된 사본의 총 장수가 10장 이상이 되는 경우
    {
      var iRow = ds_grd_rcptlist.rowcount - 1;
      
      // 새로 입력받은 사본의 총 장수가 10장 미만(처방 그리드는 2줄인 상태에서 상태값을 변경)
      if(parseInt(NewTotal) <= parseInt(g_DefCnt))
      {
			// 첫번째 그리드는 매수 수정
			ds_grd_rcptlist.rowposition = 0;

			var lrow = ds_grd_rcptlist.rowposition;
			var arrPostion = new Array();
			arrPostion[0] = lrow;
			grdf_setStatus(grd_rcptlist, "U", arrPostion);
			//grd_rcptlist.rowStatus(lrow) = 2;  // UPDATE

			ds_grd_rcptlist.setColumn(lrow, "shtno", NewTotal);
			ds_grd_rcptlist.setColumn(lrow, "calcscornm", "의무기록사본발행");
			ds_grd_rcptlist.setColumn(lrow, "defyn", "DEF");
			ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");

			// 2번째 그리드는 삭제 상태로 변경
			var arrPostion = new Array();
			arrPostion[0] = (parseInt(lrow)+1);
			grdf_setStatus(grd_rcptlist, "D", arrPostion);
			//grd_rcptlist.rowStatus( (parseInt(lrow)+1) ) = 4;  // DELETE
      }
      else  // 새로 입력받은 사본의 총 장수가 10장 이상(처방 그리드는 이미 2줄이므로 HCDD030 수가의 prcpqty를 변경)
      {
			// 첫번째 그리드는 그대로 둔 상태에서 추가 수가 부분만 매수를 변경하고 그리드 상태를 업데이트로 변경
			ds_grd_rcptlist.rowposition = 1;

			var lrow = ds_grd_rcptlist.rowposition;

			ds_grd_rcptlist.setColumn(lrow, "shtno", parseInt(NewTotal) - parseInt(g_DefCnt));
			ds_grd_rcptlist.setColumn(lrow, "prcpqty", parseInt(NewTotal) - parseInt(g_DefCnt));
			ds_grd_rcptlist.setColumn(lrow, "defyn", "ADD");

			if(ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies") == 0){
				ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", 1);
			}else{
				var Tmpappcopies = ds_temp2_appinfo_copyinfo.getColumn(0, "totalcopies");
				ds_main_appinfo_copyinfo.setColumn(0, "emrappcopies", Tmpappcopies);
			}
				
			if(g_DefCalcscorcd != "HCDD027")
				ds_grd_rcptlist.setColumn(lrow, "prcptims", ds_main_appinfo_copyinfo.getColumn(0, "emrappcopies"));
			else
				ds_grd_rcptlist.setColumn(lrow, "prcptims", "1");
			  
			ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));

			// 기존에 발행된 내역이 1줄(10매 미안)이었다가 10매 이상이 되어 변경한 후 다시 10매 이상으로 변경하는 경우)
			// 2번째 row의 상태를 insert로 두기 위함.
			
			var arrPostion = new Array();
			arrPostion[0] = lrow;
			grdf_setStatus(grd_rcptlist, "U", arrPostion);
  			//grd_rcptlist.rowStatus(lrow) = 2;  // UPDATE
      }
    }    
  } 
  
  //Event On
	ds_grd_rcptlist.enableevent = true;
}


function fSetSugaCode()
{
sysf_trace("***** fSetSugaCode() *****");
	lf_getHardCDList("N", 77, null, ds_hidden_calcscorcd);	//의무기록사본발행수가코드
        
	lf_getHardCDList("N", 1004, null, ds_hidden_tmpcalcscorcd); //의무기록사본발행수가코드
	
        
  // 2009.05.11 이경희
  // 기본수가, 추가수가로 변경
  	      	
	for(var idx = 0; idx < ds_hidden_tmpcalcscorcd.rowcount; idx++)
	{
	  
	  var arrCalcscorcd = ds_hidden_tmpcalcscorcd.getColumn(idx, "hardcd").split("|");
	  
	  if(arrCalcscorcd[0] == "DEF")  // 기본 수가코드
	  {
	    g_DefCalcscorcd = arrCalcscorcd[1];
	    
	    g_DefCalcscorcdnm = ds_hidden_tmpcalcscorcd.getColumn(idx, "hardcdnm");
	    
	    ds_hidden.setColumn(0, "defcalcscorcd", g_DefCalcscorcd);
	    ds_hidden.setColumn(0, "defcalcscorcdnm", g_DefCalcscorcdnm);
	    
	    g_DefCnt = arrCalcscorcd[2];
	  }
	  
	  if(arrCalcscorcd[0] == "ADD")  // 추가 수가코드
	  {
	    g_AddCalcscorcd = arrCalcscorcd[1];
	    
	    g_AddCalcscorcdnm = ds_hidden_tmpcalcscorcd.getColumn(idx, "hardcdnm");
	    
	    ds_hidden.setColumn(0, "addcalcscorcd", g_AddCalcscorcd);
	    ds_hidden.setColumn(0, "addcalcscorcdnm", g_AddCalcscorcdnm);
	    
	    g_AddCnt = arrCalcscorcd[2];

	  }
	  
	  if(arrCalcscorcd[0] == "FREE")  // 무료 수가코드
	  {
      g_FreeCalcscorcd = arrCalcscorcd[1];
      
      g_FreeCalcscorcdnm = ds_hidden_tmpcalcscorcd.getColumn(idx, "hardcdnm");
	    
	    ds_hidden.setColumn(0, "freecalcscorcd", g_FreeCalcscorcd);
	    ds_hidden.setColumn(0, "freecalcscorcdnm", g_FreeCalcscorcdnm);
	    
	    g_FreeCnt = g_FreeCalcscorcd[2];
	  }
  }  


  // 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트)
  lf_getHardCDList("N", 1201, null, ds_hidden_colorcalcscoryn); //1201 : 의무기록 사본발행 진료기록 컬러복사 수가코드 사용여부   
  lf_getHardCDList("N", 1202, null, ds_hidden_colorcalcscorcd); //1202 : 의무기록 사본발행 진료기록 컬러복사 수가코드

  var colorcalcscoryn =  ds_hidden_colorcalcscoryn.getColumn(0, "hardcd");
  var colorcalcscorcd =  ds_hidden_colorcalcscorcd.getColumn(0, "hardcd");
  if (colorcalcscoryn == "Y")
  {
	btn_colorcalcscoryn.visible = true;
  }
        
}

function fDispMidForm(idx)
{
sysf_trace("***** fDispMidForm *****");
	var supitemindxseq = ds_grd_inpat.getColumn(idx, "supitemindxseq");
	var midindxseq = ds_grd_inpat.getColumn(idx, "midindxseq");
	var emrflag = ds_grd_inpat.getColumn(idx, "emrflag");
	
	if(emrflag == "I") { // 구영상
		
		ds_imgrec_iemr.clearData();
		ds_imgrec_iemr.addRow();
		
		iviewerIemr.resetInstance_EMR();

		ds_imgrec_iemr.setColumn(0, "treatno", ds_grd_inpat.getColumn(idx, "midindxseq"));
		ds_imgrec_iemr.setColumn(0, "docucd", ds_grd_inpat.getColumn(idx, "supitemindxseq"));
		
		var iemrNode = ds_imgrec_iemr;
		
		iviewerIemr.searchChart(iemrNode);
		
		if (iviewerIemr.downloadChart() == true)
		{
			// 뷰어 모드 유지 기능 추가 - 20080417
			var ViewMode;
			ViewMode = iviewerIemr.hidden_currentViewMode;
	
			if (utlf_isNull(ViewMode))
			{
				iviewerIemr.setupChartCopy("ChartView");
			}
			else
			{
				iviewerIemr.setupChartCopy(ViewMode);
			}
		}
	}
	else
	{
		ds_send.clearData();
		ds_send.addRow();
		
		ds_send.setColumn(0, "pid"				, ds_grd_inpat.getColumn(idx, "pid"));
		ds_send.setColumn(0, "orddd"			, ds_grd_inpat.getColumn(idx, "orddd"));
		ds_send.setColumn(0, "cretno"			, ds_grd_inpat.getColumn(idx, "cretno"));
		ds_send.setColumn(0, "chosflag"			, "I" );
		ds_send.setColumn(0, "tabflag"			, "ALL" );
		ds_send.setColumn(0, "recall"			, "Y" );
		ds_send.setColumn(0, "orddeptcd"		, ds_grd_inpat.getColumn(idx, "orddeptcd"));
		ds_send.setColumn(0, "reckind"			, ds_grd_inpat.getColumn(idx, "reckind"));
		ds_send.setColumn(0, "itemindxseq"		, ds_grd_inpat.getColumn(idx, "midindxseq"));
		ds_send.setColumn(0, "lisflag"			, ds_grd_inpat.getColumn(idx, "lisflag"));
		//2009-11-04 오후 1:29:15 강지훈 수정 : 오픈전 미시행검사처방 처리 관련 수정
		ds_send.setColumn(0, "midbftest"		, ds_grd_inpat.getColumn(idx, "midbftest"));
		ds_send.setColumn(0, "scrnid"			, "SMMRC03000" );
		ds_send.setColumn(0, "addimageyn"		, ds_main_otherinfo.getColumn(0, "addimageyn"));			
		
		dsf_setDefaultVal(ds_send, "recall:N,reckind:EMR,fromprcpdd:'',toprcpdd:'',pagingyn:N,pagingfromdd:'',pagingtodd:'',privateyn:N");
		
		//xp code add : col id change!!!execprcpuniqno
		if( !utlf_isNull(ds_tmpinicert_iniinfo.getColumnInfo("cmc_orderseqno")))
			ds_tmpinicert_iniinfo.updateColID("cmc_orderseqno", "execprcpuniqno");
		
		var oParam = {};
			oParam.id       = "TRMRI03004";
			oParam.service  = "recmngtapp.IntegrityRec";
			oParam.method   = "reqGetRecDetailInfoByCondFlag";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_tmpinicert_iniinfo=iniinfo";
			oParam.async    = false;
			oParam.callback = "cf_TRMRI03004";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMRI03004") > -1){

			if( ds_main_otherinfo.getColumn(0, "addimageyn") != "Y" ){
				iviewerIemr.cleanViewer();
				ds_tmpinicert2_iniinfo.clearData();
				
				var noimg = "";
			  	var imgarray = "";
				var certcnt = ds_tmpinicert_iniinfo.rowcount;
				
				for(var a = 0; a < certcnt ; a++ ){
					var add_imgflag 		= ds_tmpinicert_iniinfo.getColumn(a, "imgflag");
					var add_formcd 			= ds_tmpinicert_iniinfo.getColumn(a, "formcd");
					var add_formprogflag 	= ds_tmpinicert_iniinfo.getColumn(a, "formprogflag");
					
					if( !utlf_isNull(add_imgflag) ){
						if( add_imgflag != "N" && add_formcd != "Z001" &&  add_formprogflag != "IMG" ){
							if( a == 0 ){
								noimg = ds_tmpinicert_iniinfo.getColumn(a, "signno"); 
							}else{
								noimg = noimg + "*" + ds_tmpinicert_iniinfo.getColumn(a, "signno");	
							}
						}
					}
				}
				imgarray = noimg.split("*");
				for(var i = 0; i < imgarray.length ; i++ ){
					for(var j = 0; j < certcnt ; j++ ){
						if( imgarray[i] == ds_tmpinicert_iniinfo.getColumn(j, "signno") ){
							ds_tmpinicert_iniinfo.deleteRow(j);	
						}
					}
				}    		
			}
			
		    ds_tmpinicert2_iniinfo.copyData(ds_tmpinicert_iniinfo);
			fEmrImgRec();
		}								
	}
}

function fDispAllForm(){
sysf_trace("***** fDispAllForm() *****");
    var supitemindxseq = "";
    var midindxseq = "";
    var emrflag = "";
    	
    var imgtret = "";
    var imgformcd = "";
    
    for(var idx = 0; idx < ds_grd_inpat.rowcount; idx++)
    {
        supitemindxseq = ds_grd_inpat.getColumn(idx, "supitemindxseq");
    	midindxseq = ds_grd_inpat.getColumn(idx, "midindxseq");
    	emrflag = ds_grd_inpat.getColumn(idx, "emrflag");

    	if(emrflag == "I")
    	{ // 구영상
    	    iviewerIemr.resetInstance_EMR();    	    
    	    imgtret = ds_grd_inpat.getColumn(idx, "midindxseq");
            imgformcd = ds_grd_inpat.getColumn(idx, "supitemindxseq");
            
            var objColInfo = new Array();
			objColInfo.push({col: "signno", type:"string", size:256, val:imgtret});
			objColInfo.push({col: "formcd", type:"string", size:256, val:imgformcd});
			objColInfo.push({col: "imgflag", type:"string", size:256, val:"Y"});
			dsf_createDsRow("ds_initmp_iniinfo", objColInfo);
            //dsf_copyDs(ds_tmpinicert2_iniinfo, ds_initmp_iniinfo, "after");
            ds_tmpinicert2_iniinfo.appendData(ds_initmp_iniinfo);
            //copyNodeset("/root/tmpinicert2/iniinfo", "/root/initmp/iniinfo", "append");
            dsf_deleteDs("ds_initmp_iniinfo");
    	}
    	else
    	{
    		ds_send.clearData();
			ds_send.addRow();
			
			ds_send.setColumn(0, "pid", ds_grd_inpat.getColumn(idx, "pid"));
    		ds_send.setColumn(0, "orddd", ds_grd_inpat.getColumn(idx, "orddd"));
    		ds_send.setColumn(0, "cretno", ds_grd_inpat.getColumn(idx, "cretno"));
    		ds_send.setColumn(0, "chosflag", "I");
    		ds_send.setColumn(0, "tabflag", "ALL");
    		ds_send.setColumn(0, "recall", "Y");
    		ds_send_reqdata.setColumn(0, "scrnid"	, "SMMRC03000" );
    		ds_send.setColumn(0, "addimageyn"	, ds_main_otherinfo.getColumn(0, "addimageyn"));    		
    		ds_send.setColumn(0, "orddeptcd", ds_grd_inpat.getColumn(idx, "orddeptcd"));
    		ds_send.setColumn(0, "reckind", ds_grd_inpat.getColumn(idx, "reckind"));
    		ds_send.setColumn(0, "itemindxseq", ds_grd_inpat.getColumn(idx, "midindxseq"));
    		ds_send.setColumn(0, "lisflag", ds_grd_inpat.getColumn(idx, "lisflag"));
    		ds_send.setColumn(0, "midbftest", ds_grd_inpat.getColumn(idx, "midbftest"));
    		
    		
    		dsf_setDefaultVal(ds_send, "recall:N,reckind:EMR,fromprcpdd:'',toprcpdd:'',pagingyn:N,pagingfromdd:'',pagingtodd:'',privateyn:N");
		
			//xp code add : col id change!!!execprcpuniqno
			if( !utlf_isNull(ds_tmpinicert_iniinfo.getColumnInfo("cmc_orderseqno")))
				ds_tmpinicert_iniinfo.updateColID("cmc_orderseqno", "execprcpuniqno");
			
			var oParam = {};
				oParam.id       = "TRMRI03004";
				oParam.service  = "recmngtapp.IntegrityRec";
				oParam.method   = "reqGetRecDetailInfoByCondFlag";
				oParam.inds     = "req=ds_send";
				oParam.outds    = "ds_tmpinicert_iniinfo=iniinfo";
				oParam.async    = false;
				oParam.callback = "cf_TRMRI03004";

			tranf_submit(oParam);
			//one transaction으로 변경해야함.
			if(arErrorCode.pop("TRMRI03004") > -1){
    		
    			if( ds_main_otherinfo.getColumn(0, "addimageyn") != "Y" ){
    				var noimg = "";
    			  	var imgarray = "";
    				var certcnt = ds_tmpinicert_iniinfo.rowcount;
    				
    				for(var a = 0; a < certcnt ; a++ ){
    					var add_imgflag = ds_tmpinicert_iniinfo.getColumn(a, "imgflag");
    					var add_formcd = ds_tmpinicert_iniinfo.getColumn(a, "formcd");
    					var add_formprogflag = ds_tmpinicert_iniinfo.getColumn(a, "formprogflag");
    					
    					if( !utlf_isNull(add_imgflag) ){
    						if( add_imgflag != "N" && add_formcd != "Z001" &&  add_formprogflag != "IMG" ){    					
	    						if( a == 0 ){
	    							noimg = ds_tmpinicert_iniinfo.getColumn(a, "signno"); 
	    						}else{
	    							noimg = noimg + "*" + ds_tmpinicert_iniinfo.getColumn(a, "signno");	
	    						}
    						}
    					}
    				}
    				
    				imgarray = noimg.split("*");
    				for(var i = 0; i < imgarray.length ; i++ ){
    					for(var j = 0; j < certcnt ; j++ ){
    						if( imgarray[i] == ds_tmpinicert_iniinfo.getColumn(j, "signno") ){
    							ds_tmpinicert_iniinfo.deleteRow(j);	
    						}
    					}
    				}    		
    			}   		
                //dsf_copyDs(ds_tmpinicert2_iniinfo, ds_tmpinicert_iniinfo, "after");
                ds_tmpinicert2_iniinfo.appendData(ds_tmpinicert_iniinfo);
    		}								
    	}
    }
    
    fEmrImgRec();
}

function fMidIndxSet(val)
{
sysf_trace("***** fMidIndxSet("+val+") *****");
    var curs = ds_grd_inapplist.rowposition;
  	var pid = ds_grd_inapplist.getColumn(curs, "pid");
    var indd = ds_grd_inapplist.getColumn(curs, "indd");
    var cretno = ds_grd_inapplist.getColumn(curs, "cretno");
    var orddeptcd = ds_grd_inapplist.getColumn(curs, "orddeptcd");
    var subNode = "";
    //var midNodes = instance1.selectNodes("/root/main/midissinfo/emrapplist");
    
    for(var i = 0; i < ds_grd_inpat.rowcount; i++)
    {
		if(ds_grd_inpat.getColumn(i, "pid") == pid
		&& ds_grd_inpat.getColumn(i, "orddd") == indd
		&& ds_grd_inpat.getColumn(i, "cretno") == cretno
		&& ds_grd_inpat.getColumn(i, "orddeptcd") == orddeptcd)
		{
			ds_grd_inpat.setColumn(i, "chk", val);
		}
    }
}

function fAddDetailContents()
{
sysf_trace("***** fAddDetailContents() *****");
	try
	{
		var OldDeliverect = ds_main_appinfo_copyinfo.getColumn(0, "delivefact");
		var NewDeliverect = "";
		
		if(!utlf_isNull(OldDeliverect))
		{
			NewDeliverect += OldDeliverect;
		}
		var tmpStr = iviewerIemr.fGetSelectChrtName(OldDeliverect);
		
		if(!utlf_isNull(tmpStr))
		{
			NewDeliverect += tmpStr;
			
			ds_main_appinfo_copyinfo.setColumn(0, "delivefact", NewDeliverect);
		}
	}		
	catch(e)
	{
	}
}

function fPrntDetailContents(category)
{
sysf_trace("***** fPrntDetailContents("+category+") *****");
	try
	{
		var finalformnm = category;
		
		//2012/03/13 Start
		for(var i=0; i=ds_temp_hardcd2.rowcount; i++){
			if(ds_temp_hardcd2.getColumn(i, "hardcd")==sysf_getUserInfo("dutplceinstcd")){
				var contents = ds_main_appinfo_copyinfo.getColumn(0, "delivefact");
			}else if(ds_temp_hardcd2.getColumn(i, "hardcd")!=sysf_getUserInfo("dutplceinstcd")){
				if(!utlf_isNull(after_delivefact)){
					var contents=after_delivefact;
				}else{
					var contents = ds_main_appinfo_copyinfo.getColumn(0, "delivefact");
				}
			}
		}
		//2012/03/13 End

		var contentsArr = "";
		
		if(!utlf_isNull(contents))
		{
			contentsArr = contents.split("\n");
						
			for(var idx = 0; idx < contentsArr.length; idx++)
			{
				if(!utlf_isNull(contentsArr[idx]))
				{
					finalformnm += contentsArr[idx];
					
					//2012/08/23 Start
					if(idx==8){
						finalformnm += "\n" + "~이하생략~";
						break;
					}
					//2012/08/23 End
				
					if((idx + 1) != contentsArr.length)
						finalformnm += ", ";
				}
			}
		}
		
		if(finalformnm.substring( (finalformnm.length - 2), finalformnm.length ) == ", ")
		{
			finalformnm = finalformnm.substring( 0, (finalformnm.length - 2) );
		}
		
		return finalformnm;
	}
	catch(e)
	{
	}
	
}




// 2010.04.26. 이은영 -> 컬러복사 수가 적용 (017:빈센트)
function fAddColorCalcScor() {
sysf_trace("***** fAddColorCalcScor() *****");
		var colorcalcscorcd =  ds_hidden_colorcalcscorcd.getColumn(0, "hardcd");
		var colorcalcscornm =  ds_hidden_colorcalcscorcd.getColumn(0, "hardcdnm");

		for (var i=0; i < ds_grd_rcptlist.rowcount ; i++)
		{
			var calcscorcd = ds_grd_rcptlist.getColumn(i, "calcscorcd");
			if (calcscorcd == colorcalcscorcd) {
				var Msg = sysf_messageBox("수가코드 추가가 불", "I006");
				return;
			}
		}
		if (i == ds_grd_rcptlist.rowcount) {
			//Event Off
			ds_grd_rcptlist.enableevent = false;
	
			var currentdate = utlf_getCurrentDate();
			var lrow = ds_grd_rcptlist.addRow();	
			
			ds_grd_rcptlist.setColumn(lrow, "calcscorcd", colorcalcscorcd);
			ds_grd_rcptlist.setColumn(lrow, "calcscornm", colorcalcscornm);
			// 처방코드(임시로 수가코드로 함)
			ds_grd_rcptlist.setColumn(lrow, "prcpcd", colorcalcscorcd);		
			ds_grd_rcptlist.setColumn(lrow, "unitcost", "");

			ds_grd_rcptlist.setColumn(lrow, "prcpdd", currentdate);
			ds_grd_rcptlist.setColumn(lrow, "prcpno", "0");
			ds_grd_rcptlist.setColumn(lrow, "prcphistno", "0");

			ds_grd_rcptlist.setColumn(lrow, "pid", ds_main_appinfo_copyinfo.getColumn(0, "pid"));
			ds_grd_rcptlist.setColumn(lrow, "orddd", ds_main_appinfo_copyinfo.getColumn(0, "orddd"));
			ds_grd_rcptlist.setColumn(lrow, "cretno", ds_main_appinfo_copyinfo.getColumn(0, "cretno"));

			ds_grd_rcptlist.setColumn(lrow, "shtno", "1");
			ds_grd_rcptlist.setColumn(lrow, "oldshtno", "1");
			ds_grd_rcptlist.setColumn(lrow, "prcpqty", "1");
			ds_grd_rcptlist.setColumn(lrow, "prcptims", "1");
			ds_grd_rcptlist.setColumn(lrow, "oldprcptims", "1");

			ds_grd_rcptlist.setColumn(lrow, "copyseqno", ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"));

			ds_grd_rcptlist.setColumn(lrow, "issseqno", ds_main_appinfo_copyinfo.getColumn(0, "issseqno"));
			ds_grd_rcptlist.setColumn(lrow, "issno", ds_main_appinfo_copyinfo.getColumn(0, "issno"));

			ds_grd_rcptlist.setColumn(lrow, "defyn", "ADD");
			
			var arrPostion = new Array();
			arrPostion[0] = lrow;
			grdf_setStatus(grd_rcptlist, "I", arrPostion);
			//grd_rcptlist.addStatus(lrow, "insert");
			
			//Event On
			ds_grd_rcptlist.enableevent = true;
		} 
}





/**
 * @desc   : 마우스 오른쪽 버튼 팝업창
 * @		
 * @param  : 기본수가추가 (fAddCalcScor), 컬러수가추가 (fAddColorCalcScor), 수가삭제 (fDelCalcScor)
 * @return :
 * @authur : 이은영 2010.04.26
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopup(gridObj, e)
{
sysf_trace("fMouseRghtBtnPopup(gridObj, e)");
	var oDs = this.objects[gridObj.binddataset];
	if( oDs.rowcount < 1 ) return;
	if( e.row < 0 || e.col < 0 ) return;
	
	
	popupmenu00.trackPopup(e.screenX,e.screenY);
	
}

/**
 * @desc   : 마우스 오른쪽 버튼 팝업창
 * @		
 * @param  : 기본수가추가 (fAddCalcScor)
 * @return :
 * @authur : 이은영 2010.04.26
 * @---------------------------------------------------
 */
function fAddCalcScor() {
sysf_trace("***** fAddCalcScor() *****");
	var RecPrcpCd = ds_hidden_calcscorcd.getColumn(0, "hardcd"); // 의무기록 사본발행 기본수가코드

	for (var i=0; i < ds_grd_rcptlist.rowcount ; i++)
	{
		var calcscorcd = ds_grd_rcptlist.getColumn(i, "calcscorcd");
		if (calcscorcd == RecPrcpCd) {
			var Msg = sysf_messageBox("수가코드 추가가 불", "I006");
			return;
		}
	}
	if (i == ds_grd_rcptlist.rowcount) {
		fIssSearch();
	} 
}

/**
 * @desc   : 마우스 오른쪽 버튼 팝업창
 * @		
 * @param  : 수가삭제 (fDelCalcScor)
 * @return :
 * @authur : 이은영 2010.04.26
 * @---------------------------------------------------
 */
function fDelCalcScor() {
sysf_trace("***** fDelCalcScor() *****");
	var row = ds_grd_rcptlist.rowposition; 
	if (row > -1) {
		var rowstatus = ds_grd_rcptlist.rowstatus(row); 
		//  rowstatus => 0 :empty  1 : normal  2 : insert  4 : update  8 : delete  16 : group
		if (rowstatus == "2") {
			var Msg = sysf_messageBox("선택하신 수가코드를", "Q001");
			if(Msg=="6"){
				ds_grd_rcptlist.deleteRow(row);
			}
		} else {
			var Msg = sysf_messageBox("수가코드 삭제가 불", "I006");
			return;
		}
	}
}

/**
* 이전사본발행내역에서 발행내역 삭제
*/
function fdeletecopy(){
sysf_trace("***** fdeletecopy() *****");
	    var issno = ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "issno");
        if(!utlf_isNull(issno)){
        	alert("이미 발행된 사본내역은 삭제 불가능합니다");
        	return;
        }else if(utlf_isNull(issno)){
        	var chk=sysf_messageBox("신청 내역을 삭제하시겠습니까? ", "S001", ""); //예:6  아니오:7  취소:2
        	if(chk=="6"){
				ds_send_reqdata.setColumn(nRow, "copyseqno", ds_grd_apphist.getColumn(ds_grd_apphist.rowposition, "copyseqno"));
	        	ds_send_reqdata.setColumn(nRow, "lastupdtrid", sysf_getUserInfo("userid"));
	        	
	        	var oParam = {};
					oParam.id       = "TXMRC01310";
					oParam.service  = "chrtmngtapp.ChrtRendMngt";
					oParam.method   = "setUpdateCopyState";
					oParam.inds     = "req=ds_send_reqdata";
					//oParam.outds    = "null";
					oParam.async    = false;
					oParam.callback = "cf_TXMRC01310";

				tranf_submit(oParam);
	        	
        	    fAppCopyInfoClear();
	        	
	        	//사본발행 수가입력쪽 삭제
	        	
	        	ds_grd_rcptlist.clearData();
	        	ds_grd_rcptlist.applyChange();
	        	ds_temp2_appinfo_copyinfo.clearData();
	        	ds_temp2_appinfo_copyinfo.addRow();
	        	ds_main.clearData();
	        	ds_main.addRow();
	        	
// 	        	model.resetInstanceNode("/root/main/rcptlist");
// 	        	model.resetInstanceNode("/root/temp2/appinfo/copyinfo");
// 	        	model.resetInstanceNode("/root/main/delivefactcnt");
	        	
	        	// 이전사본발행내역에서 내역을 삭제한 후 reload
	        	fReqGetBfCopyIssHistList(ipt_pid.text);
	        	
	        	alert("삭제되었습니다");
	        	
        	}
        }

}


/**
 *  서 식  Header & Footer 정의    2013.08.26 CYW 
 * @param srcformcd
 * @returns
 */
function MakerHeaderNFooter( srcformcd , formprogflag , mainyn ){
sysf_trace("***** MakerHeaderNFooter( "+srcformcd+" , "+formprogflag+" , "+mainyn+" ) *****")

	var instcd = sysf_getUserInfo("dutplceinstcd");
	var formcd = srcformcd;	// 서식코드
	
	var cover_header = "";
	var cover_header_start = "";
	var cover_header_txt = "";
	var cover_header_end = "";
	
	var cover_footer = "";
	var cover_footer_start = "";
	var cover_footer_txt = "";
	var cover_footer_end = "";
	
	var body_header = "";
	var body_footer  = "";
	
	//var logo = "com/commonweb/images/logo_lctech.png";
	var logo = "IMAGES/emr/MN/logo_lctech.png";

	// Cover Header 부분 ---------------------------------------------------------------------------------------------------    
	cover_header_start ="<HTML>                                                                                  		" +
					"\n<BODY style='margin: 0;'>                                                                  		" +
					"\n<TABLE cellspacing='0' width='100%'>                                                     " +
					"\n<TR>                                                                                       			" +
					"\n	<TD width='65%'>                                                                         		" +
					"\n		<TABLE style='width=100%; font-family: 맑은 고딕;'>                            " +
					"\n		<TR>                                                                                    			" +
					"\n			<TD>                                                                                  		" +
					"\n				<IMG SRC='" + logo + "' />            											" +
					"\n			</TD>                                                                                 		" +
					"\n		</TR>                                                                                   		" +
					"\n		<TR>                                                                                    			" +
					"\n			<TD style='font-size: 18pt; text-align: center;'><!--?VAR_CHART_NAME_TOP?--></TD>" +
					"\n		</TR>                                                                                   		" +
					"\n		<TR>                                                                                    			" +
					"\n			<TD style='font-size: 14pt; text-align: center;'><!--?VAR_CHART_NAME_BOTTOM?--></TD>" +
					"\n		</TR>                                                                                   		" +
					"\n		</TABLE>                                                                                		" +
					"\n	</TD>                                                                                     			" +
					"\n	<TD width='35%' style='padding-right: 20px; padding-bottom: 5px'>          " +
					"\n		<DIV style='border-style: solid; border-width: 1px; padding: 5px;'>          " +
					"\n			<TABLE cellspacing='0' width='100%' style='font-family: 맑은 고딕;'> 	" +
					"\n			<TR>                                                                                  		" +
					"\n				<TD style='font-size: 18pt' colspan='2'><!--?VAR_PAT_NUM?--></TD>" +
					"\n			</TR>                                                                                 		" +
					"\n			<TR>                                                                                  		" +
					"\n				<TD style='font-size: 18pt'><!--?VAR_PAT_NAME?--></TD>         " +
					"\n				<TD style='font-size: 14pt'><!--?VAR_TREAT_DEPT?--></TD>       " +
					"\n			</TR>                                                                                 		" +
					"\n			<TR>                                                                                  		" +
					"\n				<TD style='font-size: 12pt'><!--?VAR_PAT_JUMIN_NO?--></TD>   " +
					"\n				<TD style='font-size: 12pt'><!--?VAR_PAT_AGE_SEX?--></TD>      " +
					"\n			</TR>                                                                                 		" +
					"\n			</TABLE>                                                                              	" +
					"\n		</DIV>                                                                                  		" +
					"\n	</TD>                                                                                     			" +
					"\n</TR>                                                                                      			" +
					"\n</TABLE>                                                                                   			" +
					"\n<DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 2px;'>      " +
					"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>          " +
					"\n	<TR>                                                                                      			" +
					"\n		<TD style='width: 50%; text-align: left'><!--?VAR_DATE_HEADER?--></TD>            " +
					"\n		<TD style='width: 15%; text-align: center;'><!--?VAR_DOCTOR_HEADER?--></TD>  " +
					"\n		<TD style='width: 25%; text-align: center;'><!--?VAR_WARD_HEAD?--></TD>         " +
					"\n		<TD style='width: 10%; text-align: right;'><!--?VAR_CLASS?--></TD>     " +
					"\n	</TR>                                                                                     			" +
					"\n	</TABLE>                                                                                  		" +
					"\n</DIV>";							
	cover_header_end = "\n</BODY>"+
								"\n</HTML>";		
																
	// Cover Footer 부분 ---------------------------------------------------------------------------------------------------			
	cover_footer_start = "<HTML>"+
									"\n<BODY style='margin: 0;'>"+
									"\n"+
									"\n<DIV>"+
									"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>"+
									"\n	<TR>";
				
	cover_footer_end = "\n<DIV style='border-top-style: solid; border-width: 2px;'>"+
									"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 11pt; font-weight: bold;'>"+
									"\n	<TR>"+
									"\n		<TD style='width: 20%; text-align: left;  '>페이지:<!--?SYS_PAGE_CURRENT?-->/<!--?SYS_PAGE_TOTAL?--></TD>"+
									"\n		<TD style='width: 40%; text-align: center;'><!--?VAR_PRINT_HEADER?--></TD>"+
									"\n		<TD style='width: 20%; text-align: center;'><!--?VAR_PRINT_NAME?--></TD>"+
									"\n		<TD style='width: 20%; text-align: right; '><!--?VAR_PRINT_DEPT?--></TD>"+
									"\n	</TR>"+
									"\n	</TABLE>"+
									"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 11pt; font-weight: bold;'>"+
									"\n	<TR>"+
									"\n		<TD style='width: 20%; text-align: left;  '></TD>"+
									"\n	</TR>"+
									"\n	</TABLE>"+
									"\n</DIV>"+
									"\n"+
									"\n</BODY>"+
									"\n</HTML>";

	//Body Header 부분 ---------------------------------------------------------------------------------------------------
		body_header = "<HTML>"+
							"\n<BODY style='margin-top: 0; margin-left: 0; margin-right; 0;'>                       		"+
							"\n                                                                                     								"+
							"\n<DIV style='border-top-style: solid; border-bottom-style: solid; border-width: 2px;'>"+
							"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>               	"+
							"\n 	<TR>                                                                              							"+
							"\n		<TD style='width: 10%; text-align: left;  '><!--?VAR_PAT_NUM?--></TD>         "+
							"\n		<TD style='width: 10%; text-align: center;'><!--?VAR_PAT_NAME?--></TD>      "+
							"\n		<TD style='width: 15%; text-align: center;'><!--?VAR_PAT_AGE_SEX?--></TD>   "+
							"\n		<TD style='width: 55%; text-align: center;'><!--?VAR_DATE_HEADER?--></TD>  "+
							"\n		<TD style='width: 10%; text-align: right; '><!--?VAR_CLASS?--></TD>               "+
							"\n	</TR>                                             "+
							"\n	</TABLE>                                         "+
							"\n</DIV>                                               "+
							"\n                                                          "+
							"\n</BODY>                                             "+
							"\n</HTML>";
	// Body Footer 부분 ---------------------------------------------------------------------------------------------------
		body_footer  = "<HTML>"+
							"\n<BODY style='margin: 0;'>                                                                 						"+
							"\n                                                                                          									"+
							"\n<DIV>                                                                                     								"+
							"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>                    		"+
							"\n	<TR>                                                                                     							"+
							"\n		<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>  "+
							"\n		<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> "+
							"\n	</TR>                                                                                    							"+
							"\n	</TABLE>                                                                                 							"+
							"\n</DIV>                                                                                    								"+
							"\n<DIV style='border-top-style: solid; border-width: 2px;'>                                 				"+
							"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 11pt; font-weight: bold;'> "+
							"\n	<TR>                                                                                    								 "+
							"\n		<TD style='width: 20%; text-align: left;  '>페이지:<!--?SYS_PAGE_CURRENT?-->/<!--?SYS_PAGE_TOTAL?--></TD>     "+
							"\n		<TD style='width: 40%; text-align: center;'><!--?VAR_PRINT_HEADER?--></TD>        "+
							"\n		<TD style='width: 20%; text-align: center;'><!--?VAR_PRINT_NAME?--></TD>           "+
							"\n		<TD style='width: 20%; text-align: right; '><!--?VAR_PRINT_DEPT?--></TD>             "+
							"\n	</TR>                                                                               "+
							"\n	</TABLE>                                                                          "+
							"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 11pt; font-weight: bold;'> "+
							"\n	<TR>                                                                                "+
							"\n		<TD style='width: 20%; text-align: left;  '></TD>                 "+
							"\n	</TR>                                                                               "+
							"\n	</TABLE>                                                                          "+
							"\n</DIV>                                                                                "+
							"\n                                                                                          	"+
							"\n</BODY>                                                                    			"+
							"\n</HTML>";

	// ----------------------------------------------------------------------------------------------------------------------	
		if( srcformcd == "0000000003"){ 		//입원초진 
			cover_header_txt = "\n	<DIV>" + 
									  "\n		<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>	" + 
								 	  "\n			<TR><TD style='text-align: left; font-weight: bold;'>입원일자 : <!--?VAR_ORDDATE?--></TD></TR>	" + 
									  "\n			<TR><TD style='text-align: left; font-weight: bold;'>입 원 과 : <!--?VAR_INORDDEPTHNGNM?--></TD></TR> " + 
									  "\n		</TABLE>" + 
									  "\n	</DIV>";
			cover_header = cover_header_start + cover_header_txt + cover_header_end;
      		cover_footer_txt = "\n				<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" + 
      								  "\n				<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
									  "\n			</TR>" +
									  "\n		</TABLE>" +
									  "\n	</DIV>";
      		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
      }else if( srcformcd == "0000000676"){ 		//수술기록
      		cover_header = cover_header_start + cover_header_end;
      		cover_footer_txt = "\n				<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
      								  "\n				<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ Surgeon : <!--?VAR_SURGEON?--></TD>"+
									  "\n		</TR>"+
								 	  "\n		<TR>"+
									  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD>"+
									  "\n		</TR>"+
									  "\n	</TABLE>"+
									  "\n</DIV>";
			cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;      		
      }else if( srcformcd == "0000000679"){ 		//응급실기록
			cover_header_txt =  "\n<DIV>" +
										"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>	" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>진료일자 : <!--?VAR_ORDDATE?--></TD></TR>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>진 료 과 : <!--?VAR_ORDDEPT?--></TD></TR>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'></TD></TR>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>[환자 내원시간] : <!--?VAR_ERDT?--></TD></TR>" +
										"\n	</TABLE>" +
										"\n</DIV>";
			cover_header = cover_header_start + cover_header_txt + cover_header_end;
      		cover_footer_txt = "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
      								  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
									  "\n		</TR>" +
									  "\n		</TABLE>" +
									  "\n	</DIV>";
      		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
      }else if( srcformcd == "0000000680"){ 		//입퇴원요약
			cover_header_txt =  "\n<DIV>" +
										"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>[입퇴원정보] </TD></TR>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>&nbsp;&nbsp;입원일/입원과 : <!--?VAR_ININFO?--></TD></TR>" +
										"\n		<TR><TD style='text-align: left; font-weight: bold;'>&nbsp;&nbsp;퇴원일/퇴원과 : <!--?VAR_DSCHINFO?--></TD></TR>" +
										"\n	</TABLE>" +
										"\n</DIV>";
			cover_header = cover_header_start + cover_header_txt + cover_header_end;
      		cover_footer_txt = "\n		<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
      								  "\n		<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ Staff작성 및 확인 : <!--?VAR_STAFFNM?--></TD>"+
									  "\n	</TR>"+
									  "\n	<TR>"+
									  "\n	    <TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD>"+
									  "\n		<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 의무기록사 : <!--?VAR_EMRRECUSRNM?--></TD>"+
									  "\n	</TR>"+
									  "\n	</TABLE>"+
									  "\n</DIV>";
			cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;      
      }else if( srcformcd == "0000002022"){ 		//마취기록지
      		cover_header = cover_header_start + cover_header_end;
      		cover_footer_txt = "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
      								  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
									  "\n		</TR>" +
									  "\n		</TABLE>" +
									  "\n	</DIV>";
      		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
//      }else if( srcformcd == "0000003325"){ 		//DSC기록
      }else if( srcformcd == "0000003169"){ 		//Brief OP Note
      		cover_header = cover_header_start + cover_header_end;
      		cover_footer_txt = "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
      								  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
									  "\n		</TR>" +
									  "\n		</TABLE>" +
									  "\n	</DIV>";
      		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
      }else{
        	  if(formprogflag == "-" || formprogflag == "MAIN" || mainyn == "Y"){
            		cover_header_txt =  "\n<DIV>" +
												"\n	<TABLE width='100%' style='font-family: 맑은 고딕; font-size: 10pt;'>	" +
												"\n		<TR><TD style='text-align: left; font-weight: bold;'>진료일자 : <!--?VAR_ORDDATE?--></TD></TR>" +
												"\n		<TR><TD style='text-align: left; font-weight: bold;'>진 료 과 : <!--?VAR_ORDDEPT?--></TD></TR>" +
												"\n	</TABLE>" +
												"\n</DIV>";
            		cover_header = cover_header_start + cover_header_txt + cover_header_end;
	        		cover_footer_txt = "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
											  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
											  "\n		</TR>" +
											  "\n		</TABLE>" +
											  "\n	</DIV>";
            		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
	          }else{
	        	  	cover_header = cover_header_start + cover_header_end;
	        		cover_footer_txt = "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최초작성자 : <!--?VAR_FSTRGSTRUSRNM?--></TD>" +
	        								  "\n			<TD style='width: 50%; text-align: left; font-weight: bold;'>◈ 최종작성자 : <!--?VAR_LASTUPDTRUSRNM?--></TD> " +
											  "\n		</TR>" +
											  "\n		</TABLE>" +
											  "\n	</DIV>";
	        		cover_footer = cover_footer_start + cover_footer_txt + cover_footer_end;
          	  }
      	 }
      	var txt =  cover_header + "♥" + cover_footer + "♥" + body_header + "♥" + body_footer;
      	return txt;
}


function MakeRecFile( hfflag, txt, htmltxt ){
sysf_trace("***** MakeRecFile( "+hfflag+", "+txt+", "+htmltxt+" ) *****");

	var foldernm = "C:/CertrecPrnt" + sysf_getUserInfo("dutplceinstcd");
    var local_path  ="";
    local_path = foldernm + "\\";
   	
	if( hfflag == "h" ){
		//var headso = new ActiveXObject("Scripting.FileSystemObject");
		if(fso.FileExists(local_path +txt + "_cover_header.html") == true)
		{
			fso.DeleteFile(local_path + txt + "_cover_header.html", true)
		}
		var h = fso.CreateTextFile( local_path + txt + "_cover_header.html" , true, true);
		h.WriteLine(htmltxt);
		h.Close();		
	}
	
	if( hfflag == "f" ){
		//var footso = new ActiveXObject("Scripting.FileSystemObject");
		if(fso.FileExists(local_path + txt + "_cover_footer.html") == true)
		{
			fso.DeleteFile(local_path + txt + "_cover_footer.html", true)
		}
		var f = fso.CreateTextFile( local_path + txt + "_cover_footer.html" , true, true);
		f.WriteLine(htmltxt);
		f.Close();		
	}
}


]]></Script>