YNU_JEUS/app_home/himed/xpapps/pam/acquaintancexp/xp/SPPMC05800_지인환자조회.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPMC05800" position="absolute 0 0 816 400" titletext="환자기초정보조회" onload="SPPMC05800_onload">
    <Layouts>
      <Layout>
        <Div id="Div00" taborder="7" position="absolute 0 0 798 35" class="div_SA"/>
        <Button id="btn_search" class="btn1_letter2" taborder="5" position="absolute 731 7 787 29" style="" text="조회" onclick="btn_search_onclick"/>
        <Shape id="line13" class="line_4" linetype="vertical" position="absolute 717 7 720 29" style="border: solid #ffe4bb #ffe4bb;" anchor="default"/>
        <Edit id="ipt_hngnm" class="input_search" taborder="1" position="absolute 90 8 190 27" style="" anchor="default" onkeypress="ipt_hngnm_onkeypress"/>
        <Static id="caption4" class="search_name" position="absolute 11 9 84 26" style="" text="환자명 :"/>
        <Static id="caption1" class="tit_2" position="absolute 5 44 100 61" style="" text="인적사항"/>
        <Shape id="line1" class="line_10" linetype="horizontal" position="absolute 0 61 800 65" style="" anchor="default"/>
        <Grid id="grd_patinfo" binddataset="ds_main_patinfo_patinfolist" position="absolute 0 65 800 350" style="" oncelldblclick="grd_patinfo_oncelldblclick" onkeypress="grd_patinfo_onkeypress">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="60"/>
                <Column size="30"/>
                <Column size="0"/>
                <Column size="65"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="100"/>
                <Column size="85"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="250"/>
                <Column size="250"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="23" band="head"/>
                <Row size="23"/>
              </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" colspan="2" text="주민등록번호" taborder="undefined"/>
                <Cell col="8" text="최근보험유형"/>
                <Cell col="9" text="집전화번호"/>
                <Cell col="10" text="휴대전화번호"/>
                <Cell col="11" text="최근내원일"/>
                <Cell col="12" text="최근내원과"/>
                <Cell col="13" text="외래미수금"/>
                <Cell col="14" text="퇴원미수금"/>
                <Cell col="15" text="생년월일"/>
                <Cell col="16" text="성별"/>
                <Cell col="17" text="나이"/>
                <Cell col="18" text="합본등록번호"/>
                <Cell col="19" text="기타전화번호1"/>
                <Cell col="20" text="기타전화번호2"/>
                <Cell col="21" text="sms전송승인 여부"/>
                <Cell col="22" text="이메일 계정"/>
                <Cell col="23" colspan="2" text="우편번호" taborder="undefined"/>
                <Cell col="25" text="우편번호순서"/>
                <Cell col="26" text="주소"/>
                <Cell col="27" text="상세주소"/>
                <Cell col="28" text="혈액형"/>
                <Cell col="29" text="RH혈액형"/>
                <Cell col="30" text="외국인여부"/>
                <Cell col="31" text="국적"/>
                <Cell col="32" text="여권번호"/>
                <Cell col="33" text="추천여부"/>
                <Cell col="34" text="추천인ID"/>
                <Cell col="35" text="추천인명"/>
                <Cell col="36" text="추천인관계"/>
                <Cell col="37" text="VIP여부"/>
                <Cell col="38" text="VIP비고"/>
                <Cell col="39" text="종교코드"/>
                <Cell col="40" text="세례명"/>
                <Cell col="41" text="성당명"/>
                <Cell col="42" text="사망여부"/>
                <Cell col="43" text="사망시각"/>
                <Cell col="44" text="사망일자"/>
                <Cell col="45" text="사망시간"/>
                <Cell col="46" text="내원사유"/>
                <Cell col="47" text="동물여부"/>
                <Cell col="48" text="원외예외사유코드"/>
                <Cell col="49" text="재원여부"/>
                <Cell col="50" text="장애인여부"/>
                <Cell col="51" text="특이_문제환자"/>
                <Cell col="52" text="당일퇴원여부"/>
                <Cell col="53" text="참고사항"/>
                <Cell col="54" text="최초등록자ID"/>
                <Cell col="55" text="최초등록일시"/>
                <Cell col="56" text="최종수정자ID"/>
                <Cell col="57" text="최종수정일시"/>
                <Cell col="58" text="pidflag"/>
                <Cell col="59" text="병원직원여부"/>
              </Band>
              <Band id="body">
                <Cell text="bind:pid"/>
                <Cell col="1" text="bind:bindyn"/>
                <Cell col="2" text="bind:instcd"/>
                <Cell col="3" text="bind:hngnm"/>
                <Cell col="4" text="bind:engnm"/>
                <Cell col="5" text="bind:chinm"/>
                <Cell col="6" text="bind:rrgstno1"/>
                <Cell col="7" text="bind:rrgstno2"/>
                <Cell col="8" text="bind:lastinsukind"/>
                <Cell col="9" text="bind:hometel"/>
                <Cell col="10" text="bind:mpphontel"/>
                <Cell col="11" displaytype="date" text="bind:lastorddd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="12" text="bind:lastorddeptnm"/>
                <Cell col="13" text="bind:outuncoamt"/>
                <Cell col="14" text="bind:dschuncoamt"/>
                <Cell col="15" displaytype="date" text="bind:brthdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="16" text="bind:sex"/>
                <Cell col="17" text="bind:age"/>
                <Cell col="18" text="bind:bindpid"/>
                <Cell col="19" text="bind:etctel1"/>
                <Cell col="20" text="bind:etctel2"/>
                <Cell col="21" text="bind:smsaprvyn"/>
                <Cell col="22" text="bind:email"/>
                <Cell col="23" text="bind:zipcd1"/>
                <Cell col="24" text="bind:zipcd2"/>
                <Cell col="25" text="bind:zipcdseq"/>
                <Cell col="26" text="bind:addr"/>
                <Cell col="27" text="bind:detladdr"/>
                <Cell col="28" text="bind:btype"/>
                <Cell col="29" text="bind:rh"/>
                <Cell col="30" text="bind:forgeryn"/>
                <Cell col="31" text="bind:nati"/>
                <Cell col="32" text="bind:psptno"/>
                <Cell col="33" text="bind:recmyn"/>
                <Cell col="34" text="bind:recmerid"/>
                <Cell col="35" text="bind:recmernm"/>
                <Cell col="36" text="bind:recmerrela"/>
                <Cell col="37" text="bind:vipyn"/>
                <Cell col="38" text="bind:viprem"/>
                <Cell col="39" text="bind:religncd"/>
                <Cell col="40" text="bind:baptnm"/>
                <Cell col="41" text="bind:chchnm"/>
                <Cell col="42" text="bind:dethyn"/>
                <Cell col="43" text="bind:dethdt"/>
                <Cell col="44" text="bind:dethdd"/>
                <Cell col="45" text="bind:dethtm"/>
                <Cell col="46" text="bind:chosresn"/>
                <Cell col="47" text="bind:animyn"/>
                <Cell col="48" text="bind:exptresncd"/>
                <Cell col="49" text="bind:inhospyn"/>
                <Cell col="50" text="bind:handicapryn"/>
                <Cell col="51" text="bind:patspcfyn"/>
                <Cell col="52" text="bind:tdaydsch"/>
                <Cell col="53" text="bind:remfact"/>
                <Cell col="54" text="bind:acptdd"/>
                <Cell col="55" text="bind:acptno"/>
                <Cell col="56" text="bind:lastupdtrid"/>
                <Cell col="57" text="bind:lastupdtdt"/>
                <Cell col="58" text="bind:pidflag"/>
                <Cell col="59" text="bind:emplyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_cancel" class="btn4_letter2" position="absolute 744 360 800 382" style="" text="취소" onclick="btn_cancel_onclick"/>
        <Button id="btn_confirm" class="btn4_letter2" taborder="6" position="absolute 685 360 741 382" style="" text="확인" onclick="btn_confirm_onclick"/>
        <MaskEdit id="ipt_rrgstno1" class="input_search" taborder="2" mask="#" position="absolute 340 8 400 27" style="" anchor="default" onkeypress="ipt_rrgstno1_onkeypress"/>
        <Static id="caption2" class="search_name" position="absolute 221 9 338 26" style="" text="주민등록번호 :"/>
        <MaskEdit id="ipt_rrgstno2" class="input_search" taborder="3" mask="#" position="absolute 410 8 470 27" style="" anchor="default" onkeypress="ipt_rrgstno2_onkeypress"/>
        <Static id="caption3" class="search_name" position="absolute 506 9 600 26" style="" text="등록번호 :"/>
        <MaskEdit id="ipt_pid" class="input_search" taborder="4" mask="#" position="absolute 600 8 660 27" style="" anchor="default" onkeypress="ipt_pid_onkeypress"/>
        <Static id="caption5" position="absolute 400 9 410 28" style="align:center ;" text="-"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="hngnm"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="tmp" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_patinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_hidden_uid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="myself" type="STRING" size="256"/>
          <Column id="opener" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_hngnm" propid="value" datasetid="ds_send" columnid="hngnm"/>
      <BindItem id="item1" compid="ipt_rrgstno1" propid="value" datasetid="ds_send" columnid="rrgstno1"/>
      <BindItem id="item2" compid="ipt_rrgstno2" propid="value" datasetid="ds_send" columnid="rrgstno2"/>
      <BindItem id="item3" compid="ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";
include "com_basiccodexp::ZBC001.xjs";

var arErrorCode = new HashArray();

function SPPMC05800_onload(obj:Form, e:LoadEventInfo) {
	frmf_initForm(obj); 
	grdf_initGrid(this.grd_patinfo); 
	//grdf_setGridSort(grd_XXX); 
	//grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

	//플래그 초기화!
	opener.dsf_makeValue( ds_main, "popupendflag", "string", "" );
	opener.ds_main.setColumn( 0, "popupendflag", "cancel");

}

function fInputValueCheck() {
	if (ipt_hngnm.text.length < 1 &&
		ipt_rrgstno1.text.length < 1 &&
		ipt_rrgstno2.text.length < 1 &&
		ipt_pid.text.length < 1) {

		sysf_messageBox("검색 조건을 1가지 이상 입력해 주십시오", "C999");
		return false;
	}

	if (ipt_hngnm.text.length > 0 && ipt_hngnm.text.length < 2) {
		sysf_messageBox("환자이름을 2자리 이상", "C001");
		return false;
	} else {
		ds_send.setColumn( 0, "hngnm", ipt_hngnm.text);
		return true;
	}
}

function btn_search_onclick(obj:Button, e:ClickEventInfo) {

	if (fInputValueCheck()) {
		//if (submit("TRPMC05702")) {
		var oParam = {};
		oParam.id          = "TRPMC05702";
		oParam.service     = "acquaintanceapp.AcquaintanceMngt";
		oParam.method      = "reqGetPatInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_patinfo_patinfolist=patinfolist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPMC05702";

		tranf_submit(oParam);

		if(arErrorCode.pop("TRPMC05702") > -1) {
			grd_patinfo.row = 1;
			grd_patinfo.setFocus();
		}
	}

}
function cf_TRPMC05702(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}


function ipt_hngnm_onkeydown(obj:Edit, e:KeyEventInfo) {

	frmf_inputEnterKey("btn_search", "onclick",  new ClickEventInfo);

}

function grd_patinfo_oncelldblclick(obj:Grid, e:GridClickEventInfo) {

	if (frmf_checkOpener()) {
		if (e.col >= 0 && e.row >= 0) {
			btn_confirm.click(); 
		}
	} else {
		sysf_messageBox("상위화면이 변경되어 데이터를 가져올 수", "I004");
	}

}

function grd_patinfo_onkeydown(obj:Grid, e:KeyEventInfo) {

	if (e.keycode == 13) {
		btn_confirm.click(); 
	}

}

function btn_cancel_onclick(obj:Button, e:ClickEventInfo) {

	opener.dsf_makeValue( ds_main, "popupendflag", "string", "" );
	opener.ds_main.setColumn( 0, "popupendflag", "cancel");
	this.close();

}

function btn_confirm_onclick(obj:Button, e:ClickEventInfo) {

	if (frmf_checkOpener()) {
		row = ds_main_patinfo_patinfolist.rowposition; 

		opener.dsf_makeValue( ds_main, "popupendflag", "string", "" );
		opener.ds_main.setColumn( 0, "popupendflag", "cancel");

		if (row > 0) {
			if (ds_main_patinfo_patinfolist.rowcount> 0) {

				//합번된 등록번호 메세지 처리
				var sPid = ds_main_patinfo_patinfolist.getColumn(row, "pid"));
				var sHngnm = ds_main_patinfo_patinfolist.getColumn(row, "hngnm"));
				var sBindPid = ds_main_patinfo_patinfolist.getColumn(row, "bindpid"));
				if (sBindPid != '' && sBindPid != '-' && sBindPid != ' ') {
					var retValue = sysf_messageBox(sPid + "(" + sHngnm + ") 환자의 등록번호가 [ " + sBindPid + " ] 로 합번 되었습니다. 합번된 등록번호로 재조회 하시겠습니까?", "Q999", "");
					if (retValue == '6') {
						try {
							ds_send.clearData(); ds_send.addRow();
							ds_send.setColumn( 0, "pid", sBindPid);
							//model.refresh();

							btn_search.click(); 
						} catch (e) {
							return false;
						}
					}
					return false;
				}

				dsf_copyColInfo(opener.ds_main_patinfo_patinfolist, ds_main_patinfo_patinfolist);
				opener.ds_main_patinfo_patinfolist.copyRow(0, ds_main_patinfo_patinfolist, row); 
				dsf_makeValue( opener.ds_main_recminfo_recminfolist, "instcd", "string",  ds_send.getColumn(0, "instcd"));

				dsf_makeValue( opener.ds_main, "popupendflag", "string", "" );
				opener.ds_main.setColumn( 0, "popupendflag", "ok");
			}
		} else {
			sysf_messageBox("행이 정확히 선택되지", "E007");
		}
	} else {
		sysf_messageBox("상위화면이 변경되어 데이터를 가져올 수", "I004");
	}

	//opener.model.refresh();

	this.close();

}

function ipt_rrgstno1_onkeydown(obj:MaskEdit, e:KeyEventInfo) {
	frmf_inputEnterKey("btn_search", "onclick",  new ClickEventInfo);
}

function ipt_rrgstno2_onkeydown(obj:MaskEdit, e:KeyEventInfo) {
	frmf_inputEnterKey("btn_search", "onclick",  new ClickEventInfo);
}

function ipt_pid_onkeydown(obj:MaskEdit, e:KeyEventInfo) {
	frmf_inputEnterKey("btn_search", "onclick",  new ClickEventInfo);
}

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