/*
  
      À¯ÁöȯÀÚ°ü¸® (SMMND01200.xrw - JScript )

      - Version :
          1)  : Ver.1.00.01
 */

//** Àü¿ªº¯¼ö **//
var i, d, s1="", s2="";

/**
 * @group  :
 * @ver    : 2007.04.13
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDone(){
	//** »ó´ÜȯÀÚ È­¸é¼³Á¤ **//  
/*  var node = getGlobalVariable("paminfo");
  setCSVToNode("/root/temp/paminfo", node);
          
	if(getNodesetCount("/root/temp/paminfo/list") > 0) {
	   var sSelPid = model.getValue("/root/temp/paminfo/list/pid");     // µî·Ï¹øÈ£
	   model.setValue("/root/send/pid"   , sSelPid);
	}
*/ 
	fSetSrchDate();  // µî·ÏÀÏÀÚ Á¶È¸±â°£ ¼³Á¤
}

/**
 * @group  :
 * @ver    : 2007.07.03
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : µî·ÏÀÏÀÚ Á¶È¸±â°£ ¼³Á¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetSrchDate(){
	  var currentDate = getCurrentDate();
	  model.makeValue("/root/main/cond/maintepatrgstdd1", ((currentDate.toDate()).getAddDate(-5, "Y")).getDateFormat()); // date.getAddDate(1, "Y")
	  model.makeValue("/root/main/cond/maintepatrgstdd2", currentDate);
	  model.setValue("/root/main/cond/matnflag" , "1");
}

/**
 * @group  :
 * @ver    : 2007.04.12
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : dialhdmpglist Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSelect_dialhdmpglist(){
  	var sMatnFromDD = model.getValue("/root/main/cond/maintepatrgstdd1");
  	var sMatnToDD   = model.getValue("/root/main/cond/maintepatrgstdd2");
	
	  if (sMatnFromDD == "" || sMatnToDD == "") {
		   messageBox("µî·ÏÀÏÀÚ°¡ ÀԷµÇÁö", "E007", "´Ù½Ã ÀÔ·ÂÇϽʽÿÀ.");
		   return;
	  }

	  // Á¶È¸±â°£ üũ
	  if(sMatnFromDD > sMatnToDD) {
	  	 messageBox("¿¹¾àÀÏÀÚ ±â°£ÀÌ ¿Ã¹Ù¸£Áö ¾Ê½À´Ï´Ù.", "E");  
	  	 model.setValue("/root/main/cond/maintepatrgstdd1", s2);
	  	 model.setValue("/root/main/cond/maintepatrgstdd2", s1);
	  	 ipt_maintepatrgstdd1.refresh();
	  	 ipt_maintepatrgstdd2.refresh();
    } 
    model.removeNodeset("/root/send");
    model.makeNode("/root/send");
    model.makeValue("/root/send/matnflag   		  ", model.getValue("/root/main/cond/matnflag   		 "));
    model.makeValue("/root/send/dialflag   		  ", model.getValue("/root/main/cond/dialflag   		 "));
    model.makeValue("/root/send/hngnm   		    ", model.getValue("/root/main/cond/hngnm   		     "));
    model.makeValue("/root/send/pid   			    ", model.getValue("/root/main/cond/pid   			     "));
    model.makeValue("/root/send/maintepatrgstdd1", model.getValue("/root/main/cond/maintepatrgstdd1"));
    model.makeValue("/root/send/maintepatrgstdd2", model.getValue("/root/main/cond/maintepatrgstdd2"));
    model.makeValue("/root/send/allsearchyn", model.getValue("/root/main/cond/allsearchyn"));	//20100401-kys-ÀüüÇ׸ñÃß°¡
    model.removeNodeset("/root/main/dialhdmpglist");
    submit("TRMND01201");
	  
    //** À¯Áö±¸ºÐ [Àüȯ]ÀÏ °æ¿ì À¯Áö±¸ºÐ Ç׸ñ ¼öÁ¤ºÒ°¡(readonly) **//
    for(var i=1; i<grd_dialhdmpglist.rows; i++){
    	 grd_dialhdmpglist.textmatrix(i,1) = "";  //»óÅ°ª ÃʱâÈ­
    	 grd_dialhdmpglist.isReadOnly(i, 7) = false; 
       if(model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+i+"]/matnflag") == "5"){
           grd_dialhdmpglist.isReadOnly(i, 7) = true;
       }
    }

/*
	 for(var i=1;i<=grd_dialhdmpglist.rows;i++){
	 	   var histstat = grd_dialhdmpglist.textmatrix(i,19);	//½ÇÁ¦ ȯÀÚÀÇ ÀÔ¿ø/¿Ü·¡ »óÅÂ(histstat)
	 	   switch(histstat){
	 	   	  case 'Y':
	 	   	  	   grd_dialhdmpglist.textmatrix(i,19) = "I";
	 	   	  	   break;
	 	   	  case 'R':
	 	   	  	   grd_dialhdmpglist.textmatrix(i,19) = "O";
	 	   	  	   break;
	 	   	  case 'T':
	 	   	  	   grd_dialhdmpglist.textmatrix(i,19) = "O";
	 	   }//end of switch
  }
*/
}                                                          

/**
 * @group  :
 * @ver    : 2007.04.12
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : dialhdmpglist ¿¢¼¿ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveToExcel(){
	var fileName = window.fileDialog("save", ",", false, "excel", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");		
	if (fileName != ""){
		grd_dialhdmpglist.saveExcel(fileName, "SheetName", true, true, "", "", false);
	}
}

/**
 * @group  :
 * @ver    : 2007.04.13
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : dialhdmpglist ÀúÀå½Ã
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSavelist(){

	//20090209 dhkim
	//¼Ò°æÈ­itc¿äû»çÇ×
	//ÀúÀåÀü À¯Áö±¸ºÐÀÌ Àü¿ø/»ç¸ÁÀÎ °æ¿ì outÀÏÀ» ÇʼöÀÔ·ÂÇÑ´Ù.
	var matnflag = '';//À¯Áö±¸ºÐ
	var chnghospdd = ''; //OutÀÏ
	var grdStat = '';
	for(var i = 1; i <= grd_dialhdmpglist.rows; i++){
		grdStat = grd_dialhdmpglist.rowStatus(i);
		matnflag   = model.getValue('/root/main/dialhdmpglist/dialhdmpginfo[' + i + ']/matnflag');
		chnghospdd = model.getValue('/root/main/dialhdmpglist/dialhdmpginfo[' + i + ']/chnghospdd');
		if(grdStat == 2){
			if((matnflag == '2' || matnflag == '3') && chnghospdd == ''){ //1 : À¯Áö, 2: Àü¿ø, 3: »ç¸Á, 4: ½ÅÀåÀ̽Ä, 5: Àüȯ
				messageBox( i + '¹ø° ȯÀÚÀÇ OutÀÏÀ» ÀÔ·ÂÇϼ¼¿ä.', 'E999');
				return false;
			}
		}
	}
	
	model.removenode("/root/send");
	model.makeNode  ("/root/send");				   
	model.makeValue("/root/send/savedata",grd_dialhdmpglist.getupdatedataAll("i"));	
	submit("TXMND01201");
	fSelect_dialhdmpglist(); //°á°úÁ¶È¸ ÇÔ¼öÈ£Ãâ
}

/**
 * @group  :
 * @ver    : 2007.04.13
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : dialhdmpglist Çà»èÁ¦ »óÅ°ª ÁöÁ¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetstatusDel(){
	var iRow = grd_dialhdmpglist.row;
	grd_dialhdmpglist.textmatrix(iRow,1) = "d";  //»óÅ°ª ÁöÁ¤(delete)
	
	if(messageBox("", "Q001", "") == 6) {               // ¸Þ¼¼Áö¹Ú½º ("»èÁ¦ ÇϽðڽÀ´Ï±î?") (return : yes=6, no=7) 
  	    fSavelist(); //ÀúÀåÇÔ¼ö È£Ãâ
	      grd_dialhdmpglist.deleteitem(iRow); //È­¸é»ó¿¡¼­ Çà»èÁ¦
	      fSelect_dialhdmpglist(); //°á°úÁ¶È¸ ÇÔ¼öÈ£Ãâ   
  } else {
  	    return;
  }
}

/**
 * @group  :
 * @ver    : 2007.04.13
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : dialhdmpglist ÀԷ½à »óÅ°ª ÁöÁ¤
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetstatusUp(iRow, iCol, sMatnFlag, sDialFalgYN){
  if(grd_dialhdmpglist.textmatrix(iRow, iCol) != ""){ 
    if(iCol == 13){ // OutÀÏ            
    	 if(sMatnFlag != 2 && sMatnFlag != 3){ //À¯Áö±¸ºÐ : Àü¿ø, »ç¸ÁÀÌ ¾Æ´Ò ¶§
    	      messageBox("[Àü¿ø] ¹× [»ç¸Á]ȯÀÚ¸¸ OutÀÏ ÀÔ·ÂÀÌ", "I006", "À¯Áö±¸ºÐÀ» È®ÀÎÇϽʽÿÀ.");
    	      grd_dialhdmpglist.textmatrix(iRow, iCol) = "";
    	      return;
        }
      }
    if(iCol == 14){ // Àü¿øº´¿ø
    	 if(sMatnFlag != 2){   //À¯Áö±¸ºÐ : Àü¿øÀÌ ¾Æ´Ò ¶§
    	      messageBox("[Àü¿ø]ȯÀÚ¸¸ Àü¿øº´¿ø ÀÔ·ÂÀÌ", "I006", "À¯Áö±¸ºÐÀ» È®ÀÎÇϽʽÿÀ.");
    	      grd_dialhdmpglist.textmatrix(iRow, iCol) = "";
    	      return;
        }
    }
  }
  if(sDialFalgYN == "Y"){  // HD=>PD,PD=>HD·Î Åõ¼®±¸ºÐ º¯°æ ½Ã(±âÁ¸Åõ¼®±¸ºÐÀÇ À¯Áö±¸ºÐ "Àüȯ"À¸·Î update & »õ·Î¿îÅõ¼®±¸ºÐÀÇ À¯Áö±¸ºÐ "À¯Áö"·Î insert)
	  grd_dialhdmpglist.textmatrix(iRow,1) = "ui";  //»óÅ°ª ÁöÁ¤(update & insert)
  }else{ grd_dialhdmpglist.textmatrix(iRow,1) = "u";  //»óÅ°ª ÁöÁ¤(update)
  }
}

/**
 * @group  :
 * @ver    : 2007.04.16
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : µµ°ü±â·Ï PopUpÈ£Ãâ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPopup(){
	var iRow = grd_dialhdmpglist.row;
	var dFlag = grd_dialhdmpglist.valuematrix(iRow,5);  // Åõ¼®±¸ºÐ
	var sMaintePatRgstDD = grd_dialhdmpglist.valuematrix(iRow,8);  // À¯ÁöȯÀÚµî·ÏÀÏÀÚ
	
	// »ó´ÜÁ¤º¸ ¼³Á¤
	fsetHngBaseInfo(); 
	
	// µµ°ü±â·Ï Æ˾÷
	model.makeValue("/root/main/paminfo/list/maintepatrgstdd", sMaintePatRgstDD);
	
	if(dFlag == "H"){   //HD
		modal("SMMND01300", "", 100, 100, "SMMND01300", "/root/main/paminfo/list", "/root/temp/paminfo");
	}else{            	//PD
		modal("SMMND01400", "", 100, 100, "SMMND01400", "/root/main/paminfo/list", "/root/temp/paminfo");
	}
}

/**
 * @group  :
 * @ver    : 2007.05.22
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é»ó´Ü Á¤º¸¼³Á¤
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fsetHngBaseInfo(){
	      //**»ó´ÜÁ¤º¸ ÃʱâÈ­**//
        delPatientInfos(); //È­¸é»ó´ÜÁ¤º¸ »èÁ¦
        setGlobalVariable("paminfo", ""); //¿ø¹«Á¤º¸ reset
        if(getNodesetCount("/root/main/paminfo") > 0) {
             model.removeNodeset("/root/main/paminfo/list");
        }
      	
      	var iRow = grd_dialhdmpglist.row;
      	
        // »ó´Ü ȯÀÚÁ¤º¸ parameter 
        // var sIoflag    = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo[" + iRow + "]/histstat" );  //¿ø¹« ÀÔ¿ø¿Ü·¡±¸ºÐ(histstat)		
        var sPid       = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo[" + iRow + "]/pid     " );  //µî·Ï¹øÈ£	     
        
        //20141110 kya  Åð¿øȯÀÚÀÇ »ó´ÜÁ¤º¸Á¶È¸¸¦ À§ÇØ, ÃÖÁ¾ ÀÔ¿øÀÏÀÚ¸¦ °¡Á®¿È
        var sIndd      = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo[" + iRow + "]/indd" );  //ÀÔ¿øÀÏÀÚ        
        if ( sIndd == "") {  //20151211 ¼öÁ¤ 
            var isDate     = getCurrentDate();
                isDate     = isDate.toDate().getAddDate(1,'D');  
        }else{       
	    var isDate     = sIndd.toDate().getAddDate(1,'D');
        } 
        var sRgstdd    = isDate.getDateFormat("YYYYMMDD");
         
       // alert( "sIndd = " + sIndd + ", sRgstdd = " + sRgstdd);
 
        model.removenode("/root/send");
        model.makeNode  ("/root/send");	                                                                       
        model.makeValue    ("/root/send/reqdata/pid"     , sPid   );                                                
        model.makeValue    ("/root/send/reqdata/histstat", sIoflag);  
        
        //20141110 kya  Åð¿øȯÀÚÀÇ »ó´ÜÁ¤º¸Á¶È¸¸¦ À§ÇØ Ãß°¡ÇÔ
        model.makeValue    ("/root/send/reqdata/indd", sIndd);                                      

        model.removeNodeset("/root/temp/gettoplist");                                                               
        submit("TRMND00103");
        
        var sCretno    = model.getValue("/root/temp/gettoplist/gettopinfo/cretno"    );               //»ý¼º¹øÈ£    
        var sSeqno     = model.getValue("/root/temp/gettoplist/gettopinfo/seqno"     );               //ÀϷùøÈ£    
        var sInstcd    = model.getValue("/root/temp/gettoplist/gettopinfo/instcd"    );               //±â°üÄÚµå    
        var sIndd      = model.getValue("/root/temp/gettoplist/gettopinfo/indd"      );               //ÀÔ¿øÀÏÀÚ    
        var sOrddd     = model.getValue("/root/temp/gettoplist/gettopinfo/orddd"     );               //Áø·áÀÏÀÚ    
        var sAcptseqno = model.getValue("/root/temp/gettoplist/gettopinfo/acptseqno" );               //µî·ÏÀϷùøÈ£
        var sOrgorddd  = model.getValue("/root/temp/gettoplist/gettopinfo/orgorddd"  );               //¿øÁø·áÀÏÀÚ  
        var sIoflag    = model.getValue("/root/temp/gettoplist/gettopinfo/ioflag"    );               //ÀÔ¿ø¿Ü·¡±¸ºÐ
        var sParam;                                                                                            
       
        
        
       
         if(sIoflag == "O") { //¿Ü·¡È¯ÀÚÀÏ °æ¿ì(histstat : "O")   
     	     sParam  = (sIoflag + "¢Ë" + sPid + "¢Ë" + sOrddd + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë" + sAcptseqno + "¢Ë" + sOrgorddd );      
         } else {            //ÀÔ¿ø/ÀÀ±ÞȯÀÚÀÏ °æ¿ì(histstat : "I", "E")   
           // 20141110 by kya Åð¿øȯÀÚ Á¶È¸¸¦ À§ÇØ ¼öÁ¤ÇÔ
     	   // sParam  = (sIoflag + "¢Ë" + sPid  + "¢Ë" + sIndd   + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë"   );      
            sParam  = (sIoflag + "¢Ë" + sPid  + "¢Ë" + sIndd   + "¢Ë" + sCretno + "¢Ë" + sInstcd + "¢Ë" + sRgstdd   );      
         } 
      
        

        setParameter("condparam", sParam);     
        modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
        
        var node = getGlobalVariable("paminfo");
        setCSVToNode("/root/main/paminfo", node);                                    
} 


/**
 * @group  :
 * @ver    : 2007.08.20
 * @by     : ±èÁø¾Æ
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿¹¾àÁ¤º¸ Á¸Àç¿©ºÎ È®ÀÎ
 * @param  :
 * @return :	
 * @---------------------------------------------------
 */
function fChkRsrvExistYN_bak(iRow, iCol){
	 model.removeNodeset("/root/send");
	 model.makevalue("/root/send/reqdata/pid"            , model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/pid"));
	 model.makevalue("/root/send/reqdata/dialflag"       , model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/dialflag"));
	 model.makevalue("/root/send/reqdata/maintepatrgstdd", model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/maintepatrgstdd"));
	 if(iCol==7){        // À¯Áö±¸ºÐ º¯°æ½Ã
	 	   model.makevalue("/root/send/reqdata/srchflag", "Y");
	 }else if(iCol==5){  // Åõ¼®±¸ºÐ º¯°æ½Ã
	 	   model.makevalue("/root/send/reqdata/srchflag", "N");
	 }
	 model.removeNodeset("/root/main/chklist"); 
   submit("TRMND01202");
   
   //** ¿¹¾àÁ¤º¸ Á¸Àç¿©ºÎ¿¡ µû¸¥ ¸Þ¼¼Áö **//
   var sRsrvExistYN = model.getValue("/root/main/chklist/chkinfo/rsrvexistyn");
   var sDialFlag    = model.getValue("/root/main/chklist/chkinfo/dialflag"   );
   var sMatnFlag    = model.getValue("/root/main/chklist/chkinfo/matnflag"   );
   var sDmpgYN      = model.getValue("/root/main/chklist/chkinfo/dmpgyn"     );
   
   if(sRsrvExistYN == "Y") {           // ¿¹¾àÁ¤º¸ Á¸ÀçÇÔ
   	      var sDialFlagVal = "";
          switch(sDialFlag){
             case "H":  sDialFlagVal = "HD"; break;
             case "P":  sDialFlagVal = "PD"; break;
             default:   sDialFlagVal = "-";
          }
   	      messageBox("ÇØ´çȯÀÚÀÇ ["+sDialFlagVal+"]¿¹¾àÁ¤º¸°¡ Á¸ÀçÇÕ´Ï´Ù.", "I", "ÀüȯÀ» °è¼Ó ÁøÇàÇϽ÷Á¸é »ó´ÜÀÇ [ÀúÀå]¹öÆ°À» ´©¸£½Ê½Ã¿À.");
   	    //  fSelect_dialhdmpglist();	// Åõ¼®À¯ÁöȯÀÚ ¸®½ºÆ® Á¶È¸
   	      return;
   } 
}


/**
 * @group  :
 * @ver    : 2009.02.24
 * @by     : ±è¾ç¼ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿¹¾àÁ¤º¸ Á¸Àç¿©ºÎ È®ÀÎ
 * @param  :
 * @return :	
 * @---------------------------------------------------
 */
function fChkRsrvExistYN(iRow, iCol){
	 model.removeNodeset("/root/send");
	 model.makevalue("/root/send/reqdata/pid"            , model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/pid"));
	 model.makevalue("/root/send/reqdata/dialflag"       , model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/dialflag"));
	 model.makevalue("/root/send/reqdata/maintepatrgstdd", model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/maintepatrgstdd"));
	 if(iCol==7){        // À¯Áö±¸ºÐ º¯°æ½Ã
	 	   model.makevalue("/root/send/reqdata/srchflag", "Y");
	 //}else if(iCol==5){  // Åõ¼®±¸ºÐ º¯°æ½Ã
	 //	   model.makevalue("/root/send/reqdata/srchflag", "N");
	 }
	 model.removeNodeset("/root/main/chklist"); 
   submit("TRMND01202");
   
   //** ¿¹¾àÁ¤º¸ Á¸Àç¿©ºÎ¿¡ µû¸¥ ¸Þ¼¼Áö **//
   var sRsrvExistYN = model.getValue("/root/main/chklist/chkinfo/rsrvexistyn");
   var sDialFlag    = model.getValue("/root/main/chklist/chkinfo/dialflag"   );
   var sMatnFlag    = model.getValue("/root/main/chklist/chkinfo/matnflag"   );
   var sDmpgYN      = model.getValue("/root/main/chklist/chkinfo/dmpgyn"     );
   
   if(sRsrvExistYN == "Y") {           // ¿¹¾àÁ¤º¸ Á¸ÀçÇÔ
   	      var sDialFlagVal = "";
          switch(sDialFlag){
             case "H":  sDialFlagVal = "HD"; break;
             case "P":  sDialFlagVal = "PD"; break;
             default:   sDialFlagVal = "-";
          }
   	      messageBox("ÇØ´çȯÀÚÀÇ ["+sDialFlagVal+"]¿¹¾àÁ¤º¸°¡ Á¸ÀçÇÕ´Ï´Ù.", "I")
  		  //¹Ì·¡¿¹¾àÀÏÀÚ Ãë¼ÒÈ­¸é È£Ãâ
		  var pid = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/pid");
		  var hngnm = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/hngnm");
		  var sa = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/sexage");
		  var dialflag = model.getValue("/root/main/dialhdmpglist/dialhdmpginfo["+ iRow +"]/dialflag");
		  var patinfo   = pid + "¢Ë" + hngnm + "¢Ë" + sa + "¢Ë" + dialflag;
    
		  setParameter("SMMND03700_patinfo"    , patinfo);
		  modal("SMMND03700");
   } 
}