YNU_JEUS/app_home/himed/xpapps/emr/prcpinfoxp/xp/SPMMI00100_대상자조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.4">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMI00100" position="absolute 0 0 460 650" titletext="대상자조회" onload="SPMMI00100_onload">
    <Layouts>
      <Layout>
        <Shape position="absolute 7 0 455 122" id="roundrect5" type="roundrectangle"/>
        <Button position="absolute 390 50 446 72" id="btn_sea" class="btn1" text="조회" onclick="btn_sea_onclick"/>
        <Grid position="absolute 6 130 455 640" id="grd_pidlist" binddataset="ds_grd_pidlist" oncelldblclick="grd_pidlist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="75"/>
                <Column size="85"/>
                <Column size="90"/>
                <Column size="55"/>
                <Column size="50"/>
                <Column size="70"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="병실"/>
                <Cell col="1" text="등록번호"/>
                <Cell col="2" text="이름"/>
                <Cell col="3" text="S/A"/>
                <Cell col="4" text="구분"/>
                <Cell col="5" text="주민번호"/>
                <Cell col="6" text="대상자"/>
              </Band>
              <Band id="body">
                <Cell text="bind:roomcd"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:patnm"/>
                <Cell col="3" text="bind:sna"/>
                <Cell col="4" text="bind:flag"/>
                <Cell col="5" text="bind:juminno"/>
                <Cell col="6" text="bind:emrinpat"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape position="absolute 6 122 455 128" linetype="vertical" id="line1" class="line_1"/>
        <Static text="조회기준" position="absolute 12 4 103 21" id="caption3" class="search_name"/>
        <Static text="진 료 과" position="absolute 12 27 105 44" id="caption1" class="search_name"/>
        <Combo position="absolute 105 25 195 44" id="cmb_deptlist" class="combo_search" innerdataset="@ds_init_cmb_deptlist" datacolumn="execorddeptcdnm" codecolumn="execorddeptcdid" onitemchanged="cmb_deptlist_onitemchanged"/>
        <Static text="주 치 의" position="absolute 12 51 85 68" id="caption4" class="search_name"/>
        <Combo position="absolute 105 49 195 68" id="cmb_medispcllist" class="combo_search" innerdataset="ds_init_cmb_medispcllist" datacolumn="execorddrcdnm" codecolumn="execorddrcdid"/>
        <Static text="병     동" position="absolute 12 75 98 92" id="caption5" class="search_name"/>
        <Combo position="absolute 105 74 195 93" id="cmbward" class="combo_search" innerdataset="ds_init_ward" datacolumn="execwardcdnm" codecolumn="execwardcdid"/>
        <Combo position="absolute 205 74 295 93" id="cmbroom" class="combo_search" innerdataset="@ds_init_room" datacolumn="execroomcdnm" codecolumn="execroomcdid"/>
        <CheckBox position="absolute 300 4 370 19" id="chk_DailyResult" text="당일결과"/>
        <Shape position="absolute 377 8 383 114" linetype="vertical" id="line2" class="line_4"/>
        <Radio position="absolute 105 4 285 21" id="cmb_flag" class="radio_search" columncount="4" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">외래</Col>
              </Row>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">입원</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">응급</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Combo position="absolute 205 25 295 44" id="cmdsubdeptcd" class="combo_search" innerdataset="@ds_init_subdeptcd" datacolumn="execorddeptcdnm" codecolumn="execorddeptcdid" onitemchanged="cmdsubdeptcd_onitemchanged"/>
        <Static text="담 당 의" position="absolute 205 51 280 68" id="caption2" class="search_name"/>
        <Combo position="absolute 285 49 375 68" id="combo6" class="combo_search" innerdataset="@ds_init_cmb_medispcllist" datacolumn="execorddrcdnm" codecolumn="execorddrcdid"/>
        <Static text="담당간호사" position="absolute 12 99 101 116" id="caption6" class="search_name"/>
        <Combo position="absolute 105 98 195 117" id="cmbdrid" class="combo_search" innerdataset="@ds_init_drid" datacolumn="execorddrcdnm" codecolumn="execorddrcdid"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_pidlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="roomcd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="sna" type="STRING"/>
          <Column id="flag" type="STRING"/>
          <Column id="juminno" type="STRING"/>
          <Column id="emrinpat" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_deptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execorddeptcdnm" type="STRING"/>
          <Column id="execorddeptcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_medispcllist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execorddrcdnm" type="STRING"/>
          <Column id="execorddrcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_ward" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execwardcdnm" type="STRING"/>
          <Column id="execwardcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_room" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execroomcdnm" type="STRING"/>
          <Column id="execroomcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_subdeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execorddeptcdnm" type="STRING"/>
          <Column id="execorddeptcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_drid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execorddrcdnm" type="STRING"/>
          <Column id="execorddrcdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" 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="flag" type="STRING" size="256"/>
          <Column id="dailyyn" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="drid" type="STRING" size="256"/>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="roomcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reqparam" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="subdeptcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_deptlist" propid="value" datasetid="ds_send" columnid="deptcd"/>
      <BindItem id="item1" compid="cmdsubdeptcd" propid="value" datasetid="ds_cond" columnid="subdeptcd"/>
      <BindItem id="item2" compid="cmb_medispcllist" propid="value" datasetid="ds_send" columnid="drid"/>
      <BindItem id="item3" compid="combo6" propid="value" datasetid="ds_send" columnid="drid"/>
      <BindItem id="item4" compid="cmbward" propid="value" datasetid="ds_send" columnid="wardcd"/>
      <BindItem id="item5" compid="cmbroom" propid="value" datasetid="ds_send" columnid="roomcd"/>
      <BindItem id="item6" compid="cmbdrid" propid="value" datasetid="ds_send" columnid="drid"/>
      <BindItem id="item7" compid="cmb_flag" propid="value" datasetid="ds_send" columnid="flag"/>
    </Bind>
    <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";
function SPMMI00100_onload(obj:Form, e:LoadEventInfo)
{
	 frmf_initForm(obj);  // 초기화
   
    ds_send.addRow();
    ds_send.setColumn(0,"flag","0");

	var oParam = {};
		oParam.id      = "TRMMI00131";
		oParam.service = "prcpinfoapp.SytsTestRsltMngt";
		oParam.method  = "reqGetDeptList";
		oParam.inds    = "req=" + "ds_send";
		oParam.outds   = "ds_init_cmb_deptlist=initexecdept" ;
		oParam.async   = true;
		oParam.callback = "cf_TRMMI00131";

    tranf_submit(oParam); // 진료과코드 
 
	cmb_medispcllist.value = sysf_getUserInfo("userid");
	
	ds_reqparam.addColumn("initflag");
	ds_reqparam.addRow();
	ds_reqparam.setColumn(0,"initflag","1");
	
	var oParam2 = {};
		oParam2.id      = "TRMMI00132";
		oParam2.service = "prcpinfoapp.SytsTestRsltMngt";
		oParam2.method  = "reqGetWardList";
		oParam2.inds    = "req=" + "ds_reqparam";
		oParam2.outds   = "ds_init_ward=initexcuward" ;
		oParam2.async   = true;
		oParam2.callback = "cf_TRMMI00132";

    tranf_submit(oParam2); // 진료과코드 

	fGetPatList() ;
}

function cf_TRMMI00131(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	cmb_deptlist.value = sysf_getUserInfo("dutplcecd");
    cmb_deptlist.onitemchanged();  //cmb_deptlist의 onitemchanged 호출

}

function cf_TRMMI00132(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	

}

function cmb_deptlist_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fChngSrchDrId();
						
	ds_send.setColumn(0,"flag", cmb_flag.value);

	fGetPatList();
}

function fGetPatList() {
										
	var deptcd = ds_send.getColumn(0,"deptcd");
	var drid = ds_send.getColumn(0,"drid");
	var wardcd = ds_send.getColumn(0,"wardcd");
	var roomcd = ds_send.getColumn(0,"roomcd");

	if ( deptcd == "" && drid == "" && wardcd == "" && roomcd == "" ) {
		sysf_messageBox("조회 항목[진료과,주치의,병동,병실]을 선택하세요.","I999");
		return;
	}					
	var oParam = {};
    oParam.id       = "TRAER00819";
    oParam.service  = "examcureresultrefapp.RsltRef";
    oParam.method   = "reqGetInitRsltRefMyPIDList";
    oParam.inds     = "reqparam=ds_send";
    oParam.outds    = "ds_grd_pidlist=initmypid";
    oParam.async    = false;
    oParam.callback = "cf_TRAER00819";

	tranf_submit(oParam);

	
	var srchLength1 = ds_grd_pidlist.rowcount;	
	if ( srchLength1 > 0 ) {
		
		// Grid Background Color Clear
		for ( var i = 0; i < srchLength1; i++ ) {
			grd_pidlist.rowstyle( i , "data" , "background-color" ) = "#ffffff";
	
		}
		
		for ( var i = 1; i <= srchLength1; i++ ) { 
				
			if ( model.getValue("/root/main/pidlist1/mainpidlist[" + i + "]/emrinpat") == "N3") {
				grd_pidlist.rowstyle( i , "data" , "background-color" ) = "#b9e5fb";
			}
		}
	
	}
					
}
function cf_TRAER00819(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

/* @group	: 결과조회
 * @ver		: 2007.06.14
 * @by		: 장준원
 * @-----------------------------------
 * @type		: function
 * @access	: public
 * @desc		: 주치의정보 조회를 위한 Function
*/
function fChngSrchDrId() {
	
	if ( ds_send.getColumn(0,"deptcd") == "" ) return;
	ds_init_cmb_medispcllist.clearData();
	
	ds_reqparam.clear();
	
	ds_reqparam.addColumn("deptcd");
	ds_reqparam.addColumn("initflag");
	ds_reqparam.addRow();
	ds_reqparam.setColumn(0,"initflag","2");
	ds_reqparam.setColumn(0,"deptcd",ds_init_cmb_deptlist.getColumn(ds_init_cmb_deptlist.selectRow,"execorddeptcdid"));


	var oParam = {};
		oParam.id      = "TRAER00804";
		oParam.service = "examcureresultrefapp.RsltRef";
		oParam.method  = "reqGetInitRsltRefDrIdList";
		oParam.inds    = "req=" + "ds_reqparam";
		oParam.outds   = "ds_init_cmb_medispcllist=initexecdr" ;
		oParam.async   = true;
		oParam.callback = "cf_TRAER00804";

    tranf_submit(oParam); 	

}		
				
function cf_TRAER00804(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

function fSendPidList(){
	
		var row = grd_pidlist.currentrow;
		
		var pid	=  ds_grd_pidlist.getColumn(row,"pid");
		var patnm	=  ds_grd_pidlist.getColumn(row,"patnm");
		var juminno	=  ds_grd_pidlist.getColumn(row,"juminno");
	
        this.opener.ds_singdata.setColumn(0,"srchpid",pid);
        this.opener.ds_patinfolist.addColumn("hngnm");
        this.opener.ds_patinfolist.setColumn(0,"hngnm",patnm);
        this.opener.ds_patinfolist.addColumn("rrgstno1");
        this.opener.ds_patinfolist.setColumn(0,"rrgstno1",juminno);
        
	//	window.opener.model.setValue("/root/send/data/singdata/srchpid", 	pid);
	//	window.opener.model.makeValue("/root/main/patinfo/patinfolist/hngnm", 	patnm);
	//	window.opener.model.makeValue("/root/main/patinfo/patinfolist/rrgstno1", 	juminno);
		
		//if ( warcd != "" ) 
		//	window.opener.model.setValue("/root/send/data/singdata/wardcd", 	wardcd);						
		
	//	window.opener.model.refresh();
		var e1 = new ClickEventInfo();
		opener.btn_srch_onclick(opener.btn_srch, e1);
		// searchChart("/root/hidden/temp") 
		
	
}
function cmdsubdeptcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	
}

function btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_send.setColumn(0,"flag", cmb_flag.value);

	fGetPatList();
	
}

function grd_pidlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fSendPidList();
}
]]></Script>
  </Form>
</FDL>