YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID38100_허가초과비급여약제관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID38100" position="absolute 0 0 1196 760" titletext="허가초과비급여약제관리" oninit="SMPID38100_oninit" onload="SMPID38100_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="허가 초과 비급여 약제관리" class="tit_1" position="absolute 0 0 220 25"/>
        <Div id="group2" anchor="left top right" taborder="1" class="div_SA" position="absolute 0 25 1195 65">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="6" text="조회" class="btn1" position="absolute 1127 10 1183 32" anchor="top right" onclick="group2_btn_search_onclick"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1108 12 1114 31" anchor="top right"/>
              <Static id="caption5" text="접수번호" class="search_name" position="absolute 10 13 96 30" anchor="default"/>
              <Static id="caption4" text="성분명" class="search_name" position="absolute 594 13 689 30" anchor="default"/>
              <Static id="caption00" text="진료과" class="search_name" position="absolute 297 13 374 30" anchor="default"/>
              <Combo id="cmb_orddept_srch" taborder="12" text="Combo00" position="absolute 365 10 521 30" innerdataset="@ds_init_cmb_orddeptcd" codecolumn="deptcd" datacolumn="depthngnm" anchor="default"/>
              <Edit id="ipt_acptno_srch" taborder="13" position="absolute 90 11 238 31" onkeyup="group2_ipt_acptno_srch_onkeyup"/>
              <Edit id="ipt_ingredient_srch" taborder="14" position="absolute 658 11 854 31" onkeyup="group2_ipt_ingredient_srch_onkeyup"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="button5" taborder="4" text="엑셀저장" class="btn7" position="absolute 994 35 1074 57" anchor="top right" onclick="button5_onclick" visible="false"/>
        <Shape id="line1" class="line_10" position="absolute 0 87 778 97" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_pmchpenm" taborder="7" position="absolute 0 94 778 758" binddataset="ds_main_pmchpenm" anchor="all" autoenter="key" extendsizetype="row" oncelldblclick="grd_pmchpenm_oncelldblclick" autosizingtype="row" selecttype="cell" scrollpixel="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="30" band="left"/>
                <Column size="114" band="left"/>
                <Column size="120"/>
                <Column size="65"/>
                <Column size="100"/>
                <Column size="150"/>
                <Column size="86"/>
                <Column size="86"/>
                <Column size="120"/>
                <Column size="300"/>
                <Column size="300"/>
                <Column size="300"/>
                <Column size="200"/>
                <Column size="200"/>
              </Columns>
              <Rows>
                <Row size="30" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="연번" taborder="undefined"/>
                <Cell col="2" text="접수번호" taborder="undefined"/>
                <Cell col="3" text="진료과" taborder="undefined"/>
                <Cell col="4" text="신청교수" taborder="undefined"/>
                <Cell col="5" text="제형" taborder="undefined"/>
                <Cell col="6" text="성분명" taborder="undefined"/>
                <Cell col="7" text="IRB승인일자" taborder="undefined"/>
                <Cell col="8" text="비급여&#13;&#10;승인일자" taborder="undefined"/>
                <Cell col="9" text="연령조건"/>
                <Cell col="10" text="대상자"/>
                <Cell col="11" text="식약처 검토의견"/>
                <Cell col="12" text="용법용량" taborder="undefined"/>
                <Cell col="13" text="투여기간(중단시기)" taborder="undefined"/>
                <Cell col="14" text="재투여기준"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" celltype="head" edittype="none" text="expr:currow+1"/>
                <Cell col="2" displaytype="text" edittype="expr:getRowType(currow) == 2 ? 'text' : 'none'" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:acptno" editautoselect="true"/>
                <Cell col="3" displaytype="combo" edittype="expr:getRowType(currow) == 2 ? 'combo' : 'none'" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:orddeptcd" editautoselect="true" taborder="1" combodataset="ds_init_cmb_orddeptcd" combocodecol="deptcd" combodatacol="depthngnm" combodisplayrowcount="100"/>
                <Cell col="4" displaytype="combo" edittype="expr:getRowType(currow) == 2 ? 'combo' : 'none'" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:reqdrid" editautoselect="true" taborder="2" combodataset="expr:expr:getRowType(currow) == 2 ? 'ds_init_cmb_orddrid' : 'ds_init_cmb_orddrid_all'" combocodecol="userid" combodatacol="usernm" combodisplayrowcount="100"/>
                <Cell col="5" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:drugform" editautoselect="true" taborder="3"/>
                <Cell col="6" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:ingredient" wordwrap="char" editautoselect="true" autosizerow="limitmin"/>
                <Cell col="7" displaytype="date" edittype="date" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:irbdate" mask="yyyy-MM-dd" editautoselect="true" taborder="6"/>
                <Cell col="8" displaytype="date" edittype="date" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:nonpaydate" mask="yyyy-MM-dd" editautoselect="true" taborder="7"/>
                <Cell col="9" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:agecond" wordwrap="char" editautoselect="true"/>
                <Cell col="10" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:recipient" wordwrap="char" editautoselect="true" autosizerow="limitmin"/>
                <Cell col="11" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:mfdscmt" wordwrap="char" editautoselect="true" autosizerow="limitmin"/>
                <Cell col="12" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:capacity" wordwrap="char" editautoselect="true" taborder="10" autosizerow="limitmin"/>
                <Cell col="13" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:adminterm" wordwrap="char" editautoselect="true" autosizerow="limitmin"/>
                <Cell col="14" displaytype="text" edittype="text" style="background:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);background2:EXPR(currow == gCurrow ? &quot;pink&quot; : &quot;&quot;);" text="bind:readminstand" wordwrap="char" editautoselect="true" autosizerow="limitmin"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_pmchpend" taborder="8" binddataset="ds_main_pmchpend" autoenter="key" useinputpanel="false" extendsizetype="row" autosizingtype="row" position="absolute 784 94 1195 758" anchor="top right bottom" selecttype="cell" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="30" band="left"/>
                <Column size="100"/>
                <Column size="200"/>
                <Column size="80"/>
              </Columns>
              <Rows>
                <Row size="30" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" taborder="undefined"/>
                <Cell col="2" text="처방코드" taborder="undefined"/>
                <Cell col="3" text="약제명" taborder="undefined"/>
                <Cell col="4" text="코드종료일" taborder="undefined"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" celltype="head" edittype="none" text="expr:currow+1"/>
                <Cell col="2" displaytype="text" edittype="expr:expr:getRowType(currow) == 2 ? 'text' : 'none'" text="bind:calcscorcd" editautoselect="true"/>
                <Cell col="3" displaytype="text" edittype="text" text="bind:calcscornm" wordwrap="char" editautoselect="true" taborder="1" autosizerow="limitmin"/>
                <Cell col="4" displaytype="date" edittype="date" text="bind:todd" editautoselect="true" taborder="2"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line00" class="line_10" position="absolute 784 87 1195 97" anchor="top right" style="strokepen:3 solid #33bbbbff;"/>
        <Button id="btn_add" taborder="2" text="행추가" class="btn2" position="absolute 621 67 674 89" anchor="top right" onclick="btn_add_onclick"/>
        <Button id="btn_del" taborder="3" text="행삭제" class="btn2" position="absolute 677 67 730 89" anchor="top right" onclick="btn_del_onclick"/>
        <Button id="btn_save" taborder="9" text="저장" class="btn2" position="absolute 733 67 778 89" anchor="top right" onclick="btn_save_onclick"/>
        <Button id="btn_addcode" taborder="10" text="행추가" class="btn2" position="absolute 1038 67 1091 89" anchor="top right" onclick="btn_addcode_onclick"/>
        <Button id="btn_delcode" taborder="11" text="행삭제" class="btn2" position="absolute 1094 67 1147 89" anchor="top right" onclick="btn_delcode_onclick"/>
        <Button id="btn_savecode" taborder="12" text="저장" class="btn2" position="absolute 1150 67 1195 89" anchor="top right" onclick="btn_savecode_onclick"/>
        <Static id="caption1" text="비급여 약제 접수리스트" class="tit_2" position="absolute 0 73 323 93"/>
        <Static id="caption00" text="비급여 약제" class="tit_2" position="absolute 784 73 931 93"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_pmchpenm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pmchpenm_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="reqdrid" type="STRING" size="256"/>
          <Column id="drugform" type="STRING" size="256"/>
          <Column id="ingredient" type="STRING" size="256"/>
          <Column id="irbdate" type="STRING" size="256"/>
          <Column id="nonpaydate" type="STRING" size="256"/>
          <Column id="agecond" type="STRING" size="256"/>
          <Column id="recipient" type="STRING" size="256"/>
          <Column id="mfdscmt" type="STRING" size="256"/>
          <Column id="capacity" type="STRING" size="256"/>
          <Column id="adminterm" type="STRING" size="256"/>
          <Column id="readminstand" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_pmchpend" 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="acptno" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="calcscornm" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
      </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_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="ingredient" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="acptno"/>
            <Col id="orddeptcd"/>
            <Col id="ingredient"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_cmb_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_cmb_orddrid_all" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item4" compid="group2.cmb_orddept_srch" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
      <BindItem id="item0" compid="group2.ipt_acptno_srch" propid="value" datasetid="ds_send" columnid="acptno"/>
      <BindItem id="item1" compid="group2.ipt_ingredient_srch" propid="value" datasetid="ds_send" columnid="ingredient"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

var gCurrow = -1;

function fInitialize() {
	lf_mmbfGetDeptCodeComboList(ds_init_cmb_orddeptcd, "A");
	lf_mmbfGetUserComboList(ds_init_cmb_orddrid_all, "", "0330", "", "", "", "", "", "Y");
	
	dsf_addDsItem(ds_init_cmb_orddeptcd, "deptcd", "depthngnm", "전체", "", "above");
}

function fSearch() {
	gCurrow = -1;
	ds_main_pmchpenm.clearData();
	ds_main_pmchpend.clearData();
	
	var oParam = {};
		oParam.id          = "getPmchpenm";
		oParam.service     = "aftjudgapp.InAftJudg";
		oParam.method      = "reqGetPmchpenm";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_pmchpenm=item";
		oParam.async       = false;
		//oParam.callback    = "cf_getPmchpenm";

	tranf_submit(oParam);
}

function fSearchCode() {
	ds_main_pmchpend.clearData();

	dsf_createDsRow("ds_req", [{col: "acptno", val: ds_main_pmchpenm.getColumn(gCurrow, "acptno")}]);
	var oParam = {};
		oParam.id          = "getPmchpend";
		oParam.service     = "aftjudgapp.InAftJudg";
		oParam.method      = "reqGetPmchpend";
		oParam.inds        = "req=ds_req";
		oParam.outds       = "ds_main_pmchpend=item";
		oParam.async       = false;
		//oParam.callback    = "cf_getPmchpenm";

	tranf_submit(oParam);
}

function fSave() {
	gCurrow = -1;
	ds_main_pmchpend.clearData();
	
	var dsUpdate = grdf_getGridUpdateData(grd_pmchpenm, "all");
	grdf_setStatusColumn(dsUpdate, "m");
	ds_send_savedata.copyData(dsUpdate, true);
	var oParam = {};
		oParam.id          = "exePmchpenm";
		oParam.service     = "aftjudgapp.InAftJudg";
		oParam.method      = "reqExePmchpenm";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "ds_main_pmchpenm=item";
		oParam.async       = false;
		//oParam.callback    = "cf_exePmchpenm";

	tranf_submit(oParam);
}

function fSaveCode() {
	var dsUpdate = grdf_getGridUpdateData(grd_pmchpend, "all");
	grdf_setStatusColumn(dsUpdate, "m");
	ds_send_savedata.copyData(dsUpdate, true);
	var oParam = {};
		oParam.id          = "exePmchpend";
		oParam.service     = "aftjudgapp.InAftJudg";
		oParam.method      = "reqExePmchpend";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "ds_main_pmchpend=item";
		oParam.async       = false;
		//oParam.callback    = "cf_exePmchpend";

	tranf_submit(oParam);	
}

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

function SMPID38100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setRowTypeIcon(grd_pmchpenm, 0);	
	grdf_setRowTypeIcon(grd_pmchpend, 0);	
	
	fInitialize();
}

function btn_add_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_pmchpenm.addRow();
}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	var cRow = ds_main_pmchpenm.rowposition;
	if(ds_main_pmchpenm.getRowType(cRow) == 2) {
		ds_main_pmchpenm.deleteRow(cRow);
	} else {
		grdf_setStatus(grd_pmchpenm, "D", [cRow]);
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSave();
}

function btn_addcode_onclick(obj:Button,  e:ClickEventInfo)
{
	var nRow = ds_main_pmchpend.addRow();
	ds_main_pmchpend.setColumn(nRow, "acptno", ds_main_pmchpenm.getColumn(gCurrow, "acptno"));
}

function btn_delcode_onclick(obj:Button,  e:ClickEventInfo)
{
	var cRow = ds_main_pmchpend.rowposition;
	if(ds_main_pmchpend.getRowType(cRow) == 2) {
		ds_main_pmchpend.deleteRow(cRow);
	} else {
		grdf_setStatus(grd_pmchpend, "D", [cRow]);
	}
}

function btn_savecode_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveCode();
}

function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function grd_pmchpenm_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(ds_main_pmchpenm.getRowType(e.row) == 1) { 
		gCurrow = e.row;
		fSearchCode();
	}
}

function ds_main_pmchpenm_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "orddeptcd") {
		var orddeptcd = obj.getColumn(e.row, e.columnid);
		lf_mmbfGetUserComboList(ds_init_cmb_orddrid, orddeptcd, "0330");
	}
}

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

function group2_ipt_ingredient_srch_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSearch();
	}
}]]></Script>
  </Form>
</FDL>