YNU_JEUS/app_home/himed/xpapps/pam/aftjudgstatxp/xp/SMPIS00400_상병별청구환자조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIS00400" position="absolute 0 0 1256 805" titletext="상병별 청구환자 조회" oninit="SMPIS00400_oninit" onload="SMPIS00400_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="상병별 청구환자 조회" class="tit_1" position="absolute 0 3 173 23" anchor="default" positiontype="position"/>
        <Grid id="grd_outjudg" class="datagrid2" taborder="1" useinputpanel="false" position="absolute 0 120 1256 803" autofittype="none" anchor="all" positiontype="position" binddataset="ds_main_grdlist_diagclamlist" onheaddblclick="grd_outjudg_onheaddblclick" cellsizingtype="both">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="64"/>
                <Column size="37"/>
                <Column size="43"/>
                <Column size="37"/>
                <Column size="42"/>
                <Column size="51"/>
                <Column size="76"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="57"/>
                <Column size="60"/>
                <Column size="34"/>
                <Column size="49"/>
                <Column size="236"/>
                <Column size="60"/>
                <Column size="75"/>
                <Column size="75"/>
                <Column size="83"/>
                <Column size="25"/>
                <Column size="25"/>
                <Column size="70"/>
                <Column size="72"/>
              </Columns>
              <Rows>
                <Row size="35" band="head"/>
                <Row size="20"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="청구년월"/>
                <Cell col="2" text="차수"/>
                <Cell col="3" text="청구&#13;&#10;구분"/>
                <Cell col="4" text="내원&#13;&#10;유형"/>
                <Cell col="5" text="분야"/>
                <Cell col="6" text="명일련"/>
                <Cell col="7" text="등록번호"/>
                <Cell col="8" text="수신자"/>
                <Cell col="9" text="주민번호"/>
                <Cell col="10" text="진료과"/>
                <Cell col="11" text="주치의"/>
                <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="보&#13;&#10;험"/>
                <Cell col="20" text="보&#13;&#10;조"/>
                <Cell col="21" text="총진료비"/>
                <Cell col="22" 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" displaytype="combo" edittype="none" text="bind:clamflagcd" combodataset="ds_init_P0155list" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="4" displaytype="combo" edittype="none" text="bind:ioflag" combodataset="ds_cmb_ioflag" combocodecol="value" combodatacol="label"/>
                <Cell col="5" displaytype="combo" edittype="none" text="bind:ordfildcd" combodataset="ds_init_P0291list" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="6" text="bind:docuseqno"/>
                <Cell col="7" text="bind:pid"/>
                <Cell col="8" text="bind:patnm"/>
                <Cell col="9" text="bind:patrrgstno"/>
                <Cell col="10" text="bind:orddeptcd"/>
                <Cell col="11" text="bind:orddrnm"/>
                <Cell col="12" text="bind:diagseq"/>
                <Cell col="13" text="bind:diagcd"/>
                <Cell col="14" style="align:left;" text="bind:diagnm"/>
                <Cell col="15" text="bind:judgrid"/>
                <Cell col="16" displaytype="date" text="bind:indd" calendardisplaynulltype="none"/>
                <Cell col="17" displaytype="date" text="bind:fromdd" calendardisplaynulltype="none"/>
                <Cell col="18" displaytype="date" text="bind:todd" calendardisplaynulltype="none"/>
                <Cell col="19" text="bind:insukind"/>
                <Cell col="20" text="bind:suppkind"/>
                <Cell col="21" displaytype="number" text="bind:edimedcaretotamt"/>
                <Cell col="22" text="bind:acptno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="group5" anchor="left top right" taborder="3" style="align:left middle;" class="div_SA" position="absolute 0 25 1256 92" positiontype="position" onclick="group5_onclick">
          <Layouts>
            <Layout>
              <Static id="caption5" text="청구년월" class="search_name" position="absolute 8 10 84 30" style="align:center middle;" anchor="default" positiontype="position"/>
              <Static id="caption27" text="~" position="absolute 161 10 173 30" style="align:center middle;" anchor="default" positiontype="position"/>
              <Static id="caption3" text="상병조건" class="search_name" position="absolute 8 35 84 55" style="align:center middle;" anchor="default" positiontype="position"/>
              <Radio id="rdo_diagcd" taborder="36" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 84 35 260 55" anchor="default" positiontype="position">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">M</Col>
                      <Col id="datacolumn">주상병만</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">S</Col>
                      <Col id="datacolumn">부상병포함</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Edit id="ipt_diagfr" taborder="37" class="input_search" position="absolute 265 35 318 55" style="align:center middle;" anchor="default" positiontype="position" imemode="alpha" canchange="group5_ipt_diagfr_canchange" onkeydown="group5_ipt_diagfr_onkeydown" inputmode="upper" onkillfocus="group5_ipt_diagfr_onkillfocus"/>
              <Static id="caption4" text="~" position="absolute 341 35 353 55" style="align:center middle;" anchor="default" positiontype="position"/>
              <Edit id="ipt_diagto" taborder="38" class="input_search" position="absolute 355 35 423 55" style="align:center middle;" anchor="default" positiontype="position" imemode="alpha" inputmode="upper"/>
              <Static id="caption9" text="내원유형" class="search_name" position="absolute 441 10 517 30" style="align:center middle;" anchor="default" positiontype="position"/>
              <Radio id="rdo_ioflag" taborder="39" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 520 10 620 30" anchor="default" positiontype="position" onitemchanged="group5_rdo_ioflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">I</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">O</Col>
                      <Col id="datacolumn">외래</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption6" text="진료분야" class="search_name" position="absolute 441 35 517 55" style="align:center middle;" anchor="default" positiontype="position"/>
              <Combo id="cmb_ordfildcd" taborder="40" class="combo_search" position="absolute 520 35 620 55" style="align:left middle;" anchor="default" positiontype="position" innerdataset="@ds_init_P0291list" codecolumn="cdid" datacolumn="cdnm" onitemchanged="group5_cmb_ordfildcd_onitemchanged"/>
              <Static id="caption13" text="보험유형" class="search_name" position="absolute 645 10 721 30" style="align:center middle;" anchor="default" positiontype="position"/>
              <Static id="caption2" text="진료과" class="search_name" position="absolute 645 35 710 55" style="align:center middle;" anchor="default" positiontype="position"/>
              <Combo id="cmb_insukind" taborder="41" class="combo_search" position="absolute 722 10 830 30" style="align:left middle;" anchor="default" positiontype="position" innerdataset="@ds_init_P0008list" codecolumn="cdid" datacolumn="cdnm" onitemchanged="group5_cmb_insukind_onitemchanged"/>
              <cp_monthCal id="cp_monthCal00" titletext="monthCalendar" taborder="45" text="cp_monthCal00" scrollbars="none" class="input_essential" anchor="default" position="absolute 84 10 159 30" positiontype="position"/>
              <cp_monthCal id="cp_monthCal01" titletext="monthCalendar" taborder="46" text="cp_monthCal00" scrollbars="none" class="input_essential" anchor="default" position="absolute 175 10 250 30" positiontype="position"/>
              <Button id="button1" taborder="44" text="조회" onlbuttonup="button1_onlbuttonup" class="btn1" position="absolute 1188 10 1244 30" anchor="top right" positiontype="position" onclick="button1_onclick"/>
              <Combo id="cmb_orddeptcd" taborder="47" class="combo_search" position="absolute 722 35 859 55" style="align:left middle;" innerdataset="@ds_init_orddeptcd" codecolumn="cd" datacolumn="nm"/>
              <Edit id="input1" taborder="48" imemode="alpha" maxlength="10" class="input" enable="false" position="absolute 833 10 859 30" style="align:center middle;"/>
              <Button id="btn_cd" taborder="50" class="icon_search" position="absolute 320 35 340 55" onclick="group5_btn_cd_onclick"/>
              <Static id="cp_patnm" text="환자조회" class="search_name" position="absolute 908 9 984 29" style="align:center middle;"/>
              <Button id="btn_diagfr" taborder="51" onclick="group5_btn_diagfr_onclick" class="icon_search" position="absolute 1060 9 1080 29"/>
              <Edit id="ipt_patunitsrch" taborder="52" imemode="alpha" inputmode="upper" onkeydown="group5_ipt_diagfr_onkeydown" class="input_search" position="absolute 984 9 1061 29" style="align:left middle;"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption12" text="환자 리스트" class="tit_2" position="absolute 0 103 100 123" anchor="default" positiontype="position"/>
        <Button id="button2" taborder="2" text="엑셀저장" onlbuttonup="button2_onlbuttonup" class="btn7" position="absolute 1176 99 1256 119" anchor="top right" positiontype="position" onclick="button2_onclick"/>
      </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="clamymfrom" type="STRING" size="256"/>
          <Column id="clamymto" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diagcond" type="STRING" size="256"/>
          <Column id="diagcdfr" type="STRING" size="256"/>
          <Column id="diagcdto" type="STRING" size="256"/>
          <Column id="ordfildcd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="clamymfrom"/>
            <Col id="clamymto"/>
            <Col id="insukind"/>
            <Col id="ioflag"/>
            <Col id="diagcd"/>
            <Col id="diagcond"/>
            <Col id="diagcdfr"/>
            <Col id="diagcdto"/>
            <Col id="ordfildcd"/>
            <Col id="orddeptcd"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0291list" 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_P0155list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdengabbrnm" 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_main_grdlist_diagclamlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="256" sumtext="청구연월"/>
          <Column id="clamflagcd" type="STRING" size="256" sumtext="청구형태"/>
          <Column id="clamdg" type="STRING" size="256" sumtext="차수"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="내원유형"/>
          <Column id="ordfildcd" 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="patrrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="주치의"/>
          <Column id="diagseq" type="STRING" size="256" sumtext="주부구분"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="상병"/>
          <Column id="diagnm" type="STRING" size="256" sumtext="명칭"/>
          <Column id="judgrid" type="STRING" size="256" sumtext="심사자"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="fromdd" type="STRING" size="256" sumtext="유형시작"/>
          <Column id="todd" type="STRING" size="256" sumtext="유형종료"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험"/>
          <Column id="suppkind" type="STRING" size="256" sumtext="보조"/>
          <Column id="edimedcaretotamt" type="STRING" size="256" sumtext="총진료비"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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_hidden_sppmc02500_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_sppiz00400_rslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diaghngnm" type="STRING" size="256"/>
          <Column id="diagengnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_sppiz00400_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group5.rdo_diagcd" propid="value" datasetid="ds_send_item1" columnid="diagcond"/>
      <BindItem id="item1" compid="group5.ipt_diagfr" propid="value" datasetid="ds_send_item1" columnid="diagcdfr"/>
      <BindItem id="item2" compid="group5.ipt_diagto" propid="value" datasetid="ds_send_item1" columnid="diagcdto"/>
      <BindItem id="item3" compid="group5.rdo_ioflag" propid="value" datasetid="ds_send_item1" columnid="ioflag"/>
      <BindItem id="item4" compid="group5.cmb_insukind" propid="value" datasetid="ds_send_item1" columnid="insukind"/>
      <BindItem id="item5" compid="group5.input1" propid="value" datasetid="ds_send_item1" columnid="insukind"/>
      <BindItem id="item6" compid="group5.cmb_ordfildcd" propid="value" datasetid="ds_send_item1" columnid="ordfildcd"/>
      <BindItem id="item7" compid="group5.cmb_orddeptcd" propid="value" datasetid="ds_send_item1" columnid="orddeptcd"/>
      <BindItem id="item8" compid="group5.ipt_patunitsrch" propid="value" datasetid="ds_send_item1" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";

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

function SMPIS00400_onload(obj:Form, e:LoadEventInfo)
{
	fInitialize();
}

function fInitialize()
{
	group5.cp_monthCal00.setCallEvent("fn_Cal00");
	group5.cp_monthCal01.setCallEvent("fn_Cal01");
	
	group5.cp_monthCal00.cal_Month.value = utlf_getFirstDate(utlf_getLastMonth());
	group5.cp_monthCal01.cal_Month.value = utlf_getFirstDate(utlf_getLastMonth());
	
	ds_send_item1.setColumn(0, "clamymfrom", utlf_getFirstDate(utlf_getLastMonth()));
	ds_send_item1.setColumn(0, "clamymto", utlf_getFirstDate(utlf_getLastMonth()));
	
	ds_send_item1.setColumn(0, "diagcond", "M");
	
	ds_main_grdlist_diagclamlist.clearData();
	
	var arrParam = [ {dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
					,{dsNm: "ds_init_P0291list", cdGrpId: "P0291"}
					,{dsNm: "ds_init_P0155list", cdGrpId: "P0155"}]
				   
	appf_getCodeList(arrParam);	
	
	ds_init_P0008list.insertRow(0);
	ds_init_P0291list.insertRow(0);
	
	var dsFlag = false;
 

	if (frmf_checkOpener())
	{
		try
		{
			if(!utlf_isNull(arg_ds_send_item1))
			{
				ds_send_item1.copyData(arg_ds_send_item1);
			}
		}
		catch(e) 
		{
		}	
	}

	if (!utlf_isNull(ds_send_item1.getColumn(0, "pid")))
	{
		fSearch();
	}
	else
	{
		ds_send_item1.setColumn(0, "ioflag", "I");
		
		var today = new Date();
		var baseyear = today.getDateFormat("YYYY");
		var basemonth = today.getDateFormat("MM");
		var currentym = baseyear + basemonth;  
		
		ds_send_item1.setColumn(0, "clamymfrom", currentym);
		ds_send_item1.setColumn(0, "clamymto", currentym);
	}
	
	fGetOrdDept();
}

function fn_Cal00()
{
	ds_send_item1.setColumn(0, "clamymfrom", group5.cp_monthCal00.getData());
}

function fn_Cal01()
{
	ds_send_item1.setColumn(0, "clamymto", group5.cp_monthCal01.getData());
}

function fSearch()
{
	var chk_clamymfrom = ds_send_item1.getColumn(0, "clamymfrom");
	var chk_clamymto = ds_send_item1.getColumn(0, "clamymto");
	var chk_ioflag   = ds_send_item1.getColumn(0, "ioflag");
	var chk_ordfild  = ds_send_item1.getColumn(0, "ordfildcd");
	var chk_diagcdfr = ds_send_item1.getColumn(0, "diagcdfr");
	var chk_diagcdto = ds_send_item1.getColumn(0, "diagcdto");
	var chk_pid = ds_send_item1.getColumn(0, "pid");
	
	if (utlf_isNull(chk_clamymfrom) || utlf_isNull(chk_clamymfrom))
	{
		sysf_messageBox("청구년월은 ", "I003");
		group5.cp_monthCal00.setFocus();
		return;
	}				
	else if ( chk_ioflag == "O" && utlf_isNull(chk_ordfild))
	{
		sysf_messageBox("진료분야는 ","I003");
		group5.cmb_ordfildcd.index = 0;
		group5.cmb_ordfildcd.setFocus();
		return;
	}
	
	if (utlf_isNull(chk_pid) && (utlf_isNull(chk_diagcdfr) || utlf_isNull(chk_diagcdto)))
	{
		sysf_messageBox("상병조건은 ", "I003");
		group5.ipt_diagfr.setFocus();
		return;
	}
	
	var oParam = {};
		oParam.id          = "TRPIS00400";
		oParam.service     = "aftjudgstatapp.DiagClam";
		oParam.method      = "reqGetDiagClam";
		oParam.inds        = "req=ds_send_item1";
		oParam.outds       = "ds_main_grdlist_diagclamlist=diagclam";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIS00400";

	tranf_submit(oParam);
}

function fGetOrdDept()
{
	var oParam = {};
		oParam.id          = "TRPID20309";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetDeptCDDrID";
		oParam.inds        = "req=ds_send_item1";
		oParam.outds       = "ds_init_orddeptcd=orddeptcd ds_init_orddrid=orddrid";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20309";

	tranf_submit(oParam);
}

function group5_rdo_ioflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fGetOrdDept();		
					
	if ( obj.value == "O" )
	{
		group5.cmb_ordfildcd.index = 0;
	}
}

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

function fPatSrch()
{
	var ipt_pid = ds_send_item1.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_patinfolist.getColumn(0, "pid");
	
	if (srch_pid) 
	{
		ds_patinfolist.clearData();
		ds_send_item1.setColumn(0, "pid", srch_pid);
	}
}

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

function group5_btn_cd_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_hidden_sppiz00400_rslt.clearData();
	
	ds_hidden_sppiz00400_cond.setColumn(0, "diagcd", utlf_getCurrentDate());
	ds_hidden_sppiz00400_cond.setColumn(0, "diaghngnm", ds_send_item1.getColumn(0, "diagcd"));
	ds_hidden_sppiz00400_cond.setColumn(0, "diagnm", "");
	ds_hidden_sppiz00400_cond.setColumn(0, "selectedrdodiagkind", 3);

	var objArg = new Object();

	objArg.sDiagcd = ds_hidden_sppiz00400_cond.getColumn(0, "diagcd");
	objArg.sSelectedrdodiagkind = 1;
	objArg.sSingleFlag = "M";

	var objDs = frmf_modal("SPPIZ00400", "SPPIZ00400", objArg);
	
	ds_hidden_sppiz00400_rslt.copyData(objDs);
	
	ds_send_item1.setColumn(0, "diagcdfr", ds_hidden_sppiz00400_rslt.getColumn(0, "diagcd"));
	ds_send_item1.setColumn(0, "diagcdto", ds_hidden_sppiz00400_rslt.getColumn(0, "diagcd"));
}

function group5_ipt_diagfr_canchange(obj:Edit,  e:ChangeEventInfo)
{
	ds_send_item1.setColumn(0, "diagcdto", obj.value);
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_grdlist_diagclamlist.rowcount > 0)
	{
		grdf_exportExcel(grd_outjudg, "상병별 청구환자 조회_"+utlf_getCurrentDate(), "sheet1", "바탕 화면");
	}
	else
	{	
		sysf_messageBox("엑셀저장할 대상이", "I004");
	}
}
]]></Script>
  </Form>
</FDL>