YNU_JEUS/app_home/himed/imsi/xpapps/emr/prcpmngtxp/xp/SMMMO04100.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/*
  - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩

    진료대상자리스트 ( SMMMO04100_진료대상자리스트.xfdl - JScript )

  - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩
*/

var arErrorCode = new HashArray();

var interfaceAnswcnt = "";
var ordtabAnswcnt = "";

var curPrcpObj;     // 처방 화면     window object
var curCpObj;       // CP화면        window object
var curCpSrchObj;   // CP검색 화면   window object
var curExamRsltObj; // 검사결과 화면 window object
var curEmrRecObj;   // 진료기록 화면 window object

/**
 * @desc   : 진료대상자 리스트 화면 초기화
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fInitializeDone_SMMO04100(){
	interfaceAnswcnt = lf_mmbfGetUserEnvQuestValue("006");
	ordtabAnswcnt 	 = lf_mmbfGetUserEnvQuestValue("007");
    
/*
    //20091201 HJS 미니진료대상자리스트가 뜰때는 진료대상자를 닫아버린다.
    var curPatListMiniWnd = getOpenWindow("SPMMO04200");
    if ( curPatListMiniWnd != null ) {
        curPatListMiniWnd.javascript.fPatListMiniClose();
    }
*/ 

    var sAbleSelPatlist = fCheckAbleSelPat();  // 환자선택시 진료 가능 부서 여부 체크시 사용  

	sysf_setGlobalVariable("able_sel_patlist", sAbleSelPatlist, "M");
    
    lf_gethardcdArrayList(new Array(
                                    "dentdept|242"
                                    ),
                          new Array(
                                    "ds_init"
                                    )
                          );      
    var ordtab = sysf_getGlobalVariable("ordtab");    
    var tabIndex = 0;

    if(utlf_isNull(ordtab) || ordtab.length < 1 || ordtab.split("^")[1] == "CSV:utf-8"){ //최초 open, 외래를 기본으로
        /*
        var jobposcd = getUserInfo("jobposcd");
        if (jobposcd == "1775" || jobposcd == "1800") {
            btn_in.selected = true;
            btn_in.dispatch("DOMActivate");
        } else {
            btn_out.selected = true;
            btn_out.dispatch("DOMActivate");
        }
        */
        
        var tabinfo = ordtabAnswcnt;
        if (tabinfo == "001") {
			tabIndex = 0;
        } else if (tabinfo == "002") {
			tabIndex = 1;
        } else if (tabinfo == "003") {
			tabIndex = 2;
        } else if (tabinfo == "004") {
			tabIndex = 3;
        } else if (tabinfo == "005") {
			tabIndex = 4;
        } else if (tabinfo == "006") {
			tabIndex = 5;
        } else {
            var jobposcd = sysf_getUserInfo("jobposcd");
            if (jobposcd == "1775" || jobposcd == "1800") {
				tabIndex = 1;
            } else {
				tabIndex = 0;
            }
        }
    }else{ //ordtab이 설정된 경우, close후 다시 열린 경우
		var ordtabarr = ordtab.split("^");
		var caseid   = ordtabarr[0]; //탭정보
		var condlist = ordtabarr[1]; //조회조건
        if (caseid =="") {
            var tabinfo = ordtabAnswcnt;
            if (tabinfo == "001") {
                tabIndex = 0;
            } else if (tabinfo == "002") {
                tabIndex = 1;
            } else if (tabinfo == "003") {
                tabIndex = 2;
            } else if (tabinfo == "004") {            
                tabIndex = 3;
            } else if (tabinfo == "005") {
                tabIndex = 4;
            } else if (tabinfo == "006") {
                tabIndex = 5;
            } else {
                tabIndex = 0;
            }
        } else  if(caseid == "out"){
            tabIndex = 0;
        } else  if(caseid == "in"){
			tabIndex = 1;
        } else  if(caseid == "er"){
			tabIndex = 2;
        } else  if(caseid == "op"){
			tabIndex = 3;
        } else  if(caseid == "srch"){
			tabIndex = 4;
        } else  if(caseid == "cnst"){
			tabIndex = 5;
        }
        
        ds_reopen.setColumn(0, "reopenflag", "Y");         
        ds_reopen_condlist.loadCSV(condlist); //cond설정
    }
    
    changeTab(tabIndex);
}

function changeTab(tabIndex, bRefresh) {
	switch(tabIndex) {
		case 0:
		default : 
			fClkBtnOut();
			break;
		case 1:
			fClkBtnIn();
			break;
		case 2:
			fClkBtnEr();
			break;
		case 3:
			fClkBtnOp();
			break;
		case 4:
			fClkBtnSrch();
			break;
		case 5:
			fClkBtnCnst();
			break;
	}
	
	if(bRefresh) {
		var bResetColumn = bRefresh;
		if(ds_chngcol.getColumn(0, "chngcolflag") == "Y")
			ds_chngcol.setColumn(0, "chngcolflag", "N");
		else
			bResetColumn = false;
		refreshReqData(tabIndex, bRefresh);
	} else {
		Tab00.tabindex = tabIndex;
	}
}

function refreshReqData(nTabIndex, bResetColumn) {
	var childlist = Tab00.components;
	var childcomp = childlist[nTabIndex];
	if(!utlf_isNull(childcomp)) {
		try {
			childcomp.refreshReqInterface(bResetColumn);		
		} catch(e) {
		}
	}
}

/**
 * @desc   : 처방Main 화면 Open, CP환자인 경우 CP Main 화면 Open 또는 CP검색화면 Open (CP업무 추가 2007.09.27)
 * @         
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fOpenPrcpMainWnd(){
    var cpflag	   = ds_root.getColumn(0, 	  "cpflag");
    var pid		   = ds_source.getColumn(0,   "pid");
    var ordrecflag = ds_main_cond.getColumn(0, "ordrecflag");
    
    var mainObj = frmf_getMainViewer();
    var monitorNumber = sysf_getCurrentMonitorNumber();
    var consulyn = ds_source.getColumn(0, "consulyn");

    curEmrRecObj        = frmf_findPopup("SMMRI00400"); //활성화된 진료기록 화면 object loading
    curExamRsltObj      = frmf_findPopup("SMAER00800"); //활성화된 검사결과 화면 object loading
    curNurTprObj        = frmf_findPopup("SMMNR00900"); //활성화된 간호 TPR 화면 object loading
    curNurBSEMRObj      = frmf_findPopup("SMMNR02500"); //활성화된 간호 TPR 화면 object loading
    curGrphObj          = frmf_findPopup("SPMRF05200"); //활성화된 그래프 서식 화면 object loading
    curCunsultObj       = frmf_findPopup("SMMMR05000"); //활성화된 Consult 화면 object loading
    curExamRsltNewObj   = frmf_findPopup("SMMMI00100"); //활성화된 검사결과 화면 object loading   
    var wndobj          = frmf_findPopup("SMMRI00400");
	if(!utlf_isNull(wndobj)){
		frmf_setParameter("SMMRI00400_param_pid"     , pid);
		frmf_setParameter("SMMRI00400_param_chosflag", utlf_isNull(this.objects["ds_paminfo"]) ? "" : ds_paminfo.getColumn(0, "ordtype"));
	
		wndobj.fInitalize(); // 초기화함수 호출
		frmf_setFocusPop("SMMRI00400");
	}    
    
    if(!utlf_isNull(curExamRsltObj)){ //검사결과 화면 refresh;
        curExamRsltObj.ds_singdata.setColumn(0, "srchpid", pid );        
        curExamRsltObj.btn_srch.onclick.fireEvent(btn_srch, new ClickEventInfo());
    } //검사결과 화면 refresh;

    if(!utlf_isNull(curNurTprObj)){      //간호 TPR 화면 refresh   : 2008-11-28 : 김영학 ;  
        curNurTprObj.fInitViewer();
        curNurTprObj.fInitialize("init");
    } //간호 TPR 화면 refresh;    
    
    if(!utlf_isNull(curNurBSEMRObj)){      //혈당간호기록 refresh   : 2008-12-24 : 김영학 ;  
        curNurBSEMRObj.fInitialize("init");
    } //혈당간호기록  refresh;        

    if(!utlf_isNull(curGrphObj)){      //그래프 서식 refresh   : 2009-01-02 : 박민규 SW 요청 : 김영학 ;  
        curGrphObj.fInitialize();
    } //그래프 서식 refresh; 
    
   if(!utlf_isNull(curCunsultObj) && consulyn !="T"){ // Consult refresh   :   2009-02-17 : 이상현 D/L 요청 : 김영학 ; 
        curCunsultObj.fInitalize();
    } // Consult refresh
    
    if(!utlf_isNull(curExamRsltNewObj)){ //검사결과 화면 NEW refresh;    
        curExamRsltNewObj.ds_singdata.setColumn(0, "srchpid", pid );
        curExamRsltNewObj.btn_srch.onclick.fireEvent(btn_srch, new ClickEventInfo());
    } 

    curCpObj     = mainObj.frmf_findPopup("SMMMP00800"); //활성화된 CP Main 화면 object loading     
    curPrcpObj   = mainObj.frmf_findPopup("SMMMO00100"); //활성화된 처방Main 화면 object loading
    curCpSrchObj = mainObj.frmf_findPopup("SPMMP01200"); //활성화된 CP 검색 화면 object loading
    
    var answcnt = interfaceAnswcnt;							      // 환경설정의 질문값을 가져온다.
    frmf_setParameter("SMMMO04100_ANSWCNT", answcnt);

    if(cpflag == "N"){ //처방 Main Open    
        if(!utlf_isNull(curCpObj)){curCpObj.fCloseGPS();}               //활성화된 CP Main화면이 있는 경우 close
        if(!utlf_isNull(curCpSrchObj)){curCpSrchObj.fCpSrchWndClose();} //활성화된 CP검색화면이 있는 경우 close
        
        if(utlf_isNull(curPrcpObj)){ //활성화된 처방화면이 없는 경우, 신규화면을 오픈
            mainObj.frmf_setParameter("SMMMO00100_ordrecflag",    ordrecflag);
            mainObj.frmf_setParameter("SMMMO00100_callvisityn",   frmf_getParameter("SMMMO04100_callvisityn"));// 응급실 콜비짓 여부
            var sysMessageobj = frmf_getViewer("sysMessage");
            if (answcnt == "004"|| answcnt =="") {   // 처방창과 기록창 모두 오픈
                sysMessageobj.frmf_setParameter("SMMMO04100_ANSWCNT", answcnt);
                sysMessageobj.frmf_open("SMMMO00100", "SMMMO00100", null, false, 2, null, null, 1195, 784, null, null, null, "M");
            } else  {   // 기록창만 블라인드
                fChngMainEMRScrn();// 진료기록 Open
                if (ordrecflag =="Y") {
                    frmf_clearParameter("SMMMO04100_ANSWCNT"); 
                }
                sysMessageobj.frmf_open("SMMMO00100", "SMMMO00100", null, false, 2, null, null, 1195, 784, null, null, null, "M");
            } 
            mainObj.frmf_setFocus();
        }else{      
            if(curPrcpObj.fPrcpSavePatList()){}     
            
            curPrcpObj.ds_init.setColumn(0, "bfprcpload" , "N"); //전처방을 초기화한다.
            curPrcpObj.fXReReady(consulyn);
            
            if (consulyn=="T"){
                ordrecflag = "N";
		    }
            if (ordrecflag =="Y") {
                frmf_clearParameter("SMMMO04100_ANSWCNT"); 
            }            
            
            if (consulyn !="T"){
				fChngMainEMRScrn();
            }
            
            if(ds_main_cond.getColumn("recflag") == "Y")
				mainObj.frmf_setFocus();
			else
				curPrcpObj.frmf_setFocus();
        }
        
    } else if(cpflag =="Y"){ //CP Main Open  
        
        if(!utlf_isNull(curPrcpObj)){curPrcpObj.fPrcpWndClose();}       //활성화된 처방Main화면이 있는 경우 close
        if(!utlf_isNull(curCpSrchObj)){curCpSrchObj.fCpSrchWndClose();} //활성화된 CP검색화면이 있는 경우 close
        
        if(utlf_isNull(curCpObj)){ //활성화된 CP화면이 없는 경우, 신규화면을 오픈
            mainObj.frmf_setParameter("SMMMO00100_ordrecflag", ordrecflag);
            var sysMessageobj = frmf_getViewer("sysMessage");
            mainObj.frmf_open("SMMMP00800", "SMMMP00800", null, false, 2, 0, 0, 1228, 942, null, null, null, "M");
        } else{
            curCpObj.fReconstruct();
        }

    }else if(cpflag =="X"){ //CP 검색 Open
        if(!utlf_isNull(curCpObj)){curCpObj.fCloseGPS();}         //활성화된 CP Main화면이 있는 경우 close
        if(!utlf_isNull(curPrcpObj)){curPrcpObj.fPrcpWndClose();} //활성화된 처방Main화면이 있는 경우 close
        
        if(utlf_isNull(curCpSrchObj)){
            mainObj.frmf_open("SPMMP01200", "SPMMP01200", null, false, monitorNumber, null, null, 1195, 775, null, null, null, "M");
        }
    }
    
    if (consulyn !="T"){ //kskim 중증체류시간 화면(SPMMO21300) 닫기
        fCloseSPMMO21300Wnd();
    }
}

/**
 * @desc   : 처방에서 저장 후, 현 진료대상자 화면 재조회 처리(iviewer dispatch)
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPrcpCallPatList(){
	refreshReqData(Tab00.tabindex, true);
}

/**
 * @desc   : 외래 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnOut(){
	ds_main_cond.setColumn(0, "scrnid", "SMMMO04200");    
    ds_main_cond.setColumn(0, "grdid", "grd_outpatlist");
    ds_main_cond.setColumn(0, "caseid", "out");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));
}

/**
 * @desc   : 입원 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnIn(){
	ds_main_cond.setColumn(0, "scrnid", "SMMMO04300");
    ds_main_cond.setColumn(0, "grdid", "grd_inpatlist");
    ds_main_cond.setColumn(0, "caseid", "in");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));
}

/**
 * @desc   : 응급 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnEr(){
    ds_main_cond.setColumn(0, "scrnid", "SMMMO04400");
    ds_main_cond.setColumn(0, "grdid", "grd_erpatlist");
    ds_main_cond.setColumn(0, "caseid", "er");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));            
}

/**
 * @desc   : 수술 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnOp(){
    ds_main_cond.setColumn(0, "scrnid", "SMMMO04500");
    ds_main_cond.setColumn(0, "grdid", "grd_oppatlist");
    ds_main_cond.setColumn(0, "caseid", "op");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));
}

/**
 * @desc   : 환자검색 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnSrch(){
    ds_main_cond.setColumn(0, "scrnid", "SMMMO04700");
    ds_main_cond.setColumn(0, "grdid", "grd_srchpatlist");
    ds_main_cond.setColumn(0, "caseid", "srch");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));
}

/**
 * @desc   : 의뢰 tab button 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnCnst(){
    ds_main_cond.setColumn(0, "scrnid", "SMMMO04800");
    ds_main_cond.setColumn(0, "grdid", "grd_cnstpatlist");
    ds_main_cond.setColumn(0, "caseid", "cnst");
    
    //진료기록 창에 현재 진료대상자의 Tab id를 넘겨준다. 안치원 대리님 요청사항
    frmf_setParameter("SMMMO04100_medirec_caseid", ds_main_cond.getColumn(0, "caseid"));
}

/**
 * @desc   : ordtab정보 설정
 *         : 진료대상자 close후, 다시 열리는 경우 최종 정보로 setting할 수 있게 한다.
 *          
 *         : ordtab구성
 *         : 1. 진료대상자 tab id
 *         : 2. 진료대상자 tab 조회 cond instance
 *         : 3. 진료대상자 column설정 정보
 *         : 4. OCS check 여부
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fSetOrdTabInfo(){	
    var caseid = ds_main_cond.getColumn(0, "caseid");
    var condlist = eval("ds_cond_" + caseid + "patlist.saveCSV()");
    var ordtab = caseid + "^" + condlist;
    sysf_setGlobalVariable("ordtab", ordtab);
}

/**
 * @desc   : 화면ID의 grid의 column 순서 조회
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function reqOrderInfoOfCol(oInDataSet:Dataset, oOutDataSet:Dataset, scrnid, grid:Grid, compscd){
	oInDataSet.clearData();
	oInDataSet.addRow();
	
	oInDataSet.setColumn(0, "scrnid", scrnid);
    
    if (!utlf_isNull(compscd)) {
		oInDataSet.setColumn(0, "compscd", compscd);
    }

    var oParam = {};
		oParam.id      = "TRMMB01103";
		oParam.service = "prcpbaseapp.EnvInfoMngt";
		oParam.method  = "reqGetUserScrnEnvEstb";
		oParam.inds    = "req=" + oInDataSet.name;
		oParam.outds   = oOutDataSet.name + "=gridseq";
		oParam.async   = false;

	tranf_submit(oParam);
	
	setOrderInfoOfCol(grid, oOutDataSet); //외래환자리스트 컬럼 설정
}

/**
 * @desc   : 컬럼 순서 정보 설정
 * @
 * @param  : grid ID  : 그리드ID
 *         : refdata  : 그리드 ref데이터  구분자 '^'
 *         : sizedata : 그리드 size데이터 구분자 '^'
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */ 
var gridProperty = ["displaytype", "edittype", "tooltiptext", "tooltiptype", "mask", "expr",
					"text", "combocodecol", "combodatacol", "combodataset", "align", "background", "background2"];
									
function setOrderInfoOfCol(grid:Grid, oDataSet:Dataset){
	if(oDataSet.rowcount <= 0)
		return;

	var refdata   = oDataSet.getColumn(0, "compsrefcnts");
	var sizedata  = oDataSet.getColumn(0, "compssizecnts");
	var frozencol = oDataSet.getColumn(0, "frozencol");
	
	if(utlf_isNull(refdata) || utlf_isNull(sizedata)) return;

    var refarr  = refdata.split("^");
    var sizearr = sizedata.split("^");
	var nFrozenCols = grid.getBindCellIndex("body", frozencol);
	
	var oGridDataSet = eval(grid.binddataset);

	grid.enableevent = false;
	grid.enableredraw = false;

	//try {
		if(!utlf_isNull(nFrozenCols)) {
			for(var i = oGridDataSet.colcount - 1; i >= 0; i--) {
				if(i <= nFrozenCols)
					grid.setFormatColProperty(i, "band", "body");
			}
		}

		for(var i = 0; i < refarr.length; i++) {
			var nCol = i;
			
			var colText = refarr[i];
			var col = grid.getBindCellIndex("body", colText);
			if(col == -1) continue;
			
			if(i != col) {
				var headText = grid.getCellProperty("head", col, "text");
				var bodyText = new Array();
									
				for(var j = 0; j < gridProperty.length; j++) {
					var cellval = grid.getCellProperty("body", col, gridProperty[j]);
						bodyText[j] = cellval;
				}

				grid.deleteContentsCol(col);
				
				nCol = grid.insertContentsCol(i);
				grid.setCellProperty("head", nCol, "text", headText);

				for(var j = 0; j < gridProperty.length; j++) {
					if(!utlf_isNull(bodyText[j])) {
						grid.setCellProperty("body", nCol, gridProperty[j], bodyText[j]);
					}
				}
			}
			
			grid.setFormatColProperty(nCol, "size", sizearr[i]);
			grid.setFormatColProperty(nCol, "band", "body");
		}

		if(!utlf_isNull(nFrozenCols)) {
			for(var i = 0; i < oGridDataSet.colcount; i++) {
				if(i <= nFrozenCols)
					grid.setFormatColProperty(i, "band", "left");
				else
					break;
			}
		}
	//} finally {
		grid.enableevent = true;
		grid.enableredraw = true;
	//}
}

/**
 * @desc   : 컬럼설정 버튼 클릭
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fClkBtnSetCol(){	
    var scrnid = ds_main_cond.getColumn(0, "scrnid");
    var grdid  = ds_main_cond.getColumn(0, "grdid");
    var caseid = ds_main_cond.getColumn(0, "caseid");

    frmf_setParameter("SMMMO04100_param_scrnid", scrnid);
    frmf_setParameter("SMMMO04100_param_grdid" , grdid);
    frmf_setParameter("SMMMO04100_param_caseid", caseid);
    frmf_modal("SPMMB01100", "SPMMB01100", null, null, null, null, null, null, null, null, null, null, "M");
    
    var useyn = frmf_getParameter("SPMMB01100_rtn_useyn");
    if(useyn == "Y") {
		ds_chngcol.setColumn(0, "chngcolflag", "Y");
		frmf_clearParameter("SPMMB01100_rtn_useyn");
		// 컬럼 정보 조회하여 다시 환자조회 필요        
    	refreshReqData(Tab00.tabindex, true);
    }
}

/**
 * @desc   : 처방화면, CP화면에 modal로 뜬 화면이 있는지 여부를 검사한다.
 * @
 * @param  :
 * @return : 
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fChkScrnDisable(){	
    var cpflag = parent.parent.SMMMO04100_getDSRoot("cpflag"); //cpflag여부
    var wndobj = null;
    
    if(cpflag == "N"){
        wndobj = frmf_findPopup("SMMMO00100");
    }else if(cpflag == "Y"){
        wndobj = frmf_findPopup("SMMMP00800");
    }
  
    if(!utlf_isNull(wndobj)){
        var varstatus = wndobj.frmf_getScreenDisabled();
    
        if(!varstatus){
            return false;
        }
    }
    
    return true;
}

/**
 * @desc   : 환자 수술여부 및 수술처방 확인
 * @
 * @param  :
 * @return : 
 * @author : 오지훈 
 * @---------------------------------------------------
 */
function fChkPatOpPrcp(pid, stnddd, cretno){
	dsf_createDsRow("ds_TRMMO04109", [{col:"pid",    type:"string", size:256, val:pid}
	                                 ,{col:"stnddd", type:"string", size:256, val:stnddd}
	                                 ,{col:"cretno", type:"string", size:256, val:cretno}]);
	
    var oParam = {};
		oParam.id      = "TRMMO04109";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetPatOpPrcpInfo";
		oParam.inds    = "req=" + "ds_TRMMO04109";
		oParam.outds   = "ds_opprcpinfo" + "=opprcpinfo";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO04109";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO04109") >= 0){
        var opprcpflag = ds_opprcpinfo.getColumn(0, "opprcpflag");
        if(opprcpflag == "N"){
            return false;
        }
    }
    return true;
}

function cf_TRMMO04109(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

/**
 * @desc   : CP환자 적용상태값 변경
 * @
 * @param  :
 * @return : 
 * @author : 오지훈 
 * @---------------------------------------------------
 */
function fUpdtCPPatAppStatVal(appstat){
    var cpgappno = ds_rsltgetdata.getColumn(0, "cpgappno");
    
    var sDsName = dsf_createDsRow("ds_req_TXMMO04301", [{col:"cpgappno", type:"int", size:256, val:cpgappno}
	                                                   ,{col:"appstat",  type:"string", size:256, val:appstat}]);
            
    var oParam = {};
		oParam.id      = "TXMMO04301";
		oParam.service = "prcpmngtapp.CPPrcpMngt";
		oParam.method  = "reqSetCPPatStatVal";
		oParam.inds    = "req=" + sDsName;
		oParam.async   = false;
		oParam.callback = "cf_TXMMO04301";

	tranf_submit(oParam);
	
	dsf_deleteDs(sDsName);
	
	if(arErrorCode.pop("TXMMO04301") < 0)
		return false;
}

function cf_TXMMO04301(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

function fChngEMRScrn(){
    //model.addLog("EMR OPEN START"); 
    
    var mainobj = frmf_getMainViewer();
	var mainscrnid  = mainobj.frmf_getScreenID(); //메인화면의 기록지 ID
    	
	curFormLoaderObj  = frmf_findPopup("SSMMR01100"); //활성화된 서식로더창 체크
    if(!utlf_isNull(curFormLoaderObj)){      //서식로더 Close   : 2009-06-03 : 이상현 D/L 요청 : 김영학 ;  
        curFormLoaderObj.fClose();
    } //서식로더 close()
        	
	var cpflag = ds_root.getColumn(0, "cpflag");
	
    var ordrecflag = ds_main_cond.getColumn(0, "ordrecflag"); //OCS 체크여부
    //var chngflag   = ds_main_cond.getColumn(0, "chngflag"); //OCS 체크여부

	var dutplcecd   = sysf_getUserInfo("dutplcecd");       //사용자부서
	var operation   = sysf_getGlobalVariable("operation"); //수술정보
	var wndid       = "SMMMR00100";                   //진료기록화면이 default   

    if(dutplcecd == "2090000000" || dutplcecd == "2090300000"){ //사용자부서가 마취통증의학과, 통증클리닉인 경우
        if(operation.length > 0){ //수술환자리스트에서 환자 선택된 경우, 메인화면은 '마취환자기록' loading
            wndid = "SMMMR03700";
        }
    }else{
        if(ordrecflag == "Y"){
            wndid = "SMMMB08100";
        }
    }
	//var chngflag =  ds_main_cond.setColumn(0, "chngflag", "N"); //OCS 체크여부

/*
    //20091130 HJS - 수진키 다를 경우 블러킹
    var pamStr = chkEmrListPaminfo();
    var pamKey = pamStr.split("|");
    setParameter("SMMMR00100_PATINFO_PID", pamKey[0]);
    setParameter("SMMMR00100_PATINFO_ORDDD", pamKey[1]);
    setParameter("SMMMR00100_PATINFO_CRETNO", pamKey[2]);
*/
    if(mainscrnid == wndid){
        if(wndid == "SMMMR03700"){
            mainobj.fFormInit();
        }else{
            mainobj.fRecMainReady();
        }
    }else{
        mainobj.frmf_openForm(wndid); //진료기록
    }   	
    
    //kskim
    //중증체류시간 화면(SPMMO21300) 닫기
    fCloseSPMMO21300Wnd();
}

function fChngMainEMRScrn() {
	var mainobj = frmf_getMainViewer();
	var mainscrnid  = mainobj.frmf_getScreenID(); //메인화면의 기록지 ID
	var cpflag  = ds_root.getColumn(0, "cpflag");
	var consulyn = ds_source.getColumn(0, "consulyn");
	var curFormLoaderObj  = frmf_findPopup("SSMMR01100"); //활성화된 서식로더창 체크
	if(!utlf_isNull(curFormLoaderObj)){      //서식로더 Close   : 2009-06-03 : 이상현 D/L 요청 : 김영학 ;  
		//knuh 20120104  최원돈 OCS 진료대상자 OCS 조회 시 환자메모를 자동으로 사라지게 설정 SMMMO04100.js, SPMMR05600.js, MMR00100.js
		var curMemoObj = frmf_findPopup("SPMMR05600");
		if(!utlf_isNull(curMemoObj)){curMemoObj.close();}   //환자메모 화면 close

		curFormLoaderObj.fClose();
	} //서식로더 close()
	
	if (cpflag =="Y"){
	    var curPrcpObj= frmf_findPopup("SMMMP00800");
	} else {
	    var curPrcpObj= frmf_findPopup("SMMMO00100");	
	}

	var ordrecflag = ds_main_cond.getColumn(0, "ordrecflag"); //OCS 체크여부
	
	if (consulyn=="T"){
		ordrecflag = "N"
	}//LYJ
	
	var chngflag   = lf_getDsValue(ds_main_cond, 0, "chngflag"); //OCS 체크여부
	if(!utlf_isNull(mainobj)){
    	var dutplcecd   = sysf_getUserInfo("dutplcecd");       //사용자부서
    	var operation   = sysf_getGlobalVariable("operation"); //수술정보
    	var wndid       = "SMMMR00100";                   //진료기록화면이 default

		if(dutplcecd == "2090000000" || dutplcecd == "2090300000"){ //사용자부서가 마취통증의학과, 통증클리닉인 경우
			
			if(operation.length > 0){ //수술환자리스트에서 환자 선택된 경우, 메인화면은 '마취환자기록' loading
				if ("O" != ds_main_cond.getColumn(0, "recinfo")) {
					wndid = "SMMMR03700";
				}
			}else{
				if(ordrecflag == "Y"){
					wndid = "SMMMB08100";
				}
			}
		}else{
			if(ordrecflag == "Y"){
				wndid = "SMMMB08100";
			}  
		}
		if (!utlf_isNull(curPrcpObj)) {
			curPrcpObj.ds_init.setColumn(0, "bfprcpload" , "Y"); //전처방화면 최초 생성 여부
			curPrcpObj.ds_init.setColumn(0, "fstopenflag", "N"); //처방화면이 최초 생성 여부
		}

		ds_main_cond.setColumn(0, "chngflag", "N"); //OCS 체크여부

		if(mainscrnid == wndid){
			if(wndid == "SMMMR03700"){
				mainobj.fFormInit();
			}else{
				mainobj.fRecMainReady();
			}
		}else{
			mainobj.frmf_openForm(wndid);
		}
	}else{ //전처방화면이 최초 생성된 경우, bfprcpload를 Y로 변경, 추후 tab변경시 메인화면 변경이 되지 않게함
		if (!utlf_isNull(curPrcpObj)) {
			curPrcpObj.ds_init.setColumn(0, "bfprcpload", "Y"); //전처방화면 최초 생성 여부
		}
	}
  		
	//자가보유처방 조회 (최초 처방창을 열때만 호출한다.) 20100210 by LYJ
	var mainObj      = frmf_getMainViewer();
	var curPrcpObj   = mainObj.frmf_findPopup("SMMMO00100");
	
	if(frmf_checkOpener() && !utlf_isNull(opener.objects["ds_hidden_selfhld"]) && opener.ds_hidden_selfhld.getColumn(0, "selfopenyn") != "Y") {
		if (!utlf_isNull(curPrcpObj)){
			curPrcpObj.fSelfHldPrcpModal();
		}
	}
		
	//kimsj 처방시 미비기록 유무 확인(message) -- SMMMO00100.js, SMMMO02100.js에서 submit 실행
	if (!utlf_isNull(curPrcpObj)){
		curPrcpObj.fValidRecInfoMsg();
	}
}

/**
 * @desc   : 진료대상자 출력
 * @
 * @param  :
 * @return :
 * @author : 김영학
 * @---------------------------------------------------
 */
function fPrtPatList() {
	Tab00.components[Tab00.tabindex].fPrtPatList();
}

/**
 * @desc : 중증체류시간 화면(SPMMO21300) 닫기
 *@author: 김광성(kskim)
*/
function fCloseSPMMO21300Wnd(){
	var wndobj21300 = frmf_findPopup("SPMMO21300");	
	var viewerSrc = Tab00.tabindex;//iviewer1.attribute("src");
	
	if( Tab00.tabindex != 2 ){	// "SMMMO04400_응급환자리스트"
		//alert("SMMMO04400");
		if( !utlf_isNull(wndobj21300) ){
			wndobj21300.fCloseWnd();
		}
	}
}

/**
 * @desc   : 진료대상자리스트에서 더블클릭시 각 탭에서 블러킹 및 체크 용도로  사용.
             로직은 추가하되 submission은 각 대상자 화면에 추가해야함.
 *           tabkind >>> O:외래, I:입원, E:응급, OP:수술, SRCH:환자검색
 * @author : 한재상(maxizm)
*/
function fChkBfPrcpLoad(tabkind) {   
    var sChkAfterPrcpYn = lf_getHardCDList("Y", 221, 3); // 221 후인증 체크 사용여부
    if(sChkAfterPrcpYn == "Y") {
        // 1. 진료대상자에서 후인증관련 블러킹 처리. (전체탭에 대해서)
        ds_req_aftcert.clearData();
        ds_req_aftcert.addRow();
        
        ds_req_aftcert.setColumn(0, "pid", "");
        ds_req_aftcert.setColumn(0, "orddd", "");
        ds_req_aftcert.setColumn(0, "cretno", "");
        ds_req_aftcert.setColumn(0, "userdeptcd", sysf_getUserInfo("dutplcecd"));		// 사용자 소속과
        ds_req_aftcert.setColumn(0, "userkind", "D");									// 의사 : "D", 그외 : "E"
        ds_req_aftcert.setColumn(0, "execkind", "patlist");								// 의사 : "D", 그외 : "E"
        ds_req_aftcert.setColumn(0, "orddrid", sysf_getUserInfo("userid"));
        
        var oParam = {};
			oParam.id      = "TRMMO02705";
			oParam.service = "prcpmngtapp.PrcpMngt";
			oParam.method  = "reqGetPatAftPrcpChk";
			oParam.inds    = "req=" + "ds_req_aftcert";
			oParam.outds   = "ds_aftcert" + "=aftcert";
			oParam.async   = false;

		tranf_submit(oParam);
    
        if ( ds_aftcert.rowcount > 0 ) {
            sysf_messageBox("후인증 미비 내역이 존재합니다. 인증 후 진행하시기 바랍니다.", "C");
            frmf_modal("SMMMO02700", "SMMMO02700", null, null, null, null, null, null, null, null, null, null, "M");
            return false;
        }
    }
    return true;
}

/**
 * @desc   : 진료대상자리스트에서 더블클릭시 환자의 정보 조회 및 체크
 * @         미수금 체크(patuncoinfo), 민원환자체크(complaininfo) 
 * @param  : pid:환자번호
 * @return : True:계속진행, False:진행 중단 
 * @author : 엄영만
 * @---------------------------------------------------
 */
function fCheckSelectPatInfo(ioflag, pid){
	if (utlf_isNull(pid)) { return false; }
	
	ds_reqdata3.clearData();
	ds_reqdata3.addRow();
	
	ds_reqdata3.setColumn(0, "pid", pid);
	ds_reqdata3.setColumn(0, "ioflag", ioflag);
	
	var oParam = {};
		oParam.id      = "TRMMO04114";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetSelectPatInfo";
		oParam.inds    = "req=" + "ds_reqdata3";
		oParam.outds   = "ds_patuncoinfo=patuncoinfo" + " ds_complaininfo=complaininfo";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO04114";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO04114") < 0)
		return true;
    
	// 미수금 안내 메세지창 팝업
	if( !utlf_isNull(ds_patuncoinfo) && ds_patuncoinfo.rowcount > 0 ){
		var nPatUncoAmt = ds_patuncoinfo.getColumn(0, "outuncoamt");
		if (parseInt(nPatUncoAmt) > 0 ) {
			sysf_messageBox("미수금("+ nPatUncoAmt +"원)이 있으니 수납 후 진료토록 안내바랍니다.\n\n문의사항:원무과", "I");
		}
	}
	
	// 민원환자 안내 메세지창 팝업
	//2012/11/29 Start
	if(ioflag=="O" && pid !=""){ //외래일 경우만 처리
		var chk = ds_complaininfo.getColumn(0, "chk");
		if(chk=="Y"){
			frmf_setParameter("SPMMO50200_pid", pid);
			frmf_setParameter("SPMMO50200_ioflag", ioflag);
			frmf_modal("SPMMO50200", "SPMMO50200", null, null, null, null, null, null, null, null, null, null, "M");
			frmf_clearParameter("SPMMO50200_pid");
			frmf_clearParameter("SPMMO50200_ioflag");
		}
	}
	//2012/11/29 End
	/*
	var nodeComplain = instance1.selectNodes("/root/hidden/selectpatinfo/complaininfo"); 
	if( nodeComplain != null && nodeComplain.length > 0 ){
		var sPatName        = model.getValue("/root/hidden/selectpatinfo/complaininfo/hngnm");
		var sOrdDate        = model.getValue("/root/hidden/selectpatinfo/complaininfo/orddate");
		var sIoFlagNm       = model.getValue("/root/hidden/selectpatinfo/complaininfo/ioflagnm");
		var sOfidocAcptDate = model.getValue("/root/hidden/selectpatinfo/complaininfo/ofidocacptdate");
		
		var sMsg = sPatName + "님은 "+ sIoFlagNm + "(" + sOrdDate + ") 진료받은 환자로 " + sOfidocAcptDate + " 건강보험심사평가원에\n진료비가 적정한지 여부를 요청한 민원제기 된 환자이오니 참조하여 주시기 바랍니다."
		if(getUserInfo("dutplceinstcd") == "031") {
			sMsg = sMsg + "\n\n문의사항:심사팀(6135)"
		} else {
			sMsg = sMsg + "\n\n문의사항:심사팀(2188)"
		}
		messageBox(sMsg , "I");
	}
	*/
	
	return true;
//	modal ("SMPAM00100");
}

function cf_TRMMO04114(sSvcId, nErrorCode, sErrorMsg) {	
 	arErrorCode.push(sSvcId, nErrorCode);
}

/**
 * @desc   : 진료대상자리스트에서 환자 선택 가능여부  조회
 * @         로그인 부서를 체크하여 진료가능한 부서 인지 체크 2012.09.03
 * @param  : pid:환자번호
 * @return : True:계속진행, False:진행 중단 
 * @author : 엄영만
 * @---------------------------------------------------
 */
function fCheckAbleSelPat() {
    var sRtn = "Y";
	
    var sUserOrdDeptYn  = "Y";//lf_getHardCDList("Y", 335, 3); // 진료부서 체크 사용 여부
    if(sUserOrdDeptYn == "Y" ) {                       // 환자선택시 진료 가능 부서 여부 체크 추가 2012.09.03 엄영만
        lf_mmbfGetDeptCodeComboList(ds_checkselpatorddept, "O"); 	// 진료부서 체크 외래 부서 기준으로 체크
        lf_getHardCDList("N", 336, 0 , ds_checkselpatexpdept); 		// 336 진료부서 체크 제외 부서
	    
	    var sUserDeptCD = sysf_getUserInfo("dutplcecd"); // 로그인 부서
	    var	ordDeptNode = ds_checkselpatorddept.findRow("deptcd", sUserDeptCD);  // 진료가능부서
	    var	expDeptNode = ds_checkselpatexpdept.findRow("hardcd", sUserDeptCD);  // 진료가능부서 체크 제외 부서
	    if(	ordDeptNode == -1 && expDeptNode == -1) {
    	    sRtn = "N";
    	}
    	ds_checkselpatorddept.clear();
	    ds_checkselpatexpdept.clear();
	}
	
	return sRtn;
}]]></Script>