YNU_JEUS/app_home/himed/xpapps/pam/cutmngtxp/xp/SPPIR31110_청구처방조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIR31110" position="absolute 0 0 810 451" titletext="청구처방조회" oninit="SPPIR31110_oninit" onload="SPPIR31110_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="청구처방조회" class="tit_1" position="absolute 0 0 183 23"/>
        <Static id="caption32" text="청구 처방내역" class="tit_2" position="absolute 0 26 160 47"/>
        <Shape id="line4" class="line_1" position="absolute 0 42 805 48" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="grd_clodlist" class="datagrid2" taborder="1" binddataset="ds_main_list1_clod" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 47 805 426">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="30"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="83"/>
                <Column size="83"/>
                <Column size="265"/>
                <Column size="76"/>
                <Column size="42"/>
                <Column size="45"/>
                <Column size="45"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="31" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="선택"/>
                <Cell col="2" text="clamym"/>
                <Cell col="3" text="clamdg"/>
                <Cell col="4" text="pid"/>
                <Cell col="5" text="pidsn"/>
                <Cell col="6" text="seqno"/>
                <Cell col="7" text="처방코드"/>
                <Cell col="8" text="EDI코드"/>
                <Cell col="9" text="처방명칭"/>
                <Cell col="10" text="단가"/>
                <Cell col="11" text="청구&#10;일회"/>
                <Cell col="12" text="청구&#10;일투"/>
                <Cell col="13" text="청구&#10;총투"/>
                <Cell col="14" text="청구액"/>
                <Cell col="15" text="정산&#10;일회"/>
                <Cell col="16" text="정산&#10;일투"/>
                <Cell col="17" text="정산&#10;총투"/>
                <Cell col="18" text="정산진료비"/>
                <Cell col="19" text="정산의뢰액"/>
                <Cell col="20" text="edilnno"/>
                <Cell col="21" text="edicdflag"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chksel" expr="expr:chksel == 'true' || chksel == '1' ? 1 : 0"/>
                <Cell col="2" text="bind:clamym"/>
                <Cell col="3" text="bind:clamdg"/>
                <Cell col="4" text="bind:pid"/>
                <Cell col="5" text="bind:pidsn"/>
                <Cell col="6" text="bind:seqno"/>
                <Cell col="7" style="align:left middle;" text="bind:snglcalcscorcd"/>
                <Cell col="8" style="align:left middle;" text="bind:edicd"/>
                <Cell col="9" style="align:left middle;" text="bind:hngnm"/>
                <Cell col="10" displaytype="number" text="bind:unitcost"/>
                <Cell col="11" text="bind:edidrugqty"/>
                <Cell col="12" text="bind:tims"/>
                <Cell col="13" text="bind:edidayno"/>
                <Cell col="14" displaytype="number" text="bind:ediamt"/>
                <Cell col="15" displaytype="text" edittype="text" text="bind:obtapponeqty"/>
                <Cell col="16" displaytype="text" edittype="text" text="bind:obtappdayqty"/>
                <Cell col="17" displaytype="text" edittype="text" text="bind:obtapptotqty"/>
                <Cell col="18" text="bind:changeediamt" mask="#,###"/>
                <Cell col="19" text="bind:obtappamt" mask="#,###"/>
                <Cell col="20" text="bind:edilnno"/>
                <Cell col="21" text="bind:edicdflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_save" taborder="2" text="환수내역전달" class="btn3" position="absolute 643 427 747 449" onclick="btn_save_onclick"/>
        <Button id="btn_close" taborder="3" text="취소" class="btn3" position="absolute 749 427 805 449" onclick="btn_close_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_list1_clod" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_list1_clod_oncolumnchanged">
        <ColumnInfo>
          <Column id="chksel" type="STRING"/>
          <Column id="clamym" type="STRING"/>
          <Column id="clamdg" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="pidsn" type="STRING"/>
          <Column id="seqno" type="STRING"/>
          <Column id="snglcalcscorcd" type="STRING"/>
          <Column id="edicd" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="unitcost" type="STRING"/>
          <Column id="edidrugqty" type="STRING"/>
          <Column id="tims" type="STRING"/>
          <Column id="edidayno" type="STRING"/>
          <Column id="ediamt" type="STRING"/>
          <Column id="obtapponeqty" type="STRING"/>
          <Column id="obtappdayqty" type="STRING"/>
          <Column id="obtapptotqty" type="STRING"/>
          <Column id="changeediamt" type="STRING"/>
          <Column id="obtappamt" type="STRING"/>
          <Column id="edilnno" type="STRING"/>
          <Column id="edicdflag" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data2_clod" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="seqno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="clamdg" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="pidsn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="clamym"/>
            <Col id="clamdg"/>
            <Col id="pid"/>
            <Col id="pidsn"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_sppir31110_rslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chksel" type="STRING"/>
          <Column id="clamym" type="STRING"/>
          <Column id="clamdg" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="pidsn" type="STRING"/>
          <Column id="seqno" type="STRING"/>
          <Column id="snglcalcscorcd" type="STRING"/>
          <Column id="edicd" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="unitcost" type="STRING"/>
          <Column id="edidrugqty" type="STRING"/>
          <Column id="tims" type="STRING"/>
          <Column id="edidayno" type="STRING"/>
          <Column id="ediamt" type="STRING"/>
          <Column id="obtapponeqty" type="STRING"/>
          <Column id="obtappdayqty" type="STRING"/>
          <Column id="obtapptotqty" type="STRING"/>
          <Column id="changeediamt" type="STRING"/>
          <Column id="obtappamt" type="STRING"/>
          <Column id="edilnno" type="STRING"/>
          <Column id="edicdflag" type="STRING"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <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";

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

function SPPIR31110_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_clodlist);
	
	fInitialize();
}

function fInitialize() 
{
	if ( frmf_checkOpener()) 
	{
		ds_send_data1.copyData(arg_ds_send);
	}
	
	var oParam = {};
		oParam.id          = "TRPIR31003";
		oParam.service     = "cutmngtapp.CutMngt";
		oParam.method      = "reqGetRefundClodList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_main_list1_clod=clod";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIR31003";

	tranf_submit(oParam);

	var nodeList = ds_send_data2_clod.rowcount;
	
	for(var i = 0; i < nodeList; i++)
	{
		var isFind = false;
		var seqno1 = ds_send_data2_clod.getColumn(i, "seqno");
		
		for (var j = 0; j < ds_main_list1_clod.rowcount && !isFind; j++) 
		{
			var seqno2 = ds_main_list1_clod.getColumn(j, "seqno");
			
			if (seqno1 == seqno2) 
			{
				isFind = true;
				
				ds_main_list1_clod.setColumn(j, "chksel", "true");
			}
		}
	}
}

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

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_hidden_sppir31110_rslt.clearData();
	
	var check = false;
	
	for (var i = 0; i < ds_main_list1_clod.rowcount; i++) 
	{
		check = ds_main_list1_clod.getColumn(i, "chksel");
		
		if (check == "true") 
		{
			var cnt = ds_hidden_sppir31110_rslt.addRow();
			
			if (cnt == 0)
			{
				ds_hidden_sppir31110_rslt.copyRow(cnt, ds_main_list1_clod, i);
			}
			else 
			{
				ds_hidden_sppir31110_rslt.copyRow(cnt, ds_main_list1_clod, i);
			}
		}
	}
	
	if (cnt == 0) 
	{
		return;
	}
	
	opener.ds_hidden_sppir31110_rslt.copyData(ds_hidden_sppir31110_rslt);

	this.close();
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>