YNU_JEUS/app_home/himed/xpapps/pam/insucomxp/xp/SPPIZ01600_보험인정기준조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIZ01600" position="absolute 0 0 1097 582" titletext="보험인정기준 안내" oninit="SPPIZ01600_oninit" onload="SPPIZ01600_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 3 1094 570" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 21 1091 86" align="align:center top;" id="group2" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Static text="보험유형 :" position="absolute 249 9 335 26" id="caption2" class="search_name" anchor="default"/>
                    <Static text="내원유형 :" position="absolute 15 9 101 26" id="caption4" class="search_name" anchor="default"/>
                    <Static text="진료과 :" position="absolute 502 9 588 26" id="caption1" class="search_name" anchor="default"/>
                    <Static text="진료의사 :" position="absolute 732 9 818 26" id="caption3" class="search_name" anchor="default"/>
                    <Edit position="absolute 269 36 404 55" id="ipt_calcscorcd" class="input_search" anchor="default"/>
                    <Static text="수가코드 :" position="absolute 15 37 101 54" id="caption5" class="search_name" anchor="default"/>
                    <Static text="적용일 :" position="absolute 502 37 588 54" id="caption6" class="search_name" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 1001 40 1057 62" id="btn_search" class="btn1" text="조회" anchor="top right" onclick="grp_biz_btn_search_onclick"/>
              <Shape position="absolute 980 27 986 78" linetype="vertical" id="line13" class="line_4" anchor="top right"/>
              <Combo position="absolute 110 28 190 47" id="cmb_ioflag" class="combo_search" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">-</Col>
                      <Col id="datacolumn">전체</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">I</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">O</Col>
                      <Col id="datacolumn">외래</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Combo position="absolute 340 28 429 47" id="cmb_insukind" class="combo_search" innerdataset="@ds_init_P0008list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
              <Combo position="absolute 580 27 667 46" id="cmb_orddept" class="combo_search" innerdataset="@ds_init_orddeptcdlist" datacolumn="nm" codecolumn="cd" anchor="default"/>
              <Combo position="absolute 820 27 899 46" id="cmb_orddrid" class="combo_search" innerdataset="@ds_init_orddridlist" datacolumn="nm" codecolumn="cd" anchor="default"/>
              <Static text="보험인정기준/제한규정코드" position="absolute 1 90 195 112" align="align:center middle;" id="caption36" class="tit_2" anchor="default"/>
              <Grid position="absolute 0 111 445 566" id="grd_limtlist" binddataset="ds_main_list1_limt" anchor="left top bottom" autofittype="col" oncelldblclick="grp_biz_grd_limtlist_oncelldblclick" cellmovingtype="col" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="205"/>
                      <Column size="60"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <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="EDI코드"/>
                      <Cell col="3" text="한글명"/>
                      <Cell col="4" text="단가"/>
                      <Cell col="5" text="seq"/>
                      <Cell col="6" text="limresn"/>
                      <Cell col="7" text="limmsg"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" style="align:left middle;" text="bind:calcscorcd"/>
                      <Cell col="2" style="align:left middle;" text="bind:edicd"/>
                      <Cell col="3" style="align:left middle;" text="bind:hngnm"/>
                      <Cell col="4" displaytype="number" text="bind:unitcost" mask="9,999"/>
                      <Cell col="5" text="bind:seq"/>
                      <Cell col="6" text="bind:limresn"/>
                      <Cell col="7" text="bind:limmsg"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Tab position="absolute 451 107 1090 567" id="switch1" anchor="all">
                <Tabpages>
                  <Tabpage text="심사규제요약 Message" id="case1">
                    <Layouts>
                      <Layout>
                        <TextArea position="absolute 3 4 633 429" id="tar_sw1" anchor="all" scrollbars="autovert" wordwrap="word"/>
                      </Layout>
                    </Layouts>
                  </Tabpage>
                  <Tabpage text="심사규제 Message" id="case2">
                    <Layouts>
                      <Layout>
                        <TextArea position="absolute 3 4 633 429" id="tar_sw2" anchor="all" scrollbars="autovert" wordwrap="word"/>
                      </Layout>
                    </Layouts>
                  </Tabpage>
                  <Tabpage text="진료팝업" id="case3">
                    <Layouts>
                      <Layout>
                        <Grid position="absolute 3 4 633 429" id="grd_queslist" enable="false" binddataset="ds_main_list2_lmsg" anchor="all" autofittype="col" cellsizingtype="col" cellmovingtype="col">
                          <Formats>
                            <Format id="default">
                              <Columns>
                                <Column size="23"/>
                                <Column size="480"/>
                                <Column size="100"/>
                              </Columns>
                              <Rows>
                                <Row size="24" band="head"/>
                                <Row size="24"/>
                              </Rows>
                              <Band id="head">
                                <Cell/>
                                <Cell col="1" text="질문사항"/>
                                <Cell col="2" text="급여구분"/>
                              </Band>
                              <Band id="body">
                                <Cell celltype="head" expr="currow+1"/>
                                <Cell col="1" text="bind:quesmsg" enable="false"/>
                                <Cell col="2" displaytype="combo" edittype="combo" text="bind:payflag" combodataset="ds_cmb_payflag" combocodecol="value" combodatacol="label" enable="false"/>
                              </Band>
                            </Format>
                          </Formats>
                        </Grid>
                      </Layout>
                    </Layouts>
                  </Tabpage>
                </Tabpages>
              </Tab>
            </Layout>
          </Layouts>
        </Div>
        <Static text="보험인정기준 안내" position="absolute 0 0 180 23" align="align:center middle;" id="caption11" class="tit_1"/>
        <Shape position="absolute 0 109 445 115" linetype="horizontal" id="line3" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
        <Radio position="absolute 108 56 238 79" id="rdo_calcflag" class="radio_search" taborder="11" columncount="4" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">수가</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">EDI</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">명칭</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Button position="absolute 409 61 425 77" id="btn_calcsearch" class="icon_search" text="" onclick="btn_calcsearch_onclick"/>
        <Calendar position="absolute 580 57 668 76" id="ipt_fromdd" class="input_search"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_item1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="insukindcd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="calcflag" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="ioflag"/>
            <Col id="insukindcd"/>
            <Col id="orddeptcd"/>
            <Col id="orddrid"/>
            <Col id="calcflag"/>
            <Col id="calcscorcd"/>
            <Col id="fromdd"/>
          </Row>
        </Rows>
      </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_init_orddeptcdlist" 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_init_orddridlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_list1_limt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
          <Column id="seq" type="INT" size="256" sumtext="일련번호"/>
          <Column id="edicd" type="STRING" size="256" sumtext="EDI코드"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="한글명"/>
          <Column id="unitcost" type="INT" size="256" sumtext="단가"/>
          <Column id="limresn" type="STRING" size="256" sumtext="심사규제요약MSG"/>
          <Column id="limmsg" type="STRING" size="256" sumtext="심사규제MSG"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list2_lmsg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_item1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="limmsg" type="STRING" size="256"/>
          <Column id="limresn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_payflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">급여</Col>
            <Col id="value">0</Col>
          </Row>
          <Row>
            <Col id="label">전액본인부담</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">비급여</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_item3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="calcscorcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_item2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="seq" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.cmb_ioflag" propid="value" datasetid="ds_send_item1" columnid="ioflag"/>
      <BindItem id="item1" compid="grp_biz.cmb_insukind" propid="value" datasetid="ds_send_item1" columnid="insukindcd"/>
      <BindItem id="item2" compid="grp_biz.cmb_orddept" propid="value" datasetid="ds_send_item1" columnid="orddeptcd"/>
      <BindItem id="item3" compid="grp_biz.cmb_orddrid" propid="value" datasetid="ds_send_item1" columnid="orddrid"/>
      <BindItem id="item4" compid="ipt_fromdd" propid="value" datasetid="ds_send_item1" columnid="fromdd"/>
      <BindItem id="item5" compid="grp_biz.group2.ipt_calcscorcd" propid="value" datasetid="ds_send_item1" columnid="calcscorcd"/>
      <BindItem id="item6" compid="rdo_calcflag" propid="value" datasetid="ds_send_item1" columnid="calcflag"/>
      <BindItem id="item7" compid="grp_biz.switch1.case2.tar_sw2" propid="value" datasetid="ds_main_item1" columnid="limmsg"/>
      <BindItem id="item8" compid="grp_biz.switch1.case1.tar_sw1" propid="value" datasetid="ds_main_item1" columnid="limresn"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-10-27
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-10-27      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM.xjs";
function SPPIZ01600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPPIZ01600_onload(obj:Form, e:LoadEventInfo)
{	
	var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}]
				   
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList();
	
	ds_init_orddeptcdlist.insertRow(0);
	ds_init_orddridlist.insertRow(0);
	
	dsf_makeValue(ds_init_orddeptcdlist, "nm", "string", "", 0);
	dsf_makeValue(ds_init_orddeptcdlist, "cd", "string", "", 0);
	
	dsf_makeValue(ds_init_orddridlist, "nm", "string", "", 0);
	dsf_makeValue(ds_init_orddridlist, "cd", "string", "", 0);
		
	ds_send_item1.setColumn(0, "ioflag", "-");
	ds_send_item1.setColumn(0, "insukindcd", "");
	ds_send_item1.setColumn(0, "orddeptcd", "");
	ds_send_item1.setColumn(0, "orddrid", "");
	ds_send_item1.setColumn(0, "calcflag", "1");
	ds_send_item1.setColumn(0, "calcscorcd", "");
	ds_send_item1.setColumn(0, "fromdd", "");
	
 	fGetInsuLimtList();
 	
 	fShowInsuLimtInfo();
}

function fGetInsuLimtList()
{
	ds_main_list1_limt.clearData();
	ds_main_list2_lmsg.clearData();
	ds_main_item1.clearData();
	ds_main_item1.addRow();
	
	var oParam = {};
		oParam.id          = "TRPIZ01601";
		oParam.service     = "insucomapp.InsuLimtSrch";
		oParam.method      = "reqGetInsuLimtList";
		oParam.inds        = "req=ds_send_item1";
		oParam.outds       = "ds_main_list1_limt=limt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIZ01601";

	tranf_submit(oParam);
}

function fShowInsuLimtInfo()
{
	if(frmf_checkOpener())
	{
		var dsFlag = false;
		
		for (var i = 0; i < this.objects.length; i++) 
		{
			var dsNm = this.objects[i].name;
			if (dsNm == "arg_ds_send_item3") 
			{
				dsFlag = true;
				break;
			}
		}

		if (dsFlag) 
		{
			ds_send_item3.copyData(arg_ds_send_item3);
		}
	}
	
	var openercd = ds_send_item3.getColumn(0, "calcscorcd");
	
	if (!utlf_isNull(openercd))
	{
		var ret = false;
	
		for (var i = 0; i < ds_main_list1_limt.rowcount && ret != true; i++) 
		{
			var calcscorcd = ds_main_list1_limt.getColumn(i, "calcscorcd");
			
			if (openercd == calcscorcd) 
			{
				ds_main_list1_limt.rowposition = i;
				ret = true;
			}
		}
		
		if (ret == true) 
		{
			fGetInsuLimtInfo();
		}
	}
}

function fGetInsuLimtInfo()
{
	var row = ds_main_list1_limt.rowposition;
	
	ds_main_item1.setColumn(0, "limresn", ds_main_list1_limt.getColumn(row, "limresn"));
	ds_main_item1.setColumn(0, "limmsg", ds_main_list1_limt.getColumn(row, "limmsg"));
	
	ds_send_item2.setColumn(0, "calcscorcd", ds_main_list1_limt.getColumn(row, "calcscorcd"));
	ds_send_item2.setColumn(0, "seq", ds_main_list1_limt.getColumn(row, "seq"));

	var oParam = {};
		oParam.id          = "TRPIZ01602";
		oParam.service     = "insucomapp.InsuLimtSrch";
		oParam.method      = "reqGetInsuLmsgList";
		oParam.inds        = "req=ds_send_item2";
		oParam.outds       = "ds_main_list2_lmsg=lmsg";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIZ01602";

	tranf_submit(oParam);
}

function grp_biz_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	sysf_messageBox("진료과, 진료의사에 대한 조회는", "E001");
	fGetInsuLimtList(); 
}

function btn_calcsearch_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_temp_picmmech.clearData();
	
	var con3_search1 = "";
	
	if(ds_send_item1.getColumn(0, "calcflag") == "1")
	{
		con3_search1 = "calcscorcd";
	}
	else if(ds_send_item1.getColumn(0, "calcflag") == "2")
	{
		con3_search1 = "edicd";
	}
	else
	{
		con3_search1 = "";
	}
	
	dsf_createDsRow("ds_smpic00200", [{col:"srchdrugcd", type:"STRING", size:256 , val : grp_biz.group2.ipt_calcscorcd.value}
								   ,  {col:"con3_search1", type:"STRING", size:256 , val : con3_search1}]);
                                                       
	var objArg = new Object();
		objArg.arg_ds_temp = ds_smpic00200;
		
	frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_send_item1.setColumn(0, "calcscorcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
}

function grp_biz_grd_limtlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fGetInsuLimtInfo();
}
]]></Script>
  </Form>
</FDL>