YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID27100_상세불명희귀대상자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID27100" position="absolute 0 0 1213 760" titletext="기타염색체/상세불명희귀대상자관리" oninit="SMPID27100_oninit" onload="SMPID27100_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="기타염색체/상세불명희귀대상자관리" class="tit_1" position="absolute 0 0 292 25"/>
        <Div id="group2" anchor="left top right" taborder="1" class="div_SA" position="absolute 0 26 1211 66">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="6" text="조회" class="btn1" position="absolute 1130 10 1186 32" anchor="top right" onclick="group2_btn_search_onclick"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 7 1110 34" anchor="top right"/>
              <Static id="caption5" text="환자번호 :" class="search_name" position="absolute 5 11 91 28" anchor="default"/>
              <Static id="caption4" text="상담기간 :" class="search_name" position="absolute 554 11 649 28" anchor="default"/>
              <Calendar id="ipt_aplydd" taborder="7" class="input_search" position="absolute 642 10 743 29" mask="yyyy-mm-dd" anchor="default" dateformat="yyyy-MM-dd"/>
              <Button id="button2" taborder="8" class="icon_search" position="absolute 208 11 230 27" onclick="group2_button2_onclick" anchor="default"/>
              <Edit id="ipt_pid" taborder="9" class="input_search" position="absolute 99 10 202 29" anchor="default"/>
              <Edit id="ipt_patnm" taborder="10" position="absolute 235 10 305 29" anchor="default"/>
              <Calendar id="input1" taborder="11" class="input_search" position="absolute 780 10 886 29" mask="yyyy-mm-dd" onkeydown="group2_input1_onkeydown" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Static id="caption2" text="~" position="absolute 754 10 769 30" anchor="default"/>
              <Static id="caption00" text="특례구분 :" class="search_name" position="absolute 345 10 422 27"/>
              <Combo id="Combo00" taborder="12" text="Combo00" position="absolute 423 8 523 28" innerdataset="@init_grd_rgstkiind" codecolumn="cdid" datacolumn="cdnm"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_rowadd" taborder="2" text="행추가" class="btn2" position="absolute 1020 68 1073 87" anchor="top right" onclick="btn_rowadd_onclick"/>
        <Button id="btn_rowdel" taborder="3" text="행삭제" class="btn2" position="absolute 1076 68 1129 87" anchor="top right" onclick="btn_rowdel_onclick"/>
        <Button id="button5" taborder="4" text="엑셀저장" class="btn7" position="absolute 1131 68 1211 87" anchor="top right" onclick="button5_onclick"/>
        <Static id="caption1" text="기타염색체/상세불명희귀대상자 List" class="tit_2" position="absolute 0 71 323 91"/>
        <Shape id="line23" linetype="horizontal" class="line_6" position="absolute 0 733 1211 736" onclick="line23_onclick" anchor="left right bottom"/>
        <Button id="button1" taborder="6" text="저 장" class="btn4" position="absolute 1143 736 1211 758" anchor="right bottom" onclick="button1_onclick"/>
        <Shape id="line1" class="line_10" position="absolute 0 85 1210 95" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_ordcnstlist" taborder="7" useinputpanel="false" position="absolute 1 93 1211 732" binddataset="ds_grd_ordcnstlist" anchor="all" autofittype="col" cellclickbound="cell" autoenter="key" onkeydown="grd_ordcnstlist_onkeydown" oncloseup="grd_ordcnstlist_oncloseup">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="28"/>
                <Column size="40"/>
                <Column size="100"/>
                <Column size="65"/>
                <Column size="70"/>
                <Column size="62"/>
                <Column size="149"/>
                <Column size="74"/>
                <Column size="86"/>
                <Column size="86"/>
                <Column size="85"/>
                <Column size="86"/>
                <Column size="232"/>
                <Column size="60"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell rowspan="2" text="순번" taborder="undefined"/>
                <Cell col="1" rowspan="2" taborder="undefined"/>
                <Cell col="2" rowspan="2" text="특례&#13;&#10;구분" taborder="undefined"/>
                <Cell col="3" rowspan="2" text="진료과" taborder="undefined"/>
                <Cell col="4" rowspan="2" text="진료의사" taborder="undefined"/>
                <Cell col="5" rowspan="2" text="환자번호" taborder="undefined"/>
                <Cell col="6" rowspan="2" text="환자성명" taborder="undefined"/>
                <Cell col="7" rowspan="2" text="상병명" taborder="undefined"/>
                <Cell col="8" rowspan="2" text="상병코드" taborder="undefined"/>
                <Cell col="9" rowspan="2" text="사전승인&#10;신청일" taborder="undefined"/>
                <Cell col="10" rowspan="2" text="질병관리본부&#13;&#10;승인일" taborder="undefined"/>
                <Cell col="11" rowspan="2" text="공단산정특례&#13;&#10;승인일" taborder="undefined"/>
                <Cell col="12" rowspan="2" text="종료일" taborder="undefined"/>
                <Cell col="13" rowspan="2" text="상담내용" taborder="undefined"/>
                <Cell col="14" rowspan="2" text="최초&#10;등록자" taborder="undefined"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" displaytype="none" edittype="none" text="bind:seq"/>
                <Cell col="1" celltype="head"/>
                <Cell col="2" displaytype="combo" edittype="combo" text="bind:rgstkindcd" combodataset="init_grd_rgstkiind" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="3" displaytype="combo" edittype="combo" text="bind:orddeptcd" editautoselect="true" taborder="1" combodataset="ds_init_orddeptcdlist" combocodecol="cd" combodatacol="nm" combodisplayrowcount="100"/>
                <Cell col="4" displaytype="combo" edittype="combo" text="bind:orddrid" editautoselect="true" taborder="2" combodataset="ds_init_orddridlist" combocodecol="cd" combodatacol="nm" combodisplayrowcount="100"/>
                <Cell col="5" displaytype="text" edittype="text" text="bind:pid" editautoselect="true" taborder="3"/>
                <Cell col="6" displaytype="normal" edittype="none" text="bind:hngnm" editautoselect="true"/>
                <Cell col="7" displaytype="normal" edittype="none" style="align:left middle;" text="bind:diagnm" editautoselect="true"/>
                <Cell col="8" displaytype="text" edittype="text" editfilter="upper,number,char" text="bind:diagcd" edituseime="none" editautoselect="true" taborder="4"/>
                <Cell col="9" displaytype="date" edittype="date" text="bind:bfregdd" mask="yyyy-MM-dd" editautoselect="true" taborder="6"/>
                <Cell col="10" displaytype="date" edittype="date" text="bind:fsregdd" mask="yyyy-MM-dd" editautoselect="true" taborder="7"/>
                <Cell col="11" displaytype="date" edittype="date" text="bind:fromdd" mask="yyyy-MM-dd" editautoselect="true" taborder="8"/>
                <Cell col="12" displaytype="date" edittype="date" text="bind:todd" mask="yyyy-MM-dd" editautoselect="true" taborder="9"/>
                <Cell col="13" displaytype="text" edittype="text" text="bind:memo" editautoselect="true" taborder="10"/>
                <Cell col="14" displaytype="normal" edittype="none" text="bind:fstrgstrnm" editautoselect="true"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_ordcnstlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자이름"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="sex" type="STRING" size="256" sumtext="진료과"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="diagnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="심사자"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="심사자"/>
          <Column id="bfregdd" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fsregdd" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fromdd" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="todd" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="memo" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstrnm" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstrid" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data1" 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="regfromdd" type="STRING" size="256" sumtext="차수"/>
          <Column id="regtodd" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="rgstkindcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="autoflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_P0509" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddridlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="init_grd_rgstkiind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdnm">전체</Col>
          </Row>
          <Row>
            <Col id="cdid">R</Col>
            <Col id="cdnm">희귀</Col>
          </Row>
          <Row>
            <Col id="cdid">E</Col>
            <Col id="cdnm">염색체</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_pid" propid="value" datasetid="ds_send_data1" columnid="pid"/>
      <BindItem id="item1" compid="group2.ipt_patnm" propid="value" datasetid="ds_send_data1" columnid="patnm"/>
      <BindItem id="item2" compid="group2.ipt_aplydd" propid="value" datasetid="ds_send_data1" columnid="regfromdd"/>
      <BindItem id="item3" compid="group2.input1" propid="value" datasetid="ds_send_data1" columnid="regtodd"/>
      <BindItem id="item4" compid="group2.Combo00" propid="value" datasetid="ds_send_data1" columnid="rgstkindcd"/>
    </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 sEXPT_INFO_PATH = "";
function SMPID27100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPID27100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_ordcnstlist);
	grdf_setRowTypeIcon(grd_ordcnstlist, 1);
	
	pamGetDeptCDDrIDList();
	
	var arrParam = [{dsNm: "ds_P0509", cdGrpId: "P0509"}];
	appf_getCodeList(arrParam);	
	
	var fromdd = utlf_getCurrentDate();
	fromdd = fromdd.toDate().getAddDate(-7, 'D');
	fromdd = fromdd.getDateFormat("YYYYMMDD"); 
	
	ds_send_data1.setColumn(0, "regfromdd", fromdd);
	ds_send_data1.setColumn(0, "regtodd", utlf_getCurrentDate());
}
//조회
function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPID25000";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetUnknwnRaretList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_grd_ordcnstlist=ordcnstlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID25000";

	tranf_submit(oParam);
}

function group2_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_tmp.setColumn(0, "pid", group2.ipt_pid.value);
	ds_tmp.setColumn(0, "srchcond", "1");
	ds_tmp.setColumn(0, "autoflag", "Y");
	
	var objArgs = new Object();
		objArgs.arg_ds_send = ds_tmp; 
	frmf_modal("SPPMC02500", "SPPMC02500", objArgs, "", "", "", "", "", "", "", "", "", "M");
	
	group2.ipt_pid.value = ds_patinfolist.getColumn(0, "pid");
	group2.ipt_patnm.value = ds_patinfolist.getColumn(0, "hngnm");
}

function group2_input1_onkeydown(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		group2_btn_search_onclick();
	}
}

function btn_rowadd_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_grd_ordcnstlist.addRow();
}

function btn_rowdel_onclick(obj:Button,  e:ClickEventInfo)
{
	var SelectedRows = grdf_getSelectedRows(grd_ordcnstlist);
	
	for(var i = 0; i < SelectedRows.length; i++)
	{
		var sel = SelectedRows[i];
		
		var arrRow = new Array();
		arrRow[0] = sel; 
		grdf_setStatus(grd_ordcnstlist, "D", arrRow);
	}
}
//엑셀저장
function button5_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_ordcnstlist.rowcount > 0) {
		grdf_exportExcel(grd_ordcnstlist, "희귀난치질환기준자료", "see");
	}else{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}
//저장
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if (sysf_messageBox("","Q002") == 6 ) {
		var update = grdf_getGridUpdateData(grd_ordcnstlist);
		if(update.rowcount == 0){
			sysf_messageBox("업데이트 정보가 없습니다.", "I");
			return 0;
		
		} else {
			var oParam = {};
				oParam.id          = "TXPID27000";
				oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
				oParam.method      = "reqExeUnknwnRaretList";
				oParam.inds        = "req=ds_grd_ordcnstlist:U";
				oParam.outds       = "ds_grd_ordcnstlist=ordcnstlist";
				oParam.async       = false;
				//oParam.callback    = "cf_TXPID27000";

			tranf_submit(oParam);
			
			group2_btn_search_onclick();
		}	
	}
}

function grd_ordcnstlist_onkeydown(obj:Grid, e:KeyEventInfo)
{
	obj.updateToDataset();
	var rowno = ds_grd_ordcnstlist.rowposition;
	
	if(obj.currentcol == obj.getBindCellIndex("body","diagcd"))
	{
		if(e.keycode == 13)
		{
			var objArg = new Object();

			objArg.sDiagcd = obj.getCellText(obj.currentrow, obj.currentcol);
			objArg.sSelectedrdodiagkind = 2;
			objArg.sSingleFlag = "P";

			var objDs = frmf_modal("SPPIZ00400", "SPPIZ00400", objArg, "", "", "", "", "", "", "", "", "", "M");
			ds_grd_ordcnstlist.setColumn(rowno, "diagcd", objDs.sDiagcd);
			ds_grd_ordcnstlist.setColumn(rowno, "diagnm", objDs.sDiagnm);
		}
	}
	
	if(obj.currentcol == obj.getBindCellIndex("body","pid"))
	{
		if(e.keycode == 13)
		{
			ds_tmp.setColumn(0, "pid", obj.getCellText(obj.currentrow, obj.currentcol));
			ds_tmp.setColumn(0, "srchcond", "1");
			ds_tmp.setColumn(0, "autoflag", "Y");
			
			var objArgs = new Object();
				objArgs.arg_ds_send = ds_tmp; 
			frmf_modal("SPPMC02500", "SPPMC02500", objArgs, "", "", "", "", "", "", "", "", "", "M");
			
			ds_grd_ordcnstlist.setColumn(rowno, "pid", ds_patinfolist.getColumn(0, "pid"));
			ds_grd_ordcnstlist.setColumn(rowno, "hngnm",  ds_patinfolist.getColumn(0, "hngnm"));

			//grd_ordcnstlist.rightCol = grd_ordcnstlist.colRef("orddeptcd")
		}
	}
}

function grd_ordcnstlist_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	ds_init_orddridlist.filterstr = "";
	
	if(obj.currentcol == obj.getBindCellIndex("body","orddeptcd"))
	{
		var rowval = e.value;
		ds_init_orddridlist.filterstr = "dp=='"+rowval+"'";
		ds_grd_ordcnstlist.setColumn(obj.currentrow, "orddrid", "");
	}
	
	if(obj.currentcol == obj.getBindCellIndex("body","fromdd"))
	{
		var todd = String(e.value);
		var rgstkindcd = ds_grd_ordcnstlist.getColumn(e.row, "rgstkindcd");
		
		if (rgstkindcd == "R") {
			todd = todd.toDate().getAddDate(1, 'Y');
		} else if (rgstkindcd == "E") {
			todd = todd.toDate().getAddDate(5, 'Y');
		} else {
			todd = "99991231";
		}
		
		todd = todd.getDateFormat("YYYYMMDD"); 
		ds_grd_ordcnstlist.setColumn(obj.currentrow, "todd", todd);
	}

}

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