YNU_JEUS/app_home/himed/xpapps/pam/cutmngtxp/xp/SPPIR31300_원내처방E삭감내역.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml" />
  <Form id="SPPIR31300" position="absolute 0 0 1100 784" titletext="원내처방 E 삭감내역 조회" onload="SPPIR31300_onload">
    <Layouts>
      <Layout>
        <Div id="group2" position="absolute 0 23 1100 60" style="">
          <Layouts>
            <Layout>
              <Shape id="roundrect2" anchor="default" class="roundrect_search" type="roundrectangle" position="absolute 5 0 1095 35" style="border: solid #ffd799 #ffd799;background:#fffbf2  ;" />
              <Button id="btn_search" class="btn1_letter2" position="absolute 1025 10 1081 32" style="" text="조회" onclick="group2_btn_search_onclick" />
              <Shape id="line1" class="line_4" linetype="vertical" position="absolute 1015 10 1018 32" style="border: solid #ffe4bb #ffe4bb;" anchor="default" />
              <Static id="caption4" class="search_name" position="absolute 10 10 101 27" style="" text="일자 :" />
              <Calendar id="input1" class="input_s_essential" position="absolute 77 9 167 28" style="" anchor="default" />
              <Calendar id="input2" class="input_s_essential" position="absolute 190 9 280 28" style="" anchor="default" />
              <Static id="caption1" position="absolute 172 9 192 29" style="font:,12,bold;" text="~" />
              <Edit id="input3" class="input_essential" position="absolute 410 10 495 29" style="" anchor="default" onkeypress="group2_input3_onkeypress" />
              <Static id="caption3" class="search_name" position="absolute 320 10 420 27" style="" text="환자번호 :" />
              <Button id="button3" class="icon_search" position="absolute 500 10 516 26" style="" text="" onclick="group2_button3_onclick" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group3" position="absolute 0 0 1100 13" style="">
          <Layouts>
            <Layout>
              <Static id="caption60" class="tit_1" position="absolute 0 0 183 14" style="font:돋움,,돋움;align: middle;" text="원내처방 E 삭감내역 조회" />
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption2" class="tit_2" position="absolute 10 68 150 81" style="" text="원내처방 E 삭감내역" />
        <Grid id="grd_outcutlist" binddataset="ds_main_outcut_outcutlist" position="absolute 0 90 1095 752" style="align:center ;">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="60" />
                <Column size="60" />
                <Column size="90" />
                <Column size="50" />
                <Column size="50" />
                <Column size="70" />
                <Column size="55" />
                <Column size="65" />
                <Column size="65" />
                <Column size="55" />
                <Column size="75" />
                <Column size="30" />
                <Column size="70" />
                <Column size="35" />
                <Column size="70" />
                <Column size="70" />
                <Column size="200" />
                <Column size="70" />
                <Column size="33" />
                <Column size="33" />
                <Column size="33" />
                <Column size="75" />
                <Column size="75" />
                <Column size="33" />
                <Column size="33" />
                <Column size="33" />
                <Column size="75" />
                <Column size="500" />
              </Columns>
              <Rows>
                <Row size="24" band="head" />
                <Row size="24" />
              </Rows>
              <Band id="head">
                <Cell text="환자번호" />
                <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="조정&#xA;코드" />
                <Cell col="14" text="처방코드" />
                <Cell col="15" text="EDI코드" />
                <Cell col="16" text="처방명" />
                <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="환자명" />
                <Cell col="29" text="진료과" />
                <Cell col="30" text="진료의" />
                <Cell col="31" text="심사자" />
                <Cell col="32" text="보험유형" />
                <Cell col="33" text="청구년월" />
                <Cell col="34" text="심사차수" />
                <Cell col="35" text="접수번호" />
                <Cell col="36" text="명일련" />
                <Cell col="37" text="본인추가금" />
                <Cell col="38" text="줄" />
                <Cell col="39" text="처방일" />
                <Cell col="40" text="조정&#xA;코드" />
                <Cell col="41" text="처방코드" />
                <Cell col="42" text="EDI코드" />
                <Cell col="43" text="처방명" />
                <Cell col="44" text="단가" />
                <Cell col="45" text="수량" />
                <Cell col="46" text="횟수" />
                <Cell col="47" text="날수" />
                <Cell col="48" text="금액" />
                <Cell col="49" text="청구액" />
                <Cell col="50" text="수량" />
                <Cell col="51" text="일투" />
                <Cell col="52" text="총투" />
                <Cell col="53" text="삭감액" />
                <Cell col="54" text="부제기 사유" />
              </Band>
              <Band id="body">
                <Cell text="bind:pid" />
                <Cell col="1" text="bind:patnm" />
                <Cell col="2" text="bind:orddeptnm" />
                <Cell col="3" text="bind:orddrnm" />
                <Cell col="4" text="bind:judgrnm" />
                <Cell col="5" text="bind:insukind" />
                <Cell col="6" text="bind:clamym" />
                <Cell col="7" text="bind:judgdg" />
                <Cell col="8" text="bind:acptno" />
                <Cell col="9" text="bind:docuseqno" />
                <Cell col="10" text="bind:insubramt" />
                <Cell col="11" text="bind:lnno" />
                <Cell col="12" text="bind:orddd" />
                <Cell col="13" text="bind:adjtresncd" />
                <Cell col="14" text="bind:calcscorcd" />
                <Cell col="15" text="bind:edicd" />
                <Cell col="16" text="bind:hngnm" />
                <Cell col="17" text="bind:ediunitcost" />
                <Cell col="18" text="bind:edidrugqty" />
                <Cell col="19" text="bind:tims" />
                <Cell col="20" text="bind:edidayno" />
                <Cell col="21" text="bind:ediamt" />
                <Cell col="22" text="bind:clamamt" />
                <Cell col="23" text="bind:adjtoneqty" />
                <Cell col="24" text="bind:adjtdayqty" />
                <Cell col="25" text="bind:adjttotqty" />
                <Cell col="26" text="bind:adjtamt" />
                <Cell col="27" text="bind:abdresnmemo" />
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button2" class="btn2_letter4" position="absolute 1024 64 1088 83" style="" text="엑셀저장" onclick="button2_onclick" />
        <Button id="button1" class="btn2_letter2" position="absolute 1040 758 1082 777" style="" text="닫기" onclick="button1_onclick" />
        <Shape id="line2" class="line_1" linetype="horizontal" position="absolute 0 85 1095 88" style="" anchor="default" />
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_patinfo_patinfolist" 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>
        <Rows>
          <Row>
            <Col id="pid"></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>
          <Column id="fromdd" type="STRING" size="256" />
          <Column id="todd" type="STRING" size="256" />
          <Column id="sendflag" type="STRING" size="256" />
          <Column id="srchpid" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"></Col>
            <Col id="todd"></Col>
            <Col id="sendflag"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="temp" type="STRING" size="256" />
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_result" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="result" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="result"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_source" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="source" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="source"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_outcut" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="outcutlist" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="outcutlist"></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 />
      </Dataset>
      <Dataset id="ds_send_data" 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="srchcond" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"></Col>
            <Col id="srchcond"></Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.input1" propid="value" datasetid="ds_send" columnid="fromdd" />
      <BindItem id="item1" compid="group2.input2" propid="value" datasetid="ds_send" columnid="todd" />
      <BindItem id="item2" compid="group2.input3" propid="value" datasetid="ds_send" columnid="srchpid" />
    </Bind>
    <Script type="xscript4.0"><![CDATA[include '../../.._com_commonweb_js_common.js'
include '../../.._com_commonweb_js_utilHelper.js'
include '../../.._com_commonweb_js_tfHelper.js'
include '../../.._com_commonweb_js_dateHelper.js'
include '../../.._com_commonweb_js_numericHelper.js'
include '../../.._com_commonweb_js_stringHelper.js'
include '../../.._com_basiccodeweb_js_ZBC001.js'
include '../../.._com_zipcodeweb_js_ZBP001.js'
function SPPIR31300_onload(obj:Form, e:LoadEventInfo) {
 frmf_initForm(obj); 
 //grdf_initGrid(grd_XXX); 
 //grdf_setGridSort(grd_XXX); 
 //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

				ds_send.setColumn( 0, "fromdd", utlf_getCurrentDate() );
				ds_send.setColumn( 0, "todd", utlf_getCurrentDate() );

//model.refresh();

				grd_outcutlist.mergeCol(grd_outcutlist.colRef("pid")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("patnm")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("orddeptnm")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("orddrnm")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("judgrnm")) = true;
				grd_outcutlist.colDisabled(grd_outcutlist.colRef("insukind")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("insukind")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("clamym")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("acptno")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("docuseqno")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("lnno")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("orddd")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("adjtresncd")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("calcscorcd")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("edicd")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("hngnm")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("ediunitcost")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("edidrugqty")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("tims")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("edidayno")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("ediamt")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("clamamt")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("adjtoneqty")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("adjtdayqty")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("adjttotqty")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("adjtamt")) = false;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("insubramt")) = true;
				grd_outcutlist.mergeCol(grd_outcutlist.colRef("abdresnmemo")) = false;

}

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

//						submit("TRPIR31300", true) ;
var oParam = {};
    oParam.id          = "TRPIR31300";
    oParam.service     = "cutmngtapp.CutMngt";
    oParam.method      = "reqGetInECutList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=outcutlist";
    oParam.async       = false;
    oParam.callback    = "cf_TRPIR31300";

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


							var cnt = ds_main_outcut_outcutlist_insukind.rowcount;
							if ( cnt < 1 ) {
								sysf_messageBox("조회된 내역이 없습니다.", "I");
							} else {
								for ( i=grd_outcutlist.fixedrows; i<grd_outcutlist.rows; i++ ) {
									var pid = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("pid"));
									var pid_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("pid"));
									var orddeptnm = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("orddeptnm"));
									var orddeptnm_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("orddeptnm"));
									var insu = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("insukind"));
									var insu_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("insukind"));
									var clamym = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("clamym"));
									var clamym_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("clamym"));
									var acptno = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("acptno"));
									var acptno_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("acptno"));
									var docuseqno = grd_outcutlist.valueMatrix(i-1, grd_outcutlist.colRef("docuseqno"));
									var docuseqno_up = grd_outcutlist.valueMatrix(i, grd_outcutlist.colRef("docuseqno"));

									if ( insu == insu_up && orddeptnm == orddeptnm_up && pid == pid_up && clamym == clamym_up && acptno == acptno_up && docuseqno == docuseqno_up) {
										grd_outcutlist.mergeRow(i) = true;
										grd_outcutlist.mergeRow(i-1) = true;
									} else {
										grd_outcutlist.mergeRow(i) = false;
									}

								}
							}
							grd_outcutlist.mergeCells = "bycol"; 

}

function group2_input3_onkeydown(obj:Edit, e:KeyEventInfo) {

						if (event.keyCode == "13")
					{	
						ds_send.setColumn( 0, "srchpid", group2.input3.text);
						group2.btn_search.dispatch("DOMActivate");
					}

}

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

						var ptbs_pid = ds_send.getColumn(0, "srchpid");

                        if (ptbs_pid == null || ptbs_pid ==" " || ptbs_pid == "") {
							ds_send_data.clearData(); ds_send_data.addRow();
						} else {	      
							ds_send_data.clearData(); ds_send_data.addRow();
							ds_send_data.setColumn( 0, "pid",ds_send.getColumn(0, "srchpid"));
							ds_send_data.setColumn( 0, "srchcond","1")                                     							
                         }

                         frmf_modal("../../.._pam_commonweb_xrw_SPPMC02500", "SPPMC02500", "ds_send_data""-"ds_send"", "", "1", "150", "150", "", "", "", "", "", "M");

               		     if ( ds_main.getColumn(0, "popupendflag") == "ok" ) {
							ds_send.setColumn( 0, "srchpid", ds_main_patinfo_patinfolist.getColumn(0, "pid"));

//model.refresh();

						 }
						 group2.btn_search.dispatch("DOMActivate");

}

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

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

					if (fileName != "")
					{
grdf_exportExcel(grd_outcutlist, "Sheet1", fileName, false, "" , 'user' , true);
					}	

}

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

					window.close();

}

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