YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/SPAHA00600_건진자정보입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAHA00600" position="absolute 0 0 510 173" titletext="건진주소입력" oninit="SPAHA00600_oninit" onload="SPAHA00600_onload">
    <Layouts>
      <Layout>
        <Shape id="line7" linetype="horizontal" class="line_2" position="absolute 0 141 508 147"/>
        <Static id="caption1" text="건진주소입력" class="tit_2" position="absolute 0 0 103 22"/>
        <Shape id="line1" class="line_10" position="absolute 0 16 508 22"/>
        <Static id="caption12" text="등록번호" class="cell_1" position="absolute 0 21 63 44"/>
        <Shape id="line6" linetype="horizontal" class="line_3" position="absolute 0 143 508 149"/>
        <Shape id="line2" linetype="horizontal" class="line_2" position="absolute 0 67 508 73"/>
        <Shape id="line4" linetype="horizontal" class="line_2" position="absolute 0 43 508 49"/>
        <Static id="caption2" text="주소1" class="cell_1" position="absolute 0 47 63 93"/>
        <Shape id="line3" linetype="horizontal" class="line_2" position="absolute 0 92 508 98"/>
        <Edit id="opt_addr" taborder="1" position="absolute 191 48 507 67" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Button id="btn_searchzipcd" taborder="2" class="icon_search" position="absolute 170 49 186 65" onclick="btn_searchzipcd_onclick"/>
        <Static id="caption5" text="-" class="search_n_b" position="absolute 102 49 114 66"/>
        <MaskEdit id="opt_zipcd11" taborder="3" mask="999" position="absolute 65 48 107 67" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Edit id="ipt_detladdr" taborder="4" class="input_default" position="absolute 65 72 507 91" autoselect="true" autoskip="true"/>
        <MaskEdit id="opt_zipcd12" taborder="5" mask="999" position="absolute 123 48 165 67" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Edit id="opt_addr2" taborder="6" position="absolute 191 97 507 116" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Button id="btn_searchzipcd2" taborder="7" class="icon_search" position="absolute 170 99 186 115" onclick="btn_searchzipcd2_onclick"/>
        <MaskEdit id="ipt_zipcd21" taborder="8" mask="999" position="absolute 65 98 107 117" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Edit id="input1" taborder="9" class="input_default" position="absolute 65 123 507 142" autoselect="true" autoskip="true"/>
        <MaskEdit id="ipt_zipcd22" taborder="10" mask="999" position="absolute 123 98 165 117" autoselect="true" autoskip="true" class="output" readonly="true"/>
        <Static id="caption4" text="-" class="search_n_b" position="absolute 109 99 121 116"/>
        <Shape id="line5" linetype="horizontal" class="line_2" position="absolute 0 117 508 123"/>
        <Static id="caption3" text="주소2" class="cell_1" position="absolute 0 96 63 142"/>
        <Edit id="ipt_pid" taborder="11" position="absolute 65 22 148 41" autoselect="true" autoskip="true" onkeyup="ipt_pid_onkeyup"/>
        <Static id="caption6" text="성명" class="cell_1" position="absolute 150 21 205 44"/>
        <Edit id="ipt_pnm" taborder="12" position="absolute 208 23 291 42" autoselect="true" autoskip="true"/>
        <Edit id="ipt_rgstno1" taborder="13" visible="false" position="absolute 293 23 376 42" autoselect="true" autoskip="true" onkeyup="ipt_rgstno1_onkeyup"/>
        <Edit id="ipt_rgstno2" taborder="14" visible="false" position="absolute 379 23 462 42" autoselect="true" autoskip="true" onkeyup="ipt_rgstno2_onkeyup"/>
        <Button id="button4" taborder="15" text="확인" class="btn4" position="absolute 391 148 447 170" onclick="button4_onclick"/>
        <Button id="button9" taborder="16" text="취소" class="btn4" position="absolute 450 148 506 170" onclick="button9_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_info_patinfo_item" 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="rgstno1" type="STRING" size="256"/>
          <Column id="rgstno2" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="engnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="brthdd" type="STRING" size="256"/>
          <Column id="zipcd11" type="STRING" size="256"/>
          <Column id="zipcd12" type="STRING" size="256"/>
          <Column id="zipcdseq1" type="STRING" size="256"/>
          <Column id="addr1" type="STRING" size="256"/>
          <Column id="detladdr1" type="STRING" size="256"/>
          <Column id="mpphon" type="STRING" size="256"/>
          <Column id="telno" type="STRING" size="256"/>
          <Column id="emailid" type="STRING" size="256"/>
          <Column id="emailtype" type="STRING" size="256"/>
          <Column id="healexampid" type="STRING" size="256"/>
          <Column id="emailkind" type="STRING" size="256"/>
          <Column id="zipcd21" type="STRING" size="256"/>
          <Column id="zipcd22" type="STRING" size="256"/>
          <Column id="zipcdseq2" type="STRING" size="256"/>
          <Column id="addr2" type="STRING" size="256"/>
          <Column id="detladdr2" type="STRING" size="256"/>
          <Column id="psptno" type="STRING" size="256"/>
          <Column id="brthareacnts" type="STRING" size="256"/>
          <Column id="pidcretfg" type="STRING" size="256"/>
          <Column id="insuid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="rgstno1"/>
            <Col id="rgstno2"/>
            <Col id="hngnm"/>
            <Col id="engnm"/>
            <Col id="sex"/>
            <Col id="age"/>
            <Col id="brthdd"/>
            <Col id="zipcd11"/>
            <Col id="zipcd12"/>
            <Col id="zipcdseq1"/>
            <Col id="addr1"/>
            <Col id="detladdr1"/>
            <Col id="mpphon"/>
            <Col id="telno"/>
            <Col id="emailid"/>
            <Col id="emailtype"/>
            <Col id="healexampid"/>
            <Col id="emailkind"/>
            <Col id="zipcd21"/>
            <Col id="zipcd22"/>
            <Col id="zipcdseq2"/>
            <Col id="addr2"/>
            <Col id="detladdr2"/>
            <Col id="psptno"/>
            <Col id="brthareacnts"/>
            <Col id="pidcretfg"/>
            <Col id="insuid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="healexamflag" type="STRING" size="256"/>
          <Column id="rsrvdd" type="STRING" size="256"/>
          <Column id="rsrvno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="healexamflag"/>
            <Col id="rsrvdd"/>
            <Col id="rsrvno"/>
            <Col id="instcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_info_rsrvacptinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choiflag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_patinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_address" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_pid" propid="value" datasetid="ds_main_info_patinfo_item" columnid="pid"/>
      <BindItem id="item1" compid="ipt_pnm" propid="value" datasetid="ds_main_info_patinfo_item" columnid="hngnm"/>
      <BindItem id="item2" compid="ipt_rgstno1" propid="value" datasetid="ds_main_info_patinfo_item" columnid="rgstno1"/>
      <BindItem id="item3" compid="ipt_rgstno2" propid="value" datasetid="ds_main_info_patinfo_item" columnid="rgstno2"/>
      <BindItem id="item4" compid="opt_addr" propid="value" datasetid="ds_main_info_patinfo_item" columnid="addr1"/>
      <BindItem id="item5" compid="opt_zipcd12" propid="value" datasetid="ds_main_info_patinfo_item" columnid="zipcd12"/>
      <BindItem id="item6" compid="opt_zipcd11" propid="value" datasetid="ds_main_info_patinfo_item" columnid="zipcd11"/>
      <BindItem id="item7" compid="ipt_detladdr" propid="value" datasetid="ds_main_info_patinfo_item" columnid="detladdr1"/>
      <BindItem id="item8" compid="ipt_zipcd21" propid="value" datasetid="ds_main_info_patinfo_item" columnid="zipcd21"/>
      <BindItem id="item9" compid="ipt_zipcd22" propid="value" datasetid="ds_main_info_patinfo_item" columnid="zipcd22"/>
      <BindItem id="item10" compid="opt_addr2" propid="value" datasetid="ds_main_info_patinfo_item" columnid="addr2"/>
      <BindItem id="item11" compid="input1" propid="value" datasetid="ds_main_info_patinfo_item" columnid="detladdr2"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "ast_healexamxp::AHA001.xjs";
var m_AutoNameCardPrintYN = "Y";
function SPAHA00600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPAHA00600_onload(obj:Form, e:LoadEventInfo)
{
	fInitCtrl();
}

function fInitCtrl()
{
	if ( frmf_checkOpener() )
	{
		ipt_pid.enable = true;
		ipt_pnm.enable = false;
		var vPid 			=  opener.frmf_getParameter("SPAHA00600_PARAM6") ;
		var vHngnm 			=  opener.frmf_getParameter("SPAHA00600_PARAM7") ;
		var vHealExamFlag 	=  opener.frmf_getParameter("SPAHA00600_PARAM1") ;
		var vRsrvdd 		=  opener.frmf_getParameter("SPAHA00600_PARAM2") ;
		var vRsrvno 		=  opener.frmf_getParameter("SPAHA00600_PARAM3") ;
		var vInstcd 		=  opener.frmf_getParameter("SPAHA00600_PARAM4") ;
		var m_AutoNameCardPrintYN = opener.frmf_getParameter("SPAHA00600_PARAM8") ;  

		ds_main_info_patinfo_item.setColumn(0, "pid", vPid);  
		ds_main_info_patinfo_item.setColumn(0, "hngnm", vHngnm);  
		
		ds_send.setColumn(0, "healexamflag", vHealExamFlag);
		ds_send.setColumn(0, "rsrvdd", vRsrvdd);
		ds_send.setColumn(0, "rsrvno", vRsrvno);
		ds_send.setColumn(0, "instcd", vInstcd);
		fGetPatInfo(2);
	}
} 

function btn_searchzipcd_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetAddr(1, "ds_main_info_patinfo_item");	
	ds_main_info_patinfo_item.setColumn(0, "zipcd11", ds_main_info_patinfo_item.getColumn(0, "zipcd1"));
	ds_main_info_patinfo_item.setColumn(0, "zipcd12", ds_main_info_patinfo_item.getColumn(0, "zipcd2"));
	ds_main_info_patinfo_item.setColumn(0, "addr1", ds_main_info_patinfo_item.getColumn(0, "addr"));
}

function ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fGetPatInfo(2);    
		
		var objDOM = rptf_createDOM();
			rptf_setNodeListToDOM(objDOM, "/root/main/info/patinfo/item", ds_main_info_patinfo_item);
		var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source; 
		var option = ""; 
		rptf_exeReportPreview30(["RPAHA00601"],[objParam], option);
	}
}

function ipt_rgstno1_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fGetPatInfo(2);    
	}
}

function ipt_rgstno2_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fGetPatInfo(2);    
	}
}

function btn_searchzipcd2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetAddr(2, "ds_main_info_patinfo_item");	
	ds_main_info_patinfo_item.setColumn(0, "zipcd21", ds_main_info_patinfo_item.getColumn(0, "zipcd1"));
	ds_main_info_patinfo_item.setColumn(0, "zipcd22", ds_main_info_patinfo_item.getColumn(0, "zipcd2"));
	ds_main_info_patinfo_item.setColumn(0, "addr2", ds_main_info_patinfo_item.getColumn(0, "addr"));
}

function button4_onclick(obj:Button,  e:ClickEventInfo)
{
	if( sysf_messageBox("주소를 ", "Q002") == 6 ) 
	{
		fSavePatInfo("N");
		var oParam = {};
			oParam.id          = "TXAHA00601";
			oParam.service     = "healexamrsltjudgapp.InqrInpt";
			oParam.method      = "reqExeCnstRsrvPatList";
			oParam.inds        = "req=ds_main_info_patinfo_item";
			oParam.outds       = "";
			oParam.async       = false;
			//oParam.callback    = "cf_TXAHA00601";

		tranf_submit(oParam);
	}    
}

function button9_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>