YNU_JEUS/app_home/himed/xpapps/pam/cutmngtxp/xp/SPPIR31200_이의신청심사자변경.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIR31200" position="absolute 0 0 608 523" titletext="이의신청 심사자 변경" oninit="SPPIR31200_oninit" onload="SPPIR31200_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 606 520" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="대상자" position="absolute 1 82 61 103" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 118 290 124" linetype="vertical" id="line1" class="line_1" anchor="default"/>
              <Grid position="absolute 0 99 600 500" id="grd_pirhobtm" class="datagrid2" binddataset="ds_main_obtmlist_gridpirhobtm" anchor="default" autofittype="col" selecttype="multirow" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="23"/>
                      <Column size="40"/>
                      <Column size="55"/>
                      <Column size="122"/>
                      <Column size="60"/>
                      <Column size="76"/>
                      <Column size="75"/>
                      <Column size="81"/>
                      <Column size="31"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="31" 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="심사자"/>
                      <Cell col="8" text="마감&#13;&#10;구분"/>
                      <Cell col="9"/>
                      <Cell col="10"/>
                      <Cell col="11"/>
                      <Cell col="12"/>
                      <Cell col="13"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:checkyn" expr="expr:checkyn == 'Y' || checkyn == '1' ? 1 : 0"/>
                      <Cell col="2" displaytype="normal" edittype="none" text="bind:orddeptcd" combodataset="ds_init_P0287list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="3" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:atdoct" combodataset="ds_main_obtmlist_doctinfo" combocodecol="cd" combodatacol="nm" enable="false"/>
                      <Cell col="4" text="bind:docuseqno" enable="false"/>
                      <Cell col="5" text="bind:pid" enable="false"/>
                      <Cell col="6" text="bind:patnm" enable="false"/>
                      <Cell col="7" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:judgrid" combodataset="ds_init_U0001list" combocodecol="judgrid" combodatacol="judgrnm" enable="false"/>
                      <Cell col="8" text="bind:obtappendflag"/>
                      <Cell col="9" text="bind:judgdg"/>
                      <Cell col="10" text="bind:clamno"/>
                      <Cell col="11" text="bind:acptno"/>
                      <Cell col="12" text="bind:obtappflag"/>
                      <Cell col="13" text="bind:instcd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Div position="absolute 0 11 600 71" align="align:center top;" id="grp_sea" class="div_SA" anchor="default">
                <Layouts>
                  <Layout>
                    <Static text="청구번호 :" position="absolute 11 9 107 26" id="caption2" class="search_name" anchor="default"/>
                    <Button position="absolute 530 20 586 42" id="button1" class="btn1" text="조회" anchor="default" onclick="grp_biz_grp_sea_button1_onclick"/>
                    <Shape position="absolute 510 20 516 42" linetype="vertical" id="line13" class="line_4" anchor="default"/>
                    <Static text="접수번호 :" position="absolute 181 9 277 26" id="caption3" class="search_name" anchor="default"/>
                    <Static text="심사차수 :" position="absolute 346 9 434 26" id="caption4" class="search_name" anchor="default"/>
                    <Edit readonly="true" position="absolute 93 8 166 27" id="ipt_clamno" class="output_search" anchor="default"/>
                    <Edit readonly="true" position="absolute 260 8 333 27" id="ipt_acptno" class="output_search" taborder="1" anchor="default"/>
                    <Edit readonly="true" position="absolute 422 8 495 27" id="ipt_judgdg" class="output_search" taborder="2" anchor="default"/>
                    <Combo position="absolute 93 35 166 54" id="combo4" class="combo_search" innerdataset="ds_init_orddeptcdlist" datacolumn="nm" codecolumn="deptengabbr2" anchor="default"/>
                    <Static text="진 료 과 :" position="absolute 11 36 94 53" id="caption16" class="search_name" anchor="default"/>
                    <Static text="진 료 의 :" position="absolute 181 36 264 53" id="caption17" class="search_name" anchor="default"/>
                    <Static text="심 사 자 :" position="absolute 346 36 439 53" id="caption18" class="search_name" anchor="default"/>
                    <Combo position="absolute 260 35 333 54" id="combo1" class="combo_search" innerdataset="@ds_main_obtmlist_doctinfo" datacolumn="nm" codecolumn="cd" anchor="default"/>
                    <Combo position="absolute 422 35 495 54" id="combo2" class="combo_search" innerdataset="ds_init_combo2" datacolumn="nm" codecolumn="cd" anchor="default"/>
                    <Combo position="absolute 422 35 495 54" id="combo3" class="combo_search" innerdataset="@ds_main_obtmlist_judgrinfo" datacolumn="nm" codecolumn="cd" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Combo position="absolute 459 76 532 95" id="combo5" class="combo_search" innerdataset="@ds_init_U0001list" datacolumn="judgrnm" codecolumn="judgrid" anchor="default" onitemchanged="grp_biz_combo5_onitemchanged"/>
              <Button position="absolute 544 75 600 97" id="button2" class="btn4" text="저장" anchor="default" onclick="grp_biz_button2_onclick"/>
              <Static text="변경 할 심사자" position="absolute 352 79 464 96" id="caption5" class="search_name" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="이의신청 심사자 변경" class="tit_1" position="absolute 1 0 249 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_send_obtmlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="clamno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="setno" type="STRING" size="256" sumtext="묶음번호"/>
          <Column id="obtappdocuno" type="STRING" size="256" sumtext="문서번호"/>
          <Column id="obtappflag" type="STRING" size="256" sumtext="이의신청구분"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="codegubun" type="STRING" size="256" sumtext="코드구분"/>
          <Column id="cd" type="STRING" size="256" sumtext="코드"/>
          <Column id="item" type="STRING" size="256" sumtext="항목"/>
          <Column id="adjtresncd" type="STRING" size="256" sumtext="조정사유"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="주치의"/>
          <Column id="judgrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="adjtamt" type="STRING" size="256" sumtext="삭감액"/>
          <Column id="notidd" type="STRING" size="256" sumtext="통보일자"/>
          <Column id="rejudgflag" type="STRING" size="256" sumtext="재심사조정청구구분"/>
          <Column id="endn" type="STRING" size="256" sumtext="미완료조회구분"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_obtmlist_doctinfo" 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/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_U0001list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgrnm" type="STRING" size="256"/>
          <Column id="judgrid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_searchinfo" 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="orddrid" type="STRING" size="256"/>
          <Column id="judgrid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_obtmlist_deptinfo" 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>
      </Dataset>
      <Dataset id="ds_main_obtmlist_judgrinfo" 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>
      </Dataset>
      <Dataset id="ds_send_send_chgjudgrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgrid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_obtmlist_gridpirhobtm" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="선택"/>
          <Column id="closeyn" type="STRING" size="256" sumtext="마감여부"/>
          <Column id="endyn" type="STRING" size="256" sumtext="완료여부"/>
          <Column id="obtappyn" type="STRING" size="256" sumtext="이신여부"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="docuseqno" type="STRING" size="256" sumtext="명세서일련번호"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="수진자명"/>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="clamno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="obtappflag" type="STRING" size="256" sumtext="이의신청구분"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="notidd" type="STRING" size="256" sumtext="통보일자"/>
          <Column id="obtappendflag" type="STRING" size="256" sumtext="이의신청구분"/>
          <Column id="obtappdocuno" type="STRING" size="256" sumtext="이의신청문서번호"/>
          <Column id="atdoct" type="STRING" size="256" sumtext="주치의"/>
          <Column id="judgrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="clamym" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="clamdg" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="pidsn" type="STRING" size="256" sumtext="등록번호순번"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="내원구분"/>
          <Column id="bfobtappflag" type="STRING" size="256" sumtext="이전청이신구분"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의"/>
          <Column id="obtappdd" type="STRING" size="256" sumtext="이의신청일자"/>
          <Column id="concprcpyn" type="STRING" size="256" sumtext="이의신청일자"/>
          <Column id="checkyn" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0287list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" 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"/>
      <Dataset id="ds_main_acptinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="claminfo" type="STRING" size="256" sumtext="청구정보"/>
          <Column id="adjtamt" type="STRING" size="256" sumtext="총삭감액"/>
          <Column id="obtappamt" type="STRING" size="256" sumtext="이의신청액"/>
          <Column id="abdamt" type="STRING" size="256" sumtext="부제기금액"/>
          <Column id="obtappendflag" type="STRING" size="256" sumtext="이의신청마감"/>
          <Column id="restterm" type="STRING" size="256" sumtext="제한기간"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.grp_sea.ipt_clamno" propid="value" datasetid="ds_send_send_obtmlist" columnid="clamno"/>
      <BindItem id="item1" compid="grp_biz.grp_sea.ipt_acptno" propid="value" datasetid="ds_send_send_obtmlist" columnid="acptno"/>
      <BindItem id="item2" compid="grp_biz.grp_sea.ipt_judgdg" propid="value" datasetid="ds_send_send_obtmlist" columnid="judgdg"/>
      <BindItem id="item3" compid="grp_biz.grp_sea.combo4" propid="value" datasetid="ds_searchinfo" columnid="orddeptcd"/>
      <BindItem id="item4" compid="grp_biz.grp_sea.combo1" propid="value" datasetid="ds_searchinfo" columnid="orddrid"/>
      <BindItem id="item5" compid="grp_biz.grp_sea.combo3" propid="value" datasetid="ds_searchinfo" columnid="judgrid"/>
      <BindItem id="item6" compid="grp_biz.combo5" propid="value" datasetid="ds_send_send_chgjudgrid" columnid="judgrid"/>
    </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";

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

function SPPIR31200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_pirhobtm);
	
	ds_temp.copyData(arg_ds_send_send_obtmlist);
	
	ds_send_send_obtmlist.setColumn(0, "judgdg", ds_temp.getColumn(0, "judgdg"));
	ds_send_send_obtmlist.setColumn(0, "clamno", ds_temp.getColumn(0, "clamno"));
	ds_send_send_obtmlist.setColumn(0, "acptno", ds_temp.getColumn(0, "acptno"));
	ds_send_send_obtmlist.setColumn(0, "obtappflag", ds_temp.getColumn(0, "obtappflag"));
	ds_send_send_obtmlist.setColumn(0, "setno", ds_temp.getColumn(0, "setno"));
	ds_send_send_obtmlist.setColumn(0, "notidd", ds_temp.getColumn(0, "notidd"));
	ds_send_send_obtmlist.setColumn(0, "endn", ds_temp.getColumn(0, "endn"));
	ds_send_send_obtmlist.setColumn(0, "judgrid", ds_temp.getColumn(0, "judgrid2"));
	
	CommCode_Load();
	
	fSearch();
		
	if(ds_main_obtmlist_gridpirhobtm.rowcount > 0)
	{
		ds_main_obtmlist_gridpirhobtm.rowposition = 0;
	}
}

function CommCode_Load()
{
	var arrParam = [{dsNm: "ds_init_P0287list", cdGrpId: "P0287"}]
				   
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList();
	
	ds_init_orddeptcdlist.insertRow(0);
	
	var oParam = {};
		oParam.id          = "TRPIR30202";
		oParam.service     = "cutmngtapp.CutMngt";
		oParam.method      = "reqGetJudgrId";
		oParam.inds        = "req=ds_send_send_chgjudgrid";
		oParam.outds       = "ds_init_U0001list=U0001";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIR30202";

	tranf_submit(oParam);
}

function fSearch()
{
	if(!utlf_isNull(ds_send_send_obtmlist.getColumn(0, "judgdg")) && !utlf_isNull(ds_send_send_obtmlist.getColumn(0, "acptno")))
	{
		var oParam = {};
			oParam.id          = "TRPIR30400";
			oParam.service     = "cutmngtapp.CutMngt";
			oParam.method      = "reqReqObtAppList";
			oParam.inds        = "req=ds_send_send_obtmlist";
			oParam.outds       = "ds_main_obtmlist_gridpirhobtm=gridpirhobtm ds_main_acptinfo=acptinfo ds_main_obtmlist_deptinfo=deptinfo ds_main_obtmlist_doctinfo=doctinfo ds_main_obtmlist_judgrinfo=judgrinfo";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIR30400";

		tranf_submit(oParam);				
	}
	
	ds_searchinfo.setColumn(0, "orddeptcd", "A");
	ds_searchinfo.setColumn(0, "orddrid", "A");
	ds_searchinfo.setColumn(0, "judgrid", "A");
}

function grp_biz_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var updtdata = grdf_getGridUpdateData(grp_biz.grd_pirhobtm);
	
	if(updtdata.rowcount == 0) 
	{
		sysf_messageBox("변경 할 심사자가 ","I004");  // 없습니다.
		return;
	} 
	else 
	{		
		var oParam = {};
			oParam.id          = "TXPIR31200";
			oParam.service     = "cutmngtapp.CutMngt";
			oParam.method      = "reqSetObtmJudgrid";
			oParam.inds        = "req=ds_main_obtmlist_gridpirhobtm:U";
			oParam.outds       = "";
			oParam.async       = false;
			oParam.callback    = "cf_TXPIR31200";

		tranf_submit(oParam);
	}
}

function cf_TXPIR31200()
{
	fSearch();
}

function grp_biz_grp_sea_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var orddept = ds_searchinfo.getColumn(0, "orddeptcd");
	var orddrid = ds_searchinfo.getColumn(0, "orddrid");
	var judgrid = ds_searchinfo.getColumn(0, "judgrid");
	var rowcnt = ds_main_obtmlist_gridpirhobtm.rowcount;
	var deptstr = "";
	var dridstr = "";
	var juidstr = "";
	
	if (!utlf_isNull(orddept) && orddept != 'A') {
		deptstr = "&& orddeptcd =='" + orddept + "' ";
	} else {
		deptstr = "";
	}
	
	if (!utlf_isNull(orddrid) && orddrid != 'A') {
		dridstr = "&& atdoct =='" + orddrid + "' ";
	} else {
		dridstr = "";
	}
	
	if (!utlf_isNull(judgrid) && judgrid != 'A') {
		juidstr = "&& judgrid =='" + judgrid + "' ";
	} else {
		juidstr = "";
	}
	
	ds_main_obtmlist_gridpirhobtm.filterstr = "1==1 " + deptstr + dridstr  + juidstr ;
}

function grp_biz_combo5_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var changeJudgrid = ds_send_send_chgjudgrid.getColumn(0, "judgrid");

	var rows = grdf_getSelectedRows(grp_biz.grd_pirhobtm);
	
	for(var i = 0; i < rows.length; i++) 
	{
		var m_row = rows[i];
		
		if(ds_main_obtmlist_gridpirhobtm.getColumn(m_row, "obtappendflag") == "Y" || ds_main_obtmlist_gridpirhobtm.getColumn(m_row, "obtappendflag") == "S" )
		{
				sysf_messageBox("마감된 청구서는 변경 할 수 ","I004");  // 없습니다.
				return;
		} 
		else 
		{
			ds_main_obtmlist_gridpirhobtm.setColumn(m_row, "judgrid", changeJudgrid);
			ds_main_obtmlist_gridpirhobtm.setColumn(m_row, "checkyn", "Y");
		}
	}
	
	for(var j = 0; j < rows.length; j++)
	{
		var m_row = rows[j];
		
		if(ds_main_obtmlist_gridpirhobtm.getColumn(j, "checkyn") == "Y")
		{
			if(ds_main_obtmlist_gridpirhobtm.getColumn(m_row, "obtappendflag") == "Y" || ds_main_obtmlist_gridpirhobtm.getColumn(m_row, "obtappendflag") == "S")
			{
				sysf_messageBox("마감된 청구서는 변경 할 수 ","I004");  // 없습니다.
				return;
			} 
			else 
			{
				ds_main_obtmlist_gridpirhobtm.setColumn(m_row, "judgrid", changeJudgrid);
			}
		}
	}						
}
]]></Script>
  </Form>
</FDL>