YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SMLNP00800_핵의학재검리스트조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLNP00800" position="absolute 0 0 1256 805" titletext="핵의학 재검 일지" oninit="SMLNP00800_oninit" onload="SMLNP00800_onload">
    <Layouts>
      <Layout>
        <Button id="button11" taborder="1" text="출력" class="btn6" position="absolute 2 28 58 50" onclick="button11_onclick"/>
        <Div id="group3" taborder="2" position="absolute 0 40 1195 784">
          <Layouts>
            <Layout width="1195" height="744">
              <Div id="group5" taborder="3" position="absolute 15 15 335 40"/>
              <Static id="cap_countlist" position="absolute 390 105 1140 125"/>
              <Static id="caption7" visible="false" position="absolute 910 105 1145 125"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="자체 재검 리스트" class="tit_2" position="absolute 2 96 136 110"/>
        <Static id="caption5" text="자체 재검 건수 :" position="absolute 744 96 844 111"/>
        <Edit id="output1" taborder="3" readonly="true" position="absolute 846 93 911 112"/>
        <Static id="caption8" text="임상 재검 건수 :" position="absolute 931 96 1031 111"/>
        <Edit id="output2" taborder="4" readonly="true" position="absolute 1031 93 1096 112"/>
        <Button id="button2" taborder="5" text="엑셀" class="btn2_letter2" position="absolute 1131 93 1173 112" onclick="button2_onclick"/>
        <Grid id="datagrid1" taborder="6" binddataset="ds_datagrid1" useinputpanel="false" position="absolute 0 116 1194 661" autosizingtype="none" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="200"/>
                <Column size="150"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="등록번호"/>
                <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="재검결과"/>
                <Cell col="8" text="보고결과"/>
                <Cell col="9" text="결과상태"/>
              </Band>
              <Band id="body">
                <Cell text="bind:pid"/>
                <Cell col="1" text="bind:hngnm"/>
                <Cell col="2" text="bind:sexage"/>
                <Cell col="3" text="bind:orddrnm"/>
                <Cell col="4" text="bind:tclsscrnnm"/>
                <Cell col="5" text="bind:spcnm"/>
                <Cell col="6" text="bind:fir"/>
                <Cell col="7" text="bind:sec"/>
                <Cell col="8" text="bind:last"/>
                <Cell col="9" text="bind:rsltstat"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption2" text="임상 재검 리스트" class="tit_2" position="absolute 5 669 139 683"/>
        <Grid id="datagrid2" taborder="7" binddataset="ds_datagrid2" useinputpanel="false" position="absolute 0 688 1194 790" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="200"/>
                <Column size="150"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="등록번호"/>
                <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="재검결과"/>
                <Cell col="8" text="보고결과"/>
                <Cell col="9" text="결과상태"/>
              </Band>
              <Band id="body">
                <Cell text="bind:pid"/>
                <Cell col="1" text="bind:hngnm"/>
                <Cell col="2" text="bind:sexage"/>
                <Cell col="3" text="bind:orddrnm"/>
                <Cell col="4" text="bind:tclsscrnnm"/>
                <Cell col="5" text="bind:spcnm"/>
                <Cell col="6" text="bind:fir"/>
                <Cell col="7" text="bind:sec"/>
                <Cell col="8" text="bind:last"/>
                <Cell col="9" text="bind:rsltstat"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="div_sea" taborder="8" class="div_SA" position="absolute 0 54 1192 88">
          <Layouts>
            <Layout>
              <Static id="caption3" text="검사일자 :" class="search_name" position="absolute 4 10 80 27" anchor="default"/>
              <Static id="caption4" text="~" position="absolute 198 9 218 29" anchor="default"/>
              <Calendar id="ipt_fromdd" taborder="7" class="input_s_essential" position="absolute 85 8 192 27" anchor="default"/>
              <Calendar id="ipt_todd" taborder="8" class="input_s_essential" position="absolute 212 8 318 27" anchor="default"/>
              <Shape id="line1" linetype="vertical" class="line_4" position="absolute 1093 8 1099 25" anchor="default"/>
              <Button id="button6" taborder="9" text="조회" class="btn1" position="absolute 1120 7 1176 29" anchor="default" onclick="div_sea_button6_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="일일 재검일지(핵의학 검체검사)" class="tit_1" position="absolute 0 0 240 24"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="tclsscrnnm" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
          <Column id="fir" type="STRING"/>
          <Column id="sec" type="STRING"/>
          <Column id="last" type="STRING"/>
          <Column id="rsltstat" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_datagrid2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="tclsscrnnm" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
          <Column id="fir" type="STRING"/>
          <Column id="sec" type="STRING"/>
          <Column id="last" type="STRING"/>
          <Column id="rsltstat" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_rslt_count" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnt" type="STRING" size="256"/>
          <Column id="cnt2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_datagrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="tclsscrnnm" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
          <Column id="fir" type="STRING"/>
          <Column id="sec" type="STRING"/>
          <Column id="last" type="STRING"/>
          <Column id="rsltstat" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnt" type="STRING" size="256"/>
          <Column id="cnt2" type="STRING" size="256"/>
          <Column id="date" type="STRING" size="256"/>
          <Column id="rslt1" type="STRING" size="256"/>
          <Column id="rslt2" type="STRING" size="256"/>
          <Column id="lastflag" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sexage" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="tclsscrnnm" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="fir" type="STRING" size="256"/>
          <Column id="sec" type="STRING" size="256"/>
          <Column id="last" type="STRING" size="256"/>
          <Column id="rsltstat" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="div_sea.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item1" compid="div_sea.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item2" compid="output1" propid="value" datasetid="ds_hidden" columnid="cnt"/>
      <BindItem id="item3" compid="output2" propid="value" datasetid="ds_hidden" columnid="cnt2"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-03-31
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-03-31      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";


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

function SMLNP00800_onload(obj:Form, e:LoadEventInfo)
{
	fInit();
}

function fInit() 
{
	ds_send.setColumn(0, "fromdd", utlf_getCurrentDate());
	ds_send.setColumn(0, "todd", utlf_getCurrentDate());
}


function div_sea_button6_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRLNP00801";
		oParam.service     = "refprintmngtapp.NmedRefPrintMngt";
		oParam.method      = "reqGetRetestTestList";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_datagrid=retestlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRLNP00801";

	tranf_submit(oParam);
	
	var cnt = 0;
	var cnt2 = 0;
	
	ds_datagrid1.enableevent = false;
	for(var i = 0; i < ds_datagrid.rowcount; i++){
		if(ds_datagrid.getColumn(i, "rsltstat") != "5"){
			ds_datagrid1.addRow();
			ds_datagrid1.copyRow(cnt, ds_datagrid, i);
			cnt++;
		}else{
			ds_datagrid2.addRow();
			ds_datagrid2.copyRow(cnt2, ds_datagrid, i);
			cnt2++;
		}
	}	
	ds_datagrid1.enableevent = true;
	
	ds_hidden.setColumn(0, "cnt", cnt + "건");
	ds_hidden.setColumn(0, "cnt2", cnt2 + "건");
	
	ds_rslt_count.setColumn(0, "cnt", cnt);
	ds_rslt_count.setColumn(0, "cnt2", cnt2);
}

function cf_TRLNP00801(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var rowcnt = ds_datagrid1.rowcount;
	if(utlf_isNull(rowcnt)){
		sysf_messageBox("엑셀로 다운로드 할 데이터가", "I004");
	}else{
		grdf_exportExcel(datagrid1, "재검리스트_" , "재검리스트");
	}
}

function button11_onclick(obj:Button,  e:ClickEventInfo)
{		
	var r1Cnt = ds_rslt_count.getColumn(0, "cnt");
	var r2Cnt = ds_rslt_count.getColumn(0, "cnt2");
	
	if(r2Cnt > 0){
		dsf_copyDs(ds_hidden, ds_datagrid2);		
	}else{
		dsf_copyDs(ds_hidden, ds_datagrid1);
	}
	
	ds_hidden.addColumn("date", "string");	
	ds_hidden.addColumn("cnt", "string");
	ds_hidden.addColumn("cnt2", "string");
	ds_hidden.addRow();
	
	ds_hidden.setColumn(0, "date", ds_send.getColumn(0, "todd"));
	ds_hidden.setColumn(0, "cnt", ds_rslt_count.getColumn(0, "cnt")+" 건");
	ds_hidden.setColumn(0, "cnt2", ds_rslt_count.getColumn(0, "cnt2")+" 건");
	
	var objDOM = rptf_createDOM();			// DOM 객체 설정	
	rptf_setNodeListToDOM(objDOM, "root/hidden", ds_hidden);	// 데이터셋 1
	
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;		// 최상위노드 XML 스트링 추출

	var option = "open=1;save=1;directprint=0;print=1;zoom=0;";
	rptf_exeReportPreview30(["RPLNP00800"],[objParam], option);
}
]]></Script>
  </Form>
</FDL>