YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO16600_코드조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO16600" position="absolute 0 0 616 344" titletext="코드조회" oninit="SPMMO16600_oninit" onload="SPMMO16600_onload">
    <Layouts>
      <Layout>
        <Static text="코드조회" position="absolute 0 0 82 25" id="cap_title" class="tit_1"/>
        <Shape position="absolute 0 80 525 81" linetype="vertical" id="line1" class="line_1"/>
        <Static text="코드조회" position="absolute 0 91 115 111" id="cap_subtitle" class="tit_2"/>
        <Grid position="absolute 0 109 616 344" id="grd_prcplist" binddataset="ds_infolist" autofittype="col" cellclickbound="cell" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="100"/>
                <Column size="254"/>
                <Column size="262"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="처방코드"/>
                <Cell col="1" text="처방명"/>
                <Cell col="2" text="처방한글명"/>
              </Band>
              <Band id="body">
                <Cell style="align:left middle;" text="bind:code"/>
                <Cell col="1" style="align:left middle;" text="bind:engnm"/>
                <Cell col="2" style="align:left middle;" text="bind:hngnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="Div00" taborder="1" position="absolute 0 25 616 86" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="cap_code" class="search_name" position="absolute 10 8 93 28" anchor="default"/>
              <Edit id="ipt_code" taborder="1" class="input_essential" position="absolute 108 8 232 28" anchor="default" inputmode="upper" onkeydown="Div00_ipt_code_onkeydown" autoselect="true"/>
              <Static id="cap_name" class="search_name" position="absolute 10 33 93 53" anchor="default"/>
              <Edit id="ipt_name" taborder="2" class="input_essential" position="absolute 108 33 429 53" anchor="default" onkeydown="Div00_ipt_name_onkeydown" autoselect="true"/>
              <Button id="btn_req" taborder="3" text="조회" class="btn1" position="absolute 551 21 607 41" anchor="top right" onclick="Div00_btn_req_onclick"/>
              <Shape id="line3" linetype="vertical" position="absolute 532 5 538 58" anchor="top right"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="code" type="STRING" size="256"/>
          <Column id="name" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_infolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="code" type="STRING" size="256"/>
          <Column id="engnm" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Div00.ipt_code" propid="value" datasetid="ds_cond" columnid="code"/>
      <BindItem id="item1" compid="Div00.ipt_name" propid="value" datasetid="ds_cond" columnid="name"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

var code   = opener.ds_cond.getColumn(0, "code");
var fromdd = opener.ds_cond.getColumn(0, "fromdd");
var todd   = opener.ds_cond.getColumn(0, "todd");

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

function SPMMO16600_onload(obj:Form, e:LoadEventInfo)
{
	fCodeSrchInit();
	
	ds_cond.setColumn(0, "fromdd", fromdd);
	ds_cond.setColumn(0, "todd",   todd)
	
	Div00.ipt_name.setFocus();
}

function Div00_ipt_code_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
		Div00.btn_req.onclick.fireEvent(Div00.btn_req, new ClickEventInfo());
}

function Div00_ipt_name_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
		Div00.btn_req.onclick.fireEvent(Div00.btn_req, new ClickEventInfo());
}

function Div00_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetData();
}

 /*
 * @desc   : 업무협조문 코드조회 초기화
 * @
 * @param  :
 * @return :
 * @author : 김영학
 * @---------------------------------------------------
 */
 function fCodeSrchInit() {
	ds_infolist.clearData();
	
	if (code == "P") {
		Div00.cap_code.text 	    = "처방코드 :";
		Div00.cap_name.text 	    = "처 방 명 :"
		cap_subtitle.text 		    = "처방코드조회"
		
		grd_prcplist.setCellProperty("head", 0, "text", "처방코드");
		grd_prcplist.setCellProperty("head", 1, "text", "처방명");
		grd_prcplist.setCellProperty("head", 2, "text", "처방한글명");
	} else {
		Div00.cap_code.text      	= "진단코드 :";
		Div00.cap_name.text      	= "진 단 명 :"			
		cap_subtitle.text       	= "진단코드조회"
		
		grd_prcplist.setCellProperty("head", 0, "text", "진단코드");
		grd_prcplist.setCellProperty("head", 1, "text", "진단명");
		grd_prcplist.setCellProperty("head", 2, "text", "진단한글명");
	}
}

/**
  * @desc   : 진단용어코드 검색
  * @                   
  * @param  :
  * @return :
  * @author : 오지훈    -- 2008. 12. 08 . 업무협조문에 맞게 내용수정
  * @---------------------------------------------------
  */
 function fSearchDiagTermCD(){
    var icd10cd   =   Div00.ipt_code.text;
    var diagengnm =   Div00.ipt_name.text;
    if(utlf_isNull(icd10cd) && utlf_isNull(diagengnm)){ //아무 값도 입력하지 않는 경우 return
		return;
    }
    
    if (utlf_isNull(icd10cd)) {
		frmf_setParameter("SPMMO00800_cond1", 2);
		frmf_setParameter("SPMMO00800_cond2", 4);
		frmf_setParameter("SPMMO00800_cond3", utlf_isHangul(diagengnm));
		frmf_setParameter("SPMMO00800_cond4", utlf_getCurrentDate());
		frmf_setParameter("SPMMO00800_cond5", diagengnm);
    } else if (utlf_isNull(diagengnm)) {
		frmf_setParameter("SPMMO00800_cond1", 1);
		frmf_setParameter("SPMMO00800_cond2", 4);
		frmf_setParameter("SPMMO00800_cond3", "E");
		frmf_setParameter("SPMMO00800_cond4", utlf_getCurrentDate());
		frmf_setParameter("SPMMO00800_cond5", icd10cd);
    }
 
    frmf_modal("SPMMO00850", "SPMMO00850", null, null, null, null, null, null, null, null, null, null, "M");
    //lyj 수정
    //modal("SPMMO00800");
 
    var useyn = frmf_getParameter("SPMMO00800_rtn_useyn");
    if(useyn == "Y"){
		frmf_setParameter("SPMMO00800_rtn_useyn", "");
		fSetDiagTermCD();
    } else {
		frmf_setParameter("SPMMO00800_rtn_useyn", "");
		ds_cond.setColumn(0, "code", "");
		ds_cond.setColumn(0, "name", "");
    }
}
 
 /**
  * @desc   : 진단용어코드 설정
  * @
  * @param  :
  * @return :
  * @author : 오지훈   -- 2008. 12. 08 . 업무협조문에 맞게 내용수정
  * @---------------------------------------------------
  */
 function fSetDiagTermCD(){    
    var rtnparam = frmf_getParameter("SPMMO00800_rtn");   
    rtnparam = rtnparam.split("▩");
    
    for(var i = 1; i < rtnparam.length - 1; i++){ 
		var tmpstr = rtnparam[i];
		tmpstr = tmpstr.split("▦");
 	  
		var currow = ds_infolist.addRow();

		ds_infolist.setColumn(currow, "code" , tmpstr[3]);
		ds_infolist.setColumn(currow, "engnm", tmpstr[6]);
		ds_infolist.setColumn(currow, "hngnm", tmpstr[5]);
    }
}

/**
  * @desc   : 처방코드 검색
  * @                   
  * @param  :
  * @return :
  * @author : 김영학 (2008.12.10)
  * @---------------------------------------------------
  */
 function fSearchPrcpTermCD(){
    var icd10cd   =   Div00.ipt_code.text;
    var diagengnm =   Div00.ipt_name.text;
    var fromdd    =   ds_cond.getColumn(0, "fromdd");
    var todd      =   ds_cond.getColumn(0, "todd");
    
    if(utlf_isNull(icd10cd) && utlf_isNull(diagengnm)){ //아무 값도 입력하지 않는 경우 return
		return;
    }

    if (utlf_isNull(icd10cd)) {
		frmf_setParameter("SPMMO00800_cond1", 2);
		frmf_setParameter("SPMMO00800_cond5", diagengnm);  
		frmf_setParameter("SPMMO00800_fromdd", fromdd);  
		frmf_setParameter("SPMMO00800_todd"  , todd);  
    } else if (utlf_isNull(diagengnm)) {
		frmf_setParameter("SPMMO00800_cond1", 1);
		frmf_setParameter("SPMMO00800_cond5", icd10cd);  
		frmf_setParameter("SPMMO00800_fromdd", fromdd);  
		frmf_setParameter("SPMMO00800_todd"  , todd);  
    }

    frmf_modal("SPMMO16700", "SPMMO16700", null, null, null, null, null, null, null, null, null, null, "M");
 
    var useyn = frmf_getParameter("SPMMO00800_rtn_useyn");
    if(useyn == "Y"){
		frmf_setParameter("SPMMO00800_rtn_useyn", "");
		fSetPrcpTermCD();
    }else{
		frmf_setParameter("SPMMO00800_rtn_useyn", "");
		ds_cond.getColumn(0, "code", "");
	}
}
 
 
 
  /**
  * @desc   : 처방코드 설정
  * @
  * @param  :
  * @return :
  * @author : 김영학 (2008.12.10)
  * @---------------------------------------------------
  */
 function fSetPrcpTermCD(){    
    var rtnparam = frmf_getParameter("SPMMO00800_rtn");
    rtnparam = rtnparam.split("▩");
        
    for(var i = 1; i < rtnparam.length - 1; i++){ 
		var tmpstr = rtnparam[i];
		tmpstr = tmpstr.split("▦");

		var currow = ds_infolist.addRow();

		ds_infolist.setColumn(currow, "code" , tmpstr[1]);
		ds_infolist.setColumn(currow, "engnm", tmpstr[2]);
		ds_infolist.setColumn(currow, "hngnm", tmpstr[3]);
    }
}

/**
  * @desc   : 코드조회
  * @
  * @param  :
  * @return :
  * @author : 김영학 (2008.12.12)
  * @---------------------------------------------------
  */ 
 function fGetData() {
	if (code == "P")
		fSearchPrcpTermCD();
	else
		fSearchDiagTermCD();
	
	var sRtnMsg = sysf_messageBox("추가로 코드를 검색", "S001");
	if (sRtnMsg != "6" ) {
		var rtn1 = dsf_getDsCSV(ds_infolist);
		opener.frmf_setParameter( "SPMMO16300", rtn1 );
		close();
	}
}]]></Script>
  </Form>
</FDL>