YNU_JEUS/app_home/himed/webapps/pam/acquaintanceweb/xrw/SMPAM00403_과제별환자내역.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<?xml-stylesheet type="text/css" href="../../../com/commonweb/css/common.css" ?>
<xhtml:html xmlns:ex="http://www.comsquare.co.kr/xforms/excel" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:ms="urn:schemas-microsoft-com:xslt" xmlns:my="http://www.comsquare.co.kr/example" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/2002/01/xforms" xmlns:ev="http://www.w3.org/2001/xml-events" xmlns:cs="http://www.comsquare.co.kr/xforms">
	<xhtml:head>
		<xhtml:title>임상 연구 검사비 미수 청구 관리</xhtml:title>
		<model id="model1">
			<instance id="instance1">
				<root xmlns="">
					<main>
						<projinfo>
							<kind/>
							<kindnm/>
							<projcd/>
							<studycd/>
							<projnm/>
							<rshid/>
							<rshnm/>
							<unitcd/>
							<unitnm/>
							<fromdd/>
							<todd/>
							<projamt/>
							<remnamt/>
							<depoamt/>
						</projinfo>
						<reptlist>
							<reptinfo>
								<projcd/>
								<studycd/>
								<subjno/>
								<reptcd/>
								<reptnm/>
								<seqno/>
								<status/>
								<bsdd/>
								<sbmtdd/>
								<bsid/>
								<bsnm/>
								<ptcnt/>
								<clamamt/>
							</reptinfo>
						</reptlist>
						<ptlist>
							<uncoinfo/>
						</ptlist>
					</main>
					<send>
						<projcd/>
						<studycd/>
						<reptcd/>
						<reptseq/>
						<rcptflag/>
						<realrcptflag>N</realrcptflag>
					</send>
					<temp>
						<projinfo>
							<proj_kind/>
							<proj_kindnm/>
							<proj_projcd/>
							<proj_studycd/>
							<proj_projnm/>
							<proj_rshid/>
							<proj_rshnm/>
							<proj_unitcd/>
							<proj_unitnm/>
							<proj_fromdd/>
							<proj_todd/>
							<proj_projamt/>
							<proj_remnamt/>
							<proj_depoamt/>
						</projinfo>
						<reptinfo>
							<rept_projcd/>
							<rept_studycd/>
							<rept_subjno/>
							<rept_reptcd/>
							<rept_reptnm/>
							<rept_seqno/>
							<rept_status/>
							<rept_bsdd/>
							<rept_sbmtdd/>
							<rept_bsid/>
							<rept_bsnm/>
							<rept_ptcnt/>
							<rept_clamamt/>
						</reptinfo>
						<ptlist>
							<ptinfo>
								<pid/>
								<hngnm/>
								<rcptexecdd/>
								<orddd/>
								<ordtype/>
								<orddeptnm/>
								<orddrnm/>
								<insukindnm/>
								<suppkindnm/>
								<unconm/>
								<uncoamt/>
							</ptinfo>
						</ptlist>
					</temp>
				</root>
			</instance>
			<submission id="TRPAM00413" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/main"/>
			<submission id="TRPAM00407" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/main/ptlist/uncoinfo"/>
		</model>
		<script type="javascript" src="../../../com/commonweb/js/common.js"/>
		<script type="javascript" src="../../../com/commonweb/js/tfHelper.js"/>
		<script type="javascript" src="../../../com/commonweb/js/dateHelper.js"/>
		<script type="javascript">
			<![CDATA[
				function fGetDF4Rpt(str) {
					return str.substr(0, 4) + "-" + str.substr(4, 2) + "-" + str.substr(6, 2);
				}
			]]>
		</script>
		<script type="javascript" ev:event="xforms-ready">
			<![CDATA[
				if (checkOpener()) {
					
					var projcd = opener.javascript.getParameter("SMPAM00403_projcd");
					
					if (projcd == "") {
						projcd = opener.javascript.getParameter("SMPAM00403PAM_projcd");
					}
					
					if (projcd != "") {
						model.setValue("/root/send/projcd", projcd);
						submit("TRPAM00413");
					}
				}
			]]>
		</script>
	</xhtml:head>
	<xhtml:body style="margin-left:8; margin-top:0; margin-right:8; margin-bottom:0; ">
		<caption id="cap_title" class="tit_1" style="left:0px; top:0px; width:130px; height:13px; font-family:돋움; vertical-align:middle; ">과제별 환자 내역</caption>
		<button id="btn_search" class="btn2_letter4" navindex="4" style="left:346px; top:70px; width:64px; height:19px; background-image:../../../com/commonweb/images/btn1_letter2.gif; ">
			<caption>새로고침</caption>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					submit("TRPAM00413");
					
					grd_pt.refresh();
					grd_pt.rebuildStyle();
					
					grd_pt.cellStyle("background-image", 1, grd_pt.colRef("sbmtynimg")) = "../../../com/commonweb/images/check.gif";
					grd_pt.cellStyle("background-image", 1, grd_pt.colRef("applynimg")) = "../../../com/commonweb/images/check.gif";
				]]>
			</script>
		</button>
		<datagrid id="grd_proj" nodeset="/root/main/projinfo" backcoloralternate="transparent" caption="kind^과제구분^과제코드^과제번호^과제명^rshid^연구책임자^unitcd^연구책임자소속^과제시작일^과제종료일^연구비총액^연구비잔액^연구비입금액" colsep="^" colwidth="0, 80, 60, 120, 314, 0, 70, 0, 120, 80, 80, 90, 90, 90" ellipsis="true" focuscolor="transparent" mergecellsfixedrows="bycolrec" rowsep="|" tooltip="label" style="left:0px; top:20px; width:1195px; height:46px; border-left-width:1; border-top-width:0; border-right-width:0; border-bottom-width:0; border-style:solid; ">
			<col ref="kind"/>
			<col ref="kindnm" style="text-align:center; "/>
			<col ref="projcd" style="text-align:center; "/>
			<col ref="studycd" style="text-align:center; "/>
			<col ref="projnm"/>
			<col ref="rshid"/>
			<col ref="rshnm" style="text-align:center; "/>
			<col ref="unitcd"/>
			<col ref="unitnm" style="text-align:center; "/>
			<col ref="fromdd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="todd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="projamt" format="(-)#,###" style="text-align:right; padding-right:2; "/>
			<col ref="remnamt" format="(-)#,###" style="text-align:right; padding-right:2; "/>
			<col ref="depoamt" format="(-)#,###" style="text-align:right; padding-right:2; "/>
		</datagrid>
		<caption id="caption1" class="tit_2" style="left:0px; top:75px; width:162px; height:13px; ">과제별 보고서 작성 이력</caption>
		<datagrid id="grd_pt" nodeset="/root/main/ptlist/uncoinfo" caption="등록번호^환자명^수납일^진료형태^진료일^진료과^진료의^미수금액^청구금액^수납금액^수납자명^보험유형^보조유형^퇴원일" colsep="^" colwidth="60, 60, 80, 60, 80, 120, 50, 70, 70, 70, 60, 80, 80, 80" mergecellsfixedrows="bycolrec" rowheader="seq" rowsep="|" style="left:415px; top:95px; width:780px; height:670px; ">
			<col explorerbar="sort" ref="pid" style="text-align:center; "/>
			<col explorerbar="sortshow" ref="hngnm" style="text-align:center; "/>
			<col explorerbar="sortshow" ref="rcptexecdd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col explorerbar="sort" disabled="true" ref="ordtype" type="combo" style="text-align:center; ">
				<choices>
					<item>
						<label>입원</label>
						<value>I</value>
					</item>
					<item>
						<label>외래</label>
						<value>O</value>
					</item>
					<item>
						<label>응급</label>
						<value>E</value>
					</item>
				</choices>
			</col>
			<col explorerbar="sortshow" ref="orddd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="orddeptnm" style="text-align:center; "/>
			<col ref="orddrnm" style="text-align:center; "/>
			<col explorerbar="sortshow" ref="uncoamt" format="(-)#,###" style="text-align:right; padding-right:1; "/>
			<col explorerbar="sortshow" ref="clamamt" format="(-)#,###" style="font-weight:bold; text-align:right; padding-right:1; "/>
			<col explorerbar="sortshow" ref="rcptamt" format="(-)#,###" style="font-weight:bold; color:green; text-align:right; padding-right:1; "/>
			<col ref="rcptnm" style="text-align:center; "/>
			<col ref="insukindnm" style="text-align:center; "/>
			<col ref="suppkindnm" style="text-align:center; "/>
			<col ref="dschdd" format="yyyy-mm-dd" style="text-align:center; "/>
		</datagrid>
		<datagrid id="grd_rept" nodeset="/root/main/reptlist/reptinfo" allowselection="false" backcoloralternate="transparent" caption="과제코드^연구번호^과제번호^보고서코드^보고서명^보고서순번^상태^작성일^제출일^작성자ID^작성자^환자수^청구금액" colsep="^" colwidth="0, 0, 0, 0, 100, 0, 40, 80, 0, 0, 60, 45, 80" ellipsis="true" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowsep="|" tooltip="label" style="left:0px; top:95px; width:410px; height:670px; ">
			<col ref="projcd"/>
			<col ref="studycd"/>
			<col ref="subjno"/>
			<col ref="reptcd"/>
			<col ref="reptnm" style="text-align:center; "/>
			<col ref="seqno"/>
			<col disabled="true" ref="status" type="combo" style="text-align:center; ">
				<choices>
					<item>
						<label>진행</label>
						<value>P</value>
					</item>
					<item>
						<label>반려</label>
						<value>R</value>
					</item>
					<item>
						<label>제출</label>
						<value>E</value>
					</item>
					<item>
						<label>확인</label>
						<value>A</value>
					</item>
				</choices>
			</col>
			<col ref="bsdd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="sbmtdd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="bsid"/>
			<col ref="bsnm" style="text-align:center; "/>
			<col ref="ptcnt" style="text-align:center; "/>
			<col ref="clamamt" format="(-)#,###" style="text-align:right; padding-right:2; "/>
			<script type="javascript" ev:event="ondblclick">
				<![CDATA[
					if (!grd_rept.isCell(event.target)) {
						return;
					}
					
					if (grd_rept.row < grd_rept.fixedRows) {
						return;
					}
					
					var row = grd_rept.row;
					
					model.setValue("/root/send/studycd", model.getValue("/root/main/reptlist/reptinfo[" + row + "]/studycd"));
					model.setValue("/root/send/reptcd",  model.getValue("/root/main/reptlist/reptinfo[" + row + "]/reptcd"));
					model.setValue("/root/send/reptseq", model.getValue("/root/main/reptlist/reptinfo[" + row + "]/seqno"));
					
					model.makeNode("/root/main/ptlist/uncoinfo");
					
					submit("TRPAM00407");
				]]>
			</script>
		</datagrid>
		<line id="line2" class="line_1" style="x1:0px; y1:90px; x2:410px; y2:90px; "/>
		<caption id="caption6" class="tit_2" style="left:415px; top:75px; width:180px; height:13px; ">과제 및 보고서별 환자 내역</caption>
		<line id="line5" class="line_1" style="x1:415px; y1:90px; x2:1195px; y2:90px; "/>
		<button id="btn_excel" class="btn2_letter4" style="left:1131px; top:70px; width:64px; height:19px; ">
			<caption>엑셀저장</caption>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					var stdycd = model.getValue("/root/main/projinfo/studycd");
					var bsdd = model.getValue("/root/main/reptlist/reptinfo[" + grd_rept.row + "]/bsdd");
					
					var filename = window.fileDialog("save", ",", false, "보고서별 환자 내역_" + stdycd + "_" + bsdd, "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
					
					grd_pt.saveExcel(filename, "sheetname:보고서별 환자 내역;col_4:label");
					
					messageBox("엑셀 저장이 완료되었습니다.", "I999");
				]]>
			</script>
		</button>
		<button id="btn_prt" class="btn2_letter2" style="left:1087px; top:70px; width:42px; height:19px; ">
			<caption>출력</caption>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					
					model.setValue("/root/temp/projinfo/proj_kind",    model.getValue("/root/main/projinfo/kind"));
					model.setValue("/root/temp/projinfo/proj_kindnm",  model.getValue("/root/main/projinfo/kindnm"));
					model.setValue("/root/temp/projinfo/proj_projcd",  model.getValue("/root/main/projinfo/projcd"));
					model.setValue("/root/temp/projinfo/proj_studycd", model.getValue("/root/main/projinfo/studycd"));
					model.setValue("/root/temp/projinfo/proj_projnm",  model.getValue("/root/main/projinfo/projnm"));
					model.setValue("/root/temp/projinfo/proj_rshid",   model.getValue("/root/main/projinfo/rshid"));
					model.setValue("/root/temp/projinfo/proj_rshnm",   model.getValue("/root/main/projinfo/rshnm"));
					model.setValue("/root/temp/projinfo/proj_unitcd",  model.getValue("/root/main/projinfo/unitcd"));
					model.setValue("/root/temp/projinfo/proj_unitnm",  model.getValue("/root/main/projinfo/unitnm"));
					model.setValue("/root/temp/projinfo/proj_fromdd",  fGetDF4Rpt(model.getValue("/root/main/projinfo/fromdd")));
					model.setValue("/root/temp/projinfo/proj_todd",    fGetDF4Rpt(model.getValue("/root/main/projinfo/todd")));
					model.setValue("/root/temp/projinfo/proj_projamt", model.getValue("/root/main/projinfo/projamt"));
					model.setValue("/root/temp/projinfo/proj_remnamt", model.getValue("/root/main/projinfo/remnamt"));
					model.setValue("/root/temp/projinfo/proj_depoamt", model.getValue("/root/main/projinfo/depoamt"));
					
					var row = grd_rept.row;
					
					model.setValue("/root/temp/reptinfo/rept_projcd",  model.getValue("/root/main/reptlist/reptinfo[" + row + "]/projcd"));
					model.setValue("/root/temp/reptinfo/rept_studycd", model.getValue("/root/main/reptlist/reptinfo[" + row + "]/studycd"));
					model.setValue("/root/temp/reptinfo/rept_subjno",  model.getValue("/root/main/reptlist/reptinfo[" + row + "]/subjno"));
					model.setValue("/root/temp/reptinfo/rept_reptcd",  model.getValue("/root/main/reptlist/reptinfo[" + row + "]/reptcd"));
					model.setValue("/root/temp/reptinfo/rept_reptnm",  model.getValue("/root/main/reptlist/reptinfo[" + row + "]/reptnm"));
					model.setValue("/root/temp/reptinfo/rept_seqno",   model.getValue("/root/main/reptlist/reptinfo[" + row + "]/seqno"));
					
					var status = model.getValue("/root/main/reptlist/reptinfo[" + row + "]/status");
					if (status == "P") {
						status = "진행";
					} else if (status == "R") {
						status = "반려";
					} else if (status == "E") {
						status = "제출";
					} else if (status == "A") {
						status = "확인";
					}
					model.setValue("/root/temp/reptinfo/rept_status",  status);
					model.setValue("/root/temp/reptinfo/rept_bsdd",    fGetDF4Rpt(model.getValue("/root/main/reptlist/reptinfo[" + row + "]/bsdd")));
					model.setValue("/root/temp/reptinfo/rept_sbmtdd",  fGetDF4Rpt(model.getValue("/root/main/reptlist/reptinfo[" + row + "]/sbmtdd")));
					model.setValue("/root/temp/reptinfo/rept_bsid",    model.getValue("/root/main/reptlist/reptinfo[" + row + "]/bsid"));
					model.setValue("/root/temp/reptinfo/rept_bsnm",    model.getValue("/root/main/reptlist/reptinfo[" + row + "]/bsnm"));
					model.setValue("/root/temp/reptinfo/rept_ptcnt",   model.getValue("/root/main/reptlist/reptinfo[" + row + "]/ptcnt"));
					model.setValue("/root/temp/reptinfo/rept_clamamt", model.getValue("/root/main/reptlist/reptinfo[" + row + "]/clamamt"));
					
					model.resetInstanceNode("/root/temp/ptlist/ptinfo");
					
					var cnt = instance1.selectNodes("/root/main/ptlist/uncoinfo").length;
					
					for (var i = 1; i <= cnt; i++) {
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/pid",        model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/pid"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/hngnm",      model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/hngnm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/rcptexecdd", fGetDF4Rpt(model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/rcptexecdd")));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/orddd",      fGetDF4Rpt(model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/orddd")));
						
						var ordtype = model.getValue("/root/main/ptlist/ptinfo[" + i + "]/ordtype");
						if (ordtype == "I") {
							ordtype = "입원";
						} else if (ordtype == "O") {
							ordtype = "외래";
						} else if (ordtype == "E") {
							ordtype = "응급";
						}
						
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/ordtype",    ordtype);
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/orddeptnm",  model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/orddeptnm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/orddrnm",    model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/orddrnm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/insukindnm", model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/insukindnm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/suppkindnm", model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/suppkindnm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/unconm",     model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/unconm"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/uncoamt",    model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/remnamt"));
						model.makeValue("/root/temp/ptlist/ptinfo[" + i + "]/clamamt",    model.getValue("/root/main/ptlist/uncoinfo[" + i + "]/clamamt"));
					}
					
					exeReportPreview("RPPAM00403", "XMLSTR");
				]]>
			</script>
			<hint>
				<![CDATA[보고서에 적용된 환자 내역만 출력됩니다]]>
			</hint>
		</button>
	</xhtml:body>
</xhtml:html>