/*
  
      »êºÎÀΰú ÀڱðæºÎ ¾Ï°á°úÀÔ·Â(SMMNO04000.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01 
*/
var uijeongbuinstcd="", buchuninstcd="", vincentinstcd="", yeuidoinstcd=""; // ÀÇÁ¤ºÎ¼º¸ð,ºÎõ¼º°¡, ¼ººó¼¾Æ®º´¿ø±â°üÄÚµå
var seoulinstcd="";	//¼­¿ï¼º¸ð±â°üÄÚµå
var OBGYdeptcd = "";
/**
 * @desc   : È­¸é ÃʱâÈ­
 * @
 * @param  :
 * @event  :
 * @return :
 * @---------------------------------------------------
 */
function fInit(){
	//¿À´Ã ³¯Â¥·Î ÃʱâÈ­ ÇÏ´Â ºÎºÐ.(Áø·áÀÏÀÚ¸¦ default·Î ¿À´Ã ³¯Â¥·Î ¼±ÅÃÇÔ)
	var dt = getCurrentDate();

	model.setValue("/root/main/cond/fromdd", dt);
	model.setValue("/root/main/cond/todd", dt);
	
	grd_obgypatlist.fixedcellcheckbox(0,1) = true;
	
	cmb_base.select(2);	//°á°úÀÏÀÚ¸¦ óÀ½ setting
	
	model.setValue("/root/main/cond/srchobgy", "Y");
	model.setValue("/root/main/cond/srchetc", "N"); 
	
	// °£È£ ȯ°æ¼³Á¤Å×À̺í Á¶È¸
	var pCode = "'069','077'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸
	var pDate = getCurrentDate(); //Á¶È¸±âÁØÀÏÀÚ
	fGetNursHardCdInfo(pCode, pDate);
	
	for(var i=1; i<=getNodesetCount("/root/code/codeinfo/codelist"); i++){	   	    	
    switch (model.getValue("/root/code/codeinfo/codelist["+i+"]/cdgrupid")){
    	case "069":  // »êºÎÀΰú
  			OBGYdeptcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
  			break;
		case "077":  // ÀÇÁ¤ºÎ¼º¸ðº´¿ø±â°üÄÚµå_20090606 
    	    switch(model.getValue("/root/code/codeinfo/codelist["+i+"]/supcdid")){
    	    	case "01":  // (01:¼­¿ï¼º¸ð,02:ÀÇÁ¤ºÎ¼º¸ð,03:ºÎõ¼º°¡, 04:¼ººó¼¾Æ®)-20090811
    	    	   seoulinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
    	    	   break;
				case "02":  // (01:¼­¿ï¼º¸ð,02:ÀÇÁ¤ºÎ¼º¸ð,03:ºÎõ¼º°¡, 04:¼ººó¼¾Æ®)
    	    	   uijeongbuinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
    	    	   break;
    	    	case "03":  // (01:¼­¿ï¼º¸ð,02:ÀÇÁ¤ºÎ¼º¸ð,03:ºÎõ¼º°¡, 04:¼ººó¼¾Æ®)
    	    	   sunggainstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
    	    	   break;
    	    	case "04":  // (01:¼­¿ï¼º¸ð,02:ÀÇÁ¤ºÎ¼º¸ð,03:ºÎõ¼º°¡, 04:¼ººó¼¾Æ®)
    	    	   vincentinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
    	    	   break;
    	    	case "05":  // (01:¼­¿ï¼º¸ð,02:ÀÇÁ¤ºÎ¼º¸ð,03:ºÎõ¼º°¡, 04:¼ººó¼¾Æ®, 05:¿©Àǵµ¼º¸ð)
    	    	   yeuidoinstcd = model.getValue("/root/code/codeinfo/codelist["+i+"]/cdid");
    	    	   break;
    	    	   
    	    }
	}
  }
  fDeptTelNo();	//»êºÎÀΰú ¿Ü·¡ÀüÈ­¹øÈ£¸¦ Á¶È¸.
  model.refresh();
}

/**
 * @group  :
 * @ver    : 2010.03.08
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : »êºÎÀΰú ¿Ü·¡ÀüÈ­¹øÈ£¸¦ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDeptTelNo(){
	model.removeNodeset("/root/send");
	model.makeNode("/root/send");
	model.makeValue("/root/send/fromdd"         , model.getValue("/root/main/cond/fromdd"));
	model.makeValue("/root/send/todd"      , model.getValue("/root/main/cond/todd"));
	model.makeValue("/root/send/basedd"        , model.getValue("/root/main/cond/basedd"));	
	model.makeValue("/root/send/pid"        , model.getValue("/root/main/cond/pid"));

	model.removenode("/root/temp/depttel");
	if(!submit("TRMNO04004")){
 		messageBox("Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
	
	}
}

/**
 * @group  :
 * @ver    : 2010.02.25
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀڱðæºÎȯÀÚ  Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSearch(){
	var condobgyyn = "";
	if(model.getValue("/root/main/cond/pid") == ""){	//µî·Ï¹øÈ£·Î Á¶È¸½Ã¿¡´Â Pass
		var fromDate = model.getValue("/root/main/cond/fromdd"); // fromdd
		var toDate = 	model.getValue("/root/main/cond/todd");  // todd	
		var sdaycnt = getDateInterval(fromDate, toDate);           // todd - fromdd Àϼö°è»ê
		if(parseInt(sdaycnt) + 1 > 31){
			messageBox("31ÀÏÀÌ»óÀº Á¶È¸ ÇϽǼö ¾ø½À´Ï´Ù.", "I");
 			return;
		}
	}
	
	grd_obgypatlist.fixedcellischeck(0,1) = false;	//fixedcell üũ¹Ú½º Ç®±â
	
	//20100426-kys-Á¶È¸Á¶°Ç Ãß°¡
	if(model.getValue("/root/main/cond/srchobgy") == "N" && model.getValue("/root/main/cond/srchetc") == "N"){
		messageBox("Áø·á°ú¸¦ ¼±ÅÃÇÏ¼Å¾ß ÇÕ´Ï´Ù.", "I");
 		return;
	}
	
	if(model.getValue("/root/main/cond/srchobgy") == "Y"){
		condobgyyn = "O";	//»êºÎÀΰú
	}
	
	if(model.getValue("/root/main/cond/srchetc") == "Y"){
		condobgyyn = "E";	//±×¿Ü Áø·á°ú
	}
	
	if(model.getValue("/root/main/cond/srchobgy") == "Y" && model.getValue("/root/main/cond/srchetc") == "Y"){
		condobgyyn = "";	//»êºÎÀΰú ¹× ±×¿Ü Áø·á°ú
	}
	
	model.removeNodeset("/root/send");
	model.makeNode("/root/send");
	
	model.makeValue("/root/send/fromdd"         , model.getValue("/root/main/cond/fromdd"));
	model.makeValue("/root/send/todd"      , model.getValue("/root/main/cond/todd"));
	model.makeValue("/root/send/basedd"        , model.getValue("/root/main/cond/basedd"));	
	model.makeValue("/root/send/pid"        , model.getValue("/root/main/cond/pid"));
	model.makeValue("/root/send/condobgyyn"        , condobgyyn);

	model.removenode("/root/main/obgypatlist");
 	if(!submit("TRMNO04001")){
 		messageBox("Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
		if(model.getValue("/root/main/cond/basedd") == "1"){
			grd_obgypatlist.caption = "^¼ö³³ÀÏÀÚ^µî·Ï¹øÈ£^¼º¸í^¼¾ÅÍ^Áø·á°ú^ÇÏÀ§ºÎ¼­^ÁÖÄ¡ÀÇ^°á°ú^Ãâ·Â^»óÅÂ^´ÙÀ½¿¹¾à1^´ÙÀ½¿¹¾à2^ÀüÈ­¹øÈ£1^ÀüÈ­¹øÈ£2^SMS^Àü¼Û^ÀÔ¿ø¿¹Á¤ÀÏ^ÀÔ¿øÀÏ^¼ö¼ú¿¹Á¤ÀÏ^¿ìÆí¹øÈ£^ÁÖ¼Ò^ºñ°í^±â°üÄÚµå^Áø·áÀÏ^cretno^ƯÀÌ»çÇ×Á¸Àç¿©ºÎ^msgkey^status";
		}else if(model.getValue("/root/main/cond/basedd") == "2"){
			grd_obgypatlist.caption = "^ó¹æÀÏÀÚ^µî·Ï¹øÈ£^¼º¸í^¼¾ÅÍ^Áø·á°ú^ÇÏÀ§ºÎ¼­^ÁÖÄ¡ÀÇ^°á°ú^Ãâ·Â^»óÅÂ^´ÙÀ½¿¹¾à1^´ÙÀ½¿¹¾à2^ÀüÈ­¹øÈ£1^ÀüÈ­¹øÈ£2^SMS^Àü¼Û^ÀÔ¿ø¿¹Á¤ÀÏ^ÀÔ¿øÀÏ^¼ö¼ú¿¹Á¤ÀÏ^¿ìÆí¹øÈ£^ÁÖ¼Ò^ºñ°í^±â°üÄÚµå^Áø·áÀÏ^cretno^ƯÀÌ»çÇ×Á¸Àç¿©ºÎ^msgkey^status";
		}else{
			grd_obgypatlist.caption = "^°á°úÀÏÀÚ^µî·Ï¹øÈ£^¼º¸í^¼¾ÅÍ^Áø·á°ú^ÇÏÀ§ºÎ¼­^ÁÖÄ¡ÀÇ^°á°ú^Ãâ·Â^»óÅÂ^´ÙÀ½¿¹¾à1^´ÙÀ½¿¹¾à2^ÀüÈ­¹øÈ£1^ÀüÈ­¹øÈ£2^SMS^Àü¼Û^ÀÔ¿ø¿¹Á¤ÀÏ^ÀÔ¿øÀÏ^¼ö¼ú¿¹Á¤ÀÏ^¿ìÆí¹øÈ£^ÁÖ¼Ò^ºñ°í^±â°üÄÚµå^Áø·áÀÏ^cretno^ƯÀÌ»çÇ×Á¸Àç¿©ºÎ^msgkey^status";
		}
		//°á°ú°¡ Á¤»óÀÏ°æ¿ì(1) ±Û¾¾»ö Ç¥½Ã(»¡°­)
		for(var i=1;i<=getNodesetCount("/root/main/obgypatlist/obgypatlistinfo");i++){
		  var status = model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/status");
		  var examrslt = model.getValue("/root/main/obgypatlist/obgypatlistinfo["+i+"]/examrslt")
		  if(examrslt == "1" && status == "i"){
              grd_obgypatlist.rowstyle(i, "data", "color")  = "#ff0000";	//»¡°­
          }else{
			  grd_obgypatlist.rowstyle(i, "data", "color")  = "#000000";	 //°ËÁ¤
		  }
		}
	}
	button4.value = "¡à  ƯÀÌ»çÇ×";
	fInitExamRslt("");	//¼ÂÆÃµÈ °ª Ŭ¸®¾î
	model.refresh();
}

/**
 * @group  :
 * @ver    : 2010.02.26
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀÇ °¡Àå ÃÖ±Ù º´¸®°Ë»ç Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPatExamRsltSrch(){
	model.removeNodeset("/root/send");
	model.makeNode("/root/send");

	model.makeValue("/root/send/pid"         , model.getValue("/root/temp/pid"));
	model.makeValue("/root/send/histsrchyn"         , "N");
	
	model.removenode("/root/temp/examrsltlist");
 	if(!submit("TRMNO04002")){
 		messageBox("Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
		//alert("getNodesetCount(/root/temp/examrsltlist) : " + getNodesetCount("/root/temp/examrsltlist/examrsltlistinfo"));
		if(getNodesetCount("/root/temp/examrsltlist/examrsltlistinfo") > 0){
			model.makeValue("/root/temp/examrslttxt",model.getValue("/root/temp/examrsltlist/examrsltlistinfo/rsltcnts"));	 //º´¸®°Ë»ç°á°ú
			model.makeValue("/root/temp/ptno", "¡Ú Lab. No. " + model.getValue("/root/temp/examrsltlist/examrsltlistinfo/ptno"));	 //º´¸®¹øÈ£
			var prcpdd = model.getValue("/root/temp/examrsltlist/examrsltlistinfo/prcpdd");	 //ó¹æÀÏ
			var acptdt = model.getValue("/root/temp/examrsltlist/examrsltlistinfo/acptdt");	 //Á¢¼ö½Ã°£
			model.makeValue("/root/temp/prcpdd", "¢Ñ ó¹æ½Ã°£ : " + prcpdd.toDate().getDateFormat("YYYY-MM-DD") + ", Á¢¼ö½Ã°£ : " + acptdt.toDate("YYYYMMDDhhmmss").getDateFormat("YYYY-MM-DD hh:mm:ss"));
		}else{
			model.removeNode("/root/temp/examrslttxt");
			model.removeNode("/root/temp/ptno");
			model.removeNode("/root/temp/prcpdd");
		}
		tar_examrslt.refresh();
		output3.refresh();
		output4.refresh();
	}
}

/**
 * @group  :
 * @ver    : 2010.03.04
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀÇ º´¸®°Ë»ç ÀÌ·ÂÁ¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPatExamHist(){
	model.removeNodeset("/root/send");
	model.makeNode("/root/send");

	model.makeValue("/root/send/pid"         , model.getValue("/root/temp/pid"));
	model.makeValue("/root/send/histsrchyn"         , "Y");
	
	model.removenode("/root/temp/patexamhistlist");
 	if(!submit("TRMNO04003")){
 		messageBox("Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
	
	}
	grd_examhist.refresh();
}

/**
 * @group  :
 * @ver    : 2010.03.04
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀÇ º´¸®°Ë»ç À̷ Ŭ¸¯
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPatExamHistClick(){
	model.removeNode("/root/temp/examrslttxt");
	model.removeNode("/root/temp/ptno");
	model.removeNode("/root/temp/prcpdd");
	model.makeValue("/root/temp/examrslttxt",model.getValue("/root/temp/patexamhistlist/patexamhistinfo["+ grd_examhist.row +"]/rsltcnts"));	 //º´¸®°Ë»ç°á°ú
	model.makeValue("/root/temp/ptno", "¡Ú Lab. No. " + model.getValue("/root/temp/patexamhistlist/patexamhistinfo["+ grd_examhist.row +"]/ptno"));	 //º´¸®¹øÈ£
	var prcpdd = model.getValue("/root/temp/patexamhistlist/patexamhistinfo["+ grd_examhist.row +"]/prcpdd");	 //ó¹æÀÏ
	var acptdt = model.getValue("/root/temp/patexamhistlist/patexamhistinfo["+ grd_examhist.row +"]/acptdt");	 //Á¢¼ö½Ã°£
	model.makeValue("/root/temp/prcpdd", "¢Ñ ó¹æ½Ã°£ : " + prcpdd.toDate().getDateFormat("YYYY-MM-DD") + ", Á¢¼ö½Ã°£ : " + acptdt.toDate("YYYYMMDDhhmmss").getDateFormat("YYYY-MM-DD hh:mm:ss"));
	group2.attribute("visibility") = "hidden";
	tar_examrslt.refresh();
	output3.refresh();
	output4.refresh();
}

/**
 * @group  :
 * @ver    : 2010.03.04
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¼ÂÆÃµÈ °ª ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInitExamRslt(flag){
	model.removeNode("/root/temp/examrslttxt");
	model.removeNode("/root/temp/ptno");
	model.removeNode("/root/temp/prcpdd");
	if(flag != "1"){	//Á¶È¸¹öÆ° Ŭ¸¯ÀÌ ¾Æ´Ï¸é..
		model.removeNode("/root/temp/smssendcnts");
	}
	model.removeNode("/root/temp/pid");
	model.removeNode("/root/temp/patnm");
	model.refresh();
}

/**
 * @group  :
 * @ver    : 2010.03.05
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¿ìÆí¹° Ãâ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fPrntPost(){
	var j = 1;
	var instnm = "";
	var smstestrslt = "";
	model.removenode("/root/temp/printdata");
	model.makeNode("/root/temp/printdata");
	//±â°ü¿¡ µû¸¥ ¸íĪº¯°æ
	if(getUserInfo("dutplceinstcd") == seoulinstcd){
		instnm = "¼­¿ï ¼º¸ð»êºÎÀΰú(¿Ü·¡)"
	}else if(getUserInfo("dutplceinstcd") == yeuidoinstcd){
		instnm = "¿©Àǵµ ¼º¸ð»êºÎÀΰú(¿Ü·¡)"
	}else if(getUserInfo("dutplceinstcd") == uijeongbuinstcd){
		instnm = "ÀÇÁ¤ºÎ ¼º¸ð»êºÎÀΰú(¿Ü·¡)"
	}else if(getUserInfo("dutplceinstcd") == buchuninstcd){
		instnm = "ºÎõ ¼º¸ð»êºÎÀΰú(¿Ü·¡)"
	}else if(getUserInfo("dutplceinstcd") == vincentinstcd){
		instnm = "¼ººó¼¾Æ® »êºÎÀΰú(¿Ü·¡)"
	}
	for(var i=1;i<=getNodesetCount("/root/main/obgypatlist/obgypatlistinfo");i++){
		if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/chk") == "true"){
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/pid", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/pid"));
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/patnm", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/patnm"));
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "1"){
				smstestrslt = "Á¤»ó";
			}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "2"){
				smstestrslt = "ÀüÈ­·Î ¾Ë¸²";
			}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "3"){
				smstestrslt = "Àç°Ë-SMS·Î ¾Ë¸²";
			}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "4"){
				smstestrslt = "Á¤»ó+¿°Áõ¼º¼Ò°ß";
			}
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/smssendcnts", smstestrslt);
			var nextrsrv1 = model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/nextrsrv1");
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/nextrsrv1", nextrsrv1.toDate().getDateFormat("YYYY-MM-DD"));
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/orddepttel", model.getValue("/root/temp/depttellist/depttellistinfo/depttelno"));
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/instnm", instnm);
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/addr", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/addr"));
			model.makeValue("/root/temp/printdata/obgypatlist/obgypatlistinfo[" + j +"]/zipcd", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/zipcd"));
			j++;
		}
	}
	clearParameter("reportprintyn");	//20100520_¹Ì¸®º¸±â⺸ÀÓÀ¸·ÎÃß°¡_kys
	exeReportPreview("RPMNO04000", "XMLSTR", "", "", "", "", "", "", "", "");//20100520_¹Ì¸®º¸±â⺸ÀÓÀ¸·Î¼öÁ¤_kys
}

/**
 * @group  :
 * @ver    : 2010.03.08
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ PrintÁ¤º¸ ÀÔ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInsPrintInfo(){
	var j = 1;
	model.removenode("/root/send/reqinsdata");
	model.makeNode("/root/send/reqinsdata");
	for(var i=1;i<=getNodesetCount("/root/main/obgypatlist/obgypatlistinfo");i++){
		if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/chk") == "true"){
			//if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/prntstat") != "Y"){	//YÀΰæ¿ì data°¡ ÀÖÀ¸¹Ç·Î Á¦¿Ü.
				//var prntstat = model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/prntstat");
				//var smssenddt = model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/smssenddt");
				if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/status") == "i"){	
					model.makeValue("/root/send/reqinsdata[" + j +"]/status", "i");
					model.makeValue("/root/send/reqinsdata[" + j +"]/msgkey", "0");
				}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/status") == "u")	{
					model.makeValue("/root/send/reqinsdata[" + j +"]/status", "u");
					model.makeValue("/root/send/reqinsdata[" + j +"]/msgkey", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/msgkey"));
				}
				model.makeValue("/root/send/reqinsdata[" + j +"]/pid", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/pid"));
				model.makeValue("/root/send/reqinsdata[" + j +"]/orddd", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/orddd"));
				model.makeValue("/root/send/reqinsdata[" + j +"]/cretno", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/cretno"));
				model.makeValue("/root/send/reqinsdata[" + j +"]/prntyn", "Y");
				model.makeValue("/root/send/reqinsdata[" + j +"]/examrslt", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt"));
				model.makeValue("/root/send/reqinsdata[" + j +"]/rem", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/rem"));
				model.makeValue("/root/send/reqinsdata[" + j +"]/saveflag", "P");
				j++;
			//}
		}
	}
	if(!submit("TXMNO04001")){
 		messageBox("ÀúÀå ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return false;
 	}else{
		return true;
	}
}

/**
 * @group  :
 * @ver    : 2010.03.08
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Æ¯ÀÌ»çÇ× Á¶È¸.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fCmmtSrch(){
	model.removenode("/root/send/reqcmmtdata");
	model.makeNode("/root/send/reqcmmtdata");
	model.makeValue("/root/send/reqcmmtdata/pid", model.getValue("/root/temp/pidcmmt"));	//µî·Ï¹øÈ£ set
	if(!submit("TRMNO04005")){
 		messageBox("ƯÀÌ»çÇ× Á¶È¸¸¦ ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
		model.makeValue("/root/temp/pidcmmt", model.getValue("/root/main/obgypatlist/obgypatlistinfo[" + grd_obgypatlist.row+ "]/pid"));	//µî·Ï¹øÈ£ set
		if(model.getValue("/root/temp/patcmmt/patcmmtstmtinfo/patcmmtstmt") == ""){	//°¡Á®¿Â °ªÀÌ ¾ø´Ù¸é ³ëµå »ý¼º.
			model.makeNode("/root/temp/patcmmt/patcmmtstmtinfo/patcmmtstmt");
		}
		inpt_cmmtpid.refresh();
		tar_cmmt.refresh();
	}
}

/**
 * @group  :
 * @ver    : 2010.03.08
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Æ¯ÀÌ»çÇ× ÀúÀå.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInsPatCmmt(){
	if(model.getValue("/root/temp/patcmmt/patcmmtstmtinfo/patcmmtstmt") == ""){
		messageBox("ÀÔ·ÂµÈ ³»¿ëÀÌ ¾ø½À´Ï´Ù.", "E");
		return;
	}
	model.removenode("/root/send/reqinscmmtdata");
	model.makeNode("/root/send/reqinscmmtdata");
	model.makeValue("/root/send/reqinscmmtdata/pid", model.getValue("/root/temp/pidcmmt"));	//µî·Ï¹øÈ£ set
	model.makeValue("/root/send/reqinscmmtdata/patcmmtstmt", model.getValue("/root/temp/patcmmt/patcmmtstmtinfo/patcmmtstmt"));	//µî·Ï¹øÈ£ set
	if(!submit("TXMNO04002")){
 		messageBox("ƯÀÌ»çÇ× ÀúÀåÀ» ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return;
 	}else{
		fCmmtSrch();	//ƯÀÌ»çÇ× Á¶È¸.
		var cmmtyn = model.getValue("/root/main/obgypatlist/obgypatlistinfo[pid = '" + model.getValue("/root/temp/pidcmmt") + "']/cmmtyn");
		if(cmmtyn = "N"){
			model.makeValue("/root/main/obgypatlist/obgypatlistinfo[pid = '" + model.getValue("/root/temp/pidcmmt") + "']/cmmtyn", "Y");
			button4.value = "¡á  ƯÀÌ»çÇ×";
		}
		
	}
}

/**
 * @group  :
 * @ver    : 2010.03.09
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ SMSÀü¼Û ÀÔ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSendSms(){
	var j = 1, k = 0;
	model.removenode("/root/send/reqsmsdata");
	model.makeNode("/root/send/reqsmsdata");
	for(var i=1;i<=getNodesetCount("/root/main/obgypatlist/obgypatlistinfo");i++){
		if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/chk") == "true"){
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == ""){
				messageBox("°á°úÄ÷³¿¡ °ªÀ» ÀÔ·ÂÇÏÁö ¾ÊÀºÇàÀÌ Á¸ÀçÇÕ´Ï´Ù. [ " + i + " ]Çà", "E");
				return false;
			}
			//À¯È¿ÇÏÁö ¾ÊÀº°ª üũ-kys-20100405
			if(eval(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt")) > 4){
				messageBox("°á°úÄ÷³ °ªÀÌ À¯È¿ÇÏÁö ¾ÊÀº ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù. [ " + i +" ]Çà", "E");
				return false;
			}
			
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/smssenddt") != ""){
				messageBox("SMSÀü¼ÛÁßÀ̰ųª Àü¼ÛµÈ ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù. [ " + i +" ]Çà", "E");
				return false;
			}
			
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "2"){
				messageBox("°Ë»ç°á°ú°ú ÀüÈ­·Î ¾Ë¸²ÀÎ °æ¿ì SMS¸¦ º¸³¾¼ö ¾ø½À´Ï´Ù.", "E");
				return false;
			}
			
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "4"){
				messageBox("°Ë»ç°á°ú°ú Àç°Ë+¿°Áõ¼º ¼Ò°ßÀÏ  °æ¿ì SMS¸¦ º¸³¾¼ö ¾ø½À´Ï´Ù.", "E");
				return false;
			}
			
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/hpno") == "" || model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/hpno") == "-"){
				messageBox("ÀüÈ­¹øÈ£2°¡ ¾ø´Â ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù. [" + i + "]Çà", "E");
				return false;
			}
			
			//var prntstat = model.getValue("/root/main/obgypatlist/obgypatlistinfo[" + i + "]/prntstat");
			//var smssenddt = model.getValue("/root/main/obgypatlist/obgypatlistinfo[" + i + "]/smssenddt");
			var depttelno = model.getValue("/root/temp/depttellist/depttellistinfo/depttelno");
			var patnm = model.getValue("/root/main/obgypatlist/obgypatlistinfo[" + i + "]/patnm");
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/status") == "i"){	//µÎ°³ÀÇ °ªÀÌ ¾øÀ¸¸é insert(dataÀÇ Á¸Àç¿©ºÎ¸¦ ÆÇ´Ü)
				model.makeValue("/root/send/reqsmsdata[" + j +"]/status", "i");
				model.makeValue("/root/send/reqsmsdata[" + j +"]/prntyn", "N");	 //printÃâ·Â¿©ºÎ
			}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/status") == "u")	{
				model.makeValue("/root/send/reqsmsdata[" + j +"]/status", "u");
				model.makeValue("/root/send/reqsmsdata[" + j +"]/prntyn", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/prntstat"));	 //printÃâ·Â¿©ºÎ
			}
			model.makeValue("/root/send/reqsmsdata[" + j +"]/pid", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/pid"));	//µî·Ï¹øÈ£
			model.makeValue("/root/send/reqsmsdata[" + j +"]/orddd", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/orddd"));	//Áø·áÀÏ
			model.makeValue("/root/send/reqsmsdata[" + j +"]/cretno", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/cretno"));	//cretno
			model.makeValue("/root/send/reqsmsdata[" + j +"]/examrslt", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt"));	//°Ë»ç°á°ú
			model.makeValue("/root/send/reqsmsdata[" + j +"]/rem", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/rem"));	 //ºñ°í
			model.makeValue("/root/send/reqsmsdata[" + j +"]/mpphontel", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/hpno"));	//ȯÀÚÇÚµåÆù¹øÈ£
			model.makeValue("/root/send/reqsmsdata[" + j +"]/cntctel", depttelno);	//»êºÎÀΰú¿Ü·¡ÀüÈ­¹øÈ£
			model.makeValue("/root/send/reqsmsdata[" + j +"]/hngnm", patnm);	//ȯÀÚ¸í
			if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "1"){	//¾Ï°Ë»ç°á°ú¿¡ µû¸¥ SMS¸Þ½ÃÁö ÀÛ¼º
				model.makeValue("/root/send/reqsmsdata[" + j +"]/msgparam", patnm + "´Ô, ÀڱðæºÎ¾Ï °á°ú°¡ Á¤»óÀÔ´Ï´Ù. »êºÎÀΰú ¿Ü·¡ÀüÈ­¹øÈ£(" + depttelno + ")");
			}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ i +"]/examrslt") == "3"){
				model.makeValue("/root/send/reqsmsdata[" + j +"]/msgparam", patnm + "´Ô, ÀڱðæºÎ¾Ï °á°ú¸¦ È®ÀÎÇϽʽÿÀ. »êºÎÀΰú ¿Ü·¡ÀüÈ­¹øÈ£(" + depttelno + ")");
			}
			j++;
			k++;	//¸Þ¼¼Áö¹Ú½º ÆÇ´Ü º¯¼ö.
		}
	}
	if(k == 1){	//üũÇÑ data°¡ ÇÑ°³ÀÏ °æ¿ì
		var rtnval = "";
		var examrslt = model.getValue("/root/send/reqsmsdata[1]/examrslt");
		if(examrslt == "1"){
			rtnval = messageBox("¸Þ½ÃÁö¸¦ Àü¼ÛÇϽðڽÀ´Ï±î? " , "Q");
			if(rtnval == 7){ //Ãë¼Ò ¹öÆ°À» Ŭ¸¯ÇÑ °æ¿ì
				return false;
			}	
		}else if(examrslt == "3"){
			rtnval = messageBox("Àç°Ë, ¸Þ½ÃÁö¸¦ Àü¼ÛÇϽðڽÀ´Ï±î?" , "Q");
			if(rtnval == 7){ //Ãë¼Ò ¹öÆ°À» Ŭ¸¯ÇÑ °æ¿ì
				return false;
			}
		}
	}else if(k > 1){	//üũÇÑ data°¡ 1°³ ÀÌ»óÀÏ °æ¿ì ´ÜÀÏ ¸Þ½ÃÁö·Î....
		var rtnval = "";
		rtnval = messageBox("¸Þ½ÃÁö¸¦ Àü¼ÛÇϽðڽÀ´Ï±î? " , "Q");
		if(rtnval == 7){ //Ãë¼Ò ¹öÆ°À» Ŭ¸¯ÇÑ °æ¿ì
			return false;
		}
	}
	if(!submit("TXMNO04003")){
 		messageBox("ÀúÀå ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return false;
 	}else{
		return true;
	}
}

/**
 * @group  :
 * @ver    : 2010.03.26
 * @by     : kys
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹ß¼Û³»¿ë ¼±Åýà ÀúÀå.
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveNormal(){
	model.removenode("/root/send/reqinsdata");
	model.makeNode("/root/send/reqinsdata");
	
	if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/status") == "i"){	
		model.makeValue("/root/send/reqinsdata[1]/status", "i");
		model.makeValue("/root/send/reqinsdata[1]/msgkey", "0");
		model.makeValue("/root/send/reqinsdata[1]/prntyn", "N");
	}else if(model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/status") == "u")	{
		model.makeValue("/root/send/reqinsdata[1]/status", "u");
		model.makeValue("/root/send/reqinsdata[1]/msgkey", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/msgkey"));
		model.makeValue("/root/send/reqinsdata[1]/prntyn", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/prntstat"));
	}
	model.makeValue("/root/send/reqinsdata[1]/pid", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/pid"));
	model.makeValue("/root/send/reqinsdata[1]/orddd", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/orddd"));
	model.makeValue("/root/send/reqinsdata[1]/cretno", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/cretno"));
	model.makeValue("/root/send/reqinsdata[1]/examrslt", model.getValue("/root/temp/smssendcnts"));
	model.makeValue("/root/send/reqinsdata[1]/rem", model.getValue("/root/main/obgypatlist/obgypatlistinfo["+ grd_obgypatlist.row +"]/rem"));
	model.makeValue("/root/send/reqinsdata[1]/saveflag", "R");
	
	if(!submit("TXMNO04001")){
 		messageBox("ÀúÀå ½ÇÆÐÇÏ¿´½À´Ï´Ù.", "E");
 		return false;
 	}else{
		messageBox("ÀúÀå µÇ¾ú½À´Ï´Ù.", "I");
		return true;
	}
}