YNU_JEUS/app_home/himed/xpapps/pam/insubasecdmngtxp/xp/SMPIB03200_자동일괄완료등록관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIB03000" position="absolute 0 0 1213 762" titletext="자동 일괄완료등록관리" oninit="SMPIB03200_oninit" onload="SMPIB03200_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 1212 736" id="group3" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout width="1211" height="723">
              <Div position="absolute 0 10 1209 50" align="align:center top;" id="group2" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 1139 9 1195 31" id="btn_search" class="btn1" taborder="6" text="조회" anchor="top right" onclick="group3_group2_btn_search_onclick"/>
                    <Shape position="absolute 1113 6 1119 33" linetype="vertical" id="line13" class="line_4" anchor="top right"/>
                    <Static text="부서 :" position="absolute 18 11 79 28" id="caption5" class="search_name" anchor="left top"/>
                    <Combo id="cmb_orddeptcd" taborder="7" position="absolute 73 9 327 29" index="-1" innerdataset="@ds_init_orddeptcd_orddeptcdlist" codecolumn="cd" datacolumn="nm" anchor="left top"/>
                    <Static id="caption00" text="수가코드 :" class="search_name" position="absolute 338 10 415 27" onclick="group3_group2_caption00_onclick" anchor="left top"/>
                    <Edit id="ipt_calcscorcd" taborder="8" position="absolute 420 9 520 29" anchor="left top" onkeydown="group3_group2_ipt_calcscorcd_onkeydown" inputmode="upper" imemode="alpha" autoselect="true"/>
                    <Static id="caption01" text="기준일자 :" onclick="group3_group2_caption00_onclick" class="search_name" position="absolute 559 10 636 27" anchor="left top"/>
                    <Calendar id="ipt_cal" taborder="10" position="absolute 635 9 735 29" anchor="left top"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="자동일괄완료등록기준List" position="absolute 0 61 216 83" id="caption1" class="tit_2" anchor="default"/>
              <Grid position="absolute 0 82 1209 722" id="grd_list1" class="datagrid2" binddataset="ds_main_list1" anchor="all" autosizingtype="none" cellsizingtype="row" selecttype="multirow" autoenter="select" cellmovingtype="col" onexpanddown="group3_grd_list1_onexpanddown" onkeydown="group3_grd_list1_onkeydown" autofittype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="263"/>
                      <Column size="101"/>
                      <Column size="510"/>
                      <Column size="105"/>
                      <Column size="100"/>
                      <Column size="100"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <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="유일키"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="combo" edittype="expr:ds_main_list1.getRowType(currow) == 1  ? &quot;none&quot; : &quot;combo&quot;" style="align:center middle;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd_orddeptcdlist" combocodecol="cd" combodatacol="nm" combodisplayrowcount="100"/>
                      <Cell col="2" displaytype="text" edittype="expr:ds_main_list1.getRowType(currow) == 1  ? &quot;none&quot; : &quot;text&quot;" editfilter="upper,number,char" style="align:left middle;" text="bind:calcscorcd" editimemode="alpha" editautoselect="true" expandshow="show"/>
                      <Cell col="3" style="align:left middle;" text="bind:calcscorcdnm"/>
                      <Cell col="4" text="bind:autmyn"/>
                      <Cell col="5" displaytype="date" edittype="date" text="bind:fromdd" mask="yyyy-MM-dd"/>
                      <Cell col="6" displaytype="date" edittype="date" text="bind:todd" mask="yyyy-MM-dd"/>
                      <Cell col="7" displaytype="text" edittype="text" text="bind:uniqseq"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1130 58 1210 77" id="button5" class="btn7" visible="true" text="엑셀저장" anchor="top right" onclick="group3_button5_onclick"/>
              <Button position="absolute 1075 58 1128 77" id="btn_rowdel" class="btn2" text="행삭제" anchor="top right" onclick="group3_btn_rowdel_onclick">
                <Layouts>
                  <Layout width="53" height="19"/>
                </Layouts>
              </Button>
              <Button position="absolute 1019 58 1072 77" id="btn_rowadd" class="btn2" text="행추가" anchor="top right" onclick="group3_btn_rowadd_onclick"/>
              <Shape id="line00" class="line_10" position="absolute 0 77 1209 83" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
              <Button id="btn_sel_dept" taborder="1" text="진료과선택" onclick="group3_btn_sel_dept_onclick" class="btn2" position="absolute 941 58 1016 77"/>
              <Div id="grp_dept_select" taborder="2" style="background:#ffffffff;border:1 solid #808080ff ;" visible="false" position="absolute 400 91 760 714">
                <Layouts>
                  <Layout>
                    <Grid id="grd_seldeptlist" taborder="6" binddataset="ds_init_sel_orddeptcdlist" useinputpanel="false" cellsizingtype="col" cellmovingtype="col" autofittype="col" position="absolute 6 50 349 591" anchor="default">
                      <Formats>
                        <Format id="default">
                          <Columns>
                            <Column size="56"/>
                            <Column size="0"/>
                            <Column size="260"/>
                            <Column size="0"/>
                          </Columns>
                          <Rows>
                            <Row size="24" band="head"/>
                            <Row size="24"/>
                          </Rows>
                          <Band id="head">
                            <Cell displaytype="checkbox" edittype="checkbox" text="선택"/>
                            <Cell col="1" text="진료과코드"/>
                            <Cell col="2" text="진료과명"/>
                            <Cell col="3" text="기존선택"/>
                          </Band>
                          <Band id="body">
                            <Cell displaytype="checkbox" edittype="checkbox" text="bind:selyn"/>
                            <Cell col="1" style="align:left middle;" text="bind:cd"/>
                            <Cell col="2" style="align:left middle;" text="bind:nm"/>
                            <Cell col="3" text="bind:oldselyn"/>
                          </Band>
                        </Format>
                      </Formats>
                    </Grid>
                    <Static id="caption15" text="일괄 진료과 입력 " class="tit_2" position="absolute 5 5 349 26" anchor="default"/>
                    <Button id="button6" taborder="7" text="취소" onclick="grp_dept_select_button6_onclick" class="btn4" position="absolute 292 594 348 616" anchor="default"/>
                    <Button id="button7" taborder="8" text="확인" onclick="grp_dept_select_button7_onclick" class="btn4" position="absolute 235 594 291 616" anchor="default"/>
                    <Shape id="line4" class="line_10" position="absolute 4 23 349 29" style="strokepen:3 solid #33bbbbff;" anchor="default"/>
                    <Edit id="ipt_calcscorcd" taborder="9" readonly="false" position="absolute 91 29 217 48" style="color:#ff00ffff;" inputmode="upper" imemode="alpha" autoselect="true" anchor="default"/>
                    <Static id="caption01" text="수가코드 :" onclick="group3_group2_caption00_onclick" class="search_name" position="absolute 10 31 87 48" anchor="left top"/>
                  </Layout>
                </Layouts>
              </Div>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="자동 일괄완료등록관리" class="tit_1" position="absolute 0 0 328 23"/>
        <Button id="button1" taborder="1" text="저 장" onclick="group4_button1_onclick" class="btn4" position="absolute 1141 737 1209 759" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_list1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="calcscorcdnm" type="STRING" size="256"/>
        </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="orddeptcd" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="basedd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_orddeptcd_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_item2_grdsrchnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="iptsearch" type="STRING" size="256"/>
          <Column id="searchkind" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_calcdiagnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_calc" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="con1_dd" type="STRING" size="256"/>
          <Column id="con2_gsflag" type="STRING" size="256"/>
          <Column id="con3_search1" type="STRING" size="256"/>
          <Column id="con4_search2" type="STRING" size="256"/>
          <Column id="con5_insu" type="STRING" size="256"/>
          <Column id="con6_calcscorcd" type="STRING" size="256"/>
          <Column id="con7_todd" type="STRING" size="256"/>
          <Column id="con8_instcd" type="STRING" size="256"/>
          <Column id="con9_lastupdtdt" type="STRING" size="256"/>
          <Column id="con10_preord_chk" type="STRING" size="256"/>
          <Column id="con_ordinptflag" type="STRING" size="256"/>
          <Column id="con11_edicd" type="STRING" size="256"/>
          <Column id="con11_instcd" type="STRING" size="256"/>
          <Column id="con12_drugelectric" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_sel_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.group2.cmb_orddeptcd" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
      <BindItem id="item1" compid="group3.group2.ipt_calcscorcd" propid="value" datasetid="ds_send" columnid="calcscorcd"/>
      <BindItem id="item2" compid="group3.group2.ipt_cal" propid="value" datasetid="ds_send" columnid="basedd"/>
    </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::PAM.xjs";

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

function SMPIB03200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(group3.grd_list1);
	grdf_initGrid(group3.grp_dept_select.grd_seldeptlist);
	
	grdf_setRowTypeIcon(group3.grd_list1, 0);
	
	fInitialize();
}

function fInitialize()
{
	ds_main_list1.clearData();
	
	pamGetDeptCDDrIDList();
	
	ds_init_orddeptcd_orddeptcdlist.copyData(ds_init_orddeptcdlist);
	ds_init_sel_orddeptcdlist.copyData(ds_init_orddeptcdlist);
	
	frmf_addComboItem("group3.group2.cmb_orddeptcd","전체[-]","-","above");
	var nrow = ds_init_sel_orddeptcdlist.insertRow(0);
	ds_init_sel_orddeptcdlist.setColumn(nrow ,"cd","-");
	ds_init_sel_orddeptcdlist.setColumn(nrow ,"nm","전체[-]");
	ds_init_sel_orddeptcdlist.addColumn("selyn","string");
	ds_init_orddeptcd_orddeptcdlist.insertRow(0);
	
	
	group3.group2.cmb_orddeptcd.index = 1;
	group3.group2.ipt_cal.value = utlf_getCurrentDate();
	
}

function group3_group2_ipt_calcscorcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		ds_send.setColumn(0, "calcscorcd", obj.value);
		group3_group2_btn_search_onclick();
	}
}

function group3_group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_list1.clearData();
	
	var oParam = {};
		oParam.id          = "TRPIB03201";
		oParam.service     = "insubasecdmngtapp.AutDiagRgst";
		oParam.method      = "reqGetAutAllCompltList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_list1=listautd";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIB03201";

	tranf_submit(oParam);

}

function group4_btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitialize();
}

function group3_grd_list1_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	if (e.col == obj.getBindCellIndex("body","calcscorcd")) 
	{ 
		obj.updateToDataset();
		fSrchSnglCalcscorNm();
	}
}

function group3_grd_list1_onkeydown(obj:Grid, e:KeyEventInfo)
{
	if (e.keycode == 13) 
	{ 
		if (e.col == obj.getBindCellIndex("body","calcscorcd")) 
		{ 
			obj.updateToDataset();
			fSrchSnglCalcscorNm();
		}
	}
	
	if (e.ctrlKey && e.keycode == 67 ) {
		system.setClipboard("CF_TEXT", obj.getCellText(obj.currentrow, obj.currentcol));
	}
}

function group3_btn_rowadd_onclick(obj:Button,  e:ClickEventInfo)
{
	group3_grd_list1_addRow();
}

function group3_grd_list1_addRow(){
	var row = ds_main_list1.addRow();
	ds_main_list1.setColumn(row, "orddeptcd", utlf_transNull(group3.group2.cmb_orddeptcd.value,"-"));
	ds_main_list1.setColumn(row, "fromdd", utlf_getCurrentDate().substr(0,6) + "01");
	ds_main_list1.setColumn(row, "todd", "99991231");	
    
	ds_main_list1.clearSelect();
	ds_main_list1.selectRow(row);

	return row;
}


function fSrchSnglCalcscorNm()
{
	
	ds_send_calc.clearData();
	ds_send_calc.addRow();
	ds_picmmech.clearData();
	ds_init3.clearData();
	
	var row = ds_main_list1.rowposition;
	var calcscorcd = ds_main_list1.getColumn(row, "calcscorcd");
	
	ds_send_calc.setColumn(0,"con1_dd", utlf_getCurrentDate());
	ds_send_calc.setColumn(0,"con2_gsflag", "S");
	ds_send_calc.setColumn(0,"con3_search1", "calcscorcd");
	ds_send_calc.setColumn(0,"con4_search2", calcscorcd);
	ds_send_calc.setColumn(0,"con5_insu", "insu");

	if (!utlf_isNull(calcscorcd)){

		var oParam = {};
			oParam.id          = "TRPIC00201";
			oParam.service     = "calcscormngtapp.MchrgMngt";
			oParam.method      = "reqGetCalcScorJoHoi";
			oParam.inds        = "req=ds_send_calc";
			oParam.outds       = "ds_picmmech=picmmech";
			oParam.async       = false;

		tranf_submit(oParam);
	}
	
	if (ds_picmmech.rowcount == 1) {
		ds_main_list1.setColumn(row,"calcscorcd", ds_picmmech.getColumn(0,"picmmech_calcscorcd"));
		ds_main_list1.setColumn(row,"calcscorcdnm", ds_picmmech.getColumn(0,"picmmech_hngnm"))
	} else {
	
		frmf_setParameter("openflag", "calcscorcd");
		frmf_setParameter("iParam_mother_view", "SMPPI00100_사전심사제어코드관리");
		
		var objArg = new Object();
		objArg.arg_ds_temp = ds_send_calc;
		
		frmf_modal("SMPIC00202", "SMPIC00202", objArg, "", "", "", "", "", "", "", "", "", "M");
		
		for(var i = 0; i < ds_init3.rowcount; i++)
		{
			if (i==0) {
				ds_main_list1.setColumn(row, "calcscorcd", ds_init3.getColumn(i, "picmmech_calcscorcd"));
				ds_main_list1.setColumn(row, "calcscorcdnm", ds_init3.getColumn(i, "picmmech_hngnm"));
			} else {
				var row = group3_grd_list1_addRow();
				ds_main_list1.setColumn(row, "calcscorcd", ds_init3.getColumn(i, "picmmech_calcscorcd"));
				ds_main_list1.setColumn(row, "calcscorcdnm", ds_init3.getColumn(i, "picmmech_hngnm"));
			}
		}
	}
	ds_init3.clearData();
}
function group3_button5_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(group3.grd_list1, "exportExcel", "see");
}

function group3_btn_rowdel_onclick(obj:Button,  e:ClickEventInfo)
{
	var delsRow = grdf_getSelectedRows(group3.grd_list1);
	
// 	for (var i=0; i < delsRow.length; i++){
// 		ds_main_list1.setColumn(delsRow[i],"todd", utlf_addDate(utlf_getCurrentDate(), -1))
// 	}
	
	grdf_setStatus(group3.grd_list1, "D", delsRow)
}

function group4_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var gupdtdata = grdf_getGridUpdateData(group3.grd_list1);
	if (gupdtdata.rowcount == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return false;
	}
	
// 	var orddeptcd_col = group3.grd_list1.getBindCellIndex("body","orddeptcd");
// 	var calcscorcd_col = group3.grd_list1.getBindCellIndex("body","calcscorcd");
// 	var fromdd_col = group3.grd_list1.getBindCellIndex("body","fromdd");
// 	var todd_col = group3.grd_list1.getBindCellIndex("body","todd");
// 	if(!frmf_chkMdtGrid(group3.grd_list1, [orddeptcd_col,
// 									  calcscorcd_col,
// 									  fromdd_col,
// 									  todd_col], 
// 								      ["부서명","수가코드","시작일","종료일"])) 
// 	{
// 		return;
// 	}	

	var chk = 0;
	for (var i=0; i < gupdtdata.rowcount; i++){
		if (gupdtdata.getRowType(i) != 8 && 
		   (utlf_isNull(gupdtdata.getColumn(i,"orddeptcd")) 
		    || utlf_isNull(gupdtdata.getColumn(i,"calcscorcd")) 
		    || utlf_isNull(gupdtdata.getColumn(i,"fromdd")) 
		    || utlf_isNull(gupdtdata.getColumn(i,"todd"))
		    )) {
			chk ++;
		}
	}
	
	if (chk > 0 ) {
		sysf_messageBox("필수 입력값을","C001")
		return;
	}
	
							      
	var rtn = sysf_messageBox("자동일괄완료등록 기준정보를", "Q002");
	if (rtn != 6) 
	{
		return;
	}	
							      
	var oParam = {};
		oParam.id          = "TXPIB03201";
		oParam.service     = "insubasecdmngtapp.AutDiagRgst";
		oParam.method      = "reqExeAutAllCompltList";
		oParam.inds        = "auzmreq=" + gupdtdata.name + ":U";
		oParam.outds       = "ds_picmmech=picmmech";
		oParam.async       = false;
		oParam.callback    = "cf_TXPIB03201";

	tranf_submit(oParam);					      
}

function cf_TXPIB03201(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    group3.group2.btn_search.click();
}

function group3_btn_sel_dept_onclick(obj:Button,  e:ClickEventInfo)
{
	group3.grp_dept_select.visible = true;
}
function grp_dept_select_button6_onclick(obj:Button,  e:ClickEventInfo)
{
	group3.grp_dept_select.ipt_calcscorcd.value = "";
	group3.grp_dept_select.visible = false;
}

function grp_dept_select_button7_onclick(obj:Button,  e:ClickEventInfo)
{
	group3.grp_dept_select.visible = false;
	
	var nrow = -1;
	ds_init_sel_orddeptcdlist.filterstr = "selyn==1";
	var rcnt = ds_init_sel_orddeptcdlist.getRowCount();

	for (var i=0; i < rcnt; i++) {
		nrow = group3_grd_list1_addRow();
		ds_main_list1.setColumn(nrow, "calcscorcd", group3.grp_dept_select.ipt_calcscorcd.value);
		ds_main_list1.setColumn(nrow, "orddeptcd", ds_init_sel_orddeptcdlist.getColumn(i,"cd"));
	}
	
	for (var i=0; i < rcnt; i++) {
		ds_init_sel_orddeptcdlist.setColumn(i,"selyn","0");
	}
	
	ds_init_sel_orddeptcdlist.filterstr = "";
	group3.grp_dept_select.ipt_calcscorcd.value = "";
}
]]></Script>
  </Form>
</FDL>