YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO00850_상병코드조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO00850" position="absolute 0 0 900 570" titletext="상병 코드 조회" oninit="SPMMO00850_oninit" onload="SPMMO00850_onload">
    <Layouts>
      <Layout>
        <Div id="Div00" taborder="1" position="absolute 0 0 900 46" class="div_SA2">
          <Layouts>
            <Layout>
              <Static id="caption4" text="기준일자 :" class="search_name" position="absolute 21 12 99 32" anchor="default"/>
              <Calendar id="ipt_basedd" taborder="1" position="absolute 110 12 195 32" mask="yyyy-mm-dd" dateformat="yyyy-MM-dd" value="null" autoselect="true"/>
              <Radio id="rdo_diagkind" taborder="3" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" visible="false" position="absolute 110 12 210 32" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">ICD10</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">확장</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <CheckBox id="bol_between" taborder="4" position="absolute 247 12 333 32" text="범위검색" falsevalue="N" truevalue="Y" onclick="Div00_bol_between_onclick"/>
              <Div id="case1" taborder="5" position="absolute 360 12 792 32">
                <Layouts>
                  <Layout>
                    <Static id="caption1" text="상병코드 :" class="search_name" position="absolute 0 0 78 20" anchor="default"/>
                    <Edit id="ipt_diagcd" taborder="3" position="absolute 85 0 155 20" anchor="default" inputmode="upper" autoselect="true" onkeydown="Div00_case1_ipt_diagcd_onkeydown"/>
                    <Static id="caption3" text="상병명 :" class="search_name" position="absolute 180 0 243 20" anchor="default"/>
                    <Edit id="ipt_diagnm" taborder="4" position="absolute 248 0 418 20" anchor="default" autoselect="true" onkeydown="Div00_case1_ipt_diagnm_onkeydown"/>
                  </Layout>
                </Layouts>
              </Div>
              <Div id="case2" taborder="6" position="absolute 360 12 634 32" visible="false">
                <Layouts>
                  <Layout>
                    <Static id="caption5" text="상병코드 :" class="search_name" position="absolute 0 0 78 20" anchor="default"/>
                    <Edit id="ipt_from" taborder="5" position="absolute 85 0 155 20" anchor="default" inputmode="upper" onkeydown="Div00_case2_ipt_from_onkeydown" autoselect="true"/>
                    <Static id="caption6" text="~" position="absolute 163 0 174 20" anchor="default"/>
                    <Edit id="ipt_to" taborder="6" position="absolute 180 0 255 20" anchor="default" inputmode="upper" onkeydown="Div00_case2_ipt_to_onkeydown" autoselect="true"/>
                  </Layout>
                </Layouts>
              </Div>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 817 11 823 33"/>
              <Button id="btn_search" taborder="2" text="조회" class="btn1" position="absolute 830 12 886 32" anchor="default" onclick="Div00_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_diagmast" taborder="2" binddataset="ds_listdiag" useinputpanel="false" position="absolute 0 50 900 545" autofittype="col" cellclickbound="cell" oncellclick="grd_diagmast_oncellclick" oncelldblclick="grd_diagmast_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="25"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="67"/>
                <Column size="0"/>
                <Column size="385"/>
                <Column size="397"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="S"/>
                <Cell col="2" text="시작일자"/>
                <Cell col="3" text="종료일자"/>
                <Cell col="4" text="ICD10"/>
                <Cell col="5" text="상병코드"/>
                <Cell col="6" text="영문명"/>
                <Cell col="7" text="한글명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:status" expr="expr:(status == &quot;I&quot; || status == 1) ? 1 : 0"/>
                <Cell col="2" displaytype="none" edittype="none" text="bind:diagfromdd" mask="yyyy-mm-dd"/>
                <Cell col="3" displaytype="none" edittype="none" text="bind:diagtodd" mask="yyyy-mm-dd"/>
                <Cell col="4" style="align:left middle;" text="bind:diagcd"/>
                <Cell col="5" text="bind:termcd"/>
                <Cell col="6" style="align:left middle;" text="bind:diagengnm"/>
                <Cell col="7" style="align:left middle;" text="bind:diaghngnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_init" taborder="3" text="초기화" onclick="btn_init_onclick" class="btn3" visible="false" position="absolute 681 550 749 570"/>
        <Button id="button1" taborder="4" text="선택" onclick="button1_onclick" class="btn4" position="absolute 784 550 840 570"/>
        <Button id="btn_close" taborder="5" text="닫기" onclick="btn_close_onclick" class="btn3" position="absolute 844 550 900 570"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_listdiag" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_listdiag_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="선택여부"/>
          <Column id="diagfromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="diagtodd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="ICO10코드"/>
          <Column id="termcd" type="STRING" size="256" sumtext="확장상병코드"/>
          <Column id="diaghngnm" type="STRING" size="256" sumtext="한글명"/>
          <Column id="diagengnm" type="STRING" size="256" sumtext="영문명"/>
          <Column id="spclcd" type="STRING" size="256" sumtext="특정코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basedd" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diagnm" type="STRING" size="256"/>
          <Column id="selectedrdodiagkind" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="between" type="STRING" size="256"/>
          <Column id="fromcd" type="STRING" size="256"/>
          <Column id="tocd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Div00.rdo_diagkind" propid="value" datasetid="ds_send" columnid="selectedrdodiagkind"/>
      <BindItem id="item1" compid="Div00.ipt_basedd" propid="value" datasetid="ds_send" columnid="basedd"/>
      <BindItem id="item2" compid="Div00.case2.ipt_from" propid="value" datasetid="ds_send" columnid="fromcd"/>
      <BindItem id="item3" compid="Div00.case2.ipt_to" propid="value" datasetid="ds_send" columnid="tocd"/>
      <BindItem id="item4" compid="Div00.case1.ipt_diagcd" propid="value" datasetid="ds_send" columnid="diagcd"/>
      <BindItem id="item5" compid="Div00.case1.ipt_diagnm" propid="value" datasetid="ds_send" columnid="diagnm"/>
      <BindItem id="item6" compid="Div00.bol_between" propid="value" datasetid="ds_send" columnid="between"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";


function SPMMO00850_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_diagmast);
}

function SPMMO00850_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setToolTipBind(grd_diagmast);
	
	fInitialize();
}

function ds_listdiag_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "status")
		obj.setColumn(e.row, e.columnid, (e.newvalue == "I" || e.newvalue == 1) ? "I" : "N");
}

function grd_diagmast_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.col == 1) return;
	
	var status = ds_listdiag.getColumn(e.row, "status");
	ds_listdiag.setColumn(e.row, "status", (status == "I" || status == 1) ? "N" : "I");
}

function grd_diagmast_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	
	ds_listdiag.setColumn(e.row, "status", "I");
	
	var rtn1 = dsf_getDsCSV(ds_listdiag, null, null, "status:I");
	opener.frmf_setParameter( "SPMMO00800_rtn", rtn1 );
	opener.frmf_setParameter("SPMMO00800_rtn_useyn", "Y");                           
	close();
}

function Div00_bol_between_onclick(obj:CheckBox,  e:ClickEventInfo)
{	
	if(obj.value == "Y"){
		Div00.case1.visible = false;
		Div00.case2.visible = true;
		
		ds_send.setColumn(0, "diagcd", "");
		ds_send.setColumn(0, "diagnm", "");
	} else{
		Div00.case1.visible = true;
		Div00.case2.visible = false;
		
		ds_send.setColumn(0, "fromcd", "");
		ds_send.setColumn(0, "tocd",   "");
	}
}

function Div00_case1_ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSearchDiag();
	}
}

function Div00_case1_ipt_diagnm_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSearchDiag();
	}
}

function Div00_case2_ipt_from_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
		Div00.case2.ipt_to.setFocus();
}

function Div00_case2_ipt_to_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSearchDiag();
	}
}

function Div00_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearchDiag();
}

function btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitialize();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( ds_listdiag.rowcount == 0 || ds_listdiag.getCaseCount("status == 'I'") == 0 ) {
		sysf_messageBox ( "선택된 진단이", "I004" );		
	} else {
		var rtn1 = dsf_getDsCSV(ds_listdiag, null, null, "status:I");

		opener.frmf_setParameter( "SPMMO00800_rtn", rtn1 );
		opener.frmf_setParameter( "SPMMO00800_rtn_useyn", "Y");
		close();
	}
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	close();	// F5 실행시 IE를 종료시킨다.
}

// 화면을 초기화한다.
function fInitialize() {
	opener.frmf_setParameter( "SPMMO00800_rtn", "" );
	opener.frmf_setParameter( "SPMMO00800_rtn_useyn", "N");
	
	var cond1 = opener.frmf_getParameter ( "SPMMO00800_cond1" ); //검색구분(1:코드, 2:명) 
	var cond3 = opener.frmf_getParameter ( "SPMMO00800_cond3" ); //한영구분(H: 한글, E:영문) 
	var cond5 = opener.frmf_getParameter ( "SPMMO00800_cond5" ); //검색내용 
	
	ds_send.clearData();
	ds_send.addRow();
	
	if (cond1 == '1') {
		ds_send.setColumn(0, "diagcd",cond5);
	} else {
		ds_send.setColumn(0, "diagnm",cond5);
	}
		
	// 기본적으로 ICD10으로 초기화
	ds_send.setColumn(0, "selectedrdodiagkind", "1"); 
									
	var today = new Date();
	var syear = today.getDateFormat("YYYY");	// (dateHelper.js)에서 제공하는 함수를 사용하여 해당 년를 구한다.
	var smonth = today.getDateFormat("MM");
	var sday = today.getDateFormat("DD");
	ds_send.setColumn(0, "basedd", syear + smonth + sday);
	
	fSearchDiag();
}

// 상병코드 또는 상병명을 조건으로 상병을 조회한다.
function fSearchDiag() {
	ds_listdiag.clearData();
	
	var oParam = {};
		oParam.id       = "TRPIZ00401";
		oParam.service  = "insucomapp.SickAndWounded";
		oParam.method   = "reqGetSickAndWounded";
		oParam.inds     = "req=ds_send";
		oParam.outds    = "ds_listdiag=listdiag";
		oParam.async    = true;

	tranf_submit(oParam);
}
]]></Script>
  </Form>
</FDL>