YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SMMMO18000_협진환자리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMMO18000" position="absolute 0 0 1175 778" titletext="협진환자리스트" oninit="SMMMO18000_oninit" onload="SMMMO18000_onload">
    <Layouts>
      <Layout>
        <Static text="협진환자리스트" position="absolute 0 0 119 25" id="caption6" class="tit_1"/>
        <Static text="협진환자리스트" position="absolute 0 96 126 116" align="align:center middle;" id="caption3" class="tit_2"/>
        <Grid position="absolute 0 116 1175 748" id="grd_cnstlist" binddataset="ds_grd_cnstlist" taborder="4" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="86"/>
                <Column size="65"/>
                <Column size="59"/>
                <Column size="69"/>
                <Column size="100"/>
                <Column size="194"/>
                <Column size="175"/>
                <Column size="54"/>
                <Column size="154"/>
                <Column size="170"/>
                <Column size="198"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox"/>
                <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="ECOG"/>
                <Cell col="9" text="병기"/>
                <Cell col="10" text="흡연력"/>
                <Cell col="11" text="회의제목"/>
                <Cell col="12" text="회의일시"/>
                <Cell col="13" text="회의장소"/>
                <Cell col="14" text="회의내용"/>
                <Cell col="15" text="결과"/>
                <Cell col="16" text="상정이유"/>
                <Cell col="17" text="작성자"/>
                <Cell col="18"/>
                <Cell col="19"/>
                <Cell col="20"/>
                <Cell col="21"/>
                <Cell col="22"/>
                <Cell col="23"/>
                <Cell col="24"/>
                <Cell col="25"/>
                <Cell col="26"/>
                <Cell col="27"/>
                <Cell col="28"/>
                <Cell col="29"/>
                <Cell col="30"/>
                <Cell col="31"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:checkyn"/>
                <Cell col="1" style="align:left middle;" text="bind:confdd" mask="####-##-##"/>
                <Cell col="2" style="align:left middle;" text="bind:roomcd"/>
                <Cell col="3" style="align:left middle;" text="bind:hngnm"/>
                <Cell col="4" style="align:left middle;" text="bind:sa"/>
                <Cell col="5" style="align:left middle;" text="bind:orddeptnm"/>
                <Cell col="6" style="align:left middle;" text="bind:diagnm"/>
                <Cell col="7" style="align:left middle;" text="bind:subdiagnm"/>
                <Cell col="8" style="align:left middle;" text="bind:ecogscale"/>
                <Cell col="9" style="align:left middle;" text="bind:stage"/>
                <Cell col="10" style="align:left middle;" text="bind:smokcnts"/>
                <Cell col="11" style="align:left middle;" text="bind:conftitl"/>
                <Cell col="12" text="bind:confplce"/>
                <Cell col="13" text="bind:confcnts"/>
                <Cell col="14" text="bind:pid"/>
                <Cell col="15" text="bind:orddeptcd"/>
                <Cell col="16" text="bind:orddrnm"/>
                <Cell col="17" text="bind:orddrid"/>
                <Cell col="18" text="bind:orgdiagcd"/>
                <Cell col="19" text="bind:stagecd"/>
                <Cell col="20" text="bind:tnmcd1"/>
                <Cell col="21" text="bind:tnmcd2"/>
                <Cell col="22" text="bind:tnmcd3"/>
                <Cell col="23" text="bind:asumresn"/>
                <Cell col="24" text="bind:rsltcnts"/>
                <Cell col="25" text="bind:writid"/>
                <Cell col="26" text="bind:writnm"/>
                <Cell col="27" text="bind:smokday"/>
                <Cell col="28" text="bind:smokyear"/>
                <Cell col="29" text="bind:smokyn"/>
                <Cell col="30" text="bind:smokstrtyear"/>
                <Cell col="31" text="bind:smokendyear"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 0 756 58 778" id="btn_print" class="btn6" text="출력" onclick="btn_print_onclick" taborder="3" anchor="left bottom"/>
        <Button position="absolute 1119 756 1175 778" id="button1" class="btn3" text="닫기" onclick="button1_onclick" taborder="2" anchor="right bottom"/>
        <Div id="roundrect1" taborder="0" position="absolute 0 25 1175 87" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption5" text="협진일" class="search_name" position="absolute 8 8 84 28" anchor="default"/>
              <Static id="caption8" text="상 정 과" class="search_name" position="absolute 487 8 563 28" anchor="default"/>
              <Calendar id="input4" taborder="0" class="input" position="absolute 86 8 176 28" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true" autoskip="true"/>
              <Static id="caption29" text="진 료 의" class="search_name" position="absolute 802 8 878 28" anchor="default"/>
              <Edit id="ipt_pid" taborder="5" class="input_search" position="absolute 565 34 655 54" anchor="default" onkeydown="roundrect1_ipt_pid_onkeydown" autoselect="true"/>
              <Static id="caption4" text="환 자 명" class="search_name" position="absolute 802 34 878 54" anchor="default"/>
              <Edit id="input1" taborder="6" class="input_search" position="absolute 880 34 970 54" anchor="default" onkeydown="roundrect1_input1_onkeydown" autoselect="true"/>
              <Static id="caption1" text="등록번호" class="search_name" position="absolute 487 34 563 54" anchor="default"/>
              <Calendar id="input2" taborder="1" class="input" position="absolute 193 8 283 28" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true"/>
              <Button id="btn_prcpclsnm" taborder="7" class="icon_search" position="absolute 977 34 997 54" anchor="default" onclick="roundrect1_btn_prcpclsnm_onclick"/>
              <Static id="caption9" text="~" position="absolute 180 8 187 28" anchor="default"/>
              <Combo id="cmb_orddept" taborder="3" innerdataset="ds_orddept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_search" position="absolute 565 8 715 28" anchor="default" onitemchanged="roundrect1_cmb_orddept_onitemchanged"/>
              <Combo id="cmb_orddrid" taborder="4" innerdataset="@ds_userlist" codecolumn="userid" datacolumn="usernm" class="combo_default" position="absolute 880 8 970 28" anchor="default"/>
              <Combo id="cmb_prid" taborder="2" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 290 8 345 28" anchor="default" onitemchanged="roundrect1_cmb_prid_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">3M</Col>
                      <Col id="datacolumn">3개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">6M</Col>
                      <Col id="datacolumn">6개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">9M</Col>
                      <Col id="datacolumn">9개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1Y</Col>
                      <Col id="datacolumn">1년</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2Y</Col>
                      <Col id="datacolumn">2년</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Button id="btn_req" taborder="8" text="조회" class="btn1" position="absolute 1104 21 1160 41" anchor="top right" onclick="roundrect1_btn_req_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_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_userlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usernm" type="STRING"/>
          <Column id="userid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_cnstlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="checkyn" type="STRING" size="256" sumtext="처리구분"/>
          <Column id="genrdd" type="STRING" size="256" sumtext="발생일자"/>
          <Column id="genrno" type="STRING" size="256" sumtext="발생번호"/>
          <Column id="confrecno" type="INT" size="256" sumtext="회의기록번호"/>
          <Column id="confdd" type="STRING" size="256" sumtext="회의일자"/>
          <Column id="conftm" type="STRING" size="256" sumtext="회의시간"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="진단코드"/>
          <Column id="diagnm" type="STRING" size="256" sumtext="진단명"/>
          <Column id="smokhist" type="STRING" size="256" sumtext="흡연력"/>
          <Column id="ecogscale" type="STRING" size="256" sumtext="ECOGSCALE"/>
          <Column id="conftitl" type="STRING" size="256" sumtext="회의제목"/>
          <Column id="confplce" type="STRING" size="256" sumtext="회의장소"/>
          <Column id="confcnts" type="STRING" size="256" sumtext="회의내용"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="sa" type="STRING" size="256" sumtext="성별"/>
          <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="orgdiagcd" type="STRING" size="256" sumtext="원진단코드"/>
          <Column id="stage" type="STRING" size="256" sumtext="STAGE"/>
          <Column id="stagecd" type="STRING" size="256" sumtext="STAGE코드"/>
          <Column id="tnmcd1" type="STRING" size="256" sumtext="TNM코드1"/>
          <Column id="tnmcd2" type="STRING" size="256" sumtext="TNM코드1"/>
          <Column id="tnmcd3" type="STRING" size="256" sumtext="TNM코드1"/>
          <Column id="asumresn" type="STRING" size="256" sumtext="상정이유"/>
          <Column id="rsltcnts" type="STRING" size="256" sumtext="결과"/>
          <Column id="writid" type="STRING" size="256" sumtext="작성자ID"/>
          <Column id="writnm" type="STRING" size="256" sumtext="작성자명"/>
          <Column id="smokcnts" type="STRING" size="256" sumtext="흡연정보"/>
          <Column id="smokday" type="STRING" size="256" sumtext="하루흡연량"/>
          <Column id="smokyear" type="STRING" size="256" sumtext="흡연지속년수"/>
          <Column id="smokyn" type="STRING" size="256" sumtext="흡연여부"/>
          <Column id="smokstrtyear" type="STRING" size="256" sumtext="흡연시작년도"/>
          <Column id="smokendyear" type="STRING" size="256" sumtext="흡연중단연도"/>
          <Column id="subdiagnm" type="STRING" size="256" sumtext="부진단명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="prid" type="STRING" size="256"/>
          <Column id="cnstorddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="allcheck" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="roundrect1.input4" propid="value" datasetid="ds_cond" columnid="fromdd"/>
      <BindItem id="item1" compid="roundrect1.input2" propid="value" datasetid="ds_cond" columnid="todd"/>
      <BindItem id="item2" compid="roundrect1.cmb_prid" propid="value" datasetid="ds_cond" columnid="prid"/>
      <BindItem id="item3" compid="roundrect1.cmb_orddept" propid="value" datasetid="ds_cond" columnid="cnstorddeptcd"/>
      <BindItem id="item4" compid="roundrect1.cmb_orddrid" propid="value" datasetid="ds_cond" columnid="orddrid"/>
      <BindItem id="item5" compid="roundrect1.ipt_pid" propid="value" datasetid="ds_cond" columnid="pid"/>
      <BindItem id="item6" compid="roundrect1.input1" propid="value" datasetid="ds_cond" columnid="hngnm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-08-29
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-08-29      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

function SMMMO18000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_cnstlist);
}

function SMMMO18000_onload(obj:Form, e:LoadEventInfo)
{
	var today = utlf_getCurrentDate();
	var idate = new Date();
	var peveDate = idate.getAddDate(-1, "M");
	ds_cond.setColumn(0, "fromdd", peveDate.getDateFormat());
	ds_cond.setColumn(0, "todd", today);	
	
	lf_mmbfGetDeptCodeComboList(ds_orddept, "A");
	frmf_addComboItem("roundrect1.cmb_orddept");		//부서콤보 Item '전체'추가
	ds_cond.setColumn(0, "cnstorddeptcd", sysf_getUserInfo("dutplcecd"));
	
	setUserList(sysf_getUserInfo("dutplcecd"));
}

function setUserList(sOrddeptcd, sOrddrid){
	lf_mmbfGetUserComboList(ds_userlist, sOrddeptcd, "0330", "", "");
	
	frmf_addComboItem("roundrect1.cmb_orddrid", "", "");  //의사콤보 전체항목 추가
	
	if(!utlf_isNull(sOrddrid))
		roundrect1.cmb_orddrid.value = sOrddrid;
}

function roundrect1_cmb_prid_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var number = obj.value.substr(0, 1);
	var period = obj.value.substr(1, 1);
	
	var idate = new Date();			
	var fromdd = idate.getAddDate(parseInt(number) * -1, period).getDateFormat();
	var todd = utlf_getCurrentDate();
	
 	ds_cond.setColumn(0, "fromdd", fromdd);
 	ds_cond.setColumn(0, "todd", todd);
}

function roundrect1_cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	setUserList(obj.value, "-");
}

function roundrect1_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.value = utlf_trim(obj.value);				
		if(obj.value == ""){
			return;
		}
		
		if(lf_reqPatInfo(ds_patnm, "pid", "ptbs", obj.value)) {
			ds_cond.setColumn(0, "hngnm", ds_patnm.getColumn(0, "hngnm"));
			
			roundrect1.btn_req.onclick.fireEvent(roundrect1.btn_req, new ClickEventInfo);
		}
	}
}

function roundrect1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13){
		ds_hidden.clearData();
		ds_hidden.addRow();
		
		ds_hidden.setColumn(0, "srchcond", "2");
		ds_hidden.setColumn(0, "hngnm", obj.text);
				
		var objArg = new Object();
		objArg.arg_ds_send = ds_hidden;
		
		frmf_modal("SPPMC02500", "SPPMC02500", objArg, null, 1, 150, 150, null, null, null, null, null, "M");
				
		if(!utlf_isNull(this.objects["ds_patinfolist"])) {
			var pid   = ds_patinfolist.getColumn(0, "pid");
			var hngnm = ds_patinfolist.getColumn(0, "hngnm");
			
			ds_cond.setColumn(0, "pid", pid);
			ds_cond.setColumn(0, "hngnm", hngnm);
		}
	}
}

function roundrect1_btn_prcpclsnm_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SPPMC02500", "SPPMC02500", null, null, null, null, null, null, null, null, null, null, "M");

	if(!utlf_isNull(this.objects["ds_patinfolist"])) {
		var sPid = ds_patinfolist.getColumn(0, "pid");
		var sHngnm = ds_patinfolist.getColumn(0, "hngnm");
		ds_cond.setColumn(0, "pid", sPid);
		ds_cond.setColumn(0, "hngnm", sHngnm);
	}
}

function roundrect1_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{	
	var oParam = {};
		oParam.id      = "TRMMO18001";
		oParam.service = "prcpmngtapp.ConcPatMngt";
		oParam.method  = "reqGetCnstPatList";
		oParam.inds    = "req=" + "ds_cond";
		oParam.outds   = "ds_grd_cnstlist=cnstpatlist";
		oParam.async   = true;

	tranf_submit(oParam);
}

function btn_print_onclick(obj:Button,  e:ClickEventInfo)
{
	var sDataset = dsf_createDs("ds_templist");
	var oDataset = this.objects[sDataset];
	
	oDataset.copyData(ds_grd_cnstlist);
	oDataset.clearData();

	oDataset.enableevent = false;
 	for(var i = 0; i < ds_grd_cnstlist.rowcount; i++) {
		if(ds_grd_cnstlist.getColumn(i, "checkyn") == true) 
			oDataset.copyRow(oDataset.addRow(), ds_grd_cnstlist, i);
 	} 	
 	oDataset.enableevent = true;

	if(oDataset.rowcount > 0) {
		var objDOM = rptf_createDOM();														// DOM 객체 설정	
		rptf_setNodeListToDOM(objDOM, "root/temp/templist/cnstpatlist", oDataset);	// 데이터셋 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(["RPMMO18001"],[objParam], option);
	} else {
		sysf_messageBox("출력할 대상이 없습니다.", "I");
	}	
}

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