YNU_JEUS/app_home/himed/xpapps/emr/wardcarexp/xp/SMMNW20010_BMT 이식환자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNW20010" position="absolute 0 0 385 235" titletext="BMT 이식환자관리" oninit="SMMNW20010_oninit" onload="SMMNW20010_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 365 235" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="BMT 이식환자관리" position="absolute 0 5 178 20" id="caption6" class="tit_2"/>
              <Shape position="absolute 0 20 360 26" linetype="horizontal" id="line1" class="line_10"/>
              <Edit position="absolute 77 26 177 45" id="ipt_pid" enable="false" onkeydown="grp_biz_ipt_pid_onkeydown" onkillfocus="grp_biz_ipt_pid_onkillfocus"/>
              <Edit position="absolute 257 26 357 45" id="ipt_hngnm" enable="false"/>
              <Shape position="absolute 0 44 360 50" linetype="horizontal" id="line2" class="line_2"/>
              <Static text="등록번호" position="absolute 0 25 75 48" align="align:center middle;" id="caption2" class="cell_1" style="align:center middle;"/>
              <Static text="환자명" position="absolute 180 25 255 48" align="align:center middle;" id="caption3" class="cell_1" style="align:center middle;"/>
              <Shape position="absolute 0 68 360 74" linetype="horizontal" id="line3" class="line_2"/>
              <Static text="이식종류" position="absolute 0 49 75 72" align="align:center middle;" id="caption4" class="cell_1" style="align:center middle;"/>
              <Shape position="absolute 0 92 360 98" linetype="horizontal" id="line6" class="line_2"/>
              <Shape position="absolute 0 189 360 195" linetype="horizontal" id="line7" class="line_3"/>
              <Static text="이식일" position="absolute 0 73 75 96" align="align:center middle;" id="caption5" class="cell_1" style="align:center middle;"/>
              <Shape position="absolute 0 144 360 150" linetype="horizontal" id="line4" class="line_2"/>
              <Static text="*상기환자는 동종조혈모세포 이식환자로 수혈 시 주의를 요합니다" position="absolute 4 191 360 220" id="caption14" style="color:#ff0000ff;"/>
              <Shape position="absolute 0 120 360 126" linetype="horizontal" id="line5" class="line_10"/>
              <Static text="환자/공여자 정보(이식전 혈액형)" position="absolute 0 104 240 120" id="caption1" class="tit_2"/>
              <Static text="Recipient" position="absolute 0 125 75 148" align="align:center middle;" id="caption11" class="cell_1" style="align:center middle;"/>
              <Static text="Donor" position="absolute 0 149 75 172" align="align:center middle;" id="caption7" class="cell_1" style="align:center middle;"/>
              <Shape position="absolute 0 168 360 174" linetype="horizontal" id="line8" class="line_2"/>
              <Radio position="absolute 78 50 168 70" id="radio2" class="radio_default" enable="false" columncount="2" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="grp_biz_radio2_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">자가</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">동종</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Combo position="absolute 175 50 358 69" id="cmb_trnptkindcd" class="combo_default" enable="false" innerdataset="@ds_init_cmbinfo_trnptkindcd_A0161" datacolumn="hsctmdlnm" codecolumn="hsctmdlcd" onitemchanged="grp_biz_cmb_trnptkindcd_onitemchanged"/>
              <Calendar position="absolute 79 74 169 93" id="input16" class="input_default" enable="false"/>
              <Combo position="absolute 78 126 193 145" id="cmb_pattrnptbfbtype" class="combo_default" enable="false" taborder="1" innerdataset="@ds_init_cmbinfo_btype_M0376" datacolumn="cdnm" codecolumn="cdid"/>
              <Combo position="absolute 78 150 193 169" id="combo1" class="combo_default" enable="false" taborder="1" innerdataset="@ds_init_cmbinfo_btype_M0376" datacolumn="cdnm" codecolumn="cdid"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_cmbinfo_trnptkindcd_A0161" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_cmbinfo_btype_M0376" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </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="pid" 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>
      <Dataset id="ds_main_patinfo_patlist" 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"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="trnptkind" type="STRING" size="256"/>
          <Column id="trnptkindcd" type="STRING" size="256"/>
          <Column id="trnptdd" type="STRING" size="256"/>
          <Column id="pattrnptbfbtype" type="STRING" size="256"/>
          <Column id="dnorbtype" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_tempcodeinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_hsctinfo_trnptinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.ipt_pid" propid="value" datasetid="ds_main_patinfo_patlist" columnid="pid"/>
      <BindItem id="item1" compid="grp_biz.radio2" propid="value" datasetid="ds_main_patinfo_patlist" columnid="trnptkind"/>
      <BindItem id="item2" compid="grp_biz.cmb_trnptkindcd" propid="value" datasetid="ds_main_patinfo_patlist" columnid="trnptkindcd"/>
      <BindItem id="item3" compid="grp_biz.input16" propid="value" datasetid="ds_main_patinfo_patlist" columnid="trnptdd"/>
      <BindItem id="item4" compid="grp_biz.cmb_pattrnptbfbtype" propid="value" datasetid="ds_main_patinfo_patlist" columnid="pattrnptbfbtype"/>
      <BindItem id="item5" compid="grp_biz.combo1" propid="value" datasetid="ds_main_patinfo_patlist" columnid="dnorbtype"/>
      <BindItem id="item6" compid="grp_biz.ipt_hngnm" propid="value" datasetid="ds_main_patinfo_patlist" columnid="hngnm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-02-14
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-02-14      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "ast_hsctxp::bmtcommon.xjs";

function fSearchPatInfo() {
	dsf_makeValue(ds_send_reqdata,"pid","string",ds_main_patinfo_patlist.getColumn(0, "pid"));

	var oParam = {};
    oParam.id          = "TRMNW20010";
    oParam.service     = "wardcareapp.TranMngt";
    oParam.method      = "reqGetPatBMTInfo";
    oParam.inds        = "req=ds_send_reqdata";
    oParam.outds       = "ds_main_patinfo_patlist=patinfo";
    oParam.async       = false;

	tranf_submit(oParam);	

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

function SMMNW20010_onload(obj:Form, e:LoadEventInfo)
{
	var pid="";
	var indd="";
	var cretno="";
	
	dsf_createDs("ds_main_paminfo");
	var node = sysf_getGlobalVariable("paminfo");
	dsf_setCSVToDs("ds_main_paminfo", node);
	
	//팝업화면이 아닐경우 상단에 환자 정보가 있는지 여부를 확인하고 
	if(!utlf_isNull(ds_main_paminfo.getColumn(0,"pid"))){	//상단정보에 환자가 셋팅되어 있을 경우					
		pid =  ds_main_paminfo.getColumn(0, "pid");
	} else {
		//팝업으로 뜬화면인가 여부확인.팝업일 경우 팝업화면 파라메터를 가지고온다.
		if(frmf_checkOpener()) {
			pid = opener.frmf_getParameter("SMMNW20010_PID");							
		}
	}
	
	appf_getCodeList([{dsNm: "ds_init_cmbinfo_btype_M0376", cdGrpId: "M0376"}], true);
							   
	//BMT 코드성 데이터 조회.(기존의 공통코드로 사용했던것들을 BMT에서 관리하도록 수정 후)
	var arrParam2 	= [
	   {dsNm: "ds_init_cmbinfo_trnptkindcd_A0161", cdGrpId: "A0161"}
	];
	  
	aboGetCodeList(arrParam2);
	
	//환자 등록번호가 존재할 경우에는 
	if( !utlf_isNull(pid) ) {
		ds_main_patinfo_patlist.setColumn(0, "pid", pid);
		fSearchPatInfo();
	}			
}

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

function grp_biz_ipt_pid_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	fSearchPatInfo();
}

function grp_biz_radio2_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
}

function grp_biz_cmb_trnptkindcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
}
]]></Script>
  </Form>
</FDL>