YNU_JEUS/app_home/himed/xpapps/lis/bcollmngtxp/xp/SPLLC90900_채혈데이터검체변경관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLLC90900" position="absolute 0 0 1200 744" titletext="전환처방조회" oninit="SPLLC90900_oninit" onload="SPLLC90900_onload">
    <Layouts>
      <Layout>
        <Div id="group2" taborder="2" class="div_SA2" position="absolute 0 37 1195 79" anchor="left top right">
          <Layouts>
            <Layout>
              <Edit id="iptSearch" taborder="0" class="input_s_button" position="absolute 83 10 248 30" anchor="default" autoselect="true" onkeydown="group2_iptSearch_onkeydown"/>
              <Static id="caption4" text="등록번호" class="search_name" position="absolute 8 10 82 30" onclick="group00_caption4_onclick" anchor="default"/>
              <Static id="caption1" text="검체선택" class="search_name" position="absolute 928 10 1002 30" anchor="default"/>
              <Combo id="combo1" taborder="1" position="absolute 1002 10 1162 30" anchor="default" innerdataset="@ds_init_spccdlist" datacolumn="nm" codecolumn="cd" onitemchanged="group2_combo1_onitemchanged"/>
              <Button id="Button00" taborder="2" position="absolute 231 13 245 27" style="image:URL('D:\KNUProject\application\xpapps\IMAGES\emr\MR\icon_btn.png');background:transparent URL('D:\KNUProject\application\xpapps\IMAGES\emr\MR\icon_btn.png');" onclick="group2_Button00_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_reset" taborder="3" text="초기화" class="btn4" position="absolute 1125 16 1194 36" anchor="right bottom" onclick="btn_reset_onclick"/>
        <Button id="btn_save" taborder="4" text="저장" class="btn4" position="absolute 1068 16 1124 36" anchor="right bottom" onclick="btn_save_onclick"/>
        <Grid id="grd_bcolllist" taborder="5" useinputpanel="false" position="absolute 0 109 265 723" anchor="left top bottom" binddataset="ds_main_bcolllist" autoenter="select" cellsizingtype="col" oncellclick="grd_bcolllist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="75"/>
                <Column size="75"/>
                <Column size="85"/>
              </Columns>
              <Rows>
                <Row size="22" band="head"/>
                <Row size="20"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="진료과"/>
                <Cell col="2" text="진료의사"/>
                <Cell col="3" text="진료일자"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1"/>
                <Cell col="1" style="align:center middle;" text="bind:orddeptnm"/>
                <Cell col="2" style="align:center middle;" text="bind:orddrnm"/>
                <Cell col="3" displaytype="date" style="align:center middle;" text="bind:orddd" calendardisplaynulltype="nulltext"/>
                <Cell col="4"/>
                <Cell col="5"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption2" text="채혈정보" class="tit_2" position="absolute 0 88 75 108"/>
        <Static id="caption3" text="처방내역" class="tit_2" position="absolute 277 88 352 108"/>
        <Grid id="prcplist" taborder="6" useinputpanel="false" position="absolute 276 109 1195 723" anchor="all" binddataset="ds_main_prcplist" oncellclick="prcplist_oncellclick" autoenter="select" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="70"/>
                <Column size="170"/>
                <Column size="85"/>
                <Column size="125"/>
                <Column size="70"/>
                <Column size="31"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="115"/>
                <Column size="45"/>
              </Columns>
              <Rows>
                <Row size="22" band="head"/>
                <Row size="20"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <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="전환"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" style="align:center middle;" text="bind:chk" expr="expr:chk == 'true' || chk == '1' ? 1 : 0"/>
                <Cell col="1" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpcd"/>
                <Cell col="2" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpnm"/>
                <Cell col="3" displaytype="date" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpdd" calendardisplaynulltype="nulltext"/>
                <Cell col="4" displaytype="date" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:rgstdt" mask="yyyy-MM-dd HH:mm:ss" calendardisplaynulltype="nulltext"/>
                <Cell col="5" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpdr"/>
                <Cell col="6" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:calyn"/>
                <Cell col="7" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpstatcd"/>
                <Cell col="8" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:prcpspccd"/>
                <Cell col="9" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:spccdnm"/>
                <Cell col="10" style="align:center middle;color:EXPR(color);color2:EXPR(color);" text="bind:migyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption6" text="처방조회" class="tit_1" position="absolute 0 0 116 25"/>
        <Shape id="Shape00" position="absolute 0 104 265 111" class="line_10"/>
        <Shape id="Shape01" class="line_10" position="absolute 276 104 1195 111" anchor="left top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_hidden_ref" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="searchtext" type="STRING" size="256"/>
          <Column id="spccho" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="searchtext"/>
            <Col id="spccho"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_bcolllist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="orddd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcphistno" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="pid" type="STRING" size="256" sumtext="채혈일시"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_prcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="rgstdt" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpdr" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpstatcd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpspccd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="calyn" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="spccd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="spccdnm" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="prcphistno" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="migyn" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="chk" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="color" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_spccdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="nm" type="STRING" size="256" sumtext="채혈일시"/>
          <Column id="basespccd" type="STRING" size="256" sumtext="채혈일시"/>
        </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="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="prcpdd"/>
            <Col id="prcpno"/>
            <Col id="prcphistno"/>
            <Col id="tclscd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.iptSearch" propid="value" datasetid="ds_hidden_ref" columnid="searchtext"/>
      <BindItem id="item1" compid="group2.combo1" propid="value" datasetid="ds_hidden_ref" columnid="spccho"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SPLLC90900_채혈데이터검체변경관리.xfdl
 * Creator 	    :	
 * Make Date 		:	2015-11-10
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2015-11-10        HIT       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
 
include "com_commonxp::comm_main.xjs";

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

function SPLLC90900_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_bcolllist);
	grdf_initGrid(prcplist);
	
	try
	{
		ds_hidden_ref.copyData(arg_ds_hidden_ref)
	}
	catch(e)
	{}
	
	fSetInit();
}

function fSetInit()
{
	ds_main_bcolllist.clearData();
	ds_main_prcplist.clearData();
	dsf_makeValue(ds_hidden_ref, "spccho", "string", "");
	
	fGetResultListRef();
}

function fGetResultListRef()
{
	ds_main_bcolllist.clearData();
	ds_main_prcplist.clearData();
	ds_hidden_ref.setColumn(0, "searchtext", group2.iptSearch.value);
	ds_send.setColumn(0, "pid", ds_hidden_ref.getColumn(0, "searchtext"));
   
	var oParam = {};
		oParam.id          = "TRLLC90901";
		oParam.service     = "bcollmngtapp.BCollMngt";
		oParam.method      = "reqGetDrugSpccdBcoll";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_main_bcolllist=getDrugSpccdBcoll";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC90901";

	tranf_submit(oParam);

	
	if(ds_main_bcolllist.rowcount > 0)
	{
		fClickbcolllist(0);
	}	
}

function fClickbcolllist(Row)
{
	ds_main_prcplist.clearData();
	
	ds_hidden_ref.setColumn(0, "spccho", "");
	ds_send.setColumn(0, "prcpdd" , ds_main_bcolllist.getColumn(Row, "prcpdd"));
	ds_send.setColumn(0, "prcpno" , ds_main_bcolllist.getColumn(Row, "prcpno"));
	ds_send.setColumn(0, "prcphistno" , ds_main_bcolllist.getColumn(Row, "prcphistno"));
	ds_send.setColumn(0, "pid" , ds_main_bcolllist.getColumn(Row, "pid"));
	
	var oParam = {};
		oParam.id          = "TRLLC90902";
		oParam.service     = "bcollmngtapp.BCollMngt";
		oParam.method      = "reqGetDrugSpccdBcollDet";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_main_prcplist=getDrugSpccdBcollDet";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC90902";

	tranf_submit(oParam);

	if(ds_main_prcplist.rowcount > 0)
	{
		for(var  i = 0; i < ds_main_prcplist.rowcount; i++)
		{
			if(String(ds_main_prcplist.getColumn(i, "prcpspccd")).getTrim() == String(ds_main_prcplist.getColumn(i, "spccdnm")).getTrim())
			{
			}
			else
			{
				ds_main_prcplist.setColumn(i, "chk" ,  "true");
			}
			
			ds_main_prcplist.setColumn(i, "color", "#4d4d4d");
		}
	}
}

function group2_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSetSpccd();
}

function fSetSpccd()
{		
	var spccd = ds_hidden_ref.getColumn(0, "spccho");
	
	var spcnm = group2.combo1.text;
	
	ds_main_prcplist.setColumn(ds_main_prcplist.rowposition, "spccd", spccd);
	ds_main_prcplist.setColumn(ds_main_prcplist.rowposition, "spccdnm", spcnm);
	ds_main_prcplist.setColumn(ds_main_prcplist.rowposition, "chk", "true");
	
	ds_main_prcplist.setColumn(ds_main_prcplist.rowposition, "color", "#0066CC");
}

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

function grd_bcolllist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fClickbcolllist(ds_main_bcolllist.rowposition);
}

function group2_iptSearch_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fPidRef();
	}
}

function fPidRef()
{
	fGetResultListRef();
}	

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fExe();
}

function btn_reset_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetInit();	
}

function fExe()
{	
	for(var i = 0; i < ds_main_prcplist.rowcount; i++)
	{		
		if(ds_main_prcplist.getColumn(i, "chk") == "true")
		{
			if(ds_main_prcplist.getColumn(i, "migyn") == "Y")
			{
				ds_main_prcplist.updatecontrol = false;
				ds_main_prcplist.setRowType(i, "u");
				ds_main_prcplist.updatecontrol = true;
			}
			else
			{
				ds_main_prcplist.updatecontrol = false;
				ds_main_prcplist.setRowType(i, "");
				ds_main_prcplist.updatecontrol = true;
			}
			
			if(ds_main_prcplist.getColumn(i, "spccd") == "999" || ds_main_prcplist.getColumn(i, "spccd") == "998")
			{
				sysf_messageBox("검체선택을 해야 합니다.", "I");
				ds_main_prcplist.updatecontrol = false;
				ds_main_prcplist.setRowType(i, "");
				ds_main_prcplist.updatecontrol = true;
			}
		}
		else
		{
			ds_main_prcplist.updatecontrol = false;
			ds_main_prcplist.setRowType(i, "");
			ds_main_prcplist.updatecontrol = true;
		}		
	}
	

	var updategrid = grdf_getGridUpdateData(prcplist);
	ds_send_data1.copyData(updategrid, true);
	
	var oParam = {};
		oParam.id          = "TRLLC00103";
		oParam.service     = "bcollmngtapp.BCollMngt";
		oParam.method      = "reqSetSpccdList";
		oParam.inds        = "cond=ds_send_data1";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC00103";

	tranf_submit(oParam);
	
	fClickbcolllist(ds_main_bcolllist.rowposition);

	dsf_setDefaultVal(ds_main_prcplist, "color:#4d4d4d");
	
	opener.lf_GetOutBCollJoHoi();
	this.close();
}

function group2_Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetResultListRef();
}

function prcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fGetspccd();		
}

function fGetspccd()
{
	ds_hidden_ref.setColumn(0, "spccho", "");
	
	var mig = ds_main_prcplist.getColumn(ds_main_prcplist.rowposition, "migyn");
	
	if(mig == "N")
	{
		sysf_messageBox("전환데이터가 아닙니다.", "I");
		return;
	}
	
	var tclscd = ds_main_prcplist.getColumn(ds_main_prcplist.rowposition, "prcpcd");
	ds_send.setColumn(0, "tclscd", tclscd);
		
	var oParam = {};
		oParam.id          = "TRLLC90903";
		oParam.service     = "bcollmngtapp.BCollMngt";
		oParam.method      = "reqGetSpccdList";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_spccdlist=getSpccdList";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC90903";

	tranf_submit(oParam);
}]]></Script>
  </Form>
</FDL>