YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO00400.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KNUH2.0
 * Job Name 		:	EMR
 * File Name 		:	SPMMO00400.xjsS
 * Creator 	        :	
 * Make Date 		:	2014-09-25
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2014-09-25        DBS       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
var sPAMINFOLIST = ds_temp_paminfo;
var arErrorCode  = new HashArray();
var objFontArg = new Object(); // 확인 창의 줄간격 등 설정
var strBeforeCpApply = "";

/****************************************************************************************
 * Function			: fInitialize_SPMMO00400
 * Description		: 화면 초기화(환자정보세팅)
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fInitialize_SPMMO00400() {
	objFontArg.linespace = 2;
	
	var paminfo = sysf_getGlobalVariable("paminfo");
	dsf_setCSVToDs("ds_temp_paminfo", paminfo);
	
	ds_init.setColumn(0,"today", utlf_getCurrentDate());
	
	//var cRow = ds_temp_paminfo.rowposition;
	var dschdclrtyn     = ds_temp_paminfo.getColumn(0,"dschdclrtyn");
	var dschdclrdt      = ds_temp_paminfo.getColumn(0,"dschdclrdt");
	var dschdclrtrgstid = ds_temp_paminfo.getColumn(0,"dschdclrtrgstid");
	var dschdclrtrgstdt = ds_temp_paminfo.getColumn(0,"dschdclrtrgstdt");
	var dschdclrtrgstnm = ds_temp_paminfo.getColumn(0,"dschdclrtrgstnm");
	var indschacptstat  = ds_temp_paminfo.getColumn(0,"indschacptstat");
	var hngnm           = ds_temp_paminfo.getColumn(0,"hngnm");
	var dethdt          = ds_temp_paminfo.getColumn(0,"dethdt");

	if(indschacptstat == "D" || indschacptstat == "T"){
		if(!lf_ContainsHardCD("1900001012", ds_temp_paminfo.getColumn(0, "wardcd"))){
			sysf_messageBox("이미 퇴원한 환자", "E008");
			this.close();
			return;
		}
	}

	if(dschdclrtyn == "N"){ //퇴원예고가 안된경우	
		//20200220 이돈희 문제 : CP 적용전에 퇴원예고 팝업 후에 퇴원예고하는 경우 불필요하게 CP 배치 수행됨
		//                 해결 : CP 적용 전에 팝업되는 퇴원예고인지 정보 추가함
		strBeforeCpApply = opener.frmf_getParameter("SMMMP00800_beforecpapply");
		if(utlf_isNull(strBeforeCpApply)){
			strBeforeCpApply = "N";
		}
		
		ds_cond.setColumn(0,"dclrflag","N");
		//CP에서 퇴원일이 이정된 경우, 퇴원예고일을 설정 (2008.08.06 JJE)
		if(dethdt != "" && dethdt != "-") { // 사망등록 되었을경우 사망일자로 설정.
			ds_cond.setColumn(0,"dclrdd",dethdt.substr(0, 8));
		} else {
			var SMMMP00800_dclrdd = opener.frmf_getParameter("SMMMP00800_dclrdd");
			if(utlf_isNull(SMMMP00800_dclrdd)){
				ds_cond.setColumn(0,"dclrdd",utlf_getCurrentDate());
			}else{
				ds_cond.setColumn(0,"dclrdd",SMMMP00800_dclrdd);
			}
		}
		ds_cond.setColumn(0,"dclrtm",utlf_getCurrentTime().substr(0,6));
		ds_cond.setColumn(0,"dclrtrgstnm",sysf_getUserName());
		btn_dschcncl.enable = false; //예고취소 버튼 비활성화      
	}else{ //퇴원예고가 된 경우    
		ds_cond.setColumn(0,"dclrflag"		,dschdclrtyn);
		ds_cond.setColumn(0,"dclrdd"		,dschdclrdt.substr(0,8));
		ds_cond.setColumn(0,"dclrtm"		,dschdclrdt.substr(8,6));
		ds_cond.setColumn(0,"dclrtrgstdt"	,dschdclrtrgstdt);
		ds_cond.setColumn(0,"dclrtrgstnm"	,dschdclrtrgstnm);
		btn_dschrgst.enable = false; //예고등록 버튼 비활성화
	}
	ipt_dclrtm.setFocus();
}

/****************************************************************************************
 * Function			: fGetCpExclusionRsn
 * Description		: CP의 Exclusion 을 조회
 * Argument			: popFlag (A:평가팝업을 위해, 그외(E):exclusion을 위해)
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fGetCpExclusionRsn( popFlag ){
	if( utlf_isNull(popFlag) ) popFlag = "E";
	if( popFlag == "E" && ds_init.getColumn(0,"trmmp00808endyn") == "Y" ){
		return;	//이미 한번 exclusion 사유를 search했다면 return
	}else if( popFlag == "E" && (!utlf_isNull(opener.objects["ds_masterinfo"]) && opener.ds_masterinfo.getColumn(0,"cpgflagcd") == "02") ) {  // 오프너에 사용하는 DS를 알고 고칠 필요가 있음
		return;	//## CPG일 경우, exclusion 팝업 사용 안 함. 20100426 KHJ
	}
	
	var paminfoNode  = opener.ds_paminfo;
	var patflagNode  = opener.ds_patflag;
	var prcpgenrflag = "";
	var orddd 		 = "";
	
	if(utlf_isNull(paminfoNode)) return;
	if(utlf_isNull(patflagNode)) {
		prcpgenrflag = opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"ioflag"); 
	} else {
		prcpgenrflag = opener.ds_patflag.getColumn(opener.ds_patflag.rowposition,"prcpgenrflag");
	}
		
	if ( prcpgenrflag == "O" ) {
		orddd = opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"orddd");
	} else {
		orddd = opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"indd");
	}

	dsf_createDs("ds_send_cpdata");
	dsf_makeValue(ds_send_cpdata,"orddd",	 "string",orddd);
	dsf_makeValue(ds_send_cpdata,"pid",		 "string",opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"pid"));
	dsf_makeValue(ds_send_cpdata,"cretno",	 "string",opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"cretno"));
	dsf_makeValue(ds_send_cpdata,"orddeptcd","string",opener.ds_paminfo.getColumn(opener.ds_paminfo.rowposition,"orddeptcd"));	
    
    ds_main_cpexclusionlist.clearData();
    ds_main_valuinfo.clearData();
    
    var oParam = {};
		oParam.id      = "TRMMP00808";
		oParam.service = "prcpmngtapp.CPPrcpMngt";
		oParam.method  = "reqGetExclusionList";
		oParam.inds    = "req=ds_send_cpdata";
		oParam.outds   = "ds_main_cpexclusionlist=info ds_main_valuinfo=valuinfo";
		oParam.async   = false;
		oParam.callback = "cf_TRMMP00808";

	tranf_submit(oParam);

	ds_init.setColumn(0,"trmmp00808endyn","Y");	//설정값 변경
	dsf_deleteDs("ds_send_cpdata");
	
	if( popFlag == "E" ){
		if(ds_main_valuinfo.rowcount > 0) {
			var objArg = new Object();
			objArg.arg_ds_hidden = ds_main_valuinfo;
			//20200224 이돈희 : 김현석 선생님과 협의 후 평가 팝업창 없앰
			//                 : 평가 팝업창 장기간 사용안됨을 데이터로 확인하였음
			//frmf_modal("SPMMP02500", "SPMMP02500", objArg, "", sysf_getCurrentMonitorNumber(), "55", "60", "", "", "", "", "", "M"); // 퇴원예고시 평가 팝업잠시 막음
		}
	}
}

/****************************************************************************************
 * Function			: cf_TRMMP00808
 * Description		: TRMMP00808 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TRMMP00808(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode > -1) {
	//20181019 이돈희 : 우지애 선생님 요청으로 퇴원예고시 Exclusion 화면 제거
	/*
		if(ds_main_cpexclusionlist.rowcount > 0) { //if( instance1.selectSingleNode("/root/main/cpexclusionlist/info") != null ){
			var mon 	= sysf_getCurrentMonitorNumber(); //getCurrentMonitorNumber();
			var cpObj 	= frmf_findPopup("SMMMP00800"); //getOpenWindow("SMMMP00800");
			//CP 적용 전 퇴원예고 시 exclusion 제외..
			if( cpObj == null ){
				//modal("SPMMP02400", mon, "55", "60", "SPMMP02400", "/root/main/cpexclusionlist", "/root/main/cpexclusionlist", "sysmenu:hidden; icon:visible", false);
				var objArg = new Object();
				objArg.arg_ds_main_cpexclusionlist = ds_main_cpexclusionlist;
				frmf_modal("SPMMP02400", "SPMMP02400", objArg, "", mon, "55", "60", "", "", "close=false", "", "", "M");
			}
		}
	*/
	}
}

/****************************************************************************************
 * Function			: fSaveDschDclr
 * Description		: 퇴원예고 등록 및 취소
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSaveDschDclr(dschdclrtyn){   
	if(ds_temp_paminfo.rowcount < 1) {
		sysf_messageBox("환자정보가 없습니다.", "");
		return;
	}
	
	if(fRequireRgst(dschdclrtyn) == false){
		return;
	}
   
	ds_savedata.clearData();
	var pid        = ds_temp_paminfo.getColumn(0,"pid");
	var indd       = ds_temp_paminfo.getColumn(0,"indd");
	var cretno     = ds_temp_paminfo.getColumn(0,"cretno");
	var seqno      = ds_temp_paminfo.getColumn(0,"seqno");
	var ordtype    = ds_temp_paminfo.getColumn(0,"ioflag");
	var dschdclrdt = ds_cond.getColumn(0,"dclrdd") + ds_cond.getColumn(0,"dclrtm");
	var orddeptcd  = ds_temp_paminfo.getColumn(0,"orddeptcd");

	// CP 퇴원예정일보다 조기 퇴원 시 CP Drop 유도 (2008.10.28 JJE) (s)
	var cpObj = frmf_findPopup("SMMMP00800"); //getOpenWindow("SMMMP00800");
	if( dschdclrtyn == "Y" && !utlf_isNull(cpObj) ){
		//입원 CP, 퇴원필요step의 퇴원예고일 < 퇴원예정일 => drop
		var cpflagcd   = utlf_transNullToEmpty(cpObj.ds_main_masterinfo_info.getColumn(0,"cpgflagcd")); //cpObj.model.getValue("/root/main/masterinfo/info/cpgflagcd");
		var ioflagcd   = cpObj.ds_main_masterinfo_info.getColumn(0,"ioflagcd"); //cpObj.model.getValue("/root/main/masterinfo/info/ioflagcd");		
		var dschschedd = cpObj.ds_main_steppath_info.getColumn(cpObj.ds_main_steppath_info.findRow("decirflag","D") ,"prcpdd"); //cpObj.instance1.selectSingleNode("/root/main/steppath/info[decirflag='D']/prcpdd");
		if( cpflagcd == "01" && ioflagcd == "I" && !utlf_isNull(dschschedd) ){
			if( ds_cond.getColumn(0,"dclrdd") < dschschedd ){ //model.getValue("/root/main/cond/dclrdd") < dschschedd.text ){
				if( sysf_messageBox("조기퇴원입니다. CP Drop을" , "Q004" ) == "6" ){
					frmf_setParameter("SMMMO043_cpgappno", cpObj.ds_temp1_getdata.getColumn(0,"cpgappno")); //cpObj.model.getValue("/root/temp1/getdata/cpgappno"));
					frmf_setParameter("SMMMO043_drop"    , "N");
					frmf_modal("SPMMP02300","SPMMP02300","","","","","","","","","","","M");
					
					if( frmf_getParameter("SMMMO043_drop") == "Y" ){
						cpObj.ds_temp1_getdata.setColumn(0,"appstat","50"); //cpObj.model.setValue("/root/temp1/getdata/appstat", "50");
					}else{
						sysf_messageBox("퇴원예고가 등록되지" , "E007" );
						return;
					}
				}else{
					sysf_messageBox("퇴원예고가 등록되지" , "E007" );
					return;
				}
			}
		}
	}
   
	dsf_makeValue(ds_savedata,"pid",		"string",pid);
	dsf_makeValue(ds_savedata,"indd",		"string",indd);
	dsf_makeValue(ds_savedata,"cretno",		"string",cretno);
	dsf_makeValue(ds_savedata,"seqno",		"string",seqno);
	dsf_makeValue(ds_savedata,"ordtype",	"string",ordtype);
	dsf_makeValue(ds_savedata,"dschdclrdt",	"string",dschdclrdt);
	dsf_makeValue(ds_savedata,"dschdclrtyn","string",dschdclrtyn);
	dsf_makeValue(ds_savedata,"orddeptcd",	"string",orddeptcd);
	
	var oParam = {};
		oParam.id      = "TXMMO00401";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqSetInPatDschDclr";
		oParam.inds    = "req=ds_savedata";
		oParam.outds   = "";
		oParam.async   = false;
		oParam.callback = "cf_TXMMO00401";

	var bRtn = tranf_submit(oParam);
	if(bRtn) {
		var cpObj      = frmf_findPopup("SMMMP00800");
		var ordtype    = ds_temp_paminfo.getColumn(0,"ioflag");
		var indd       = ds_temp_paminfo.getColumn(0,"indd");
		
		if(ordtype=="E"){ // 응급실 환자 중 퇴원예고를 할 경우 귀가로 의사결정 되도록 로직 추가 
			dsf_makeValue(ds_savedata,"instcd",		 "string", sysf_getUserInfo("dutplceinstcd"));
			dsf_makeValue(ds_savedata,"orddd",		 "string", indd);
			dsf_makeValue(ds_savedata,"adflag",      "string", "H");

			dsf_setDefaultVal(ds_savedata, "answer:7");
			var oParam = {};
				oParam.id      = "TXMMO26001";
				oParam.service = "prcpmngtapp.EtcPrcpMngt";
				oParam.method  = "reqInsDecisioninfo";
				oParam.inds    = "req=ds_savedata";
				oParam.outds   = "ds_rtndata=item";
				oParam.async   = false;
				oParam.callback = "";

			tranf_submit(oParam);
		}
		//2012/07/30 End

		opener.frmf_setParameter("SPMMO00400_rtn_useyn", "Y");

		//CP (s)
		//2008.07.07 cp퇴원예고때문에 추가함
		opener.frmf_setParameter("SPMMO00400_dclrdd", ds_cond.getColumn(0,"dclrdd")); //model.getValue("/root/main/cond/dclrdd") );
		//2009.01.16 입퇴원기록지 미작성->작성후 퇴원예고 버튼 다시클릭한 경우 CP exclusion 사유 재조회
		fGetCpExclusionRsn("A");
		
		//20200203 이돈희 : 퇴원예고시 시간을 판단하여 CP 배치 실행
		//                 -- 퇴원날 전날 15시 30분 이후 퇴원예고시 - 다음날 CP 배치 실행
		//                 -- 퇴원날 퇴원예고시 - 당일 CP 배치 실행
		if( dschdclrtyn == "Y" && !utlf_isNull(cpObj)){
			if( cpflagcd == "01" && ioflagcd == "I" && !utlf_isNull(dschschedd) ){
				var sCpBatchTime = lf_getHardCDList("Y", 599, 3);   //배치 실행 시간
				if(utlf_isNull(sCpBatchTime)) {
					sCpBatchTime = "153000";     // 디폴트 6시 => 153000 으로 변경
				}
	
				var nextDay 	 = utlf_addDate(utlf_getCurrentDate(), 1);//다음날을 찾는다.
				var toDay        = utlf_getCurrentDate();
				var bRunExe      = false;
								
				//퇴원예고일이 CP 종료일과 같은 경우
				if( ds_cond.getColumn(0,"dclrdd") == dschschedd && strBeforeCpApply == "N"){					
					// 퇴원예고일이 내일이면서, CP 정규배치 시간 이후인 경우 내일자 CP배치를 한번 더 실행 해줌
					if(dschschedd == nextDay && utlf_getCurrentTime() > sCpBatchTime){
						//20200205 이돈희 : CP 배치 실행시에 state에 처방발행일자 입력하도록 수정(김현석 선생님과 협의 완료)
						ds_temp1_exe.setColumn(0,"paramcnts", "stat:" + dschschedd + " cpno:"+ cpObj.ds_temp1_getdata.getColumn(0,"cpgappno"));
						bRunExe = true;
					}
					// 퇴원예고일이 오늘이면 오늘자 CP배치를 한번 더 실행 해줌
					else if(dschschedd == toDay) {
						//20200205 이돈희 : CP 배치 실행시에 state에 처방발행일자 입력하도록 수정(김현석 선생님과 협의 완료)
						ds_temp1_exe.setColumn(0,"paramcnts", "stat:" + dschschedd +" cpno:"+ cpObj.ds_temp1_getdata.getColumn(0,"cpgappno"));
						bRunExe = true;
					}
					
					 
					if(bRunExe == true){					
						if(sysf_messageBox("미발행된 퇴원약을 처방하시겠습니까?\n\n퇴원약 처방은 약 1분 정도 소요되며, 퇴원약이 없거나\n별도로 퇴원약 처방을 한 경우는 아니오 선택바랍니다.\n\n(본원 : 5463, 칠곡 : 2422)" , "Q000", "", objFontArg) == "6"){
							var oParam = {};
								oParam.id          = "TXMMP00807";
								oParam.service     = "batchinfoapp.BatchInfo";
								oParam.method      = "reqExeRunBatchProgram";
								oParam.inds        = "req=ds_temp1_exe";
								oParam.outds       = "";
								oParam.async       = false;

							tranf_submit(oParam);
							
							if( arErrorCode.pop("TXMMP00807") < 0 ){
								sysf_messageBox ( "퇴원약 처방을 위한 CP 배치가 실패하였습니다." );
							} 
						}
						
						ds_temp1_exe.setColumn(0,"lastupdtrid"	, "");
						ds_temp1_exe.setColumn(0,"lastupdtdt"	, "");
						ds_temp1_exe.setColumn(0,"paramcnts"	, "");
					}
				}
			}
		}
		
		//CP (e)
		this.close();
	}
}

/****************************************************************************************
 * Function			: fRequireRgst
 * Description		: 퇴원예고 등록여부를 MessageBox를 띄움
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fRequireRgst(bflag){
	var dclrdd = ds_cond.getColumn(0,"dclrdd");
	var dclrtm = ds_cond.getColumn(0,"dclrtm");
	
	if(dclrtm.length < 4){
		sysf_messageBox("퇴원예고 시간을 정확하게", "C001");
		return false;
	}
	
 	var hngnm  = ds_temp_paminfo.getColumn(0,"hngnm");
	if(bflag == "Y"){
		var rtnval = rtnval = sysf_messageBox("[" + hngnm + "] 환자를 퇴원예고 등록을 " , "Q004");
	}else if(bflag == "N"){
		var rtnval = sysf_messageBox("[" + hngnm + "] 환자를 퇴원예고 취소를 " , "Q004");      
	}

	if(rtnval == 6){ // '예' 클릭
		return true;
	}else if(rtnval == 7){ // '아니오' 클릭       
		return false;
	}
}

/****************************************************************************************
 * Function			: cf_TRMMO00401
 * Description		: TRMMO00401 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TRMMO00401(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Function			: cf_TRMMO00402
 * Description		: TRMMO00402 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TRMMO00402(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Function			: cf_TRMMO50002
 * Description		: TRMMO50002 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TRMMO50002(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Function			: cf_TXMMO00401
 * Description		: TXMMO00401 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TXMMO00401(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {
		var errMsg = utlf_transNullToEmpty(sErrorMsg.split("|")[0]);
		var sErrCd = errMsg.substr(8,6);  // 에러코드가 없어 에러 메세지로 구분 . 에러코드를 받아오는방법이 필요
		
		opener.frmf_setParameter("SPMMO00400_rtn_useyn", "N");	
		
   		//CP이면서 exception msg가 "입퇴원요약기록지를 기록해야 합니다." 일 경우, 입퇴원요약기록지 호출 (2008.11.10 JJE) (s)
   		ds_init.setColumn(0,"trmmp00808endyn","N");	//CP아닌 경우, 입퇴원요약기록지 작성 후 다시 exclusion 사유 조회하기 위해, 초기값 설정
		
		var cpObj = frmf_findPopup("SMMMP00800");
		
		if(sErrCd == "X10001") {  // [메세지코드: X10001 입퇴원요약지 체크]
			if(!utlf_isNull(cpObj)) { // CP 화면
				var mainObj = frmf_getMainViewer();
				var scrnID  = mainObj.frmf_getScreenID();
				var formrecseq = "";
				var formrecdd  = ds_cond.getColumn(0,"dclrdd"); 
					
				if(scrnID == "SMMMR00100"){
					mainObj.fOpenFormByOther("0000000680", formrecseq, "", formrecdd, "PROG"); // MMR00100.xjs (진료기록메인에 링크)
				} else { 
					sysf_setGlobalVariable("linked_cpformcd"	, "0000000680"	, "emr"); 
					sysf_setGlobalVariable("linked_cpformrecseq", formrecseq	, "emr"); 
					sysf_setGlobalVariable("linked_cpformrecdd"	, formrecdd		, "emr"); 
					mainObj.frmf_openForm("SMMMR00100");
				}
			} else {
				fInOutBrifEMRScrn() ; // 입퇴원기록지는 진료기록메인 화면이 열린 경우만 열어주도록 함 
			}
		} else {
			fInProgressEMRScrn() ;
		}
    } 
}

/****************************************************************************************
 * Function			: fInOutBrifEMRScrn
 * Description		: 
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fInOutBrifEMRScrn() {
	var mainobj 	= frmf_getMainViewer();
	var mainscrnid  = mainobj.frmf_getScreenID(); //메인화면의 기록지 ID
	
	curFormLoaderObj  = frmf_findPopup("SSMMR01100"); //활성화된 서식로더창 체크
    if(curFormLoaderObj != null){      //서식로더 Close   : 2009-06-03 : 이상현 D/L 요청 : 김영학 ;  
        curFormLoaderObj.fClose();
    } //서식로더 close()
	
	if(mainobj != null){	
    	var wndid       = "SMMMR00100";                   //진료기록화면이 default
        if(mainscrnid == wndid){
			mainobj.frmf_setParameter("SSMMR01100_recsavechk", "Y");
            mainobj.lf_openNewForm("0000000680", "PROG");//0900006893
        }
    }
}

/****************************************************************************************
 * Function			: fInProgressEMRScrn
 * Description		: 경과기록을 Open 한다. 
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fInProgressEMRScrn () {
	var mainobj = frmf_getMainViewer();
	var mainscrnid  = mainobj.frmf_getScreenID(); //메인화면의 기록지 ID
	
	curFormLoaderObj  = frmf_findPopup("SSMMR01100"); //활성화된 서식로더창 체크
    if(curFormLoaderObj != null){      //서식로더 Close   : 2009-06-03 : 이상현 D/L 요청 : 김영학 ;  
        curFormLoaderObj.fClose();
    } //서식로더 close()
		if(mainobj != null){	
    	var wndid       = "SMMMR00100";                   //진료기록화면이 default
        if(mainscrnid == wndid){
            mainobj.frmf_setParameter("SSMMR01100_recsavechk", "Y");
            mainobj.lf_openNewForm("0900006893", "PROG");
        }
    }    
}

/****************************************************************************************
 * Function			: fOpenInReq
 * Description		: 입원의뢰서 화면 open. 
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fOpenInReq(){
	var param = ds_temp_paminfo.getColumn(0,"pid")       + "▦" +
				ds_temp_paminfo.getColumn(0,"hngnm")     + "▦" +
				ds_temp_paminfo.getColumn(0,"orddeptcd") + "▦" +
				ds_temp_paminfo.getColumn(0,"orddrid")   + "▦" +
				ds_temp_paminfo.getColumn(0,"insukind")  + "▦" +
				ds_temp_paminfo.getColumn(0,"suppkind")  + "▦" +
				ds_temp_paminfo.getColumn(0,"indd")      + "▦" +
				ds_temp_paminfo.getColumn(0,"cretno")    + "▦" +
	            "I";
	frmf_setParameter("SPMMO00100_param", param);
	
	frmf_modal("SPMMO00100", "SPMMO00100", "", "", "", 100, 40, "", "", "", "", "", "M");
}

/****************************************************************************************
 * Function			: fOpenOrdRsrv
 * Description		: 재진예약 화면 open 
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fOpenOrdRsrv(){
  frmf_setParameter("SMPMO00300_PARAM1", ds_temp_paminfo.getColumn(0,"orddeptcd")); //진료과코드
  frmf_setParameter("SMPMO00300_PARAM2", ds_temp_paminfo.getColumn(0,"orddrid")); 	//진료의ID
  frmf_setParameter("SMPMO00300_PARAM3", ds_temp_paminfo.getColumn(0,"pid")); 		//등록번호
  
  frmf_modal("SMPMO00300", "SMPMO00300", "", "", "", 0, 80, "", "", "", "", "", "M");
}]]></Script>