YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SPLPP02400_관련병리번호수정사유.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPP02400" position="absolute 0 0 846 490" titletext="관련병리번호수정사유" class="frm_POP" onload="SPLPP02400_onload">
    <Layouts>
      <Layout>
        <Static id="Static02" class="sta_DA_box" position="absolute 12 46 834 72" anchor="top right"/>
        <Button id="btn_save" class="btn4" taborder="7" visible="false" position="absolute 714 458 770 478" anchor="default" positiontype="position" text="저장" onclick="btn_save_onclick"/>
        <Button id="btn_close" class="btn4" taborder="7" position="absolute 776 458 832 478" anchor="default" positiontype="position" text="닫기" visible="true" onclick="btn_close_onclick"/>
        <Edit id="edt_pid" taborder="8" readonly="true" position="absolute 76 49 157 69" positiontype="position"/>
        <TextArea id="tar_chresn" taborder="9" position="absolute 12 102 834 217" imemode="hangul" positiontype="position"/>
        <Edit id="edt_pnm" taborder="10" readonly="true" position="absolute 222 49 304 69" positiontype="position"/>
        <Edit id="edt_ptno" taborder="11" readonly="true" position="absolute 370 49 452 69" positiontype="position"/>
        <Edit id="edt_bfptno" taborder="12" readonly="true" position="absolute 557 49 639 69" positiontype="position"/>
        <Edit id="edt_afptno" taborder="13" readonly="true" position="absolute 744 49 831 69" positiontype="position"/>
        <Static id="cap_ptnm" text="환 자 명" class="cell_1" position="absolute 160 47 219 71" positiontype="position"/>
        <Static id="cap_pid" text="등록번호" class="cell_1" position="absolute 13 47 73 71" positiontype="position"/>
        <Static id="cap_ptno" text="병리번호" class="cell_1" position="absolute 307 47 367 71" positiontype="position"/>
        <Static id="cap_afptno" text="변경후 병리번호" class="cell_1" position="absolute 642 47 741 71" positiontype="position"/>
        <Static id="cap_bfptno" text="변경전 병리번호" class="cell_1" position="absolute 455 47 554 71" positiontype="position"/>
        <Static id="cap_resnlist" text="변경 이력" class="tit_2" position="absolute 12 227 102 247" positiontype="position"/>
        <Grid id="grd_chngresnlist" taborder="14" useinputpanel="false" position="absolute 12 247 834 455" binddataset="ds_grid_grd_chngresnlist" positiontype="position">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="480"/>
                <Column size="75"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </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="ptno"/>
                <Cell col="6" text="pid"/>
              </Band>
              <Band id="body">
                <Cell text="bind:udptdd"/>
                <Cell col="1" text="bind:bfrelaptno"/>
                <Cell col="2" text="bind:afrelaptno"/>
                <Cell col="3" style="align:left;" text="bind:chngresn"/>
                <Cell col="4" text="bind:updtusernm"/>
                <Cell col="5" text="bind:ptno"/>
                <Cell col="6" text="bind:pid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="cap_chresn" text="변경 사유" class="tit_2" position="absolute 12 82 102 102" positiontype="position"/>
        <Static id="stt_titleText" text="관련병리번호수정 사유" class="sta_POP_title" position="absolute 12 8 193 28"/>
        <Button id="btn_cls" taborder="16" class="btn_POP_cls" position="absolute 822 12 836 25" onclick="btn_close_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grid_grd_chngresnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="udptdd" type="STRING"/>
          <Column id="bfrelaptno" type="STRING"/>
          <Column id="afrelaptno" type="STRING"/>
          <Column id="chngresn" type="STRING"/>
          <Column id="updtusernm" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="pid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_saveyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="saveyn" type="STRING"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="edt_pid" propid="bindgestureset" datasetid="ds_grid_grd_chngresnlist" columnid="pid"/>
      <BindItem id="item1" compid="grd_chngresnlist" propid="binddataset" datasetid="ds_grid_grd_chngresnlist" columnid=""/>
      <BindItem id="item2" compid="edt_pnm" propid="bindgestureset" datasetid="ds_patinfo" columnid="patnm"/>
      <BindItem id="item3" compid="edt_ptno" propid="bindgestureset" datasetid="ds_grid_grd_chngresnlist" columnid="ptno"/>
      <BindItem id="item4" compid="edt_bfptno" propid="bindgestureset" datasetid="ds_grid_grd_chngresnlist" columnid="bfrelaptno"/>
      <BindItem id="item5" compid="edt_afptno" propid="bindgestureset" datasetid="ds_grid_grd_chngresnlist" columnid="afrelaptno"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SPLPP02400_관련병리번호수정사유.xfdl
 * Creator 	    :	
 * Make Date 		:	2015-11-11
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2015-11-11        DBS       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/


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

var lgv_sPtNo       = "";
var lgv_sBfRelaPtNo = "-";
var lgv_sAfRelaPtNo = "-";
var lgv_sResnTxt    = "";
//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------

function lf_exeInitialize(){

	lgv_sPtNo = (opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"ptno")).replace("-","");

	if( opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"relaptno")!="-" ){ 	
		lgv_sBfRelaPtNo = (opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"relaptno")).replace("-","");
	}

    if( plgv_sRelaPtNo != "-"){
        lgv_sAfRelaPtNo = plgv_sRelaPtNo.replace("-","");
    }

    edt_pid.value = opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"pid");
	edt_pnm.value = opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"hngnm"); //수정 : 테스트데이터셋 값을 부모화면에서 받은 값으로.

	ds_saveyn.setColumn(0,"saveyn","0");

	if(lgv_sPtNo.length > 1){
		edt_ptno.value = lgv_sPtNo.substr(0,lgv_sPtNo.length-6) + "-" + lgv_sPtNo.substr(lgv_sPtNo.length-6,6);
	}

    if(lgv_sBfRelaPtNo.length > 1){
		edt_bfptno.value = lgv_sBfRelaPtNo.substr(0, lgv_sBfRelaPtNo.length-6) + "-" + lgv_sBfRelaPtNo.substr(lgv_sBfRelaPtNo.length-6,6);
	}

	if(lgv_sAfRelaPtNo.length > 0){
		edt_afptno.value = lgv_sAfRelaPtNo.substr(0,lgv_sAfRelaPtNo.length-6) + "-" + lgv_sAfRelaPtNo.substr(lgv_sAfRelaPtNo.length-6,6);
		btn_save.visible="true";
	}

    if (plgv_sFlag == "SEARCH") {
        btn_save.visible = false;
        tar_chresn.enable = false;
    } else {
        btn_save.visible = true;
        tar_chresn.enable = true;
    }
	lf_exeSelRsntLis(1);
}
			

function lf_exeSaveData(){

	
	var lgv_sResnTxt = tar_chresn.text;

	if(lgv_sResnTxt.getLength() > 0){
		lf_exeSelRsntLis(2);

		//수정 : 메인에서 관련병리번호 전송한거 받아야함
		ds_test_1.setColumn(0,"afptno", lgv_sAfRelaPtNo);
		ds_saveyn.setColumn(0,"saveyn","1");
		lf_exeWindowClose();
		
	} else {
		
		sysf_messageBox("관련번호 변경 사유를","C001","");
		
	}

}
	

//변경사유 이력조회
function lf_exeSelRsntLis(nKindCd){

	var sTmpAFPTNO = "";
	var sTmpBFPTNO = "";

	//  nKindCd : 1.data select , 2.data insert
	if (nKindCd == 1){
		//데이터셋 동적생성
        var sInDsName = dsf_createDsRow("ds_temp_search"
									,  [{col: "instcd" 	, val:	sysf_getUserInfo("posinstcd")	} 
									,  {col: "pid" 		, val:	opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"pid")} //edt_pid.value
									,  {col: "ptno" 	, val:	lgv_sPtNo} 
									,  {col: "datakind"	, val:	nKindCd} ]);

		tranf_submit({
                     id: "TRLPP02401"
                   , service: "plgyrefmngtapp.AcptSpecRef"
                   , method: "reqRelaptnoResnInfo"
                   , inds : "refData="+sInDsName
                   , outds: "ds_grid_grd_chngresnlist=ptnochngresnlist"
                   , callback: "cbf_TRLPP02401"
                   , async: false
        });		
	} else if(nKindCd == 2){

		var sInDsName2 = dsf_createDsRow("ds_temp_search"
                            , [{col: "instcd" 	 , val:sysf_getUserInfo("posinstcd")	} 
                            ,  {col: "pid" 		 , val:opener.ds_grid_grd_workrsltlist.getColumn(opener.ds_grid_grd_workrsltlist.rowposition,"pid")} //edt_pid.value
							,  {col: "ptno" 	 , val:lgv_sPtNo} 
                            ,  {col: "bfrelaptno", val:lgv_sBfRelaPtNo	} 
                            ,  {col: "afrelaptno", val:lgv_sAfRelaPtNo } //edt_pid.value
                            ,  {col: "updtuserid", val:sysf_getUserId() } 
                            ,  {col: "chngresn"	 , val:lgv_sResnTxt} 
                            ,  {col: "datakind"	 , val:	nKindCd}
                            ,  {col: "workflag"	 , val:	plgv_sFlag} ]);

		tranf_submit({ id: "TXLPR02401"
               , service: "plgyrefmngtapp.AcptSpecRef"
               , method: "reqRelaptnoResnInfo"
               , inds : "refData="+sInDsName2
               , outds: "ds_grid_grd_chngresnlist=ptnochngresnlist"
               , callback: "cbf_TRLPP02401"
               , async: false
				});
		
	}
	
}

function cbf_TRLPP02401(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0) { 
        sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
        return;
    }

    if (strSvcID == "TXLPR02401") {
        var objRetVal = new Object();
        objRetVal.plgv_sRelaPtNo = lgv_sAfRelaPtNo;
        objRetVal.plgv_sSaveYn   = "Y";
        this.close(objRetVal);
    } else {
        tar_chresn.setFocus();
    }
}

function lf_exeWindowClose(){
    var objRetVal = new Object();
    objRetVal.plgv_sRelaPtNo = "";
    objRetVal.plgv_sSaveYn   = "N";
	this.close(objRetVal);
}

function lf_exeSaveData(){

	tar_chresn.value = tar_chresn.text;
	lgv_sResnTxt = tar_chresn.value;
	
	//관련병리번호 변경 이력 저장
	if(lgv_sResnTxt.length>0){
		lf_exeSelRsntLis(2);

	} else { 
	
		sysf_messageBox("관련번호 병경 사유를","C001");
	
	}

}

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Components	    : 
 * Components ID  : SPLPP02400
 * Event 		    : onload
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function SPLPP02400_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);  // 화면공통
	lf_exeInitialize();
			
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_cls
 * Event 		    : onclick
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_exeWindowClose();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_save
 * Event 		    : onclick
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_exeSaveData();
}

]]></Script>
  </Form>
</FDL>