

/**
 * @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");
//*/
		model.setValue("/root/send/reqdata/rendcd"	, "ALL");
		model.setValue("/root/send/reqdata/appdept" , "ALL");
		model.setValue("/root/send/reqdata/appdd"	, getCurrentDate());
		model.setValue("/root/send/reqdata/chrtman" , "ALL");
		model.setValue("/root/send/reqdata/keepplce", "ALL");
		model.setValue("/root/send/reqdata/renddd"	, getCurrentDate());
		model.setValue("/root/send/reqdata/resettm"	, getCurrentTime());
		model.setValue("/root/send/reqdata/acptid"	, getUserId());

		// 2008.07.30. 차트자동대출 , 차트기타대출 : display 구분
		model.setValue("/root/send/reqdata/autolendflag", "A");		
		model.refresh();

		fDisplayAutoLend();
}


/**
 * @desc   : 차트자동대출 , 차트기타대출 : display
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.07.30
 * @---------------------------------------------------
 */
function fDisplayAutoLend()
{
		var flag = model.getValue("/root/send/reqdata/autolendflag");		
		if (flag == "A") {
			model.toggle("lendinfo_etc");
			lendinfo_etc.disabled = true;
			grup_chrtlist.disabled = true;
		} 
		else if (flag == "I") {				//2010.12.27, 주희경, 입원대출 추가
			model.toggle("lendinfo_inpt");
			grup_chrtlist.disabled = false;
			cbo_lenddeptcd.dispatch("xforms-value-changed");
		} else {
			model.toggle("lendinfo_etc");
			lendinfo_etc.disabled = false;
			grup_chrtlist.disabled = false;
			cmb_l_appdeptcd.dispatch("xforms-value-changed");
		}		
		ipt_l_lendmanid.disabled = true;
		ipt_l_appmanid.disabled = true;
		ipt_l_appmannm.disabled = true;
		ipt_chrtpnm.disabled = true;
}


/**
 * @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 savedata = "m▦chrtseqno▦medirecno▦pid▦rendcd▦appmanid▦appdeptcd▦delyn▦renddd▦resettm▦acptid▦ioflag▩";
		var dataString = "";
		var dataCount = 0;

		var renddd	= getCurrentDate();
		model.setValue("/root/send/reqdata/renddd"	, getCurrentDate());
		var resettm	= model.getValue("/root/send/reqdata/resettm");
		var acptid	= model.getValue("/root/send/reqdata/acptid");

		for ( var i = 0; i < grdObj.selectedRows; i++)
		{				
			var chrtlendyn = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/chrtlendyn");
			if (chrtlendyn != "Y")
			{
				var chrtseqno	 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/chrtseqno");
				var medirecno	 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/medirecno");
				var pid			 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/pid");
				var rendcd		 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/rendcd");
				var appmanid	 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/appmanid");
				var appdeptcd	 = model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/appdeptcd");

				//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
				if ( model.getValue("/root/send/reqdata/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);

			if (flag == "N")			{
				submit("TXMRC00120");
				alert("총 " + dataCount + " 건 챠트대출 되었습니다.");
				// 2008.01.02. 대출현황 조회 총건수..
				model.setValue ("/root/init/count", grd_rendlist.rows - 1);
				cap_rendlist.refresh();
			} else {
				submit("TXMRC00105");
				alert("총 " + dataCount + " 건 대출신청이 취소되었습니다.");
			}

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


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

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

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

		// 2007.12.27. 미대출사유 입력하기...
		var unrendcd	= model.getValue("/root/hidden/applist/unrendcd");
		var unrendresn	= model.getValue("/root/hidden/applist/unrendresn");

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

		for ( var i = 0; i < grd_applist.selectedRows; i++)
		{		
			var chrtseqno = model.getValue("/root/main/chrtlend/applist[" + grd_applist.selectedrow(i) + "]/chrtseqno");
			if (chrtseqno != "") {
				dataString = dataString + chrtseqno + "▦" + unrendcd + "▦" + unrendresn + "▩";
				dataCount = dataCount + 1;
			}
		}
		
		grup_unrendresn.visible = false;

		if (dataString.length > 0)
		{
			model.makeValue("/root/send/savedata", savedata + dataString);
			model.refresh();

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

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


/**
 * @desc   : 챠트 대출 조회
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetLendList()
{
		submit("TRMRC00110");		

		//var pid = model.getValue("/root/send/reqdata/pid");
		//if (pid.length > 0) {						
		//	model.setValue("/root/send/reqdata/pid",  pid);
		//	model.refresh();
		//	btn_chrtlist.dispatch("DOMActivate");
		//}
}


/**
 * @desc   : 챠트 대출 조회 - 바크도 입력후 대출현황만 다시조회한다. (로그인 사용자별)
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetUserLendList()
{
		submit("TRMRC00113");		

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


/**
 * @desc   : 종이챠트 선택 후 -> 대출등록
 * @
 * @param  : 
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fSetLendChart()
{
		// 대출등록 
		var rendcd		= model.getValue("/root/main/lendinfo/rendcd");
		var appdeptcd	= model.getValue("/root/main/lendinfo/appdeptcd");
		var lendmanid	= model.getValue("/root/main/lendinfo/lendmanid");
		var appmanid	= model.getValue("/root/main/lendinfo/appmanid");
		var cntctelno	= model.getValue("/root/main/lendinfo/cntctelno");
		var msgcnts		= model.getValue("/root/main/lendinfo/msgcnts");
		var chrtpid		= model.getValue("/root/main/lendinfo/chrtpid");
		var autolendflag = model.getValue("/root/send/reqdata/autolendflag");

		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;
			}
		}
		
		// 2009.03.18. 대출과가 센터인 경우 진료과 선택 체킹하기...
		var orddeptkind = model.getValue("/root/main/lendinfo/orddeptkind");				
		var orddeptcd   = model.getValue("/root/main/lendinfo/orddeptcd");				
		if (orddeptkind == "C" && orddeptcd == "-"){
			window.alert("대출과가 센터인 경우 진료과를 선택해주세요.", "차트대출신청", 0 | 64);
			model.setFocus("cmb_l_orddeptcd");
			return;
		}		
		// 2009.03.18. 대출과가 센터인 경우 진료과 , 센터과 저장
		var centcd		= "-";		
		if (orddeptkind == "C")	{
			centcd		= model.getValue("/root/main/lendinfo/appdeptcd");		
		} 
				
		model.setValue("/root/send/reqdata/status", "i");
		
		// 2007.12.14. 대출일자는 당일로 한다...
		var renddd		= getCurrentDate();
		model.makeValue("/root/send/reqdata/renddd", renddd);

		var resettm	= model.getValue("/root/send/reqdata/resettm");
		var acptid	= model.getValue("/root/send/reqdata/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▩";
		
		for ( var i = 1; i < grd_chrtlist.rows; i++)
		{	
			var ioflag		= model.getValue("/root/main/chrtlist["+ i +"]/ioflag");
			//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
			if ( autolendflag == "I" )
			{
				ioflag = "I";
			}

			var chkflag		= model.getValue("/root/main/chrtlist["+ i +"]/chkflag");
			var chrtflag	= "P";
			var medirecno	= model.getValue("/root/main/chrtlist["+ i +"]/medirecno");
			var pid			= model.getValue("/root/main/chrtlist["+ 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){
			window.alert("대출할 차트를 선택해 주세요", "차트대출 및 반납", 0 | 64);
			return;
		}

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

		// 다시조회.. 종이챠트 리스트
		btn_chrtlist.dispatch("DOMActivate");
		
}


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

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

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

		var autoflag = model.getValue("/root/send/reqdata/autolendflag");

		if (autoflag == "A"){	// 자동대출인 경우
			// 데이타 셋하기.. 외래/입원구분, 처리자ID, 대출일, 조회시간, 바코드
			var resettm  = model.getValue("/root/send/reqdata/resettm");
			model.makeValue("/root/send/req/ioflag"  , "O");
			model.makeValue("/root/send/req/acptid"  , getUserId());
			model.makeValue("/root/send/req/renddd"  , getCurrentDate());
			model.makeValue("/root/send/req/resettm" , resettm);
			model.makeValue("/root/send/req/bcno"    , bcno.toUpperCase());

			setErrorOff();
			var result = submit("TXMRC03001", "", "/root/send/req", "/root/main/chrtlend/rendlist");

			if (result == false)
			{
				var message = model.getValue("/root/properties/error/msg");
				if (message == "차트대출 신청건이 2건 이상 있습니다......!")
				{
					// 노드 클리어..
					model.destroy("/root/hidden/chrtapplist");
					model.refresh();

					// 신청내역조회하기..
					submit("TRMRC00180");

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

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

			// 대출등록 
			var rendcd	= model.getValue("/root/main/lendinfo/rendcd");
			var appdeptcd	= model.getValue("/root/main/lendinfo/appdeptcd");
			var lendmanid	= model.getValue("/root/main/lendinfo/lendmanid");
			var appmanid	= model.getValue("/root/main/lendinfo/appmanid");
			var cntctelno	= model.getValue("/root/main/lendinfo/cntctelno");
			var msgcnts		= model.getValue("/root/main/lendinfo/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;
				}
			}

			// 2009.03.18. 대출과가 센터인 경우 진료과 선택 체킹하기...
			var orddeptkind = model.getValue("/root/main/lendinfo/orddeptkind");				
			var orddeptcd   = model.getValue("/root/main/lendinfo/orddeptcd");				
			if (orddeptkind == "C" && orddeptcd == "-"){
				window.alert("대출과가 센터인 경우 진료과를 선택해주세요.", "차트대출신청", 0 | 64);
				model.setFocus("cmb_l_orddeptcd");
				return;
			}		
				
			// 노드 클리어..
			model.destroy("/root/hidden/chrtapplist");
			model.refresh();			

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

			setErrorOff();
			var result = submit("TXMRC03003", "", "/root/send/req", "/root/main/chrtlend/rendlist");

			if (result == false)
			{
				var message = model.getValue("/root/properties/error/msg");
				alert(message);
			}

			//*/

		}

		// 2008.01.25. 바코드 번호 클리어...
		model.makeValue("/root/send/reqdata/bcno", "");
		ipt_lendbcno.refresh();
		model.setFocus("ipt_lendbcno");

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

}

/**
 * @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 = model.getValue("/root/send/reqdata/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	= model.getValue("/root/send/reqdata/resettm");
		var acptid	= model.getValue("/root/send/reqdata/acptid");

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

			if (lendyn == "N" && cnt == 1 && chrtseqno == "") {
				// 대출등록 
				var rendcd		= model.getValue("/root/main/lendinfo/rendcd");
				var appdeptcd	= model.getValue("/root/main/lendinfo/appdeptcd");
				var lendmanid	= model.getValue("/root/main/lendinfo/lendmanid");
				var appmanid	= model.getValue("/root/main/lendinfo/appmanid");
				var cntctelno	= model.getValue("/root/main/lendinfo/cntctelno");
				var msgcnts		= model.getValue("/root/main/lendinfo/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)
{
		var chkyn = model.getValue(ref);
		if (chkyn == "Y") {
			if (iptObj.currentText.length > 0) {
				var pid = iptObj.currentText;
				pid = getCretCheckNo(pid, getUserInfo("dutplceinstcd"));
				model.makeValue(iptObj.attribute("ref"), pid);
				iptObj.refresh();
			}
		}
}


/**
 * @desc   : 등록된 환자번호인지 체킹한다..
 * @
 * @param  : iptObj - 환자번호 입력 컨트롤 (pid)
 * @return : pnm    - 환자명
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fCheckPid(iptObj, refPnm)
{
		model.makeValue("/root/send/req/srchcond", "1");
		model.makeValue("/root/send/req/pid", iptObj.currentText);
		
		//환자등록번호 체크
		if(iptObj.currentText.length > 0 ){
			
			model.resetInstanceNode("/root/main/result/patinfo");
			model.makeNode("/root/main/result/patinfo");
					
			if(submit("TRPMC02500", "", "/root/send/req", "/root/main/result/patinfo")){
				//fSearch는 인적사항 화면을 임포트 해간 화면에서 구현해 주어야 하는 함수이다.	
				if( getNodesetCount("/root/main/result/patinfo/patinfolist") > 0 ){
					model.copyNode("/root/main/patinfo", "/root/main/result/patinfo");
					//* 2009.04.07. 이중번호 메세지 ( 14257937 박용석  -> 13275912 신옥순 )
					var sBindPid = model.getValue("/root/main/result/patinfo/patinfolist/bindpid");
					if( sBindPid != '-' && sBindPid != '' && sBindPid != ' ' ){
						//합번된 등록번호 메세지 처리
						var sPid = model.getValue("/root/main/result/patinfo/patinfolist/pid");
						var sHngnm = model.getValue("/root/main/result/patinfo/patinfolist/hngnm");
						var retValue = messageBox(sPid + " (" + sHngnm + ") 환자의 등록번호가 [ " + sBindPid + " ] 로 합번 되었습니다. 합번된 등록번호로 재조회 하시겠습니까?", "Q999", "");
						if( retValue == '6' ){
							model.makeValue(iptObj.attribute("ref"), sBindPid);
							iptObj.refresh();
							fCheckPid(iptObj, refPnm);
							return "";
						}
					}
					//*/																	
					var pid = model.getValue("/root/main/result/patinfo/patinfolist/pid");
					var pnm = model.getValue("/root/main/result/patinfo/patinfolist/hngnm");							
					if (refPnm != null)
					{
						model.makeValue(refPnm, pnm);
					}
					return pnm;
				}else{
					model.resetInstanceNode("/root/main/patinfo/patinfolist");
					messageBox("없는 환자 번호 입니다.", "E999", "");
					model.refresh();
					return "";
				}								
			}	
				
		}else{
			messageBox("환자등록번호를 정확히", "C001");
			return "";
		}		
}


/**
 * @desc   : 환자등록번호 조회 팝업
 * @
 * @param  : refPid - 환자번호 참고 node path
 *           refPnm - 환자명   참고 node path
 * @return : 
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetPid(refPid, refPnm)
{
		//조회건수가 1건일 경우 팝업창을 바로 닫는다.
		model.makeValue("/root/hidden/tmp/pidpopupinfo/checkfnexam", "1");
		model.makeValue("/root/hidden/tmp/pidpopupinfo/autoflag", "N");
		if( model.getValue("/root/hidden/tmp/pidpopupinfo/srchcond") == '' ){
			model.makeValue("/root/hidden/tmp/pidpopupinfo/srchcond", '2');	
		}
		
		modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/hidden/tmp/pidpopupinfo", "/root/send");
		model.resetInstanceNode("/root/source");
		//환자번호 copy
		var popupendflag = model.getValue("/root/main/popupendflag");
		
		if (popupendflag == "ok")
		{
			model.makeValue(refPid, model.getValue("/root/main/patinfo/patinfolist/pid"));
			if (refPnm == null) { refPnm = "" }
			if (refPnm != "") {
			model.makeValue(refPnm, model.getValue("/root/main/patinfo/patinfolist/hngnm"));
			}
			model.refresh();
		}	
}


/**
 * @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		= model.getValue("/root/hidden/tmp/tempuserinfo/list/userid");
				var posdeptcd	= model.getValue("/root/hidden/tmp/tempuserinfo/list/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, job)
{
    if (event.button == 3) {
        if (gridObj.isCell(event.target) && gridObj.mouseRow >= gridObj.fixedrows) {
			if (job == "0") {
				model.removeNodeset("/root/send/savedata");
				window.setPopupMenu(true, "/root/hidden/applist_menu/menu", "label", "func", false);		
			} else {
				window.setPopupMenu(false);
			} 
        } else {
            window.setPopupMenu(false);
        }
    } else {
    	window.setPopupMenu(false);
    } 
}


/**
 * @desc   : 팝업폼 보여주기..
 * @		
 * @param  : job -	0:챠트대출(미대출사유)	, 1:챠트반납(과보관사유), 
 * @				2:접수자명단(미대출사유), 3:챠트반납(대출연장)  , 4:챠트반납(차트분실)
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fShowWndIptBox(job) 
{
		grup_unrendresn.visible		= "false";	

		if (job == "0") {
			model.setValue("/root/hidden/applist/unrendcd", "00");
			model.setValue("/root/hidden/applist/unrendresn", "");
			model.refresh();
			if (event.clientY < 100) {
				grup_unrendresn.attribute("top") = event.clientY-90;
			} else {
				grup_unrendresn.attribute("top") = 100;
			}
			grup_unrendresn.visible = "true";	
		} 
}


/**
 * @desc   : 대출신청내역이 여러 개인 경우 더블클릭으로 선택시 대출처리한다.
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fChoiceChrtSeqNo()
{
		var ref = "/root/hidden/chrtapplist";
		var grdObj = grd_chrtapplist;

		if (grdObj.row < 1){
			grup_applist.visible = "false";
			return;
		}

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

		var renddd	= model.getValue("/root/send/reqdata/renddd");
		var resettm	= model.getValue("/root/send/reqdata/resettm");
		var acptid	= model.getValue("/root/send/reqdata/acptid");

		var chrtseqno	 = model.getValue(ref + "[" + grdObj.row + "]/chrtseqno");
		var medirecno	 = model.getValue(ref + "[" + grdObj.row + "]/medirecno");
		var pid			 = model.getValue(ref + "[" + grdObj.row + "]/pid");
		var rendcd		 = model.getValue(ref + "[" + grdObj.row + "]/rendcd");
		var ioflag = "";
		//2010.12.28, 주희경, 입원대출 시에는 ioflag를 I로 설정
		if ( model.getValue("/root/send/reqdata/autolendflag") == "I" )
		{
			ioflag = "I";
		}

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

		if (dataString.length > 0)
		{
			model.makeValue("/root/send/savedata", savedata + dataString);
			submit("TXMRC00120");

			// 2008.01.25. 바코드 번호 클리어...
			model.makeValue("/root/send/reqdata/bcno", "");
			ipt_lendbcno.refresh();
			// 2008.01.02. 대출현황 조회 총건수..
			//model.setValue ("/root/init/count", grd_rendlist.rows - 1);
			//cap_rendlist.refresh();
		}

		grup_applist.visible = "false";
}


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

/**
 * @desc   : 대출과 약어 입력시 대출과 콤보 선택되도록 함
 * @
 * @param  : 
 * @return :
 * @authur : 이은영 2008.05.30
 * @---------------------------------------------------
 */
function fSelectedComboLendDeptCd(iptObj, comboObj)
{
		var lenddeptabbr = iptObj.currentText;
		lenddeptabbr = lenddeptabbr.toUpperCase( );
		var ref = iptObj.attribute("ref");
		model.setValue(ref, lenddeptabbr);
		var deptcd = model.getValue("/root/init/lendmastinfo/lenddeptlist[lenddeptabbr ='" + lenddeptabbr + "']/lenddeptcd");	
		var comboRef = comboObj.attribute("ref");
		model.setValue(comboRef, deptcd);
		model.refresh();
		if (deptcd != ""){
			// 대출과에 따른 대출자(의사) 조회하기
			comboObj.dispatch("xforms-value-changed");
		}
}


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

		model.makeValue("/root/send/req/ioflag", model.getValue("/root/main/lendinfo/ioflag"));		
		model.makeValue("/root/send/req/pid"   , model.getValue("/root/main/lendinfo/pid"));		
		submit("TRMRC00144","","/root/send/req","/root/main/chrtlist");	
}


/**
 * @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(refUserid, refUsernm, refUserDeptcd, cmbObj)
{
		model.removenode("/root/hidden/tmp/tempuserinfo/list");
		model.reset("/root/hidden/tmp/tempuserinfo");

		var user = model.getValue(refUserid);
		var flag = "userid";
		
		if(isNaN(user)){
			flag = "usernm";
		}
		
		model.setValue("/root/hidden/tmp/userpopupinfo/param", "_OneS");
		model.setValue("/root/hidden/tmp/userpopupinfo/flag", flag);
		model.setValue("/root/hidden/tmp/userpopupinfo/searchitem", user);
		
		modal("SPZSU10103", "", "200", "200", "SPZSU10103","/root/hidden/tmp/userpopupinfo","/root/main/temp");
		
		var iParam = getParameter("SPZSU10103_"); 

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

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

			if (!isNull(refUsernm)){
				if (isNaN(refUsernm)){
					model.makeValue(refUsernm, usernm);
				}
			}
			if (!isNull(refUserDeptcd)){
				if (isNaN(refUserDeptcd)){
					model.makeValue(refUserDeptcd, posdeptcd);		
				}
			}
			if (cmbObj != null){
				fAddUser(userid, usernm, cmbObj);
			}
			model.makeValue(refUserid, userid);
			model.refresh();
		}
}

/**
 * @desc   : 대출자ID, 대출자명 콤보에 추가하기
 * @
 * @param  : refUserid - 대출자 ID, refUsernm - 대출자명
 * @return : 
 * @authur : 이은영 2008.09.01
 * @---------------------------------------------------
 */
function fAddUser(Userid, Usernm, cmbObj)
{
		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);
		}
}


/**
 * @desc   : 선택된 환자등록번호로 현위치조회 텝이동..
 * @
 * @param  : gridObj - 그리드 컨트롤, ref - node path
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fMoveTabChartByPid(gridObj, ref){
 
		if (isDataCell() == false){
			return;
		}		
		if (gridObj.row < 1){
			return;
		}		
		var pid		 = model.getValue(ref + "[" + gridObj.row + "]/pid");
		var pnm		 = model.getValue(ref + "[" + gridObj.row + "]/pnm");
		window.parent.model.makeValue("/root/send/reqdata/pid"	  , pid);
		window.parent.model.makeValue("/root/send/reqdata/pnm"	  , pnm);
		window.parent.model.makeValue("/root/send/reqdata/rrgstno", "");
		window.parent.model.refresh();	
		window.parent.btn_ChrtInfo.dispatch("onclick");
		window.parent.javascript.fChartHistory();
}

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

		model.setFocus("ipt_lendbcno");	
		ipt_lendbcno.refresh();				
}

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