YNU_JEUS/app_home/himed/xpapps/emr/cpgxp/xp/SMMMP02100_CP품절약관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMMP02100" position="absolute 0 0 1016 718" titletext="CP 품절약 관리" onload="SMMMP02100_onload" rtldirection="inherit" oninit="SMMMP02100_oninit">
    <Layouts>
      <Layout>
        <Static text="품절약 조회(CP)" position="absolute 2 5 184 21" id="cap_inqr" class="tit_2" visible="false"/>
        <Div id="grp_condition" taborder="2" position="absolute 2 24 1011 69" style="background:azure URL('theme://images/bg_search.png') stretch 7,7;" anchor="left top right">
          <Layouts>
            <Layout width="1009" height="45">
              <Button id="btn_req" taborder="0" text="조회" class="btn1" position="absolute 946 12 1002 34" anchor="top right" onclick="grp_condition_btn_req_onclick"/>
              <Button id="btn_saveExcel" taborder="8" text="엑셀저장" onclick="btn_saveExcel_onclick" class="btn7" position="absolute 856 13 936 33" anchor="top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption20" text="품절 종료된 약 LIST" class="tit_2" position="absolute 4 76 176 96"/>
        <Grid id="grd_main_drugchglist" taborder="3" useinputpanel="false" position="absolute 5 100 1012 400" binddataset="ds_main_drugchglist" autofittype="col" cellsizingtype="col" extendsizetype="both" anchor="left top right" oncelldblclick="grd_main_drugchglist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="92"/>
                <Column size="168"/>
                <Column size="144"/>
                <Column size="202"/>
                <Column size="125"/>
                <Column size="40" band="right"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="No"/>
                <Cell col="1" text="약품 코드"/>
                <Cell col="2" text="약품명"/>
                <Cell col="3" text="대체코드"/>
                <Cell col="4" text="사유"/>
                <Cell col="5" text="변경 일시"/>
                <Cell col="6"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1" autosizecol="limitmax"/>
                <Cell col="1" style="align:left;" text="bind:prcpcd" autosizecol="limitmax"/>
                <Cell col="2" style="align:left;" text="bind:drugnm" autosizecol="limitmax"/>
                <Cell col="3" style="align:left;" text="bind:drugalt" autosizecol="limitmax"/>
                <Cell col="4" style="align:left;" text="bind:drugaltetc" tooltiptype="bottom" tooltiptext="bind:drugaltetc" autosizerow="default" autosizecol="limitmax"/>
                <Cell col="5" text="bind:lastupdtdt" autosizecol="limitmax"/>
                <Cell col="6"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_main_cplist" taborder="4" binddataset="ds_main_cplist" useinputpanel="false" extendsizetype="both" cellsizingtype="col" autofittype="none" position="absolute 5 406 1011 688" anchor="all" oncelldblclick="grd_main_cplist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="32"/>
                <Column size="116"/>
                <Column size="168"/>
                <Column size="47"/>
                <Column size="109"/>
                <Column size="218"/>
                <Column size="168"/>
                <Column size="189"/>
                <Column size="170"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="No" autosizecol="limitmax"/>
                <Cell col="1" text="소속과"/>
                <Cell col="2" text="CP명"/>
                <Cell col="3" text="종류"/>
                <Cell col="4" text="약품 코드"/>
                <Cell col="5" text="약품명"/>
                <Cell col="6" text="대체약 정보"/>
                <Cell col="7" text="사유"/>
                <Cell col="8" text="최종변경"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1"/>
                <Cell col="1" text="bind:cpgorddeptnm" autosizecol="default"/>
                <Cell col="2" style="align:left;" text="bind:cpgnm" autosizecol="default"/>
                <Cell col="3" style="align:center;" text="bind:prcpkindnm"/>
                <Cell col="4" text="bind:prcpcd"/>
                <Cell col="5" text="bind:drugnm"/>
                <Cell col="6" text="bind:drugalt"/>
                <Cell col="7" style="align:left;" text="bind:drugaltetc"/>
                <Cell col="8" text="bind:lastupdtdt" autosizecol="limitmax"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button9" taborder="7" text="닫기" onclick="grp_btn_button9_onclick" class="btn4" position="absolute 952 694 1008 714" anchor="right bottom"/>
        <Button id="Button00" taborder="8" text="Button00" position="absolute 698 77 802 99" onclick="Button00_onclick" visible="false"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_drugchglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" preload="true">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="drugnm" type="STRING" size="256"/>
          <Column id="drugalt" type="STRING" size="256"/>
          <Column id="drugaltetc" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_cplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cpgorddeptnm" type="STRING" size="256"/>
          <Column id="cpgnm" type="STRING" size="256"/>
          <Column id="prcpkindnm" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="drugnm" type="STRING" size="256"/>
          <Column id="drugalt" type="STRING" size="256"/>
          <Column id="drugaltetc" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="DATETIME" size="256"/>
          <Column id="cpgno" type="STRING" size="256"/>
          <Column id="cpghistseq" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="255"/>
          <Column id="is_cplist" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="is_cplist">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_temp_setdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind/>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2019-01-21
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2019-01-21      KimHyeonSeok   Create Form
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";

function grp_btn_button9_onclick(obj:Button,  e:ClickEventInfo)
{
	close();
}

function grp_condition_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	// 대상 약 조회
	ds_send_reqdata.setColumn(1, "is_cplist", "N");
	fSrchCpDrugChgList();	
	
	
	ds_send_reqdata.setColumn(0, "prcpcd", "");
	ds_send_reqdata.setColumn(0, "is_cplist", "Y");	
	fSrchCpDrugChgList();
	
	ds_main_cplist.filterstr="";
}

function fSrchCpDrugChgList()
{
	var oParam = {};	
	oParam.id          = "TRMMP0210";	
	oParam.service     = "prcpinfoapp.PrcpInfoEtcMngt";
	oParam.method      = "reqGetSoldOutDrugList";			
	oParam.inds        = "req=ds_send_reqdata";
	
	if (ds_send_reqdata.getColumn(0, "is_cplist") == "N")		
		oParam.outds       = "ds_main_drugchglist=result";	
	else	
		oParam.outds       = "ds_main_cplist=result";			
	oParam.async       = false;
		
	tranf_submit(oParam);	
}

// 약품 코드 더블 클릭 시 적용된 CP 리스트 조회
function grd_main_drugchglist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{	
	var sPrcpcd = ds_main_drugchglist.getColumn(ds_main_drugchglist.rowposition, "prcpcd"); 	
 	ds_main_cplist.filterstr = "prcpcd == '" + sPrcpcd + "'";
 	
// 	ds_send_reqdata.setColumn(0, "prcpcd", ds_main_drugchglist.getColumn(ds_main_drugchglist.rowposition, "prcpcd"));
// 	ds_send_reqdata.setColumn(0, "is_cplist", "Y");	
// 	fSrchCpDrugChgList();
}

// 화면 로드
function SMMMP02100_onload(obj:Form, e:LoadEventInfo)
{
	// In-DataSet 초기화
	ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(0, "prcpcd", "");	
	ds_send_reqdata.setColumn(0, "is_cplist", "N");	
		
}

// 더블 클릭 시 CP/CPG 관리 화면 팝업으로 띄움
function grd_main_cplist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fOpenCpgMaster();
}


// CP 마스터 화면 팝업
function fOpenCpgMaster()
{
	ds_main_temp_setdata.clearData();
	ds_main_temp_setdata.addRow();  
	
	dsf_makeValue(ds_main_temp_setdata, "cpgno"     , "string", ds_main_cplist.getColumn(ds_main_cplist.rowposition, "cpgno"));
	dsf_makeValue(ds_main_temp_setdata, "cpghistseq", "string", ds_main_cplist.getColumn(ds_main_cplist.rowposition, "cpghistseq"));
	
// 	dsf_makeValue(ds_main_temp_setdata, "indxno",     "string", ""); //Tab00.tabpage1.ds_main_indxlist.getColumn(vRow, "indxno"));
// 	dsf_makeValue(ds_main_temp_setdata, "supindxno",  "string", ""); //Tab00.tabpage1.ds_main_indxlist.getColumn(vRow, "supindxno"));
// 	dsf_makeValue(ds_main_temp_setdata, "indxrefseq", "string", ""); //Tab00.tabpage1.ds_main_indxlist.getColumn(vRow, "indxrefseq"));
// 	dsf_makeValue(ds_main_temp_setdata, "indxseq",    "string", ""); //Tab00.tabpage1.ds_main_indxlist.getColumn(vRow, "indxseq"));
// 	dsf_makeValue(ds_main_temp_setdata, "cpgnm",      "string", ""); //Tab00.tabpage1.ds_main_indxlist.getColumn(vRow, "indxnm"));		

	dsf_makeValue(ds_main_temp_setdata, "authflag",   "string", "M"); //ds_search_cond.getColumn(0, "authflag"));
	dsf_makeValue(ds_main_temp_setdata, "saveasflag", "string", "SR");
	
	grd_main_cplist.enable=false;
				
	var mainObj = frmf_getMainViewer(); 	
	
	var objArg = new Object();
	//objArg.arg_ds_temp_getdata = removeChild("ds_main_temp_setdata");
	objArg.arg_ds_temp_getdata = ds_main_temp_setdata;
	
	var objScrnInfo = new Object();
	objScrnInfo.scrnauth = "X";

	mainObj.frmf_openForm("SMMQP00600", objScrnInfo, objArg);	
	
	grd_main_cplist.enable=true;	
}

// 엑셀 저장 버튼 클릭
function btn_saveExcel_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_main_cplist, "품절약 CP 리스트.xlsx", "품절약 CP 리스트", false,"", "user", true);	//파일 다이얼로그로 저장위치 저장
	//grdf_exportExcel(grd_menuitemlist, excelFileName, opt_menugrupnm.value, false, "", "user", true );
}

// 기준 값으로 
function fDistinctDataSet(objDs:Dataset, stdColumn, arrColumns)
{
	trace( "Start fDistinctDataSet()" );
		
	var ds_obj_distinct_data;	
	ds_obj_distinct_data = new Dataset();	
	ds_obj_distinct_data.fireevent = false;
		
	var strColType, nColSize;

	// 컬럼 세팅
	for (var i = 0; i < arrColumns.length; i++)
	{
		strColType = objDs.getColumnInfo(arrColumns[i]).type ;		
		nColSize   = objDs.getColumnInfo(arrColumns[i]).size ;		
		
		trace ("Col Type : " + strColType + " , Col Size : " + nColSize );
		
		ds_obj_distinct_data.addColumn(arrColumns[i], strColType, nColSize);
	}	
	
	var nRow;
	var nTotalRow = objDs.getRowCount();
		
	for (var i = 0; i < nTotalRow; i++)
	{
		/*trace ( "ds data : " + objDs.getColumn(i, stdColumn) );*/
		if (ds_obj_distinct_data.findRow(stdColumn, objDs.getColumn(i, stdColumn)) < 0)
		{
			nRow = ds_obj_distinct_data.addRow();
			ds_obj_distinct_data.copyRow(nRow, objDs, i)			
		}
	}
	
	ds_obj_distinct_data.fireevent = true
	return ds_obj_distinct_data;
}


// 
function Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	//var ds = fDistinctDataSet (ds_main_cplist, "prcpcd", new Array("prcpcd", "drugnm", "drugalt", "drugaltetc", "lastupdtdt") );	
	//grd_main_drugchglist00.binddataset = ds;	
}

function SMMMP02100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}
]]></Script>
  </Form>
</FDL>