YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SPLLP90100_세로누적결과조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLLP90100" position="absolute 0 0 900 715" titletext="누적결과조회" oninit="SPLLP90100_oninit" onload="SPLLP90100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 25 880 60" id="grp_ref" class="div_SA">
          <Layouts>
            <Layout>
              <Calendar position="absolute 107 8 207 27" id="input1" class="input_s_essential" anchor="default"/>
              <Button position="absolute 815 7 871 29" id="btn_sea" class="btn1" text="조회" anchor="default" onclick="grp_ref_btn_sea_onclick"/>
              <Edit position="absolute 435 8 570 27" id="ipt_bcno" class="input_button" taborder="4" anchor="default"/>
              <Static text="시행일자 :" position="absolute 15 9 101 26" id="caption2" class="search_name" anchor="default"/>
              <Static text="수가코드 :" position="absolute 345 9 435 26" id="caption1" class="search_name" anchor="default"/>
              <Shape position="absolute 803 5 809 27" linetype="vertical" id="line13" class="line_4" anchor="default"/>
              <Calendar position="absolute 225 8 325 27" id="input2" class="input_s_essential" anchor="default"/>
              <Static text="~" position="absolute 209 9 224 26" id="caption4" class="search_no_b" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 68 880 103" id="grp_patinfo">
          <Layouts>
            <Layout>
              <Shape position="absolute 1 2 872 8" linetype="horizontal" id="lin_6" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
              <Edit readonly="true" position="absolute 75 9 165 28" id="out_pid" enable="true" style="background:lightgrey stretch 5,5;"/>
              <Static text="성 명" position="absolute 167 6 237 29" align="align:center middle;" id="cpt_ patnm" class="cell_1"/>
              <Edit readonly="true" position="absolute 417 9 457 28" id="out_sex" taborder="3" style="background:lightgrey stretch 5,5;"/>
              <Static text="등록번호" position="absolute 2 6 72 29" align="align:center middle;" id="cpt_pid" class="cell_1"/>
              <Edit readonly="true" position="absolute 241 9 341 28" id="opt_patnm" style="background:lightgrey stretch 5,5;"/>
              <Static text="성별/나이" position="absolute 344 6 414 29" align="align:center middle;" id="cpt_sexage" class="cell_1"/>
              <Edit readonly="true" position="absolute 458 9 498 28" id="opt_age" taborder="3" style="background:lightgrey stretch 5,5;"/>
              <Shape position="absolute 1 27 875 33" linetype="horizontal" id="lin_7" class="line_2"/>
              <Edit readonly="true" position="absolute 501 9 596 28" id="output1" taborder="3" style="background:lightgrey stretch 5,5;"/>
              <Static text="검사명" position="absolute 599 6 669 29" align="align:center middle;" id="caption3" class="cell_1"/>
              <Edit readonly="true" position="absolute 671 9 873 28" id="output2" taborder="3" enable="true" style="background:lightgrey stretch 5,5;"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cpt_lgtitle" text="누적결과조회" class="tit_1" position="absolute 0 0 119 25"/>
        <Button id="btn_excel" taborder="2" text="엑셀" class="btn7" position="absolute 823 99 873 118" onclick="btn_excel_onclick"/>
        <Button id="button11" taborder="3" text="출력" class="btn6" position="absolute 759 98 815 120" onclick="button11_onclick"/>
        <Tab id="swt_acmlrslt" taborder="4" tabindex="0" position="absolute 0 118 880 698" onchanged="swt_acmlrslt_onchanged">
          <Tabpages>
            <Tabpage id="case_rslt" text="결   과">
              <Layouts>
                <Layout>
                  <Shape id="lin_2" linetype="horizontal" class="line_1" position="absolute -1 1 879 7" style="strokepen:3 solid #33bbbbff;"/>
                  <Grid id="grd_acmlrslt" taborder="1" binddataset="ds_grd_acmlrslt" useinputpanel="false" position="absolute 0 5 880 549" cellsizingtype="col">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="24"/>
                          <Column size="120"/>
                          <Column size="30"/>
                          <Column size="70"/>
                          <Column size="120"/>
                          <Column size="120"/>
                          <Column size="100"/>
                          <Column size="80"/>
                          <Column size="300"/>
                        </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="단위"/>
                          <Cell col="8" text="소견"/>
                        </Band>
                        <Band id="body">
                          <Cell text="expr:currow + 1"/>
                          <Cell col="1" style="align:right middle;" text="bind:result"/>
                          <Cell col="2" text="bind:judgmark"/>
                          <Cell col="3" text="bind:orddrnm"/>
                          <Cell col="4" displaytype="date" text="bind:prcpdt" mask="yyyy-MM-dd HH:mm:ss" calendardisplaynulltype="nulltext"/>
                          <Cell col="5" displaytype="date" text="bind:testdt" mask="yyyy-MM-dd HH:mm:ss" calendardisplaynulltype="nulltext"/>
                          <Cell col="6" text="bind:reflh"/>
                          <Cell col="7" text="bind:rsltunit"/>
                          <Cell col="8" text="bind:cont"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                </Layout>
              </Layouts>
            </Tabpage>
            <Tabpage id="case_graph" text="그 래 프">
              <Layouts>
                <Layout>
                  <Shape id="lin_3" linetype="horizontal" class="line_1" position="absolute 0 0 878 6" style="strokepen:3 solid #33bbbbff;"/>
                  <ActiveX id="TChart1" position="absolute 1 45 879 535" progid="{fab9b41c-87d6-474d-ab7e-f07d78f2422e}" useautobitmapcache="1" anchor="default" taborder="1" visible="false"/>
                </Layout>
              </Layouts>
            </Tabpage>
          </Tabpages>
        </Tab>
        <Radio id="rdo_alloutin" taborder="5" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 153 118 313 134">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">외래</Col>
              </Row>
              <Row>
                <Col id="codecolumn">I</Col>
                <Col id="datacolumn">입원</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_acmlrslt" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="result" type="STRING"/>
          <Column id="judgmark" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="prcpdt" type="STRING"/>
          <Column id="testdt" type="STRING"/>
          <Column id="reflh" type="STRING"/>
          <Column id="rsltunit" type="STRING"/>
          <Column id="cont" type="STRING"/>
          <Column id="rrgstno" type="STRING" size="256"/>
          <Column id="tclsnm" type="STRING" size="256"/>
          <Column id="inptrslt" type="STRING" size="256"/>
          <Column id="refh" type="STRING" size="256"/>
          <Column id="refl" type="STRING" size="256"/>
        </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="pid" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="listflag" type="STRING" size="256"/>
          <Column id="startdd" type="STRING" size="256"/>
          <Column id="enddd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="rrgstno" type="STRING" size="256"/>
          <Column id="tclsnm" type="STRING" size="256"/>
          <Column id="startdd" type="STRING" size="256"/>
          <Column id="enddd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_acmlrslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_ref.input1" propid="value" datasetid="ds_init_baseinfo" columnid="startdd"/>
      <BindItem id="item1" compid="grp_ref.input2" propid="value" datasetid="ds_init_baseinfo" columnid="enddd"/>
      <BindItem id="item2" compid="grp_ref.ipt_bcno" propid="value" datasetid="ds_init_baseinfo" columnid="testcd"/>
      <BindItem id="item3" compid="grp_patinfo.out_pid" propid="value" datasetid="ds_init_baseinfo" columnid="pid"/>
      <BindItem id="item4" compid="grp_patinfo.opt_patnm" propid="value" datasetid="ds_init_baseinfo" columnid="hngnm"/>
      <BindItem id="item5" compid="grp_patinfo.out_sex" propid="value" datasetid="ds_init_baseinfo" columnid="sex"/>
      <BindItem id="item6" compid="grp_patinfo.opt_age" propid="value" datasetid="ds_init_baseinfo" columnid="age"/>
      <BindItem id="item7" compid="grp_patinfo.output1" propid="value" datasetid="ds_init_baseinfo" columnid="rrgstno"/>
      <BindItem id="item8" compid="grp_patinfo.output2" propid="value" datasetid="ds_init_baseinfo" columnid="tclsnm"/>
      <BindItem id="item9" compid="rdo_alloutin" propid="value" datasetid="ds_hidden_acmlrslt" columnid="flag"/>
    </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";

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

function SPLLP90100_onload(obj:Form, e:LoadEventInfo)
{
	rdo_alloutin.value = 'A';
	ds_init_baseinfo.copyData(ds_baseinfo);
	ds_init_baseinfo.addColumn("rrgstno", "string");
	ds_init_baseinfo.addColumn("tclsnm", "string");
	ds_init_baseinfo.setColumn(0, "startdd","");
	ds_init_baseinfo.setColumn(0, "enddd","");
	fAcmlTestRslt();
}

/* @group  : 누적결과조회                                                                                                                       
 * @ver    : 2016.12.20
 * @by     : 이민기
 * @-----------------------------------
 * @type   : function
 * @access : public
 * @desc   : 환자 등록번호와 처방코드를 통해 해당 검사의 누적결과내역을 조회하는 function
*/	
function fAcmlTestRslt()
{
	ds_send.setColumn(0, "pid", ds_init_baseinfo.getColumn(0, "pid"));
	ds_send.setColumn(0, "testcd", ds_init_baseinfo.getColumn(0, "testcd"));
	//ds_send.setColumn(0, "startdd", ds_init_baseinfo.getColumn(0, "startdd"));
	//ds_send.setColumn(0, "enddd", ds_init_baseinfo.getColumn(0, "enddd"));
	ds_send.setColumn(0, "flag", ds_hidden_acmlrslt.getColumn(0, "flag"));
	
	if( !utlf_isNull(ds_send.getColumn(0, "pid")) 
	      && !utlf_isNull(ds_send.getColumn(0, "testcd")) && !utlf_isNull(ds_send.getColumn(0, "flag")))
	{
		var oParam = {};
			oParam.id          = "TRLLP90101";
			oParam.service     = "refprintmngtapp.GeneralRefPrintMngt";
			oParam.method      = "reqGetAcmlRsltRef";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_grd_acmlrslt=acmlrslt";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLLP90101";
		tranf_submit(oParam);
	}
	ds_init_baseinfo.setColumn(0, "rrgstno", ds_grd_acmlrslt.getColumn(0, "rrgstno"));
	ds_init_baseinfo.setColumn(0, "tclsnm", ds_grd_acmlrslt.getColumn(0, "tclsnm"));
}

//조회버튼
function grp_ref_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fAcmlTestRslt();
}

//출력버튼
function button11_onclick(obj:Button,  e:ClickEventInfo)
{
	fReportPrint();
}

//엑셀버튼
function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveExcel();
}

//출력
function fReportPrint()
{
	var objDOM = rptf_createDOM();	
	rptf_setNodeListToDOM(objDOM, "root/main/acmlrslt", ds_grd_acmlrslt);
	rptf_setNodeListToDOM(objDOM, "/root/init/baseinfo", ds_init_baseinfo); 
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;
	var option = "open=1;save=0;directprint=0;printdialog=0;print=0;zoom=0;";	
	rptf_exeReportPreview30(["RPLLP90100"],[objParam], option);
}

//엑셀저장
function fSaveExcel()
{
	grdf_exportExcel(swt_acmlrslt.case_rslt.grd_acmlrslt, "누적결과조회" , "sheet1", false);
}
function swt_acmlrslt_onchanged(obj:Tab, e:TabIndexChangeEventInfo)
{
	if(swt_acmlrslt.tabindex == 1)
	{
		swt_acmlrslt.case_graph.TChart1.visible = true;
		fCaseRsltGraph();
	}
	else
	{
		swt_acmlrslt.case_graph.TChart1.visible = false;
	}
}

function fCaseRsltGraph()
{
	fHeightDrawLine(swt_acmlrslt.case_graph.TChart1, swt_acmlrslt.case_rslt.grd_acmlrslt, "누적결과추이", true);
}	

function fHeightDrawLine(tChartObj, gridObj, title, refresh)
{
	// TChart 초기화				
	if(refresh)
	{
		swt_acmlrslt.case_graph.TChart1.RemoveAllSeries();
		swt_acmlrslt.case_graph.TChart1.Tools.clear();
	}
	
	// Title 설정
	if(!utlf_isNull(title) || utlf_isNull(title))
	{
		swt_acmlrslt.case_graph.TChart1.Header.Text[0] = title;
	}
	
	var cColor; 			//라인색 설정
	var x, y;     			//그래프의 정점
	var seriesIndex;	//새로 생성될 라인의 번호
	
	tChartObj.Aspect.View3D          = 0;				// 모양 설정 :: 0 = 2D | 1 = 3D
	tChartObj.Legend.CheckBoxes = true;        // Legend 체크박스 설정
	tChartObj.Legend.Alignment      = 0; 			// Legend 위치 설정 :: 0 = left | 1 = right | 2 = top| 3 = bottom
			
	//--------------결과치 그래프 시작-------------//		
	tChartObj.AddSeries(0);							// 라인추가
	seriesIndex = tChartObj.SeriesCount - 1;
	tChartObj.Series(seriesIndex).asLine.Pointer.Visible    = true;  							   //Point 사용 여부
	tChartObj.Series(seriesIndex).asLine.Pointer.Style      = 1;								   //PointStyle 설정 :: 0 - 8
	tChartObj.Axis.Bottom.Labels.Angle                      = 270;								   //하단 날자표시 각도
	tChartObj.Series(seriesIndex).Color                     = "blue";      //=window.rgb(0, 0 , 255);       //결과 선의 색 설정. (파란색)
	tChartObj.Series(seriesIndex).Title 							   = "결과값";						   //Legend  명칭
	
	
	for (j = 0; j < ds_grd_acmlrslt.rowcount; j++)
	{
		x = ds_grd_acmlrslt.getColumn(j, "testdt");										//x = 처방날짜
		y = ds_grd_acmlrslt.getColumn(j, "inptrslt");  									//y =  결과치
		if( !utlf_isNull(y) && !isNaN(y))
		{
			x = x.substring(0,4) + "-" + x.substring(4,6) + "-" +x.substring(6,8) + " " + x.substring(8,10) + ":" + x.substring(10,12) + "         ";
			//x,y 좌표값과 라인의 칼라 값을 받아 라인을 생성한다.
			tChartObj.Series(seriesIndex).Add (y, x, tChartObj.Series(seriesIndex).Color);
		}	
	}
	//--------------결과치 그래프 끝-------------//	
	
	//--------------상한치 그래프 시작-------------//		
	tChartObj.AddSeries(0);			// 라인추가
	seriesIndex = tChartObj.SeriesCount - 1;
	tChartObj.Series(seriesIndex).Color= "red";
	tChartObj.Series(seriesIndex).Title = "상한치";
	
	for(j = 0; j < ds_grd_acmlrslt.rowcount; j++)
	{
		x = ds_grd_acmlrslt.getColumn(j, "testdt");
		y = ds_grd_acmlrslt.getColumn(j, "refh");
		if(!utlf_isNull(y) && !isNaN(y))
		{
			x = x.substring(0,4) + "-" + x.substring(4,6) + "-" +x.substring(6,8) + " " + x.substring(8,10) + ":" + x.substring(10,12) + "         ";
			tChartObj.Series(seriesIndex).Add (y, x, tChartObj.Series(seriesIndex).Color);
		}	
	}
	//--------------상한치 그래프 끝-------------//	
	
	//--------------하한치 그래프 시작-------------//		
	tChartObj.AddSeries(0);			// 라인추가
	seriesIndex = tChartObj.SeriesCount - 1;
	tChartObj.Series(seriesIndex).Color="red";
	tChartObj.Series(seriesIndex).Title = "하한치";
	for( j = 0; j < ds_grd_acmlrslt.rowcount; j++)
	{
		x = ds_grd_acmlrslt.getColumn(j, "testdt");
		y = ds_grd_acmlrslt.getColumn(j, "refl");
		if(!utlf_isNull(y) && !isNaN(y))
		{
			x = x.substring(0,4) + "-" + x.substring(4,6) + "-" +x.substring(6,8) + " " + x.substring(8,10) + ":" + x.substring(10,12) + "         ";
			tChartObj.Series(seriesIndex).Add (y, x, tChartObj.Series(seriesIndex).Color);
		}	
	}
	//--------------하한치 그래프 끝-------------//	
}]]></Script>
  </Form>
</FDL>