YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO11500_중증환자등록신청서.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO11500" position="absolute 0 0 357 450" titletext="중증진료등록신청서" onload="SPMMO11500_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 84 19 224 118" id="group1" enable="false">
          <Layouts>
            <Layout>
              <Edit position="absolute 5 4 135 23" id="ipt_pid" enable="true" anchor="default" readonly="false"/>
              <Combo position="absolute 5 54 135 73" id="combo1" enable="false" innerdataset="@ds_orddept" datacolumn="depthngnm" codecolumn="deptcd" anchor="default" readonly="false"/>
              <Edit position="absolute 5 79 135 98" id="iopt_diaghngnm" enable="false" anchor="default" readonly="false"/>
              <Edit position="absolute 5 29 135 48" id="ipt_hngnm" enable="false" anchor="default" readonly="false"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape position="absolute 0 16 353 22" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #9ebed4ff;"/>
        <Static text="중증진료 등록 신청서" position="absolute 0 0 152 16" align="align:center middle;" id="caption14" class="tit_2"/>
        <Static text="등록번호" position="absolute 1 21 86 44" align="align:center middle;" id="caption26" class="cell_1" style="padding:0 0 0 5;"/>
        <Static text="진료과" position="absolute 1 71 86 94" align="align:center middle;" id="caption1" class="cell_1" style="padding:0 0 0 5;"/>
        <Static text="진단" position="absolute 1 96 86 119" align="align:center middle;" id="caption2" class="cell_1" style="padding:0 0 0 5;"/>
        <Static text="암진단확인일" position="absolute 1 145 86 168" align="align:center middle;" id="caption3" class="cell_1" style="padding:0 0 0 5;"/>
        <Static text="최종 진단 방법 (※ 중복 체크 가능)" position="absolute 0 199 236 215" align="align:center middle;" id="caption4" class="tit_2"/>
        <Shape position="absolute 0 215 353 221" linetype="horizontal" id="line2" class="line_1" style="strokepen:3 solid #9ebed4ff;"/>
        <Static text="①  검사" position="absolute 4 227 54 242" id="caption6"/>
        <Static text="②" position="absolute 4 270 19 285" id="caption7"/>
        <Static text="③" position="absolute 4 292 19 307" id="caption8"/>
        <Static text="④" position="absolute 4 314 19 329" id="caption9"/>
        <Static text="⑤" position="absolute 4 336 19 351" id="caption10"/>
        <Static text="⑥" position="absolute 4 361 19 376" id="caption11"/>
        <Static text="⑦" position="absolute 4 385 19 400" id="caption12"/>
        <Button position="absolute 235 428 291 450" id="btn_save" class="btn4" text="저장" onclick="btn_save_onclick"/>
        <Button position="absolute 295 428 351 450" id="btn_exit" class="btn4" text="종료" onclick="btn_exit_onclick"/>
        <Static text="환자명" position="absolute 1 46 86 69" align="align:center middle;" id="caption13" class="cell_1" style="padding:0 0 0 5;"/>
        <CheckBox position="absolute 60 224 120 239" id="bool_sono" text="SONO" onclick="bool_sono_onclick"/>
        <CheckBox position="absolute 135 224 179 239" id="bool_ct" text="CT" onclick="bool_ct_onclick"/>
        <CheckBox position="absolute 210 224 254 239" id="bool_mri" text="MRI" onclick="bool_mri_onclick"/>
        <CheckBox position="absolute 60 245 104 260" id="bool_etc" text="기타" onclick="bool_etc_onclick"/>
        <CheckBox position="absolute 25 313 229 328" id="bool_item4" text="세포학적 또는 혈액학적 검사" onclick="bool_item4_onclick"/>
        <CheckBox position="absolute 25 291 229 306" id="bool_item3" text="특수 생화학적 또는 면역학적 검사" onclick="bool_item3_onclick"/>
        <CheckBox position="absolute 25 269 229 284" id="bool_item2" text="조직검사 없는 진단적 수술" onclick="bool_item2_onclick"/>
        <CheckBox position="absolute 25 335 229 350" id="bool_item5" text="전이부위의 조직학적 검사" onclick="bool_item5_onclick"/>
        <CheckBox position="absolute 25 360 229 375" id="bool_item6" text="원발부위의 조직학적 생검" onclick="bool_item6_onclick"/>
        <CheckBox position="absolute 25 384 75 399" id="bool_item7" text="기타" onclick="bool_item7_onclick"/>
        <Edit position="absolute 109 243 350 262" id="ipt_etc1" enable="false" onkillfocus="ipt_etc1_onkillfocus"/>
        <Edit position="absolute 75 382 350 401" id="ipt_etc2" enable="false" onkillfocus="ipt_etc2_onkillfocus"/>
        <CheckBox position="absolute 239 150 344 165" id="bool_anohosprgstflag" visible="false" text="타병원등록여부"/>
        <Static position="absolute 225 22 353 67" align="align:center middle;" id="cap_insukindnm" class="cell_1" style="padding:0 0 0 0;align:center middle;font:Dotum,11,bold;"/>
        <Calendar position="absolute 90 147 220 166" id="ipt_diagcnfmdate" class="input_s_essential" mask="yyyy-mm-dd"/>
        <Button position="absolute 175 428 231 450" id="btn_del" class="btn4" text="삭제" onclick="btn_del_onclick"/>
        <Button position="absolute 115 428 171 450" id="btn_upt" class="btn4" text="수정" onclick="btn_upt_onclick"/>
        <Static text="외래/입원구분" position="absolute 0 170 86 193" align="align:center middle;" id="caption5" class="cell_1" style="padding:0 0 0 5;"/>
        <Combo position="absolute 90 172 220 191" id="combo2" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">외래</Col>
              </Row>
              <Row>
                <Col id="codecolumn">I</Col>
                <Col id="datacolumn">입원</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Button position="absolute 5 428 85 450" id="button1" class="btn4" text="예외환자" onclick="button1_onclick"/>
        <Static id="caption00" text="등록구분" class="cell_1" position="absolute 1 121 86 144" style="padding:0 0 0 5;"/>
        <Radio id="rdo_reggubun" taborder="1" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="Div00_rdo_patflag_onitemchanged" position="absolute 88 117 354 147" style="textpadding:1 5 0 4;padding:1 0 0 0;">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">신규</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">재등록</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">중복암</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">중복암재등록</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Button id="Button03" taborder="2" class="icon_search2" position="absolute 216 99 244 119" onclick="Button03_onclick"/>
        <Static id="caption18" text="( 최소 : 한글 5자, 영어 10자, 최대 : 한글 40자, 영어 80자 )" position="absolute 37 408 355 423" style="font:Dotum,9,underline;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_serdiagappinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <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="pid" type="STRING" size="256"/>
          <Column id="anohosprgstflag" type="STRING" size="256"/>
          <Column id="genrflagcd" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="cncrdiagcnfmdd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="serdiagno" type="STRING" size="256"/>
          <Column id="serdiagfromdd" type="STRING" size="256"/>
          <Column id="serdiagtodd" type="STRING" size="256"/>
          <Column id="genrorddd" type="STRING" size="256"/>
          <Column id="genrcretno" type="STRING" size="256"/>
          <Column id="maindiagcd" 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="pathngnm" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="reggubun" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_items" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="item1" type="STRING" size="256"/>
          <Column id="item2" type="STRING" size="256"/>
          <Column id="item3" type="STRING" size="256"/>
          <Column id="item4" type="STRING" size="256"/>
          <Column id="item5" type="STRING" size="256"/>
          <Column id="item6" type="STRING" size="256"/>
          <Column id="item7" type="STRING" size="256"/>
          <Column id="item8" type="STRING" size="256"/>
          <Column id="item9" type="STRING" size="256"/>
          <Column id="item10" type="STRING" size="256"/>
          <Column id="item11" type="STRING" size="256"/>
          <Column id="item12" type="STRING" size="256"/>
          <Column id="item13" 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="chkflag" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="diagetccnts" type="STRING" size="256"/>
          <Column id="diagmthdcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_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>
      </Dataset>
      <Dataset id="ds_rslt_serdiagno" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_serdiagitem" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagmthdcd" type="STRING" size="256"/>
          <Column id="diagetccnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="diagmthdcd"/>
            <Col id="diagetccnts"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_serdiagappdetl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagmthdcd" type="STRING" size="256"/>
          <Column id="diagetccnts" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rslt_serdiagappinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hardcdno_5400" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_save_serdiagappinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_rslt_serdiagyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_save_serdiagappdetl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_serdiagpatinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="genrdd" type="STRING" size="256"/>
          <Column id="genrno" type="STRING" size="256"/>
          <Column id="histno" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="genrflagcd" type="STRING" size="256"/>
          <Column id="genrorddd" type="STRING" size="256"/>
          <Column id="genrcretno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group1.ipt_pid" propid="value" datasetid="ds_serdiagappinfo" columnid="pid"/>
      <BindItem id="item1" compid="group1.ipt_hngnm" propid="value" datasetid="ds_serdiagappinfo" columnid="pathngnm"/>
      <BindItem id="item2" compid="group1.combo1" propid="value" datasetid="ds_serdiagappinfo" columnid="orddeptcd"/>
      <BindItem id="item3" compid="group1.iopt_diaghngnm" propid="value" datasetid="ds_serdiagappinfo" columnid="maindiagcd"/>
      <BindItem id="item4" compid="ipt_diagcnfmdate" propid="value" datasetid="ds_serdiagappinfo" columnid="cncrdiagcnfmdd"/>
      <BindItem id="item5" compid="combo2" propid="value" datasetid="ds_serdiagappinfo" columnid="genrflagcd"/>
      <BindItem id="item6" compid="bool_anohosprgstflag" propid="value" datasetid="ds_items" columnid="item1"/>
      <BindItem id="item7" compid="bool_sono" propid="value" datasetid="ds_items" columnid="item2"/>
      <BindItem id="item8" compid="bool_ct" propid="value" datasetid="ds_items" columnid="item3"/>
      <BindItem id="item9" compid="bool_mri" propid="value" datasetid="ds_items" columnid="item4"/>
      <BindItem id="item10" compid="bool_etc" propid="value" datasetid="ds_items" columnid="item5"/>
      <BindItem id="item11" compid="bool_item2" propid="value" datasetid="ds_items" columnid="item6"/>
      <BindItem id="item12" compid="bool_item3" propid="value" datasetid="ds_items" columnid="item7"/>
      <BindItem id="item13" compid="bool_item4" propid="value" datasetid="ds_items" columnid="item8"/>
      <BindItem id="item14" compid="bool_item5" propid="value" datasetid="ds_items" columnid="item9"/>
      <BindItem id="item15" compid="bool_item6" propid="value" datasetid="ds_items" columnid="item10"/>
      <BindItem id="item16" compid="bool_item7" propid="value" datasetid="ds_items" columnid="item11"/>
      <BindItem id="item18" compid="ipt_etc2" propid="value" datasetid="ds_items" columnid="item13"/>
      <BindItem id="item17" compid="ipt_etc1" propid="value" datasetid="ds_items" columnid="item12"/>
      <BindItem id="item19" compid="rdo_reggubun" propid="value" datasetid="ds_serdiagappinfo" columnid="reggubun"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-11-18
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-11-18      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "emr_medirecxp::MMRCommon.xjs";
include "emr_prcpmngtxp::MMOCommon.xjs";
var arErrorCode = new HashArray();
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SPMMO11500
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면오픈시 폼load이후 실행
 ****************************************************************************************/
function SPMMO11500_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);  // 폼 초기화 
	
	lf_mmbfGetDeptCodeComboList(ds_orddept, "A");
	
	var sGenrDd = opener.frmf_getParameter("SPMMO11500_genrdd");
	var sGenrNo = opener.frmf_getParameter("SPMMO11500_genrno");
	var sHistNo = opener.frmf_getParameter("SPMMO11500_histno");
	
	var sPid    = appf_getPatientInfo("pid");
	if(utlf_isNull(sGenrDd) && utlf_isNull(sPid)){
		btn_save.visible = false;	//저장
		btn_del.visible  = false;	//삭제
		btn_upt.visible  = false;	//수정
		sysf_messageBox("환자정보를 확인", "E001");
		return;
	}
	
	var sIoFlag = appf_getPatientInfoDetail("ioflag");
	var sCretNo = appf_getPatientInfoDetail("cretno");
	var sOrdDd  = "";
	if (sIoFlag == "O" || sIoFlag == "S") {
		sIoFlag   = "O";
		sOrdDd  = appf_getPatientInfoDetail("orddd");
	} else {
		sIoFlag   = "I";
		sOrdDd  = appf_getPatientInfoDetail("indd");
	}
	
	ds_main_cond.setColumn(0,"genrdd",		sGenrDd);
	ds_main_cond.setColumn(0,"genrno",		sGenrNo);
	ds_main_cond.setColumn(0,"histno",		sHistNo);
	ds_main_cond.setColumn(0,"pid",		    sPid);
	ds_main_cond.setColumn(0,"genrflagcd",	sIoFlag);
	ds_main_cond.setColumn(0,"genrorddd",	sOrdDd);
	ds_main_cond.setColumn(0,"genrcretno",	sCretNo);
	
	var oParam = {};
		oParam.id          = "TRMMO11507";
		oParam.service     = "prcpmngtapp.EtcPrcpMngt";
		oParam.method      = "reqGetSerDiagRegInfo1";
		oParam.inds        = "req=ds_main_cond";
		oParam.outds       = "ds_serdiagappinfo=serdiagappinfo";
		oParam.async       = false;

	tranf_submit(oParam);
	
	cap_insukindnm.text = ds_serdiagappinfo.getColumn(0,"insukindnm");
	
	if(!utlf_isNull(ds_serdiagappinfo.getColumn(0,"genrno"))){ // 기존에 작성 되고 특례번호가 발행되지 않은경우
		sysf_messageBox("중증등록신청서가 이미 존재합니다.", "I999");
		
		lf_bComponents(false);
		var oParam = {};
			oParam.id       = "TRMMO11503";
			oParam.service  = "prcpmngtapp.EtcPrcpMngt";
			oParam.method   = "reqGetSerDiagDetlList";
			oParam.inds     = "req=ds_serdiagappinfo";
			oParam.outds    = "ds_items=items";
			oParam.async    = false;
			oParam.callback = "cf_TRMMO11503";

		tranf_submit(oParam);
		lf_bComponents(true);
		
		var chk;
		for( i = 1 ; i <= 13 ; i++) {
			chk = ds_items.getColumn(0,"item"+i);
			if(chk == true) {	
				if (i > 10) {
					ds_serdiagitem.setColumn(0,"diagmthdcd",i-1);
				} else {
					ds_serdiagitem.setColumn(0,"diagmthdcd","0"+(i-1));
				}
				
				if (i == 5) {
					ipt_etc1.enable = true;
					ds_serdiagitem.setColumn(0,"diagetccnts",ipt_etc1.value);
				} else if ( i == 11) {
					ipt_etc2.enable = true;
					ds_serdiagitem.setColumn(0,"diagetccnts",ipt_etc2.value);
				} else {
					ds_serdiagitem.setColumn(0,"diagetccnts","");
				}
								
				dsf_copyDs(ds_serdiagappdetl,ds_serdiagitem,"after");
			}
		}
		
		Button03.visible = false;   //진단검색
		btn_save.visible = false;	//저장
		btn_del.visible  = true;	//삭제
		btn_upt.visible  = true;	//수정
	} else { // 신규작성
		ds_serdiagappinfo.setColumn(0,"status","I");
		lf_getHardCDList("N", 5400, null, ds_hardcdno_5400);
		
		if (ds_serdiagappinfo.getColumn(0,"anohosprgstflag") == "Y") {
			bool_anohosprgstflag.value = true;
		}
		
		btn_del.visible  = false;	//삭제
		btn_upt.visible  = false;	//수정
	}
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_sono
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사 항목 SONO 체크
 ****************************************************************************************/
function bool_sono_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_sono.value,"01", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_ct
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사 항목 CT 체크
 ****************************************************************************************/
function bool_ct_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_ct.value,"02", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_mri
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사 항목 MRI 체크
 ****************************************************************************************/
function bool_mri_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_mri.value,"03", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_etc
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검사 항목 기타 체크
 ****************************************************************************************/
function bool_etc_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.value == true) {
		ipt_etc1.enable = true;
		if(utlf_isNull(ipt_etc1.value)) {
			sysf_messageBox("기타항목을 선택하였으므로 해당 내용을","C001");
			return;	
		}					
	} else {
//		model.removenode("/root/main/serdiagappdetl/row[diagmthdcd='"+ "04" +"']");
		ds_serdiagappdetl.deleteRow(ds_serdiagappdetl.findRow("diagmthdcd","04"));
		ds_items.setColumn(0,"item12","");
		ipt_etc1.enable = false;
	}	
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item2
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 2번항목 체크
 ****************************************************************************************/
function bool_item2_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_item2.value, "05", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item3
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 3번항목 체크
 ****************************************************************************************/
function bool_item3_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_item3.value, "06", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item4
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 4번항목 체크
 ****************************************************************************************/
function bool_item4_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_item4.value, "07", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item5
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 5번항목 체크
 ****************************************************************************************/
function bool_item5_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_item5.value, "08", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item6
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 6번항목 체크
 ****************************************************************************************/
function bool_item6_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	fSetSerDiagItem(bool_item6.value, "09", "");
}

/****************************************************************************************
 * Components		: CheckBox
 * Components ID	: bool_item7
 * Event			: onchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 7번항목 체크
 ****************************************************************************************/
function bool_item7_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.value == true) {
		ipt_etc2.enable = true;
		if(utlf_isNull(ipt_etc2.value)) {
			sysf_messageBox("기타항목을 선택하였으므로 해당 내용을","C001");
			return;	
		}					
	} else {
//		model.removenode("/root/main/serdiagappdetl/row[diagmthdcd='"+ "10" +"']");
		ds_serdiagappdetl.deleteRow(ds_serdiagappdetl.findRow("diagmthdcd","10"));
		ds_items.setColumn(0,"item13","");
		ipt_etc2.enable = false;
	}	
}

/****************************************************************************************
 * 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)
{
//	modal("SPMMO09500");
	frmf_modal("SPMMO09500", "SPMMO09500", "", "", "", "", "", "", "", "", "", "", "M");
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_upt
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 수정 버튼 클릭
 ****************************************************************************************/
function btn_upt_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_serdiagappdetl.rowcount == 1) {
		sysf_messageBox("최종진단방법은 1개 이상", "C002");
		return;
	}
						
// 	copyNodeListType("/root/send/savedata", "/root/main/serdiagappinfo", "replace");
// 	copyNodeListType("/root/send/savedata", "/root/main/serdiagappdetl", "after");
	dsf_copyDs(ds_save_serdiagappinfo,ds_serdiagappinfo,"replace");
	dsf_copyDs(ds_save_serdiagappdetl,ds_serdiagappdetl,"after");

	if((ds_serdiagappinfo.getColumn(0,"orddeptcd") == sysf_getUserInfo("dutplcecd")) && (sysf_getUserInfo("jobkindcd") == "0330") && (sysf_getUserInfo("jobposcd") != "1799")){	// 0330 : 의사, 1799 : 인턴
//		submit("TRMMO11502");
		var oParam = {};
			oParam.id       = "TRMMO11502";
			oParam.service  = "prcpmngtapp.EtcPrcpMngt";
			oParam.method   = "reqGetSerdiagDelYN";
			oParam.inds     = "serdiagappinfo=ds_serdiagappinfo";
			oParam.outds    = "ds_rslt_serdiagyn=serdiagyn";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		if((ds_rslt_serdiagyn.getColumn(0,"histcd") == "O") && (ds_rslt_serdiagyn.getColumn(0,"prntyn") == "N") && (ds_rslt_serdiagyn.getColumn(0,"serdiagno") == "-")){
			var oParam = {};
				oParam.id       = "TXMMO11503";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqExeSerdiagUpdate";
				oParam.inds     = "serdiagappinfo=ds_save_serdiagappinfo serdiagappdetl=ds_save_serdiagappdetl";
				oParam.outds    = "";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO11503";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO11503") >= 0){
				sysf_messageBox("해당환자의 중증등록신청서가 수정","I001");
				btn_del.visible = false;
				btn_upt.visible = false;
			} else {
				sysf_messageBox("해당환자의 중증등록신청서 수정을 ","E009");
			}
		} else {
			sysf_messageBox("해당환자의 중증등록신청서를 수정 ","E001");
			return;
		}
	} else {
		sysf_messageBox("수정할 수 있는 ","E002");
		btn_save.visible = false;	//저장
		btn_del.visible  = false;	//삭제
		btn_upt.visible  = false;	//수정
		return;
	}	
}

/****************************************************************************************
 * 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((ds_serdiagappinfo.getColumn(0,"orddeptcd") == sysf_getUserInfo("dutplcecd")) && (sysf_getUserInfo("jobkindcd") == "0330") && (sysf_getUserInfo("jobposcd") != "1799")){	// 0330 : 의사
//		submit("TRMMO11502");
		var oParam = {};
			oParam.id       = "TRMMO11502";
			oParam.service  = "prcpmngtapp.EtcPrcpMngt";
			oParam.method   = "reqGetSerdiagDelYN";
			oParam.inds     = "serdiagappinfo=ds_serdiagappinfo";
			oParam.outds    = "ds_rslt_serdiagyn=serdiagyn";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		if((ds_rslt_serdiagyn.getColumn(0,"histcd") == "O") && (ds_rslt_serdiagyn.getColumn(0,"prntyn") == "N") && (ds_rslt_serdiagyn.getColumn(0,"serdiagno") == "-")){
			var oParam = {};
				oParam.id       = "TXMMO11502";
				oParam.service  = "prcpmngtapp.EtcPrcpMngt";
				oParam.method   = "reqExeSerdiagDelUpdate";
				oParam.inds     = "serdiagappinfo=ds_serdiagappinfo";
				oParam.outds    = "";
				oParam.async    = false;
				oParam.callback = "cf_TXMMO11502";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TXMMO11502") >= 0){
				sysf_messageBox("해당환자의 중증등록신청서가 삭제","I001");
				btn_del.visible = false;
			} else {
				sysf_messageBox("해당환자의 중증등록신청서 삭제를 ","E009");
			}
		}else{
			sysf_messageBox("해당환자의 중증등록신청서를 삭제 ","E001");
			return;
		}
	}else{
		sysf_messageBox("삭제할 수 있는 ","E002");
		btn_save.visible = false;	//저장
		btn_del.visible  = false;	//삭제
		btn_upt.visible  = false;	//수정
		return;
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_save
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 저장 버튼 클릭
 ****************************************************************************************/
function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var cncrdiagcnfmdd = ds_serdiagappinfo.getColumn(0,"cncrdiagcnfmdd");
	var reggubun       = ds_serdiagappinfo.getColumn(0,"reggubun");
	if(!utlf_isValidDateTime(cncrdiagcnfmdd, "YYYYMMDD")) {
		sysf_messageBox("암진단 확인일은", "I003");
		return;				       					       	
	}
	// 허만호, 2015.07.28, 소스 현행화 s
	if(cncrdiagcnfmdd > utlf_getCurrentDate() ) {
		sysf_messageBox("암진단 확인일을 미래일자로 입력 할 수 없습니다.", "I999");
		return;				       					       	
	}
		
	if(reggubun == "3") { // 중복암은 진단일이 당일이면 확인 메세지 팝업
		if(cncrdiagcnfmdd == utlf_getCurrentDate() ) {
			if( "7" != sysf_messageBox("중복암의 암진단 확인일이 오늘로 입력 되었습니다. 수정하시겠습니까?", "Q999")) {
				return;
			}
		}
	 } else {// 중복암은 한달이전 진단일도 선택 가능 하도록 처리 2017.07.10 엄영만
		if(cncrdiagcnfmdd < ((utlf_getCurrentDate().toDate()).getAddDate(-1,"M")).getDateFormat() ) { 
			sysf_messageBox("암진단 확인일을 최근 1달이내의 날짜로 입력 하셔야 합니다.", "I999");
			return;				       					       	
		}
	} 
	// 허만호, 2015.07.28, 소스 현행화 e

	if(ds_serdiagappdetl.rowcount == 0) {
		sysf_messageBox("최종진단방법은 1개 이상", "C002");
		return;
	}
	
	if (bool_etc.value == true) {	
		var yy1 = utlf_transNullToEmpty(ipt_etc1.value);
		//20190121 이돈희 : 양쪽에 공백 제거
		yy1 = yy1.trimLeft();
		yy1 = yy1.trimRight();
		trace(yy1);
		var xx1 = 0;
		for(i = 0 ; i < yy1.length ; i++) {
		   (yy1.charCodeAt(i) > 255) ? xx1 += 2 : xx1 += 1;  
		}

		if(utlf_isNull(ipt_etc1.value)) {
			sysf_messageBox("1번 기타항목을 선택하였으므로 해당 내용을","C001");
			return;	
		} else if (xx1 < 5 || xx1 > 40) {
			sysf_messageBox("1번 기타항목의 내용은 최소 : 한글 3자, 영어 5자  최대 : 한글 20자, 영어 40자 까지 입니다.","I");
			return;
		}
		ds_serdiagappdetl.setColumn(ds_serdiagappdetl.findRow("diagmthdcd","04"),"diagetccnts",ipt_etc1.value);
	}
	
	if(bool_item7.value == true) {
		var yy2 = utlf_transNullToEmpty(ipt_etc2.value);		
	    //20190121 이돈희 : 양쪽에 공백 제거
		yy2 = yy2.trimLeft();
		yy2 = yy2.trimRight();
		trace(yy2);
		var xx2 = 0;
		for(i = 0 ; i < yy2.length ; i++) {
			(yy2.charCodeAt(i) > 255) ? xx2 += 2 : xx2 += 1;  
		}

		if(utlf_isNull(ipt_etc2.value)) {
			sysf_messageBox("7번 기타항목을 선택하였으므로 해당 내용을","C001");
			return;	
		} else if(xx2 < 10 || xx2 > 80) {
			sysf_messageBox("7번 기타항목의 내용은 최소 : 한글 5자, 영어 10자  최대 : 한글 40자, 영어 80자 까지 입니다.","I");
			return;								
		}
		ds_serdiagappdetl.setColumn(ds_serdiagappdetl.findRow("diagmthdcd","10"), "diagetccnts",ipt_etc2.value);
	}
	
	if(bool_anohosprgstflag.value == true) {
		ds_serdiagappinfo.setColumn(0,"anohosprgstflag","Y");
	} else {
		ds_serdiagappinfo.setColumn(0,"anohosprgstflag","N");
	}
	
// 	copyNodeListType("/root/send/savedata", "/root/main/serdiagappinfo", "replace");
// 	copyNodeListType("/root/send/savedata", "/root/main/serdiagappdetl", "after");
	dsf_copyDs(ds_save_serdiagappinfo,ds_serdiagappinfo,"replace");
	dsf_copyDs(ds_save_serdiagappdetl,ds_serdiagappdetl,"after");

	var oParam = {};
		oParam.id       = "TXMMO11501";
		oParam.service  = "prcpmngtapp.EtcPrcpMngt";
		oParam.method   = "reqExeSaveSerDiagApp1";
		oParam.inds     = "serdiagappinfo=ds_save_serdiagappinfo serdiagappdetl=ds_save_serdiagappdetl";
		oParam.outds    = "";
		oParam.async    = false;
		oParam.callback = "cf_TXMMO11501";

	var bRtn = tranf_submit(oParam);

	if(bRtn) {
		if (arErrorCode.pop("TXMMO11501") > -1) {
			var sAutpPrtYn = lf_getHardCDList("Y", 272, 3, null);
			
			if (sAutpPrtYn == "Y") {
				ds_reqdata.clearData();
				dsf_makeValue(ds_reqdata,"pid","string",ds_serdiagappinfo.getColumn(0,"pid"));
				
				var genrflagcd = ds_serdiagappinfo.getColumn(0,"genrflagcd");
				if (genrflagcd == "O" || genrflagcd == "S") {
					genrflagcd = "O";
				} else {
					genrflagcd = "I";
				}
				dsf_makeValue(ds_reqdata,"genrflagcd","string",genrflagcd);
				
				var oParam = {};
					oParam.id       = "TRMMO11506";
					oParam.service  = "prcpmngtapp.EtcPrcpMngt";
					oParam.method   = "reqGetSerDiagPatInfoDetail";
					oParam.inds     = "req=ds_reqdata";
					oParam.outds    = "ds_serdiagpatinfo=serdiagpatinfo";
					oParam.async    = false;
					oParam.callback = "cf_TRMMO11506";

				tranf_submit(oParam);

				if(arErrorCode.pop("TRMMO11506") >= 0){
					var insukind = ds_serdiagpatinfo.getColumn(0,"insukind"); //model.getValue("/root/serdiagpatinfo/serdiagpatinfo/insukind");
					
					var rebNm = "";
					
					if (insukind == "11") {
	//					exeReportPreview("RPMMO11501", "XMLSTR", "/root/serdiagpatinfo/serdiagpatinfo", "", "true", "", "", "", "", "true", "", "", "", "", "", "", "", "", "", "", "");
						rebNm = "RPMMO11501";
					} else {
	//					exeReportPreview("RPMMO11502", "XMLSTR", "/root/serdiagpatinfo/serdiagpatinfo", "", "true", "", "", "", "", "true", "", "", "", "", "", "", "", "", "", "", "");
						rebNm = "RPMMO11502";
					}

					var objDOM = rptf_createDOM();	// DOM 객체 설정
					rptf_setNodeListToDOM(objDOM, "/root/serdiagpatinfo/serdiagpatinfo", ds_serdiagpatinfo); // 데이터셋 1
					
					var objParam = new Object();
					objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
					var option = "open=1;save=1;directprint=0;print=1;zoom=0;";		
					rptf_exeReportPreview30([rebNm],[objParam], option);		 //미리보기만 가능
				}
			}
			
			if(frmf_checkOpener()) {
				opener.frmf_setParameter("SPMMO11500_save", "Y"); // 처방 저장시 작성 여부를 체크 하기 위해 추가. 2012.02.28 엄영만
			}
			//2013/12/02
			this.close();	
		} else {
			sysf_messageBox("저장", "E009");
		}
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_exit
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 종료 버튼 클릭
 ****************************************************************************************/
function btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

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

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

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

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

/****************************************************************************************
 * Function			: fSetSerDiagItem
 * Description		: 최종진단방법 항목 변경
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSetSerDiagItem(boolvalue, itemcd, itemcnts) {
	if (boolvalue == true) {
		ds_serdiagappdetl.deleteRow(ds_serdiagappdetl.findRow("diagmthdcd",itemcd));
		ds_serdiagitem.setColumn(0,"diagmthdcd",itemcd);
		ds_serdiagitem.setColumn(0,"diagetccnts",itemcnts);
		ds_serdiagappdetl.appendData(ds_serdiagitem);
	} else {
		ds_serdiagappdetl.deleteRow(ds_serdiagappdetl.findRow("diagmthdcd",itemcd));
	}	
}

/****************************************************************************************
 * Function			: cf_TRMMO11503
 * Description		: TRMMO11503 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMMO11503(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
	dsf_setDefaultVal(ds_items,"item1:,item2:,item3:,item4:,item5,item6:,item7:,item8:,item9:,item10:,item11:,item12:,item13:");
}

function lf_bComponents(flag){
	bool_etc.enableevent = flag;
	bool_item7.enableevent = flag;
}				

function Button03_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_prcpModal ("SPMMO03100", 5, 40);
	if ( frmf_getParameter( "SPMMO03100_rtn_useyn" ) == "Y" ) {
		var sDiagInfo = frmf_getParameter("SPMMO03100_rtn");
		var nDiagRow = sDiagInfo.split ( "▩" ).length;
		for ( var i = 0; i < nDiagRow - 1; i++ ) {
			var sDiagCd = lf_getArrayData ( sDiagInfo, i, 9, "▩", "▦" );
			ds_serdiagappinfo.setColumn(0,"maindiagcd", sDiagCd);		//진단코드
			break;
		}
		
		frmf_setParameter( "SPMMO03100_rtn_useyn", "" );
	}
}


function ipt_etc1_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	obj.updateToDataset();
	if(!utlf_isNull(ds_items.getColumn(0,"item12"))) {
		fSetSerDiagItem(bool_etc.value, "04", ipt_etc1.value);
	}
}

function ipt_etc2_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	obj.updateToDataset();
	if(!utlf_isNull(ds_items.getColumn(0,"item13"))) {
		fSetSerDiagItem(bool_item7.value, "10", ipt_etc2.value);
	}
}
]]></Script>
  </Form>
</FDL>