var sCNSTPATLIST_PATH = "/root/main/cnstpatinfo/cnstpatlist";
var sORDERBY          = "";


function fInitialize_SMMMO04800(){	
    model.removeNodeset(sCNSTPATLIST_PATH);
    model.setValue("/root/main/cond/fromdd" ,((getCurrentDate().toDate()).getAddDate(-3)).getDateFormat()); 
    model.setValue("/root/main/cond/todd"   , getCurrentDate()); 
    
    model.setValue("/root/main/cond/orddeptcd", getUserInfo("dutplcecd"));  
		model.setValue("/root/main/cond/orddrid", "-");  
		model.setValue("/root/main/cond/oproomcd", "-");  
		model.setValue("/root/main/cond/reqflag"  , "-"); 
    model.setValue("/root/main/cond/replyn"   , "-"); 
		model.setValue("/root/main/cond/ioflag", "-");	
		
    fReqCnstPatList(model.getValue("/root/main/cond/queryflag"));
}


function fReqCnstPatList(queryflag){
    model.setValue("/root/main/cond/queryflag", queryflag);
    model.copyNode("/root/send/reqdata", "/root/main/cond");
    
    
   	var offset = parseInt(model.getValue("root/page/curpage"));
    
    if(offset == 1)
    {
    	offset = offset - 1;    	
    }
    else
    {
    	offset = (offset - 1) * 10;
  	}		
  	
    model.makeValue("/root/send/reqdata/offset", String(offset));		
    model.makeValue("/root/send/reqdata/pagesize", model.getValue("root/page/pagesize")); 
    
    
    if(submit("TRMOB00004")){    	
        var totrow = grd_cnstpatlist.rows;
        model.setValue("/root/main/totcnt/totcnt", totrow-1);
        model.copyNode(opener.instance1.selectSingleNode("root/cond/cnstpatlist"), instance1.selectSingleNode("root/main/cond"));
        model.copyNode(opener.instance1.selectSingleNode("root/temp/cnstpatlist"), instance1.selectSingleNode("root/init"));
    }
    
    var maxpage = parseInt(model.getValue("/root/main/cnstpatinfo/retcnt/cnspatlistcnt"));
 		
		if(maxpage < 10)
		{
			model.setValue("/root/page/maxpage", "1");
		}
		else
		{	
			maxpage = (maxpage / 10) - ((maxpage % 10) / 10) + 1;
			model.setValue("/root/page/maxpage", String(maxpage));
			model.refresh();
		}
  
    var orderby = model.getValue("/root/main/cond/orderby");
    var sortcol = model.getValue("/root/main/cond/sortcol");
    if(sortcol != "" && orderby != ""){
        sORDERBY = orderby;
		
		grd_cnstpatlist.colsort(sortcol) = sORDERBY
        grd_cnstpatlist.setSort(1, 1, grd_cnstpatlist.rows -1, grd_cnstpatlist.cols -1, "usersort"); 
        grd_cnstpatlist.gridToInstance();  
		grd_cnstpatlist.refresh();
    }    
}


function fReqCnstPatPamInfo(){
    var currow     = grd_cnstpatlist.row;
    var ioflag     = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/ioflag");
    var pid        = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/pid");
    var instcd     = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/instcd");
    var formrecseq = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/formrecseq");
    
    if(ioflag == "O" || ioflag == "S"){
        var orddd = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/acptorddd");
        var cretno= model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/acptcretno");
        return; 
      
    }else{
        var orddd = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/orddd");
        var cretno= model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/cretno");
    
    }   
    
    var param  = "C" + "▦" + ioflag + "▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + formrecseq;
    setParameter("condparam", param);
    modal("SPMMO08900", 1, 0, 0, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
    
    var useyn = getParameter("SPMMO08900_rtn_useyn");
    if(useyn == "Y"){
        setParameter("SPMMO08900_rtn_useyn", "");
        return true;
    }else{
        return false;
    }
}


function fSelectCnstPat(){
    var ordrecflag = model.getValue(opener.instance1.selectSingleNode("root/main/cond/ordrecflag")); 
    var currow = grd_cnstpatlist.row;
    if(currow < 1){
        return;    
    }
    
    var ioflag   = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/ioflag");
    var reqptype = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/reqptype");    
    var pid      = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/pid");
    var hngnm    = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/hngnm");
    
    if(ioflag == "O"){
        messageBox("의뢰환자리스트에서 외래환자의 처방 및 진료기록을 작성", "E001");
        return;
    }
    
    
    if(fChkScrnDisable()==false){
        return;
    }
    
    
    if(fChkCPPatValid(currow)==false){
        return;
    }

    
	var mainobj = getMainViewer();
	var mainscrnid  = mainobj.getScreenID(); 
	if(mainscrnid == "SMMMR00100"){
        var prvIntRecPamInfRtn = mainobj.window.fPrevInitRecPamInfo();
		if(prvIntRecPamInfRtn  == false){
			return;
	       }
    }
    
        
   
   var mainObj = getMainViewer();
   
   if(fReqCnstPatPamInfo()==true){
    
       opener.setParameter("SMMMO04100_reqptype", reqptype);   
        var cpflag     = opener.model.getValue("/root/cpflag");
        var ordrecflag = opener.model.getValue("/root/main/cond/ordrecflag");
        var recflag = opener.model.getValue("/root/main/cond/recflag");
        var chngflag = opener.model.getValue("/root/main/cond/chngflag");
        var mainObj = getMainViewer();
        
        if (recflag == "Y") {
        
        
         var mainObj = getMainViewer();
    
         curEmrRecObj   = getOpenWindow("SMMRI00400"); 
         curExamRsltObj = getOpenWindow("SMAER00800"); 
         curNurTprObj   = getOpenWindow("SMMNR00900"); 
         curNurBSEMRObj = getOpenWindow("SMMNR02500"); 
         curGrphObj     = getOpenWindow("SPMRF05200"); 
         curCunsultObj  = getOpenWindow("SMMMR05000"); 
         curExamRsltNewObj = getOpenWindow("SMMMI00100"); 
    
         
         var wndobj = getOpenWindow("SMMRI00400");
    
	     	if(wndobj != null)
	    	{
			    setParameter("SMMRI00400_param_pid"     , model.getValue("/root/source/pid"));
			    setParameter("SMMRI00400_param_chosflag", model.getValue("/root/main/paminfo/list/ordtype"));
			    wndobj.fInitalize();
		 	    activateChild("SMMRI00400");
		    }    
		    if(curExamRsltObj != null){
		        curExamRsltObj.model.setvalue("/root/send/data/singdata/srchpid", pid );
		        curExamRsltObj.btn_srch.dispatch("DOMActivate");
		    } 
		
		    if(curNurTprObj != null){      
		        curNurTprObj.fInitialize("init");
		    } 
		    
		    if(curNurBSEMRObj != null){      
		        curNurBSEMRObj.fInitialize("init");
		    } 
		
		    if(curGrphObj != null){      
		        curGrphObj.fInitialize();
		    } 
		    
		    
		       if(curCunsultObj != null && consulyn !="T"){      
		        curCunsultObj.fInitalize();
		    } 
		    
		    if(curExamRsltNewObj != null){
		        curExamRsltNewObj.model.setvalue("/root/send/data/singdata/srchpid", pid );
		        curExamRsltNewObj.btn_srch.dispatch("DOMActivate");
		    } 
            
        
        
        
            curCpObj     = mainObj.getOpenWindow("SMMMP00800"); 
            curPrcpObj   = mainObj.getOpenWindow("SMMMO00100"); 
            curCpSrchObj = mainObj.getOpenWindow("SPMMP01200"); 
            
            if(curPrcpObj != null) {curPrcpObj.fPrcpWndClose(); }     
            if(curCpObj != null){curCpObj.fCloseGPS();}               
            if(curCpSrchObj != null){curCpSrchObj.fCpSrchWndClose();} 
            clearParameter("SMMMO04100_ANSWCNT");             
            opener.fChngEMRScrn();
        } else {
            opener.fOpenPrcpMainWnd();
            
        }
    

    
   }

   
    
}


function fChkCPPatValid(currow){
    var pid       = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/pid");
    var orddd     = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/orddd");
    var cretno    = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/cretno");
    var ioflag    = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/ioflag");
    var hngnm     = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/hngnm");
    var orddeptcd = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/orddeptcd");
    
    var acptorddd  = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/acptorddd");
    var acptcretno = model.getValue(sCNSTPATLIST_PATH + "[" + currow + "]/acptcretno");
    
    if(ioflag == "O"){ 
        if(acptorddd != "" && acptcretno != ""){
            model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "N");
            return true;
          
        }else{
            messageBox("[" + hngnm + "]환자는 외래접수가 되지", "E007");
            return false;
          
        }
    }
    
    model.removeNodeset("/root/send/reqdata");
    model.makeValue("/root/send/reqdata/pid"         , pid);
    model.makeValue("/root/send/reqdata/orddd"       , orddd);
    model.makeValue("/root/send/reqdata/cretno"      , cretno);
    model.makeValue("/root/send/reqdata/hngnm"       , hngnm);	
    model.makeValue("/root/send/reqdata/prcpgenrflag", ioflag);        
    model.makeValue("/root/send/reqdata/srchtabflag" , "D");	  
    
    if(submit("TRMMO04303")==true){ 
        var cppatnode = instance1.selectNodes("/root/init/rsltgetdata/getdata");
        if(cppatnode.length < 1){ 
            model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "N"); 
            return true;
            
        }else{ 
            var appstat    = model.getValue("/root/init/rsltgetdata/getdata/appstat");
            var cpgnm      = model.getValue("/root/init/rsltgetdata/getdata/cpgnm");
            var cpgappno   = model.getValue("/root/init/rsltgetdata/getdata/cpgappno");
            var msgcnts    = model.getValue("/root/init/rsltgetdata/getdata/msgcnts");
            var msgflag    = model.getValue("/root/init/rsltgetdata/getdata/msgflag");
            var prtlflagcd = model.getValue("/root/init/rsltgetdata/getdata/prtlflagcd"); 
            
            if(appstat == 52){
		          
		          var rtnval = messageBox(msgcnts, msgflag);
		          if(rtnval == 6){
			          model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "X");		
			          return true;
			        }else{
		            model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "N");
		      		  if(fUpdtCPPatAppStatVal(41) != false && instance1.selectSingleNode(sCNSTPATLIST_PATH + "[" + currow + "]/cpyn") != null){			
		      		    model.setValue(sCNSTPATLIST_PATH + "[" + currow + "]/cpyn", "N");
		      		    return;
		      		  }else{
		      		  	return false;
		      		  }
			        }
		 
            }else{
            	if( prtlflagcd == "02" && isNull(appstat) && msgflag == "P" ){ 
		        		
		        		setParameter("SMMMO041_hngnm"      , hngnm);
		        		setParameter("SMMMO041_pid"        , pid);
		        		setParameter("SMMMO041_cretno"     , cretno);
		        		setParameter("SMMMO041_orddd"      , orddd);
		        		setParameter("SMMMO041_ordtype"    , ioflag);
		        		setParameter("SMMMO041_orddeptcd"  , orddeptcd);
		        		setParameter("SMMMO041_slipnm"     , model.getValue(instance1.selectSingleNode("root/init/rsltgetdata/getdata/msgcnts")));  
		        		setParameter("SMMMO041_cpgmntrflag", appstat);	
		        		setParameter("SMMMO041_cpgappno"   , cpgappno); 
		        		setParameter("SMMMO041_cpgnm"      , cpgnm);    
		        		
		        		modal("SPMMP03200");  
		        		
		        		if( cpgappno > 0 && cpgappno != getParameter("SPMMP032_cpgappno") && instance1.selectSingleNode(sCNSTPATLIST_PATH + "[" + currow + "]/cpyn") != null){ 
		        			model.setValue(sCNSTPATLIST_PATH + "[" + currow + "]/cpyn", "N");
		        		}
		        		if( !isNull(getParameter("SPMMP032_cpgappno")) && getParameter("SPMMP032_cpgappno") > 0 ){
		        			model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "Y");  
		        		}else{
		        			model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "N");  
		        		}
		        		
		        		clearParameter("SPMMP032_cpgappno");
		        		clearParameter("SMMMO041_hngnm");
		        		clearParameter("SMMMO041_pid");
		        		clearParameter("SMMMO041_cretno");
		        		clearParameter("SMMMO041_orddd");
		        		clearParameter("SMMMO041_ordtype");
		        		clearParameter("SMMMO041_orddeptcd");
		        		clearParameter("SMMMO041_slipnm");
		        		clearParameter("SMMMO041_cpgmntrflag");
		        		clearParameter("SMMMO041_cpgappno");
		        		clearParameter("SMMMO041_cpgnm");
						      	
		        		return true;
            		
            	}else{
			        	
			        	
			        	if( !isNull(msgcnts) && !isNull(msgflag) ){
			        		
			        		
			        		messageBox(msgcnts, msgflag);
			        		setParameter("SMMMO043_cpgappno", cpgappno);	
			        		setParameter("SMMMO043_drop"    , "N");				
			        		
			        		modal("SPMMP02300");								
			        		
			        		model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "N");
			        		if( getParameter("SMMMO043_drop") == "Y" ){
			        			model.setValue(sINPATLIST_PATH + "[" + currow + "]/cpyn", "N");
			        		}else{
			        			return false;
			        		}
			        		clearParameter("SMMMO043_cpgappno");
			        		clearParameter("SMMMO043_drop");
			        		return true;
			        	}
			        	
			          model.setValue(opener.instance1.selectSingleNode("root/cpflag"), "Y");
			          return true;
			        }
         		}
        }
   }
}