YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABO02100_BMT진단관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABO02100" position="absolute 0 0 1185 783" titletext="BMT 기준자료관리" oninit="SMABO02100_oninit" onload="SMABO02100_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="BMT 기준자료관리" class="tit_1" position="absolute 0 0 194 25"/>
        <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 1124 18 1180 40" anchor="top right" onclick="btn_save_onclick"/>
        <Static id="caption4" text="대분류" class="tit_2" position="absolute 0 45 72 67"/>
        <Static id="caption5" text="분할코드내역" class="cell_1" position="absolute 630 311 715 334"/>
        <Shape id="line1" class="line_10" position="absolute 565 61 1180 67" anchor="left top right"/>
        <Shape id="line2" class="line_10" position="absolute 0 61 560 67"/>
        <Shape id="line4" linetype="horizontal" class="line_3" position="absolute 0 776 1180 782" anchor="left right bottom"/>
        <Grid id="grd_exptdeptlist" taborder="3" binddataset="ds_main_lrglist_item" useinputpanel="false" position="absolute 0 66 560 776" autoenter="select" autofittype="col" cellsizingtype="col" anchor="left top bottom" oncellclick="grd_exptdeptlist_oncellclick" onexpanddown="grd_exptdeptlist_onexpanddown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="110"/>
                <Column size="327"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" 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="testflag"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="text" edittype="expr:getRowType(currow) == 2 ? 'text' : 'none'" text="bind:hsctlrgcd"/>
                <Cell col="2" displaytype="text" edittype="expr:getRowType(currow) == 2 ? 'text' : 'none'" text="bind:hsctlrgnm"/>
                <Cell col="3" displaytype="text" edittype="text" text="bind:icd10" expandshow="show"/>
                <Cell col="4" displaytype="none" edittype="none" class="icon_search"/>
                <Cell col="5" text="bind:testflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_voldivlist" taborder="4" binddataset="ds_main_mdllist_item" useinputpanel="false" position="absolute 565 66 1180 776" autoenter="select" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="19"/>
                <Column size="100"/>
                <Column size="467"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="중분류코드"/>
                <Cell col="2" text="중분류명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="text" edittype="expr:getRowType(currow) == 2 ? 'text' : 'none'" text="bind:hsctmdlcd"/>
                <Cell col="2" displaytype="text" edittype="expr:getRowType(currow) == 2 ? 'text' : 'none'" text="bind:hsctmdlnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_grdadd1" taborder="5" text="행추가" class="btn2" position="absolute 450 42 503 61" onclick="btn_grdadd1_onclick"/>
        <Button id="btn_grddel1" taborder="6" text="행삭제" class="btn2" position="absolute 506 42 559 61" onclick="btn_grddel1_onclick"/>
        <Button id="btn_grdadd2" taborder="7" text="행추가" class="btn2" position="absolute 1070 42 1123 61" anchor="top right" onclick="btn_grdadd2_onclick"/>
        <Button id="btn_grddel2" taborder="8" text="행삭제" class="btn2" position="absolute 1126 42 1179 61" anchor="top right" onclick="btn_grddel2_onclick"/>
        <Combo id="cmb_lrggrupcd" taborder="9" innerdataset="@ds_init_testflag_item" codecolumn="cdid" datacolumn="cdnm" class="combo_essential" position="absolute 70 42 195 61" onitemchanged="cmb_lrggrupcd_onitemchanged"/>
        <Static id="caption2" text="중분류" class="tit_2" position="absolute 565 45 709 67"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_lrglist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctlrgcd" type="STRING" size="256" sumtext="대분류"/>
          <Column id="hsctlrgnm" type="STRING" size="256" sumtext="대분류명"/>
          <Column id="icd10" type="STRING" size="256" sumtext="진단코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_mdllist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlcd" type="STRING" size="256" sumtext=""/>
          <Column id="hsctmdlnm" type="STRING" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctlrgcd" type="STRING" size="256"/>
          <Column id="lrggrupcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_testflag_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdnm">진단명</Col>
            <Col id="cdid">DI</Col>
          </Row>
          <Row>
            <Col id="cdnm">이식 전 검사코드</Col>
            <Col id="cdid">WK</Col>
          </Row>
          <Row>
            <Col id="cdnm">공통코드</Col>
            <Col id="cdid">CC</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_lrggrupcd" propid="value" datasetid="ds_send" columnid="lrggrupcd"/>
    </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";
function SMABO02100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABO02100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_exptdeptlist);
	grdf_setRowTypeIcon(grd_exptdeptlist, 0);
	
	grdf_initGrid(grd_voldivlist);
	grdf_setRowTypeIcon(grd_voldivlist, 0);

	cmb_lrggrupcd.index = 0;

	dsf_setDefaultVal(ds_send, "lrggrupcd:DI");

	var oParam = {};
		oParam.id          = "TRABO02101";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetLrgInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_lrglist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02101";

	tranf_submit(oParam);
	
	btn_save.enable = frmf_checkAuth("X");
}

function btn_grdadd1_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_lrglist_item.addRow();
}

function btn_grddel1_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( sysf_messageBox("코드가 삭제 됩니다.", "Q003") != 6 ) 
	{
		return false;
	}
	
	ds_main_lrglist_item.updatecontrol = false;
	ds_main_lrglist_item.setRowType(ds_main_lrglist_item.rowposition, "d");
	ds_main_lrglist_item.updatecontrol = true;
}

function grd_exptdeptlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1 && e.col < 3)
	{
		ds_send.setColumn(0, "hsctlrgcd", ds_main_lrglist_item.getColumn(ds_main_lrglist_item.rowposition, "hsctlrgcd"));
		
		dsf_setDefaultVal(ds_send, "lrggrupcd:DI");

		var oParam = {};
			oParam.id          = "TRABO02102";
			oParam.service     = "hsctcoordinatorapp.HsctPatient";
			oParam.method      = "reqGetMdlInfo";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_mdllist_item=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TRABO02102";

		tranf_submit(oParam);
	}
	
	if(e.col >= 3 && e.col < 4 )
	{
		ds_main_mdllist_item.clearData();
	}
}

function grd_exptdeptlist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	obj.updateToDataset();
	fExeDiagPopup();
}

function fExeDiagPopup() 
{
	var sDiagNm   = utlf_transNullToEmpty(ds_main_lrglist_item.getColumn(ds_main_lrglist_item.rowposition, "icd10"));
	var sDiagInfo = "";
	var status = ds_main_lrglist_item.getRowType(ds_main_lrglist_item.rowposition);

	if ( String(sDiagNm).length < 2 ) 
	{
		sysf_messageBox ( "2글자 이상", "C001" );
		return;
	}   

	frmf_setParameter("SPMMO00800_cond1",     "2" );
	frmf_setParameter("SPMMO00800_cond2",     "4");
	frmf_setParameter("SPMMO00800_cond3",     "E" );
	frmf_setParameter("SPMMO00800_cond4",     utlf_getCurrentDate());
	frmf_setParameter("SPMMO00800_cond5",     sDiagNm );
	frmf_setParameter("SPMMO00800_rtn",       "" );	
	frmf_setParameter("SPMMO00800_rtn_useyn", "N" );

	frmf_modal("SPMMO00800", "SPMMO00800", "", "", "", "", "", "", "", "", "", "", "M");	
	
	if ( frmf_getParameter( "SPMMO00800_rtn_useyn" ) == "Y" ) 
	{
		sDiagInfo = frmf_getParameter("SPMMO00800_rtn");
		
		var icd10cd    = fExeGetArrayData( sDiagInfo, 0, 8, "▩", "▦" );
		var diagcd     = fExeGetArrayData( sDiagInfo, 0, 9, "▩", "▦" );
		var diagengnm  = fExeGetArrayData( sDiagInfo, 0, 2, "▩", "▦" );
		var diaghngnm  = fExeGetArrayData( sDiagInfo, 0, 3, "▩", "▦" );
		var spclinfo   = fExeGetArrayData( sDiagInfo, 0, 5, "▩", "▦" );
		
		ds_main_lrglist_item.setColumn(ds_main_lrglist_item.rowposition, "icd10", diagcd);
		
		if(ds_main_lrglist_item.getRowType(ds_main_lrglist_item.rowposition) != 2)
		{
			ds_main_lrglist_item.updatecontrol = false;
			ds_main_lrglist_item.setRowType(ds_main_lrglist_item.rowposition, "u");
			ds_main_lrglist_item.updatecontrol = true;
		}
		
		frmf_setParameter( "SPMMO00800_rtn_useyn", "" ); 
		frmf_setParameter("SPMMO00800_rtn",       "" );			
	}
	
	ds_main_lrglist_item.updatecontrol = false;
	ds_main_lrglist_item.setRowType(ds_main_lrglist_item.rowposition, status);
	ds_main_lrglist_item.updatecontrol = true;
}

function fExeGetArrayData (pData, pRow, pCol, pRowSep, pColSep )
{			
	var arrRow = pData.split(pRowSep);	
	
	if(arrRow.length <= pRow) 
	{
		return "";
	}

	var arrCol = arrRow[pRow].split(pColSep);
	
	if(arrCol.length <= pCol)
	{	
		return "";
	}
	return arrCol[pCol];
}

function btn_grdadd2_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_mdllist_item.addRow();
}

function btn_grddel2_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( sysf_messageBox("코드가 삭제 됩니다.", "Q003") != 6 )
	{
		return false;
	}
	
	ds_main_mdllist_item.updatecontrol = false;
	ds_main_mdllist_item.setRowType(ds_main_mdllist_item.rowposition, "d");
	ds_main_mdllist_item.updatecontrol = true;
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveData();
}

function fSaveData()
{
	var oParam = {};
		oParam.id          = "TXABO02101";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqExeLrgInfo";
		oParam.inds        = "req=ds_send data=ds_main_lrglist_item:u";
		oParam.outds       = "ds_=item";
		oParam.typeStr     = "m";
		oParam.async       = false;
		//oParam.callback    = "cf_TXABO02101";

	tranf_submit(oParam);

	var oParam = {};
		oParam.id          = "TXABO02102";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqExeMdlInfo";
		oParam.inds        = "req=ds_send mdldata=ds_main_mdllist_item:u";
		oParam.outds       = "ds_=item";
		oParam.typeStr     = "m";
		oParam.async       = false;
		//oParam.callback    = "cf_TXABO02102";

	tranf_submit(oParam);
	
	dsf_setDefaultVal(ds_send, "lrggrupcd:DI");
	var oParam = {};
		oParam.id          = "TRABO02101";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetLrgInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_lrglist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02101";

	tranf_submit(oParam);
	
	dsf_setDefaultVal(ds_send, "lrggrupcd:DI");

	var oParam = {};
		oParam.id          = "TRABO02102";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetMdlInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_mdllist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02102";

	tranf_submit(oParam);
}

function cmb_lrggrupcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	if(ds_send.getColumn(0, "lrggrupcd") == "CC" || ds_send.getColumn(0, "lrggrupcd") == "WK") 
	{
		btn_grdadd1.enable = false;
		
		grd_exptdeptlist.setCellProperty("Body", grd_exptdeptlist.getBindCellIndex("Body", "hsctlrgnm"), "edittype", "text");
		grd_exptdeptlist.setFormatColProperty(3, "size", 0);
		grd_exptdeptlist.setFormatColProperty(2, "size", 427);
		
		if(ds_send.getColumn(0, "lrggrupcd") == "WK")
		{
			grd_voldivlist.setCellProperty("Body", grd_voldivlist.getBindCellIndex("Body", "hsctmdlnm"), "edittype", "text");
		} 
		else 
		{
			grd_voldivlist.setCellProperty("Body", grd_voldivlist.getBindCellIndex("Body", "hsctmdlnm"), "edittype", "none");
		}
	} 
	else if(ds_send.getColumn(0, "lrggrupcd") == "DI") 
	{
		btn_grdadd1.enable = true;
		
		grd_exptdeptlist.setCellProperty("Body", grd_exptdeptlist.getBindCellIndex("Body", "hsctlrgnm"), "edittype", "none");
		grd_exptdeptlist.setFormatColProperty(3, "size", 100);
		grd_exptdeptlist.setFormatColProperty(2, "size", 327);
	}
	
	dsf_setDefaultVal(ds_send, "lrggrupcd:DI");

	var oParam = {};
		oParam.id          = "TRABO02101";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetLrgInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_lrglist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02101";

	tranf_submit(oParam);
	
	ds_main_mdllist_item.clearData();
}
]]></Script>
  </Form>
</FDL>