YNU_JEUS/app_home/himed/xpapps/pam/bfjudgcarexp/xp/SMPPI01300_허가초과비급여약제대상자결과조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI01100" position="absolute 0 0 1167 733" titletext="비급여사용 허가약제조회" oninit="SMPPI01100_oninit" onload="SMPPI01100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 26 1160 724" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 77 1160 698" id="grd_dpcdlist" class="datagrid3" binddataset="ds_grd_dpcdlist" autofittype="none" anchor="all" cellsizingtype="col" autoenter="select" cellclickbound="cell">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="36"/>
                      <Column size="75"/>
                      <Column size="65"/>
                      <Column size="78"/>
                      <Column size="48"/>
                      <Column size="40"/>
                      <Column size="200"/>
                      <Column size="200"/>
                      <Column size="87"/>
                      <Column size="75"/>
                      <Column size="144"/>
                      <Column size="45"/>
                      <Column size="40"/>
                      <Column size="40"/>
                      <Column size="40"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="40"/>
                      <Column size="40"/>
                      <Column size="40"/>
                      <Column size="83"/>
                      <Column size="120"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="52" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="수진자명"/>
                      <Cell col="2" text="주민번호" taborder="undefined"/>
                      <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="IRB승인"/>
                      <Cell col="10" text="투여대상"/>
                      <Cell col="11" text="용량"/>
                      <Cell col="12" text="경로"/>
                      <Cell col="13" text="1회량"/>
                      <Cell col="14" text="횟수"/>
                      <Cell col="15" text="투여개시일"/>
                      <Cell col="16" text="투여종료일"/>
                      <Cell col="17" text="총일수"/>
                      <Cell col="18" text="총사용량"/>
                      <Cell col="19" text="원내&#13;&#10;/원외"/>
                      <Cell col="20" text="치료&#13;&#10;결과"/>
                      <Cell col="21" text="이상&#13;&#10;약물&#13;&#10;반응"/>
                      <Cell col="22" text="소요비용"/>
                      <Cell col="23" text="진료과"/>
                      <Cell col="24" text="flag"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow +1"/>
                      <Cell col="1" displaytype="text" text="bind:hngnm"/>
                      <Cell col="2" displaytype="text" expr="expr:rrgstno"/>
                      <Cell col="3" displaytype="text" text="bind:pid"/>
                      <Cell col="4" displaytype="number" text="bind:page"/>
                      <Cell col="5" displaytype="text" text="bind:preg"/>
                      <Cell col="6" displaytype="text" style="align:left middle;" text="bind:calcnm"/>
                      <Cell col="7" displaytype="text" style="align:left middle;" text="bind:comnm"/>
                      <Cell col="8" displaytype="text" text="bind:tab"/>
                      <Cell col="9" displaytype="date" text="bind:irb"/>
                      <Cell col="10" displaytype="text" text="bind:object"/>
                      <Cell col="11" displaytype="text" text="bind:packvol"/>
                      <Cell col="12" text="bind:path"/>
                      <Cell col="13" displaytype="number" style="align:right middle;" text="bind:calcqty"/>
                      <Cell col="14" displaytype="number" style="align:right middle;" text="bind:calctims"/>
                      <Cell col="15" displaytype="date" text="bind:exec_min" mask="yyyy-MM-dd"/>
                      <Cell col="16" displaytype="date" text="bind:exec_max"/>
                      <Cell col="17" displaytype="number" style="align:right middle;" text="bind:dayno"/>
                      <Cell col="18" displaytype="number" style="align:right middle;" text="bind:totaqty"/>
                      <Cell col="19" displaytype="normal" text="bind:outdrug" combodataset="ds_grd_cmb_outdrug" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="20" displaytype="normal" edittype="normal" text="bind:result"/>
                      <Cell col="21" displaytype="normal" edittype="normal" text="bind:response"/>
                      <Cell col="22" displaytype="number" style="align:right middle;" text="bind:amt"/>
                      <Cell col="23" displaytype="normal" edittype="normal" style="align:left middle;" text="bind:orddeptcd"/>
                      <Cell col="24" text="bind:flag"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="비급여사용 허가약제조회" position="absolute 0 56 294 71" id="cap_judgtrgtman" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 72 1160 78" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Div position="absolute 0 0 1160 40" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout width="1160" height="40">
                    <Button position="absolute 1095 10 1151 32" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 1077 5 1083 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="IRB명 :" position="absolute 8 11 68 28" id="caption30" class="search_name" anchor="default"/>
                    <Static text="처방일자 :" position="absolute 319 11 397 28" id="caption2" class="search_name" anchor="default"/>
                    <Combo position="absolute 67 10 312 29" id="cmb_seq" enable="true" innerdataset="@ds_hidden_obpvlist" datacolumn="valunm" codecolumn="valucd" anchor="default" onitemchanged="grp_biz_group1_combo1_onitemchanged"/>
                    <Calendar position="absolute 396 10 511 29" id="ipt_fromdd" enable="true" mask="yyyy-mm-dd" anchor="default" onkeydown="grp_biz_group1_input2_onkeydown" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup"/>
                    <Calendar id="ipt_todd" taborder="33" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 535 10 650 29" mask="yyyy-mm-dd" onkeyup="grp_biz_group1_ipt_todd_onkeyup"/>
                    <Static id="Static00" text="~" position="absolute 514 9 532 29" style="align:center middle;"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 1080 52 1160 71" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_btn_excelsave_onclick"/>
              <Static id="caption30" text="제형 :" class="search_name" position="absolute 264 52 314 69" anchor="left top"/>
              <Static id="caption00" text="IRB승인일자 :" class="search_name" position="absolute 416 52 521 69" anchor="left top"/>
              <Static id="caption01" text="경로 :" class="search_name" position="absolute 632 52 688 69" anchor="left top"/>
              <Edit id="ipt_tabnm" taborder="1" position="absolute 311 51 411 71" anchor="left top" autoselect="true" value="정제(tablet)"/>
              <Edit id="ipt_path" taborder="2" position="absolute 679 51 779 71" anchor="left top" autoselect="true" value="P.O"/>
              <Calendar id="ipt_irbdd" taborder="3" onkeydown="grp_biz_group1_input2_onkeydown" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" position="absolute 508 51 623 70" mask="yyyy-mm-dd" anchor="left top" autoselect="true"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="비급여사용 허가약제조회" class="tit_1" position="absolute 0 0 272 26"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_dpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hngnm" type="STRING"/>
          <Column id="rrgstno1" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="sex" type="STRING"/>
          <Column id="regmcd" type="STRING"/>
          <Column id="cncrkind" type="STRING"/>
          <Column id="cncrdetl" type="STRING"/>
          <Column id="antichem" type="STRING"/>
          <Column id="drugtrgt" type="STRING"/>
          <Column id="drugstage" type="STRING"/>
          <Column id="drugregm" type="STRING"/>
          <Column id="paydetl" type="STRING"/>
          <Column id="etcdetl" type="STRING"/>
          <Column id="fromdd" type="STRING"/>
          <Column id="todd" type="STRING"/>
          <Column id="useyn" type="STRING"/>
          <Column id="fstrgstrid" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrid" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_bfaclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="valucd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="irbdd" type="STRING" size="256"/>
          <Column id="path" type="STRING" size="256"/>
          <Column id="tabnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="tabnm"/>
            <Col id="path"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_obpvlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_grd_cmb_outdrug" 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>
        <Rows>
          <Row>
            <Col id="cdid">1</Col>
            <Col id="cdnm">원내</Col>
          </Row>
          <Row>
            <Col id="cdid">2</Col>
            <Col id="cdnm">원외</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.group1.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item1" compid="grp_biz.group1.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item2" compid="grp_biz.group1.cmb_seq" propid="value" datasetid="ds_send" columnid="valucd"/>
      <BindItem id="item3" compid="grp_biz.ipt_irbdd" propid="value" datasetid="ds_send" columnid="irbdd"/>
      <BindItem id="item4" compid="grp_biz.ipt_tabnm" propid="value" datasetid="ds_send" columnid="tabnm"/>
      <BindItem id="item5" compid="grp_biz.ipt_path" propid="value" datasetid="ds_send" columnid="path"/>
    </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";

var lgv_hscroll_pos = 0; 
var lgv_vscroll_pos = 0; 

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

function SMPPI01100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_dpcdlist);
	grdf_setToolTipBind(grp_biz.grd_dpcdlist);
	//grdf_setRowTypeIcon(grp_biz.grd_dpcdlist, 0);
	fInitialize();
}

function fInitialize(){
// 	var arrParam1 = new Array();
// 		arrParam1 = [{dsNm: "ds_init_combo1", cdGrpId: "M0010", showValue: false}];
// 		appf_getCodeList(arrParam1, true, ""); //비동기
	var fromdd = utlf_getCurrentDate();
	fromdd = fromdd.toDate().getAddDate(-1, "Y").getDateFormat();
							  
	ds_send.setColumn(0,"fromdd", String(fromdd).substr(0,4) + "0501");
	ds_send.setColumn(0,"todd", utlf_getCurrentDate());
	
	dsf_createDsRow("ds_send1", [{col:"instcd", type:"STRING", size:256, val: sysf_getUserInfo("dutplceinstcd")}
//  							  ,  {col:"diagcd", type:"STRING", size:256, val: grp_biz.group1.ipt_diagcd.value}
//  							  ,  {col:"calcscorcd", type:"STRING", size:256, val: grp_biz.group1.ipt_calcscorcd.value}
// 							  ,  {col:"aprvdd", type:"STRING", size:256, val: grp_biz.group1.ipt_aprvdd.value}
// 							  ,  {col:"aprvnm", type:"STRING", size:256, val: grp_biz.group1.ipt_aprvnm.value}
// 							  ,  {col:"judgrid", type:"STRING", size:256, val: grp_biz.group1.cmd_judgrid.value}
							  ]);
							  
	var oParam = {};
		oParam.id          = "TRPID31100";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetPidmobpvList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_hidden_obpvlist=obpv";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20202";

	tranf_submit(oParam);
	
	ds_hidden_obpvlist.filter("String(valucd).indexOf('IRB_') > -1");
	
	//fGetDocuList();
}

function cf_TRPPI01001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function fGetDocuList(){

	lgv_hscroll_pos = grp_biz.grd_dpcdlist.hscrollbar.pos;
	lgv_vscroll_pos = grp_biz.grd_dpcdlist.vscrollbar.pos;
	
	var oParam = {};
		oParam.id          = "TRPPI01300";
		oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
		oParam.method      = "reqGetAppAnticncrRsltList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_dpcdlist=rslt";
		oParam.async       = false;
		oParam.callback    = "cf_TRPPI01300";

	tranf_submit(oParam);
}

function cf_TRPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
//     ds_grd_dpcdlist.updatecontrol = false;
//     for (var i=0, rowcnt= ds_grd_dpcdlist.rowcount; i < rowcnt; i++) {
// 		
// 		if (ds_grd_dpcdlist.getColumn(i,"flag") == "I") {
// 			ds_grd_dpcdlist.setRowType(i, 2)
// 		} else {
// 			ds_grd_dpcdlist.setRowType(i, 1)
// 		}
//     } 
//     ds_grd_dpcdlist.updatecontrol = true;
    
    grp_biz.grd_dpcdlist.hscrollbar.pos = lgv_hscroll_pos;
	grp_biz.grd_dpcdlist.vscrollbar.pos = lgv_vscroll_pos;
}


function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_dpcdlist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_dpcdlist, grp_biz.cap_judgtrgtman.text , "see");
	}else{
		sysf_messageBox("엑셀저장할 내역이", "I004");	
	}	
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function grp_biz_group1_ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var frow = ds_hidden_obpvlist.findRowExpr("valucd=='" + obj.value + "'");
	if (frow > -1) {
		grp_biz.ipt_tabnm.value = ds_hidden_obpvlist.getColumn(frow, "pvod1");
		grp_biz.ipt_irbdd.value = ds_hidden_obpvlist.getColumn(frow, "pvod2");
		grp_biz.ipt_path.value = ds_hidden_obpvlist.getColumn(frow, "pvod3");
	}
	
}


function grp_biz_group1_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz_group1_btn_select_onclick();
	}
}


function cf_TXPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
	fGetDocuList();
}

]]></Script>
  </Form>
</FDL>