YNU_JEUS/app_home/himed/xpapps/pam/bfjudgcarexp/xp/SMPPI01200_사전신청항암제관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI00800" position="absolute 0 0 960 654" titletext="사전신청항암제관리" oninit="SMPPI00800_oninit" onload="SMPPI00800_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 28 942 620" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 78 940 592" id="grd_bfaclist" class="datagrid3" binddataset="ds_grd_bfaclist" autofittype="col" anchor="all" cellsizingtype="col" onexpanddown="grp_biz_grd_bfaclist_onexpanddown" autoenter="select" selecttype="multirow" oncloseup="grp_biz_grd_bfaclist_oncloseup" ondropdown="grp_biz_grd_bfaclist_ondropdown">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="75"/>
                      <Column size="70"/>
                      <Column size="180"/>
                      <Column size="180"/>
                      <Column size="108"/>
                      <Column size="65"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="55"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="38" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="수가코드"/>
                      <Cell col="2" text="EDI코드"/>
                      <Cell col="3" text="수가명"/>
                      <Cell col="4" text="성분명"/>
                      <Cell col="5" text="신청진료과"/>
                      <Cell col="6" text="신청진료의"/>
                      <Cell col="7" text="신청일자"/>
                      <Cell col="8" text="종료일자"/>
                      <Cell col="9" text="승인구분"/>
                      <Cell col="10" text="등록자"/>
                      <Cell col="11" text="등록일자"/>
                      <Cell col="12" text="수정자"/>
                      <Cell col="13" text="수정일자"/>
                      <Cell col="14" text="instcd"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="text" edittype="expr:ds_grd_bfaclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;text&quot;" editfilter="upper" style="align:left middle;" text="bind:calcscorcd" editimemode="alpha" editautoselect="true" expandshow="show" enable="false"/>
                      <Cell col="2" edittype="none" style="align:left middle;" text="bind:edicd"/>
                      <Cell col="3" edittype="none" style="align:left middle;" text="bind:hngnm"/>
                      <Cell col="4" edittype="none" style="align:left middle;" text="bind:comnm"/>
                      <Cell col="5" displaytype="combo" edittype="expr:ds_grd_bfaclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;combo&quot;" style="align:left middle;" text="bind:orddeptcd" combodataset="ds_cond_deptinfolist" combocodecol="cd" combodatacol="nm" combodisplayrowcount="100" enable="false"/>
                      <Cell col="6" displaytype="combo" edittype="expr:ds_grd_bfaclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;combo&quot;" style="align:center;" text="bind:orddrid" combodataset="expr:currow == ds_grd_bfaclist.rowposition ? 'ds_grd_orddrid' : 'ds_cond_orddrid'" combocodecol="cd" combodatacol="nm" combodisplayrowcount="100"/>
                      <Cell col="7" displaytype="date" edittype="expr:ds_grd_bfaclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;date&quot;" style="align:center middle;" text="bind:rgstdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext" enable="false"/>
                      <Cell col="8" displaytype="date" edittype="date" style="align:center middle;" text="bind:enddd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                      <Cell col="9" displaytype="combo" edittype="combo" style="align:center;" text="bind:aprvcd" combodataset="ds_cmb_aprvcd" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="10" displaytype="text" edittype="text" style="align:center middle;" text="bind:fstrgstrid"/>
                      <Cell col="11" displaytype="date" edittype="date" style="align:center middle;" text="bind:fstrgstdt" mask="yyyy-MM-dd hh:mm" calendardisplaynulltype="nulltext"/>
                      <Cell col="12" style="align:center middle;" text="bind:lastupdtrid"/>
                      <Cell col="13" displaytype="date" edittype="date" text="bind:lastupdtdt" mask="yyyy-MM-dd hh:mm" calendardisplaynulltype="nulltext"/>
                      <Cell col="14" text="bind:instcd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="사전신청항암제관리 리스트" position="absolute 4 56 238 79" id="cap_judgtrgtman" class="tit_2"/>
              <Shape position="absolute 0 69 940 83" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Div position="absolute 1 0 941 40" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 875 10 931 32" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 857 5 863 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="수가코드 :" position="absolute 8 12 103 29" id="caption30" class="search_name" anchor="default"/>
                    <Static text="진료과 :" position="absolute 207 6 273 34" id="caption1" class="search_name" anchor="default"/>
                    <Edit position="absolute 95 10 170 29" id="input1" anchor="default" onkeydown="grp_biz_group1_input1_onkeydown" inputmode="upper" imemode="alpha"/>
                    <Static text="진료의 :" position="absolute 389 12 455 29" id="caption2" class="search_name" anchor="default"/>
                    <Combo id="cmb_deptcd" taborder="33" position="absolute 269 9 369 29" innerdataset="@ds_cond_deptinfolist" codecolumn="cd" datacolumn="nm" index="-1" onitemchanged="grp_biz_group1_cmb_deptcd_onitemchanged"/>
                    <Combo id="cmb_orddrid" taborder="34" position="absolute 461 10 561 30" innerdataset="@ds_init_orddrid" codecolumn="cd" datacolumn="nm"/>
                    <Button id="button17" taborder="35" onclick="group2_button17_onclick" class="icon_search" position="absolute 172 12 188 28"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 717 52 789 71" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_btn_excelsave_onclick"/>
              <Button position="absolute 898 52 940 71" id="button1" class="btn5" text="저장" anchor="top right" onclick="grp_biz_button1_onclick"/>
              <Button position="absolute 790 52 843 71" id="button2" class="btn2" text="행삭제" anchor="top right" onclick="grp_biz_button2_onclick"/>
              <Button position="absolute 844 52 897 71" id="button3" class="btn2" text="행추가" anchor="top right" onclick="grp_biz_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 884 622 940 644" id="btn_cancel" class="btn4" text="종료" onclick="btn_cancel_onclick" anchor="right bottom"/>
        <Static id="cap_title" text="사전신청항암제관리" class="tit_1" position="absolute 1 4 217 27"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_bfaclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rulecd" type="STRING"/>
          <Column id="typecd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="fromdd" type="STRING"/>
          <Column id="todd" type="STRING"/>
          <Column id="cmnt" type="STRING"/>
          <Column id="fstrgstrid" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrid" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="typecd" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
          <Row/>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cond_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cond_deptinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <FilteredDataset id="ds_init_orddrid" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_cond_orddrid"/>
      <Dataset id="ds_cmb_aprvcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cd">0</Col>
            <Col id="nm">불승인</Col>
          </Row>
          <Row>
            <Col id="cd">1</Col>
            <Col id="nm">승인</Col>
          </Row>
          <Row>
            <Col id="cd">2</Col>
            <Col id="nm">부분승인</Col>
          </Row>
        </Rows>
      </Dataset>
      <FilteredDataset id="ds_grd_orddrid" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_cond_orddrid"/>
    </Objects>
    <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";

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

function SMPPI00800_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_bfaclist);
	grdf_setRowTypeIcon(grp_biz.grd_bfaclist, 0);
	fInitialize();
}

function fInitialize(){

	// 진료과, 주치의
	var sInDsName = dsf_createDsRow("ds_cond",[{col: "ioflag", val: ""}]);	
	var oParam = {};
		oParam.id          = "TRPID20309";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetDeptCDDrID";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_cond_deptinfolist=orddeptcd2 ds_cond_orddrid=orddrid2";
		oParam.async       = false;

	tranf_submit(oParam);

		
	fGetDocuList();
}

function fGetDocuList(){
	dsf_createDsRow("ds_send1", [{col:"instcd", type:"STRING", size:256, val: sysf_getUserInfo("dutplceinstcd")}
							  ,  {col:"orddeptcd", type:"STRING", size:256, val: grp_biz.group1.cmb_deptcd.value}
							  ,  {col:"orddrid", type:"STRING", size:256, val: grp_biz.group1.cmb_orddrid.value}
							  ,  {col:"calcscorcd", type:"STRING", size:256, val: grp_biz.group1.input1.value}
							  ]);
							  
	var oParam = {};
		oParam.id          = "TRPPI01001";
		oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
		oParam.method      = "reqGetAppAnticncrList";
		oParam.inds        = "req=ds_send1";
		oParam.outds       = "ds_grd_bfaclist=rslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPPI01001";

	tranf_submit(oParam);
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList()
}

function grp_biz_group1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_group1_ipt_cd_name_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_group1_input2_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_bfaclist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_bfaclist, "exportExcel", "see");
	} else {
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}

function grp_biz_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridDeleteRow();
}

function fSpclGridDeleteRow(){
	var SelectedRows = grdf_getSelectedRows(grp_biz.grd_bfaclist);
	grdf_setStatus(grp_biz.grd_bfaclist, "D", SelectedRows);
}

function grp_biz_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridInsertRow();
}

function fSpclGridInsertRow()
{
	var addRw = ds_grd_bfaclist.addRow();
	ds_grd_bfaclist.setColumn(addRw,"rgstdd", utlf_getCurrentDate());
	ds_grd_bfaclist.setColumn(addRw,"enddd", "99991231");
	ds_grd_bfaclist.setColumn(addRw,"instcd", sysf_getUserInfo("dutplceinstcd"));
	
	return addRw;
}

function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{

	var updtdata = grdf_getGridUpdateData(grp_biz.grd_bfaclist);

	if ( updtdata.rowcount == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return;
	}
	for (var i = ds_grd_bfaclist.rowcount-1; i >= 0; i--)
	{
		var calcscorcd = ds_grd_bfaclist.getColumn(i,"calcscorcd");
		if (ds_grd_bfaclist.getRowType(i) == 8 && utlf_isNull(calcscorcd)) {
			ds_grd_bfaclist.deleteRow(i);
		}
	}
		
	for (var i = ds_grd_bfaclist.rowcount-1; i >= 0; i--)
	{	
		if (ds_grd_bfaclist.getRowType(i) == 2 || ds_grd_bfaclist.getRowType(i) == 4 ) 
		{

			var calcscorcd = grp_biz.grd_bfaclist.getBindCellIndex("body","calcscorcd");
			var orddeptcd = grp_biz.grd_bfaclist.getBindCellIndex("body","orddeptcd");
			var orddrid = grp_biz.grd_bfaclist.getBindCellIndex("body","orddrid");
			var rgstdd = grp_biz.grd_bfaclist.getBindCellIndex("body","rgstdd");
			var enddd = grp_biz.grd_bfaclist.getBindCellIndex("body","enddd");
			
			
			if(!frmf_chkMdtGrid(grp_biz.grd_bfaclist,[calcscorcd,orddeptcd,orddrid,rgstdd,enddd],["수가코드","부서","진료의","신청일자","종료일자"]))
			{
				return;
			}
		}
	}
	
	if (sysf_messageBox("저장", "S001") == 6) 
	{
		var oParam = {};
			oParam.id          = "TXPPI01001";
			oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
			oParam.method      = "reqExeAppAnticncrList";
			oParam.inds        = "req=ds_grd_bfaclist:U";
			oParam.outds       = "ds_grd_bfaclist=rslt";
			oParam.async       = false;
			oParam.callback    = "cf_TXPPI01001";

		tranf_submit(oParam);
		

	}
}

function cf_TXPPI01001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    fGetDocuList();
}


function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function grp_biz_group1_cmb_deptcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	if (utlf_isNull(obj.value)) {
		ds_init_orddrid.filterstr = "";
	} else {
		ds_init_orddrid.filterstr = "dp=='" + obj.value+ "'";
	}
}

function group2_button17_onclick(obj:Button,  e:ClickEventInfo)
{
	grp_biz.group1.input1.updateToDataset();
	
 	dsf_createDsRow("ds_receivedata" , [{col: "srchdrugcd", val: grp_biz.group1.input1.value}
										,{col: "con4_search2", val: grp_biz.group1.input1.value}
										,{col: "con3_search1", val: "hngnm"}]);	
 	
 	var objArg = new Object();
		objArg.arg_ds_temp = ds_receivedata;
		
 	frmf_setParameter("openflag", "hngnm");
 	
	var objRtn = frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_temp_picmmech.copyData(objRtn);
	
	if (ds_temp_picmmech.rowcount > 0)
	{
		var vprcpcd 	= ds_temp_picmmech.getColumn(0,"picmmech_calcscorcd");
		
		 grp_biz.group1.input1.value = vprcpcd;
		 
		ds_temp_picmmech.clearData();
	}
}
function grp_biz_grd_bfaclist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	if (ds_grd_bfaclist.getRowType(e.row) != 1 ) {
		dsf_createDsRow("ds_receivedata" , [{col: "srchdrugcd", val: ds_grd_bfaclist.getColumn(ds_grd_bfaclist.rowposition,"calcscorcd")}
											,{col: "con4_search2", val: ds_grd_bfaclist.getColumn(ds_grd_bfaclist.rowposition,"calcscorcd")}
											,{col: "con3_search1", val: "hngnm"}]);	
		
		var objArg = new Object();
			objArg.arg_ds_temp = ds_receivedata;
			
		frmf_setParameter("openflag", "hngnm");
		
		var objRtn = frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
		
		ds_temp_picmmech.copyData(objRtn);
		
		if (ds_temp_picmmech.rowcount > 0)
		{
			var currrow = ds_grd_bfaclist.rowposition;
			for (var i=0; i < ds_temp_picmmech.rowcount; i++ ) {
				var vprcpcd 	= ds_temp_picmmech.getColumn(i,"picmmech_calcscorcd");
				var vprcpnm	= ds_temp_picmmech.getColumn(i,"picmmech_engnm");
				var vedicd	= ds_temp_picmmech.getColumn(i,"picmmech_insuedicd");
				var vcomnm	= ds_temp_picmmech.getColumn(i,"comnm");

				ds_grd_bfaclist.setColumn(currrow,"calcscorcd", vprcpcd);
				ds_grd_bfaclist.setColumn(currrow,"hngnm", vprcpnm);
				ds_grd_bfaclist.setColumn(currrow,"edicd", vedicd);
				//ds_grd_bfaclist.setColumn(currrow,"comnm", vcomnm);
				
				currrow = fSpclGridInsertRow();
			}
			ds_grd_bfaclist.deleteRow(currrow);
			ds_temp_picmmech.clearData();
		} 
	}
}

function grp_biz_grd_bfaclist_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	if ( obj.getBindCellIndex("body","orddeptcd") == e.col ){
		if (utlf_isNull(e.value)) {
			ds_grd_orddrid.filterstr = "";
		} else {
			ds_grd_orddrid.filterstr = "dp=='"+ e.value +"'";
		}
	}
	
	if ( obj.getBindCellIndex("body","orddrid") == e.col ){
		ds_grd_orddrid.filterstr = "";
	} 
}

function grp_biz_grd_bfaclist_ondropdown(obj:Grid, e:GridEditEventInfo)
{
	if ( obj.getBindCellIndex("body","enddd") == e.col ){
		ds_grd_bfaclist.setColumn(e.row,"enddd", utlf_getCurrentDate());
	} 
}
]]></Script>
  </Form>
</FDL>