YNU_JEUS/app_home/himed/xpapps/lis/plgyacptmngtxp/xp/SPLPJ02500_내시경소견입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPJ02500" position="absolute 0 0 644 424" titletext="내시경소견입력" oninit="SPLPJ02500_oninit" onload="SPLPJ02500_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="내시경소견입력" class="tit_1" position="absolute 0 0 140 25"/>
        <Div id="grp_sea" taborder="1" position="absolute 0 25 643 65" class="div_SA">
          <Layouts>
            <Layout>
              <Static id="caption2" text="처방일자 :" class="search_name" position="absolute 15 12 101 29" anchor="default"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 552 10 558 32" anchor="default"/>
              <Button id="btn_sea" taborder="1" text="조회" class="btn1" position="absolute 575 10 631 32" anchor="default" onclick="grp_sea_btn_sea_onclick"/>
              <Calendar id="ipt_prcphopetodd" taborder="2" class="input_essential" position="absolute 227 12 327 31" anchor="default" dateformat="yyyy-MM-dd"/>
              <Calendar id="ipt_prcphopefromdd" taborder="3" class="input_essential" position="absolute 107 12 207 31" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Static id="caption9" text="~" class="search_n_b" position="absolute 211 13 223 30" anchor="default"/>
              <Edit id="ipt_pid" taborder="4" class="input_essential" position="absolute 439 11 519 30" anchor="default" onkeydown="grp_sea_ipt_pid_onkeydown"/>
              <Static id="caption42" text="등록번호 :" class="search_name" position="absolute 350 12 436 29" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="처방목록" class="tit_2" position="absolute 0 70 120 87"/>
        <Shape id="line1" class="line_10" position="absolute 0 86 643 92"/>
        <Grid id="grd_list" taborder="2" binddataset="ds_main_prtlhislist_item" useinputpanel="false" position="absolute 0 91 643 391" cellsizingtype="both" extendsizetype="row" selecttype="multirow" oncelldblclick="grd_list_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="100"/>
                <Column size="140"/>
                <Column size="100"/>
                <Column size="279"/>
                <Column size="0"/>
                <Column size="0"/>
              </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="진료의"/>
                <Cell col="4" text="처방명"/>
                <Cell col="5" text="reqno"/>
                <Cell col="6" text="formrecseq"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow+1"/>
                <Cell col="1" displaytype="date" style="background:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');background2:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');" text="bind:prcpdd"/>
                <Cell col="2" displaytype="text" style="background:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');background2:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');" text="bind:spcbarcdno"/>
                <Cell col="3" displaytype="text" style="background:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');background2:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');" text="bind:orddrid"/>
                <Cell col="4" displaytype="text" style="background:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');background2:EXPR(formrecseq == 0 ? '#FFFFFF' : '#FFF500');" text="bind:prcpnm"/>
                <Cell col="5" text="bind:reqno"/>
                <Cell col="6" text="bind:formrecseq" enable="true"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Edit id="ipt_execprcpuniqno" taborder="3" class="input_search" visible="false" position="absolute 370 67 450 86" onkeydown="ipt_execprcpuniqno_onkeydown"/>
        <Edit id="ipt_reqno" taborder="4" class="input_search" visible="false" position="absolute 490 67 570 86" onkeydown="ipt_reqno_onkeydown"/>
        <Edit id="ipt_prcpdd" taborder="5" class="input_search" visible="false" position="absolute 270 67 350 86" onkeydown="ipt_prcpdd_onkeydown"/>
        <Button id="btn_confirm1" taborder="6" text="확인" class="btn4" position="absolute 527 396 583 418" onclick="btn_confirm1_onclick"/>
        <Button id="btn_cancel1" taborder="7" text="취소" class="btn4" position="absolute 587 396 643 418" onclick="btn_cancel1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_prtlhislist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="spcbarcdno" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="reqno" type="STRING" size="256"/>
          <Column id="formrecseq" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpdd"/>
            <Col id="spcbarcdno"/>
            <Col id="orddrid"/>
            <Col id="prcpnm"/>
            <Col id="reqno"/>
            <Col id="formrecseq"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcphopefromdd" type="STRING" size="256"/>
          <Column id="prcphopetodd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="reqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcphopefromdd"/>
            <Col id="prcphopetodd"/>
            <Col id="pid"/>
            <Col id="prcpdd"/>
            <Col id="execprcpuniqno"/>
            <Col id="reqno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp" 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"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_prcphopefromdd" propid="value" datasetid="ds_send_baseinfo" columnid="prcphopefromdd"/>
      <BindItem id="item1" compid="grp_sea.ipt_prcphopetodd" propid="value" datasetid="ds_send_baseinfo" columnid="prcphopetodd"/>
      <BindItem id="item2" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send_baseinfo" columnid="pid"/>
      <BindItem id="item3" compid="ipt_prcpdd" propid="value" datasetid="ds_send_baseinfo" columnid="prcpdd"/>
      <BindItem id="item4" compid="ipt_execprcpuniqno" propid="value" datasetid="ds_send_baseinfo" columnid="execprcpuniqno"/>
      <BindItem id="item5" compid="ipt_reqno" propid="value" datasetid="ds_send_baseinfo" columnid="reqno"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode = new HashArray();

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: N/A
 * Description		: 내시경소견입력 formrecseq 업데이트 
 ****************************************************************************************/
function fExeEScopeCmt() {
	ds_send_baseinfo.setColumn(0,"reqno",ds_main_prtlhislist_item.getColumn(ds_main_prtlhislist_item.rowposition, "reqno"));
	var oParam = {};
		oParam.id          = "TXLPJ02501";
		oParam.service     = "plgyacptmngtapp.SpecimenAccept";
		oParam.method      = "reqExeEScopeCmt";
		oParam.inds        = "baseinfo=ds_send_baseinfo";
		oParam.transaction = true;
		oParam.async       = false;
		oParam.callback    = "cf_TXLPJ02501";

	tranf_submit(oParam);
	if(arErrorCode.pop("TXLPJ02501") > -1) {
		sysf_messageBox("저장이  ", "I002");
		fGetEScopeCmt();
	}
}

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

/****************************************************************************************
 * Argument			: N/A
 * Description		: 내시경소견관련 처방 조회 
 ****************************************************************************************/
function fGetEScopeCmt() {
	var oParam = {};
		oParam.id          = "TRLPJ02501";
		oParam.service     = "plgyacptmngtapp.SpecimenAccept";
		oParam.method      = "reqGetEScopeCmt";
		oParam.inds        = "baseinfo=ds_send_baseinfo";
		oParam.outds       = "ds_main_prtlhislist_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRLPJ02501";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRLPJ02501") > -1) {
// 		var nodelist = instance1.selectNodes("ds_main_prtlhislist_item");  
// 		for(var i = 0; i <= nodelist.length; i++){
// 			if(ds_main_prtlhislist_item.getColumn(i, "formrecseq") == "0"){
// 				grd_list.cellstyle("background-color", i, 0, i, 5) = "#FFFFFF";
// 			}else {
// 				grd_list.cellstyle("background-color", i, 0, i, 5) = "#FFF500";
// 			}
// 		}
	}
}

function cf_TRLPJ02501(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    dsf_setDefaultVal(ds_main_prtlhislist_item, "formrecseq:0");
}

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SPLPJ02500
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시 폼초기화
 ****************************************************************************************/
function SPLPJ02500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  		// 폼 초기화 
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SPLPJ02500
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시 폼초기화
 ****************************************************************************************/
function SPLPJ02500_onload(obj:Form, e:LoadEventInfo)
{
	// 등록번호, formrecseq 를 받아서 처방을 조회 함 
	if (frmf_checkOpener()) { //opener 검사
		var param = opener.frmf_getParameter("opener_parameter_id"); //opener parameter value를 get

		if(!utlf_isNull(param)) {  // opener parameter value가 있는 경우
			//parameter value를 이용하여 프로그램 수행
			var condarray = param.split("▦");
			ds_send_baseinfo.setColumn(0,"pid", condarray[0]);
			ds_send_baseinfo.setColumn(0,"prcpdd", condarray[1]);							
			ds_send_baseinfo.setColumn(0,"execprcpuniqno", condarray[2]);
		} 
	}
	
	ds_send_baseinfo.setColumn(0,"prcphopefromdd", utlf_getCurrentDate());
	ds_send_baseinfo.setColumn(0,"prcphopetodd", utlf_getCurrentDate() );
	
	grp_sea.ipt_prcphopefromdd.value = grp_sea.ipt_prcphopefromdd.value.getAddDate(-7,"D").getDateFormat("YYYYMMDD") ;

	fGetEScopeCmt();
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: grp_sea.ipt_pid
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 등록번호 입력 후 조회
 ****************************************************************************************/
function grp_sea_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == 13) {
		obj.updateToDataset();
		grp_sea_btn_sea_onclick();
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: grp_sea.btn_sea
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회
 ****************************************************************************************/
function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetEScopeCmt();
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: ipt_prcpdd
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 
 ****************************************************************************************/
function ipt_prcpdd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == 13) {
		obj.updateToDataset();
		grp_sea_btn_sea_onclick();
	}
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: ipt_execprcpuniqno
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 
 ****************************************************************************************/
function ipt_execprcpuniqno_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == 13) {
		obj.updateToDataset();
		grp_sea_btn_sea_onclick();
	}
}

/****************************************************************************************
 * Components		: Edit
 * Components ID	: ipt_reqno
 * Event			: onkeydown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 
 ****************************************************************************************/
function ipt_reqno_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == 13) {
		obj.updateToDataset();
		grp_sea_btn_sea_onclick();
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: grd_list
 * Event			: oncelldblclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 처방목록 선택
 ****************************************************************************************/
function grd_list_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fExeEScopeCmt(); 
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: grp_sea.btn_sea
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회
 ****************************************************************************************/
function btn_confirm1_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_prtlhislist_item.rowposition > -1 ){
		fExeEScopeCmt(); 
	}else {							
		sysf_messageBox("처방을 먼저 선택하세요","E999");
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_cancel1
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 취소
 ****************************************************************************************/
function btn_cancel1_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>