YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SMMMO08100_관심환자조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.4">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMMO08100" position="absolute 0 0 1194 784" titletext="관심환자조회" oninit="SMMMO08100_oninit" onload="SMMMO08100_onload">
    <Layouts>
      <Layout>
        <Static text="관심환자 조회" position="absolute 0 0 114 25" id="caption6" class="tit_1"/>
        <Div id="Div00" taborder="1" position="absolute 0 25 1194 76" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Edit position="absolute 632 15 724 35" id="ipt_pid" class="input_search" enable="true" anchor="default" onkeydown="Div00_ipt_pid_onkeydown"/>
              <Static text="등록번호 :" position="absolute 544 15 634 35" id="caption30" class="search_name" anchor="default"/>
              <Static text="분류구분 :" position="absolute 365 15 451 35" id="caption1" class="search_name" anchor="default"/>
              <Static text="성  명 :" position="absolute 730 15 800 35" id="caption14" class="search_name" anchor="default"/>
              <Static text="분류명 :" position="absolute 926 15 1000 35" id="caption26" class="search_name" anchor="default"/>
              <Radio position="absolute 453 15 553 35" id="radio2" columncount="2" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="Div00_radio2_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">P</Col>
                      <Col id="datacolumn">개인</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">D</Col>
                      <Col id="datacolumn">과</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Edit position="absolute 803 15 900 35" id="ipt_hngnm" class="input_search" enable="false" anchor="default"/>
              <Combo position="absolute 1002 15 1110 35" id="cmb_conctypenm" class="combo_search" innerdataset="@ds_ccclist" datacolumn="conctypenm" codecolumn="conctypecd" anchor="default"/>
              <Button position="absolute 1130 15 1186 35" id="btn_req" class="btn1" text="조회" anchor="top right" onclick="Div00_btn_req_onclick" defaultbutton="false"/>
              <Button position="absolute 903 15 923 35" id="btn_prcpclsnm" class="icon_search" text="" anchor="default"/>
              <Static text="기준일자 :" position="absolute 6 15 92 35" id="caption3" class="search_name" anchor="default"/>
              <Calendar position="absolute 95 15 185 35" id="input1" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Calendar position="absolute 205 15 295 35" id="input2" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Static text="~" position="absolute 188 16 208 36" id="caption4" anchor="default"/>
              <Combo position="absolute 300 15 355 35" id="cmb_prid" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="Div00_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>
            </Layout>
          </Layouts>
        </Div>
        <Static text="관심환자 리스트" position="absolute 0 84 126 100" align="align:center middle;" id="caption2" class="tit_2"/>
        <Button position="absolute 1143 79 1193 99" id="button2" class="btn7" text="엑셀" anchor="top right" onclick="button2_onclick" taborder="2"/>
        <Grid position="absolute 0 102 1194 784" id="grd_concpatlist" binddataset="ds_grd_concpatlist" anchor="all" onrbuttondown="grd_concpatlist_onrbuttondown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="71"/>
                <Column size="80"/>
                <Column size="65"/>
                <Column size="103"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="644"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="등록번호"/>
                <Cell col="2" text="환자명"/>
                <Cell col="3" text="S/A"/>
                <Cell col="4" text="분류명"/>
                <Cell col="5" text="시작일자"/>
                <Cell col="6" text="종료일자"/>
                <Cell col="7" text="참고사항"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" text="bind:sa"/>
                <Cell col="4" text="bind:conctypenm"/>
                <Cell col="5" text="bind:valifromdd" mask="####-##-##"/>
                <Cell col="6" text="bind:valitodd" mask="####-##-##"/>
                <Cell col="7" style="align:left middle;" text="bind:concremfact"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <PopupMenu id="pmn_menu" innerdataset="@ds_menu" idcolumn="hardcd" captioncolumn="hardcdnm" levelcolumn="level" onmenuclick="pmn_menu_onmenuclick" position="absolute 1197 2 1324 112"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_concpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sa" type="STRING"/>
          <Column id="conctypenm" type="STRING"/>
          <Column id="valifromdd" type="STRING"/>
          <Column id="valitodd" type="STRING"/>
          <Column id="concremfact" type="STRING"/>
        </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="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="conctypecd" type="STRING" size="256"/>
          <Column id="conckindcd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="prid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="conckindcd">P</Col>
            <Col id="prid">1Y</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_ccclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="conctypenm" type="STRING" size="256"/>
          <Column id="conctypecd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_menu" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hardcd" type="STRING" size="256"/>
          <Column id="hardcdnm" type="STRING" size="256"/>
          <Column id="level" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="hardcd">fCallWndConcPatRgst</Col>
            <Col id="hardcdnm">관심환자수정 및 삭제</Col>
            <Col id="level">0</Col>
          </Row>
          <Row>
            <Col id="hardcd"/>
            <Col id="hardcdnm">-</Col>
            <Col id="level">0</Col>
          </Row>
          <Row>
            <Col id="hardcd">fOpenExamRsltSrch</Col>
            <Col id="hardcdnm">검사결과 조회</Col>
            <Col id="level">0</Col>
          </Row>
          <Row>
            <Col id="level">0</Col>
            <Col id="hardcdnm">투약이력 조회</Col>
            <Col id="hardcd">fOpenActDrugHist</Col>
          </Row>
          <Row>
            <Col id="level">0</Col>
            <Col id="hardcdnm">-</Col>
            <Col id="hardcd"/>
          </Row>
          <Row>
            <Col id="level">0</Col>
            <Col id="hardcdnm">처방 조회</Col>
            <Col id="hardcd">fOpenPrcpSrch</Col>
          </Row>
          <Row>
            <Col id="level">0</Col>
            <Col id="hardcdnm">통합기록조회</Col>
            <Col id="hardcd">fOpenEmrRec</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Div00.input1" propid="value" datasetid="ds_cond" columnid="fromdd"/>
      <BindItem id="item1" compid="Div00.input2" propid="value" datasetid="ds_cond" columnid="todd"/>
      <BindItem id="item2" compid="Div00.cmb_prid" propid="value" datasetid="ds_cond" columnid="prid"/>
      <BindItem id="item3" compid="Div00.radio2" propid="value" datasetid="ds_cond" columnid="conckindcd"/>
      <BindItem id="item4" compid="Div00.ipt_pid" propid="value" datasetid="ds_cond" columnid="pid"/>
      <BindItem id="item5" compid="Div00.ipt_hngnm" propid="value" datasetid="ds_cond" columnid="hngnm"/>
      <BindItem id="item6" compid="Div00.cmb_conctypenm" propid="value" datasetid="ds_cond" columnid="conctypecd"/>
    </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";

function SMMMO08100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_concpatlist);
}

function SMMMO08100_onload(obj:Form, e:LoadEventInfo)
{
	var idate = new Date();
	var oneYDate     = idate.getAddDate(-1, "Y");	
	ds_cond.setColumn(0, "fromdd", oneYDate.getDateFormat());								
	ds_cond.setColumn(0, "todd"  , utlf_getCurrentDate());
	
	var conckindcd = ds_cond.getColumn(0, "conckindcd");
	fReqConcTypeCombo(conckindcd);
}

function Div00_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 Div00_radio2_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fReqConcTypeCombo(obj.value);
}

function Div00_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		frmf_inputEnterKey("Div00.btn_req", "onclick", new ClickEventInfo);
	}
}

function Div00_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	fReqConcPatList();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_concpatlist, "관심환자리스트", "SheetName");
}

function grd_concpatlist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row < 0) return;
		
	var dataset = eval(obj.binddataset);	
 	dataset.rowposition = e.row;
 	obj.setCellPos(e.cell);
	
	pmn_menu.trackPopup(e.screenX,e.screenY);
}

function pmn_menu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	eval(e.id + "()");
}

/**
 * @desc : 관심분류명 콤보 조회
 * @param conckindcd 관심분류코드
 */
function fReqConcTypeCombo(conckindcd){
	ds_reqdata.clear();
	ds_reqdata.addColumn("conckindcd", "string");	
	ds_reqdata.addRow();
    ds_reqdata.setColumn(0, "conckindcd", conckindcd);
        
    var oParam = {};
		oParam.id      = "TRMMO08301";
		oParam.service = "prcpmngtapp.ConcPatMngt";
		oParam.method  = "reqGetConcTypeCdList";
		oParam.inds    = "req=" + "ds_reqdata";
		oParam.outds   = "ds_ccclist=ccclist";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO08301";

	tranf_submit(oParam);
}

function cf_TRMMO08301(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode < 0) return;
	
	frmf_addComboItem("Div00.cmb_conctypenm", "- 전 체 -", "");
	Div00.cmb_conctypenm.value = "";
}

/**
 *@desc : 관심분류명 콤보 
 */
function fReqConcPatList(){
	ds_reqdata.clear();
	ds_reqdata.copyData(ds_cond);
        
    var oParam = {};
		oParam.id      = "TRMMO08101";
		oParam.service = "prcpmngtapp.ConcPatMngt";
		oParam.method  = "reqGetConcPatList";
		oParam.inds    = "req=" + "ds_reqdata";
		oParam.outds   = "ds_grd_concpatlist=concpatlist";
		oParam.async   = false;

	tranf_submit(oParam);
}

/**
 * @desc   : (입원)관심환자등록창 호출
 * @
 * @param  :
 * @return :
 * @author :박유진
 * @---------------------------------------------------
 */
function fCallWndConcPatRgst(){
    var iRow   = ds_grd_concpatlist.rowposition;
    var pid    = ds_grd_concpatlist.getColumn(iRow, "pid");
    var hngnm  = ds_grd_concpatlist.getColumn(iRow, "hngnm");

    var param = "I" + "▩" + pid + "▩" + hngnm;
    frmf_setParameter("param", param);    
    frmf_modal("SPMMO08200", "SPMMO08200", null, null, null, null, null, null, null, null, null, null, "M");

	fReqConcPatList();
}

/**
 *@desc 검사결과조회 화면 open
 */
function fOpenExamRsltSrch(){
	var currow = ds_grd_concpatlist.rowposition;
	if(currow > -1){
		var pid = ds_grd_concpatlist.getColumn(currow, "pid");
				
		var mon = sysf_getCurrentMonitorNumber();		
		var objScreenInfo = system.getScreenRect(mon);		
		var resolution_width = objScreenInfo.right - objScreenInfo.left;
		var resolution_height = objScreenInfo.bottom - objScreenInfo.top;
		var xpt = (resolution_width - 246) / 2;
		var ypt = (resolution_height - 119) / 2;
		
		var objArg = new Object();
			objArg.srchpid = pid;
		
		frmf_open("SMAER00800", "SMAER00800", objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
	}
}

/**
*@ desc 투약이력조회 화면 open
*/
function fOpenActDrugHist(){
	var currow = ds_grd_concpatlist.rowposition;
	if(currow > -1){
		var pid   = ds_grd_concpatlist.getColumn(currow, "pid");
		var hngnm = ds_grd_concpatlist.getColumn(currow, "hngnm");
		var sa    = ds_grd_concpatlist.getColumn(currow, "sa");
		var patinfo = sa.split("/");					
		frmf_setParameter("SPMMO02400_pid"   , pid);
		frmf_setParameter("SPMMO02400_hngnm" , hngnm);
		frmf_setParameter("SPMMO02400_sex"   , patinfo[0]);
		frmf_setParameter("SPMMO02400_age"   , patinfo[1]);
		frmf_setParameter("SPMMO02400_ioflag", "-");
		
		frmf_open("SPMMO02400", "SPMMO02400", null, null, null, null, null, null, null, null, null, null, "M");
	}
}

/**
 *@ desc 처방조회화면 open
 */
function fOpenPrcpSrch(){
	var currow = ds_grd_concpatlist.rowposition;
	if(currow > -1){
		var pid   = ds_grd_concpatlist.getColumn(currow, "pid");
		var hngnm = ds_grd_concpatlist.getColumn(currow, "hngnm");
		frmf_setParameter("SPMMO14900_pid", pid);
		frmf_setParameter("SPMMO14900_hngnm", hngnm);
		
		frmf_open("SPMMO14900", "SPMMO14900", null, null, null, null, null, null, null, null, null, null, "M");
	}
}

function fOpenEmrRec() {				
	var pid = ds_grd_concpatlist.getColumn(ds_grd_concpatlist.rowposition, "pid");
	if(utlf_isNull(pid)){
		sysf_messageBox("통합기록조회를 검색할 환자를", "C002");
		return;
	}
	var wndobj = frmf_findPopup("SMMRI00400");
	if(wndobj != null){
		frmf_setParameter("SMMRI00400_param_pid", pid);
		wndobj.fInitalize();
	}else{
		frmf_setParameter("SMMRI00400_param_pid", pid);
		frmf_open("SMMRI00400", "SMMRI00400", null, null, 2, null, null, null, null, null, null, null, "M");
	}					
}]]></Script>
  </Form>
</FDL>