YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SMAEA07300.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_TRMRC03003(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0){
		ds_grd_apphist.enableevent = true;
		return;
	}
	//sysf_trace("***** cf_TRMRC03003 *****");
	
	ds_grd_apphist.rowposition = -1;
	ds_grd_apphist.enableevent = true;
	ds_main_appinfo_copyinfo.clearData();
	ds_main_appinfo_copyinfo.addRow();
	
}

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_TRMRC03012(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
    
    sysf_messageBox("","I001");	//처리되었습니다
	
}



// 의무기록 부서코드 찾기  
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);
	//utlf_addLog(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);
	
	//utlf_addLog(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;
}

 /**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 신청인에 따른 위임장유뮤 변경
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAppManNmSetting()
{      
 utlf_addLog("***** fAppManNmSetting() *****");
        if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")!="9"){
            group3.ipt_appmannm.enable = false;
            group3.ipt_appmannm.value = "";
            var appmanflag = ds_main_appinfo_copyinfo.getColumn(0, "appmanflag");
            if(appmanflag=="1"){
                group3.rdo_trustyn.value = "N";
            }else{
                group3.rdo_trustyn.value = "Y";
            }
        }else{
            group3.ipt_appmannm.enable = true;
            group3.rdo_trustyn.value = "Y";
        }
}

/**
 * @desc 이전사본발행 내역조회
 * @param pid : 등록번호 
 */ 
function fReqGetBfCopyIssHistList(pid){
	ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", pid);	
	
//	ds_grd_apphist.enableevent = false;
	
	var oParam = {};
		oParam.id       = "dump_TRMRC03003";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetCDCopyHist";
		oParam.inds     = "req=ds_send_reqdata";
		oParam.outds    = "ds_grd_apphist=applist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03003";

	tranf_submit(oParam);
		
	
}

/**
 * @group  :
 * @ver    : 
 * @by     : 권영애 2018-12-13
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : cd 복사 처방
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fGetOrder()
{
    ds_send_reqdata.clearData();  
    ds_grd_mainordlist.clearData();
    
    ds_send_cond.setColum
	dsf_createDsRow("ds_send_cond", 	[
								{col:"pid", type:"STRING", size:256, val:ds_main_cond.getColumn(0,"pid")}
							  , {col:"orddeptcd", type:"STRING", size:256, val:ds_main_cond.getColumn(0,"orddeptcd")}
							  , {col:"suppdeptcd1", type:"STRING", size:256, val:ds_send_globalinstance.getColumn(0,"instance1")}
							  , {col:"excuroomcd", type:"STRING", size:256, val:"RA064"}
							  , {col:"srchexecflag", type:"STRING", size:256, val:ds_main_cond.getColumn(0,"srchexecflag")=="Y"?"Y":""}
								]);
  		
    var oParam = {};
		oParam.id       = "dump_TRMRC03004";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetCDCopyList";
		oParam.inds     = "reqparam=ds_send_cond";
		oParam.outds    = "ds_grd_mainordlist=examcureacptlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03004";

	tranf_submit(oParam);
  
}

//접수정보가져오기
function fGetAcptInfo()
{
    ds_send_reqdata.clearData();  
    ds_grd_acptlist.clearData();
    
    ds_send_cond.setColum
	dsf_createDsRow("ds_send_cond", 	[
								{col:"pid", type:"STRING", size:256, val:ds_main_cond.getColumn(0,"pid")}
							  , {col:"suppdeptcd1", type:"STRING", size:256, val:ds_send_globalinstance.getColumn(0,"instance1")}
							 	]);
  		
    var oParam = {};
		oParam.id       = "dump_TRMRC03004";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetAcptList";
		oParam.inds     = "reqparam=ds_send_cond";
		oParam.outds    = "ds_grd_acptlist=acptlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03004";

	tranf_submit(oParam);
  
}



// 환자찾기 Popup
function fPatPopUp(pFlag)
{	
    utlf_addLog("***** 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")));
		//alert("주민번호:"+utlf_transNullToEmpty(ds_main_cond.getColumn(0, "rrgstno1"))+"#"+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;	//2015.04.10 주석
    objArgs.arg_ds_send = 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;
// 		  }
// 		}    
// 	}
  
	var spid = ds_patinfolist.getColumn(0, "pid");
    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"));
    //alert("주민번호2:"+utlf_transNullToEmpty(ds_main_cond.getColumn(0, "rrgstno1"))+"#"+utlf_transNullToEmpty(ds_main_cond.getColumn(0, "rrgstno2")));
    ds_main_cond.setColumn(0, "sa", ds_patinfolist.getColumn(0, "sex") + "/" + ds_patinfolist.getColumn(0, "age"));
    ds_main_cond.setColumn(0, "recepinfochk", "Y");
    
	lf_setPid();   
  
}


  
function fGetTotalCopies()
{
utlf_addLog("***** 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"));
        }  
	}
utlf_addLog("***** tmpTotalCopies : " + tmpTotalCopies );	
	return tmpTotalCopies;
}


function lf_setPid()
{
		group2.ipt_pid.updateToDataset();		
		var newPid = group2.ipt_pid.text;
		
		group4.txt_delivefact.value = "";
		ds_grd_apphist.clearData();
		ds_grd_mainordlist.clearData();
		ds_main_appinfo_copyinfo.clearData();
		ds_main_appinfo_copyinfo.addRow();
		
// 		// 의료정보팀인지 타 부서인지 체크
// 		if(fIsEmrDept() == false)
// 		{							
// 			var globalPid = appf_getPatientInfo("pid");							
// 			utlf_addLog(" globalPid : " + globalPid);
// 			if(globalPid != newPid) {
// 				sysf_messageBox("사본신청은 진료중인 환자에 대해서만 신청이 가능합니다.\n등록번호를 상단 환자등록번호와 일치시켜서","C003");
// 				return;
// 			}
// 		}
				
		
		
		// 2009.05.26 이경희
		// 의료정보팀인 경우 신청내역저장 버튼이 계속 비활성화되는것을 방지
		btn_save.enable = true;		
		
		//환자기본 및 원무정보 조회
		//fReqGetComnPatOrdInfo(newPid);
		fReqGetComnPatInfo(newPid);
		
			
		//환자 이전사본발행내역 조회
		fReqGetBfCopyIssHistList(newPid);
		
		
		ds_main_appinfo_copyinfo.setColumn(0, "appmanflag", "1");			
		ds_main_appinfo_copyinfo.setColumn(0, "trustyn", "N");	
			
		fGetCountOfEMR();   //타부서의무기록 정보 가져오기	
		
}

/**
 * @desc   : 사본신청/발급 화면 초기화
 *         : 상단정보 처리 여부, 화면 팝업처리 여부 판단 및 화면 기본정보 설정
 * @
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fInitialize(){	
	
	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");		
  	}	
  	
  	//발행목적
  	appf_getCodeList([{dsNm: "ds_init_issgoalcd_M0332", cdGrpId: "M0332"}, {dsNm: "ds_init_prcpstatcd_M0011", cdGrpId: "M0011"}], true);
		
	//20191203 영상복사이력 상세신청내역 정보 가져오기
	ds_init_A0051.clearData();	
	lf_getAstCodeList([{dsNm: "ds_init_A0051", cdGrpId: "A0051"}], true ) ;
	
  	//신청과,신청의
  	appf_getInOutOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", null, null, "ds_init_cmb_emrorddeptcd", false, null); //전체 진료과
	frmf_addComboItem("group3.cmb_emrorddeptcd","전체","-", "above");
	ds_main_appinfo_copyinfo.setColumn(0, "appdeptcd","-");  // 신청과

	appf_getOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), group3.cmb_emrorddeptcd.value, "usernm", "asc", utlf_getCurrentDate(), "ds_init_cmb_orddrid");
		
	ds_main_cond.setColumn(0, "pid", ds_main_paminfo.getColumn(0, "pid"));
	ds_main_cond.setColumn(0, "srchexecflag", "Y");
	
	lf_setPid();  //환자정보 + 이전영상복사내역			
	
	
	
		
	
}

/**
 * @desc   : 사본신청/발급 화면 초기화
 *         : 의무기록 발급 유무 찾기
 *         : 당일 의무기록발급이력, 병리슬라이스대여이력 , 영상복사이력
 * @
 * @param  : 
 * @return : 
 * @---------------------------------------------------
 */
function fGetCountOfEMR(){	
    
    ds_grd_othist.clearData();
    ds_send_reqdata.clearData();    
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", ds_main_cond.getColumn(0,"pid"));		
	//ds_grd_apphist.enableevent = false;
	
	var oParam = {};
		oParam.id       = "dump_TRMRC03003";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetCountOfEMR";
		oParam.inds     = "reqparam=ds_send_reqdata";
		oParam.outds    = "ds_grd_othist=applist";
		oParam.async    = false;
		//oParam.callback = "cf_TRMRC03003";

	tranf_submit(oParam);
	
	if (ds_grd_othist.rowcount > 0 ) {
	    btn_other.visible = true;
	} else {
	    btn_other.visible = false;
	}
	
}

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

	//fMersPatChk("EMR", 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, "rrgstno2"  , rrgstno2);
		
		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 : 등록번호
 * @return : 
 * @---------------------------------------------------
 */

function fReqGetComnPatInfo(pid){

	ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", pid);	
		
	//ds_grd_apphist.enableevent = false;
	
	var oParam = {};
		oParam.id       = "dump_TRMRC03003";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetComnPatInfo";
		oParam.inds     = "reqparam=ds_send_reqdata";
		oParam.outds    = "ds_patinfo=patinfo";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03003";

	tranf_submit(oParam);
	
	ds_main_cond.setColumn(0, "pid"       , ds_patinfo.getColumn(0,"pid"));
	ds_main_cond.setColumn(0, "hngnm"     , ds_patinfo.getColumn(0,"hngnm"));
	ds_main_cond.setColumn(0, "rrgstno1"  , ds_patinfo.getColumn(0,"rrgstno1"));
	if (!utlf_isNull(ds_patinfo.getColumn(0,"rrgstno2"))) {
		ds_main_cond.setColumn(0, "rrgstno2"  , ds_patinfo.getColumn(0,"rrgstno2").substring(0, 1) + "******");
	}	
		
}

/**
 * @desc 이전사본발행 내역조회
 * @param pid : 등록번호 
 */ 
function fReqGetBfCopyIssHistList(pid){
	ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", pid);	
		
	//ds_grd_apphist.enableevent = false;
	
	var oParam = {};
		oParam.id       = "dump_TRMRC03003";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqGetCDCopyHist";
		oParam.inds     = "reqparam=ds_send_reqdata";
		oParam.outds    = "ds_grd_apphist=applist";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03003";

	tranf_submit(oParam);
	
	
}

/**
 * @group  :
 * @ver    : 
 * @by     : 이창록 2008-08-29 
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 사본발행 목적 팝업 호출(사본발행신청 화면과 동일)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fIssGoalPopUp(){
utlf_addLog("***** fIssGoalPopUp() *****");
	var sIssUsge = "";
	var sIssUsgeCnt = 0;
	var sIssGoalEtcYN = false;
	var sIssGoalEtc = "";
	var sIssGoalEtcCd = "";
	var sIssGoalCd = "";
	var sStndRow = 0;
		var sIssno = "";
	var sIssissgoalcd = "";
	
	
    frmf_setParameter("SPMMR02200_multichkyn", "N");
	var rtObj = frmf_modal("SPMMR02200", "SPMMR02200", null, null, null, null, null, null, null, null, null, null, "M");
	//ds_main_issusge dataset return
	
			
	if( !utlf_isNull(rtObj.copyInfoDs) ){
		var nRow = rtObj.copyInfoDs.rowposition;
		var issusge = utlf_transNullToEmpty(rtObj.copyInfoDs.getColumn(nRow, "reqdata"));

		sIssUsge = issusge;
		sIssUsgeCnt = issusge.split("▩").length;
		
		if(sIssUsgeCnt > 0){
			for(var i=1; i<sIssUsgeCnt; i++){
				if(i != sIssUsgeCnt-1){
					if(!utlf_isNull(sIssGoalEtc)) sIssGoalEtc += ",";	
					if(!utlf_isNull(sIssGoalEtcCd)) sIssGoalEtcCd += ",";
				}
				
				sIssGoalEtc += getArrayData(sIssUsge, i, 1);
				sIssGoalCd = getArrayData(sIssUsge, i, 0);	
				
				if(sIssGoalCd == "99"){
					sIssGoalEtcYN = true;
				}
				sIssGoalEtcCd += sIssGoalCd;
			}
			if(sIssGoalEtcYN == true){
				group3.ipt_issgoaletc.enable = true;
			}else{
				ds_main_appinfo_copyinfo.setColumn(0, "issgoalcd","");             
				group3.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);
			ds_main_appinfo_copyinfo.setColumn(0, "issgoaletcnm", "");
			
		}
	}
}

function fContentsPopUp(){
utlf_addLog("***** fContentsPopUp() *****");
	var sIssUsge = "";
	var sIssUsgeCnt = 0;
	var sIssGoalEtcYN = false;
	var sIssGoalEtc = "";
	var sIssGoalEtcCd = "";
	var sIssGoalCd = "";
	var sStndRow = 0;
		var sIssno = "";
	var sIssissgoalcd = "";
	
	
    frmf_setParameter("SPAEA05600_multichkyn", "N");
	var rtObj = frmf_modal("SPAEA05600", "SPAEA05600", null, null, null, null, null, null, null, null, null, null, "M");
	//ds_main_issusge dataset return
	
			
	if( !utlf_isNull(rtObj.copyInfoDs) ){
		var nRow = rtObj.copyInfoDs.rowposition;
		var issusge = utlf_transNullToEmpty(rtObj.copyInfoDs.getColumn(nRow, "reqdata"));

		sIssUsge = issusge;
		sIssUsgeCnt = issusge.split("▩").length;
		
		if(sIssUsgeCnt > 0){
			for(var i=1; i<sIssUsgeCnt; i++){
				if(i != sIssUsgeCnt-1){
					if(!utlf_isNull(sIssGoalEtc)) sIssGoalEtc += ",";	
					if(!utlf_isNull(sIssGoalEtcCd)) sIssGoalEtcCd += ",";
				}
				
				sIssGoalEtc += getArrayData(sIssUsge, i, 1);
				sIssGoalCd = getArrayData(sIssUsge, i, 0);	
				
				if(sIssGoalCd == "99"){
					sIssGoalEtcYN = true;
				}
				sIssGoalEtcCd += sIssGoalCd;
			}
			if(sIssGoalEtcYN == true){
				group3.ipt_issgoaletc.enable = true;
			}else{
				ds_main_appinfo_copyinfo.setColumn(0, "issgoalcd","");             
				group3.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);
			
			
		}
	}
}

//영상복사 신청내역 삭제
function fRadCopyDelete()
{
utlf_addLog("***** fRadCopyDelete() *****");
   if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"))){   
      sysf_messageBox("영상복사이력를 먼저 선택","I008"); 
   } else {
      var pid = ds_main_appinfo_copyinfo.getColumn(0, "pid");
      var copyseqno = ds_main_appinfo_copyinfo.getColumn(0, "copyseqno");     
   }  
   
   if ( sysf_messageBox("영상복사이력을 ","Q001")== 7 ) {  //삭제 예 =6, 아니오=7
      return;
   }
   
    ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "pid", pid);	
	ds_send_reqdata.setColumn(0, "copyseqno", copyseqno);	
	
    var oParam = {};
		oParam.id       = "dump_TRMRC03013";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqDelCDCopyList";
		oParam.inds     = "reqparam=ds_send_reqdata";
		oParam.outds    = "ds_return=return";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03012";

	tranf_submit(oParam);
	
	//이전영상복사내역 조회
	fReqGetBfCopyIssHistList(group2.ipt_pid.text);
	
}

//  영상복사 신청내역 저장
function fRadCopySave()
{  
utlf_addLog("***** fRadCopySave() *****");
  
    var cnt = 0;
    
    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"))){
        group3.rdo_appmanflag.setFocus();
        sysf_messageBox("사본발행 신청인을", "C001");
        return;
    }
    
    if ( ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9"){   
      if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "appmanetc"))){
			group3.ipt_appmannm.setFocus();
			sysf_messageBox("사본발행 신청인을", "C001");
			return;
	   }	
    }
    
    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "trustyn"))){
        group3.rdo_trustyn.setFocus();
        sysf_messageBox("위임장/인감증명서 유무를", "C001");
        return;
    }
    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"))){
        group3.ipt_issgoalnm.setFocus();
        sysf_messageBox("사본발행목적을", "C001");
        return;
    }  
    
    
    if ( ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc")=="기타"){   
      if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "issgoaletcnm"))){
			group3.ipt_issgoaletc.setFocus();
			sysf_messageBox("사본발행목적을", "C001");
			return;
	   }	
    }
    
    if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "delivefact"))){
        group4.txt_delivefact.setFocus();
        sysf_messageBox("사본발행 상세내역을", "C001");
        return;
    }  
    
    
    //20181224 발행번호가 없을 경우에만 체크
    if(utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"))){     
		for (var i = 0; i < ds_grd_mainordlist.rowcount; i++) {
			if(ds_grd_mainordlist.getColumn(i,"chk") == "1"){
				cnt = cnt + 1;
				ds_main_appinfo_copyinfo.setColumn(0, "prcpdd", ds_grd_mainordlist.getColumn(i,"prcpdd"));
				ds_main_appinfo_copyinfo.setColumn(0, "prcpno", ds_grd_mainordlist.getColumn(i,"prcpno"));
				ds_main_appinfo_copyinfo.setColumn(0, "prcphistno", ds_grd_mainordlist.getColumn(i,"prcphistno"));
			}
		}
			
		if ( cnt == 0 ) {
			sysf_messageBox("처방내역을 ", "C002");
			return;
		} 
	}
    //저장정보 수집    
    dsf_createDs("ds_send_savedata_copyinfo");	
	ds_send_savedata_copyinfo.copyData(ds_main_appinfo_copyinfo,true);
	
	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"      ,group3.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"      ,group3.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, "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, "issgoalcd"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletccd"));
    	ds_send_savedata_copyinfo.setColumn(0, "issgoalnm"    ,ds_main_appinfo_copyinfo.getColumn(0, "issgoaletc"));    	
    }
    ds_send_savedata_copyinfo.setColumn(0, "delivefact"    ,ds_main_appinfo_copyinfo.getColumn(0, "delivefact"));
    ds_send_savedata_copyinfo.setColumn(0, "cdcount"    ,ds_main_appinfo_copyinfo.getColumn(0, "cdcount"));      
          
    var oParam = {};
		oParam.id       = "dump_TRMRC03012";
		oParam.service  = "examcureacptexecapp.ExamCureAcpt";
		oParam.method   = "reqExeCDCopyList";
		oParam.inds     = "reqparam=ds_send_savedata_copyinfo";
		oParam.outds    = "ds_return=return";
		oParam.async    = false;
		oParam.callback = "cf_TRMRC03012";

	tranf_submit(oParam);
	
	//이전영상복사내역 조회
	fReqGetBfCopyIssHistList(group2.ipt_pid.text);
	
}		
	  
//프린트 인쇄
function fRadCopyPrint()
{  
utlf_addLog("***** fRadCopyPrint() *****");
       if (utlf_isNull(ds_main_appinfo_copyinfo.getColumn(0, "copyseqno"))){         
            sysf_messageBox("영상복사신청자료를", "C002");
			return;
       }
       
       dsf_createDs("ds_send_savedata_copyinfo");	
	   ds_send_savedata_copyinfo.copyData(ds_main_appinfo_copyinfo,true);
	   if(ds_main_appinfo_copyinfo.getColumn(0, "appmanflag")=="9")
        {
		  ds_send_savedata_copyinfo.setColumn(0, "appmannm"      ,ds_main_appinfo_copyinfo.getColumn(0, "appmanetc"));		
        }
        
	  
	   dsf_createDs("ds_send_savedata_paminfo");
	   ds_send_savedata_paminfo.copyData(ds_main_cond,true);
	   
//	exeReportPreview("RPAEA05200", "XMLSTR" , ""  , ""   , "true" , "", "", "", "", "true"); 	
		var objDOM 		= rptf_createDOM();	// DOM 객체 설정
		var objParam 	= new Object();
		rptf_setNodeListToDOM(objDOM, "/root/rexsend/copyinfo", ds_send_savedata_copyinfo);
        rptf_setNodeListToDOM(objDOM, "/root/rexsend/paminfo", ds_send_savedata_paminfo);
        
		objParam.xml_data_XML1 	= objDOM.documentElement.source;

		var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0;";
		rptf_exeReportPreview30(["RPAEA07300"],[objParam], option);
}  

//상세신청내역
function fContenPopUp()
{
 	ds_hidden.setColumn(0, "checkseq","57");
 	ds_hidden.setColumn(0, "grupcdid","A0012");		
 		
 	var objArg = new Object();
 	objArg.arg_ds_source = "";		 					
 	frmf_modal("SPAEA05600", "SPAEA05600" ,objArg,"","", "100", "100", "", "", "", "", "","M");	
}
	  
]]></Script>