YNU_JEUS/app_home/himed/xpapps/ast/healcarecoopxp/xp/ARCCommon.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/**
 * @desc   : 회신서 출력
 * @
 * @param  : pid, replseqno, replflag(A:되의뢰, P;회신), directprintyn(Y:바로출력, N:출력창)
 * @return :
 * @author : 박성호
 * @---------------------------------------------------
 */
function fComPreview(pid, replseqno, replflag, directprintyn)
{
    
    dsf_createDsRow("ds_cond_TRARC02507", [{col:"pid", type:"STRING", size:256, val:pid}
										  , {col:"replseqno", type:"INT", size:256, val:replseqno}
										  , {col:"instcd", type:"STRING", size:256, val:""}
											]);
    
    dsf_setDefaultVal(ds_cond_TRARC02507, "replseqno:0");
    
    
    //<!--  기본정보  -->
	dsf_createDs("ds_data_baseinfo", [{col:"instcdnm", type:"STRING", size:256}
								  , {col:"ordfromdd", type:"STRING", size:256}
								  , {col:"ordtodd", type:"STRING", size:256}
								  , {col:"telno1", type:"STRING", size:256}
								  , {col:"telno2", type:"STRING", size:256}
								  , {col:"faxno", type:"STRING", size:256}
								  , {col:"url", type:"STRING", size:256}
								  , {col:"mainemail", type:"STRING", size:256}
								  , {col:"maindeptnm", type:"STRING", size:256}]);

	//<!--  환자정보  -->
	dsf_createDs("ds_data_patientinfo", [{col:"pid", type:"STRING", size:256}
									  , {col:"hngnm", type:"STRING", size:256}
									  , {col:"sex", type:"STRING", size:256}
									  , {col:"age", type:"BIGDECIMAL", size:256}
									  , {col:"rrgstno1", type:"STRING", size:256}
									  , {col:"rrgstno2", type:"STRING", size:256}
									  , {col:"brthdd", type:"STRING", size:256}]);
	//dsf_setTypeFormat(ds_data_patientinfo, "age:BIGDECIMAL");

	//<!--  회신내용  -->
	dsf_createDs("ds_data_replinfo", [{col:"pid", type:"STRING", size:256}
									  , {col:"replseqno", type:"BIGDECIMAL", size:256}
									  , {col:"replflag", type:"STRING", size:256}
									  , {col:"writflag", type:"STRING", size:256}
									  , {col:"recdd", type:"STRING", size:256}
									  , {col:"orddeptcd", type:"STRING", size:256}
									  , {col:"orddeptnm", type:"STRING", size:256}
									  , {col:"orddrid", type:"STRING", size:256}
									  , {col:"orddrnm", type:"STRING", size:256}
									  , {col:"reqorddd", type:"STRING", size:256}
									  , {col:"reqcretno", type:"BIGDECIMAL", size:256}
									  , {col:"reqseqno", type:"BIGDECIMAL", size:256}
									  , {col:"rsrvdd", type:"STRING", size:256}
									  , {col:"rsrvtm", type:"STRING", size:256}
									  , {col:"rsrvorddeptcd", type:"STRING", size:256}
									  , {col:"rsrvorddrid", type:"STRING", size:256}
									  , {col:"rsrvorddeptnm", type:"STRING", size:256}
									  , {col:"rsrvorddrnm", type:"STRING", size:256}
									  , {col:"rsrvcretno", type:"BIGDECIMAL", size:256}
									  , {col:"diagnm", type:"STRING", size:256}
									  , {col:"curecnts", type:"STRING", size:256}
									  , {col:"delivefact", type:"STRING", size:256}
									  , {col:"reqagnkindcd", type:"STRING", size:256}
									  , {col:"reqagnkindnm", type:"STRING", size:256}
									  , {col:"saverid", type:"STRING", size:256}
									  , {col:"savernm", type:"STRING", size:256}
									  , {col:"savedd", type:"STRING", size:256}
									  , {col:"aprvrid", type:"STRING", size:256}
									  , {col:"aprvrnm", type:"STRING", size:256}
									  , {col:"aprvdd", type:"STRING", size:256}
									  , {col:"aprvdeptcd", type:"STRING", size:256}
									  , {col:"aprvdeptnm", type:"STRING", size:256}
									  , {col:"saveflag", type:"STRING", size:256}
									  , {col:"footflag", type:"STRING", size:256}
									  , {col:"prntdt", type:"STRING", size:256}]);

	//dsf_setDefaultVal(ds_data_replinfo, "reqcretno:0,reqseqno:0,rsrvcretno:0");
	//dsf_setTypeFormat(ds_data_replinfo, "replseqno:BIGDECIMAL^reqcretno:BIGDECIMAL^reqseqno:BIGDECIMAL^rsrvcretno:BIGDECIMAL");

	//<!--  의뢰병원정보  -->
	dsf_createDs("ds_data_reqhospinfo", [{col:"reqdd", type:"STRING", size:256}
									  , {col:"coophospcd", type:"STRING", size:256}
									  , {col:"coophospnm", type:"STRING", size:256}
									  , {col:"coopdrcd", type:"STRING", size:256}
									  , {col:"coopdrnm", type:"STRING", size:256}
									  , {col:"clsmatyn", type:"STRING", size:256}
									  , {col:"gradyear", type:"STRING", size:256}
									  , {col:"telno", type:"STRING", size:256}
									  , {col:"mpphontel", type:"STRING", size:256}
									  , {col:"emailid", type:"STRING", size:256}
									  , {col:"emailaddr", type:"STRING", size:256}
									  , {col:"coopflag", type:"STRING", size:256}
									  , {col:"reqorddd", type:"STRING", size:256}
									  , {col:"reqcretno", type:"BIGDECIMAL", size:256}
									  , {col:"reqseqno", type:"BIGDECIMAL", size:256}
									  , {col:"addr", type:"STRING", size:256}
									  , {col:"detladdr", type:"STRING", size:256}
									  , {col:"zipcd1", type:"STRING", size:256}
									  , {col:"zipcd2", type:"STRING", size:256}
									  , {col:"drflag", type:"STRING", size:256}
									  , {col:"faxno", type:"STRING", size:256}], true);
	//dsf_setTypeFormat(ds_data_reqhospinfo, "reqcretno:BIGDECIMAL^reqseqno:BIGDECIMAL");

	//<!--  검사내역  -->
	dsf_createDs("ds_data_rsltinfo", [{col:"prcpdd", type:"STRING", size:256}
									  , {col:"examnm", type:"STRING", size:256}
									  , {col:"spcnm", type:"STRING", size:256}
									  , {col:"examgubun", type:"STRING", size:256}
									  , {col:"lastreptdd", type:"STRING", size:256}
									  , {col:"bcno", type:"STRING", size:256}
									  , {col:"testmdlcd", type:"STRING", size:256}
									  , {col:"execprcpuniqno", type:"STRING", size:256}
									  , {col:"pid", type:"STRING", size:256}
									  , {col:"depth", type:"STRING", size:256}
									  , {col:"replseqno", type:"BIGDECIMAL", size:256}
									  , {col:"seqno", type:"BIGDECIMAL", size:256}]);
	//dsf_setTypeFormat(ds_data_rsltinfo, "replseqno:BIGDECIMAL^seqno:BIGDECIMAL");

	//<!--  처방내역  -->
	dsf_createDs("ds_data_prcpinfo", [{col:"prcpdd", type:"STRING", size:256}
									  , {col:"prcpcd", type:"STRING", size:256}
									  , {col:"prcpnm", type:"STRING", size:256}
									  , {col:"prcpqty", type:"BIGDECIMAL", size:256}
									  , {col:"prcpqtyunitnm", type:"STRING", size:256}
									  , {col:"prcptims", type:"BIGDECIMAL", size:256}
									  , {col:"prcpdayno", type:"BIGDECIMAL", size:256}
									  , {col:"prcpno", type:"BIGDECIMAL", size:256}
									  , {col:"prcphistno", type:"BIGDECIMAL", size:256}
									  , {col:"pid", type:"STRING", size:256}
									  , {col:"replseqno", type:"BIGDECIMAL", size:256}
									  , {col:"seqno", type:"BIGDECIMAL", size:256}
									  , {col:"prcpqtyunitflag", type:"STRING", size:256}]);
	//dsf_setTypeFormat(ds_data_prcpinfo, "prcpqty:FLOAT^prcptims:BIGDECIMAL^prcpdayno:BIGDECIMAL^prcpno:BIGDECIMAL^prcphistno:BIGDECIMAL^replseqno:BIGDECIMAL^seqno:BIGDECIMAL");

	//<!--  수술정보  -->
	dsf_createDs("ds_data_opinfo", [{col:"opdd", type:"STRING", size:256}
									  , {col:"opnm", type:"STRING", size:256}
									  , {col:"perdeptnm", type:"STRING", size:256}
									  , {col:"perfdrnm", type:"STRING", size:256}
									  , {col:"opstatcd", type:"STRING", size:256}
									  , {col:"pid", type:"STRING", size:256}
									  , {col:"replseqno", type:"BIGDECIMAL", size:256}
									  , {col:"seqno", type:"BIGDECIMAL", size:256}
									  , {col:"oprsrvno", type:"BIGDECIMAL", size:256}
									  , {col:"ophistno", type:"BIGDECIMAL", size:256}
									  , {col:"opcd", type:"STRING", size:256}
									  , {col:"perfdrid", type:"STRING", size:256}
									  , {col:"perfdeptcd", type:"STRING", size:256}]);	
	//dsf_setDefaultVal(ds_data_opinfo, "replseqno:0,seqno:0,oprsrvno:0,ophistno:0");
	//dsf_setTypeFormat(ds_data_opinfo, "replseqno:BIGDECIMAL^seqno:BIGDECIMAL^oprsrvno:BIGDECIMAL^ophistno:BIGDECIMAL");

	//<!--  입퇴원요약정보  -->
	dsf_createDs("ds_data_dschinfo", [{col:"indd", type:"STRING", size:256}
									  , {col:"orddeptnm", type:"STRING", size:256}
									  , {col:"orddrnm", type:"STRING", size:256}
									  , {col:"dschdd", type:"STRING", size:256}
									  , {col:"roomcd", type:"STRING", size:256}
									  , {col:"formrecseq", type:"BIGDECIMAL", size:256}
									  , {col:"orddeptcd", type:"STRING", size:256}
									  , {col:"orddrid", type:"STRING", size:256}
									  , {col:"pid", type:"STRING", size:256}
									  , {col:"replseqno", type:"BIGDECIMAL", size:256}
									  , {col:"seqno", type:"BIGDECIMAL", size:256}]);
	//dsf_setDefaultVal(ds_data_dschinfo, "formrecseq:0,replseqno:0,seqno:0");
	//dsf_setTypeFormat(ds_data_dschinfo, "formrecseq:FLOAT^replseqno:BIGDECIMAL^seqno:BIGDECIMAL");
    
    // 미리보기는 저장된 내용이 있어야만 미리보기가 된다.
	var oParam = {};
		oParam.id          = "TRARC02507";
		oParam.service     = "healcarecoopapp.ReqMngt";
		oParam.method      = "reqGetPreviewInfo";
		oParam.inds        = "req=ds_cond_TRARC02507";
		oParam.outds       = "ds_data_baseinfo=baseinfo ds_data_patientinfo=patientinfo ds_data_replinfo=replinfo " +
							 "ds_data_reqhospinfo=reqhospinfo ds_data_rsltinfo=rsltinfo ds_data_prcpinfo=prcpinfo " +
							 "ds_data_opinfo=opinfo ds_data_dschinfo=dschinfo";
		oParam.async       = false;
		oParam.callback    = "cf_TRARC02507";

	tranf_submit(oParam);
	
	
	
   // 되의뢰인 경우 병원정보를 되의뢰병원으로
	if (replflag == "A")
	{
		
		if (this.objects["ds_main_req_pat_info_patinfo"] != null && ds_main_req_pat_info_patinfo.rowcount > 0 )
		{
			if (ds_data_reqhospinfo.rowcount == 0)
			{
				var nRow = ds_data_reqhospinfo.addRow();
				ds_data_reqhospinfo.setColumn(nRow, "coophospnm", ds_main_req_pat_info_patinfo.getColumn(0, "coophospnm"));
				ds_data_reqhospinfo.setColumn(nRow, "coopdrnm"	, ds_main_req_pat_info_patinfo.getColumn(0, "coopdrnm"));
				ds_data_reqhospinfo.setColumn(nRow, "addr"		, ds_main_req_pat_info_patinfo.getColumn(0, "addr"));
				ds_data_reqhospinfo.setColumn(nRow, "detladdr"	, ds_main_req_pat_info_patinfo.getColumn(0, "detladdr"));
				ds_data_reqhospinfo.setColumn(nRow, "zipcd1"	, ds_main_req_pat_info_patinfo.getColumn(0, "zipcd1"));
				ds_data_reqhospinfo.setColumn(nRow, "zipcd2"	, ds_main_req_pat_info_patinfo.getColumn(0, "zipcd2"));
				ds_data_reqhospinfo.setColumn(nRow, "drflag"	, ds_main_req_pat_info_patinfo.getColumn(0, "drflag"));
			}
			else
			{
				if( ds_data_reqhospinfo.rowcount == 0 ) ds_data_reqhospinfo.addRow();
				ds_data_reqhospinfo.setColumn(0, "coophospnm"	, ds_main_req_pat_info_patinfo.getColumn(0, "coophospnm"));
				ds_data_reqhospinfo.setColumn(0, "coopdrnm"		, ds_main_req_pat_info_patinfo.getColumn(0, "coopdrnm"));
				ds_data_reqhospinfo.setColumn(0, "addr"			, ds_main_req_pat_info_patinfo.getColumn(0, "addr"));
				ds_data_reqhospinfo.setColumn(0, "detladdr"		, ds_main_req_pat_info_patinfo.getColumn(0, "detladdr"));
				ds_data_reqhospinfo.setColumn(0, "zipcd1"		, ds_main_req_pat_info_patinfo.getColumn(0, "zipcd1"));
				ds_data_reqhospinfo.setColumn(0, "zipcd2"		, ds_main_req_pat_info_patinfo.getColumn(0, "zipcd2"));
				ds_data_reqhospinfo.setColumn(0, "drflag"		, ds_main_req_pat_info_patinfo.getColumn(0, "drflag"));
			}
		}   
	}
	    
	var curecnts = utlf_transNullToEmpty(ds_data_replinfo.getColumn(0, "curecnts"));
	cureArray = curecnts.split("\n");
	
	if( cureArray.length > 0 && this.objects["ds_data_curelsit"] == null ){
		dsf_createDs("ds_data_curelsit", [{col:"curecnts", type:"STRING", size:256}]);
	}else if(this.objects["ds_data_curelsit"] != null){
		ds_data_curelsit.clearData();
	}
	
	for (i = 0; i < cureArray.length; i++)
	{
		var nRow = ds_data_curelsit.addRow();
		ds_data_curelsit.setColumn(nRow, "curecnts", cureArray[i]);
	}
	    
	fComInitial_subordlist();

	var rsltinfoCnt = ds_data_rsltinfo.rowcount;
	if (rsltinfoCnt > 0)
	{
		if(!utlf_isNull(ds_data_rsltinfo.getColumn(0, "prcpdd")))
		{
			for( var i=0; i<rsltinfoCnt; i++ ) {
				var nRow = ds_send_maindata.addRow();
				ds_send_maindata.setColumn(nRow, "bcno"			, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "bcno")));           //바코드번호
				ds_send_maindata.setColumn(nRow, "testmdlcd"	, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "testmdlcd")));      //검사중분류코드
				ds_send_maindata.setColumn(nRow, "lastreptdd"	, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "lastreptdd")));     //최종보고일자
				ds_send_maindata.setColumn(nRow, "examgubun"	, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "examgubun")));      //검사구분
				ds_send_maindata.setColumn(nRow, "level"		, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "depth")));          //바코드검사레벨(LIS)
				ds_send_maindata.setColumn(nRow, "pid"			, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "pid")));            //등록번호
				ds_send_maindata.setColumn(nRow, "instcd"		, sysf_getUserInfo("dutplceinstcd"));               					   //기관코드
				ds_send_maindata.setColumn(nRow, "prcpdd"		, utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "prcpdd")));         //처방일자
				ds_send_maindata.setColumn(nRow, "execprcpuniqno", utlf_transNullToEmpty(ds_data_rsltinfo.getColumn(i, "execprcpuniqno"))); //실시유일번호
			}
		
			var oParam = {};
				oParam.id          = "TRAER00850";
				oParam.service     = "examcureresultrefapp.RsltRef";
				oParam.method      = "reqGetRsltRefDetailList";
				oParam.inds        = "reqparam=ds_send_maindata";
				oParam.outds       = "ds_main_subordlist1=getResultDetail";
				oParam.async       = false;
				oParam.callback    = "cf_TRAER00850";

			tranf_submit(oParam);
			
		}	    
	}
	
	var objDOM = rptf_createDOM();	// DOM 객체 설정
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/baseinfo", ds_data_baseinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/patientinfo", ds_data_patientinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/replinfo", ds_data_replinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/reqhospinfo", ds_data_reqhospinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/rsltinfo", ds_data_rsltinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/prcpinfo", ds_data_prcpinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/opinfo", ds_data_opinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/dschinfo", ds_data_dschinfo);
	rptf_setNodeListToDOM(objDOM, "/root/main/previewinfo/curelsit", ds_data_curelsit);
	rptf_setNodeListToDOM(objDOM, "/root/main/subordlist1/subresultdetail1", ds_main_subordlist1);
		
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
	var option = "open=0;save=1;directprint=0;printdialog=0;print=1;zoom=1;moveprev=1;movenext=1;combo=1;movefirst=1;movelast=1;excel=0;pdf=1;hwp=0;refresh=0;";
	
	if(!utlf_isNull(directprintyn) && directprintyn == "Y"){
		option = "open=0;save=0;directprint=1;printdialog=0";
	}
	
	rptf_exeReportPreview30(["RPARC02500"],[objParam], option);

} 

function cf_TRARC02507(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode < 0){
		sysf_messageBox("출력정보를  저장", "E001");
		return;
	}
	dsf_setDefaultVal(ds_data_replinfo, "reqcretno:0,reqseqno:0,rsrvcretno:0");
	dsf_setDefaultVal(ds_data_opinfo, "replseqno:0,seqno:0,oprsrvno:0,ophistno:0");
	dsf_setDefaultVal(ds_data_dschinfo, "formrecseq:0,replseqno:0,seqno:0");
}

function cf_TRAER00850(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    dsf_setFixVal(ds_main_subordlist1, "check:N,flag:rsltref");
}

// 결과내역 인스턴스 초기화
function fComInitial_subordlist() {
    
    // 일자별 그리드
    dsf_createDs("ds_main_subordlist1", [{col:"check", type:"STRING", size:256}
										  , {col:"reptrslt", type:"STRING", size:256}
										  , {col:"judgmark", type:"STRING", size:256}
										  , {col:"judgmark2", type:"STRING", size:256}
										  , {col:"prcpcd", type:"STRING", size:256}
										  , {col:"prcpnm", type:"STRING", size:256}
										  , {col:"img", type:"STRING", size:256}
										  , {col:"imgcnts", type:"BLOB", size:256}
										  , {col:"spcno", type:"STRING", size:256}
										  , {col:"pacsno", type:"STRING", size:256}
										  , {col:"flag", type:"STRING", size:256}]);
    
    // 일자별 그리드
    dsf_createDs("ds_send_maindata", [{col:"bcno", type:"STRING", size:256}		
								  , {col:"testmdlcd", type:"STRING", size:256}	
								  , {col:"lastreptdd", type:"STRING", size:256}	
								  , {col:"examgubun", type:"STRING", size:256}
								  , {col:"level", type:"STRING", size:256}
								  , {col:"pid", type:"STRING", size:256}	//srchpid
								  , {col:"instcd", type:"STRING", size:256}	//dutplceinstcd
								  , {col:"prcpdd", type:"STRING", size:256}
								  , {col:"execprcpuniqno", type:"STRING", size:256}
								  , {col:"check", type:"STRING", size:256}
								  , {col:"hla", type:"STRING", size:256}]);
    
			
}

]]></Script>