YNU_JEUS/app_home/himed/xpapps/lis/plgystatsmngtxp/xp/SMLPS00600_세포조직진단비교.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPS00600" position="absolute 0 0 1199 761" titletext="세포/조직 진단비교" oninit="SMLPS00600_oninit" onload="SMLPS00600_onload">
    <Layouts>
      <Layout>
        <Button id="btn_excel" taborder="1" text="EXCEL저장" class="btn7" position="absolute 1101 73 1193 95" anchor="top right" onclick="btn_excel_onclick"/>
        <Static id="caption6" text="세포/조직 진단비교" class="tit_1" position="absolute 0 0 148 25" anchor="left top"/>
        <Grid id="grd_statsinfolist" class="datagrid2" taborder="2" binddataset="ds_grd_statsinfolist" useinputpanel="false" position="absolute 0 105 1194 758" cellsizingtype="both" autosizingtype="none" anchor="all" autofittype="none" cellmovingtype="none" extendsizetype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="27"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="216"/>
                <Column size="40"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="210"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="220"/>
                <Column size="50"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="기관코드"/>
                <Cell col="1"/>
                <Cell col="2" text="등록번호"/>
                <Cell col="3" text="환자명"/>
                <Cell col="4" text="sptno"/>
                <Cell col="5" text="세포 &#10;병리번호"/>
                <Cell col="6" text="세포진단"/>
                <Cell col="7" text="등급"/>
                <Cell col="8" text="jptno"/>
                <Cell col="9" text="조직 &#10;병리번호"/>
                <Cell col="10" text="조직진단"/>
                <Cell col="11" text="mptno"/>
                <Cell col="12" text="분자 &#10;병리번호"/>
                <Cell col="13" text="분자진단"/>
                <Cell col="14" text="판정"/>
              </Band>
              <Band id="body">
                <Cell text="bind:instcd"/>
                <Cell col="1" text="expr:currow + 1"/>
                <Cell col="2" class="text_center" text="bind:pid"/>
                <Cell col="3" class="text_center" text="bind:patnm"/>
                <Cell col="4" class="text_center" text="bind:sptno"/>
                <Cell col="5" class="text_center" text="bind:sdispptno"/>
                <Cell col="6" style="align:left middle;" class="text_center" text="bind:sdiagcnts"/>
                <Cell col="7" text="bind:readgrade"/>
                <Cell col="8" text="bind:jptno"/>
                <Cell col="9" class="text_center" text="bind:jdispptno"/>
                <Cell col="10" class="text_center" text="bind:jdiagcnts"/>
                <Cell col="11" text="bind:mptno"/>
                <Cell col="12" class="text_center" text="bind:mdispptno"/>
                <Cell col="13" class="text_center" text="bind:mdiagcnts" wordwrap="char" autosizerow="limitmin"/>
                <Cell col="14" text="bind:sepojudg"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp_sea" taborder="3" class="div_SA" position="absolute 0 25 1195 70" anchor="left top right">
          <Layouts>
            <Layout width="1195" height="45">
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1100 12 1106 34" anchor="top right"/>
              <Button id="btn_sea" taborder="1" text="조회" onclick="grp_sea_btn_sea_onclick" class="btn1" position="absolute 1109 12 1165 34" anchor="top right"/>
              <Calendar id="ipt_cncltodd" taborder="2" onkeyup="grp_sea_ipt_cncltodd_onkeyup" class="input_s_essential" position="absolute 996 13 1096 32" anchor="top right" mask="yyyy-mm-dd"/>
              <Calendar id="ipt_cnclfromdd" taborder="3" class="input_s_essential" position="absolute 877 13 977 32" anchor="top right" mask="yyyy-mm-dd"/>
              <Static id="caption2" text="접수일자 :" class="search_name" position="absolute 788 14 874 31" anchor="top right"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 980 13 992 30" anchor="top right"/>
              <Combo id="cbo_ptnocd" taborder="4" innerdataset="ds_init_cbo_ptnocd" codecolumn="ptnocd" datacolumn="ptnonm" position="absolute 94 14 220 33" anchor="left top"/>
              <Edit id="ipt_fromptno" taborder="5" class="text_center" position="absolute 253 14 293 33" anchor="left top"/>
              <Static id="caption1" text="병리번호 :" class="search_name" position="absolute 6 15 78 31" anchor="left top"/>
              <Static id="caption3" text="~" class="search_no_b" position="absolute 296 15 308 32" anchor="left top"/>
              <Edit id="input1" taborder="6" class="text_center" position="absolute 341 14 376 33" anchor="left top"/>
              <Edit id="input2" taborder="7" class="text_center" position="absolute 311 14 338 33" anchor="left top"/>
              <Edit id="ipt_fromyear" taborder="8" class="text_center" position="absolute 223 14 250 33" anchor="left top"/>
              <Edit id="ipt_refval" taborder="9" onkeyup="grp_sea_ipt_refval_onkeyup" position="absolute 698 14 783 33" anchor="top right"/>
              <Static id="caption7" text="등록번호 :" class="search_name" position="absolute 611 15 697 32" anchor="top right"/>
              <Edit id="input5" taborder="10" class="input_search" position="absolute 445 14 605 33" anchor="left top"/>
              <Static id="caption8" text="문자열" class="search_name" position="absolute 380 15 439 32" anchor="left top"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption4" text="접수 검사/진료과 목록" class="tit_2" position="absolute 1 84 158 100" anchor="left top"/>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 101 1194 107" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_statsinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="sptno" type="STRING"/>
          <Column id="sdispptno" type="STRING"/>
          <Column id="sdiagcnts" type="STRING"/>
          <Column id="readgrade" type="STRING"/>
          <Column id="jptno" type="STRING"/>
          <Column id="jdispptno" type="STRING"/>
          <Column id="jdiagcnts" type="STRING"/>
          <Column id="mptno" type="STRING"/>
          <Column id="mdispptno" type="STRING"/>
          <Column id="mdiagcnts" type="STRING"/>
          <Column id="sepojudg" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cbo_ptnocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ptnonm" type="STRING"/>
          <Column id="ptnocd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdt" type="STRING" size="256"/>
          <Column id="ptnocd" type="STRING" size="256"/>
          <Column id="ptnocode" type="STRING" size="256"/>
          <Column id="fromyear" type="STRING" size="256"/>
          <Column id="fromptno" type="STRING" size="256"/>
          <Column id="toyear" type="STRING" size="256"/>
          <Column id="toptno" type="STRING" size="256"/>
          <Column id="refmthdcd" type="STRING" size="256"/>
          <Column id="refval" type="STRING" size="256"/>
          <Column id="acptfromdd" type="STRING" size="256"/>
          <Column id="acpttodd" type="STRING" size="256"/>
          <Column id="statscondcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_detlrefcrite" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_refval" propid="value" datasetid="ds_init" columnid="refval"/>
      <BindItem id="item3" compid="grp_sea.ipt_fromyear" propid="value" datasetid="ds_init" columnid="fromyear"/>
      <BindItem id="item5" compid="grp_sea.input2" propid="value" datasetid="ds_init" columnid="toyear"/>
      <BindItem id="item6" compid="grp_sea.input1" propid="value" datasetid="ds_init" columnid="toptno"/>
      <BindItem id="item4" compid="grp_sea.ipt_fromptno" propid="value" datasetid="ds_init" columnid="fromptno"/>
      <BindItem id="item1" compid="grp_sea.ipt_cnclfromdd" propid="value" datasetid="ds_init" columnid="acptfromdd"/>
      <BindItem id="item2" compid="grp_sea.ipt_cncltodd" propid="value" datasetid="ds_init" columnid="acpttodd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";

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

function SMLPS00600_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_statsinfolist);
	fExeInitialize();
}

function fExeInitialize()
{
	var sCurDate = "";
	
	// 시스템일자 조회
	dsf_createDsRow("ds_send", [{col : "instcd", val : sysf_getUserInfo("dutplceinstcd")}]);
	
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_data_sysdtinfo=sysdtinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00102";
	tranf_submit(oParam);
	
	dsf_createDsRow("ds_send", [{col : "instcd",    val : sysf_getUserInfo("dutplceinstcd")}
							   ,{col : "refflagcd", val : "0"}]);	

	var oParam = {};
		oParam.id          = "TRLPZ00109";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetPtNoCdList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_init_cbo_ptnocd=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00109";

	tranf_submit(oParam);
	
	// 초기값 설정
	sCurDate = utlf_getCurrentDate();
	dsf_createDsRow("ds_init", [{col : "ptnocode",    val : ""}
							   ,{col : "fromyear",    val : sCurDate.substr(2,2)}
							   ,{col : "toyear",      val : sCurDate.substr(2,2)}
							   ,{col : "fromptno",    val : ""}
							   ,{col : "toptno",      val : ""}
							   ,{col : "acptfromdd",  val : sCurDate}
							   ,{col : "acpttodd",    val : sCurDate}
							   ,{col : "refmthdcd",   val : "1"}
							   ,{col : "refval",      val : ""}
							   ,{col : "statscondcd", val : "0"}]);
							   	
	grp_sea.ipt_refval.setFocus();
}

//조회
function fGetStatsInfoList()
{					
	var sTemp = "";
	
	var sFromDD = ds_init.getColumn(0, "acptfromdd", utlf_getCurrentDate());

	var sToDD = ds_init.getColumn(0, "acpttodd", utlf_getCurrentDate());

	if( !utlf_isNull(ds_init.getColumn(0, "ptnocode")))
	{
		if( utlf_isNull(ds_init.getColumn(0, "fromyear")))
		{
			ds_init.setColumn(0, "fromyear", sFromDD.substr(2,2));
		}
		else
		{
			sTemp = ds_init.getColumn(0, "fromyear");
			ds_init.getColumn(0, "fromyear", sTemp.getLeftPad(2, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0,"toyear")))
		{
			ds_init.setColumn(0, "toyear", sFromDD.substr(2,2));
		} 
		else
		{
			sTemp = ds_init.getColumn(0, "toyear");
			ds_init.getColumn(0, "toyear", sTemp.getLeftPad(2, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "fromptno")))
		{
			ds_init.getColumn(0,"fromptno", "000000");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "fromptno");
			ds_init.getColumn(0, "fromptno", sTemp.getLeftPad(6, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "toptno")))
		{
			ds_init.getColumn(0,"toptno", "999999");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "toptno");
			ds_init.getColumn(0, "toptno", sTemp.getLeftPad(6, "0"));
		}
	}
	
	sTemp = ds_init.getColumn(0, "ptnocode");
	
	dsf_createDsRow("ds_send", [{col : "instcd",      	val : sysf_getUserInfo("dutplceinstcd")}
					     	   ,{col : "acptfromdd",  	    val : ds_init.getColumn(0, "acptfromdd")}
				  		       ,{col : "acpttodd",	 	    val : ds_init.getColumn(0, "acpttodd")}
						       ,{col : "refmthdcd",   	    val : ds_init.getColumn(0, "refmthdcd")}
						       ,{col : "refval",   	        val : ds_init.getColumn(0, "refval")}
						       ,{col : "statscondcd",   	val : ds_init.getColumn(0, "statscondcd")}
						       ,{col : "fromyear",          val : ds_init.getColumn(0, "fromyear")}
						       ,{col : "fromptno",          val : ds_init.getColumn(0, "fromptno")}
						       ,{col : "toyear",            val : ds_init.getColumn(0, "toyear")}
					    	   ,{col : "toptno",            val : ds_init.getColumn(0, "toptno")}
					    	   ,{col : "diag",              val : ds_hidden_detlrefcrite.getColumn(0, "diag")}]);
	
	var oParam = {};
		oParam.id          = "TRLPS00601";
		oParam.service     = "plgystatsmngtapp.StatsMngtRef";
		oParam.method      = "reqGetDiagCpreList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_grd_statsinfolist=reflist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPS00601";
	tranf_submit(oParam);
}
//조회
function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetStatsInfoList();
}

function grp_sea_ipt_cncltodd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetStatsInfoList();
	}
}

function grp_sea_ipt_refval_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetStatsInfoList();
	}
}

//엑셀저장
function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_statsinfolist, "SMLPS00600_세포조직진단비교", "SMLPS00600_세포조직진단비교", false);
	//sysf_messageBox("C:\\SMLPS00600_세포조직진단비교.xls 파일 생성이 ", "I002");
}
]]></Script>
  </Form>
</FDL>