YNU_JEUS/app_home/himed/xpapps/emr/chrtmngtxp/xp/SSMRC03300.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	DBS
 * Job Name 		:	
 * File Name 		:	SSMRC03300.xjs
 * Creator 	    	:	
 * Make Date 		:	2014-11-21
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2014-11-21        DBS       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

//=======================================================================================
// Transaction Callback 
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Argument			: 01.sSvcId	: 서비스 ID
 *					: 02.nErrorCode	: 에러코드
 *					: 03.sErrorMsg	: 에러메시지
 * Description		: tr_getCodeList의 콜백함수
 ****************************************************************************************/
function cf_TRMRC00110(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC00110 *****");
	
	ds_grd_applist.rowposition = -1;
}

function cf_TRPMC02500(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRPMC02500 *****");
}
 
function cf_TXMRC03001(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    arErrorMsg.push(sSvcId, sErrorMsg.split("|")[0]);
	//sysf_trace("***** cf_TXMRC03001 *****");
}

function cf_TRMRC00180(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC00180 *****");
}

function cf_TXMRC03003(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    arErrorMsg.push(sSvcId, sErrorMsg.split("|")[0]);
	//sysf_trace("***** cf_TXMRC03003 *****");
}

function cf_TRMRC00113(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC00113 *****");
	
	ds_grd_rendlist.rowposition = -1;
}

function cf_TRMRC00144(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC00144 *****");
	
	ds_grd_chrtlist.rowposition = -1;
}

function cf_TXMRC00120(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TXMRC00120 *****");
	
	ds_grd_applist.rowposition = -1;
	ds_grd_rendlist.rowposition = -1;
}

function cf_TXMRC00105(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TXMRC00105 *****");
}

function cf_TXMRC00102(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TXMRC00102 *****");
}

function cf_TXMRC00100(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TXMRC00100 *****");
	
	ds_grd_rendlist.rowposition = -1;
}



//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode = new HashArray();
var arErrorMsg = new HashArray();
var screenX = "";
var screenY = "";


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

/****************************************************************************************
 * Argument			: 01.	: 
 *					: 02.	: 
 * Description		: 화면 초기화
 ****************************************************************************************/
 /**
 * @desc   : 폼초기화
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fFormInit()
{
/* 마스터 정보 가져오기..
			//공통코드 가져오기...
			//M0392:챠트미대출사유코드
			//M0412:과보관사유코드
			//M0424:차트상태(분실)코드
			zbcfGetCodeList(new Array("M0392","M0412","M0424"),	new Array("/root/init/M0392","/root/init/M0412","/root/init/M0424"));
			// 대출용도, 대출과, 차트과, 차트담당자, 보관장소
			model.makeValue("/root/send/reqdata/ioflag"   , "O");
			model.makeValue("/root/send/reqdata/useyn"    , "");
			model.makeValue("/root/send/reqdata/allwardyn", "");
			model.refresh();
			submit("TRMRC00100");
//*/
		ds_send_reqdata.setColumn(0, "rendcd"	, "ALL");
		ds_send_reqdata.setColumn(0, "appdept" , "ALL");
		ds_send_reqdata.setColumn(0, "appdd"	, utlf_getCurrentDate());
		ds_send_reqdata.setColumn(0, "chrtman" , "ALL");
		ds_send_reqdata.setColumn(0, "keepplce", "ALL");
		ds_send_reqdata.setColumn(0, "renddd"	, utlf_getCurrentDate());
		ds_send_reqdata.setColumn(0, "resettm"	, utlf_getCurrentTime());
		ds_send_reqdata.setColumn(0, "acptid"	, sysf_getUserId());

		// 2008.07.30. 차트자동대출 , 차트기타대출 : display 구분
		ds_send_reqdata.setColumn(0, "autolendflag", "A");		

		fDisplayAutoLend();
}



/**
 * @desc   : 차트자동대출 , 차트기타대출 : display
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.07.30
 * @---------------------------------------------------
 */
function fDisplayAutoLend()
{
		var flag = ds_send_reqdata.getColumn(0, "autolendflag");		
		if (flag == "A") {
			grup_lendinfo.switch1.tabindex = 0;
			grup_lendinfo.switch1.lendinfo_etc.enable = false;
			grup_chrtlist.enable = false;
		} 
		else if (flag == "I") {				//2010.12.27, 주희경, 입원대출 추가
			grup_lendinfo.switch1.tabindex = 1;
			grup_chrtlist.enable = true;
			//cbo_lenddeptcd.dispatch("xforms-value-changed");
			var e = new ItemChangeEventInfo;
			frmf_inputEnterKey("grup_lendinfo.switch1.lendinfo_inpt.cbo_lenddeptcd", "onitemchanged", e);
		} else {
			grup_lendinfo.switch1.tabindex = 0;
			grup_lendinfo.switch1.lendinfo_etc.enable = true;
			grup_chrtlist.enable = true;
			//cmb_l_appdeptcd.dispatch("xforms-value-changed");
			var e = new ItemChangeEventInfo;
			frmf_inputEnterKey("grup_lendinfo.switch1.lendinfo_etc.cmb_l_appdeptcd", "onitemchanged", e);
			
		}		
		grup_lendinfo.switch1.lendinfo_etc.ipt_l_lendmanid.enable = false;
		grup_lendinfo.switch1.lendinfo_etc.ipt_l_appmanid.enable = false;
		grup_lendinfo.switch1.lendinfo_etc.ipt_l_appmannm.enable = false;
		grup_chrtlist.ipt_chrtpnm.enable = false;
}


/**
 * @desc   : 챠트 대출 우클릭시 - > 챠트대출
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetrendchart()
{
		fUpdateRendDelFlagYN("N");
}

/**
 * @desc    : 챠트 대출 우클릭시 - > 대출 신청 취소
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetrendcncl()
{
		fUpdateRendDelFlagYN("Y");
}

/**
 * @desc   : 챠트 대출 우클릭시 - > 챠트 대출 또는 대출 신청 취소(update)
 * @
 * @param  : flag ('N'=> 챠트대출, 'Y'=>신청취소)
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fUpdateRendDelFlagYN(flag)
{
		//var ref = "/root/main/chrtlend/applist";
		var grdObj = grd_applist;
		var grdDs = this.objects[grdObj.binddataset];

   		var savedata = "status▦chrtseqno▦medirecno▦pid▦rendcd▦appmanid▦appdeptcd▦delyn▦renddd▦resettm▦acptid▦ioflag▩";
		var dataString = "";
		var dataCount = 0;

		var renddd	= utlf_getCurrentDate();
		ds_send_reqdata.setColumn(0, "renddd"	, utlf_getCurrentDate());
		var resettm	= ds_send_reqdata.getColumn(0, "resettm");
		var acptid	= ds_send_reqdata.getColumn(0, "acptid");
		
		var selectedRows = grdf_getSelectedRows(grdObj);
		for ( var i = 0; i < selectedRows.length; i++)
		{				
			var chrtlendyn = grdDs.getColumn(selectedRows[i], "chrtlendyn");
			if (chrtlendyn != "Y")
			{
				var chrtseqno	 = grdDs.getColumn(selectedRows[i], "chrtseqno");
				var medirecno	 = grdDs.getColumn(selectedRows[i], "medirecno");
				var pid			 = grdDs.getColumn(selectedRows[i], "pid");
				var rendcd		 = grdDs.getColumn(selectedRows[i], "rendcd");
				var appmanid	 = grdDs.getColumn(selectedRows[i], "appmanid");
				var appdeptcd	 = grdDs.getColumn(selectedRows[i], "appdeptcd");

				//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
				if ( ds_send_reqdata.getColumn(0, "autolendflag") == "I" )
				{
					var ioflag = "I";
				}

				dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦" + appmanid + "▦" + appdeptcd + "▦" + flag + "▦";
				dataString = dataString + renddd + "▦" + resettm + "▦" + acptid + "▦"+ioflag+"▩";
				dataCount = dataCount + 1;
			}
		}
		
		if (dataString.length > 0)
		{
			//model.makeValue("/root/send/savedata", savedata + dataString);
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
//sysf_trace(ds_send_savedata.saveXML());
			if (flag == "N"){
				var oParam = {};
					oParam.id       = "TXMRC00120";
					oParam.service  = "chrtmngtapp.ChrtRendMngt";
					oParam.method   = "setRendList";
					oParam.inds     = "req=ds_send_savedata";
					oParam.outds    = "ds_grd_applist=applist ds_grd_rendlist=rendlist";
					oParam.async    = true
					oParam.callback = "cf_TXMRC00120";
 
				tranf_submit(oParam);
				
				alert("총 " + dataCount + " 건 챠트대출 되었습니다.");
				// 2008.01.02. 대출현황 조회 총건수..
				ds_init.setColumn(0, "count", ds_grd_rendlist.rowcount);
			} else {
				var oParam = {};
					oParam.id       = "TXMRC00105";
					oParam.service  = "chrtmngtapp.ChrtRendMngt";
					oParam.method   = "setAppCancle";
					oParam.inds     = "savedata=ds_send_savedata";
					//oParam.outds    = "null";
					oParam.async    = true;
					oParam.callback = "cf_TXMRC00105";

				tranf_submit(oParam);
				alert("총 " + dataCount + " 건 대출신청이 취소되었습니다.");
			}

			// 접수현황 다시 조회하기..
			fGetLendList();
		}
}


/**
 * @desc   : 챠트 대출 우클릭시 - > 미대출 사유 입력
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetrendresn(){

		if(ds_grd_applist.rowposition < 0){
			return;
		}
		// 2007.12.27. 미대출사유 입력하기...
		fShowWndIptBox("0");
}

/**
 * @desc   : 챠트 대출 우클릭시 - > 미대출 사유 업데이트 (update)
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fUpdateUnrendresn(){

		// 2007.12.27. 미대출사유 입력하기...
		var unrendcd	= ds_hidden_applist.getColumn(0, "unrendcd");
		var unrendresn	= ds_hidden_applist.getColumn(0, "unrendresn");

		var savedata ="chrtseqno▦unrendcd▦unrendresn▩";
		var dataString = "";
		var dataCount = 0;

		var selectedRows = grdf_getSelectedRows(grd_applist);
		for ( var i = 0; i < selectedRows.length; i++)
		{		
			var chrtseqno = ds_grd_applist.getColumn(selectedRows[i], "chrtseqno");
			if (!utlf_isNull(chrtseqno)) {
				dataString = dataString + chrtseqno + "▦" + unrendcd + "▦" + unrendresn + "▩";
				dataCount = dataCount + 1;
			}
		}
		
		grup_unrendresn.visible = false;

		if (dataString.length > 0)
		{	
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
//sysf_trace(ds_send_savedata.saveXML());

			var oParam = {};
				oParam.id       = "TXMRC00102";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setUnRend";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00102";

			tranf_submit(oParam);
			alert("총 " + dataCount + " 건 미대출(사유입력) 되었습니다.");

			// 다시 조회하기..
			fGetLendList();
		}
		
}





/**
 * @desc   : 챠트 대출 조회
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetLendList()
{
		var oParam = {};
			oParam.id       = "TRMRC00110";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetRendList";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_grd_applist=applist";
			oParam.async    = true;
			oParam.callback = "cf_TRMRC00110";

		tranf_submit(oParam);

		//var pid = ds_send_reqdata.getColumn(0, "pid");
		//if (pid.length > 0) {						
		//	ds_send_reqdata.setColumn(0, "pid",  pid);
		//	model.refresh();
		//	btn_chrtlist.dispatch("DOMActivate");
		//}
}


/**
 * @desc   : 챠트 대출 조회 - 바크도 입력후 대출현황만 다시조회한다. (로그인 사용자별)
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetUserLendList()
{
		var oParam = {};
			oParam.id       = "TRMRC00113";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetUserRendList";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_grd_rendlist=rendlist";
			oParam.async    = true;
			oParam.callback = "cf_TRMRC00113";

		tranf_submit(oParam);
}



/**
 * @desc   : 종이챠트 선택 후 -> 대출등록
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fSetLendChart()
{
		// 대출등록 
		var rendcd		= ds_main_lendinfo.getColumn(0, "rendcd");
		var appdeptcd	= ds_main_lendinfo.getColumn(0, "appdeptcd");
		var lendmanid	= ds_main_lendinfo.getColumn(0, "lendmanid");
		var appmanid	= ds_main_lendinfo.getColumn(0, "appmanid");
		var cntctelno	= ds_main_lendinfo.getColumn(0, "cntctelno");
		var msgcnts		= ds_main_lendinfo.getColumn(0, "msgcnts");
		var chrtpid		= ds_main_lendinfo.getColumn(0, "chrtpid");
		var autolendflag = ds_send_reqdata.getColumn(0, "autolendflag");

		if (utlf_isNull(rendcd)){
			alert("대출용도를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			grup_lendinfo.switch1.lendinfo_etc.cmb_l_rendcd.setFocus();
			return;
		}
		if (utlf_isNull(appdeptcd)){
			alert("대출과를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			grup_lendinfo.switch1.lendinfo_etc.cmb_l_appdeptcd.setFocus();
			return;
		}
		if (utlf_isNull(lendmanid) || lendmanid.isNumber()== false){
			alert("대출자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			grup_lendinfo.switch1.lendinfo_etc.ipt_l_lendmanid.setFocus();
			return;
		}
		if ( utlf_isNull(appmanid) || appmanid.isNumber()== false ){
			alert("신청자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			grup_lendinfo.switch1.lendinfo_etc.ipt_l_appmanid.setFocus();
			return;
		}
		// 2008.09.01. 차트신청시 [ 021:연구용, 022:임상연구용 ] 
		// 전달메세지 : 반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..
		if (rendcd == "021" || rendcd == "022"){
			msgcnts = msgcnts.getTrimLeft();
			msgcnts = msgcnts.getTrimRight();					
			if (utlf_isNull(msgcnts.length)){
				alert("반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..", "차트대출신청", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.ipt_l_msgcnts.setFocus();
				return;
			}
		}
		
		// 2009.03.18. 대출과가 센터인 경우 진료과 선택 체킹하기...
		var orddeptkind = ds_main_lendinfo.getColumn(0, "orddeptkind");				
		var orddeptcd   = ds_main_lendinfo.getColumn(0, "orddeptcd");				
		if (orddeptkind == "C" && orddeptcd == "-"){
			alert("대출과가 센터인 경우 진료과를 선택해주세요.", "차트대출신청", 0 | 64);
			grup_lendinfo.switch1.lendinfo_etc.cmb_l_orddeptcd.setFocus();
			return;
		}		
		// 2009.03.18. 대출과가 센터인 경우 진료과 , 센터과 저장
		var centcd		= "-";		
		if (orddeptkind == "C")	{
			centcd		= ds_main_lendinfo.getColumn(0, "appdeptcd");		
		} 
				
		ds_send_reqdata.setColumn(0, "status", "i");
		
		// 2007.12.14. 대출일자는 당일로 한다...
		var renddd		= utlf_getCurrentDate();
		
		ds_send_reqdata.setColumn(0, "renddd", renddd);

		var resettm	= ds_send_reqdata.getColumn(0, "resettm");
		var acptid	= ds_send_reqdata.getColumn(0, "acptid");

		var icnt = 0;
		var tmpSaveData = "status▦rendcd▦appdeptcd▦lendmanid▦appmanid▦cntctelno▦msgcnts▦renddd▦bcno▦";
		tmpSaveData = tmpSaveData + "pid▦chrtpid▦ioflag▦chrtflag▦medirecno▦resettm▦acptid▦orddeptcd▦centcd▦rendschedd▦dschdd▦deptcd▦chrtseqno▩";
		
		for ( var i = 0; i < ds_grd_chrtlist.rowcount; i++)
		{	
			var ioflag		= ds_grd_chrtlist.getColumn(i, "ioflag");
			//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
			if ( autolendflag == "I" )
			{
				ioflag = "I";
			}

			var chkflag		= ds_grd_chrtlist.getColumn(i, "chkflag");
			var chrtflag	= "P";
			var medirecno	= ds_grd_chrtlist.getColumn(i, "medirecno");
			var pid			= ds_grd_chrtlist.getColumn(i, "pid");
			
			if(chkflag == "Y"){
				tmpSaveData = tmpSaveData + "i▦" + rendcd + "▦" + appdeptcd + "▦" + lendmanid + "▦" + appmanid + "▦" + cntctelno + "▦" + msgcnts + "▦";
				tmpSaveData = tmpSaveData + renddd + "▦" + "" + "▦" + pid + "▦" + chrtpid + "▦" + ioflag + "▦" + chrtflag + "▦" + medirecno + "▦";
				tmpSaveData = tmpSaveData + resettm + "▦" + acptid + "▦" + orddeptcd + "▦" + centcd + "▦▦▦▦▩";
				icnt++;
			}		
		}

		if(icnt < 1){
			alert("대출할 차트를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			return;
		}

		//model.makeValue("/root/send/savedata", tmpSaveData);
		dsf_setCSVToDs("ds_send_savedata", tmpSaveData);
//sysf_trace(ds_send_savedata.saveXML());

		var oParam = {};
			oParam.id       = "TXMRC00100";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "setRendList";
			oParam.inds     = "req=ds_send_savedata";
			oParam.outds    = "ds_grd_rendlist=rendlist";
			oParam.async    = false;
			oParam.callback = "cf_TXMRC00100";

		tranf_submit(oParam);

		// 2008.01.02. 대출현황 조회 총건수..
		//model.setValue ("/root/init/count", grd_rendlist.rows - 1);
		//cap_rendlist.refresh();

		// 다시조회.. 종이챠트 리스트
		var e = new ClickEventInfo;
		frmf_inputEnterKey("grup_chrtlist.btn_chrtlist", "onclick", e);
		//btn_chrtlist.dispatch("DOMActivate");
		
}



/**
 * @desc   : 바코드입력 후 엔터시 -> 대출등록 * @
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fSetLendChartBcno()
{	
		var bcno     = ds_send_reqdata.getColumn(0, "bcno");

		if (utlf_isNull(bcno) || bcno == "0"){ 
			alert("바코드를 입력해 주세요", "차트대출 및 반납", 0 | 64);
			ipt_lendbcno.setFocus();
			return;
		}

		// 2009.04.13. 의정부 성모인 경우.. 
		// 바코드 리딩시  lpad 로 해서 '0' 을 체움.. 
		// 리팅값과 DB값이 다를수 있음.. 
		// 바코드번호를 외래간호에서 생성하면 '0' 이 없고, 
		// 의료정보팀에서 생성하면 '0' 이 있음..
		if (sysf_getUserInfo("dutplceinstcd") == "013") {
			if (bcno.length < 12) { bcno = bcno.getLeftPad(12, "0"); }
		}

		var autoflag = ds_send_reqdata.getColumn(0, "autolendflag");

		if (autoflag == "A"){	// 자동대출인 경우
			// 데이타 셋하기.. 외래/입원구분, 처리자ID, 대출일, 조회시간, 바코드
			var resettm  = ds_send_reqdata.getColumn(0, "resettm");
			ds_send_req.setColumn(0, "ioflag"  , "O");
			ds_send_req.setColumn(0, "acptid"  , sysf_getUserId());
			ds_send_req.setColumn(0, "renddd"  , utlf_getCurrentDate());
			ds_send_req.setColumn(0, "resettm" , resettm);
			ds_send_req.setColumn(0, "bcno"    , bcno.toUpperCase());

			sysf_setErrorMsg(false);//setErrorOff

			var oParam = {};
				oParam.id       = "TXMRC03001";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "reqExeLendChrtByBcno";
				oParam.inds     = "req=ds_send_req";
				oParam.outds    = "ds_grd_rendlist=rendlist";
				oParam.async    = false;
				oParam.callback = "cf_TXMRC03001";

			tranf_submit(oParam);
			
			sysf_setErrorMsg(true);
			
			//var result = submit("TXMRC03001", "", "/root/send/req", "/root/main/chrtlend/rendlist");
			if (arErrorCode.pop("TXMRC03001") < 0)
			{
				var message = arErrorMsg.pop("TXMRC03001");
				if (message == "차트대출 신청건이 2건 이상 있습니다......!")
				{
					// 노드 클리어..
					ds_grd_chrtapplist.clearData();
					
					// 신청내역조회하기..
					var oParam = {};
						oParam.id       = "TRMRC00180";
						oParam.service  = "chrtmngtapp.ChrtRendMngt";
						oParam.method   = "reqGetChrtLendYNApp";
						oParam.inds     = "req=ds_send_req";
						oParam.outds    = "ds_grd_chrtapplist=chrtapplist";
						oParam.async    = true;
						oParam.callback = "cf_TRMRC00180";

					tranf_submit(oParam);

					// 두개이상의 신청내역이 있으면 팝업으로 선택하게 한다.
					grup_applist.visible = true;
					return;
				} else {
					alert(message);
				}
			}
		} else if (autoflag == "E"){	// 기타대출인 경우

			//fSetLendChartBcnoEtc();
			
			//** 2008.11.19. 이은영.. 기타대출 속도 향상을 위해..

			// 대출등록 
			var rendcd	= ds_main_lendinfo.getColumn(0, "rendcd");
			var appdeptcd	= ds_main_lendinfo.getColumn(0, "appdeptcd");
			var lendmanid	= ds_main_lendinfo.getColumn(0, "lendmanid");
			var appmanid	= ds_main_lendinfo.getColumn(0, "appmanid");
			var cntctelno	= ds_main_lendinfo.getColumn(0, "cntctelno");
			var msgcnts		= ds_main_lendinfo.getColumn(0, "msgcnts");

			if (utlf_isNull(rendcd)){
				alert("대출용도를 선택해 주세요", "차트대출 및 반납", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.cmb_l_rendcd.setFocus();
				return;
			}
			if (utlf_isNull(appdeptcd)){
				alert("대출과를 선택해 주세요", "차트대출 및 반납", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.cmb_l_appdeptcd.setFocus();
				return;
			}
			if (utlf_isNull(lendmanid) || lendmanid.isNumber()== false){
				alert("대출자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.ipt_l_lendmanid.setFocus();
				return;
			}
			if (utlf_isNull(appmanid) || appmanid.isNumber()== false){
				alert("신청자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.ipt_l_appmanid.setFocus();
				return;
			}
			// 2008.09.01. 차트신청시 [ 021:연구용, 022:임상연구용 ] 
			// 전달메세지 : 반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..
			if (rendcd == "021" || rendcd == "022"){
				msgcnts = msgcnts.getTrimLeft();
				msgcnts = msgcnts.getTrimRight();					
				if (utlf_isNull(msgcnts.length)){
					alert("반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..", "차트대출신청", 0 | 64);
					grup_lendinfo.switch1.lendinfo_etc.ipt_l_msgcnts.setFocus();
					return;
				}
			}

			// 2009.03.18. 대출과가 센터인 경우 진료과 선택 체킹하기...
			var orddeptkind = ds_main_lendinfo.getColumn(0, "orddeptkind");				
			var orddeptcd   = ds_main_lendinfo.getColumn(0, "orddeptcd");				
			if (orddeptkind == "C" && orddeptcd == "-"){
				alert("대출과가 센터인 경우 진료과를 선택해주세요.", "차트대출신청", 0 | 64);
				grup_lendinfo.switch1.lendinfo_etc.cmb_l_orddeptcd.setFocus();
				return;
			}		
				
			// 노드 클리어..
			ds_grd_chrtapplist.clearData();

			// 데이타 셋하기.. 외래/입원구분, 처리자ID, 대출일, 조회시간, 바코드
			var resettm  = ds_send_reqdata.getColumn(0, "resettm");
			ds_send_req.setColumn(0, "ioflag"  , "O");
			//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
			if ( ds_send_reqdata.getColumn(0, "autolendflag") == "I" )
			{
				ioflag = "I";
			}
			ds_send_req.setColumn(0, "acptid"  , sysf_getUserId());
			ds_send_req.setColumn(0, "renddd"  , utlf_getCurrentDate());
			ds_send_req.setColumn(0, "resettm" , resettm);
			ds_send_req.setColumn(0, "bcno"    , bcno.toUpperCase());
			// 추가 데이타.. 대출용도, 대출신청과, 대출자ID, 신청자ID, 연락처, 전달메세지
			ds_send_req.setColumn(0, "rendcd"    , rendcd);
			ds_send_req.setColumn(0, "appdeptcd" , appdeptcd);
			ds_send_req.setColumn(0, "lendmanid" , lendmanid);
			ds_send_req.setColumn(0, "appmanid"  , appmanid);
			ds_send_req.setColumn(0, "cntctelno" , cntctelno);
			ds_send_req.setColumn(0, "msgcnts"   , msgcnts);
			// 2009.03.18. 대출과가 센터인 경우 진료과 , 센터과 저장
			var orddeptkind = ds_main_lendinfo.getColumn(0, "orddeptkind");			
			var centcd		= "-";		
			if (orddeptkind == "C")	{
				centcd		= ds_main_lendinfo.getColumn(0, "appdeptcd");		
			} 
			var orddeptcd	= ds_main_lendinfo.getColumn(0, "orddeptcd");			
			ds_send_req.setColumn(0, "centcd"		, centcd);
			ds_send_req.setColumn(0, "orddeptcd"	, orddeptcd);

			sysf_setErrorMsg(false);//setErrorOff();
			
			var oParam = {};
				oParam.id       = "TXMRC03003";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "reqExeEtcLendChrtByBcno";
				oParam.inds     = "req=ds_send_req";
				oParam.outds    = "ds_grd_rendlist=rendlist";
				oParam.async    = false;
				oParam.callback = "cf_TXMRC03003";

			tranf_submit(oParam);
			
			sysf_setErrorMsg(true);
			
			//var result = submit("TXMRC03003", "", "/root/send/req", "/root/main/chrtlend/rendlist");
			//if (result == false)
			if( arErrorCode.pop("TXMRC03003") < 0 )
			{
				var message = arErrorMsg.pop("TXMRC03003");
				alert(message);
			}

			//*/

		}

		// 2008.01.25. 바코드 번호 클리어...
		ds_send_reqdata.setColumn(0, "bcno", "");
		ipt_lendbcno.setFocus();


}

/**
 * @desc   : 바코드입력 후 엔터시 -> 대출등록 * @
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
/*
function fSetLendChartBcnoEtc()
{	
		// 노드 클리어..
		model.destroy("/root/hidden/chrtapplist");
		model.refresh();

		// 2009.04.13. 의정부 성모인 경우.. 
		// 바코드 리딩시  lpad 로 해서 '0' 을 체움.. 
		// 리팅값과 DB값이 다를수 있음.. 
		// 바코드번호를 외래간호에서 생성하면 '0' 이 없고, 
		// 의료정보팀에서 생성하면 '0' 이 있음..
		var bcno = ds_send_reqdata.getColumn(0, "bcno");
		if (getUserInfo("dutplceinstcd") == "013") {
			if (bcno.length < 12) { bcno = bcno.getLeftPad(12, "0"); }
		}
		model.makeValue("/root/hidden/chkchrt/bcno", bcno.toUpperCase());
		model.makeValue("/root/hidden/chkchrt/medirecno", "");
		model.makeValue("/root/hidden/chkchrt/ioflag", "O");
		model.refresh();
		
		model.copyNode("/root/send/req", "/root/hidden/chkchrt");
		submit("TRMRC00180");

		// 2008.01.18. 바코드 리더기 대출 처리시
		// 1. 대출챠트인가?
		// 2. 대출신청건이 있는가?
		// 3. 대출신청건이 몇건인가?
		var lendyn = model.getValue("/root/hidden/chrtapplist[1]/lendyn");
		var chrtseqno = model.getValue("/root/hidden/chrtapplist[1]/chrtseqno");

		if (lendyn == "Y") {
			alert("이미 대출된 챠트입니다.");
			return;
		}

		// 2007.12.14. 대출일자는 당일로 한다...
		var renddd = getCurrentDate();			
		model.makeValue("/root/send/reqdata/renddd", renddd);

		var resettm	= ds_send_reqdata.getColumn(0, "resettm");
		var acptid	= ds_send_reqdata.getColumn(0, "acptid");

		var cnt = getNodesetCnt(model, "/root/hidden/chrtapplist");
		if (cnt > 0) {

			if (lendyn == "N" && cnt == 1 && chrtseqno == "") {
				// 대출등록 
				var rendcd		= ds_main_lendinfo.getColumn(0, "rendcd");
				var appdeptcd	= ds_main_lendinfo.getColumn(0, "appdeptcd");
				var lendmanid	= ds_main_lendinfo.getColumn(0, "lendmanid");
				var appmanid	= ds_main_lendinfo.getColumn(0, "appmanid");
				var cntctelno	= ds_main_lendinfo.getColumn(0, "cntctelno");
				var msgcnts		= ds_main_lendinfo.getColumn(0, "msgcnts");

				if (rendcd == ""){
					window.alert("대출용도를 선택해 주세요", "차트대출 및 반납", 0 | 64);
					model.setFocus("cmb_l_rendcd");
					return;
				}
				if (appdeptcd == ""){
					window.alert("대출과를 선택해 주세요", "차트대출 및 반납", 0 | 64);
					model.setFocus("cmb_l_appdeptcd");
					return;
				}
				if (lendmanid == "" || lendmanid.isNumber()== false){
					window.alert("대출자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
					model.setFocus("ipt_l_lendmanid");
					return;
				}
				if (appmanid == ""  || appmanid.isNumber()== false){
					window.alert("신청자를 선택해 주세요", "차트대출 및 반납", 0 | 64);
					model.setFocus("ipt_l_appmanid");
					return;
				}
				// 2008.09.01. 차트신청시 [ 021:연구용, 022:임상연구용 ] 
				// 전달메세지 : 반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..
				if (rendcd == "021" || rendcd == "022"){
					msgcnts = msgcnts.getTrimLeft();
					msgcnts = msgcnts.getTrimRight();					
					if (msgcnts.length == ""){
						window.alert("반드시 전달메세지 (연구 제목 및 기타사항) 을 입력해 주십시오..", "차트대출신청", 0 | 64);
						model.setFocus("ipt_l_msgcnts");
						return;
					}
				}

				var pid			= model.getValue("/root/hidden/chrtapplist[1]/pid");
				var medirecno	= model.getValue("/root/hidden/chrtapplist[1]/medirecno");
				var bcno		= model.getValue("/root/hidden/chrtapplist[1]/bcno");

				var tmpSaveData = "status▦rendcd▦rendschedd▦appdeptcd▦lendmanid▦appmanid▦";
				tmpSaveData = tmpSaveData + "cntctelno▦msgcnts▦renddd▦";
				tmpSaveData = tmpSaveData + "bcno▦pid▦ioflag▦chrtflag▦medirecno▦renddd▦resettm▦acptid▩";

				tmpSaveData = tmpSaveData + "i▦" + rendcd + "▦" + renddd + "▦" + appdeptcd + "▦" + lendmanid + "▦" + appmanid + "▦";
				tmpSaveData = tmpSaveData + cntctelno + "▦" + msgcnts + "▦" + renddd + "▦";
				tmpSaveData = tmpSaveData + "" + "▦" + pid + "▦O▦P▦" + medirecno + "▦" + renddd + "▦" + resettm + "▦" + acptid + "▩";
				model.makeValue("/root/send/savedata", tmpSaveData);
				submit("TXMRC00100");

				// 2008.01.02. 대출현황 조회 총건수..
				//model.setValue ("/root/init/count", grd_rendlist.rows - 1);
				//cap_rendlist.refresh();
			} else {				
				// 대출신청이 있음
				window.alert("대출 신청건이 있습니다. 확인하세요.", "차트대출 및 반납", 0 | 64);							
			}
		}
}
*/


/**
 * @desc   : 등록된 환자번호인지 체킹한다..
 * @
 * @param  : iptObj - 환자번호 입력 컨트롤 (pid)
 * @return : 
 * @authur : 이은영 2008.09.17
 * @---------------------------------------------------
 */
function fGetPidNo(iptObj, ref)
{
		if (ref == "Y") {
			if (iptObj.text.length > 0) {
				var pid = iptObj.text;
				pid = getCretCheckNo(pid, sysf_getUserInfo("dutplceinstcd"));
				iptObj.value = pid;
				iptObj.updateToDataset();
			}
		}
}


/**
 * @desc   : 등록된 환자번호인지 체킹한다..
 * @
 * @param  : iptObj - 환자번호 입력 컨트롤 (pid)
 * @return : pnm    - 환자명
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fCheckPid(iptObj, refoDs:Dataset, refPnm)
{
		ds_send_req.setColumn(0, "srchcond", "1");
		ds_send_req.setColumn(0, "pid", iptObj.text);
		
		//환자등록번호 체크
		if(iptObj.text.length > 0 ){
			
			ds_main_result_patinfo_patinfolist.clearData();
			
			var oParam = {};
				oParam.id       = "TRPMC02500";
				oParam.service  = "patinfomngtapp.PatBaseInfo";
				oParam.method   = "reqGetPatInfo";
				oParam.inds     = "req=ds_send_req";
				oParam.outds    = "ds_main_result_patinfo_patinfolist=patinfolist";
				oParam.async    = false;
				oParam.callback = "cf_TRPMC02500";

			tranf_submit(oParam);		

			if(arErrorCode.pop("TRPMC02500") > -1){
				//fSearch는 인적사항 화면을 임포트 해간 화면에서 구현해 주어야 하는 함수이다.	
				if( ds_main_result_patinfo_patinfolist.rowcount > 0 ){
					ds_patinfolist.copyData(ds_main_result_patinfo_patinfolist);
					//* 2009.04.07. 이중번호 메세지 ( 14257937 박용석  -> 13275912 신옥순 )
					var sBindPid = ds_main_result_patinfo_patinfolist.getColumn(0, "bindpid");
					if( sBindPid != '-' && !utlf_isNull(sBindPid) && sBindPid != ' ' ){
						//합번된 등록번호 메세지 처리
						var sPid = ds_main_result_patinfo_patinfolist.getColumn(0, "pid");
						var sHngnm = ds_main_result_patinfo_patinfolist.getColumn(0, "hngnm");
						var retValue = sysf_messageBox(sPid + " (" + sHngnm + ") 환자의 등록번호가 [ " + sBindPid + " ] 로 합번 되었습니다. 합번된 등록번호로 재조회 하시겠습니까?", "Q999", "");
						if( retValue == '6' ){
							iptObj.value = sBindPid;
							iptObj.updateToDataset();
							fCheckPid(iptObj, refoDs, refPnm);
							return "";
						}
					}
					//*/																	
					var pid = ds_main_result_patinfo_patinfolist.getColumn(0, "pid");
					var pnm = ds_main_result_patinfo_patinfolist.getColumn(0, "hngnm");							
					if (refPnm != null)
					{
						refoDs.setColumn(0, refPnm, pnm);
					}
					return pnm;
				}else{
					ds_patinfolist.clearData();
					sysf_messageBox("없는 환자 번호 입니다.", "E999", "");
					return "";
				}								
			}	
				
		}else{
			sysf_messageBox("환자등록번호를 정확히", "C001");
			return "";
		}		
}


/**
 * @desc   : 환자등록번호 조회 팝업
 * @
 * @param  : refPid - 환자번호 참고 node path
 *           refPnm - 환자명   참고 node path
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetPid(refoDs:Dataset, refPid, refPnm)
{
		//조회건수가 1건일 경우 팝업창을 바로 닫는다.
		var objColInfo = new Array();
		objColInfo.push({col: "pid", type:"string", size:256, val:""});
		objColInfo.push({col: "hngnm", type:"string", size:256, val:""});
		objColInfo.push({col: "srchcond", type:"string", size:256, val:"2"});
		objColInfo.push({col: "autoflag", type:"string", size:256, val:"N"});
		objColInfo.push({col: "rrgstno1", type:"string", size:256, val:""});
		objColInfo.push({col: "rrgstno2", type:"string", size:256, val:""});
		objColInfo.push({col: "checkfnexam", type:"string", size:256, val:"1"});
		dsf_createDsRow("ds_hidden_tmp_pidpopupinfo", objColInfo);
		
	
		var objArgs = new Object();
		objArgs.ds_SPPMC02500 = ds_hidden_tmp_pidpopupinfo;
		frmf_modal("SPPMC02500", "SPPMC02500", objArgs, null, "1", "10", "10", null, null, null, null, null, "M");
		
		//model.resetInstanceNode("/root/source");
		//환자번호 copy
		ds_main.setColumn(0, "popupendflag", frmf_getParameter("SPPMC02500_popupendflag"));
		var popupendflag = ds_main.getColumn(0, "popupendflag");
		
		if (popupendflag == "ok")
		{
			refoDs.setColumn(0, refPid, ds_patinfolist.getColumn(0, "pid"));
			if (refPnm == null) { refPnm = "" }
			if (!utlf_isNull(refPnm)) {
				refoDs.setColumn(0, refPnm, ds_patinfolist.getColumn(0, "hngnm"));
			}
		}	
}



/**
 * @desc   : 등록된 사용자 번호인지 체킹한다..
 * @
 * @param  : iptObj    - 사용자 ID 입력 컨트롤 (userid)
 * @return : posdeptcd - 사용자 부서코드
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
 /*
function fCheckUserid(iptObj)
{
		setInputNodeCurText();

		// 사용자 번호 체크
		if(iptObj.currentText.length > 0 ){

			// 사용자 조회
			model.removenode("/root/hidden/tmp/tempuserinfo/list");
			model.reset("/root/hidden/tmp/tempuserinfo");
			
			model.setValue("/root/hidden/tmp/userpopupinfo/param", "_OneS");
			model.setValue("/root/hidden/tmp/userpopupinfo/flag", "userid");
			model.setValue("/root/hidden/tmp/userpopupinfo/searchitem", iptObj.currentText);
			
			modal("SPZSU10103", "", "200", "200", "SPZSU10103","/root/hidden/tmp/userpopupinfo","/root/main/temp");
			
			var iParam = getParameter("SPZSU10103_"); 

			setCSVToNode("/root/hidden/tmp/tempuserinfo", iParam);
			clearParameter("SPZSU10103_");			

			//fSearch는 인적사항 화면을 임포트 해간 화면에서 구현해 주어야 하는 함수이다.	
			if( getNodesetCount("/root/hidden/tmp/tempuserinfo/list") > 0 ){
				
				var userid		= ds_hidden_tmp_tempuserinfo.getColumn(0, "userid");
				var posdeptcd	= ds_hidden_tmp_tempuserinfo.getColumn(0, "posdeptcd");

				iptObj.value = userid;
				model.refresh();

				return posdeptcd;
				
				//fSearch();	
			}else{
				model.resetInstanceNode("/root/hidden/tmp/tempuserinfo/list");
				messageBox("없는 사용자 번호 입니다.", "E999", "");
				model.refresh();
			}	
				
		}else{
			messageBox("사용자 번호를 정확히", "C001");
			iptObj.value = "";
			model.refresh();
		}		

		return "";
}

*/




/**
 * @desc   : 마우스 오른쪽 버튼 팝업창
 * @		
 * @param  : job - 0:챠트대출, 1:챠트반납, 2:접수자명단
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopup(gridObj, e, job)
{
		var oDs = this.objects[gridObj.binddataset];
		if( oDs.rowcount < 1 ) return;
        if (e.row > -1 && e.col > -1) {
			if (job == "0") {
				oDs.rowposition = e.row;
				ds_send_savedata.clearData();
				ds_send_savedata.addRow();
				popupmenu.trackPopup(e.screenX,e.screenY);
				screenX = e.clientX;
				screenY = e.clientY;
				//window.setPopupMenu(true, "/root/hidden/applist_menu/menu", "label", "func", false);		
			} 
        } 

}


/**
 * @desc   : 팝업폼 보여주기..
 * @		
 * @param  : job -	0:챠트대출(미대출사유)	, 1:챠트반납(과보관사유), 
 * @				2:접수자명단(미대출사유), 3:챠트반납(대출연장)  , 4:챠트반납(차트분실)
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fShowWndIptBox(job) 
{
		grup_unrendresn.visible = false;	
		if (job == "0") {
			ds_hidden_applist.setColumn(0, "unrendcd", "00");
			ds_hidden_applist.setColumn(0, "unrendresn", "");
// 			if (event.clientY < 100) {
// 				grup_unrendresn.attribute("top") = event.clientY-90;
// 			} else {
// 				grup_unrendresn.attribute("top") = 100;
// 			}
			var nX = screenX;
			var nY = screenY;
			
			var widGrup = parseInt(grup_unrendresn.position.width);
			var widGrd  = parseInt(grd_applist.position2.width);
			if (widGrd < nX + widGrup)
			{
				nX = widGrd - widGrup - 17;
			}
			
			nX = system.clientToScreenX(grd_applist,nX);
			nY = system.clientToScreenY(grd_applist,nY);
			grup_unrendresn.trackPopup(nX,nY);
			//grup_unrendresn.visible = true;	
		} 
}



/**
 * @desc   : 대출신청내역이 여러 개인 경우 더블클릭으로 선택시 대출처리한다.
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fChoiceChrtSeqNo()
{
		//var ref = "/root/hidden/chrtapplist";
		var grdObj = grup_applist.grd_chrtapplist;
		var grdDs = this.objects[grdObj.binddataset];
		if (grdObj.rowposition < 0){
			grup_applist.visible = false;
			return;
		}

   		var savedata = "status▦chrtseqno▦medirecno▦pid▦rendcd▦delyn▦renddd▦resettm▦acptid▦ioflag▦appmanid▦appdeptcd▩";
		var dataString = "";

		var renddd	= ds_send_reqdata.getColumn(0, "renddd");
		var resettm	= ds_send_reqdata.getColumn(0, "resettm");
		var acptid	= ds_send_reqdata.getColumn(0, "acptid");

		var chrtseqno	 = grdDs.getColumn(grdDs.rowposition, "chrtseqno");
		var medirecno	 = grdDs.getColumn(grdDs.rowposition, "medirecno");
		var pid			 = grdDs.getColumn(grdDs.rowposition, "pid");
		var rendcd		 = grdDs.getColumn(grdDs.rowposition, "rendcd");
		var ioflag = "";
		//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
		if ( ds_send_reqdata.getColumn(0, "autolendflag") == "I" )
		{
			ioflag = "I";
		}

		dataString = "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦N▦" + renddd + "▦" + resettm + "▦" + acptid + "▦O▦▦▩";

		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
//sysf_trace(ds_send_savedata.saveXML());
			
			var oParam = {};
				oParam.id       = "TXMRC00120";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setRendList";
				oParam.inds     = "req=ds_send_savedata";
				oParam.outds    = "ds_grd_applist=applist ds_grd_rendlist=rendlist";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00120";

			tranf_submit(oParam);

			// 2008.01.25. 바코드 번호 클리어...
			ds_send_reqdata.setColumn(0, "bcno", "");
		}
		grup_applist.visible = false;
}


/**
 * @desc   : 대출용도 코드 입력시 대출용도 콤보 선택되도록 함
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.05.30
 * @---------------------------------------------------
 */
function fSelectedComboLendCd(iptObjId, comboDs:Dataset, comboRef)
{
		var iptObj = eval(iptObjId);
		
		var lendcd = iptObj.text;
		lendcd = lendcd.getLeftPad(3, "0");
		iptObj.value = lendcd;
		iptObj.updateToDataset();
		comboDs.setColumn(0, comboRef, lendcd); 
// 		var ref = iptObj.attribute("ref");
// 		model.setValue(ref, lendcd);
// 		model.setValue(comboRef, lendcd);
// 		model.refresh();
}

/**
 * @desc   : 대출과 약어 입력시 대출과 콤보 선택되도록 함
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.05.30
 * @---------------------------------------------------
 */
function fSelectedComboLendDeptCd(iptObjId, comboObjId)
{
		var iptObj = eval(iptObjId);
		var comboObj = eval(comboObjId);
		
		var lenddeptabbr = iptObj.text;
		lenddeptabbr = lenddeptabbr.toUpperCase();
		iptObj.value = lenddeptabbr;
		iptObj.updateToDataset();
		var deptcd = ds_init_lendmastinfo_lenddeptlist.lookup("lenddeptabbr", lenddeptabbr, "lenddeptcd");	
		comboObj.value = deptcd;
		comboObj.updateToDataset();
		if (!utlf_isNull(deptcd)){
			// 대출과에 따른 대출자(의사) 조회하기
			var e = new ItemChangeEventInfo;
			frmf_inputEnterKey(comboObjId, "onitemchanged", e);
			//comboObj.dispatch("xforms-value-changed");
		}
}


/**
 * @desc   : 환자 외래 차트 리스트 조회
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.08.07
 * @---------------------------------------------------
 */
function fGetChrtList()
{
		fCheckPid(grup_chrtlist.ipt_chrtpid, ds_main_lendinfo, "pnm");

		ds_send_req.setColumn(0, "ioflag", ds_main_lendinfo.getColumn(0, "ioflag"));		
		ds_send_req.setColumn(0, "pid"   , ds_main_lendinfo.getColumn(0, "pid"));		
		
		var oParam = {};
			oParam.id       = "TRMRC00144";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetPaperList";
			oParam.inds     = "req=ds_send_req";
			oParam.outds    = "ds_grd_chrtlist=chrtlist";
			oParam.async    = true;
			oParam.callback = "cf_TRMRC00144";

		tranf_submit(oParam);
}


/**
 * @desc   : 사용자콤보 조회
 * @
 * @param  : ref       - reference path
 *           rsltref   - result reference path
 *           deptcd    - 부서코드
 *           jobkindcd - 직종코드
 *           jobposcd  - 직책코드
 *           specordyn - 선택진료여부
 * @return :
 * @author : 
 * @---------------------------------------------------
 */
 /*
function fGetUserComboList(ref, rsltref, deptcd, jobkindcd, specordyn)
{  
		model.removeNode(ref);
		model.makeValue(ref + "/deptcd"   , deptcd);    //부서코드
		model.makeValue(ref + "/jobkindcd", jobkindcd); //직종코드(의사:0330)
		model.makeValue(ref + "/specordyn", specordyn); //선택진료여부

		model.removeNode(rsltref);
		model.makeValue(rsltref + "/userlist/usercombo[1]/usernm", '-');
		model.makeValue(rsltref + "/userlist/usercombo[1]/userid", '');
		model.refresh();

		submit("TRMMB04102", "false", ref, rsltref + "/userlist");
}
*/



/**
 * @desc   : 대출자 조회
 * @
 * @param  : refUserid - 대출자 ID, refUserDeptcd - 소속부서코드 ( posdeptcd )
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetUserid(refoDs:Dataset, refUserid, refUsernm, refUserDeptcd, cmbObj)
{
//fGetUserid("/root/main/lendinfo/appmanid", "/root/main/lendinfo/appman");	

		ds_hidden_tmp_tempuserinfo.clearData();
		
		var user = refoDs.getColumn(0, refUserid);
		var flag = "userid";
		
		if(isNaN(user)){
			flag = "usernm";
		}
		
		ds_hidden_tmp_userpopupinfo.setColumn(0, "param", "_OneS");
		ds_hidden_tmp_userpopupinfo.setColumn(0, "flag", flag);
		ds_hidden_tmp_userpopupinfo.setColumn(0, "searchitem", user);
		
		var objArgs = new Object();
		objArgs.param = 	ds_hidden_tmp_userpopupinfo.getColumn(0, "param");
		objArgs.flag = 		ds_hidden_tmp_userpopupinfo.getColumn(0, "flag");
		objArgs.searchitem = 	ds_hidden_tmp_userpopupinfo.getColumn(0, "searchitem");
		var rtn = frmf_modal("SPZSU10103", "SPZSU10103", objArgs, null, "1", "10", "10", null, null, null, null, null, "M");		
		//modal("SPZSU10103", "", "200", "200", "SPZSU10103","/root/hidden/tmp/userpopupinfo","/root/main/temp");
		
// 		var iParam = frmf_getParameter("SPZSU10103_"); 
// 
// 		dsf_setCSVToDs("ds_hidden_tmp_tempuserinfo", iParam);
// 		frmf_clearParameter("SPZSU10103_");
		
		ds_hidden_tmp_tempuserinfo.copyData(rtn);
	

		//fSearch는 인적사항 화면을 임포트 해간 화면에서 구현해 주어야 하는 함수이다.	
		if( ds_hidden_tmp_tempuserinfo.rowcount > 0 ){
			
			var userid		= ds_hidden_tmp_tempuserinfo.getColumn(0, "userid");
			var usernm		= ds_hidden_tmp_tempuserinfo.getColumn(0, "usernm");
			var posdeptcd	= ds_hidden_tmp_tempuserinfo.getColumn(0, "posdeptcd");

			if (!utlf_isNull(refUsernm)){
				if (isNaN(refUsernm)){
					refoDs.setColumn(0, refUsernm, usernm);
				}
			}
			if (!utlf_isNull(refUserDeptcd)){
				if (isNaN(refUserDeptcd)){
					refoDs.setColumn(0, refUserDeptcd, posdeptcd);		
				}
			}
			if (cmbObj != null){
				fAddUser(userid, usernm, cmbObj);
			}
			refoDs.setColumn(0, refUserid, userid);
		}
}

/**
 * @desc   : 대출자ID, 대출자명 콤보에 추가하기
 * @
 * @param  : refUserid - 대출자 ID, refUsernm - 대출자명
 * @return : 
 * @authur : 이은영 2008.09.01
 * @---------------------------------------------------
 */
function fAddUser(Userid, Usernm, cmbObj)
{
	if( cmbObj == "[object Combo]" ){
		var objCombo = cmbObj;
	}else{
		var objCombo = eval(cmbObj);
	}
	//innerdataset
	if(!((objCombo.innerdataset).toString() == "[object Dataset]"))
	{
		var objDs = eval(objCombo.innerdataset);
	}
	else
	{
		var objDs = objCombo.innerdataset;
	}
	
	var userid = objDs.lookup("userid", Userid, "userid");
	if( utlf_isNull(userid) ){
	
		var nRow = objDs.addRow();
		objDs.setColumn(nRow, cmbObj.codecolumn, Userid);
		objDs.setColumn(nRow, cmbObj.datacolumn, Usernm);
		
		objCombo.value = Userid;
		objCombo.updateToDataset();
	}
		
// 		var ref = cmbObj.choices.itemset.attribute("nodeset");
// 		var cnt = getNodesetCnt(model, ref) + 1 ;
// 		var userid = model.getValue(ref + "[userid ='" + Userid + "']/userid");
// 		if (userid == ""){
// 			model.makeValue(ref + "["+ cnt +"]/userid", Userid);
// 			model.makeValue(ref + "["+ cnt +"]/usernm", Usernm);
// 			var dataRef = cmbObj.attribute("ref");
// 			model.setValue(dataRef, Userid);
// 			cmbObj.refresh();
// 		}
}



/**
 * @desc   : excel 저장 하기
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.07.14
 * @---------------------------------------------------
 */
function fExcel(gridObj, title){

		if (title == null)	{ title = "" }
// 		var fileName = window.fileDialog("save", ",", false, title + "_" + getCurrentDate(), "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
// 		if (fileName != "")	{
// 			gridObj.saveExcel(fileName, "SheetName", true, true, "", "", true);
// 		}
		
		grdf_exportExcel(gridObj, title, "SheetName");

}


/**
 * @desc   : 선택된 환자등록번호로 현위치조회 텝이동..
 * @
 * @param  : gridObj - 그리드 컨트롤, ref - node path
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fMoveTabChartByPid(gridObj, e){
		var oDs = this.objects[gridObj.binddataset];
		if( oDs.rowcount < 1 ) return;
		if( e.row < 0 && e.col < 0 ){
			return;
		}	
			
		if (oDs.rowposition < 0){
			return;
		}
				
		var pid		 = oDs.getColumn(oDs.rowposition, "pid");
		var pnm		 = oDs.getColumn(oDs.rowposition, "pnm");
		this.getOwnerFrame().form.ds_send_reqdata.setColumn(0, "pid"	  , pid);
		this.getOwnerFrame().form.ds_send_reqdata.setColumn(0, "pnm"	  , pnm);
		this.getOwnerFrame().form.ds_send_reqdata.setColumn(0, "rrgstno", "");
		this.getOwnerFrame().form.group2.switch1.tabindex = 0;
		this.getOwnerFrame().form.fChartHistory();
}

/**
 * @desc   : 단축키 선택시 커서이동
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2009.01.28
 * @---------------------------------------------------
 */
function fMoveCursor(){
 
		// 2009.02.17. 단축키 커서 이동시 자동대출 선택후 바코드에 커서가 위치하도록 수정함.
		ds_send_reqdata.setColumn(0, "autolendflag", "A");
		fDisplayAutoLend();

		ipt_lendbcno.setFocus();
}

/**
 * @desc   : 단축키 선택시 커서이동
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2009.01.28
 * @---------------------------------------------------
 */
function fKeyDown(e){
		// F7 : 118, F8 : 119 ,  F9 : 120,  F10 : 121
		var keyCode = e.keycode;
		if (keyCode == "118") {
			this.getOwnerFrame().form.fAccessKey1();
		} else if (keyCode == "119") {
			this.getOwnerFrame().form.fAccessKey2();
		} else if (keyCode == "120") {
			this.getOwnerFrame().form.fAccessKey3();
		} else if (keyCode == "121") {
			this.getOwnerFrame().form.fAccessKey4();
		}
}


]]></Script>