YNU_JEUS/app_home/himed/xpapps/pam/aftjudgstatxp/xp/SMPIS01100_청구이력조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIS01100" position="absolute 0 0 726 427" titletext="청구이력조회" oninit="SMPIS01100_oninit" onload="SMPIS01100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 716 395" id="group2" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Div position="absolute 0 10 713 45" align="align:center top;" id="group3" class="div_SA" anchor="default">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 637 5 643 27" linetype="vertical" id="line1" class="line_4" anchor="default"/>
                    <Button position="absolute 650 5 706 27" id="btn_search" class="btn1" taborder="2" text="조회" anchor="default" onclick="group2_group3_btn_search_onclick"/>
                    <Static text="환자번호" position="absolute 313 9 393 26" id="caption26" class="search_name" anchor="default"/>
                    <Static text="보험유형" position="absolute 7 9 83 26" id="caption3" class="search_name" anchor="default"/>
                    <Radio position="absolute 74 6 292 26" id="rdo_insukind" class="radio_search" columncount="5" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="group2_group3_rdo_insukind_onitemchanged" taborder="1">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">11</Col>
                            <Col id="datacolumn">보험</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">21</Col>
                            <Col id="datacolumn">보호</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">31</Col>
                            <Col id="datacolumn">자보</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">41</Col>
                            <Col id="datacolumn">산재</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Edit position="absolute 380 7 464 26" id="ipt_patunitsrch" class="input_search" taborder="3" anchor="default" onkeydown="group2_group3_ipt_patunitsrch_onkeydown"/>
                    <Edit position="absolute 551 7 621 26" id="ipt_acptno" class="input_search" taborder="0" anchor="default" onkeydown="group2_group3_ipt_acptno_onkeydown"/>
                    <Static text="환자명" position="absolute 494 10 574 27" id="caption5" class="search_name" anchor="default"/>
                    <Button id="btn" taborder="4" class="icon_search" position="absolute 465 7 481 26" onclick="group2_group3_btn_onclick"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="환자 리스트" position="absolute 0 58 100 79" id="caption8" class="tit_2" anchor="default"/>
              <Grid position="absolute 0 75 715 375" id="grd_outjudg" class="datagrid2" binddataset="ds_main_grdlist_clamhist" anchor="default" oncelldblclick="group2_grd_outjudg_oncelldblclick" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="76"/>
                      <Column size="44"/>
                      <Column size="62"/>
                      <Column size="19"/>
                      <Column size="49"/>
                      <Column size="103"/>
                      <Column size="39"/>
                      <Column size="37"/>
                      <Column size="62"/>
                      <Column size="176"/>
                      <Column size="20"/>
                      <Column size="23"/>
                      <Column size="103"/>
                      <Column size="55"/>
                      <Column size="66"/>
                      <Column size="72"/>
                      <Column size="66"/>
                      <Column size="54"/>
                      <Column size="78"/>
                      <Column size="78"/>
                      <Column size="78"/>
                      <Column size="78"/>
                      <Column size="46"/>
                      <Column size="170"/>
                      <Column size="29"/>
                      <Column size="29"/>
                      <Column size="59"/>
                      <Column size="83"/>
                    </Columns>
                    <Rows>
                      <Row size="36" 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="순&#13;&#10;번"/>
                      <Cell col="5" text="성명"/>
                      <Cell col="6" text="주민번호"/>
                      <Cell col="7" text="구분"/>
                      <Cell col="8" text="내원&#13;&#10;유형"/>
                      <Cell col="9" text="기관기호"/>
                      <Cell col="10" text="기관명"/>
                      <Cell col="11" text="유&#13;&#10;형"/>
                      <Cell col="12" text="보&#13;&#10;조"/>
                      <Cell col="13" text="진료과"/>
                      <Cell col="14" text="진료의"/>
                      <Cell col="15" text="심사상태"/>
                      <Cell col="16" text="청구상태"/>
                      <Cell col="17" text="접수번호"/>
                      <Cell col="18" text="명일련"/>
                      <Cell col="19" text="입원일"/>
                      <Cell col="20" text="퇴원일"/>
                      <Cell col="21" text="진료개시일"/>
                      <Cell col="22" text="진료종료일"/>
                      <Cell col="23" text="심사&#13;&#10;결정"/>
                      <Cell col="24" text="삭제사유"/>
                      <Cell col="25" colspan="2" text="반송사유" taborder="undefined"/>
                      <Cell col="27" text="심사자"/>
                      <Cell col="28" text="심사시간"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="date" text="bind:clamym" mask="yyyy-MM"/>
                      <Cell col="2" text="bind:clamdg"/>
                      <Cell col="3" text="bind:pid"/>
                      <Cell col="4" text="bind:pidsn"/>
                      <Cell col="5" text="bind:patnm"/>
                      <Cell col="6" displaytype="normal" text="bind:rrgstno"/>
                      <Cell col="7" displaytype="combo" edittype="combo" text="bind:clamflagcd" combodataset="ds_init_P0155list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="8" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:ioflag" combodataset="ds_cmb_ioflag" combocodecol="value" combodatacol="label" enable="false"/>
                      <Cell col="9" text="bind:insuno"/>
                      <Cell col="10" text="bind:insunm"/>
                      <Cell col="11" text="bind:insukind"/>
                      <Cell col="12" text="bind:suppkind"/>
                      <Cell col="13" style="align:left top;" text="bind:orddeptabbr"/>
                      <Cell col="14" text="bind:orddrnm"/>
                      <Cell col="15" displaytype="combo" edittype="combo" text="bind:judgendyn" combodataset="ds_init_P0151list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="16" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:clamendyn" combodataset="ds_init_P0430list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="17" text="bind:acptno"/>
                      <Cell col="18" style="align:right middle;" text="bind:docuseqno"/>
                      <Cell col="19" displaytype="date" text="bind:indd" mask="yyyy-MM-dd"/>
                      <Cell col="20" displaytype="date" text="bind:dschdd" mask="yyyy-MM-dd"/>
                      <Cell col="21" displaytype="date" text="bind:ordfromdd" mask="yyyy-MM-dd"/>
                      <Cell col="22" displaytype="date" text="bind:ordtodd" mask="yyyy-MM-dd"/>
                      <Cell col="23" displaytype="normal" text="bind:judgyn"/>
                      <Cell col="24" displaytype="combo" edittype="combo" text="bind:delreason" combodataset="ds_init_P0465list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="25" text="bind:rtnrsncd1"/>
                      <Cell col="26" text="bind:rtnrsncd2"/>
                      <Cell col="27" text="bind:judgrid"/>
                      <Cell col="28" displaytype="expr:judgenddd == '-' ? 'normal' : 'date'" text="bind:judgenddd" mask="expr:judgenddd == '-' ? '' : 'yyyy-MM-dd'"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 389 715 416" id="group4" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Button position="absolute 600 4 656 26" id="btn_confirm" class="btn4" taborder="8" text="확인" anchor="default" onclick="group4_btn_confirm_onclick"/>
              <Button position="absolute 659 4 715 26" id="btn_cancel" class="btn4" taborder="9" text="취소" anchor="default" onclick="group4_btn_cancel_onclick"/>
              <Shape position="absolute 1 0 715 6" linetype="horizontal" id="line32" class="line_6" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="청구이력조회" class="tit_1" position="absolute 1 0 249 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_grdlist_clamhist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_grdlist_clamhist_oncolumnchanged">
        <ColumnInfo>
          <Column id="clamym" type="STRING"/>
          <Column id="clamdg" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="pidsn" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="rrgstno" type="STRING"/>
          <Column id="clamflagcd" type="STRING"/>
          <Column id="ioflag" type="STRING"/>
          <Column id="insuno" type="STRING"/>
          <Column id="insunm" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="suppkind" type="STRING"/>
          <Column id="orddeptabbr" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="judgendyn" type="STRING"/>
          <Column id="clamendyn" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="docuseqno" type="STRING"/>
          <Column id="indd" type="STRING"/>
          <Column id="dschdd" type="STRING"/>
          <Column id="ordfromdd" type="STRING"/>
          <Column id="ordtodd" type="STRING"/>
          <Column id="judgyn" type="STRING"/>
          <Column id="delreason" type="STRING"/>
          <Column id="rtnrsncd1" type="STRING"/>
          <Column id="rtnrsncd2" type="STRING"/>
          <Column id="judgrid" type="STRING"/>
          <Column id="judgenddd" type="STRING"/>
          <Column id="chk" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0155list" 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_cmb_ioflag" 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">I</Col>
          </Row>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0151list" 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_P0430list" 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_P0465list" 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_hidden_sppmc02500_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.group3.rdo_insukind" propid="value" datasetid="ds_send" columnid="insukind"/>
      <BindItem id="item1" compid="group2.group3.ipt_patunitsrch" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item2" compid="group2.group3.ipt_acptno" propid="value" datasetid="ds_send" columnid="patnm"/>
    </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 SMPIS01100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIS01100_onload(obj:Form, e:LoadEventInfo)
{
	if(frmf_checkOpener()) 
	{
		ds_send.copyData(arg_ds_send);
	}
	
	var arrParam = [{dsNm: "ds_init_P0155list", cdGrpId: "P0155"}
				   ,{dsNm: "ds_init_P0437list", cdGrpId: "P0437"}
				   ,{dsNm: "ds_init_P0151list", cdGrpId: "P0151"}
				   ,{dsNm: "ds_init_P0430list", cdGrpId: "P0430"}
				   ,{dsNm: "ds_init_P0465list", cdGrpId: "P0465"}]
				   
	appf_getCodeList(arrParam);	
	
	if (!utlf_isNull(ds_send.getColumn(0, "pid"))|| !utlf_isNull(ds_send.getColumn(0, "patnm")))
	{					
		fSearch();										
	}
}

function fSearch()
{
	var chk_pid = ds_send.getColumn(0, "pid");
	var chk_hngnm = ds_send.getColumn(0, "patnm");
	
	if(utlf_isNull(chk_pid) && utlf_isNull(chk_hngnm))
	{
		sysf_messageBox("환자조회 조건은 ", "I003");
	}
	else
	{
		var oParam = {};
			oParam.id          = "TRPIS01100";
			oParam.service     = "aftjudgstatapp.ClamHist";
			oParam.method      = "reqGetClamHistByPid";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_grdlist_clamhist=clamhist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIS01100";

		tranf_submit(oParam);
	}
}

function group2_group3_rdo_insukind_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fGetClamDept();
}

function fGetClamDept()
{
	
}

function group2_group3_ipt_patunitsrch_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if(String(obj.value).length > 1)
		{
			ds_send.setColumn(0, "pid", obj.value);
			if( isNaN(ds_send.getColumn(0, "pid")))
			{
				fPatSrch();
			}
			else
			{
				fSearch();
			}
		}
	}
}

function fPatSrch()
{
	var ipt_pid = ds_send.getColumn(0, "pid");
	if (ipt_pid)
	{
		if (!isNaN(ipt_pid))
		{
			ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "1");
			ds_hidden_sppmc02500_cond.setColumn(0, "pid", ipt_pid);
		}
		else
		{		
			ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "2");
			ds_hidden_sppmc02500_cond.setColumn(0, "hngnm", ipt_pid);
		}							
	} 
	else 
	{
		ds_hidden_sppmc02500_cond.clearData();
		ds_hidden_sppmc02500_cond.addRow();
	}
	
	var objArg = new Object();
	objArg.arg_ds_send = ds_hidden_sppmc02500_cond;
	
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	var srch_pid = ds_main_patinfolist.getColumn(0, "pid");
	
	if(srch_pid)
	{
		ds_main_patinfolist.clearData();
		ds_main_patinfolist.addRow();
		
		ds_send.setColumn(0, "pid", srch_pid);
	}
}

function group2_group3_btn_onclick(obj:Button,  e:ClickEventInfo)
{
	fPatSrch();
}

function group2_group3_ipt_acptno_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if(String(obj.value).length > 1)
		{
			ds_send.setColumn(0, "patnm", obj.value);
			fSearch();
		}
	}
}

function ds_main_grdlist_clamhist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var icol = e.columnid;
	var irow = e.row;
	
	if (icol == "chk") 
	{
		if(obj.getColumn(irow, "chk") == "Y")
		{
			if(obj.getColumn(irow, "lockyn") == "Y")
			{
				sysf_messageBox("잠금설정되어서 선택할 수", "I004");
				obj.setColumn(irow, "chk", "N");
			}
		}							
	}
}

function group2_grd_outjudg_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	opener.ds_send_send01.setColumn(0, "patunitsrch1", ds_main_grdlist_clamhist.getColumn(e.row, "pid"));
	opener.group6_group2_button1_onclick();
	this.close();
// 	var icol = e.col;
// 	var irow = e.row;
// 
// 	if (icol == grd_outjudg.colRef("chk") && irow == 0) {
// 		var nodeList   = instance1.selectNodes("/root/main/grdlist/clamhist");
// 		var i = 1;
// 		for (  i = 1; i <= nodeList.length; i++) {
// 			if (model.getValue("/root/main/grdlist/clamhist[" + i + "]/chk") == "Y") {
// 				model.setValue("/root/main/grdlist/clamhist[" + i + "]/chk", "N");
// 			} else {
// 				if (model.getValue("/root/main/grdlist/clamhist[" + i + "]/lockyn") == "N") {									
// 					model.setValue("/root/main/grdlist/clamhist[" + i + "]/chk", "Y");									
// 				}
// 			}
// 		}
// 	}		
}

function group4_btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	if (frmf_checkOpener()) 
	{
		var row = ds_main_grdlist_clamhist.rowposition;
		
		if( row > -1 )
		{
			if(ds_main_grdlist_clamhist.rowcount > 0)
			{
				//opener.ds_main_patinfo_patinfolist.setColumn(0, "pid", ds_main_grdlist_clamhist.getColumn(row, "pid"));
				opener.ds_send_send01.setColumn(0, "patunitsrch1", ds_main_grdlist_clamhist.getColumn(row, "pid"));
			}
		}
		else 
		{
			sysf_messageBox("행이 정확히 선택되지", "E007");	
		}
	}
	else 
	{
		  sysf_messageBox("상위화면이 변경되어 데이터를 가져올 수", "I004");
	}
	
	opener.group6_group2_button1_onclick();
	this.close();
}

function group4_btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
// 	opener.model.makeNode("/root/main/popupendflag");
// 	opener.model.setValue("/root/main/popupendflag", "cancel");
	this.close();
}

function group2_group3_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}
]]></Script>
  </Form>
</FDL>