YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID20900_환자단위최근삭감내역조회.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml" />
  <Form id="SMPID20900" position="absolute 0 0 1280 1024" titletext="환자단위 최근삭감내역 조회" onload="SMPID20900_onload">
    <Layouts>
      <Layout>
        <Div id="group1" position="absolute 0 0 850 13" style="">
          <Layouts>
            <Layout>
              <Static id="caption6" class="tit_1" position="absolute 0 0 181 13" style="" text="환자단위 최근삭감내역 조회" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group3" scrollbars="autoboth" position="absolute 0 13 850 465" style="">
          <Layouts>
            <Layout>
              <Static id="caption1" class="tit_2" position="absolute 5 60 100 73" style="" text="처방삭감내역" />
              <Shape id="line1" class="line_1" linetype="horizontal" position="absolute 0 75 850 78" style="" anchor="default" />
              <Grid id="grd_clodcutlist" binddataset="ds_main_list1_clod" position="absolute 0 80 850 450" style="">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="45" />
                      <Column size="21" />
                      <Column size="60" />
                      <Column size="80" />
                      <Column size="80" />
                      <Column size="150" />
                      <Column size="43" />
                      <Column size="35" />
                      <Column size="35" />
                      <Column size="53" />
                      <Column size="43" />
                      <Column size="35" />
                      <Column size="35" />
                      <Column size="53" />
                      <Column size="55" />
                    </Columns>
                    <Rows>
                      <Row size="23" band="head" />
                      <Row size="23" />
                    </Rows>
                    <Band id="head">
                      <Cell text="청구&#xA;년월" />
                      <Cell col="1" text="차&#xA;수" />
                      <Cell col="2" text="청구&#xA;구분" />
                      <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="삭감사유|청구&#xA;년월" />
                      <Cell col="15" text="차&#xA;수" />
                      <Cell col="16" text="청구&#xA;구분" />
                      <Cell col="17" text="그룹코드" />
                      <Cell col="18" text="수가코드" />
                      <Cell col="19" text="수가명" />
                      <Cell col="20" text="투여량" />
                      <Cell col="21" text="횟수" />
                      <Cell col="22" text="일수" />
                      <Cell col="23" text="금액" />
                      <Cell col="24" text="투여량" />
                      <Cell col="25" text="횟수" />
                      <Cell col="26" text="일수" />
                      <Cell col="27" text="금액" />
                      <Cell col="28" text="삭감사유" />
                    </Band>
                    <Band id="body">
                      <Cell text="bind:clamym" />
                      <Cell col="1" text="bind:clamdg" />
                      <Cell col="2" text="bind:clamflagcd" />
                      <Cell col="3" text="bind:grupcalcscorcd" />
                      <Cell col="4" text="bind:snglcalcscorcd" />
                      <Cell col="5" text="bind:hngnm" />
                      <Cell col="6" text="bind:drugqty" />
                      <Cell col="7" text="bind:tims" />
                      <Cell col="8" text="bind:dayno" />
                      <Cell col="9" text="bind:amt" />
                      <Cell col="10" text="bind:cutdrugqty" />
                      <Cell col="11" text="bind:cuttims" />
                      <Cell col="12" text="bind:cutdayno" />
                      <Cell col="13" text="bind:cutamt" />
                      <Cell col="14" text="bind:cutcd" />
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button id="button5" class="btn2_letter4" position="absolute 781 54 845 73" style="" text="엑셀저장" onclick="group3_button5_onclick" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group4" scrollbars="autoboth" position="absolute 0 467 850 494" style="">
          <Layouts>
            <Layout>
              <Button id="btn_confirm" class="btn4_letter3" position="absolute 779 5 835 27" style="" text="초기화" onclick="group4_btn_confirm_onclick" />
            </Layout>
          </Layouts>
        </Div>
        <Shape id="roundrect1" anchor="default" type="roundrectangle" position="absolute 0 20 850 63" style="" />
        <Static id="caption2" class="search_name" position="absolute 10 32 96 49" style="" text="환자번호 :" />
        <Button id="btn_down" class="icon_down" position="absolute 438 42 448 51" style="" text="" onclick="btn_down_onclick" />
        <Combo innerdataset="ds_init_clamdg_clamdglist" datacolumn="clamdgnm" codecolumn="clamdgcd" columncount="-1" rowcount="-1" id="cmb_clamdg" taborder="3" position="absolute 453 32 515 51" style="" />
        <Static id="caption7" class="search_name" position="absolute 275 32 361 49" style="" text="청구년월 :" />
        <Button id="btn_up" class="icon_up" position="absolute 438 32 448 41" style="" text="" onclick="btn_up_onclick" />
        <Calendar id="ipt_clamym" class="input_search" taborder="2" mask="yyyy-mm" position="absolute 365 32 434 51" style="align:center ;" anchor="default" onkillfocus="ipt_clamym_onkillfocus" />
        <Shape id="line3" class="line_4" linetype="vertical" position="absolute 759 30 762 52" style="" anchor="default" />
        <Button id="btn_search" class="btn1_letter2" taborder="32" position="absolute 775 30 831 52" style="" text="조회" onclick="btn_search_onclick" />
        <Edit id="ipt_pid" class="input_search" taborder="1" position="absolute 100 32 185 51" style="" anchor="default" onlbuttonup="ipt_pid_onlbuttonup" onkillfocus="ipt_pid_onkillfocus" />
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_hidden_sppmc02500_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256" />
          <Column id="pid" type="STRING" size="256" />
          <Column id="hngnm" type="STRING" size="256" />
          <Column id="rrgstno1" type="STRING" size="256" />
          <Column id="rrgstno2" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchcond"></Col>
            <Col id="pid"></Col>
            <Col id="hngnm"></Col>
            <Col id="rrgstno1"></Col>
            <Col id="rrgstno2"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_hidden_sppmc02500" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="list1" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="list1"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_init_P0155list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_init_P0155list_P0155" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256" />
          <Column id="cdid" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdnm"></Col>
            <Col id="cdid"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" />
          <Column id="clamym" type="STRING" size="256" />
          <Column id="clamdg" type="STRING" size="256" />
          <Column id="ioflag" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"></Col>
            <Col id="clamym"></Col>
            <Col id="clamdg"></Col>
            <Col id="ioflag"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="patinfolist" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="patinfolist"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_hidden_popup" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" />
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_clamdg" propid="value" datasetid="ds_send_data1" columnid="clamdg" />
      <BindItem id="item1" compid="ipt_clamym" propid="value" datasetid="ds_send_data1" columnid="clamym" />
      <BindItem id="item2" compid="ipt_pid" propid="value" datasetid="ds_send_data1" columnid="pid" />
    </Bind>
    <Script type="xscript4.0"><![CDATA[function SMPID20900_onload(obj:Form, e:LoadEventInfo) {
 frmf_initForm(obj); 
 //grdf_initGrid(grd_XXX); 
 //grdf_setGridSort(grd_XXX); 
 //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

				var arrParam = [ {dsNm: "ds_init_P0155list", 
                  cdGrpId: "P0155" } ];
appf_getCodeList(arrParam, );

				// 2. 화면초기화
				fInitialize();

}

include '../../.._com_commonweb_js_common.js'
include '../../.._com_commonweb_js_dateHelper.js'
include '../../.._com_commonweb_js_numericHelper.js'
include '../../.._com_commonweb_js_stringHelper.js'
include '../../.._com_commonweb_js_tfHelper.js'
include '../../.._com_basiccodeweb_js_ZBC001.js'
include '../../.._pam_aftjudgweb_js_SMPID20000.js'

			// 화면 초기화
			function fInitialize() {

				// 1. 조회부 초기화
				ds_send_data1.setColumn( 0, "pid", "");
				var today = new Date();
				var baseyear = today.getDateFormat("YYYY");	
				var basemonth = today.getDateFormat("MM");
				var baseday = today.getDateFormat("DD");
				var currentym = baseyear + basemonth;        
				var currentdd = baseyear + basemonth + baseday;
				ds_send_data1.setColumn( 0, "clamym", currentym);
				ds_send_data1.setColumn( 0, "clamdg", "");			
				ds_send_data1.setColumn( 0, "ioflag", "-");

				// 청구년월에 대한 청구차수 조회
				pidfGetClamdg();

				// 2. 그리드 초기화
				ds_main_list1.clearData();
				dsf_makeValue( ds_main, "list1", "string", "" );

				// 3. 팝업인 경우 넘겨받은 pid를 넣어준다.
				ds_send_data1.setColumn( 0, "pid", ds_hidden_popup.getColumn(0, "pid"));

//model.refresh();

			}

			// 환자단위 삭감내역 조회
			function fGetClodCutList() {
				if (ds_send_data1.getColumn(0, "pid") == "") {
					sysf_messageBox("환자번호가", "I004");	
					return false;
				}
				if (ds_send_data1.getColumn(0, "clamym") == "") {
					sysf_messageBox("청구년월이", "I004");	
					return false;
				}

//				if (submit("TRPID20901")) {
var oParam = {};
    oParam.id          = "TRPID20901";
    oParam.service     = "aftjudgapp.PatRectCutSpec";
    oParam.method      = "reqGetPatRectCutSpec";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=clod";
    oParam.async       = false;
    oParam.callback    = "cf_TRPID20901";

tranf_submit(oParam);
/*
function cf_TRPID20901(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPID20901(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPID20901") > -1
arErrorCode.pop("TRPID20901") < 0
*/



//group3.grd_clodcutlist.refresh();

					group3.grd_clodcutlist.row = 2;
				}
			}

function group3_button5_onclick(obj:Button, e:ClickEventInfo) {

					if (group3.grd_clodcutlist.rows == 2) {
						return;
					}

					var fileName = window.fileDialog("save", ",", false, "excel", "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");

					if (fileName != "")
					{
grdf_exportExcel(group3.grd_clodcutlist, "Sheet1", fileName, false, "" , 'user' , true);
						sysf_messageBox("EXCEL 저장이 완료되었습니다.","I999");
					}		

}

function group4_btn_confirm_onclick(obj:Button, e:ClickEventInfo) {

					fInitialize();

}

function btn_down_onclick(obj:Button, e:ClickEventInfo) {

							// 청구년월 이전월									
							var nowym = ds_send_data1.getColumn(0, "clamym");
							var downym;
							downym = pidfCalMonth(-1, nowym);
							ds_send_data1.setColumn( 0, "clamym", downym);								

//ipt_clamym.refresh();

							// 청구년월에 대한 청구차수 조회
							ds_send_data1.setColumn( 0, "clamdg", "");

//cmb_clamdg.refresh();

							pidfGetClamdg();

}

function btn_up_onclick(obj:Button, e:ClickEventInfo) {

							// 청구년월 다음월 									
							var nowym = ds_send_data1.getColumn(0, "clamym");
							var upym;
							upym = pidfCalMonth(1, nowym);
							ds_send_data1.setColumn( 0, "clamym", upym);								

//ipt_clamym.refresh();

							// 청구년월에 대한 청구차수 조회
							ds_send_data1.setColumn( 0, "clamdg", "");

//cmb_clamdg.refresh();

							pidfGetClamdg();

}

function ipt_clamym_onkillfocus(obj:Calendar, e:KillFocusEventInfo) {

						// 청구년월에 대한 청구차수 조회
						ds_send_data1.setColumn( 0, "clamdg", "");

//cmb_clamdg.refresh();

						pidfGetClamdg();

}

function btn_search_onclick(obj:Button, e:ClickEventInfo) {

					fGetClodCutList();

}

function ipt_pid_onlbuttonup(obj:Edit,  e:MouseEventInfo) {

						// 1. 환자조회 팝업 호출
						var pid = ds_send_data1.getColumn(0, "pid");
						if (pid != "") {
							ds_hidden_sppmc02500_cond.setColumn( 0, "srchcond", "1");
							ds_hidden_sppmc02500_cond.setColumn( 0, "pid", pid);
						} else {
							ds_hidden_sppmc02500_cond.clearData(); ds_hidden_sppmc02500_cond.addRow();
						}
						frmf_modal("SPPMC02500", "SPPMC02500", "ds_hidden_sppmc02500_cond""-"ds_send"", "", "1", "150", "150", "", "", "", "", "", "M");		

						// 2. 조회된 환자번호 입력
						var srch_pid = ds_main_patinfo_patinfolist.getColumn(0, "pid");
						if (srch_pid) {		
							ds_main_patinfo_patinfolist.clearData();	
							dsf_makeValue( ds_main_patinfo, "patinfolist", "string", "" );
							ds_send_data1.setColumn( 0, "pid", srch_pid);
						}

//model.refresh();

}

function ipt_pid_onkillfocus(obj:Edit, e:KillFocusEventInfo) {

}

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