YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPAO01401_헌혈증입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPAO01401" position="absolute 0 0 875 620" titletext="헌혈증입력" onload="SPPAO01401_onload" style="color:transparent;">
    <Layouts>
      <Layout>
        <Static id="caption1" text="혈액계산내역" class="tit_2" position="absolute 10 300 108 320"/>
        <Static id="caption2" text="헌혈증적용내역" class="tit_2" position="absolute 10 10 121 30"/>
        <Grid id="grd_calc" taborder="1" binddataset="ds_calc" useinputpanel="false" position="absolute 10 320 865 570" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35"/>
                <Column size="30"/>
                <Column size="75"/>
                <Column size="80"/>
                <Column size="280"/>
                <Column size="55"/>
                <Column size="55"/>
                <Column size="30"/>
                <Column size="55"/>
                <Column size="65"/>
                <Column size="80"/>
                <Column size="65"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="40"/>
                <Column size="40"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="No"/>
                <Cell col="1"/>
                <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="순번"/>
              </Band>
              <Band id="body">
                <Cell style="align:center;" text="bind:no" ext="bind:bldc_ckbox"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" style="align:center;" text="bind:chk"/>
                <Cell col="2" displaytype="date" style="align:center;" text="bind:appdd" calendardisplaynulltype="nulltext"/>
                <Cell col="3" style="align:left;" text="bind:grupcalcscorcd"/>
                <Cell col="4" style="align:left;" text="bind:hngnm"/>
                <Cell col="5" displaytype="number" text="bind:calcamt"/>
                <Cell col="6" displaytype="number" text="bind:discamt"/>
                <Cell col="7" style="align:center;" text="bind:calcqty"/>
                <Cell col="8" style="align:center;" text="bind:calcdays"/>
                <Cell col="9" displaytype="combo" style="align:center;" text="bind:calcpayflag" combodataset="ds_init_P0104" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="10" displaytype="date" style="align:center;" text="bind:depodd" calendardisplaynulltype="nulltext"/>
                <Cell col="11" displaytype="number" text="bind:depoamt"/>
                <Cell col="12" displaytype="date" style="align:center;" text="bind:prcpdd" calendardisplaynulltype="nulltext"/>
                <Cell col="13" displaytype="text" style="align:center;" text="bind:prcpno"/>
                <Cell col="14" style="align:center;" text="bind:prcphistno"/>
                <Cell col="15" style="align:center;" text="bind:execprcpseqno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_bldc" taborder="2" binddataset="ds_bldc" useinputpanel="false" position="absolute 10 30 865 280" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35"/>
                <Column size="30"/>
                <Column size="75"/>
                <Column size="80"/>
                <Column size="280"/>
                <Column size="55"/>
                <Column size="55"/>
                <Column size="30"/>
                <Column size="55"/>
                <Column size="65"/>
                <Column size="80"/>
                <Column size="65"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="40"/>
                <Column size="40"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="No"/>
                <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="ABO 검사"/>
                <Cell col="10" text="입금일"/>
                <Cell col="11" text="입금액"/>
                <Cell col="12" text="처방일"/>
                <Cell col="13" text="처방번호"/>
                <Cell col="14" text="이력"/>
                <Cell col="15" text="순번"/>
              </Band>
              <Band id="body">
                <Cell style="align:center;" text="bind:no"/>
                <Cell col="1" style="align:center;" text="bind:apprsn"/>
                <Cell col="2" displaytype="date" edittype="none" style="align:center;" text="bind:appdd" calendardisplaynulltype="nulltext"/>
                <Cell col="3" style="align:left;" text="bind:grupcalcscorcd"/>
                <Cell col="4" style="align:left;" text="bind:hngnm"/>
                <Cell col="5" displaytype="number" text="bind:calcamt"/>
                <Cell col="6" displaytype="number" text="bind:discamt"/>
                <Cell col="7" style="align:center;" text="bind:calcqty"/>
                <Cell col="8" style="align:center;" text="bind:calcdays"/>
                <Cell col="9" style="align:center;" text="bind:abocnt"/>
                <Cell col="10" displaytype="date" style="align:center;" text="bind:depodd" calendardisplaynulltype="nulltext"/>
                <Cell col="11" displaytype="number" text="bind:depoamt"/>
                <Cell col="12" displaytype="date" style="align:center;" text="bind:prcpdd" calendardisplaynulltype="nulltext"/>
                <Cell col="13" displaytype="text" style="align:center;" text="bind:prcpno"/>
                <Cell col="14" style="align:center;" text="bind:prcphistno"/>
                <Cell col="15" style="align:center;" text="bind:execprcpseqno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption4" text="할인총액 :" position="absolute 703 295 763 315"/>
        <Edit id="edt_cnt" taborder="5" position="absolute 475 294 530 314" style="background:#ffffc2ff stretch 5,5;border:1 solid #808080ff ;align:right middle;" inputtype="number" onkeyup="edt_cnt_onkeyup" autoselect="true"/>
        <Button id="btn_confirm" taborder="6" text="승인" class="btn4" position="absolute 751 588 807 610" onclick="btn_confirm_onclick"/>
        <Button id="btn_cancel" taborder="7" text="취소" class="btn4" position="absolute 809 588 865 610" onclick="btn_cancel_onclick"/>
        <Button id="btn_search" taborder="8" text="조회" class="btn4" position="absolute 693 588 749 610" onclick="btn_search_onclick"/>
        <Button id="btn_copy" taborder="11" text="적용" onclick="btn_copy_onclick" class="btn2" position="absolute 635 295 676 315"/>
        <CheckBox id="chk_cnt" taborder="12" text="헌혈증 개수 :" position="absolute 377 295 472 315" onclick="chk_cnt_onclick" value="true"/>
        <CheckBox id="chk_sel" taborder="13" text="직접 선택" position="absolute 545 295 620 315" onclick="chk_sel_onclick"/>
        <MaskEdit id="edt_totamt" taborder="14" position="absolute 765 293 865 315" mask="#,###" style="background:#ffffc2ff stretch 5,5;border:1 solid #808080ff ;font:Dotum,9,bold;" readonly="true"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_calc" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="no" type="string" size="256"/>
          <Column id="pid" type="string" size="256"/>
          <Column id="rcptdd" type="string" size="256"/>
          <Column id="rcptno" type="string" size="256"/>
          <Column id="rcptseqno" type="string" size="256"/>
          <Column id="seqno" type="string" size="256"/>
          <Column id="instcd" type="string" size="256"/>
          <Column id="rcptstat" type="string" size="256"/>
          <Column id="ordtype" type="string" size="256"/>
          <Column id="orddd" type="string" size="256"/>
          <Column id="cretno" type="string" size="256"/>
          <Column id="orddeptcd" type="string" size="256"/>
          <Column id="orddrid" type="string" size="256"/>
          <Column id="grupcalcscorcd" type="string" size="256"/>
          <Column id="snglcalcscorcd" type="string" size="256"/>
          <Column id="appdd" type="string" size="256"/>
          <Column id="calcqty" type="string" size="256"/>
          <Column id="calctims" type="string" size="256"/>
          <Column id="calcdays" type="string" size="256"/>
          <Column id="calcamt" type="string" size="256"/>
          <Column id="disccnt" type="string" size="256"/>
          <Column id="discamt" type="string" size="256"/>
          <Column id="apprsn" type="string" size="256"/>
          <Column id="rcptexecdd" type="string" size="256"/>
          <Column id="rcpttm" type="string" size="256"/>
          <Column id="rcptrid" type="string" size="256"/>
          <Column id="remfact" type="string" size="256"/>
          <Column id="fstrgstrid" type="string" size="256"/>
          <Column id="fstrgstdt" type="string" size="256"/>
          <Column id="lastupdtrid" type="string" size="256"/>
          <Column id="lastupdtdt" type="string" size="256"/>
          <Column id="prcpdd" type="string" size="256"/>
          <Column id="prcpno" type="string" size="256"/>
          <Column id="prcphistno" type="string" size="256"/>
          <Column id="execprcpseqno" type="string" size="256"/>
          <Column id="claimdd" type="string" size="256"/>
          <Column id="hngnm" type="string" size="256"/>
          <Column id="calcpayflag" type="string" size="256"/>
          <Column id="chk" type="string" size="256"/>
          <Column id="chk_org" type="string" size="256"/>
          <Column id="depodd" type="string" size="256"/>
          <Column id="depoamt" type="string" size="256"/>
          <Column id="payownbrate" type="string" size="256"/>
          <Column id="insukind" type="string" size="256"/>
          <Column id="suppkind" type="string" size="256"/>
          <Column id="abocnt" type="string" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_bldc" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="gubun" type="string" size="256"/>
          <Column id="pid" type="string" size="256"/>
          <Column id="rcptdd" type="string" size="256"/>
          <Column id="rcptno" type="string" size="256"/>
          <Column id="rcptseqno" type="string" size="256"/>
          <Column id="seqno" type="string" size="256"/>
          <Column id="instcd" type="string" size="256"/>
          <Column id="rcptstat" type="string" size="256"/>
          <Column id="ordtype" type="string" size="256"/>
          <Column id="orddd" type="string" size="256"/>
          <Column id="orddeptcd" type="string" size="256"/>
          <Column id="orddrid" type="string" size="256"/>
          <Column id="grupcalcscorcd" type="string" size="256"/>
          <Column id="snglcalcscorcd" type="string" size="256"/>
          <Column id="appdd" type="string" size="256"/>
          <Column id="calcqty" type="string" size="256"/>
          <Column id="calctims" type="string" size="256"/>
          <Column id="calcdays" type="string" size="256"/>
          <Column id="calcamt" type="string" size="256"/>
          <Column id="disccnt" type="string" size="256"/>
          <Column id="discamt" type="string" size="256"/>
          <Column id="apprsn" type="string" size="256"/>
          <Column id="rcptexecdd" type="string" size="256"/>
          <Column id="rcpttm" type="string" size="256"/>
          <Column id="rcptrid" type="string" size="256"/>
          <Column id="remfact" type="string" size="256"/>
          <Column id="fstrgstrid" type="string" size="256"/>
          <Column id="fstrgstdt" type="string" size="256"/>
          <Column id="lastupdtrid" type="string" size="256"/>
          <Column id="lastupdtdt" type="string" size="256"/>
          <Column id="prcpdd" type="string" size="256"/>
          <Column id="prcpno" type="string" size="256"/>
          <Column id="prcphistno" type="string" size="256"/>
          <Column id="execprcpseqno" type="string" size="256"/>
          <Column id="cretno" type="string" size="256"/>
          <Column id="claimdd" type="string" size="256"/>
          <Column id="no" type="string" size="256"/>
          <Column id="hngnm" type="string" size="256"/>
          <Column id="calcpayflag" type="string" size="256"/>
          <Column id="chk" type="string" size="256"/>
          <Column id="chk_org" type="string" size="256"/>
          <Column id="indd" type="string" size="256"/>
          <Column id="incretno" type="string" size="256"/>
          <Column id="depodd" type="string" size="256"/>
          <Column id="depoamt" type="string" size="256"/>
          <Column id="insukind" type="string" size="256"/>
          <Column id="suppkind" type="string" size="256"/>
          <Column id="abocnt" type="string" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0104" 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>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="orddd"/>
            <Col id="cretno"/>
            <Col id="ordtype"/>
            <Col id="orddeptcd"/>
            <Col id="orddrid"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_bldc" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="totdisccnt" type="STRING" size="256"/>
          <Column id="totdiscamt" type="STRING" size="256"/>
          <Column id="total" type="STRING" size="256"/>
          <Column id="totalamt" type="STRING" size="256"/>
          <Column id="appflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="totdisccnt"/>
            <Col id="totdiscamt"/>
            <Col id="total"/>
            <Col id="totalamt"/>
            <Col id="appflag">CNT</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="edt_cnt" propid="value" datasetid="ds_main_bldc" columnid="total"/>
      <BindItem id="item1" compid="edt_totamt" propid="value" datasetid="ds_main_bldc" columnid="totalamt"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include 'com_commonxp::comm_main.xjs';

var gPid, gOrddd, gCretno, gOrddeptcd, gOrddrid, gInsukind, gSuppkind, gOrdtype, gCalcflag, gSdate, gEdate;
var gStrRcv = null;

function fInit(){
	ds_calc.clearData();
	ds_bldc.clearData();
	
	ds_main_bldc.setColumn(0, 'totalamt', '0');
}

function fVarChck(){
	if (utlf_isNull(gPid) || gPid == " " || gPid == "-") {
		sysf_messageBox('환자정보가 전달되지 않았습니다!', 'E999');
		return false;
	}
	
	if (utlf_isNull(gOrddd) || gOrddd == " " || gOrddd == "-") {
		sysf_messageBox('진료일자가 전달되지 않았습니다!', 'E999');
		return false;
	}
	
	if (utlf_isNull(gCretno) || gCretno == " " || gCretno == "-") {
		sysf_messageBox('생성번호가 전달되지 않았습니다!', 'E999');
		return false;
	}
	
	if (utlf_isNull(gOrdtype) || gOrdtype == " " || gOrdtype == "-") {
		sysf_messageBox('진료형태가 전달되지 않았습니다!', 'E999');
		return false;
	}
	
	if (gOrdtype == "0") {
		if(utlf_isNull(gCalcflag) || gCalcflag == " " || gCalcflag == "-") {
			sysf_messageBox("계산여부가 전달되지 않았습니다!", "E999");
			return false;
		}
	}
	
	return true;
}

function fSearch(){
	
	fInit();
	
	ds_send.setColumn(0, "pid",       gPid);
	ds_send.setColumn(0, "orddd",     gOrddd);
	ds_send.setColumn(0, "cretno",    gCretno);
	ds_send.setColumn(0, "ordtype",   gOrdtype);
	ds_send.setColumn(0, "orddeptcd", gOrddeptcd);
	ds_send.setColumn(0, "orddrid",   gOrddrid);
	ds_send.setColumn(0, "fromdd",    gSdate);
	ds_send.setColumn(0, "todd",      gEdate);
	
	var oParam = {};
	oParam.id      = "TRPAO01452";
	oParam.service = "pamcomnapp.PamComn";
	oParam.method  = "reqGetBldcCalcList";
	oParam.inds    = "req=ds_send";
	oParam.outds   = "ds_calc=bldc";
	oParam.async   = false;

	tranf_submit(oParam);
	
	ds_calc.addColumn("chk", ds_calc.getColumnInfo("chk_org").type, ds_calc.getColumnInfo("chk_org").size);
	
	for (var i = 0; i < ds_calc.rowcount; i++) {
		ds_calc.setColumn(i, "chk", ds_calc.getColumn(i, "chk_org"));
	}
	
	// 수혈 대체 내역
	oParam = {};
    oParam.id      = "TRPAO01453";
    oParam.service = "pamcomnapp.PamComn";
    oParam.method  = "reqGetBldcOrgList";
    oParam.inds    = "req=ds_send";
    oParam.outds   = "ds_bldc=bldc";
    oParam.async   = false;
	
	tranf_submit(oParam);
	
	ds_bldc.addColumn("abocnt", "string", 256);
	
	for (var i = 0; i < ds_bldc.rowcount; i++) {
		ds_bldc.setColumn(i, "abocnt", "");
	}
	
	//edt_cnt.value = ds_bldc.rowcount;
	ds_main_bldc.setColumn(0, 'total', ds_bldc.rowcount);
	
	var totamt = 0;
	
	for (var i = 0; i < ds_bldc.rowcount; i++) {
		totamt += parseInt(ds_bldc.getColumn(i, "discamt"));
	}
	ds_main_bldc.setColumn(0, 'totalamt', totamt);
}

function SPPAO01401_onload(obj:Form, e:LoadEventInfo){
    frmf_initForm(obj);
	
	grdf_initGrid(grd_calc);
	grdf_initGrid(grd_bldc);
	
	fInit();
	
	appf_getCodeList([{dsNm:"ds_init_P0104", cdGrpId:"P0104"}]);
	
	if (frmf_checkOpener()) {
		
		opener.frmf_setParameter("SPPAO01401_RTN", "");
		
		gPid       = arg_pid;
		gOrddd     = arg_orddd;
		gCretno    = arg_cretno;
		gOrddeptcd = arg_orddeptcd;
		gOrddrid   = arg_orddrid;
		gInsukind  = arg_insukind;
		gSuppkind  = arg_suppkind;
		gOrdtype   = arg_ordtype;
		gCalcflag  = arg_calcflag;
		gSdate     = arg_fromdd;
        gEdate     = arg_todd;
        
        try{
            gStrRcv    = arg_ds_rcv;
        }
        catch(e){}
        
		
		if (!fVarChck()){
			return;
		}
		
		opener.frmf_setParameter("SPPAO01401_PARM", "");
		
		fSearch();
	}
}

function btn_copy_onclick(obj:Button, e:ClickEventInfo){
	if (ds_main_bldc.getColumn(0, 'total') > ds_calc.rowcount) {
		sysf_messageBox("혈액계산내역의 갯수를 초과하였습니다.", "E999", "");
		return;
	}
	
	//ds_bldc.clearData();
	dsf_copyColInfo(ds_bldc, ds_calc, true);
	
	var appcnt = edt_cnt.value;
	var totamt = 0;
	
	for (var i = 0; i < ds_calc.rowcount; i++) {
		
		if (chk_sel.value) {
			
			if (utlf_isNull(ds_calc.getColumn(i, "depodd")) && ds_calc.getColumn(i, "chk") != true) {
				continue;
			}
			
		} else {
			if (!utlf_isNull(ds_calc.getColumn(i, "depodd")) || appcnt > 0) {
				ds_calc.setColumn(i, "chk", true);
				appcnt--;
			} else {
				ds_calc.setColumn(i, "chk", false);
				continue;
			}
		}
		
		ds_bldc.addRow();
		ds_bldc.copyRow(ds_bldc.rowcount - 1, ds_calc, i);
		
		totamt += parseInt(ds_calc.getColumn(i, "discamt"));
	}
	
	ds_main_bldc.setColumn(0, 'totalamt', totamt);
	
	// ABO 수혈검사료 적용 개수 설정
	
	var ddArr = new Array();
	var idx = 0;
	
	for (var i = 0; i < ds_bldc.rowcount; i++) {
		
		var appdd = ds_bldc.getColumn(i, "appdd");
		
		if (ddArr.length < 1) {
			ddArr[idx] = appdd;
			idx++;
			ds_bldc.setColumn(i, "abocnt", "1");
			continue;
		}
		
		var flag = true;
		for (var j = 0; j < ddArr.length; j++) {
			if (appdd == ddArr[j]) {
				flag = false;
				break;
			}	
		}
		
		if (flag) {
			ds_bldc.setColumn(i, "abocnt", "1");
			ddArr[idx] = appdd;
			idx++;
		}
	}
}

function btn_confirm_onclick(obj:Button,  e:ClickEventInfo){
	
	if (frmf_checkOpener()) {
		
		opener.frmf_setParameter("SPPAO01401_RTN", "Y");
		
		if (!utlf_isNull(gStrRcv)) {
            arg_ds_rcv.copyData(ds_bldc);
			opener.frmf_setParameter("SPPAO01401_TotBldcDiscAmt", ds_main_bldc.getColumn(0, 'totalamt'));
		}
		this.close();
	}
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo){
	if (frmf_checkOpener()) {
		opener.frmf_setParameter("SPPAO01401_RTN", "N");
		this.close();
	}
}


function chk_cnt_onclick(obj:CheckBox,  e:ClickEventInfo) {
	chk_sel.value = !chk_cnt.value;
	edt_cnt.enable = chk_cnt.value;
}

function chk_sel_onclick(obj:CheckBox,  e:ClickEventInfo) {
	chk_cnt.value = !chk_sel.value;
	edt_cnt.enable = chk_cnt.value;
}

function edt_cnt_onkeyup(obj:Edit, e:KeyEventInfo) {
	if (e.keycode != "13") {
		return;
	}
	
	ds_main_bldc.setColumn(0, "total", obj.value);
	btn_copy.click();
}

function btn_search_onclick(obj:Button,  e:ClickEventInfo) {
	fSearch();
}
]]></Script>
  </Form>
</FDL>