YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID36100_개인정보파기관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI01100" position="absolute 0 0 1167 733" titletext="개인정보 삭제관리" oninit="SMPPI01100_oninit" onload="SMPPI01100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 26 1161 732" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 78 1160 699" id="grd_dpcdlist" class="datagrid3" binddataset="ds_grd_dpcdlist" autofittype="col" anchor="all" cellsizingtype="col" autoenter="select" cellclickbound="cell" cellmovingtype="col" oncloseup="grp_biz_grd_dpcdlist_oncloseup" autoupdatetype="itemselect">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="28"/>
                      <Column size="0"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="0"/>
                      <Column size="535"/>
                      <Column size="80"/>
                      <Column size="135"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" displaytype="normal" text="seqno"/>
                      <Cell col="2" displaytype="normal" text="삭제종류"/>
                      <Cell col="3" displaytype="normal" text="대상건수"/>
                      <Cell col="4" displaytype="normal" text="deldt"/>
                      <Cell col="5" displaytype="normal" text="삭제사유"/>
                      <Cell col="6" displaytype="normal" text="삭제자"/>
                      <Cell col="7" displaytype="normal" text="삭제등록일자"/>
                      <Cell col="8" displaytype="normal" text="lastupdtrid"/>
                      <Cell col="9" displaytype="normal" text="lastupdtdt"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="normal" text="bind:seqno"/>
                      <Cell col="2" displaytype="combo" edittype="expr:ds_grd_dpcdlist.getRowType(currow) == 2 ? &quot;combo&quot; : &quot;none&quot;" text="bind:typecd" combodataset="ds_grd_cmb_typecd" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="3" displaytype="number" text="bind:trgtcnt"/>
                      <Cell col="4" displaytype="date" text="bind:deldt"/>
                      <Cell col="5" displaytype="text" edittype="expr:ds_grd_dpcdlist.getRowType(currow) == 2 ? &quot;text&quot; : &quot;none&quot;" text="bind:delresn"/>
                      <Cell col="6" displaytype="normal" text="bind:fstrgstrid"/>
                      <Cell col="7" displaytype="date" text="bind:fstrgstdt" mask="yyyy-MM-dd HH:mm:ss"/>
                      <Cell col="8" displaytype="normal" text="bind:lastupdtrid"/>
                      <Cell col="9" displaytype="date" text="bind:lastupdtdt"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="개인정보 삭제기록 관리" position="absolute 0 56 174 71" id="cap_judgtrgtman" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 72 1160 78" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Div position="absolute 0 0 1160 40" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout width="1160" height="40">
                    <Button position="absolute 1095 10 1151 32" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 1077 5 1083 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="입원기간 :" position="absolute 7 11 85 28" id="caption2" class="search_name" anchor="default" visible="false"/>
                    <Calendar position="absolute 84 10 199 29" id="ipt_fromdd" enable="true" mask="yyyy-mm-dd" anchor="default" onkeydown="grp_biz_group1_input2_onkeydown" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup" onchanged="grp_biz_group1_ipt_fromdd_onchanged" autoselect="true" visible="false"/>
                    <Calendar id="ipt_todd" taborder="33" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 223 10 338 29" mask="yyyy-mm-dd" onkeyup="grp_biz_group1_ipt_todd_onkeyup" autoselect="true" anchor="default" visible="false"/>
                    <Static id="Static00" text="~" position="absolute 202 9 220 29" style="align:center middle;" anchor="default" visible="false"/>
                    <Static id="caption00" text="구분 :" class="search_name" position="absolute 352 11 403 28" visible="false"/>
                    <Combo id="Combo00" taborder="34" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 403 10 503 30" visible="false">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn" size="256"/>
                          <Column id="datacolumn" size="256"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn"/>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">재원</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">D</Col>
                            <Col id="datacolumn">퇴원</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 1080 53 1160 72" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_btn_excelsave_onclick"/>
              <Button id="btn_save" taborder="1" text="개인정보삭제" class="btn3" position="absolute 974 53 1079 72" anchor="top right" onclick="grp_biz_btn_save_onclick"/>
              <Button id="btn_addlog" taborder="2" text="개인정보삭제추가" position="absolute 856 53 973 72" onclick="grp_biz_Button00_onclick" class="btn2" anchor="top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="개인정보 삭제관리" class="tit_1" position="absolute 0 0 272 26" onclick="cap_title_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_dpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_dpcdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="255"/>
          <Column id="seqno" type="BIGDECIMAL" size="255"/>
          <Column id="typecd" type="STRING" size="255"/>
          <Column id="trgtcnt" type="BIGDECIMAL" size="255"/>
          <Column id="deldt" type="STRING" size="255"/>
          <Column id="delresn" type="STRING" size="255"/>
          <Column id="fstrgstrid" type="STRING" size="255"/>
          <Column id="fstrgstdt" type="STRING" size="255"/>
          <Column id="lastupdtrid" type="STRING" size="255"/>
          <Column id="lastupdtdt" type="STRING" size="255"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" 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="seq" type="STRING" size="256"/>
          <Column id="ordfromdd" type="STRING" size="256"/>
          <Column id="ordtodd" type="STRING" size="256"/>
          <Column id="saveyn" type="STRING" size="256"/>
          <Column id="dschtype" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_grd_cmb_typecd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cd">A</Col>
            <Col id="nm">청구명세서</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_deptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_grd_trgtcnt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_grd_sendrow" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_dpcdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="typecd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item3" compid="grp_biz.group1.Combo00" propid="value" datasetid="ds_send" columnid="dschtype"/>
      <BindItem id="item0" compid="grp_biz.group1.ipt_fromdd" propid="value" datasetid="ds_send" columnid="ordfromdd"/>
      <BindItem id="item1" compid="grp_biz.group1.ipt_todd" propid="value" datasetid="ds_send" columnid="ordtodd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";

var lgv_hscroll_pos = 0; 
var lgv_vscroll_pos = 0; 

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

function SMPPI01100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_dpcdlist);
	grdf_setRowTypeIcon(grp_biz.grd_dpcdlist, 0);
	fInitialize();
}

function fInitialize(){
							  
	ds_send.setColumn(0,"ordfromdd", utlf_getCurrentDate());
	ds_send.setColumn(0,"ordtodd", utlf_getCurrentDate());
					   
	pamGetDeptCDDrIDList();			   
}

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

function fGetDocuList(){

	lgv_hscroll_pos = grp_biz.grd_dpcdlist.hscrollbar.pos;
	lgv_vscroll_pos = grp_biz.grd_dpcdlist.vscrollbar.pos;
	
	var oParam = {};
		oParam.id          = "TRPPI01300";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetPrvcyInfoDelList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_dpcdlist=rsltlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPPI01300";

	tranf_submit(oParam);
}

function cf_TRPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    ds_grd_dpcdlist.updatecontrol = false;
    for (var i=0, rowcnt= ds_grd_dpcdlist.rowcount; i < rowcnt; i++) {
		
		if (ds_grd_dpcdlist.getColumn(i,"flag") == "I") {
			ds_grd_dpcdlist.setRowType(i, 2)
		} else {
			ds_grd_dpcdlist.setRowType(i, 1)
		}
    } 
    ds_grd_dpcdlist.updatecontrol = true;
    
    grp_biz.grd_dpcdlist.hscrollbar.pos = lgv_hscroll_pos;
	grp_biz.grd_dpcdlist.vscrollbar.pos = lgv_vscroll_pos;
}


function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_dpcdlist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_dpcdlist, grp_biz.cap_judgtrgtman.text , "see");
	}else{
		sysf_messageBox("엑셀저장할 내역이", "I004");	
	}	
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function grp_biz_group1_ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz.group1.ipt_todd.setFocus();
		//grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TXPPI01300";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqExePrvcyInfoDelList";
		oParam.inds        = "req=ds_grd_dpcdlist:U";
		//oParam.outds       = "ds_grd_dpasdasdcdlist=rslt";
		oParam.async       = false;
		oParam.callback    = "cf_TXPPI01300";

	tranf_submit(oParam);
}

function cf_TXPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    ds_grd_dpcdlist.applyChange();
	fGetDocuList();
}


function grp_biz_group1_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	grp_biz.group1.ipt_todd.value = e.postvalue;
}

function ds_grd_dpcdlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
// 	if( e.columnid == "remvyn" || e.columnid == "warnyn" ){
// 		obj.setColumn(e.row, e.columnid, (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "");
// 	}
}

function grp_biz_Static00_onclick(obj:Static,  e:ClickEventInfo)
{
	
}

function grp_biz_Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	var arow = ds_grd_dpcdlist.addRow();
}

function grp_biz_grd_dpcdlist_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	if (!utlf_isNull(e.value)) {
		ds_grd_sendrow.clearData();
		ds_grd_sendrow.addRow();
		ds_grd_sendrow.setColumn(0,"typecd",e.value);
		
		var oParam = {};
			oParam.id          = "TXPPI01300";
			oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
			oParam.method      = "reqGetPrvcyInfoDelCnt";
			oParam.inds        = "req=ds_grd_sendrow";
			oParam.outds       = "ds_grd_trgtcnt=rsltlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPPI01300";

		tranf_submit(oParam);
		
		ds_grd_dpcdlist.setColumn(e.row,"trgtcnt", ds_grd_trgtcnt.getColumn(0,"trgtcnt"));
		ds_grd_dpcdlist.setColumn(e.row, "delresn", "청구명세서 보존기간 5년 경과");
	}

}

function cap_title_onclick(obj:Static,  e:ClickEventInfo)
{
	
}
]]></Script>
  </Form>
</FDL>