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

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

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

/****************************************************************************************
 * Argument			: 01.sSvcId	: 서비스 ID
 *					: 02.nErrorCode	: 에러코드
 *					: 03.sErrorMsg	: 에러메시지
 * Description		: tr_getCodeList의 콜백함수
 ****************************************************************************************/
 function cf_TRMRC01312(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC01312 *****");
	
	rdo_searchset.setBindDataset(ds_init_lendset_lendsetlist, "setcd", "setnm");
	
}

function cf_TRMRC01313(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC01313 *****");
	
	chk_rendcd.setBindDataset(ds_init_lendsetitem_setitemlist,"rendcd","rendresn");
	
	var trueData = new Array();
//	var falseData = new Array();
	
// 	var ref = "/root/init/lendsetitem/setitemlist";
 	var cnt = ds_init_lendsetitem_setitemlist.rowcount;
	var chkrendcdlist = "";
	var arrIdx = 0;
	for ( var i = 0; i < cnt; i++)	{
		var rendcd		= ds_init_lendsetitem_setitemlist.getColumn(i, "rendcd");
		var srchuseyn	= ds_init_lendsetitem_setitemlist.getColumn(i, "srchuseyn");
		if (srchuseyn == "Y") {
			chkrendcdlist = chkrendcdlist + rendcd + "|";
			trueData[arrIdx] = rendcd;
			arrIdx++;
		}
	}
	
	var rendcdlist = chkrendcdlist.split("|");
	if (rendcdlist.length > 0) {
		chkrendcdlist = chkrendcdlist.substring(0, chkrendcdlist.length -1);
	}
	
	ds_send_reqdata.setColumn(0, "chkrendcdlist", chkrendcdlist);
	
	chk_rendcd.setData(trueData, null, false);
	
}

function cf_TRMRC00160(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
//    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRMRC00160 *****");
	
	ds_grd_receipt.rowposition = -1;
	// 2008.01.02. 접수현황 조회 총건수..
	ds_init.setColumn(0, "count", ds_grd_receipt.rowcount);
	
}

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

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

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

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

function cf_TXMRC00111(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TXMRC00111 *****");
	
	var e = new ClickEventInfo;
	frmf_inputEnterKey("btn_r_receipt", "onclick", e);
	//btn_r_receipt.dispatch("DOMActivate");
}
 
function cf_TRPMC02500(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
	//sysf_trace("***** cf_TRPMC02500 *****");
}
 
//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var extnflag = "false";
var arErrorCode = new HashArray();
//var arErrorMsg = new HashArray();
var screenX = "";
var screenY = "";



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

/****************************************************************************************
 * Argument			: 01.sKey	: 코드아이디
 *					: 02.sValue	: 코드명
 * 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", "");
			submit("TRMRC00100");
//*/
		ds_send_reqdata.setColumn(0, "appfromdd"  , utlf_getCurrentDate()); //KNUH, 대출예약일 구간 조회 요청 (2011.02.24 JJE)
		ds_send_reqdata.setColumn(0, "apptodd"    , utlf_getCurrentDate()); //KNUH, 대출예약일 구간 조회 요청 (2011.02.24 JJE)
		ds_send_reqdata.setColumn(0, "appdept"    , "ALL");
		ds_send_reqdata.setColumn(0, "chrtdept"   , "ALL");
		ds_send_reqdata.setColumn(0, "chgrman"    , "ALL");
		ds_send_reqdata.setColumn(0, "keepplce"   , "ALL");
		ds_send_reqdata.setColumn(0, "rendflag"   , "X");
		ds_send_reqdata.setColumn(0, "prntflag"   , "X");
		ds_send_reqdata.setColumn(0, "sortappdept", "Y");

		// 2009.01.12. 대출용도 셋 조회... (의료정보팀..3230000000)
		// 90000000000000055	예약
		// 90000000000000056	외래당일접수
		// 90000000000000057	병동/응급실
		// 90000000000000058	당일신청서
		// 90000000000000059	연구용
		// 90000000000000060	전체
		ds_send_reqdata.setColumn(0, "deptcd"	 , "3230000000");
		
		var oParam = {};
			oParam.id       = "TRMRC01312";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetLendSetList";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_init_lendset_lendsetlist=lendsetlist";
			oParam.async    = false;
			oParam.callback = "cf_TRMRC01312";

		tranf_submit(oParam);

		// 2009.01.12. 선택된 대출용도 코드 리스트 스트링 만들기..
		// 초기화 선택 셋코드.. 외래당일접수..90000000000000056
		
		rdo_searchset.setData("90000000000000056");
		//fGetChkRendCdList("90000000000000056");

		// 2007.12.15. 로그인 사용자가 챠트담당자 리스트에 있는지 확인하고 선택해 주자..
		
		var acptid = ds_init_lendmastinfo_chrtchgrlist.lookup("chgruserid", sysf_getUserId(), "chgruserid");
		if (!utlf_isNull(acptid)) {
			ds_send_reqdata.setColumn(0, "chgrman", sysf_getUserId());
		}

		// 2008.01.16. 접수증 출력시 - 미리보기 창 안보이게 실행하기
		//makeReportPreview(0,50,1194,600, "grp_report");
}

/**
 * @desc   : 선택된 대출용도 코드 리스트 스트링 만들기..
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2009.01.12
 * @---------------------------------------------------
 */
function fGetChkRendCdList(setcd)
{
//		ds_send_reqdata.setColumn(0, "setcd"	 , setcd);
// 		var sData = setcd;
// 		rdo_searchset.setData(sData);
		
		var oParam = {};
			oParam.id       = "TRMRC01313";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetLendSetItem";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_init_lendsetitem_setitemlist=setitemlist";
			oParam.async    = true;
			oParam.callback = "cf_TRMRC01313";

		tranf_submit(oParam);

		
}



var gTimerID;
var gCount = 60;


/**
 * @desc   : 접수증 출력
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fprnfstacpt()
{
	if(gCount <= 0){

		// 2008.01.10. 다시 조회한다. - 접수증이 출력이 되었고, 챠트가 대출된 경우 접수증을 출력하지 않는다..
		// 2008.01.18. 다시 조회한다. - 출력시 데이타 체킹으로 출력한다.. (접수증출력, 챠트대출상태, 보관장소)
		// ds_send_reqdata.setColumn(0, "rendflag", "X");
		// ds_send_reqdata.setColumn(0, "prnflag" , "Y");

		// 2008.10.05. 다시 조회시 진료일자를 조회하는 현 날짜로 셋하고 조회하기..
		ds_send_reqdata.setColumn(0, "appfromdd" , utlf_getCurrentDate()); //KNUH, 대출예약일 구간 조회 요청 (2011.02.24 JJE)
		ds_send_reqdata.setColumn(0, "apptodd"   , utlf_getCurrentDate()); //KNUH, 대출예약일 구간 조회 요청 (2011.02.24 JJE)

		var e = new ClickEventInfo;
		frmf_inputEnterKey("btn_r_receipt", "onclick", e);
		//btn_r_receipt.dispatch("DOMActivate");

		if(ds_grd_receipt.rowcount < 1){
			gCount = ds_init.getColumn(0, "timer");
			ds_init.setColumn(0, "interval", gCount);
			return;
		}

		this.killTimer(0);
		//window.clearinterval(gTimerID);

		var dataString = fPrntDataString("1");	// 1:접수증출력
		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);
			
			// 접수증 전체 출력하기...
			// 2008.01.16. 접수증 출력시 - 미리보기 창 안보이게 실행하기
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "/root/hidden/rex/chrtrciplist", ds_hidden_rex_chrtrciplist); // 데이터셋 1	
			//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
				
			var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
			var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
			rptf_exeReportPreview30(["RPMRC00100"],[objParam], option);
			//exeReportPreview("RPMRC00100", "XMLSTR", "/root/hidden/rex/chrtrciplist", "", "true", "", "", "", "", "", "", "grp_report");
			
			// 다시 조회하기..
			var e = new ClickEventInfo;
			frmf_inputEnterKey("btn_r_receipt", "onclick", e);
			//btn_r_receipt.dispatch("DOMActivate");
		}

		gCount = ds_init.getColumn(0, "timer");
		this.setTimer(0, 1000);
		//gTimerID = window.setInterval( "fprnfstacpt();", 1000);

	} else{
		gCount--;
		ds_init.setColumn(0, "interval", gCount);
	}

}

/**
 * @desc   : 접수증 출력 (선택 로우 재출력)
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function freprnfstacpt()
{
		// 노드 클리어..
		ds_hidden_rex_chrtrciplist.clearData();
		
		var savedata = "m▦chrtseqno▦medirecno▦pid▦rendcd▦prnttype▦fstacptprndt▩";
		var dataString = "";

		var fstacptprndt = utlf_getCurrentDate() + utlf_getCurrentTime();

		var selectedRows = grdf_getSelectedRows(grd_receipt);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			ds_grd_receipt.setColumn(selectedRows[i], "fstacptprndt", fstacptprndt);

			var chrtseqno	 = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
			var medirecno	 = ds_grd_receipt.getColumn(selectedRows[i], "medirecno");
			var pid			 = ds_grd_receipt.getColumn(selectedRows[i], "pid");
			var rendcd		 = ds_grd_receipt.getColumn(selectedRows[i], "rendcd");

			dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦1▦" + fstacptprndt + "▩";

			// 접수증 선택 로우 카피...
			var nRow = ds_hidden_rex_chrtrciplist.addRow();
			ds_hidden_rex_chrtrciplist.copyRow(nRow, ds_grd_receipt, selectedRows[i]);
			//copyNodeListType("/root/hidden/rex", "/root/main/chrtrciplist[" + grd_receipt.selectedrow(i) + "]", "after");
		}

		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);

			// 접수증 선택 출력하기...
			// 2008.01.16. 접수증 출력시 - 미리보기 창 안보이게 실행하기
			var objDOM = rptf_createDOM();	// DOM 객체 설정
			rptf_setNodeListToDOM(objDOM, "/root/hidden/rex/chrtrciplist", ds_hidden_rex_chrtrciplist); // 데이터셋 1	
			//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
				
			var objParam = new Object();
			objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
			var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
			rptf_exeReportPreview30(["RPMRC00100"],[objParam], option);
			//exeReportPreview("RPMRC00100", "XMLSTR", "/root/hidden/rex/chrtrciplist", "", "true", "", "", "", "", "", "", "grp_report");
			// 다시 조회하기..
			var e = new ClickEventInfo;
			frmf_inputEnterKey("btn_r_receipt", "onclick", e);
			//btn_r_receipt.dispatch("DOMActivate");
		}
}

/**
 * @desc   : 출력일시 업데이트 데이타 스트링...
 * @
 * @param  : prnttype : 출력구분 (0:안함,1:접수증출력,2:대출신청리스트출력,3:대출예약리스트출력)
 * @return : dataString
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fPrntDataString(prnttype)
{
		// 2008.01.21. prnttype : 출력구분 (0:안함,1:접수증출력,2:대출신청리스트출력,3:대출예약리스트출력)
		if (prnttype == null) {		return;		}

		// 노드 클리어..
		ds_hidden_rex_chrtrciplist.clearData();
		
		var savedata = "m▦chrtseqno▦medirecno▦pid▦rendcd▦prnttype▦fstacptprndt▩";
		var dataString = "";

		var fstacptprndt = utlf_getCurrentDate() + utlf_getCurrentTime();
		var keepplce	 = ds_init.getColumn(0, "print");
		//debugger;

		for ( var i = 0; i < ds_grd_receipt.rowcount; i++)
		{
			if (prnttype == "1") {
				// 2008.01.18. 접수증 출력시..
				// 1. 접수증이 미출력 상태인가?
				// 2. 챠트가 미대출챠트 인가?
				// 3. 보관장소가 출력대상인가?
				// 4. 접수증 출력 대상 진료과인가?(20120725 이윤주)
				//mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/noprntdept", 5613);
				lf_getHardCDList("N", 5613, null, ds_init_noprntdept);

				var orddeptcd	= ds_grd_receipt.getColumn(i, "orddeptcd");
				var noprntdeptCnt = ds_init_noprntdept.getCaseCount("hardcd == '" + orddeptcd + "'");

				var chrtlendyn	= ds_grd_receipt.getColumn(i, "chrtlendyn");
				var renddd		= ds_grd_receipt.getColumn(i, "renddd");
				if (chrtlendyn != "Y" && utlf_isNull(renddd)) {
					var prnt	= ds_grd_receipt.getColumn(i, "prnttype");
					var keepno	= ds_grd_receipt.getColumn(i, "keepno");
					if (prnt == "0" && keepplce.indexOf(keepno) > -1 && noprntdeptCnt == 0)	{
						ds_grd_receipt.setColumn(i, "fstacptprndt", fstacptprndt);

						var chrtseqno	 = ds_grd_receipt.getColumn(i, "chrtseqno");
						var medirecno	 = ds_grd_receipt.getColumn(i, "medirecno");
						var pid			 = ds_grd_receipt.getColumn(i, "pid");
						var rendcd		 = ds_grd_receipt.getColumn(i, "rendcd");

						dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦" + prnttype + "▦" + fstacptprndt + "▩";
						// 선택 로우 카피...
						var nRow = ds_hidden_rex_chrtrciplist.addRow();
						ds_hidden_rex_chrtrciplist.copyRow(nRow, ds_grd_receipt, i);
						//copyNodeListType("/root/hidden/rex", "/root/main/chrtrciplist[" + i + "]", "after");
					}
				}
			} else {
					var prnt	= ds_grd_receipt.getColumn(i, "prnttype");
					if (prnt == "0")	{
						ds_grd_receipt.setColumn(i, "fstacptprndt", fstacptprndt);

						var chrtseqno	 = ds_grd_receipt.getColumn(i, "chrtseqno");
						var medirecno	 = ds_grd_receipt.getColumn(i, "medirecno");
						var pid			 = ds_grd_receipt.getColumn(i, "pid");
						var rendcd		 = ds_grd_receipt.getColumn(i, "rendcd");

						dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦" + prnttype + "▦" + fstacptprndt + "▩";
					}
			}
		}

		if (dataString.length > 0) {
			dataString = savedata + dataString;
		}
		return dataString;
}




/**
 * @desc   : 접수자 명단 조회
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fGetReqRendAppList()
{
		// 2007.12.26. 대출용도 멀티로 조회하기.. ^^
		var rendcd = ds_send_reqdata.getColumn(0, "chkrendcdlist");
		var rendcdlist = "";

		// 2009.01.12. 대출용도 선택항목이 전체인지 구분하기 위해서..
// 		var ref = "/root/init/lendsetitem/setitemlist";
 		var cnt = ds_init_lendsetitem_setitemlist.rowcount;

		var rendcdlist = rendcd.split("|");
		if (rendcdlist.length == 1) {
			rendcd = rendcd;
		} else if (rendcdlist.length == cnt) {
			rendcd = "ALL";
		} else {
			for (var i = 0 ; i < rendcdlist.length ; i++)	{
				rendcd = rendcd.replace("|","','");
			}
			rendcdlist = "Y";
			rendcd = "'" + rendcd + "'";
		}
		ds_send_reqdata.setColumn(0, "rendcdlist", rendcdlist);
		ds_send_reqdata.setColumn(0, "rendcd", rendcd);

		var oParam = {};
			oParam.id       = "TRMRC00160";
			oParam.service  = "chrtmngtapp.ChrtRendMngt";
			oParam.method   = "reqGetLendAppList";
			oParam.inds     = "req=ds_send_reqdata";
			oParam.outds    = "ds_grd_receipt=chrtrciplist";
			oParam.async    = true;
			oParam.callback = "cf_TRMRC00160";

		tranf_submit(oParam);


		

		// 2008.01.16. 상태에 따라 로우 색상 지정해 주기..
		// 2008.12.15. 속도 개선을 위한 인스턴스가 아닌 그리드 컨트롤로 처리하기..
// 		initGridStyle("grd_receipt");
// 
// 		var gridObj = grd_receipt;
// 
// 		for ( var i = 1 ; i < gridObj.rows ; i++)
// 		{
// 			if(gridObj.valueMatrix(i , gridObj.colRef("chrtlendyn")) == "Y"){
// 				gridObj.rowstyle(i, "data", "background-color") = "#ffccff";	// 이미대출중 (핑크색)
// 			}
// 			if(gridObj.valueMatrix(i , gridObj.colRef("unrendcd")) != "00"){
// 				gridObj.rowstyle(i, "data", "background-color") = "#ffff99";	// 미대출처리 (노란색)
// 			}
// 			if(gridObj.valueMatrix(i , gridObj.colRef("delyn")) != "N"){
// 				gridObj.rowstyle(i, "data", "background-color") = "#ff0000";	// 대출신청취소 (빨간색)
// 			}
// 			if(gridObj.valueMatrix(i , gridObj.colRef("renddt")) != ""){
// 				gridObj.rowstyle(i, "data", "background-color") = "#ccffcc";	// 대출완료 (초록색)
// 			}
// 		}
}


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


/**
 * @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)
{
		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		= 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, e, job)
{
	var oDs = this.objects[gridObj.binddataset];
	if( oDs.rowcount < 1 ) return;
	if (e.row > -1 && e.col > -1) {
		if (job == "2") {
			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/chrtrciplist_menu/menu", "label", "func", false);
		} 
	} 
}


/**
 * @desc   : 팝업폼 보여주기..
 * @
 * @param  : job -	0:챠트대출(미대출사유)	, 1:챠트반납(과보관사유),
 * @				2:접수자명단(미대출사유), 3:챠트반납(대출연장)  , 4:챠트반납(차트분실)
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fShowWndIptBox(job)
{
		grup_unrendresn2.visible	= false;
		
		var nX = screenX;
		var nY = screenY;
		var widGrup = 0;
		var widGrd = parseInt(grd_receipt.position2.width);
		var grupObj;
		
		if (job == "2") {
			// 2008.12.12. 미대출사유를 선택한 신청건의 미대출사유 값을 보여줌..
			var row = ds_grd_receipt.rowposition;
			var chrtseqno	= ds_grd_receipt.getColumn(row, "chrtseqno");
			var unrendcd	= ds_grd_receipt.getColumn(row, "unrendcd");
			var unrendresn	= ds_grd_receipt.getColumn(row, "unrendresn");
			if (utlf_isNull(unrendcd)){ unrendcd = "00" }
			ds_hidden_chrtrciplist.setColumn(0, "unrendcd"  , unrendcd);
			ds_hidden_chrtrciplist.setColumn(0, "unrendresn", unrendresn);
			
			widGrup = parseInt(grup_unrendresn2.position.width);
			grupObj = grup_unrendresn2;

// 			if (event.clientY < 450) {
// 				grup_unrendresn2.attribute("top") = event.clientY-100;
// 			} else {
// 				grup_unrendresn2.attribute("top") = 450;
// 			}
// 			grup_unrendresn2.visible = "true";
		}

		if (job == "3") {
			// 2009.02.06. 신청처리메세지를 선택한 신청건의 신청처리메세지 값을 보여줌..
			var row = ds_grd_receipt.rowposition;
			var chrtseqno	= ds_grd_receipt.getColumn(row, "chrtseqno");
			var apptretmsg	= ds_grd_receipt.getColumn(row, "apptretmsg");
			ds_hidden_chrtrciplist.setColumn(0, "apptretmsg", apptretmsg);
			ds_hidden_chrtrciplist.setColumn(0, "apptretcd" , "00");
			
			widGrup = parseInt(grup_apptretmsg.position.width);
			grupObj = grup_apptretmsg;
			
// 			if (event.clientY < 450) {
// 				grup_apptretmsg.attribute("top") = event.clientY-100;
// 			} else {
// 				grup_apptretmsg.attribute("top") = 450;
// 			}
// 			grup_apptretmsg.visible = "true";
		}
		
		
		if( job == "2" || job == "3"){
			if (widGrd < nX + widGrup)
			{
				nX = widGrd - widGrup - 17;
			}
			
			nX = system.clientToScreenX(grd_receipt,nX);
			nY = system.clientToScreenY(grd_receipt,nY);
			grupObj.trackPopup(nX,nY);
		}
}



/**
 * @desc   : 접수자명단 우클릭시 - > 미대출처리
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetunrend99()
{
		var savedata ="chrtseqno▦unrendcd▦unrendresn▩";
		var dataString = "";
		var dataCount = 0;

		var selectedRows = grdf_getSelectedRows(grd_receipt);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			var renddd = ds_grd_receipt.getColumn(selectedRows[i], "renddd");
			if (utlf_isNull(renddd)) {
				var chrtseqno = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
				dataString = dataString + chrtseqno + "▦99▦▩";
				dataCount = dataCount + 1;
			}
		}

		if (dataString.length > 0)
		{
			alert("총 " + dataCount + " 건 미대출 되었습니다.");
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			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);
		}

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

/**
 * @desc   : 접수자명단 우클릭시 - > 미처리
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetunrend00()
{
		var savedata ="chrtseqno▦unrendcd▦unrendresn▩";
		var dataString = "";
		var dataCount = 0;
		
		var selectedRows = grdf_getSelectedRows(grd_receipt);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			var renddd = ds_grd_receipt.getColumn(selectedRows[i], "renddd");
			if (renddd == "") {
				var chrtseqno = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
				dataString = dataString + chrtseqno + "▦00▦▩";
				dataCount = dataCount + 1;
			}
		}

		if (dataString.length > 0)
		{
			alert("총 " + dataCount + " 건 미처리 되었습니다.");
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			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);
		}

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

/**
 * @desc   :접수자명단 우클릭시 - > 미대출 사유 입력
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetrendresn2(){

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

}


/**
 * @desc   : 접수자명단 우클릭시 - > 미대출 사유 입력 (update)
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fUpdateUnrendresn2()
{
		// 2007.12.27. 미대출사유 입력하기...
		var unrendcd	= ds_hidden_chrtrciplist.getColumn(0, "unrendcd");
		var unrendresn	= ds_hidden_chrtrciplist.getColumn(0, "unrendresn");

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

		var selectedRows = grdf_getSelectedRows(grd_receipt);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			var renddd = ds_grd_receipt.getColumn(selectedRows[i], "renddd");
			if (utlf_isNull(renddd)) {
				var chrtseqno = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
				dataString = dataString + chrtseqno + "▦" + unrendcd + "▦" + unrendresn + "▩";
				dataCount = dataCount + 1;
			}
		}

		if (dataString.length > 0)
		{
			alert("총 " + dataCount + " 건 미대출(사유입력) 되었습니다.");
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			
			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);
		}
		grup_unrendresn2.visible = false;

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

/**
 * @desc   : 접수자명단 우클릭시 - > 대출 신청 취소
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fsetrendcncl2(){

		if(ds_grd_receipt.rowposition < 0){
			return;
		}

		// 2008.01.15. 대출 신청 취소...
		//var ref = "/root/main/chrtrciplist";
		var grdObj = grd_receipt;

   		var savedata = "m▦chrtseqno▦medirecno▦pid▦delyn▩";
		var dataString = "";
		var dataCount = 0;

		var selectedRows = grdf_getSelectedRows(grdObj);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			var renddd = ds_grd_receipt.getColumn(selectedRows[i], "renddd");
			if (utlf_isNull(renddd)) {
				var chrtseqno	 = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
				var medirecno	 = ds_grd_receipt.getColumn(selectedRows[i], "medirecno");
				var pid			 = ds_grd_receipt.getColumn(selectedRows[i], "pid");

				dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦Y▩";
				dataCount = dataCount + 1;
			}
		}

		if (dataString.length > 0)
		{
			alert("총 " + dataCount + " 건 대출신청이 취소되었습니다.");
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			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);
		}

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




/**
 * @desc   : exeReportPreview 함수 기본값 셋해주고 레포트 출력하기..
 * @
 * @param  : 보고서ID, 연계방법, 매개변수필드 Xpath, 출력여부, 인쇄창 보임여부, 프린트용지(A4)
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
/**
		exeReportPreview(
		rid,				-- "RPMRC00102"
		dataType,			-- "XMLSTR"
		paramsXPath,		-- "/root/main/chrtrciplist"
		submitId,
		print,				-- "true"
		printDialog,		-- "false"
		fileType,
		fileName,
		fileDialog,
		closeYn,			-- "true"
		monNo,
		parentObjId,		-- 미리보기 숨기기 (group id - hidden)
		printPaperBin,
		userService,
		showButton,
		printCount,
		zoomRate,
		printPaper,			-- "A4"
		dataXPath,
		mainDataXPath,
		subDataXPath)
 */
//<< 옵션으로 사용할수 있는 문자열>>
//* enablezoom : 확대/축소인쇄가능 (예) - > 0/1
//* zoomnumber : 모아찍기 (예) - > 0/1/2/3/4/5/6
//* zoomdirection : 출력순서 (예) - > 0/1
//* enablefittingpaper : 용지크기에 자동 맞춤 (예) - > 0/1
//* printpaper : 출력용지 (예) - > 0/1/2/3/4/5/6
//* printdirection : 용지방향 (예) - > 0/1
//* papersetting : 용지설정 (예) - > 0/1
//* offsetx : 인쇄위치(가로) (예) - > 100
//* offsety : 인쇄위치(세로) (예) - > 100
//* duplex : 양면인쇄 (예) - > 0/1/2/3
//(예) printPaper = "enablezoom=1;enablefittingpaper=0;printdirection=1;" (사용자정의)
/*
function fReportPrint(rid, dataType, paramsXPath, print, printDialog, parentObjId, printPaper)
{
		resetReportPreview(parentObjId);
		// exeReportPreview("RPMRC00101", "XMLSTR", "/root/main/chrtrciplist", "", "true", "", "", "", "", "", "", "grp_report", "", "", "", "", "", "enablefittingpaper=1;");
		exeReportPreview(rid, dataType, paramsXPath, "", print, printDialog, "", "", "", "", "", parentObjId, "", "", "", "", "", printPaper);
}
*/






/**
 * @desc   : 접수증 출력시작
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fPrntStartStop()
{
		var interval = ds_init.getColumn(0, "timer");
		if(interval <= 0){
			sysf_messageBox("Time이 0초인 상태로는 시작","E001");
			return;
		}

		if (btn_interval.text == "출력시작"){
			btn_interval.text = "출력정지";
			gCount = interval;
			//gTimerID = window.setInterval( "fprnfstacpt();", 1000);
			this.setTimer(0, 1000);

		} else {
			this.killTimer(0);
			//window.clearinterval(gTimerID);
			btn_interval.text = "출력시작";
		}
}

/**
 * @desc   : 대출신청 리스트 출력
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fPrntAppList()
{
		var dataString = fPrntDataString("2");	// 2:대출신청출력
		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);

		}
		// 대출신청 리스트 출력하기...
		var objDOM = rptf_createDOM();	// DOM 객체 설정
		rptf_setNodeListToDOM(objDOM, "/root/main/chrtrciplist", ds_grd_receipt); // 데이터셋 1	
		//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
			
		var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
		var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
		rptf_exeReportPreview30(["RPMRC00101"],[objParam], option);
		//exeReportPreview("RPMRC00101", "XMLSTR", "/root/main/chrtrciplist", "", "true");
		
		// 다시 조회하기..
		var e = new ClickEventInfo;
		frmf_inputEnterKey("btn_r_receipt", "onclick", e);
		//btn_r_receipt.dispatch("DOMActivate");
}

/**
 * @desc   : 대출예약 리스트 출력
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2008.03.18
 * @---------------------------------------------------
 */
function fPrntRsvList()
{
		var dataString = fPrntDataString("3");	// 3:대출예약출력
		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);

		}
		// 대출예약 리스트 출력하기...
		// xeReportPreview("RPMRC00102", "XMLSTR", "/root/main/chrtrciplist", "", "true");
		// 2008.01.16. 접수증 출력시 - 미리보기 창 안보이게 실행하기
		var objDOM = rptf_createDOM();	// DOM 객체 설정
		rptf_setNodeListToDOM(objDOM, "/root/main/chrtrciplist", ds_grd_receipt); // 데이터셋 1	
		//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
			
		var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
		var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
		rptf_exeReportPreview30(["RPMRC00102"],[objParam], option);
		//fReportPrint("RPMRC00102", "XMLSTR", "/root/main/chrtrciplist", "true", "", "grp_report", "enablefittingpaper=1;");
		// 다시 조회하기..
		var e = new ClickEventInfo;
		frmf_inputEnterKey("btn_r_receipt", "onclick", e);
		//btn_r_receipt.dispatch("DOMActivate");
}

/**
 * @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  :
 * @return :
 * @authur : 이은영 2008.07.21
 * @---------------------------------------------------
 */
function fFindPid(grdObj, refoDs:Dataset, pidRef)
{
		var grdDs = this.objects[grdObj.binddataset];
		var pid = refoDs.getColumn(0, pidRef);
		//var col = grdObj.colRef("pid");
		var startRow = grdDs.rowposition + 1;
		if(startRow <= 0) {	startRow = 1; }
		var row = grdDs.findRow("pid", pid, startRow);
		//var row = grdObj.findRow(pid, parseInt(startRow), parseInt(grdObj.colRef("pid")), false, false);
		if(row < 0){
			alert("no more");
		} else {
			grdDs.rowposition = row;
			//grd_receipt.vscrollbar.pos = row;
			// type scrollpixel =  all
			grd_receipt.vscrollbar.pos = row * 24
			
// 			grdObj.row = row;
// 			grdObj.topRow = row;
		}
}



/**
 * @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)
{
		
		//sysf_trace("cmbObj : " + cmbObj);
		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   : 사용자 조회
 * @
 * @param  : Userid - 사용자ID, Usernm - 사용자명
 * @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();
	}
}




/**
 * @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 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();
		}
}


/**
 * @desc   : 대출신청 리스트 출력 (선택 로우 출력)
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2009.02.05
 * @---------------------------------------------------
 */
function fPrntAppListSelected()
{
		var dataString = fPrntDataStringSelected("2");	// 2:대출신청출력
		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);
		}
		// 대출신청 리스트 출력하기...
		var objDOM = rptf_createDOM();	// DOM 객체 설정
		rptf_setNodeListToDOM(objDOM, "/root/hidden/rex/chrtrciplist", ds_hidden_rex_chrtrciplist); // 데이터셋 1	
		//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
			
		var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
		var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
		rptf_exeReportPreview30(["RPMRC00103"],[objParam], option);
		//exeReportPreview("RPMRC00103", "XMLSTR", "/root/hidden/rex/chrtrciplist", "", "true");
		// 다시 조회하기..
		var e = new ClickEventInfo;
		frmf_inputEnterKey("btn_r_receipt", "onclick", e);
		//btn_r_receipt.dispatch("DOMActivate");
}

/**
 * @desc   : 대출예약 리스트 출력 (선택 로우 출력)
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2009.02.05
 * @---------------------------------------------------
 */
function fPrntRsvListSelected()
{
		var dataString = fPrntDataStringSelected("3");	// 3:대출예약출력
		if (dataString.length > 0)
		{
			dsf_setCSVToDs("ds_send_savedata", dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00104";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setFstAcptPrnDt";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00104";

			tranf_submit(oParam);

		}
		// 대출예약 리스트 출력하기...
		var objDOM = rptf_createDOM();	// DOM 객체 설정
		rptf_setNodeListToDOM(objDOM, "/root/hidden/rex/chrtrciplist", ds_hidden_rex_chrtrciplist); // 데이터셋 1	
		//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
			
		var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;	// 최상의노드 XML 스트링 추출
		var option = "open=1;save=1;directprint=1;printdailog=0;print=1;zoom=0;";
		rptf_exeReportPreview30(["RPMRC00104"],[objParam], option);
		//exeReportPreview("RPMRC00104", "XMLSTR", "/root/hidden/rex/chrtrciplist", "", "true");
		// 다시 조회하기..
		var e = new ClickEventInfo;
		frmf_inputEnterKey("btn_r_receipt", "onclick", e);
		//btn_r_receipt.dispatch("DOMActivate");
}



/**
 * @desc   : 출력일시 업데이트 데이타 스트링... (선택 로우 출력)
 * @
 * @param  : prnttype : 출력구분 (0:안함,1:접수증출력,2:대출신청리스트출력,3:대출예약리스트출력)
 * @return : dataString
 * @authur : 이은영 2009.02.05
 * @---------------------------------------------------
 */
function fPrntDataStringSelected(prnttype)
{
		// 2008.01.21. prnttype : 출력구분 (0:안함,1:접수증출력,2:대출신청리스트출력,3:대출예약리스트출력)
		if (prnttype == null) {		return;		}

		// 노드 클리어..
		ds_hidden_rex_chrtrciplist.clearData();
		
		var savedata = "m▦chrtseqno▦medirecno▦pid▦rendcd▦prnttype▦fstacptprndt▩";
		var dataString = "";

		var fstacptprndt = utlf_getCurrentDate() + utlf_getCurrentTime();
		var keepplce	 = ds_init.getColumn(0, "print");

		var selectedRows = grdf_getSelectedRows(grd_receipt);
		for ( var i = 0; i < selectedRows.length; i++)
		{
			if (prnttype == "1") {
				// 2008.01.18. 접수증 출력시..
				// 1. 접수증이 미출력 상태인가?
				// 2. 챠트가 미대출챠트 인가?
				// 3. 보관장소가 출력대상인가?
				var chrtlendyn	= ds_grd_receipt.getColumn(selectedRows[i], "chrtlendyn");
				var renddd		= ds_grd_receipt.getColumn(selectedRows[i], "renddd");
				if (chrtlendyn != "Y" && utlf_isNull(renddd)) {
					var prnt	= ds_grd_receipt.getColumn(selectedRows[i], "prnttype");
					var keepno	= ds_grd_receipt.getColumn(selectedRows[i], "keepno");
					if (prnt == "0" && keepplce.indexOf(keepno) > -1)	{
						ds_grd_receipt.setColumn(selectedRows[i], "fstacptprndt", fstacptprndt);

						var chrtseqno	 = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
						var medirecno	 = ds_grd_receipt.getColumn(selectedRows[i], "medirecno");
						var pid			 = ds_grd_receipt.getColumn(selectedRows[i], "pid");
						var rendcd		 = ds_grd_receipt.getColumn(selectedRows[i], "rendcd");

						dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦" + prnttype + "▦" + fstacptprndt + "▩";
						// 선택 로우 카피...
						var nRow = ds_hidden_rex_chrtrciplist.addRow();
						ds_hidden_rex_chrtrciplist.copyRow(nRow, ds_grd_receipt, selectedRows[i]);
						//copyNodeListType("/root/hidden/rex", "/root/main/chrtrciplist[" + grd_receipt.selectedrow(i) + "]", "after");
					}
				}
			} else {
					var prnt	= ds_grd_receipt.getColumn(selectedRows[i], "prnttype");
					if (prnt == "0")	{
						ds_grd_receipt.setColumn(selectedRows[i], "fstacptprndt", fstacptprndt);

						var chrtseqno	 = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
						var medirecno	 = ds_grd_receipt.getColumn(selectedRows[i], "medirecno");
						var pid			 = ds_grd_receipt.getColumn(selectedRows[i], "pid");
						var rendcd		 = ds_grd_receipt.getColumn(selectedRows[i], "rendcd");

						dataString = dataString + "u▦" + chrtseqno + "▦" + medirecno + "▦" + pid + "▦" + rendcd + "▦" + prnttype + "▦" + fstacptprndt + "▩";
					}
						// 선택 로우 카피...
						var nRow = ds_hidden_rex_chrtrciplist.addRow();
						ds_hidden_rex_chrtrciplist.copyRow(nRow, ds_grd_receipt, selectedRows[i]);
						//copyNodeListType("/root/hidden/rex", "/root/main/chrtrciplist[" + grd_receipt.selectedrow(i) + "]", "after");
			}
		}

		if (dataString.length > 0) {
			dataString = savedata + dataString;
		}
		return dataString;
}


/**
 * @desc   :접수자명단 우클릭시 - > 신청처리메세지 입력
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2009.02.06
 * @---------------------------------------------------
 */
function fsetapptretmsg(){

	if(ds_grd_receipt.rowposition < 0){
		return;
	}
	// 2009.02.06. 신청처리메세지 입력하기...
	fShowWndIptBox("3");

}




/**
 * @desc   : 접수자명단 우클릭시 - > 신청처리메세지 입력 (update)
 * @
 * @param  :
 * @return :
 * @authur : 이은영 2009.02.06
 * @---------------------------------------------------
 */
function fUpdateAppTretMsg()
{
		// 2009.02.06. 신청처리메세지 입력하기...
		var apptretmsg	= ds_hidden_chrtrciplist.getColumn(0, "apptretmsg");

		var savedata ="chrtseqno▦apptretmsg▩";
		var dataString = "";
		var dataCount = 0;

		var selectedRows = grdf_getSelectedRows(grd_receipt);	
		for ( var i = 0; i < selectedRows.length; i++)
		{
			var renddd = ds_grd_receipt.getColumn(selectedRows[i], "renddd");
			if (utlf_isNull(renddd)) {
				var chrtseqno = ds_grd_receipt.getColumn(selectedRows[i], "chrtseqno");
				dataString = dataString + chrtseqno + "▦" + apptretmsg + "▩";
				dataCount = dataCount + 1;
			}
		}

		if (dataString.length > 0)
		{
			alert("총 " + dataCount + " 건 신청처리메세지가 입력 되었습니다.");
			dsf_setCSVToDs("ds_send_savedata", savedata + dataString);
			
			var oParam = {};
				oParam.id       = "TXMRC00108";
				oParam.service  = "chrtmngtapp.ChrtRendMngt";
				oParam.method   = "setAppTretMsg";
				oParam.inds     = "savedata=ds_send_savedata";
				//oParam.outds    = "null";
				oParam.async    = true;
				oParam.callback = "cf_TXMRC00108";

			tranf_submit(oParam);
		}

		// 2009.02.11. 메세지함 화면 띄워주기..
		//modal("SPZMI00101");
		frmf_modal("SPZMI00101", "SPZMI00101", null, null, null, null, null, null, null, null, null, null, "M");

		grup_apptretmsg.visible = false;

		// 다시 조회하기..
		fGetReqRendAppList();

}

/**
 * @desc   : 두꺼운 챠트 여부 입력
 * @
 * @param  :
 * @return :
 * @authur : 정창혁 20121126
 * @---------------------------------------------------
 */
function fSaveThickChart() {
	var oDs = this.objects[grd_receipt.binddataset];
	if (oDs.rowposition < 0 || oDs.rowcount < 1)
		return;

	ds_send_savedata.addColumn("medirecno", "BIGDECIMAL");
	ds_send_savedata.addColumn("thickyn", "string");
	if( ds_send_savedata.rowcount < 1 ) { ds_send_savedata.addRow(); }

	var sMsg = "두꺼운 차트 여부를 설정하시겠습니까?";

	if (oDs.getColumn(oDs.rowposition, "thickyn") == "Y") {
		sMsg = "두꺼운 차트 적용을 취소하시겠습니까?";
		ds_send_savedata.setColumn(0, "thickyn", "N");
	} else if (oDs.getColumn(oDs.rowposition, "thickyn") == "N" || utlf_isNull(oDs.getColumn(oDs.rowposition, "thickyn"))) {
		sMsg = "두꺼운 차트로 적용하시겠습니까?";
		ds_send_savedata.setColumn(0, "thickyn", "Y");
	} else {
		ds_send_savedata.setColumn(0, "thickyn", "");
		return;
	}
	
	if (sysf_messageBox(sMsg, "Q000") == 7) {
		return;
	}

	ds_send_savedata.setColumn(0, "medirecno", oDs.getColumn(oDs.rowposition, "medirecno"));

	var oParam = {};
		oParam.id       = "TXMRC00111";
		oParam.service  = "chrtmngtapp.ChrtRendMngt";
		oParam.method   = "reqExeThickChartYn";
		oParam.inds     = "req=ds_send_savedata";
		//oParam.outds    = "null";
		oParam.async    = true;
		oParam.callback = "cf_TXMRC00111";

	tranf_submit(oParam);
	
}
]]></Script>