YNU_JEUS/app_home/himed/xpapps/pam/cutmngtxp/xp/SPPIR31120_정산의뢰취소.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIR31120" position="absolute 0 0 810 453" titletext="이의신청 정산의뢰 취소" oninit="SPPIR31120_oninit" onload="SPPIR31120_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 644 425 748 447" id="btn_delete" class="btn3" taborder="7" text="정산의뢰삭제" onclick="btn_delete_onclick"/>
        <Button position="absolute 749 425 805 447" id="btn_close" class="btn3" taborder="7" text="취소" onclick="btn_close_onclick"/>
        <Static id="caption6" text="이의신청 정산의뢰 현황" class="tit_1" position="absolute 0 0 183 23"/>
        <Static id="caption1" text="이의신청 명세서" class="tit_2" position="absolute 0 29 160 51"/>
        <Grid id="grd_obtmlist" class="datagrid2" taborder="8" binddataset="ds_main_list1_obtm" useinputpanel="false" position="absolute 0 50 805 184" autosizingtype="none" autofittype="col" cellsizingtype="col" oncelldblclick="grd_obtmlist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="30"/>
                <Column size="90"/>
                <Column size="55"/>
                <Column size="55"/>
                <Column size="70"/>
                <Column size="50"/>
                <Column size="55"/>
                <Column size="60"/>
                <Column size="205"/>
                <Column size="80"/>
              </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="묶음번호"/>
                <Cell col="8" text="보험유형"/>
                <Cell col="9" text="메모"/>
                <Cell col="10" text="이의신청액"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chksel" expr="expr:chksel == 'true' || chksel == '1' ? 1 : 0"/>
                <Cell col="2" displaytype="combo" edittype="combo" text="bind:obtappflag" combodataset="ds_init_P0264list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="3" text="bind:acptno"/>
                <Cell col="4" text="bind:judgdg"/>
                <Cell col="5" text="bind:clamno"/>
                <Cell col="6" text="bind:docuseqno"/>
                <Cell col="7" text="bind:setno"/>
                <Cell col="8" displaytype="combo" edittype="combo" text="bind:insukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="9" style="align:left middle;" text="bind:obtapprem"/>
                <Cell col="10" displaytype="number" text="bind:obtappamt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line1" class="line_1" position="absolute 0 45 805 51" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line2" class="line_1" position="absolute 0 209 805 215" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_obtdlist" class="datagrid2" taborder="9" binddataset="ds_main_list2_obtd" useinputpanel="false" position="absolute 0 214 805 424" autofittype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="90"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="185"/>
                <Column size="45"/>
                <Column size="45"/>
                <Column size="45"/>
                <Column size="80"/>
              </Columns>
              <Rows>
                <Row size="29" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="이신구분"/>
                <Cell col="2" text="EDI구분"/>
                <Cell col="3" text="EDI코드"/>
                <Cell col="4" text="처방코드"/>
                <Cell col="5" text="처방명"/>
                <Cell col="6" text="정산&#10;일회"/>
                <Cell col="7" text="정산&#10;일투"/>
                <Cell col="8" text="정산&#10;총투"/>
                <Cell col="9" text="이의신청액"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="combo" edittype="combo" text="bind:obtappflag" combodataset="ds_init_P0264list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="2" text="bind:edicdflag"/>
                <Cell col="3" text="bind:edicd"/>
                <Cell col="4" text="bind:calcscorcd"/>
                <Cell col="5" text="bind:hngnm"/>
                <Cell col="6" displaytype="number" text="bind:obtapponeqty"/>
                <Cell col="7" displaytype="number" text="bind:obtappdayqty"/>
                <Cell col="8" displaytype="number" text="bind:obtapptotqty"/>
                <Cell col="9" displaytype="number" text="bind:obtappamt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption2" text="이의신청 처방내역" class="tit_2" position="absolute 0 193 160 215"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_list1_obtm" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_list1_obtm_oncolumnchanged">
        <ColumnInfo>
          <Column id="chksel" type="STRING" size="256" sumtext="체크여부"/>
          <Column id="clamym" type="STRING" size="256" sumtext="청구월"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="ordfromdd" type="STRING" size="256" sumtext="진료개시일"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="judgrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="obtappflag" type="STRING" size="256" sumtext="이신구분"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="clamno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="docuseqno" type="STRING" size="256" sumtext="명일련"/>
          <Column id="setno" type="STRING" size="256" sumtext="묶음번호"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="obtapprem" type="STRING" size="256" sumtext="메모"/>
          <Column id="obtappamt" type="INT" size="256" sumtext="이의신청액"/>
          <Column id="obtappdocuno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list2_obtd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="obtappflag" type="STRING" size="256" sumtext="이신구분"/>
          <Column id="edicdflag" type="STRING" size="256" sumtext="EDI구분"/>
          <Column id="edicd" type="STRING" size="256" sumtext="EDI코드"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="obtapponeqty" type="INT" size="256" sumtext="정산일회"/>
          <Column id="obtappdayqty" type="INT" size="256" sumtext="정산일투"/>
          <Column id="obtapptotqty" type="INT" size="256" sumtext="정산총투"/>
          <Column id="obtappamt" type="INT" size="256" sumtext="이의신청액"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0264list" 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_init_P0008list" 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_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256"/>
          <Column id="clamno" type="STRING" size="256"/>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="docuseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="judgdg"/>
            <Col id="clamno"/>
            <Col id="acptno"/>
            <Col id="docuseqno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgdg" type="STRING" size="256"/>
          <Column id="clamno" type="STRING" size="256"/>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="docuseqno" type="STRING" size="256"/>
          <Column id="obtappflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="judgdg"/>
            <Col id="clamno"/>
            <Col id="acptno"/>
            <Col id="docuseqno"/>
            <Col id="obtappflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_list1_obtm" 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="docuseqno" type="STRING" size="256" sumtext="명일련"/>
          <Column id="obtappflag" type="STRING" size="256" sumtext="이신구분"/>
          <Column id="obtappdocuno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <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";
function SPPIR31120_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPPIR31120_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_obtdlist);
	grdf_initGrid(grd_obtmlist);
	
	if ( frmf_checkOpener()) 
	{
		ds_send_data1.copyData(arg_ds_send_data1);
	}
	
	ds_main_list1_obtm.clearData();
	ds_main_list2_obtd.clearData();
	
	var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
				   ,{dsNm: "ds_init_P0264list", cdGrpId: "P0264"}]
				   
	appf_getCodeList(arrParam);	

	var oParam = {};
		oParam.id          = "TRPIR31007";
		oParam.service     = "cutmngtapp.CutMngt";
		oParam.method      = "reqGetCalcCretObtmList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_main_list1_obtm=obtm";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIR31007";

	tranf_submit(oParam);

}

function ds_main_list1_obtm_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "chksel")
	{
		obj.setColumn(e.row, "chksel", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
	}
}

function grd_obtmlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var row = e.row;
	var judgdg = ds_main_list1_obtm.getColumn(row, "judgdg");
	var clamno = ds_main_list1_obtm.getColumn(row, "clamno");
	var acptno = ds_main_list1_obtm.getColumn(row, "acptno");
	var docuseqno = ds_main_list1_obtm.getColumn(row, "docuseqno");
	var obtappflag = ds_main_list1_obtm.getColumn(row, "obtappflag");
	
	if(!utlf_isNull(judgdg) && !utlf_isNull(clamno) && !utlf_isNull(acptno) && !utlf_isNull(docuseqno) && !utlf_isNull(obtappflag))
	{
		ds_send_data2.setColumn(0, "judgdg", judgdg);
		ds_send_data2.setColumn(0, "clamno", clamno);
		ds_send_data2.setColumn(0, "acptno", acptno);
		ds_send_data2.setColumn(0, "docuseqno", docuseqno);
		ds_send_data2.setColumn(0, "obtappflag", obtappflag);
		
		ds_main_list2_obtd.clearData();
		
		var oParam = {};
			oParam.id          = "TRPIR31008";
			oParam.service     = "cutmngtapp.CutMngt";
			oParam.method      = "reqGetCalcCretObtdList";
			oParam.inds        = "req=ds_send_data2";
			oParam.outds       = "ds_main_list2_obtd=obtd";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIR31008";

		tranf_submit(oParam);
	}
}

function btn_delete_onclick(obj:Button,  e:ClickEventInfo)
{
	var check = false;
	
	for (var i = 0; i < ds_main_list1_obtm.rowcount; i++) 
	{
		check = ds_main_list1_obtm.getColumn(i, "chksel");
		
		if (check == "true") 
		{
			var cnt = ds_send_list1_obtm.addRow();
			
			ds_send_list1_obtm.setColumn(cnt, "judgdg", ds_main_list1_obtm.getColumn(i, "judgdg"));
			ds_send_list1_obtm.setColumn(cnt, "clamno", ds_main_list1_obtm.getColumn(i, "clamno"));
			ds_send_list1_obtm.setColumn(cnt, "acptno", ds_main_list1_obtm.getColumn(i, "acptno"));
			ds_send_list1_obtm.setColumn(cnt, "docuseqno", ds_main_list1_obtm.getColumn(i, "docuseqno"));
			ds_send_list1_obtm.setColumn(cnt, "obtappflag", ds_main_list1_obtm.getColumn(i, "obtappflag"));
			ds_send_list1_obtm.setColumn(cnt, "obtappdocuno", ds_main_list1_obtm.getColumn(i, "obtappdocuno"));
		}
	}
	if (ds_send_list1_obtm.rowcount == 0) 
	{
		return;
	}
	
	if (sysf_messageBox("정산의뢰 요청한 이의신청 명세서를", "S001") != 6)
	{
		return;
	}
	
	var oParam = {};
		oParam.id          = "TXPIR31003";
		oParam.service     = "cutmngtapp.CutMngt";
		oParam.method      = "reqDelCalcCretObtmList";
		oParam.inds        = "obtm=ds_send_list1_obtm";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXPIR31003";

	tranf_submit(oParam);
}

function cf_TXPIR31003(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		return;
	}
	else
	{
		var oParam = {};
			oParam.id          = "TXPIR31004";
			oParam.service     = "cutmngtapp.CutMngt";
			oParam.method      = "reqSetCalcCretObthInfo";
			oParam.inds        = "obtm=ds_send_list1_obtm";
			oParam.outds       = "";
			oParam.async       = false;
			oParam.callback    = "cf_TXPIR31004";

		tranf_submit(oParam);
	}
}

function cf_TXPIR31004(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		return;
	}
	else
	{
		sysf_messageBox("정산의뢰 취소가", "I002");
		this.close();
	}
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>