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

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLMR90500" position="absolute 0 0 724 614" titletext="Gram Stain 결과입력" oninit="SPLMR90500_oninit" onload="SPLMR90500_onload">
    <Layouts>
      <Layout>
        <TextArea id="object3" taborder="13" position="absolute 1 427 720 578" oneditclick="object1_oneditclick" onkeyup="object1_onkeyup" wordwrap="both" onsetfocus="object1_onsetfocus" ondragleave="object1_ondragleave" ondrag="object1_ondrag" visible="false"/>
        <Static id="caption2" text="Gram Stain 결과입력" class="tit_2" position="absolute 1 11 164 27"/>
        <Button id="button9" taborder="1" text="취소" class="btn4" position="absolute 661 590 717 612" onclick="button9_onclick"/>
        <Shape id="line2" linetype="horizontal" class="line_10" position="absolute 0 27 720 33"/>
        <Static id="caption4" text="Sputum Grade" class="cell_1" position="absolute 0 31 105 54"/>
        <Shape id="line4" linetype="horizontal" class="line_3" position="absolute 0 53 720 59"/>
        <Button id="btn_cfm" taborder="2" text="확인" class="btn4" position="absolute 605 590 661 612" onclick="btn_cfm_onclick"/>
        <Button id="button1" taborder="3" text="Clear" class="btn4" position="absolute 537 590 605 612" onclick="button1_onclick"/>
        <Static id="caption5" text="결과예문" class="tit_2" position="absolute 1 60 75 76"/>
        <Button id="button2" taborder="4" text="1" class="btn2" position="absolute 108 33 150 52" onclick="button2_onclick"/>
        <Button id="button3" taborder="5" text="2" class="btn2" position="absolute 151 33 193 52" onclick="button3_onclick"/>
        <Button id="button4" taborder="6" text="3" class="btn2" position="absolute 194 33 236 52" onclick="button4_onclick"/>
        <Button id="button5" taborder="7" text="4" class="btn2" position="absolute 237 33 279 52" onclick="button5_onclick"/>
        <Button id="button6" taborder="8" text="5" class="btn2" position="absolute 280 33 322 52" onclick="button6_onclick"/>
        <Button id="button7" taborder="9" text="6" class="btn2" position="absolute 323 33 365 52" onclick="button7_onclick"/>
        <Button id="button8" taborder="10" text="7" class="btn2" position="absolute 366 33 408 52" onclick="button8_onclick"/>
        <Grid id="grd_RsltCode" taborder="11" binddataset="ds_grd_RsltCode" useinputpanel="false" position="absolute 0 80 720 390" autofittype="col" cellsizingtype="none" selecttype="cell" oncellclick="grd_RsltCode_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="99"/>
                <Column size="99"/>
                <Column size="99"/>
                <Column size="99"/>
                <Column size="99"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="32"/>
              </Rows>
              <Band id="body">
                <Cell style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd1"/>
                <Cell col="1" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd2"/>
                <Cell col="2" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd3"/>
                <Cell col="3" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd4"/>
                <Cell col="4" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd5"/>
                <Cell col="5" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd6"/>
                <Cell col="6" style="align:left middle;background:#eeffffff;background2:#eeffffff;font:Dotum,14,bold;" text="bind:cd7"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="검사결과" class="tit_2" position="absolute 4 410 80 429"/>
        <ActiveX id="object1" position="absolute 0 430 721 570" progid="{CC980D81-CB5E-46A3-94F8-6925747F95E4}" useautobitmapcache="1" taborder="12" visible="true"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_RsltCode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd1" type="STRING"/>
          <Column id="cd2" type="STRING"/>
          <Column id="cd3" type="STRING"/>
          <Column id="cd4" type="STRING"/>
          <Column id="cd5" type="STRING"/>
          <Column id="cd6" type="STRING"/>
          <Column id="cd7" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_GRAMParm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bufParm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_LB0109" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="object3" propid="value" datasetid="ds_hidden_GRAMParm" columnid="bufParm"/>
    </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";
include "lis_commonxp::LLZ001.xjs";

var _ContentObject;
var _ContentPos;

function SPLMR90500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_RsltCode);
}

function SPLMR90500_onload(obj:Form, e:LoadEventInfo)
{
	ds_hidden_GRAMParm.setColumn(0, "bufParm", opener.frmf_getParameter("bufParm"));
	if( !utlf_isNull(opener.frmf_getParameter("bufParm")))
	{
		object1.SetString(opener.frmf_getParameter("bufParm")); 
	}
	
	var sInDsName = dsf_createDsRow("ds_temp_search", [{col: "codeflag", val: "0109|"}]);
	
	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_temp_search";
		oParam.outds       = "ds_LB0109=0109";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";
	tranf_submit(oParam);
	fRsltCodeSet();
}

function fRsltCodeSet()
{
	var testcd1  = "LMR100";
	
	ds_LB0109.filterstr = "etc01 == '" + testcd1 + "'";
	
	var n = ds_LB0109.rowcount;
	
	var gridRow = 0;
	var seq =0;
	ds_grd_RsltCode.addRow();
	
	for(i = 1; i <= n; i++)
	{			
		var cd = ds_LB0109.getColumn(i-1, "cd");
		var nm = ds_LB0109.getColumn(i-1, "nm");
		seq++;
		
		ds_grd_RsltCode.setColumn(gridRow, "cd"+seq, cd);
		
		if(i%7 == 0 && i !=n)
		{
			seq = 0;
			gridRow++;
			ds_grd_RsltCode.addRow();
		}
	}	
	object1.setFocus();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("1");
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("2");
}

function button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("3");
}

function button5_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("4");
}

function button6_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("5");
}

function button7_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("6");
}

function button8_onclick(obj:Button,  e:ClickEventInfo)
{
	fSputumInput("7");
}

function fSputumInput(code)
{
	var testcd2  = "LMR10001";
	ds_LB0109.filterstr = "";
	ds_LB0109.filterstr = "etc01 == '" + testcd2 + "' && cd == '" + code + "'";
	
	var nm = ds_LB0109.getColumn(0, "nm");
	
	nm = utlf_transNullToEmpty(nm);
	
	object1.PutInString(nm);
// 	if(utlf_isNull(nm))
// 	{
// 		nm = " ";
// 	}
// 	
// 	var sExmpCntsD = nm;
// 	var txtSelPos = _ContentPos;
// 	
// 	var curText = utlf_transNullToEmpty(_ContentObject.text);
// 	
// 	var curTextBefore = curText.substr(0, txtSelPos);
// 	
// 	var curTextAfter = curText.substr(txtSelPos, curText.length);
// 	
// 	var orgBfCaretText = curText.substr(0, _ContentPos)+sExmpCntsD;
// 	
// 	_ContentObject.value = curTextAfter + orgBfCaretText;
		
}

function object1_oneditclick(obj:TextArea,  e:EditClickEventInfo)
{
	_ContentObject = obj;
	_ContentPos = obj.getCaretPos();	
	trace("_ContentPos= " + _ContentPos);
}

function object1_onkeyup(obj:TextArea, e:KeyEventInfo)
{
	_ContentObject = obj;
	_ContentPos = obj.getCaretPos();
}


function object1_onsetfocus(obj:TextArea, e:SetFocusEventInfo)
{
	_ContentObject = obj;
	_ContentPos = obj.getCaretPos();
}

function grd_RsltCode_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	//trace("text = " + object1.getSelectedText());
	//trace("pos = " + object1.getCaretPos());
	fRsltCodeClick();
}

function fRsltCodeClick()
{
	var testcd1  = "LMR100";
	var row = grd_RsltCode.currentrow;
	var col = grd_RsltCode.currentcol;
	var code = ds_grd_RsltCode.getColumn(row, col);
	
	ds_LB0109.filterstr = "etc01 == '" + testcd1 + "' && cd == '" + code + "'";
	
	var nm = ds_LB0109.getColumn(0, "nm");
	var sExmpCntsD = nm;
	var txtSelPos = _ContentPos;
	object1.PutInString(nm);
// 	trace("sExmpCntsD =>>>>>>>>>>>>>>>>>>> " + sExmpCntsD);
// 	
// 	var curText = utlf_transNullToEmpty(_ContentObject.text);
// 	var curTextBefore = curText.substr(0, txtSelPos);
// 	
// 	trace("curTextBefore= " + curTextBefore);
// 	
// 	var curTextAfter = curText.substr(txtSelPos, curText.length);
// 	var orgBfCaretText = curText.substr(0, _ContentPos)+sExmpCntsD;
// 	trace("orgBfCaretText = " + orgBfCaretText);
// 	
// 	_ContentObject.value = curTextAfter + orgBfCaretText;
}
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	object1.value = "";
}

function btn_cfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fInput();
}

function fInput()
{
	ds_hidden_GRAMParm.setColumn(0, "bufParm", object1.GetString());
	opener.ds_hidden_GRAMParm.setColumn(0, "bufParm", ds_hidden_GRAMParm.getColumn(0, "bufParm"));
	this.close();
}

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