YNU_JEUS/app_home/himed/xpapps/pam/insubasecdmngtxp/xp/SMPIB01900_평생제한처방정보관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIB01900" position="absolute 0 0 1198 741" titletext="평생제한처방정보관리(SMPIB01900)" oninit="SMPIB01900_oninit" onload="SMPIB01900_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 24 406 122" id="group2" class="div_SA">
          <Layouts>
            <Layout>
              <Static text="처방코드 :" position="absolute 11 13 97 30" align="align:center middle;" id="caption1" class="search_name" anchor="default"/>
              <Button position="absolute 319 15 375 37" id="btn_ref" class="btn1" visible="true" text="조회" anchor="default" onclick="group2_btn_ref_onclick"/>
              <Edit position="absolute 100 12 205 31" id="ipt_srccalcscorcd" class="input_search" anchor="default" onkeydown="group2_ipt_srccalcscorcd_onkeydown"/>
              <Static text="처방명칭 :" position="absolute 11 43 115 60" align="align:center middle;" id="caption3" class="search_name" anchor="default"/>
              <Edit position="absolute 100 41 225 60" id="ipt_hngnm" class="input_search" anchor="default" onkeydown="group2_ipt_hngnm_onkeydown"/>
              <Static text="제한구분 :" position="absolute 11 73 115 90" align="align:center middle;" id="caption4" class="search_name" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 212 36 228 52" id="btn_search" class="icon_search" taborder="9" text="" onclick="btn_search_onclick"/>
        <Button position="absolute 649 42 665 58" id="btn_search2" class="icon_search" taborder="9" text="" onclick="btn_search2_onclick"/>
        <Static text="종료일자" position="absolute 932 65 1037 88" align="align:center middle;" id="caption42" class="cell_1"/>
        <Static text="시작일자" position="absolute 670 65 775 88" align="align:center middle;" id="caption5" class="cell_1"/>
        <Static text="평생제한 처방정보" position="absolute 415 18 580 40" id="caption22" class="tit_2"/>
        <Static text="한글명" position="absolute 670 40 775 63" align="align:center middle;" id="caption34" class="cell_1"/>
        <Static text="처방코드" position="absolute 410 40 515 63" align="align:center middle;" id="caption23" class="cell_1"/>
        <Calendar position="absolute 777 67 930 86" id="ipt_fromdd" class="input_essential" taborder="5" dateformat="yyyy-MM-dd" value="null"/>
        <Edit position="absolute 517 41 643 60" id="ipt_prcpcd" class="input_essential" onkeydown="ipt_prcpcd_onkeydown"/>
        <Shape position="absolute 410 35 1195 41" linetype="horizontal" id="line19" class="line_10" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Calendar position="absolute 1040 67 1193 86" id="ipt_todd" class="input_essential" taborder="6" dateformat="yyyy-MM-dd"/>
        <Edit readonly="true" position="absolute 777 41 1193 60" id="output1" anchor="left top right"/>
        <Static text="제한구분" position="absolute 410 65 515 88" align="align:center middle;" id="caption6" class="cell_1"/>
        <Combo position="absolute 517 66 666 85" id="cmb_limflag" class="combo_essential" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">투여량</Col>
              </Row>
              <Row>
                <Col id="codecolumn">B</Col>
                <Col id="datacolumn">일수</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">간이식</Col>
              </Row>
              <Row>
                <Col id="codecolumn">D</Col>
                <Col id="datacolumn">간염</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Shape position="absolute 410 145 1195 151" linetype="horizontal" id="line20" class="line_10" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Static text="평생제한연계처방 리스트" position="absolute 410 129 598 150" id="caption48" class="tit_2"/>
        <Grid position="absolute 410 150 1195 713" id="grd_lnkprelist" binddataset="ds_main_list2_lipl" autofittype="col" anchor="all" onkeydown="grd_lnkprelist_onkeydown" cellmovingtype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="126"/>
                <Column size="0"/>
                <Column size="609"/>
                <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="prcpcd"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="text" edittype="text" text="bind:lnkprcpcd" enable="false"/>
                <Cell col="2" displaytype="combo" edittype="combo" text="bind:limflag"/>
                <Cell col="3" text="bind:lnkhngnm"/>
                <Cell col="4" text="bind:prcpcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 1007 715 1063 737" id="button4" class="btn4" taborder="21" text="저장" anchor="right bottom" onclick="button4_onclick"/>
        <Button position="absolute 1127 715 1195 737" id="button10" class="btn4" taborder="23" text="초기화" anchor="right bottom" onclick="button10_onclick"/>
        <Static text="처리메세지" position="absolute 410 90 515 113" align="align:center middle;" id="caption7" class="cell_1"/>
        <Edit position="absolute 517 91 1193 110" id="ipt_tretmsg" class="input_essential" anchor="left top right"/>
        <Button position="absolute 1151 126 1193 145" id="btn_del" class="btn2" text="삭제" anchor="top right" onclick="btn_del_onclick"/>
        <Button position="absolute 1106 126 1148 145" id="btn_add" class="btn2" text="추가" anchor="top right" onclick="btn_add_onclick"/>
        <Button position="absolute 1142 16 1192 35" id="btn_clear" class="btn2" text="Clear" anchor="top right" onclick="btn_clear_onclick"/>
        <Combo position="absolute 101 93 226 112" id="cmb_srchlimflag" class="combo_search" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">-</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">투여량</Col>
              </Row>
              <Row>
                <Col id="codecolumn">B</Col>
                <Col id="datacolumn">일수</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">간이식</Col>
              </Row>
              <Row>
                <Col id="codecolumn">D</Col>
                <Col id="datacolumn">간염</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Calendar position="absolute 285 64 385 83" id="ipt_srchfromdd" class="input_search" taborder="5" visible="false" dateformat="yyyy-MM-dd" value="null"/>
        <Calendar position="absolute 285 90 385 109" id="ipt_srchtodd" class="input_search" taborder="5" visible="false" dateformat="yyyy-MM-dd" value="null"/>
        <Button position="absolute 1067 715 1123 737" id="button1" class="btn4" taborder="21" text="삭제" anchor="right bottom" onclick="button1_onclick"/>
        <Static id="caption2" text="평생제한처방 정보관리" class="tit_1" position="absolute 1 0 281 23"/>
        <Shape id="line3" class="line_10" position="absolute 1 144 401 150" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_prelist" taborder="24" binddataset="ds_main_list1_lipr" useinputpanel="false" position="absolute 1 149 401 711" autofittype="col" anchor="left top bottom" oncellclick="grd_prelist_oncellclick" cellmovingtype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="78"/>
                <Column size="171"/>
                <Column size="100"/>
                <Column size="0"/>
                <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="fromdd"/>
                <Cell col="5" text="todd"/>
                <Cell col="6" text="tretmsg"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:prcpcd" enable="false"/>
                <Cell col="2" text="bind:hngnm" enable="false"/>
                <Cell col="3" displaytype="combo" edittype="combo" text="bind:limflag" combodataset="ds_cmb_limflag" combocodecol="value" combodatacol="label" enable="false"/>
                <Cell col="4" text="bind:fromdd"/>
                <Cell col="5" text="bind:todd"/>
                <Cell col="6" text="bind:tretmsg"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption36" text="평생제한처방 리스트" class="tit_2" position="absolute 1 128 195 149"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="limflag" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpcd"/>
            <Col id="hngnm"/>
            <Col id="limflag"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="limflag" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="tretmsg" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpcd"/>
            <Col id="hngnm"/>
            <Col id="limflag"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="tretmsg"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list1_lipr" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="한글명"/>
          <Column id="limflag" type="STRING" size="256" sumtext="제한구분"/>
          <Column id="fromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="todd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="tretmsg" type="STRING" size="256" sumtext="처리메세지"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cmb_limflag" 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">A</Col>
          </Row>
          <Row>
            <Col id="label">일수</Col>
            <Col id="value">B</Col>
          </Row>
          <Row>
            <Col id="label">간이식</Col>
            <Col id="value">C</Col>
          </Row>
          <Row>
            <Col id="label">간염</Col>
            <Col id="value">D</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list2_lipl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_list2_lipl_oncolumnchanged">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="lnkprcpcd" type="STRING" size="256" sumtext="연계처방코드"/>
          <Column id="limflag" type="STRING" size="256" sumtext="제한구분"/>
          <Column id="lnkhngnm" type="STRING" size="256" sumtext="한글명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_list1_prcpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="한글명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_send03" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="limflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_srccalcscorcd" propid="value" datasetid="ds_send_data1" columnid="prcpcd"/>
      <BindItem id="item1" compid="group2.ipt_hngnm" propid="value" datasetid="ds_send_data1" columnid="hngnm"/>
      <BindItem id="item2" compid="ipt_srchfromdd" propid="value" datasetid="ds_send_data1" columnid="fromdd"/>
      <BindItem id="item3" compid="ipt_srchtodd" propid="value" datasetid="ds_send_data1" columnid="todd"/>
      <BindItem id="item4" compid="cmb_srchlimflag" propid="value" datasetid="ds_send_data1" columnid=""/>
      <BindItem id="item5" compid="ipt_prcpcd" propid="value" datasetid="ds_main_data1" columnid="prcpcd"/>
      <BindItem id="item6" compid="cmb_limflag" propid="value" datasetid="ds_main_data1" columnid="limflag"/>
      <BindItem id="item7" compid="ipt_tretmsg" propid="value" datasetid="ds_main_data1" columnid="tretmsg"/>
      <BindItem id="item8" compid="output1" propid="value" datasetid="ds_main_data1" columnid="hngnm"/>
      <BindItem id="item9" compid="ipt_fromdd" propid="value" datasetid="ds_main_data1" columnid="fromdd"/>
      <BindItem id="item10" compid="ipt_todd" propid="value" datasetid="ds_main_data1" columnid="todd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";
function SMPIB01900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIB01900_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_lnkprelist);
	grdf_setRowTypeIcon(grd_lnkprelist, 0);

	fInitialize();
}

function fInitialize()
{
	ds_send_data1.setColumn(0, "prcpcd", "");
	ds_send_data1.setColumn(0, "hngnm", "");
	ds_send_data1.setColumn(0, "limflag", "-");
	ds_send_data1.setColumn(0, "fromdd", utlf_getCurrentDate());
	ds_send_data1.setColumn(0, "todd", "99991231");
	
	ds_main_list1_lipr.clearData();
	ds_main_list2_lipl.clearData();
	
	ds_send_send03.clearData();
	ds_send_send03.addRow();
	
	ds_hidden.clearData();
	ds_hidden.addRow();
	
	ds_main_data1.clearData();
	ds_main_data1.addRow();
	
	ds_init_list1_prcpcdlist.clearData();
	
	ds_temp_picmmech.clearData();
	
	
	fInitPrcpInfo();
}

function fInitPrcpInfo()
{
	ds_main_data1.setColumn(0, "prcpcd", "");
	ds_main_data1.setColumn(0, "hngnm", "");
	ds_main_data1.setColumn(0, "limflag", "");
	ds_main_data1.setColumn(0, "fromdd", utlf_getCurrentDate());
	ds_main_data1.setColumn(0, "todd", "99991231");
	ds_main_data1.setColumn(0, "tretmsg", "");
	
	ds_main_list2_lipl.clearData();
	
	ipt_prcpcd.enable = true;
	btn_search.enable = true;
	cmb_limflag.enable = true;
}

function group2_ipt_srccalcscorcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if (fCheckValidPrcpcd()) 
		{
			fShowCalcInfo();
		} 
		else
		{
			btn_search_onclick();
		}
	}
}

function fCheckValidPrcpcd()
{
	var oParam = {};
		oParam.id          = "TRPIB01901";
		oParam.service     = "insubasecdmngtapp.LimRuleCd";
		oParam.method      = "reqGetPrcpCd";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_init_list1_prcpcdlist=prcpcdlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIB01901";

	tranf_submit(oParam);
	
	var prcpcd = ds_init_list1_prcpcdlist.getColumn(0, "prcpcd");
	
	if(!utlf_isNull(prcpcd))
	{
		return true;
	}
	else
	{
		return false;
	}
}

function fShowCalcInfo()
{
	var prcpcd 	= ds_send_data1.getColumn(0, "prcpcd");
	var fromdd	= ds_send_data1.getColumn(0, "fromdd");
	var todd		= ds_send_data1.getColumn(0, "todd");
		
	var oParam = {};
		oParam.id          = "TRPIB01902";
		oParam.service     = "insubasecdmngtapp.LimRuleCd";
		oParam.method      = "reqGetLimPrePrcpcdList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_main_list1_lipr=lipr";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIB01902";

	tranf_submit(oParam);
}

function group2_btn_ref_onclick(obj:Button,  e:ClickEventInfo)
{
	fShowCalcInfo();
}

function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_temp_picmmech.clearData();
	
	var objArg = new Object();
		objArg.arg_ds_temp= ds_send_data1;
		
	frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_send_data1.setColumn(0, "prcpcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
	
	if(!utlf_isNull(ds_send_data1.getColumn(0, "prcpcd")))
	{
		fShowCalcInfo();
	}
}

function group2_ipt_hngnm_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if (fCheckValidPrcpcd()) 
		{
			fShowCalcInfo();
		} 
		else 
		{
			btn_search_onclick();
		}
	}	
}

function ipt_prcpcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fInitPrcpInfo();
		
		ds_hidden.setColumn(0, "prcpcd", obj.value);
		ds_send_data1.setColumn(0, "prcpcd", obj.value);

		if (fCheckValidPrcpcd()) 
		{
			ds_send_data1.setColumn(0, "prcpcd", ds_hidden.getColumn(0, "prcpcd"));
			ds_main_data1.setColumn(0, "hngnm", ds_main_list2_lipl.getColumn(0, "hngnm"));
			
			fShowLnkCalcInfo2();
		} 
		else
		{
			ds_main_data1.setColumn(0, "prcpcd", obj.value);
			
			btn_search2_onclick();
		}
	}
}

function fShowLnkCalcInfo2()
{
	var oParam = {};
		oParam.id          = "TRPIB01903";
		oParam.service     = "insubasecdmngtapp.LimRuleCd";
		oParam.method      = "reqGetLimLnkPrePrcpcdList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_main_list2_lipl=lipl";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIB01903";

	tranf_submit(oParam);
}

function btn_search2_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_temp_picmmech.clearData();
	
	dsf_createDsRow("ds_tmp", [{ col: "srchdrugcd", type: "string", size: 256, val: ds_main_data1.getColumn(0, "prcpcd")}
							,  { col: "fromdd", type: "string", size: 256, val: ds_main_data1.getColumn(0, "fromdd")}
							,  { col: "todd", type: "string", size: 256, val: ds_main_data1.getColumn(0, "todd")}]);
	
	var objArg = new Object();
		objArg.arg_ds_temp= ds_tmp;
		
	frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	fInitPrcpInfo();
	
	ds_main_data1.setColumn(0, "prcpcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
	ds_main_data1.setColumn(0, "hngnm", ds_temp_picmmech.getColumn(0, "picmmech_hngnm"));
	ds_send_data1.setColumn(0, "prcpcd", ds_hidden.getColumn(0, "prcpcd"));
	
	if(!utlf_isNull(ds_main_data1.getColumn(0, "prcpcd")))
	{
		fShowLnkCalcInfo2();
	}
}

function grd_prelist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fShowLnkCalcInfo();
}

function grd_lnkprelist_onkeydown(obj:Grid, e:KeyEventInfo)
{	
	if(1 == obj.getBindCellIndex("Body", "lnkprcpcd"))
	{
		if(e.keycode == 13)
		{
			ds_hidden.setColumn(0, "prcpcd", ds_send_data1.getColumn(0, "prcpcd"));
			ds_send_data1.setColumn(0, "prcpcd", ds_main_list2_lipl.getColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd"));
			
			if (fCheckValidPrcpcd()) 
			{
				ds_send_data1.setColumn(0, "prcpcd", ds_hidden.getColumn(0, "prcpcd"));
				ds_main_list2_lipl.setColumn(ds_main_list2_lipl.rowposition, "lnkhngnm", ds_init_list1_prcpcdlist.getColumn(0, "hngnm"));
			} 
			else 
			{
				ds_temp_picmmech.clearData();
				
				ds_main_list2_lipl_oncolumnchanged();
// 				dsf_createDsRow("ds_tmp", [{ col: "srchdrugcd", type: "string", size: 256, val: ds_main_list2_lipl.getColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd")}]);
// 							
// 				var objArg = new Object();
// 					objArg.arg_ds_temp= ds_tmp;
// 					
// 				frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
// 	
// 				ds_main_list2_lipl.setColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
// 				ds_main_list2_lipl.setColumn(ds_main_list2_lipl.rowposition, "lnkhngnm", ds_temp_picmmech.getColumn(0, "picmmech_hngnm"));
// 				ds_send_data1.setColumn(0, "prcpcd", ds_hidden.getColumn(0, "prcpcd"));
			}
		}
	}
}

function btn_add_onclick(obj:Button,  e:ClickEventInfo)
{
	var prcpcd = ds_main_data1.getColumn(0, "prcpcd");
	var limflag = ds_main_data1.getColumn(0, "limflag");
	
	if(utlf_isNull(limflag))
	{
		sysf_messageBox("제한구분을","C001");
		return false;
	}
	
	if (prcpcd) 
	{
		var row = ds_main_list2_lipl.addRow();
		
		ds_main_list2_lipl.setColumn(row, "prcpcd", prcpcd);
		ds_main_list2_lipl.setColumn(row, "limflag", limflag);
	}
}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	var rows = grdf_getSelectedRows(grd_lnkprelist);
	
	for (var i = 0; i < rows.length; i++) 
	{
		var sel = rows[i];
		
		var arrRow = new Array();
			arrRow[0] = i; 
		grdf_setStatus(grd_lnkprelist, "D", arrRow);
	}
}

function button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveLimLnkPrePrcpcd();
}

function fSaveLimLnkPrePrcpcd()
{
	var prcpcd 	= ds_main_data1.getColumn(0, "prcpcd");
	
	if (utlf_isNull(prcpcd))
	{
		sysf_messageBox("처방코드를","C001");
		return false;
	}

	var tempcd = ds_send_data1.getColumn(0, "prcpcd");
	
	ds_send_data1.setColumn(0, "prcpcd", ds_main_data1.getColumn(0, "prcpcd"));
	
	if (!fCheckValidPrcpcd()) 
	{
		ds_send_data1.setColumn(0, "prcpcd", tempcd);
		sysf_messageBox("올바르지 않은 처방코드", "E008");
		
		return false;
	}
	ds_send_data1.setColumn(0, "prcpcd", tempcd);

	var limflag 	= ds_main_data1.getColumn(0, "limflag");

	if (utlf_isNull(limflag))
	{
		sysf_messageBox("제한구분을","C001");
		return false;
	}

	var fromdd 	= ds_main_data1.getColumn(0, "fromdd");
	var todd	 	= ds_main_data1.getColumn(0, "todd");
	
	if (utlf_isNull(fromdd) || utlf_isNull(todd))
	{
		sysf_messageBox("시작일자와 종료일자를","C001");
		return false;
	}
	if (fromdd > todd) 
	{
		sysf_messageBox("시작일자가 종료일자 보다 이후", "E008");
		return false;
	}

	var rows = ds_main_list2_lipl.rowcount;
	
	for (var i = 0; i < rows; i++) 
	{
		if(ds_main_list2_lipl.getRowType(i) != 2 && ds_main_list2_lipl.getRowType(i) != 4 && ds_main_list2_lipl.getRowType(i) != 8)
		{
			var prcpcd = ds_main_list2_lipl.getColumn(i, "lnkprcpcd");
			
			if (utlf_isNull(prcpcd))
			{
				sysf_messageBox(i + "번째 행, 연계처방코드를","C001");
				return false;
			}
			
			var tempcd = ds_send_data1.getColumn(0, "prcpcd");
			
			ds_send_data1.setColumn(0, "prcpcd", ds_main_data1.getColumn(0, "prcpcd"));
			
			if (!fCheckValidPrcpcd()) 
			{
				ds_send_data1.setColumn(0, "prcpcd", tempcd);
				
				sysf_messageBox(i + "번째 행, 올바르지 않은 연계처방코드", "E008");
				return false;
			}
			ds_send_data1.setColumn(0, "prcpcd", tempcd);
			
			for(var k = 0; k < rows; k++)
			{
				var cd = ds_main_list2_lipl.getColumn(k, "lnkprcpcd");
				var fg = ds_main_list2_lipl.getColumn(k, "limflag");
				
				if(i != k && prcpcd == cd && limflag == fg)
				{
					sysf_messageBox(i + "번째 행과 " + k + "번째 행은 중복된 연계처방코드", "E008");
					return false;
				}
			}
		}
	}
	 
	var oParam = {};
		oParam.id          = "TXPIB01901";
		oParam.service     = "insubasecdmngtapp.LimRuleCd";
		oParam.method      = "reqExeLimLnkPreList";
		oParam.inds        = "lipr=ds_main_list1_lipr lipl=ds_main_list2_lipl:U";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXPIB01901";

	tranf_submit(oParam);
}

function cf_TXPIB01901(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		return;
	}
	else
	{
		fShowLnkCalcInfo2();
		fShowCalcInfo();
		
		sysf_messageBox("정상적으로 저장되었습니다.", "I999");
	}
}

function ds_main_list2_lipl_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "lnkprcpcd")
	{
		//dsf_createDsRow("ds_tmp", [{ col: "srchdrugcd", type: "string", size: 256, val: ds_main_list2_lipl.getColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd")}]);dsf_createDsRow("ds_tmp", [{ col: "srchdrugcd", type: "string", size: 256, val: ds_main_list2_lipl.getColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd")}]);
		dsf_createDsRow("ds_tmp", [{ col: "srchdrugcd", type: "string", size: 256, val: e.newvalue}]);
		
		var objArg = new Object();
			objArg.arg_ds_temp= ds_tmp;
			
		frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");

		ds_main_list2_lipl.setColumn(ds_main_list2_lipl.rowposition, "lnkprcpcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
		ds_main_list2_lipl.setColumn(ds_main_list2_lipl.rowposition, "lnkhngnm", ds_temp_picmmech.getColumn(0, "picmmech_hngnm"));
		ds_send_data1.setColumn(0, "prcpcd", ds_hidden.getColumn(0, "prcpcd"));
	}
}

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

function fDeleteLimPrcpcd()
{
	var prcpcd = ds_main_list1_lipr.getColumn(ds_main_list1_lipr.rowposition, "prcpcd");
	var limflag = ds_main_list1_lipr.getColumn(ds_main_list1_lipr.rowposition, "limflag");
	
	if (!utlf_isNull(prcpcd) && !utlf_isNull(limflag))
	{
		ds_send_send03.setColumn(0, "prcpcd", prcpcd);
		ds_send_send03.setColumn(0, "limflag", limflag);
		
		if (sysf_messageBox("삭제", "S001") != 6)
		{
			return;
		}
		
		var oParam = {};
			oParam.id          = "TXPIB01902";
			oParam.service     = "insubasecdmngtapp.LimRuleCd";
			oParam.method      = "reqDelLimPrcpcd";
			oParam.inds        = "req=ds_send_send03";
			oParam.outds       = "";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPIB01902";

		tranf_submit(oParam);
		
		group2_btn_ref_onclick();
		
		fInitPrcpInfo();		
	} 
	else 
	{
		sysf_messageBox("삭제할 평생제한처방 코드가 선택되지", "E007");
	}
}

function btn_clear_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitPrcpInfo();
}

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