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

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

    CONSULT ( SMMMO04800_CONSULT.xfdl - JScript )

  - ▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩▩

*/

var arErrorCode = new HashArray();

/**
 * @desc   : 화면 초기화
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fInitialize_SMMMO04800(){
	var currentDate = utlf_getCurrentDate();
	
    ds_cond.setColumn(0, "fromdd" ,((currentDate.toDate()).getAddDate(-3)).getDateFormat()); //시작일자는 3일 전      
    ds_cond.setColumn(0, "todd"   , currentDate); // 종료일자
    
    lf_gethardcdArrayList(new Array(
									"hardcd|445"
								   ),
						  new Array(
								    "ds_hardcd"
								   )
						  );
    
    var dutplcecd = sysf_getUserInfo("dutplcecd");
	var orddrid   = sysf_getUserInfo("userid");
	
	var reopenflag = parent.parent.ds_reopen.getColumn(0, "reopenflag"); //진료대상자 리스트 open여부
	if(reopenflag == "Y") { //다시 열린 경우, main에 ordtab의 condlist(화면이 닫힐때 설정된 정보)를 그대로 재설정
		try {
			ds_cond.copyData(parent.parent.ds_reopen_condlist);
			dutplcecd = ds_cond.getColumn(0, "orddeptcd");
			orddrid   = ds_cond.getColumn(0, "orddrid");
		} catch(E) {
		}		
		parent.parent.ds_reopen.setColumn(0, "reopenflag", "N");
	}
	
	setDeptCodeList(dutplcecd);
	setUserList(dutplcecd, orddrid);
            
    reqOrderInfoOfCol(ds_reqdata1, ds_gridseq, "SMMMO04800", grd_cnstpatlist); //외래환자리스트 컬럼 조회 및 설정
    
    fReqCnstPatList(ds_cond.getColumn(0, "queryflag"));
}

function setDeptCodeList(sDeptcd, sOrddd){
	lf_mmbfGetDeptCodeComboList(ds_orddept, "A", sOrddd);
	
	if(!utlf_isNull(sDeptcd))
		Div00.cmb_orddept.value = sDeptcd;
}

function setUserList(sOrddeptcd, sUserid, sOrddd){
	lf_mmbfGetUserComboList(ds_userlist, sOrddeptcd, "0330", "", "", sOrddd);
	
	frmf_addComboItem("Div00.cmb_orddrid");	//의사콤보 전체항목 추가
		
	if(!utlf_isNull(sUserid)) {
		Div00.cmb_orddrid.value = sUserid;
	}
}

/**
 * @desc   : 의뢰(CONSULT)환자 조회
 * @
 * @param  : queryflag - 쿼리구분
 *                       orgin  조회버튼 클릭
 *                       recv   과별받은 건
 *                       req    과별보낸 건
 *                       pid    환자별 보낸 건
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fReqCnstPatList(queryflag){
	ds_cond.setColumn(0, "queryflag", queryflag);
	
	parent.parent.ds_cond_cnstpatlist.copyData(ds_cond);
    ds_reqCnstPat.copyData(ds_cond);
    
    var compsrefcnts  = ds_gridseq.getColumn(0, "compsrefcnts");
    var compssizecnts = ds_gridseq.getColumn(0, "compssizecnts");
    
    if(utlf_isNull(compsrefcnts)) compsrefcnts = "";
    if(utlf_isNull(compssizecnts)) compssizecnts = "";
    
    ds_reqCnstPat.addColumn("compsrefcnts", "string", 1024);
    ds_reqCnstPat.addColumn("compssizecnts", "string", 1024);
    
    ds_reqCnstPat.setColumn(0, "compsrefcnts", compsrefcnts);
    ds_reqCnstPat.setColumn(0, "compssizecnts", compssizecnts);
    
    var oParam = {};
		oParam.id      = "TRMMO04801";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetCnstPatList";
		oParam.inds    = "req=" + "ds_reqCnstPat";
		oParam.outds   = "ds_grd_cnstpatlist=cnstpatlist" + " ds_cnsttotcnt=cnsttotcnt";
		oParam.async   = true;
		oParam.callback = "cf_TRMMO04801";

	tranf_submit(oParam);
}

function cf_TRMMO04801(sSvcId, nErrorCode, sErrorMsg) {
	var orderby = ds_cond.getColumn(0, "orderby");
    var sortcol = ds_cond.getColumn(0, "sortcol");
    if(sortcol != "" && orderby != "")
        ds_grd_cnstpatlist.keystring.current  = "S:" + orderby + sortcol;
}

/**
 * @desc   : 의뢰(consult)환자 환자기본정보설정
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fReqCnstPatPamInfo(){
    var currow     = ds_grd_cnstpatlist.rowposition;
    var ioflag     = ds_grd_cnstpatlist.getColumn(currow, "ioflag");
    var pid        = ds_grd_cnstpatlist.getColumn(currow, "pid");
    var instcd     = "";//ds_grd_cnstpatlist.getColumn(currow, "instcd");
    var formrecseq = ds_grd_cnstpatlist.getColumn(currow, "formrecseq");
    
    if(ioflag == "O" || ioflag == "S"){
        var orddd = ds_grd_cnstpatlist.getColumn(currow, "acptorddd");
        var cretno= ds_grd_cnstpatlist.getColumn(currow, "acptcretno");
        return; //외래는 현재 협의 중
      
    }else{
        var orddd = ds_grd_cnstpatlist.getColumn(currow, "orddd");
        var cretno= ds_grd_cnstpatlist.getColumn(currow, "cretno");    
    }   
    
    var param  = "C" + "▦" + ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + formrecseq;
    
    return appf_initPatientInfo(param);
}

/**
 * @desc   : 환자 선택 후, 환자 정보 조회 및 기록지 화면 연동
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fSelectCnstPat(){
    var currow = ds_grd_cnstpatlist.rowposition;
    if(currow < 0){
        return;    
    }
    
    var ioflag   = ds_grd_cnstpatlist.getColumn(currow, "ioflag");
    //var reqptype = ds_grd_cnstpatlist.getColumn(currow, "reqptype");    //  해당 컬럼 없음
    var pid      = ds_grd_cnstpatlist.getColumn(currow, "pid");
    var hngnm    = ds_grd_cnstpatlist.getColumn(currow, "hngnm");
    
	if(	sysf_getGlobalVariable("able_sel_patlist", "M") == "N" ) { // 환자 선택 가능 여부 체크 2012.09.03 엄영만
	    sysf_messageBox("현재 로그인한 '"+ sysf_getUserInfo("dutplcenm") +"' 부서는 기록저장 및 처방발행이 불가능한 부서 입니다.\n\n다시 로그인 후 진행 하십시오.","E");
	    return false;
	}
    
    if(ioflag == "O"){
        sysf_messageBox("의뢰환자리스트에서 외래환자의 처방 및 진료기록을 작성", "E001");
        return;
    }
    
    //처방, CP화면에 modal 또는 modaless가 뜬 경우, 환자 선택 불가
    if(fChkScrnDisable()==false){
        return;
    }
    
    //CP환자 여부 확인
    if(fChkCPPatValid(currow)==false){
        return;
    }

    // 진료기록에 수정된 사항이 있을 경우 저장할 것인지 묻는 함수 호출 : 2009. 07. 27 김영학    
	var mainObj = frmf_getMainViewer();
	var mainscrnid  = mainObj.frmf_getScreenID(); //메인화면의 기록지 ID    
	if(mainscrnid == "SMMMR00100"){
        var prvIntRecPamInfRtn = mainObj.fPrevInitRecPamInfo();
		if(prvIntRecPamInfRtn  == false){
			return;
	       }// 기록지에 필수 입력사항을 입력하지 않았을 때 그냥 넘어가 버리는 오류 수정  20100305 LYJ
    }
    
        
	//상단정보 설정   
	//var mainObj = getViewer("sysMessage");
	if(fReqCnstPatPamInfo()==true){    
		//parent.parent.frmf_setParameter("SMMMO04100_reqptype", reqptype);
        var cpflag = parent.parent.SMMMO04100_getDSRoot("cpflag");
		var ordrecflag = parent.parent.SMMMO04100_getDSMainCond("ordrecflag");
        var recflag = parent.parent.SMMMO04100_getDSMainCond("recflag");        
        var chngflag = parent.parent.SMMMO04100_getDSMainCond("chngflag");        
        
        if (recflag == "Y") {    
			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   

			//if(curEmrRecObj   != null){curEmrRecObj.javascript.fClose();}   //진료기록 화면 close
			var wndobj = frmf_findPopup("SMMRI00400");
    
	     	if(!utlf_isNull(wndobj))
	    	{
			    frmf_setParameter("SMMRI00400_param_pid"     , parent.parent.SMMMO04100_getPid());
			    frmf_setParameter("SMMRI00400_param_chosflag", "");//model.getValue("/root/main/paminfo/list/ordtype")); 어디에 있는 노드지?
			    wndobj.fInitalize();
		 	    frmf_setFocusPop("SMMRI00400");
		    }    
		    if(!utlf_isNull(curExamRsltObj)){
		        curExamRsltObj.ds_singdata.setColumn(0, "srchpid", pid);
		        curExamRsltObj.btn_srch.onclick.fireEvent(curExamRsltObj.btn_srch, new ClickEventInfo);
		    } //검사결과 화면 refresh;
		
		    if(!utlf_isNull(curNurTprObj)){      //간호 TPR 화면 refresh   : 2008-11-28 : 김영학 ;  
		        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(curCunsultObj != null && consulyn !="T"){      
		    if(!utlf_isNull(curCunsultObj) && consulyn !="T"){      
		        curCunsultObj.fInitalize();
		    } //그래프 서식 refresh; 
		    
		    if(!utlf_isNull(curExamRsltNewObj)){
		        curExamRsltNewObj.ds_singdata.setColumn(0, "srchpid", pid );
		        curExamRsltNewObj.btn_srch.onclick.fireEvent(curExamRsltNewObj.btn_srch, new ClickEventInfo);
		    } //검사결과 화면 NEW refresh;
        
            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             
            
            if(!utlf_isNull(curPrcpObj)) {curPrcpObj.fPrcpWndClose(); }     ////활성화된 처방Main 화면이 있는 경우 close
            if(!utlf_isNull(curCpObj)){curCpObj.fCloseGPS();}               //활성화된 CP Main화면이 있는 경우 close
            if(!utlf_isNull(curCpSrchObj)){curCpSrchObj.fCpSrchWndClose();} //활성화된 CP검색화면이 있는 경우 close 
            frmf_clearParameter("SMMMO04100_ANSWCNT");             
            parent.parent.fChngEMRScrn();// 진료기록 Open
        } else {
            parent.parent.fOpenPrcpMainWnd();
            //mainObj.window.javascript.openEmrScrn("SMMMO00100"); //처방화면 open
        }
   }

/*
    if(fReqCnstPatPamInfo(currow)==true){
        opener.javascript.fOpenPrcpMainWnd();
    }
*/   
    /*
    if(fReqCnstPatPamInfo()== true){
       if(ordrecflag == "N"){ //기록지연결 여부 Y인 경우, main화면 진료기록지 교체, 화면상단정보 설정 및 처방화면 OPEN
          fOpenOrdRecMainWnd();
       }else{
          fOpenEmptyWnd(); //기록지연결 여부 N인 경우, main화면 빈화면 교체, 화면상단정보 설정 및 처방화면 OPEN
       }
    }*/
}

/**
 * @desc   : 그리드 data 엑셀화일로 저장
 * @
 * @param  :
 * @return :
 * @author : 오지훈 
 * @---------------------------------------------------
 */
function fSaveGridToExcel(){
    grdf_exportExcel(grd_cnstpatlist, "의뢰환자리스트", "의뢰");
}

/**
 * @desc   : CP환자 여부 검사
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fChkCPPatValid(currow){
    var pid   	  = ds_grd_cnstpatlist.getColumn(currow, "pid");
	var orddd 	  = ds_grd_cnstpatlist.getColumn(currow, "orddd");
	var cretno	  = ds_grd_cnstpatlist.getColumn(currow, "cretno");
	var ioflag	  = ds_grd_cnstpatlist.getColumn(currow, "ioflag");
	var hngnm 	  = ds_grd_cnstpatlist.getColumn(currow, "hngnm");
	var orddeptcd = "";//ds_grd_cnstpatlist.getColumn(currow, "orddeptcd");
	
    var acptorddd  = ds_grd_cnstpatlist.getColumn(currow, "acptorddd");
    var acptcretno = ds_grd_cnstpatlist.getColumn(currow, "acptcretno");
    
    if(ioflag == "O"){ //외래인 경우, 외래접수, 외래생성번호 있는지 확인 후에 처방화면을 open
        if(acptorddd != "" && acptcretno != ""){
            parent.parent.SMMMO04100_setDSRoot("cpflag", "N");
            return true;
          
        }else{
            sysf_messageBox("[" + hngnm + "]환자는 외래접수가 되지", "E007");
            return false;
          
        }
    }
        
    ds_reqPatValid.clearData();
    ds_reqPatValid.addRow();
    ds_reqPatValid.setColumn(0, "pid"         , pid);
    ds_reqPatValid.setColumn(0, "orddd"       , orddd);
    ds_reqPatValid.setColumn(0, "cretno"      , cretno);
    ds_reqPatValid.setColumn(0, "hngnm"       , hngnm);	//추가(2008.08.25)
    ds_reqPatValid.setColumn(0, "prcpgenrflag", ioflag);        
    ds_reqPatValid.setColumn(0, "srchtabflag" , "D");	  //대상자리스트탭(I/D):조회결과orddd,cretno는 외래이력의 수전정보임
    
    var oParam = {};
		oParam.id      = "TRMMO04303";
		oParam.service = "prcpbaseapp.CpMngt";
		oParam.method  = "reqGePattValidity";
		oParam.inds    = "req=" + "ds_reqPatValid";
		oParam.outds   = "ds_rsltgetdata=getdata";
		oParam.async   = false;
		oParam.callback = "cf_TRMMO04303";		//CP적용 여부 확인

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRMMO04303") >= 0){
        if(ds_rsltgetdata.rowcount < 1){ //cp적용환자 tbl에 유효한 데이터가 없는 경우      
			parent.parent.SMMMO04100_setDSRoot("cpflag", "N"); //처방open
			return true;
		} else { //CP적용환자 tbl에 유효한 데이터가 있는 경우
			dsf_setDefaultVal(ds_rsltgetdata, "appyn:Y");
		
			var appstat    = ds_rsltgetdata.getColumn(0, "appstat");
			var cpgnm      = ds_rsltgetdata.getColumn(0, "cpgnm");
			var cpgappno   = ds_rsltgetdata.getColumn(0, "cpgappno");
			var msgcnts    = ds_rsltgetdata.getColumn(0, "msgcnts");
			var msgflag    = ds_rsltgetdata.getColumn(0, "msgflag");
			var prtlflagcd = ds_rsltgetdata.getColumn(0, "prtlflagcd"); //01:CP,02:CPG

			if(appstat == 52){
				//case52: 입원장 CP
				var rtnval = sysf_messageBox(msgcnts, msgflag);
				if(rtnval == 6){
					parent.parent.SMMMO04100_setDSRoot("cpflag", "X");		// CP Main open
					return true;
				} else {
					parent.parent.SMMMO04100_setDSRoot("cpflag", "N");
// 					if(fUpdtCPPatAppStatVal(41) != false && !utlf_isNull(ds_grd_cnstpatlist.getColumn(currow, "cpyn"))){			//41 : CP 취소
// 						ds_grd_cnstpatlist.setColumn(currow, "cpyn", "N");
// 						return;
// 					} else {
						return false;
//					}
				}
			} else  {
				if( prtlflagcd == "02" && utlf_isNull(appstat) && msgflag == "P" ){ //모니터링구분:대상자탐색 Case. CPG & 호출flag:Popup(appyn:평가용여부)
					//CPG적용대상자 알림 팝업 호출 (2009.05.04)
					frmf_setParameter("SMMMO041_hngnm"      , hngnm);
					frmf_setParameter("SMMMO041_pid"        , pid);
					frmf_setParameter("SMMMO041_cretno"     , cretno);
					frmf_setParameter("SMMMO041_orddd"      , orddd);
					frmf_setParameter("SMMMO041_ordtype"    , ioflag);
					frmf_setParameter("SMMMO041_orddeptcd"  , orddeptcd);
					frmf_setParameter("SMMMO041_slipnm"     , msgcnts);  //cpgno▦cpghistseq▦cpgnm▦slipno▦slipnm▦valusgeyn▦valunm▦guidedocucnts
					frmf_setParameter("SMMMO041_cpgmntrflag", appstat);	//null, SPMMP03200화면에서 cpgmntrflag(M or S)으로 따짐
					frmf_setParameter("SMMMO041_cpgappno"   , cpgappno); //적용중인 CP가 존재하면 값이 있음
					frmf_setParameter("SMMMO041_cpgnm"      , cpgnm);    //적용중인 CP가 존재하면 값이 있음
					
					frmf_modal("SPMMP03200", "SPMMP03200", null, null, null, null, null, null, null, null, null, null, "P");	//CP대상자 알람 팝업
					
// 					if( cpgappno > 0 && cpgappno != frmf_getParameter("SPMMP032_cpgappno") && !utlf_isNull(ds_grd_cnstpatlist.getColumn(currow, "cpyn"))){ //진행중인 CP가 있는데 팝업에서 Drop한 경우 CP여부 N으로..
// 						ds_grd_cnstpatlist.setColumn(currow, "cpyn", "N");
// 					}
					if( !utlf_isNull(frmf_getParameter("SPMMP032_cpgappno")) && frmf_getParameter("SPMMP032_cpgappno") > 0 ){
						parent.parent.SMMMO04100_setDSRoot("cpflag", "Y");  //CPG적용한 경우, MGPS 호출
					} else {
						parent.parent.SMMMO04100_setDSRoot("cpflag", "N");  //미적용 시 처방 화면 호출
					}
					
					frmf_clearParameter("SPMMP032_cpgappno");
					frmf_clearParameter("SMMMO041_hngnm");
					frmf_clearParameter("SMMMO041_pid");
					frmf_clearParameter("SMMMO041_cretno");
					frmf_clearParameter("SMMMO041_orddd");
					frmf_clearParameter("SMMMO041_ordtype");
					frmf_clearParameter("SMMMO041_orddeptcd");
					frmf_clearParameter("SMMMO041_slipnm");
					frmf_clearParameter("SMMMO041_cpgmntrflag");
					frmf_clearParameter("SMMMO041_cpgappno");
					frmf_clearParameter("SMMMO041_cpgnm");
							
					return true;				
				} else {
					//case 12 : D0 ~ D1 CP
					//그외 case : (10 : 진행중...)
					if( !utlf_isNull(msgcnts) && !utlf_isNull(msgflag) ){
						//12: D0 처방일과 == 입원일 -> Drop 유도
						//그외: 오늘날짜 > CP퇴원예정일 -> Drop 유도
						sysf_messageBox(msgcnts, msgflag);
						frmf_setParameter("SMMMO043_cpgappno", cpgappno);	//drop 팝업에서 인식할 수 있는 param
						frmf_setParameter("SMMMO043_drop"    , "N");				//drop 팝업에서 인식할 수 있는 param
						
						frmf_modal("SPMMP02300", "SPMMP02300", null, null, null, null, null, null, null, null, null, null, "M");	//Drop 팝업 호출
						
						parent.parent.SMMMO04100_setDSRoot("cpflag", "N");
						if( frmf_getParameter("SMMMO043_drop") == "Y" ){							
							//ds_grd_erpatlist.setColumn(currow, "cpyn", "N");
						}else{
							return false;
						}
						frmf_clearParameter("SMMMO043_cpgappno");
						frmf_clearParameter("SMMMO043_drop");
						return true;
					}
					
					parent.parent.SMMMO04100_setDSRoot("cpflag", "Y");
					return true;
				}
			}
		}
	}
}

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

/**
 * @desc   : 미수행처방관리 화면 Open
 * @
 * @param  :
 * @return : 
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fOpenInFinPrcp(){
    var currow = ds_grd_cnstpatlist.rowposition;
    if(currow < 0){
        return;
    }
    
    var pid       = ds_grd_cnstpatlist.getColumn(currow, "pid");
    var orddeptcd = ds_cond.getColumn(0, "orddeptcd");
    var orddrid   = ds_cond.getColumn(0, "orddrid");
    
    frmf_setParameter("SMMMO02800_pid"      , pid);
    frmf_setParameter("SMMMO02800_ioflag"   , "I");
    frmf_setParameter("SMMMO02800_orddeptcd", orddeptcd);
    frmf_setParameter("SMMMO02800_orddrid"  , orddrid);
    frmf_open("SMMMO02800", "SMMMO02800", null, null, null, null, null, null, null, null, null, null, "M");
}

/**
 * @desc   : (의뢰)관심환자등록창 호출
 * @
 * @param  :
 * @return :
 * @author : 오지훈
 * @---------------------------------------------------
 */
function fCallWndConcPatRgst(){
    var currow = ds_grd_cnstpatlist.rowposition;
    var pid    = ds_grd_cnstpatlist.getColumn(currow, "pid");
    var hngnm  = ds_grd_cnstpatlist.getColumn(currow, "hngnm");
    var orddd  = ds_grd_cnstpatlist.getColumn(currow, "orddd");
    var cretno = ds_grd_cnstpatlist.getColumn(currow, "cretno");
    var seqno  = "";//ds_grd_cnstpatlist.getColumn(currow, "seqno");
    var instcd = "";//ds_grd_cnstpatlist.getColumn(currow, "instcd");
    var param = "I" + "▩" + pid + "▩" + hngnm + "▩" + orddd + "▩" + cretno + "▩" + seqno + "▩" + instcd;
    frmf_setParameter("param", param);
    frmf_modal("SPMMO08200", "SPMMO08200", null, null, null, null, null, null, null, null, null, null, "M");
        
    fReqCnstPatList(ds_cond.getColumn(0, "queryflag"));
}

/**
 * @desc   : (의뢰)주의요망환자창 호출
 * @
 * @param  :
 * @return :
 * @author : 엄영만
 * @---------------------------------------------------
 */
function fCallWndWarnPat(){
    var nCurRow = ds_grd_cnstpatlist.rowposition;
    var sPid    = ds_grd_cnstpatlist.getColumn(nCurRow, "pid");
    var sHngnm  = ds_grd_cnstpatlist.getColumn(nCurRow, "hngnm");
    
    frmf_setParameter("SMMMO19100_warncd" , sPid);
    frmf_setParameter("SMMMO19100_warnnm" , sHngnm);
    
    frmf_modal("SMMMO19100", "SMMMO19100", null, null, null, null, null, null, null, null, null, null, "M");
    
    frmf_clearParameter("SMMMO19100_warncd");  
    frmf_clearParameter("SMMMO19100_warnnm");  
}

function fPrtPatList() {
	if(utlf_isNull(ds_cond.getColumnInfo("orddeptnm"))) ds_cond.addColumn("orddeptnm", "string");
	if(utlf_isNull(ds_cond.getColumnInfo("reqflagnm"))) ds_cond.addColumn("reqflagnm", "string");
	if(utlf_isNull(ds_cond.getColumnInfo("replynnm"))) ds_cond.addColumn("replynnm", "string");
	if(utlf_isNull(ds_cond.getColumnInfo("ioflagnm"))) ds_cond.addColumn("ioflagnm", "string");
	if(utlf_isNull(ds_cond.getColumnInfo("orddrnm"))) ds_cond.addColumn("orddrnm", "string");
	ds_cond.setColumn(0, "orddeptnm", Div00.cmb_orddept.text);
	ds_cond.setColumn(0, "reqflagnm", Div00.cmb_reqflag.text);
	ds_cond.setColumn(0, "replynnm", Div00.cmb_replyn.text);
	ds_cond.setColumn(0, "ioflagnm", Div00.combo1.text);
	ds_cond.setColumn(0, "orddrnm", Div00.cmb_orddrid.text);
    
    var objDOM = rptf_createDOM();														// DOM 객체 설정	
	rptf_setNodeListToDOM(objDOM, "/root/main/cnstpatinfo/cnstpatlist", ds_grd_cnstpatlist);	// 데이터셋 1	
	rptf_setNodeListToDOM(objDOM, "/root/main/cond", ds_cond);							// 데이터셋 2	
	//sysf_trace(objDOM.documentElement.source);	// XML 내용출력
	
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;								// 최상의노드 XML 스트링 추출
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;callback=cbf_rpt_onFinishPrintXML";
	rptf_exeReportPreview30(["RPMMO04108"],[objParam], option);
}]]></Script>