var sERPATLIST_PATH = "/root/main/erpatinfo/erpatlist";
var sORDERBY = "";


function fInitialize_SMMMO04400(){
		model.removeNodeset(sERPATLIST_PATH);   
		model.setValue("/root/main/cond/srchdd" , getCurrentDate());
		
		mmbfGetHardCodeInfo("/root/send/reqdata" , "/root/init/eroverallday", 189); 
		
		model.setValue("/root/main/cond/orddeptcd", "2280000000"); //응급의학과 기본 세팅getUserInfo("dutplcecd"));  
		model.setValue("/root/main/cond/medispclid", "-");  
		model.setValue("/root/main/cond/atdoctid", "-");  
		model.setValue("/root/main/cond/wardcd", "-");  
		model.setValue("/root/main/cond/erorddeptcd", "-");  
		model.setValue("/root/main/cond/ermedispclid", "-");  
		
		fReqSectionInfo();
		
		fReqERPatList();  
}



function fReqERPatList(){
   model.removeNodeset("/root/send/reqdata");
   model.makeNode("/root/send/reqdata");
   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("TRMOB00002")){   		
       model.copyNode(opener.instance1.selectSingleNode("root/temp/erpatlist"), instance1.selectSingleNode("root/init"));
       model.copyNode(opener.instance1.selectSingleNode("root/cond/erpatlist"), instance1.selectSingleNode("root/main/cond"));  
       var ercurpatcnt = grd_erpatlist.rows -1;
       model.makeValue("/root/main/erpatinfo/erpatcnt/ercurpatcnt", ercurpatcnt);
       out_curpatcnt.refresh();
   }
   
		var maxpage = parseInt(model.getValue("/root/main/erpatinfo/erpatcnt/erpattotalcnt"));		
		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_erpatlist.colsort(sortcol) = sORDERBY
        grd_erpatlist.setSort(1, 1, grd_erpatlist.rows -1, grd_erpatlist.cols -1, "usersort");
        grd_erpatlist.gridToInstance();   
    }

    

    grd_erpatlist.refresh();
}


function fSelectERPat(){
   var ordrecflag = model.getValue(opener.instance1.selectSingleNode("root/main/cond/ordrecflag"));
   var currow = grd_erpatlist.row;      
   if(currow < 1){
      return;
   }
   
   if(fChkArrivalTime()== false) { 
       model.makeValue("/root/main/cond/callvisityn" , "N");
       parent.window.setParameter("SMMMO04100_callvisityn", "N");
       messageBox("응급실 Visit Time을 등록 하지 않으면 기록과 처방은 임시저장만 가능 합니다.", "E");
    }else { 
       model.makeValue("/root/main/cond/callvisityn" , "Y");
       parent.window.setParameter("SMMMO04100_callvisityn", "Y");
     }
     
   
   
   if(fChkScrnDisable()==false){
     return;
   }
   
   
   
   var pid    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
   var orddd  = model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
   var cretno = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno");
   var visitno = model.getValue(sERPATLIST_PATH + "[" + currow + "]/visitno");
   fChkInCnclYN(pid, orddd, cretno, "C"); 
  
   
   if(fChkCPPatValid(currow)==false){
     return;
   }
   
	
	
	
	
	var wndobj = getOpenWindow("SPMMO21300");
	var sysMessageobj = getViewer("sysMessage");
            	
	if( wndobj == null ){ 
		if( !isNull( model.getValue(sERPATLIST_PATH + "[" + currow + "]/recovwardnm") ) ){
				var SPMMO21300_param = pid+ "▦" + orddd + "▦" + cretno + "▦" + visitno;
				sysMessageobj.window.setParameter("SPMMO21300_param", SPMMO21300_param);
				sysMessageobj.window.open("SPMMO21300",1,1280 - 300,100,"SPMMO21300", "", "", "", "", "", "" );	
				sysMessageobj.window.getOpenWindow("SPMMO21300");	
			}
	}
	else{
		if( !isNull( model.getValue(sERPATLIST_PATH + "[" + currow + "]/recovwardnm") ) ){
				var SPMMO21300_param = pid+ "▦" + orddd + "▦" + cretno + "▦" + visitno;
				sysMessageobj.window.setParameter("SPMMO21300_param", SPMMO21300_param);
				wndobj.fStartWnd(); 
			}
		else{
				wndobj.fCloseWnd();
		}
	}
	
	
   
   var mainobj = getMainViewer();
   var mainscrnid  = mainobj.getScreenID(); 
   if(mainscrnid == "SMMMR00100"){
       var prvIntRecPamInfRtn = mainobj.window.fPrevInitRecPamInfo();
		if(prvIntRecPamInfRtn  == false){
			return;
		}
   }
   
   
   
   
   if(fReqERPatPamInfo()==true){

        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();
        
        var currow = grd_erpatlist.row;
        var pid     = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
        var hngnm   = model.getValue(sERPATLIST_PATH + "[" + currow + "]/hngnm");
        var inCnclYN = model.getValue("/root/hidden/erincnclinfo/info/incnclyn"); 
        
        setParameter("SMMMO00100_callvisityn", model.getValue("/root/main/cond/callvisityn")); 

        if (recflag == "Y" || inCnclYN == "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){      
		        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 fReqERPatPamInfo(){
   var iRow   = grd_erpatlist.row;
   var pid    = model.getValue(sERPATLIST_PATH + "[" + iRow + "]/pid");
   var indd   = model.getValue(sERPATLIST_PATH + "[" + iRow + "]/indd");
   var cretno = model.getValue(sERPATLIST_PATH + "[" + iRow + "]/cretno");
   var instcd = model.getValue(sERPATLIST_PATH + "[" + iRow + "]/instcd");
   var srchdd = model.getValue("/root/main/cond/srchdd");
   var callvisityn = model.getValue("/root/main/cond/callvisityn"); 
   

   var param = "E" + "▦" + pid + "▦" + indd + "▦" + cretno + "▦" + instcd + "▦" + srchdd + "▦" + callvisityn ;
   setParameter("condparam", param);
   modal("SPMMO08900", 1, "", "", "", "", "", "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 fReqSectionInfo(){
   model.removeNodeset("/root/send/reqdata");
   model.makeValue("/root/send/reqdata/baseclsflag"  , "B");
   model.makeValue("/root/send/reqdata/supbasetypecd", "BD");
   
   submit("TRMOB00008");
}


function fChngColorERPatList(){
    var colorflag = model.getValue("/root/init/colorflag/hardcd/hardcd");
    if (colorflag =="A") {
        var iRow = grd_erpatlist.rows;        
		for(i= 1 ; i < iRow ; i ++ ){ 

     	    
  	        if(model.getValue(sERPATLIST_PATH + "[" + i + "]/prcpcolor") == "N") {
  	            grd_erpatlist.setRowStyle(i, "data", "color", "#0033CC");
		    } else if( model.getValue(sERPATLIST_PATH + "[" + i + "]/staytime") == "Y" &&
 		  	    (model.getValue(sERPATLIST_PATH + "[" + i + "]/patstat") == "" && 
	  	        model.getValue(sERPATLIST_PATH + "[" + i + "]/adrvflag") == "" ) ) {
	  	            grd_erpatlist.setRowStyle(i, "data", "color", "#ff0000");
	 	    }

    	      
    	    var tmcolor       = model.getValue(sERPATLIST_PATH + "[" + i + "]/tmcolor");
    	    if (isNull(tmcolor)) {
    	        tmcolor = "FFFFFF";
    	    }
    	    grd_erpatlist.setRowStyle(i, "data", "background-color", "#" + tmcolor);

    		
    		if(model.getValue(sERPATLIST_PATH + "["+i+"]/chosdd") == ""){
    	    	grd_erpatlist.setRowStyle(i, "data", "background-color", "#ffefd6");				  				
    		}
    	  			
    		if(model.getValue(sERPATLIST_PATH + "["+i+"]/recovwardcd") != "-"){
    	    	grd_erpatlist.setRowStyle(i, "data", "background-color", "#ffff99");				  				
    		}  			
    	        
    	    
    		if(model.getValue(sERPATLIST_PATH + "[" + i + "]/actsymp") == "Y") {
    		    grd_erpatlist.cellstyle("background-color", i, grd_erpatlist.colRef("bed")) = "#ff0000";
    		    grd_erpatlist.cellstyle("color", i, grd_erpatlist.colRef("bed")) = "#000000";
    		}
    	}	        
    } else {    
       var totrow = grd_erpatlist.rows;
       var curcol = grd_erpatlist.colRef("serdiagflag");
       var currecovcol = grd_erpatlist.colRef("recovwardnm");
       var curadrvflag = grd_erpatlist.colRef("adrvflag");
       for(var rowcnt = 1 ; rowcnt < totrow ; rowcnt++){
    
           var serdiagval  = model.getValue(sERPATLIST_PATH + "[" + rowcnt + "]/serdiagflag");
           var recovwardnm = model.getValue(sERPATLIST_PATH + "[" + rowcnt + "]/recovwardnm");
           var color       = model.getValue(sERPATLIST_PATH + "[" + rowcnt + "]/color");
           var adrvcolor   = model.getValue(sERPATLIST_PATH + "[" + rowcnt + "]/adrvcolor");
           var adrvflag    = model.getValue(sERPATLIST_PATH + "[" + rowcnt + "]/adrvflag");
           
           if(serdiagval != "-" || serdiagval != ""){
               
               serdiagval = parseInt(serdiagval);
               switch(serdiagval){
                  case 1  : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#ff0000";
                            break;
                  case 2  : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#ff6600";
                            break;                           
                  case 3  : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#0000ff";
                            break;                           
                  case 4  : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#000000";
                            break;                           
                  case 5  : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#000000";
                            break;                           
                  default : grd_erpatlist.cellstyle("color", rowcnt, curcol) = "#ffffff";
                            break;
               }
           }
           
           if (!isNull(recovwardnm )) {
               grd_erpatlist.cellstyle("color", rowcnt, currecovcol) = "#ff0000";
           }
           
           if (!isNull(adrvcolor )) {
               grd_erpatlist.cellstyle("color", rowcnt, curadrvflag) = "#ff0000";
           }       
           
           grd_erpatlist.setRowStyle(rowcnt, "data", "background-color", "#" + color);
       }
    }
}


function fChkCPPatValid(currow){
  fChkErTriagePatList();
  var pid       = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
  var orddd     = model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
  var cretno    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno");
  var cpyn      = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cpyn");
  var hngnm     = model.getValue(sERPATLIST_PATH + "[" + currow + "]/hngnm");
  var orddeptcd = model.getValue(sERPATLIST_PATH + "[" + currow + "]/orddeptcd");
  var ioflag    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/ioflag");
  if(isNull(orddeptcd)) orddeptcd = model.getValue("/root/main/cond/orddeptcd");
  if(isNull(ioflag))    ioflag   = "E";
        		
  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" , "E");	
  
  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(sERPATLIST_PATH + "[" + currow + "]/cpyn") != null){			
      		    model.setValue(sERPATLIST_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(sERPATLIST_PATH + "[" + currow + "]/cpyn") != null){ 
				    	model.setValue(sERPATLIST_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;
        }
      }
    }
  }
}


function fUpdtCPPatAppStatVal(appstat){
  var cpgappno = model.getValue("/root/init/rsltgetdata/getdata/cpgappno");
  model.removeNodeset("/root/send/savedata");
  model.makeValue("/root/send/savedata/cpgappno", cpgappno);
  model.makeValue("/root/send/savedata/appstat" , appstat);
  if(submit("TXMMO04301")==false){
    return false;
  }
}


function fChkArrivalTime() {
    var userdeptcd = getUserInfo("dutplcecd");
    var userid     = getUserId();
    var currow = grd_erpatlist.row;
    var orddoctid  = model.getValue(sERPATLIST_PATH + "[" + currow + "]/orddoctid"); 
    var orddeptcd  = model.getValue(sERPATLIST_PATH + "[" + currow + "]/erorddeptcd"); 
    var erorddeptcd = model.getValue("/root/init/hardcdno/hardcd/hardcd");    
    if (userdeptcd != erorddeptcd) {                           
        if (userid == orddoctid || userdeptcd == orddeptcd) {  
            var visttm    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/visttm"); 
            if (visttm =="------") {
                return false;
            }
        }
    }
}


function fChkErTriagePatList() {
    var currow = grd_erpatlist.row;
    var messageobj = getViewer("sysMessage");
    var pid         = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
    var orddd       = model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
    var cretno      = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno")    
    var sa          = model.getValue(sERPATLIST_PATH + "[" + currow + "]/sa");
    var hngnm      = model.getValue(sERPATLIST_PATH + "[" + currow + "]/hngnm");    
    var condparam = sa.split("/");
    var sex         = condparam[0];
    var age         = condparam[1];
    model.makeValue("/root/send/reqdata/pid"    , pid);
    model.makeValue("/root/send/reqdata/orddd"  , orddd);
    model.makeValue("/root/send/reqdata/cretno" , cretno);
    
    if (submit("TRMMO04403")==true) {
        var cnts = model.getValue("/root/hidden/pattriagelist/erpatlist/pid");
        if (isNull(cnts)) {
            if (messageBox ( "Triage 기록이 작성되지 않았습니다. \n 작성하시겠습니까?", "Q" ) == "6" ) {
                var param = pid + "▦" + orddd + "▦" + cretno + "▦" + sex + "▦" + age + "▦▦" + hngnm;
                messageobj.window.setParameter("SPMNE04400_param", param); 
                curErTriageObj   = getOpenWindow("SPMNE04400"); 
                if (curErTriageObj != null) {
                    curErTriageObj.window.fInitialize_SPMNE04400();
                    curErTriageObj.window.activate();
                } else {
                    
                    messageobj.window.open("SPMNE04400", 2, null, null, "SPMNE04400", "", "", "", false);
                    curErTriageObj   = getOpenWindow("SPMNE04400"); 
                    curErTriageObj.window.activate();
                }
            } else {
                curErTriageObj   = getOpenWindow("SPMNE04400"); 
                if (curErTriageObj != null) {
                    curErTriageObj.button2.dispatch("DOMActivate");
                }                       
            }
        } else {
            curErTriageObj   = getOpenWindow("SPMNE04400"); 
            if (curErTriageObj != null) {
                curErTriageObj.button2.dispatch("DOMActivate");
            }       
        }    
    }
}




function fSaveErCallVisit(){
	open("SPMMO30000");	
}



function fOpenNurseERCallDr(){
    var currow = grd_erpatlist.row;
    var pid       = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
    var orddd     = model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
    var cretno    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno") 
    var visitno   = model.getValue(sERPATLIST_PATH + "[" + currow + "]/visitno") 
    var param     = pid + "▦" + orddd + "▦" + cretno + "▦" + visitno;
    setParameter("SMMNE05200_param", param);
    modal("SMMNE05200");
    fReqERPatList();
} 



function fOpenNurseERDrScheDrList() {
    modal("SMMNE05100");
}




function fOpenNurseERVisitDr() {
    modal("SMMNE05300");
}



function fOpenDrList() {
	var bpcallyn = model.getValue("/root/init/bpcallyn/hardcd/hardcd");
	if ( !isNull(bpcallyn) && bpcallyn == "Y") {
		setParameter("SMMNE05000_bpcallyn", "Y");
		setParameter("SMMNE05000_param", "Y^Y^Y^Y^Y^Y^Y");	
	} else {
		setParameter("SMMNE05000_bpcallyn", "N");
		setParameter("SMMNE05000_param", "Y^Y^Y^Y^N^Y^Y");	
	}
	
    modal("SMMNE05000");
}


function fOpenDrCallDeaction(){
   var currow = grd_erpatlist.row;
   if(currow < 1){
      return;
   }
   var pid       = model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
   var orddd     = model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
   var cretno    = model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno");
   var visitno   = model.getValue(sERPATLIST_PATH + "[" + currow + "]/visitno");
   var param     = pid + "▦" + orddd + "▦" + cretno + "▦" + visitno;

	setParameter("SPMMO32300_param", param);
	modal("SPMMO32300");

   fReqERPatList();
}


function fOpenDrCallAddition(){
	var currow = grd_erpatlist.row;
	if(currow < 1){
		return;
	}
	var pid		= model.getValue(sERPATLIST_PATH + "[" + currow + "]/pid");
	var orddd	= model.getValue(sERPATLIST_PATH + "[" + currow + "]/indd");
	var cretno	= model.getValue(sERPATLIST_PATH + "[" + currow + "]/cretno");
	var visitno	= model.getValue(sERPATLIST_PATH + "[" + currow + "]/visitno");
	var param	= pid + "▦" + orddd + "▦" + cretno + "▦" + visitno;

	setParameter("SPMMO32400_param", param);
	modal("SPMMO32400");

	fReqERPatList();
}