YNU_JEUS/app_home/himed/xpapps/ast/pharmacybasexp/xp/SMADB01600_TDM기준정보.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMADB01600" position="absolute 0 0 1194 784" titletext="TDM 기준정보" oninit="SMADB01600_oninit" onload="SMADB01600_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 91 1194 783" id="group3" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Button position="absolute 1018 0 1071 19" id="btn_grdcopy" class="btn2" text="행복사" anchor="top right" onclick="group3_btn_grdcopy_onclick"/>
              <Grid position="absolute 0 24 1194 692" id="grd_tdmlist" class="datagrid2" binddataset="ds_main_tdmlist" anchor="all" autofittype="col" cellsizingtype="both" onkeydown="group3_grd_tdmlist_onkeydown" onexpanddown="group3_grd_tdmlist_onexpanddown" autoenter="select" extendsizetype="row">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="20"/>
                      <Column size="81"/>
                      <Column size="200"/>
                      <Column size="57"/>
                      <Column size="60"/>
                      <Column size="57"/>
                      <Column size="57"/>
                      <Column size="57"/>
                      <Column size="64"/>
                      <Column size="65"/>
                      <Column size="56"/>
                      <Column size="61"/>
                      <Column size="38"/>
                      <Column size="152"/>
                      <Column size="125"/>
                    </Columns>
                    <Rows>
                      <Row size="35" 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="T1/2"/>
                      <Cell col="6" text="Vd"/>
                      <Cell col="7" text="Km"/>
                      <Cell col="8" text="VMax"/>
                      <Cell col="9" text="Clearance"/>
                      <Cell col="10" text="혈중농도"/>
                      <Cell col="11" text="약물농도&#10;측정여부"/>
                      <Cell col="12" text="조건"/>
                      <Cell col="13" text="치료(Trough)범위"/>
                      <Cell col="14" text="치료(Peak)범위"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" displaytype="image"/>
                      <Cell col="1" displaytype="text" edittype="expr:getRowType(currow) == 2 ? &quot;text&quot; : &quot;none&quot;" style="align:left middle;" text="bind:testcd" wordwrap="char" expandshow="show"/>
                      <Cell col="2" style="align:left middle;" text="bind:testnm" wordwrap="char"/>
                      <Cell col="3" displaytype="text" edittype="text" text="bind:testcdseq" wordwrap="char"/>
                      <Cell col="4" displaytype="combo" edittype="combo" text="bind:ioflag" wordwrap="char" combodataset="ds_cmb_ioflag" combocodecol="value" combodatacol="label"/>
                      <Cell col="5" displaytype="text" edittype="text" text="bind:t12val" wordwrap="char"/>
                      <Cell col="6" displaytype="text" edittype="text" text="bind:vdval" wordwrap="char"/>
                      <Cell col="7" displaytype="text" edittype="text" text="bind:kmval" wordwrap="char"/>
                      <Cell col="8" displaytype="text" edittype="text" text="bind:vmaxval" wordwrap="char"/>
                      <Cell col="9" displaytype="text" edittype="text" text="bind:clrc" wordwrap="char"/>
                      <Cell col="10" displaytype="text" edittype="text" text="bind:blodconcen" wordwrap="char"/>
                      <Cell col="11" displaytype="checkbox" edittype="checkbox" text="bind:tdmyn" expr="expr:(tdmyn==&quot;Y&quot; || tdmyn==1)?1:0" wordwrap="char"/>
                      <Cell col="12" displaytype="text" edittype="text" text="bind:cond" wordwrap="char"/>
                      <Cell col="13" displaytype="text" edittype="text" text="bind:trgh" wordwrap="char"/>
                      <Cell col="14" displaytype="text" edittype="text" text="bind:peak" wordwrap="char"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 962 0 1015 19" id="btn_grdadd" class="btn2" text="행추가" anchor="top right" onclick="group3_btn_grdadd_onclick"/>
              <Button position="absolute 1074 0 1127 19" id="btn_grddel" class="btn2" text="행삭제" anchor="top right" onclick="group3_btn_grddel_onclick"/>
              <Button position="absolute 1130 0 1194 19" id="btn_excsave" class="btn7" text="Excel" anchor="top right" onclick="group3_btn_excsave_onclick"/>
              <Static text="TDM 기준정보" position="absolute 0 4 127 19" id="caption10" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 19 1194 25" linetype="horizontal" id="line2" class="line_1" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 64 1194 91" id="group5" scrollbars="autoboth" anchor="left top right">
          <Layouts>
            <Layout>
              <Button position="absolute 1136 3 1192 25" id="btn_save" class="btn4" text="저장" anchor="right" onclick="group5_btn_save_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption19" text="TDM 기준정보" class="tit_1" position="absolute 0 0 160 25"/>
        <Div id="group2" taborder="1" class="div_SA" position="absolute 0 25 1194 65" anchor="left top right">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" position="absolute 1107 5 1113 35" anchor="top right bottom"/>
              <Static id="caption2" text="검사코드 :" class="search_name" position="absolute 20 12 111 29" anchor="default"/>
              <Edit id="ipt_srchtestcd" taborder="1" class="input" position="absolute 110 10 250 29" anchor="default" onkeyup="group2_ipt_srchtestcd_onkeyup"/>
              <Edit id="opt_search" taborder="2" readonly="true" class="output" position="absolute 280 10 610 29" anchor="default"/>
              <Button id="btn_sea" taborder="3" text="조회" class="btn1" position="absolute 1125 10 1181 32" anchor="top right bottom" onclick="group2_btn_sea_onclick"/>
              <Button id="btn_srch" taborder="4" class="icon_search" position="absolute 257 10 273 26" anchor="default" onclick="group2_btn_srch_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_tdmlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_tdmlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="testnm" type="STRING" size="256"/>
          <Column id="testcdseq" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="t12val" type="STRING" size="256"/>
          <Column id="vdval" type="STRING" size="256"/>
          <Column id="kmval" type="STRING" size="256"/>
          <Column id="vmaxval" type="STRING" size="256"/>
          <Column id="clrc" type="STRING" size="256"/>
          <Column id="blodconcen" type="STRING" size="256"/>
          <Column id="tdmyn" type="STRING" size="256"/>
          <Column id="cond" type="STRING" size="256"/>
          <Column id="trgh" type="STRING" size="256"/>
          <Column id="peak" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="testcd"/>
            <Col id="testnm"/>
            <Col id="testcdseq"/>
            <Col id="ioflag"/>
            <Col id="t12val"/>
            <Col id="vdval"/>
            <Col id="kmval"/>
            <Col id="vmaxval"/>
            <Col id="clrc"/>
            <Col id="blodconcen"/>
            <Col id="tdmyn"/>
            <Col id="cond"/>
            <Col id="trgh"/>
            <Col id="peak"/>
            <Col id="instcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_req_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchtestcd" type="STRING" size="256"/>
          <Column id="srchdrugcd" type="STRING" size="256"/>
          <Column id="srchtclscd" type="STRING" size="256"/>
          <Column id="srchtestnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchtestcd"/>
            <Col id="srchdrugcd"/>
            <Col id="srchtclscd"/>
            <Col id="srchtestnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_testitem" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="testnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_drugitem" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="drugcd" type="STRING" size="256"/>
          <Column id="drugnm" type="STRING" size="256"/>
        </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="count" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="t12val" type="STRING" size="256"/>
          <Column id="vdval" type="STRING" size="256"/>
          <Column id="kmval" type="STRING" size="256"/>
          <Column id="vmaxval" type="STRING" size="256"/>
          <Column id="clrc" type="STRING" size="256"/>
          <Column id="blodconcen" type="STRING" size="256"/>
          <Column id="tdmyn" type="STRING" size="256"/>
          <Column id="cond" type="STRING" size="256"/>
          <Column id="trgh" type="STRING" size="256"/>
          <Column id="peak" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="testcd"/>
            <Col id="instcd"/>
            <Col id="t12val"/>
            <Col id="vdval"/>
            <Col id="kmval"/>
            <Col id="vmaxval"/>
            <Col id="clrc"/>
            <Col id="blodconcen"/>
            <Col id="tdmyn"/>
            <Col id="cond"/>
            <Col id="trgh"/>
            <Col id="peak"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_testinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="testnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_receivedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="receiveref" type="STRING" size="256"/>
          <Column id="receivedrugcd" type="STRING" size="256"/>
          <Column id="drugcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="receiveref">ds_temp_receiveref</Col>
            <Col id="receivedrugcd">drugcd</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_ioflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">입원</Col>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_srchtestcd" propid="value" datasetid="ds_send" columnid="srchtestcd"/>
      <BindItem id="item1" compid="group2.opt_search" propid="value" datasetid="ds_send" columnid="srchtestnm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs"
include "ast_commonxp::AST.xjs"

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode 	= new HashArray();

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: N/A
 * Description		: 조회함수
 ****************************************************************************************/
function call_TRADB01601() {
	var oParam = {};
		oParam.id          = "TRADB01601";
		oParam.service     = "pharmacybaseapp.TDMBase";
		oParam.method      = "reqGetTDMBaseList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_tdmlist=item";
		oParam.async       = true;
		oParam.callback    = "cf_TRADB01601";

	tranf_submit(oParam);
}

function cf_TRADB01601(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    ds_main_tdmlist.updatecontrol = false;
    for(var i = 0 ; i < ds_main_tdmlist.rowcount ; i++) {
		if(ds_main_tdmlist.getColumn(i,"tdmyn") == "true") ds_main_tdmlist.setColumn(i,"tdmyn","Y");
		else ds_main_tdmlist.setColumn(i,"tdmyn","N");
    }
    ds_main_tdmlist.updatecontrol = true;
}
 
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SMADB01600
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시 폼초기화
 ****************************************************************************************/
function SMADB01600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  		// 폼 초기화 	
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SMADB01600
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시 폼초기화
 ****************************************************************************************/
function SMADB01600_onload(obj:Form, e:LoadEventInfo)
{
	// 권한 관리
	group5.btn_save.enable = frmf_checkAuth("X");    //  저장
	
	grdf_setRowTypeIcon(group3.grd_tdmlist, 0);

	ds_main_tdmlist.clearData();
	
//	ds_send.setColumn(0,"srchtestcd",ds_send.getColumn(0,"srchtestcd"));
	
	call_TRADB01601();
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: group2.ipt_srchtestcd
 * Event			: onkeyup
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사코드 입력 후 엔터로 조회
 ****************************************************************************************/
function group2_ipt_srchtestcd_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		var ev = new ClickEventInfo;
		frmf_inputEnterKey("group2.btn_sea", "onclick", ev );
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group2.btn_srch
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사코드 조회 팝업 오픈
 ****************************************************************************************/
function group2_btn_srch_onclick(obj:Button,  e:ClickEventInfo)
{
	//검사조회
	frmf_modal("SPADB62200","SPADB62200", "", "", 0, 200, 200, "", "", "", "", "", "M");	
	
	ds_send.setColumn(0,"srchtestcd",ds_temp_testinfo.getColumn(0,"testcd"));		
	ds_send.setColumn(0,"srchtestnm",ds_temp_testinfo.getColumn(0,"testnm"));
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group2.btn_sea
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 조회
 ****************************************************************************************/
function group2_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
//	model.setValue("/root/send/srchtestcd",model.getValue("/root/send/srchtestcd"));
	call_TRADB01601();

	ds_send.setColumn(0,"srchtestcd","");
	ds_send.setColumn(0,"srchtestnm","");
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group3.btn_grdadd
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 추가
 ****************************************************************************************/
function group3_btn_grdadd_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_tdmlist.addRow();
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group3.btn_grdcopy
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 복사
 ****************************************************************************************/
function group3_btn_grdcopy_onclick(obj:Button,  e:ClickEventInfo)
{
	var grdrow 	= ds_main_tdmlist.rowposition;

	dsf_copyColInfo(ds_hidden_item,ds_main_tdmlist);
 	ds_hidden_item.copyRow(ds_hidden_item.addRow(),ds_main_tdmlist,grdrow);
 	
 	ds_main_tdmlist.enableevent = false;
 	ds_main_tdmlist.insertRow(grdrow);
 	ds_main_tdmlist.copyRow(grdrow,ds_hidden_item,0);
 	ds_main_tdmlist.enableevent = true;
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group3.btn_grddel
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 삭제
 ****************************************************************************************/
function group3_btn_grddel_onclick(obj:Button,  e:ClickEventInfo)
{
	var cRow = ds_main_tdmlist.rowposition;
	
	if( ds_main_tdmlist.getRowType(cRow) == 2 ) {
		ds_main_tdmlist.deleteRow(cRow);
	}else{
		grdf_setStatus(group3.grd_tdmlist, "D", [cRow]);
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group3.btn_excsave
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 Excel저장
 ****************************************************************************************/
function group3_btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if( ds_main_tdmlist.rowcount > 0 ){
		grdf_exportExcel(group3.grd_tdmlist, "TDM 기준정보", "sheet", false, "", "user", false);
	} else {
		sysf_messageBox("조회된 데이터가 ", "I004");
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: group3.grd_tdmlist
 * Event			: onexpanddown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 리스트 검사코드 버튼 클릭
 ****************************************************************************************/
function group3_grd_tdmlist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.col == 1) {
		var instcd 		= "";
		var testcd 		= "";
		var testnm 		= "";
		var grdrow 		= e.row;
		
		// 입력상태에서만 검색가능(기관코드 있으면 입력상태로 간주) 
		instcd = ds_main_tdmlist.getColumn(grdrow,"instcd");	
		
		if (!utlf_isNull(instcd)) return;	

		frmf_modal("SPADB62200","SPADB62200", "", "", 0, 200, 200, "", "", "", "", "", "M");	
		testcd = ds_temp_testinfo.getColumn(0,"testcd");		
		testnm = ds_temp_testinfo.getColumn(0,"testnm");
		
		ds_main_tdmlist.setColumn(grdrow,"testcd",testcd);
		ds_main_tdmlist.setColumn(grdrow,"testnm",testnm);
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: group3.grd_tdmlist
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 리스트 검사코드 입력후 엔터로 조회
 ****************************************************************************************/
function group3_grd_tdmlist_onkeydown(obj:Grid, e:KeyEventInfo)
{
	var grdrow		= obj.currentrow;
	var grdcol 		= obj.currentcol;
	var srchtestcd 	= "";
	var srchdrugcd 	= "";

	if(e.keycode == 13) {
		if (grdcol == 1) {
			obj.updateToDataset();
			srchtestcd = ds_main_tdmlist.getColumn(grdrow,"testcd");
			
			if (utlf_isNull(srchtestcd)) {
				sysf_messageBox("검사코드를", "C001");
			} 
			
			ds_send.setColumn(0,"srchtclscd",srchtestcd);
			
			var oParam = {};
				oParam.id          = "TRADB01602";
				oParam.service     = "pharmacybaseapp.TDMBase";
				oParam.method      = "reqGetTestNm";
				oParam.inds        = "req=ds_send";
				oParam.outds       = "ds_init_testitem=testitem";
				oParam.async       = false;
				//oParam.callback    = "cf_TRADB01602";

			tranf_submit(oParam);

			ds_main_tdmlist.setColumn(grdrow,"testcd",ds_init_testitem.getColumn(0,"testcd"));
			ds_main_tdmlist.setColumn(grdrow,"testnm",ds_init_testitem.getColumn(0,"testnm"));
		}
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: group3.grd_tdmlist
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 리스트 검사코드 입력후 엔터로 조회
 ****************************************************************************************/
function ds_main_tdmlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "tdmyn") {
		obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
	} else if(e.columnid == "testcd" || e.columnid == "testcdseq") {
		var testcd 			=  "" ;
		var testcdseq 		=  "" ;
		var new_testcd 		= obj.getColumn(e.row,"testcd");
		var new_testcdseq 	= obj.getColumn(e.row,"testcdseq");
		
		for (var i = 0 ; i < obj.rowcount ; i++) {
			testcd 		= obj.getColumn(i,"testcd");
			testcdseq 	= obj.getColumn(i,"testcdseq");
			
			if ((new_testcd ==  testcd ) && (e.row != i ) ) {
				if (new_testcdseq == testcdseq) {
				   alert ("[ " + testcd + " ] 코드에 동일 일련번호 [" + testcdseq + "]가 발생되었습니다. 확인하여 주시기 바랍니다.");  
				   obj.setColumn(e.row,"testcdseq","");
				   group3.grd_tdmlist.setEditText("");
				   group3.grd_tdmlist.setCellPos(group3.grd_tdmlist.getBindCellIndex("body","testcdseq"));
				   return;
				}
			}
		}		
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group3.btn_save
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: TDM기준정보 저장
 ****************************************************************************************/
function group5_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	// 필수사항체크
	if(!frmf_chkMdtGrid(group3.grd_tdmlist, [1,2,3,4], ["검사코드","검사명","일련번호","입원/외래"])) return;
	
	var tdmyn 		= "";
	var updtdata 	= grdf_getGridUpdateData(group3.grd_tdmlist, "all");
	grdf_setStatusColumn(updtdata, "m");

	// 변경사항체크
	if (updtdata.rowcount == 0) {
		sysf_messageBox("변경된 데이터가","I004");
		return;
	}

	ds_send_req_data1.copyData(updtdata,true);
	
	var oParam = {};
		oParam.id          = "TXADB00601";
		oParam.service     = "pharmacybaseapp.TDMBase";
		oParam.method      = "reqexeTDMBase";
		oParam.inds        = "req=ds_send_req_data1";
		oParam.outds       = "ds_hidden=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TXADB00601";

	tranf_submit(oParam);
	
	call_TRADB01601();
}

]]></Script>
  </Form>
</FDL>