YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID22900_동일진료일명세서조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID22900" position="absolute 0 0 966 670" titletext="동일진료일명세서조회" onload="SMPID22900_onload">
    <Layouts>
      <Layout>
        <Div id="group1" taborder="1" style="align:center top;" class="div_SA" position="absolute 0 27 960 69" anchor="left top right" align="align:center top;" positiontype="position">
          <Layouts>
            <Layout>
              <Calendar id="cp_monthCal00" taborder="43" position="absolute 81 10 156 30" onchanged="cp_monthCal00" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" anchor="default"/>
              <Static id="caption30" text="청구년월" class="search_name" position="absolute 8 10 82 30" anchor="default" positiontype="position"/>
              <Static id="caption38" text="등록번호" class="search_name" position="absolute 243 10 317 30" anchor="default" positiontype="position"/>
              <Edit id="ipt_patunitsrch" taborder="34" class="input_search" position="absolute 317 10 412 30" anchor="default" maxlength="10" onkeydown="ipt_patunitsrch_onkeydown" ontextchanged="ipt_patunitsrch_ontextchanged" onkillfocus="group1_ipt_patunitsrch_onkillfocus" positiontype="position"/>
              <Button id="btn_select" taborder="35" text="조회" class="btn1" position="absolute 893 10 949 30" anchor="top right" onclick="btn_select_onclick" positiontype="position"/>
              <Combo id="cmb_clamdg" taborder="36" position="absolute 159 10 219 30" anchor="default" innerdataset="@ds_init_clamdg" codecolumn="clamdgcd" datacolumn="clamdgnm" positiontype="position"/>
              <Shape id="line3" linetype="vertical" class="line_4" position="absolute 840 5 840 28" anchor="default" positiontype="position"/>
              <Combo id="cmb_judgrid" taborder="37" class="combo_search" position="absolute 544 10 629 30" anchor="default" innerdataset="@ds_init_judgrid" codecolumn="judgrid" datacolumn="judgrnm" positiontype="position"/>
              <Static id="caption39" text="심사자" class="search_name" position="absolute 482 10 547 30" anchor="default" positiontype="position"/>
              <MaskEdit id="ipt_ordym" taborder="38" mask="####-##" class="input_default" position="absolute 726 10 791 30" anchor="default" imemode="hangul" maxlength="6" type="string" positiontype="position"/>
              <Static id="caption1" text="진료년월" class="search_name" position="absolute 653 10 727 30" anchor="default" positiontype="position"/>
              <Edit id="opt_gender" taborder="39" readonly="true" position="absolute 436 10 458 30" anchor="default" positiontype="position"/>
              <CheckBox id="chk_ordfildcd" taborder="40" text="타분야포함" truevalue="Y" position="absolute 794 10 884 30" anchor="default" positiontype="position"/>
              <Button id="button61" taborder="41" class="icon_search" position="absolute 413 10 433 30" onclick="button61_onclick" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_judgtrgtman" text="대상자조회" class="tit_2" position="absolute 0 78 130 98" positiontype="position"/>
        <Button id="btn_excelsave" taborder="2" text="엑셀저장" class="btn7" position="absolute 882 75 958 95" anchor="top right" positiontype="position" onclick="btn_excelsave_onclick"/>
        <Grid id="grd_clbsmast" class="datagrid2" taborder="4" useinputpanel="false" position="absolute 0 98 960 638" anchor="all" autofittype="col" binddataset="DS_GRID_grd_clbsmast" positiontype="position" cellsizingtype="col" autosizingtype="row" extendsizetype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="42"/>
                <Column size="54"/>
                <Column size="67"/>
                <Column size="22"/>
                <Column size="52"/>
                <Column size="37"/>
                <Column size="34"/>
                <Column size="36"/>
                <Column size="122"/>
                <Column size="54"/>
                <Column size="134"/>
                <Column size="47"/>
                <Column size="69"/>
                <Column size="68"/>
                <Column size="70"/>
              </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" colspan="2" text="등록번호"/>
                <Cell col="5" text="환자명"/>
                <Cell col="6" text="보험&#13;&#10;유형"/>
                <Cell col="7" text="보조&#13;&#10;유형"/>
                <Cell col="8" text="진료&#13;&#10;분야"/>
                <Cell col="9" text="진료과"/>
                <Cell col="10" text="진료의"/>
                <Cell col="11" text="주상병"/>
                <Cell col="12" text="심사자"/>
                <Cell col="13" text="진료개시일"/>
                <Cell col="14" text="진료종료일"/>
                <Cell col="15" text="동일진료일"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" edittype="none" expr="currow +1"/>
                <Cell col="1" displaytype="text" style="align:center;" text="bind:docuseqno"/>
                <Cell col="2" displaytype="combo" edittype="none" style="align:center;" text="bind:clamflagcd" combodataset="ds_init_clamflagcd" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="3" style="align:center;" text="bind:pid"/>
                <Cell col="4" style="align:center;" text="bind:pidsn"/>
                <Cell col="5" style="align:center;" text="bind:patnm"/>
                <Cell col="6" style="align:center;" text="bind:insukind"/>
                <Cell col="7" style="align:center;" text="bind:suppkind"/>
                <Cell col="8" displaytype="combo" edittype="none" style="align:center;" text="bind:ordfildcd" combodataset="ds_init_ordfildcd" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="9" displaytype="combo" edittype="none" style="align:left;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd" combocodecol="cd" combodatacol="nm"/>
                <Cell col="10" displaytype="combo" edittype="none" style="align:center;" text="bind:orddrid" combodataset="ds_init_orddrid" combocodecol="cd" combodatacol="nm"/>
                <Cell col="11" style="align:left;" text="bind:diagcd" wordwrap="both" autosizerow="limitmin"/>
                <Cell col="12" displaytype="combo" edittype="none" style="align:center;" text="bind:judgrid" combodataset="ds_init_judgrid" combocodecol="judgrid" combodatacol="judgrnm"/>
                <Cell col="13" displaytype="date" style="align:center;" text="bind:ordfromdd" calendardisplaynulltype="none"/>
                <Cell col="14" displaytype="date" style="align:center;" text="bind:ordtodd" calendardisplaynulltype="none"/>
                <Cell col="15" style="align:center;" text="bind:samedate"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption00" text="동일진료일명세서조회" class="tit_1" position="absolute 0 0 177 26"/>
        <Button id="btn_close" taborder="5" text="닫기" onclick="btn_close_onclick" class="btn4" position="absolute 906 640 959 660" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <FileDialog id="fld_input" filter="Worksheet Files (*.xls;*.xlsx)|*.xls;*.xlsx" filterindex="0" defaultextension="false"/>
      <Dataset id="DS_GRID_grd_clbsmast" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="docuseqno" type="STRING"/>
          <Column id="clamflagcd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="pidsn" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="suppkind" type="STRING"/>
          <Column id="ordfildcd" type="STRING"/>
          <Column id="orddeptcd" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
          <Column id="diagcd" type="STRING"/>
          <Column id="judgrid" type="STRING"/>
          <Column id="ordfromdd" type="STRING"/>
          <Column id="ordtodd" type="STRING"/>
          <Column id="samedate" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_ordfildcd" 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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_clamflagcd" 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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_clamdg" 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>
      </Dataset>
      <Dataset id="ds_init_judgrid" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="judgrnm" type="STRING" size="256"/>
          <Column id="judgrid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_ptsp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patInfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <ExportObject id="ExtObj" exporttype="0" exporteventtype="itemrecord"/>
    </Objects>
    <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";	
// 화면초기화
function fInitialize() {	
    appf_getCodeListSubmit([{cdGrpId: "P0291", dsNm: "ds_init_ordfildcd", sortField: "cdnm", sortMehotd: "desc"}
                           ,{cdGrpId: "P0155", dsNm: "ds_init_clamflagcd", sortField: "cdnm", sortMehotd: "desc"}], false, false, "");	
	                      
	var sInDsName = dsf_createDsRow("ds_cond"
								, [{col: "ioflag", val: "O"}
								,  {col: "clamym", val: lastMonth}
								,  {col: "judgid", val: ""}
								,  {col: "ordflag", val: ""}
								]);		
							
	var oParam = {};
		oParam.id          = "TRPID20201";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetInitComCd";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_init_clamdg=clamdg ds_init_judgrid=judgrid ds_init_orddeptcd=orddeptcd ds_init_orddrid=orddrid";
		oParam.async       = false;

	tranf_submit(oParam);		
						
	// 팝업이 아니면 청구월 셋팅

	// 청구월 세팅
	var objDate = new Date();
	var lastMonth = objDate.addMonth(-1);
	lastMonth = objDate.toFormatString("%Y%m");		
	
	group1.cp_monthCal00.value = lastMonth;
	group1.ipt_ordym.value = lastMonth;
			
	// 청구차수
	group1.cmb_clamdg.innerdataset = ds_init_clamdg;
	group1.cmb_clamdg.index = 0;
}
				

// 동일진료일 명세서조회			
function fGetDocuList() 
{
	var chk = true;
	
	if (utlf_isNull(group1.cp_monthCal00.value))
	{
		chk = false;
		sysf_messageBox("청구년월은", "I003"); //I003=필수입력입니다.	
		group1.cp_monthCal00.setFocus();
		
	} else if (utlf_isNull(group1.cmb_clamdg.value)) {
		
		chk = false;
		sysf_messageBox("청구차수", "I003");	//I003=필수입력입니다.
		group1.cmb_clamdg.setFocus();
	
	} else if (utlf_isNull(group1.ipt_ordym.value)){
	
		chk = false;
		sysf_messageBox("진료년월", "I003");	//I003=필수입력입니다.
		group1.ipt_ordym.setFocus();
	
	}	
	
	if (chk == true) {	
	
		var clamym = group1.cp_monthCal00.value.toFormatString("%Y%m");
		
		var sInDsName = dsf_createDsRow("ds_cond"
								, [{col: "clamym", val: clamym}
								,  {col: "clamdg", val: group1.cmb_clamdg.value}
								,  {col: "pid", val: group1.ipt_patunitsrch.value}
								,  {col: "pidsn", val: group1.opt_gender.value}
								,  {col: "ordym", val: group1.ipt_ordym.value}
								,  {col: "judgrid", val: group1.cmb_judgrid.value}
								,  {col: "ordfildcdyn", val: group1.chk_ordfildcd.value}											
								]);
		var oParam = {};
			oParam.id          = "TRPID22901";
			oParam.service     = "aftjudgapp.InAftJudg";
			oParam.method      = "reqGetSameDateDocuList";
			oParam.inds        = "req=ds_cond";
			oParam.outds       = "DS_GRID_grd_clbsmast=clbs";
			oParam.async       = false;

		tranf_submit(oParam);
	}
}

// 환자조회
function fGetSrchPid() {

	var ipt_pid = group1.ipt_patunitsrch.value;	
	
	if (ipt_pid.charCodeAt(0) > 255) {	
		var objArg = new Object();
		objArg.srchcond = "2";
		objArg.hngnm = ipt_pid;		
	} else {
		var objArg = new Object();
		objArg.srchcond = "1";
		objArg.hngnm = ipt_pid;		
	}
	
	frmf_modal("SPPMC02500", "SPPMC02500", objArg);
	
	var objPopup = frmf_getChildWindow("SPPMC02500");
	
	if(utlf_isNull(objPopup))
	{
		var srch_pid = opener.frmf_getParameter("SPPMC02500_pid");	
	} 
	
	
}	
																
// 청구년월에 대한 청구차수 조회
function pidfGetClamdg() {
							
	ds_init_clamdg.deleteAll();
	
	var clamym = group1.cp_monthCal00.value.toFormatString("%Y%m");
	
	var sInDsName = dsf_createDsRow("ds_cond"
								, [{col: "clamym", val: clamym}
								,  {col: "ioflag", val: "O"}
								,  {col: "insukind", val: ""}																		
								]);
	var oParam = {};
		oParam.id          = "TRPID20407";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetClamdg";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_init_clamdg=clamdg";
		oParam.async       = false;

	tranf_submit(oParam);
}																

function SMPID22900_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	
	// 화면을 초기화한다.
	fInitialize();											

	if(sPid != null)
	{		
		group1.cp_monthCal00.value   = sClamym; // 청구년월 
		//group1.cmb_clamdg.value      = sClamdg; // 청구차수
		group1.ipt_patunitsrch.value = sPid;    // 등록번호
		group1.opt_gender.value      = sPidsn;  // 등록번호SEQ
		group1.ipt_ordym.value       = sOrdym;  // 진료일자		
		
		var sInDsName = dsf_createDsRow("ds_cond"
								, [{col: "ioflag", val: "O"}
								,  {col: "clamym", val: sClamym}
								,  {col: "judgid", val: ""}
								,  {col: "ordflag", val: ""}
								]);
		var oParam = {};
			oParam.id          = "TRPID20201";
			oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
			oParam.method      = "reqGetInitComCd";
			oParam.inds        = "req=ds_cond";
			oParam.outds       = "ds_init_clamdg=clamdg ds_init_judgrid=judgrid ds_init_orddeptcd=orddeptcd ds_init_orddrid=orddrid";
			oParam.async       = false;

		tranf_submit(oParam);
		// 청구차수
		group1.cmb_clamdg.innerdataset = ds_init_clamdg;
		group1.cmb_clamdg.value = sClamdg;
		
		// 심사자
		if(!utlf_isNull(sJudgrid)){
			group1.cmb_judgrid.value = sJudgrid;
		} else {
			group1.cmb_judgrid.index = 0;
		}
	}
	
	// 동일진료일 명세서 조회
	fGetDocuList();
				
}

function button61_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetSrchPid();
}

function btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}



function cp_monthCal00(obj:Calendar, e:ChangeEventInfo)
{	
	pidfGetClamdg();	
}

function ipt_patunitsrch_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) // Enter 입력 시
	{
		if( group1.ipt_patunitsrch.getLength() > 1 ) 
		{
			var srchtext = group1.ipt_patunitsrch.value;
			if( srchtext.charCodeAt(0) > 255) {
				fGetSrchPid();
			} else {
				fGetDocuList();
			}
		}	    	    	    	 
	}
}

function btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	var vFile = fld_input.open("FileSave", FileDialog.SAVE, "%MYDOCUMENT%", "동일진료일대상자.xlsx");

    ExtObj.exporttype = ExportTypes.EXCEL;
    ExtObj.exportfilename = vFile.fullpath;
    ExtObj.exportactivemode = "noactive";
    ExtObj.exportsavemode = "save";
    ExtObj.addExportItem(ExportItemTypes.GRID, grd_mechlist, "Sheet1!A1" );
    ExtObj.export();	
}

function ipt_patunitsrch_ontextchanged(obj:Edit,  e:TextChangedEventInfo)
{
	if (utlf_isNull(group1.ipt_patunitsrch.value))
	{
		//청구년월에 대한 청구차수 조회
		pidfGetClamdg();
		group1.opt_gender.value = "";
	}
}




function group1_ipt_patunitsrch_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{	
	var pLength = 9;
	var padString = "0";
	var rtnStr = group1.ipt_patunitsrch.value;
	if(rtnStr > 0){
		if (rtnStr.length < pLength) {
			for( var i=rtnStr.length; i<pLength; i++){
				rtnStr = padString + rtnStr;
			}
		}
		
		group1.ipt_patunitsrch.value = rtnStr;
	}
	

}

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