YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID31300_적정성평가미시행처방조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID31300" position="absolute 0 0 867 733" titletext="청구 적정성평가 미시행처방 조회" oninit="SMPID31300_oninit" onload="SMPID31300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 26 866 732" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 0 865 63" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout width="1160" height="40">
                    <Button position="absolute 799 18 855 40" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 781 13 787 46" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="처방일        :" position="absolute 241 35 338 52" id="caption2" class="search_name" anchor="left top"/>
                    <Calendar position="absolute 339 35 424 54" id="ipt_fromdd" enable="true" mask="yyyy-mm-dd" anchor="left top" onkeydown="grp_biz_group1_input2_onkeydown" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup" onchanged="grp_biz_group1_ipt_fromdd_onchanged" autoselect="true"/>
                    <Calendar id="ipt_todd" taborder="33" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 447 35 532 54" mask="yyyy-mm-dd" onkeyup="grp_biz_group1_ipt_todd_onkeyup" autoselect="true" anchor="left top"/>
                    <Static id="Static00" text="~" position="absolute 426 35 444 55" style="align:center middle;" anchor="left top"/>
                    <Static id="caption05" text="환자번호 :" class="search_name" position="absolute 547 11 620 28" anchor="left top"/>
                    <Edit id="Edit00" taborder="40" position="absolute 627 10 692 30" imemode="alpha" autoselect="true" useime="none" onkeydown="grp_biz_group1_Edit00_onkeydown" anchor="left top" enable="true"/>
                    <Static id="caption06" text="시행부서 :" class="search_name" position="absolute 10 36 92 53" anchor="left top"/>
                    <Combo id="Combo04" taborder="41" innerdataset="@ds_init_cmb_orddeptcd" codecolumn="deptcd" datacolumn="depthngnm" position="absolute 87 36 228 56" anchor="left top"/>
                    <Static id="caption00" text="구분      :" onclick="grp_biz_group1_caption00_onclick" class="search_name" position="absolute 10 11 92 28" anchor="left top"/>
                    <Combo id="Combo00" taborder="42" innerdataset="ds_hidden_obpvlist" codecolumn="valucd" datacolumn="valunm" onitemchanged="grp_biz_group1_Combo00_onitemchanged" position="absolute 87 10 228 30" anchor="left top">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn" size="256"/>
                          <Column id="datacolumn" size="256"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn"/>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">재원</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">D</Col>
                            <Col id="datacolumn">퇴원</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                    <Static id="caption01" text="평가대상기간 :" onclick="grp_biz_group1_caption2_onclick" class="search_name" position="absolute 240 11 338 28"/>
                    <Calendar id="ipt_fromdd00" taborder="43" autoselect="true" onkeydown="grp_biz_group1_input2_onkeydown" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup" onchanged="grp_biz_group1_ipt_fromdd_onchanged" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" position="absolute 340 10 425 29" mask="yyyy-mm-dd"/>
                    <Static id="Static01" text="~" position="absolute 426 9 444 29" style="align:center middle;"/>
                    <Calendar id="ipt_todd00" taborder="44" autoselect="true" onkeydown="grp_biz_group1_input2_onkeydown" onkeyup="grp_biz_group1_ipt_todd_onkeyup" position="absolute 447 10 532 29" mask="yyyy-mm-dd"/>
                    <Edit id="Edit01" taborder="45" useime="none" imemode="alpha" autoselect="true" position="absolute 694 10 760 30" anchor="left top" enable="false"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button id="btn_excelsave" taborder="4" text="엑셀저장" onclick="grp_biz_btn_excelsave_onclick" class="btn7" position="absolute 785 65 865 84" anchor="top right"/>
              <Grid id="grd_dpcdlist" class="datagrid3" taborder="5" binddataset="ds_grd_dpcdlist" autoenter="select" useinputpanel="false" cellsizingtype="both" cellclickbound="cell" position="absolute 0 86 865 706" anchor="all" cellmovingtype="col" extendsizetype="both" autosizingtype="none" cellsizebandtype="body">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="40" band="left"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="84"/>
                      <Column size="238"/>
                      <Column size="116"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="48"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" displaytype="normal" text="환자번호"/>
                      <Cell col="2" displaytype="normal" text="환자명"/>
                      <Cell col="3" text="처방코드"/>
                      <Cell col="4" text="처방명"/>
                      <Cell col="5" displaytype="normal" text="시행부서"/>
                      <Cell col="6" displaytype="normal" text="처방입력일자"/>
                      <Cell col="7" displaytype="normal" text="예약일자"/>
                      <Cell col="8" displaytype="normal" text="상태"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="normal" text="bind:pid"/>
                      <Cell col="2" displaytype="normal" text="bind:patnm"/>
                      <Cell col="3" text="bind:calcscorcd"/>
                      <Cell col="4" style="align:left middle;" text="bind:calcscornm"/>
                      <Cell col="5" displaytype="combo" text="bind:execdeptcd" combodataset="ds_init_cmb_orddeptcd" combocodecol="deptcd" combodatacol="depthngnm"/>
                      <Cell col="6" displaytype="date" text="bind:actorddd"/>
                      <Cell col="7" displaytype="date" text="bind:rsrvdd"/>
                      <Cell col="8" displaytype="combo" style="align:center middle;" text="bind:execprcpstatcd" combodataset="ds_init_M0011" combocodecol="cdid" combodatacol="cdnm"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static id="cap_judgtrgtman" text="결핵 적정성 평가 대상자" onclick="cap_diag_onclick" class="tit_2" position="absolute 0 68 192 88" anchor="left top"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="청구 적정성평가 미시행처방 조회" class="tit_1" position="absolute 0 0 272 26"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_dpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_dpcdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="255"/>
          <Column id="patnm" type="STRING" size="255"/>
          <Column id="execdeptcd" type="STRING" size="255"/>
          <Column id="actorddd" type="STRING" size="255"/>
          <Column id="rsrvdd" type="STRING" size="255"/>
          <Column id="execprcpstatcd" type="STRING" size="255"/>
        </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="instcd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="valucd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="clamymfrom" type="STRING" size="256"/>
          <Column id="clamymto" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_dtl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="255"/>
          <Column id="patnm" type="STRING" size="255"/>
          <Column id="orddeptnm" type="STRING" size="255"/>
          <Column id="orddrnm" type="STRING" size="255"/>
          <Column id="indd" type="STRING" size="255"/>
          <Column id="dschdd" type="STRING" size="255"/>
          <Column id="opsnglcode" type="STRING" size="255"/>
          <Column id="opgrupcode" type="STRING" size="255"/>
          <Column id="opexecdd" type="STRING" size="255"/>
          <Column id="opfromdt" type="STRING" size="255"/>
          <Column id="optodt" type="STRING" size="255"/>
          <Column id="otheropinfo" type="STRING" size="255"/>
          <Column id="gbn" type="STRING" size="255"/>
          <Column id="prcpcd" type="STRING" size="255"/>
          <Column id="prcpnm" type="STRING" size="255"/>
          <Column id="execdd_min" type="STRING" size="255"/>
          <Column id="execdd_max" type="STRING" size="255"/>
          <Column id="sefa" type="STRING" size="255"/>
          <Column id="cnt" type="BIGDECIMAL" size="255"/>
          <Column id="flag" type="STRING" size="255"/>
          <Column id="rem" type="STRING" size="255"/>
          <Column id="cretno" type="BIGDECIMAL" size="255"/>
          <Column id="remvyn" type="STRING" size="255"/>
          <Column id="warnyn" type="STRING" size="255"/>
          <Column id="roomnm" type="STRING" size="255"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_M0011" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_obpvlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.group1.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item1" compid="grp_biz.group1.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item8" compid="grp_biz.group1.Edit00" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item9" compid="grp_biz.group1.Combo04" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
      <BindItem id="item3" compid="grp_biz.group1.Combo00" propid="value" datasetid="ds_send" columnid="valucd"/>
      <BindItem id="item2" compid="grp_biz.group1.ipt_fromdd00" propid="value" datasetid="ds_send" columnid="clamymfrom"/>
      <BindItem id="item4" compid="grp_biz.group1.ipt_todd00" propid="value" datasetid="ds_send" columnid="clamymto"/>
      <BindItem id="item5" compid="grp_biz.group1.Edit01" propid="value" datasetid="ds_send" columnid="patnm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";

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

function SMPID31300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_dpcdlist);
/*	grdf_setRowTypeIcon(grp_biz.grd_dpcdlist, 0);*/
	grdf_setToolTipBind(grp_biz.grd_dpcdlist);	
	
	var oParam = {};
	oParam.id          = "TRPIJ00203";
	oParam.service     = "bfjudgapp.InHospJudgTrgtMan";
	oParam.method      = "reqGetDeptList";
	oParam.inds        = "req=ds_send";
	oParam.outds       = "ds_init_cmb_orddeptcd=deptlist";
	oParam.async       = true;

	tranf_submit(oParam);
	
	appf_getCodeList([{dsNm: "ds_init_M0011", cdGrpId: "M0011"}])
	
	lf_search();
	//ds_init_cmb_orddeptcd.keystring = "S:depthngnm";
	
	fInitialize();
}

function fInitialize(){

	var pid = opener.frmf_getParameter("SMPID31300_pid");
	var valucd = opener.frmf_getParameter("SMPID31300_valucd");
	var orddeptcd = opener.frmf_getParameter("SMPID31300_orddeptcd");
	var fromdd = opener.frmf_getParameter("SMPID31300_fromdd");
	var todd = opener.frmf_getParameter("SMPID31300_todd");
	var patnm = opener.frmf_getParameter("SMPID31300_patnm");
	

	var mm = utlf_getCurrentDate().toDate().getAddDate(-1,"M").getDateFormat("YYYYMMDD");		
	var lastdate = utlf_lastDateNum(mm)			

	ds_send.setColumn(0,"pid", pid);
	ds_send.setColumn(0,"valucd", valucd);
	ds_send.setColumn(0,"orddeptcd", "");
	ds_send.setColumn(0,"patnm", patnm);
	
	if (utlf_isNull(fromdd)) {
		ds_send.setColumn(0,"fromdd", mm );
		ds_send.setColumn(0,"todd", mm);
		ds_send.setColumn(0,"clamymfrom", mm);
		ds_send.setColumn(0,"clamymto", mm);
		
	} else {
		ds_send.setColumn(0,"fromdd", fromdd);
		ds_send.setColumn(0,"todd", todd);
		ds_send.setColumn(0,"clamymfrom", fromdd);
		ds_send.setColumn(0,"clamymto", todd);
	}

	fGetDocuList();
}

function cf_TRPPI01001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function fGetDocuList(){
	
	ds_grd_dpcdlist.clearData();
	grp_biz.grd_dpcdlist.nodatatext = "조회중입니다...";
	
	var oParam = {};
		oParam.id          = "TRPPI01300";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetPvNexecList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_dpcdlist=rsltlist";
		oParam.async       = true;
		oParam.progress    = false;
		oParam.callback    = "cf_TRPPI01300";

	tranf_submit(oParam);
	
	
}

function cf_TRPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    grp_biz.grd_dpcdlist.nodatatext = "";
	
}


function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_dpcdlist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_dpcdlist, grp_biz.cap_judgtrgtman.text , "see");
	}else{
		sysf_messageBox("엑셀저장할 내역이", "I004");	
	}	
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function grp_biz_group1_ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz.group1.ipt_todd.setFocus();
		//grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz_group1_btn_select_onclick();
	}
}

function cf_TXPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    ds_grd_dpcdlist.applyChange();
	fGetDocuList();
}


function grp_biz_group1_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	grp_biz.group1.ipt_todd.value = e.postvalue;
}

function grp_biz_group1_Edit00_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz.group1.btn_select.setFocus();
		grp_biz.group1.btn_select.click();
	}
}

function grp_biz_group1_ipt_fromdd00_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	grp_biz.group1.ipt_todd00.value = e.postvalue;
}

function lf_search() {

	var oParam = {};
		oParam.id          = "TRPID31100";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetPidmobpvList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_hidden_obpvlist=obpv";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20202";

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