/*
  
      ItemÈ®Àå¸í¼³Á¤(¼ö¾×)_SJH(SPMNR06001_SJH.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01 
*/
var sViewFlag = "None";
var sControlFlag = "N";
var flag = "1";

/**
 * @group  :
 * @ver    : 2008.07.28
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : È­¸é ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function finit(){
	
	// °£È£ÇϵåÄÚµù Å×À̺í Á¶È¸_20090415(ByJA)
	var pCode = "'S02'"; // Á¶È¸ÇÒ CdGrupID ÄÚµåÁ¤º¸
	var pDate = getCurrentDate(); //Á¶È¸±âÁØÀÏÀÚ
	fGetNursHardCdInfo(pCode, pDate);	  
			
	fSettingRecItem("init");
	model.removenodeSet("/root/main/iteminfo/itemlist");
	model.removeNodeset("/root/main/druginfo/druglist");
	model.removeNodeset("/root/main/prcpdateinfo/prcpdatelist");
	model.removeNodeset("/root/main/prcpdetlinfo/prcpdetllist");

	var sParamMsgItem = "";
	var sParamFalg = "";
	var sParamItemCd = "";
	var sParamMsgItemList = "";
	var sParamListInfo = "";
	var sParamInfo = "";
	
	//»ç¿ë±¸ºÐ 1: ¾à, 2: ÀϹݰ˻ç, 3: ÀÀ±Þ°Ë»ç
	model.setValue("/root/cond/useflag", "1");
	//¾àÇ°Á¤º¸ Á¶È¸°ª Ãʱ⠼¼ÆÃ
	model.setValue("/root/cond/drugtype", "ALL");
	//Á¶È¸±¸ºÐ Ãʱ⠼¼ÆÃ
	model.setValue("/root/cond/srchtype", "ALL");
	model.setValue("/root/cond/srchtext", "");	
	
	//ó¹æ³»¿ª ÀԷ½à ÀÔ·Â Á¤º¸ ¼³Á¤
	rdo_prcpinsflag.value = "1";
	
	//¾à,ÁÖ»ç ±â·Ï ¸¶½ºÅÍ Á¤º¸ Á¶È¸
	//fSrchData();
	
		
	//FlowSheet¿¡¼­ ItemÀ» ¹Ù·Î µî·ÏÇϱâ À§ÇÔ.
	var sPopupParam = opener.javascript.getParameter("SPMNR06001_Param");
	if( sPopupParam != "" ) sViewFlag = sPopupParam;

	if( getArrayData(sViewFlag,1,0) == "Flow" ){
		model.removeNodeset("/root/send");
		model.makeValue("/root/send/lnkbizcd", getArrayData(sViewFlag,1,7));
		if(submit("TRMNR06003_SJH", false)){
			fMakeItemSelect();
		}
	}else{
		sParamMsgItem = opener.javascript.getParameter("SPMNR06000_ParamFlag");
		model.removeNodeset("/root/send");
		model.makeValue("/root/send/lnkbizcd", getArrayData(sParamMsgItem,1,6));
		if(submit("TRMNR06003_SJH", false)){
			fMakeNoneItemSelect(getArrayData(sParamMsgItem,1,1));
		}
	}
	
	if( sViewFlag == "None" ){
		sParamMsgItem = opener.javascript.getParameter("SPMNR06000_ParamFlag");
		model.setValue("/root/cond/pid", getArrayData(sParamMsgItem,1,3));
		model.setValue("/root/cond/orddd", getArrayData(sParamMsgItem,1,4));
		model.setValue("/root/cond/cretno", getArrayData(sParamMsgItem,1,5));		
	}else{
		sParamMsgItem = opener.javascript.getParameter("SPMNR06001_Param");
		model.setValue("/root/cond/pid", getArrayData(sParamMsgItem,1,3));
		model.setValue("/root/cond/orddd", getArrayData(sParamMsgItem,1,4));
		model.setValue("/root/cond/cretno", getArrayData(sParamMsgItem,1,5));
		model.setValue("/root/cond/ordtype", getArrayData(sParamMsgItem,1,6));
	}
		
	model.removeNodeset("/root/send");
	model.makeNode("/root/send");
	model.copyNode("/root/send", "/root/cond");
	
	submit("TRMNR06001_SJH", false);
	
	sParamFalg = getArrayData(sParamMsgItem,1,0);
	sParamItemCd = getArrayData(sParamMsgItem,1,1);
	
	//¾à/ÁÖ»ç ¶Ç´Â Fluid ¾ÆÀÌÅÛ ¼±Åÿ¡ µû¸¥ ¼³Á¤ º¯°æ
	fCtrlView(sParamItemCd);

	//È­¸é¿¡ Item ¸í ¼¼ÆÃ
	if(sParamFalg == "duplextitem"){
		sParamMsgItemList = opener.javascript.getParameter("SPMNR06000_Param");
		sParamListInfo = sParamMsgItemList.split("¢Ì");
		
		for(var i = 1 ; i < sParamListInfo.length-1 ; i++){
			sParamInfo = sParamListInfo[i].split("¢Ë");
			model.makeValue("/root/main/iteminfo/itemlist["+i+"]/itemnm", sParamInfo[1]);
			model.makeValue("/root/main/iteminfo/itemlist["+i+"]/chngitemnm", sParamInfo[2]);
		}
		
	}else if(sParamFalg == "dupllocitem"){
		sParamMsgItemList = opener.javascript.getParameter("SPMNR06000_Param");
		sParamListInfo = sParamMsgItemList.split("¢Ì");

		for(var i = 1 ; i < sParamListInfo.length-1 ; i++){
			sParamInfo = sParamListInfo[i].split("¢Ë");
			model.makeValue("/root/main/iteminfo/itemlist["+i+"]/itemnm", sParamInfo[1]);
			model.makeValue("/root/main/iteminfo/itemlist["+i+"]/chngitemnm", sParamInfo[2]);
		}						
		
	}
	
	model.refresh();
	model.setFocus("ipt_chngitemnm");
}

/**
 * @group  :
 * @ver    : 2008.07.28
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ÀÔ·Â Á¤º¸ Item Àüü Á¶È¸ È­¸éÀ¸·Î º¸³¿
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSaveExtNm(){
	var sChkVal = true;
	
	//ƯÁ¤È­¸é¿¡¼­ È£ÃâÇÏÁö ¾Ê°í Item Àüü Á¶È¸ È­¸é¿¡¼­ OpenÇßÀ» °æ¿ì ó¸® 
	if( sViewFlag == "None" ){
		if(model.getValue("/root/main/chngitemnm").getTrim() == ""){
			var msg = messageBox(caption2.value + " ÀԷ¾øÀÌ µî·ÏÇϽðڽÀ´Ï±î?","Q");
			if(msg == "6"){
				opener.javascript.setParameter("SPMNR06000_RtrnParam", "&empty");
				window.close();				
			}else{
				return;
			}
		}else{
			for(var i = 1 ; i <= getNodesetCount("/root/main/iteminfo/itemlist") ; i++){
				if( model.getValue("/root/main/chngitemnm") == model.getValue("/root/main/iteminfo/itemlist["+i+"]/chngitemnm") ){
					sChkVal = false;		
				}
			}
			
			if(sChkVal == false){
				messageBox("Áߺ¹ Á¤º¸°¡ Á¸ÀçÇÕ´Ï´Ù. ´Ù½Ã ÀÔ·ÂÇϽʽÿä","I");
				ipt_chngitemnm.value = "";
				model.setFocus("ipt_chngitemnm");
				return;
			}else{
				opener.javascript.setParameter("SPMNR06000_RtrnParam",model.getValue("/root/main/chngitemnm") + "¢Ë" + model.getValue("/root/main/recfluidunit") +"¢Ì");
				window.close();	
			}
		}
	}
	//ƯÁ¤È­¸é¿¡¼­ È£ÃâÇÒ °æ¿ì ó¸®
	else{
		if( rdo_itemlist.value == "" ){
			messageBox("±â·Ï Ç׸ñ À¯ÇüÀÌ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù.", "E");
			model.setFocus("rdo_itemlist");
			return;
		}
				
		if(model.getValue("/root/main/chngitemnm").getTrim() == ""){
			messageBox("±â·Ï Ç׸ñ ÀԷ°ªÀÌ ¾ø¾î µî·Ï ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
			model.setFocus("ipt_chngitemnm");
			return;
		}
		
		var sSateData = "status¢Ëpid¢Ëorddd¢Ëcretno¢Ëitemfromdt¢Ëitemtodt¢Ërefseq¢Ëitemcd¢Ëpatseqno¢Ërecflag¢Ëprcpyn¢Ëgrupcd¢Ëordtype¢Ëcarerecseqno¢Ëitemorigincd¢Ëchngitemnm¢Ësupsetno¢Ërecfluidunit¢Ì";
		var sItemCd = rdo_itemlist.value;
		var sRecFlag = model.getValue("/root/init/fluiditeminfo/fluiditemlist[itemcd='"+sItemCd+"']/recflag");
		
		var recnm;
		var recvol;
		var recvolunit;
		var recfluidunit;
		
		if(flag == "1") {
		
			for(var i = grd_recitemlist.fixedRows; i < grd_recitemlist.rows; i++) {
				recnm = grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recnm"));
				recvol = grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvol"));
				recvolunit = grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvolunit"));
				recfluidunit = grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recfluidunit"));
				
		    sSateData += "i" + "¢Ë"
		               + model.getValue("/root/cond/pid")     + "¢Ë"
		               + model.getValue("/root/cond/orddd")   + "¢Ë"
		               + model.getValue("/root/cond/cretno")  + "¢Ë"
		               + getCurrentDate()+getCurrentTime()    + "¢Ë"
		               + "99991231235959"                     + "¢Ë"
		               + 0                                    + "¢Ë"
		               + sItemCd                              + "¢Ë"
		               + ""                                   + "¢Ë"
		               + sRecFlag                             + "¢Ë"
		               + "N"                                  + "¢Ë"
		               + 1                                    + "¢Ë"
		               + model.getValue("/root/cond/ordtype") + "¢Ë"
		               + ""                                   + "¢Ë"
		               + "04"                                 + "¢Ë"
		               + recnm + " " + recvol + recvolunit    + "¢Ë"
		               + ""                                   + "¢Ë"
		               + recfluidunit													+ "¢Ì";
		  }
		} else {
			sSateData += "i" + "¢Ë"
		               + model.getValue("/root/cond/pid")     + "¢Ë"
		               + model.getValue("/root/cond/orddd")   + "¢Ë"
		               + model.getValue("/root/cond/cretno")  + "¢Ë"
		               + getCurrentDate()+getCurrentTime()    + "¢Ë"
		               + "99991231235959"                     + "¢Ë"
		               + 0                                    + "¢Ë"
		               + sItemCd                              + "¢Ë"
		               + ""                                   + "¢Ë"
		               + sRecFlag                             + "¢Ë"
		               + "N"                                  + "¢Ë"
		               + 1                                    + "¢Ë"
		               + model.getValue("/root/cond/ordtype") + "¢Ë"
		               + ""                                   + "¢Ë"
		               + "04"                                 + "¢Ë"
		               + ipt_chngitemnm.value                 + "¢Ë"
		               + ""                                   + "¢Ë"
		               + model.getValue("/root/main/recfluidunit") + "¢Ì";
		}
		
    model.removenode("/root/send");
    model.makeValue("/root/send/patitemlist", sSateData);
    
    if(submit("TXMNR06001_SJH", false)){
    	opener.javascript.setParameter("SPMNR06000_ReturnSaveInfo", "Refresh");	
    }
    
		window.close();	
	}
}

/**
 * @group  :
 * @ver    : 2010.03.05
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¾à, ÁÖ»ç ±â·Ï¾àÇ°¸¶½ºÅÍ Á¤º¸ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSrchData(){
	
	if( ipt_srchtext.value.getTrim().length< 1 ){
		ipt_srchtext.value = "";
	}
	//¾äÇ°Á¤º¸ ¸®½ºÆ® ÃʱâÈ­
	//model.removenodeset("/root/main/druginfo");
	
	model.removenodeset("/root/send");
	model.makeNode("/root/send");
	model.copyNode("/root/send", "/root/cond");
	submit("TRMNR10501", false);
}

/**
 * @group  :
 * @ver    : 2010.03.06
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚ Ã³¹æ Á¤º¸ »ó¼¼ Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSrchPrcpDetlInfo(pRow){
	if( pRow == "" || pRow < 1 ) return;
	model.removenodeset("/root/send");
	model.makeValue("/root/send/pid", model.getValue("/root/cond/pid"));
	model.makeValue("/root/send/orddd", model.getValue("/root/cond/orddd"));
	model.makeValue("/root/send/cretno", model.getValue("/root/cond/cretno"));
	model.makeValue("/root/send/prcphopedd", grd_prcpdatelist.valueMatrix(pRow, grd_prcpdatelist.colRef("prcphopedd")));
	model.makeValue("/root/send/prcpkindcd", grd_prcpdatelist.valueMatrix(pRow, grd_prcpdatelist.colRef("prcpkindcd")));
	
	submit("TRMNR06002_SJH", false);
}

/**
 * @group  :
 * @ver    : 2010.03.06
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±â·Ï Ç׸ñ ¼³Á¤ ¸®½ºÆ®¿¡ ±â·ÏÁ¤º¸ ÀÔ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSettingRecItem(pFlag, pRecRow, pSelRow, pSubFlag){	
	if( pFlag == "" ) return;
	var sInsRow = "";
	var sMsg = "";
	var sRecNm = "";
	var sRecVol = "";
	var sRecUnit = "";
	
	switch(pFlag){
		case "prcpdetllist":
			if( pRecRow < 1 ){
				grd_recitemlist.addRow();
				sInsRow = grd_recitemlist.rows - grd_recitemlist.fixedRows;
			}else{
				grd_recitemlist.insertRow(pRecRow, "below");
				sInsRow = pRecRow+1;
			}
			
			if( pSelRow < 1 ) return;
			
			if( grd_prcpdetllist.valueMatrix(pSelRow, grd_recitemlist.colRef("recyn")) == "Y" ){
				sMsg = messageBox("Alias Á¤º¸°¡ Á¸ÀçÇÕ´Ï´Ù. Alias Á¤º¸·Î Ãß°¡¸¦ ÇϽðڽÀ´Ï±î?", "Q000");
			}
			
			if( sMsg == "6" ){
				sRecNm = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("recnm"));
				sRecVol = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpvol"));
				sRecUnit = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpvolunitflag"));
			}else{
				if( rdo_prcpinsflag.value == "1" ){ 
					sRecNm = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpcd"));
				}else{
					sRecNm = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpnm"));
				}
				sRecVol = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpvol"));
				sRecUnit = grd_prcpdetllist.valueMatrix(pSelRow, grd_prcpdetllist.colRef("prcpvolunitflag"));									
			}
			
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recnm")) = sRecNm;
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recvol")) = sRecVol;
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recvolunit")) = sRecUnit;
			
		break;
		case "druglist":
			if( pRecRow < 1 ){
				grd_recitemlist.addRow();
				sInsRow = grd_recitemlist.rows - grd_recitemlist.fixedRows;
			}else{
				grd_recitemlist.insertRow(pRecRow, "below");
				sInsRow = pRecRow+1;
			}
			
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recnm")) = grd_druglist.valueMatrix(pSelRow, grd_druglist.colRef("recnm"));
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recvol")) = grd_druglist.valueMatrix(pSelRow, grd_druglist.colRef("recvol"));
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recvolunit")) = grd_druglist.valueMatrix(pSelRow, grd_druglist.colRef("recunit"));
			grd_recitemlist.valueMatrix(sInsRow, grd_recitemlist.colRef("recfluidunit")) = grd_druglist.valueMatrix(pSelRow, grd_druglist.colRef("recfluidunit"));
		break;
		case "textadd":
			if( pRecRow < 1 ){
				grd_recitemlist.addRow();
			}else{
				grd_recitemlist.insertRow(pRecRow, "above");
			}
		break;
		case "textdel":
			grd_recitemlist.deleteRow(pRecRow);
		break;
		case "init":
			model.removeNodeset(grd_recitemlist.attribute("nodeset"));
			grd_recitemlist.refresh();		
		break;
	}
	
	btn_refresh.dispatch("DOMActivate");
}


/**
 * @group  :
 * @ver    : 2010.03.06
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±â·Ï Ç׸ñ ¼³Á¤ ¸®½ºÆ®¿¡ ±â·ÏÁ¤º¸ ÀÔ·Â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fMakeRecItemNm(){
	var sSettingNm = "";
	if( grd_recitemlist.rows < 1 ) return;
	
	for( var i = grd_recitemlist.fixedRows ; i <= grd_recitemlist.rows ; i++ ){
		if( grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recnm")) != "" ){
			if( sSettingNm == "" ){
				sSettingNm += grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recnm")) + " " 
				           +  grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvol"))
				           +  grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvolunit"));
			}else{
				sSettingNm += " , ";
				sSettingNm += grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recnm")) + " " 
				           +  grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvol"))
				           +  grd_recitemlist.valueMatrix(i, grd_recitemlist.colRef("recvolunit"));
			}
		}
	}
	
	return sSettingNm;
} 

/**
 * @group  :
 * @ver    : 2010.03.26
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¾à/ÁÖ»ç ¼±Åà Radio Button »ý¼º
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fMakeItemSelect(){
	if( getNodesetCount("/root/init/fluiditeminfo/fluiditemlist") > 0 ){
		rdo_itemlist.attribute("cols") = getNodesetCount("/root/init/fluiditeminfo/fluiditemlist");
		rdo_itemlist.visible = true;
	}
}

/**
 * @group  :
 * @ver    : 2010.06.01
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¾à/ÁÖ»ç ¼±Åà Radio Button »ý¼º(¾ÆÀÌÅÛ ÀüüÁ¶È¸ È­¸é¿¡¼­ Open ÇßÀ» °æ¿ì)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fMakeNoneItemSelect(pItemcd){
	if( getNodesetCount("/root/init/fluiditeminfo/fluiditemlist") > 0 ){
		rdo_itemlist.choices.itemset.attribute("nodeset") = "/root/init/fluiditeminfo/fluiditemlist[itemcd='"+pItemcd+"']";
		rdo_itemlist.value = pItemcd;
		rdo_itemlist.visible = true;
	}
}

/**
 * @group  :
 * @ver    : 2010.06.01
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¾à/ÁÖ»ç ¶Ç´Â Fluid ¾ÆÀÌÅÛ ¼±Åÿ¡ µû¸¥ ¼³Á¤ º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCtrlView(pFlag){
	//Stype Á¤º¸·Î È­¸é Control ¼³Á¤
	if( "01" == model.getValue("/root/init/fluiditeminfo/fluiditemlist[itemcd ='"+pFlag+"']/style") ){
		sControlFlag = "Y";
	}	
	
	if( "Y" == sControlFlag ){
		caption6.visible = true;
		cmb_recunit.visible = true;
		chk_autosetflag.visible = true;
	}
}