/*
  
       EDCCall°ü¸®(SMMNE05200.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01
      - Create  : 2009.11.04
*/

var seoulinstcd ;//¼­¿ï¼º¸ð±â°üÄÚµå
var uijungbuinstcd;//ÀÇÁ¤ºÎ¼º¸ð±â°üÄÚµå
var bucheoninstcd; //ºÎõ¼º¸ð±â°üÄÚµå
var vincentinstcd; //ºó¼¾Æ®±â°üÄÚµå

//ÃʱâÈ­			
function fInit() {	

	//20091116 dhkim ±â°üÄÚµå Á¶È¸ Ãß°¡
	var pCode = "'077', '104'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸ , 104¹ø Ãß°¡ ÁßÁõÀÀ±Þ°ü·Ã inpt ¾÷µ¥ÀÌÆ® ÇÒ ÄÚµå Á¶È¸ : 20110308 ±è¿µÇÐ
	var pDate = getCurrentDate(); //Á¶È¸±âÁØÀÏÀÚ
	fGetNursHardCdInfo(pCode, pDate);
	
	//supcdid : '01' : ¼­¿ï¼º¸ð
	if(model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '01' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid")){
		seoulinstcd = model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '01' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid");
	}
	//supcdid : '02' : ÀÇÁ¤ºÎ¼º¸ð
	if(model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '02' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid")){
		uijungbuinstcd = model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '02' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid");
	}
	//supcdid : '03' : ºÎõ¼º¸ð
	if(model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '03' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid")){
		bucheoninstcd = model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '03' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid");
	}
	//supcdid : '04' : ºó¼¾Æ®
	if(model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '04' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid")){
		vincentinstcd = model.getValue("/root/code/codeinfo/codelist[cdgrupid = '077' and supcdid = '04' and cdid = '"+ getUserInfo("dutplceinstcd") +"']/cdid");
	}
	
	//20091116 dhkim New Brain Ãß°¡È£Ãâ ¼­¿ï¼º¸ð¸¸ º¸¿©Áöµµ·Ï ÇÔ
	if(seoulinstcd == getUserInfo("dutplceinstcd")){
		//grp_nbsecond.attribute("visibility") = "visible";
		grp_nbsecond.attribute("visibility") = "hidden";
	}else{
		grp_nbsecond.attribute("visibility") = "hidden";
	}
	
	
	var CurrentDate = getCurrentDate();
	model.makeValue("/root/hidden/con/orddd",CurrentDate);
	model.removeNodeset("/root/main/ordschelist");
	     
	model.copyNode("/root/send/reqdata","/root/hidden/con");
 	submit("TRMNE05003"); //¼¾ÅÍ, Áø·á°ú Á¤º¸ °¡Á®¿È 
 						
 	model.copyNode("/root/send/reqdata","/root/hidden/con");
	
	//pameter setting
	//pid + "¢Ë" + orddd + "¢Ë" + cretno + "¢Ë" + visitno-20090615
	var param = opener.javascript.getParameter("SMMNE05200_param");
	param = param.split("¢Ë");
	model.setValue("/root/tmp/patinfo/pid", param[0]);
	model.setValue("/root/tmp/patinfo/orddd", param[1]);
	model.setValue("/root/tmp/patinfo/cretno", param[2]);
	model.setValue("/root/tmp/patinfo/visitno", param[3]);
	
	//Å×½ºÆ®¿ë
	//model.setValue("/root/tmp/patinfo/pid", "18206032");
	//model.setValue("/root/tmp/patinfo/orddd", "20090529");
	//model.setValue("/root/tmp/patinfo/cretno", "1");
	//model.setValue("/root/tmp/patinfo/visitno", "1");
	
	submit("TRMNE05202"); //ȯÀÚÁ¤º¸ °¡Á®¿È
	var pid = model.getValue("/root/main/erpat/erpatinfo/pid");
	var nm = model.getValue("/root/main/erpat/erpatinfo/nm");
	var sa = model.getValue("/root/main/erpat/erpatinfo/sa");
	var indt = model.getValue("/root/main/erpat/erpatinfo/indt");
	var deptengabbr = model.getValue("/root/main/erpat/erpatinfo/deptengabbr");
	caption2.value = nm + "(" + pid + ") " + sa + " "  + indt + " " + deptengabbr;
	
	//mmbfGetHardCodeInfoNm("/root/send/reqdata", "/root/tmp/grtype", 201);//ÁßÁõ ÀÀ±Þ È£ÃⱸºÐ ¼±ÅÃÇÒ ¸®½ºÆ®¸¦ Á¶È¸ÇÑ´Ù. 
	// ÇϵåÄÚµå °ü¸®µÈ ³»¿ëÀ» ±×·ì ¸¶½ºÅ͸¦ ÅëÇؼ­ Á¶È¸Çϵµ·Ï ¼öÁ¤ÇÑ´Ù.   : 20110308 : ±è¿µÇÐ
	submit("TRMNE05204"); 
	    
	//È£ÃⱸºÐ¼±Åà ¹× ÇùÁø°ú disabled¹× enabledó¸® 
	fSetCaptionGrType();
	
	model.refresh();
	
}


//ÇùÁø°úÁ¶È¸	
function fGetCnstDeptList(callflag) {
	
	model.makeValue("/root/send/reqdata/callflag"	 , callflag);
	submit("TRMNE05201");

	var ref = "/root/main/staffdeptcd/staffdeptlist";
	var cnt = getNodesetCnt(model, ref);
	var chkorddeptcdlist = "";
	
	for ( var i = 1; i <= cnt; i++) 	{		
		var orddeptcd		= model.getValue(ref + "[" + i + "]/orddeptcd");
		chkorddeptcdlist = chkorddeptcdlist + orddeptcd + "|";
	}
	var deptcdlist = chkorddeptcdlist.split("|");
	if (deptcdlist.length > 0) {
		chkorddeptcdlist = chkorddeptcdlist.substring(0, chkorddeptcdlist.length -1);
	}
	
	model.removenode("/root/main/chkdeptcdlist");
	model.makeValue("/root/main/chkdeptcdlist", chkorddeptcdlist);

	chk_orddeptcd.refresh();
}

//20091104 dhkim 
//È£Ãâ À¯È¿¼º üũ
function fIsValidErCallDr(params){

	var paramArr = params.split('|');
	var pid      = paramArr[0];
	var indd     = paramArr[1];
	var cretno   = paramArr[2];
	var visitno  = paramArr[3];
	var intm     = paramArr[4];
	var grtype   = paramArr[5];

	//ȯÀÚÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾ÊÀ¸¸é È£Ãâ µÇÁö ¾Ê°Ô blocking
	if(pid == '' || indd == '' || cretno == '' || visitno == '' || intm == ''){
		messageBox('ȯÀÚÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê¾Æ È£Ãâ ÇÒ ¼ö ¾ø½À´Ï´Ù.', 'E');
		return false;
	}
	
	//È£ÃⱸºÐ¼±ÅÃ
	if(grtype == ''){
		messageBox('È£ÃⱸºÐÀ» ¼±ÅÃÇϽʽÿÀ.', 'E');
		return false;
	}
	
	
	//=========================================================================
	//È£ÃâÁøÇàÁßÀ̸é È£ÃâÀÌ µÇÁö¾Ê°Ô blocking-20090618
	var callingyn = "";
	model.makeValue("/root/send/reqchk/pid",     pid);
	model.makeValue("/root/send/reqchk/indd",    indd);
	model.makeValue("/root/send/reqchk/cretno",  cretno);
	model.makeValue("/root/send/reqchk/visitno", visitno);
	model.makeValue("/root/send/reqchk/grtype",  grtype);
	
	
	if(!submit("TRMNE05203")){
		messageBox('È£Ãâ Áß Ã¼Å©¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.', 'E999');
		return false;
	}else{
		callingyn = model.getValue("/root/tmp/calling/calling/callingyn");
		if(callingyn == "Y"){
			messageBox("È£ÃâÀÌ ÁøÇàÁßÀÔ´Ï´Ù.\n Àá½Ã ÈÄ ´Ù½Ã ½ÃµµÇØ Áֽñ⠹ٶø´Ï´Ù.", "I");
			return false;
		}
	}
	
	
	return true;
}


//È£Ãâ	
//20091116 dhkim grtype±¸ºÐÀÚÃß°¡
function fErCallDr(grtype){

	//ȯÀÚÁ¤º¸
	var pid     = model.getValue("/root/main/erpat/erpatinfo/pid");
	var patnm   = model.getValue("/root/main/erpat/erpatinfo/nm");
	var indd    = model.getValue("/root/main/erpat/erpatinfo/indd");
	var cretno  = model.getValue("/root/main/erpat/erpatinfo/cretno");
	var visitno = model.getValue("/root/tmp/patinfo/visitno");
	var intm    = model.getValue("/root/main/erpat/erpatinfo/intm");
	
	//ÀÀ±ÞÀÇÇаú ÀüÈ­¹øÈ£
	var cntctel = model.getValue("/root/main/erpat/erpatinfo/cntctel");
	cntctel = cntctel.replace(/-/gi, '');
	//ÁÖÁø·á°ú
	var maindeptcd = model.getValue("/root/main/condition/orddeptcd");
	
	//È£ÃⱸºÐ : 
	//var grtype = model.getValue("/root/main/condition/grtype");
	if(grtype == null || grtype == ''){
		grtype = model.getValue("/root/main/condition/grtype");
	}
	var grtypenm = "";
	// ÇϵåÄÚµùµÈ ºÎºÐ Á¦°Å (¸¶½ºÅÍ¿¡¼­ °ª °¡Áö°í ¿Àµµ·Ï ¼öÁ¤ : 20110308 ±è¿µÇÐ
	grtypenm    = model.getValue("/root/init/grtypeinfo/grtypelist[grtype = '" + grtype + "' ]/grname");
	/*
	if(grtype == "1"){
		grtypenm = "Trauma";
	}
	else if(grtype == "2"){
		grtypenm = "New Brain";
	}
	else if(grtype == "3"){
		grtypenm = "New Heart";
	} else if(grtype == "4"){
		grtypenm = "´ÙÁõ»ó ³»°ú°è";
	}
	*/
	var params = pid     + '|' 
	           + indd    + '|' 
	           + cretno  + '|' 
	           + visitno + '|' 
	           + intm    + '|'
	           + grtype
	           ;
	//È£ÃâÀü À¯È¿¼ºÃ¼Å©
	if(!fIsValidErCallDr(params))	
		return;
	
	//==========================================================================
	
	var sSrchData   = "";
	var sSrchHeader = "pid"				+"¢Ë" 
	                + "patnm"			+"¢Ë"
	                + "indd"			+"¢Ë"
	                + "cretno"			+"¢Ë"
	                + "visitno"			+"¢Ë"
	                + "intm"			+"¢Ë"
	                + "grtype"			+"¢Ë"//È£ÃⱸºÐ : 
	                + "grtypenm" 		+"¢Ë"
	                + "cntctel"			+"¢Ë"
	                + "orddeptcd"		+"¢Ì"
	                ;
	//ÁÖÁøÁø·á°ú¼ÂÆÃ
	var sSrchData   = pid 				+"¢Ë"
					+ patnm   			+"¢Ë"
					+ indd      		+"¢Ë"
					+ cretno    		+"¢Ë"
					+ visitno       	+"¢Ë" 
					+ intm 				+"¢Ë"
					+ grtype 			+"¢Ë"
					+ grtypenm			+"¢Ë"
					+ cntctel			+"¢Ë"
					+ maindeptcd    	+"¢Ì"
					;
		
	//üũµÈ °¢ ÇùÁø°ú¿¡ ȯÀÚÁ¤º¸ attach
	var calldeptcd = model.getValue("/root/main/chkdeptcdlist");//üũ¹Ú½º¿¡ µé¾îÀִ°ª
	var sendcalldeptcd = calldeptcd.split("|");
	for(var i = 0;i < sendcalldeptcd.length;i++){
		var sSrchData = sSrchData 	
		              + pid					+"¢Ë"
		              + patnm   			+"¢Ë"
		              + indd      			+"¢Ë"
		              + cretno    			+"¢Ë"
		              + visitno     		+"¢Ë" 
		              + intm 				+"¢Ë"
		              + grtype 				+"¢Ë"
		              + grtypenm			+"¢Ë"
		              + cntctel				+"¢Ë"
		              + sendcalldeptcd[i]	+"¢Ì";
	} 
	model.makeValue("/root/send/reqdata/inscallinfo", sSrchHeader + sSrchData);
	
	if(submit("TXMNE05201")){
		
		//ÃÑ È£Ãâ¼ö 
		var totcallcnt = model.getValue('/root/tmp/temp/rslt/callinfo/totcallcnt');
		
		
		//-----------------------------------------------------------------------------------------------------------
		//  inptÅ×ÀÌºí¿¡ ÁõÁõ ÄÚµå ÀÚµ¿ µî·Ï --> inptÀÇ ¸íĪÀÌ recovwardcd·Î µÇ¾îÀÖÀ¸³ª ÁßÁõµî·ÏÄÚµåÀÓ! Çò°¥¸² ÁÖÀÇ!
		//-----------------------------------------------------------------------------------------------------------
		model.makeValue("/root/tmp2/pid",pid);
		model.makeValue("/root/tmp2/indd",indd);
		model.makeValue("/root/tmp2/cretno",cretno);
		model.makeValue("/root/tmp2/visitno",visitno);
		
        //ÇϵåÄÚµùµÈ ºÎºÐÀ» ÇϵåÄÚµåÅ×À̺í ÀÌ¿ë ÇϵåÄÚµù Á¦°Å : 20110308 ±è¿µÇÐ
        grname = model.getValue("/root/code/codeinfo/codelist[cdgrupid = '104' and cdnm = '" + cpt_grtype.attribute("text") + "']/cdid");		   
        /*
		if(grtype == "1"){
			model.makeValue("/root/tmp2/recovwardcd" , grname);
	    } else if(grtype == "2"){
	    	model.makeValue("/root/tmp2/recovwardcd" , "02") ; //  "New Brain"
	    } else if(grtype == "3"){
	    	model.makeValue("/root/tmp2/recovwardcd" , "01") ;  //"New Heart";
	    } else if(grtype == "4"){	
	        model.makeValue("/root/tmp2/recovwardcd" , "06") ;  //"New Heart";
	    }
		*/    
		if(submit("TXMNE05202")) {
		}
		//---------------------------------------------------------------------------------------
		//messageBox("È£Ãâ("+ cpt_grtype.attribute("text") +")µÇ¾ú½À´Ï´Ù.(ÃÑ" + totcallcnt + "°Ç)", "I");
		messageBox("È£Ãâ("+ cpt_grtype.attribute("text") +")µÇ¾ú½À´Ï´Ù.", "I");
	}else{
		if(isSearchString(model.getValue('/root/properties/error/code'), 'info') == false){
			messageBox('È£ÃâÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù.', 'E999');
			return;
		}
	}
}

//20091116 dhkim
//È£ÃⱸºÐ¼±Åýà ÁßÁõ±¸ºÐ ĸ¼Ç ³»¿ë Ç¥½Ã ¹× ÇùÁø°ú üũ disable (±âÁ¸¼Ò½º¸¦ Æã¼ÇÀ¸·Î ºÐ¸®)
function fSetCaptionGrType(){

	var grtype = rdo_grtype.value;
	//if (grtype != "4") {
	    fGetCnstDeptList(grtype);
	//} else if (grtype == "4") {
//	   model.setValue("/root/main/chkdeptcdlist", ""); 
	//}

    cpt_grtype.attribute("text")    = model.getValue("/root/init/grtypeinfo/grtypelist[grtype = '" + grtype + "' ]/grtypesym");
	/*					
	if(grtype == "1"){
		cpt_grtype.attribute("text")="T¡Ú";
	} else if(grtype == "2"){
		cpt_grtype.attribute("text")="B¡Ú" ; //  "New Brain"
	} else if(grtype == "3"){
		cpt_grtype.attribute("text")="C¡Ú" ;  //"New Heart";
	} else if(grtype == "4"){
		cpt_grtype.attribute("text")="M¡Ú" ;  //"New Heart";
	}
	*/					
						
						//üũ¹Ú½ºÀÇ disable true½Ã ¾îµÎ¿öÁ® À̹ÌÁöÄÁÆ®·Ñ·Î ´ëüÇÔ.-20090617
						
//						if(grtype == "4"){ //ÀϹÝȯÀÚÃß°¡½Ã »ç¿ë
//							button1.attribute("visibility") = "hidden";
//							button1.attribute("disabled") = false;
//						}else{
//							button1.attribute("visibility") = "visible";
//							button1.attribute("disabled") = true;
//						}
						
		//----------------------------------------------------			
	
	
	
	//if(dutinstcd == "013"){          //ÀϹÝȯÀÚÃß°¡½Ã »ç¿ë  || ( grtype=="1")
	
	//20091116 dhkim ±â°üÄÚµå ÇϵåÄÚµù ¼öÁ¤
	//ÀÇÁ¤ºÎÀÇ °æ¿ì Æ®¶ó¿ì¸¶ ¼±Åýà ÇÏÀ§ºÎ¼­ üũ¸¦ Ç®¾îÁØ´Ù
/*
    if(uijungbuinstcd == getUserInfo("dutplceinstcd")){
						
		if  ( grtype=="1") {
			button1.attribute("visibility") = "hidden";
			button1.attribute("disabled") = false;
		} else {
			button1.attribute("visibility") = "visible";
			button1.attribute("disabled") = true;
		}
						   
	}else{
		button1.attribute("visibility") = "visible";
		button1.attribute("disabled") = true;
	}
	
	if ( grtype=="4") {
		button1.attribute("visibility") = "hidden";
		button1.attribute("disabled") = false;	    
	}
*/
	button1.attribute("visibility") = "hidden";
	button1.attribute("disabled") = false;    
	model.refresh();
}


//20091104 dhkim
//New Brain 2Â÷È£Ãâ
//2Â÷call: ½Å°æ¿Ü°ú ÀÓ»ó°­»ç(fellow), Angio¹æ±â»ç¿¡°Ô È£Ãâ grtype:6
function fSecondCallNB(){

	if(messageBox("New Brain 2Â÷È£ÃâÀ» ÁøÇàÇϽðڽÀ´Ï±î?", "Q") == 7){
		return;
	}
	
	//20091118 dhkim
	//ÁßÁõ±¸ºÐĸ¼Ç New Brain°ú µ¿ÀÏÇÏ°Ô Àû¿ë --> B¡Ú
	cpt_grtype.attribute("text")="B¡Ú" ;

	var grtype = "6";
	var grtypenm = "";
	
	//new brain 2Â÷´Â ¼­¿ï¼º¸ð¸¸ Àû¿ëÀÓ 
	if(seoulinstcd == getUserInfo("dutplceinstcd")){
		grtypenm = "New Brain 2Â÷";
	}else{
		messageBox("ÇöÀç 2Â÷È£ÃâÀº ¼­¿ï¼º¸ð¿¡¼­¸¸ »ç¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.", "E");
		return;
	}
	
	//ȯÀÚÁ¤º¸
	var pid     = model.getValue("/root/main/erpat/erpatinfo/pid");
	var patnm   = model.getValue("/root/main/erpat/erpatinfo/nm");
	var indd    = model.getValue("/root/main/erpat/erpatinfo/indd");
	var cretno  = model.getValue("/root/main/erpat/erpatinfo/cretno");
	var visitno = model.getValue("/root/tmp/patinfo/visitno");
	var intm    = model.getValue("/root/main/erpat/erpatinfo/intm");
	
	//ÀÀ±ÞÀÇÇаú ÀüÈ­¹øÈ£
	var cntctel = model.getValue("/root/main/erpat/erpatinfo/cntctel");
	cntctel = cntctel.replace(/-/gi, '');
	
	var params = pid     + '|' 
	           + indd    + '|' 
	           + cretno  + '|' 
	           + visitno + '|' 
	           + intm    + '|'
	           + grtype
	           ;
	//È£ÃâÀü À¯È¿¼ºÃ¼Å©
	if(!fIsValidErCallDr(params))	
		return;
	
	
	var sSrchData   = "";
	var sSrchHeader = "pid"				+"¢Ë" 
	                + "patnm"			+"¢Ë"
	                + "indd"			+"¢Ë"
	                + "cretno"			+"¢Ë"
	                + "visitno"			+"¢Ë"
	                + "intm"			+"¢Ë"
	                + "grtype"			+"¢Ë"//È£ÃⱸºÐ : 
	                + "grtypenm" 		+"¢Ë"
	                + "cntctel"			+"¢Ë"
	                + "callflag"		+"¢Ë"//2Â÷, Á¾·áÈ£ÃⱸºÐ
	                + "orddeptcd"		+"¢Ì"
	                ;
	//ȯÀÚÁ¤º¸¼ÂÆÃ
	var sSrchData   = pid 				+"¢Ë"
					+ patnm   			+"¢Ë"
					+ indd      		+"¢Ë"
					+ cretno    		+"¢Ë"
					+ visitno       	+"¢Ë" 
					+ intm 				+"¢Ë"
					+ grtype 			+"¢Ë"
					+ grtypenm			+"¢Ë"
					+ cntctel			+"¢Ë"
					+ "2"				+"¢Ë" //2Â÷, Á¾·áÈ£ÃⱸºÐ - 2: 2Â÷È£Ãâ, 3: Á¾·áÈ£Ãâ
					+ '-'    			+"¢Ì" //new brain 2Â÷È£ÃâÀº ÁÖ/ºÎ°ú ¼¼Æà µû·Î ±¸ºÐ ¾øÀ½.
					;
		
	model.makeValue("/root/send/reqdata/inscallinfo", sSrchHeader + sSrchData);
	
	if(submit("TXMNE05203")){
		//ÃÑ È£Ãâ¼ö 
		var totcallcnt = model.getValue('/root/tmp/temp/rslt/callinfo/totcallcnt');
		messageBox("2Â÷ È£Ãâ("+ cpt_grtype.attribute("text") +")µÇ¾ú½À´Ï´Ù.", "I");
	}else{
		if(isSearchString(model.getValue('/root/properties/error/code'), 'info') == false){
			messageBox('È£ÃâÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù.', 'E999');
			return;
		}
	}

	
	
}


//20091104 dhkim
//New Brain Á¾·áÈ£Ãâ
function fFinalCallNB(){
	
	//»ç¿ë½Ã±â : TPA¾àÁ¦ ½ÃÀÛÀüÀ̳ª »ç¿ëÈÄ ¶Ç´Â AngioÇϱâ Àü¿¡ ½Å°æ°ú Àǻ簡 ÆÇ´ÜÇÏ¿© È£ÃâÇÔ.
	//È£Ãâ´ë»ó : 1, 2Â÷ New Brain È£ÃâÀÚ Àüü
	
	

	if(messageBox("New Brain Á¾·áÈ£ÃâÀ» ÁøÇàÇϽðڽÀ´Ï±î?", "Q") == 7){
		return;
	}
	
	//ÁßÁõ±¸ºÐĸ¼Ç New Brain°ú µ¿ÀÏÇÏ°Ô Àû¿ë --> B¡Ú
	cpt_grtype.attribute("text")="B¡Ú" ;

	var grtype = "6";
	var grtypenm = "";
	
	//new brain Á¾·á´Â ¼­¿ï¼º¸ð¸¸ Àû¿ëÀÓ 
	if(seoulinstcd == getUserInfo("dutplceinstcd")){
		grtypenm = "New Brain";
	}else{
		messageBox("ÇöÀç Á¾·áÈ£ÃâÀº ¼­¿ï¼º¸ð¿¡¼­¸¸ »ç¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.", "E");
		return;
	}
	
	//ȯÀÚÁ¤º¸
	var pid     = model.getValue("/root/main/erpat/erpatinfo/pid");
	var patnm   = model.getValue("/root/main/erpat/erpatinfo/nm");
	var indd    = model.getValue("/root/main/erpat/erpatinfo/indd");
	var cretno  = model.getValue("/root/main/erpat/erpatinfo/cretno");
	var visitno = model.getValue("/root/tmp/patinfo/visitno");
	var intm    = model.getValue("/root/main/erpat/erpatinfo/intm");
	
	//ÀÀ±ÞÀÇÇаú ÀüÈ­¹øÈ£
	var cntctel = model.getValue("/root/main/erpat/erpatinfo/cntctel");
	cntctel = cntctel.replace(/-/gi, '');
	
	var params = pid     + '|' 
	           + indd    + '|' 
	           + cretno  + '|' 
	           + visitno + '|' 
	           + intm    + '|'
	           + grtype
	           ;
	//È£ÃâÀü À¯È¿¼ºÃ¼Å©
	if(!fIsValidErCallDr(params))	
		return;
	
	
	var sSrchData   = "";
	var sSrchHeader = "pid"				+"¢Ë" 
	                + "patnm"			+"¢Ë"
	                + "indd"			+"¢Ë"
	                + "cretno"			+"¢Ë"
	                + "visitno"			+"¢Ë"
	                + "intm"			+"¢Ë"
	                + "grtype"			+"¢Ë"//È£ÃⱸºÐ : 
	                + "grtypenm" 		+"¢Ë"
	                + "cntctel"			+"¢Ë"
	                + "callflag"		+"¢Ë"//2Â÷, Á¾·áÈ£ÃⱸºÐ
	                + "orddeptcd"		+"¢Ì"
	                ;
	//ȯÀÚÁ¤º¸¼ÂÆÃ
	var sSrchData   = pid 				+"¢Ë"
					+ patnm   			+"¢Ë"
					+ indd      		+"¢Ë"
					+ cretno    		+"¢Ë"
					+ visitno       	+"¢Ë" 
					+ intm 				+"¢Ë"
					+ grtype 			+"¢Ë"
					+ grtypenm			+"¢Ë"
					+ cntctel			+"¢Ë"
					+ "3"				+"¢Ë" //2Â÷, Á¾·áÈ£ÃⱸºÐ - 2: 2Â÷È£Ãâ, 3: Á¾·áÈ£Ãâ
					+ '-'    			+"¢Ì" //new brain 2Â÷È£ÃâÀº ÁÖ/ºÎ°ú ¼¼Æà µû·Î ±¸ºÐ ¾øÀ½.
					;
		
	model.makeValue("/root/send/reqdata/inscallinfo", sSrchHeader + sSrchData);
	
	if(submit("TXMNE05203")){
		//ÃÑ È£Ãâ¼ö 
		var totcallcnt = model.getValue('/root/tmp/temp/rslt/callinfo/totcallcnt');
		messageBox("Á¾·á È£Ãâ("+ cpt_grtype.attribute("text") +")µÇ¾ú½À´Ï´Ù.", "I");
	}else{
		if(isSearchString(model.getValue('/root/properties/error/code'), 'info') == false){
			messageBox('È£ÃâÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù.', 'E999');
			return;
		}
	}

	
	
}