YNU_JEUS/app_home/himed/xpapps/lis/diagtestbaseinfomngtxp/xp/SPLLF91000_대체코드관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLLF91000" position="absolute 0 0 1241 744" titletext="대체코드관리" oninit="SPLLF91000_oninit" onload="SPLLF91000_onload">
    <Layouts>
      <Layout>
        <Div id="Div00" taborder="12" position="absolute 0 25 1237 62" class="div_SA"/>
        <Static id="caption3" text="대체코드 조회" class="tit_2" position="absolute 5 76 115 93" anchor="left top"/>
        <Button id="button2" taborder="2" text="행추가" class="btn2" visible="false" position="absolute 1027 71 1080 90" enable="true" onclick="button2_onclick" anchor="top right"/>
        <Button id="button1" taborder="3" text="행삭제" class="btn2" visible="false" position="absolute 1083 71 1136 90" enable="true" onclick="button1_onclick" anchor="top right"/>
        <Grid id="grd_replcecdlist" taborder="4" binddataset="ds_grd_replcecdlist" useinputpanel="false" position="absolute 1 96 1239 742" anchor="all" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="29"/>
                <Column size="67"/>
                <Column size="183"/>
                <Column size="55"/>
                <Column size="87"/>
                <Column size="81"/>
                <Column size="34"/>
                <Column size="76"/>
                <Column size="79"/>
                <Column size="50"/>
                <Column size="51"/>
                <Column size="39"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="44"/>
                <Column size="135"/>
                <Column size="65"/>
                <Column size="110"/>
                <Column size="51"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="처방코드"/>
                <Cell col="2" text="처방명"/>
                <Cell col="3" text="수가그룹&#10;구분"/>
                <Cell col="4" text="처방가능&#10;여부(수가)"/>
                <Cell col="5" text="보험코드"/>
                <Cell col="6" text="처방&#10;분류"/>
                <Cell col="7" style="align:left middle;" text="Class번호(OLD)"/>
                <Cell col="8" style="align:left middle;" text="처방코드(OLD)"/>
                <Cell col="9" style="align:left middle;" text="처방사전&#10;번호(OLD)"/>
                <Cell col="10" style="align:left middle;" text="행위코드(OLD)"/>
                <Cell col="11" style="align:left middle;" text="임상구분(1:건진)"/>
                <Cell col="12" style="align:left middle;" text="시행부서(검사)"/>
                <Cell col="13" style="align:left middle;" text="검사분류(검사)"/>
                <Cell col="14" style="align:left middle;" text="처방가능여부(검사)"/>
                <Cell col="15" text="검사명"/>
                <Cell col="16" text="대체코드"/>
                <Cell col="17" text="비고"/>
                <Cell col="18" text="오류유형"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" style="align:left middle;" text="bind:calcscorcd"/>
                <Cell col="2" style="align:left middle;" text="bind:ordnm"/>
                <Cell col="3" displaytype="normal" edittype="none" text="bind:grupsnglflag"/>
                <Cell col="4" displaytype="normal" text="bind:ordinptflag"/>
                <Cell col="5" style="align:left middle;" text="bind:insuedicd"/>
                <Cell col="6" text="bind:prcpclscd"/>
                <Cell col="7" text="bind:etcflag2"/>
                <Cell col="8" text="bind:oldordcd"/>
                <Cell col="9" text="bind:oldseqno"/>
                <Cell col="10" text="bind:oldsnglcd"/>
                <Cell col="11" text="bind:clincresyn"/>
                <Cell col="12" text="bind:tsectcd"/>
                <Cell col="13" displaytype="text" edittype="text" style="background:#99ccffff;" text="bind:testmdlcd"/>
                <Cell col="14" text="bind:prcppossyn"/>
                <Cell col="15" style="align:left middle;" text="bind:tclsscrnnm"/>
                <Cell col="16" displaytype="text" edittype="text" style="background:#99ccffff;" text="bind:tocalcscorcd"/>
                <Cell col="17" displaytype="text" edittype="text" style="background:#99ccffff;" text="bind:remark"/>
                <Cell col="18" text="bind:errflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excel" taborder="5" text="엑셀저장" class="btn7" position="absolute 1165 70 1238 90" onclick="btn_excel_onclick" anchor="top right"/>
        <Shape id="line3" linetype="vertical" class="line_4" position="absolute 582 32 588 54" anchor="left top"/>
        <Button id="btn_Ref" taborder="6" text="조회" class="btn1" position="absolute 600 32 656 54" onclick="btn_Ref_onclick" anchor="left top"/>
        <Static id="caption1" text="조회구분 :" class="search_name" position="absolute 15 34 105 51" anchor="left top"/>
        <Combo id="cmbflag" taborder="7" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 108 33 258 52" anchor="left top">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">처방코드</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">처방명</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">검사코드</Col>
              </Row>
              <Row>
                <Col id="codecolumn">5</Col>
                <Col id="datacolumn">검사명</Col>
              </Row>
              <Row>
                <Col id="codecolumn">6</Col>
                <Col id="datacolumn">대체코드</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Edit id="input1" taborder="8" position="absolute 264 33 415 52" onkeydown="input1_onkeydown" anchor="left top"/>
        <Combo id="combo3" taborder="9" innerdataset="@ds_init_LB0106" codecolumn="cd" datacolumn="nm" position="absolute 420 33 570 52" anchor="left top"/>
        <Button id="btn_reset" taborder="10" text="초기화" class="btn4" position="absolute 1170 3 1238 25" onclick="btn_reset_onclick" anchor="top right"/>
        <Button id="btn_cnfm" taborder="11" text="저장" class="btn4" enable="false" position="absolute 1111 3 1167 25" onclick="btn_cnfm_onclick" anchor="top right"/>
        <Static id="caption6" text="대체코드관리" class="tit_1" position="absolute 0 0 176 25" anchor="left top"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_combo3" 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_grd_replcecdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="calcscorcd" type="STRING"/>
          <Column id="ordnm" type="STRING"/>
          <Column id="grupsnglflag" type="STRING"/>
          <Column id="ordinptflag" type="STRING"/>
          <Column id="insuedicd" type="STRING"/>
          <Column id="prcpclscd" type="STRING"/>
          <Column id="etcflag2" type="STRING"/>
          <Column id="oldordcd" type="STRING"/>
          <Column id="oldseqno" type="STRING"/>
          <Column id="oldsnglcd" type="STRING"/>
          <Column id="clincresyn" type="STRING"/>
          <Column id="tsectcd" type="STRING"/>
          <Column id="testmdlcd" type="STRING"/>
          <Column id="prcppossyn" type="STRING"/>
          <Column id="tclsscrnnm" type="STRING"/>
          <Column id="tocalcscorcd" type="STRING"/>
          <Column id="remark" type="STRING"/>
          <Column id="errflag" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmbflag" 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">1</Col>
          </Row>
          <Row>
            <Col id="label">처방코드</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">처방명</Col>
            <Col id="value">3</Col>
          </Row>
          <Row>
            <Col id="label">검사코드</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="label">검사명</Col>
            <Col id="value">5</Col>
          </Row>
          <Row>
            <Col id="label">대체코드</Col>
            <Col id="value">6</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_text" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_LB0000" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_LB0111" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_LB9987" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" 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="cmbflag" type="STRING" size="256"/>
          <Column id="text1" type="STRING" size="256"/>
          <Column id="select02" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="refgbn" type="STRING" size="256"/>
          <Column id="searchtext" type="STRING" size="256"/>
          <Column id="grddata" type="STRING" size="256"/>
          <Column id="codeflag" type="STRING" size="256"/>
          <Column id="tsect" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_LB0106" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_grddata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="insuedicd" type="STRING" size="256"/>
          <Column id="tsectcd" type="STRING" size="256"/>
          <Column id="testmdlcd" type="STRING" size="256"/>
          <Column id="tocalcscorcd" type="STRING" size="256"/>
          <Column id="remark" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_refgbn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="refgbn" type="STRING" size="256"/>
          <Column id="searchtext" type="STRING" size="256"/>
          <Column id="tsect" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="input1" propid="value" datasetid="ds_text" columnid=""/>
      <BindItem id="item1" compid="cmbflag" propid="value" datasetid="ds_hidden" columnid="cmbflag"/>
      <BindItem id="item2" compid="combo3" propid="value" datasetid="ds_hidden" columnid="select02"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-09
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-09      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LLZ001.xjs";
include "lis_commonxp::LZZ001.xjs";

function cf_TRLZZ00101(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
}

function cf_TRLLF91001(strSvcID, nErrorCode, strErrorMag){	
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
}

function SPLLF91000_oninit(obj:Form, e:InitEventInfo)
{
	//폼 초기화 함수
	frmf_initForm(obj);
}

function SPLLF91000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setRowTypeIcon(grd_replcecdlist, 0);
	grdf_initGrid(grd_replcecdlist);
	
	//조회구분
	cmbflag.value = '1';
	ds_hidden.setColumn(0, 'select02', '00');

	var sInDsName = dsf_createDsRow("ds_temp_search", [{col: "codeflag",   val : "0000|0111|0106|9987|"}]);
	
	var oParam = {};
    oParam.id          = "TRLZZ00101";
    oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
    oParam.method      = "reqGetInitCodeInfo";
    oParam.inds        = "cond=" + sInDsName;
    oParam.outds       = "ds_init_LB0000=0000 ds_init_LB0111=0111 ds_init_LB0106=0106 ds_init_LB9987=9987"
    oParam.async       = false;
    oParam.callback    = "cf_TRLZZ00101";

	tranf_submit(oParam);
	
	fChkPatU(); 
	
	fGetReplceCode();
	
	
}
//권한여부
function fChkPatU()
{

	//var Chkuserid = model.getValue("/root/init/LB0000/cd");
	var chkuserid = ds_init_LB0000.getColumn(0, "cd");
	
	//var n  = getNodesetCount("/root/init/LB9987[cd='" + chkuserid + "']");
	ds_init_LB9987.filterstr ="cd==" + chkuserid;
	var n = ds_init_LB9987.rowcount;
	
	if(n < 0)
	{
		btn_cnfm.disabled = false;
	}
	else
	{
		btn_cnfm.disabled = true;
	}

}
			
//조회
function fGetReplceCode()
{	

// 	model.setValue("/root/send/refgbn",       model.getValue("/root/hidden/ref/cmbflag"));  // 조회구분 
// 	model.setValue("/root/send/searchtext", model.getValue("/root/hidden/ref/text1"));
// 	model.setValue("/root/send/tsect",         model.getValue("/root/hidden/ref/select02"));
	
	ds_send.setColumn(0, "refgbn", ds_hidden.getColumn(0, "cmbflag"));
	ds_send.setColumn(0, "searchtext", ds_hidden.getColumn(0, "text1"));
	ds_send.setColumn(0, "tsect", ds_hidden.getColumn(0, "select02"));
	
	var oParam = {};
    oParam.id          = "TRLLF91001";
    oParam.service     = "diagtestbaseinfomngtapp.GeneralTestBaseInfoMngt";
    oParam.method      = "reqGetReplceCode";
    oParam.inds        = "cond=ds_send";
    oParam.outds       = "ds_grd_replcecdlist=getReplcecode";
    oParam.async       = false;
    oParam.callback    = "cf_TRLLF91001";

	tranf_submit(oParam);

}

//행추가
function fInsRowAdd()
{
	var addRw = ds_grd_replcecdlist.addRow();
	var arrPostion = new Array();
	arrPostion[0] = addRw;
	grdf_setStatus(grd_replcecdlist, "I", arrPostion);
}

//행삭제
function fInsRowdel()
{
 	var row = ds_grd_replcecdlist.rowposition;
	var selectyn = ds_grd_replcecdlist.getColumn(row, "selectyn");
	
	if(selectyn == "Y")
	{
		messageBox("이미 등록된 성분제제는 삭제할 수 없습니다.","I");	
		return;
	}
	var arrPostion = new Array();
	arrPostion[0] = ds_grd_replcecdlist.rowposition;
	grdf_setStatus(grd_replcecdlist, "D", arrPostion);
}	


//저장 수정
function fExeReplceCd()
{
	var grddata = grdf_getGridUpdateData(grd_replcecdlist, "all");

	if(grddata == "")
	{
		alert("수정된 데이터가 없습니다. ");
	}else
	{
		//model.setValue("/root/send/grddata", grddata);
		ds_send.setColumn(grddata, "grddata");
		
		var oParam = {};
		oParam.id          = "TXLLF91001";
		oParam.service     = "diagtestbaseinfomngtapp.GeneralTestBaseInfoMngt";
		oParam.method      = "reqExeReplceCode";
		oParam.inds        = "cond=ds_grddata";
		oParam.async       = false;
		oParam.callback    = "cf_TXLLF91001";

		tranf_submit(oParam);
		
		
		fGetReplceCode();  // 수정된후 재조회 
	}
}


function btn_Ref_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetReplceCode();
}

function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_replcecdlist, lf_lisGetTitle(this), "see");
}

function btn_reset_onclick(obj:Button,  e:ClickEventInfo)
{
	this.reload();
}



function input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	//if (event.keycode == "13")
	if(e.keycode == 13)
	{
		ds_send.setColumn(0, "searchtext", input1.text);	
		ds_send.setColumn(0, "refgbn", ds_hidden.getColumn(0, "cmbflag"));
		ds_send.setColumn(0, "tsect", ds_hidden.getColumn(0, "select02"));

		var oParam = {};
		oParam.id          = "TRLLF91001";
		oParam.service     = "diagtestbaseinfomngtapp.GeneralTestBaseInfoMngt";
		oParam.method      = "reqGetReplceCode";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_grd_replcecdlist=getReplcecode";
		oParam.async       = false;
		oParam.callback    = "cf_TRLLF91001";

		tranf_submit(oParam);
		//model.setValue("/root/hidden/ref/text1"  , "" ); 
		ds_hidden.setColumn(text, "");
	}
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fInsRowAdd();
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fInsRowdel();
}

function btn_cnfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeReplceCd();
}
]]></Script>
  </Form>
</FDL>