YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SMLPP00800_처방변경이력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPP00800" position="absolute 0 0 1256 805" titletext="처방변경이력" oninit="SMLPP00800_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="처방리스트" class="tit_2" position="absolute 0 77 100 96"/>
        <Div id="div_grp" taborder="1" style="align:center top;" class="div_SA" position="absolute 0 26 1256 68" anchor="left top right">
          <Layouts>
            <Layout>
              <Edit id="edt_barcdno" taborder="12" class="input_search" position="absolute 71 10 170 29" anchor="default" onkeydown="div_grp_edt_barcdno_onkeydown" useime="none" imemode="alpha" maxlength="9" inputtype="number" inputmode="upper"/>
              <Static id="caption2" text="검색값 " class="search_name" position="absolute 10 10 71 30" anchor="default"/>
              <Static id="caption4" text="~" position="absolute 901 10 917 30" style="align:center;" anchor="default"/>
              <Static id="caption5" text="수정일자" class="search_name" position="absolute 727 10 801 30" anchor="default"/>
              <Calendar id="edt_ddto" taborder="13" class="input_search" position="absolute 917 10 1017 29" mask="####-##-##" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Calendar id="edt_ddfrom" taborder="14" class="input_search" position="absolute 801 10 901 29" mask="####-##-##" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Static id="caption3" text="병리번호" class="search_name" position="absolute 294 10 368 30" anchor="default"/>
              <Combo id="cmb_trsmdeptcd" taborder="15" class="combo_search" position="absolute 173 10 270 29" anchor="default" innerdataset="@ds_cond_seamthd" codecolumn="value" datacolumn="label" index="0" value="0" text="등록번호" onitemchanged="div_grp_cmb_trsmdeptcd_onitemchanged"/>
              <Combo id="cmb_ptnocd" taborder="16" position="absolute 368 10 524 29" anchor="default" innerdataset="@ds_cond_ptnocode" codecolumn="ptnocd" datacolumn="ptnonm" index="-1"/>
              <Edit id="edt_fromptno" taborder="17" class="text_center" position="absolute 557 10 607 29" anchor="default" maxlength="6" inputtype="number"/>
              <Static id="caption7" text="~" position="absolute 607 10 623 30" anchor="default" style="align:center;"/>
              <Edit id="edt_toptno" taborder="18" class="text_center" position="absolute 653 10 703 29" anchor="default" inputtype="number" maxlength="6"/>
              <Edit id="edt_toyear" taborder="19" class="text_center" position="absolute 623 10 650 29" anchor="default" inputtype="number" maxlength="2"/>
              <Edit id="edt_fromyear" taborder="20" class="text_center" position="absolute 527 10 554 29" anchor="default" inputtype="number" maxlength="2"/>
              <Button id="btn_sea" taborder="21" text="조회" class="btn1" position="absolute 1188 10 1244 29" anchor="top right" onclick="div_grp_btn_sea_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_prcpupdthist" class="CSS::lis.css" taborder="2" useinputpanel="false" position="absolute 0 97 1256 805" autofittype="none" anchor="all" binddataset="ds_grid_grd_prcpupdthist" cellsizingtype="both" autosizingtype="none">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="144"/>
                <Column size="60"/>
                <Column size="94"/>
                <Column size="60"/>
                <Column size="90"/>
                <Column size="60"/>
                <Column size="90"/>
                <Column size="70"/>
                <Column size="60"/>
                <Column size="70"/>
              </Columns>
              <Rows>
                <Row size="35" band="head"/>
                <Row size="28"/>
              </Rows>
              <Band id="head">
                <Cell text="기관코드"/>
                <Cell col="1" text="병리번호"/>
                <Cell col="2" text="병리번호"/>
                <Cell col="3" text="처방일자"/>
                <Cell col="4" text="접수일자"/>
                <Cell col="5" text="등록번호"/>
                <Cell col="6" text="환자성명"/>
                <Cell col="7" text="변경전&#10;처방코드"/>
                <Cell col="8" text="변경전&#10;처방명"/>
                <Cell col="9" text="변경후&#10;처방코드"/>
                <Cell col="10" text="변경후&#10;처방명"/>
                <Cell col="11" text="변경전&#10;검체코드"/>
                <Cell col="12" text="변경전&#10;검체명"/>
                <Cell col="13" text="변경후&#10;검체코드"/>
                <Cell col="14" text="변경후&#10;검체명"/>
                <Cell col="15" text="변경일자"/>
                <Cell col="16" text="변경시간"/>
                <Cell col="17" text="변경자"/>
              </Band>
              <Band id="body">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2" class="text_center" text="bind:dispptno"/>
                <Cell col="3" text="bind:prcpdd" mask="expr:prcpdd==null?'':'####-##-##'"/>
                <Cell col="4" text="bind:acptdd" mask="expr:acptdd==null?'':'####-##-##'"/>
                <Cell col="5" displaytype="text" edittype="normal" class="text_center" text="bind:pid"/>
                <Cell col="6" class="text_center" text="bind:patnm"/>
                <Cell col="7" style="align:left;" text="bind:bfprcpcd"/>
                <Cell col="8" style="align:left;" text="bind:bfprcpnm"/>
                <Cell col="9" style="align:left;" text="bind:afprcpcd"/>
                <Cell col="10" style="align:left;" text="bind:afprcpnm"/>
                <Cell col="11" style="align:left;" class="text_center" text="bind:bfspccd"/>
                <Cell col="12" style="align:left;" text="bind:bfspcnm"/>
                <Cell col="13" style="align:left;" class="text_center" text="bind:afspccd"/>
                <Cell col="14" style="align:left;" text="bind:afspcnm"/>
                <Cell col="15" text="bind:updtdd" mask="expr:updtdd==null?'':'####-##-##'"/>
                <Cell col="16" text="bind:updttm" mask="expr:updttm==null?'':'##:##:##'"/>
                <Cell col="17" text="bind:updtnm"/>
                <Cell col="18"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excel" taborder="3" text="EXCEL저장" class="btn7" position="absolute 1162 74 1253 94" anchor="top right" onclick="btn_excel_onclick"/>
        <Static id="caption1" text="처방변경이력" class="tit_1" position="absolute 0 1 145 26"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond_seamthd" 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">0</Col>
          </Row>
          <Row>
            <Col id="label">처방코드(전)</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">검체코드(전)</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cond_ptnocode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ptnocd" type="STRING" size="256"/>
          <Column id="ptnonm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_prcpupdthist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="instcd" type="STRING" size="256"/>
          <column id="ptno" type="STRING" size="256"/>
          <column id="dispptno" type="STRING" size="256"/>
          <column id="prcpdd" type="STRING" size="256"/>
          <column id="acptdd" type="STRING" size="256"/>
          <column id="pid" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <column id="bfprcpcd" type="STRING" size="256"/>
          <column id="bfprcpnm" type="STRING" size="256"/>
          <column id="afprcpcd" type="STRING" size="256"/>
          <column id="afprcpnm" type="STRING" size="256"/>
          <column id="bfspccd" type="STRING" size="256"/>
          <column id="bfspcnm" type="STRING" size="256"/>
          <column id="afspccd" type="STRING" size="256"/>
          <column id="afspcnm" type="STRING" size="256"/>
          <column id="updtdd" type="STRING" size="256"/>
          <column id="updttm" type="STRING" size="256"/>
          <column id="updtnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdd" type="STRING" size="256"/>
          <Column id="systm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SMLPP00800_처방변경이력.xfdl
 * Creator 	    :	
 * Make Date 		:	2015-11-11
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2014-03-11        DBS      Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LLZ001.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LPZ001.xjs";


var instcd = "";
var seaddkind = "";	// 검색일자종류(0:처방일자, 1:접수일자)
//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID  : model1
 * Event 		    : lf_setInit
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 초기화 함수
 ****************************************************************************************/
function lf_exeInitialize() {
	
	var sCurDate = "";
	ds_grid_grd_prcpupdthist.clearData();
	instcd = sysf_getUserInfo("dutplceinstcd");
		
	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd", val:instcd }
								 ]);
	// 서브밋호출
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData="+sInDsName;
		oParam.outds       = "ds_data_sysdtinfo=sysdtinfo";
		oParam.async       = false;
		oParam.callback    = "cbf_SMLPP00800";

	tranf_submit(oParam);
	
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_search
 * Event 		    : onlbuttonup
 * Argument		: 01.btnflag : 
 *				: 02. : 
 * Description	: 처방변경이력 조회 처리 함수 
 ****************************************************************************************/
 function lf_getPrcpUpdtList() {
	
	var sPtNoCd = div_grp.cmb_ptnocd.value;

	if(sPtNoCd.replace("-", "") != "") {
        // 조회시 병리번호 From ~ To 체크/셋팅
        gf_getPtNoSetting(div_grp.edt_ddfrom.value
                        , div_grp.edt_ddto.value
                        , div_grp.cmb_ptnocd
                        , div_grp.edt_fromyear
                        , div_grp.edt_fromptno
                        , div_grp.edt_toyear
                        , div_grp.edt_toptno);
	}
	
	var refval = div_grp.edt_barcdno.value;
	var refmthd  = div_grp.cmb_trsmdeptcd.value;
	var ptnocode = sPtNoCd.replace("-", "");
	var fromyear = div_grp.edt_fromyear.value;
	var fromptno = div_grp.edt_fromptno.value;
	var toyear   = div_grp.edt_toyear.value;
	var toptno   = div_grp.edt_toptno.value;
	var refddkind = seaddkind;
	var fromdd = div_grp.edt_ddfrom.value;
	var todd = div_grp.edt_ddto.value;
	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd", val:instcd }
								 ,  {col: "fromdd", val:fromdd }
								 ,  {col: "todd", val:todd }
								 ,  {col: "refval", val:refval }
								 ,  {col: "refmthd", val:refmthd }
								 ,  {col: "ptnocode", val:ptnocode }
								 ,  {col: "fromyear", val:fromyear }
								 ,  {col: "fromptno", val:fromptno }
								 ,  {col: "toyear", val:toyear }
								 ,  {col: "toptno", val:toptno }
								 ,  {col: "refddkind", val:refddkind }
								 ]);
	// 서브밋호출
	var oParam = {};
		oParam.id          = "TRLPP00801";
		oParam.service     = "plgyrefmngtapp.AcptSpecRef";
		oParam.method      = "reqGetPrcpUpdtList";
		oParam.inds        = "refData="+sInDsName;
		oParam.outds       = "ds_grid_grd_prcpupdthist=refrslt";
		oParam.async       = false;
		oParam.callback    = "cbf_SMLPP00800";

	tranf_submit(oParam);

}

// 그리드 자료 Excel로 저장 처리 function
function lf_exeSaveToExcel() {
    if(ds_grid_grd_prcpupdthist.rowcount > 0){
        grdf_exportExcel(grd_prcpupdthist, lf_lisGetTitle(this), "처방변경이력", false, "", "none", false);
	} else {
		sysf_messageBox("저장할 내용이","I004","");
	}

}

// 검색값을 입력하고 Enter키를 누를 경우 처리 Function
function lf_exeSeaValOnKeyPress() {
		
// 	if(div_grp.cmb_trsmdeptcd.value == "0") {
//         div_grp.edt_barcdno.value = utlf_lPad(div_grp.edt_barcdno.value, 9, "0");   //등록번호 9자리로 변경
// 	}
	
	lf_getPrcpUpdtList();	
}

// callback 함수
function cbf_SMLPP00800(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID){
			
			case "TRLPZ00102":
					var refflagcd = "0";
					var sInDsName = dsf_createDsRow("ds_temp_search"
												 , [{col: "instcd", val:instcd }
												 , {col: "refflagcd", val:refflagcd }
												 ]);
					// 서브밋호출
					var oParam = {};
						oParam.id          = "TRLPZ00109";
						oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
						oParam.method      = "reqGetPtNoCdList";
						oParam.inds        = "refdata=="+sInDsName;
						oParam.outds       = "ds_cond_ptnocode=rsltlist";
						oParam.async       = false;
						oParam.callback    = "cbf_SMLPP00800";

					tranf_submit(oParam);
					
				break;
			case "TRLPZ00109":
					var sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd");
					
					// 초기값 설정
					div_grp.edt_barcdno.value = "";		// 검색값 초기화
					div_grp.cmb_trsmdeptcd.value = "0";	// 검색방법(0:등록번호,1:환자성명,2:처방코드(변경전),3:검체코드(변경전) 초기화
					seaddkind = "1";	// 검색일자종류(0:처방일자, 1:접수일자)
					div_grp.edt_ddfrom.value = ds_data_sysdtinfo.getColumn(0, "sysdd");	// 취소일자(From)
					div_grp.edt_ddto.value  = ds_data_sysdtinfo.getColumn(0, "sysdd");	// 취소일자(To)
					div_grp.cmb_ptnocd.value = "-";
					div_grp.edt_fromyear.value = sCurDate.substr(2,2);
					div_grp.edt_toyear.value = sCurDate.substr(2,2);
					div_grp.edt_fromptno.value = "";
					div_grp.edt_toptno.value = "";
					grdf_setGridSort(grd_prcpupdthist);
				break;
			case "TRLPJ00701":
					
				break;
			default:
				break;
		}
	}
}

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	: 
 * Components ID: SMLPP00800
 * Event 		: onload
 * Argument		: 01.obj	: Form
 *				: 02.e		: Event InitEventInfo
 * Description	: 
 ****************************************************************************************/
function SMLPP00800_onload(obj:Form, e:InitEventInfo)
{
	grdf_initGrid(grd_prcpupdthist);
	//폼 초기화 함수
	frmf_initForm(obj);

	
	lf_exeInitialize();				
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : edt_barcdno
 * Event 		    : 
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 검색값 edit keydown 이벤트
 ****************************************************************************************/
function div_grp_edt_barcdno_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13) {
		lf_exeSeaValOnKeyPress();
	}
}




/****************************************************************************************
 * Components	: 
 * Components ID: cmb_trsmdeptcd
 * Event 		: onitemchanged
 * Argument		: 01.obj	: Combo
 *				: 02.e		: ItemChangeEventInfo
 * Description	: 검색조건이 바뀔때 입력 자릿수 지정
 ****************************************************************************************/
function div_grp_cmb_trsmdeptcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
    div_grp.edt_barcdno.value = "";
    switch (div_grp.cmb_trsmdeptcd.value) {
        case "0":
            div_grp.edt_barcdno.maxlength = "9" ;
            div_grp.edt_barcdno.inputtype="number";
            break;
        case "1":
            div_grp.edt_barcdno.maxlength = "15" ;
            div_grp.edt_barcdno.inputtype="numberandenglish";
            break;
        case "2":
            div_grp.edt_barcdno.maxlength = "6" ;
            div_grp.edt_barcdno.inputtype="numberandenglish";
            break;
         default:
            div_grp.edt_barcdno.maxlength = "9" ;
            div_grp.edt_barcdno.inputtype="numberandenglish";
            break;
        }
}

function div_grp_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_getPrcpUpdtList();
}

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