YNU_JEUS/app_home/himed/imsi/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();

/****************************************************************************************
 * Function			: fInitialize_SPMMO00400
 * Description		: 화면 초기화(환자정보세팅)
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fInitialize_SPMMO00400() {
	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"){
		sysf_messageBox("이미 퇴원한 환자", "E008");
		this.close();
		return;
	}
   
	if(dschdclrtyn == "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"));	
    
    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( instance1.selectSingleNode("/root/main/cpexclusionlist/valuinfo") != null ){  
// 			modal("SPMMP02500", getCurrentMonitorNumber(), "55", "60", "SPMMP02500", "/root/main/cpexclusionlist/valuinfo", "/root/hidden");  // 퇴원예고시 평가 팝업잠시 막음
// 		}
		if(ds_main_valuinfo.rowcount > 0) {
			var objArg = new Object();
			objArg.arg_ds_hidden = ds_main_valuinfo;
			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) {
		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", "", "", "", "", "", "M");
			}
		}
	}
}

/****************************************************************************************
 * Function			: fSaveDschDclr
 * Description		: 퇴원예고 등록 및 취소
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSaveDschDclr(dschdclrtyn){   
	if(ds_temp_paminfo.rowcount < 1) {
		sysf_messageBox("환자정보가 없습니다.", "");
		return;
	}
	
	if(fRequireRgst(dschdclrtyn) == false){
		//fInitialize_SPMMO00400(); // 화면을 초기화
		return;
	}
   
	ds_savedata.clearData();
	//var cRow 	  = ds_temp_paminfo.rowposition;
	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");

	if(dschdclrtyn == "Y"){ // 예고등록시
		// 퇴원예고일 이후 처방 여부를 체크한다. 20121213 엄영만  
		if(!fCheckDschAfterPrcpExist()) return;

		// 퇴원예고 등록시 반환요청(E) 처방 여부를 체크한다. 20130803 엄영만  버튼 위치로 이동 처리(2013.08.05)
		//if(!fCheckReturnPrcpExist()) return;

		// 완료되지 않은 의뢰(Consult)를 체크한다. 20130205 엄영만  
		if(!fCheckConsultExist()) return;

		// 제왕절개 안정성 평가 관련 기록 여부를 체크한다. 20120104 엄영만  
		if(!fCheckChildbirthRec()) return;

		// 퇴원예고시 GOS 기록지 작성 여부 체크한다. 20130227 엄영만 심사실 요청
		if(!fCheckDschApoplexyRec()) return;

		// 퇴원예고시 DRG환자의 경우 DRG 질점검표 작성 여부를 체크한다. 2013/05/03
		if(!fCheckDrgRecExist()) return;
	}
	                    
   /*
   **퇴원예고 등록시 중증체크 추가. BY SONJY 2008-08-18 
   **중증등록번호를 가진 환자가 응급실에서 진료 후 퇴원오더 시 암상병이 없으면 ALERT
   **by sonjy 2008-08-18
   */ 
	if( ordtype == "E" && dschdclrtyn == "Y" ) { 
		sysf_messageBox("응급환자를 다른 병원에 전원하는 경우에\n 반드시 응급의료에 관한 법률에 위배되지 않도록\n 1339 정보센터에 연락하시고, 전원의뢰서를 작성해 주시기 바랍니다.", "I");
		
		dsf_createDs("ds_send_req");
		dsf_makeValue(ds_send_req,"pid",	"string",pid);
		dsf_makeValue(ds_send_req,"indd",	"string",indd);
		dsf_makeValue(ds_send_req,"cretno",	"string",cretno);
		dsf_makeValue(ds_send_req,"ordtype","string",ordtype);
		dsf_makeValue(ds_send_req,"instcd",	"string",ds_temp_paminfo.getColumn(0,"instcd"));

		//by sonjy 20100202 진료과 추가 
		//model.makeValue("/root/send/req/orddeptcd", model.getValue(sPAMINFOLIST + "/orddeptcd")); 
		ds_req.setColumn(nRow,"orddeptcd",ds_temp_paminfo.getColumn(0,"orddeptcd")); 
		
		var oParam = {};
			oParam.id      = "TRMMO00121";
			oParam.service = "prcpmngtapp.PrcpMngt";
			oParam.method  = "reqGetPatCncrHistInfo";
			oParam.inds    = "req=ds_send_req";
			oParam.outds   = "ds_savecncrhist=savecncrhist ds_serdiagermsg=serdiagermsg ds_diagrcdchkmsg=diagrcdchkmsg";
			oParam.async   = false;
			oParam.callback = "cf_TRMMO00121";

		tranf_submit(oParam);
	}

	// 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   = cpObj.ds_masterinfo.getColumn(0,"cpgflagcd"); //cpObj.model.getValue("/root/main/masterinfo/info/cpgflagcd");
		var ioflagcd   = cpObj.ds_masterinfo.getColumn(0,"ioflagcd"); //cpObj.model.getValue("/root/main/masterinfo/info/ioflagcd");
		var dschschedd = cpObj.ds_steppath.getColumn(cpObj.ds_steppath.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_getdata.getColumn(0,"cpgappno")); //cpObj.model.getValue("/root/temp1/getdata/cpgappno"));
					frmf_setParameter("SMMMO043_drop"    , "N");
					//modal("SPMMP02300");		//drop팝업
					frmf_modal("SPMMP02300","SPMMP02300","","","","","","","","","","","M");
					if( frmf_getParameter("SMMMO043_drop") == "Y" ){
						cpObj.ds_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";

	tranf_submit(oParam);
	
	//if(submit("TXMMO00401") == true){
	var errMsg = arErrorCode.pop("TXMMO00401").substr(0,6); // 에러코드가 없어 에러 메세지로 구분 . 에러코드를 받아오는방법이 필요
//	if(errCode >= 0){
	if(utlf_isNull(errMsg)) {
	   //2012/07/30 Start
		if(ordtype=="E"){ // 응급실 환자 중 퇴원예고를 할 경우 귀가로 의사결정 되도록 로직 추가 
			dsf_makeValue(ds_savedata,"instcd",		 "string",sysf_getUserInfo("dutplceinstcd"));
			dsf_makeValue(ds_savedata,"orddd",		 "string",indd);
			dsf_makeValue(ds_savedata,"decisionkind","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 = "cf_TXMMO26001";

			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");
		//CP (e)
		this.close();
	}else {  // 2008.08.29 pym
   		opener.frmf_setParameter("SPMMO00400_rtn_useyn", "N");	
   		//CP이면서 exception msg가 "입퇴원요약기록지를 기록해야 합니다." 일 경우, 입퇴원요약기록지 호출 (2008.11.10 JJE) (s)
   		ds_init.setColumn(0,"trmmp00808endyn","N");	//CP아닌 경우, 입퇴원요약기록지 작성 후 다시 exclusion 사유 조회하기 위해, 초기값 설정

		//if( instance1.selectSingleNode("/root/properties/error/code") != null && cpObj != null ){		//CP인 경우, 입퇴원요약기록 자동 로딩
		if(!utlf_isNull(errMsg) && !utlf_isNull(cpObj)) {
			//if( model.getValue("/root/properties/error/code") == "emr.info.11007" && model.getValue("/root/properties/error/msg") == "입퇴원요약지를 기록해야 합니다.....!" ){
			if(errMsg == "입퇴원요약지") {
				var mainObj = frmf_getMainViewer();
				var scrnID  = mainObj.frmf_getScreenID();
// 				if( scrnID == "SMMMR00100" && mainObj.instance1.selectSingleNode("/root/main/mainlist/medireclist[formcd='0000000680']") != null ){
// 					var formrecseq = mainObj.instance1.selectSingleNode("/root/main/mainlist/medireclist[formcd='0000000680']/formrecseq").text;
// 					var formrecdd = mainObj.instance1.selectSingleNode("/root/main/mainlist/medireclist[formcd='0000000680']/formrecdd").text;
// 				}else{
// 					var formrecseq = "";
// 					var formrecdd = model.getValue("/root/main/cond/dclrdd");
// 				}
				if( scrnID == "SMMMR00100" && utlf_isNull(mainObj.ds_medireclist.filter("formcd == '0000000680'")) == false ){  // 진료기록메인 에서 사용하는 데이터셋과 맞춰야함. ds_medireclist(/root/main/mainlist/medireclist)
					var formrecseq = mainObj.ds_medireclist(ds_medireclist.findRow("formcd","0000000680"),"formrecseq");
					var formrecdd  = mainObj.ds_medireclist(ds_medireclist.findRow("formcd","0000000680"),"formrecdd"); 
				}else{
					var formrecseq = "";
					var formrecdd  = ds_cond.getColumn(0,"dclrdd"); 
				}
// 				if(scrnID == "SMMMR00100"){
// 					mainObj.window.javascript.fOpenFormByOther("0000000680", formrecseq, "", formrecdd);
// 				}else{
// 					setGlobalVariable("linked_cpformcd", "0000000680", "emr"); 
// 					setGlobalVariable("linked_cpformrecseq", formrecseq, "emr"); 
// 					setGlobalVariable("linked_cpformrecdd", formrecdd, "emr"); 
// 					mainObj.javascript.navigate("SMMMR00100");
// 				}
				if(scrnID == "SMMMR00100"){
					mainObj.fOpenFormByOther("0000000680", formrecseq, "", formrecdd); // 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 if (model.getValue("/root/properties/error/code") =="emr.info.11007"){    // 입퇴원요약지를 작성하지 않은 경우 바로 입퇴원기록지를 열어줌
		} else if(errMsg == "입퇴원요약지") {
			fInOutBrifEMRScrn() ;                 // 입퇴원기록지는 진료기록메인 화면이 열린 경우만 열어주도록 함   		    
		//} else if (model.getValue("/root/properties/error/code") =="emr.info.11008"){    // 입원 경과기록지를 열어줌
		} else {
			fInProgressEMRScrn() ;
		}
		//(e)
	}
}

/****************************************************************************************
 * Function			: fRequireRgst
 * Description		: 퇴원예고 등록여부를 MessageBox를 띄움
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fRequireRgst(bflag){
//    var dclrdd = model.getValue("/root/main/cond/dclrdd");
//    var dclrtm = model.getValue("/root/main/cond/dclrtm");
	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  = model.getValue(sPAMINFOLIST + "/hngnm");
 	var hngnm  = ds_temp_paminfo.getColumn(0,"hngnm");
	if(bflag == "Y"){
		var 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			: fCheckDschAfterPrcpExist
 * Description		: 퇴원예고일자 이후의 처방 존재 유무 확인(submit)
 * Argument			: 
 *					: 
 * return type		: true, false
 * Creator			: 엄영만 2012. 12. 13
 ****************************************************************************************/
function fCheckDschAfterPrcpExist(){
	var bRtn 			= true;
	var sCheckCode 		= "";
	var sCheckAlertMsg  = "";
	var sCheckErrorMsg  = "";
	var sCheckPrcpExist = "N";  // 퇴원예고일 이후 처방 존재 여부 디폴트 N 없음.
// 	var pid    			= model.getValue(sPAMINFOLIST + "/pid");
// 	var indd   			= model.getValue(sPAMINFOLIST + "/indd");
// 	var cretno 			= model.getValue(sPAMINFOLIST + "/cretno");
// 	var dclrdd 			= model.getValue("/root/main/cond/dclrdd"); // 퇴원 예고일
	//var cRow			= ds_temp_paminfo.rowposition;
	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 dclrdd 			= ds_cond.getColumn(0,"dclrdd"); // 퇴원 예고일
	
// 	model.makeValue("/root/dschafterprcp/reqdata/pid",    pid);
// 	model.makeValue("/root/dschafterprcp/reqdata/indd",   indd);
// 	model.makeValue("/root/dschafterprcp/reqdata/cretno", cretno);
// 	model.makeValue("/root/dschafterprcp/reqdata/dclrdd", dclrdd);
	dsf_createDs("ds_dschafterprcp_reqdata");
	dsf_makeValue(ds_dschafterprcp_reqdata,"pid"	,"string",pid);
	dsf_makeValue(ds_dschafterprcp_reqdata,"indd"	,"string",indd);
	dsf_makeValue(ds_dschafterprcp_reqdata,"cretno"	,"string",cretno);
	dsf_makeValue(ds_dschafterprcp_reqdata,"dclrdd"	,"string",dclrdd);

// 	if(submit("TRMMO00401", false)){
// 	    var nCnt = model.getValue("/root/dschafterprcp/rtndata/cnt");
// 	    
// 	    if(nCnt > 0) {
// 	        if( "6" == messageBox("퇴원예고일자보다 미래인 처방이 존재합니다.\n퇴원예고일자를 변경하시거나 미래 처방을 삭제하신 후 진행하여 주시기 바랍니다.\n\n계속 진행 하시겠습니까?", 'Q999')) {
// 	            bRtn = true;
// 	        } else {
// 	            bRtn = false;
// 	        }
// 	    }
//     }
    
    var oParam = {};
		oParam.id      = "TRMMO00401";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetChkDschAfterPrcpCnt";
		oParam.inds    = "req=ds_dschafterprcp_reqdata";
		oParam.outds   = "ds_rtndata=rtndata";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO00401";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO00401") >= 0){
		var nCnt = ds_rtndata.getColumn(ds_rtndata.rowposition,"cnt");
		if(nCnt > 0) {
			if( "6" == sysf_messageBox("퇴원예고일자보다 미래인 처방이 존재합니다.\n퇴원예고일자를 변경하시거나 미래 처방을 삭제하신 후 진행하여 주시기 바랍니다.\n\n계속 진행 하시겠습니까?", 'Q999')) {
				bRtn = true;
			} else {
				bRtn = false;
			}
		}
    }
    dsf_deleteDs("ds_dschafterprcp_reqdata");
    return bRtn;
} 

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

/****************************************************************************************
 * Function			: fCheckConsultExist
 * Description		: 완료되지 않은 의뢰(Consult) 유무 확인(submit)
 * Argument			: 
 *					: 
 * return type		: true, false
 * Creator			: 엄영만 2013. 02. 05
 ****************************************************************************************/
function fCheckConsultExist(){
	var bRtn = true;
	
	if(lf_ContainsHardCD("419", "Y")) {  // 체크 사용 여부
//     	var pid    = model.getValue(sPAMINFOLIST + "/pid");
//     	var orddd  = model.getValue(sPAMINFOLIST + "/indd");
//     	var cretno = model.getValue(sPAMINFOLIST + "/cretno");
		//var cRow	= ds_temp_paminfo.rowposition;
		var pid		= ds_temp_paminfo.getColumn(0,"pid");
		var orddd	= ds_temp_paminfo.getColumn(0,"indd");
		var cretno	= ds_temp_paminfo.getColumn(0,"cretno");
    	
//     	model.removenode("/root/checkconsult");
//     	model.makeValue("/root/checkconsult/reqdata/pid",    pid);
//     	model.makeValue("/root/checkconsult/reqdata/orddd",  orddd);
//     	model.makeValue("/root/checkconsult/reqdata/cretno", cretno);
		dsf_createDs("ds_checkconsult_reqdata");
		dsf_makeValue(ds_checkconsult_reqdata,"pid"		,"string",pid);
		dsf_makeValue(ds_checkconsult_reqdata,"orddd"	,"string",orddd);
		dsf_makeValue(ds_checkconsult_reqdata,"cretno"	,"string",cretno);
		
//     	if(submit("TRMMO00402", false)){
//     	    var nCnt = model.getValue("/root/checkconsult/rtndata/cnt");
//     	    
//     	    if(nCnt > 0) {
//     	        if( "6" == messageBox("회신되지 않은 의뢰내역이 존재합니다.\n의뢰내역을 삭제 하시거나, 회신완료 후 퇴원예고를 진행하여 주시기 바랍니다.\n\n의뢰내역을 확인 하시겠습니까?", 'Q999')) {
//         	        var ioflag     = model.getValue(sPAMINFOLIST + "/ioflag");
//         			var orddeptcd  = model.getValue(sPAMINFOLIST + "/orddeptcd");
//         			var orddrid    = model.getValue(sPAMINFOLIST + "/medispclid");
//         			
//         			var param  = pid +"▦"+ orddd+ "▦" +cretno+ "▦" + ioflag +"▦"+ orddeptcd +"▦"+ orddrid +"▦"; //pid▦orddd▦cretno▦ioflag▦orddeptcd▦orddrid▦
//         			var screenid = "SPMMO00400";
//         			
//         			var wndobj = getOpenWindow("SMMMR05000");
//         			if(wndobj != null){
//         				setParameter("SMMMR05000_param_pinfo", param);
//         				setParameter("SMMMR05000_screenid", screenid);
//         				wndobj.javascript.fInitalize();
//         				wndobj.window.restore(); //최소화 시킨 창을 최대화 시킴
//                         wndobj.window.activate();
//         			}else{
//         				setParameter("SMMMR05000_param_pinfo", param);
//         				setParameter("SMMMR05000_screenid", screenid);
//         				open("SMMMR05000", 2, 0, 0);
//         			}
//     		    }
//     		    bRtn = false;
//     	    }
//         }
    	
		var oParam = {};
			oParam.id      = "TRMMO00402";
			oParam.service = "prcpmngtapp.EtcPrcpMngt";
			oParam.method  = "reqGetChkDschConsultCnt";
			oParam.inds    = "req=ds_checkconsult_reqdata";
			oParam.outds   = "ds_rtndata=rtndata";
			oParam.async   = false;
			oParam.callback = "cf_TRMMO00402";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TRMMO00402") >= 0){
			var nCnt = ds_rtndata.rowcount;

			if(nCnt > 0) {
				if( "6" == sysf_messageBox("회신되지 않은 의뢰내역이 존재합니다.\n의뢰내역을 삭제 하시거나, 회신완료 후 퇴원예고를 진행하여 주시기 바랍니다.\n\n의뢰내역을 확인 하시겠습니까?", 'Q999')) {
					//var cRow	   = ds_temp_paminfo.rowposition;
					var ioflag     = ds_temp_paminfo.getColumn(0,"ioflag");
					var orddeptcd  = ds_temp_paminfo.getColumn(0,"orddeptcd"); 
					var orddrid    = ds_temp_paminfo.getColumn(0,"medispclid");

					var param  = pid +"▦"+ orddd+ "▦" +cretno+ "▦" + ioflag +"▦"+ orddeptcd +"▦"+ orddrid +"▦"; //pid▦orddd▦cretno▦ioflag▦orddeptcd▦orddrid▦
					var screenid = "SPMMO00400";

					var wndobj = frmf_findPopup("SMMMR05000");
					if(wndobj != null){
						frmf_setParameter("SMMMR05000_param_pinfo", param);
						frmf_setParameter("SMMMR05000_screenid", screenid);
						wndobj.javascript.fInitalize();
						wndobj.window.restore(); //최소화 시킨 창을 최대화 시킴
						wndobj.window.activate();
					}else{
						frmf_setParameter("SMMMR05000_param_pinfo", param);
						frmf_setParameter("SMMMR05000_screenid", screenid);
						frmf_open("SMMMR05000","SMMMR05000","","",2,0,0,"","","","","","M");
					}
				}
				bRtn = false;
			}
		}
		dsf_deleteDs("ds_checkconsult_reqdata");
    }
    return bRtn;
}

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

/****************************************************************************************
 * Function			: fCheckChildbirthRec
 * Description		: 제왕절개분만 적정성평가 위험도 보정요인 서식 기록 유무 확인(submit)
 * Argument			: prcpflag: 처방구분 0: ( 의사처방, CP,  항암프로토콜, 임시), 2:간호, 4:지원부서
 *					: savekindflag: 0:인증저장, 1:임시저장
 *                  : saveNode: 저장노드
 *                  : 심사실 김현주(6127) 요청 2012.01.05일 정규 배포 본원만 적용하고 칠곡은 적용하지 않음.
 * return type		: true, false
 * Creator			: 엄영만 2011. 11. 01
 ****************************************************************************************/	
function fCheckChildbirthRec(){
	var bRtn = true;
	
	// 제왕절개분만 적정성평가 관련 기록 여부를 체크한다. 2012.0103 엄영만  
// 	var sChkChildbirthRecYn = fGetHardCDList("Y", 321, 3); // 321 제왕절개분만 적정성평가 관련 기록 체크여부 처방 제한 사용 여부
// 	var sOrddeptcd = model.getValue(sPAMINFOLIST + "/orddeptcd");
    var sChkChildbirthRecYn = lf_getHardCDList("Y", 321, 3, null); // 321 제왕절개분만 적정성평가 관련 기록 체크여부 처방 제한 사용 여부
	var sOrddeptcd 			= ds_temp_paminfo.getColumn(0,"orddeptcd");
	
	//fGetHardCDList("N", 322, 0 , "/root/hidden/childbirthdeptlist"); // 322 제왕절개분만 적정성평가 관련 기록 체크 주진료과
	lf_getHardCDList("N", 322, null , ds_childbirthdeptlist); // 322 제왕절개분만 적정성평가 관련 기록 체크 주진료과
	
	if (sChkChildbirthRecYn == "Y" 
//		&& !isNull(model.getValue("/root/hidden/childbirthdeptlist/hardcd[hardcd='"+sOrddeptcd+"']/hardcd" )) ) {
//		&& !utlf_isNull(ds_childbirthdeptlist.getColumn(ds_childbirthdeptlist.findRow("hardcd",sOrddeptcd),"hardcd")) {
		&& ds_childbirthdeptlist.findRow("hardcd",sOrddeptcd) > -1) {

		var sCheckCode		= "";
		var sCheckAlertMsg  = "";
		var sCheckErrorMsg  = "";
		var sCheckPrcpExist = "N";  // 제왕절개 관련 처방 존재 여부 디폴트 N 없음.
// 		var pid    			= model.getValue (sPAMINFOLIST + "/pid");
// 		var indd   			= model.getValue (sPAMINFOLIST + "/indd");
// 		var cretno 			= model.getValue (sPAMINFOLIST + "/cretno");
		var pid    			= ds_temp_paminfo.getColumn(0,"pid");
		var indd   			= ds_temp_paminfo.getColumn(0,"indd");
		var cretno 			= ds_temp_paminfo.getColumn(0,"cretno");
		
// 		model.makeValue("/root/childbirthchkrec/reqdata/pid", pid);
// 		model.makeValue("/root/childbirthchkrec/reqdata/indd", indd);
// 		model.makeValue("/root/childbirthchkrec/reqdata/cretno", cretno);
// 		model.makeValue("/root/childbirthchkrec/reqdata/prcpexist", sCheckPrcpExist);
		dsf_createDs("ds_childbirthchkrec_reqdata");
		dsf_makeValue(ds_childbirthchkrec_reqdata,"pid"			,"string",pid);
		dsf_makeValue(ds_childbirthchkrec_reqdata,"indd"		,"string",indd);
		dsf_makeValue(ds_childbirthchkrec_reqdata,"cretno"		,"string",cretno);
		dsf_makeValue(ds_childbirthchkrec_reqdata,"prcpexist"	,"string",sCheckPrcpExist);
	
		//submit("TRMMO00138", false);
		var oParam = {};
			oParam.id      = "TRMMO00138";
			oParam.service = "prcpmngtapp.PrcpMngt";
			oParam.method  = "reqGetChkChildbirthRec";
			oParam.inds    = "req=ds_childbirthchkrec_reqdata";
			oParam.outds   = "ds_rtndata=rtndata";
			oParam.async   = false;
			oParam.callback = "";

		tranf_submit(oParam);

		//var sChkRecList = model.instances(0).selectNodes( "/root/childbirthchkrec/rtndata" );

// 		for ( var i=1; i <= sChkRecList.length; i++ ) {
// 			var sCheckCode = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkcode" );
// 			if(sCheckCode == "ALERT"){
// 				if(sCheckAlertMsg == "")
// 					sCheckAlertMsg = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
// 				else
// 					sCheckAlertMsg = sCheckAlertMsg + "\n" + model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
// 			}
// 			else if (sCheckCode == "ERROR"){
// 				if(sCheckErrorMsg == "")
// 					sCheckErrorMsg = model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
// 				else
// 					sCheckErrorMsg = sCheckErrorMsg + "\n" + model.getValue ( "/root/childbirthchkrec/rtndata[" + i + "]/checkmsg");
// 			}
// 		}
		for ( var i=0; i <= ds_rtndata.rowcount; i++ ) {
			var sCheckCode = ds_rtndata.getColumn(i,"checkcode");
			if(sCheckCode == "ALERT"){
				if(sCheckAlertMsg == "")
					sCheckAlertMsg = ds_rtndata.getColumn(i,"checkmsg"); 
				else
					sCheckAlertMsg = sCheckAlertMsg + "\n" + ds_rtndata.getColumn(i,"checkmsg"); 
			}
			else if (sCheckCode == "ERROR"){
				if(sCheckErrorMsg == "")
					sCheckErrorMsg = ds_rtndata.getColumn(i,"checkmsg"); 
				else
					sCheckErrorMsg = sCheckErrorMsg + "\n" + ds_rtndata.getColumn(i,"checkmsg"); 
			}
		}

		if (sCheckAlertMsg != ""){
			sCheckAlertMsg = "※ 제왕절개 분만 적정성 평가 관련 사항 ※\n\n분만수술 처방이 있는 산부인과 환자에 대해\n\n" 
			                + sCheckAlertMsg + "\n\n" + "해당 기록 작성 되지 않으면 퇴원 예고가 불가능 합니다."
			
			if(sysf_getUserInfo("dutplceinstcd") == "031")
				sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(6127)"
			else if(sysf_getUserInfo("dutplceinstcd") == "032")
				sCheckAlertMsg = sCheckAlertMsg + "\n" + "문의처: 심사실(2180)"
				
			sCheckAlertMsg = sCheckAlertMsg + "\n\n지금 작성"
			var selectedval = sysf_messageBox(sCheckAlertMsg, 'S001');
			
			if(selectedval == "6") { // 지금 작성 하면 서식을 팝업으로 뛰우고 "아니오" 선택 하면 그대로 처방 저장 진행
    			//var formcd = model.getValue("/root/childbirthchkrec/rtndata[1]/checkformcd"); // 첫 행의 서식 팝업
    			var formcd = ds_rtndata.getColumn(0,"checkformcd"); // 첫 행의 서식 팝업
    			
//     			var ioflag     = model.getValue (sPAMINFOLIST + "/ioflag");
//     			var orddeptcd  = model.getValue (sPAMINFOLIST + "/orddeptcd");
//     			var medispclid = model.getValue (sPAMINFOLIST + "/medispclid");
//     			var orddeptnm  = model.getValue (sPAMINFOLIST + "/orddeptnm");
//     			var hngnm      = model.getValue (sPAMINFOLIST + "/hngnm");
//     			var sa         = model.getValue (sPAMINFOLIST + "/sex") +"/"+ model.getValue (sPAMINFOLIST + "/age");
//     			var roomcd     = model.getValue (sPAMINFOLIST + "/roomcd");
//     			var disparam = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";
    			var ioflag     = ds_temp_paminfo.getColumn(0,"ioflag");
    			var orddeptcd  = ds_temp_paminfo.getColumn(0,"orddeptcd");
    			var medispclid = ds_temp_paminfo.getColumn(0,"medispclid");
    			var orddeptnm  = ds_temp_paminfo.getColumn(0,"orddeptnm");
    			var hngnm      = ds_temp_paminfo.getColumn(0,"hngnm");
    			var sa         = ds_temp_paminfo.getColumn(0,"sex") +"/"+ ds_temp_paminfo.getColumn(0,"age");
    			var roomcd     = ds_temp_paminfo.getColumn(0,"roomcd");
    			var disparam = pid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";
    
    			frmf_setParameter("pid",         pid);
    			frmf_setParameter("orddd",       indd);
    			frmf_setParameter("cretno",      cretno);
    			frmf_setParameter("ioflag",      ioflag);
    			frmf_setParameter("orddeptcd",   orddeptcd);
    			frmf_setParameter("orddrid",     medispclid);
    			frmf_setParameter("disppatinfo", disparam);	//등록번호▦환자명▦성별/나이▦진료과▦병실▦
    			frmf_setParameter("openmode",    "newform");	//오픈모드는 “recform”
    			frmf_setParameter("formcd",      formcd);
    
                //modal("SSMMR01100", 1, 0, 0 ,"", "", ""); 	
                frmf_modal("SSMMR01100","SSMMR01100","","",1,0,0,"","","","","","M");
    			bRtn = false;
    		}else if(selectedval == "2") { // 취소 선택
    		    bRtn = false;
    	    }else { // 아니오 선택
    		    bRtn = false;
    		}
		} else {
			bRtn = true;
		}
		dsf_deleteDs("ds_childbirthchkrec_reqdata");
	}
    return bRtn;
}

/****************************************************************************************
 * Function			: fCheckDschApoplexyRec
 * Description		: 급성 뇌졸중 평가관련 GOS 기재 유무 확인(submit)
 * Argument			: 
 *					: 
 * return type		: true, false
 * Creator			: 엄영만 2013. 02. 27 심사실 김순애 파트장님 요청으로 2013년 3월 1일 이후 입원 환자 부터 퇴원 시 적용
 ****************************************************************************************/	
function fCheckDschApoplexyRec(){
    var bRtn = true;
    
//     var sIndd      = model.getValue(sPAMINFOLIST + "/indd");
//     var sOrddeptcd = model.getValue(sPAMINFOLIST + "/orddeptcd");
    var sIndd      = ds_temp_paminfo.getColumn(0,"indd");
    var sOrddeptcd = ds_temp_paminfo.getColumn(0,"orddeptcd");
        
    if (sIndd >= "20130301" && lf_ContainsHardCD("421", sOrddeptcd)) { // 퇴원예고시 뇌졸증 평가 관련 GOS 기록 체크 주진료과(신경외과)

        var sCheckErrorMsg  = "";
//         var sPid    = model.getValue(sPAMINFOLIST + "/pid");
//         var sCretNo = model.getValue(sPAMINFOLIST + "/cretno");
        var sPid    = ds_temp_paminfo.getColumn(0,"pid");
        var sCretNo = ds_temp_paminfo.getColumn(0,"cretno");
    
//         model.makeValue("/root/dschapoplexyrec/reqdata/pid",    sPid);
//         model.makeValue("/root/dschapoplexyrec/reqdata/indd",   sIndd);
//         model.makeValue("/root/dschapoplexyrec/reqdata/cretno", sCretNo);
		dsf_createDs("ds_dschapoplexyrec_reqdata");
		dsf_makeValue(ds_dschapoplexyrec_reqdata,"pid"	 ,"string",sPid);
		dsf_makeValue(ds_dschapoplexyrec_reqdata,"indd"	 ,"string",sIndd);
		dsf_makeValue(ds_dschapoplexyrec_reqdata,"cretno","string",sCretNo);
        
        //submit("TRMMO00403", false);
		var oParam = {};
			oParam.id      = "TRMMO00403";
			oParam.service = "prcpmngtapp.EtcPrcpMngt";
			oParam.method  = "reqGetChkDschApoplexyRec";
			oParam.inds    = "req=ds_dschapoplexyrec_reqdata";
			oParam.outds   = "ds_rtndata=rtndata";
			oParam.async   = false;
			oParam.callback = "";

		tranf_submit(oParam);

        //var sChkRecList = model.instances(0).selectNodes( "/root/dschapoplexyrec/rtndata" );

//         for ( var i=1; i <= sChkRecList.length; i++ ) {
//             sCheckErrorMsg = model.getValue ( "/root/dschapoplexyrec/rtndata[" + i + "]/checkmsg");
//         }
        for ( var i=0; i <= ds_rtndata.rowcount; i++ ) {
            sCheckErrorMsg = ds_rtndata.getColumn(i,"checkmsg");
        }

        if (sCheckErrorMsg != ""){
            sCheckErrorMsg = "※ 급성 뇌졸중 평가 관련 GOS 기재 요청 ※\n\n주 진단코드가 I60-I63인 신경외과 2013년 03월 이후 입원 환자에 대해\n\n" + sCheckErrorMsg + "\n\n" + "해당 기록 작성 후 퇴원예고가 가능 합니다."
            
            if(sysf_getUserInfo("dutplceinstcd") == "031")
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(6131)"
            else if(sysf_getUserInfo("dutplceinstcd") == "032")
                sCheckErrorMsg = sCheckErrorMsg + "\n" + "문의처: 심사실(2180)"
            
            sysf_messageBox(sCheckErrorMsg, 'E000');

            //var formcd = model.getValue("/root/dschapoplexyrec/rtndata[1]/checkformcd"); // 첫 행의 서식 팝업
            var formcd = ds_rtndata.getColumn(0,"checkformcd"); // 첫 행의 서식 팝업
            
// 			var ioflag     = model.getValue (sPAMINFOLIST + "/ioflag");
// 			var medispclid = model.getValue (sPAMINFOLIST + "/medispclid");
// 			var orddeptnm  = model.getValue (sPAMINFOLIST + "/orddeptnm");
// 			var hngnm      = model.getValue (sPAMINFOLIST + "/hngnm");
// 			var sa         = model.getValue (sPAMINFOLIST + "/sex") +"/"+ model.getValue (sPAMINFOLIST + "/age");
// 			var roomcd     = model.getValue (sPAMINFOLIST + "/roomcd");
// 			var disparam = sPid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";
			var ioflag     = ds_temp_paminfo.getColumn(0,"ioflag");
			var medispclid = ds_temp_paminfo.getColumn(0,"medispclid");
			var orddeptnm  = ds_temp_paminfo.getColumn(0,"orddeptnm");
			var hngnm      = ds_temp_paminfo.getColumn(0,"hngnm");
			var sa         = ds_temp_paminfo.getColumn(0,"sex") +"/"+ ds_temp_paminfo.getColumn(0,"age");
			var roomcd     = ds_temp_paminfo.getColumn(0,"roomcd");
			var disparam   = sPid +"▦" + hngnm +"▦" + sa+"▦" + orddeptnm +"▦" + roomcd + "▦";

			frmf_setParameter("pid",         sPid);
			frmf_setParameter("orddd",       sIndd);
			frmf_setParameter("cretno",      sCretNo);
			frmf_setParameter("ioflag",      ioflag);
			frmf_setParameter("orddeptcd",   sOrddeptcd);
			frmf_setParameter("orddrid",     medispclid);
			frmf_setParameter("disppatinfo", disparam);	//등록번호▦환자명▦성별/나이▦진료과▦병실▦
			frmf_setParameter("openmode",    "newform");	//오픈모드는 “recform”
			frmf_setParameter("formcd",      formcd);

            //modal("SSMMR01100", 1, 0, 0 ,"", "", ""); 	
            frmf_modal("SSMMR01100","SSMMR01100","","",1,0,0,"","","","","","M");
			bRtn = false;
        } else {
            bRtn = true;
        }
        dsf_deleteDs("ds_dschapoplexyrec_reqdata");
    }

    return bRtn;
}

/****************************************************************************************
 * Function			: fCheckDrgRecExist
 * Description		: 퇴원예고시 DRG환자의 경우 DRG 질 점검표 작성 여부를 체크
 * Argument			: 
 *					: 
 * return type		: true, false
 * Creator			: 이정택 2013. 05. 03
 ****************************************************************************************/	
function fCheckDrgRecExist(){
	
	//var drgyn = getPatientInfoDetail("drgyn");
//     var sIndd   = model.getValue(sPAMINFOLIST + "/indd");
//     var sPid    = model.getValue(sPAMINFOLIST + "/pid");
//     var sCretNo = model.getValue(sPAMINFOLIST + "/cretno");
	var sIndd   = ds_temp_paminfo.getColumn(0,"indd");
	var sPid    = ds_temp_paminfo.getColumn(0,"pid");
	var sCretNo = ds_temp_paminfo.getColumn(0,"cretno");
    
//     model.makeValue("/root/send/reqdata/pid",    sPid);
//     model.makeValue("/root/send/reqdata/indd",   sIndd);
//     model.makeValue("/root/send/reqdata/cretno", sCretNo);
	dsf_createDs("ds_send_reqdata");
	dsf_makeValue(ds_send_reqdata,"pid"		,"string",sPid);
	dsf_makeValue(ds_send_reqdata,"indd"	,"string",sIndd);
	dsf_makeValue(ds_send_reqdata,"cretno"	,"string",sCretNo);

//     if(submit("TRMMO50002")){
//     	
//     	var existyn = model.getValue("/root/main/chkdrgrecexist/item/existyn");
// 
//     	if(existyn=="Y"){ //작성 유
//     		return true;
//     	}else{ //작성 무
//     		var sCheckAlertMsg = "DRG 환자로 DRG 질 점검표를 작성하지 않으면 \n"; 
//                 sCheckAlertMsg += "퇴원 예고가 불가능 합니다.";
// 
//                 sCheckAlertMsg = sCheckAlertMsg + "\n지금 작성"
//     		var selectedval = messageBox(sCheckAlertMsg, 'S001');
//     		
//     		if(selectedval == "6") {
//     			modal("SMMMR06900", 1, 0, 0 ,"", "", "");
//     		}
//     		return false;
//     	}
//     }
	var oParam = {};
		oParam.id      = "TRMMO50002";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetChkDrgRecExist";
		oParam.inds    = "req=ds_send_reqdata";
		oParam.outds   = "ds_rtndata=item";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO50002";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO50002") >= 0){
		//var existyn = model.getValue("/root/main/chkdrgrecexist/item/existyn");
		var existyn = ds_rtndata.getColumn(0,"existyn");

		if(existyn=="Y"){ //작성 유
			return true;
		}else{ //작성 무
			var sCheckAlertMsg = "DRG 환자로 DRG 질 점검표를 작성하지 않으면 \n"; 
			sCheckAlertMsg += "퇴원 예고가 불가능 합니다.";

			sCheckAlertMsg = sCheckAlertMsg + "\n지금 작성"
			var selectedval = sysf_messageBox(sCheckAlertMsg, 'S001');
			
			if(selectedval == "6") {
				//modal("SMMMR06900", 1, 0, 0 ,"", "", "");
				frmf_modal("SMMMR06900","SMMMR06900","","",1,0,0,"","","","","","M");
			}
			return false;
		}
	}
	dsf_deleteDs("ds_send_reqdata");
}

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

/****************************************************************************************
 * Function			: cf_TRMMO00121
 * Description		: TRMMO00121 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function cf_TRMMO00121(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode > -1) {
		if( ds_savecncrhist.getColumn(0,"cncrhistyn") == "Y" ) {
			if( sysf_messageBox( ds_savecncrhist.getColumn(0,"cncrhistmsg") + " 주상병을 변경하고 특례", "Q009") == 6 ) {
				var ev = new ClickEventInfo;
				frmf_inputEnterKey("btn_close", "onclick", ev );
				return ; //blocking 
			}
			//return ; blocking하진 않음. 
		} else if( ds_serdiagermsg.getColumn(0,"serdiageryn") == "Y" ) { 
			//20080102 마정민 수정: 중증응급 등록한자의 진단명 alert 변경요청번호 533
			sysf_messageBox( ds_serdiagermsg.getColumn(0,"serdiagermsg"), "I" ) ;
			//20080102 서소영 선생님 blocking처리 요청
			return; 
		}  
	 
		if ( ds_diagrcdchkmsg.getColumn(0,"diagrcdchkyn") == "Y" ) {
			//응급실 퇴원 예고 시 주상병이 R코드인 경우 퇴원예고 블러킹 [요청번호 10232]
			sysf_messageBox( ds_diagrcdchkmsg.getColumn(0,"diagrcdchkmsg"), "I" ) ;
			var ev = new ClickEventInfo;
			frmf_inputEnterKey("btn_close", "onclick", ev );
			return ;
		}
	} else {
		return;
	}
}

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

/****************************************************************************************
 * 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.fOpenNewForm("0000000680");
        }
    }
}

/****************************************************************************************
 * 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.fOpenNewForm("0900006893");
        }
    }    
}

/****************************************************************************************
 * Function			: fOpenInReq
 * Description		: 입원의뢰서 화면 open. 
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/	
function fOpenInReq(){
// 	var param = model.getValue("/root/temp/paminfo/list/pid")       + "▦" +
// 				model.getValue("/root/temp/paminfo/list/hngnm")     + "▦" +
// 				model.getValue("/root/temp/paminfo/list/orddeptcd") + "▦" +
// 				model.getValue("/root/temp/paminfo/list/orddrid")   + "▦" +
// 				model.getValue("/root/temp/paminfo/list/insukind")  + "▦" +
// 				model.getValue("/root/temp/paminfo/list/suppkind")  + "▦" +
// 				model.getValue("/root/temp/paminfo/list/indd")      + "▦" +
// 				model.getValue("/root/temp/paminfo/list/cretno")    + "▦" +
// 	            "I";
	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);
	//fPrcpModal("SPMMO00100", 100, 40);
	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")); 	//model.getValue("/root/temp/paminfo/list/orddeptcd")); //진료과코드
  frmf_setParameter("SMPMO00300_PARAM2", ds_temp_paminfo.getColumn(0,"orddrid")); 	//model.getValue("/root/temp/paminfo/list/orddrid"));   //진료의ID
  frmf_setParameter("SMPMO00300_PARAM3", ds_temp_paminfo.getColumn(0,"pid")); 		//model.getValue("/root/temp/paminfo/list/pid"));       //등록번호
  //fPrcpModal("SMPMO00300", 0, 80);
  frmf_modal("SMPMO00300", "SMPMO00300", "", "", "", 0, 80, "", "", "", "", "", "M");
}]]></Script>