YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLMR90300_균주보관등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLMR90300" position="absolute 0 0 266 230" titletext="균주보관등록" oninit="SPLMR90300_oninit" onload="SPLMR90300_onload">
    <Layouts>
      <Layout>
        <Static id="caption2" text="보관균주" class="tit_2" position="absolute 5 10 100 27"/>
        <Shape id="line2" class="line_1" position="absolute 0 27 263 33" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption5" text="환자명" class="cell_1" position="absolute 0 -140 72 -117"/>
        <Shape id="line4" class="line_2" position="absolute 0 52 263 58" style="strokepen:1 solid #33bbbbff;"/>
        <Shape id="line5" class="line_2" position="absolute 0 76 263 82" style="strokepen:1 solid #33bbbbff;"/>
        <Shape id="line6" class="line_2" position="absolute 0 100 263 106" style="strokepen:1 solid #33bbbbff;"/>
        <Shape id="line9" class="line_3" position="absolute 0 190 263 196" style="strokepen:1 solid #33bbbbff;"/>
        <TextArea id="textarea1" taborder="1" position="absolute 103 104 263 191"/>
        <Static id="caption10" text="특이사항" class="cell_1" position="absolute 0 103 100 191"/>
        <Edit id="input4" taborder="2" class="input_essential" position="absolute 103 32 263 51"/>
        <Edit id="input1" taborder="3" class="input_essential" position="absolute 103 56 263 75"/>
        <Combo id="combo4" taborder="4" innerdataset="@ds_init_LB0209" codecolumn="cd" datacolumn="nm" class="combo_essential" position="absolute 103 80 263 99"/>
        <Static id="caption3" text="바코드번호" class="cell_1" position="absolute 0 31 100 54"/>
        <Static id="caption4" text="보관균주" class="cell_1" position="absolute 0 55 100 78"/>
        <Static id="caption6" text="보관균주그룹" class="cell_1" position="absolute 0 79 100 102"/>
        <Shape id="line10" class="line_6" position="absolute 0 198 263 204" style="strokepen:1 solid #33bbbbff;"/>
        <Button id="button4" taborder="5" text="확인" class="btn4" position="absolute 149 200 205 222" onclick="button4_onclick"/>
        <Button id="button9" taborder="6" text="취소" class="btn4" position="absolute 208 200 264 222" onclick="button9_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_LB0209" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING"/>
          <Column id="cd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_keepbaclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="bacscrnnm" type="STRING" size="256"/>
          <Column id="spcfcnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_ref" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="baccd" type="STRING" size="256"/>
          <Column id="bacscrnnm" type="STRING" size="256"/>
          <Column id="bacseqno" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="rsltseq" 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="keepbac" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="keepbac">00</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_keeplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="keepno" type="STRING" size="256" sumtext="배양균"/>
          <Column id="bacnm" type="STRING" size="256" sumtext="배양균"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="combo4" propid="value" datasetid="ds_hidden" columnid="keepbac"/>
      <BindItem id="item1" compid="input4" propid="value" datasetid="ds_keepbaclist" columnid="bcno"/>
      <BindItem id="item2" compid="input1" propid="value" datasetid="ds_keepbaclist" columnid="bacscrnnm"/>
      <BindItem id="item3" compid="textarea1" propid="value" datasetid="ds_keepbaclist" columnid="spcfcnts"/>
    </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 SPLMR90300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	
	ds_hidden_ref.copyData(arg_ds_hidden_ref);
	
}

function SPLMR90300_onload(obj:Form, e:LoadEventInfo)
{
	fSetData();
}

function fSetData()
{
	ds_keepbaclist.setColumn(0, "bcno", ds_hidden_ref.getColumn(0, "bcno"));
	ds_keepbaclist.setColumn(0, "bacscrnnm", ds_hidden_ref.getColumn(0, "bacscrnnm"));
	dsf_createDsRow("ds_send", [{col :"codeflag", val : "0209|"}]);	//균주그룹
	
	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_LB0209=0209";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";
	tranf_submit(oParam);
}


//확인
function button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeKeepBac();
}

//확인
function fExeKeepBac()
{
	if(ds_hidden.getColumn(0, "keepbac") == "00")
	{ 
		alert("균주그룹을 선택해주십시오");
	}
	else
	{
		
		dsf_createDsRow("ds_send", [{col : "bcno", val : ds_hidden_ref.getColumn(0, "bcno")}
		                           ,{col : "spccd", val : ds_hidden_ref.getColumn(0, "spccd")}
		                           ,{col : "baccd", val : ds_hidden_ref.getColumn(0, "baccd")}
		                           ,{col : "bacscrnnm", val : ds_hidden_ref.getColumn(0, "bacscrnnm")}
		                           ,{col : "bacseqno", val : ds_hidden_ref.getColumn(0, "bacseqno")}
		                           ,{col : "testcd", val : ds_hidden_ref.getColumn(0, "testcd")}
		                           ,{col : "rsltseq", val : ds_hidden_ref.getColumn(0, "rsltseq")}
		                           ,{col : "spcfcnts", val : ds_keepbaclist.getColumn(0, "spcfcnts")}
		                           ,{col : "keepstrncd", val : ds_hidden.getColumn(0, "keepbac")}]);
		                           
		var oParam = {};
			oParam.id          = "TRLMR90401";
			oParam.service     = "rsltmngtapp.RsltMngt";
			oParam.method      = "reqGetPatKeepInfo";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_keeplist=getPatKeepInfo";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLMR90401";
		tranf_submit(oParam);
		
		
		var keepno = ds_keeplist.getColumn(0, "keepno");
		
		
		if(keepno == "-"){		
		}
		else
		{						
			var retval = alert( "보관된 균이 있습니다.  \n등록 하시겠습니까?", "결과관리", "35" );
			if (retval != "6") return; // yes = 6, no = 7						
		}
		
		var oParam = {};
			oParam.id          = "TXLMR90301";
			oParam.service     = "rsltmngtapp.RsltMngt";
			oParam.method      = "reqSaveKeepBacList";
			oParam.inds        = "cond=ds_send";
			oParam.async       = false;
			//oParam.callback    = "cf_TXLMR90301";
		tranf_submit(oParam);	
		this.close();
	}	
	
}		

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