YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPAO04600_차상위희귀난치마스터관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPAO04600" position="absolute 0 0 605 360" titletext="차상위/희귀난치지원 대상" oninit="SPPAO04600_oninit" onload="SPPAO04600_onload">
    <Layouts>
      <Layout>
        <Shape position="absolute 0 90 605 96" linetype="horizontal" id="line6" class="line_2" anchor="default"/>
        <Div position="absolute 0 0 605 35" align="align:center top;" id="group2" anchor="default" class="div_SA">
          <Layouts>
            <Layout>
              <Button position="absolute 545 5 601 30" id="btn_search" class="btn1" text="조회" onclick="group3_group2_btn_search_onclick" anchor="default"/>
              <Shape position="absolute 521 7 527 29" linetype="vertical" id="line13" class="line_4" anchor="default"/>
              <Static text="등록번호 :" position="absolute 10 8 82 31" id="caption3" class="search_name" anchor="default"/>
              <Static text="주민번호 :" position="absolute 205 8 281 31" id="caption2" class="search_name" anchor="default"/>
              <Edit position="absolute 285 7 364 30" id="input1" class="input_search" anchor="default" onkeyup="group3_group2_input1_onkeyup"/>
              <Edit position="absolute 367 7 446 30" id="input2" class="input_search" anchor="default" onkeyup="group3_group2_input2_onkeyup"/>
              <Edit position="absolute 88 7 183 30" id="ipt_pid" class="input_search" onkeyup="group3_group2_ipt_pid_onkeyup" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="차상위 / 희귀난치지원 내역" position="absolute 0 130 199 147" id="caption1" class="tit_2" anchor="default"/>
        <Grid position="absolute 0 150 605 330" id="grd_rarescnd" binddataset="ds_rslist" oncellclick="group3_grd_rarescnd_oncellclick" anchor="default" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="65"/>
                <Column size="58"/>
                <Column size="79"/>
                <Column size="77"/>
                <Column size="35"/>
                <Column size="109"/>
                <Column size="120"/>
                <Column size="71"/>
                <Column size="120"/>
                <Column size="71"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </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" text="최초등록일시"/>
                <Cell col="7" text="최초등록자"/>
                <Cell col="8" text="최종수정일시"/>
                <Cell col="9" text="최종수정자"/>
              </Band>
              <Band id="body">
                <Cell style="align:center;" text="bind:pid"/>
                <Cell col="1" style="align:center;" text="bind:hngnm"/>
                <Cell col="2" displaytype="date" style="align:center middle;" text="bind:fromdd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="3" displaytype="date" style="align:center middle;" text="bind:todd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="4" displaytype="normal" edittype="none" style="align:center;" text="bind:splccd1"/>
                <Cell col="5" displaytype="combo" style="align:center;" text="bind:splccd" combodataset="ds_cb_splccd" combocodecol="value" combodatacol="label" combodisplay="edit" enable="false"/>
                <Cell col="6" displaytype="date" text="bind:fstrgstdt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="none"/>
                <Cell col="7" style="align:center;" text="bind:fstrgstrid"/>
                <Cell col="8" displaytype="date" text="bind:lastupdtdt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="none"/>
                <Cell col="9" style="align:center;" text="bind:lastupdtrid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="등록번호" position="absolute 1 68 74 91" align="align:center middle;" id="caption32" class="cell_1" anchor="default"/>
        <Calendar position="absolute 268 94 358 117" id="ipt_fromdd1" class="input_default" taborder="7" mask="yyyy-MM-dd" value="null" dateformat="yyyy-MM-dd" anchor="default"/>
        <Static text="구      분" position="absolute 1 94 74 117" align="align:center middle;" id="caption8" class="cell_1" anchor="default"/>
        <Combo position="absolute 76 94 189 117" id="cmb_building1" class="combo_search" taborder="5" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" enable="true">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">차상위 1종(C)</Col>
              </Row>
              <Row>
                <Col id="codecolumn">E</Col>
                <Col id="datacolumn">차상위 2종(E)</Col>
              </Row>
              <Row>
                <Col id="codecolumn">F</Col>
                <Col id="datacolumn">차상위 2종 장애(F)</Col>
              </Row>
              <Row>
                <Col id="codecolumn">H</Col>
                <Col id="datacolumn">희귀난치지원(H)</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Static text="차상위 / 희귀난치지원 대상자" position="absolute 0 43 205 59" id="caption4" class="tit_2" anchor="default"/>
        <Shape position="absolute 0 63 605 69" linetype="horizontal" id="line2" class="line_1" anchor="default" style="strokepen:3 solid #33bbbbff;"/>
        <Edit position="absolute 76 68 189 91" id="input3" class="input_default" taborder="1" onkeyup="group3_input3_onkeyup" anchor="default"/>
        <Static text="성      명" position="absolute 193 68 266 91" align="align:center middle;" id="caption5" class="cell_1" anchor="default"/>
        <Edit position="absolute 268 68 358 91" id="input4" class="input_default" enable="false" taborder="2" anchor="default"/>
        <Static text="적용기간" position="absolute 193 94 266 117" align="align:center middle;" id="caption6" class="cell_1" anchor="default"/>
        <Shape position="absolute 0 116 605 122" linetype="horizontal" id="line4" class="line_3" anchor="default"/>
        <Button position="absolute 563 38 605 63" id="button6" class="btn5" taborder="30" text="저장" onclick="group3_button6_onclick" anchor="default"/>
        <Static text="주민번호" position="absolute 362 68 435 91" align="align:center middle;" id="caption7" class="cell_1" anchor="default"/>
        <Edit position="absolute 437 68 517 91" id="input7" class="input_default" enable="false" taborder="3" anchor="default"/>
        <Edit position="absolute 522 68 602 91" id="input8" class="input_default" enable="false" taborder="4" anchor="default"/>
        <Button position="absolute 520 38 562 63" id="button1" class="btn2" taborder="30" text="신규" onclick="group3_button1_onclick" anchor="default"/>
        <Calendar id="input6" taborder="31" class="input_default" position="absolute 361 94 451 117" mask="yyyy-MM-dd" dateformat="yyyy-MM-dd" value="null" anchor="default"/>
        <Button position="absolute 549 338 605 360" id="btn_confirm" class="btn4" text="닫기" onclick="group1_btn_confirm_onclick" anchor="default"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" 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="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data" 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="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="delflag" type="STRING" size="256"/>
          <Column id="splccd" type="STRING" size="256"/>
          <Column id="scndflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="delflag"/>
            <Col id="splccd"/>
            <Col id="scndflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_rarescnd" 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="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="splccd1" type="STRING" size="256"/>
          <Column id="splccd" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
          <Column id="scndflag" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="splccd1"/>
            <Col id="splccd"/>
            <Col id="fstrgstdt"/>
            <Col id="fstrgstrid"/>
            <Col id="lastupdtdt"/>
            <Col id="lastupdtrid"/>
            <Col id="scndflag"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_rslist" 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="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="splccd1" type="STRING" size="256"/>
          <Column id="splccd" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="rstrgstrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_patinfo" 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="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="splccd1" type="STRING" size="256"/>
          <Column id="splccd" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cb_splccd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">차상위 1종(C)</Col>
            <Col id="value">C</Col>
          </Row>
          <Row>
            <Col id="label">차상위 2종(E)</Col>
            <Col id="value">E</Col>
          </Row>
          <Row>
            <Col id="label">차상위 2종 장애(F)</Col>
            <Col id="value">F</Col>
          </Row>
          <Row>
            <Col id="label">희귀난치지원(H)</Col>
            <Col id="value">H</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item9" compid="group3.input6" propid="value" datasetid="ds_rarescnd" columnid="todd"/>
      <BindItem id="item0" compid="group3.group2.ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="group3.group2.input1" propid="value" datasetid="ds_send" columnid="rrgstno1"/>
      <BindItem id="item2" compid="group3.group2.input2" propid="value" datasetid="ds_send" columnid="rrgstno2"/>
      <BindItem id="item3" compid="group3.input3" propid="value" datasetid="ds_rarescnd" columnid="pid"/>
      <BindItem id="item4" compid="group3.input4" propid="value" datasetid="ds_rarescnd" columnid="hngnm"/>
      <BindItem id="item5" compid="group3.input7" propid="value" datasetid="ds_rarescnd" columnid="rrgstno1"/>
      <BindItem id="item6" compid="group3.input8" propid="value" datasetid="ds_rarescnd" columnid="rrgstno2"/>
      <BindItem id="item7" compid="group3.cmb_building1" propid="value" datasetid="ds_rarescnd" columnid="splccd"/>
      <BindItem id="item8" compid="group3.ipt_fromdd1" propid="value" datasetid="ds_rarescnd" columnid="fromdd"/>
      <BindItem id="item10" compid="group2.ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item11" compid="group2.input1" propid="value" datasetid="ds_send" columnid="rrgstno1"/>
      <BindItem id="item12" compid="group2.input2" propid="value" datasetid="ds_send" columnid="rrgstno2"/>
      <BindItem id="item13" compid="input3" propid="value" datasetid="ds_rarescnd" columnid="pid"/>
      <BindItem id="item14" compid="input4" propid="value" datasetid="ds_rarescnd" columnid="hngnm"/>
      <BindItem id="item15" compid="input7" propid="value" datasetid="ds_rarescnd" columnid="rrgstno1"/>
      <BindItem id="item16" compid="input8" propid="value" datasetid="ds_rarescnd" columnid="rrgstno2"/>
      <BindItem id="item17" compid="cmb_building1" propid="value" datasetid="ds_rarescnd" columnid="splccd"/>
      <BindItem id="item18" compid="ipt_fromdd1" propid="value" datasetid="ds_rarescnd" columnid="fromdd"/>
      <BindItem id="item19" compid="input6" propid="value" datasetid="ds_rarescnd" columnid="todd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[
include "com_commonxp::comm_main.xjs";
include "com_basiccodexp::ZBC001.xjs";
include "pam_pamcomnxp::PAM.xjs";

function SPPAO04600_oninit(obj:Form, e:InitEventInfo) {
	frmf_initForm(obj);  // 화면공통
}

function SPPAO04600_onload(obj:Form, e:LoadEventInfo) {
	
	grdf_initGrid(grd_rarescnd);
	
	if (frmf_checkOpener()) { // 팝업화면으로 사용될 때	
		
		try {
			ds_send.copyData(arg_ds_send);
		} catch(e) {
		
		}

		if (!utlf_isNull(ds_send.getColumn(0, "pid"))) {
			fSearch();
		}
	}

	group2.ipt_pid.setFocus();
}

// 등록번호 입력 이벤트
function group3_group2_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo) {
	if (e.keycode == 13) {
		group2.ipt_pid.updateToDataset();
		group2.btn_search.click();
	}
}

// 주민번호 앞자리 입력 이벤트
function group3_group2_input1_onkeyup(obj:Edit, e:KeyEventInfo) {
	if (e.keycode == 13) {
		group2.input1.updateToDataset();
		group2.btn_search.click();
	}
}

// 주민번호 뒷자리 입력 이벤트
function group3_group2_input2_onkeyup(obj:Edit, e:KeyEventInfo) {
	if (e.keycode == 13) {
		group2.input2.updateToDataset();
		group2.btn_search.click();
	}
}

// 조회 버튼 클릭
function group3_group2_btn_search_onclick(obj:Button,  e:ClickEventInfo) {

	var pid 	 =  ds_send.getColumn(0, "pid");
	var rrgstno1 =  ds_send.getColumn(0, "rrgstno1");
	var rrgstno2 =  ds_send.getColumn(0, "rrgstno2");
	
	if (utlf_isNull(pid) && (utlf_isNull(rrgstno1) && utlf_isNull(rrgstno2))) {
		sysf_messageBox("등록번호 또는 주민번호 입력 후 조회하십시오.", "I999", "");
		return false;
	}
	
	ds_rarescnd.clearData();
	ds_rarescnd.addRow();
	
	ds_hidden_patinfo.clearData();
	ds_hidden_patinfo.addRow();
	
	fSearch();
}

// 환자 차상위 희귀난치 등록내역 조회
function fSearch() {
	var oParam = {};
	oParam.id      = "TRPAO04601";
	oParam.service = "pamcomnapp.PamComn";
	oParam.method  = "reqGetRareScndSpec";
	oParam.inds    = "req=ds_send";
	oParam.outds   = "ds_rslist=rarescndlist";
	oParam.async   = false;
	
	tranf_submit(oParam);
}

// 등록번호 입력 이벤트
function group3_input3_onkeyup(obj:Edit, e:KeyEventInfo) {
	if (e.keycode == 13) {
		
		input3.updateToDataset();
		
		var spid = obj.value;
		
		if (!utlf_isNull(spid)) {
			
			ds_send.setColumn(0, "pid", spid);
			
			var oParam = {};
			oParam.id      = "TRPAO04602";
			oParam.service = "pamcomnapp.PamComn";
			oParam.method  = "reqGetRareScndPatInfo";
			oParam.inds    = "req=ds_send";
			oParam.outds   = "ds_hidden_patinfo=patinfo";
			oParam.async   = false;

			tranf_submit(oParam);	
			
			if (utlf_isNull(ds_hidden_patinfo.getColumn(0, "pid"))) {
				sysf_messageBox("등록된 환자가 없습니다.", "I999", "");	
				return false;
			}
			
			ds_rarescnd.copyRow(0, ds_hidden_patinfo, 0);
		}
	}	
}

// 신규버튼 클릭 이벤트
function group3_button1_onclick(obj:Button,  e:ClickEventInfo) {
	ds_send.clearData();
	ds_send.addRow();
	
	ds_send_data.clearData();
	ds_send_data.addRow();
	
	ds_rarescnd.clearData();
	ds_rarescnd.addRow();
	
	ds_rslist.clearData();
	
	ds_hidden_patinfo.clearData();
}

// 조회된 내역에서 해당 그리드를 클릭시 발생되는 이벤트
function group3_grd_rarescnd_oncellclick(obj:Grid, e:GridClickEventInfo) {
	ds_rarescnd.copyRow(0, ds_rslist, e.row);
}

// 저장버튼 클릭시 발생되는 이벤트
function group3_button6_onclick(obj:Button,  e:ClickEventInfo) {
	
	if (utlf_isNull(ds_rarescnd.getColumn(0, "pid"))) {
		sysf_messageBox("등록번호가 입력되지 않았습니다.", "I999", "");	
		return;
	}
	
	if (utlf_isNull(ds_rarescnd.getColumn(0, "hngnm"))) {
		sysf_messageBox("성명이 입력되지 않았습니다.", "I999", "");	
		return;
	}
	
	if (utlf_isNull(ds_rarescnd.getColumn(0, "rrgstno1")) || utlf_isNull(ds_rarescnd.getColumn(0, "rrgstno2"))) {
		sysf_messageBox("주민번호가 입력되지 않았습니다.", "I999", "");	
		return;
	}
	
	if (utlf_isNull(ds_rarescnd.getColumn(0, "splccd"))) {
		sysf_messageBox("구분코드가 입력되지 않았습니다.", "I999", "");	
		return;
	}
	
	if (utlf_isNull(ds_rarescnd.getColumn(0, "fromdd")) || utlf_isNull(ds_rarescnd.getColumn(0, "todd"))) {
		sysf_messageBox("적용기간이 입력되지 않았습니다.", "I999", "");	
		return;
	}
	
	ds_send_data.clearData();
	ds_send_data.addRow();
	
	ds_send_data.setColumn(0, "rrgstno1", ds_rarescnd.getColumn(0, "rrgstno1"));
	ds_send_data.setColumn(0, "rrgstno2", ds_rarescnd.getColumn(0, "rrgstno2"));
	ds_send_data.setColumn(0, "fromdd",   ds_rarescnd.getColumn(0, "fromdd"));
	ds_send_data.setColumn(0, "todd",     ds_rarescnd.getColumn(0, "todd"));
	ds_send_data.setColumn(0, "delflag",  "N");
	
	// 희귀난치 H 대불 환자라면
	if (ds_rarescnd.getColumn(0, "splccd") == "H") {

		var oParam = {};
		oParam.id       = "TXPAC03902";
		oParam.service  = "pamcomnapp.PamComn";
		oParam.method   = "reqSetinsBareObstTrgtman";
		oParam.inds     = "req=ds_send_data";
		oParam.outds    = "";
		oParam.async    = false;
		
		tranf_submit(oParam);	
		
	} else {
		
		if (ds_rarescnd.getColumn(0, "splccd") == "C") {
			ds_send_data.setColumn(0, "scndflag", "1"); // 차상위 1종
		}else{
			ds_send_data.setColumn(0, "scndflag", "2"); // 차상위 2종
		}
		
		ds_send_data.setColumn(0, "splccd", ds_rarescnd.getColumn(0, "splccd"));
		
		var oParam = {};
		oParam.id       = "TXPAC03904";
		oParam.service  = "pamcomnapp.PamComn";
		oParam.method   = "reqSetinsScndSupTrgtman";
		oParam.inds     = "req=ds_send_data";
		oParam.outds    = "";
		oParam.async    = false;
		
		tranf_submit(oParam);
	}
	
	ds_rarescnd.clearData();
	ds_rarescnd.addRow();
	
	ds_rslist.clearData();
	
	ds_hidden_patinfo.clearData();
	
	ds_send.setColumn("rrgstno1", ds_send_data.getColumn("rrgstno1"));
	ds_send.setColumn("rrgstno2", ds_send_data.getColumn("rrgstno2"));
	
	fSearch();
}

// 종료 버튼 클릭 이벤트
function group1_btn_confirm_onclick(obj:Button,  e:ClickEventInfo) {
	this.close();
}]]></Script>
  </Form>
</FDL>