YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLLR91300_Microscopy결과입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLLR91300" position="absolute 0 0 616 596" titletext="Urine Sediment Microscopy Result" oninit="SPLLR91300_oninit" onload="SPLLR91300_onload">
    <Layouts>
      <Layout>
        <Shape id="line1" linetype="horizontal" class="line_10" position="absolute 0 26 232 32"/>
        <Static id="caption3" text="검사목록" class="tit_2" position="absolute 0 9 79 25"/>
        <Grid id="grd_rsltlist" taborder="1" binddataset="ds_main_rsltcdlist" useinputpanel="false" position="absolute 481 31 613 562" autofittype="col" cellsizingtype="col" oncelldblclick="grd_rsltlist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="54"/>
                <Column size="56"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="결과코드"/>
                <Cell col="2" text="결과값"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" text="bind:rsltcd"/>
                <Cell col="2" text="bind:rsltcnts"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="결과목록" class="tit_2" position="absolute 482 9 567 25"/>
        <Shape id="line3" linetype="horizontal" class="line_10" position="absolute 481 26 613 32"/>
        <Shape id="line2" linetype="horizontal" position="absolute 235 26 477 32" class="line_10"/>
        <Grid id="grd_testlist2" taborder="2" binddataset="ds_main_testlist2" useinputpanel="false" position="absolute 235 31 477 562" autofittype="col" cellsizingtype="col" oncellclick="grd_testlist2_oncellclick" onkeyup="grd_testlist2_onkeyup" autoenter="none">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="25"/>
                <Column size="170"/>
                <Column size="50"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="검사코드"/>
                <Cell col="1"/>
                <Cell col="2" text="검사항목명"/>
                <Cell col="3" text="결과값"/>
              </Band>
              <Band id="body">
                <Cell text="bind:testcd"/>
                <Cell col="1" celltype="head" text="expr:currow + 1"/>
                <Cell col="2" style="align:left middle;" text="bind:tclsscrnm"/>
                <Cell col="3" displaytype="text" edittype="text" text="bind:reptrslt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_testlist" taborder="3" binddataset="ds_main_testlist" useinputpanel="false" position="absolute 0 31 232 562" autofittype="col" cellsizingtype="col" oncellclick="grd_testlist_oncellclick" onkeyup="grd_testlist_onkeyup" selecttype="row" autoenter="none">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="25"/>
                <Column size="160"/>
                <Column size="50"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="검사코드"/>
                <Cell col="1"/>
                <Cell col="2" text="검사항목명"/>
                <Cell col="3" text="결과값"/>
              </Band>
              <Band id="body">
                <Cell text="bind:testcd"/>
                <Cell col="1" celltype="head" text="expr:currow + 1"/>
                <Cell col="2" style="align:left middle;" text="bind:tclsscrnm"/>
                <Cell col="3" displaytype="text" edittype="text" text="bind:reptrslt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_cnfm" taborder="4" text="확인" class="btn4" position="absolute 227 571 283 593" onclick="btn_cnfm_onclick"/>
        <Button id="btn_close" taborder="5" text="닫기" class="btn4" position="absolute 353 571 409 593" onclick="btn_close_onclick"/>
        <Button id="btn_init" taborder="6" text="초기화" class="btn4" position="absolute 284 571 352 593" onclick="btn_init_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_rsltcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsltcd" type="STRING"/>
          <Column id="rsltcnts" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_testlist2" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING"/>
          <Column id="tclsscrnm" type="STRING"/>
          <Column id="reptrslt" type="STRING"/>
          <Column id="testcd2" type="STRING" size="256"/>
          <Column id="bufinptrslt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_testlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING"/>
          <Column id="tclsscrnm" type="STRING"/>
          <Column id="reptrslt" type="STRING"/>
          <Column id="testcd2" type="STRING" size="256"/>
          <Column id="bufinptrslt" 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="tclscd" type="STRING" size="256"/>
          <Column id="bcno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="temp" type="STRING" size="256"/>
          <Column id="urine" type="STRING" size="256"/>
          <Column id="bcno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_urineResult" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="chk" type="STRING"/>
          <column id="bcno" type="STRING"/>
          <column id="pid" type="STRING"/>
          <column id="hngnm" type="STRING"/>
          <column id="rsltstat" type="STRING"/>
          <column id="workdd" type="STRING"/>
          <column id="workno" type="STRING"/>
          <column id="erprcpflag" type="STRING"/>
          <column id="urinextrvol" type="STRING"/>
          <column id="urinextrtm" type="STRING"/>
          <column id="lastreptdt" type="STRING"/>
          <column id="spcacptdt" type="STRING"/>
          <column id="prcpdd" type="STRING"/>
          <column id="testcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_abnormallist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING"/>
          <Column id="tclsscrnm" type="STRING"/>
          <Column id="reptrslt" type="STRING"/>
          <Column id="testcd2" type="STRING" size="256"/>
          <Column id="bufinptrslt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <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";
include "lis_commonxp::LLZ001.xjs";

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

function SPLLR91300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_rsltlist);
	grdf_initGrid(grd_testlist);
	grdf_initGrid(grd_testlist2);
	
	try
	{
		ds_urineResult.copyData(arg_ds_urineResult);

	}catch(e){};
	fSetInit();
}

function fSetInit()
{	
	//테스트	

	var oParam = {};
		oParam.id          = "TRLLR91301";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetTest";
		oParam.inds        = "patinfo=ds_urineResult";
		oParam.outds       = "ds_main_testlist=getTest ds_main_testlist2=getTest2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLR91301";
	tranf_submit(oParam);

	grd_testlist.setCellPos(grd_testlist.getBindCellIndex("Body", "reptrslt"));
	grd_testlist.setFocus();
	fGetRslt();
	ds_main_testlist2.rowposition = -1;
}

//결과목록 조회
function fGetRslt(ref)
{
	 // 두번째그리드 
	if(ref=="2")
	{
		ds_send.setColumn(0, "tclscd", ds_main_testlist2.getColumn(ds_main_testlist2.rowposition, "testcd"));
	}
	else
	{
		ds_send.setColumn(0, "tclscd", ds_main_testlist.getColumn(ds_main_testlist.rowposition, "testcd"));
	}
	
	var oParam = {};
		oParam.id          = "TRLLF00702";
		oParam.service     = "diagtestbaseinfomngtapp.GeneralTestBaseInfoMngt";
		oParam.method      = "reqGetRsltList";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_main_rsltcdlist=getRsltList";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLF00702";
	tranf_submit(oParam);
}
function grd_testlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	ds_main_testlist2.rowposition = -1;
	if(e.col == 2)
	{	
		fGetRslt();
	}
}

function grd_testlist_onkeyup(obj:Grid, e:KeyEventInfo)
{
	if(obj.currentcol == 3)
	{
		if(e.keycode == 13)
		{
			fGetRslt2();
		}
	}
}

// 첫째그리드 결과값 넣을때 
function fGetRslt2()
{
	var Gcol = grd_testlist.currentcell;
	var Grow = ds_main_testlist.rowposition;
	
	var rslt = parseInt(ds_main_testlist.getColumn(Grow, "reptrslt"));
	
	if(rslt > 0 && rslt < ds_main_rsltcdlist.rowcount)
	{	
		ds_main_testlist.setColumn(ds_main_testlist.rowposition, "reptrslt", ds_main_rsltcdlist.getColumn(rslt -1, "rsltcnts"));
	}	
	ds_main_testlist.rowposition = Grow + 1;
	fGetRslt();
}

function grd_testlist2_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	ds_main_testlist.rowposition = -1;
	if(obj.currentcol == 2)
	{
		fGetRslt("2");
	}
}

function grd_testlist2_onkeyup(obj:Grid, e:KeyEventInfo)
{
	if(obj.currentcol == 3)
	{
		if(e.keycode == 13)
		{
			fGetRslt3();
		}
	}
}

//둘째그리드 결과값 넣을때 
function fGetRslt3()
{
	var Gcol = grd_testlist2.currentcell;
	var Grow = ds_main_testlist2.rowposition;
	
	var rslt = parseInt(ds_main_testlist2.getColumn(Grow, "reptrslt"));
	
	if(rslt > 0 && rslt < ds_main_testlist2.rowcount)
	{
		ds_main_testlist2.setColumn(ds_main_testlist2.rowposition, "reptrslt", ds_main_rsltcdlist.getColumn(rslt -1, "rsltcnts"));
	}	
	ds_main_testlist2.rowposition = Grow + 1;
	fGetRslt("2");
}

//확인
function btn_cnfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetDiffCnt();
}

//초기화
function btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetInit();
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

//확인
function fSetDiffCnt()
{
	var nrbcTF = false;
	cnt = 1;
	
	for(i = 0; i < ds_main_testlist.rowcount; i++)
	{
		if(!utlf_isNull(ds_main_testlist.getColumn(i, "reptrslt")))
		{
			ds_main_testlist.setColumn(i, "bufinptrslt", ds_main_testlist.getColumn(i, "reptrslt"));
			ds_main_testlist.setColumn(i, "testcd2", ds_urineResult.getColumn(0, "testcd"));
			cnt = ds_abnormallist.addRow();
			
			ds_abnormallist.copyRow(cnt, ds_main_testlist, i);
			
			nrbcTF= true;
		}
	}
	 // 두번째 그리드 
	for(i = 0; i < ds_main_testlist2.rowcount; i++)
	{
		if(!utlf_isNull(ds_main_testlist2.getColumn(i, "reptrslt")))
		{
		
			ds_main_testlist2.setColumn(i, "bufinptrslt", ds_main_testlist2.getColumn(i, "reptrslt"));
			ds_main_testlist2.setColumn(i, "testcd2", ds_main_testlist2.getColumn(i, "testcd"));
			cnt = ds_abnormallist.addRow();
			ds_abnormallist.copyRow(cnt, ds_main_testlist2, i);
			nrbcTF= true;
		}
	}
	
	if(nrbcTF)
	{
		opener.ds_copy_abnormallist.copyData(ds_abnormallist);
		this.close();
	}
	else
	{
		sysf_messageBox("결과 입력 된 검사가", "I004");
	}
	
}
function grd_rsltlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fSetRslt();
}

//결과값 넣기
function fSetRslt()
{
	var testcd = ds_main_rsltcdlist.getColumn(ds_main_rsltcdlist.rowposition, "tclscd");
	trace("testcd = " + testcd);
	var find1 = ds_main_testlist.findRow("testcd", testcd);
	trace("find1 = " + find1);
	
	if(find1 < 0)
	{
		var find2 = ds_main_testlist2.findRow("testcd", testcd)
		
		ds_main_testlist2.setColumn(ds_main_testlist2.rowposition, "reptrslt", ds_main_rsltcdlist.getColumn(ds_main_rsltcdlist.rowposition, "rsltcnts"));
	}
	else
	{
		ds_main_testlist.setColumn(ds_main_testlist.rowposition, "reptrslt", ds_main_rsltcdlist.getColumn(ds_main_rsltcdlist.rowposition, "rsltcnts"));
	}
	
}
]]></Script>
  </Form>
</FDL>