YNU_JEUS/app_home/himed/xpapps/emr/wardcarexp/xp/SPMNW12400_약품인계내역.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNW12400" position="absolute 0 0 1201 620" titletext="약품인계내역" oninit="SPMNW12400_oninit" onload="SPMNW12400_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 1193 611" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="환자 전실 현황" position="absolute 5 9 113 25" id="caption1" class="tit_2"/>
              <Shape position="absolute 0 25 396 31" linetype="horizontal" id="line1" class="line_10"/>
              <Grid position="absolute 0 30 397 585" id="grd_patlist" binddataset="ds_main_patlist_patlist" oncelldblclick="grp_biz_grd_patlist_oncelldblclick">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="110"/>
                      <Column size="80"/>
                      <Column size="45"/>
                      <Column size="80"/>
                      <Column size="45"/>
                      <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"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" rowspan="2" text="변경일시"/>
                      <Cell col="2" colspan="2" text="From"/>
                      <Cell col="4" colspan="2" text="To"/>
                      <Cell col="6" text="pid"/>
                      <Cell col="7" text="indd"/>
                      <Cell col="8"/>
                      <Cell col="9"/>
                      <Cell col="10"/>
                      <Cell col="11"/>
                      <Cell col="12"/>
                      <Cell col="13"/>
                      <Cell col="14"/>
                      <Cell row="1"/>
                      <Cell row="1" col="2" text="병동"/>
                      <Cell row="1" col="3" text="병실"/>
                      <Cell row="1" col="4" text="병동"/>
                      <Cell row="1" col="5" text="병실"/>
                      <Cell row="1" col="6" text="pid"/>
                      <Cell row="1" col="7" text="indd"/>
                      <Cell row="1" col="8" text="prestwardcd"/>
                      <Cell row="1" col="9" text="chngwardcd"/>
                      <Cell row="1" col="10" text="appdd"/>
                      <Cell row="1" col="11" text="apptm"/>
                      <Cell row="1" col="12" text="prepamacptdd"/>
                      <Cell row="1" col="13" text="prepamacpttm"/>
                      <Cell row="1" col="14"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" text="expr:currow +1"/>
                      <Cell col="1" style="align:center middle;" text="bind:chngdt" mask="####-##-## ##:##"/>
                      <Cell col="2" style="align:center middle;" text="bind:prestward"/>
                      <Cell col="3" style="align:center middle;" text="bind:prestroom"/>
                      <Cell col="4" style="align:center middle;" text="bind:chngward"/>
                      <Cell col="5" style="align:center middle;" text="bind:chngroom"/>
                      <Cell col="6" text="bind:pid"/>
                      <Cell col="7" text="bind:indd"/>
                      <Cell col="8" text="bind:prestwardcd"/>
                      <Cell col="9" text="bind:chngwardcd"/>
                      <Cell col="10" text="bind:appdd"/>
                      <Cell col="11" text="bind:apptm"/>
                      <Cell col="12" text="bind:prepamacptdd"/>
                      <Cell col="13" text="bind:prepamacpttm"/>
                      <Cell col="14" text="bind:cretno"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="처방내역" position="absolute 405 9 510 25" id="caption2" class="tit_2"/>
              <Shape position="absolute 400 25 1193 31" linetype="horizontal" id="line2" class="line_10"/>
              <Grid position="absolute 400 30 1193 585" id="grd_prcpspec" binddataset="ds_main_prcpspec_prcpspec">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="80"/>
                      <Column size="85"/>
                      <Column size="80"/>
                      <Column size="200"/>
                      <Column size="35"/>
                      <Column size="30"/>
                      <Column size="35"/>
                      <Column size="30"/>
                      <Column size="30"/>
                      <Column size="105"/>
                      <Column size="50"/>
                      <Column size="30"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="구분"/>
                      <Cell col="1" text="약품전달"/>
                      <Cell col="2" colspan="7" text="대상처방리스트"/>
                      <Cell col="9" text="처방일시"/>
                      <Cell col="10" colspan="2" text="약품전달갯수"/>
                    </Band>
                    <Band id="body">
                      <Cell style="align:center middle;" text="bind:flag" suppress="1" suppressalign="middle"/>
                      <Cell col="1" style="align:center middle;" text="bind:spec"/>
                      <Cell col="2" style="align:left middle;" text="bind:prcpcd"/>
                      <Cell col="3" style="align:left middle;" text="bind:prcpnm"/>
                      <Cell col="4" style="align:right middle;linetype:onlyhorz;" text="bind:prcpvol"/>
                      <Cell col="5" style="align:left middle;" text="bind:prcpvolunitflag"/>
                      <Cell col="6" style="align:right middle;linetype:onlyhorz;" text="bind:prcpqty"/>
                      <Cell col="7" style="align:left middle;" text="bind:prcpqtyunitflag"/>
                      <Cell col="8" style="align:center middle;" text="bind:prcptims"/>
                      <Cell col="9" style="align:center middle;" text="bind:prcpdt" mask="####/##/## ##:##"/>
                      <Cell col="10" style="align:right middle;linetype:onlyhorz;" text="bind:transfspec"/>
                      <Cell col="11" style="align:left middle;padding:0 0 0 0;" text="bind:transfspecunitflag"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1143 5 1192 24" id="btn_pnt" class="btn6" text="출력" onclick="grp_biz_btn_pnt_onclick"/>
              <Static text="※ 마약과 항정약의 주사제제는 간호 마약/항정약 처방관리 화면에서 정확한 용량을 확인하시기 바랍니다." position="absolute 400 589 1085 609" id="caption3" style="color:#0000ffff;font:Dotum,9,bold;"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_patlist_patlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chngdt" type="STRING" size="256"/>
          <Column id="prestward" type="STRING" size="256"/>
          <Column id="prestroom" type="STRING" size="256"/>
          <Column id="chngward" type="STRING" size="256"/>
          <Column id="chngroom" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sexage" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="prepamacptdd" type="STRING" size="256"/>
          <Column id="prepamacpttm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="chngdt"/>
            <Col id="prestward"/>
            <Col id="prestroom"/>
            <Col id="chngward"/>
            <Col id="chngroom"/>
            <Col id="pid"/>
            <Col id="indd"/>
            <Col id="instcd"/>
            <Col id="cretno"/>
            <Col id="hngnm"/>
            <Col id="sexage"/>
            <Col id="orddeptnm"/>
            <Col id="prepamacptdd"/>
            <Col id="prepamacpttm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_prcpspec_prcpspec" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="spec" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="prcpvol" type="STRING" size="256"/>
          <Column id="prcpqty" type="STRING" size="256"/>
          <Column id="prcptims" type="STRING" size="256"/>
          <Column id="prcpdayno" type="STRING" size="256"/>
          <Column id="prcpdt" type="STRING" size="256"/>
          <Column id="prcpvolunitflag" type="STRING" size="256"/>
          <Column id="prcpqtyunitflag" type="STRING" size="256"/>
          <Column id="transfspecunitflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="flag"/>
            <Col id="spec"/>
            <Col id="prcpcd"/>
            <Col id="prcpnm"/>
            <Col id="prcpvol"/>
            <Col id="prcpqty"/>
            <Col id="prcptims"/>
            <Col id="prcpdayno"/>
            <Col id="prcpdt"/>
            <Col id="prcpvolunitflag"/>
            <Col id="prcpqtyunitflag"/>
            <Col id="transfspecunitflag"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

/*SPMNW12400_oninit*/
function SPMNW12400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	
}




/*SPMNW12400_onload*/
function SPMNW12400_onload(obj:Form, e:LoadEventInfo)
{
	ds_main_patlist_patlist.clearData();
	//메뉴에서 사용할 경우 사용자의 병동으로 세팅
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var pid = "";
	var indd = "";  // 추가_20081229(ByJA)

	if(frmf_checkOpener() ) {
		pid   = opener.frmf_getParameter("SPMNW12400_PARAM1");
		indd = opener.frmf_getParameter("SPMNW12400_PARAM2"); // 추가_20081229(ByJA)
		
		dsf_createDs("ds_send");
		dsf_makeValue(ds_send,"pid"	, "string"	, pid);
		dsf_makeValue(ds_send,"indd", "string"	, indd); // 추가_20081229(ByJA)
		
		var oParam = {};
		oParam.id          = "TRMNW12401";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqGetChngRoomStat";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_patlist_patlist=patlist";
		oParam.async       = false;

		tranf_submit(oParam);
	}
}




/*grp_biz_grd_patlist_oncelldblclick*/
function grp_biz_grd_patlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var pid  		= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","pid"));
	var indd 		= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","indd"));
	var prestwardcd = grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","prestwardcd"));
	var chngwardcd 	= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","chngwardcd"));
	var appdd		= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","appdd")); 
	var apptm  		= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","apptm"));
	var prepamacptdd= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","prepamacptdd"));
	var prepamacpttm= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","prepamacpttm"));
	var cretno 		= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","cretno"));
	var prestroomcd = grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","prestroom"));
	var chngroomcd 	= grp_biz.grd_patlist.getCellValue(grp_biz.grd_patlist.currentrow, grp_biz.grd_patlist.getBindCellIndex("body","chngroom"));
	
	dsf_createDs("ds_send_req");
	dsf_makeValue(ds_send_req,"pid"			, "string"	, pid);
	dsf_makeValue(ds_send_req,"indd"		, "string"	, indd);
	dsf_makeValue(ds_send_req,"prestwardcd"	, "string"	, prestwardcd);
	dsf_makeValue(ds_send_req,"chngwardcd"	, "string"	, chngwardcd);
	dsf_makeValue(ds_send_req,"appdd"		, "string"	, appdd);
	dsf_makeValue(ds_send_req,"apptm"		, "string"	, apptm);
	dsf_makeValue(ds_send_req,"prepamacptdd", "string"	, prepamacptdd);
	dsf_makeValue(ds_send_req,"prepamacpttm", "string"	, prepamacpttm);
	dsf_makeValue(ds_send_req,"cretno"		, "string"	, cretno);
	dsf_makeValue(ds_send_req,"prestroomcd"	, "string"	, prestroomcd);
	dsf_makeValue(ds_send_req,"chngroomcd"	, "string"	, chngroomcd);
		
	
	var oParam = {};
    oParam.id          = "TRMNW12402";
    oParam.service     = "wardcareapp.WardCareMngt";
    oParam.method      = "reqGetDrugPrcpSpec";
    oParam.inds        = "req=ds_send_req";
    oParam.outds       = "ds_main_prcpspec_prcpspec=prcpspec";
    oParam.async       = false;

	tranf_submit(oParam);
}




/*grp_biz_btn_pnt_onclick*/
function grp_biz_btn_pnt_onclick(obj:Button,  e:ClickEventInfo)
{	
	dsf_createDs("ds_send_patlist");
	ds_send_patlist.copyData(ds_main_patlist_patlist);
	
	dsf_createDs("ds_send_prcpspec");
	ds_send_prcpspec.copyData(ds_main_prcpspec_prcpspec);
	
	var objDOM = rptf_createDOM();			
	rptf_setNodeListToDOM(objDOM, "/root/send/prcpspec/prcpspec", ds_send_prcpspec);	// 데이터셋 1	
	rptf_setNodeListToDOM(objDOM, "/root/send/patlist", ds_send_patlist);				// 데이터셋 2	
	
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
	
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;";	
	rptf_exeReportPreview30(["RPMNW12400"],[objParam], option);
	
}
]]></Script>
  </Form>
</FDL>