YNU_JEUS/app_home/himed/xpapps/emr/dschanalyxp/xp/SPMRD02100_원무희귀난치등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMRD02100" position="absolute 0 0 561 430" titletext="희귀난치환자등록" onload="SPMRD02100_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 137 77 193 99" id="btn_search" class="btn1" visible="false" text="조회" onclick="btn_search_onclick"/>
        <Static text="희귀난치환자 등록" position="absolute 0 0 160 16" align="align:center middle;" id="caption14" class="tit_2"/>
        <Static text="환자명" position="absolute 205 21 284 44" align="align:center middle;" id="caption1" class="cell_1"/>
        <Static text="주소" position="absolute 205 46 284 69" align="align:center middle;" id="caption2" class="cell_1"/>
        <Static text="성별" position="absolute 446 21 495 44" align="align:center middle;" id="caption3" class="cell_1"/>
        <Static text="생년월일" position="absolute 1 46 80 69" align="align:center middle;" id="caption13" class="cell_1"/>
        <Static text="등록번호" position="absolute 1 21 80 44" align="align:center middle;" id="caption26" class="cell_1"/>
        <Static text="희귀난치환자 등록사항" position="absolute 0 83 168 99" align="align:center middle;" id="caption4" class="tit_2"/>
        <Static text="종료일자" position="absolute 1 129 80 152" align="align:center middle;" id="caption5" class="cell_1"/>
        <Static text="시작일자" position="absolute 1 104 80 127" align="align:center middle;" id="caption6" class="cell_1"/>
        <Static text="희귀난치등록번호" position="absolute 291 104 403 127" align="align:center middle;" id="caption7" class="cell_1"/>
        <Static text="보험구분" position="absolute 291 129 403 152" align="align:center middle;" id="caption8" class="cell_1"/>
        <Static text="진단상병" position="absolute 1 154 80 177" align="align:center middle;" id="caption9" class="cell_1"/>
        <Edit position="absolute 160 156 560 175" id="input3"/>
        <Static text="희귀난치환자 등록내역" position="absolute 0 233 168 249" align="align:center middle;" id="caption10" class="tit_2"/>
        <Edit position="absolute 82 156 157 175" id="input4"/>
        <Grid position="absolute 0 250 560 428" id="grd_rareobstrgstlist" binddataset="ds_main_rareobstrgstlist" cellsizingtype="col" onlbuttonup="grd_rareobstrgstlist_onlbuttonup">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="58"/>
                <Column size="58"/>
                <Column size="105"/>
                <Column size="76"/>
                <Column size="54"/>
                <Column size="68"/>
                <Column size="54"/>
                <Column size="54"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="56"/>
              </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="상병명"/>
                <Cell col="10" text="환자명"/>
                <Cell col="11" text="성별"/>
                <Cell col="12" text="생년월일"/>
                <Cell col="13" text="주소"/>
                <Cell col="14" text="flag2"/>
                <Cell col="15" text="삭제자"/>
              </Band>
              <Band id="body">
                <Cell text="bind:rareobstfromdd"/>
                <Cell col="1" text="bind:rareobsttodd"/>
                <Cell col="2" text="bind:rareobstno"/>
                <Cell col="3" displaytype="combo" edittype="combo" text="bind:insukind" combodataset="ds_insukind" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="4" displaytype="combo" edittype="combo" text="bind:histcd" combodataset="ds_cmb_histcd" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="5" style="align:left;padding:0 3 0 3;" text="bind:maindiagcd"/>
                <Cell col="6" text="bind:prntyn"/>
                <Cell col="7" text="bind:signyn"/>
                <Cell col="8" text="bind:rcptremfact"/>
                <Cell col="9" text="bind:maindiagnm"/>
                <Cell col="10" text="bind:hngnm"/>
                <Cell col="11" text="bind:sex"/>
                <Cell col="12" text="bind:brthdd"/>
                <Cell col="13" text="bind:addr"/>
                <Cell col="14" text="bind:flag2"/>
                <Cell col="15" text="bind:lastupdttrnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 447 77 503 99" id="btn_update" class="btn4" text="수정" onclick="btn_update_onclick"/>
        <Button position="absolute 504 77 560 99" id="btn_del" class="btn4" text="삭제" onclick="btn_del_onclick"/>
        <Button position="absolute 321 77 389 99" id="btn_clear" class="btn4" text="초기화" onclick="btn_clear_onclick"/>
        <Edit position="absolute 82 23 195 42" id="ipt_pid" class="input_s_essential" onkeydown="ipt_pid_onkeydown" autoselect="true"/>
        <Edit readonly="true" position="absolute 286 23 383 42" id="opt_hngnm" class="output"/>
        <Edit readonly="true" position="absolute 497 23 560 42" id="opt_sex" class="output"/>
        <MaskEdit readonly="true" position="absolute 82 48 196 67" id="opt_brthdd" mask="@@@@-@@-@@" type="string" style="align:left middle;"/>
        <Edit readonly="true" position="absolute 286 48 560 67" id="opt_addr" class="output"/>
        <Calendar position="absolute 82 106 220 125" id="ipt_rareobstfromdd" mask="yyyy-mm-dd"/>
        <Calendar position="absolute 82 131 220 150" id="ipt_rareobsttodd" mask="yyyy-mm-dd"/>
        <Edit position="absolute 405 106 560 125" id="ipt_rareobstno"/>
        <Combo position="absolute 405 131 560 150" id="cbo_insukind" innerdataset="@ds_insukind" datacolumn="cdnm" codecolumn="cdid"/>
        <Static text="비고&#13;&#10;&#13;&#10;" position="absolute 1 179 80 227" align="align:center top;" id="caption11" class="cell_1"/>
        <TextArea position="absolute 82 179 560 227" id="textarea1"/>
        <Button position="absolute 194 77 320 99" id="button1" class="btn3" text="희귀난치환자관리" onclick="button1_onclick"/>
        <Button position="absolute 150 145 166 161" id="btn_diagsrch" class="icon_search" visible="false" text=""/>
        <Edit readonly="true" position="absolute 394 23 429 42" id="output1" visible="false" class="output"/>
        <Button position="absolute 15 200 68 219" id="btn_small" class="btn2" text="접   기" onclick="btn_small_onclick"/>
        <Button position="absolute 15 200 68 219" id="btn_big" class="btn2" text="펼치기" onclick="btn_big_onclick"/>
        <Button position="absolute 390 77 446 99" id="btn_insert" class="btn4" text="입력" onclick="btn_insert_onclick"/>
        <Shape id="line1" class="line_1" position="absolute 0 16 560 22" style="strokepen:3 solid #9ebed4ff;"/>
        <Shape id="line2" class="line_1" position="absolute 0 99 560 105" style="strokepen:3 solid #9ebed4ff;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_genrflagcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="genrflagcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_rareobstrgst" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag1" type="STRING" size="256"/>
          <Column id="flag2" type="STRING" size="256"/>
          <Column id="status" type="STRING" size="256"/>
          <Column id="genrdd" type="STRING" size="256"/>
          <Column id="genrno" type="STRING" size="256"/>
          <Column id="histno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="histcd" type="STRING" size="256"/>
          <Column id="anohosprgstflag" type="STRING" size="256"/>
          <Column id="genrflagcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="rareobstcnfmdd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="rareobstno" type="STRING" size="256"/>
          <Column id="rareobstfromdd" type="STRING" size="256"/>
          <Column id="rareobsttodd" type="STRING" size="256"/>
          <Column id="genrorddd" type="STRING" size="256"/>
          <Column id="genrcretno" type="STRING" size="256"/>
          <Column id="ediflag" type="STRING" size="256"/>
          <Column id="editretdd" type="STRING" size="256"/>
          <Column id="editrettm" type="STRING" size="256"/>
          <Column id="maindiagcd" type="STRING" size="256"/>
          <Column id="prntyn" type="STRING" size="256"/>
          <Column id="signyn" type="STRING" size="256"/>
          <Column id="rcptremfact" type="STRING" size="256"/>
          <Column id="maindiagnm" type="STRING" size="256"/>
          <Column id="zipcdhead" type="STRING" size="256"/>
          <Column id="zipcdfoot" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="infromdd" type="STRING" size="256"/>
          <Column id="intodd" type="STRING" size="256"/>
          <Column id="acptplcebaseaddr" type="STRING" size="256"/>
          <Column id="acptplceaddr" type="STRING" size="256"/>
          <Column id="acptplcetel" type="STRING" size="256"/>
          <Column id="acptplcempphon" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="brthdd" type="STRING" size="256"/>
          <Column id="addr" type="STRING" size="256"/>
          <Column id="roomcd" type="STRING" size="256"/>
          <Column id="remfact" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="lastupdttrnm" type="STRING" size="256"/>
          <Column id="mig" type="STRING" size="256"/>
          <Column id="maincd" type="STRING" size="256"/>
          <Column id="report" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_P0008" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_insukind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING"/>
          <Column id="cdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hardno" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_rareobstrgstlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="depthngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="deptcd">-</Col>
            <Col id="depthngnm">전체</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag1" type="STRING" size="256" sumtext="환자번호유무"/>
          <Column id="flag2" type="STRING" size="256" sumtext="입원여부"/>
          <Column id="status" type="STRING" size="256" sumtext="상태"/>
          <Column id="genrdd" type="STRING" size="256" sumtext="발생일자"/>
          <Column id="genrno" type="STRING" size="256" sumtext="발생번호"/>
          <Column id="histno" type="STRING" size="256" sumtext="이력번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="histcd" type="STRING" size="256" sumtext="이력코드"/>
          <Column id="anohosprgstflag" type="STRING" size="256" sumtext="타병원등록구분"/>
          <Column id="genrflagcd" type="STRING" size="256" sumtext="발생구분코드"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="cncrdiagcnfmdd" type="STRING" size="256" sumtext="암진단확정일자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의"/>
          <Column id="serdiagno" type="STRING" size="256" sumtext="중증번호"/>
          <Column id="serdiagfromdd" type="STRING" size="256" sumtext="중증번호시작일자"/>
          <Column id="serdiagtodd" type="STRING" size="256" sumtext="중증번호종료일자"/>
          <Column id="genrorddd" type="STRING" size="256" sumtext="발생진료일자"/>
          <Column id="genrcretno" type="STRING" size="256" sumtext="발생생성번호"/>
          <Column id="ediflag" type="STRING" size="256" sumtext="EDI구분"/>
          <Column id="editretdd" type="STRING" size="256" sumtext="EDI처리일자"/>
          <Column id="editrettm" type="STRING" size="256" sumtext="EDI처리시간"/>
          <Column id="maindiagcd" type="STRING" size="256" sumtext="주진단코드"/>
          <Column id="prntyn" type="STRING" size="256" sumtext="출력여부"/>
          <Column id="signyn" type="STRING" size="256" sumtext="사인여부"/>
          <Column id="rcptremfact" type="STRING" size="256" sumtext="수납비고"/>
          <Column id="maindiagnm" type="STRING" size="256" sumtext="상병명"/>
          <Column id="zipcdhead" type="STRING" size="256" sumtext="우편번호1"/>
          <Column id="zipcdfoot" type="STRING" size="256" sumtext="우편번호2"/>
          <Column id="seqno" type="STRING" size="256" sumtext="우편번호일련번호"/>
          <Column id="infromdd" type="STRING" size="256" sumtext="입원시작일자"/>
          <Column id="intodd" type="STRING" size="256" sumtext="입원종료일자"/>
          <Column id="acptplcebaseaddr" type="STRING" size="256" sumtext="우편번호기본주소"/>
          <Column id="acptplceaddr" type="STRING" size="256" sumtext="우편번호상세주소"/>
          <Column id="acptplcetel" type="STRING" size="256" sumtext="집전화번호"/>
          <Column id="acptplcempphon" type="STRING" size="256" sumtext="핸드폰번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="brthdd" type="STRING" size="256" sumtext="생년월일"/>
          <Column id="addr" type="STRING" size="256" sumtext="주소"/>
          <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
          <Column id="remfact" type="STRING" size="256" sumtext="비고"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="I/O구분"/>
          <Column id="lastupdttrnm" type="STRING" size="256" sumtext="삭제자"/>
          <Column id="mig" type="STRING" size="256" sumtext="마이그일자"/>
          <Column id="maincd" type="STRING" size="256" sumtext="의사진단코드"/>
          <Column id="report" type="STRING" size="256" sumtext="결과통보방법"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_apchlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="reqdata" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_rareobstdelinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cmb_histcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdid">O</Col>
            <Col id="cdnm">등록</Col>
          </Row>
          <Row>
            <Col id="cdid">H</Col>
            <Col id="cdnm">삭제</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_pid" propid="value" datasetid="ds_main_rareobstrgst" columnid="pid"/>
      <BindItem id="item1" compid="opt_hngnm" propid="value" datasetid="ds_main_rareobstrgst" columnid="hngnm"/>
      <BindItem id="item2" compid="output1" propid="value" datasetid="ds_main_rareobstrgst" columnid="flag2"/>
      <BindItem id="item3" compid="opt_sex" propid="value" datasetid="ds_main_rareobstrgst" columnid="sex"/>
      <BindItem id="item4" compid="opt_brthdd" propid="value" datasetid="ds_main_rareobstrgst" columnid="brthdd"/>
      <BindItem id="item5" compid="opt_addr" propid="value" datasetid="ds_main_rareobstrgst" columnid="addr"/>
      <BindItem id="item6" compid="ipt_rareobstfromdd" propid="value" datasetid="ds_main_rareobstrgst" columnid="rareobstfromdd"/>
      <BindItem id="item7" compid="ipt_rareobstno" propid="value" datasetid="ds_main_rareobstrgst" columnid="rareobstno"/>
      <BindItem id="item8" compid="ipt_rareobsttodd" propid="value" datasetid="ds_main_rareobstrgst" columnid="rareobsttodd"/>
      <BindItem id="item9" compid="cbo_insukind" propid="value" datasetid="ds_main_rareobstrgst" columnid="insukind"/>
      <BindItem id="item10" compid="input4" propid="value" datasetid="ds_main_rareobstrgst" columnid="maincd"/>
      <BindItem id="item11" compid="input3" propid="value" datasetid="ds_main_rareobstrgst" columnid="maindiagnm"/>
      <BindItem id="item12" compid="textarea1" propid="value" datasetid="ds_main_rareobstrgst" columnid="rcptremfact"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-16
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-16      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
 include "com_commonxp::comm_main.xjs";
 include "com_commodulexp::SSZFM00401.xjs"
 var arErrorCode = new HashArray();
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SPMRD02100
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면오픈시 폼load이후 실행
 ****************************************************************************************/
function SPMRD02100_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);  // 폼 초기화 
	lf_commoduleDataSetShow(); //DataSet 조회
	
	if(frmf_checkOpener()) {
		ds_main_rareobstrgst.setColumn(0,"pid",opener.frmf_getParameter("SPMRD02100_pid"));
		ds_genrflagcd.setColumn(0,"genrflagcd",opener.frmf_getParameter("SPMRD02100_genrflagcd"));
		
		if(utlf_isNull(opener.frmf_getParameter("SPMRD02100_pid"))){
			sysf_messageBox("등록번호가 입력되지", "E007" );
			ipt_pid.setFocus();
		} else {
//			submit("TRMRD02104", false);
// 			var oParam = {};
// 				oParam.id       = "TRMRD02104";
// 				oParam.service  = "dschanalyapp.DschAnaly";
// 				oParam.method   = "reqGetPatInfoBase";
// 				oParam.inds     = "req=ds_main_rareobstrgst";
// 				oParam.outds    = "ds_main_rareobstrgst=patinfo";
// 				oParam.async    = false;
// 				oParam.callback = "";
// 
// 			tranf_submit(oParam);

			var ev = new ClickEventInfo;
			frmf_inputEnterKey("btn_search", "onclick", ev );
			ipt_rareobstfromdd.setFocus();
		}
	}else{
		ipt_pid.setFocus();
	}

	ds_main_rareobstrgst.setColumn(0,"status","I");

//	zbcfGetCodeList(new Array("P0008"), new Array("/root/init/P0008"));
	var arrParam = [{dsNm: "ds_P0008", cdGrpId: "P0008"}
				   ]
	appf_getCodeList(arrParam);	
//	copyNodesetType("/root/init/insukind", "/root/init/P0008/P0008[cdid >=11 and cdid<=22]", "replace");	//희귀난치 보험만 적용 20090701 희귀난치 의료급여까지 적용 20101124 이은영
	ds_P0008.filter("cdid >= 11 && cdid <= 22");
	ds_insukind.copyData(ds_P0008, true);
	ds_P0008.filter("");

//	submit("TRMRD02106");
	var oParam = {};
		oParam.id       = "TRMRD02106";
		oParam.service  = "dschanalyapp.DschAnaly";
		oParam.method   = "reqGetRareobstHardno2";
		oParam.inds     = "";
		oParam.outds    = "ds_hardno=hardno";
		oParam.async    = false;
		oParam.callback = "";

	tranf_submit(oParam);

	//if ( getUserInfo("dutplcecd").getTrim() == "3230000000") {
	if(!utlf_isNull(ds_hardno.getColumn(0,"trgtcd"))){
		btn_insert.enable = false;		//입력
		btn_update.enable = false;		//수정
		btn_del.enable	  = false;		//삭제
	} else {
		btn_insert.enable = true;
		btn_update.enable = true;
		btn_del.enable 	  = true;
	}				

	btn_small.visible = false;
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: ipt_pid
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 등록번호 입력 후 엔터 누르면 조회 실행
 ****************************************************************************************/
function ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		var ev = new ClickEventInfo;
		frmf_inputEnterKey("btn_search", "onclick", ev );
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_search
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회버튼
 ****************************************************************************************/
function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
//	submit("TRMRD02104");
	var oParam = {};
		oParam.id       = "TRMRD02104";
		oParam.service  = "dschanalyapp.DschAnaly";
		oParam.method   = "reqGetPatInfoBase";
		oParam.inds     = "req=ds_main_rareobstrgst";
		oParam.outds    = "ds_main_rareobstrgst=patinfo";
		oParam.async    = false;
		oParam.callback = "";

	tranf_submit(oParam);
	ds_main_rareobstrgst.setColumn(0,"status","I");
	
	if(ds_main_rareobstrgst.getColumn(0,"flag1") == "N"){
//		model.makeNode("/root/main/rareobstrgst/rareobstrgst/pid");
		sysf_messageBox("없는 환자 번호 입니다.", "E999", "");
		ipt_pid.setFocus();
		return;
	} else {					
		//if(!submit("TRMRD02101",false)){
//		submit("TRMRD02101");
		var oParam = {};
			oParam.id       = "TRMRD02101";
			oParam.service  = "dschanalyapp.DschAnaly";
			oParam.method   = "reqGetRareObstPatInfo";
			oParam.inds     = "req=ds_main_rareobstrgst";
			oParam.outds    = "ds_main_rareobstrgstlist=rareobstrgstlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMRD02101";

		tranf_submit(oParam);
		var cnt = ds_main_rareobstrgstlist.rowcount;
			
		if (cnt > 0) {
			ds_main_rareobstrgst.copyRow(0,ds_main_rareobstrgstlist,0); 
		} else {
//			submit("TRMRD02104");
			var oParam = {};
				oParam.id       = "TRMRD02104";
				oParam.service  = "dschanalyapp.DschAnaly";
				oParam.method   = "reqGetPatInfoBase";
				oParam.inds     = "req=ds_main_rareobstrgst";
				oParam.outds    = "ds_main_rareobstrgst=patinfo";
				oParam.async    = false;
				oParam.callback = "";

			tranf_submit(oParam);
		}
		
		//200810071500 원무 김은정 선생님 요청
		if(ds_main_rareobstrgst.getColumn(0,"rareobstno") == "의뢰서작성"){
			ds_main_rareobstrgst.setColumn(0,"rareobstno","-");
		}
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: button1
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 희귀난치환자관리 버튼 실행
 ****************************************************************************************/
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_setParameter("SMMRD02000_pid", 	 ds_main_rareobstrgst.getColumn(0,"pid"));
	frmf_setParameter("SMMRD02000_orddeptcd",ds_init_orddept.getColumn(0,"dept")) ;
//	modal("SMMRD02000");
	frmf_modal("SMMRD02000", "SMMRD02000", "", "", "", "", "", "", "", "", "", "", "M");
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_clear
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 초기화 버튼 실행
 ****************************************************************************************/
function btn_clear_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_rareobstrgstlist.clearData();
	ds_patinfo.clearData();
	ds_main_rareobstrgst.clearData();
	ds_main_rareobstrgst.addRow();
	ds_main_rareobstrgst.setColumn(0,"pid",opener.frmf_getParameter("SPMRD02100_pid"));
	ds_main_rareobstrgst.setColumn(0,"status","I");
}

function btn_insert_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_rareobstrgst.getColumn(0,"flag2") == "Y") {
		var ioflagcd = "I";
	} else {
		var ioflagcd = "O";
		
		ds_main_rareobstrgst.setColumn(0,"infromdd","00000000");
		ds_main_rareobstrgst.setColumn(0,"intodd",  "00000000");
	}

	ds_main_rareobstrgst.setColumn(0,"genrflagcd",ioflagcd );
	ds_main_rareobstrgst.setColumn(0,"ioflag",	ioflagcd );
	ds_main_rareobstrgst.setColumn(0,"report", 	"1");

	if(utlf_isNull(ds_main_rareobstrgst.getColumn(0,"pid"))){
		sysf_messageBox("등록번호가 입력되지", "E007" );
		return;
	}

	if(utlf_isNull(ds_main_rareobstrgst.getColumn(0,"rareobstfromdd"))) {
		sysf_messageBox("시작일자가 입력되지", "E007" );
		return;
	}

	if(utlf_isNull(ds_main_rareobstrgst.getColumn(0,"insukind"))) {
		sysf_messageBox("보험구분이 입력되지", "E007" );
		return;
	}

//	submit("TRMRD02103");
	var oParam = {};
		oParam.id       = "TRMRD02103";
		oParam.service  = "dschanalyapp.DschAnaly";
		oParam.method   = "reqGetRareObstFromTo";
		oParam.inds     = "req=ds_main_rareobstrgst";
		oParam.outds    = "ds_temp_apchlist=apchlist";
		oParam.async    = false;
		oParam.callback = "";

	tranf_submit(oParam);
	
	var cnt = ds_temp_apchlist.rowcount;

	if (ds_main_rareobstrgst.getColumn(0,"insukind") >= "21" && ds_main_rareobstrgst.getColumn(0,"insukind") <= "25"
		&& ds_main_rareobstrgst.getColumn(0,"rareobstno").length != "15") {	
		sysf_messageBox("희귀난치등록번호가 정확히 입력되지", "E007" );
		ipt_rareobstno.setFocus();
		return;
	} else if (ds_main_rareobstrgst.getColumn(0,"insukind") >= "10" && ds_main_rareobstrgst.getColumn(0,"insukind") <= "20" 
		&& ds_main_rareobstrgst.getColumn(0,"rareobstno").length != "10") {	
		sysf_messageBox("희귀난치등록번호가 정확히 입력되지", "E007" );
		ipt_rareobstno.setFocus();
		return;						
	}

	if (cnt > 0) {				// 희귀난치 시작/종료일자 비교
		sysf_messageBox("값이 중복되어 저장되지 않았습니다.","I");
		return;
	} else {
		dsf_makeValue(ds_main_rareobstrgst,"status",	"string","I");
		dsf_makeValue(ds_main_rareobstrgst,"orddeptcd",	"string","-");
		dsf_makeValue(ds_main_rareobstrgst,"orddrid",	"string","-");
		dsf_makeValue(ds_main_rareobstrgst,"genrorddd",	"string","-");
		if(utlf_isNull(ds_main_rareobstrgst.getColumn(0,"rareobstno"))) {
			dsf_makeValue(ds_main_rareobstrgst,"rareobstno","string","-");
		}

//		submit("TXMRD02101");	// Insert
		var oParam = {};
			oParam.id       = "TXMRD02101";
			oParam.service  = "dschanalyapp.DschAnaly";
			oParam.method   = "reqExeSaveRareObstRgst";
			oParam.inds     = "req=ds_main_rareobstrgst";
			oParam.outds    = "ds_main_rareobstrgstlist=rareobstrgstlist ds_patinfo=patinfo";
			oParam.async    = false;
			oParam.callback = "cf_TXMRD02101";

		tranf_submit(oParam);		

		if(arErrorCode.pop("TXMRD02101") >= 0) {
			sysf_messageBox("저장이 완료되었습니다.","I");
		}

		var ev = new ClickEventInfo;
		frmf_inputEnterKey("btn_search", "onclick", ev ); //조회버튼
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_update
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 수정 버튼 실행
 ****************************************************************************************/
function btn_update_onclick(obj:Button,  e:ClickEventInfo)
{
	// 삭제된 데이터 수정일 경우
	if(ds_main_rareobstrgst.getColumn(0,"histcd") == "H"){
		sysf_messageBox("삭제된 데이터는 수정할 수 ", "I004" );
		return;
	}

	if (ds_main_rareobstrgst.getColumn(0,"flag2") == "Y") {
		var ioflagcd = "I";
	} else {
		var ioflagcd = "O";
		
		ds_main_rareobstrgst.setColumn(0,"infromdd", "00000000");
		ds_main_rareobstrgst.setColumn(0,"intodd",   "00000000");
	}

	ds_main_rareobstrgst.setColumn(0,"genrflagcd", ioflagcd );
	ds_main_rareobstrgst.setColumn(0,"ioflag", 	   ioflagcd );

	if(utlf_isNull(ds_main_rareobstrgst.getColumn(0,"pid"))){
		sysf_messageBox("등록번호가 입력되지", "E007" );
		return;
	}

	if (utlf_isNull(ds_main_rareobstrgst.getColumn(0,"rareobstfromdd"))) {
		sysf_messageBox("시작일자가 입력되지", "E007" );
		return;
	}

	if(!utlf_isNull(ds_main_rareobstrgst.getColumn(0,"rareobstno")) && ds_main_rareobstrgst.getColumn(0,"rareobstno") != "-"){						
		if (ds_main_rareobstrgst.getColumn(0,"insukind") >= "21" && ds_main_rareobstrgst.getColumn(0,"insukind") <= "25"
			&& ds_main_rareobstrgst.getColumn(0,"rareobstno").length != "15") {	
			sysf_messageBox("희귀난치등록번호가 정확히 입력되지", "E007" );
			ipt_rareobstno.setFocus();
			return;
		} else if (ds_main_rareobstrgst.getColumn(0,"insukind") >= "10" && ds_main_rareobstrgst.getColumn(0,"insukind") <= "20" 
			&& ds_main_rareobstrgst.getColumn(0,"rareobstno").length != "10") {	
			sysf_messageBox("희귀난치등록번호가 정확히 입력되지", "E007" );
			ipt_rareobstno.setFocus();
			return;						
		}
	}

	if (utlf_isNull(ds_main_rareobstrgst.getColumn(0,"insukind"))) {
		sysf_messageBox("보험구분이 입력되지", "E007" );
		return;
	}

	ds_main_rareobstrgst.setColumn(0,"status", "U");

//	submit("TXMRD02101");	// Update		
	var oParam = {};
		oParam.id       = "TXMRD02101";
		oParam.service  = "dschanalyapp.DschAnaly";
		oParam.method   = "reqExeSaveRareObstRgst";
		oParam.inds     = "req=ds_main_rareobstrgst";
		oParam.outds    = "ds_main_rareobstrgstlist=rareobstrgstlist ds_patinfo=patinfo";
		oParam.async    = false;
		oParam.callback = "cf_TXMRD02101";

	tranf_submit(oParam);		
		
	if (ds_send.getColumn(0,"flag") != "Y"){			
		sysf_messageBox("수정이 완료되었습니다.","I");
	}

	var ev = new ClickEventInfo;
	frmf_inputEnterKey("btn_search", "onclick", ev );
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_del
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 삭제 버튼 실행
 ****************************************************************************************/
function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( sysf_messageBox("해당 자료를", "Q001") == 6 ) {
//		submit("TRMRD02105");
		var oParam = {};
			oParam.id       = "TRMRD02105";
			oParam.service  = "dschanalyapp.DschAnaly";
			oParam.method   = "reqGetRareObstDelinfo";
			oParam.inds     = "req=ds_main_rareobstrgst";
			oParam.outds    = "ds_main_rareobstdelinfo=rareobstdelinfo";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		var cnt = ds_main_rareobstdelinfo.rowcount;

		if (cnt > 0){
			sysf_messageBox("이미 삭제 처리된 자료입니다.","I");
			return;
		} else {
			if(!utlf_isNull(ds_main_rareobstrgst.getColumn(0,"rcptremfact"))) {
				dsf_makeValue(ds_send,"flag","string","Y");

				var ev = new ClickEventInfo;
				frmf_inputEnterKey("btn_update", "onclick", ev ); //수정
			
				ds_main_rareobstrgst.setColumn(0,"status",	  "D");
				ds_main_rareobstrgst.setColumn(0,"genrflagcd",ds_genrflagcd.getColumn(0,"genrflagcd"));
//				ds_main_rareobstrgst.setColumn(0,"pid",		  model.getValue("/root/main/rareobstrgst/rareobstrgst/pid") );

				var oParam = {};
					oParam.id       = "TXMRD02101";
					oParam.service  = "dschanalyapp.DschAnaly";
					oParam.method   = "reqExeSaveRareObstRgst";
					oParam.inds     = "req=ds_main_rareobstrgst";
					oParam.outds    = "ds_main_rareobstrgstlist=rareobstrgstlist ds_patinfo=patinfo";
					oParam.async    = false;
					oParam.callback = "cf_TXMRD02101";

				tranf_submit(oParam);	
					
				if(arErrorCode.pop("TXMRD02101") >= 0) {
					sysf_messageBox("삭제가 완료되었습니다.","I");
					var ev = new ClickEventInfo;
					frmf_inputEnterKey("btn_search", "onclick", ev );
				} else {
					sysf_messageBox("삭제가 취소되었습니다.","I");
					return;
				}
			} else {
				sysf_messageBox("삭제사유를 비고란에 ","C001");
				textarea1.setFocus();
				return;
			}
		}
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_big
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 비고란 펼치기
 ****************************************************************************************/
function btn_big_onclick(obj:Button,  e:ClickEventInfo)
{
	fOpenTop("true");
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_small
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 비고란 접기
 ****************************************************************************************/
function btn_small_onclick(obj:Button,  e:ClickEventInfo)
{
	fOpenTop("false");
}


//=======================================================================================
// Function
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Function			: cf_TRMRD02101
 * Description		: TRMRD02101 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMRD02101(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    else {
		for(var i = 0 ; i < ds_main_rareobstrgstlist.rowcount ; i++) {
			ds_main_rareobstrgstlist.setColumn(i,"rareobstno",ds_main_rareobstrgstlist.getColumn(i,"rareobstno").getTrim());
		}
    }
}

/****************************************************************************************
 * Function			: cf_TXMRD02101
 * Description		: TXMRD02101 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TXMRD02101(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Function			: fOpenTop
 * Description		: 비고 입력란 펼치기
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fOpenTop(flag) 
{
	if (flag == "true") {
		btn_small.visible 		  = true;
		btn_big.visible 		  = false;
// 		textarea1.position.left   = 85; 
// 		textarea1.position.top    = 180;
// 		textarea1.position.width  = 475;
		textarea1.position.height = 200;
	} else 	{
		btn_small.visible 		  = false;
		btn_big.visible 		  = true;
// 		textarea1.position.left   = 85; 
// 		textarea1.position.top    = 180;
// 		textarea1.position.width  = 475;
		textarea1.position.height = 48;
	}
}			

/****************************************************************************************
 * Components		: Grid
 * Components ID	: grd_rareobstrgstlist
 * Event			: onlbuttonup
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 희귀난치 등록내역 선택
 ****************************************************************************************/
function grd_rareobstrgstlist_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	var currow = e.row;
	if(currow > -1) {
//		model.copyNode("/root/main/serdiagrgst/serdiagrgst", "/root/main/rgstinfo/serdiagrgstlist/serdiagrgstlist["+currow+"]");
		ds_main_rareobstrgst.copyRow(0,ds_main_rareobstrgstlist,currow); 
		
		//200810071500 원무 김은정 선생님 요청
		if(ds_main_rareobstrgstlist.getColumn(0,"rareobstno") == "의뢰서작성"){
			ds_main_rareobstrgst.setColumn(0,"rareobstno","-");
		}
		
		if(ds_main_rareobstrgst.getColumn(0,"histcd") == "H"){
			sysf_messageBox("삭제된 데이터가 ", "E005" );
		}
	}	
}
]]></Script>
  </Form>
</FDL>