YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SMLBR00500_Irr처방관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLBR00500" position="absolute 0 0 1177 766" titletext="Irr처방관리" oninit="SMLBR00500_oninit" onload="SMLBR00500_onload">
    <Layouts>
      <Layout>
        <Div id="group1" taborder="1" position="absolute 0 39 435 74" anchor="default" class="div_SA2">
          <Layouts>
            <Layout>
              <Static id="caption1" text="등록번호 :" class="search_name" position="absolute 15 9 101 26" anchor="default"/>
              <Edit id="iptSearch" taborder="1" position="absolute 110 8 220 27" anchor="default" onkeydown="group1_iptSearch_onkeydown"/>
              <Button id="btn_search" taborder="2" position="absolute 202 10 218 25" style="background:skyblue;" onclick="group1_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption3" text="환자수진내역" class="tit_2" position="absolute 0 84 102 101" anchor="default"/>
        <Grid id="grd_patinfo" taborder="2" binddataset="ds_grd_patinfo" useinputpanel="false" position="absolute 0 105 435 764" anchor="default" oncellclick="grd_patinfo_oncellclick" autosizingtype="none" cellsizingtype="none" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </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="진료의ID"/>
                <Cell col="7"/>
                <Cell col="8"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" displaytype="date" edittype="date" text="bind:orddd"/>
                <Cell col="2" text="bind:orddeptnm"/>
                <Cell col="3" text="bind:orddrnm"/>
                <Cell col="4" text="bind:ordgbn"/>
                <Cell col="5" text="bind:orddeptcd"/>
                <Cell col="6" text="bind:orddrid"/>
                <Cell col="7" text="bind:pid"/>
                <Cell col="8" text="bind:cretno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Edit id="ipt_wbc" taborder="3" class="input_default" enable="false" position="absolute 525 60 645 79" anchor="left top"/>
        <Static id="caption4" text="진 료 과" class="cell_1" position="absolute 450 84 522 107" anchor="left top"/>
        <Edit id="input2" taborder="4" class="input_default" enable="false" position="absolute 725 60 845 79" anchor="left top"/>
        <Static id="cpt_wbc" text="등록번호" class="cell_1" position="absolute 450 59 522 82" anchor="left top"/>
        <Edit id="input4" taborder="5" class="input_default" enable="false" position="absolute 525 85 645 104" anchor="left top"/>
        <Edit id="input5" taborder="6" class="input_default" enable="false" position="absolute 725 85 845 104" anchor="left top" oneditclick="input5_oneditclick"/>
        <Static id="caption2" text="환자정보" class="tit_2" position="absolute 450 39 550 60" anchor="left top"/>
        <Static id="caption5" text="성     명" class="cell_1" position="absolute 650 59 722 82" anchor="left top"/>
        <Static id="caption7" text="진 료 일" class="cell_1" position="absolute 650 84 722 107" anchor="left top"/>
        <Edit id="input7" taborder="7" class="input_default" enable="false" position="absolute 968 85 1005 104" anchor="left top"/>
        <Static id="caption8" text="주민번호" class="cell_1" position="absolute 850 59 922 82" anchor="left top"/>
        <Static id="caption9" text="성별/나이" class="cell_1" position="absolute 850 84 922 107" anchor="left top"/>
        <Edit id="input3" taborder="8" class="input_default" enable="false" position="absolute 925 60 985 79" anchor="left top"/>
        <Edit id="input6" taborder="9" class="input_default" enable="false" position="absolute 987 60 1057 79" anchor="left top"/>
        <Edit id="input8" taborder="10" class="input_default" enable="false" position="absolute 925 85 965 104" anchor="left top"/>
        <Grid id="grd_prcpcdlist" taborder="11" binddataset="ds_grd_prcpcdlist" useinputpanel="false" position="absolute 450 144 1175 264" anchor="left top right" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27"/>
                <Column size="30"/>
                <Column size="125"/>
                <Column size="340"/>
                <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="검체코드"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
                <Cell col="2" text="bind:prcpcd"/>
                <Cell col="3" text="bind:prcpnm"/>
                <Cell col="4" text="bind:spccd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption10" text="처방리스트" class="tit_2" position="absolute 450 124 536 140" anchor="left top"/>
        <Static id="caption11" text="완료처방리스트" class="tit_2" position="absolute 450 274 564 290" anchor="left top"/>
        <Grid id="grd_rsltlist" taborder="12" binddataset="ds_grd_rsltlist" useinputpanel="false" position="absolute 450 294 1175 764" anchor="left top right" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27"/>
                <Column size="100"/>
                <Column size="110"/>
                <Column size="300"/>
                <Column size="130"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="처방일자"/>
                <Cell col="2" text="처방코드"/>
                <Cell col="3" text="처방명"/>
                <Cell col="4" text="검사결과"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" displaytype="date" edittype="date" text="bind:prcpdd" mask="yyyy-MM-dd"/>
                <Cell col="2" text="bind:prcpcd"/>
                <Cell col="3" text="bind:prcpnm"/>
                <Cell col="4" text="bind:reptrslt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_save" taborder="13" text="처방저장" class="btn4" position="absolute 1092 13 1172 35" anchor="top right" onclick="btn_save_onclick"/>
        <Static id="caption6" text="Irr 처방관리" class="tit_1" position="absolute 0 0 144 25" anchor="default"/>
        <Shape id="line1" onclick="grp3_line3_onclick" class="line_3" position="absolute 0 102 435 107" anchor="default" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line00" onclick="grp3_line3_onclick" class="line_3" position="absolute 450 141 1175 146" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line02" onclick="grp3_line3_onclick" class="line_3" position="absolute 450 291 1175 296" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line03" onclick="grp3_line3_onclick" class="line_3" position="absolute 449 56 1174 61" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
        <Shape id="line04" onclick="grp3_line3_onclick" class="line_3" position="absolute 450 81 1175 86" anchor="left top right" style="strokepen:1 solid #33bbbbff;"/>
        <Shape id="line05" onclick="grp3_line3_onclick" class="line_3" position="absolute 450 106 1175 111" anchor="left top right" style="strokepen:1 solid #33bbbbff;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddd" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="ordgbn" type="STRING"/>
          <Column id="orddeptcd" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="cretno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_prcpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="spccd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_rsltlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING"/>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="reptrslt" type="STRING"/>
        </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="patid" type="STRING" size="256"/>
          <Column id="dbsend" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cond" 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="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_dbsend" 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="orddrid" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="data1" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <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"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="patid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_toppatinfo" 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="patnm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_wbc" propid="value" datasetid="ds_toppatinfo" columnid="pid"/>
      <BindItem id="item1" compid="input2" propid="value" datasetid="ds_toppatinfo" columnid="patnm"/>
      <BindItem id="item2" compid="input3" propid="value" datasetid="ds_toppatinfo" columnid="rrgstno1"/>
      <BindItem id="item3" compid="input6" propid="value" datasetid="ds_toppatinfo" columnid="rrgstno2"/>
      <BindItem id="item4" compid="input4" propid="value" datasetid="ds_toppatinfo" columnid="orddeptnm"/>
      <BindItem id="item5" compid="input5" propid="value" datasetid="ds_toppatinfo" columnid="orddd"/>
      <BindItem id="item6" compid="input8" propid="value" datasetid="ds_toppatinfo" columnid="sex"/>
      <BindItem id="item7" compid="input7" propid="value" datasetid="ds_toppatinfo" columnid="age"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
 
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LLZ001.xjs";

function SMLBR00500_oninit(obj:Form, e:InitEventInfo)
{
	//폼 초기화 함수
	frmf_initForm(obj);
}

function SMLBR00500_onload(obj:Form, e:LoadEventInfo)
{	
	grdf_initGrid(grd_patinfo);
	grdf_initGrid(grd_prcpcdlist);
	grdf_initGrid(grd_rsltlist);
}

function cf_TRLBR00502(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function cf_TXLBR00501(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function fClickResultList()
{	
	var currow = ds_grd_patinfo.rowposition;

	ds_dbsend.setColumn(0, "orddd", ds_grd_patinfo.getColumn(currow, "orddd"));
	ds_dbsend.setColumn(0, "orddeptcd", ds_grd_patinfo.getColumn(currow, "orddeptcd"));
	ds_dbsend.setColumn(0, "orddrid", ds_grd_patinfo.getColumn(currow, "orddrid"));
	ds_dbsend.setColumn(0, "pid", ds_grd_patinfo.getColumn(currow, "pid"));
	ds_dbsend.setColumn(0, "cretno", ds_grd_patinfo.getColumn(currow, "cretno"));

	var oParam = {};
		oParam.id          = "TRLBR00502";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetIrr3GridList";
		oParam.inds        = "cond=ds_dbsend";
		oParam.outds       = "ds_grd_prcpcdlist=getIrrPrcpList ds_grd_rsltlist=getIrrPatRsltList ds_toppatinfo=getIrrPatTopInfo";
		oParam.async       = false;
    //oParam.callback    = "cf_TRLBR00502";
	tranf_submit(oParam);
}

function fInsRsltSave()
{
	var prcpRows = grd_prcpcdlist.rowcount;
	var saveflag = "N";

	for(var iRow = 0; iRow < prcpRows ; iRow++)
	{	
		if(ds_grd_prcpcdlist.getColumn(iRow, "chk") == "1")
		{
			grdf_setStatus(grd_prcpcdlist, "U" ,iRow);
			saveflag = "Y";	
		}
		else
		{
			grdf_setStatus(grd_prcpcdlist, "I", iRow);
		}
	}
	if(saveflag == "N")
	{
		alert("저장할 처방이 없습니다.");
	}
	
	var temp = grdf_getGridUpdateData(grd_prcpcdlist, "all");
	ds_data1.copyData(temp, true);
	trace(ds_data1);
	
	var oParam = {};
		oParam.id          = "TXLBR00501";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqSetIrrPrcpList";
		oParam.inds        = "cond=ds_dbsend prcd=ds_data1";
		oParam.transaction = false;
		oParam.async       = false;
		oParam.callback    = "cf_TXLBR00501";
	tranf_submit(oParam);
	
	fClickResultList();
}

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


function group1_iptSearch_onkeydown(obj:Edit, e:KeyEventInfo)
{	
	if( e.keycode == 13 )
	{	
		if(utlf_isNull(group1.iptSearch.value))
		{
			alert("등록번호를 입력하세요");
		}
		else
		{	
				
			fClickResultList();
			ds_hidden_ref.setColumn(0, "searchtext", (group1.iptSearch.text).toUpperCase());
			ds_patid.setColumn(0, "patid", ds_hidden_ref.getColumn(0, "searchtext"));
			
			var oParam = {};
			oParam.id          = "TRLBR00501";
			oParam.service     = "rsltmngtapp.RsltMngt";
			oParam.method      = "reqGetPatIrrList";
			oParam.inds        = "cond=ds_patid";
			oParam.outds       = "ds_grd_patinfo=getPatIrrList";
			oParam.async       = false;
			//oParam.callback    = "cf_TRLBR00501";
			tranf_submit(oParam);	
			
 			ds_grd_patinfo.rowposition = 0;;
		}
	}
	
}


function grd_patinfo_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fClickResultList();
}

function fClickResultList(){
	
	var grd_Row = ds_grd_patinfo.rowposition ;
	
// 	model.setValue("/root/send/dbsend/orddd", model.getValue("/root/main/patinfo[" + grd_Row + "]/orddd"));
// 	model.setValue("/root/send/dbsend/orddeptcd", model.getValue("/root/main/patinfo[" + grd_Row + "]/orddeptcd"));
// 	model.setValue("/root/send/dbsend/orddrid", model.getValue("/root/main/patinfo[" + grd_Row + "]/orddrid"));
// 	model.setValue("/root/send/dbsend/pid", model.getValue("/root/main/patinfo[" + grd_Row + "]/pid"));
// 	model.setValue("/root/send/dbsend/cretno", model.getValue("/root/main/patinfo[" + grd_Row + "]/cretno"));
    
    ds_dbsend.setColumn(0, "orddd", ds_grd_patinfo.getColumn(grd_Row, "orddd"));
    ds_dbsend.setColumn(0, "orddeptcd", ds_grd_patinfo.getColumn(grd_Row, "orddeptcd"));
    ds_dbsend.setColumn(0, "orddrid", ds_grd_patinfo.getColumn(grd_Row, "orddrid"));
    ds_dbsend.setColumn(0, "pid", ds_grd_patinfo.getColumn(grd_Row, "pid"));
    ds_dbsend.setColumn(0, "cretno", ds_grd_patinfo.getColumn(grd_Row, "cretno"));
	
	
//	submit("TRLBR00502");
	
	var oParam = {};
		oParam.id          = "TRLBR00502";
		oParam.service     = "rsltmngtapp.RsltMngt";
		oParam.method      = "reqGetIrr3GridList";
		oParam.inds        = "cond=ds_dbsend";
		oParam.outds       = "ds_grd_prcpcdlist=getIrrPrcpList ds_grd_rsltlist=getIrrPatRsltList ds_toppatinfo=getIrrPatTopInfo";
		oParam.async       = false;
		oParam.callback    = "cf_TRLBR00502";

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