YNU_JEUS/app_home/himed/xpapps/crm/vocmngxp/xp/SPCVO02900_VOC관리고객등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPCVO02900" position="absolute 0 0 732 315" titletext="VOC 관리고객 등록" oninit="SPCVO02900_oninit" onload="SPCVO02900_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="VOC 관리고객 정보" class="tit_1" position="absolute 0 0 174 22"/>
        <Shape id="line3" class="line_10" position="absolute 0 22 725 28"/>
        <Shape id="line4" linetype="horizontal" class="line_2" position="absolute 0 49 725 55"/>
        <Shape id="line5" linetype="horizontal" class="line_2" position="absolute 0 75 725 81"/>
        <Shape id="line6" linetype="horizontal" class="line_2" position="absolute 100 99 725 105"/>
        <Shape id="line8" linetype="horizontal" class="line_2" position="absolute 0 124 725 130"/>
        <Shape id="line9" linetype="horizontal" class="line_2" position="absolute 0 150 725 156"/>
        <Shape id="line7" linetype="horizontal" class="line_2" position="absolute 0 176 725 182"/>
        <Shape id="line16" linetype="horizontal" class="line_3" position="absolute 0 283 722 289"/>
        <Combo id="cmb_Mngtflag" taborder="1" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_essential" position="absolute 591 29 721 48">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">일반</Col>
              </Row>
              <Row>
                <Col id="codecolumn">B</Col>
                <Col id="datacolumn">★★★★★</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">★(칭찬)</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Edit id="ipt_rela" taborder="2" class="input_default" position="absolute 108 156 722 175" autoselect="true"/>
        <TextArea id="tar_ClntValu" taborder="3" class="input_default" position="absolute 108 182 722 282" wordwrap="word" autoselect="true"/>
        <MaskEdit id="ipt_rrgstno" taborder="4" mask="999999-9" position="absolute 591 55 721 74"/>
        <Edit id="ipt_email" taborder="5" position="absolute 108 130 722 149"/>
        <Edit id="ipt_phone" taborder="6" position="absolute 349 55 479 74"/>
        <Edit id="ipt_PID" taborder="7" position="absolute 108 29 238 48"/>
        <Static id="caption21" text="환자명" class="cell_1" position="absolute 241 27 346 50" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption11" text="대상구분" class="cell_1" position="absolute 483 27 588 50" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="ipt_detladdr" taborder="8" position="absolute 108 104 722 123"/>
        <Static id="caption22" text="등록번호" class="cell_1" position="absolute 0 27 105 50" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption34" text="메모 내용" class="cell_1" position="absolute 0 180 105 284" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="ipt_mobile" taborder="9" position="absolute 108 55 238 74"/>
        <Static id="caption3" text="주민번호" class="cell_1" position="absolute 483 53 588 76" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption4" text="이메일" class="cell_1" position="absolute 0 128 105 151" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="ipt_PatNm" taborder="10" position="absolute 349 29 476 48"/>
        <Static id="caption14" text="주소" class="cell_1" position="absolute 0 79 105 125" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="ipt_ZipCd1" taborder="11" position="absolute 108 80 163 99"/>
        <Edit id="ipt_ZipCd2" taborder="12" position="absolute 165 80 220 99"/>
        <Edit id="ipt_ZipCdAddr" taborder="13" position="absolute 222 80 721 99"/>
        <Static id="caption6" text="집 전화번호" class="cell_1" position="absolute 241 53 346 76" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption26" text="휴대폰" class="cell_1" position="absolute 0 53 105 76" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption9" text="관련민원인" class="cell_1" position="absolute 0 154 105 177" style="padding:0 0 0 0;align:center middle;"/>
        <Button id="btn_refresh" taborder="14" text="환자정보 갱신하기" class="btn5" position="absolute 0 287 119 306" onclick="btn_refresh_onclick"/>
        <Button id="btn_popVOC" taborder="15" text="VOC 등록이력 보기" class="btn2" position="absolute 122 287 249 306" onclick="btn_popVOC_onclick"/>
        <Button id="btn_save" taborder="16" text="저장" class="btn4" position="absolute 608 287 664 309" onclick="btn_save_onclick"/>
        <Button id="btn_close" taborder="17" text="닫기" class="btn4" position="absolute 666 287 722 309" onclick="btn_close_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_piddata" 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="mpphontel" type="STRING" size="256"/>
          <Column id="zipcd1" type="STRING" size="256"/>
          <Column id="zipcd2" type="STRING" size="256"/>
          <Column id="zipcdaddr" type="STRING" size="256"/>
          <Column id="detladdr" type="STRING" size="256"/>
          <Column id="rrgstno" type="STRING" size="256"/>
          <Column id="email" type="STRING" size="256"/>
          <Column id="hometel" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="mpphontel"/>
            <Col id="zipcd1"/>
            <Col id="zipcd2"/>
            <Col id="zipcdaddr"/>
            <Col id="detladdr"/>
            <Col id="rrgstno"/>
            <Col id="email"/>
            <Col id="hometel"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_mngdata" 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="mngtmanflag" type="STRING" size="256"/>
          <Column id="clntvalu" type="STRING" size="256"/>
          <Column id="relaclntnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="mngtmanflag"/>
            <Col id="clntvalu"/>
            <Col id="relaclntnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_temp_key" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_piddata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="mpphontel" type="STRING" size="256" sumtext="휴대폰번호"/>
          <Column id="hometel" type="STRING" size="256" sumtext="집전화번호"/>
          <Column id="zipcd1" type="STRING" size="256" sumtext="우편번호1"/>
          <Column id="zipcd2" type="STRING" size="256" sumtext="우편번호2"/>
          <Column id="zipcdaddr" type="STRING" size="256" sumtext="우편번호주소"/>
          <Column id="detladdr" type="STRING" size="256" sumtext="나머지주소"/>
          <Column id="email" type="STRING" size="256" sumtext="이메일"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchpid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_PID" propid="value" datasetid="ds_main_piddata" columnid="pid"/>
      <BindItem id="item1" compid="ipt_PatNm" propid="value" datasetid="ds_main_piddata" columnid="hngnm"/>
      <BindItem id="item2" compid="cmb_Mngtflag" propid="value" datasetid="ds_main_piddata" columnid="mngtmanflag"/>
      <BindItem id="item3" compid="ipt_rrgstno" propid="value" datasetid="ds_main_piddata" columnid="rrgstno"/>
      <BindItem id="item4" compid="ipt_phone" propid="value" datasetid="ds_main_piddata" columnid="hometel"/>
      <BindItem id="item5" compid="ipt_mobile" propid="value" datasetid="ds_main_piddata" columnid="mpphontel"/>
      <BindItem id="item6" compid="ipt_ZipCdAddr" propid="value" datasetid="ds_main_piddata" columnid="zipcdaddr"/>
      <BindItem id="item7" compid="ipt_ZipCd1" propid="value" datasetid="ds_main_piddata" columnid="zipcd1"/>
      <BindItem id="item8" compid="ipt_ZipCd2" propid="value" datasetid="ds_main_piddata" columnid="zipcd2"/>
      <BindItem id="item9" compid="ipt_detladdr" propid="value" datasetid="ds_main_piddata" columnid="detladdr"/>
      <BindItem id="item10" compid="ipt_email" propid="value" datasetid="ds_main_piddata" columnid="email"/>
      <BindItem id="item11" compid="ipt_rela" propid="value" datasetid="ds_main_mngdata" columnid="relaclntnm"/>
      <BindItem id="item12" compid="tar_ClntValu" propid="value" datasetid="ds_main_mngdata" columnid=""/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
var arErrorCode = new HashArray();
function SPCVO02900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPCVO02900_onload(obj:Form, e:LoadEventInfo)
{
	try
	{
		ds_main_temp_key.copyData(arg_ds_main_temp_key);
	}
	catch(e){}
	
	var resndPID = ds_main_temp_key.getColumn(0, "sndPID")
				
	if ( utlf_isNull(resndPID))
	{
		var rtn = sysf_messageBox("조회에 필요한 항목이 전달되지", "E007");
		if(rtn == 1)
		{
			this.close();
		} 
	}
	else 
	{
		var oParam = {};
			oParam.id          = "TRCVP00303";
			oParam.service     = "vocapp.Voc";
			oParam.method      = "reqGetPatMngData";
			oParam.inds        = "req=ds_main_temp_key";
			oParam.outds       = "ds_main_mngdata=mngdata";
			oParam.async       = false;
			//oParam.callback    = "cf_TRCVP00303";

		tranf_submit(oParam);
		var oParam = {};
			oParam.id          = "TRCVP00304";
			oParam.service     = "vocapp.Voc";
			oParam.method      = "reqGetPIDMngData";
			oParam.inds        = "req=ds_main_temp_key";
			oParam.outds       = "ds_main_piddata=piddata";
			oParam.async       = false;
			//oParam.callback    = "cf_TRCVP00304";

		tranf_submit(oParam);
	}
}

function btn_refresh_onclick(obj:Button,  e:ClickEventInfo)
{
	var s_pid = ds_main_piddata.getColumn(0, "pid");
						
	if (!utlf_isNull(s_pid))
	{
		var rtn = sysf_messageBox(" 관리고객의 정보가 병원정보 시스템의 정보로 갱신되게 됩니다.", "Q004");
		if(rtn == 6)
		{
			var oParam = {};
				oParam.id          = "TRCVP00302";
				oParam.service     = "vocapp.Voc";
				oParam.method      = "reqGetPatHisData";
				oParam.inds        = "req=ds_main_mngdata";
				oParam.outds       = "ds_temp_piddata=piddata";
				oParam.async       = false;
				oParam.callback    = "cf_TRCVP00302";

			tranf_submit(oParam);

			if(arErrorCode.pop("TRCVP00302") > -1)
			{
				if( ds_temp_piddata.rowcount > 0)
				{
					var pid_pid = ds_temp_piddata.getColumn(0, "pid");
					var pid_patnm = ds_temp_piddata.getColumn(0, "hngnm");
					var pid_mpphonno = ds_temp_piddata.getColumn(0, "mpphontel");
					var pid_zipcd1 = ds_temp_piddata.getColumn(0, "zipcd1");
					var pid_zipcd2 = ds_temp_piddata.getColumn(0, "zipcd2");
					var pid_zipcdaddr = ds_temp_piddata.getColumn(0, "zipcdaddr");
					var pid_detladdr = ds_temp_piddata.getColumn(0, "detladdr");
					var pid_rrgstno = ds_temp_piddata.getColumn(0, "rrgstno");
					var pid_hometel = ds_temp_piddata.getColumn(0, "hometel");
					var pid_email = ds_temp_piddata.getColumn(0, "email");

					ds_main_piddata.setColumn(0, "hngnm", pid_patnm);
					ds_main_piddata.setColumn(0, "mpphontel", pid_mpphonno);
					ds_main_piddata.setColumn(0, "zipcd1", pid_zipcd1);
					ds_main_piddata.setColumn(0, "zipcd2", pid_zipcd2);
					ds_main_piddata.setColumn(0, "zipcdaddr", pid_zipcdaddr);
					ds_main_piddata.setColumn(0, "detladdr", pid_detladdr);
					ds_main_piddata.setColumn(0, "rrgstno", pid_rrgstno);
					ds_main_piddata.setColumn(0, "hometel", pid_hometel);
					ds_main_piddata.setColumn(0, "email", pid_email);
					
					var oParam = {};
						oParam.id          = "TXCVP00302";
						oParam.service     = "vocapp.Voc";
						oParam.method      = "reqSetPatHisData";
						oParam.inds        = "req=ds_main_piddata";
						oParam.outds       = "";
						oParam.async       = false;
						oParam.callback    = "cf_TXCVP00302";

					tranf_submit(oParam);

					if(arErrorCode.pop("TXCVP00302") > -1)
					{
						sysf_messageBox("환자정보가 갱신 ", "I002");
					}
				}
				else
				{
					sysf_messageBox("존재하지 않는 환자 등록번호 ", "E008");	
					ds_temp_piddata.clearData();
				}
			}	
		}
	}
	else 
	{
		sysf_messageBox("등록번호가 없어 환자정보를 갱신 ", "E001");
	}
}

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

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

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

function btn_popVOC_onclick(obj:Button,  e:ClickEventInfo)
{
	var r_PID = ds_main_piddata.getColumn(0, "pid");
	ds_main_search.setColumn(0, "srchpid", r_PID);
	var objArg = new Object();
		objArg.arg_ds_main_search = ds_main_search;
	frmf_open("SPCVO00300", "SPCVO00300", objArg, "", "", "", "", "", "", "", "", "", "M");
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var s_pid = ds_main_piddata.getColumn(0, "pid");

	if (!utlf_isNull(s_pid))
	{	
		arrCompId = new Array("cmb_Mngtflag");
		if(frmf_isRequiredControls(arrCompId))
		{
			var oParam = {};
				oParam.id          = "TXCVP00301";
				oParam.service     = "vocapp.Voc";
				oParam.method      = "reqSetPatMngData";
				oParam.inds        = "req=ds_main_mngdata";
				oParam.outds       = "";
				oParam.async       = false;
				oParam.callback    = "cf_TXCVP00301";

			tranf_submit(oParam);

			if(arErrorCode.pop("TXCVP00301") > -1)
			{
				var oParam = {};
					oParam.id          = "TXCVP00302";
					oParam.service     = "vocapp.Voc";
					oParam.method      = "reqSetPatHisData";
					oParam.inds        = "req=ds_main_piddata";
					oParam.outds       = "";
					oParam.async       = false;
					//oParam.callback    = "cf_TXCVP00302";

				tranf_submit(oParam);
				sysf_messageBox("저장이 ", "I002");
			}
		}
	}
	else
	{
		sysf_messageBox("등록번호가 없어 저장 ", "E001");
	}
}

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