YNU_JEUS/app_home/himed/xpapps/lis/donmngtxp/xp/SPLBD90100_지정헌혈정보등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLBD90100" position="absolute 0 0 318 447" titletext="지정헌혈정보등록" oninit="SPLBD90100_oninit" onload="SPLBD90100_onload">
    <Layouts>
      <Layout>
        <Shape id="line7" linetype="horizontal" class="line_10" position="absolute 0 26 313 32"/>
        <Static id="caption6" text="혈액종류" class="cell_1" position="absolute 0 150 130 173"/>
        <Static id="caption9" text="수혜자 정보" class="tit_2" position="absolute 2 10 117 26"/>
        <Static id="caption10" text="공여자 정보" class="tit_2" position="absolute 2 206 141 222"/>
        <Static id="caption4" text="공여일" class="cell_1" position="absolute 0 394 130 417"/>
        <Shape id="line2" linetype="horizontal" class="line_10" position="absolute 0 222 313 228"/>
        <Shape id="line14" linetype="horizontal" class="line_2" position="absolute 0 50 313 56"/>
        <Shape id="line3" linetype="horizontal" class="line_2" position="absolute 0 74 313 80"/>
        <Shape id="line4" linetype="horizontal" class="line_2" position="absolute 0 98 313 104"/>
        <Shape id="line11" linetype="horizontal" class="line_2" position="absolute 0 122 313 128"/>
        <Shape id="line12" linetype="horizontal" class="line_2" position="absolute 0 146 313 152"/>
        <Shape id="line13" linetype="horizontal" class="line_2" position="absolute 0 246 313 252"/>
        <Shape id="line15" linetype="horizontal" class="line_2" position="absolute 0 318 313 324"/>
        <Shape id="line16" linetype="horizontal" class="line_2" position="absolute 0 342 313 348"/>
        <Shape id="line17" linetype="horizontal" class="line_2" position="absolute 0 366 313 372"/>
        <Shape id="line18" linetype="horizontal" class="line_2" position="absolute 0 390 313 396"/>
        <Shape id="line1" linetype="horizontal" position="absolute 0 414 313 420"/>
        <Static id="cap_room" text="병실" class="cell_1" position="absolute 0 54 130 77"/>
        <Static id="cap_name" text="성명" class="cell_1" position="absolute 0 226 130 249"/>
        <Static id="cap_ward" text="병동" class="cell_1" position="absolute 0 30 130 53"/>
        <Static id="cap_patient" text="등록번호" class="cell_1" position="absolute 0 78 130 101"/>
        <Static id="cap_resdnreg" text="주민등록번호" class="cell_1" position="absolute 0 250 130 273"/>
        <Static id="cap_regno" text="환자명" class="cell_1" position="absolute 0 102 130 125"/>
        <Static id="caption3" text="혈액원" class="cell_1" position="absolute 0 370 130 393"/>
        <Static id="cap_cntctelno" text="연락처" class="cell_1" position="absolute 0 346 130 369"/>
        <Static id="cap_btype1" text="혈액형" class="cell_1" position="absolute 0 322 130 345"/>
        <Static id="cap_btype" text="혈액형" class="cell_1" position="absolute 0 126 130 149"/>
        <Static id="caption1" text="비고" class="cell_1" position="absolute 0 174 130 197"/>
        <Shape id="line9" linetype="horizontal" class="line_3" position="absolute 0 194 313 200"/>
        <Static id="caption2" text="성별" class="cell_1" position="absolute 0 274 130 297"/>
        <Static id="caption5" text="나이" class="cell_1" position="absolute 0 298 130 321"/>
        <Shape id="line5" linetype="horizontal" class="line_2" position="absolute 0 170 313 176"/>
        <Shape id="line6" linetype="horizontal" class="line_2" position="absolute 0 270 313 276"/>
        <Shape id="line8" linetype="horizontal" class="line_2" position="absolute 0 294 313 300"/>
        <Combo id="cmb_Room" taborder="0" innerdataset="@ds_init_lb0114" codecolumn="cd" datacolumn="nm" class="combo_essential" position="absolute 133 55 313 74" onitemclick="cmb_Room_onitemclick" onitemchanged="cmb_Room_onitemchanged"/>
        <Combo id="cmb_Ward" taborder="1" innerdataset="@ds_init_lb0001" codecolumn="cd" datacolumn="nm" class="combo_essential" position="absolute 133 31 313 50" oncloseup="cmb_Ward_oncloseup"/>
        <Combo id="cmb_PID" taborder="2" position="absolute 133 79 313 98" onkeydown="cmb_PID_onkeydown" class="combo_essential" index="-1" codecolumn="cd" datacolumn="cd" innerdataset="@ds_pat" readonly="false" imemode="direct" type="filter" ontextchange="cmb_PID_ontextchange" oncloseup="cmb_PID_oncloseup"/>
        <Edit id="opt_PatNm" taborder="3" readonly="true" position="absolute 133 103 313 122" class="output"/>
        <Edit id="opt_BType" taborder="4" readonly="true" position="absolute 133 127 313 146" class="output"/>
        <Combo id="cmb_BlodKind" taborder="5" innerdataset="@ds_init_lb1001" codecolumn="cd" datacolumn="nm" class="combo_essential" position="absolute 133 151 313 170"/>
        <Edit id="ipt_DnorNm" taborder="6" class="input_essential" position="absolute 133 227 313 246"/>
        <Edit id="ipt_RrgstNo1" taborder="7" position="absolute 133 251 215 270" maxlength="6" autoskip="true" onkillfocus="ipt_RrgstNo1_onkillfocus"/>
        <Radio id="rdo_Sex" taborder="10" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 158 276 280 295">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">M</Col>
                <Col id="datacolumn">M</Col>
              </Row>
              <Row>
                <Col id="codecolumn">F</Col>
                <Col id="datacolumn">F</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Edit id="ipt_Age" taborder="11" position="absolute 133 299 313 318"/>
        <Combo id="cmb_ABO" taborder="9" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_essential" position="absolute 133 323 220 342">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">A</Col>
              </Row>
              <Row>
                <Col id="codecolumn">B</Col>
                <Col id="datacolumn">B</Col>
              </Row>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">O</Col>
              </Row>
              <Row>
                <Col id="codecolumn">AB</Col>
                <Col id="datacolumn">AB</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Combo id="cmb_Rh" taborder="12" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_essential" position="absolute 226 323 313 342">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">+</Col>
                <Col id="datacolumn">Rh+</Col>
              </Row>
              <Row>
                <Col id="codecolumn">-</Col>
                <Col id="datacolumn">Rh-</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Edit id="ipt_CntcTel" taborder="13" position="absolute 133 347 313 366"/>
        <Edit id="ipt_BlodHous" taborder="14" class="input_essential" position="absolute 133 371 313 390"/>
        <Calendar id="ipt_DnorDd" taborder="15" class="input_essential" position="absolute 133 395 313 414"/>
        <Edit id="ipt_RrgstNo2" taborder="8" position="absolute 231 251 313 270" autoskip="true" onkillfocus="ipt_RrgstNo2_onkillfocus" maxlength="7"/>
        <Static id="caption7" text="-" class="search_no_b" position="absolute 218 250 228 267"/>
        <Edit id="ipt_Rem" taborder="16" class="input_essential" position="absolute 133 175 313 194"/>
        <Button id="btn_cfm" taborder="17" text="닫기" class="btn4" position="absolute 254 421 310 443" onclick="btn_cfm_onclick"/>
        <Button id="btn_save" taborder="18" text="저장" class="btn4" position="absolute 195 421 251 443" onclick="btn_save_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_cmb_Room" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING"/>
          <Column id="cd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_Ward" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING"/>
          <Column id="cd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_PID" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_BlodKind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING"/>
          <Column id="cd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_benf" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ward" type="STRING" size="256"/>
          <Column id="room" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="btype" type="STRING" size="256"/>
          <Column id="blodkind" type="STRING" size="256"/>
          <Column id="rem" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_dnor" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="abo" type="STRING" size="256"/>
          <Column id="rh" type="STRING" size="256"/>
          <Column id="cntctel" type="STRING" size="256"/>
          <Column id="blodhous" type="STRING" size="256"/>
          <Column id="dd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_lb1001" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING"/>
          <Column id="nm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_lb0114" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING"/>
          <Column id="nm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_lb0001" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING"/>
          <Column id="nm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="codeflag" type="STRING" size="256"/>
          <Column id="ward" type="STRING" size="256"/>
          <Column id="room" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="basecdid" type="STRING" size="256"/>
          <Column id="basecdid2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_pat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="nm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="etc01" type="STRING" size="256" sumtext="병동"/>
          <Column id="etc02" type="STRING" size="256" sumtext="병실"/>
          <Column id="etc03" type="STRING" size="256" sumtext="간호사"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_patNmABO" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="btype" type="STRING" size="256" sumtext="혈액형"/>
          <Column id="prcpremfact" type="STRING" size="256" sumtext="비고"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_Ward" propid="value" datasetid="ds_main_benf" columnid="ward"/>
      <BindItem id="item1" compid="cmb_Room" propid="value" datasetid="ds_main_benf" columnid="room"/>
      <BindItem id="item2" compid="cmb_PID" propid="value" datasetid="ds_main_benf" columnid="pid"/>
      <BindItem id="item3" compid="opt_PatNm" propid="value" datasetid="ds_main_benf" columnid="patnm"/>
      <BindItem id="item4" compid="opt_BType" propid="value" datasetid="ds_main_benf" columnid="btype"/>
      <BindItem id="item5" compid="cmb_BlodKind" propid="value" datasetid="ds_main_benf" columnid="blodkind"/>
      <BindItem id="item6" compid="ipt_Rem" propid="value" datasetid="ds_main_benf" columnid="rem"/>
      <BindItem id="item7" compid="ipt_DnorNm" propid="value" datasetid="ds_main_dnor" columnid="nm"/>
      <BindItem id="item8" compid="ipt_RrgstNo1" propid="value" datasetid="ds_main_dnor" columnid="rrgstno1"/>
      <BindItem id="item9" compid="ipt_RrgstNo2" propid="value" datasetid="ds_main_dnor" columnid="rrgstno2"/>
      <BindItem id="item10" compid="rdo_Sex" propid="value" datasetid="ds_main_dnor" columnid="sex"/>
      <BindItem id="item11" compid="ipt_Age" propid="value" datasetid="ds_main_dnor" columnid="age"/>
      <BindItem id="item12" compid="cmb_Rh" propid="value" datasetid="ds_main_dnor" columnid="rh"/>
      <BindItem id="item13" compid="cmb_ABO" propid="value" datasetid="ds_main_dnor" columnid="abo"/>
      <BindItem id="item14" compid="ipt_CntcTel" propid="value" datasetid="ds_main_dnor" columnid="cntctel"/>
      <BindItem id="item15" compid="ipt_BlodHous" propid="value" datasetid="ds_main_dnor" columnid="blodhous"/>
      <BindItem id="item16" compid="ipt_DnorDd" propid="value" datasetid="ds_main_dnor" columnid="dd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";

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

function SPLBD90100_onload(obj:Form, e:LoadEventInfo)
{
	fSetInit();
}

function fSetInit()
{
	ds_main_benf.clearData();
	ds_main_dnor.clearData();
	ds_main_benf.addRow();
	ds_main_dnor.addRow();
	var today = utlf_getCurrentDate();
	
	 dsf_createDsRow("ds_temp_search", [{col : "codeflag", val : "0001|0114|1001|"}]);
	 
	 var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_temp_search";
		oParam.outds       = "ds_init_lb0001=0001 ds_init_lb0114=0114 ds_init_lb1001=1001";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";
	tranf_submit(oParam);
	
	
	ds_main_benf.setColumn(0, "ward", "00");
	ds_main_benf.setColumn(0, "blodkind", "-");
	fSetRoom();
				
	//model.setValue("/root/main/dnor/dd ", today);
	ds_main_dnor.setColumn(0, "dd", today);
	
	var menu = gds_menuInfo.getColumn(0, "menuitemcd");

	if(menu != "MI00410211" && menu != "MI00410193")
	{
		var pid = appf_getPatientInfo("pid");
		if(!utlf_isNull(pid))
		{
			ds_main_benf.setColumn(0, "pid", pid);
			fGetPatNmABO();
		}
	 }
}

//병동에 따른 병실 조회
function fSetRoom()
{
	var ward = ds_main_benf.getColumn(0, "ward");
	
	if(ward == "00")
	{
		ds_main_benf.setColumn(0, "room", "000000");
	}
	else
	{
		ds_main_benf.setColumn(0, "room", "000000");
		ds_init_lb0114.filter("cd == '000000' || etc01 == '" + ward + "'");
	}
}


function cmb_Ward_oncloseup(obj:Combo, e:ComboCloseUpEventInfo)
{
	trace("value="+cmb_Ward.value);
	fWardSelect("W");
}


// function cmb_Room_onitemclick(obj:Combo, e:ListBoxClickEventInfo)
// {
// 	
// }

function cmb_PID_onkeydown(obj:Combo, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if(!utlf_isNull(cmbPIDtextchange))
		{
			fKeyEvent();
		}
	}
}

function cmb_PID_onitemclick(obj:Combo, e:ListBoxClickEventInfo)
{
	//fKeyEvent(e);
	/*fGetPatNmABO();*/
}

//키이벤트 
function fKeyEvent()
{
		if(ds_init_cmb_PID.rowcount > 0){
			ds_init_cmb_PID.filter("cd == " + cmbPIDtextchange);
			if(ds_init_cmb_PID.rowcount == 0){
				ds_init_cmb_PID.addRow();
				ds_init_cmb_PID.setColumn(ds_init_cmb_PID.rowcount - 1, "cd" , cmbPIDtextchange);
				ds_main_benf.setColumn(0, "pid", cmbPIDtextchange);
			}
			ds_init_cmb_PID.filter("");
		}
		else if (ds_init_cmb_PID.rowcount == 0){
			ds_init_cmb_PID.addRow();
			ds_init_cmb_PID.setColumn(ds_init_cmb_PID.rowcount - 1, "cd" , cmbPIDtextchange)
			ds_main_benf.setColumn(0, "pid", cmbPIDtextchange);
		}
		
		

		var inputpid = ds_main_benf.getColumn(0, "pid"); //model.getValue("/root/main/benf/pid");
		//var inputpid = ds_init_cmb_PID.getColumn(0, "cd");
		trace("inputpid="+inputpid);
		//model.makeValue("/root/send/flag", "p");
		//model.makeValue("/root/send/basecdid", inputpid);
// 		submit("TRLLC00201"); //pid로 병동/병실조회
		ds_send.setColumn(0, "flag", "p");
		ds_send.setColumn(0, "basecdid", inputpid);
		var oParam = {};
			oParam.id          = "TRLLC00201";
			oParam.service     = "bcollmngtapp.BCollMngt";
			oParam.method      = "reqGetPatInfo";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_pat=pat";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLLC00201.xml";
		tranf_submit(oParam);
// 		//병동/병실 set
// 		model.setValue("/root/main/benf/ward", model.getValue("/root/init/pat[cd = '"+ inputpid +"']/etc01"));
// 		model.setValue("/root/main/benf/room", model.getValue("/root/init/pat[cd = '"+ inputpid +"']/etc02"));
// 		model.setValue("/root/main/benf/pid", inputpid);
		ds_main_benf.setColumn(0, "ward", ds_pat.getColumn("cd =='" + inputpid + "'", "etc01"));
		ds_main_benf.setColumn(0, "room", ds_pat.getColumn("cd =='" + inputpid + "'", "etc02"));
		ds_main_benf.setColumn(0, "pid", inputpid);
		
// 		
// 		//병동/병실에 따른 환자조회
// 		model.makeValue("/root/send/flag", "a");
// 		model.makeValue("/root/send/basecdid", model.getvalue("/root/main/benf/room"));
// 		model.makeValue("/root/send/basecdid2", model.getvalue("/root/main/benf/ward"));
// 		submit("TRLLC00201");

		ds_send.setColumn(0, "flag", "a");
		ds_send.setColumn(0, "basecdid", ds_main_benf.getColumn(0, "room"));
		ds_send.setColumn(0, "basecdid2", ds_main_benf.getColumn(0, "ward"));
		
		var oParam = {};
			oParam.id          = "TRLLC00201";
			oParam.service     = "bcollmngtapp.BCollMngt";
			oParam.method      = "reqGetPatInfo";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_pat=pat";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLLC00201.xml";
		tranf_submit(oParam);
		
		ds_send.clearData();
		ds_send.addRow();

 		fGetPatNmABO();
}
function fWardSelect(flag)
{	
	ds_main_benf.setColumn(0, "pid", "");
	
	if(flag == "W")	 //병동 체인지 시
	{
		var wcd = ds_main_benf.getColumn(0, "ward");
		var rcd = ds_main_benf.getColumn(0, "room");
		
		if(wcd != "00")
		{
			ds_send.setColumn(0, "flag", "w");
			ds_send.setColumn(0, "basecdid", wcd);
			  
			ds_init_lb0114.filter("cd == '000000' || etc01 == '" + wcd + "'");	// 병실 
			//model.setValue("/root/main/benf/room", "000000");
			ds_main_benf.setColumn(0, "room", "000000");
		}
		else
		{
			ds_main_benf.setColumn(0, "room", "000000");
 		}
		ds_init_cmb_PID.addRow();
		ds_init_cmb_PID.setColumn(0, "cd", "00");
 		ds_main_benf.setColumn(0, "pid", "00");
	}
	else if(flag == "R")	 //병실 체인지시
	{
		var wcd = ds_main_benf.getColumn(0, "ward");
		var rcd = ds_main_benf.getColumn(0, "room");
		
		trace("wcd = " + wcd);
		trace("rcd = " + rcd);
		
		 if(wcd != "00" && rcd != "000000")
		 {
			ds_send.setColumn(0, "flag", "a");
			ds_send.setColumn(0, "basecdid", rcd);
			ds_send.setColumn(0, "basecdid2", wcd);
		}
		else if(rcd != "000000")
		{
			ds_send.setColumn(0, "flag", "r");
			ds_send.setColumn(0, "basecdid", rcd);
		}
		else if(wcd != "00")
		{
			ds_send.setColumn(0, "flag", "w");
			ds_send.setColumn(0, "basecdid", wcd);
		}
		else
		{
			return;
		}
		//submit("TRLLC00201");
		var oParam = {};
			oParam.id          = "TRLLC00201";
			oParam.service     = "bcollmngtapp.BCollMngt";
			oParam.method      = "reqGetPatInfo";
			oParam.inds        = "cond=ds_send";
			oParam.outds       = "ds_pat=pat";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLLC00201.xml";
		tranf_submit(oParam);
		
		//model.setValue("/root/main/benf/pid", "00");
		ds_main_benf.setColumn(0, "pid", "00");
		
	}
	else if(flag == "P")
	{
//     flag == "P" 없음.
// 		if(model.getValue("/root/hidden/JoHoiFlag/pat") == "00")
// 		{
// 			model.setValue("/root/hidden/JoHoiFlag/regnopatnm", "");
// 		}
// 		else
// 		{
// 			model.setValue("/root/hidden/JoHoiFlag/regnopatnm", model.getValue("/root/hidden/JoHoiFlag/pat"));
// 		}
	}
//	ds_send.clearData();
	ds_send.addRow();
}

//등록번호에 따른 환자명과 혈액형 조회
function fGetPatNmABO()
{
	//model.setValue("/root/send/pid", model.getValue("/root/main/benf/pid"));
	//ds_send.setColumn(0, "pid", ds_main_benf.getColumn(0, "pid"));
	dsf_createDsRow("ds_temp_pid", [{col : "pid", val : ds_main_benf.getColumn(0, "pid")}]);
	//if(model.getValue("/root/send/pid") == "")
	if(utlf_isNull(ds_temp_pid.getColumn(0, "pid")))
	{
		sysf_messageBox("등록번호를 확인해주세요.","I");
		return;
	}
	
	var oParam = {};
		oParam.id          = "TRLBD90102";
		oParam.service     = "donmngtapp.BloodWinMngt";
		oParam.method      = "reqGetPatNmABO";
		oParam.inds        = "cond=ds_temp_pid";
		oParam.outds       = "ds_cond_patNmABO=getPatNmABO";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLBD90102";
	tranf_submit(oParam);
	//if(submit("TRLBD90102"))
	//{
	opt_PatNm.value =  ds_cond_patNmABO.getColumn(0, "patnm");// model.getValue("/root/hidden/ref/patnm");
	opt_BType.value = ds_cond_patNmABO.getColumn(0, "btype"); // model.getValue("/root/hidden/ref/btype");
	//ipt_Rem.value = ds_cond_patNmABO.getColumn(0, "rem"); // model.getValue("/root/hidden/ref/rem");
	//}
}

function ipt_RrgstNo1_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	//if(model.getValue("/root/main/dnor/rrgstno1") =="")
	if(utlf_isNull(ds_main_dnor.getColumn(0, "rrgstno1")))
	{
		return;
	}
	
		var born = ipt_RrgstNo1.text;
		var today = utlf_getCurrentDate();
		var toyear = utlf_getCurrentDate();
		
		born = born.substr(0, 2);
		today = today.substr(2, 2);
		toyear = toyear.substr(0, 4);
		
		if(born > today)
		{
			born = parseInt(born) + 1900;
		}
		else
		{
			born = parseInt(born) + 2000;
		}
		
		var age = parseInt(toyear) - born + 1;
						
		//model.setValue("/root/main/dnor/age" , age);
		ds_main_dnor.setColumn(0, "age", age);
		ipt_Age.value = age;
	
}

function ipt_RrgstNo2_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	var sex = ipt_RrgstNo2.value;
						
	sex = sex.substr(0, 1);
	
	if(sex == "1")
	{
		rdo_Sex.value = 'M';
	}
	else if(sex == "2")
	{
		rdo_Sex.value = 'F';
	}
}

//저장
function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetApntDonInfo();
}

//닫기
function btn_cfm_onclick(obj:Button,  e:ClickEventInfo)
{
	fClose();
}

//저장
function fSetApntDonInfo()
{	
	var name = ds_main_dnor.setColumn(0, "nm", utlf_transNullToEmpty(ds_main_dnor.getColumn(0, "nm")).getTrim());
	
	//if(model.getValue("/root/main/benf/ward").getTrim() == "00")
	if((ds_main_benf.getColumn(0, "ward").getTrim()) == "00")
	{
		sysf_messageBox("병동을", "C002");
		return;
	}
	//else if(model.getValue("/root/main/benf/room").getTrim() == "000000")
	else if((ds_main_benf.getColumn(0, "room")).getTrim() == "000000")
	{
		sysf_messageBox("병실을", "C002");
		return;
	}
	//else if(model.getValue("root/main/benf/pid").getTrim() == "" || model.getValue("root/main/benf/pid").getTrim() == "00")
	else if(utlf_isNull(ds_main_benf.getColumn(0, "pid").getTrim()) || ds_main_benf.getColumn(0, "pid").getTrim() == "00")
	{
		sysf_messageBox("등록번호를 확인해주세요.", "I");
		return;
	}
	//else if(model.getValue("/root/main/benf/blodkind").getTrim() == "-")
	else if(ds_main_benf.getColumn(0, "blodkind").getTrim() == "-")
	{
		sysf_messageBox("혈액종류를 선택해주세요.", "I");
		return;
	}
	else if(utlf_isNull(ds_main_dnor.getColumn(0, "nm").getTrim()))
	{
		sysf_messageBox("공여자명을 입력해주세요. 공여자명이 없는 경우는 예) 지정1, 지정2, 지정3 으로 입력해주세요.", "I");
		return;
	}
	
	//submit("TXLBD90101");
	var oParam = {};
		oParam.id          = "TXLBD90101";
		oParam.service     = "donmngtapp.BloodWinMngt";
		oParam.method      = "reqSetApntDonInfo";
		oParam.inds        = "benf=ds_main_benf dnor=ds_main_dnor";
		oParam.async       = false;
		//oParam.callback    = "cf_TXLBD90101";
	tranf_submit(oParam);
	fSetInit();
}

function fClose()
{
	this.close();	
}

var cmbPIDtextchange = "";

function cmb_PID_ontextchange(obj:Combo, e:TextChangeEventInfo)
{
	cmbPIDtextchange = e.posttext;		
}


function cmb_PID_oncloseup(obj:Combo, e:ComboCloseUpEventInfo)
{	
	fGetPatNmABO();
}

function cmb_Room_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fWardSelect("R");
}
]]></Script>
  </Form>
</FDL>