YNU_JEUS/app_home/himed/xpapps/emr/medirecxp/xp/SPMMR09300_SMS입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMR09300" position="absolute 0 0 283 297" titletext="SMS 전송" oninit="SPMMR09300_oninit" onload="SPMMR09300_onload">
    <Layouts>
      <Layout>
        <!--
        <Div position="absolute 0 0 370 485" id="group3" scrollbars="autoboth">
          <Layouts>
            <Layout>
      -->
        <Static text="SMS 전송" position="absolute 0 0 260 16" id="lbl_title" class="tit_2"/>
        <!--
            </Layout>
          </Layouts>
        </Div>
        -->
        <Static id="caption7" text="KTAS 등급" class="cell_1" position="absolute 11 35 148 56" anchor="top right"/>
        <Static id="caption00" text="응급의학과 전담전문의" class="cell_1" position="absolute 11 72 148 93" anchor="top right"/>
        <Static id="caption01" text="담당교수" class="cell_1" position="absolute 11 112 148 133" anchor="top right"/>
        <Edit id="edit_ktas" taborder="1" position="absolute 154 35 241 55" enable="false"/>
        <Combo id="cmb_erdrid" taborder="4" position="absolute 154 72 241 92" innerdataset="@ds_userlist2" codecolumn="userid" datacolumn="usernm"/>
        <Combo id="cmb_medispclid" taborder="5" position="absolute 154 112 241 132" innerdataset="@ds_userlist" codecolumn="userid" datacolumn="usernm"/>
        <Static id="Static00" text="응급의학과 전담전문의 및 담당교수에게 문자 전송됩니다! 진행하시겠습니까?                            (단, ktas 3~5등급은 담당교수만)" position="absolute 16 144 232 218" style="color:red;font:dotum,9;"/>
        <Button id="btn_yes" taborder="6" text="YES" class="btn2" position="absolute 96 248 143 271" onclick="btn_yes_onclick"/>
        <Button id="btn_no" taborder="7" text="NO" class="btn2" position="absolute 160 248 207 271" onclick="btn_no_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_userlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_data_formrec" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_userlist2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_data_result" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="edit_ktas" propid="value" datasetid="ds_data_result" columnid="ktas"/>
      <BindItem id="item1" compid="cmb_erdrid" propid="value" datasetid="ds_data_result" columnid="erdrid"/>
      <BindItem id="item2" compid="cmb_medispclid" propid="value" datasetid="ds_data_result" columnid="medispclid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-01-16
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-01-16      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs"
include "emr_prcpmngtxp::MMO001.xjs"

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------




//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Argument			: 01.sKey	: 코드아이디
 *					: 02.sValue	: 코드명
 * Description		: 공통코드를 가져온다.
 ****************************************************************************************/


function SPMMR09300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	
	try {
		ds_data_formrec.copyData(arg_ds_data_formrec);
	} catch (e) {
	}
		
}

function SPMMR09300_onload(obj:Form, e:LoadEventInfo)
{
	
	var oParam = {};
		oParam.id          = "reqGetDischSmsList_1";
		oParam.service     = "medirecapp.ExtnMediRec";
		oParam.method      = "reqGetDischSmsList";
		oParam.inds        = "req=ds_data_formrec";
		oParam.outds       = "ds_data_result=smslist";
		oParam.async       = false;
	
	tranf_submit(oParam);
	
	var orddeptcd  = ds_data_result.getColumn(0,"orddeptcd");
	var medispclid = ds_data_result.getColumn(0,"medispclid");
	var erdrid = ds_data_result.getColumn(0,"erdrid");
	var orddd = ds_data_result.getColumn(0,"orddd");
	var ktas = ds_data_result.getColumn(0,"ktas");
	
	setUserList(orddeptcd, medispclid, orddd);
	setUserListEr("2280000000", erdrid, orddd);
}

function btn_yes_onclick(obj:Button,  e:ClickEventInfo)
{
	var ktas = edit_ktas.value;
	
	if ( utlf_isNull(ktas) ) {
		sysf_messageBox("KTAS 등급이 없으므로 진행불가합니다","I");
		return;
	} else if ( ktas < 3 ) {
		if (cmb_medispclid.value == "-") {
			sysf_messageBox("담당교수를 선택하세요","I");
			return;
		}
		if (cmb_erdrid.value == "-") {
			sysf_messageBox("응급의학과 전담전문의를 선택하세요","I");
			return;
		}
	} else {
		if (cmb_medispclid.value == "-") {
			sysf_messageBox("담당교수를 선택하세요","I");
			return;
		}
	}
	
	var pid = ds_data_formrec.getColumn(0,"pid");
	var ktas = ds_data_result.getColumn(0,"ktas");
	var medispclid = cmb_medispclid.value;
	var erdrid = cmb_erdrid.value;
	
	
	dsf_createDsRow("ds_req", [	  {col:"pid", type:"string", size:256, val:pid}
	                             ,{col:"ktas", type:"string", size:256, val:ktas}
	                             ,{col:"medispclid", type:"string", size:256, val:medispclid}
	                             ,{col:"erdrid", type:"string", size:256, val:erdrid}]);
	dsf_createDs("ds_rtn");
	
	//메시지 보내기
	var oParam = {};
		oParam.id          = "reqExeSendSMS_1";
		oParam.service     = "emrreclib.ComnFormRec";
		oParam.method      = "reqExeSendSMS";
		oParam.inds        = "req=ds_req";
		oParam.outds       = "ds_rtn=smslist";
		oParam.async       = false;
	
	tranf_submit(oParam);
	
	var msgkey = ds_rtn.getColumn(0,"msgKey");
	
	if ( utlf_isNull(msgkey) ) {
		sysf_messageBox("메시지 전송에 실패하였습니다","I");
		return;
	}
	close(this);
}

function btn_no_onclick(obj:Button,  e:ClickEventInfo)
{
	close(this);
}

function setUserList(sOrddeptcd, sMedispclid, sOrddd){
    var sCheckStr = "";
    
	lf_mmbfGetUserComboList(ds_userlist,  sOrddeptcd, "0330", "", "M", sOrddd, "", "P");
	frmf_addComboItem("cmb_medispclid");  //의사콤보 전체항목 추가
	ds_userlist.setColumn(0,"usernm","없음");
	sCheckStr = ds_userlist.lookup("userid", sMedispclid, "userid");
	
	
	if (!utlf_isNull(sCheckStr)) {
	    cmb_medispclid.value = sMedispclid; //전문의
	} else {
	    cmb_medispclid.value = "-";
	}
	
}

function setUserListEr(sOrddeptcd, sErdrid, sOrddd){
    var sCheckStr = "";
    
	lf_mmbfGetUserComboList(ds_userlist2,  sOrddeptcd, "0330", "", "M", sOrddd, "", "P");
	frmf_addComboItem("cmb_erdrid");  //의사콤보 전체항목 추가
	ds_userlist2.setColumn(0,"usernm","없음");
	sCheckStr = ds_userlist2.lookup("userid", sErdrid, "userid");
	
	if (!utlf_isNull(sCheckStr)) {
	    cmb_erdrid.value = sErdrid; //전문의
	} else {
	    cmb_erdrid.value = "-";
	}
	
}
]]></Script>
  </Form>
</FDL>