YNU_JEUS/app_home/himed/xpapps/ast/pharmacyxp/xp/SPADC61400_ACS약물이력조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPADC61400" position="absolute 0 0 785 340" titletext="항응고약물 처방이력조회" oninit="SPADC61400_oninit" onload="SPADC61400_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 787 317" id="group3" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="항응고약물 처방이력" position="absolute 5 11 176 33" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 25 779 31" linetype="vertical" id="line1" class="line_1" anchor="default"/>
              <Grid position="absolute 4 31 771 306" id="grd_ordlist" binddataset="ds_main_list" anchor="default">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="70"/>
                      <Column size="77"/>
                      <Column size="36"/>
                      <Column size="115"/>
                      <Column size="64"/>
                      <Column size="45"/>
                      <Column size="43"/>
                      <Column size="42"/>
                      <Column size="252"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="적용일자"/>
                      <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="용법"/>
                    </Band>
                    <Band id="body">
                      <Cell text="bind:actorddd" mask="yyyy-mm-dd"/>
                      <Cell col="1" text="bind:prcpdd" mask="yyyy-mm-dd"/>
                      <Cell col="2" text="bind:ioflag"/>
                      <Cell col="3" text="bind:prcpcd"/>
                      <Cell col="4" text="bind:prcpvoldisp"/>
                      <Cell col="5" text="bind:prcpqtydisp"/>
                      <Cell col="6" text="bind:prcptims"/>
                      <Cell col="7" text="bind:prcpdayno"/>
                      <Cell col="8" text="bind:drugmthdspccd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 716 314 772 336" id="btn_close" class="btn4" text="닫기" onclick="btn_close_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" onload="ds_main_list_onload">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="actorddd" type="STRING" size="256" sumtext="적용일자"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="prcpvoldisp" type="STRING" size="256" sumtext="처방용량"/>
          <Column id="prcpqtydisp" type="STRING" size="256" sumtext="처방수량"/>
          <Column id="prcpvol" type="STRING" size="256" sumtext="처방용량"/>
          <Column id="prcpvolunitflag" type="STRING" size="256" sumtext="처방용량단위구분"/>
          <Column id="prcpqty" type="STRING" size="256" sumtext="처방수량"/>
          <Column id="prcpqtyunitflag" type="STRING" size="256" sumtext="처방수량단위구분"/>
          <Column id="prcptims" type="STRING" size="256" sumtext="처방횟수"/>
          <Column id="prcpdayno" type="STRING" size="256" sumtext="처방일수"/>
          <Column id="drugmthdspccd" type="STRING" size="256" sumtext="투여방법"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchpid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="receivedata" type="STRING" size="256"/>
        </ColumnInfo>
      </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"
include "com_basiccodexp::ZBC001.xjs";
include "ast_commonxp::AST.xjs"
//=======================================================================================
var arErrorCode = new HashArray();


function SPADC61400_oninit(obj:Form, e:InitEventInfo)
{
	    frmf_initForm(obj);  		// 폼 초기화 						
}

function SPADC61400_onload(obj:Form, e:LoadEventInfo)
{
		var prcpvol	    = null;
		var prcpvolunitflag = null;
		var prcpqty	    = null;
		var prcpqtyunitflag = null;
					
		//model.setValue("/root/send/req/srchpid",model.getValue("/root/temp/receivedata"));
        ds_send_req.setColumn(0,"srchpid" ,  ds_temp.getColumn(0,"receivedata");
		
		//submit("TRADC61401");
		var oParam = {};
			oParam.id          = "TRADC61401";
			oParam.service     = "pharmacyconsultapp.AcsMngt";
			oParam.method      = "reqGetAcsOrdHistList";
			oParam.inds        = "req=ds_send_req";
			oParam.outds       = "ds_main_list=list";
			oParam.async       = false;
			oParam.callback    = "cf_TRADC61401";
		tranf_submit(oParam);
		
		 
		//for (var i=1; i<grd_ordlist.rows; i++) {
	    for (var i=0; i<ds_main_list.rowcount; i++){	
			//prcpvol 		 = model.getValue("/root/main/list["+i+"]/prcpvol");
			//prcpvolunitflag  = model.getValue("/root/main/list["+i+"]/prcpvolunitflag");
			//prcpqty 		 = model.getValue("/root/main/list["+i+"]/prcpqty");
			//prcpqtyunitflag  = model.getValue("/root/main/list["+i+"]/prcpqtyunitflag");
			prcpvol 		 = ds_main_list.getColumn(i,"prcpvol");
			prcpvolunitflag  = ds_main_list.getColumn(i,"prcpvolunitflag");
			prcpqty 		 = ds_main_list.getColumn(i,"prcpqty");
			prcpqtyunitflag  = ds_main_list.getColumn(i,"prcpqtyunitflag");
			
			//model.setValue("/root/main/list["+i+"]/prcpvoldisp", prcpvol+prcpvolunitflag);
			//model.setValue("/root/main/list["+i+"]/prcpqtydisp", prcpqty+prcpqtyunitflag);
            ds_main_list.setColumn(0,"prcpvoldisp" ,  prcpvol+prcpvolunitflag);		
            ds_main_list.setColumn(0,"prcpqtydisp" ,  prcpqty+prcpqtyunitflag);
		}
		//model.refresh();

}

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


function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
    window.close();		
}



]]></Script>
  </Form>
</FDL>