/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*+++++++++++*
 * ver    : 20090702
 * create : dhkim
 * desc   : ¾Ï¼¾ÅÍÁÖ»ç½Ç / BMTÁÖ»ç½Ç / DCC / DSC ¿¡¼­ °øµ¿À¸·Î »ç¿ëÇÒ ½ºÅ©¸³Æ®µé ¸ðÀ½
 *          injspecialroomweb¿¡¼­ »ç¿ë
 *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*++++++++*/

//±Û·Î¹úº¯¼ö
var _pid, _indd, _cretno, _ordtype, _mediapclid, _roomcd, _sexage, _hngnm;
 


// ------------------------------------------------------------------
// ¿Ü·¡¿¹¾àó¹æ ¼±Åà ¹× ÀúÀå È­¸é È£Ãâ_20090701Ãß°¡(dhkim)
// ------------------------------------------------------------------
function  fGetRsrvPrcpChemo(pid, indd, cretno, ordtype, medispclid, roomcd, sexage, hngnm){

	model.removenode('/root/main_rp/init/M0005info');
	model.makeNode('/root/main_rp/init/M0005info');
	zbcfGetCodeList(new Array( "M0005" ), new Array("/root/main_rp/init/M0005info"));
	
    grd_prcplist.fixedcellcheckbox(0, 0) = true;//üũ¹Ú½º
    
	if(pid == null){
		return ;
	}
	if(roomcd == null){
		roomcd = "º´½Ç";
	}
	if(sexage == null){
		sexage = "S/A";
	}
	if(hngnm == null){
		hngnm = "ȯÀÚ¸í";
	}
	
	//ÃʱâÈ­
	model.removenode('/root/main_rp/rsvpatinfo');
	model.makeValue('/root/main_rp/rsvpatinfo/pid',        pid);
	model.makeValue('/root/main_rp/rsvpatinfo/indd',       indd);
	model.makeValue('/root/main_rp/rsvpatinfo/cretno',     cretno);
	model.makeValue('/root/main_rp/rsvpatinfo/ordtype',    ordtype);
	model.makeValue('/root/main_rp/rsvpatinfo/medispclid', medispclid);
	model.makeValue('/root/main_rp/rsvpatinfo/roomcd',     roomcd);
	model.makeValue('/root/main_rp/rsvpatinfo/sexage',     sexage);
	model.makeValue('/root/main_rp/rsvpatinfo/hngnm',      hngnm);
	
	//ÀçÁ¶È¸½ÃÇÊ¿ä 
	_pid        = pid;
	_indd       = indd;
	_cretno     = cretno;
	_ordtype    = ordtype;
	_medispclid = medispclid;
	_roomcd     = roomcd;
	_sexage     = sexage;
	_hngnm      = hngnm;
	
	model.makeNode('/root/main_rp/rsvprcpinfo/prcplist');
	
	model.refresh();
	
	
	// ¿Ü·¡¿¹¾àó¹æÁ¤º¸ Á¶È¸
	model.removeNodeset("/root/send");
	model.makeValue ( "/root/send/cond1", pid);
	model.makeValue ( "/root/send/cond2", getUserInfo("dutplceinstcd"));
	model.makeValue ( "/root/send/cond3", getCurrentDate());
	
	//20090729 dhkim Ãß°¡
	model.makeValue ( "/root/send/cond4", roomcd);
	model.makeValue ( "/root/send/cond5", sexage);
	model.makeValue ( "/root/send/cond6", hngnm);
	submit ( "TRMNI02101");   
	
	var flag, _flag; 
	var carerpyn; var _carerpcnt = 0;
	var prcphistcd;
	var spcldrug;
	for(var i = 1; i < grd_prcplist.rows; i++){
		//±¸ºÐ merge
		//20090820 dhkim ó¹æÁ¾·ù view¿ëÇʵå·Î º¯°æ. prcpclscd¸¦ »ç¿ëÇÏ¿© ó¹æÀü¼Û½Ã ºÎ¼­¼¼Æÿ¡·¯¹ß»ýÇßÀ½
		flag = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/prcpclscd_vw');
		//flag = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/prcpclscd');
		if(i > 1){
			if(flag == _flag){
				model.setValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/prcpclscd_vw', '');
			}
		}
		_flag = flag;
		
		
		//½Çó¹æÀ¸·Î Ç®¸° °æ¿ì üũ¹Ú½º ºñÈ°¼ºÈ­ ó¸®
		carerpyn = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/carerpyn');
		if(carerpyn == 'Y'){
			//grd_prcplist.ColAttribute(i, 'status') = true;
			grd_prcplist.isReadOnly(i, 0) = true;
			_carerpcnt = _carerpcnt + 1;
		}else{
			//grd_prcplist.ColAttribute(i, 'status') = false;
			grd_prcplist.isReadOnly(i, 0) = false;
		}
		
		
		//20090804 dhkim D/C ±ÛÀÚ»ö º¯°æ(°ËÁ¤ : E, »¡°­ : D, ÆĶû : L)
		prcphistcd = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/prcphistcd');
		if(prcphistcd == 'E'){
			grd_prcplist.cellStyle("color", i, grd_prcplist.colRef("status"), i, grd_prcplist.colRef("prcphopedd")) = "#040000";//°ËÁ¤
		}else if(prcphistcd == 'D'){
			grd_prcplist.cellStyle("color", i, grd_prcplist.colRef("status"), i, grd_prcplist.colRef("prcphopedd")) = "#FF0000";//»¡°­
		}else if(prcphistcd == 'L'){
			grd_prcplist.cellStyle("color", i, grd_prcplist.colRef("status"), i, grd_prcplist.colRef("prcphopedd")) = "#0000FF";//ÆĶû
		}else{
			grd_prcplist.cellStyle("color", i, grd_prcplist.colRef("status"), i, grd_prcplist.colRef("prcphopedd")) = "#333333";
		}
		
		
		//20090804 dhkim ¸¶¾à(M), ÇâÁ¤(H)ÀÇ °æ¿ì ±Û¾¾Ã¼ bold·Î º¯°æ
		spcldrug = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/spcldrug');
		if(spcldrug == 'M' || spcldrug == 'H'){
			grd_prcplist.cellStyle("font-weight", i, grd_prcplist.colRef("prcpnm"), i, grd_prcplist.colRef("prcpnm")) = "bold";
		}else{
			grd_prcplist.cellStyle("font-weight", i, grd_prcplist.colRef("prcpnm"), i, grd_prcplist.colRef("prcpnm")) = "normal";
		}
	}
	
	//ºñÈ°¼ºÈ­°¡ ÇÑ°³¶óµµ Á¸ÀçÇϸé üũ¹Ú½ºÀüü¼±ÅÃÀ» ¸øÇϵµ·Ï ¾ø¾Ø´Ù.
	if(_carerpcnt > 0){
    	grd_prcplist.fixedcellcheckbox(0, 0) = false;//üũ¹Ú½º
	}else{
		grd_prcplist.fixedcellcheckbox(0, 0) = true;//üũ¹Ú½º
	}
	
	model.refresh();
	return ;
}


/**
 * ----------------------------------------------------------------------------------
 * @date   : 20090728 
 * @author : dhkim 
 * ---------------------------------------------------------------------------------- 
 * @dssc   : ¿¹¾àó¹æÀü¼Û
 *           ÀÔ½ÇüũÀü¿¡´Â ó¹æÁ¶È¸¸¸ °¡´É -> ÀÔ½Çüũ ÀÌÀü ó¹æÀü¼Û½Ã blocking
 *           ÀÔ½ÇüũÀÌÈÄ Ã³¹æÀü¼Û °¡´É : Àü¼ÛµÈó¹æÀº ºñÈ°¼ºÈ­
 *           ó¹æÀü¼ÛÈÄ ordermanageÀÇ ¹ÌÈ®ÀÎó¹æ¿¡ ½×ÀÌÁö ¾Ê°í ó¹æÀû¿ëÀÏ¿¡ ¹Ù·Î ´©Àû
 * ----------------------------------------------------------------------------------
 */
function fSendRsrvPrcpChemo(){

	if(fIsValidChemo()){
		
		var rtnCnt = messageBox('¿¹¾àó¹æÀü¼ÛÀ»', 'Q004');
		if(rtnCnt == 6){
			
			
			//ÆĶó¹ÌÅÍ°ª¼¼ÆÃ
			var pid          = model.getValue('/root/main_rp/rsvpatinfo/pid');
			var orddd        = model.getValue('/root/main_rp/rsvpatinfo/indd');
			var cretno       = model.getValue('/root/main_rp/rsvpatinfo/cretno');
			var ioflag       = model.getValue('/root/main_rp/rsvpatinfo/ordtype');
			var aftcertdrid  = model.getValue('/root/main_rp/rsvpatinfo/medispclid');
			var prcpdd       = getCurrentDate();
			
			//20090819 dhkim prcpinptflag¸¦ 33(¿¹¾àó¹æ)À¸·Î ³Ñ±è (from. hit ¼ÕÁÖ¿¬´ë¸®´Ô)
			var prcpinptflag = "33";
			//var prcpinptflag = "00";
			var prcpkindcd   = "00";
			var prcpsignflag = "1";
			var aftcertflag  = "12";
			
			model.removenode('/root/send');
			model.removenode('/root/main_rp/paminfo');
			model.removenode('/root/main_rp/saveflaginfo');
		
			model.makeValue ( "/root/main_rp/paminfo/pid",    pid);
			model.makeValue ( "/root/main_rp/paminfo/orddd",  orddd);
			model.makeValue ( "/root/main_rp/paminfo/cretno", cretno);
			model.makeValue ( "/root/main_rp/paminfo/instcd", getUserInfo("dutplceinstcd"));
			model.makeValue ( "/root/main_rp/paminfo/prcpdd", prcpdd);
			model.makeValue ( "/root/main_rp/paminfo/deptcd", getUserInfo("dutplcecd"));																									
			model.makeValue ( "/root/main_rp/paminfo/userid", getUserInfo ("userid"));	
			
			model.makeValue ( "/root/main_rp/saveflaginfo/savedataflag", "2" );
			model.makeValue ( "/root/main_rp/saveflaginfo/saveflag",     ioflag); //ÀúÀ屸ºÐ O:¿Ü·¡, I:ÀÔ¿ø, E:ÀÀ±Þ, S:°ÇÁø
			model.makeValue ( "/root/main_rp/saveflaginfo/prcpflag",     "-" );              
			model.makeValue ( "/root/main_rp/saveflaginfo/inptflag",     prcpinptflag);//ÀԷ±¸ºÐ: ÀԷ±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0034 ÂüÁ¶)
			model.makeValue ( "/root/main_rp/saveflaginfo/pamflag",      "N" );//¿ø¹«Á¤º¸: 󸮱¸ºÐ (¿Ü·¡¸¸ ÇØ´ç Y/N)
			model.makeValue ( "/root/main_rp/saveflaginfo/deptcd",       getUserInfo("dutplcecd")); 		//ºÎ¼­ÄÚµå
			model.makeValue ( "/root/main_rp/saveflaginfo/deptnm",       getUserInfo("dutplcenm")); 	//ºÎ¼­¸í
			model.makeValue ( "/root/main_rp/saveflaginfo/userid",       getUserInfo("userid"));    		//»ç¿ëÀÚID
			model.makeValue ( "/root/main_rp/saveflaginfo/usernm",       getUserInfo("usernm"));    	//»ç¿ëÀÚ¸í
			model.makeValue ( "/root/main_rp/saveflaginfo/signyn",       "N" );        
			model.makeValue ( "/root/main_rp/saveflaginfo/prcpdd",       prcpdd);    
			model.makeValue ( "/root/main_rp/saveflaginfo/diagflag",     "N"); //Áø´ÜÁ¤º¸ 󸮱¸ºÐ (Y/N) -> NÀÏ °æ¿ì checkÇÏÁö ¾ÊÀ½. ('Y'À̸é Áø´Ü¾øÀÌ Ã³¹æ ÀúÀåÀÌ ¾ÈµÊ)
			
			model.makeValue ( "/root/saveflaginfo/prcperrflag",  "N" ); 
			model.refresh();
			grd_prcplist.rebuild();
			
			
			//¿¹¾àó¹æÀü¼Û
		    var srcNodeList = model.instances(0).selectNodes ("/root/main_rp/rsvprcpinfo/prcplist");	
		    var curitem = 0;
			var nochkcnt = 0;
			for ( var i = 1; i<grd_prcplist.rows; i++ ) {
				if ( model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/status" ) != "I" ) {
					nochkcnt++;
				} else {
					model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpkindcd", prcpkindcd);
					model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpinptflag", prcpinptflag);							
					
					var prcphopedd = prcpdd;
					//ÀÇ»ç Èñ¸ÁÀÏÀÌ ÇöÀç ó¹æÀÏ¿¡¼­ Áö³­°Íµé¸¸ Àû¿ë
					if ( prcphopedd > model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcphopedd" )) {
						model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcphopedd", prcphopedd );							
					}									
					//if ( !isNull(opener.javascript.getParameter ( "SPMMO18200_prcpstatcd" ))) {
					//	model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpstatcd", opener.javascript.getParameter ( "SPMMO18200_prcpstatcd" ));
					//}							
					if ( !isNull(prcpsignflag)) {
						model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpsignflag", prcpsignflag);
					}
					//if ( !isNull(opener.javascript.getParameter ( "SPMMO18200_oprsrvno" ))) {
					//	model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/oprsrvno", opener.javascript.getParameter ( "SPMMO18200_oprsrvno" ));
					//}							
					//if ( !isNull(opener.javascript.getParameter ( "SPMMO18200_prcpauthflag" ))) {
					//	model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpauthflag", opener.javascript.getParameter ( "SPMMO18200_prcpauthflag" ));
					//}					
					if ( !isNull(aftcertflag)) {
						model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/aftcertflag", aftcertflag);
					}							
					if ( !isNull(aftcertdrid)) {
						model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/aftcertdrid", aftcertdrid);
					}				
					
					//alert(i + '¹ø° ioflag : ' + ioflag + ' prcpcd : ' + model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpcd" )
					// + ' prcpclscd : ' +  model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpclscd" )
					// + ' prcpclscd substr : ' + model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpclscd" ).substring (0,1));
					
					
					if ( "O" != ioflag) {
						if ( model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpclscd" ) == "B4" ) {
							model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prepprcpflag", "Y");
						} else  if ( model.getValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpclscd" ).substring (0,1) == "A"  ) {
							//ÀÔ¿øbase ¾àó¹æÀΰæ¿ì º´µ¿¾à±¹À¸·Î setting, ¿ø³»Ã³¸®
							var antideptcd = fDrugDeptcdChk("/root/main_rp/rsvprcpinfo", i );
							//alert('execdept '+ antideptcd);
							if ( isNull(antideptcd)) {
								model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpexecdeptcd", "3240300000" );
							} else {
								model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/prcpexecdeptcd", antideptcd );
							}
							model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/hosinhosoutflag", "I" );
							model.setValue ( "/root/main_rp/rsvprcpinfo/prcplist[" + i + "]/hosinprcpresncd", "00" );
						}
					}
					
				}
			}				
			var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/main_rp/rsvprcpinfo/prcplist" );		
			model.makeValue ( "/root/send/cond1", getNodeListCSV(saveFlagInfoNodeList)); 				
			var savePamInfoNodeList = model.instances(0).selectNodes( "/root/main_rp/paminfo" );		
			model.makeValue ( "/root/send/cond2", getNodeListCSV(savePamInfoNodeList)); 
			var saveFlagInfoNodeList = model.instances(0).selectNodes( "/root/main_rp/saveflaginfo" );		
			model.makeValue ( "/root/send/cond3", getNodeListCSV(saveFlagInfoNodeList)); 
			
			if ( nochkcnt > 0 ) { 
				if ( messageBox ( "üũ¾ÈµÈ ó¹æÀº ÀüȯÀÌ ¾ÈµË´Ï´Ù. ÀúÀåÇϽðڽÀ´Ï±î?", "Q" ) != "6" ) return;
			}
			
			
			//return ;
			
			if (submit ( "TXMMO18201", false )) {						
				var prcpErrList = model.instances(0).selectNodes( "/root/errresult/prcperrlist" );
				if ( prcpErrList.length > 0 ) {
					xpt = window.screenleft + 10;
					ypt = window.screenTop + 0;                    
					coord = getRelativeCoordinate ( xpt, ypt );
					mon = coord[0];
					xpt = coord[1];
					ypt = coord[2];
					open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/errresult", "/root/result", "", false ); //¿À·ùÆ˾÷
					return;
				}else{
					
					messageBox('Àü¼ÛÀ» ¿Ï·áÇß½À´Ï´Ù.', 'E999');
					fGetRsrvPrcpChemo(_pid, _indd, _cretno, _ordtype, _medispclid, _roomcd, _sexage, _hngnm);//ÀçÁ¶È¸
					
				}
			}
		}
	}
	
}


/**
 * ----------------------------------------------------------------------------------
 * @date   : 20090728 
 * @author : dhkim 
 * ---------------------------------------------------------------------------------- 
 * @dssc   : ¿¹¾àó¹æÀü¼Û Àü À¯È¿¼º üũ
 *           ÀÔ½ÇüũÀü¿¡´Â ó¹æÁ¶È¸¸¸ °¡´É -> ÀÔ½Çüũ ÀÌÀü ó¹æÀü¼Û½Ã blocking
 *           ÀÔ½ÇüũÀÌÈÄ Ã³¹æÀü¼Û °¡´É : Àü¼ÛµÈó¹æÀº ºñÈ°¼ºÈ­
 *           ó¹æÀü¼ÛÈÄ ordermanageÀÇ ¹ÌÈ®ÀÎó¹æ¿¡ ½×ÀÌÁö ¾Ê°í ó¹æÀû¿ëÀÏ¿¡ ¹Ù·Î ´©Àû
 * ----------------------------------------------------------------------------------
 */
function fIsValidChemo(){

	//Àü¼ÛÇÒ Ã³¹æÀÌ Ã¼Å©µÇ¾ú´ÂÁö È®ÀÎ
	var chk; var chkCnt = 0;
	for(var i = 1; i <= grd_prcplist.rows; i++){
		
		chk = model.getValue('/root/main_rp/rsvprcpinfo/prcplist[' + i + ']/status');
		if(chk == 'I'){
			chkCnt = chkCnt + 1;
		}
	}
	
	if(chkCnt == 0){
		messageBox('Àü¼ÛÇÒ Ã³¹æÀ» ¼±ÅÃÇϼ¼¿ä.', 'E999');
		return false;
	}
	
	
	
	//ÇØ´çȯÀÚ°¡ ÀÔ½Çüũ ÀÌÀüÀÎÁö Á¶È¸
	var pid   =  model.getValue('/root/main_rp/rsvpatinfo/pid');
	var indd  =  model.getValue('/root/main_rp/rsvpatinfo/indd');
	model.removenode('/root/send');
	model.makeValue('/root/send/pid',  pid);
	model.makeValue('/root/send/indd', indd);
	
	model.removenode('/root/main_rp/patinyninfo');
	model.makeNode('/root/main_rp/patinyninfo');
	
	if(submit('TRMNI02102')){
		var cnt = model.getValue('/root/main_rp/patinyninfo/cnt');
		if(cnt < 1){
			messageBox('ÀÔ½ÇüũÀü¿¡´Â ó¹æÀ» Àü¼ÛÇÒ ¼ö ¾ø½À´Ï´Ù.', 'E999');
			return false;
		}
	}
	
	return true;
}