YNU_JEUS/app_home/himed/xpapps/pam/aftjudgstatxp/xp/SMPIS01400_진료확인번호.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIS01400" position="absolute 0 0 1207 767" titletext="청구생성오류점검" oninit="SMPIS01400_oninit" onload="SMPIS01400_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 23 1198 747" id="group2" anchor="all">
          <Layouts>
            <Layout width="1190" height="732">
              <Div position="absolute 1 1 1191 38" align="align:center top;" id="group3" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 1107 5 1113 32" linetype="vertical" id="line1" class="line_4" anchor="top right"/>
                    <Button position="absolute 1118 7 1174 29" id="btn_search" class="btn1" taborder="2" text="조회" anchor="top right" onclick="group2_group3_btn_search_onclick"/>
                    <Static text="내원유형" position="absolute 10 10 86 27" id="caption3" class="search_name" anchor="default"/>
                    <Static text="청구년월" position="absolute 203 11 308 28" id="caption2" class="search_name" anchor="default"/>
                    <Static text="청구차수" position="absolute 492 11 597 28" id="caption4" class="search_name" anchor="default"/>
                    <Combo position="absolute 565 9 755 28" id="cmb_clamdgfrom" class="combo_default" innerdataset="@ds_init_clamdglist" datacolumn="clamdgnm" codecolumn="clamdgcd" anchor="default" onitemchanged="group2_group3_cmb_clamdgfrom_onitemchanged"/>
                    <Radio position="absolute 85 9 185 29" id="rdo_ioflag" class="radio_search" columncount="3" codecolumn="value" datacolumn="label" anchor="default" innerdataset="@ds_rdo_ioflag" onitemchanged="group2_group3_rdo_ioflag_onitemchanged"/>
                    <cp_monthCal id="ipt_clamym" titletext="monthCalendar" taborder="3" scrollbars="none" position="absolute 282 8 449 31" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="일괄주석 리스트" position="absolute 2 47 171 68" id="caption8" class="tit_2" anchor="default"/>
              <Grid position="absolute 1 65 1191 715" id="grd_outjudg" class="datagrid2" binddataset="ds_main_outjudg" autofittype="col" anchor="all" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="24"/>
                      <Column size="113"/>
                      <Column size="158"/>
                      <Column size="118"/>
                      <Column size="167"/>
                      <Column size="186"/>
                      <Column size="187"/>
                      <Column size="209"/>
                    </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="진료확인번호"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="expr:currow+1"/>
                      <Cell col="1" displaytype="date" style="align:center middle;" text="bind:clamym" mask="yyyy-MM"/>
                      <Cell col="2" style="align:center middle;" text="bind:clamdg"/>
                      <Cell col="3" displaytype="text" edittype="text" style="align:center middle;" text="bind:pid"/>
                      <Cell col="4" style="align:center middle;" text="bind:pidsn"/>
                      <Cell col="5" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:ioflag" combodataset="ds_rdo_ioflag" combocodecol="value" combodatacol="label" enable="false"/>
                      <Cell col="6" style="align:center middle;" text="bind:patnm"/>
                      <Cell col="7" displaytype="text" edittype="text" style="align:center middle;" text="bind:ordcnfmno" editautoselect="true"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1145 45 1187 64" id="button3" class="btn5" text="저장" anchor="top right" onclick="group2_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="진료확인번호 일괄주석입력" class="tit_1" position="absolute 1 0 217 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_outjudg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING"/>
          <Column id="clamdg" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="pidsn" type="STRING"/>
          <Column id="ioflag" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="ordcnfmno" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="clamdg" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" 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="clamtoym" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원외래"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_clamdglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamdgnm" type="STRING" size="256"/>
          <Column id="clamdgcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_rdo_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>
    </Objects>
    <Bind>
      <BindItem id="item1" compid="group2.group3.cmb_clamdgfrom" propid="value" datasetid="ds_send" columnid="clamdg"/>
      <BindItem id="item2" compid="group2.group3.rdo_ioflag" propid="value" datasetid="ds_send" columnid="ioflag"/>
      <BindItem id="item0" compid="group2.group3.ipt_clamym" propid="text" datasetid="ds_send" columnid="clamym"/>
    </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_aftjudgstatxp::SMPIS01700.xjs";
function SMPIS01400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIS01400_onload(obj:Form, e:LoadEventInfo)
{
	ds_send.setColumn(0, "clamym", group2.group3.ipt_clamym.getData());
	
	group2.group3.rdo_ioflag.index = 0;
	
	group2.group3.ipt_clamym.setCallEvent("fn_Cal");
	
	fn_Cal();
	
	group2_group3_cmb_clamdgfrom_onitemchanged();
}

function fn_Cal()
{
	var clamym = group2.group3.ipt_clamym.getData();
	ds_send.setColumn(0, "clamym", clamym);
	var ioflag = group2.group3.rdo_ioflag.value;
	var insukind = ds_send.getColumn(0, "insukind");
	var clamtoym = ""
	pidfGetClamdg(clamym, clamtoym, ioflag, insukind, "ds_init_clamdglist");
	
	group2.group3.cmb_clamdgfrom.index = 0;
	
	//fSearch();
}

function fSearch() 
{
	if (group2.group3.rdo_ioflag.value == "A" ) 
	{
		sysf_messageBox("내원유형을 선택하세요", "I");
		return;
	}
	if (utlf_isNull(group2.group3.ipt_clamym.getData())) 
	{
		sysf_messageBox("청구년월을 선택하세요", "I");
		return;
	}
	if (utlf_isNull(group2.group3.cmb_clamdgfrom.value))
	{
		sysf_messageBox("청구차수를 선택하세요", "I");
		return;
	}		
	var oParam = {};
		oParam.id          = "TRPIS01400";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetInAftJudgTrgtAllList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_outjudg=grdlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIS01400";

	tranf_submit(oParam);
	
//	group2_group3_cmb_clamdgfrom_onitemchanged();
}
			
function group2_group3_cmb_clamdgfrom_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSearch();
}

//저장
function group2_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	if (group2.group3.rdo_ioflag.value == "A" ) 
	{
		sysf_messageBox("내원유형을 선택하세요", "I");
		return;
	}
	if (utlf_isNull(group2.group3.ipt_clamym.getData()))
	{
		sysf_messageBox("청구년월을 선택하세요", "I");
		return;
	}
	if (utlf_isNull(group2.group3.cmb_clamdgfrom.value))
	{
		sysf_messageBox("청구차수를 선택하세요", "I");
		return;
	}
	if ( sysf_messageBox("","Q002") == 6 ) 
	{
		var oParam = {};
			oParam.id          = "TXPIS01400";
			oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
			oParam.method      = "reqExeInAftJudgTrgtAllList";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPIS01400";

		tranf_submit(oParam);
		
		fSearch();
	}
}

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