YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SPMNE00200_처방에러.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNE00200" position="absolute 0 0 815 526" titletext="처방오류리스트" oninit="SPMNE00200_oninit" onload="SPMNE00200_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 736 473 792 495" id="button1" class="btn4" text="확인" onclick="button1_onclick"/>
        <Static text="* 위의 오류사항을 수정후  저장하여 주십시오." position="absolute 6 473 265 493" id="caption2" style="color:#ff0000ff;"/>
        <Tab position="absolute 2 22 795 470" id="switch1">
          <Tabpages>
            <Tabpage text="처방에러" position="absolute 0 0 793 448" id="case1">
              <Layouts>
                <Layout>
                  <Grid position="absolute 0 0 793 416" id="errlist1" binddataset="ds_errlist1" autofittype="col">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="80"/>
                          <Column size="302"/>
                          <Column size="374"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell text="처방코드"/>
                          <Cell col="1" text="처방명"/>
                          <Cell col="2" text="오류내용"/>
                        </Band>
                        <Band id="body">
                          <Cell edittype="none" style="align:left;" text="bind:prcpcd" suppress="1" suppressalign="middle"/>
                          <Cell col="1" style="align:left;" text="bind:prcpnm"/>
                          <Cell col="2" style="align:left;" text="bind:prcperr"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                </Layout>
              </Layouts>
            </Tabpage>
            <Tabpage text="병용금기" id="case2">
              <Layouts>
                <Layout>
                  <Grid position="absolute 0 0 793 416" id="errlist2" binddataset="ds_errlist2" autofittype="col">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="80"/>
                          <Column size="302"/>
                          <Column size="374"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell text="처방코드"/>
                          <Cell col="1" text="처방명"/>
                          <Cell col="2" text="오류내용"/>
                        </Band>
                        <Band id="body">
                          <Cell edittype="none" text="bind:prcpcd"/>
                          <Cell col="1" text="bind:prcpnm"/>
                          <Cell col="2" text="bind:prcperr"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                </Layout>
              </Layouts>
            </Tabpage>
            <Tabpage text="연령금기" id="case3">
              <Layouts>
                <Layout>
                  <Grid position="absolute 0 0 793 416" id="errlist3" binddataset="ds_errlist3" autofittype="col" scrollbars="autovert">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="80"/>
                          <Column size="302"/>
                          <Column size="374"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell text="처방코드"/>
                          <Cell col="1" text="처방명"/>
                          <Cell col="2" text="오류내용"/>
                        </Band>
                        <Band id="body">
                          <Cell edittype="none" text="bind:prcpcd"/>
                          <Cell col="1" text="bind:prcpnm"/>
                          <Cell col="2" text="bind:prcperr"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                </Layout>
              </Layouts>
            </Tabpage>
          </Tabpages>
        </Tab>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_errlist1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="prcperr" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_errlist2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="prcperr" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_errlist3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="prcperr" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_errlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <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 "com_commodulexp::SSZFM00701.xjs";

function SPMNE00200_oninit(obj:Form, e:InitEventInfo){
	
}

function SPMNE00200_onload(obj:Form, e:LoadEventInfo){
	frmf_initForm(obj);
	
	try{
		ds_data_errlist.copyData(arg_ds_data_errlist, true);
	}catch(e){
		
	}
	
	var currow = 0;
	
	lf_setTabPageVisble(switch1, "case1", false);
	lf_setTabPageVisble(switch1, "case2", false);
	lf_setTabPageVisble(switch1, "case3", false);
	
	for ( var i=0; i < ds_data_errlist.rowcount; i++ ) {					
		   currow = i;
		flag = ds_data_errlist.getColumn(currow, "flag");
		if ( flag == "1" ) {
			lf_setTabPageVisble(switch1, "case1", true);
			var nRow = ds_errlist1.addRow();
			ds_errlist1.copyRow(nRow, ds_data_errlist, i);
		} else if ( flag == "2" ) {
			lf_setTabPageVisble(switch1, "case2", true);
			var nRow = ds_errlist2.addRow();
			ds_errlist2.copyRow(nRow, ds_data_errlist, i);
		} else if ( flag == "3" ) {
			lf_setTabPageVisble(switch1, "case3", true);
			var nRow = ds_errlist3.addRow();
			ds_errlist3.copyRow(nRow, ds_data_errlist, i);
		}										
	}
	
	// 인덱스를 설정한다
	var tabindex = 0;
	if(ds_errlist1.getRowCount() > 0){
		tabindex = 0;
	}
	else if(ds_errlist2.getRowCount() > 0){
		tabindex = 1;
	}
	else if(ds_errlist3.getRowCount() > 0){
		tabindex = 2;
	}
	
	switch1.tabindex = tabindex;
}

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