YNU_JEUS/app_home/himed/xpapps/emr/carerecxp/xp/SPMNR02700_ICNP코드등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNR02700" position="absolute 0 0 349 400" titletext="ICNP코드등록 및 수정" oninit="SPMNR02700_oninit" onload="SPMNR02700_onload">
    <Layouts>
      <Layout>
        <Shape id="line1" class="line_10" position="absolute 0 16 345 22"/>
        <Static id="caption14" text="등록코드 구분" class="cell_1" position="absolute 0 21 130 44"/>
        <Static id="caption2" text="Concept Name(한글)" class="cell_1" position="absolute 0 125 130 148"/>
        <Static id="caption3" text="Semantic Type" class="cell_1" position="absolute 0 47 130 70"/>
        <Static id="caption4" text="ICNP 상위코드" class="cell_1" position="absolute 0 73 130 96"/>
        <Static id="caption5" text="ConceptID" class="cell_1" position="absolute 0 99 130 122"/>
        <Static id="caption6" text="Concept Name(영문)" class="cell_1" position="absolute 0 151 130 174"/>
        <Static id="caption7" text="Concept 생성일" class="cell_1" position="absolute 0 177 130 200"/>
        <Static id="caption8" text="Concept 만료일" class="cell_1" position="absolute 0 203 130 226"/>
        <Static id="caption9" text="Definition" class="cell_1" position="absolute 0 229 130 279"/>
        <Static id="caption10" text="Source of data" class="cell_1" position="absolute 0 282 130 305"/>
        <Static id="caption11" text="상태" class="cell_1" position="absolute 0 308 130 331"/>
        <Shape id="line2" linetype="horizontal" class="line_2" position="absolute 0 43 345 49"/>
        <Shape id="line3" linetype="horizontal" class="line_2" position="absolute 0 69 345 75"/>
        <Shape id="line4" linetype="horizontal" class="line_2" position="absolute 0 95 345 101"/>
        <Shape id="line5" linetype="horizontal" class="line_2" position="absolute 0 121 345 127"/>
        <Shape id="line6" linetype="horizontal" class="line_2" position="absolute 0 147 345 153"/>
        <Shape id="line7" linetype="horizontal" class="line_2" position="absolute 0 173 345 179"/>
        <Shape id="line8" linetype="horizontal" class="line_2" position="absolute 0 199 345 205"/>
        <Shape id="line9" linetype="horizontal" class="line_2" position="absolute 0 225 345 231"/>
        <Shape id="line10" linetype="horizontal" class="line_2" position="absolute 0 278 345 284"/>
        <Shape id="line11" linetype="horizontal" class="line_2" position="absolute 0 304 345 310"/>
        <Shape id="line12" linetype="horizontal" class="line_3" position="absolute 0 356 345 362"/>
        <Radio id="rdo_cdflag" taborder="1" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 131 24 276 44">
          <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">CMC표준</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Edit id="opt_supcd" taborder="2" readonly="true" position="absolute 133 75 338 94" autoselect="true" autoskip="true" class="output"/>
        <Edit id="ipt_cnptid" taborder="3" class="input_default" position="absolute 133 101 338 120" autoselect="true" autoskip="true"/>
        <Edit id="ipt_hngnm" taborder="4" class="input_default" position="absolute 133 127 338 146" autoselect="true" autoskip="true"/>
        <Edit id="ipt_engnm" taborder="5" class="input_default" position="absolute 133 153 338 172" autoselect="true" autoskip="true"/>
        <Calendar id="ipt_fromdd" taborder="6" class="input_default" position="absolute 133 179 338 198" autoselect="true" autoskip="true"/>
        <Calendar id="ipt_todd" taborder="7" class="input_default" position="absolute 133 205 338 224" autoselect="true" autoskip="true"/>
        <Edit id="ipt_srcofdata" taborder="8" class="input_default" position="absolute 133 284 338 303" autoselect="true" autoskip="true"/>
        <Radio id="rdo_valiyn" taborder="9" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 133 310 278 330">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">Y</Col>
                <Col id="datacolumn">Valid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">N</Col>
                <Col id="datacolumn">InValid</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <TextArea id="tar_definecnts" taborder="10" position="absolute 133 231 338 277" acceptstab="true" autoselect="true" wordwrap="word"/>
        <Shape id="line13" linetype="horizontal" class="line_2" position="absolute 0 330 345 336"/>
        <Static id="caption12" text="약어" class="cell_1" position="absolute 0 334 130 357"/>
        <Radio id="rdo_abbryn" taborder="11" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 133 337 278 353">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">Y</Col>
                <Col id="datacolumn">Y</Col>
              </Row>
              <Row>
                <Col id="codecolumn">N</Col>
                <Col id="datacolumn">N</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Static id="cap_title" text="ICNP코드등록" class="tit_2" position="absolute 0 0 179 22"/>
        <Edit id="opt_smnttype" taborder="13" readonly="true" position="absolute 134 49 339 68" autoselect="true" autoskip="true" class="output"/>
        <Button id="btn_rgst" taborder="14" text="등록" class="btn4" position="absolute 171 364 227 386" onclick="btn_rgst_onclick"/>
        <Button id="btn_updt" taborder="15" text="수정" class="btn4" position="absolute 230 364 286 386" onclick="btn_updt_onclick"/>
        <Button id="btn_del" taborder="16" text="삭제" class="btn4" position="absolute 289 364 345 386" onclick="btn_del_onclick"/>
        <Shape id="line32" class="line_6" position="absolute 0 360 346 366"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_icnpinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdflag" type="STRING" size="256"/>
          <Column id="smnttypenm" type="STRING" size="256"/>
          <Column id="supcnptid" type="STRING" size="256"/>
          <Column id="cnptid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="engnm" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="definecnts" type="STRING" size="256"/>
          <Column id="srcofdata" type="STRING" size="256"/>
          <Column id="valiyn" type="STRING" size="256"/>
          <Column id="abbryn" type="STRING" size="256"/>
          <Column id="localcd" type="STRING" size="256"/>
          <Column id="supcd" type="STRING" size="256"/>
          <Column id="stat" type="STRING" size="256"/>
          <Column id="smnttypecd" type="STRING" size="256"/>
          <Column id="reprlocalcd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="levl" type="STRING" size="256"/>
          <Column id="cnpttodd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdflag"/>
            <Col id="smnttypenm"/>
            <Col id="supcnptid"/>
            <Col id="cnptid"/>
            <Col id="hngnm"/>
            <Col id="engnm"/>
            <Col id="fromdd"/>
            <Col id="definecnts"/>
            <Col id="srcofdata"/>
            <Col id="valiyn"/>
            <Col id="abbryn"/>
            <Col id="localcd"/>
            <Col id="supcd"/>
            <Col id="stat"/>
            <Col id="smnttypecd"/>
            <Col id="reprlocalcd"/>
            <Col id="todd"/>
            <Col id="levl"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_icnpinfo" 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"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="rdo_cdflag" propid="value" datasetid="ds_main_icnpinfo" columnid="cdflag"/>
      <BindItem id="item1" compid="opt_smnttype" propid="value" datasetid="ds_main_icnpinfo" columnid="smnttypenm"/>
      <BindItem id="item2" compid="opt_supcd" propid="value" datasetid="ds_main_icnpinfo" columnid="supcnptid"/>
      <BindItem id="item3" compid="ipt_cnptid" propid="value" datasetid="ds_main_icnpinfo" columnid="cnptid"/>
      <BindItem id="item4" compid="ipt_hngnm" propid="value" datasetid="ds_main_icnpinfo" columnid="hngnm"/>
      <BindItem id="item5" compid="ipt_engnm" propid="value" datasetid="ds_main_icnpinfo" columnid="engnm"/>
      <BindItem id="item6" compid="ipt_fromdd" propid="value" datasetid="ds_main_icnpinfo" columnid="fromdd"/>
      <BindItem id="item7" compid="ipt_todd" propid="value" datasetid="ds_main_icnpinfo" columnid="cnpttodd"/>
      <BindItem id="item8" compid="tar_definecnts" propid="value" datasetid="ds_main_icnpinfo" columnid="definecnts"/>
      <BindItem id="item9" compid="ipt_srcofdata" propid="value" datasetid="ds_main_icnpinfo" columnid="srcofdata"/>
      <BindItem id="item10" compid="rdo_valiyn" propid="value" datasetid="ds_main_icnpinfo" columnid="valiyn"/>
      <BindItem id="item11" compid="rdo_abbryn" propid="value" datasetid="ds_main_icnpinfo" columnid="abbryn"/>
    </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                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
var arErrorCode = new HashArray();
var xRefPath = ds_hidden_icnpinfo;
var xICNPInfoPath = ds_main_icnpinfo;
function SPMNR02700_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMNR02700_onload(obj:Form, e:LoadEventInfo)
{
	try
	{
		ds_hidden_icnpinfo.copyData(arg_ds_hidden_icnpinfo);
	}
	catch(e)
	{
	}
	
	fInit();
}

function fInit()
{	
	var sTermFlag = xRefPath.getColumn(0, "termflag");
	
	if(xRefPath.getColumn(0, "stat") == "I")
	{		
		btn_updt.enable = false;
		btn_del.enable = false;
		
		if(sTermFlag == "ICNP")
		{
			xICNPInfoPath.setColumn(0, "stat", xRefPath.getColumn(0, "stat"));
			xICNPInfoPath.setColumn(0, "supcd", xRefPath.getColumn(0, "supcd"));
			xICNPInfoPath.setColumn(0, "supcnptid", xRefPath.getColumn(0, "supcnptid"));
			xICNPInfoPath.setColumn(0, "smnttypecd", xRefPath.getColumn(0, "smnttypecd"));
			xICNPInfoPath.setColumn(0, "smnttypenm", xRefPath.getColumn(0, "smnttypenm"));
			xICNPInfoPath.setColumn(0, "levl", xRefPath.getColumn(0, "levl"));
			xICNPInfoPath.setColumn(0, "abbryn", "N");
			xICNPInfoPath.setColumn(0, "fromdd", utlf_getCurrentDate());
			xICNPInfoPath.setColumn(0, "cnpttodd", "99991231");
			
			rdo_abbryn.enable = false;
			xICNPInfoPath.setColumn(0, "reprlocalcd","-");
			cap_title.text = "ICNP코드등록";
		}
		else if(sTermFlag == "Synom")
		{
			cap_title.text = "ICNP동의어등록";
			ds_send.clearData();
			dsf_makeValue(ds_send, "localcd", "string", xRefPath.getColumn(0, "reprlocalcd"));
			dsf_makeValue(ds_send, "todd", "string", xRefPath.getColumn(0, "todd"));
			
			var oParam = {};
				oParam.id          = "TRMNR02701";
				oParam.service     = "carerecapp.ICNPMngt";
				oParam.method      = "reqGetICNPInfo";
				oParam.inds        = "reqCond=ds_send";
				oParam.outds       = "ds_main_icnpinfo=icnpinfo";
				oParam.async       = false;
				oParam.callback    = "cf_TRMNR02701";

			tranf_submit(oParam);

			if(arErrorCode.pop("TRMNR02701") > -1)
			{
				xICNPInfoPath.setColumn(0, "stat", xRefPath.getColumn(0, "stat"));
				xICNPInfoPath.setColumn(0, "reprlocalcd", xRefPath.getColumn(0, "reprlocalcd"));
				xICNPInfoPath.setColumn(0, "cdflag", "");
				xICNPInfoPath.setColumn(0, "cnptid", xRefPath.getColumn(0, "cnptid"));
				xICNPInfoPath.setColumn(0, "hngnm", "");
				xICNPInfoPath.setColumn(0, "engnm", "");
				xICNPInfoPath.setColumn(0, "fromdd", utlf_getCurrentDate());
				xICNPInfoPath.setColumn(0, "cnpttodd", "99991231");
				xICNPInfoPath.setColumn(0, "definecnts", "");
				xICNPInfoPath.setColumn(0, "srcofdata", "");
				xICNPInfoPath.setColumn(0, "valiyn", "");
				xICNPInfoPath.setColumn(0, "localcd", "");
				xICNPInfoPath.setColumn(0, "todd", "");
				ds_hidden_icnpinfo.copyData(ds_main_icnpinfo);
			}	
		}
	}
	else if(xRefPath.getColumn(0, "stat") == "U")
	{
		btn_rgst.enable = false;
		ds_send.clearData();
		dsf_makeValue(ds_send, "localcd", "string", xRefPath.getColumn(0, "localcd"));
		dsf_makeValue(ds_send, "todd", "string", xRefPath.getColumn(0, "todd"));
		
		if(sTermFlag == "ICNP") 
		{
			rdo_abbryn.enable = false;
		}
		if(sTermFlag == "ICNP")
		{
			cap_title.text = "ICNP코드수정";
		}
		else if(sTermFlag == "Synom")
		{
			cap_title.text = "ICNP동의어수정";
		}
		
		var oParam = {};
			oParam.id          = "TRMNR02701";
			oParam.service     = "carerecapp.ICNPMngt";
			oParam.method      = "reqGetICNPInfo";
			oParam.inds        = "reqCond=ds_send";
			oParam.outds       = "ds_main_icnpinfo=icnpinfo";
			oParam.async       = false;
			oParam.callback    = "cf_TRMNR02701";

		tranf_submit(oParam);

		if(arErrorCode.pop("TRMNR02701") > -1)
		{
			xICNPInfoPath.setColumn(0, "stat", xRefPath.getColumn(0, "stat"));
			xICNPInfoPath.setColumn(0, "cnpttodd", xICNPInfoPath.getColumn(0, "todd"));
			
			ds_hidden_icnpinfo.copyData(ds_main_icnpinfo);
		}					
	}
	
	opener.frmf_setParameter("exec","N");		
}

function cf_TRMNR02701(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

function btn_rgst_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveTerm("rgst");	
}

function btn_updt_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveTerm("updt"); 
}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveTerm("del"); 
}

function fSaveTerm(pFlag)
{
	var xPath = ds_main_icnpinfo;
	var xHiddenPath = ds_hidden_icnpinfo;
	
	var sItem = [[ "코드 구분", "Concept ID", "Concept 생성일", "Concept 만료일", "상태"],
				 [ xPath.getColumn(0, "cdflag"),xPath.getColumn(0, "cnptid"),xPath.getColumn(0, "fromdd"),
				  	xPath.getColumn(0, "cnpttodd"),xPath.getColumn(0, "valiyn")]];
		
	for(var i = 0; i < 5; i++)
	{
		if(utlf_isNull(sItem[1][i]) && i != 1)
		{
			sysf_messageBox(sItem[0][i]+" 항목이 선택되지",	"E007");
			return;
		}
	}
	if(utlf_isNull(xPath.getColumn(0, "hngnm")) && utlf_isNull(xPath.getColumn(0, "engnm")))
	{
		sysf_messageBox("한글명 또는 영문명 중에 하나는", "C001");
		return;
		
	}

	if(sItem[1][0] == 1 && utlf_isNull(sItem[1][1]))
	{
		sysf_messageBox("국가 표준 ICNP 용어는 Concept ID는","I003");
		return;	
	}
	if(pFlag == "rgst")
	{
		xPath.setColumn(0, "fromdd",String(sItem[1][2]).substr(0,8)+"000000");
		xPath.setColumn(0, "cnpttodd",String(sItem[1][3]).substr(0,8)+"235959");
	}
	else if(pFlag == "updt")
	{
		if(xPath.getColumn(0, "cdflag") == xHiddenPath.getColumn(0, "cdflag") &&
		   xPath.getColumn(0, "cnptid") == xHiddenPath.getColumn(0, "cnptid") &&
		   xPath.getColumn(0, "hngnm") == xHiddenPath.getColumn(0, "hngnm") &&
		   xPath.getColumn(0, "engnm") == xHiddenPath.getColumn(0, "engnm") &&
		   xPath.getColumn(0, "fromdd") == xHiddenPath.getColumn(0, "fromdd") &&
		   xPath.getColumn(0, "cnpttodd") == xHiddenPath.getColumn(0, "cnpttodd") &&
		   xPath.getColumn(0, "definecnts") == xHiddenPath.getColumn(0, "definecnts") &&
		   xPath.getColumn(0, "srcofdata") == xHiddenPath.getColumn(0, "srcofdata") &&
		   xPath.getColumn(0, "valiyn") == xHiddenPath.getColumn(0, "valiyn") &&
		   xPath.getColumn(0, "abbryn") == xHiddenPath.getColumn(0, "abbryn"))
		{
			sysf_messageBox("변경된 데이터가","I004");
			return;	
		}
	}
	else if(pFlag == "del")
	{
		xPath.setColumn(0, "stat","D");
	}
	
	dsf_createDs("ds_send_icnpinfo");
	ds_send_icnpinfo.copyData(xPath);
	
	dsf_setTypeFormat(ds_send_icnpinfo, "levl:INT");
	var oParam = {};
		oParam.id          = "TXMNR02701";
		oParam.service     = "carerecapp.ICNPMngt";
		oParam.method      = "reqExeICNPInfo";
		oParam.inds        = "icnpinfo=ds_send_icnpinfo";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXMNR02701";

	tranf_submit(oParam);
}

function cf_TXMNR02701(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		opener.frmf_setParameter("exec","Y");		
		this.close();
    }
}]]></Script>
  </Form>
</FDL>