YNU_JEUS/app_home/himed/xpapps/emr/recmngtxp/xp/SPMRI09001_연명상세.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMRI09001" position="absolute 0 0 632 522" titletext="연명상세" onload="SPMRI09001_onload" onclose="SPMRI09001_onclose">
    <Layouts>
      <Layout>
        <Static text="연명상세" position="absolute 0 0 80 25" id="caption6" class="tit_1" enable="false"/>
        <Button position="absolute 526 5 582 27" id="btn_confirm" class="btn4" taborder="2" text="저장" onclick="btn_confirm_onclick" visible="false" enable="true"/>
        <Static text="이행결정사항" position="absolute 7 210 94 230" id="cap_cnfmpwd" class="cell_1" enable="false"/>
        <Static text="이행절차" position="absolute 8 280 69 300" id="cap_oldpwd" class="cell_1" enable="false"/>
        <Static id="cap_cnfmpwd00" text="이행일시" class="cell_1" position="absolute 8 328 73 348" enable="false"/>
        <Static id="cap_bigo" text="비고&#13;&#10;(관리자)" class="cell_1" position="absolute 8 432 72 459" visible="false" style="align:center middle;" enable="false"/>
        <Button id="btn_del" taborder="5" text="삭제" class="btn4" position="absolute 337 5 393 27" onclick="btn_del_onclick" visible="false" enable="true"/>
        <Static id="cap_oldpwd00" text="등록번호" class="cell_1" position="absolute 8 33 69 53" enable="false"/>
        <Static id="cap_oldpwd01" text="성명" class="cell_1" position="absolute 163 33 204 53" enable="false"/>
        <Edit id="sct_hngnm" taborder="7" readonly="true" maxlength="20" class="output" position="absolute 209 33 292 53" enable="false"/>
        <TextArea id="TextArea00" taborder="9" position="absolute 77 280 584 319" enable="false"/>
        <TextArea id="TextArea01" taborder="10" position="absolute 100 211 583 250" enable="false"/>
        <TextArea id="TextArea02" taborder="11" position="absolute 75 432 584 471" visible="false" enable="false"/>
        <Edit id="Edit_pid" taborder="13" position="absolute 71 33 157 53" enable="false" onkeyup="Edit_pid_onkeyup" readonly="true"/>
        <Static id="cap_cnfmpwd02" text="시스템등록일" class="cell_1" position="absolute 362 328 462 348" enable="false"/>
        <Calendar id="Calendar00" taborder="16" position="absolute 467 327 584 347" enable="false"/>
        <Static id="cap_oldpwd02" text="처방" class="cell_1" position="absolute 8 63 69 83" enable="false"/>
        <Edit id="sct_orderyn" taborder="17" readonly="true" maxlength="20" class="output" position="absolute 76 64 101 84" style="align:center;" enable="false"/>
        <Edit id="sct_ordlist" taborder="18" readonly="true" maxlength="20" class="output" position="absolute 105 64 586 84" enable="true"/>
        <Static id="cap_oldpwd04" text="부서" class="cell_1" position="absolute 8 158 69 178" enable="false"/>
        <Static id="caption00" text="진단코드/명" class="cell_1" position="absolute 8 123 91 146" enable="false"/>
        <Edit id="ipt_diagcd" taborder="19" autoselect="true" onkeydown="ipt_diagcd_onkeydown" class="output" position="absolute 98 125 200 144" enable="false"/>
        <Edit id="ipt_diagengnm" taborder="20" autoselect="true" onkeydown="ipt_diagengnm_onkeydown" class="output" position="absolute 203 125 586 144" enable="false"/>
        <Combo id="cmb_deptcd" taborder="22" innerdataset="@ds_init_orddept" codecolumn="deptcd" datacolumn="depthngnm" position="absolute 72 158 247 177" enable="false"/>
        <Button id="caption02" taborder="24" text="최근진단 및 부서가져오기" onclick="caption16_onclick" class="btn2" position="absolute 422 152 584 171" enable="false"/>
        <Combo id="Combo00" taborder="25" position="absolute 392 32 538 52" innerdataset="@ds_doctype" codecolumn="value" datacolumn="label" enable="false" index="-1" readonly="true" style="font:dotum,9,bold;"/>
        <Button id="caption01" taborder="26" text="보기" class="btn2" visible="true" position="absolute 540 32 582 51" onclick="caption01_onclick" enable="true"/>
        <Combo id="Combo01" taborder="27" text="Combo01" position="absolute 75 488 175 508" onitemchanged="Combo01_onitemchanged" codecolumn="codecolumn" datacolumn="datacolumn" visible="false" enable="false">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">Y</Col>
                <Col id="datacolumn">관리대상</Col>
              </Row>
              <Row>
                <Col id="codecolumn">M</Col>
                <Col id="datacolumn">미등록대상</Col>
              </Row>
              <Row>
                <Col id="codecolumn">N</Col>
                <Col id="datacolumn">해당무</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Static id="cap_bigo00" text="비고" class="cell_1" visible="true" position="absolute 8 382 72 402" enable="false"/>
        <TextArea id="TextArea03" taborder="28" visible="true" position="absolute 75 382 584 421" enable="true"/>
        <Static id="cap_cnfmpwd01" text="등록일" class="cell_1" position="absolute 190 328 243 348" enable="false"/>
        <Calendar id="Calendar01" taborder="29" position="absolute 78 328 182 348" enable="false"/>
        <Calendar id="Calendar02" taborder="30" position="absolute 246 327 350 347" enable="false"/>
        <Static id="cap_gbn" text="등록구분" class="cell_1" visible="false" position="absolute 8 488 72 508" enable="false"/>
        <Edit id="sct_histno" taborder="31" readonly="true" maxlength="20" class="output" position="absolute 304 4 322 24" visible="false" enable="false"/>
        <Edit id="sct_orderyn01" taborder="33" readonly="true" maxlength="20" class="output" position="absolute 174 4 202 24" style="align:center;" visible="true" enable="false"/>
        <CheckBox id="CheckBoxC01" taborder="34" text="가족관계증명서 유" position="absolute 87 357 215 377" onclick="Cbx02_onclick" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB03" taborder="35" text="임종판단서" position="absolute 202 256 288 276" onclick="Cbx01_onclick" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB04" taborder="36" text="의향서" position="absolute 296 256 354 276" onclick="Cbx01_onclick" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB05" taborder="37" text="계획서" position="absolute 359 256 420 276" onclick="Cbx01_onclick" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB06" taborder="38" text="진술서" position="absolute 425 256 486 276" onclick="Cbx01_onclick" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB07" taborder="39" text="합의서" position="absolute 491 256 552 276" onclick="Cbx01_onclick" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB08" taborder="40" text="이행서" position="absolute 557 256 618 276" onclick="Cbx01_onclick" visible="false" enable="false"/>
        <CheckBox id="cbx_consult" taborder="41" text="상담카드" position="absolute 667 92 741 112" falsevalue="N" truevalue="Y" visible="false" enable="false"/>
        <Static id="cap_gbn00" text="환자상태" class="cell_1" visible="true" position="absolute 7 92 68 112" enable="false"/>
        <Combo id="Combo02" taborder="42" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="Combo01_onitemchanged" visible="true" position="absolute 74 92 174 112" enable="false">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">말기</Col>
              </Row>
              <Row>
                <Col id="codecolumn">B</Col>
                <Col id="datacolumn">임종</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Static id="cap_gbn01" text="연번" class="cell_1" visible="false" position="absolute 333 92 376 112" enable="false"/>
        <Edit id="Edit_seq" taborder="43" position="absolute 379 92 482 112" visible="false" enable="false"/>
        <CheckBox id="CheckBoxC02" taborder="44" text="가족관계증명서 무" onclick="Cbx02_onclick" position="absolute 221 356 349 376" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA01" taborder="45" text="CPR" onclick="Cbx03_onclick" position="absolute 101 186 153 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA02" taborder="46" text="MV" onclick="Cbx03_onclick" position="absolute 159 186 203 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA03" taborder="47" text="HD" onclick="Cbx03_onclick" position="absolute 207 186 248 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA04" taborder="48" text="CTx" onclick="Cbx03_onclick" position="absolute 249 186 299 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <Button id="caption03" taborder="49" text="등록문서목록" class="btn2" position="absolute 296 32 387 51" onclick="caption03_onclick" enable="true"/>
        <CheckBox id="CheckBoxB01" taborder="50" text="상담기록지" onclick="Cbx01_onclick" position="absolute 13 256 102 275" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxB02" taborder="51" text="말기판단서" onclick="Cbx01_onclick" position="absolute 108 256 196 275" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA05" taborder="52" text="ECMO" onclick="Cbx03_onclick" position="absolute 305 186 368 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA06" taborder="53" text="TF" onclick="Cbx03_onclick" position="absolute 377 186 414 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <CheckBox id="CheckBoxA07" taborder="54" text="inotropics" onclick="Cbx03_onclick" position="absolute 425 186 509 206" style="font:Dotum,10;" visible="false" enable="false"/>
        <Button id="btn_newsave" taborder="55" text="새이름으로저장" class="btn4" visible="false" position="absolute 402 5 518 27" onclick="btn_newsave_onclick"/>
        <Calendar id="Calendar03" taborder="56" position="absolute 86 4 171 24" enable="false" readonly="true"/>
        <Static id="cap_gbn02" text="상담일" class="cell_1" enable="false" visible="false" position="absolute 178 92 230 112"/>
        <Calendar id="Cal_cnstdd" taborder="57" position="absolute 235 92 323 112" enable="false" visible="false"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_cmb_resn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsnnm" type="STRING"/>
          <Column id="rsncd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list" 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="process" type="STRING" size="1000"/>
          <Column id="procdd" type="STRING" size="1000"/>
          <Column id="content" type="STRING" size="1000"/>
          <Column id="bigo" type="STRING" size="1000"/>
          <Column id="topyn" type="STRING" size="256"/>
          <Column id="delyn" type="STRING" size="256"/>
          <Column id="jinyn" type="STRING" size="256"/>
          <Column id="centrgstdd" type="STRING" size="256"/>
          <Column id="orderyn" type="STRING" size="256"/>
          <Column id="ordlist" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diagengnm" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="rrgstno" type="STRING" size="256"/>
          <Column id="doccode" type="STRING" size="256"/>
          <Column id="docsn" type="STRING" size="256"/>
          <Column id="bigo2" type="STRING" size="256"/>
          <Column id="mrgstdd" type="STRING" size="256"/>
          <Column id="histno" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="patstatus" type="STRING" size="256"/>
          <Column id="cnstcardyn" type="STRING" size="256"/>
          <Column id="yearseq" type="STRING" size="256"/>
          <Column id="status" type="STRING" size="256"/>
          <Column id="cnstdd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_authchk" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="userid" type="STRING" size="256"/>
          <Column id="pwd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_rsnsrch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="jobkind" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prt" type="STRING" size="256"/>
          <Column id="read" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prt">출력시에는 출력자의 부서와 성명, 출력장소가 함께 출력되고 해당내용이 서버에 기록 되어, 사후 관리 됩니다. 그러므로 출력물 관리에 만전을 기해 주시고, 또한 진료 이외의 목적으로 출력할 경우 환자 개인정보 탐지에 대한 법적인 책임을 지실 수도 있으므로 유의하시기 바랍니다. 출력하시려면 사유와 password를 입력하신 후 [확인]을 클릭하십시오.</Col>
            <Col id="read">조회시에는 조회자의 부서와, 성명, 조회장소가 함께 조회되고 해당내용이 서버에 기록 되어, 사후 관리 됩니다. 또한 진료 이외의 목적으로 조회할 경우 환자 개인정보 탐지에 대한 법적인 책임을 지실 수도 있으므로 유의하시기 바랍니다. 조회하시려면 사유와 password를 입력하신 후 [확인]을 클릭하십시요.</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="valid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depthngnm" type="STRING"/>
          <Column id="deptcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_lastdeptdiag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diagengnm" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_doctype" 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">계획서</Col>
            <Col id="value">01</Col>
          </Row>
          <Row>
            <Col id="label">의향서</Col>
            <Col id="value">02</Col>
          </Row>
          <Row>
            <Col id="label">이행서</Col>
            <Col id="value">07</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="sct_hngnm" propid="value" datasetid="ds_main_list" columnid="hngnm"/>
      <BindItem id="item2" compid="TextArea00" propid="value" datasetid="ds_main_list" columnid="process"/>
      <BindItem id="item4" compid="TextArea01" propid="value" datasetid="ds_main_list" columnid="content"/>
      <BindItem id="item5" compid="TextArea02" propid="value" datasetid="ds_main_list" columnid="bigo"/>
      <BindItem id="item7" compid="Edit_pid" propid="value" datasetid="ds_main_list" columnid="pid"/>
      <BindItem id="item8" compid="Calendar00" propid="value" datasetid="ds_main_list" columnid="centrgstdd"/>
      <BindItem id="item9" compid="sct_orderyn" propid="value" datasetid="ds_main_list" columnid="orderyn"/>
      <BindItem id="item10" compid="sct_ordlist" propid="value" datasetid="ds_main_list" columnid="ordlist"/>
      <BindItem id="item18" compid="ipt_diagcd" propid="" datasetid="ds_main_scherecinfo" columnid="dispdiagcd"/>
      <BindItem id="item45" compid="ipt_diagcd" propid="value" datasetid="ds_main_list" columnid="diagcd"/>
      <BindItem id="item19" compid="ipt_diagengnm" propid="" datasetid="ds_main_scherecinfo" columnid="diagengnm"/>
      <BindItem id="item46" compid="ipt_diagengnm" propid="value" datasetid="ds_main_list" columnid="diagengnm"/>
      <BindItem id="item16" compid="cmb_deptcd" propid="" datasetid="ds_main_scherecinfo" columnid="perfdeptcd"/>
      <BindItem id="item43" compid="cmb_deptcd" propid="value" datasetid="ds_main_list" columnid="deptcd"/>
      <BindItem id="item11" compid="Combo00" propid="value" datasetid="ds_main_list" columnid="doccode"/>
      <BindItem id="item12" compid="Combo01" propid="value" datasetid="ds_main_list" columnid="jinyn"/>
      <BindItem id="item1" compid="TextArea03" propid="value" datasetid="ds_main_list" columnid="bigo2"/>
      <BindItem id="item6" compid="Calendar01" propid="value" datasetid="ds_main_list" columnid="procdd"/>
      <BindItem id="item3" compid="Calendar02" propid="value" datasetid="ds_main_list" columnid="mrgstdd"/>
      <BindItem id="item13" compid="sct_histno" propid="value" datasetid="ds_main_list" columnid="histno"/>
      <BindItem id="item15" compid="sct_orderyn01" propid="value" datasetid="ds_main_list" columnid="cretno"/>
      <BindItem id="item17" compid="Combo02" propid="value" datasetid="ds_main_list" columnid="patstatus"/>
      <BindItem id="item20" compid="cbx_consult" propid="value" datasetid="ds_main_list" columnid="cnstcardyn"/>
      <BindItem id="item21" compid="Edit_seq" propid="value" datasetid="ds_main_list" columnid="yearseq"/>
      <BindItem id="item14" compid="Calendar03" propid="value" datasetid="ds_main_list" columnid="orddd"/>
      <BindItem id="item22" compid="Cal_cnstdd" propid="value" datasetid="ds_main_list" columnid="cnstdd"/>
      <BindItem id="item23" compid="sct_ordlist" propid="tooltiptext" datasetid="ds_main_list" columnid="ordlist"/>
    </Bind>
    <InitValue>
      <Edit id="Edit_pid" enable="false"/>
    </InitValue>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-10-02
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-10-02      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_commonxp::EMRCommon.xjs";
include "emr_prcpmngtxp::MMO001.xjs"
include "emr_prcpmngtxp::MMOCommon.xjs";

var STATUS = "";


var arErrorCode = new HashArray();

function SPMRI09001_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	
	lf_mmbfGetDeptCodeComboList(ds_init_orddept, "O");
	
	if(!frmf_checkOpener()){
		return;
	}
	
	Edit_pid.value = opener.frmf_getParameter("SPMRI09001_param_pid");
	
	var edityn = opener.frmf_getParameter("SPMRI09001_param_edityn");
	var newyn = opener.frmf_getParameter("SPMRI09001_param_newyn");
	var jinyn = opener.frmf_getParameter("SPMRI09001_param_jinyn");
	
	var dutplceinstcd = sysf_getUserInfo("dutplceinstcd");
	
	if (lf_ContainsHardCD("10012", sysf_getUserInfo("userid"))) btn_del.visible = true;
	
	if (edityn == "Y") {
		btn_confirm.visible = true;
		//btn_del.visible = true;
		if ( dutplceinstcd != "031") {
			TextArea02.visible = true;
			cap_bigo.visible = true;
		}
	}
	
	if (newyn == "Y") {
		Edit_pid.enable = true;
		Combo01.visible = true;
		cap_gbn.visible = true;
		TextArea02.visible = true;
		cap_bigo.visible = true;
	}
	
	if (jinyn == "Y") {
		Combo01.visible = true;
		cap_gbn.visible = true;
		TextArea02.visible = true;
		cap_bigo.visible = true;
		Cal_cnstdd.visible = true;
		cap_gbn01.visible = true;
		cap_gbn02.visible = true;
		Edit_seq.visible = true;
		btn_newsave.visible = true;
		CheckBoxA01.visible = true;
		CheckBoxA02.visible = true;
		CheckBoxA03.visible = true;
		CheckBoxA04.visible = true;
		CheckBoxA05.visible = true;
		CheckBoxA06.visible = true;
		CheckBoxA07.visible = true;
		CheckBoxB01.visible = true;
		CheckBoxB02.visible = true;
		CheckBoxB03.visible = true;
		CheckBoxB04.visible = true;
		CheckBoxB05.visible = true;
		CheckBoxB06.visible = true;
		CheckBoxB07.visible = true;
		CheckBoxB08.visible = true;
		CheckBoxC01.visible = true;
		CheckBoxC02.visible = true;
		lf_DispEnable(true);
	
	}
	
	fBsearch();
}

function btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_list.setColumn(0,"status","U");
	STATUS = "A";
	fSave();
	this.close();
}

function fSave() {

	dsf_createDs("ds_execnt", [{col: "cnt", type:"string", size:256}]);
	var oParam = {};
		oParam.id      = "TX09001_1";
		oParam.service = "recmngtapp.IntegrityRec";
		oParam.method  = "reqExeYeonDetlList";
		oParam.inds    = "req=ds_main_list";
		oParam.outds   = "ds_execnt=cnt";
		oParam.async   = false;
		oParam.callback = "cf_TX09001_1";

		tranf_submit(oParam);
    
}

function cf_TX09001_1(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    dsf_deleteDs("ds_execnt");
    sysf_messageBox("정상적으로 처리되었습니다","I");
}

function fReset() {
	var pid = ds_main_patinfo.getColumn(0,"pid");
	
	trace("###############pid:"+pid);
	
	fSearch(pid);

}


function fBsearch() { 
	var pid = opener.frmf_getParameter("SPMRI09001_param_pid");
	var hngnm = opener.frmf_getParameter("SPMRI09001_param_hngnm");
	var orddd = opener.frmf_getParameter("SPMRI09001_param_orddd");
	var cretno = opener.frmf_getParameter("SPMRI09001_param_cretno");
	var histno = opener.frmf_getParameter("SPMRI09001_param_histno");
	fSearch(pid,orddd,cretno,histno);

}

function fSearch(pid,orddd,cretno,histno) {

	dsf_createDsRow("ds_cond", [{col:"instcd", type:"STRING", size:256, val:""}
							 , {col:"histno", type:"STRING", size:256, val:histno}
							 , {col:"pid", type:"STRING", size:256, val:pid}
							 , {col:"orddd", type:"STRING", size:256, val:orddd}
							 , {col:"cretno", type:"STRING", size:256, val:cretno}]);
	var oParam = {};
		oParam.id          = "TR09001_1";
		oParam.service     = "recmngtapp.IntegrityRec";
		oParam.method      = "reqGetYeonDetlList";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_main_list=list";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMMR04001";
	tranf_submit(oParam);

    var dborddd = ds_main_list.getColumn(0,"orddd");
	
	if (utlf_isNull(dborddd)) {
		ds_main_list.setColumn(0,"pid",pid);
		ds_main_list.setColumn(0,"hngnm",hngnm);
		ds_main_list.setColumn(0,"orddd",orddd);
		ds_main_list.setColumn(0,"cretno",cretno);
	}

}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( "6" != sysf_messageBox("삭제하시겠습니까","Q") )  return;
	ds_main_list.setColumn(0,"status","D");
	STATUS = "C";
	fSave();
	this.close();
}

function ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		
		if(utlf_isNull(obj.value)) {
			sysf_messageBox("진단코드를", "C001");
			return;
		}				
		fOpenDiagSearch("code");
	}
}

function ipt_diagengnm_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		
		if(utlf_isNull(obj.value)) {
			sysf_messageBox("진단명을", "C001");
			return;
		}
						
		fOpenDiagSearch("term");
	}
}

function caption16_onclick(obj:Button,  e:ClickEventInfo)
{
	
	
	var pid = Edit_pid.value;
	var hngnm = opener.frmf_getParameter("SPMRI09001_param_hngnm");
	
	dsf_createDsRow("ds_cond", [{col:"instcd", type:"STRING", size:256, val:""}
								 , {col:"pid", type:"STRING", size:256, val:pid}]);
	
	var oParam = {};
		oParam.id          = "reqGetLastDeptDiag";
		oParam.service     = "recmngtapp.IntegrityRec";
		oParam.method      = "reqGetLastDeptDiag";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_lastdeptdiag=list";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMMR04001";
	tranf_submit(oParam);
	
	ds_main_list.setColumn(0,"diagcd",ds_lastdeptdiag.getColumn(0,"diagcd"));
	ds_main_list.setColumn(0,"diagengnm",ds_lastdeptdiag.getColumn(0,"diagengnm"));
	ds_main_list.setColumn(0,"deptcd",ds_lastdeptdiag.getColumn(0,"deptcd"));
	
}

function fOpenDiagSearch(pFlag){
   if(pFlag == "code"){
      frmf_setParameter("SPMMO00800_cond1", 1);
      frmf_setParameter("SPMMO00800_cond2", 1);
      frmf_setParameter("SPMMO00800_cond3", "E");
      frmf_setParameter("SPMMO00800_cond4", utlf_getCurrentDate());      
      frmf_setParameter("SPMMO00800_cond5", ds_main_list.getColumn(0,"diagcd"));
      
   }else if(pFlag =="term"){
      var diagengnm = ds_main_scherecinfo.getColumn(0,"diagengnm");
      frmf_setParameter("SPMMO00800_cond1", 2);
      frmf_setParameter("SPMMO00800_cond2", 4);
      frmf_setParameter("SPMMO00800_cond3", utlf_isHangul(diagengnm));
      frmf_setParameter("SPMMO00800_cond4", utlf_getCurrentDate());      
      frmf_setParameter("SPMMO00800_cond5", diagengnm);
   }
   frmf_modal("SPMMO00800","SPMMO00800",null,null,null,null,null,null,null,null,null,null,"M");
   
   var useyn = frmf_getParameter("SPMMO00800_rtn_useyn");
   if(useyn == "Y"){
      frmf_setParameter("SPMMO00800_rtn_useyn", "N");
      var rtnparam = frmf_getParameter("SPMMO00800_rtn");
      rtnparam = rtnparam.split("▩");
      var tmpstr = rtnparam[0];
      
      tmpstr = tmpstr.split("▦");
      ds_main_list.setColumn(0,"diagcd"    , tmpstr[9]);
      ds_main_list.setColumn(0,"diagengnm"    , tmpstr[2]);
   }else{
      ds_main_list.setColumn(0,"diagcd"    , "");
      ds_main_list.setColumn(0,"diagengnm"    , "");
   }
}

function caption01_onclick(obj:Button,  e:ClickEventInfo)
{
	var doccode = ds_main_list.getColumn(0, "doccode");
	var docsn = ds_main_list.getColumn(0, "docsn");
	
	if(utlf_isNull(doccode) || utlf_isNull(docsn)) return;
	
	frmf_setParameter("SPMRI09004_PARAM1", doccode );
	frmf_setParameter("SPMRI09004_PARAM2", docsn );
	
	frmf_modal("SPMRI09004", "SPMRI09004", null, null, null, null, null, null, null, null, null, null, "M");
}

function Edit_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if( e.keycode == 13 ){
		obj.updateToDataset();
		fSearch();
	}
}

function Combo01_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	
}

function Cbx01_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.isChecked()) fChkvalue(obj.text,"process");
}

function Cbx02_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.isChecked()) fChkvalue(obj.text,"bigo2");
}

function Cbx03_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.isChecked()) fChkvalue(obj.text,"content");
}

function fChkvalue(ptext,pcol) {
	var text = ds_main_list.getColumn(0,pcol)
	if (!utlf_isNull(text)) {
		var atext = text+","+ptext;
	}
	else {
		var atext = ptext;	
	}
	ds_main_list.setColumn(0,pcol,atext);
}

function caption03_onclick(obj:Button,  e:ClickEventInfo)
{
	var rrgstno = ds_main_list.getColumn(0, "rrgstno");
	var pid = ds_main_list.getColumn(0, "pid");
	var hngnm = ds_main_list.getColumn(0, "hngnm");
	
	if(utlf_isNull(rrgstno) || utlf_isNull(pid)) return;
	
	frmf_setParameter("SPMRI09005_PARAM1", rrgstno  );
	frmf_setParameter("SPMRI09005_PARAM2", pid );
	frmf_setParameter("SPMRI09005_PARAM3", hngnm );
	
	frmf_modal("SPMRI09005", "SPMRI09005", null, null, null, null, null, null, null, null, null, null, "M");
}

function lf_DispEnable(bFlag){
	try{
		var childrenObj = this.components;
		for(i=0; i< childrenObj.length; i++)
		{
			var childObj = childrenObj[i];
			if(!utlf_isNull(childObj.name)){
				childObj.enable = bFlag;
			}
		}
	}catch(e){}
}

function btn_newsave_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_list.setColumn(0,"status","N");  //새이름으로 저장
	if ( "6" != sysf_messageBox("새이름으로 저장하시겠습니까","Q") ) return; 
	fSave();
	STATUS = "B";
	this.close();
}

function SPMRI09001_onclose(obj:Form, e:CloseEventInfo)
{
	opener.frmf_setParameter("SPMRI09001_param_status",STATUS);
}
]]></Script>
  </Form>
</FDL>