YNU_JEUS/app_home/himed/xpapps/mis/reqxp/xp/SMRSD07200_진단검사과 처방집계 출력(경북대).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRSD07200" position="absolute 0 0 1184 765" titletext="처방전달물품내역조회" oninit="SMRSD07200_oninit" onload="SMRSD07200_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="처방집계 출력" class="tit_1" position="absolute 0 0 189 25"/>
        <Div id="grp_key" taborder="1" class="div_SA2" position="absolute 0 30 340 150">
          <Layouts>
            <Layout>
              <Static id="caption7" text="집계여부 :" class="search_name" visible="false" position="absolute 5 54 94 71" anchor="default"/>
              <Radio id="rdo_sumflag" taborder="9" columncount="3" rowcount="0" innerdataset="ds_init_rdo_sumflag" codecolumn="value" datacolumn="label" visible="false" position="absolute 95 54 268 71" anchor="default"/>
              <Static id="caption10" text="기관코드 :" class="search_name" position="absolute 5 5 94 22" anchor="default"/>
              <Edit id="opt_instcd" taborder="10" readonly="true" class="output" visible="false" position="absolute 210 3 225 22" anchor="default"/>
              <Button id="btn_search" taborder="11" text="조회" class="btn1" visible="false" position="absolute 250 3 306 25" anchor="default" onclick="grp_key_btn_search_onclick"/>
              <Button id="button1" taborder="12" class="icon_search" position="absolute 183 51 199 67" anchor="default" onclick="grp_key_button1_onclick"/>
              <Static id="caption2" text="시행부서 :" class="search_name" position="absolute 5 55 94 72" anchor="default"/>
              <Edit id="ipt_prcpdeptnm" taborder="13" position="absolute 202 50 334 69" anchor="default" class="output" style="background:URL('theme://images/bg_edit_D.png') stretch 5,5;"/>
              <Edit id="ipt_prcpdeptcd" taborder="14" class="input_fix" position="absolute 95 50 180 69" anchor="default" autoselect="true" autoskip="true"/>
              <Edit id="opt_instcdnm" taborder="15" readonly="true" class="output" position="absolute 95 3 205 22" anchor="default"/>
              <Static id="caption1" text="등록번호 :" class="search_name" position="absolute 6 76 95 93" anchor="default"/>
              <Static id="caption4" text="환 자 명 :" class="search_name" position="absolute 187 75 262 92" anchor="default"/>
              <Edit id="ipt_pid" taborder="16" class="input_fix" position="absolute 95 73 180 92" anchor="default" autoselect="true" autoskip="true"/>
              <Edit id="ipt_patnm" taborder="17" class="input_fix" position="absolute 264 73 334 92" anchor="default" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_prcpdd2" taborder="18" class="input_essential" position="absolute 223 27 322 46" anchor="default" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_prcpdd" taborder="19" class="input_essential" position="absolute 95 26 194 45" anchor="default" autoselect="true" autoskip="true"/>
              <Static id="caption3" text="시행일자 :" class="search_name" position="absolute 5 29 94 46" anchor="default"/>
              <Static id="caption12" text="~" position="absolute 205 26 220 46" anchor="default"/>
              <Edit id="ipt_goodcd" taborder="20" class="input_fix" enable="false" position="absolute 95 97 180 116" anchor="default"/>
              <Static id="caption13" text="물품코드 :" class="search_name" position="absolute 6 98 99 115" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_prcpgoodcaselist" taborder="2" binddataset="ds_main_list_prcpgoodcase_prcpgoodcaselist" useinputpanel="false" position="absolute 350 49 1175 759" autoenter="select" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="0"/>
                <Column size="129"/>
                <Column size="79"/>
                <Column size="29"/>
                <Column size="0"/>
                <Column size="228"/>
                <Column size="150"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="69"/>
                <Column size="0"/>
                <Column size="63"/>
              </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" colspan="2" text="물품코드" taborder="undefined"/>
                <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="단위"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:instcd"/>
                <Cell col="2" text="bind:prcpdeptnm"/>
                <Cell col="3" text="bind:goodcd"/>
                <Cell col="4" text="bind:allsizespecid"/>
                <Cell col="5" text="bind:oldcd"/>
                <Cell col="6" text="bind:goodnm"/>
                <Cell col="7" text="bind:goodspec"/>
                <Cell col="8" text="bind:goodmodel"/>
                <Cell col="9" text="bind:totqty" mask="#,###"/>
                <Cell col="10" displaytype="number" text="bind:beforqty"/>
                <Cell col="11" text="bind:deliveqty" mask="#,###"/>
                <Cell col="12" text="bind:deliveunit"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line2" class="line_10" position="absolute 350 44 1175 50" anchor="left top right"/>
        <Static id="caption5" text="물품별 처방집계 내역" class="tit_2" position="absolute 350 28 925 49"/>
        <Button id="btn_wardprint" taborder="3" text="불출서 출력" class="btn6" position="absolute 1081 25 1175 44" anchor="top right" onclick="btn_wardprint_onclick"/>
        <Radio id="rdo_viewcls" taborder="4" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 130 174 338 197" onitemchanged="rdo_viewcls_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">시행부서별</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Button id="btn_searchtree" taborder="5" text="트리재구성 (조회)" class="btn2" position="absolute 0 176 127 195" style="font:Dotum,9,bold;" onclick="btn_searchtree_onclick"/>
        <Grid id="trv_setcode" taborder="6" useinputpanel="false" treeusecheckbox="false" position="absolute 0 203 337 758" autofit="col" autoenter="select" cellsizingtype="col" anchor="left top bottom" binddataset="ds_main_PrcpGoodTrees_TreeList" oncellclick="trv_setcode_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="304"/>
              </Columns>
              <Rows>
                <Row size="24"/>
                <Row size="24"/>
              </Rows>
              <Band id="body">
                <Cell displaytype="tree" edittype="tree" text="bind:dispnm" treelevel="bind:depth"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_SearchTree" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_send_SearchTree_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="instcdnm" type="STRING" size="256"/>
          <Column id="sumflag" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="prcpdeptcd" type="STRING" size="256"/>
          <Column id="prcpdeptnm" type="STRING" size="256"/>
          <Column id="querycls" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="goodcd" type="STRING" size="256"/>
          <Column id="purcflag" type="STRING" size="256"/>
          <Column id="prodcmpynm" type="STRING" size="256"/>
          <Column id="suplplcecdnm" type="STRING" size="256"/>
          <Column id="suppcustnm" type="STRING" size="256"/>
          <Column id="prntmthd" type="STRING" size="256"/>
          <Column id="sumcnt" type="STRING" size="256"/>
          <Column id="wareflag" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpdd2" type="STRING" size="256"/>
          <Column id="prntmthd" type="STRING" size="256"/>
          <Column id="scrnid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="instcdnm"/>
            <Col id="sumflag"/>
            <Col id="ioflag"/>
            <Col id="prcpdeptcd"/>
            <Col id="prcpdeptnm"/>
            <Col id="querycls">2</Col>
            <Col id="pid"/>
            <Col id="patnm"/>
            <Col id="goodcd"/>
            <Col id="purcflag"/>
            <Col id="prodcmpynm"/>
            <Col id="suplplcecdnm"/>
            <Col id="suppcustnm"/>
            <Col id="prntmthd"/>
            <Col id="sumcnt"/>
            <Col id="wareflag"/>
            <Col id="prcpdd"/>
            <Col id="prcpdd2"/>
            <Col id="prntmthd">G</Col>
            <Col id="scrnid">SMRSD07200</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_PrcpGoodTrees_TreeList" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depth" type="STRING" size="256" sumtext=" 01 LEVEL        "/>
          <Column id="pcode" type="STRING" size="256" sumtext=" 02 상위결합코드 "/>
          <Column id="codecd" type="STRING" size="256" sumtext=" 03 코드         "/>
          <Column id="codenm" type="STRING" size="256" sumtext=" 04 코드명       "/>
          <Column id="dispnm" type="STRING" size="256" sumtext=" 05 DISPLAY 명칭 "/>
          <Column id="basecode" type="STRING" size="256" sumtext=" 06 상위코드     "/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list_prcpgoodcase_prcpgoodcaselist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_list_prcpgoodcase_prcppatcaselist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드      "/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호(환자)"/>
          <Column id="pid2" type="STRING" size="256" sumtext="등록번호(환자)"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명        "/>
          <Column id="patnm2" type="STRING" size="256" sumtext="환자명        "/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자      "/>
          <Column id="goodcd" type="STRING" size="256" sumtext="물품코드      "/>
          <Column id="allsizespecid" type="STRING" size="256" sumtext="물품규격코드  "/>
          <Column id="beforqty" type="STRING" size="256" sumtext="선불출량      "/>
          <Column id="totqty" type="STRING" size="256" sumtext="총수량        "/>
          <Column id="deliveqty" type="STRING" size="256" sumtext="불출량        "/>
          <Column id="oldcd" type="STRING" size="256" sumtext="구코드        "/>
          <Column id="goodnm" type="STRING" size="256" sumtext="물품명        "/>
          <Column id="deliveunit" type="STRING" size="256" sumtext="수불단위      "/>
          <Column id="prcpdeptcd" type="STRING" size="256" sumtext="시행부서      "/>
          <Column id="prcpdeptnm" type="STRING" size="256" sumtext="시행부서명    "/>
          <Column id="goodspec" type="STRING" size="256" sumtext="규격     "/>
          <Column id="goodmodel" type="STRING" size="256" sumtext="모델    "/>
          <Column id="cmt" type="STRING" size="256" sumtext="비고    "/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_prcppatcaseinfo" 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="sumflag" type="STRING" size="256"/>
          <Column id="reqflag" type="STRING" size="256"/>
          <Column id="reqdeptcd" type="STRING" size="256"/>
          <Column id="reqprid" type="STRING" size="256"/>
          <Column id="prcpdeptcd" type="STRING" size="256"/>
          <Column id="goodcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="deptgr" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="purcflag" type="STRING" size="256"/>
          <Column id="prodcmpynm" type="STRING" size="256"/>
          <Column id="suplplcecdnm" type="STRING" size="256"/>
          <Column id="suppcustnm" type="STRING" size="256"/>
          <Column id="prntmthd" type="STRING" size="256"/>
          <Column id="sumcnt" type="STRING" size="256"/>
          <Column id="wareflag" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpdd2" type="STRING" size="256"/>
          <Column id="prntmthd" type="STRING" size="256"/>
          <Column id="scrnid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="sumflag"/>
            <Col id="reqflag"/>
            <Col id="reqdeptcd"/>
            <Col id="reqprid"/>
            <Col id="prcpdeptcd"/>
            <Col id="goodcd"/>
            <Col id="ioflag"/>
            <Col id="deptgr"/>
            <Col id="pid"/>
            <Col id="patnm"/>
            <Col id="purcflag"/>
            <Col id="prodcmpynm"/>
            <Col id="suplplcecdnm"/>
            <Col id="suppcustnm"/>
            <Col id="prntmthd"/>
            <Col id="sumcnt"/>
            <Col id="wareflag"/>
            <Col id="prcpdd"/>
            <Col id="prcpdd2"/>
            <Col id="prntmthd"/>
            <Col id="scrnid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list_prcpprntinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_key.opt_instcdnm" propid="value" datasetid="ds_send_SearchTree" columnid="instcdnm"/>
      <BindItem id="item1" compid="grp_key.opt_instcd" propid="value" datasetid="ds_send_SearchTree" columnid="instcd"/>
      <BindItem id="item2" compid="grp_key.ipt_prcpdd" propid="value" datasetid="ds_send_SearchTree" columnid="prcpdd"/>
      <BindItem id="item3" compid="grp_key.ipt_prcpdd2" propid="value" datasetid="ds_send_SearchTree" columnid="prcpdd2"/>
      <BindItem id="item4" compid="grp_key.ipt_prcpdeptcd" propid="value" datasetid="ds_send_SearchTree" columnid="prcpdeptcd"/>
      <BindItem id="item5" compid="grp_key.ipt_prcpdeptnm" propid="value" datasetid="ds_send_SearchTree" columnid="prcpdeptnm"/>
      <BindItem id="item6" compid="grp_key.ipt_pid" propid="value" datasetid="ds_send_SearchTree" columnid="pid"/>
      <BindItem id="item7" compid="grp_key.ipt_patnm" propid="value" datasetid="ds_send_SearchTree" columnid="patnm"/>
      <BindItem id="item8" compid="grp_key.rdo_sumflag" propid="value" datasetid="ds_send_SearchTree" columnid="sumflag"/>
      <BindItem id="item9" compid="grp_key.ipt_goodcd" propid="value" datasetid="ds_send_SearchTree" columnid="goodcd"/>
      <BindItem id="item10" compid="rdo_viewcls" propid="value" datasetid="ds_send_SearchTree" columnid="querycls"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-06-19
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-06-19      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "mis_miscommonxp::MIS.xjs";
include "mis_miscommonxp::RSZ001.xjs";
include "mis_reqxp::SMRSD07200.xjs";
function SMRSD07200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMRSD07200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_prcpgoodcaselist);
	
	fInit();
	grp_key.ipt_goodcd.value = "B02021004";

	if(frmf_checkOpener())
	{
		csv_prcpdd   = opener.frmf_getParameter("parainfo_prcpdd");    
		csv_prcpdd2  = opener.frmf_getParameter("parainfo_prcpdd2");
	}

	if(String(csv_prcpdd).length != 0 && String(csv_prcpdd2).length != 0)
	{
		grp_key.ipt_prcpdd.value = csv_prcpdd;
		grp_key.ipt_prcpdd2.value = csv_prcpdd2;
	}
}

function ds_send_SearchTree_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "prcpdeptcd")
	{
		grp_key.ipt_prcpdeptcd.value = e.newvalue;
		grp_key.ipt_prcpdeptcd.setFocus();
		misfSearchDept(grp_key.ipt_prcpdeptnm);
	}
}

function grp_key_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var recv_list = "prcpdeptcd,prcpdeptnm";
	misfOpenPopUpList("02", grp_key.ipt_prcpdeptcd,"", recv_list) ; 	
	fDataSearchTree();
}
 
function rdo_viewcls_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fDataSearchTree();
}

function grp_key_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{	
	var oParam = {};
		oParam.id          = "TRRSD07102";
		oParam.service     = "reqapp.ReqMngt";
		oParam.method      = "reqGetPrcpGoodCaseList";
		oParam.inds        = "req=ds_send_prcppatcaseinfo";
		oParam.outds       = "ds_main_list_prcpgoodcase_prcpgoodcaselist=prcpgoodcaselist ds_=deptstoccaselist ds_=prcpsuminfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRSD07102";

	tranf_submit(oParam);
}

function btn_searchtree_onclick(obj:Button,  e:ClickEventInfo)
{
	fDataSearchTree();

	dsf_makeValue(ds_main_list_prcpprntinfo, "prcpdd", "string", grp_key.ipt_prcpdd.value, 0);
	dsf_makeValue(ds_main_list_prcpprntinfo, "prcpdd2", "string", grp_key.ipt_prcpdd2.value, 0);
}

function trv_setcode_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fDataSearchDetail(e.row);
}

function btn_wardprint_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM();
		rptf_setNodeListToDOM(objDOM, "/root/main/list/prcpprntinfo", ds_main_list_prcpprntinfo);
		rptf_setNodeListToDOM(objDOM, "/root/main/list/prcpgoodcase/prcpgoodcaselist", ds_main_list_prcpgoodcase_prcpgoodcaselist);
	var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source; 
	var option = ""; 
	rptf_exeReportPreview30(["RPRSD02401"],[objParam], option);
}
]]></Script>
  </Form>
</FDL>