YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SMPMO00995_감사자료조회(비급여환자).xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPMO00995" position="absolute 0 0 1204 793" titletext="자료조회" onload="SMPMO00995_onload" oninit="SMPMO00995_oninit">
    <Layouts>
      <Layout>
        <Div id="group5" position="absolute 0 24 1195 64" style="align: top;" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout width="1195" height="40">
              <Static id="caption1" class="search_name" position="absolute 6 11 92 28" style="" text="진료과 :" anchor="default"/>
              <Static id="caption21" class="search_name" position="absolute 6 11 92 28" style="" text="조회연도:" anchor="default" visible="false"/>
              <Combo innerdataset="ds_init_pam_init_orddeptcd" datacolumn="nm" codecolumn="cd" columncount="-1" rowcount="-1" id="cmb_orddeptcd" position="absolute 67 10 197 29" style="align:center middle;" anchor="default"/>
              <Static id="caption2" class="search_name" position="absolute 432 13 518 30" style="" text="수진구분:" anchor="default"/>
              <Combo datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="combo3" position="absolute 505 11 575 30" style="align:center middle;" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </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">I</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Static id="caption3" class="search_name" position="absolute 211 13 297 30" style="" text="수가코드 :" anchor="default"/>
              <Combo datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="combo1" position="absolute 694 10 794 29" style="align:center middle;" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </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">I</Col>
                      <Col id="datacolumn">입퇴</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Static id="caption5" class="search_name" position="absolute 584 12 703 29" style="" text="입퇴_외퇴 구분:" anchor="default"/>
              <Edit id="input1" position="absolute 287 11 422 30" style="" anchor="default" autoselect="true"/>
              <Combo datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="cmb_year" position="absolute 80 10 165 29" style="" anchor="default" visible="false" enable="false">
                <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">2013</Col>
                      <Col id="datacolumn">2013년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2014</Col>
                      <Col id="datacolumn">2014년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2015</Col>
                      <Col id="datacolumn">2015년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2016</Col>
                      <Col id="datacolumn">2016년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2017</Col>
                      <Col id="datacolumn">2017년</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Shape id="line3" linetype="vertical" class="line_4" position="absolute 979 9 982 31" anchor="top right" style="border: solid #ffe4bb #ffe4bb;"/>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 990 9 1046 31" anchor="top right" onclick="group5_btn_search_onclick"/>
              <Button id="button2" taborder="2" text="저장" class="btn4" position="absolute 1048 9 1104 31" anchor="top right" onclick="group5_button2_onclick"/>
              <Button id="button1" taborder="3" text="엑셀저장" class="btn7" position="absolute 1107 9 1183 31" anchor="top right" onclick="group5_button1_onclick"/>
              <Static id="caption7" text="수가구분:" class="search_name" position="absolute 803 11 922 28"/>
              <Combo id="combo2" taborder="4" codecolumn="cdid" datacolumn="cdnm" position="absolute 874 10 966 29" style="align:center middle;" columncount="-1" rowcount="-1" innerdataset="ds_init_P6600list_P6600" index="-1">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows/>
                </Dataset>
              </Combo>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_10" linetype="horizontal" position="absolute 0 70 1195 81" style="" anchor="left top right"/>
        <Grid id="grd_nopypat" binddataset="ds_main_nopypatinfo" position="absolute 0 77 1195 786" style="" ontextchanged="grd_nopypat_ontextchanged" autoenter="select" cellsizingtype="col" anchor="all" extendsizetype="row" autosizingtype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35" band="left"/>
                <Column size="51"/>
                <Column size="76"/>
                <Column size="72"/>
                <Column size="70"/>
                <Column size="139"/>
                <Column size="59"/>
                <Column size="100"/>
                <Column size="235"/>
                <Column size="214"/>
                <Column size="211"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="연번"/>
                <Cell col="2" text="환자번호"/>
                <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="사유"/>
                <Cell col="10" text="비고"/>
                <Cell col="11" text="수가구분"/>
                <Cell col="12" text="EDICD"/>
                <Cell col="13" text="특정기호"/>
                <Cell col="14" text="구분"/>
                <Cell col="15" text="수기료코드"/>
                <Cell col="16" text="확인여부"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow + 1"/>
                <Cell col="1" style="align:center middle;" text="bind:year"/>
                <Cell col="2" style="align:center middle;" text="bind:pid"/>
                <Cell col="3" style="align:center middle;" text="bind:hngnm"/>
                <Cell col="4" displaytype="date" style="align:center middle;" text="bind:indd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" style="align:left middle;padding:0 0 0 2;" text="bind:depthngnm"/>
                <Cell col="6" displaytype="combo" style="align:left middle;padding:0 0 0 2;" text="bind:ioflag" combodataset="ds_cmb_ioflag" combocodecol="value" combodatacol="label"/>
                <Cell col="7" style="align:left middle;padding:0 0 0 2;" text="bind:snglcalcscorcd"/>
                <Cell col="8" style="align:left middle;padding:3 3 3 3;" text="bind:calchngnm" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="9" displaytype="text" edittype="text" style="align:left middle;padding:3 3 3 3;" text="bind:memo" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="10" displaytype="text" edittype="text" style="align:left middle;padding:3 3 3 3;" text="bind:bigo" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="11" displaytype="combo" style="align:left middle;padding:0 0 0 2;" text="bind:gubun" wordwrap="word" combodataset="ds_init_P6600list_P6600" combocodecol="cdid" combodatacol="cdnm" autosizerow="limitmin"/>
                <Cell col="12" style="align:left middle;padding:0 0 0 2;" text="bind:edicd"/>
                <Cell col="13" style="align:left middle;padding:0 0 0 2;" text="bind:spclcd"/>
                <Cell col="14" style="align:left middle;padding:0 0 0 2;" text="bind:newpayflag"/>
                <Cell col="15" style="align:left middle;padding:0 0 0 2;" text="bind:sugicode"/>
                <Cell col="16" style="align:left middle;padding:0 0 0 2;" text="bind:confirmyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption6" text="자료조회" class="tit_1" position="absolute 0 0 94 24"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="year" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="snglcalcscorcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="brateflag" type="STRING" size="256"/>
          <Column id="sess_posinstcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="year"/>
            <Col id="orddeptcd"/>
            <Col id="snglcalcscorcd"/>
            <Col id="ioflag"/>
            <Col id="brateflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_nopypatinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P6600list_P6600" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_pam_init_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cmb_ioflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
          <Row>
            <Col id="label">입원</Col>
            <Col id="value">I</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group5.cmb_orddeptcd" propid="value" datasetid="ds_send_reqdata" columnid="orddeptcd"/>
      <BindItem id="item1" compid="group5.combo3" propid="value" datasetid="ds_send_reqdata" columnid="ioflag"/>
      <BindItem id="item2" compid="group5.combo1" propid="value" datasetid="ds_send_reqdata" columnid="brateflag"/>
      <BindItem id="item3" compid="group5.input1" propid="value" datasetid="ds_send_reqdata" columnid="snglcalcscorcd"/>
      <BindItem id="item4" compid="group5.cmb_year" propid="value" datasetid="ds_send_reqdata" columnid="year"/>
      <BindItem id="item5" compid="group5.combo2" propid="value" datasetid="ds_send_reqdata" columnid="brateflag"/>
    </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::PAM.xjs";
include "pam_pamcomnxp::PAM001.xjs";
var arErrorCode = new HashArray();
function SMPMO00995_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPMO00995_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_nopypat);
	
	var oParam = {};
		oParam.id          = "TRPAMCOM01";
		oParam.service     = "pamcomnapp.PamComn";
		oParam.method      = "reqGetComCD";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_=disccd ds_=insukind ds_=suppkind ds_init_pam_init_orddeptcd=orddeptcd ds_=orddrid ds_=reducd ds_=uncocd ds_=proccd ds_=subjno ds_=rcptflag";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPAMCOM01";

	tranf_submit(oParam);

	var arrParam = new Array();
	arrParam = [{dsNm: "ds_init_P6600list_P6600", cdGrpId: "P6600", showValue: false}];
	pamfGetCodeList(arrParam, true, ""); 
	
	frmf_addComboItem("group5.cmb_orddeptcd","전체", "-", "above");
	
	if (frmf_checkOpener())
	{
		dsf_makeValue(ds_send_reqdata, "year", "string", opener.frmf_getParameter("year"));
		dsf_makeValue(ds_send_reqdata, "orddeptcd", "string", opener.frmf_getParameter("orddeptcd"));
		dsf_makeValue(ds_send_reqdata, "ioflag", "string", opener.frmf_getParameter("ioflag"));
		dsf_makeValue(ds_send_reqdata, "snglcalcscorcd", "string", opener.frmf_getParameter("snglcalcscorcd"));
		dsf_makeValue(ds_send_reqdata, "brateflag", "string", opener.frmf_getParameter("brateflag"));
		
		group5.btn_search.click();
	}
	else
	{
		dsf_makeValue(ds_send_reqdata, "year", "string", "2013");
		dsf_makeValue(ds_send_reqdata, "orddeptcd", "string", "-");
		dsf_makeValue(ds_send_reqdata, "ioflag", "string", "O");
		dsf_makeValue(ds_send_reqdata, "brateflag", "string", "O");
	}
	
	dsf_makeValue(ds_send_reqdata, "gubun", "string", "-");
	
	group5.cmb_year.value="2017";
	group5.combo1.value="-";
	group5.combo3.value="-";
	group5.combo2.value="-";
}

function group5_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPAO05005";
		oParam.service     = "pamcomnapp.GamSa";
		oParam.method      = "reqGetNopyPatInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_nopypatinfo=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPAO05005";

	tranf_submit(oParam);
}

function group5_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var updategrid = grdf_getGridUpdateData(grd_nopypat);
	ds_send_savedata.copyData(updategrid, true);

	var oParam = {};
		oParam.id          = "TXPAO05005";
		oParam.service     = "pamcomnapp.GamSa";
		oParam.method      = "reqSetNopyPatInfo";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXPAO05005";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXPAO05005") > -1)
	{
		var oParam = {};
			oParam.id          = "TRPAO05005";
			oParam.service     = "pamcomnapp.GamSa";
			oParam.method      = "reqGetNopyPatInfo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_nopypatinfo=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPAO05005";

		tranf_submit(oParam);
	}
}

function cf_TXPAO05005(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function group5_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_nopypat, "비급여개인별내역", "Sheet1", "true", "", "");
}
]]></Script>
  </Form>
</FDL>