YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPMC06513_특이환자체크.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPMC06513" position="absolute 0 0 100 100" titletext="특이환자체크" onload="SPPMC06513_onload">
    <Layouts>
      <Layout/>
    </Layouts>
    <Objects>
      <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" sumtext="환자번호"/>
          <Column id="ordtype" type="STRING" size="256" sumtext="진료형태"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_patlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="checkyn" type="STRING" size="256" sumtext="특이환자여부"/>
        </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                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include 'com_commonxp::comm_main.xjs';

//=======================================================================================
// Local Methods
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: 
 * Description		: 
 ****************************************************************************************/
function fGetSpclPatient(pid, ordtype){
	ds_send.clearData();
	ds_send.addRow();
	
	ds_main_patlist.clearData();
	ds_main_patlist.addRow();
	
	ds_send.setColumn(0, 'pid', pid);
	ds_send.setColumn(0, 'ordtype', ordtype);
	
	var oParam = {};
		oParam.id          = "TRPMC06513";
		oParam.service     = "pamcomnapp.PamComn";
		oParam.method      = "reqGetSpclPatient";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_patlist=resultlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPMC06513";

	tranf_submit(oParam);
	
	if(ds_main_patlist.getColumn(0, 'checkyn') == 'Y'){
		sysf_messageBox('\r\n업무처리시 오류가 발생하였습니다!!!\r\n\r\n해당 내용의 처리는 원무팀(6178)으로 문의 및 안내하시기 바랍니다.',
			'C000');
		return false;
	}
	return true;
}


//=======================================================================================
// Events
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: 
 * Description		: onload
 ****************************************************************************************/
function SPPMC06513_onload(obj:Form, e:LoadEventInfo){
	// 폼 초기화
	frmf_initForm(obj);
}
]]></Script>
  </Form>
</FDL>