YNU_JEUS/app_home/himed/xpapps/emr/waitguidexp/xp/SMMNV08400_챠트대출전광판.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNV08400" position="absolute 0 0 1009 748" titletext="챠트사본/중증등록" oninit="SMMNV08400_oninit" onload="SMMNV08400_onload" onrbuttondown="SMMNV08400_onrbuttondown">
    <Layouts>
      <Layout>
        <TextArea position="absolute 0 670 1005 732" align="align:center middle;" id="tar_callmsg" style="background:#ffff99ff stretch 5,5;color:#0000ffff;font:arial,30,bold;"/>
        <ImageViewer position="absolute 0 0 1000 110" id="img1" image="URL('IMG::emr/MN/his014copyreq.png')"/>
        <Grid position="absolute 0 138 1002 665" align="align:center middle;" id="grd_list" class="datagrid_op" scrollbars="autoboth" binddataset="ds_grd_list" autoenter="none" autofittype="none" autosizingtype="both" onrbuttondown="grd_list_onrbuttondown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="345"/>
                <Column size="440"/>
                <Column size="214"/>
              </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 style="font:,18,bold;" text="bind:pid" wordwrap="none"/>
                <Cell col="1" style="font:,18,bold;" text="bind:hngnm" wordwrap="none"/>
                <Cell col="2" style="font:,18,bold;" text="bind:stat" wordwrap="none"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="환자명" position="absolute 345 108 785 162" align="align:center middle;" id="caption2" style="background:#008080ff;color:#ffffffff;align:center middle;font:arial,29,bold;"/>
        <Static text="상태" position="absolute 785 108 1002 162" align="align:center middle;" id="caption3" style="background:#008080ff;color:#ffffffff;align:center middle;font:arial,29,bold;"/>
        <Static text="등록번호" position="absolute 0 108 345 162" align="align:center middle;" id="caption5" style="background:#008080ff;color:#ffffffff;align:center middle;font:arial,29,bold;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_copyreqpatinfo_copyreqpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="stat" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_msglist_msginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nodecnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_msg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msg" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </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";

var IntervalTime1 = 5 * 1000 ;	// 5초
var showGrdTime = 5 * 1000 ;	// 10초 (분만)
var DelTempFolderTime = 6 * 60 * 60 * 1000 ;	// 6시간
var showMsgTime = 9 * 1000 ;		// 9초 메시지
var cnts = 0;
var msgintervalIDTop = "";
var DelTempFolderID;
var clockID ="";
var count = 1;
var grdintervalIDTop;

function SMMNV08400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	
	frmf_createPopupMenu("FormClose"
						,"fPopupMenudruglist2" 
						,[{id: "fCloseBoard"	, level: "0", title: "종료"}					
						 ]
						);
}

/****************************************************************************************
 * Function			: fPopupMenudruglist2
 * Description		: 
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fPopupMenudruglist2(obj:PopupMenu, e:MenuClickEventInfo)
{
	switch( e.id ){
		case "fCloseBoard" :
			this.close();
			break;
		default :
			break;
	}
}

function SMMNV08400_onload(obj:Form, e:LoadEventInfo)
{
	//DelTempFolderID	= window.setInterval("fdelTempFolers();", 			DelTempFolderTime);	//6시간
	var m = fdelTempFolers();
	this.setTimer(DelTempFolderID, m * DelTempFolderTime);
	fGetCopyReqPatList();
		
	var oParam = {};
		oParam.id          = "TRMNV21102";
		oParam.service     = "waitguideapp.WaitCopyReqMngt";
		oParam.method      = "reqGetCopyReqMsgInfo";
		//oParam.inds        = "req=ds_";
		oParam.outds       = "ds_main_msg=msg";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNV21102";

	tranf_submit(oParam);
}

function fGetCopyReqPatList() 
{
	count = 1;
	ds_main_msglist_msginfo.clearData();
	
	var oParam = {};
		oParam.id          = "TRMNV08401";
		oParam.service     = "waitguideapp.WaitCopyReqMngt";
		oParam.method      = "reqGetCopyReqInfo";
		oParam.inds        = "req=ds_";
		oParam.outds       = "ds_main_copyreqpatinfo_copyreqpatlist=copyreqpatlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNV08401";

	tranf_submit(oParam);	
	ds_main.setColumn(0, "nodecnts", ds_main_copyreqpatinfo_copyreqpatlist.rowcount);
	//grdintervalIDTop = window.setInterval("fGetCopyReqPatListSub()", showGrdTime);	//100) ;	//7초			
	var m = fGetCopyReqPatListSub();
	this.setTimer(grdintervalIDTop, m * showGrdTime);
}

//----------------------------
// 자료를 상단으로 올리는 기능1 
//----------------------------
function fGetCopyReqPatListSub() 
{	
	var cnts = ds_main_copyreqpatinfo_copyreqpatlist.rowcount;
	var nodecnts = ds_main.getColumn(0, "nodecnts");
	if (nodecnts > count) 
	{
		if (cnts > 8) 
		{
			//수정
			//copyNodeListType("/root/main/copyreqpatinfo", "/root/main/copyreqpatinfo/copyreqpatlist[1]", "after");
			ds_send_cond_recinfo.copyRow(0, ds_main_condition, 0);
			
			//수정
			//model.removenode("/root/main/copyreqpatinfo/copyreqpatlist[1]") ;
			count ++ ;
		} else {
			var nccnts = nodecnts - count
			if (nccnts > 2) {
				count ++;
			} else {
				count = nodecnts + 1;
			}
		}
	} 
	else 
	{		
		grdintervalIDTop = "";		
		fGetCopyReqPatList();
	}		
}

//로그를 지우는 함수 
function fdelTempFolers()
{
	var fso  = new ActiveXObject("Scripting.FileSystemObject");
	var fldr = fso.GetFolder("C:\\Program Files\\himed\\components\\TrustForm\\TFViewer");	
	var fc = new Enumerator(fldr.SubFolders);
	for(;!fc.atEnd(); fc.moveNext())
	{
		fc.item().Delete();							
	}
}				

function fCloseBoard(){
	if (!utlf_isNull(msgintervalIDTop)) msgintervalIDTop = "";
	if (!utlf_isNull(DelTempFolderID)) DelTempFolderID = "";

	this.close();
}

function SMMNV08400_onrbuttondown(obj:Form, e:MouseEventInfo)
{
	FormClose.trackPopup(e.screenX, e.screenY);
}

function grd_list_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	FormClose.trackPopup(e.screenX, e.screenY);
}
]]></Script>
  </Form>
</FDL>