YNU_JEUS/app_home/himed/xpapps/ast/examcurestatsxp/xp/SMAES08000_영상CVR조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAES08000" position="absolute 0 0 1180 750" titletext="영상CVR 전송내역조회" ontimer="SMMMD08600_ontimer" oninit="SMAES08000_oninit" onload="SMAES08000_onload">
    <Layouts>
      <Layout>
        <Static text="영상 CVR 조회" position="absolute 0 0 177 25" align="align:center middle;" id="caption9" class="tit_1"/>
        <Shape id="line1" class="line_10" position="absolute 0 112 1180 118" anchor="left top right"/>
        <Grid position="absolute 0 117 1180 744" id="datagrid1" binddataset="ds_cvrlist" anchor="all" scrollpixel="all" treeusecheckbox="false" treeuseimage="false" cellclickbound="cell" cellsizingtype="col" treeinitstatus="expand,all" selecttype="multirow" cellsizebandtype="allband" autosizingtype="row" autofittype="none" oncelldblclick="datagrid1_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="70" band="left"/>
                <Column size="120" band="left"/>
                <Column size="55" band="left"/>
                <Column size="50" band="left"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="200"/>
                <Column size="50"/>
                <Column size="80"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="0"/>
                <Column size="110"/>
                <Column size="260"/>
                <Column size="50"/>
                <Column size="110"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="150"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="등록일자"/>
                <Cell col="2" text="CVR기준"/>
                <Cell col="3" text="환자번호"/>
                <Cell col="4" text="환자명"/>
                <Cell col="5" text="처방일자"/>
                <Cell col="6" text="실시일자"/>
                <Cell col="7" text="처방명"/>
                <Cell col="8" text="진료구분"/>
                <Cell col="9" text="진료과" taborder="undefined"/>
                <Cell col="10" text="진료의"/>
                <Cell col="11" text="통보방법"/>
                <Cell col="12" text="전송자"/>
                <Cell col="13" text="행레벨"/>
                <Cell col="14" text="전송시간"/>
                <Cell col="15" text="전송내용"/>
                <Cell col="16" text="수신자"/>
                <Cell col="17" text="확인시간"/>
                <Cell col="18" text="신청번호"/>
                <Cell col="19" text="신청순번"/>
                <Cell col="20" text="승인상태코드"/>
                <Cell col="21" text="생성번호"/>
                <Cell col="22" text="진료과코드"/>
                <Cell col="23" text="병동코드"/>
                <Cell col="24" text="전문의사번"/>
                <Cell col="25" text="담당의사번"/>
                <Cell col="26" text="처방번호"/>
                <Cell col="27" text="처방상태코드"/>
                <Cell col="28" text="차용사유코드"/>
                <Cell col="29" text="차용신청부서코드"/>
                <Cell col="30" text="차용신청자사번"/>
                <Cell col="31" text="비고"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow+1"/>
                <Cell col="1" text="bind:genrdd" mask="expr:utlf_isNull(genrdd) ? &quot;&quot; : &quot;####-##-##&quot;"/>
                <Cell col="2" displaytype="combo" text="bind:rgstflag" combodataset="ds_rgstflag" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:hngnm"/>
                <Cell col="5" style="align:left middle;" text="bind:rgstdt" mask="expr:utlf_isNull(rgstdt) ? &quot;&quot; : &quot;####-##-## ##:##&quot;"/>
                <Cell col="6" style="align:center middle;" text="bind:execdt" mask="expr:utlf_isNull(execdt) ? &quot;&quot; : &quot;####-##-## ##:##&quot;"/>
                <Cell col="7" style="align:left middle;" text="bind:prcpnm" wordwrap="word"/>
                <Cell col="8" style="align:center middle;" text="bind:ordtypenm"/>
                <Cell col="9" displaytype="normal" edittype="none" style="align:left middle;padding:EXPR((row_level == 1) ? &quot;0 4 0 0&quot; : &quot;0 4 0 12&quot;);line:1 solid #b0b0b0ff,1 solid #b0b0b0ff,1 solid #b0b0b0ff,0 solid #b0b0b0ff;" text="bind:orddeptnm" treestartlevel="0"/>
                <Cell col="10" style="align:center middle;" text="bind:orddrnm"/>
                <Cell col="11" style="align:center middle;" text="bind:sendtypenm"/>
                <Cell col="12" style="align:center middle;" text="bind:sendnm"/>
                <Cell col="13" text="bind:row_level"/>
                <Cell col="14" style="align:center middle;" text="bind:senddt" mask="expr:utlf_isNull(senddt) ? &quot;&quot; : &quot;####-##-## ##:##&quot;"/>
                <Cell col="15" style="align:left middle;padding:5 5 5 5;" text="bind:cvrmsg" wordwrap="word" autosizerow="default"/>
                <Cell col="16" style="align:center middle;" text="bind:recvnm"/>
                <Cell col="17" style="align:center middle;" text="bind:confdt" mask="expr:utlf_isNull(confdt) ? &quot;&quot; : &quot;####-##-## ##:##&quot;"/>
                <Cell col="18" text="bind:limaprvno"/>
                <Cell col="19" text="bind:aprvseq"/>
                <Cell col="20" text="bind:aprvstat"/>
                <Cell col="21" text="bind:cretno"/>
                <Cell col="22" text="bind:orddeptcd"/>
                <Cell col="23" text="bind:wardcd"/>
                <Cell col="24" text="bind:medispclid"/>
                <Cell col="25" text="bind:atdoctid"/>
                <Cell col="26" text="bind:prcpno"/>
                <Cell col="27" text="bind:prcphistcd"/>
                <Cell col="28" text="bind:borrowcd"/>
                <Cell col="29" text="bind:borrowdeptcd"/>
                <Cell col="30" text="bind:borrowid"/>
                <Cell col="31" style="align:left middle;" text="bind:rmk" wordwrap="word"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="Div00" taborder="1" position="absolute 0 25 1180 88" class="div_SA" scrollbars="none" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption4" text="진료구분 :" class="search_name" position="absolute 6 35 77 55" anchor="default"/>
              <Radio id="radio1" taborder="1" columncount="6" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 83 35 408 55" anchor="default" onitemchanged="Div00_radio1_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">-</Col>
                      <Col id="datacolumn">전체</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">O</Col>
                      <Col id="datacolumn">외래</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">S</Col>
                      <Col id="datacolumn">검진</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">I</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">E</Col>
                      <Col id="datacolumn">응급</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">D</Col>
                      <Col id="datacolumn">일일</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption2" text="등록일자 :" class="search_name" position="absolute 6 11 85 31" anchor="default"/>
              <Calendar id="ipt_fromdd" taborder="3" class="input" position="absolute 81 11 166 31" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true" autoskip="true"/>
              <Static id="caption3" text="~" position="absolute 169 11 179 31" anchor="default"/>
              <Calendar id="ipt_todd" taborder="4" class="input" position="absolute 182 11 267 30" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true" autoskip="true"/>
              <Static id="caption10" text="등록번호 :" class="search_name" position="absolute 817 35 894 55" anchor="default"/>
              <Edit id="input1" taborder="5" position="absolute 892 35 962 55" anchor="default" onkeydown="Div00_input1_onkeydown" autoselect="true"/>
              <Button id="btn_patsrch" taborder="6" class="icon_search" position="absolute 1029 36 1049 56" anchor="default" onclick="Div00_btn_patsrch_onclick"/>
              <Edit id="input2" taborder="7" enable="false" position="absolute 964 35 1024 55" anchor="default"/>
              <Static id="caption1" text="진 료 과 :" class="search_name" position="absolute 449 35 528 55" anchor="default"/>
              <Combo id="cmb_orddept" taborder="8" innerdataset="@ds_orddept" codecolumn="deptcd" datacolumn="depthngnm" position="absolute 531 35 760 55" anchor="default" onitemchanged="Div00_cmb_orddept_onitemchanged"/>
              <Shape id="line3" linetype="vertical" position="absolute 1093 11 1103 56" anchor="top right"/>
              <Button id="btn_req" taborder="11" text="조회" class="btn1" position="absolute 1111 23 1167 43" anchor="top right" onclick="Div00_btn_req_onclick"/>
              <Combo id="cmb_prid" taborder="12" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="Div00_cmb_prid_onitemchanged" position="absolute 270 11 339 31" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1M</Col>
                      <Col id="datacolumn">1개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">3M</Col>
                      <Col id="datacolumn">3개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">6M</Col>
                      <Col id="datacolumn">6개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">9M</Col>
                      <Col id="datacolumn">9개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1Y</Col>
                      <Col id="datacolumn">1년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2Y</Col>
                      <Col id="datacolumn">2년</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Static id="caption00" text="CVR기준 :" class="search_name" position="absolute 449 11 528 31" anchor="default"/>
              <Combo id="cmb_rgstflag" taborder="13" innerdataset="@ds_rgstflag" codecolumn="cdid" datacolumn="cdnm" position="absolute 531 11 760 31" anchor="default" onitemchanged="Div00_cmb_rgstflag_onitemchanged"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption3" text="영상 CVR 등록 내역" class="tit_2" position="absolute 0 94 170 114"/>
        <Button id="button1" taborder="2" text="엑셀" class="btn7" position="absolute 1120 91 1176 111" anchor="top right" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="prid" type="STRING" size="256"/>
          <Column id="rgstflag" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="prid"/>
            <Col id="rgstflag"/>
            <Col id="ioflag"/>
            <Col id="orddeptcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depthngnm" type="STRING"/>
          <Column id="deptcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_patnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cvrlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_limantibiolist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="genrdd" type="STRING" size="256"/>
          <Column id="genrno" type="STRING" size="256"/>
          <Column id="cvrtype" type="STRING" size="256"/>
          <Column id="refkey" type="STRING" size="256"/>
          <Column id="rgstflag" type="STRING" size="256"/>
          <Column id="sendtypenm" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="ordtypenm" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rgstdt" type="STRING" size="256"/>
          <Column id="execdt" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="sendnm" type="STRING" size="256"/>
          <Column id="senddt" type="STRING" size="256"/>
          <Column id="cvrmsg" type="STRING" size="256"/>
          <Column id="recvnm" type="STRING" size="256"/>
          <Column id="confdt" type="STRING" size="256"/>
          <Column id="rmk" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rgstflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Div00.radio1" propid="value" datasetid="ds_cond" columnid="ioflag"/>
      <BindItem id="item3" compid="Div00.cmb_orddept" propid="value" datasetid="ds_cond" columnid="orddeptcd"/>
      <BindItem id="item4" compid="Div00.ipt_fromdd" propid="value" datasetid="ds_cond" columnid="fromdd"/>
      <BindItem id="item5" compid="Div00.ipt_todd" propid="value" datasetid="ds_cond" columnid="todd"/>
      <BindItem id="item8" compid="Div00.input1" propid="value" datasetid="ds_cond" columnid="pid"/>
      <BindItem id="item9" compid="Div00.input2" propid="value" datasetid="ds_cond" columnid="hngnm"/>
      <BindItem id="item6" compid="Div00.cmb_prid" propid="value" datasetid="ds_cond" columnid="prid"/>
      <BindItem id="item1" compid="Div00.cmb_rgstflag" propid="value" datasetid="ds_cond" columnid="rgstflag"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2019-04-04
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2019-04-04      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

function SMAES08000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMAES08000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setGridSort(datagrid1);
	grdf_setToolTipBind(datagrid1);

	appf_getCodeList([{dsNm: "ds_rgstflag", cdGrpId: "A0667"}], true);
	frmf_addComboItem("Div00.cmb_rgstflag", "전체", "-");

	ds_cond.setColumn(0, "ioflag" , "-");
	ds_cond.setColumn(0, "prid" ,   "6M"); // 기간 6달
	ds_cond.setColumn(0, "rgstflag","-");   
	ds_cond.setColumn(0, "fromdd" , ((utlf_getCurrentDate().toDate()).getAddDate(-6,"M")).getDateFormat()); //시작일자는 최근 1달
	ds_cond.setColumn(0, "todd"   , utlf_getCurrentDate()); //종료일자는 현재일자
	
	lf_mmbfGetDeptCodeComboList(ds_orddept, "A");	//부서코드 콤보
	
	frmf_addComboItem("Div00.cmb_orddept");			//진료과 전체항목 추가
	
	Div00.cmb_orddept.index  = 0;
	
	fReqGetRadiologyCvrList();
}

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

function Div00_btn_patsrch_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SPPMC02500", "SPPMC02500", null, null, null, null, null, null, null, null, null, null, "M");

	if(!utlf_isNull(this.objects["ds_patinfolist"])) {
		var sPid   = ds_patinfolist.getColumn(0, "pid");
		var sHngnm = ds_patinfolist.getColumn(0, "hngnm");
		ds_cond.setColumn(0, "pid", sPid);
		ds_cond.setColumn(0, "hngnm", sHngnm);
	}
}

function Div00_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	fReqGetRadiologyCvrList();
}

function fReqGetRadiologyCvrList() {
    var oParam = {};
		oParam.id       = "TRAES08001";
		oParam.service  = "examcurestatsapp.ImgMediSc";
		oParam.method   = "reqGetRadiologyCvrList";
		oParam.inds     = "req=ds_cond";
		oParam.outds    = "ds_cvrlist=cvrlist";
		oParam.async    = false;

	tranf_submit(oParam);
}

function Div00_cmb_prid_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var number = obj.value.substr(0, 1);
	var period = obj.value.substr(1, 1);
	
	var idate = new Date();			
	var fromdd = idate.getAddDate(parseInt(number) * -1, period).getDateFormat();
	var todd = utlf_getCurrentDate();
	
 	ds_cond.setColumn(0, "fromdd", fromdd);
 	ds_cond.setColumn(0, "todd",   todd);
 	
 	fReqGetRadiologyCvrList();
}

function datagrid1_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var nRow = ds_cvrlist.rowposition;
    if(nRow < 0){ return; }
    
    var sRefKey = ds_cvrlist.getColumn(nRow, "refkey");
    if(utlf_isNull(sRefKey))  return;
		
	dsf_createDsRow( "ds_arg_SPLPR03000", [{col : "cvrtype", val : "R"}          // CVR구분 R:영상
										  ,{col : "refkey",  val : sRefKey}]);   // 영상처방번호
	var objArg = new Object();
	objArg.arg_ds_popup = ds_arg_SPLPR03000;                             

	frmf_modal("SPLPR03000", "SPLPR03000", objArg, null, null, null, null, null, null, null, null, null, "M");
}

function Div00_cmb_rgstflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fReqGetRadiologyCvrList();
}

function Div00_cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fReqGetRadiologyCvrList();
}

function Div00_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fReqGetRadiologyCvrList();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(datagrid1, "영상 CVR 조회", "영상CVR", false, "", "user");
}
]]></Script>
  </Form>
</FDL>