YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID35100_고혈압적정성평가조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI01100" position="absolute 0 0 1161 733" titletext="고혈압 적정성 평가 조회" oninit="SMPPI01100_oninit" onload="SMPPI01100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 26 1161 732" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 0 1160 41" 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="5" 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="진료개시일 :" position="absolute 183 13 268 30" id="caption2" class="search_name" anchor="default" usedecorate="false" visible="false"/>
                    <Calendar position="absolute 274 13 389 32" 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" onchanged="grp_biz_group1_ipt_fromdd_onchanged" autoselect="true" taborder="2" visible="false"/>
                    <Calendar id="ipt_todd" taborder="3" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 414 13 529 32" mask="yyyy-mm-dd" onkeyup="grp_biz_group1_ipt_todd_onkeyup" autoselect="true" anchor="default" visible="false"/>
                    <Static id="Static00" text="~" position="absolute 393 13 411 33" style="align:center middle;" anchor="default" visible="false"/>
                    <Static id="caption05" text="환자번호 :" class="search_name" position="absolute 552 13 625 30" anchor="default"/>
                    <Edit id="Edit00" position="absolute 632 13 732 33" imemode="alpha" autoselect="true" useime="none" onkeydown="grp_biz_group1_Edit00_onkeydown" anchor="default" taborder="4"/>
                    <Static id="caption00" text="청구년월 :" class="search_name" position="absolute 6 13 91 30"/>
                    <cp_monthCal id="ipt_clamym" titletext="monthCalendar" taborder="6" text="cp_monthCal00" scrollbars="none" position="absolute 87 12 162 32" anchor="left top"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button id="btn_excelsave" taborder="4" text="엑셀저장" onclick="grp_biz_btn_excelsave_onclick" class="btn7" position="absolute 1078 49 1158 68" anchor="top right"/>
              <Grid id="grd_dpcdlist" class="datagrid3" taborder="5" binddataset="ds_grd_dpcdlist" autoenter="select" useinputpanel="false" cellsizingtype="both" cellclickbound="control" position="absolute 0 70 1158 705" anchor="all" autosizingtype="row" extendsizetype="row" cellmovingtype="none">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="40"/>
                      <Column size="80"/>
                      <Column size="35"/>
                      <Column size="65"/>
                      <Column size="30"/>
                      <Column size="80"/>
                      <Column size="30"/>
                      <Column size="30"/>
                      <Column size="110"/>
                      <Column size="80"/>
                      <Column size="200"/>
                      <Column size="75"/>
                      <Column size="30"/>
                      <Column size="30"/>
                      <Column size="100"/>
                      <Column size="30"/>
                      <Column size="90"/>
                      <Column size="35"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="35"/>
                      <Column size="35"/>
                      <Column size="35"/>
                      <Column size="200"/>
                      <Column size="110"/>
                      <Column size="35"/>
                      <Column size="75"/>
                      <Column size="40"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="150"/>
                      <Column size="80"/>
                      <Column size="150"/>
                    </Columns>
                    <Rows>
                      <Row size="53" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="no."/>
                      <Cell col="1" displaytype="normal" text="청구년월"/>
                      <Cell col="2" displaytype="normal" text="차수"/>
                      <Cell col="3" displaytype="normal" text="환자번호"/>
                      <Cell col="4" displaytype="normal" text="순번"/>
                      <Cell col="5" displaytype="normal" text="환자명"/>
                      <Cell col="6" displaytype="normal" text="보험"/>
                      <Cell col="7" displaytype="normal" text="보조"/>
                      <Cell col="8" displaytype="normal" text="진료과"/>
                      <Cell col="9" displaytype="normal" text="진료의"/>
                      <Cell col="10" displaytype="normal" text="고혈압상병"/>
                      <Cell col="11" displaytype="normal" text="진료개시일"/>
                      <Cell col="12" displaytype="normal" text="나이"/>
                      <Cell col="13" displaytype="normal" text="성별"/>
                      <Cell col="14" displaytype="normal" text="사망일시"/>
                      <Cell col="15" displaytype="normal" text="과거&#13;&#10;처방&#13;&#10;여부"/>
                      <Cell col="16" displaytype="normal" text="교부번호"/>
                      <Cell col="17" displaytype="normal" text="줄&#13;&#10;번&#13;&#10;호"/>
                      <Cell col="18" displaytype="normal" text="수가코드"/>
                      <Cell col="19" displaytype="normal" text="EDI코드"/>
                      <Cell col="20" displaytype="normal" text="1회량"/>
                      <Cell col="21" displaytype="normal" text="횟수"/>
                      <Cell col="22" displaytype="normal" text="일수"/>
                      <Cell col="23" displaytype="normal" text="약제명"/>
                      <Cell col="24" displaytype="normal" text="제조회사명"/>
                      <Cell col="25" displaytype="normal" text="분류&#13;&#10;번호"/>
                      <Cell col="26" displaytype="normal" text="일반명코드"/>
                      <Cell col="27" displaytype="normal" text="복합제&#13;&#10;여부"/>
                      <Cell col="28" displaytype="normal" text="성분군1"/>
                      <Cell col="29" displaytype="normal" text="성분군2"/>
                      <Cell col="30" displaytype="normal" text="성분군3"/>
                      <Cell col="31" displaytype="normal" text="이뇨제_THZD"/>
                      <Cell col="32" displaytype="normal" text="이뇨제_LOOP"/>
                      <Cell col="33" displaytype="normal" text="이뇨제_KSP"/>
                      <Cell col="34" displaytype="normal" text="이뇨제_기타"/>
                      <Cell col="35" displaytype="normal" text="베타차단제"/>
                      <Cell col="36" displaytype="normal" text="알파차단제"/>
                      <Cell col="37" displaytype="normal" text="ACEI"/>
                      <Cell col="38" displaytype="normal" text="ARB"/>
                      <Cell col="39" displaytype="normal" text="CCB_DHP"/>
                      <Cell col="40" displaytype="normal" text="CCB_NDHP"/>
                      <Cell col="41" displaytype="normal" text="중추신경계 작용약물"/>
                      <Cell col="42" displaytype="normal" text="혈관확장제"/>
                      <Cell col="43" displaytype="normal" text="병용요법"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow +1"/>
                      <Cell col="1" displaytype="date" text="bind:clamym" autosizerow="limitmin"/>
                      <Cell col="2" displaytype="text" text="bind:clamdg" autosizerow="limitmin"/>
                      <Cell col="3" displaytype="text" text="bind:pid" autosizerow="limitmin"/>
                      <Cell col="4" displaytype="normal" text="bind:pidsn" autosizerow="limitmin"/>
                      <Cell col="5" displaytype="text" text="bind:patnm" autosizerow="limitmin"/>
                      <Cell col="6" displaytype="text" text="bind:insukind" autosizerow="limitmin"/>
                      <Cell col="7" displaytype="text" text="bind:suppkind" autosizerow="limitmin"/>
                      <Cell col="8" displaytype="normal" style="align:left middle;" text="bind:orddeptnm" autosizerow="limitmin"/>
                      <Cell col="9" displaytype="text" text="bind:orddrnm" autosizerow="limitmin"/>
                      <Cell col="10" displaytype="text" text="bind:diagcd" autosizerow="limitmin"/>
                      <Cell col="11" displaytype="date" text="bind:ordfromdd" autosizerow="limitmin"/>
                      <Cell col="12" displaytype="normal" text="bind:patage" autosizerow="limitmin"/>
                      <Cell col="13" displaytype="normal" text="bind:gender" autosizerow="limitmin"/>
                      <Cell col="14" displaytype="normal" text="bind:dethdt" autosizerow="limitmin"/>
                      <Cell col="15" displaytype="normal" text="bind:beforeyn" autosizerow="limitmin"/>
                      <Cell col="16" displaytype="text" text="bind:mpsno" autosizerow="limitmin"/>
                      <Cell col="17" displaytype="number" text="bind:edilnno" autosizerow="limitmin"/>
                      <Cell col="18" displaytype="text" text="bind:snglcalcscorcd" autosizerow="limitmin"/>
                      <Cell col="19" displaytype="text" text="bind:edicd" autosizerow="limitmin"/>
                      <Cell col="20" displaytype="number" text="bind:edidrugqty" autosizerow="limitmin"/>
                      <Cell col="21" displaytype="number" text="bind:drugtims" autosizerow="limitmin"/>
                      <Cell col="22" displaytype="number" text="bind:edidrugdayno" autosizerow="limitmin"/>
                      <Cell col="23" displaytype="text" style="align:left middle;" text="bind:drugnm" autosizerow="limitmin"/>
                      <Cell col="24" displaytype="text" style="align:left middle;" text="bind:productnm" autosizerow="limitmin"/>
                      <Cell col="25" displaytype="text" text="bind:kindcd" autosizerow="limitmin"/>
                      <Cell col="26" displaytype="text" style="align:left middle;" text="bind:sungbuncd" autosizerow="limitmin"/>
                      <Cell col="27" displaytype="normal" text="bind:multiyn" autosizerow="limitmin"/>
                      <Cell col="28" displaytype="text" text="bind:sbkind1" autosizerow="limitmin"/>
                      <Cell col="29" displaytype="text" text="bind:sbkind2" autosizerow="limitmin"/>
                      <Cell col="30" displaytype="text" text="bind:sbkind3" autosizerow="limitmin"/>
                      <Cell col="31" displaytype="text" text="bind:sungbun1" autosizerow="limitmin"/>
                      <Cell col="32" displaytype="text" text="bind:sungbun2" autosizerow="limitmin"/>
                      <Cell col="33" displaytype="text" text="bind:sungbun3" autosizerow="limitmin"/>
                      <Cell col="34" displaytype="text" text="bind:sungbun4" autosizerow="limitmin"/>
                      <Cell col="35" displaytype="text" text="bind:sungbun5" autosizerow="limitmin"/>
                      <Cell col="36" displaytype="text" text="bind:sungbun6" autosizerow="limitmin"/>
                      <Cell col="37" displaytype="text" text="bind:sungbun7" autosizerow="limitmin"/>
                      <Cell col="38" displaytype="text" text="bind:sungbun8" autosizerow="limitmin"/>
                      <Cell col="39" displaytype="text" text="bind:sungbun9" autosizerow="limitmin"/>
                      <Cell col="40" displaytype="text" text="bind:sungbun10" autosizerow="limitmin"/>
                      <Cell col="41" displaytype="text" text="bind:sungbun11" autosizerow="limitmin"/>
                      <Cell col="42" displaytype="text" text="bind:sungbun12" autosizerow="limitmin"/>
                      <Cell col="43" displaytype="text" text="bind:methodkind" autosizerow="limitmin"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static id="cap_judgtrgtman" text="고혈압 적정성 평가 대상자" onclick="cap_diag_onclick" class="tit_2" position="absolute 0 52 192 72" anchor="left top"/>
              <Button id="btn_cretrslt" taborder="6" text="생성로그확인" onclick="grp_biz_btn_cretrslt_onclick" class="btn2" position="absolute 855 49 952 68" anchor="top right" style="align:center ;"/>
              <Button id="button1" taborder="7" text="대상자수집 실행" onclick="grp_biz_button1_onclick" class="btn4" position="absolute 953 49 1077 68" anchor="top right"/>
            </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" oncolumnchanged="ds_grd_dpcdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="255"/>
          <Column id="clamdg" type="BIGDECIMAL" size="255"/>
          <Column id="pid" type="STRING" size="255"/>
          <Column id="pidsn" type="BIGDECIMAL" size="255"/>
          <Column id="patnm" type="STRING" size="255"/>
          <Column id="insukind" type="STRING" size="255"/>
          <Column id="suppkind" type="STRING" size="255"/>
          <Column id="orddeptnm" type="STRING" size="255"/>
          <Column id="orddrnm" type="STRING" size="255"/>
          <Column id="diagcd" type="STRING" size="255"/>
          <Column id="ordfromdd" type="STRING" size="255"/>
          <Column id="patage" type="BIGDECIMAL" size="255"/>
          <Column id="gender" type="STRING" size="255"/>
          <Column id="dethdt" type="STRING" size="255"/>
          <Column id="beforeyn" type="STRING" size="255"/>
          <Column id="mpsno" type="STRING" size="255"/>
          <Column id="edilnno" type="BIGDECIMAL" size="255"/>
          <Column id="snglcalcscorcd" type="STRING" size="255"/>
          <Column id="edicd" type="STRING" size="255"/>
          <Column id="edidrugqty" type="BIGDECIMAL" size="255"/>
          <Column id="drugtims" type="BIGDECIMAL" size="255"/>
          <Column id="edidrugdayno" type="BIGDECIMAL" size="255"/>
          <Column id="drugnm" type="STRING" size="255"/>
          <Column id="productnm" type="STRING" size="255"/>
          <Column id="kindcd" type="STRING" size="255"/>
          <Column id="sungbuncd" type="STRING" size="255"/>
          <Column id="multiyn" type="STRING" size="255"/>
          <Column id="sbkind1" type="STRING" size="255"/>
          <Column id="sbkind2" type="STRING" size="255"/>
          <Column id="sbkind3" type="STRING" size="255"/>
          <Column id="sungbun1" type="STRING" size="255"/>
          <Column id="sungbun2" type="STRING" size="255"/>
          <Column id="sungbun3" type="STRING" size="255"/>
          <Column id="sungbun4" type="STRING" size="255"/>
          <Column id="sungbun5" type="STRING" size="255"/>
          <Column id="sungbun6" type="STRING" size="255"/>
          <Column id="sungbun7" type="STRING" size="255"/>
          <Column id="sungbun8" type="STRING" size="255"/>
          <Column id="sungbun9" type="STRING" size="255"/>
          <Column id="sungbun10" type="STRING" size="255"/>
          <Column id="sungbun11" type="STRING" size="255"/>
          <Column id="sungbun12" type="STRING" size="255"/>
          <Column id="methodkind" type="STRING" size="255"/>
        </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="instcd" 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"/>
          <Column id="clamym" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </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="item8" compid="grp_biz.group1.Edit00" propid="value" datasetid="ds_send" 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";

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_setRowTypeIcon(grp_biz.grd_dpcdlist, 0);
	grdf_setToolTipBind(grp_biz.grd_dpcdlist);	
	
	var oParam = {};
	oParam.id          = "TRPIJ00203";
	oParam.service     = "bfjudgapp.InHospJudgTrgtMan";
	oParam.method      = "reqGetDeptList";
	oParam.inds        = "req=ds_send";
	oParam.outds       = "ds_init_cmb_orddeptcd=deptlist";
	oParam.async       = true;

	tranf_submit(oParam);
	
	//ds_init_cmb_orddeptcd.keystring = "S:depthngnm";
	
	fInitialize();
}

function fInitialize(){
	var mm = utlf_getCurrentDate().toDate().getAddDate(-1,"M").getDateFormat("YYYYMMDD");		
	var lastdate = utlf_lastDateNum(mm)			

	ds_send.setColumn(0,"instcd", sysf_getUserInfo("dutplceinstcd") );
	ds_send.setColumn(0,"fromdd", mm.substr(0,6) + '01');
	ds_send.setColumn(0,"todd", mm.substr(0,6) + lastdate);
	ds_send.setColumn(0,"clamym", mm.substr(0,6));
	grp_biz.group1.ipt_clamym.setData(mm.substr(0,6));
	
	grp_biz.group1.ipt_clamym.setCallEvent("fn_ipt_clamym_Event");
	//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     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetHbpPrvnList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_dpcdlist=rsltlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPPI01300";

	tranf_submit(oParam);
}

function cf_TRPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    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_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz.group1.ipt_todd.setFocus();
		//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 grp_biz_group1_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	grp_biz.group1.ipt_todd.value = e.postvalue;
}

function grp_biz_group1_Edit00_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz.group1.btn_select.setFocus();
		grp_biz_group1_btn_select_onclick();
	}
}


function fn_ipt_clamym_Event(aa)
{
	ds_send.setColumn(0,"clamym",grp_biz.group1.ipt_clamym.getData());

}

function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIJ04201";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqExeHbpPrvnTrgtBatch";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_chklist=chklist";
		oParam.async       = false;
		oParam.force       = true;
		//oParam.callback    = "cf_TRPIJ04201";

	tranf_submit(oParam);
	
	grp_biz.btn_cretrslt.click();
}

function grp_biz_btn_cretrslt_onclick(obj:Button,  e:ClickEventInfo)
{
	var todd = utlf_getCurrentDate();
	todd = todd.toDate().getAddDate(+1, "D").getDateFormat();
	
	var objArg = new Object();
		objArg.todd = todd;	
		objArg.execrid = sysf_getUserId();
		objArg.prgmid = "HbpPrvnTrgtBatch";
		
	frmf_open("SPZSB00301", "SPZSB00301", objArg, "","","","","","","","","","M");
}
]]></Script>
  </Form>
</FDL>