/*
  
      ÇåÇ÷Á¢¼ö=APU¸ÞÀÎ (SMLBD00500.xrw - JScript )

      - Version :
          1)  : Ver.1.00.01
 */

// -------------------------------------------------- 
// È­¸é read
// -------------------------------------------------- 					
function finit() {
	aezfSetSuppDeptcd_local();					
	zbcfGetCodeList( new Array("M0029", "M0007"), new Array("/root/init/cmbinfo/payflagcd", "/root/init/cmbinfo/opansflagcd"));
	
	model.removeNodeset("/root/main/direcprcp/direcprcpinfo");
	model.removeNodeset("/root/main/prcpdetl/prcpdetlinfo");
	model.setValue("/root/main/cond/baseinfo/tdate", getCurrentDate());
	var date = getCurrentDate().toDate().getAddDate(-7,"D").getDateFormat("YYYYMMDD");
	model.setValue("/root/main/cond/baseinfo/sdate", date);

	model.toggle("case1");	
	btn_case1.selected = true;
	btn_case2.selected = false;

	model.toggle("case_apu");	
	btn_apu.selected = true;
	btn_om.selected = false;
		
	grd_keepbaclist.frozenCols = grd_keepbaclist.colRef("prcpnm");
	datagrid1.frozenCols = datagrid1.colRef("prcpnm");
	datagrid2.frozenCols = datagrid2.colRef("prcpnm");
	
	//°øÅëÄÚµå(±Þ¿©±¸ºÐ)
	zbcfGetCodeList(new Array( "M0029" ), new Array("/root/init/payflagcd"),true);						
	
	//fInqurySelectedPrgm();
	btn_apu.selected = true;
	model.toggle("case_apu");
	readfunc();
	//model.refresh();
	
	datagrid1.fixedcellcheckbox(0,1) = true;    //±×¸®µå Çì´õ¿¡ üũ¹öÆ° Ãß°¡
	datagrid2.fixedcellcheckbox(0,1) = true;    //±×¸®µå Çì´õ¿¡ üũ¹öÆ° Ãß°¡
}

// -------------------------------------------------- 
//switch ÀÛ¾÷ ÅäŬ
// -------------------------------------------------- 					
function fInqurySelectedPrgm()
{
	var xPathMainCond	= "/root/main/cond";
	var xPathMainApu	= "/root/main/direcprcp/direcprcpinfo";
	
	var flag	= 	model.getValue(xPathMainCond + "/workflag");
	var pGrd	=	grd_keepbaclist;
	
	if (flag == "om" || flag == "prn") {

		if (pGrd.rows <= 0 || pGrd.row <= 0 ) {
			messageBox("ÀڷḦ ¼±ÅÃÇϽʽÿÀ.", "E999", "");
			return;
		}
		if (model.getValue(xPathMainApu + "[" + pGrd.row + "]/iogb") != "I" ) {
			messageBox("ÀÔ¿øȯÀÚÀΰæ¿ì¸¸ ÇØ´çµË´Ï´Ù.", "E999", "");
			return;
		}
		var tempprcpdd	=	model.getValue(xPathMainApu + "[" + pGrd.row + "]/prcpdd");
		var temppid		=	model.getValue(xPathMainApu + "[" + pGrd.row + "]/pid");
		//var tempwardcd	=	model.getValue(xPathMainApu + "[" + pGrd.row + "]/prcpdd");
		var tempsexage	=	model.getValue(xPathMainApu + "[" + pGrd.row + "]/sex") + "/" +		
							model.getValue(xPathMainApu + "[" + pGrd.row + "]/age");
		var temppatnm	=	model.getValue(xPathMainApu + "[" + pGrd.row + "]/hngnm");		
		
		btn_om.selected = true;
		model.toggle("case_om");
		
		model.setValue("/root/main/cond/orddd", 	tempprcpdd);  // ¾÷¹«ÀÏÀÚ			
		model.setValue("/root/main_om/cond/pid", 	temppid);																													
		//model.setValue("/root/main_om/cond/roomcd", "º´½Ç");																													
		model.setValue("/root/main_om/cond/sexage", tempsexage);																													
		model.setValue("/root/main_om/cond/patnm",	temppatnm);
	}
	switch(flag) {
		case "om" :
			fGetOMPatList("apu");
//			fGetOMPatList("");
			break;			
		case "prn" :
			fSetPrnMode();
			fGetOMPatList("apu");
//			fGetOMPatList("");
			break;
		default :
			btn_apu.selected = true;
			model.toggle("case_apu");
			readfunc();
			break;
	}						
}

//-----------------------------
// APU ¸ÞÀÎ Á¶È¸
//-----------------------------
function readfunc(){
	if (model.getValue("/root/main/cond/baseinfo/sdate") == ""){
		messageBox("Á¶È¸ ½ÃÀÛÀÏÀÚ´Â Çʼö ÀÔ·ÂÇ׸ñÀÔ´Ï´Ù.", "E999", "");
		return;
	}
	if (isDate(model.getValue("/root/main/cond/baseinfo/sdate")) == false){
		messageBox("Á¶È¸ ½ÃÀÛÀÏÀÚÀÇ ³¯Â¥ Çü½ÄÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E999", "");
		return;
	}
	if (model.getValue("/root/main/cond/baseinfo/tdate") == ""){
		messageBox("Á¶È¸ Á¾·áÀÏÀÚ´Â Çʼö ÀÔ·ÂÇ׸ñÀÔ´Ï´Ù.", "E999", "");
		return;
	}
	if (isDate(model.getValue("/root/main/cond/baseinfo/tdate")) == false){
		messageBox("Á¶È¸ Á¾·áÀÏÀÚÀÇ ³¯Â¥ Çü½ÄÀÌ À߸ø ÀԷµǾú½À´Ï´Ù.", "E999", "");
		return;
	}
	if (model.getValue("/root/main/cond/baseinfo/sdate") > model.getValue("/root/main/cond/baseinfo/tdate")){
		messageBox("Á¶È¸ ½ÃÀÛÀÏÀÚ°¡ Á¾·áÀÏÀÚ º¸´Ù Å®´Ï´Ù.", "E999", "");
		return;
	}

//	model.toggle("case1");
//	btn_case1.selected = true;
//	btn_case2.selected = false;

	model.toggle("case_apu");	
	btn_apu.selected = true;
	btn_om.selected = false;
	
	model.removeNodeset("/root/main/direcprcp/direcprcpinfo");
	model.removeNodeset("/root/main/prcpdetl/prcpdetlinfo");
	model.removeNodeset("/root/main/execprcp/execprcpinfo");
	
	model.removeNodeset("/root/send");
	model.makeValue("/root/send/baseinfo/pid", 		model.getValue("/root/main/cond/baseinfo/pid"));
	model.makeValue("/root/send/baseinfo/sdate", 	model.getValue("/root/main/cond/baseinfo/sdate"));
	model.makeValue("/root/send/baseinfo/tdate", 	model.getValue("/root/main/cond/baseinfo/tdate"));
	model.makeValue("/root/send/baseinfo/iogb", 	model.getValue("/root/main/cond/baseinfo/iogb"));
	//model.makeValue("/root/send/baseinfo/deptcd", 	model.getValue("/root/main/cond/globalinstance/instance1"));
	model.makeValue("/root/send/baseinfo/prcpflag",	model.getValue("/root/main/cond/baseinfo/prcpflag"));
		
	if (submit("TRLBD00501")){
	}
	model.refresh();
	
	//Á¶È¸ÈÄ ÀüºÎ ¼öÁ¤ºÒ°¡
	var pGrd = grd_keepbaclist;	
	if (pGrd.rows <= 1 ) return;
	pGrd.isReadOnly(1,1,pGrd.rows-1,pGrd.cols-1)= true;		
}

//-----------------------------
// ó¹æ³»¿ª Á¶È¸
//-----------------------------
function readfunc1(){
	model.removeNodeset("/root/main/prcpdetl/prcpdetlinfo");
	model.removeNodeset("/root/send");
	
	model.makeValue("/root/send/baseinfo1/pid", 		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/pid"));
	model.makeValue("/root/send/baseinfo1/prcpdd", 		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpdd"));
	model.makeValue("/root/send/baseinfo1/prcpcd", 		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpcd"));
	model.makeValue("/root/send/baseinfo1/deptcd", 		model.getValue("/root/main/cond/globalinstance/instance1"));
	model.makeValue("/root/send/baseinfo1/hsctlnkno",	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/hsctlnkno"));
	model.makeValue("/root/send/baseinfo1/dispflag", 	"N");
	model.makeValue("/root/send/baseinfo1/prcpflag", 	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpflag"));
	model.makeValue("/root/send/baseinfo1/iogb",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/iogb"));
	model.makeValue("/root/send/baseinfo1/instcd",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/instcd"));
	model.makeValue("/root/send/baseinfo1/prcpno",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpno"));
	model.makeValue("/root/send/baseinfo1/prcphistno",	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcphistno"));
													
	if (submit("TRLBD00502")){
	}
//						for (var i = 1; i < datagrid1.rows; i ++){
//							if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/execyn") == "Y"){
//								datagrid1.isReadOnly(i, datagrid1.colRef("check")) = true;
//							}else if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/status") == "L"){
//								datagrid1.isReadOnly(i, datagrid1.colRef("check")) = true;
//							}else{
//								datagrid1.isReadOnly(i, datagrid1.colRef("check")) = false;
//							}
//						}
	model.refresh();
	
	//-----------------------------------------------
	//¼±ÅúҰ¡·Î º¯°æ
	//-----------------------------------------------
	var pGrd = datagrid1;
	var pGrdMain = grd_keepbaclist;
	
	if (pGrdMain.rows <= 1 || pGrdMain.row < 1) return; 
	if (pGrd.rows <= 1 ) return;
	
	var tempprcpflag = model.getValue("/root/main/direcprcp/direcprcpinfo[" + pGrdMain.row + "]/prcpflag");

	//ÀüºÎ ¼öÁ¤ºÒ°¡
	pGrd.isReadOnly(1,1,pGrd.rows-1,pGrd.cols-1)= true;
		
	for (var row=1;row<pGrd.rows;row++) {
		
		//prnµµ Áö½Ãó¹æÀ» Ç®¾î¾ß ÇÑ´Ù.
		//if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/prnprcpflag") == "Y") {
		//	continue;
		//}
		if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/dr") == "D/C") {
			continue;
		}
	
		//Áö½Ãó¹æÀ̸鼭 
		if (tempprcpflag == "2") {
			//hscttempprcpflag ='Y' Àΰæ¿ì´Â ACTING¿¡ °ü°è¾øÀÌ Ã³¸®°¡´ÉÇÏ´Ù.			
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/hscttempprcpflag") != "Y" ){
				continue;
			}
			//¹Ý³³ÀÇ·ÚµÈ »çÇ×Àº 󸮺Ұ¡
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/iogb") == "I" && 
				model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/dr") == "¹Ý³³ÀÇ·Ú" ){
				continue;
			}
		} else {
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/iogb") == "O" &&
				model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/rcptyn") == "N"){
				return;			//¿Ü·¡ AND ¼ö³³NÀΰæ¿ì
			}
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/iogb") == "O" 	&&
				model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/rcptyn") == "Y" 	&& 
				model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/execyn") == "Y")		{
				return;			//¿Ü·¡ AND ¼ö³³Y AND ACTING =Y'ÀÎ °æ¿ì
			}

			//LBT90001 / LBT90101 Àº ¸·À½(20080129)
			var prcpcd = model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/prcpcd");			
			if (prcpcd == "LBT90001" || prcpcd == "LBT90101" ){
				continue;
			}


//			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/execyn") == "Y"){
//				continue;
//			}
		}

		//ÀԷ°¡´É
		pGrd.isReadOnly(row,pGrd.colRef("chk"),row,pGrd.colRef("chk")) = false;
	}
}

//-----------------------------
// ½Çó¹æ ³»¿ª Á¶È¸
//-----------------------------
function readfunc2(){												
	model.removeNodeset("/root/main/execprcp/execprcpinfo");
	model.removeNodeset("/root/send");
	model.makeValue("/root/send/baseinfo1/pid", 		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/pid"));
	model.makeValue("/root/send/baseinfo1/prcpdd",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpdd"));
	model.makeValue("/root/send/baseinfo1/prcpcd",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpcd"));
	model.makeValue("/root/send/baseinfo1/deptcd",		model.getValue("/root/main/cond/globalinstance/instance1"));
	model.makeValue("/root/send/baseinfo1/hsctlnkno", 	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/hsctlnkno"));
	model.makeValue("/root/send/baseinfo1/dispflag", 	"Y");
	model.makeValue("/root/send/baseinfo1/prcpflag", 	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpflag"));
	model.makeValue("/root/send/baseinfo1/iogb",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/iogb"));	
	model.makeValue("/root/send/baseinfo1/instcd",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/instcd"));						
	model.makeValue("/root/send/baseinfo1/prcpno",		model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcpno"));											
	model.makeValue("/root/send/baseinfo1/prcphistno",	model.getValue("/root/main/direcprcp/direcprcpinfo[" + grd_keepbaclist.row + "]/prcphistno"));

	if (submit("TRLBD00503")){
	}
//						for (var i = 1; i < datagrid2.rows; i ++){
//							if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/status") == "L"){
//								datagrid2.isReadOnly(i, datagrid2.colRef("check")) = true;
//							}else{
//								datagrid2.isReadOnly(i, datagrid2.colRef("check")) = false;
//							}
//						}
	model.refresh();
	
	//-----------------------------------------------
	//¼±ÅúҰ¡·Î º¯°æ
	//-----------------------------------------------						
	var pGrd = datagrid2;
	var pGrdMain = grd_keepbaclist;
	
	if (pGrdMain.rows <= 1 || pGrdMain.row < 1) return; 
	if (pGrd.rows <= 1 ) return;
	
	var tempprcpflag = model.getValue("/root/main/direcprcp/direcprcpinfo[" + pGrdMain.row + "]/prcpflag");

	//ÀüºÎ ¼öÁ¤ºÒ°¡
	pGrd.isReadOnly(1,1,pGrd.rows-1,pGrd.cols-1)= true;	
		
	for (var row=1;row<pGrd.rows;row++) {
		if (model.getValue("/root/main/execprcp/execprcpinfo[" + row + "]/prnprcpflag") == "Y"){
			continue;
		}
		if (model.getValue("/root/main/execprcp/execprcpinfo[" + row + "]/dr") == "D/C") {
			continue;
		}
		
		//Ãë¼Ò´Â Áö½Ãó¹æÀÌ°í ÀÔ¿øÀÎ °æ¿ì¸¸ ÇØ´çµÈ´Ù.
		if (tempprcpflag == "2") {
			if (model.getValue("/root/main/execprcp/execprcpinfo[" + row + "]/iogb") == "I" ) {
			} else {
				continue;
			}
		} else {
			continue;
		}
		
		//ÀԷ°¡´É		
		pGrd.isReadOnly(row,pGrd.colRef("chk"),row,pGrd.colRef("chk")) = false;
	}						
}

/*------------------------------
	acting MAIN
------------------------------*/
function fSaveData() {	
	var pGrd0 = grd_keepbaclist;
	if (pGrd0.rows <= 1 ) return;
		
	var pGrd1 = datagrid1;	 
	if (pGrd1.rows <= 1 ) return;
	
//----------------------------------------------------
//¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È("³»¸®±â")
//üũÇϱâ À§ÇØ ÀÚ·áºÒ·¯¿À±â
	model.removenodeset("/root/main/paminfo");
	model.makeNode("/root/main/paminfo");

	var node = getGlobalVariable("paminfo");
	setCSVToNode("/root/main/paminfo", node);
//---------------------------------------------------- 		
	
	if (model.getValue("/root/main/direcprcp/direcprcpinfo[" + pGrd0.row + "]/iogb") == "I") {
		fSaveDataI();
	} else {
		fSaveDataO();
	}	
}

/*------------------------------
	acting(ÀÔ¿ø)
------------------------------*/
function fSaveDataI() {	
	
	var pGrd0 = grd_keepbaclist;
	var pGrd1 = datagrid1;	
	var k = 0;
	
	// dschnotiyn = 'Y'
	var xPath = "/root/main/paminfo/list";
	
	if (model.getValue(xPath + "/dschnotiyn") == "Y") {
		messageBox("°£È£Åð¿øÈ®Á¤µÈ ÀÚ·á´Â ActingÇÒ¼ö ¾ø½À´Ï´Ù....", "E999", "");
		return;
	}
	//	lastmdlclamdd IS 'ÃÖÁ¾Áß°£Ã»±¸ ÀÏÀÚ',
	var tempDate = getCurrentDate();
	
	if (model.getValue(xPath + "/lastmdlclamdd") != '-') {
		if (model.getValue(xPath + "/lastmdlclamdd") >= tempDate ) {
			messageBox("Áß°£Á¤»êÀÏ ÀÌÀüÀÏÀº ActingÇÒ¼ö ¾ø½À´Ï´Ù....", "E999", "");
			return;
		}
	}	 

//	alert(	model.getValue(xPath + "/dschnotiyn") + "/" +
//			model.getValue(xPath + "/lastmdlclamdd") + "/" +
//			tempDate);
	
 
//Á¶È¸ÈÄ ¸·À¸¹Ç·Î ÀúÀå½Ã´Â ¸·Áö ¾Ê´Â´Ù.	
//üũ¿©ºÎ¸¸ È®ÀÎ ÇÑ´Ù.
	var colchk = pGrd1.colRef("chk");
		
	for (var i = 1; i < pGrd1.rows; i++){
		if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/chk") == "true"){
			if (pGrd1.isReadOnly(i,colchk,i,colchk) != true) {
/*	¸·À½		
//			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/prnprcpflag") == "Y"){
//				messageBox("PRNó¹æÀº ACTINGÇÒ ¼ö ¾ø½À´Ï´Ù..", "E999", "");
//				return;
//			}
//			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/execyn") == "Y"){
//				messageBox("ÀÌ¹Ì ActingµÈ ÀÚ·áÀÔ´Ï´Ù...", "E999", "");
//				return;
//			}
//			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/dr") == "¹Ý³³ÀÇ·Ú"){
//				messageBox("¹Ý³³ÀÇ·ÚµÈ ÀÚ·áÀÔ´Ï´Ù...", "E999", "");
//				return;
//			}						
*/
				k = parseInt(k) + 1;							
			}	
		}
	}
	if (k == 0){
		messageBox("ó¸®ÇÒ ³»¿ªÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E999", "");
		return;
	}

	var update = getGridUpdateData(datagrid1);
	model.removenodeset("/root/send");
	
	model.makeValue("/root/send/execdata/prcpdetlinfo",update);

	//--------------------------------------------
	//¼öÀÍinterface¸¦ Å¿ì´Â ÀÛ¾÷À» Ãß°¡ÇØ¾ß ÇÑ´Ù.
	//(ÇöÀçÀÌÀüÀÏ actingÀÎ °æ¿ì¸¸
	//--------------------------------------------
	//app¿¡¼­ ó¸®ÇÔ
	//--------------------------------------------
	
	if (messageBox("Acting ",'Q003',"") != 6) return;
		
	if(submit("TXLBD00501")){
		readfunc1();
	}
}

/*------------------------------
	acting(¿Ü·¡)
------------------------------*/
function fSaveDataO() {
	
	var pGrd1 = datagrid1;	
	var k = 0;

	var colchk = pGrd1.colRef("chk");	
	for (var i = 1; i < pGrd1.rows; i++){
	
		if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/chk") == "true"){
			if (pGrd1.isReadOnly(i,colchk,i,colchk) != true) {
/* ¸·À½
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/rcptyn") != "Y"){
				messageBox("¿Ü·¡ÀÎ °æ¿ì´Â ¼ö³³µÈ ÀڷḸ Acting°¡´É ÇÕ´Ï´Ù...", "E999", "");
				return;
			}
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/prnprcpflag") == "Y"){
				messageBox("PRNó¹æÀº ACTINGÇÒ ¼ö ¾ø½À´Ï´Ù..", "E999", "");
				return;
			}
			if (model.getValue("/root/main/prcpdetl/prcpdetlinfo[" + i + "]/execyn") == "Y" ){
				messageBox("ÀÌ¹Ì ActingµÈ ÀÚ·áÀÔ´Ï´Ù...", "E999", "");
				return;
			}
*/
				k = parseInt(k) + 1;
			}
		}
	}
	if (k == 0){
		messageBox("ó¸®ÇÒ ³»¿ªÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E999", "");
		return;
	}

	var update = getGridUpdateData(datagrid1);
	model.removenodeset("/root/send");
	
	model.makeValue("/root/send/execdata/prcpdetlinfo",update);

	//--------------------------------------------
	//¼öÀÍinterface¸¦ Å¿ì´Â ÀÛ¾÷À» Ãß°¡ÇØ¾ß ÇÑ´Ù.
	//--------------------------------------------
	//app¿¡¼­ ó¸®ÇÔ
	//--------------------------------------------
	if (messageBox("Acting ",'Q003',"") != 6) return;
	if(submit("TXLBD00501")){
		readfunc1();
	}
}

//-----------------------------                                                                                       
// DC MAIN                                                                                                                 
//-----------------------------                                                                                       
function fSaveDataCancel() {

	var pGrd0 = grd_keepbaclist;
	if (pGrd0.rows <= 1 ) return;
		
	var pGrd1 = datagrid1;	 
	if (pGrd1.rows <= 1 ) return;
	
//----------------------------------------------------
//¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È("³»¸®±â")
//üũÇϱâ À§ÇØ ÀÚ·áºÒ·¯¿À±â
	model.removenodeset("/root/main/paminfo");
	model.makeNode("/root/main/paminfo");

	var node = getGlobalVariable("paminfo");
	setCSVToNode("/root/main/paminfo", node);
//---------------------------------------------------- 
	
	if (model.getValue("/root/main/direcprcp/direcprcpinfo[" + pGrd0.row + "]/iogb") == "I") {
		fSaveDataCancelI();
	} else {
		messageBox("¿Ü·¡Ã³¹æÀº ¹Ý³³ÀÇ·Ú ÇÒ ¼ö ¾ø½À´Ï´Ù..", "E999", "");
		//fSaveDataCancelO();
	}	
}

//-----------------------------                                                                                       
// DC (ÀÔ¿ø)                                                                                                    
//-----------------------------
function fSaveDataCancelI() {
							                                                                  
	//acting Ãë¼Ò+ D/C + ÈÄÀÎÁõ
	var pGrd1 = datagrid2;						                                                                  
	var k = 0;
	
	// dschnotiyn = 'Y'
	var xPath = "/root/main/paminfo/";
	var colchk = pGrd1.colRef("chk");
	
	if (model.getValue(xPath + "/dschnotiyn") == "Y") {
		messageBox("°£È£Åð¿øÈ®Á¤µÈ ÀÚ·á´Â ¹Ý³³ÀÇ·Ú ÇÒ ¼ö ¾ø½À´Ï´Ù....", "E999", "");
		return;
	}                                                                                                         

	for (var i = 1; i < pGrd1.rows; i++){                                                                         
		if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/chk") == "true"){ 
			if (pGrd1.isReadOnly(i,colchk,i,colchk) != true) {			 
/* ¸·À½			                           
			if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/prnprcpflag") == "Y"){                    
				messageBox("PRNó¹æÀº ¹Ý³³ÀÇ·Ú ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E999", "");                                              
				return;                                                                                               
			}
*/
				k = parseInt(k) + 1;
			}	
		}                                                                                                             
	}                                                                                                                 
	if (k == 0){                                                                                                      
		messageBox("ó¸®ÇÒ ³»¿ªÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E999", "");                                                 
		return;                                                                                                       
	}                                                                                                                 

	if (messageBox("¹Ý³³ÀÇ·Ú ",'Q003',"") != 6) return;                                                                                                                      
	fActingCancel();                                                                                        
	if(submit("TXLBD00503")){
		readfunc2();
	}                                                                                                     
}						                                                                                              
						
//-----------------------------
// DC (¿Ü·¡)                                                                                                    
//-----------------------------
function fSaveDataCancelO() {
							                                                                  
	//acting Ãë¼Ò
	var k = 0;                                
	var tempDate = getCurrentDate();                                                                        
	
	for (var i = 1; i < datagrid2.rows; i++){                                                                         
		if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/chk") == "true"){                             
			if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/execdd") != tempDate){                    
				messageBox("´çÀÏ Acting °Ç¿¡ ´ëÇÑ Ãë¼Ò¸¸ °¡´ÉÇÕ´Ï´Ù.", "E999", "");
				return;                                                                                               
			}
			/*
			//¼öÁ¤ÇؾßÇÔ(ÀÓ½Ã)
			if (model.getValue("/root/main/execprcp/execprcpinfo[" + i + "]/AAAAA") == "Y"){                    
				messageBox("¼±Ã³Ä¡´Â Acting°¡ ºÒ°¡´ÉÇÕ´Ï´Ù.", "E999", "");
				return;                                                                                               
			}
			*/
			k = parseInt(k) + 1;                                                                                      
		}                                                                                                             
	}                                                                                                                 
	if (k == 0){                                                                                                      
		messageBox("ó¸®ÇÒ ³»¿ªÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E999", "");                                                 
		return;                                                                                                       
	}                                                                                                                 
	                                                                                                                  
	if (messageBox("¹Ý³³ÀÇ·Ú ",'Q003',"") != 6) return;                                                                    
                                                                                                                      
	fActingCancel();                                                                                                  
	//--------------------------------------------
	//¼öÀÍinterface¸¦ Å¿ì´Â ÀÛ¾÷À» Ãß°¡ÇØ¾ß ÇÑ´Ù.
	//--------------------------------------------
	// ¿Ü·¡DC´Â ¾øÀ½
	//--------------------------------------------                                                                                                   
                                                                                                                      
	if(submit("TXLBD00503")){
		readfunc2();
	}                                                                                                     
}
	
//----------------------------------------------
// Acting Ãë¼Ò ó¸®
//----------------------------------------------
function fActingCancel() {
	var update = getGridUpdateData(datagrid2);
	model.removenodeset("/root/send");	
	model.makeValue("/root/send/execdata/execprcpinfo",update);						
}

//--AEZ0001.JS (¿øº»)
function aezfSetSuppDeptcd_local() {
	var dutplcecd = getUserInfo("dutplcecd");
	//var dutplcenm = getUserInfo("dutplcenm");
    var selectplcecd = getScreenPrestDeptCd();
	
	//alert(dutplcecd + "/////" + selectplcecd);
	
	if ( selectplcecd == "" ) {
	      selectplcecd = dutplcecd;
	      //selectplcenm = dutplcenm;
	}
	
	model.setValue("/root/main/cond/globalinstance/instance1",     selectplcecd);
}		


//----------------------------------------------
// ÇÏ´Ü ÁúÀǹ®
//----------------------------------------------
function fQueryDetail() {
	
	
	//Çϴܱ׸®µå¿¡ Àüü¼±ÅùöÆ° ºñ¼±ÅÃÀ¸·ÎÀüȯ
	datagrid1.fixedcellischeck(0,1) = false;    //±×¸®µå Çì´õ¿¡ üũ¹öÆ° Ãß°¡
	datagrid2.fixedcellischeck(0,1) = false;    //±×¸®µå Çì´õ¿¡ üũ¹öÆ° Ãß°¡
	
	//Çϴܱ׸®µåÀÚ·á Á¶È¸
	var pGrd = grd_keepbaclist;
	if ( (pGrd.row >= pGrd.fixedRows) && (pGrd.isCell(event.target))) {
	
		model.toggle("case1");
		btn_case1.selected = true;
		btn_case2.selected = false;
		
		if (btn_case1.selected == true){
			readfunc1();
		}else{
			readfunc2();
		}
	}				
}	


//----------------------------------------------
// »ó´Ü¿Ã¸®±â
//----------------------------------------------
function fSetPatInfo() {
									
	var pGrd = grd_keepbaclist;
	var xPath = "/root/main/direcprcp/direcprcpinfo";
	var condparam = "";
	
	if (pGrd.rows <= 1 || pGrd.row <= 0 ) return;
	
	//--------------------------»ó´Ü¿Ã¸®±â flag --------------------------									
	// 01 O:¿Ü·¡, I:ÀÔ¿ø±¸ºÐ, T:¼ö¼ú¿¹¾à , E:ÀÀ±Þ
	// 02 µî·Ï¹øÈ£                                
	// 03 ¼ö¼ú½ÃÀÛÀÏÀÚ                            
	// 04 cretno(¾ø´Â °æ¿ì ""·Î ó¸®)             
	// 05 ±â°üÄÚµå                                
	// 06 Áýµµ°úºÎ¼­                              
	// 07 ÁýµµÀÇID                                
	// 08 ȯÀÚ±¸ºÐ                                
	// 09 F -󸮱¸ºÐ ¹«Á¶°Ç F·Î ¼³Á¤             
	// 10 ¼ö¼ú¿¹¾à¹øÈ£                            
	// 11 ¼ö¼úÀ̷¹øÈ£                            
	// 12 Á¶È¸ÀÏÀÚ   2007-09-13 ¿ÀÁöÈÆ Ãß°¡...   
	//------------------------------------------------------------------
	
	var pid = "";
	var indd= "";
	var cretno="";
	var instcd = "";
	var orddd= "";
	var ordtype = "";//"I";
	
	ioflag	= model.getValue(xPath + "["+pGrd.row+"]/iogb") ;
	if ( ioflag  ==  "D" ) 	ioflag  ==  "I";
	
	pid 	= model.getValue(xPath + "["+pGrd.row+"]/pid") ;
	indd	= model.getValue(xPath + "["+pGrd.row+"]/indd") ;
	cretno	= model.getValue(xPath + "["+pGrd.row+"]/cretno") ;		//±×¸®µå¿¡ Ãß°¡ÇؾßÇÔ
	instcd	= model.getValue(xPath + "["+pGrd.row+"]/instcd");		//Àü¿ªº¯¼ö¿¡ Ãß°¡ÇؾßÇÔ
	orddd	= model.getValue(xPath + "["+pGrd.row+"]]/prcpdd");	//ó¹æÀÏ(orddd)
	ordtype	= ioflag;
	// »ó´Ü ¼¼ÆÃÀ» À§ÇÑ ÆĶó¹ÌÅÍ
	condparam = ordtype + "¢Ë" + pid + "¢Ë" + indd + "¢Ë" + cretno + "¢Ë" + instcd+ "¢Ë" + orddd;	
	setParameter("condparam", condparam);
	//»ó´Ü ¼¼Æà ȭ¸é »çÀÌÁî ÀÛ°Ô ¶ç¿ò
	modal("SPMMO08900", "", "", "", "SPMMO08900", "", "");		//alert("ȯÀڱ⺻Á¤º¸¼³Á¤Áß......");

//----------------------------------------------------
//¼³Á¤µÈ »ó´ÜÁ¤º¸¸¦ ºÒ·¯¿È
// 				     	       alert("³»¸®±â");
//						model.makeNode("/root/main/paminfo");
//						var node = getGlobalVariable("paminfo");
//						setCSVToNode("/root/main/paminfo", node);
//----------------------------------------------------
}	

//---------------------------------------
// ÀÚµ¿¼³Á¤±â´É Á¦¾î
//---------------------------------------
function fGrdSelect(sflag) {
	
	var pGrd;
	if (sflag == "1") { 
		pGrd = datagrid1;		//ó¹æ³»¿ª
	} else {
		pGrd = datagrid2;		//½Ç½Ã³»¿ª
	}
	if (pGrd.rows <= 1 ) return;
	
	if (pGrd.col != pGrd.colRef("chk") || pGrd.row != 0) {
		return;
	} else {
		for (var row=1;row<pGrd.rows;row++) {
			//¼±ÅÃÇÏ¸é ¾ÈµÇ´Â ÀڷḦ Á¦¿Ü½ÃŲ´Ù.
			if (pGrd.isReadOnly(row,pGrd.colref("chk"),row,pGrd.colref("chk") )== "1") {	
				if (sflag=="1") {
					model.setValue("/root/main/prcpdetl/prcpdetlinfo[" + row + "]/chk","false");
				} else {
					model.setValue("/root/main/execprcp/execprcpinfo[" + row + "]/chk","false");
				}
			} else {
				pGrd.addStatus(row,"update");			//¼öÁ¤µÈ°ÍÀ¸·Î º»´Ù.
			}
		}
	}
	model.refresh();
}

// --------------------------------------------------
// ¿À¸¥ÂÊ ¸¶¿ì½º¹öÆ°
// --------------------------------------------------
function fnonmousedown() {

	var pGrd = grd_keepbaclist;
	pGrd.row = pGrd.mouseRow;
	if (pGrd.rows <= 1 || pGrd.row <= 0 ) return;	
	fShowPopupMenu("grd_keepbaclist","/root/main/menuitems/inmenu/item");	
	
/*
	if (model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/pid")== "") return;					

	var colnm = grd_dscList.valueMatrix(0, grd_dscList.mouseCol);
	var tmpcareinrmdd = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/tmpcareinrmdd");
	var oppatflagcd  = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/oppatflagcd");
	colnm = colnm.substring(0,2);
	
	var sdschdd1 = model.getValue( "/root/main/dsc/dscList["+grd_dscList.mouseRow+"]/dschdd");
	sdschdd1 = 	sdschdd1.replace("-","");
	sdschdd1 = 	sdschdd1.substring(0,1);
		
	//---(¼ö¼úȯÀÚ+angio(¼ö¼úÁ¤º¸¾øÀ½) 
//						if(oppatflagcd=="D"&&colnm== "ÀÔ½Ç"&&tmpcareinrmdd.substring(0,1)=="-") {  // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
//							fShowPopupMenu("grd_dscList","/root/main/menuitems/inmenu/item");
//					       }else {
//							fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");						       	
//					       }					
	
	if (rdo_dscflag.value == "D") {	
		//if(colnm== "ÀÔ½Ç"&&tmpcareinrmdd.substring(0,1)=="-")  { // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
		if(colnm== "ÀÔ½Ç")  { // DSC ȯÀÚ,  ÀԽǽð¢Ä®·³, ÀԽǽð¢ÀÌ Àû¿ëµÇÁö ¾ÊÀº °æ¿ì("-")¿¡¸¸ ÀԽǽ𢠸޴º ³ªÅ¸³ªµµ·Ï
			fShowPopupMenu("grd_dscList","/root/main/menuitems/inmenu/item");
		}else  {
			fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");								
		}	
	} else {
		fShowPopupMenu("grd_dscList","/root/main/menuitems/grdmenu/item");
	}
	*/
}

 // --------------------------------------------------
 // Æ˾÷¸Þ´º
 // --------------------------------------------------
function fShowPopupMenu(gridID, menuPath)
{
	var gridObj = document.controls.item(gridID);

	if(event.button == 3) {
		if(gridObj.isCell(event.target) && gridObj.mouseRow >= gridObj.fixedrows){
			window.setPopupMenu(true, menuPath, "name", "func", false);
		}else{
			window.setPopupMenu(false);
		}
	}
}
//-------------------------------------
// ¿À¸¥ÂÊ ¸¶¿ì½º È£ÃâµÇ´Â Æ˾÷µÏENR
//-------------------------------------
function fSetPopup01() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMLBD00700", "", "", "", "", "", "");		//°ø¿©ÀÚ¹®Áø
}
function fSetPopup02() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();	
	modal("SMLBD01300", "", "", "", "", "", "");		//°ø¿©ÀÚó¹æÀÔ·Â
}
function fSetPopup03() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMLBD00900", "", "", "", "", "", "");		//°Ë»ç°á°úÆÇÁ¤Á¶È¸
}
function fSetPopup04() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMMRF02300", "", "", "", "", "", "");		//ocr¼­½ÄÁöÃâ·Â
}
function fSetPopup05() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMMMO02500", "", "", "", "", "", "");		//ȯÀÚÁø·áÁ¤º¸Á¶È¸
}
function fSetPopup06() {
	modal("SMLBD01600", "", "", "", "", "", "");		//APUÇ÷¾×ºÒÃâµî·Ï
}
function fSetPopup07() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMAER00800", "", "", "", "", "", "");		//ÅëÇÕ°Ë»ç°á°úÁ¶È¸
}
function fSetPopup08() {
	//»ó´Ü¿Ã¸®±â
	fSetPatInfo();		
	modal("SMMRI00400", "", "", "", "", "", "");		//ÅëÇÕ±â·ÏÁ¶È¸
}

//--------------------------
// prn ¼±Åýà 
//--------------------------
function fnPrn() {
	//¼±Åñ¸ºÐ¼³Á¤
	var xPathMainCond = "/root/main/cond";
	model.setValue(xPathMainCond + "/workflag", "prn");
	fInqurySelectedPrgm();
}