YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO09610_조혈모세포이식수혜자선택.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO09610" position="absolute 0 0 730 340" titletext="조혈모세포 이식 수혜자 선택" oninit="SPMMO09610_oninit" onload="SPMMO09610_onload">
    <Layouts>
      <Layout>
        <Static text="조혈모세포 이식 수혜자 선택" position="absolute 0 0 200 24" id="caption12" class="tit_1"/>
        <Div position="absolute 0 24 728 61" id="group_cond" class="div_SA">
          <Layouts>
            <Layout>
              <Static id="caption1" text="등록기간 :" class="search_name" position="absolute 13 11 91 28" anchor="default"/>
              <Calendar id="input6" taborder="1" class="input_default" position="absolute 92 9 182 28" anchor="default" autoselect="true" dateformat="yyyy-MM-dd"/>
              <CheckBox id="checkbox1" taborder="2" position="absolute 539 9 617 28" anchor="default" text="종료/삭제" truevalue="ALL" onchanged="group_cond_checkbox1_onchanged"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 655 7 661 31" anchor="default"/>
              <Button id="bnt_srch" taborder="3" text="조회" class="btn1" position="absolute 667 8 723 30" anchor="default" onclick="group_cond_bnt_srch_onclick"/>
              <Calendar id="input7" taborder="4" class="input_default" position="absolute 202 9 292 28" anchor="default" autoselect="true" dateformat="yyyy-MM-dd"/>
              <Combo id="cmb_prid" taborder="5" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 297 9 352 28" anchor="default" onitemchanged="group_cond_cmb_prid_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">3M</Col>
                      <Col id="datacolumn">3개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">6M</Col>
                      <Col id="datacolumn">6개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">9M</Col>
                      <Col id="datacolumn">9개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1Y</Col>
                      <Col id="datacolumn">1년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2Y</Col>
                      <Col id="datacolumn">2년</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Static id="caption13" text="~" position="absolute 187 9 202 29" anchor="default"/>
              <Static id="caption14" text="환자번호 :" class="search_name" position="absolute 367 11 445 28" anchor="default"/>
              <Edit id="ipt_pid2" taborder="6" position="absolute 449 9 529 28" anchor="default" onkeydown="group_cond_ipt_pid2_onkeydown" autoselect="true"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 612 313 668 335" id="button8" class="btn4" text="선택" onclick="button8_onclick"/>
        <Button position="absolute 671 313 727 335" id="button9" class="btn4" text="닫기" onclick="button9_onclick"/>
        <Grid id="grd_bmtpatlist" taborder="2" binddataset="ds_main_bmtpatlist" useinputpanel="false" position="absolute 0 64 728 311" oncelldblclick="grd_bmtpatlist_oncelldblclick" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="70"/>
                <Column size="60"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="55"/>
                <Column size="60"/>
                <Column size="70"/>
                <Column size="242"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="70"/>
                <Column size="100"/>
              </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="유형"/>
                <Cell col="6" text="이식시행"/>
                <Cell col="7" text="메모"/>
                <Cell col="8" text="등록자"/>
                <Cell col="9" text="등록일시"/>
                <Cell col="10" text="수정자"/>
                <Cell col="11" text="수정일시"/>
              </Band>
              <Band id="body">
                <Cell displaytype="date" text="bind:bmtdd" calendardisplaynulltype="nulltext"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" displaytype="text" text="bind:diagnm"/>
                <Cell col="4" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:trnptkind" combodataset="ds_cmb_trnptkind" combocodecol="value" combodatacol="label"/>
                <Cell col="5" displaytype="text" text="bind:donorkind"/>
                <Cell col="6" displaytype="text" text="bind:trnptdd" mask="####-##-##" maskchar=" " calendardisplaynulltype="none"/>
                <Cell col="7" displaytype="text" style="align:left top;" text="bind:memo"/>
                <Cell col="8" text="bind:fstrgstrnm"/>
                <Cell col="9" text="bind:fstrgstdt" mask="@@@@-@@-@@ @@:@@"/>
                <Cell col="10" text="bind:lastupdtrnm"/>
                <Cell col="11" text="bind:lastupdtdt" mask="@@@@-@@-@@ @@:@@" calendardisplaynulltype="none"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_bmtpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bmtdd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="diagnm" type="STRING"/>
          <Column id="trnptkind" type="STRING"/>
          <Column id="donorid" type="STRING"/>
          <Column id="donornm" type="STRING"/>
          <Column id="donorkind" type="STRING"/>
          <Column id="insureqdd" type="STRING"/>
          <Column id="insuaprvdd" type="STRING"/>
          <Column id="trnptdd" type="STRING"/>
          <Column id="holddd" type="STRING"/>
          <Column id="memo" type="STRING"/>
          <Column id="fstrgstrnm" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrnm" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="option" type="STRING" size="256"/>
          <Column id="prid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prid">1Y</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_trnptkind" 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>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_patnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cmb_donorkind" 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">-</Col>
          </Row>
          <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>
          <Row>
            <Col id="label">해외</Col>
            <Col id="value">E</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_sex" 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">-</Col>
          </Row>
          <Row>
            <Col id="label">남자</Col>
            <Col id="value">M</Col>
          </Row>
          <Row>
            <Col id="label">여자</Col>
            <Col id="value">F</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_donorinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="etcordflag" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group_cond.input6" propid="value" datasetid="ds_main_cond" columnid="fromdd"/>
      <BindItem id="item1" compid="group_cond.input7" propid="value" datasetid="ds_main_cond" columnid="todd"/>
      <BindItem id="item2" compid="group_cond.cmb_prid" propid="value" datasetid="ds_main_cond" columnid="prid"/>
      <BindItem id="item3" compid="group_cond.ipt_pid2" propid="value" datasetid="ds_main_cond" columnid="pid"/>
      <BindItem id="item4" compid="group_cond.checkbox1" propid="value" datasetid="ds_main_cond" columnid="option"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KNUH2.0
 * Job Name 		:	EMR
 * Creator 	    :	
 * Make Date 		:	2015-02-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-02-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs"
include "emr_prcpmngtxp::MMOCommon.xjs"

var arErrorCode = new HashArray();

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SPMMO09600
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 열릴때 초기화 실행
 ****************************************************************************************/
function SPMMO09610_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SPMMO09600
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면오픈시 폼load이후 실행
 ****************************************************************************************/
function SPMMO09610_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setGridSort(grd_bmtpatlist);
	grdf_setToolTipBind(grd_bmtpatlist);
	
	fInitialize();
}

/****************************************************************************************
 * Components		: Combo
 * Components ID	: group_cond.cmb_prid
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 등록기간 기간콤보 변경
 ****************************************************************************************/
function group_cond_cmb_prid_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var today = utlf_getCurrentDate();
	var idate = new Date();
	var prid  = ds_main_cond.getColumn(0,"prid");

	if (prid =="3M") {
		var threeMDate   = idate.getAddDate(-3, "M");
		ds_main_cond.setColumn(0,"fromdd", threeMDate.getDateFormat());								
		ds_main_cond.setColumn(0,"todd"  , today);	
	} else if (prid =="6M") {
		var sixMDate      = idate.getAddDate(-6, "M");
		ds_main_cond.setColumn(0,"fromdd", sixMDate.getDateFormat());								
		ds_main_cond.setColumn(0,"todd"  , today);	
	} else if (prid =="9M") {
		var nineMDate    = idate.getAddDate(-9, "M");
		ds_main_cond.setColumn(0,"fromdd", nineMDate.getDateFormat());								
		ds_main_cond.setColumn(0,"todd"  , today);	
	} else if (prid =="1Y") {
		var oneYDate     = idate.getAddDate(-1, "Y");
		ds_main_cond.setColumn(0,"fromdd", oneYDate.getDateFormat());								
		ds_main_cond.setColumn(0,"todd"  , today);	
	} else if (prid =="2Y") {
		var twoYDate      = idate.getAddDate(-2, "Y");
		ds_main_cond.setColumn(0,"fromdd", twoYDate.getDateFormat());								
		ds_main_cond.setColumn(0,"todd"  , today);	
	} 
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: group_cond.ipt_pid2
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 환자번호 입력 후 엔터
 ****************************************************************************************/
function group_cond_ipt_pid2_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		var ev = new ClickEventInfo;
		frmf_inputEnterKey("group_cond.bnt_srch", "onclick", ev );
	}
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: group_cond.checkbox1
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 종료/삭제 체크박스 체크시 조회실행
 ****************************************************************************************/
function group_cond_checkbox1_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	fSearch();
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: group_cond.bnt_srch
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회버튼 클릭
 ****************************************************************************************/
function group_cond_bnt_srch_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: button9
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 삭제 버튼 클릭
 ****************************************************************************************/
function button9_onclick(obj:Button,  e:ClickEventInfo)
{
	close();
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: button8
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 선택 버튼 클릭
 ****************************************************************************************/
function button8_onclick(obj:Button,  e:ClickEventInfo)
{
	fAppBmtPat();	
}


/****************************************************************************************
 * Components		: Grid
 * Components ID	: grd_bmtpatlist
 * Event			: oncelldblclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조혈모세포 대상환자 리스트 더블클릭
 ****************************************************************************************/
function grd_bmtpatlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1) {
		fAppBmtPat();
	}
}


/***************************************************************************************************
 * Function         : fInitialize
 * Description      : 화면 초기화
 * Argument         : 
 * return type      :
 * Creator          : 
 ***************************************************************************************************/
function fInitialize(){  
	ds_main_cond.setColumn(0,"fromdd",((utlf_getCurrentDate().toDate()).getAddDate(-12,"M")).getDateFormat()); //시작일자는 12개월 전 
	ds_main_cond.setColumn(0,"todd"	 ,utlf_getCurrentDate());
	
	var sDonorOrdType    = "";
	var sDonorEtcOrdFlag = "";
	var sDonorId         = "";
	var sDonorOrdDd      = "";
	var sDonorCretNo     = "";
	var sDonorNm         = "";
	var sDonorSex        = "";
	var sDonorAge        = "";
	
	var sParamYn = opener.frmf_getParameter("SPMMO09610_paramyn"); // 파라미터 이용 여부
	if(!utlf_isNull(sParamYn) && sParamYn == "Y"){ // 외래 진료대상자에서 호출했을때 파라미터 이용
		sDonorOrdType    = opener.frmf_getParameter("SPMMO09610_ordtype");
		sDonorEtcOrdFlag = opener.frmf_getParameter("SPMMO09610_etcordflag");
		sDonorId         = opener.frmf_getParameter("SPMMO09610_pid");
		sDonorOrdDd      = opener.frmf_getParameter("SPMMO09610_orddd");
		sDonorCretNo     = opener.frmf_getParameter("SPMMO09610_cretno");
		sDonorNm         = opener.frmf_getParameter("SPMMO09610_hngnm");
		sDonorSex        = opener.frmf_getParameter("SPMMO09610_sex");
		sDonorAge        = opener.frmf_getParameter("SPMMO09610_age");	    
	
	} else { // 처방 화면에서 호출했을때 상단정보를 이용
		var topPamInfo = sysf_getGlobalVariable("paminfo");
		if(!utlf_isNull(topPamInfo) && topPamInfo.length != 0) {
			dsf_setCSVToDs("ds_temp_paminfo", topPamInfo);
		
			sDonorOrdType    = ds_temp_paminfo.getColumn(0, "ordtype");
			sDonorEtcOrdFlag = ds_temp_paminfo.getColumn(0, "etcordflag");
			sDonorId         = ds_temp_paminfo.getColumn(0, "pid");
			sDonorOrdDd      = ds_temp_paminfo.getColumn(0, "orddd");
			sDonorCretNo     = ds_temp_paminfo.getColumn(0, "cretno");
			sDonorNm         = ds_temp_paminfo.getColumn(0, "hngnm");
			sDonorSex        = ds_temp_paminfo.getColumn(0, "sex");
			sDonorAge        = ds_temp_paminfo.getColumn(0, "age");
		}
	}
	
	if (utlf_isNull(sDonorId)) {
		sysf_messageBox("기증자 정보가 없어 수혜자를 등록 할수 없습니다.", "E");
		close();
		return;
	}
	
	if (sDonorOrdType != "O") {
		sysf_messageBox("외래 환자만 수혜자를 등록 할수 있습니다.", "E");
		close();
		return;
	}
		
	if (sDonorEtcOrdFlag != "V" ) {
		sysf_messageBox("조혈모세포 이식검사 접수 유형의 환자만 수혜자를 등록 할수 있습니다.", "E");
		close();
		return;
	}
	
	ds_donorinfo.setColumn(0, "ordtype", 	sDonorOrdType);  
	ds_donorinfo.setColumn(0, "etcordflag", sDonorEtcOrdFlag);  
	ds_donorinfo.setColumn(0, "pid", 		sDonorId);  
	ds_donorinfo.setColumn(0, "orddd", 		sDonorOrdDd);  
	ds_donorinfo.setColumn(0, "cretno", 	sDonorCretNo);  
	ds_donorinfo.setColumn(0, "hngnm", 		sDonorNm);  
	ds_donorinfo.setColumn(0, "sex", 		sDonorSex);  
	ds_donorinfo.setColumn(0, "age", 		sDonorAge);  
	
	fSearch();
}

/***************************************************************************************************
 * Function         : fSearch
 * Description      : 조혈모세포 이식환자 조회
 * Argument         : 
 * return type      :
 * Creator          : 
 ***************************************************************************************************/
function fSearch(){
	var oParam = {};
		oParam.id          = "TRMMO09611";
		oParam.service     = "prcpmngtapp.ConcPatMngt";
		oParam.method      = "reqGetBMTPatList";
		oParam.inds        = "req=ds_main_cond";
		oParam.outds       = "ds_main_bmtpatlist=bmtpatlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMMO09611";

	tranf_submit(oParam);
}

/***************************************************************************************************
 * Function         : cf_TRMMO09611
 * Description      : TRMMO09601 콜백 함수
 * Argument         : 
 * return type      :
 * Creator          : 
 ***************************************************************************************************/
function cf_TRMMO09611(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/***************************************************************************************************
 * Function         : fAppBmtPat
 * Description      : 수혜자 정보 적용
 * Argument         : 
 * return type      :
 * Creator          : 
 ***************************************************************************************************/
function fAppBmtPat(){
    
    var sInstCd       = "";
    var sPid          = "";
    var sHngNm        = "";
    var sBmtDd        = "";
    var sBmtNo        = "";
    
    var sDonorOrdType = "";
    var sDonorId      = "";
    var sDonorOrdDd   = "";
    var sDonorCretNo  = "";
    var sDonorSex     = "";
    var sDonorAge     = "";
    
    var currow = ds_main_bmtpatlist.rowposition;
    if (currow < 0) {
		sysf_messageBox("수혜자를 선택 하세요.","I999");
		return;
    }
    
    sInstCd          = ds_main_bmtpatlist.getColumn(currow, "instcd");
	sBmtDd           = ds_main_bmtpatlist.getColumn(currow, "bmtdd");
	sBmtNo           = ds_main_bmtpatlist.getColumn(currow, "bmtno");
	sPid             = ds_main_bmtpatlist.getColumn(currow, "pid");
	sHngNm           = ds_main_bmtpatlist.getColumn(currow, "hngnm");
	
	sDonorId         = ds_donorinfo.getColumn(0, "pid");
	sDonorOrdDd      = ds_donorinfo.getColumn(0, "orddd");
	sDonorCretNo     = ds_donorinfo.getColumn(0, "cretno");
	sDonorNm         = ds_donorinfo.getColumn(0, "hngnm");
	sDonorSex        = ds_donorinfo.getColumn(0, "sex");
	sDonorAge        = ds_donorinfo.getColumn(0, "age");
	
	if( "6" != sysf_messageBox(sHngNm + "(" + sPid + ")님을 수혜자로 선택 하시겠습니까?", "Q")) {
		return;
	}
		
    dsf_makeValue(ds_send_savedata, "instcd",      "string", sInstCd);
    dsf_makeValue(ds_send_savedata, "bmtdd",       "string", sBmtDd);
    dsf_makeValue(ds_send_savedata, "bmtno",       "string", sBmtNo);
    dsf_makeValue(ds_send_savedata, "pid",         "string", sPid);
	dsf_makeValue(ds_send_savedata, "donorid",     "string", sDonorId);
	dsf_makeValue(ds_send_savedata, "donororddd",  "string", sDonorOrdDd);
	dsf_makeValue(ds_send_savedata, "donorcretno", "string", sDonorCretNo);
	dsf_makeValue(ds_send_savedata, "donornm",     "string", sDonorNm);
	dsf_makeValue(ds_send_savedata, "donorsex",    "string", sDonorSex);
	dsf_makeValue(ds_send_savedata, "donorage",    "string", sDonorAge);
	
	var oParam = {};
		oParam.id          = "TXMMO09611";
		oParam.service     = "prcpmngtapp.ConcPatMngt";
		oParam.method      = "reqExeAppBmtPat";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "";

	tranf_submit(oParam);
	
    close();
}
]]></Script>
  </Form>
</FDL>