YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SMAEA00400_개인별처방이력조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAEA00400" position="absolute 0 0 1201 805" titletext="개인별 처방이력 조회" oninit="model1_oninit" onload="SMAEA00400_onload">
    <Layouts>
      <Layout>
        <Div id="grp_btn" position="absolute 0 757 1195 784" anchor="default" positiontype="position">
          <Layouts>
            <Layout/>
          </Layouts>
        </Div>
        <Shape id="line13" class="line_4" position="absolute 1127 29 1127 51" anchor="default" positiontype="position" linetype="vertical"/>
        <Static id="caption6" text="개인별 처방이력 조회" class="tit_1" position="absolute 0 0 180 25" positiontype="position"/>
        <Div id="grp_sea" taborder="1" style="align:center top;" position="absolute 0 25 1200 65" class="div_SA" anchor="left top right" positiontype="position">
          <Layouts>
            <Layout>
              <Static id="caption1" text="적용일자" class="search_name" position="absolute 345 10 419 30" anchor="default" positiontype="position"/>
              <Button id="btn_sea" taborder="4" text="조회" onlbuttonup="btn_sea_onlbuttonup" class="btn1" position="absolute 1133 10 1189 30" anchor="top right" onclick="btn_sea_onclick" positiontype="position"/>
              <Calendar id="ipt_endrsrvdd" taborder="6" class="input_default" position="absolute 521 10 607 30" anchor="default" positiontype="position" dateformat="yyyy-MM-dd" autoselect="true"/>
              <Calendar id="ipt_startrsrvdd" taborder="9" class="input_default" position="absolute 419 10 505 30" onmouseenter="ipt_startrsrvdd_onmouseenter" anchor="default" positiontype="position" dateformat="yyyy-MM-dd" value="null" autoselect="true"/>
              <Combo id="cmb_deptcd" taborder="10" class="combo_default" position="absolute 740 10 938 30" anchor="default" innerdataset="@ds_suppdeptlist" codecolumn="suppdeptcd" datacolumn="depthngnm" positiontype="position" type="filter"/>
              <Static id="caption5" text="지원부서" class="search_name" position="absolute 666 10 740 30" anchor="default" positiontype="position"/>
              <Static id="caption21" text="~" position="absolute 508 11 523 31" anchor="default"/>
              <Static id="caption00" text="등록번호" class="search_name" position="absolute 8 10 82 30" anchor="default"/>
              <Edit id="ipt_pid" taborder="13" class="input_essential" position="absolute 81 11 185 31" onkeydown="grp_sea_ipt_pid_onkeydown" anchor="default" autoselect="true"/>
              <Button id="btn_pidsearch" taborder="14" class="icon_search" position="absolute 188 11 208 31" onclick="grp_sea_btn_pidsearch_onclick" anchor="default"/>
              <Edit id="ipt_patnm" taborder="15" class="output" position="absolute 216 11 320 31" onkeydown="grp_sea_ipt_patnm_onkeydown" anchor="default" readonly="true"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption14" text="개인별 처방이력 조회" class="tit_2" position="absolute 0 75 176 95" positiontype="position"/>
        <Grid id="grd_prcphist" taborder="2" useinputpanel="false" position="absolute 0 96 1200 804" anchor="all" binddataset="ds_grid_grd_prcphist" positiontype="position" onbuttondown="grd_prcphist_onbuttondown" onmouseleave="grd_prcphist_onmouseleave" onrbuttondown="grd_prcphist_onrbuttondown" autosizingtype="none" cellsizingtype="both" oncolresized="grd_prcphist_oncolresized" extendsizetype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30" band="left"/>
                <Column size="80"/>
                <Column size="30"/>
                <Column size="100"/>
                <Column size="273"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="80"/>
                <Column size="120"/>
                <Column size="70"/>
                <Column size="80"/>
                <Column size="120"/>
                <Column size="120"/>
                <Column size="300"/>
              </Columns>
              <Rows>
                <Row size="22" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="처방일자"/>
                <Cell col="2" text="I/O"/>
                <Cell col="3" text="처방코드"/>
                <Cell col="4" text="처방명"/>
                <Cell col="5" text="처방상태"/>
                <Cell col="6" text="진료의사"/>
                <Cell col="7" text="진료과"/>
                <Cell col="8" text="예약일시"/>
                <Cell col="9" text="수납일자"/>
                <Cell col="10" text="접수일자"/>
                <Cell col="11" text="실시일시"/>
                <Cell col="12" text="판독일자"/>
                <Cell col="13" text="검사실 정보"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" expr="expr:currow + 1"/>
                <Cell col="1" displaytype="date" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:prcpdd" calendardisplaynulltype="nulltext"/>
                <Cell col="2" style="align:center middle;color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:prcpgenrflag"/>
                <Cell col="3" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:calcscorcd"/>
                <Cell col="4" style="align:left;color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:excucdnm" wordwrap="word"/>
                <Cell col="5" displaytype="combo" edittype="combo" style="padding:0 0 0 2;color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:execprcpstatcd" combodataset="ds_initexecprcpstatcd" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="6" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:usernm"/>
                <Cell col="7" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:depthngnm"/>
                <Cell col="8" displaytype="normal" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:rsrvdd" wordwrap="word" mask="expr:utlf_isNull(rsrvdd)?'':'####-##-## ##:##'"/>
                <Cell col="9" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:rcptdd" mask="expr:utlf_isNull(rcptdd)?'':'####-##-##'"/>
                <Cell col="10" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:acptdd" mask="expr:utlf_isNull(acptdd)?'':'####-##-##'"/>
                <Cell col="11" displaytype="normal" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:excuexectodt" mask="expr:utlf_isNull(excuexectodt)?'':'####-##-## ##:##'"/>
                <Cell col="12" displaytype="normal" style="color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:cnfmdt" mask="expr:utlf_isNull(cnfmdt)?'':'####-##-## ##:##'"/>
                <Cell col="13" style="align:left middle;color:EXPR(prcphistcd == 'C' ? '#ff0000': '');color2:EXPR(prcphistcd == 'C' ? '#ff0000': '');" text="bind:acptrem"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excsave" taborder="3" text="엑셀저장" class="btn7" position="absolute 1121 68 1200 91" anchor="top right" positiontype="position" onclick="btn_excsave_onclick"/>
        <Button id="btn_prt" taborder="4" text="출력" class="btn6" visible="false" position="absolute 0 784 56 804" anchor="left bottom" positiontype="position"/>
        <Shape id="line2" class="line_10" position="absolute 0 91 1200 97" anchor="left top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grid_grd_prcphist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING"/>
          <Column id="prcpgenrflag" type="STRING"/>
          <Column id="prcpcd" type="STRING"/>
          <Column id="calcscorcd" type="STRING"/>
          <Column id="excucdnm" type="STRING"/>
          <Column id="prcphistcd" type="STRING"/>
          <Column id="execprcpstatcd" type="STRING"/>
          <Column id="usernm" type="STRING"/>
          <Column id="depthngnm" type="STRING"/>
          <Column id="payflagcd" type="STRING"/>
          <Column id="sna" type="STRING"/>
          <Column id="rrgstno" type="STRING"/>
          <Column id="rsrvdd" type="STRING"/>
          <Column id="rsrvnm" type="STRING"/>
          <Column id="rcptdd" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="excuexectodt" type="STRING"/>
          <Column id="cnfmdt" type="STRING"/>
          <Column id="acptrem" type="STRING"/>
          <Column id="excuroomcdnm" type="STRING"/>
          <Column id="execrid1" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_suppdeptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="suppdeptcd" type="STRING" size="256"/>
          <Column id="depthngnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_initprcphistcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_initexecprcpstatcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_initpayflagcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_patinfolist" 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"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_dcyn" 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">Y</Col>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">N</Col>
            <Col id="value">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_srchddyn" 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">Y</Col>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">N</Col>
            <Col id="value">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_param" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pathngnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * File Name 		:	SMAEA00400_개인별처방이력조회.xfdl
 * Creator 	    :	
 * Make Date 		:	
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/


//=======================================================================================
// xjs Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "ast_examcurexp::AEZ0001.xjs";
include "com_basiccodexp::ZBC001.xjs";



//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
var lv_suppdeptcd="";

//지원부서 조회
function f_TRAEA00904()
{
	dsf_createDsRow("ds_sup_req",
		[{col:"basesuppdeptcd", val:lv_suppdeptcd}
		]);

	var oParam = new Object();
	oParam.id = "TRAEA00904";
	oParam.service = "examcurersrvapp.RsrvRef";
	oParam.method = "reqGetSuppDeptCdList";
	oParam.inds = "req=ds_sup_req";
	oParam.outds ="ds_suppdeptlist=item";
	//oParam.callback = "cbf_TRAEA00904";
	tranf_submit(oParam);
}





// 조회
function f_TRAEA00401()
{
	dsf_createDsRow("ds_sch_req",
		[{col:"pid", val:grp_sea.ipt_pid.value}
		,{col:"prcpfromdd", val:grp_sea.ipt_startrsrvdd.value}
		,{col:"prcptodd", val:grp_sea.ipt_endrsrvdd.value}
		,{col:"suppdeptcd", val:grp_sea.cmb_deptcd.value}		
		]);

	var oParam = new Object();
	oParam.id = "TRAEA00401";
	oParam.service = "examcureacptexecapp.ExamCurePrcs";
	oParam.method = "reqGetPidPrcpHistList";
	oParam.inds = "req=ds_sch_req";
	oParam.outds ="ds_grid_grd_prcphist=prcplist";
	oParam.callback = "cbf_TRAEA00401";
	
	tranf_submit(oParam);
}

function cbf_TRAEA00401(sSvcId, objErrorCode, objErrorMsg)
{
	if(ds_grid_grd_prcphist.getRowCount() == 0)
	{
		sysf_messageBox("입력하신 등록번호/일자에 해당하는 환자의 처방이력이 DB에 존재하지 않습니다.", "I999");
	}
	else
	{
		for(var i = 0; i < ds_grid_grd_prcphist.getRowCount(); i++)
		{
			ds_hidden_param.setColumn(i, "pathngnm",  ds_grid_grd_prcphist.getColumn(i, "hngnm"));
		}
	}
}

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Components	    : 
 * Components ID  : SMAEA00400
 * Event 		    : onload
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function SMAEA00400_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);  // 화면공통
	grdf_initGrid(grd_prcphist);
	
	var pid = "";
	
	if (frmf_checkOpener()) {
		suppdeptcd = opener.frmf_getParameter("SMPEA00100_suppdeptcd");
		// 통합 예약에서 전달받은 pid 확인
		pid = opener.frmf_getParameter("SMPEA00100_pid");
	}
// 	if( utlf_isNull(suppdeptcd))
// 	{
// 		suppdeptcd = frmf_getMenuParam();
// 	}
	
	if (utlf_isNull(suppdeptcd))
	{
		lf_aezfSetSuppDeptcd();
		
	}
		
	//지원부서 조회
	f_TRAEA00904();
	
	//2.0 필요시 적용해야함
// 	if( instance1.selectSingleNode("/root/init/cmb_info/suppdeptlist/suppdept[suppdeptcd='" +  instance + "']") == null ){
// 		model.setValue("root/send/suppdeptcd" , "2180000000"); //지원부서코드에 해당되지않으면 기본 핵의학과로 보여줌(공통으로뺄것임) - 박재영
// 		model.setValue("/root/send/globalinstance/instance1", model.getValue("/root/send/suppdeptcd"));
// 
// 	}else{
// 		model.setValue("root/send/suppdeptcd" , instance); //지원부서코드에 해당되지않으면 기본 핵의학과로 보여줌(공통으로뺄것임) - 박재영);
// 	}

	grp_sea.cmb_deptcd.value = suppdeptcd;
	var arrParam 	= [{dsNm: "ds_initexecprcpstatcd", cdGrpId: "M0011"}	
					  ,{dsNm: "ds_init_initprcphistcd", cdGrpId: "M0009"}	
					  ,{dsNm: "ds_init_initpayflagcd", cdGrpId: "M0029"}	
					  ]
	appf_getCodeList(arrParam);		
	
					
	//3개월 전후 검사일 default
	var tempfrom1 = utlf_getCurrentDate().toDate();
	var tempfrom = tempfrom1.getAddDate(-2,"M").getDateFormat("YYYYMMDD");
	grp_sea.ipt_startrsrvdd.value = tempfrom;
	var tempfrom2 = utlf_getCurrentDate();

	grp_sea.ipt_endrsrvdd.value = tempfrom2;
	

	lf_init_SMAEA00400();//그리드 마우스 우클릭	
	
	if (!utlf_isNull(pid)) {
		grp_sea.ipt_pid.value = pid;
	}
	
	if(utlf_isNull(grp_sea.ipt_pid.value) == false)
	{
		grp_sea.btn_sea.click();
	}
	else
	{
		var pamInfoCSV	= sysf_getGlobalVariable("paminfo");//프로그램에 따라 원무정보(paminfo), 환자기본정보(patflag) get
		var gv_pid		= sysf_getGlobalVariable("pid");//글로벌변수로 넘겨준 등록번호값
		var gv_hngnm		= sysf_getGlobalVariable("hngnm");//글로벌변수로 넘겨준 등록번호값

		//원무 정보(기본 정보)가 있는 경우
		if(!utlf_isNull(pamInfoCSV))
		{
			dsf_setCSVToDs("ds_data_paminfo",pamInfoCSV);
			//상단 정보를 이용하여 프로그램 수행
			grp_sea.ipt_pid.value = ds_data_paminfo.getColumn(0, "pid");
			grp_sea.ipt_patnm.value = ds_data_paminfo.getColumn(0, "hngnm");
			grp_sea.btn_sea.click();
		}
		
		//글로벌변수(등록번호)가 있는경우
		if(!utlf_isNull(gv_pid))
		{
			grp_sea.ipt_pid.value = gv_pid;
			grp_sea.ipt_patnm.value = gv_hngnm;
			grp_sea.btn_sea.click();
		}
	}
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_sea
 * Event 		    : onclick
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function btn_sea_onclick(obj:Button, e:ClickEventInfo)
{
	var tpid = grp_sea.ipt_pid.value;
	var tfrdt = grp_sea.ipt_startrsrvdd.value;
	var ttodt = grp_sea.ipt_endrsrvdd.value;
	
	if(utlf_isNull(tpid) == true)
	{
		sysf_messageBox("필수입력사항인 등록번호를 입력해 주십시오.", "I999");
	}
	else if(utlf_isNull(tfrdt) == true && utlf_isNull(ttodt) == false)
	{
		sysf_messageBox("검색하실 날짜 범위의 시작일자를 입력해 주십시오." , "I999");
		grp_sea.ipt_startrsrvdd.setFocus();
	}
	else if(utlf_isNull(tfrdt) == false && utlf_isNull(ttodt) == true)
	{
		sysf_messageBox("검색하실 날짜 범위의 마지막 일자를 입력해 주십시오." , "I999");
		grp_sea.ipt_endrsrvdd.setFocus();
	}
	else
	{
		f_TRAEA00401();
	}

}
/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_excsave
 * Event 		    : onclick
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function btn_excsave_onclick(obj:Button, e:ClickEventInfo)
{
	if(ds_grid_grd_prcphist.getRowCount() <= 0)
	{
		sysf_messageBox("엑셀파일로 저장할 리스트 내역이", "I004");
		return;
	}
	else
	{
		grdf_exportExcel(grd_prcphist, "개인별처방이력", "sheet1");
	}
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : grd_prcphist
 * Event 		    : onrbuttondown
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 그리드 마우스 우클릭시 처방명 클립보드 형태로 복사
 ****************************************************************************************/
function grd_prcphist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	this.ds_grid_grd_prcphist.rowposition = e.row;
	pmn_popupMenu.trackPopup(e.screenX,e.screenY);
}

function lf_init_SMAEA00400()
{
	frmf_createPopupMenu("pmn_popupMenu", "pmn_popupMenu_onmenuclick", [{id: "lf_pidCopy", level: "1", title: "복사하기"}]);
}

function pmn_popupMenu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	lf_pidCopy();
}

function lf_pidCopy()
{
	varCol = ds_grid_grd_prcphist.getColumn(ds_grid_grd_prcphist.rowposition,"excucdnm");
	system.setClipboard("CF_TEXT", varCol);
}

function grd_prcphist_oncolresized(obj:Grid, e:GridSizeChangedEventInfo)
{
	if(e.newvalue == 0){
     obj.setRealColSize(e.subindex, 1);
	}

}



function grp_sea_btn_pidsearch_onclick(obj:Button,  e:ClickEventInfo)
{
	//dsf_createDs("ds_patinfolist");
	dsf_createDsRow("ds_send_srchpid", [{col: "srchpid", 	val:utlf_transNullToEmpty(grp_sea.ipt_pid.value)} 										
 										 ]);
	var objArg = new Object();
	objArg.arg_ds_send = ds_send_srchpid;
	
	// 환자조회화면 호출
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	grp_sea.ipt_pid.value = ds_patinfolist.getColumn(0,"pid");
	grp_sea.ipt_patnm.value = ds_patinfolist.getColumn(0,"hngnm");
}

function grp_sea_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		
		var pid = obj.value;
		if(utlf_isNull(pid)){
			sysf_messageBox("환자를 지정하지", "E007")
			return ;
		}
		dsf_createDsRow("ds_send_req", [{col: "pid", 	val:utlf_transNullToEmpty(pid)} 										
 										 ]);			
		//환자정보 조회
		var oParam = {};
			oParam.id          = "TRAEA00204";
			oParam.service     = "examcurersrvapp.RsrvRef";
			oParam.method      = "reqGetPatInfo";
			oParam.inds        = "req=ds_send_req";
			oParam.outds       = "ds_patinfolist=patinfolist";
			oParam.async       = false;
			oParam.callback    = "cf_TRAEA00204";

		tranf_submit(oParam);
				
		grp_sea.btn_sea.click();
	}
}
function cf_TRAEA00204(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    grp_sea.ipt_patnm.value = ds_patinfolist.getColumn(0,"hngnm");
}
function grp_sea_ipt_patnm_onkeydown(obj:Edit, e:KeyEventInfo)
{
	var _str = grp_sea.ipt_pid.text;
								
	if ( _str.isNumber() == false ) {
		sysf_messageBox("등록번호는 숫자만 입력이 가능합니다.", "I999");
		grp_sea.ipt_pid.value = "";
	}
	grp_sea.btn_sea.click();
}
]]></Script>
  </Form>
</FDL>