YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SMPIJ04100_심사완료후처방변경현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIJ04100" position="absolute 0 0 1106 761" titletext="심사완료후 처방변경 현황" oninit="SMPIJ04100_oninit" onload="SMPIJ04100_onload">
    <Layouts>
      <Layout>
        <Div id="div1" taborder="1" position="absolute 3 1 1101 52" class="div_SA2" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="구분 :" class="search_name" position="absolute 15 19 63 35" anchor="default"/>
              <Radio id="rdo_stat" taborder="1" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" onitemclick="rdo_stat_onitemclick" position="absolute 72 17 202 37" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">A</Col>
                      <Col id="datacolumn">재원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">D</Col>
                      <Col id="datacolumn">퇴원</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Calendar id="ipt_fromdd" taborder="2" class="input_search" position="absolute 209 17 315 36" mask="yyyy-mm-dd" anchor="default"/>
              <Static id="caption4" text="~" position="absolute 324 12 347 42" anchor="default"/>
              <Calendar id="ipt_todd" taborder="3" class="input_search" position="absolute 340 17 446 36" mask="yyyy-mm-dd" anchor="default"/>
              <Static id="caption5" text="등록번호 :" class="search_name" position="absolute 498 19 584 36" anchor="default"/>
              <Edit id="ipt_pid" taborder="4" onkeydown="ipt_pid_onkeydown" class="input_search" position="absolute 590 17 686 36" anchor="default"/>
              <Button id="btn_srch" taborder="5" text="조회" onclick="btn_srch_onclick" class="btn1" position="absolute 1013 13 1069 35" anchor="top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="심사 완료 후 처방변경 현황" position="absolute 4 59 229 80" align="align:center middle;" id="caption3" class="tit_2"/>
        <Shape position="absolute 3 75 1100 81" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" onclick="line1_onclick" anchor="left top right"/>
        <Static text="처방 변경 내역" position="absolute 4 235 122 256" align="align:center middle;" id="caption6" class="tit_2"/>
        <Shape position="absolute 4 251 1101 257" linetype="horizontal" id="line2" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Grid position="absolute 3 80 1100 226" id="grd_chgpat" binddataset="ds_grd_chgpat" autofittype="col" oncelldblclick="grd_chgpat_oncelldblclick" anchor="left top right" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="71"/>
                <Column size="71"/>
                <Column size="80"/>
                <Column size="26"/>
                <Column size="48"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="34"/>
                <Column size="34"/>
                <Column size="70"/>
                <Column size="69"/>
                <Column size="69"/>
                <Column size="109"/>
                <Column size="34"/>
                <Column size="97"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="35" 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="상태"/>
                <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="최종심사자"/>
                <Cell col="14" text="심사완료일시"/>
                <Cell col="15" text="생성"/>
                <Cell col="16" text="최종 처방변경일"/>
                <Cell col="17" text="cretno"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:patnm"/>
                <Cell col="3" displaytype="date" edittype="date" text="bind:indd" mask="yyyy-MM-dd"/>
                <Cell col="4" text="bind:mskind"/>
                <Cell col="5" text="bind:indschstat"/>
                <Cell col="6" displaytype="date" edittype="date" text="bind:dschdd" mask="yyyy-MM-dd"/>
                <Cell col="7" displaytype="date" edittype="date" text="bind:fromdd" mask="yyyy-MM-dd"/>
                <Cell col="8" displaytype="date" edittype="date" text="bind:todd" mask="yyyy-MM-dd"/>
                <Cell col="9" text="bind:insukind"/>
                <Cell col="10" text="bind:suppkind"/>
                <Cell col="11" displaytype="combo" edittype="combo" style="align:center;" text="bind:dschjudgprcsstat" combodataset="ds_item" combocodecol="value" combodatacol="label" enable="false"/>
                <Cell col="12" text="bind:judgmdlnm"/>
                <Cell col="13" text="bind:lastjudgendnm"/>
                <Cell col="14" displaytype="date" edittype="date" text="bind:judgdt" mask="yyyy-MM-dd hh:mm"/>
                <Cell col="15" text="bind:clamyn"/>
                <Cell col="16" displaytype="date" edittype="date" text="bind:judgchgdd" mask="yyyy-MM-dd"/>
                <Cell col="17" text="bind:cretno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid position="absolute 4 256 1101 751" id="grd_chgiscl" binddataset="ds_grd_chgiscl" autofittype="col" anchor="all" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="50"/>
                <Column size="40"/>
                <Column size="82"/>
                <Column size="73"/>
                <Column size="73"/>
                <Column size="235"/>
                <Column size="91"/>
                <Column size="43"/>
                <Column size="40"/>
                <Column size="34"/>
                <Column size="34"/>
                <Column size="50"/>
                <Column size="40"/>
                <Column size="34"/>
                <Column size="34"/>
                <Column size="50"/>
                <Column size="71"/>
              </Columns>
              <Rows>
                <Row size="41" 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="수가코드"/>
                <Cell col="6" text="처방명"/>
                <Cell col="7" text="실시일자"/>
                <Cell col="8" text="실시&#10;시간"/>
                <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="금액"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="currow + 1"/>
                <Cell col="1" text="bind:calcyn"/>
                <Cell col="2" text="bind:calcstat"/>
                <Cell col="3" displaytype="date" edittype="date" text="bind:prcpdd" mask="yyyy-MM-dd"/>
                <Cell col="4" text="bind:grupcalcscorcd"/>
                <Cell col="5" text="bind:snglcalcscorcd"/>
                <Cell col="6" text="bind:hngnm"/>
                <Cell col="7" displaytype="date" edittype="date" text="bind:execdd" mask="yyyy-MM-dd"/>
                <Cell col="8" displaytype="date" edittype="date" text="bind:exectm" mask="hh:mm"/>
                <Cell col="9" text="bind:ordqty"/>
                <Cell col="10" text="bind:ordtims"/>
                <Cell col="11" text="bind:orddays"/>
                <Cell col="12" text="bind:prcppayflag"/>
                <Cell col="13" text="bind:calcqty"/>
                <Cell col="14" text="bind:calctims"/>
                <Cell col="15" text="bind:calcdays"/>
                <Cell col="16" text="bind:calcpayflag"/>
                <Cell col="17" displaytype="number" text="bind:amt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_chgpat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="indd" type="STRING"/>
          <Column id="mskind" type="STRING"/>
          <Column id="indschstat" type="STRING"/>
          <Column id="dschdd" type="STRING"/>
          <Column id="fromdd" type="STRING"/>
          <Column id="todd" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="suppkind" type="STRING"/>
          <Column id="dschjudgprcsstat" type="STRING"/>
          <Column id="judgmdlnm" type="STRING"/>
          <Column id="lastjudgendnm" type="STRING"/>
          <Column id="judgdt" type="STRING"/>
          <Column id="clamyn" type="STRING"/>
          <Column id="judgchgdd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_chgiscl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="calcyn" type="STRING"/>
          <Column id="calcstat" type="STRING"/>
          <Column id="prcpdd" type="STRING"/>
          <Column id="grupcalcscorcd" type="STRING"/>
          <Column id="snglcalcscorcd" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="execdd" type="STRING"/>
          <Column id="exectm" type="STRING"/>
          <Column id="ordqty" type="STRING"/>
          <Column id="ordtims" type="STRING"/>
          <Column id="orddays" type="STRING"/>
          <Column id="prcppayflag" type="STRING"/>
          <Column id="calcqty" type="STRING"/>
          <Column id="calctims" type="STRING"/>
          <Column id="calcdays" type="STRING"/>
          <Column id="calcpayflag" type="STRING"/>
          <Column id="amt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_stat" 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">재원</Col>
            <Col id="value">A</Col>
          </Row>
          <Row>
            <Col id="value">D</Col>
            <Col id="label">퇴원</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_stat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stat" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="stat">A</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_item" 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">미심</Col>
            <Col id="value">A</Col>
          </Row>
          <Row>
            <Col id="label">심사중</Col>
            <Col id="value">B</Col>
          </Row>
          <Row>
            <Col id="label">완료</Col>
            <Col id="value">C</Col>
          </Row>
          <Row>
            <Col id="label">통합</Col>
            <Col id="value">E</Col>
          </Row>
          <Row>
            <Col id="label">예고</Col>
            <Col id="value">G</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="div1.rdo_stat" propid="value" datasetid="ds_send_stat" columnid="stat"/>
      <BindItem id="item1" compid="div1.ipt_fromdd" propid="value" datasetid="ds_send_stat" columnid="fromdd"/>
      <BindItem id="item2" compid="div1.ipt_todd" propid="value" datasetid="ds_send_stat" columnid="todd"/>
      <BindItem id="item3" compid="div1.ipt_pid" propid="value" datasetid="ds_send_stat" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";

function SMPIJ04100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIJ04100_onload(obj:Form, e:LoadEventInfo)
{
	var dd = utlf_getCurrentDate();
	ds_send_stat.setColumn(0, "fromdd", (dd.toDate().getAddDate(-1, "D")).getDateFormat());
	ds_send_stat.setColumn(0, "todd", (dd.toDate().getAddDate(-1, "D")).getDateFormat());
	div1.ipt_fromdd.enable = false;
	div1.ipt_todd.enable = false;
}

function rdo_stat_onitemclick(obj:Radio, e:RadioMouseEventInfo)
{
	if (div1.rdo_stat.value == "A") {
		div1.ipt_fromdd.enable = true;
		div1.ipt_todd.enable = true;
	}
	else if (div1.rdo_stat.value == "D") {
		div1.ipt_fromdd.enable = false;
		div1.ipt_todd.enable = false;
		var dd = utlf_getCurrentDateTime();
	}	
}

function ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		ds_send_stat.setColumn(0, "pid", div1.ipt_pid.text);
		btn_srch_onclick();
		
	}
}

function btn_srch_onclick(obj:Button,  e:ClickEventInfo)
{						
	var oParam = {};
		oParam.id          = "TRPIJ04100";
		oParam.service     = "bfjudgapp.InHospJudg";
		oParam.method      = "reqGetJudgEndChgPat";
		oParam.inds        = "req=ds_send_stat";
		oParam.outds       = "ds_grd_chgpat=gridchgpat";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ04100";

	tranf_submit(oParam);
}

function grd_chgpat_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var currow = ds_grd_chgpat.rowposition;
	dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256, val: ds_grd_chgpat.getColumn(currow, "pid")}
					          , {col:"indd", type:"STRING", size:256 , val: ds_grd_chgpat.getColumn(currow, "indd")}
					          , {col:"cretno", type:"STRING", size:256 ,val: ds_grd_chgpat.getColumn(currow, "cretno")}
					          , {col:"fromdd", type:"STRING", size:256 ,val: ds_grd_chgpat.getColumn(currow, "fromdd")}
					          , {col:"todd", type:"STRING", size:256 ,val: ds_grd_chgpat.getColumn(currow, "todd")}
					          , {col:"dschjudgprcsstat", type:"STRING", size:256 ,val: ds_grd_chgpat.getColumn(currow, "dschjudgprcsstat")}
					          , {col:"judgdt", type:"STRING", size:256 ,val: ds_grd_chgpat.getColumn(currow, "judgdt")}]);			
					          
	var oParam = {};
		oParam.id          = "TRPIJ04101";
		oParam.service     = "bfjudgapp.InHospJudg";
		oParam.method      = "reqGetJudgEndChgIscl";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_chgiscl=gridchgiscl";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ04101";

	tranf_submit(oParam);	
}
]]></Script>
  </Form>
</FDL>