YNU_JEUS/app_home/himed/xpapps/ast/pharmacyxp/xp/SPADB60601_약사메모이력입원.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPADB60601" position="absolute 0 0 580 344" titletext="약사메모이력" oninit="SPADB60601_oninit" onload="SPADB60601_onload">
    <Layouts>
      <Layout>
        <Div position="absolute -1 0 578 306" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="약사메모이력" position="absolute 1 4 112 21" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 1 19 579 25" linetype="horizontal" id="line1" class="line_1" anchor="default"/>
              <Grid position="absolute 1 25 579 300" id="grd_memolist" binddataset="ds_main_memoinfo_item" oncellclick="grp_biz_grd_memolist_oncellclick" oncelldblclick="grp_biz_grd_memolist_oncelldblclick" anchor="default" autofittype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="325"/>
                      <Column size="55"/>
                      <Column size="78"/>
                      <Column size="85"/>
                    </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="작성일시"/>
                    </Band>
                    <Band id="body">
                      <Cell style="align:left;padding:0 2 0 2;" text="bind:memo"/>
                      <Cell col="1" text="bind:writnm"/>
                      <Cell col="2" text="bind:orddeptnm"/>
                      <Cell col="3" displaytype="text" edittype="text" text="bind:writdt" mask="####-##-## ##:##:##"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Shape id="line00" class="line_1" position="absolute 1 20 579 26" anchor="default"/>
              <Shape id="line02" class="line_1" position="absolute 1 21 579 27" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 308 578 335" id="grp_btn" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Button position="absolute 521 3 577 25" id="btn_cls" class="btn4" text="닫기" onclick="grp_btn_btn_cls_onclick" anchor="default"/>
              <Button position="absolute 461 3 517 25" id="btn_del" class="btn4" visible="false" text="삭제" onclick="grp_btn_btn_del_onclick" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_memolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="memo" type="STRING"/>
          <Column id="writnm" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="writdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_srchinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchpid" type="STRING" size="256" sumtext="환자등록번호"/>
          <Column id="srchhosinhosoutflag" type="STRING" size="256" sumtext="원내원외구분"/>
          <Column id="srchinstcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="srchioflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="srchorddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchpid"/>
            <Col id="srchinstcd"/>
            <Col id="srchioflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_memoinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="memo" type="STRING" size="256" sumtext="메모"/>
          <Column id="writnm" type="STRING" size="256" sumtext="작성자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과명"/>
          <Column id="writdt" type="STRING" size="256" sumtext="작성일시"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="seqno" type="STRING" size="256" sumtext="일련번호"/>
          <Column id="hosinhosoutflag" type="STRING" size="256" sumtext="원내원외구분"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="drugno" type="INT" size="256" sumtext="투약번호"/>
          <Column id="drugdd" type="STRING" size="256" sumtext="투약일자"/>
          <Column id="writid" type="STRING" size="256" sumtext="작성자"/>
          <Column id="useyn" type="STRING" size="256" sumtext="사용여부"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원외래구분"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_delinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="환자등록번호"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="hosinhosoutflag" type="STRING" size="256" sumtext="원내원외구분"/>
          <Column id="seqno" type="STRING" size="256" sumtext="순번"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="m" type="STRING" size="256" sumtext="수정플래그"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="count" type="STRING" size="256" sumtext="실행건수"/>
        </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                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs"
include "com_basiccodexp::ZBC001.xjs";
include "ast_commonxp::AST.xjs";

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
function SPADB60601_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  // 초기화
	
	try{
		ds_send_srchinfo.copyData(arg_ds_send_memosrchinfo);	//외래처방전 감사 화면에서 넘어온 argument 셋팅(2015.11.11_by.Shaun)
	}catch(e){}
	
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SPADB60601
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면오픈시 폼load이후 실행
 ****************************************************************************************/
function SPADB60601_onload(obj:Form, e:LoadEventInfo)
{
	ds_send_srchinfo.setColumn(0, "srchioflag", "I");
	//submit("TRADB60601");
	var oParam = {};
		oParam.id          = "TRADB60601";
		oParam.service     = "pharmacyprescriptionapp.MpsCheck";
		oParam.method      = "reqGetMemoList";
		oParam.inds        = "req=ds_send_srchinfo";
		oParam.outds       = "ds_main_memoinfo_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRADB60601";

	tranf_submit(oParam);

}

function grp_biz_grd_memolist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0) return;
	if (ds_main_memoinfo_item.getColumn(ds_main_memoinfo_item.rowposition, "writid") == sysf_getUserId()) {
		grp_btn.btn_del.visible = true;
	} else {
		grp_btn.btn_del.visible = false;
	}	
}

function grp_biz_grd_memolist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var sRow = e.row;
	if(sRow < 0) return;
	
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "pid", ds_main_memoinfo_item.getColumn(sRow, "pid"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "indd", ds_main_memoinfo_item.getColumn(sRow, "indd"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "seqno", ds_main_memoinfo_item.getColumn(sRow, "seqno"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "instcd", ds_main_memoinfo_item.getColumn(sRow, "instcd"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "orddeptcd", ds_main_memoinfo_item.getColumn(sRow, "orddeptcd"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "writid", ds_main_memoinfo_item.getColumn(sRow, "writid"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "writnm", ds_main_memoinfo_item.getColumn(sRow, "writnm"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "writdt", ds_main_memoinfo_item.getColumn(sRow, "writdt"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "memo", ds_main_memoinfo_item.getColumn(sRow, "memo"));		// 노드가 존재하지 않음-삭제(15.12.24)
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "useyn", ds_main_memoinfo_item.getColumn(sRow, "useyn"));
	opener.ds_main_detailinfo_memoinfo.setColumn(0, "ioflag", ds_main_memoinfo_item.getColumn(sRow, "ioflag"));

	this.close();
}

function grp_btn_btn_cls_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function grp_btn_btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	if (sysf_messageBox("약사메모를","Q001")== 6 )
	{
		var sRow = ds_main_memoinfo_item.rowposition;
		ds_send_delinfo.setColumn(0, "pid", ds_main_memoinfo_item.getColumn(sRow, "pid"));
		ds_send_delinfo.setColumn(0, "indd", ds_main_memoinfo_item.getColumn(sRow, "indd"));
		ds_send_delinfo.setColumn(0, "seqno", ds_main_memoinfo_item.getColumn(sRow, "seqno"));
		ds_send_delinfo.setColumn(0, "instcd", ds_main_memoinfo_item.getColumn(sRow, "instcd"));
		
		//submit("TXADB60601");
		var oParam = {};
			oParam.id          = "TXADB60601";
			oParam.service     = "pharmacyprescriptionapp.MpsCheck";
			oParam.method      = "reqExeMemoData";
			oParam.inds        = "req=ds_send_delinfo";
			oParam.outds       = "ds_hidden_item=item";
			oParam.async       = false;
			oParam.callback    = "cf_TXADB60601";

		tranf_submit(oParam);
		
		//submit("TRADB60601");
		var oParam = {};
			oParam.id          = "TRADB60601";
			oParam.service     = "pharmacyprescriptionapp.MpsCheck";
			oParam.method      = "reqGetMemoList";
			oParam.inds        = "req=ds_send_srchinfo";
			oParam.outds       = "ds_main_memoinfo_item=item";
			oParam.async       = false;
			oParam.callback    = "cf_TRADB60601";

		tranf_submit(oParam);
	}
}

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

function cf_TRADB60601(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
]]></Script>
  </Form>
</FDL>