YNU_JEUS/app_home/himed/xpapps/pam/patinfomngtxp/xp/SPPAO01200_외래환자상한액관리.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPAO01200" position="absolute 0 0 372 476" titletext="외래환자상한액관리" onload="SPPAO01200_onload" oninit="SPPAO01200_oninit">
    <Layouts>
      <Layout>
        <Static id="caption6" class="tit_1" position="absolute 0 0 160 25" style="" text="외래환자상한액관리"/>
        <Div id="group2" position="absolute 0 25 370 65" style="align: top;" class="div_SA">
          <Layouts>
            <Layout width="370" height="35">
              <Static id="caption2" class="search_name" position="absolute 12 12 98 29" style="" text="등록번호 :" anchor="default"/>
              <Edit id="ipt_pid" position="absolute 93 11 193 30" style="" anchor="default" onkeydown="group2_ipt_pid_onkeydown" autoselect="true"/>
              <Button id="button2" class="btn5" position="absolute 233 9 275 31" style="" text="검색" onclick="group2_button2_onclick" anchor="default"/>
              <Button id="btn_pid" class="icon_search" taborder="-1" position="absolute 198 13 214 27" style="" text="" onclick="group2_btn_pid_onclick" anchor="default"/>
              <Button id="button3" taborder="1" text="저장" onclick="button3_onclick" class="btn5" position="absolute 277 9 319 31" anchor="default"/>
              <Button id="button4" taborder="2" text="닫기" onclick="button4_onclick" class="btn5" position="absolute 321 9 363 31" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_info" binddataset="ds_main_moneyinfo" position="absolute 0 94 370 474" style="align:center ;" autofittype="col" autoenter="select" cellclickbound="cell">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="27"/>
                <Column size="105"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2" text="환자번호"/>
                <Cell col="3" text="시작일자"/>
                <Cell col="4" text="종료일자"/>
                <Cell col="5" text="histcd"/>
                <Cell col="6" text="seqno"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr:chk == 'true' || chk == '1' ? 1 : 0"/>
                <Cell col="2" displaytype="text" edittype="text" text="bind:pid"/>
                <Cell col="3" displaytype="date" edittype="date" style="align:left middle;" text="bind:fromdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="4" displaytype="date" style="align:left middle;" text="bind:todd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" text="bind:histstat"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button1" class="btn5" visible="false" position="absolute 95 67 137 89" style="" text="삭제" onclick="button1_onclick"/>
        <Button id="btn_add" class="btn5" position="absolute 317 67 370 89" style="" text="행추가" onclick="btn_add_onclick"/>
        <Button id="btn_del" class="btn5" visible="false" position="absolute 145 67 198 89" style="" text="행삭제" onclick="btn_del_onclick"/>
        <Shape id="line00" class="line_1" position="absolute 0 89 370 95" style="strokepen:3 solid #33bbbbff;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata_srchdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_moneyinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_moneyinfo_oncolumnchanged">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256" sumtext=""/>
          <Column id="pid" type="STRING" size="256" sumtext=""/>
          <Column id="fromdd" type="STRING" size="256" sumtext=""/>
          <Column id="todd" type="STRING" size="256" sumtext=""/>
          <Column id="histstat" type="STRING" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_source" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_pastmoneychk" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="payownbamt" type="INT" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_moneyinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_pam_P0032list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_pid" propid="value" datasetid="ds_send_reqdata_srchdata" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::SMMMO04100.xjs";
include "pam_pamcomnxp::PAM001.xjs";

var arErrorCode = new HashArray();

var year = "";

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

function SPPAO01200_onload(obj: Form, e: LoadEventInfo) 
{
	grdf_initGrid(grd_info);
    grdf_setRowTypeIcon(grd_info, 0);

    year = String(utlf_getCurrentDate()).substr(0, 4);
    ds_main_moneyinfo.clearData();
    
    var arrParam = [{dsNm: "ds_init_pam_P0032list", cdGrpId: "P0032"}]; // 원무기준자료

	pamfGetCodeList(arrParam, false);
}

function group2_btn_pid_onclick(obj: Button, e: ClickEventInfo) 
{
    //조회건수가 1건일 경우 팝업창을 바로 닫는다..
    dsf_makeValue(ds_source, "autoflag", "string", "Y");

    var objArg = new Object();
		objArg.arg_ds_send = ds_source;
    frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "1", "150", "150", "", "", "", "", "", "M");

    dsf_makeValue(ds_send_reqdata_srchdata, "pid", "string", ds_patinfolist.getColumn(0, "pid"));
}

function group2_button2_onclick(obj: Button, e: ClickEventInfo) 
{
    var oParam = {};
		oParam.id = "TRPMO01200";
		oParam.service = "patinfomngtapp.PatBaseInfo";
		oParam.method = "reqGetPatMoneyInfo";
		oParam.inds = "req=ds_send_reqdata_srchdata";
		oParam.outds = "ds_main_moneyinfo=item";
		oParam.async = false;
    tranf_submit(oParam);
    
    ds_main_moneyinfo.addColumn("chk", "string");
}

function button3_onclick(obj: Button, e: ClickEventInfo) 
{
    var savedata = "status▦pid▦histstat▦fromdd▦todd▩";
    
    for (var i = 0; i < ds_main_moneyinfo.rowcount; i++) 
    {
        if (ds_main_moneyinfo.getColumn(i, "chk") == "true") 
        {        
			if (utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "pid")) == "") 
			{
				sysf_messageBox(parseInt(i+1) + "행에 환자번호가 입력되지 않았습니다.", "E");
				return;
			} 
			else if (utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "fromdd")) == "") 
			{
				sysf_messageBox(parseInt(i+1) + "행에 시작일자가 입력되지 않았습니다.", "E");
				return;
			} 
			else if (utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "todd")) == "") 
			{
				sysf_messageBox(parseInt(i+1) + "행에 종료일자가 입력되지 않았습니다.", "E");
				return;
			}
			
			var status = ds_main_moneyinfo.getRowType(i);

			dsf_makeValue(ds_send_moneyinfo, "pid", "string", ds_main_moneyinfo.getColumn(i, "pid"));
			dsf_makeValue(ds_send_moneyinfo, "fromdd", "string", ds_main_moneyinfo.getColumn(i, "fromdd"));
			
			// 저장 시 컬럼 변경됨. 2019-04-10 이아영
			dsf_makeValue(ds_send_moneyinfo, "orddd", "string", ds_main_moneyinfo.getColumn(i, "fromdd"));

			var oParam = {};
				oParam.id = "TRPMO01202";
				oParam.service = "patinfomngtapp.PatBaseInfo";
				oParam.method = "reqGetPastMoneyInfo";
				oParam.inds = "req=ds_send_moneyinfo";
				oParam.outds = "ds_main_pastmoneychk=item";
				oParam.async = false;
			tranf_submit(oParam);


			var totamt = parseInt(ds_main_pastmoneychk.getColumn(0, "payownbamt"));
			var rtn = "6"; // defalut를 [예]
			
			var max_payownbamt = ds_init_pam_P0032list.lookup("cdid", "280", "cdnm");
			
			if (parseInt(totamt) < max_payownbamt) 
			{
				rtn = sysf_messageBox("환자번호 "+ utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "pid")) + "는 급여본인부담액이 "
									  +utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "fromdd")).substr(0,4)+"-"
									  +utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "fromdd")).substr(4,2)+ "-" 
									  +utlf_transNullToEmpty(ds_main_moneyinfo.getColumn(i, "fromdd")).substr(6,2)+"까지 " + max_payownbamt + "만원을\n넘지 않았습니다. 그래도 등록하시겠습니까?", "S001", ""); //예:6  아니오:7  취소:2
			}
			if (rtn == "7") 
			{
				ds_main_moneyinfo.setColumn(i, "chk", "false");
				continue;
			} 
			else if (rtn == "2") 
			{
				return;
			}

			if (status == 2) 
			{ // insert    // status == 1 || status == 3
				savedata += "i" + "▦";
			} 
			else if (status == 4)
			{ // update  // status == 2
				savedata += "u" + "▦";
			}

			savedata += ds_main_moneyinfo.getColumn(i, "pid") + "▦";
			savedata += "Y" + "▦";
			savedata += ds_main_moneyinfo.getColumn(i, "fromdd") + "▦";
			savedata += ds_main_moneyinfo.getColumn(i, "todd") + "▩";
		}
	}
	trace(savedata)
    dsf_setCSVToDs("ds_send_reqdata", savedata);

    var oParam = {};
		oParam.id = "TXPMO01200";
		oParam.service = "patinfomngtapp.PatBaseInfo";
		oParam.method = "reqSetPatMoneyInfo";
		oParam.inds = "req=ds_send_reqdata";
		oParam.async = false;
		oParam.callback = "cf_TXPMO01200";
    tranf_submit(oParam);

    if (arErrorCode.pop("TXPMO01200") > -1) 
    {
        sysf_messageBox("처리되었습니다.", "I");

        var oParam = {};
			oParam.id = "TRPMO01200";
			oParam.service = "patinfomngtapp.PatBaseInfo";
			oParam.method = "reqGetPatMoneyInfo";
			oParam.inds = "req=ds_send_reqdata_srchdata";
			oParam.outds = "ds_main_moneyinfo=item";
			oParam.async = false;
        tranf_submit(oParam);

		ds_main_moneyinfo.addColumn("chk", "string");
        savedata = "status▦pid▦histstat▦fromdd▦todd▩";
    }
}

function cf_TXPMO01200(sSvcId, nErrorCode, sErrorMsg)
{
    arErrorCode.push(sSvcId, nErrorCode);
}

function button4_onclick(obj: Button, e: ClickEventInfo) 
{
    this.close();
}

function button1_onclick(obj: Button, e: ClickEventInfo)
{
    var savedata = "status▦pid▦histstat▦fromdd▦todd▩";

    for (var i = 0; i < ds_main_moneyinfo.rowcount; i++) 
    {
        if (ds_main_moneyinfo.getColumn(i, "chk") == "true")
        {
			if (utlf_isNull(ds_main_moneyinfo.getColumn(i, "pid")))
			{
				sysf_messageBox(parseInt(i+1) + "행에 환자번호가 입력되지 않았습니다.", "E");
				return;
			} 
			else if (utlf_isNull(ds_main_moneyinfo.getColumn(i, "fromdd")))
			{
				sysf_messageBox(parseInt(i+1) + "행에 시작일자가 입력되지 않았습니다.", "E");
				return;
			}
			else if (utlf_isNull(ds_main_moneyinfo.getColumn(i, "todd")))
			{
				sysf_messageBox(parseInt(i+1) + "행에 종료일자가 입력되지 않았습니다.", "E");
				return;
			}

			savedata += "d" + "▦";
			savedata += ds_main_moneyinfo.getColumn(i, "pid") + "▦";
			savedata += "X" + "▦";
			savedata += ds_main_moneyinfo.getColumn(i, "fromdd") + "▦";
			savedata += ds_main_moneyinfo.getColumn(i, "todd") + "▩";
		}
    }
    dsf_setCSVToDs("ds_send_reqdata", savedata);

    var oParam = {};
		oParam.id = "TXPMO01200";
		oParam.service = "patinfomngtapp.PatBaseInfo";
		oParam.method = "reqSetPatMoneyInfo";
		oParam.inds = "req=ds_send_reqdata";
		oParam.async = false;
		oParam.callback = "cf_TXPMO01200";
    tranf_submit(oParam);

    if (arErrorCode.pop("TXPMO01200") > -1) 
    {
        sysf_messageBox("저장되었습니다.", "I");

        var oParam = {};
			oParam.id = "TRPMO01200";
			oParam.service = "patinfomngtapp.PatBaseInfo";
			oParam.method = "reqGetPatMoneyInfo";
			oParam.inds = "req=ds_send_reqdata_srchdata";
			oParam.outds = "ds_main_moneyinfo=item";
			oParam.async = false;
        tranf_submit(oParam);
    }
}

function btn_add_onclick(obj: Button, e: ClickEventInfo) 
{
    var iRow = ds_main_moneyinfo.addRow();
    
    ds_main_moneyinfo.updatecontrol = false;
    ds_main_moneyinfo.setRowType(iRow, "i");
    ds_main_moneyinfo.setColumn(iRow, "chk", "true");
    ds_main_moneyinfo.setColumn(iRow, "todd", year + "1231");
    ds_main_moneyinfo.updatecontrol = true;
}

function btn_del_onclick(obj: Button, e: ClickEventInfo) 
{
    var iRow = ds_main_moneyinfo.rowposition;
    ds_main_moneyinfo.deleteRow(iRow);
}

function ds_main_moneyinfo_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "chk")
	{
		obj.setColumn(e.row, "chk", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
	}
}

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